[Bps-public-commit] rt-shipwright branch, master, updated. 1891d65fe89115ec4d3386ba4d63bb8467f2be17
? sunnavy
sunnavy at bestpractical.com
Mon May 24 01:58:18 EDT 2010
The branch, master has been updated
via 1891d65fe89115ec4d3386ba4d63bb8467f2be17 (commit)
from ad42c06c4fd0f2eb6fdc29d5efc7c38b3ebff58d (commit)
Summary of changes:
.../vendor/bzip2-src/bzlib_private.h | 509 -
.../vendor/bzip2-src/compress.c | 672 -
.../vendor/t/09limitoutput.t | 129 -
.../vendor/zlib-src/adler32.c | 169 -
.../vendor/zlib-src/inflate.c | 1480 --
.../cpan-Compress-Raw-Zlib/vendor/zlib-src/zutil.c | 318 -
.../vendor/DBSchema/DBD/Oracle.pm | 124 -
.../cpan-DBIx-DBSchema/vendor/DBSchema/DBD/Pg.pm | 369 -
.../cpan-DBIx-DBSchema/vendor/DBSchema/Table.pm | 794 -
.../cpan-DBIx-DBSchema/vendor/DBSchema/_util.pm | 52 -
3.8.8/sources/cpan-DBIx-DBSchema/vendor/META.yml | 23 -
.../cpan-DBIx-DBSchema/vendor/t/load-oracle.t | 5 -
.../sources/cpan-DBIx-DBSchema/vendor/t/load-pg.t | 12 -
.../cpan-DBIx-DBSchema/vendor/t/load-sqlite.t | 5 -
.../cpan-DBIx-DBSchema/vendor/t/load-sybase.t | 5 -
3.8.8/sources/cpan-DBIx-DBSchema/vendor/t/load.t | 5 -
3.8.8/sources/cpan-Data-Dumper/vendor/Todo | 28 -
3.8.8/sources/cpan-Data-Dumper/vendor/ppport.h | 6984 --------
3.8.8/sources/cpan-Data-Dumper/vendor/t/dumper.t | 1432 --
3.8.8/sources/cpan-Devel-PPPort/vendor/PPPort.pm | 8269 ---------
.../sources/cpan-Devel-PPPort/vendor/PPPort_pm.PL | 669 -
.../sources/cpan-Devel-PPPort/vendor/PPPort_xs.PL | 140 -
3.8.8/sources/cpan-Devel-PPPort/vendor/TODO | 347 -
.../sources/cpan-Devel-PPPort/vendor/apicheck_c.PL | 29 -
.../cpan-Devel-PPPort/vendor/devel/mkapidoc.sh | 87 -
.../cpan-Devel-PPPort/vendor/devel/regenerate | 161 -
3.8.8/sources/cpan-Devel-PPPort/vendor/module2.c | 60 -
3.8.8/sources/cpan-Devel-PPPort/vendor/module3.c | 77 -
.../cpan-Devel-PPPort/vendor/parts/apicheck.pl | 323 -
.../cpan-Devel-PPPort/vendor/parts/base/5004000 | 89 -
.../cpan-Devel-PPPort/vendor/parts/base/5004010 | 1 -
.../cpan-Devel-PPPort/vendor/parts/base/5005040 | 1 -
.../cpan-Devel-PPPort/vendor/parts/base/5006000 | 295 -
.../cpan-Devel-PPPort/vendor/parts/base/5006002 | 1 -
.../cpan-Devel-PPPort/vendor/parts/base/5007000 | 1 -
.../cpan-Devel-PPPort/vendor/parts/base/5007003 | 85 -
.../cpan-Devel-PPPort/vendor/parts/base/5008002 | 1 -
.../cpan-Devel-PPPort/vendor/parts/base/5008004 | 1 -
.../cpan-Devel-PPPort/vendor/parts/base/5009000 | 6 -
.../cpan-Devel-PPPort/vendor/parts/base/5009001 | 8 -
.../cpan-Devel-PPPort/vendor/parts/base/5009003 | 67 -
.../cpan-Devel-PPPort/vendor/parts/base/5010000 | 10 -
.../cpan-Devel-PPPort/vendor/parts/base/5011000 | 52 -
.../cpan-Devel-PPPort/vendor/parts/inc/MY_CXT | 192 -
.../cpan-Devel-PPPort/vendor/parts/inc/SvPV | 524 -
.../cpan-Devel-PPPort/vendor/parts/inc/call | 367 -
.../cpan-Devel-PPPort/vendor/parts/inc/exception | 74 -
.../cpan-Devel-PPPort/vendor/parts/inc/format | 70 -
.../cpan-Devel-PPPort/vendor/parts/inc/limits | 331 -
.../cpan-Devel-PPPort/vendor/parts/inc/mPUSH | 138 -
.../cpan-Devel-PPPort/vendor/parts/inc/memory | 84 -
.../cpan-Devel-PPPort/vendor/parts/inc/newSV_type | 86 -
.../cpan-Devel-PPPort/vendor/parts/inc/pv_tools | 281 -
.../sources/cpan-Devel-PPPort/vendor/parts/inc/pvs | 128 -
.../cpan-Devel-PPPort/vendor/parts/inc/sprintf | 62 -
.../cpan-Devel-PPPort/vendor/parts/inc/version | 58 -
.../cpan-Devel-PPPort/vendor/parts/inc/warn | 175 -
.../cpan-Devel-PPPort/vendor/parts/ppptools.pl | 400 -
.../cpan-Devel-PPPort/vendor/parts/todo/5004000 | 68 -
.../cpan-Devel-PPPort/vendor/parts/todo/5004010 | 1 -
.../cpan-Devel-PPPort/vendor/parts/todo/5004030 | 1 -
.../cpan-Devel-PPPort/vendor/parts/todo/5004040 | 1 -
.../cpan-Devel-PPPort/vendor/parts/todo/5004050 | 4 -
.../cpan-Devel-PPPort/vendor/parts/todo/5005010 | 1 -
.../cpan-Devel-PPPort/vendor/parts/todo/5005020 | 1 -
.../cpan-Devel-PPPort/vendor/parts/todo/5005040 | 1 -
.../cpan-Devel-PPPort/vendor/parts/todo/5006001 | 11 -
.../cpan-Devel-PPPort/vendor/parts/todo/5007002 | 17 -
.../cpan-Devel-PPPort/vendor/parts/todo/5008002 | 1 -
.../cpan-Devel-PPPort/vendor/parts/todo/5009000 | 6 -
.../cpan-Devel-PPPort/vendor/parts/todo/5009004 | 8 -
.../cpan-Devel-PPPort/vendor/parts/todo/5010000 | 7 -
3.8.8/sources/cpan-Devel-PPPort/vendor/t/HvNAME.t | 56 -
3.8.8/sources/cpan-Devel-PPPort/vendor/t/MY_CXT.t | 54 -
.../sources/cpan-Devel-PPPort/vendor/t/SvREFCNT.t | 54 -
3.8.8/sources/cpan-Devel-PPPort/vendor/t/Sv_set.t | 71 -
3.8.8/sources/cpan-Devel-PPPort/vendor/t/cop.t | 62 -
.../sources/cpan-Devel-PPPort/vendor/t/exception.t | 67 -
3.8.8/sources/cpan-Devel-PPPort/vendor/t/limits.t | 55 -
3.8.8/sources/cpan-Devel-PPPort/vendor/t/magic.t | 95 -
3.8.8/sources/cpan-Devel-PPPort/vendor/t/memory.t | 52 -
3.8.8/sources/cpan-Devel-PPPort/vendor/t/newSVpv.t | 78 -
.../sources/cpan-Devel-PPPort/vendor/t/snprintf.t | 54 -
3.8.8/sources/cpan-Devel-PPPort/vendor/t/sprintf.t | 54 -
.../sources/cpan-Devel-PPPort/vendor/t/strlfuncs.t | 65 -
.../sources/cpan-Devel-PPPort/vendor/t/testutil.pl | 48 -
3.8.8/sources/cpan-Devel-PPPort/vendor/t/threads.t | 54 -
.../sources/cpan-Devel-PPPort/vendor/t/variables.t | 107 -
3.8.8/sources/cpan-Devel-Symdump/vendor/MANIFEST | 17 -
3.8.8/sources/cpan-Devel-Symdump/vendor/README | 140 -
.../sources/cpan-Devel-Symdump/vendor/t/podcover.t | 5 -
3.8.8/sources/cpan-Digest-MD5/vendor/MD5.xs | 731 -
3.8.8/sources/cpan-Digest-MD5/vendor/META.yml | 21 -
.../sources/cpan-Digest-MD5/vendor/hints/MacOS.pl | 3 -
.../sources/cpan-Digest-MD5/vendor/hints/irix_6.pl | 6 -
3.8.8/sources/cpan-Digest-MD5/vendor/t/badfile.t | 19 -
3.8.8/sources/cpan-Digest-MD5/vendor/t/bits.t | 26 -
3.8.8/sources/cpan-Digest-MD5/vendor/t/clone.t | 41 -
3.8.8/sources/cpan-Digest-MD5/vendor/t/files.t | 191 -
3.8.8/sources/cpan-Digest-MD5/vendor/t/md5-aaa.t | 554 -
3.8.8/sources/cpan-Digest/vendor/Digest.pm | 316 -
3.8.8/sources/cpan-Digest/vendor/Digest/base.pm | 100 -
3.8.8/sources/cpan-Digest/vendor/MANIFEST | 12 -
3.8.8/sources/cpan-Digest/vendor/META.yml | 19 -
3.8.8/sources/cpan-Digest/vendor/Makefile.PL | 10 -
3.8.8/sources/cpan-Digest/vendor/t/digest.t | 36 -
3.8.8/sources/cpan-Digest/vendor/t/file.t | 52 -
3.8.8/sources/cpan-Encode/vendor/Byte/Makefile.old | 771 -
.../sources/cpan-Encode/vendor/EBCDIC/Makefile.old | 762 -
3.8.8/sources/cpan-Encode/vendor/Encode.pm | 963 --
.../sources/cpan-Encode/vendor/Encode/Changes.e2x | 7 -
.../cpan-Encode/vendor/Encode/ConfigLocal_PM.e2x | 13 -
3.8.8/sources/cpan-Encode/vendor/Encode/_T.e2x | 7 -
3.8.8/sources/cpan-Encode/vendor/Encode/encode.h | 113 -
3.8.8/sources/cpan-Encode/vendor/JP/Makefile.old | 807 -
3.8.8/sources/cpan-Encode/vendor/KR/Makefile.old | 792 -
3.8.8/sources/cpan-Encode/vendor/META.yml | 20 -
3.8.8/sources/cpan-Encode/vendor/Makefile.PL | 132 -
.../sources/cpan-Encode/vendor/Symbol/Makefile.PL | 156 -
.../sources/cpan-Encode/vendor/Unicode/Unicode.pm | 270 -
3.8.8/sources/cpan-Encode/vendor/bin/ucm2table | 45 -
3.8.8/sources/cpan-Encode/vendor/bin/ucmlint | 203 -
3.8.8/sources/cpan-Encode/vendor/bin/unidump | 272 -
.../sources/cpan-Encode/vendor/lib/Encode/Alias.pm | 377 -
.../cpan-Encode/vendor/lib/Encode/Encoding.pm | 360 -
.../cpan-Encode/vendor/lib/Encode/GSM0338.pm | 292 -
.../sources/cpan-Encode/vendor/lib/Encode/Guess.pm | 355 -
.../cpan-Encode/vendor/lib/Encode/JP/H2Z.pm | 176 -
.../cpan-Encode/vendor/lib/Encode/JP/JIS7.pm | 165 -
.../cpan-Encode/vendor/lib/Encode/KR/2022_KR.pm | 81 -
.../cpan-Encode/vendor/lib/Encode/MIME/Header.pm | 241 -
.../cpan-Encode/vendor/lib/Encode/Supported.pod | 901 -
3.8.8/sources/cpan-Encode/vendor/t/Unicode.t | 165 -
3.8.8/sources/cpan-Encode/vendor/t/at-cn.t | 145 -
3.8.8/sources/cpan-Encode/vendor/t/big5-hkscs.utf | 590 -
3.8.8/sources/cpan-Encode/vendor/t/enc_data.t | 44 -
3.8.8/sources/cpan-Encode/vendor/t/enc_eucjp.t | 83 -
3.8.8/sources/cpan-Encode/vendor/t/encoding.t | 203 -
3.8.8/sources/cpan-Encode/vendor/t/fallback.t | 184 -
3.8.8/sources/cpan-Encode/vendor/t/gb2312.utf | 242 -
3.8.8/sources/cpan-Encode/vendor/t/grow.t | 39 -
3.8.8/sources/cpan-Encode/vendor/t/gsm0338.t | 135 -
3.8.8/sources/cpan-Encode/vendor/t/guess.t | 114 -
3.8.8/sources/cpan-Encode/vendor/t/jisx0201.enc | 2 -
3.8.8/sources/cpan-Encode/vendor/t/jisx0208.utf | 226 -
3.8.8/sources/cpan-Encode/vendor/t/jisx0212.enc | 200 -
3.8.8/sources/cpan-Encode/vendor/t/jisx0212.utf | 200 -
3.8.8/sources/cpan-Encode/vendor/t/mime-name.t | 36 -
3.8.8/sources/cpan-Encode/vendor/t/perlio.t | 180 -
3.8.8/sources/cpan-Encode/vendor/t/utf8strict.t | 89 -
3.8.8/sources/cpan-Encode/vendor/ucm/8859-1.ucm | 268 -
3.8.8/sources/cpan-Encode/vendor/ucm/8859-14.ucm | 268 -
3.8.8/sources/cpan-Encode/vendor/ucm/8859-2.ucm | 268 -
3.8.8/sources/cpan-Encode/vendor/ucm/8859-6.ucm | 223 -
3.8.8/sources/cpan-Encode/vendor/ucm/8859-8.ucm | 232 -
3.8.8/sources/cpan-Encode/vendor/ucm/8859-9.ucm | 268 -
3.8.8/sources/cpan-Encode/vendor/ucm/ascii.ucm | 139 -
3.8.8/sources/cpan-Encode/vendor/ucm/big5-eten.ucm |14047 ----------------
3.8.8/sources/cpan-Encode/vendor/ucm/cp1006.ucm | 267 -
3.8.8/sources/cpan-Encode/vendor/ucm/cp1251.ucm | 267 -
3.8.8/sources/cpan-Encode/vendor/ucm/cp1255.ucm | 245 -
3.8.8/sources/cpan-Encode/vendor/ucm/cp1258.ucm | 259 -
3.8.8/sources/cpan-Encode/vendor/ucm/cp737.ucm | 280 -
3.8.8/sources/cpan-Encode/vendor/ucm/cp775.ucm | 280 -
3.8.8/sources/cpan-Encode/vendor/ucm/cp850.ucm | 280 -
3.8.8/sources/cpan-Encode/vendor/ucm/cp856.ucm | 227 -
3.8.8/sources/cpan-Encode/vendor/ucm/cp860.ucm | 280 -
3.8.8/sources/cpan-Encode/vendor/ucm/cp862.ucm | 280 -
3.8.8/sources/cpan-Encode/vendor/ucm/cp865.ucm | 280 -
3.8.8/sources/cpan-Encode/vendor/ucm/cp875.ucm | 262 -
3.8.8/sources/cpan-Encode/vendor/ucm/cp949.ucm |17772 --------------------
3.8.8/sources/cpan-Encode/vendor/ucm/euc-jp.ucm |17481 -------------------
3.8.8/sources/cpan-Encode/vendor/ucm/jis0201.ucm | 234 -
3.8.8/sources/cpan-Encode/vendor/ucm/koi8-r.ucm | 268 -
3.8.8/sources/cpan-Encode/vendor/ucm/koi8-u.ucm | 268 -
3.8.8/sources/cpan-Encode/vendor/ucm/macArabic.ucm | 241 -
.../sources/cpan-Encode/vendor/ucm/macCroatian.ucm | 267 -
.../sources/cpan-Encode/vendor/ucm/macCyrillic.ucm | 267 -
.../sources/cpan-Encode/vendor/ucm/macDingbats.ucm | 246 -
3.8.8/sources/cpan-Encode/vendor/ucm/macGreek.ucm | 267 -
3.8.8/sources/cpan-Encode/vendor/ucm/macHebrew.ucm | 231 -
.../sources/cpan-Encode/vendor/ucm/macIceland.ucm | 268 -
3.8.8/sources/cpan-Encode/vendor/ucm/macRUMnn.ucm | 267 -
3.8.8/sources/cpan-Encode/vendor/ucm/macSami.ucm | 266 -
3.8.8/sources/cpan-Encode/vendor/ucm/macSymbol.ucm | 234 -
3.8.8/sources/cpan-Encode/vendor/ucm/nextstep.ucm | 171 -
3.8.8/sources/cpan-Encode/vendor/ucm/posix-bc.ucm | 267 -
3.8.8/sources/cpan-Exporter/vendor/t/Exporter.t | 225 -
3.8.8/sources/cpan-Exporter/vendor/t/pod.t | 7 -
.../sources/cpan-ExtUtils-CBuilder/vendor/Changes | 338 -
.../cpan-ExtUtils-CBuilder/vendor/Makefile.PL | 19 -
.../vendor/lib/ExtUtils/CBuilder/Base.pm | 310 -
.../lib/ExtUtils/CBuilder/Platform/Windows.pm | 291 -
.../lib/ExtUtils/CBuilder/Platform/Windows/BCC.pm | 130 -
.../lib/ExtUtils/CBuilder/Platform/Windows/GCC.pm | 151 -
.../vendor/lib/ExtUtils/CBuilder/Platform/aix.pm | 31 -
.../lib/ExtUtils/CBuilder/Platform/darwin.pm | 22 -
.../lib/ExtUtils/CBuilder/Platform/dec_osf.pm | 18 -
.../cpan-ExtUtils-Install/vendor/Makefile.PL | 89 -
3.8.8/sources/cpan-ExtUtils-Install/vendor/README | 54 -
.../cpan-ExtUtils-Install/vendor/t/Installapi2.t | 238 -
.../cpan-ExtUtils-Install/vendor/t/Packlist.t | 174 -
.../cpan-ExtUtils-Install/vendor/t/can_write_dir.t | 61 -
.../vendor/t/lib/MakeMaker/Test/Setup/BFD.pm | 132 -
.../vendor/t/lib/MakeMaker/Test/Utils.pm | 412 -
.../vendor/t/lib/Test/Builder/Module.pm | 182 -
.../vendor/t/lib/Test/Simple.pm | 230 -
.../cpan-ExtUtils-Install/vendor/t/pod-coverage.t | 34 -
.../cpan-ExtUtils-MakeMaker/vendor/MANIFEST | 117 -
.../cpan-ExtUtils-MakeMaker/vendor/Makefile.PL | 241 -
3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/NOTES | 96 -
.../cpan-ExtUtils-MakeMaker/vendor/PATCHING | 212 -
.../vendor/inc/ExtUtils/Packlist.pm | 348 -
.../vendor/lib/ExtUtils/MM.pm | 90 -
.../vendor/lib/ExtUtils/MM_BeOS.pm | 61 -
.../vendor/lib/ExtUtils/MM_Cygwin.pm | 123 -
.../vendor/lib/ExtUtils/MM_DOS.pm | 65 -
.../vendor/lib/ExtUtils/MM_MacOS.pm | 40 -
.../vendor/lib/ExtUtils/MM_OS2.pm | 152 -
.../vendor/lib/ExtUtils/MM_Unix.pm | 3634 ----
.../vendor/lib/ExtUtils/MM_VOS.pm | 50 -
.../vendor/lib/ExtUtils/MM_Win32.pm | 585 -
.../vendor/lib/ExtUtils/MY.pm | 40 -
.../cpan-ExtUtils-MakeMaker/vendor/t/00compile.t | 38 -
.../vendor/t/INSTALL_BASE.t | 74 -
.../cpan-ExtUtils-MakeMaker/vendor/t/INST_PREFIX.t | 264 -
.../cpan-ExtUtils-MakeMaker/vendor/t/MM_NW5.t | 296 -
.../cpan-ExtUtils-MakeMaker/vendor/t/MM_VMS.t | 70 -
.../vendor/t/MakeMaker_Parameters.t | 68 -
.../vendor/t/VERSION_FROM.t | 33 -
.../cpan-ExtUtils-MakeMaker/vendor/t/arch_check.t | 82 -
.../cpan-ExtUtils-MakeMaker/vendor/t/dir_target.t | 10 -
.../cpan-ExtUtils-MakeMaker/vendor/t/fix_libs.t | 32 -
.../cpan-ExtUtils-MakeMaker/vendor/t/hints.t | 50 -
.../cpan-ExtUtils-MakeMaker/vendor/t/is_of_type.t | 36 -
.../vendor/t/lib/MakeMaker/Test/Setup/Recurs.pm | 74 -
.../vendor/t/lib/MakeMaker/Test/Setup/XS.pm | 97 -
.../vendor/t/lib/Test/Simple.pm | 214 -
.../vendor/t/maketext_filter.t | 59 -
.../vendor/t/metafile_file.t | 308 -
.../vendor/t/min_perl_version.t | 195 -
.../sources/cpan-ExtUtils-MakeMaker/vendor/t/pm.t | 41 -
.../cpan-ExtUtils-MakeMaker/vendor/t/postamble.t | 67 -
.../cpan-ExtUtils-MakeMaker/vendor/t/prereq.t | 127 -
.../vendor/t/test_boilerplate.t | 21 -
.../vendor/t/writemakefile_args.t | 215 -
.../sources/cpan-ExtUtils-MakeMaker/vendor/t/xs.t | 58 -
.../sources/cpan-ExtUtils-Manifest/vendor/Build.PL | 23 -
.../sources/cpan-ExtUtils-Manifest/vendor/META.yml | 34 -
.../vendor/lib/ExtUtils/MANIFEST.SKIP | 55 -
.../cpan-ExtUtils-Manifest/vendor/t/Manifest.t | 417 -
3.8.8/sources/cpan-ExtUtils-ParseXS/vendor/Changes | 355 -
.../cpan-ExtUtils-ParseXS/vendor/Makefile.PL | 22 -
.../cpan-ExtUtils-ParseXS/vendor/t/XSTest.pm | 8 -
.../cpan-ExtUtils-ParseXS/vendor/t/XSUsage.xs | 37 -
.../sources/cpan-ExtUtils-ParseXS/vendor/t/more.t | 110 -
3.8.8/sources/cpan-File-Path/vendor/Changes | 135 -
3.8.8/sources/cpan-File-Path/vendor/MANIFEST | 12 -
3.8.8/sources/cpan-File-Path/vendor/MANIFEST.SKIP | 3 -
3.8.8/sources/cpan-File-Path/vendor/META.yml | 25 -
3.8.8/sources/cpan-File-Path/vendor/Makefile.PL | 41 -
.../cpan-File-Path/vendor/eg/setup-extra-tests | 89 -
3.8.8/sources/cpan-File-Path/vendor/t/Path.t | 660 -
3.8.8/sources/cpan-File-Remove/vendor/Makefile.PL | 10 -
.../vendor/inc/Module/Install/Can.pm | 82 -
.../cpan-File-Remove/vendor/lib/File/Remove.pm | 329 -
.../cpan-File-Remove/vendor/t/04_can_delete.t | 87 -
3.8.8/sources/cpan-File-Temp/vendor/ChangeLog | 377 -
3.8.8/sources/cpan-File-Temp/vendor/Temp.pm | 2452 ---
.../cpan-File-Temp/vendor/misc/benchmark.pl | 42 -
3.8.8/sources/cpan-Filter/vendor/Call/Call.pm.bak | 498 -
3.8.8/sources/cpan-Filter/vendor/Changes | 308 -
3.8.8/sources/cpan-Filter/vendor/MANIFEST | 50 -
3.8.8/sources/cpan-Filter/vendor/README | 76 -
3.8.8/sources/cpan-Filter/vendor/decrypt/decr | 70 -
3.8.8/sources/cpan-Filter/vendor/decrypt/decr.bak | 70 -
3.8.8/sources/cpan-Filter/vendor/decrypt/encrypt | 71 -
.../vendor/examples/closure/Decompress.pm.bak | 33 -
.../vendor/examples/closure/Joe2Jim.pm.bak | 23 -
.../vendor/examples/closure/UUdecode.pm | 52 -
.../sources/cpan-Filter/vendor/examples/filtuu.bak | 5 -
.../cpan-Filter/vendor/examples/method/Joe2Jim.pm | 26 -
.../cpan-Filter/vendor/examples/method/Subst.pm | 30 -
.../cpan-Filter/vendor/examples/method/UUdecode.pm | 54 -
.../cpan-Filter/vendor/lib/Filter/sh.pm.bak | 78 -
3.8.8/sources/cpan-Filter/vendor/t/cpp.t | 84 -
3.8.8/sources/cpan-Filter/vendor/t/cpp.t.bak | 84 -
3.8.8/sources/cpan-Filter/vendor/t/sh.t.bak | 75 -
3.8.8/sources/cpan-Filter/vendor/tee/tee.xs | 63 -
3.8.8/sources/cpan-FreezeThaw/vendor/Makefile.PL | 8 -
3.8.8/sources/cpan-Getopt-Long/vendor/INSTALL | 35 -
3.8.8/sources/cpan-Getopt-Long/vendor/MANIFEST | 22 -
3.8.8/sources/cpan-Getopt-Long/vendor/Makefile.PL | 113 -
.../cpan-Getopt-Long/vendor/lib/newgetopt.pl | 75 -
.../sources/cpan-Getopt-Long/vendor/t/gol-compat.t | 29 -
.../sources/cpan-Getopt-Long/vendor/t/gol-xargv.t | 33 -
.../vendor/examples/compress-zlib/filtdef | 29 -
.../vendor/examples/compress-zlib/gzcat | 27 -
.../vendor/examples/io/bzip2/bzcat | 29 -
.../vendor/examples/io/gzip/gzstream | 24 -
.../vendor/lib/IO/Compress/Adapter/Identity.pm | 101 -
.../vendor/lib/IO/Compress/Gzip/Constants.pm | 148 -
.../vendor/lib/IO/Uncompress/Adapter/Bunzip2.pm | 112 -
.../vendor/lib/IO/Uncompress/Adapter/Identity.pm | 105 -
.../vendor/lib/IO/Uncompress/AnyUncompress.pm | 1018 --
.../vendor/lib/IO/Uncompress/Base.pm | 1474 --
3.8.8/sources/cpan-IO-Compress/vendor/pod/FAQ.pod | 514 -
.../cpan-IO-Compress/vendor/private/MakeUtil.pm | 381 -
.../vendor/t/001zlib-generic-zip.t | 20 -
.../cpan-IO-Compress/vendor/t/002any-deflate.t | 29 -
.../sources/cpan-IO-Compress/vendor/t/002any-zip.t | 29 -
.../cpan-IO-Compress/vendor/t/010examples-bzip2.t | 145 -
.../cpan-IO-Compress/vendor/t/100generic-bzip2.t | 21 -
.../vendor/t/100generic-rawdeflate.t | 21 -
.../cpan-IO-Compress/vendor/t/101truncate-gzip.t | 36 -
.../vendor/t/101truncate-rawdeflate.t | 130 -
.../cpan-IO-Compress/vendor/t/102tied-bzip2.t | 21 -
.../cpan-IO-Compress/vendor/t/103newtied-deflate.t | 21 -
.../cpan-IO-Compress/vendor/t/106prime-bzip2.t | 21 -
.../cpan-IO-Compress/vendor/t/106prime-deflate.t | 21 -
.../vendor/t/106prime-rawdeflate.t | 21 -
.../cpan-IO-Compress/vendor/t/107multi-zip.t | 21 -
.../vendor/t/108anyunc-transparent.t | 72 -
.../vendor/t/110encode-rawdeflate.t | 21 -
.../cpan-IO-Compress/vendor/t/Test/Simple.pm | 236 -
.../cpan-IO-Compress/vendor/t/compress/newtied.pl | 374 -
.../cpan-IO-Compress/vendor/t/cz-01version.t | 45 -
.../cpan-IO-Compress/vendor/t/cz-14gzopen.t | 650 -
3.8.8/sources/cpan-IO-String/vendor/String.pm | 551 -
3.8.8/sources/cpan-IO-String/vendor/t/seek.t | 63 -
3.8.8/sources/cpan-IO/vendor/SIGNATURE | 60 -
3.8.8/sources/cpan-IO/vendor/lib/IO/Seekable.pm | 128 -
3.8.8/sources/cpan-IO/vendor/t/io_linenum.t | 78 -
3.8.8/sources/cpan-IO/vendor/t/io_unix.t | 120 -
.../sources/cpan-Lingua-EN-Sentence/vendor/Changes | 78 -
.../sources/cpan-Lingua-EN-Sentence/vendor/INSTALL | 6 -
.../cpan-Lingua-EN-Sentence/vendor/MANIFEST | 5 -
.../vendor/lib/Lingua/EN/Sentence.pm | 378 -
.../vendor/t/test_nothing.t | 7 -
3.8.8/sources/cpan-Locale-Maketext/vendor/README | 67 -
.../vendor/lib/Locale/Maketext/GutsLoader.pm | 49 -
.../vendor/lib/Locale/Maketext/TPJ13.pod | 775 -
.../cpan-Locale-Maketext/vendor/t/50_super.t | 71 -
3.8.8/sources/cpan-MIME-Base64/vendor/MANIFEST | 13 -
3.8.8/sources/cpan-MIME-Base64/vendor/META.yml | 20 -
3.8.8/sources/cpan-MIME-Base64/vendor/t/unicode.t | 33 -
.../cpan-Math-Complex/vendor/lib/Math/Trig.pm | 768 -
3.8.8/sources/cpan-Math-Complex/vendor/t/Trig.t | 393 -
3.8.8/sources/cpan-Math-Complex/vendor/t/pod.t | 12 -
3.8.8/sources/cpan-Module-Build/vendor/LICENSE | 380 -
3.8.8/sources/cpan-Module-Build/vendor/META.yml | 129 -
.../cpan-Module-Build/vendor/lib/Module/Build.pm | 1149 --
.../vendor/lib/Module/Build/Authoring.pod | 323 -
.../vendor/lib/Module/Build/ModuleInfo.pm | 491 -
.../vendor/lib/Module/Build/Platform/Default.pm | 33 -
.../vendor/lib/Module/Build/Platform/EBCDIC.pm | 34 -
.../vendor/lib/Module/Build/Platform/MPEiX.pm | 34 -
.../vendor/lib/Module/Build/Platform/VMS.pm | 558 -
.../cpan-Module-Build/vendor/scripts/config_data | 249 -
.../cpan-Module-Build/vendor/t/00-compile.t | 17 -
.../cpan-Module-Build/vendor/t/add_property.t | 94 -
.../vendor/t/bundled/Tie/CPHash.pm | 194 -
3.8.8/sources/cpan-Module-Build/vendor/t/debug.t | 27 -
3.8.8/sources/cpan-Module-Build/vendor/t/ext.t | 161 -
3.8.8/sources/cpan-Module-Build/vendor/t/extend.t | 275 -
3.8.8/sources/cpan-Module-Build/vendor/t/files.t | 47 -
3.8.8/sources/cpan-Module-Build/vendor/t/install.t | 241 -
.../vendor/t/install_extra_target.t | 135 -
.../cpan-Module-Build/vendor/t/lib/MBTest.pm | 279 -
.../sources/cpan-Module-Build/vendor/t/metadata.t | 603 -
.../sources/cpan-Module-Build/vendor/t/metadata2.t | 131 -
3.8.8/sources/cpan-Module-Build/vendor/t/mymeta.t | 123 -
3.8.8/sources/cpan-Module-Build/vendor/t/parents.t | 61 -
.../cpan-Module-Build/vendor/t/perl_mb_opt.t | 62 -
3.8.8/sources/cpan-Module-Build/vendor/t/ppm.t | 221 -
.../vendor/t/properties/needs_compiler.t | 125 -
.../cpan-Module-Build/vendor/t/test_types.t | 174 -
.../sources/cpan-Module-Build/vendor/t/versions.t | 21 -
3.8.8/sources/cpan-NEXT/vendor/demo/demo_actual.pl | 24 -
.../sources/cpan-NEXT/vendor/demo/demo_diamond.pl | 24 -
.../cpan-NEXT/vendor/demo/demo_unseen_actual.pl | 24 -
3.8.8/sources/cpan-NEXT/vendor/lib/NEXT.pm | 563 -
3.8.8/sources/cpan-NEXT/vendor/t/unseen.t | 54 -
3.8.8/sources/cpan-PPI/vendor/Changes | 1242 --
3.8.8/sources/cpan-PPI/vendor/LICENSE | 378 -
3.8.8/sources/cpan-PPI/vendor/META.yml | 43 -
3.8.8/sources/cpan-PPI/vendor/README | 769 -
.../cpan-PPI/vendor/inc/Module/Install/Can.pm | 81 -
.../cpan-PPI/vendor/inc/Module/Install/Fetch.pm | 93 -
3.8.8/sources/cpan-PPI/vendor/inline2test.conf | 3 -
3.8.8/sources/cpan-PPI/vendor/lib/PPI.pm | 846 -
3.8.8/sources/cpan-PPI/vendor/lib/PPI/Cache.pm | 304 -
.../cpan-PPI/vendor/lib/PPI/Document/Normalized.pm | 316 -
3.8.8/sources/cpan-PPI/vendor/lib/PPI/Exception.pm | 60 -
.../vendor/lib/PPI/Exception/ParserRejection.pm | 12 -
3.8.8/sources/cpan-PPI/vendor/lib/PPI/Normal.pm | 332 -
.../cpan-PPI/vendor/lib/PPI/Statement/Include.pm | 492 -
.../cpan-PPI/vendor/lib/PPI/Statement/Package.pm | 148 -
.../cpan-PPI/vendor/lib/PPI/Statement/Scheduled.pm | 126 -
.../cpan-PPI/vendor/lib/PPI/Statement/Unknown.pm | 70 -
.../cpan-PPI/vendor/lib/PPI/Structure/Block.pm | 86 -
.../cpan-PPI/vendor/lib/PPI/Structure/For.pm | 81 -
.../cpan-PPI/vendor/lib/PPI/Structure/List.pm | 91 -
.../cpan-PPI/vendor/lib/PPI/Token/DashedWord.pm | 120 -
.../sources/cpan-PPI/vendor/lib/PPI/Token/Magic.pm | 256 -
.../cpan-PPI/vendor/lib/PPI/Token/Number/Exp.pm | 124 -
.../cpan-PPI/vendor/lib/PPI/Token/Number/Octal.pm | 115 -
.../vendor/lib/PPI/Token/Number/Version.pm | 171 -
.../cpan-PPI/vendor/lib/PPI/Token/Operator.pm | 137 -
.../sources/cpan-PPI/vendor/lib/PPI/Token/Quote.pm | 144 -
.../cpan-PPI/vendor/lib/PPI/Token/Quote/Double.pm | 198 -
.../cpan-PPI/vendor/lib/PPI/Token/Quote/Single.pm | 137 -
.../vendor/lib/PPI/Token/QuoteLike/Backtick.pm | 66 -
.../vendor/lib/PPI/Token/QuoteLike/Readline.pm | 75 -
.../cpan-PPI/vendor/lib/PPI/Token/Separator.pm | 66 -
.../cpan-PPI/vendor/lib/PPI/Token/Whitespace.pm | 441 -
.../sources/cpan-PPI/vendor/lib/PPI/XSAccessor.pm | 154 -
3.8.8/sources/cpan-PPI/vendor/t/03_document.t | 81 -
3.8.8/sources/cpan-PPI/vendor/t/06_round_trip.t | 120 -
3.8.8/sources/cpan-PPI/vendor/t/14_charsets.t | 79 -
3.8.8/sources/cpan-PPI/vendor/t/18_cache.t | 156 -
3.8.8/sources/cpan-PPI/vendor/t/25_increment.t | 32 -
3.8.8/sources/cpan-PPI/vendor/t/28_foreach_qw.t | 55 -
.../vendor/t/data/05_lexer/01_simpleassign.code | 2 -
.../t/data/05_lexer/03_subroutine_attributes.code | 3 -
.../vendor/t/data/05_lexer/08_subroutines.code | 6 -
.../vendor/t/data/05_lexer/09_heredoc.dump | 59 -
.../cpan-PPI/vendor/t/data/05_lexer/11_dor.code | 1 -
.../cpan-PPI/vendor/t/data/05_lexer/11_dor.dump | 15 -
.../cpan-PPI/vendor/t/data/05_lexer/12_switch.code | 4 -
.../cpan-PPI/vendor/t/data/07_token/exp.code | 10 -
.../cpan-PPI/vendor/t/data/07_token/exp.dump | 52 -
.../vendor/t/data/07_token/range_operator.code | 1 -
.../vendor/t/data/07_token/range_operator.dump | 5 -
.../vendor/t/data/07_token/smart_match.code | 1 -
.../t/data/08_regression/01_rt_cpan_19629b.dump | 15 -
.../vendor/t/data/08_regression/04_tinderbox.dump | 52 -
.../t/data/08_regression/05_rt_cpan_13425.code | 2 -
.../t/data/08_regression/05_rt_cpan_13425.dump | 17 -
.../08_regression/07_partial_quote_single.code | 1 -
.../08_partial_regex_substitution.code | 1 -
.../vendor/t/data/08_regression/09_for_var.dump | 10 -
.../t/data/08_regression/10_leading_regexp.code | 1 -
.../t/data/08_regression/10_leading_regexp.dump | 11 -
.../vendor/t/data/08_regression/12_pow.dump | 7 -
.../vendor/t/data/08_regression/13_goto.dump | 13 -
.../vendor/t/data/08_regression/14_minus.code | 1 -
.../vendor/t/data/08_regression/14b_minus.code | 1 -
.../t/data/08_regression/16_sub_declaration.dump | 16 -
.../t/data/08_regression/18_decimal_point.dump | 3 -
.../t/data/08_regression/19_long_operators.dump | 7 -
.../t/data/08_regression/19_long_operators2.code | 1 -
.../t/data/08_regression/21_list_of_refs.code | 1 -
.../t/data/08_regression/22_hash_vs_brace.code | 4 -
.../t/data/08_regression/22_hash_vs_brace.dump | 61 -
.../t/data/08_regression/23_rt_cpan_8752.dump | 17 -
.../vendor/t/data/08_regression/24_compound.code | 1 -
.../vendor/t/data/08_regression/25_hash_block.code | 1 -
.../vendor/t/data/08_regression/25_hash_block.dump | 24 -
.../t/data/08_regression/27_constant_hash.dump | 35 -
.../08_regression/28_backref_style_heredoc.dump | 5 -
.../t/data/08_regression/29_chained_casts.code | 1 -
.../vendor/t/data/08_regression/30_hash_bang.dump | 8 -
.../t/data/08_regression/31_hash_carat_H.code | 1 -
.../vendor/t/data/08_regression/32_readline.code | 1 -
.../t/data/08_regression/34_attr_whitespace.code | 1 -
.../t/data/08_regression/34_attr_whitespace.dump | 12 -
.../t/data/08_regression/37_partial_prototype.code | 1 -
.../t/data/08_regression/39_foreach_our.dump | 14 -
.../t/data/08_regression/40_foreach_eval.code | 1 -
.../t/data/08_regression/40_foreach_eval.dump | 27 -
.../t/data/08_regression/41_scalar_hash.code | 1 -
.../sources/cpan-PPI/vendor/t/data/13_data/Foo.pm | 7 -
.../cpan-PPI/vendor/t/data/15_transform/sample1.pm | 3 -
.../cpan-PPI/vendor/t/data/26_bom/utf8.code | 1 -
3.8.8/sources/cpan-PPI/vendor/t/ppi_node.t | 47 -
3.8.8/sources/cpan-PPI/vendor/t/ppi_normal.t | 84 -
3.8.8/sources/cpan-PPI/vendor/t/ppi_statement.t | 60 -
.../vendor/t/ppi_token__quoteengine_full.t | 104 -
3.8.8/sources/cpan-PPI/vendor/t/ppi_token_magic.t | 56 -
.../cpan-PPI/vendor/t/ppi_token_quote_double.t | 76 -
.../cpan-PPI/vendor/t/ppi_token_quote_literal.t | 46 -
3.8.8/sources/cpan-PPI/vendor/t/ppi_token_word.t | 219 -
3.8.8/sources/cpan-Params-Util/vendor/MANIFEST | 37 -
3.8.8/sources/cpan-Params-Util/vendor/META.yml | 29 -
.../sources/cpan-Params-Util/vendor/t/01_compile.t | 20 -
3.8.8/sources/cpan-Params-Util/vendor/t/02_main.t | 905 -
.../cpan-Params-Util/vendor/t/04_codelike.t | 134 -
.../cpan-Params-Util/vendor/t/05_typelike.t | 87 -
.../cpan-Params-Util/vendor/t/09_insideout.t | 53 -
.../sources/cpan-Params-Util/vendor/t/driver/D.pm | 16 -
.../sources/cpan-Params-Util/vendor/t/driver/F.pm | 24 -
3.8.8/sources/cpan-Params-Util/vendor/xt/meta.t | 27 -
3.8.8/sources/cpan-Params-Util/vendor/xt/pmv.t | 32 -
3.8.8/sources/cpan-PathTools/vendor/Cwd.xs | 492 -
.../sources/cpan-PathTools/vendor/lib/File/Spec.pm | 336 -
.../cpan-PathTools/vendor/lib/File/Spec/Epoc.pm | 79 -
.../cpan-PathTools/vendor/lib/File/Spec/Mac.pm | 781 -
.../cpan-PathTools/vendor/lib/File/Spec/VMS.pm | 1165 --
.../cpan-PathTools/vendor/lib/File/Spec/Win32.pm | 444 -
3.8.8/sources/cpan-PathTools/vendor/ppport.h | 6377 -------
3.8.8/sources/cpan-PathTools/vendor/t/Functions.t | 10 -
.../cpan-PathTools/vendor/t/crossplatform.t | 173 -
3.8.8/sources/cpan-PathTools/vendor/t/cwd.t | 277 -
.../cpan-PathTools/vendor/t/lib/Test/Simple.pm | 235 -
.../sources/cpan-PathTools/vendor/t/rel2abs2rel.t | 73 -
3.8.8/sources/cpan-Pod-Escapes/vendor/META.yml | 10 -
.../cpan-Pod-Parser/vendor/lib/Pod/InputObjects.pm | 936 -
.../cpan-Pod-Parser/vendor/scripts/pod2usage.PL | 180 -
.../vendor/t/pod/contains_bad_pod.xr | 5 -
.../cpan-Pod-Parser/vendor/t/pod/contains_pod.t | 27 -
.../cpan-Pod-Parser/vendor/t/pod/emptycmd.t | 21 -
3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/find.t | 161 -
3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/for.t | 59 -
3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/for.xr | 21 -
.../cpan-Pod-Parser/vendor/t/pod/headings.t | 140 -
.../cpan-Pod-Parser/vendor/t/pod/include.xr | 22 -
.../cpan-Pod-Parser/vendor/t/pod/included.xr | 3 -
3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/lref.xr | 40 -
.../cpan-Pod-Parser/vendor/t/pod/multiline_items.t | 31 -
.../cpan-Pod-Parser/vendor/t/pod/nested_seqs.xr | 3 -
.../cpan-Pod-Parser/vendor/t/pod/pod2usage.xr | 57 -
.../cpan-Pod-Parser/vendor/t/pod/pod2usage2.t | 365 -
.../cpan-Pod-Parser/vendor/t/pod/podchkenc.t | 29 -
.../cpan-Pod-Parser/vendor/t/pod/podchkenc.xr | 1 -
.../sources/cpan-Pod-Parser/vendor/t/pod/poderrs.t | 209 -
.../cpan-Pod-Parser/vendor/t/pod/poderrs.xr | 47 -
.../cpan-Pod-Parser/vendor/t/pod/podselect.t | 18 -
.../cpan-Pod-Parser/vendor/t/pod/podselect.xr | 44 -
.../cpan-Pod-Parser/vendor/t/pod/testp2pt.pl | 188 -
.../cpan-Pod-Parser/vendor/t/pod/testpchk.pl | 129 -
.../vendor/t/pod/testpods/lib/Pod/Stuff.pm | 20 -
.../cpan-Pod-Parser/vendor/t/pod/usage2.pod | 56 -
3.8.8/sources/cpan-Pod-Simple/vendor/ChangeLog | 453 -
3.8.8/sources/cpan-Pod-Simple/vendor/MANIFEST | 181 -
3.8.8/sources/cpan-Pod-Simple/vendor/META.yml | 40 -
3.8.8/sources/cpan-Pod-Simple/vendor/Makefile.PL | 56 -
3.8.8/sources/cpan-Pod-Simple/vendor/README | 61 -
.../vendor/lib/Pod/Simple/DumpAsXML.pm | 170 -
.../vendor/lib/Pod/Simple/LinkSection.pm | 174 -
.../vendor/lib/Pod/Simple/PullParserStartToken.pm | 161 -
.../vendor/lib/Pod/Simple/PullParserTextToken.pm | 128 -
.../vendor/lib/Pod/Simple/PullParserToken.pm | 163 -
.../cpan-Pod-Simple/vendor/lib/Pod/Simple/RTF.pm | 699 -
.../vendor/lib/Pod/Simple/Search.pm | 1043 --
.../vendor/lib/Pod/Simple/SimpleTree.pm | 180 -
.../vendor/lib/Pod/Simple/Subclassing.pod | 946 --
.../vendor/lib/Pod/Simple/XMLOutStream.pm | 185 -
.../sources/cpan-Pod-Simple/vendor/lib/perlpod.pod | 732 -
3.8.8/sources/cpan-Pod-Simple/vendor/t/chunking.t | 49 -
3.8.8/sources/cpan-Pod-Simple/vendor/t/closeys.t | 39 -
3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus.t | 182 -
.../cpan-Pod-Simple/vendor/t/corpus/2202jp.txt | 101 -
.../cpan-Pod-Simple/vendor/t/corpus/2202jp.xml | 133 -
.../cpan-Pod-Simple/vendor/t/corpus/2202jpx.txt | 101 -
.../cpan-Pod-Simple/vendor/t/corpus/2202jpy.txt | 101 -
.../cpan-Pod-Simple/vendor/t/corpus/8859_7.xml | 59 -
.../cpan-Pod-Simple/vendor/t/corpus/cp1256.xml | 98 -
.../cpan-Pod-Simple/vendor/t/corpus/fet_dup.txt | 56 -
.../cpan-Pod-Simple/vendor/t/corpus/laozi38p.pod | 46 -
.../cpan-Pod-Simple/vendor/t/corpus/lat1fr.txt | 38 -
.../cpan-Pod-Simple/vendor/t/corpus/nonesuch.txt | 11 -
.../cpan-Pod-Simple/vendor/t/corpus/plain.txt | 20 -
.../vendor/t/corpus/plain_explicit.txt | 22 -
.../vendor/t/corpus/plain_explicit.xml | 26 -
.../vendor/t/corpus/plain_latin1.txt | 24 -
.../vendor/t/corpus/polish_utf8.txt | 69 -
.../cpan-Pod-Simple/vendor/t/corpus/s2763_sjis.txt | 48 -
.../cpan-Pod-Simple/vendor/t/corpus/thai_iso11.txt | 64 -
.../vendor/t/corpus2/fiqhakbar_iso6.txt | 84 -
.../vendor/t/corpus2/polish_utf8_bom.xml | 101 -
.../vendor/t/corpus2/polish_utf8_bom2.txt | 67 -
3.8.8/sources/cpan-Pod-Simple/vendor/t/encod02.t | 77 -
3.8.8/sources/cpan-Pod-Simple/vendor/t/encod03.t | 77 -
3.8.8/sources/cpan-Pod-Simple/vendor/t/fcodes_l.t | 434 -
3.8.8/sources/cpan-Pod-Simple/vendor/t/fcodes_s.t | 464 -
3.8.8/sources/cpan-Pod-Simple/vendor/t/heads.t | 92 -
3.8.8/sources/cpan-Pod-Simple/vendor/t/html01.t | 118 -
3.8.8/sources/cpan-Pod-Simple/vendor/t/html02.t | 40 -
3.8.8/sources/cpan-Pod-Simple/vendor/t/items.t | 226 -
3.8.8/sources/cpan-Pod-Simple/vendor/t/items02.t | 44 -
3.8.8/sources/cpan-Pod-Simple/vendor/t/itemstar.t | 51 -
3.8.8/sources/cpan-Pod-Simple/vendor/t/junk1.pod | 8 -
3.8.8/sources/cpan-Pod-Simple/vendor/t/junk2o.txt | 13 -
3.8.8/sources/cpan-Pod-Simple/vendor/t/linkclas.t | 71 -
3.8.8/sources/cpan-Pod-Simple/vendor/t/perlfaq.pod | 814 -
3.8.8/sources/cpan-Pod-Simple/vendor/t/puller.t | 358 -
3.8.8/sources/cpan-Pod-Simple/vendor/t/search05.t | 40 -
3.8.8/sources/cpan-Pod-Simple/vendor/t/search28.t | 85 -
3.8.8/sources/cpan-Pod-Simple/vendor/t/strpvbtm.t | 111 -
.../cpan-Pod-Simple/vendor/t/testlib1/Blorm.pm | 10 -
.../vendor/t/testlib1/Zonk/Fiddle.txt | 4 -
.../vendor/t/testlib1/hinkhonk/readme.txt | 1 -
.../vendor/t/testlib1/pod/perlflif.pod | 7 -
.../vendor/t/testlib1/pod/perlthng.pod | 7 -
.../vendor/t/testlib1/squaa/Glunk.pod | 11 -
.../vendor/t/testlib1/squaa/Vliff.pm | 14 -
.../vendor/t/testlib2/hinkhonk/Glunk.pod | 11 -
.../vendor/t/testlib2/squaa/Wowo.pod | 11 -
3.8.8/sources/cpan-Pod-Simple/vendor/t/verb_fmt.t | 308 -
3.8.8/sources/cpan-Pod-Simple/vendor/t/verbatim.t | 363 -
3.8.8/sources/cpan-Pod-Simple/vendor/t/x_nixer.t | 218 -
.../sources/cpan-Scalar-List-Utils/vendor/Changes | 390 -
.../cpan-Scalar-List-Utils/vendor/ListUtil.xs | 612 -
.../sources/cpan-Scalar-List-Utils/vendor/MANIFEST | 52 -
.../sources/cpan-Scalar-List-Utils/vendor/META.yml | 22 -
.../cpan-Scalar-List-Utils/vendor/Makefile.PL | 86 -
.../cpan-Scalar-List-Utils/vendor/lib/List/Util.pm | 233 -
.../vendor/lib/List/Util/PP.pm | 83 -
.../vendor/lib/Scalar/Util.pm | 283 -
.../vendor/lib/Scalar/Util/PP.pm | 108 -
.../cpan-Scalar-List-Utils/vendor/t/blessed.t | 54 -
.../cpan-Scalar-List-Utils/vendor/t/dualvar.t | 70 -
.../cpan-Scalar-List-Utils/vendor/t/expfail.t | 29 -
.../sources/cpan-Scalar-List-Utils/vendor/t/min.t | 70 -
.../cpan-Scalar-List-Utils/vendor/t/minstr.t | 36 -
.../cpan-Scalar-List-Utils/vendor/t/p_minstr.t | 7 -
.../cpan-Scalar-List-Utils/vendor/t/p_refaddr.t | 7 -
.../cpan-Scalar-List-Utils/vendor/t/p_reftype.t | 7 -
.../cpan-Scalar-List-Utils/vendor/t/p_shuffle.t | 7 -
.../cpan-Scalar-List-Utils/vendor/t/p_sum.t | 7 -
.../cpan-Scalar-List-Utils/vendor/t/p_tainted.t | 12 -
.../cpan-Scalar-List-Utils/vendor/t/readonly.t | 51 -
.../cpan-Scalar-List-Utils/vendor/t/reduce.t | 162 -
.../cpan-Scalar-List-Utils/vendor/t/refaddr.t | 111 -
.../cpan-Scalar-List-Utils/vendor/t/reftype.t | 61 -
.../cpan-Scalar-List-Utils/vendor/t/shuffle.t | 36 -
.../vendor/t/stack-corruption.t | 30 -
.../sources/cpan-Scalar-List-Utils/vendor/t/sum.t | 69 -
.../cpan-Scalar-List-Utils/vendor/t/tainted.t | 34 -
.../sources/cpan-Scalar-List-Utils/vendor/t/weak.t | 208 -
3.8.8/sources/cpan-Storable/vendor/META.yml | 12 -
3.8.8/sources/cpan-Storable/vendor/Makefile.PL | 39 -
3.8.8/sources/cpan-Storable/vendor/hints/linux.pl | 15 -
.../sources/cpan-Storable/vendor/t/HAS_OVERLOAD.pm | 14 -
.../sources/cpan-Storable/vendor/t/Test/Builder.pm | 1408 --
.../sources/cpan-Storable/vendor/t/Test/Simple.pm | 235 -
.../sources/cpan-Storable/vendor/t/attach_errors.t | 269 -
.../cpan-Storable/vendor/t/attach_singleton.t | 89 -
3.8.8/sources/cpan-Storable/vendor/t/blessed.t | 200 -
.../sources/cpan-Storable/vendor/t/circular_hook.t | 91 -
3.8.8/sources/cpan-Storable/vendor/t/compat01.t | 56 -
3.8.8/sources/cpan-Storable/vendor/t/compat06.t | 151 -
3.8.8/sources/cpan-Storable/vendor/t/croak.t | 42 -
3.8.8/sources/cpan-Storable/vendor/t/downgrade.t | 511 -
3.8.8/sources/cpan-Storable/vendor/t/integer.t | 182 -
3.8.8/sources/cpan-Storable/vendor/t/interwork56.t | 200 -
.../cpan-Storable/vendor/t/just_plain_nasty.t | 151 -
.../cpan-Storable/vendor/t/make_downgrade.pl | 106 -
.../cpan-Storable/vendor/t/make_overload.pl | 13 -
3.8.8/sources/cpan-Storable/vendor/t/restrict.t | 130 -
3.8.8/sources/cpan-Storable/vendor/t/sig_die.t | 44 -
3.8.8/sources/cpan-Storable/vendor/t/utf8.t | 63 -
3.8.8/sources/cpan-Sys-Syslog/vendor/Makefile.PL | 196 -
3.8.8/sources/cpan-Sys-Syslog/vendor/Syslog.pm | 1600 --
3.8.8/sources/cpan-Sys-Syslog/vendor/Syslog.xs | 171 -
3.8.8/sources/cpan-Sys-Syslog/vendor/const-c.inc | 77 -
3.8.8/sources/cpan-Sys-Syslog/vendor/const-xs.inc | 451 -
.../cpan-Sys-Syslog/vendor/fallback/const-xs.inc | 87 -
.../cpan-Sys-Syslog/vendor/fallback/syslog.h | 111 -
3.8.8/sources/cpan-Sys-Syslog/vendor/macros.all | 44 -
3.8.8/sources/cpan-Sys-Syslog/vendor/ppport.h | 5155 ------
3.8.8/sources/cpan-Sys-Syslog/vendor/t/00-load.t | 8 -
3.8.8/sources/cpan-Sys-Syslog/vendor/t/constants.t | 42 -
.../cpan-Sys-Syslog/vendor/t/data-validation.t | 114 -
3.8.8/sources/cpan-Sys-Syslog/vendor/t/distchk.t | 6 -
3.8.8/sources/cpan-Sys-Syslog/vendor/t/podcover.t | 10 -
.../cpan-Sys-Syslog/vendor/win32/compile.pl | 277 -
3.8.8/sources/cpan-Task-Weaken/vendor/Changes | 18 -
.../vendor/inc/Module/Install/Makefile.pm | 268 -
.../vendor/inc/Module/Install/Metadata.pm | 624 -
.../vendor/inc/Module/Install/Win32.pm | 64 -
.../vendor/inc/Module/Install/WriteAll.pm | 60 -
.../sources/cpan-Task-Weaken/vendor/t/01_compile.t | 17 -
.../sources/cpan-Task-Weaken/vendor/t/02_weaken.t | 100 -
.../cpan-Template-Toolkit/vendor/.defaults.cfg | 5 -
3.8.8/sources/cpan-Template-Toolkit/vendor/INSTALL | 233 -
.../sources/cpan-Template-Toolkit/vendor/MANIFEST | 239 -
.../sources/cpan-Template-Toolkit/vendor/META.yml | 23 -
3.8.8/sources/cpan-Template-Toolkit/vendor/TODO | 289 -
.../vendor/images/tt2power.gif | Bin 1195 -> 0 bytes
.../cpan-Template-Toolkit/vendor/lib/Template.pm | 916 -
.../vendor/lib/Template/Base.pm | 283 -
.../vendor/lib/Template/Constants.pm | 265 -
.../vendor/lib/Template/Document.pm | 490 -
.../vendor/lib/Template/Exception.pm | 229 -
.../vendor/lib/Template/Iterator.pm | 493 -
.../vendor/lib/Template/Manual.pod | 91 -
.../vendor/lib/Template/Manual/Config.pod | 1874 ---
.../vendor/lib/Template/Manual/Credits.pod | 104 -
.../vendor/lib/Template/Manual/Directives.pod | 1970 ---
.../vendor/lib/Template/Manual/Internals.pod | 505 -
.../vendor/lib/Template/Manual/Plugins.pod | 328 -
.../vendor/lib/Template/Manual/Syntax.pod | 260 -
.../vendor/lib/Template/Manual/Views.pod | 586 -
.../vendor/lib/Template/Modules.pod | 176 -
.../vendor/lib/Template/Namespace/Constants.pm | 176 -
.../vendor/lib/Template/Plugin/Datafile.pm | 166 -
.../vendor/lib/Template/Plugin/Date.pm | 355 -
.../vendor/lib/Template/Plugin/Filter.pm | 411 -
.../vendor/lib/Template/Plugin/Format.pm | 93 -
.../vendor/lib/Template/Plugin/HTML.pm | 163 -
.../vendor/lib/Template/Plugin/Image.pm | 436 -
.../vendor/lib/Template/Plugin/Iterator.pm | 88 -
.../vendor/lib/Template/Plugin/Procedural.pm | 133 -
.../vendor/lib/Template/Plugin/Scalar.pm | 163 -
.../vendor/lib/Template/Plugin/String.pm | 761 -
.../vendor/lib/Template/Plugin/View.pm | 97 -
.../vendor/lib/Template/Plugin/Wrap.pm | 142 -
.../vendor/lib/Template/Test.pm | 709 -
.../vendor/lib/Template/Toolkit.pod | 140 -
.../vendor/lib/Template/Tools.pod | 65 -
.../vendor/lib/Template/Tutorial/Datafile.pod | 437 -
.../vendor/lib/Template/Tutorial/Web.pod | 749 -
.../vendor/parser/Grammar.pm.skel | 209 -
.../cpan-Template-Toolkit/vendor/parser/README | 87 -
.../sources/cpan-Template-Toolkit/vendor/parser/yc | 27 -
.../cpan-Template-Toolkit/vendor/t/blocks.t | 104 -
.../cpan-Template-Toolkit/vendor/t/capture.t | 94 -
3.8.8/sources/cpan-Template-Toolkit/vendor/t/cgi.t | 101 -
.../cpan-Template-Toolkit/vendor/t/compile3.t | 131 -
.../cpan-Template-Toolkit/vendor/t/compile4.t | 95 -
.../cpan-Template-Toolkit/vendor/t/config.t | 244 -
.../cpan-Template-Toolkit/vendor/t/constants.t | 221 -
.../sources/cpan-Template-Toolkit/vendor/t/date.t | 263 -
.../sources/cpan-Template-Toolkit/vendor/t/debug.t | 176 -
.../cpan-Template-Toolkit/vendor/t/directive.t | 378 -
.../cpan-Template-Toolkit/vendor/t/directry.t | 275 -
.../cpan-Template-Toolkit/vendor/t/document.t | 157 -
.../cpan-Template-Toolkit/vendor/t/evalperl.t | 192 -
.../cpan-Template-Toolkit/vendor/t/factory.t | 73 -
.../sources/cpan-Template-Toolkit/vendor/t/file.t | 180 -
.../cpan-Template-Toolkit/vendor/t/fileline.t | 126 -
.../cpan-Template-Toolkit/vendor/t/iterator.t | 182 -
.../vendor/t/lib/Template/Plugin/ProcFoo.pm | 8 -
.../sources/cpan-Template-Toolkit/vendor/t/list.t | 202 -
.../cpan-Template-Toolkit/vendor/t/object.t | 371 -
.../cpan-Template-Toolkit/vendor/t/plusfile.t | 104 -
3.8.8/sources/cpan-Template-Toolkit/vendor/t/pod.t | 108 -
.../cpan-Template-Toolkit/vendor/t/prefix.t | 73 -
.../sources/cpan-Template-Toolkit/vendor/t/proc.t | 44 -
.../cpan-Template-Toolkit/vendor/t/process.t | 88 -
.../cpan-Template-Toolkit/vendor/t/scalar.t | 113 -
.../cpan-Template-Toolkit/vendor/t/stash-xs.t | 405 -
.../cpan-Template-Toolkit/vendor/t/strict.t | 68 -
.../cpan-Template-Toolkit/vendor/t/string.t | 407 -
.../cpan-Template-Toolkit/vendor/t/switch.t | 296 -
.../sources/cpan-Template-Toolkit/vendor/t/table.t | 155 -
.../sources/cpan-Template-Toolkit/vendor/t/tags.t | 233 -
.../cpan-Template-Toolkit/vendor/t/test/dir/file2 | 1 -
.../vendor/t/test/dir/sub_one/foo | 1 -
.../vendor/t/test/dir/sub_two/waz.html | 1 -
.../vendor/t/test/dir/xyzfile | 1 -
.../vendor/t/test/lib/badrawperl | 5 -
.../cpan-Template-Toolkit/vendor/t/test/lib/barfed | 1 -
.../vendor/t/test/lib/blockdef | 9 -
.../vendor/t/test/lib/content | 3 -
.../vendor/t/test/lib/default | 1 -
.../vendor/t/test/lib/dos_newlines | 2 -
.../cpan-Template-Toolkit/vendor/t/test/lib/inner | 4 -
.../vendor/t/test/lib/one/foo | 1 -
.../vendor/t/test/lib/simple2 | 2 -
.../vendor/t/test/lib/two/bar | 1 -
.../vendor/t/test/lib/two/foo | 1 -
.../vendor/t/test/plugin/MyPlugs/Bar.pm | 18 -
.../vendor/t/test/plugin/MyPlugs/Foo.pm | 18 -
.../vendor/t/test/pod/test1.pod | 25 -
.../vendor/t/test/src/bar/baz | 3 -
.../cpan-Template-Toolkit/vendor/t/test/src/baz | 2 -
.../vendor/t/test/src/benchmark | 21 -
.../vendor/t/test/src/complex | 18 -
.../vendor/t/test/src/divisionbyzero | 1 -
.../cpan-Template-Toolkit/vendor/t/test/src/foo | 1 -
.../cpan-Template-Toolkit/vendor/t/test/src/foobar | 1 -
.../cpan-Template-Toolkit/vendor/t/test/tmp/README | 1 -
.../sources/cpan-Template-Toolkit/vendor/t/text.t | 185 -
.../sources/cpan-Template-Toolkit/vendor/t/throw.t | 101 -
.../cpan-Template-Toolkit/vendor/t/tiedhash.t | 271 -
.../cpan-Template-Toolkit/vendor/t/vmethods/hash.t | 148 -
.../cpan-Template-Toolkit/vendor/t/vmethods/list.t | 492 -
.../vendor/t/vmethods/replace.t | 203 -
.../cpan-Template-Toolkit/vendor/t/vmethods/text.t | 358 -
.../sources/cpan-Template-Toolkit/vendor/t/while.t | 207 -
.../cpan-Template-Toolkit/vendor/t/wrapper.t | 204 -
.../cpan-Template-Toolkit/vendor/xs/Makefile.PL | 15 -
.../cpan-Template-Toolkit/vendor/xs/Makefile.old | 741 -
.../sources/cpan-Template-Toolkit/vendor/xs/README | 68 -
3.8.8/sources/cpan-Test-Harness/vendor/Build.PL | 38 -
.../cpan-Test-Harness/vendor/examples/README | 54 -
.../vendor/examples/analyze_tests.pl | 86 -
.../vendor/examples/bin/forked_tests.pl | 72 -
.../vendor/examples/bin/test_html.pl | 14 -
.../examples/harness-hook/lib/Harness/Hook.pm | 30 -
.../cpan-Test-Harness/vendor/examples/my_exec | 22 -
.../cpan-Test-Harness/vendor/examples/t/10-stuff.t | 17 -
.../cpan-Test-Harness/vendor/examples/t/ruby.t | 3 -
.../vendor/examples/test_urls.txt | 2 -
.../cpan-Test-Harness/vendor/inc/MyBuilder.pm | 149 -
.../vendor/lib/App/Prove/State.pm | 517 -
.../vendor/lib/App/Prove/State/Result.pm | 233 -
.../vendor/lib/TAP/Formatter/Console.pm | 91 -
.../lib/TAP/Formatter/Console/ParallelSession.pm | 202 -
.../cpan-Test-Harness/vendor/lib/TAP/Parser.pm | 1894 ---
.../vendor/lib/TAP/Parser/Iterator.pm | 165 -
.../vendor/lib/TAP/Parser/Iterator/Array.pm | 102 -
.../vendor/lib/TAP/Parser/Iterator/Process.pm | 381 -
.../vendor/lib/TAP/Parser/Iterator/Stream.pm | 108 -
.../vendor/lib/TAP/Parser/Result.pm | 300 -
.../vendor/lib/TAP/Parser/Result/Bailout.pm | 63 -
.../vendor/lib/TAP/Parser/Result/Comment.pm | 61 -
.../vendor/lib/TAP/Parser/Result/Plan.pm | 120 -
.../vendor/lib/TAP/Parser/Result/Pragma.pm | 63 -
.../vendor/lib/TAP/Parser/Result/Test.pm | 274 -
.../vendor/lib/TAP/Parser/Result/YAML.pm | 62 -
.../vendor/lib/TAP/Parser/Source.pm | 385 -
.../vendor/lib/TAP/Parser/SourceHandler.pm | 194 -
.../vendor/lib/TAP/Parser/SourceHandler/Perl.pm | 310 -
.../vendor/lib/TAP/Parser/SourceHandler/RawTAP.pm | 131 -
.../vendor/lib/TAP/Parser/SourceHandler/pgTAP.pm | 253 -
.../vendor/lib/TAP/Parser/Utils.pm | 72 -
.../cpan-Test-Harness/vendor/lib/Test/Harness.pm | 591 -
.../sources/cpan-Test-Harness/vendor/perlcriticrc | 28 -
.../sources/cpan-Test-Harness/vendor/t/callbacks.t | 115 -
.../cpan-Test-Harness/vendor/t/compat/env.t | 39 -
.../cpan-Test-Harness/vendor/t/compat/version.t | 11 -
.../cpan-Test-Harness/vendor/t/data/sample.yml | 29 -
3.8.8/sources/cpan-Test-Harness/vendor/t/file.t | 483 -
.../cpan-Test-Harness/vendor/t/glob-to-regexp.t | 44 -
.../cpan-Test-Harness/vendor/t/harness-subclass.t | 75 -
3.8.8/sources/cpan-Test-Harness/vendor/t/harness.t | 1063 --
.../cpan-Test-Harness/vendor/t/iterator_factory.t | 162 -
.../sources/cpan-Test-Harness/vendor/t/iterators.t | 238 -
.../vendor/t/lib/App/Prove/Plugin/Dummy.pm | 9 -
.../cpan-Test-Harness/vendor/t/lib/Dev/Null.pm | 18 -
.../cpan-Test-Harness/vendor/t/lib/EmptyParser.pm | 26 -
.../vendor/t/lib/MyFileSourceHandler.pm | 35 -
.../cpan-Test-Harness/vendor/t/lib/MyGrammar.pm | 21 -
.../cpan-Test-Harness/vendor/t/lib/MyResult.pm | 21 -
.../vendor/t/lib/MyResultFactory.pm | 23 -
.../cpan-Test-Harness/vendor/t/lib/MyShebangger.pm | 94 -
.../cpan-Test-Harness/vendor/t/lib/Test/Builder.pm | 1850 --
3.8.8/sources/cpan-Test-Harness/vendor/t/lib/if.pm | 57 -
.../cpan-Test-Harness/vendor/t/nofork-mux.t | 17 -
3.8.8/sources/cpan-Test-Harness/vendor/t/nofork.t | 68 -
3.8.8/sources/cpan-Test-Harness/vendor/t/parse.t | 1075 --
3.8.8/sources/cpan-Test-Harness/vendor/t/process.t | 57 -
.../sources/cpan-Test-Harness/vendor/t/proveenv.t | 17 -
3.8.8/sources/cpan-Test-Harness/vendor/t/proverc.t | 37 -
.../cpan-Test-Harness/vendor/t/proverc/emptyexec | 2 -
.../cpan-Test-Harness/vendor/t/regression.t | 3274 ----
3.8.8/sources/cpan-Test-Harness/vendor/t/results.t | 295 -
.../cpan-Test-Harness/vendor/t/sample-tests/bignum | 7 -
.../vendor/t/sample-tests/bignum_many | 14 -
.../vendor/t/sample-tests/descriptive | 8 -
.../vendor/t/sample-tests/die_head_end | 9 -
.../vendor/t/sample-tests/die_last_minute | 10 -
.../vendor/t/sample-tests/escape_hash | 6 -
.../vendor/t/sample-tests/inc_taint | 6 -
.../vendor/t/sample-tests/junk_before_plan | 6 -
.../vendor/t/sample-tests/lone_not_bug | 9 -
.../vendor/t/sample-tests/no_output | 3 -
.../vendor/t/sample-tests/out_of_order | 22 -
.../vendor/t/sample-tests/schwern | 3 -
.../vendor/t/sample-tests/shbang_misparse | 12 -
.../vendor/t/sample-tests/simple_yaml | 27 -
.../vendor/t/sample-tests/skipall_v13 | 4 -
.../cpan-Test-Harness/vendor/t/sample-tests/todo | 8 -
.../vendor/t/sample-tests/todo_inline | 6 -
.../vendor/t/sample-tests/todo_misparse | 5 -
.../vendor/t/sample-tests/too_many | 14 -
.../vendor/t/sample-tests/version_late | 9 -
.../vendor/t/sample-tests/version_old | 9 -
.../vendor/t/sample-tests/with_comments | 14 -
.../cpan-Test-Harness/vendor/t/source_handler.t | 492 -
.../cpan-Test-Harness/vendor/t/source_tests/source | 15 -
.../vendor/t/source_tests/source.pl | 6 -
.../vendor/t/source_tests/source.tap | 2 -
3.8.8/sources/cpan-Test-Harness/vendor/t/spool.t | 146 -
3.8.8/sources/cpan-Test-Harness/vendor/t/streams.t | 173 -
.../sources/cpan-Test-Harness/vendor/t/testargs.t | 142 -
3.8.8/sources/cpan-Test-Harness/vendor/t/unicode.t | 125 -
.../cpan-Test-Harness/vendor/t/yamlish-output.t | 100 -
3.8.8/sources/cpan-Test-Harness/vendor/t/yamlish.t | 529 -
.../cpan-Test-Harness/vendor/xt/author/stdin.t | 8 -
.../vendor/xt/perls/harness_perl.t | 73 -
.../vendor/xt/perls/sample-tests/perl_version | 5 -
.../cpan-Test-Object/vendor/inc/Module/Install.pm | 281 -
.../vendor/inc/Module/Install/Base.pm | 70 -
.../vendor/inc/Module/Install/Makefile.pm | 208 -
.../vendor/inc/Module/Install/Metadata.pm | 315 -
.../cpan-Test-Object/vendor/lib/Test/Object.pm | 171 -
.../sources/cpan-Test-Simple/vendor/.perlcriticrc | 75 -
3.8.8/sources/cpan-Test-Simple/vendor/.perltidyrc | 17 -
3.8.8/sources/cpan-Test-Simple/vendor/MANIFEST | 142 -
.../sources/cpan-Test-Simple/vendor/MANIFEST.SKIP | 51 -
3.8.8/sources/cpan-Test-Simple/vendor/SIGNATURE | 164 -
.../cpan-Test-Simple/vendor/lib/Test/Builder.pm | 2501 ---
.../vendor/lib/Test/Builder/Tester/Color.pm | 51 -
.../cpan-Test-Simple/vendor/lib/Test/More.pm | 1776 --
.../cpan-Test-Simple/vendor/lib/Test/Simple.pm | 214 -
.../cpan-Test-Simple/vendor/lib/Test/Tutorial.pod | 604 -
.../cpan-Test-Simple/vendor/t/BEGIN_require_ok.t | 27 -
.../cpan-Test-Simple/vendor/t/BEGIN_use_ok.t | 26 -
.../cpan-Test-Simple/vendor/t/Builder/carp.t | 32 -
.../vendor/t/Builder/current_test.t | 11 -
.../vendor/t/Builder/done_testing.t | 12 -
.../vendor/t/Builder/done_testing_double.t | 47 -
.../vendor/t/Builder/done_testing_plan_mismatch.t | 45 -
.../vendor/t/Builder/fork_with_new_stdout.t | 54 -
.../cpan-Test-Simple/vendor/t/Builder/no_diag.t | 8 -
.../vendor/t/Builder/no_plan_at_all.t | 36 -
.../cpan-Test-Simple/vendor/t/Builder/try.t | 42 -
3.8.8/sources/cpan-Test-Simple/vendor/t/More.t | 179 -
.../cpan-Test-Simple/vendor/t/Tester/tbt_01basic.t | 55 -
.../cpan-Test-Simple/vendor/t/Tester/tbt_03die.t | 12 -
.../vendor/t/Tester/tbt_04line_num.t | 8 -
.../vendor/t/Tester/tbt_05faildiag.t | 44 -
.../cpan-Test-Simple/vendor/t/Tester/tbt_07args.t | 215 -
3.8.8/sources/cpan-Test-Simple/vendor/t/bad_plan.t | 23 -
3.8.8/sources/cpan-Test-Simple/vendor/t/c_flag.t | 21 -
3.8.8/sources/cpan-Test-Simple/vendor/t/diag.t | 81 -
3.8.8/sources/cpan-Test-Simple/vendor/t/died.t | 45 -
3.8.8/sources/cpan-Test-Simple/vendor/t/extra.t | 59 -
3.8.8/sources/cpan-Test-Simple/vendor/t/import.t | 12 -
.../cpan-Test-Simple/vendor/t/is_deeply_dne_bug.t | 47 -
.../vendor/t/is_deeply_with_threads.t | 65 -
.../cpan-Test-Simple/vendor/t/lib/Dev/Null.pm | 8 -
.../cpan-Test-Simple/vendor/t/lib/NoExporter.pm | 12 -
.../cpan-Test-Simple/vendor/t/lib/SigDie.pm | 8 -
.../vendor/t/lib/Test/Builder/NoOutput.pm | 122 -
.../lib/Test/Simple/sample_tests/death_in_eval.plx | 22 -
.../vendor/t/lib/Test/Simple/sample_tests/exit.plx | 3 -
.../t/lib/Test/Simple/sample_tests/extras.plx | 16 -
.../Test/Simple/sample_tests/last_minute_death.plx | 19 -
.../t/lib/Test/Simple/sample_tests/two_fail.plx | 14 -
3.8.8/sources/cpan-Test-Simple/vendor/t/missing.t | 56 -
3.8.8/sources/cpan-Test-Simple/vendor/t/new_ok.t | 42 -
3.8.8/sources/cpan-Test-Simple/vendor/t/no_plan.t | 33 -
3.8.8/sources/cpan-Test-Simple/vendor/t/no_tests.t | 44 -
3.8.8/sources/cpan-Test-Simple/vendor/t/overload.t | 86 -
.../cpan-Test-Simple/vendor/t/overload_threads.t | 60 -
.../cpan-Test-Simple/vendor/t/plan_no_plan.t | 40 -
.../vendor/t/plan_shouldnt_import.t | 16 -
.../cpan-Test-Simple/vendor/t/plan_skip_all.t | 12 -
.../cpan-Test-Simple/vendor/t/pod-coverage.t | 27 -
3.8.8/sources/cpan-Test-Simple/vendor/t/pod.t | 6 -
.../cpan-Test-Simple/vendor/t/subtest/args.t | 14 -
.../cpan-Test-Simple/vendor/t/subtest/basic.t | 235 -
.../cpan-Test-Simple/vendor/t/subtest/die.t | 30 -
.../sources/cpan-Test-Simple/vendor/t/subtest/do.t | 17 -
.../cpan-Test-Simple/vendor/t/thread_taint.t | 5 -
3.8.8/sources/cpan-Test-Simple/vendor/t/todo.t | 157 -
3.8.8/sources/cpan-Test-Simple/vendor/t/undef.t | 98 -
3.8.8/sources/cpan-Test-Simple/vendor/t/versions.t | 28 -
3.8.8/sources/cpan-Test-SubCalls/vendor/Changes | 37 -
3.8.8/sources/cpan-Test-SubCalls/vendor/MANIFEST | 21 -
3.8.8/sources/cpan-Test-SubCalls/vendor/META.yml | 31 -
.../vendor/inc/Module/Install/Can.pm | 81 -
.../vendor/inc/Module/Install/DSL.pm | 95 -
.../vendor/inc/Module/Install/Fetch.pm | 93 -
.../cpan-Test-SubCalls/vendor/lib/Test/SubCalls.pm | 217 -
.../cpan-Test-SubCalls/vendor/t/01_compile.t | 20 -
.../sources/cpan-Test-SubCalls/vendor/t/97_meta.t | 27 -
3.8.8/sources/cpan-Test-SubCalls/vendor/t/98_pod.t | 32 -
3.8.8/sources/cpan-Test/vendor/MANIFEST | 17 -
3.8.8/sources/cpan-Test/vendor/MANIFEST.SKIP | 7 -
3.8.8/sources/cpan-Test/vendor/META.yml | 12 -
3.8.8/sources/cpan-Test/vendor/Makefile.PL | 41 -
3.8.8/sources/cpan-Test/vendor/README | 8 -
3.8.8/sources/cpan-Test/vendor/t/fail.t | 104 -
3.8.8/sources/cpan-Test/vendor/t/mix.t | 58 -
3.8.8/sources/cpan-Test/vendor/t/onfail.t | 33 -
3.8.8/sources/cpan-Test/vendor/t/qr.t | 13 -
3.8.8/sources/cpan-Text-ParseWords/vendor/META.yml | 21 -
.../cpan-Text-ParseWords/vendor/Makefile.PL | 17 -
3.8.8/sources/cpan-Text-ParseWords/vendor/README | 43 -
.../cpan-Text-ParseWords/vendor/t/ParseWords.t | 129 -
3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/README | 17 -
.../cpan-Text-Tabs+Wrap/vendor/lib/Text/Wrap.pm | 265 -
3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/39548.t | 11 -
.../cpan-Text-Tabs+Wrap/vendor/t/Jacobson.t | 24 -
.../cpan-Text-Tabs+Wrap/vendor/t/Jacobson2.t | 22 -
.../sources/cpan-Text-Tabs+Wrap/vendor/t/Jochen.t | 11 -
.../cpan-Text-Tabs+Wrap/vendor/t/belg4mit.t | 18 -
3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/dandv.t | 8 -
3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/fill.t | 105 -
3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/tabs.t | 136 -
3.8.8/sources/cpan-Time-HiRes/vendor/HiRes.pm | 591 -
3.8.8/sources/cpan-Time-HiRes/vendor/HiRes.xs | 1261 --
3.8.8/sources/cpan-Time-HiRes/vendor/META.yml | 21 -
3.8.8/sources/cpan-Time-HiRes/vendor/TODO | 7 -
3.8.8/sources/cpan-Time-HiRes/vendor/const-xs.inc | 90 -
.../cpan-Time-HiRes/vendor/hints/dynixptx.pl | 5 -
3.8.8/sources/cpan-Time-HiRes/vendor/hints/sco.pl | 4 -
.../cpan-Time-HiRes/vendor/hints/solaris.pl | 10 -
3.8.8/sources/cpan-Time-HiRes/vendor/hints/svr4.pl | 4 -
3.8.8/sources/cpan-Time-HiRes/vendor/ppport.h | 6376 -------
3.8.8/sources/cpan-Time-HiRes/vendor/t/HiRes.t | 828 -
3.8.8/sources/cpan-Time-Local/vendor/Changes | 231 -
3.8.8/sources/cpan-Time-Local/vendor/MANIFEST | 11 -
3.8.8/sources/cpan-Time-Local/vendor/t/Local.t | 283 -
3.8.8/sources/cpan-Time-Local/vendor/t/pod.t | 13 -
3.8.8/sources/cpan-Time-Piece/vendor/MANIFEST.SKIP | 13 -
3.8.8/sources/cpan-Time-Piece/vendor/META.yml | 13 -
.../sources/cpan-Time-Piece/vendor/t/05overload.t | 9 -
.../sources/cpan-Time-Piece/vendor/t/06subclass.t | 66 -
3.8.8/sources/cpan-Time-Piece/vendor/t/07arith.t | 47 -
3.8.8/sources/cpan-XSLoader/vendor/META.yml | 14 -
3.8.8/sources/cpan-XSLoader/vendor/eg/net-pcap.pl | 22 -
3.8.8/sources/cpan-XSLoader/vendor/eg/posix.pl | 16 -
3.8.8/sources/cpan-XSLoader/vendor/t/podcover.t | 9 -
3.8.8/sources/cpan-YAML/vendor/LICENSE | 378 -
3.8.8/sources/cpan-YAML/vendor/MANIFEST | 76 -
.../sources/cpan-YAML/vendor/inc/Module/Install.pm | 430 -
.../cpan-YAML/vendor/inc/Module/Install/Include.pm | 34 -
.../vendor/inc/Module/Install/Makefile.pm | 268 -
.../vendor/inc/Module/Install/Metadata.pm | 624 -
.../vendor/inc/Module/Install/TestBase.pm | 29 -
.../cpan-YAML/vendor/inc/Module/Install/Win32.pm | 64 -
3.8.8/sources/cpan-YAML/vendor/inc/Test/Base.pm | 684 -
.../cpan-YAML/vendor/inc/Test/Base/Filter.pm | 344 -
3.8.8/sources/cpan-YAML/vendor/lib/YAML.pm | 817 -
3.8.8/sources/cpan-YAML/vendor/lib/YAML/Any.pm | 202 -
.../cpan-YAML/vendor/lib/YAML/Dumper/Base.pm | 142 -
3.8.8/sources/cpan-YAML/vendor/lib/YAML/Error.pm | 226 -
3.8.8/sources/cpan-YAML/vendor/lib/YAML/Loader.pm | 790 -
3.8.8/sources/cpan-YAML/vendor/t/98_pod.t | 32 -
3.8.8/sources/cpan-YAML/vendor/t/TestYAML.pm | 6 -
3.8.8/sources/cpan-YAML/vendor/t/basic-tests.t | 75 -
3.8.8/sources/cpan-YAML/vendor/t/bugs-emailed.t | 184 -
3.8.8/sources/cpan-YAML/vendor/t/changes.t | 7 -
3.8.8/sources/cpan-YAML/vendor/t/dump-basics.t | 68 -
3.8.8/sources/cpan-YAML/vendor/t/dump-file-utf8.t | 38 -
3.8.8/sources/cpan-YAML/vendor/t/dump-file.t | 31 -
3.8.8/sources/cpan-YAML/vendor/t/dump-nested.t | 108 -
3.8.8/sources/cpan-YAML/vendor/t/dump-stringify.t | 49 -
3.8.8/sources/cpan-YAML/vendor/t/dump-tests.t | 410 -
3.8.8/sources/cpan-YAML/vendor/t/dump-works.t | 15 -
3.8.8/sources/cpan-YAML/vendor/t/errors.t | 386 -
3.8.8/sources/cpan-YAML/vendor/t/inbox.t | 20 -
3.8.8/sources/cpan-YAML/vendor/t/load-fails.t | 52 -
3.8.8/sources/cpan-YAML/vendor/t/node-info.t | 164 -
3.8.8/sources/cpan-YAML/vendor/t/pugs-objects.t | 18 -
3.8.8/sources/cpan-YAML/vendor/t/svk-config.yaml | 320 -
3.8.8/sources/cpan-base/vendor/lib/base.pm | 265 -
3.8.8/sources/cpan-base/vendor/t/base.t | 90 -
3.8.8/sources/cpan-base/vendor/t/compile-time.t | 42 -
3.8.8/sources/cpan-base/vendor/t/fields-5.8.0.t | 254 -
3.8.8/sources/cpan-base/vendor/t/fields-base.t | 292 -
3.8.8/sources/cpan-base/vendor/t/warnings.t | 32 -
3.8.8/sources/cpan-capitalization/vendor/Changes | 12 -
3.8.8/sources/cpan-capitalization/vendor/MANIFEST | 8 -
.../cpan-capitalization/vendor/t/00_compile.t | 5 -
.../vendor/t/lib/Module/LikeJava.pm | 16 -
3.8.8/sources/cpan-constant/vendor/eg/synopsis.pl | 28 -
3.8.8/sources/cpan-constant/vendor/lib/constant.pm | 392 -
3.8.8/sources/cpan-constant/vendor/t/00-load.t | 9 -
3.8.8/sources/cpan-constant/vendor/t/constant.t | 379 -
3.8.8/sources/cpan-constant/vendor/t/more-tests.t | 62 -
.../sources/cpan-constant/vendor/t/pod-coverage.t | 6 -
3.8.8/sources/cpan-libnet/vendor/META.yml | 12 -
3.8.8/sources/cpan-libnet/vendor/Makefile.PL | 111 -
3.8.8/sources/cpan-libnet/vendor/Net/FTP/E.pm | 8 -
3.8.8/sources/cpan-libnet/vendor/Net/FTP/I.pm | 80 -
3.8.8/sources/cpan-libnet/vendor/Net/FTP/L.pm | 8 -
.../sources/cpan-libnet/vendor/Net/FTP/dataconn.pm | 124 -
3.8.8/sources/cpan-libnet/vendor/Net/Time.pm | 151 -
3.8.8/sources/cpan-libnet/vendor/SIGNATURE | 63 -
3.8.8/sources/cpan-libnet/vendor/demos/inetd | 9 -
3.8.8/sources/cpan-libnet/vendor/demos/time | 13 -
3.8.8/sources/cpan-libnet/vendor/install-nomake | 37 -
3.8.8/sources/cpan-libnet/vendor/t/nntp.t | 59 -
3.8.8/sources/cpan-libnet/vendor/t/smtp.t | 38 -
3.8.8/sources/cpan-podlators/vendor/TODO | 88 -
3.8.8/sources/cpan-podlators/vendor/VERSION | 1 -
.../cpan-podlators/vendor/lib/Pod/ParseLink.pm | 192 -
.../vendor/lib/Pod/Text/Overstrike.pm | 208 -
.../cpan-podlators/vendor/lib/Pod/Text/Termcap.pm | 195 -
.../cpan-podlators/vendor/scripts/pod2man.PL | 589 -
.../cpan-podlators/vendor/scripts/pod2text.PL | 312 -
3.8.8/sources/cpan-podlators/vendor/t/basic.ovr | 269 -
3.8.8/sources/cpan-podlators/vendor/t/basic.pod | 383 -
3.8.8/sources/cpan-podlators/vendor/t/basic.txt | 269 -
.../sources/cpan-podlators/vendor/t/devise-date.t | 15 -
3.8.8/sources/cpan-podlators/vendor/t/filehandle.t | 110 -
3.8.8/sources/cpan-podlators/vendor/t/parselink.t | 120 -
3.8.8/sources/cpan-podlators/vendor/t/pod-parser.t | 78 -
.../sources/cpan-podlators/vendor/t/pod-spelling.t | 75 -
3.8.8/sources/cpan-podlators/vendor/t/text-utf8.t | 122 -
.../cpan-version/vendor/lib/version/Internals.pod | 698 -
.../cpan-version/vendor/lib/version/typemap | 29 -
3.8.8/sources/cpan-version/vendor/t/01base.t | 35 -
3.8.8/sources/cpan-version/vendor/t/02derived.t | 82 -
.../cpan-version/vendor/vutil/lib/version/vxs.pm | 27 -
3.8.8/sources/cpan-version/vendor/vutil/ppport.h | 7063 --------
3.8.8/sources/cpan-version/vendor/vutil/vutil.h | 154 -
3.8.8/sources/cpan-version/vendor/vutil/vxs.xs | 289 -
1097 files changed, 0 insertions(+), 270718 deletions(-)
delete mode 100644 3.8.8/sources/cpan-Compress-Raw-Bzip2/vendor/bzip2-src/bzlib_private.h
delete mode 100644 3.8.8/sources/cpan-Compress-Raw-Bzip2/vendor/bzip2-src/compress.c
delete mode 100644 3.8.8/sources/cpan-Compress-Raw-Zlib/vendor/t/09limitoutput.t
delete mode 100644 3.8.8/sources/cpan-Compress-Raw-Zlib/vendor/zlib-src/adler32.c
delete mode 100644 3.8.8/sources/cpan-Compress-Raw-Zlib/vendor/zlib-src/inflate.c
delete mode 100644 3.8.8/sources/cpan-Compress-Raw-Zlib/vendor/zlib-src/zutil.c
delete mode 100644 3.8.8/sources/cpan-DBIx-DBSchema/vendor/DBSchema/DBD/Oracle.pm
delete mode 100644 3.8.8/sources/cpan-DBIx-DBSchema/vendor/DBSchema/DBD/Pg.pm
delete mode 100644 3.8.8/sources/cpan-DBIx-DBSchema/vendor/DBSchema/Table.pm
delete mode 100644 3.8.8/sources/cpan-DBIx-DBSchema/vendor/DBSchema/_util.pm
delete mode 100644 3.8.8/sources/cpan-DBIx-DBSchema/vendor/META.yml
delete mode 100644 3.8.8/sources/cpan-DBIx-DBSchema/vendor/t/load-oracle.t
delete mode 100644 3.8.8/sources/cpan-DBIx-DBSchema/vendor/t/load-pg.t
delete mode 100644 3.8.8/sources/cpan-DBIx-DBSchema/vendor/t/load-sqlite.t
delete mode 100644 3.8.8/sources/cpan-DBIx-DBSchema/vendor/t/load-sybase.t
delete mode 100644 3.8.8/sources/cpan-DBIx-DBSchema/vendor/t/load.t
delete mode 100644 3.8.8/sources/cpan-Data-Dumper/vendor/Todo
delete mode 100644 3.8.8/sources/cpan-Data-Dumper/vendor/ppport.h
delete mode 100755 3.8.8/sources/cpan-Data-Dumper/vendor/t/dumper.t
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/PPPort.pm
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/PPPort_pm.PL
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/PPPort_xs.PL
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/TODO
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/apicheck_c.PL
delete mode 100755 3.8.8/sources/cpan-Devel-PPPort/vendor/devel/mkapidoc.sh
delete mode 100755 3.8.8/sources/cpan-Devel-PPPort/vendor/devel/regenerate
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/module2.c
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/module3.c
delete mode 100755 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/apicheck.pl
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5004000
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5004010
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5005040
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5006000
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5006002
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5007000
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5007003
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5008002
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5008004
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5009000
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5009001
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5009003
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5010000
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5011000
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/MY_CXT
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/SvPV
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/call
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/exception
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/format
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/limits
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/mPUSH
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/memory
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/newSV_type
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/pv_tools
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/pvs
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/sprintf
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/version
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/warn
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/ppptools.pl
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5004000
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5004010
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5004030
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5004040
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5004050
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5005010
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5005020
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5005040
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5006001
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5007002
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5008002
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5009000
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5009004
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5010000
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/t/HvNAME.t
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/t/MY_CXT.t
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/t/SvREFCNT.t
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/t/Sv_set.t
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/t/cop.t
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/t/exception.t
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/t/limits.t
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/t/magic.t
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/t/memory.t
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/t/newSVpv.t
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/t/snprintf.t
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/t/sprintf.t
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/t/strlfuncs.t
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/t/testutil.pl
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/t/threads.t
delete mode 100644 3.8.8/sources/cpan-Devel-PPPort/vendor/t/variables.t
delete mode 100644 3.8.8/sources/cpan-Devel-Symdump/vendor/MANIFEST
delete mode 100644 3.8.8/sources/cpan-Devel-Symdump/vendor/README
delete mode 100644 3.8.8/sources/cpan-Devel-Symdump/vendor/t/podcover.t
delete mode 100644 3.8.8/sources/cpan-Digest-MD5/vendor/MD5.xs
delete mode 100644 3.8.8/sources/cpan-Digest-MD5/vendor/META.yml
delete mode 100644 3.8.8/sources/cpan-Digest-MD5/vendor/hints/MacOS.pl
delete mode 100644 3.8.8/sources/cpan-Digest-MD5/vendor/hints/irix_6.pl
delete mode 100644 3.8.8/sources/cpan-Digest-MD5/vendor/t/badfile.t
delete mode 100644 3.8.8/sources/cpan-Digest-MD5/vendor/t/bits.t
delete mode 100644 3.8.8/sources/cpan-Digest-MD5/vendor/t/clone.t
delete mode 100644 3.8.8/sources/cpan-Digest-MD5/vendor/t/files.t
delete mode 100644 3.8.8/sources/cpan-Digest-MD5/vendor/t/md5-aaa.t
delete mode 100644 3.8.8/sources/cpan-Digest/vendor/Digest.pm
delete mode 100644 3.8.8/sources/cpan-Digest/vendor/Digest/base.pm
delete mode 100644 3.8.8/sources/cpan-Digest/vendor/MANIFEST
delete mode 100644 3.8.8/sources/cpan-Digest/vendor/META.yml
delete mode 100644 3.8.8/sources/cpan-Digest/vendor/Makefile.PL
delete mode 100644 3.8.8/sources/cpan-Digest/vendor/t/digest.t
delete mode 100644 3.8.8/sources/cpan-Digest/vendor/t/file.t
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/Byte/Makefile.old
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/EBCDIC/Makefile.old
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/Encode.pm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/Encode/Changes.e2x
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/Encode/ConfigLocal_PM.e2x
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/Encode/_T.e2x
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/Encode/encode.h
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/JP/Makefile.old
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/KR/Makefile.old
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/META.yml
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/Makefile.PL
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/Symbol/Makefile.PL
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/Unicode/Unicode.pm
delete mode 100755 3.8.8/sources/cpan-Encode/vendor/bin/ucm2table
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/bin/ucmlint
delete mode 100755 3.8.8/sources/cpan-Encode/vendor/bin/unidump
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/lib/Encode/Alias.pm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/lib/Encode/Encoding.pm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/lib/Encode/GSM0338.pm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/lib/Encode/Guess.pm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/lib/Encode/JP/H2Z.pm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/lib/Encode/JP/JIS7.pm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/lib/Encode/KR/2022_KR.pm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/lib/Encode/MIME/Header.pm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/lib/Encode/Supported.pod
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/t/Unicode.t
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/t/at-cn.t
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/t/big5-hkscs.utf
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/t/enc_data.t
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/t/enc_eucjp.t
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/t/encoding.t
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/t/fallback.t
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/t/gb2312.utf
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/t/grow.t
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/t/gsm0338.t
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/t/guess.t
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/t/jisx0201.enc
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/t/jisx0208.utf
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/t/jisx0212.enc
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/t/jisx0212.utf
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/t/mime-name.t
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/t/perlio.t
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/t/utf8strict.t
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/8859-1.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/8859-14.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/8859-2.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/8859-6.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/8859-8.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/8859-9.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/ascii.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/big5-eten.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/cp1006.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/cp1251.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/cp1255.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/cp1258.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/cp737.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/cp775.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/cp850.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/cp856.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/cp860.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/cp862.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/cp865.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/cp875.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/cp949.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/euc-jp.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/jis0201.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/koi8-r.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/koi8-u.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/macArabic.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/macCroatian.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/macCyrillic.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/macDingbats.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/macGreek.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/macHebrew.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/macIceland.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/macRUMnn.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/macSami.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/macSymbol.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/nextstep.ucm
delete mode 100644 3.8.8/sources/cpan-Encode/vendor/ucm/posix-bc.ucm
delete mode 100755 3.8.8/sources/cpan-Exporter/vendor/t/Exporter.t
delete mode 100644 3.8.8/sources/cpan-Exporter/vendor/t/pod.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/Changes
delete mode 100644 3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/Makefile.PL
delete mode 100644 3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Base.pm
delete mode 100644 3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Platform/Windows.pm
delete mode 100644 3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Platform/Windows/BCC.pm
delete mode 100644 3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Platform/Windows/GCC.pm
delete mode 100644 3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Platform/aix.pm
delete mode 100644 3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Platform/darwin.pm
delete mode 100644 3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Platform/dec_osf.pm
delete mode 100644 3.8.8/sources/cpan-ExtUtils-Install/vendor/Makefile.PL
delete mode 100644 3.8.8/sources/cpan-ExtUtils-Install/vendor/README
delete mode 100644 3.8.8/sources/cpan-ExtUtils-Install/vendor/t/Installapi2.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-Install/vendor/t/Packlist.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-Install/vendor/t/can_write_dir.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-Install/vendor/t/lib/MakeMaker/Test/Setup/BFD.pm
delete mode 100644 3.8.8/sources/cpan-ExtUtils-Install/vendor/t/lib/MakeMaker/Test/Utils.pm
delete mode 100644 3.8.8/sources/cpan-ExtUtils-Install/vendor/t/lib/Test/Builder/Module.pm
delete mode 100644 3.8.8/sources/cpan-ExtUtils-Install/vendor/t/lib/Test/Simple.pm
delete mode 100644 3.8.8/sources/cpan-ExtUtils-Install/vendor/t/pod-coverage.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/MANIFEST
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/Makefile.PL
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/NOTES
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/PATCHING
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/inc/ExtUtils/Packlist.pm
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM.pm
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_BeOS.pm
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_Cygwin.pm
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_DOS.pm
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_MacOS.pm
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_OS2.pm
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_Unix.pm
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_VOS.pm
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_Win32.pm
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MY.pm
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/00compile.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/INSTALL_BASE.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/INST_PREFIX.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/MM_NW5.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/MM_VMS.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/MakeMaker_Parameters.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/VERSION_FROM.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/arch_check.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/dir_target.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/fix_libs.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/hints.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/is_of_type.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/lib/MakeMaker/Test/Setup/Recurs.pm
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/lib/MakeMaker/Test/Setup/XS.pm
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/lib/Test/Simple.pm
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/maketext_filter.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/metafile_file.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/min_perl_version.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/pm.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/postamble.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/prereq.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/test_boilerplate.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/writemakefile_args.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/xs.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-Manifest/vendor/Build.PL
delete mode 100644 3.8.8/sources/cpan-ExtUtils-Manifest/vendor/META.yml
delete mode 100644 3.8.8/sources/cpan-ExtUtils-Manifest/vendor/lib/ExtUtils/MANIFEST.SKIP
delete mode 100644 3.8.8/sources/cpan-ExtUtils-Manifest/vendor/t/Manifest.t
delete mode 100644 3.8.8/sources/cpan-ExtUtils-ParseXS/vendor/Changes
delete mode 100644 3.8.8/sources/cpan-ExtUtils-ParseXS/vendor/Makefile.PL
delete mode 100644 3.8.8/sources/cpan-ExtUtils-ParseXS/vendor/t/XSTest.pm
delete mode 100644 3.8.8/sources/cpan-ExtUtils-ParseXS/vendor/t/XSUsage.xs
delete mode 100644 3.8.8/sources/cpan-ExtUtils-ParseXS/vendor/t/more.t
delete mode 100644 3.8.8/sources/cpan-File-Path/vendor/Changes
delete mode 100644 3.8.8/sources/cpan-File-Path/vendor/MANIFEST
delete mode 100644 3.8.8/sources/cpan-File-Path/vendor/MANIFEST.SKIP
delete mode 100644 3.8.8/sources/cpan-File-Path/vendor/META.yml
delete mode 100644 3.8.8/sources/cpan-File-Path/vendor/Makefile.PL
delete mode 100644 3.8.8/sources/cpan-File-Path/vendor/eg/setup-extra-tests
delete mode 100644 3.8.8/sources/cpan-File-Path/vendor/t/Path.t
delete mode 100644 3.8.8/sources/cpan-File-Remove/vendor/Makefile.PL
delete mode 100644 3.8.8/sources/cpan-File-Remove/vendor/inc/Module/Install/Can.pm
delete mode 100644 3.8.8/sources/cpan-File-Remove/vendor/lib/File/Remove.pm
delete mode 100644 3.8.8/sources/cpan-File-Remove/vendor/t/04_can_delete.t
delete mode 100644 3.8.8/sources/cpan-File-Temp/vendor/ChangeLog
delete mode 100644 3.8.8/sources/cpan-File-Temp/vendor/Temp.pm
delete mode 100755 3.8.8/sources/cpan-File-Temp/vendor/misc/benchmark.pl
delete mode 100644 3.8.8/sources/cpan-Filter/vendor/Call/Call.pm.bak
delete mode 100644 3.8.8/sources/cpan-Filter/vendor/Changes
delete mode 100644 3.8.8/sources/cpan-Filter/vendor/MANIFEST
delete mode 100644 3.8.8/sources/cpan-Filter/vendor/README
delete mode 100644 3.8.8/sources/cpan-Filter/vendor/decrypt/decr
delete mode 100644 3.8.8/sources/cpan-Filter/vendor/decrypt/decr.bak
delete mode 100755 3.8.8/sources/cpan-Filter/vendor/decrypt/encrypt
delete mode 100644 3.8.8/sources/cpan-Filter/vendor/examples/closure/Decompress.pm.bak
delete mode 100644 3.8.8/sources/cpan-Filter/vendor/examples/closure/Joe2Jim.pm.bak
delete mode 100644 3.8.8/sources/cpan-Filter/vendor/examples/closure/UUdecode.pm
delete mode 100755 3.8.8/sources/cpan-Filter/vendor/examples/filtuu.bak
delete mode 100644 3.8.8/sources/cpan-Filter/vendor/examples/method/Joe2Jim.pm
delete mode 100644 3.8.8/sources/cpan-Filter/vendor/examples/method/Subst.pm
delete mode 100644 3.8.8/sources/cpan-Filter/vendor/examples/method/UUdecode.pm
delete mode 100644 3.8.8/sources/cpan-Filter/vendor/lib/Filter/sh.pm.bak
delete mode 100644 3.8.8/sources/cpan-Filter/vendor/t/cpp.t
delete mode 100644 3.8.8/sources/cpan-Filter/vendor/t/cpp.t.bak
delete mode 100644 3.8.8/sources/cpan-Filter/vendor/t/sh.t.bak
delete mode 100644 3.8.8/sources/cpan-Filter/vendor/tee/tee.xs
delete mode 100755 3.8.8/sources/cpan-FreezeThaw/vendor/Makefile.PL
delete mode 100644 3.8.8/sources/cpan-Getopt-Long/vendor/INSTALL
delete mode 100644 3.8.8/sources/cpan-Getopt-Long/vendor/MANIFEST
delete mode 100644 3.8.8/sources/cpan-Getopt-Long/vendor/Makefile.PL
delete mode 100644 3.8.8/sources/cpan-Getopt-Long/vendor/lib/newgetopt.pl
delete mode 100644 3.8.8/sources/cpan-Getopt-Long/vendor/t/gol-compat.t
delete mode 100644 3.8.8/sources/cpan-Getopt-Long/vendor/t/gol-xargv.t
delete mode 100755 3.8.8/sources/cpan-IO-Compress/vendor/examples/compress-zlib/filtdef
delete mode 100755 3.8.8/sources/cpan-IO-Compress/vendor/examples/compress-zlib/gzcat
delete mode 100755 3.8.8/sources/cpan-IO-Compress/vendor/examples/io/bzip2/bzcat
delete mode 100755 3.8.8/sources/cpan-IO-Compress/vendor/examples/io/gzip/gzstream
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/lib/IO/Compress/Adapter/Identity.pm
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/lib/IO/Compress/Gzip/Constants.pm
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/lib/IO/Uncompress/Adapter/Bunzip2.pm
delete mode 100755 3.8.8/sources/cpan-IO-Compress/vendor/lib/IO/Uncompress/Adapter/Identity.pm
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/lib/IO/Uncompress/AnyUncompress.pm
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/lib/IO/Uncompress/Base.pm
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/pod/FAQ.pod
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/private/MakeUtil.pm
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/t/001zlib-generic-zip.t
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/t/002any-deflate.t
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/t/002any-zip.t
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/t/010examples-bzip2.t
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/t/100generic-bzip2.t
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/t/100generic-rawdeflate.t
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/t/101truncate-gzip.t
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/t/101truncate-rawdeflate.t
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/t/102tied-bzip2.t
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/t/103newtied-deflate.t
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/t/106prime-bzip2.t
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/t/106prime-deflate.t
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/t/106prime-rawdeflate.t
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/t/107multi-zip.t
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/t/108anyunc-transparent.t
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/t/110encode-rawdeflate.t
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/t/Test/Simple.pm
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/t/compress/newtied.pl
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/t/cz-01version.t
delete mode 100644 3.8.8/sources/cpan-IO-Compress/vendor/t/cz-14gzopen.t
delete mode 100644 3.8.8/sources/cpan-IO-String/vendor/String.pm
delete mode 100644 3.8.8/sources/cpan-IO-String/vendor/t/seek.t
delete mode 100644 3.8.8/sources/cpan-IO/vendor/SIGNATURE
delete mode 100644 3.8.8/sources/cpan-IO/vendor/lib/IO/Seekable.pm
delete mode 100755 3.8.8/sources/cpan-IO/vendor/t/io_linenum.t
delete mode 100644 3.8.8/sources/cpan-IO/vendor/t/io_unix.t
delete mode 100644 3.8.8/sources/cpan-Lingua-EN-Sentence/vendor/Changes
delete mode 100644 3.8.8/sources/cpan-Lingua-EN-Sentence/vendor/INSTALL
delete mode 100644 3.8.8/sources/cpan-Lingua-EN-Sentence/vendor/MANIFEST
delete mode 100644 3.8.8/sources/cpan-Lingua-EN-Sentence/vendor/lib/Lingua/EN/Sentence.pm
delete mode 100755 3.8.8/sources/cpan-Lingua-EN-Sentence/vendor/t/test_nothing.t
delete mode 100644 3.8.8/sources/cpan-Locale-Maketext/vendor/README
delete mode 100644 3.8.8/sources/cpan-Locale-Maketext/vendor/lib/Locale/Maketext/GutsLoader.pm
delete mode 100644 3.8.8/sources/cpan-Locale-Maketext/vendor/lib/Locale/Maketext/TPJ13.pod
delete mode 100644 3.8.8/sources/cpan-Locale-Maketext/vendor/t/50_super.t
delete mode 100644 3.8.8/sources/cpan-MIME-Base64/vendor/MANIFEST
delete mode 100644 3.8.8/sources/cpan-MIME-Base64/vendor/META.yml
delete mode 100644 3.8.8/sources/cpan-MIME-Base64/vendor/t/unicode.t
delete mode 100644 3.8.8/sources/cpan-Math-Complex/vendor/lib/Math/Trig.pm
delete mode 100755 3.8.8/sources/cpan-Math-Complex/vendor/t/Trig.t
delete mode 100644 3.8.8/sources/cpan-Math-Complex/vendor/t/pod.t
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/LICENSE
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/META.yml
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build.pm
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build/Authoring.pod
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build/ModuleInfo.pm
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build/Platform/Default.pm
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build/Platform/EBCDIC.pm
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build/Platform/MPEiX.pm
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build/Platform/VMS.pm
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/scripts/config_data
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/t/00-compile.t
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/t/add_property.t
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/t/bundled/Tie/CPHash.pm
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/t/debug.t
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/t/ext.t
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/t/extend.t
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/t/files.t
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/t/install.t
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/t/install_extra_target.t
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/t/lib/MBTest.pm
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/t/metadata.t
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/t/metadata2.t
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/t/mymeta.t
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/t/parents.t
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/t/perl_mb_opt.t
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/t/ppm.t
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/t/properties/needs_compiler.t
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/t/test_types.t
delete mode 100644 3.8.8/sources/cpan-Module-Build/vendor/t/versions.t
delete mode 100644 3.8.8/sources/cpan-NEXT/vendor/demo/demo_actual.pl
delete mode 100644 3.8.8/sources/cpan-NEXT/vendor/demo/demo_diamond.pl
delete mode 100644 3.8.8/sources/cpan-NEXT/vendor/demo/demo_unseen_actual.pl
delete mode 100644 3.8.8/sources/cpan-NEXT/vendor/lib/NEXT.pm
delete mode 100644 3.8.8/sources/cpan-NEXT/vendor/t/unseen.t
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/Changes
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/LICENSE
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/META.yml
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/README
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/inc/Module/Install/Can.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/inc/Module/Install/Fetch.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/inline2test.conf
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI/Cache.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI/Document/Normalized.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI/Exception.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI/Exception/ParserRejection.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI/Normal.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI/Statement/Include.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI/Statement/Package.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI/Statement/Scheduled.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI/Statement/Unknown.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI/Structure/Block.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI/Structure/For.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI/Structure/List.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/DashedWord.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Magic.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Number/Exp.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Number/Octal.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Number/Version.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Operator.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Quote.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Quote/Double.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Quote/Single.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/QuoteLike/Backtick.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/QuoteLike/Readline.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Separator.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Whitespace.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/lib/PPI/XSAccessor.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/03_document.t
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/06_round_trip.t
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/14_charsets.t
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/18_cache.t
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/25_increment.t
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/28_foreach_qw.t
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/01_simpleassign.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/03_subroutine_attributes.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/08_subroutines.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/09_heredoc.dump
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/11_dor.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/11_dor.dump
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/12_switch.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/07_token/exp.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/07_token/exp.dump
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/07_token/range_operator.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/07_token/range_operator.dump
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/07_token/smart_match.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/01_rt_cpan_19629b.dump
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/04_tinderbox.dump
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/05_rt_cpan_13425.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/05_rt_cpan_13425.dump
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/07_partial_quote_single.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/08_partial_regex_substitution.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/09_for_var.dump
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/10_leading_regexp.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/10_leading_regexp.dump
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/12_pow.dump
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/13_goto.dump
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/14_minus.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/14b_minus.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/16_sub_declaration.dump
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/18_decimal_point.dump
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/19_long_operators.dump
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/19_long_operators2.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/21_list_of_refs.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/22_hash_vs_brace.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/22_hash_vs_brace.dump
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/23_rt_cpan_8752.dump
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/24_compound.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/25_hash_block.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/25_hash_block.dump
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/27_constant_hash.dump
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/28_backref_style_heredoc.dump
delete mode 100755 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/29_chained_casts.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/30_hash_bang.dump
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/31_hash_carat_H.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/32_readline.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/34_attr_whitespace.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/34_attr_whitespace.dump
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/37_partial_prototype.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/39_foreach_our.dump
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/40_foreach_eval.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/40_foreach_eval.dump
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/41_scalar_hash.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/13_data/Foo.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/15_transform/sample1.pm
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/data/26_bom/utf8.code
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/ppi_node.t
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/ppi_normal.t
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/ppi_statement.t
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/ppi_token__quoteengine_full.t
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/ppi_token_magic.t
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/ppi_token_quote_double.t
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/ppi_token_quote_literal.t
delete mode 100644 3.8.8/sources/cpan-PPI/vendor/t/ppi_token_word.t
delete mode 100644 3.8.8/sources/cpan-Params-Util/vendor/MANIFEST
delete mode 100644 3.8.8/sources/cpan-Params-Util/vendor/META.yml
delete mode 100644 3.8.8/sources/cpan-Params-Util/vendor/t/01_compile.t
delete mode 100644 3.8.8/sources/cpan-Params-Util/vendor/t/02_main.t
delete mode 100644 3.8.8/sources/cpan-Params-Util/vendor/t/04_codelike.t
delete mode 100644 3.8.8/sources/cpan-Params-Util/vendor/t/05_typelike.t
delete mode 100644 3.8.8/sources/cpan-Params-Util/vendor/t/09_insideout.t
delete mode 100644 3.8.8/sources/cpan-Params-Util/vendor/t/driver/D.pm
delete mode 100644 3.8.8/sources/cpan-Params-Util/vendor/t/driver/F.pm
delete mode 100644 3.8.8/sources/cpan-Params-Util/vendor/xt/meta.t
delete mode 100644 3.8.8/sources/cpan-Params-Util/vendor/xt/pmv.t
delete mode 100644 3.8.8/sources/cpan-PathTools/vendor/Cwd.xs
delete mode 100644 3.8.8/sources/cpan-PathTools/vendor/lib/File/Spec.pm
delete mode 100644 3.8.8/sources/cpan-PathTools/vendor/lib/File/Spec/Epoc.pm
delete mode 100644 3.8.8/sources/cpan-PathTools/vendor/lib/File/Spec/Mac.pm
delete mode 100644 3.8.8/sources/cpan-PathTools/vendor/lib/File/Spec/VMS.pm
delete mode 100644 3.8.8/sources/cpan-PathTools/vendor/lib/File/Spec/Win32.pm
delete mode 100644 3.8.8/sources/cpan-PathTools/vendor/ppport.h
delete mode 100644 3.8.8/sources/cpan-PathTools/vendor/t/Functions.t
delete mode 100644 3.8.8/sources/cpan-PathTools/vendor/t/crossplatform.t
delete mode 100644 3.8.8/sources/cpan-PathTools/vendor/t/cwd.t
delete mode 100644 3.8.8/sources/cpan-PathTools/vendor/t/lib/Test/Simple.pm
delete mode 100644 3.8.8/sources/cpan-PathTools/vendor/t/rel2abs2rel.t
delete mode 100644 3.8.8/sources/cpan-Pod-Escapes/vendor/META.yml
delete mode 100644 3.8.8/sources/cpan-Pod-Parser/vendor/lib/Pod/InputObjects.pm
delete mode 100644 3.8.8/sources/cpan-Pod-Parser/vendor/scripts/pod2usage.PL
delete mode 100644 3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/contains_bad_pod.xr
delete mode 100644 3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/contains_pod.t
delete mode 100644 3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/emptycmd.t
delete mode 100644 3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/find.t
delete mode 100644 3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/for.t
delete mode 100644 3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/for.xr
delete mode 100644 3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/headings.t
delete mode 100644 3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/include.xr
delete mode 100644 3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/included.xr
delete mode 100644 3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/lref.xr
delete mode 100644 3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/multiline_items.t
delete mode 100644 3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/nested_seqs.xr
delete mode 100644 3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/pod2usage.xr
delete mode 100644 3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/pod2usage2.t
delete mode 100644 3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/podchkenc.t
delete mode 100644 3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/podchkenc.xr
delete mode 100644 3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/poderrs.t
delete mode 100644 3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/poderrs.xr
delete mode 100644 3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/podselect.t
delete mode 100644 3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/podselect.xr
delete mode 100644 3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/testp2pt.pl
delete mode 100644 3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/testpchk.pl
delete mode 100644 3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/testpods/lib/Pod/Stuff.pm
delete mode 100644 3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/usage2.pod
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/ChangeLog
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/MANIFEST
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/META.yml
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/Makefile.PL
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/README
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/DumpAsXML.pm
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/LinkSection.pm
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/PullParserStartToken.pm
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/PullParserTextToken.pm
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/PullParserToken.pm
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/RTF.pm
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/Search.pm
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/SimpleTree.pm
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/Subclassing.pod
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/XMLOutStream.pm
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/lib/perlpod.pod
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/chunking.t
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/closeys.t
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus.t
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/2202jp.txt
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/2202jp.xml
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/2202jpx.txt
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/2202jpy.txt
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/8859_7.xml
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/cp1256.xml
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/fet_dup.txt
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/laozi38p.pod
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/lat1fr.txt
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/nonesuch.txt
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/plain.txt
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/plain_explicit.txt
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/plain_explicit.xml
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/plain_latin1.txt
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/polish_utf8.txt
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/s2763_sjis.txt
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/thai_iso11.txt
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus2/fiqhakbar_iso6.txt
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus2/polish_utf8_bom.xml
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus2/polish_utf8_bom2.txt
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/encod02.t
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/encod03.t
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/fcodes_l.t
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/fcodes_s.t
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/heads.t
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/html01.t
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/html02.t
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/items.t
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/items02.t
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/itemstar.t
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/junk1.pod
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/junk2o.txt
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/linkclas.t
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/perlfaq.pod
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/puller.t
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/search05.t
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/search28.t
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/strpvbtm.t
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/Blorm.pm
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/Zonk/Fiddle.txt
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/hinkhonk/readme.txt
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/pod/perlflif.pod
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/pod/perlthng.pod
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/squaa/Glunk.pod
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/squaa/Vliff.pm
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib2/hinkhonk/Glunk.pod
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib2/squaa/Wowo.pod
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/verb_fmt.t
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/verbatim.t
delete mode 100644 3.8.8/sources/cpan-Pod-Simple/vendor/t/x_nixer.t
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/Changes
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/ListUtil.xs
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/MANIFEST
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/META.yml
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/Makefile.PL
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/lib/List/Util.pm
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/lib/List/Util/PP.pm
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/lib/Scalar/Util.pm
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/lib/Scalar/Util/PP.pm
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/blessed.t
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/dualvar.t
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/expfail.t
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/min.t
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/minstr.t
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/p_minstr.t
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/p_refaddr.t
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/p_reftype.t
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/p_shuffle.t
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/p_sum.t
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/p_tainted.t
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/readonly.t
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/reduce.t
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/refaddr.t
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/reftype.t
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/shuffle.t
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/stack-corruption.t
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/sum.t
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/tainted.t
delete mode 100644 3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/weak.t
delete mode 100644 3.8.8/sources/cpan-Storable/vendor/META.yml
delete mode 100644 3.8.8/sources/cpan-Storable/vendor/Makefile.PL
delete mode 100644 3.8.8/sources/cpan-Storable/vendor/hints/linux.pl
delete mode 100644 3.8.8/sources/cpan-Storable/vendor/t/HAS_OVERLOAD.pm
delete mode 100644 3.8.8/sources/cpan-Storable/vendor/t/Test/Builder.pm
delete mode 100644 3.8.8/sources/cpan-Storable/vendor/t/Test/Simple.pm
delete mode 100644 3.8.8/sources/cpan-Storable/vendor/t/attach_errors.t
delete mode 100644 3.8.8/sources/cpan-Storable/vendor/t/attach_singleton.t
delete mode 100644 3.8.8/sources/cpan-Storable/vendor/t/blessed.t
delete mode 100644 3.8.8/sources/cpan-Storable/vendor/t/circular_hook.t
delete mode 100644 3.8.8/sources/cpan-Storable/vendor/t/compat01.t
delete mode 100644 3.8.8/sources/cpan-Storable/vendor/t/compat06.t
delete mode 100644 3.8.8/sources/cpan-Storable/vendor/t/croak.t
delete mode 100644 3.8.8/sources/cpan-Storable/vendor/t/downgrade.t
delete mode 100644 3.8.8/sources/cpan-Storable/vendor/t/integer.t
delete mode 100644 3.8.8/sources/cpan-Storable/vendor/t/interwork56.t
delete mode 100644 3.8.8/sources/cpan-Storable/vendor/t/just_plain_nasty.t
delete mode 100644 3.8.8/sources/cpan-Storable/vendor/t/make_downgrade.pl
delete mode 100644 3.8.8/sources/cpan-Storable/vendor/t/make_overload.pl
delete mode 100644 3.8.8/sources/cpan-Storable/vendor/t/restrict.t
delete mode 100644 3.8.8/sources/cpan-Storable/vendor/t/sig_die.t
delete mode 100644 3.8.8/sources/cpan-Storable/vendor/t/utf8.t
delete mode 100644 3.8.8/sources/cpan-Sys-Syslog/vendor/Makefile.PL
delete mode 100644 3.8.8/sources/cpan-Sys-Syslog/vendor/Syslog.pm
delete mode 100644 3.8.8/sources/cpan-Sys-Syslog/vendor/Syslog.xs
delete mode 100644 3.8.8/sources/cpan-Sys-Syslog/vendor/const-c.inc
delete mode 100644 3.8.8/sources/cpan-Sys-Syslog/vendor/const-xs.inc
delete mode 100644 3.8.8/sources/cpan-Sys-Syslog/vendor/fallback/const-xs.inc
delete mode 100644 3.8.8/sources/cpan-Sys-Syslog/vendor/fallback/syslog.h
delete mode 100644 3.8.8/sources/cpan-Sys-Syslog/vendor/macros.all
delete mode 100644 3.8.8/sources/cpan-Sys-Syslog/vendor/ppport.h
delete mode 100644 3.8.8/sources/cpan-Sys-Syslog/vendor/t/00-load.t
delete mode 100644 3.8.8/sources/cpan-Sys-Syslog/vendor/t/constants.t
delete mode 100644 3.8.8/sources/cpan-Sys-Syslog/vendor/t/data-validation.t
delete mode 100644 3.8.8/sources/cpan-Sys-Syslog/vendor/t/distchk.t
delete mode 100644 3.8.8/sources/cpan-Sys-Syslog/vendor/t/podcover.t
delete mode 100644 3.8.8/sources/cpan-Sys-Syslog/vendor/win32/compile.pl
delete mode 100644 3.8.8/sources/cpan-Task-Weaken/vendor/Changes
delete mode 100644 3.8.8/sources/cpan-Task-Weaken/vendor/inc/Module/Install/Makefile.pm
delete mode 100644 3.8.8/sources/cpan-Task-Weaken/vendor/inc/Module/Install/Metadata.pm
delete mode 100644 3.8.8/sources/cpan-Task-Weaken/vendor/inc/Module/Install/Win32.pm
delete mode 100644 3.8.8/sources/cpan-Task-Weaken/vendor/inc/Module/Install/WriteAll.pm
delete mode 100644 3.8.8/sources/cpan-Task-Weaken/vendor/t/01_compile.t
delete mode 100644 3.8.8/sources/cpan-Task-Weaken/vendor/t/02_weaken.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/.defaults.cfg
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/INSTALL
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/MANIFEST
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/META.yml
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/TODO
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/images/tt2power.gif
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template.pm
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Base.pm
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Constants.pm
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Document.pm
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Exception.pm
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Iterator.pm
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual.pod
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Config.pod
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Credits.pod
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Directives.pod
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Internals.pod
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Plugins.pod
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Syntax.pod
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Views.pod
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Modules.pod
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Namespace/Constants.pm
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Datafile.pm
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Date.pm
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Filter.pm
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Format.pm
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/HTML.pm
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Image.pm
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Iterator.pm
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Procedural.pm
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Scalar.pm
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/String.pm
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/View.pm
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Wrap.pm
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Test.pm
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Toolkit.pod
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Tools.pod
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Tutorial/Datafile.pod
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Tutorial/Web.pod
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/parser/Grammar.pm.skel
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/parser/README
delete mode 100755 3.8.8/sources/cpan-Template-Toolkit/vendor/parser/yc
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/blocks.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/capture.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/cgi.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/compile3.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/compile4.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/config.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/constants.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/date.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/debug.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/directive.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/directry.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/document.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/evalperl.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/factory.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/file.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/fileline.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/iterator.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/lib/Template/Plugin/ProcFoo.pm
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/list.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/object.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/plusfile.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/pod.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/prefix.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/proc.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/process.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/scalar.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/stash-xs.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/strict.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/string.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/switch.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/table.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/tags.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/dir/file2
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/dir/sub_one/foo
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/dir/sub_two/waz.html
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/dir/xyzfile
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/badrawperl
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/barfed
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/blockdef
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/content
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/default
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/dos_newlines
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/inner
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/one/foo
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/simple2
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/two/bar
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/two/foo
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/plugin/MyPlugs/Bar.pm
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/plugin/MyPlugs/Foo.pm
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/pod/test1.pod
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/bar/baz
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/baz
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/benchmark
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/complex
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/divisionbyzero
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/foo
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/foobar
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/tmp/README
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/text.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/throw.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/tiedhash.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/vmethods/hash.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/vmethods/list.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/vmethods/replace.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/vmethods/text.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/while.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/t/wrapper.t
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/xs/Makefile.PL
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/xs/Makefile.old
delete mode 100644 3.8.8/sources/cpan-Template-Toolkit/vendor/xs/README
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/Build.PL
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/examples/README
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/examples/analyze_tests.pl
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/examples/bin/forked_tests.pl
delete mode 100755 3.8.8/sources/cpan-Test-Harness/vendor/examples/bin/test_html.pl
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/examples/harness-hook/lib/Harness/Hook.pm
delete mode 100755 3.8.8/sources/cpan-Test-Harness/vendor/examples/my_exec
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/examples/t/10-stuff.t
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/examples/t/ruby.t
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/examples/test_urls.txt
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/inc/MyBuilder.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/lib/App/Prove/State.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/lib/App/Prove/State/Result.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Formatter/Console.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Formatter/Console/ParallelSession.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Iterator.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Iterator/Array.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Iterator/Process.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Iterator/Stream.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result/Bailout.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result/Comment.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result/Plan.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result/Pragma.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result/Test.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result/YAML.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Source.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/SourceHandler.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/SourceHandler/Perl.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/SourceHandler/RawTAP.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/SourceHandler/pgTAP.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Utils.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/lib/Test/Harness.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/perlcriticrc
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/callbacks.t
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/compat/env.t
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/compat/version.t
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/data/sample.yml
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/file.t
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/glob-to-regexp.t
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/harness-subclass.t
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/harness.t
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/iterator_factory.t
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/iterators.t
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/lib/App/Prove/Plugin/Dummy.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/lib/Dev/Null.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/lib/EmptyParser.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/lib/MyFileSourceHandler.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/lib/MyGrammar.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/lib/MyResult.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/lib/MyResultFactory.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/lib/MyShebangger.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/lib/Test/Builder.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/lib/if.pm
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/nofork-mux.t
delete mode 100755 3.8.8/sources/cpan-Test-Harness/vendor/t/nofork.t
delete mode 100755 3.8.8/sources/cpan-Test-Harness/vendor/t/parse.t
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/process.t
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/proveenv.t
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/proverc.t
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/proverc/emptyexec
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/regression.t
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/results.t
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/bignum
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/bignum_many
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/descriptive
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/die_head_end
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/die_last_minute
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/escape_hash
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/inc_taint
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/junk_before_plan
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/lone_not_bug
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/no_output
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/out_of_order
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/schwern
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/shbang_misparse
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/simple_yaml
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/skipall_v13
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/todo
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/todo_inline
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/todo_misparse
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/too_many
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/version_late
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/version_old
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/with_comments
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/source_handler.t
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/source_tests/source
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/source_tests/source.pl
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/source_tests/source.tap
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/spool.t
delete mode 100755 3.8.8/sources/cpan-Test-Harness/vendor/t/streams.t
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/testargs.t
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/unicode.t
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/yamlish-output.t
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/t/yamlish.t
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/xt/author/stdin.t
delete mode 100755 3.8.8/sources/cpan-Test-Harness/vendor/xt/perls/harness_perl.t
delete mode 100644 3.8.8/sources/cpan-Test-Harness/vendor/xt/perls/sample-tests/perl_version
delete mode 100644 3.8.8/sources/cpan-Test-Object/vendor/inc/Module/Install.pm
delete mode 100644 3.8.8/sources/cpan-Test-Object/vendor/inc/Module/Install/Base.pm
delete mode 100644 3.8.8/sources/cpan-Test-Object/vendor/inc/Module/Install/Makefile.pm
delete mode 100644 3.8.8/sources/cpan-Test-Object/vendor/inc/Module/Install/Metadata.pm
delete mode 100644 3.8.8/sources/cpan-Test-Object/vendor/lib/Test/Object.pm
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/.perlcriticrc
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/.perltidyrc
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/MANIFEST
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/MANIFEST.SKIP
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/SIGNATURE
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/lib/Test/Builder.pm
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/lib/Test/Builder/Tester/Color.pm
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/lib/Test/More.pm
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/lib/Test/Simple.pm
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/lib/Test/Tutorial.pod
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/BEGIN_require_ok.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/BEGIN_use_ok.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/carp.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/current_test.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/done_testing.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/done_testing_double.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/done_testing_plan_mismatch.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/fork_with_new_stdout.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/no_diag.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/no_plan_at_all.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/try.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/More.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/Tester/tbt_01basic.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/Tester/tbt_03die.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/Tester/tbt_04line_num.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/Tester/tbt_05faildiag.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/Tester/tbt_07args.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/bad_plan.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/c_flag.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/diag.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/died.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/extra.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/import.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/is_deeply_dne_bug.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/is_deeply_with_threads.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Dev/Null.pm
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/lib/NoExporter.pm
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/lib/SigDie.pm
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Test/Builder/NoOutput.pm
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Test/Simple/sample_tests/death_in_eval.plx
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Test/Simple/sample_tests/exit.plx
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Test/Simple/sample_tests/extras.plx
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Test/Simple/sample_tests/last_minute_death.plx
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Test/Simple/sample_tests/two_fail.plx
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/missing.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/new_ok.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/no_plan.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/no_tests.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/overload.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/overload_threads.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/plan_no_plan.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/plan_shouldnt_import.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/plan_skip_all.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/pod-coverage.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/pod.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/subtest/args.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/subtest/basic.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/subtest/die.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/subtest/do.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/thread_taint.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/todo.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/undef.t
delete mode 100644 3.8.8/sources/cpan-Test-Simple/vendor/t/versions.t
delete mode 100644 3.8.8/sources/cpan-Test-SubCalls/vendor/Changes
delete mode 100644 3.8.8/sources/cpan-Test-SubCalls/vendor/MANIFEST
delete mode 100644 3.8.8/sources/cpan-Test-SubCalls/vendor/META.yml
delete mode 100644 3.8.8/sources/cpan-Test-SubCalls/vendor/inc/Module/Install/Can.pm
delete mode 100644 3.8.8/sources/cpan-Test-SubCalls/vendor/inc/Module/Install/DSL.pm
delete mode 100644 3.8.8/sources/cpan-Test-SubCalls/vendor/inc/Module/Install/Fetch.pm
delete mode 100644 3.8.8/sources/cpan-Test-SubCalls/vendor/lib/Test/SubCalls.pm
delete mode 100644 3.8.8/sources/cpan-Test-SubCalls/vendor/t/01_compile.t
delete mode 100644 3.8.8/sources/cpan-Test-SubCalls/vendor/t/97_meta.t
delete mode 100644 3.8.8/sources/cpan-Test-SubCalls/vendor/t/98_pod.t
delete mode 100644 3.8.8/sources/cpan-Test/vendor/MANIFEST
delete mode 100644 3.8.8/sources/cpan-Test/vendor/MANIFEST.SKIP
delete mode 100644 3.8.8/sources/cpan-Test/vendor/META.yml
delete mode 100644 3.8.8/sources/cpan-Test/vendor/Makefile.PL
delete mode 100644 3.8.8/sources/cpan-Test/vendor/README
delete mode 100644 3.8.8/sources/cpan-Test/vendor/t/fail.t
delete mode 100644 3.8.8/sources/cpan-Test/vendor/t/mix.t
delete mode 100644 3.8.8/sources/cpan-Test/vendor/t/onfail.t
delete mode 100644 3.8.8/sources/cpan-Test/vendor/t/qr.t
delete mode 100644 3.8.8/sources/cpan-Text-ParseWords/vendor/META.yml
delete mode 100644 3.8.8/sources/cpan-Text-ParseWords/vendor/Makefile.PL
delete mode 100644 3.8.8/sources/cpan-Text-ParseWords/vendor/README
delete mode 100644 3.8.8/sources/cpan-Text-ParseWords/vendor/t/ParseWords.t
delete mode 100644 3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/README
delete mode 100644 3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/lib/Text/Wrap.pm
delete mode 100755 3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/39548.t
delete mode 100755 3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/Jacobson.t
delete mode 100755 3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/Jacobson2.t
delete mode 100755 3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/Jochen.t
delete mode 100755 3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/belg4mit.t
delete mode 100644 3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/dandv.t
delete mode 100755 3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/fill.t
delete mode 100755 3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/tabs.t
delete mode 100644 3.8.8/sources/cpan-Time-HiRes/vendor/HiRes.pm
delete mode 100644 3.8.8/sources/cpan-Time-HiRes/vendor/HiRes.xs
delete mode 100644 3.8.8/sources/cpan-Time-HiRes/vendor/META.yml
delete mode 100644 3.8.8/sources/cpan-Time-HiRes/vendor/TODO
delete mode 100644 3.8.8/sources/cpan-Time-HiRes/vendor/const-xs.inc
delete mode 100644 3.8.8/sources/cpan-Time-HiRes/vendor/hints/dynixptx.pl
delete mode 100644 3.8.8/sources/cpan-Time-HiRes/vendor/hints/sco.pl
delete mode 100644 3.8.8/sources/cpan-Time-HiRes/vendor/hints/solaris.pl
delete mode 100644 3.8.8/sources/cpan-Time-HiRes/vendor/hints/svr4.pl
delete mode 100644 3.8.8/sources/cpan-Time-HiRes/vendor/ppport.h
delete mode 100644 3.8.8/sources/cpan-Time-HiRes/vendor/t/HiRes.t
delete mode 100644 3.8.8/sources/cpan-Time-Local/vendor/Changes
delete mode 100644 3.8.8/sources/cpan-Time-Local/vendor/MANIFEST
delete mode 100644 3.8.8/sources/cpan-Time-Local/vendor/t/Local.t
delete mode 100644 3.8.8/sources/cpan-Time-Local/vendor/t/pod.t
delete mode 100644 3.8.8/sources/cpan-Time-Piece/vendor/MANIFEST.SKIP
delete mode 100644 3.8.8/sources/cpan-Time-Piece/vendor/META.yml
delete mode 100644 3.8.8/sources/cpan-Time-Piece/vendor/t/05overload.t
delete mode 100644 3.8.8/sources/cpan-Time-Piece/vendor/t/06subclass.t
delete mode 100644 3.8.8/sources/cpan-Time-Piece/vendor/t/07arith.t
delete mode 100644 3.8.8/sources/cpan-XSLoader/vendor/META.yml
delete mode 100644 3.8.8/sources/cpan-XSLoader/vendor/eg/net-pcap.pl
delete mode 100644 3.8.8/sources/cpan-XSLoader/vendor/eg/posix.pl
delete mode 100644 3.8.8/sources/cpan-XSLoader/vendor/t/podcover.t
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/LICENSE
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/MANIFEST
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/inc/Module/Install.pm
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/inc/Module/Install/Include.pm
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/inc/Module/Install/Makefile.pm
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/inc/Module/Install/Metadata.pm
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/inc/Module/Install/TestBase.pm
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/inc/Module/Install/Win32.pm
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/inc/Test/Base.pm
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/inc/Test/Base/Filter.pm
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/lib/YAML.pm
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/lib/YAML/Any.pm
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/lib/YAML/Dumper/Base.pm
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/lib/YAML/Error.pm
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/lib/YAML/Loader.pm
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/t/98_pod.t
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/t/TestYAML.pm
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/t/basic-tests.t
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/t/bugs-emailed.t
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/t/changes.t
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/t/dump-basics.t
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/t/dump-file-utf8.t
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/t/dump-file.t
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/t/dump-nested.t
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/t/dump-stringify.t
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/t/dump-tests.t
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/t/dump-works.t
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/t/errors.t
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/t/inbox.t
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/t/load-fails.t
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/t/node-info.t
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/t/pugs-objects.t
delete mode 100644 3.8.8/sources/cpan-YAML/vendor/t/svk-config.yaml
delete mode 100644 3.8.8/sources/cpan-base/vendor/lib/base.pm
delete mode 100644 3.8.8/sources/cpan-base/vendor/t/base.t
delete mode 100644 3.8.8/sources/cpan-base/vendor/t/compile-time.t
delete mode 100644 3.8.8/sources/cpan-base/vendor/t/fields-5.8.0.t
delete mode 100644 3.8.8/sources/cpan-base/vendor/t/fields-base.t
delete mode 100644 3.8.8/sources/cpan-base/vendor/t/warnings.t
delete mode 100644 3.8.8/sources/cpan-capitalization/vendor/Changes
delete mode 100644 3.8.8/sources/cpan-capitalization/vendor/MANIFEST
delete mode 100644 3.8.8/sources/cpan-capitalization/vendor/t/00_compile.t
delete mode 100644 3.8.8/sources/cpan-capitalization/vendor/t/lib/Module/LikeJava.pm
delete mode 100644 3.8.8/sources/cpan-constant/vendor/eg/synopsis.pl
delete mode 100644 3.8.8/sources/cpan-constant/vendor/lib/constant.pm
delete mode 100644 3.8.8/sources/cpan-constant/vendor/t/00-load.t
delete mode 100644 3.8.8/sources/cpan-constant/vendor/t/constant.t
delete mode 100644 3.8.8/sources/cpan-constant/vendor/t/more-tests.t
delete mode 100644 3.8.8/sources/cpan-constant/vendor/t/pod-coverage.t
delete mode 100644 3.8.8/sources/cpan-libnet/vendor/META.yml
delete mode 100644 3.8.8/sources/cpan-libnet/vendor/Makefile.PL
delete mode 100644 3.8.8/sources/cpan-libnet/vendor/Net/FTP/E.pm
delete mode 100644 3.8.8/sources/cpan-libnet/vendor/Net/FTP/I.pm
delete mode 100644 3.8.8/sources/cpan-libnet/vendor/Net/FTP/L.pm
delete mode 100644 3.8.8/sources/cpan-libnet/vendor/Net/FTP/dataconn.pm
delete mode 100644 3.8.8/sources/cpan-libnet/vendor/Net/Time.pm
delete mode 100644 3.8.8/sources/cpan-libnet/vendor/SIGNATURE
delete mode 100644 3.8.8/sources/cpan-libnet/vendor/demos/inetd
delete mode 100644 3.8.8/sources/cpan-libnet/vendor/demos/time
delete mode 100755 3.8.8/sources/cpan-libnet/vendor/install-nomake
delete mode 100644 3.8.8/sources/cpan-libnet/vendor/t/nntp.t
delete mode 100644 3.8.8/sources/cpan-libnet/vendor/t/smtp.t
delete mode 100644 3.8.8/sources/cpan-podlators/vendor/TODO
delete mode 100644 3.8.8/sources/cpan-podlators/vendor/VERSION
delete mode 100644 3.8.8/sources/cpan-podlators/vendor/lib/Pod/ParseLink.pm
delete mode 100644 3.8.8/sources/cpan-podlators/vendor/lib/Pod/Text/Overstrike.pm
delete mode 100644 3.8.8/sources/cpan-podlators/vendor/lib/Pod/Text/Termcap.pm
delete mode 100755 3.8.8/sources/cpan-podlators/vendor/scripts/pod2man.PL
delete mode 100755 3.8.8/sources/cpan-podlators/vendor/scripts/pod2text.PL
delete mode 100644 3.8.8/sources/cpan-podlators/vendor/t/basic.ovr
delete mode 100644 3.8.8/sources/cpan-podlators/vendor/t/basic.pod
delete mode 100644 3.8.8/sources/cpan-podlators/vendor/t/basic.txt
delete mode 100755 3.8.8/sources/cpan-podlators/vendor/t/devise-date.t
delete mode 100755 3.8.8/sources/cpan-podlators/vendor/t/filehandle.t
delete mode 100755 3.8.8/sources/cpan-podlators/vendor/t/parselink.t
delete mode 100755 3.8.8/sources/cpan-podlators/vendor/t/pod-parser.t
delete mode 100755 3.8.8/sources/cpan-podlators/vendor/t/pod-spelling.t
delete mode 100755 3.8.8/sources/cpan-podlators/vendor/t/text-utf8.t
delete mode 100644 3.8.8/sources/cpan-version/vendor/lib/version/Internals.pod
delete mode 100755 3.8.8/sources/cpan-version/vendor/lib/version/typemap
delete mode 100644 3.8.8/sources/cpan-version/vendor/t/01base.t
delete mode 100644 3.8.8/sources/cpan-version/vendor/t/02derived.t
delete mode 100644 3.8.8/sources/cpan-version/vendor/vutil/lib/version/vxs.pm
delete mode 100644 3.8.8/sources/cpan-version/vendor/vutil/ppport.h
delete mode 100644 3.8.8/sources/cpan-version/vendor/vutil/vutil.h
delete mode 100644 3.8.8/sources/cpan-version/vendor/vutil/vxs.xs
- Log -----------------------------------------------------------------
commit 1891d65fe89115ec4d3386ba4d63bb8467f2be17
Author: sunnavy <sunnavy at bestpractical.com>
Date: Mon May 24 13:58:41 2010 +0800
previous delete was not complete
diff --git a/3.8.8/sources/cpan-Compress-Raw-Bzip2/vendor/bzip2-src/bzlib_private.h b/3.8.8/sources/cpan-Compress-Raw-Bzip2/vendor/bzip2-src/bzlib_private.h
deleted file mode 100644
index 2342787..0000000
--- a/3.8.8/sources/cpan-Compress-Raw-Bzip2/vendor/bzip2-src/bzlib_private.h
+++ /dev/null
@@ -1,509 +0,0 @@
-
-/*-------------------------------------------------------------*/
-/*--- Private header file for the library. ---*/
-/*--- bzlib_private.h ---*/
-/*-------------------------------------------------------------*/
-
-/* ------------------------------------------------------------------
- This file is part of bzip2/libbzip2, a program and library for
- lossless, block-sorting data compression.
-
- bzip2/libbzip2 version 1.0.5 of 10 December 2007
- Copyright (C) 1996-2007 Julian Seward <jseward at bzip.org>
-
- Please read the WARNING, DISCLAIMER and PATENTS sections in the
- README file.
-
- This program is released under the terms of the license contained
- in the file LICENSE.
- ------------------------------------------------------------------ */
-
-
-#ifndef _BZLIB_PRIVATE_H
-#define _BZLIB_PRIVATE_H
-
-#include <stdlib.h>
-
-#ifndef BZ_NO_STDIO
-#include <stdio.h>
-#include <ctype.h>
-#include <string.h>
-#endif
-
-#include "bzlib.h"
-
-
-
-/*-- General stuff. --*/
-
-#define BZ_VERSION "1.0.5, 10-Dec-2007"
-
-typedef char Char;
-typedef unsigned char Bool;
-typedef unsigned char UChar;
-typedef int Int32;
-typedef unsigned int UInt32;
-typedef short Int16;
-typedef unsigned short UInt16;
-
-#define True ((Bool)1)
-#define False ((Bool)0)
-
-#ifndef __GNUC__
-#define __inline__ /* */
-#endif
-
-#ifndef BZ_NO_STDIO
-
-extern void BZ2_bz__AssertH__fail ( int errcode );
-#define AssertH(cond,errcode) \
- { if (!(cond)) BZ2_bz__AssertH__fail ( errcode ); }
-
-#if BZ_DEBUG
-#define AssertD(cond,msg) \
- { if (!(cond)) { \
- fprintf ( stderr, \
- "\n\nlibbzip2(debug build): internal error\n\t%s\n", msg );\
- exit(1); \
- }}
-#else
-#define AssertD(cond,msg) /* */
-#endif
-
-#define VPrintf0(zf) \
- fprintf(stderr,zf)
-#define VPrintf1(zf,za1) \
- fprintf(stderr,zf,za1)
-#define VPrintf2(zf,za1,za2) \
- fprintf(stderr,zf,za1,za2)
-#define VPrintf3(zf,za1,za2,za3) \
- fprintf(stderr,zf,za1,za2,za3)
-#define VPrintf4(zf,za1,za2,za3,za4) \
- fprintf(stderr,zf,za1,za2,za3,za4)
-#define VPrintf5(zf,za1,za2,za3,za4,za5) \
- fprintf(stderr,zf,za1,za2,za3,za4,za5)
-
-#else
-
-extern void bz_internal_error ( int errcode );
-#define AssertH(cond,errcode) \
- { if (!(cond)) bz_internal_error ( errcode ); }
-#define AssertD(cond,msg) do { } while (0)
-#define VPrintf0(zf) do { } while (0)
-#define VPrintf1(zf,za1) do { } while (0)
-#define VPrintf2(zf,za1,za2) do { } while (0)
-#define VPrintf3(zf,za1,za2,za3) do { } while (0)
-#define VPrintf4(zf,za1,za2,za3,za4) do { } while (0)
-#define VPrintf5(zf,za1,za2,za3,za4,za5) do { } while (0)
-
-#endif
-
-
-#define BZALLOC(nnn) (strm->bzalloc)(strm->opaque,(nnn),1)
-#define BZFREE(ppp) (strm->bzfree)(strm->opaque,(ppp))
-
-
-/*-- Header bytes. --*/
-
-#define BZ_HDR_B 0x42 /* 'B' */
-#define BZ_HDR_Z 0x5a /* 'Z' */
-#define BZ_HDR_h 0x68 /* 'h' */
-#define BZ_HDR_0 0x30 /* '0' */
-
-/*-- Constants for the back end. --*/
-
-#define BZ_MAX_ALPHA_SIZE 258
-#define BZ_MAX_CODE_LEN 23
-
-#define BZ_RUNA 0
-#define BZ_RUNB 1
-
-#define BZ_N_GROUPS 6
-#define BZ_G_SIZE 50
-#define BZ_N_ITERS 4
-
-#define BZ_MAX_SELECTORS (2 + (900000 / BZ_G_SIZE))
-
-
-
-/*-- Stuff for randomising repetitive blocks. --*/
-
-extern Int32 BZ2_rNums[512];
-
-#define BZ_RAND_DECLS \
- Int32 rNToGo; \
- Int32 rTPos \
-
-#define BZ_RAND_INIT_MASK \
- s->rNToGo = 0; \
- s->rTPos = 0 \
-
-#define BZ_RAND_MASK ((s->rNToGo == 1) ? 1 : 0)
-
-#define BZ_RAND_UPD_MASK \
- if (s->rNToGo == 0) { \
- s->rNToGo = BZ2_rNums[s->rTPos]; \
- s->rTPos++; \
- if (s->rTPos == 512) s->rTPos = 0; \
- } \
- s->rNToGo--;
-
-
-
-/*-- Stuff for doing CRCs. --*/
-
-extern UInt32 BZ2_crc32Table[256];
-
-#define BZ_INITIALISE_CRC(crcVar) \
-{ \
- crcVar = 0xffffffffL; \
-}
-
-#define BZ_FINALISE_CRC(crcVar) \
-{ \
- crcVar = ~(crcVar); \
-}
-
-#define BZ_UPDATE_CRC(crcVar,cha) \
-{ \
- crcVar = (crcVar << 8) ^ \
- BZ2_crc32Table[(crcVar >> 24) ^ \
- ((UChar)cha)]; \
-}
-
-
-
-/*-- States and modes for compression. --*/
-
-#define BZ_M_IDLE 1
-#define BZ_M_RUNNING 2
-#define BZ_M_FLUSHING 3
-#define BZ_M_FINISHING 4
-
-#define BZ_S_OUTPUT 1
-#define BZ_S_INPUT 2
-
-#define BZ_N_RADIX 2
-#define BZ_N_QSORT 12
-#define BZ_N_SHELL 18
-#define BZ_N_OVERSHOOT (BZ_N_RADIX + BZ_N_QSORT + BZ_N_SHELL + 2)
-
-
-
-
-/*-- Structure holding all the compression-side stuff. --*/
-
-typedef
- struct {
- /* pointer back to the struct bz_stream */
- bz_stream* strm;
-
- /* mode this stream is in, and whether inputting */
- /* or outputting data */
- Int32 mode;
- Int32 state;
-
- /* remembers avail_in when flush/finish requested */
- UInt32 avail_in_expect;
-
- /* for doing the block sorting */
- UInt32* arr1;
- UInt32* arr2;
- UInt32* ftab;
- Int32 origPtr;
-
- /* aliases for arr1 and arr2 */
- UInt32* ptr;
- UChar* block;
- UInt16* mtfv;
- UChar* zbits;
-
- /* for deciding when to use the fallback sorting algorithm */
- Int32 workFactor;
-
- /* run-length-encoding of the input */
- UInt32 state_in_ch;
- Int32 state_in_len;
- BZ_RAND_DECLS;
-
- /* input and output limits and current posns */
- Int32 nblock;
- Int32 nblockMAX;
- Int32 numZ;
- Int32 state_out_pos;
-
- /* map of bytes used in block */
- Int32 nInUse;
- Bool inUse[256];
- UChar unseqToSeq[256];
-
- /* the buffer for bit stream creation */
- UInt32 bsBuff;
- Int32 bsLive;
-
- /* block and combined CRCs */
- UInt32 blockCRC;
- UInt32 combinedCRC;
-
- /* misc administratium */
- Int32 verbosity;
- Int32 blockNo;
- Int32 blockSize100k;
-
- /* stuff for coding the MTF values */
- Int32 nMTF;
- Int32 mtfFreq [BZ_MAX_ALPHA_SIZE];
- UChar selector [BZ_MAX_SELECTORS];
- UChar selectorMtf[BZ_MAX_SELECTORS];
-
- UChar len [BZ_N_GROUPS][BZ_MAX_ALPHA_SIZE];
- Int32 code [BZ_N_GROUPS][BZ_MAX_ALPHA_SIZE];
- Int32 rfreq [BZ_N_GROUPS][BZ_MAX_ALPHA_SIZE];
- /* second dimension: only 3 needed; 4 makes index calculations faster */
- UInt32 len_pack[BZ_MAX_ALPHA_SIZE][4];
-
- }
- EState;
-
-
-
-/*-- externs for compression. --*/
-
-extern void
-BZ2_blockSort ( EState* );
-
-extern void
-BZ2_compressBlock ( EState*, Bool );
-
-extern void
-BZ2_bsInitWrite ( EState* );
-
-extern void
-BZ2_hbAssignCodes ( Int32*, UChar*, Int32, Int32, Int32 );
-
-extern void
-BZ2_hbMakeCodeLengths ( UChar*, Int32*, Int32, Int32 );
-
-
-
-/*-- states for decompression. --*/
-
-#define BZ_X_IDLE 1
-#define BZ_X_OUTPUT 2
-
-#define BZ_X_MAGIC_1 10
-#define BZ_X_MAGIC_2 11
-#define BZ_X_MAGIC_3 12
-#define BZ_X_MAGIC_4 13
-#define BZ_X_BLKHDR_1 14
-#define BZ_X_BLKHDR_2 15
-#define BZ_X_BLKHDR_3 16
-#define BZ_X_BLKHDR_4 17
-#define BZ_X_BLKHDR_5 18
-#define BZ_X_BLKHDR_6 19
-#define BZ_X_BCRC_1 20
-#define BZ_X_BCRC_2 21
-#define BZ_X_BCRC_3 22
-#define BZ_X_BCRC_4 23
-#define BZ_X_RANDBIT 24
-#define BZ_X_ORIGPTR_1 25
-#define BZ_X_ORIGPTR_2 26
-#define BZ_X_ORIGPTR_3 27
-#define BZ_X_MAPPING_1 28
-#define BZ_X_MAPPING_2 29
-#define BZ_X_SELECTOR_1 30
-#define BZ_X_SELECTOR_2 31
-#define BZ_X_SELECTOR_3 32
-#define BZ_X_CODING_1 33
-#define BZ_X_CODING_2 34
-#define BZ_X_CODING_3 35
-#define BZ_X_MTF_1 36
-#define BZ_X_MTF_2 37
-#define BZ_X_MTF_3 38
-#define BZ_X_MTF_4 39
-#define BZ_X_MTF_5 40
-#define BZ_X_MTF_6 41
-#define BZ_X_ENDHDR_2 42
-#define BZ_X_ENDHDR_3 43
-#define BZ_X_ENDHDR_4 44
-#define BZ_X_ENDHDR_5 45
-#define BZ_X_ENDHDR_6 46
-#define BZ_X_CCRC_1 47
-#define BZ_X_CCRC_2 48
-#define BZ_X_CCRC_3 49
-#define BZ_X_CCRC_4 50
-
-
-
-/*-- Constants for the fast MTF decoder. --*/
-
-#define MTFA_SIZE 4096
-#define MTFL_SIZE 16
-
-
-
-/*-- Structure holding all the decompression-side stuff. --*/
-
-typedef
- struct {
- /* pointer back to the struct bz_stream */
- bz_stream* strm;
-
- /* state indicator for this stream */
- Int32 state;
-
- /* for doing the final run-length decoding */
- UChar state_out_ch;
- Int32 state_out_len;
- Bool blockRandomised;
- BZ_RAND_DECLS;
-
- /* the buffer for bit stream reading */
- UInt32 bsBuff;
- Int32 bsLive;
-
- /* misc administratium */
- Int32 blockSize100k;
- Bool smallDecompress;
- Int32 currBlockNo;
- Int32 verbosity;
-
- /* for undoing the Burrows-Wheeler transform */
- Int32 origPtr;
- UInt32 tPos;
- Int32 k0;
- Int32 unzftab[256];
- Int32 nblock_used;
- Int32 cftab[257];
- Int32 cftabCopy[257];
-
- /* for undoing the Burrows-Wheeler transform (FAST) */
- UInt32 *tt;
-
- /* for undoing the Burrows-Wheeler transform (SMALL) */
- UInt16 *ll16;
- UChar *ll4;
-
- /* stored and calculated CRCs */
- UInt32 storedBlockCRC;
- UInt32 storedCombinedCRC;
- UInt32 calculatedBlockCRC;
- UInt32 calculatedCombinedCRC;
-
- /* map of bytes used in block */
- Int32 nInUse;
- Bool inUse[256];
- Bool inUse16[16];
- UChar seqToUnseq[256];
-
- /* for decoding the MTF values */
- UChar mtfa [MTFA_SIZE];
- Int32 mtfbase[256 / MTFL_SIZE];
- UChar selector [BZ_MAX_SELECTORS];
- UChar selectorMtf[BZ_MAX_SELECTORS];
- UChar len [BZ_N_GROUPS][BZ_MAX_ALPHA_SIZE];
-
- Int32 limit [BZ_N_GROUPS][BZ_MAX_ALPHA_SIZE];
- Int32 base [BZ_N_GROUPS][BZ_MAX_ALPHA_SIZE];
- Int32 perm [BZ_N_GROUPS][BZ_MAX_ALPHA_SIZE];
- Int32 minLens[BZ_N_GROUPS];
-
- /* save area for scalars in the main decompress code */
- Int32 save_i;
- Int32 save_j;
- Int32 save_t;
- Int32 save_alphaSize;
- Int32 save_nGroups;
- Int32 save_nSelectors;
- Int32 save_EOB;
- Int32 save_groupNo;
- Int32 save_groupPos;
- Int32 save_nextSym;
- Int32 save_nblockMAX;
- Int32 save_nblock;
- Int32 save_es;
- Int32 save_N;
- Int32 save_curr;
- Int32 save_zt;
- Int32 save_zn;
- Int32 save_zvec;
- Int32 save_zj;
- Int32 save_gSel;
- Int32 save_gMinlen;
- Int32* save_gLimit;
- Int32* save_gBase;
- Int32* save_gPerm;
-
- }
- DState;
-
-
-
-/*-- Macros for decompression. --*/
-
-#define BZ_GET_FAST(cccc) \
- /* c_tPos is unsigned, hence test < 0 is pointless. */ \
- if (s->tPos >= (UInt32)100000 * (UInt32)s->blockSize100k) return True; \
- s->tPos = s->tt[s->tPos]; \
- cccc = (UChar)(s->tPos & 0xff); \
- s->tPos >>= 8;
-
-#define BZ_GET_FAST_C(cccc) \
- /* c_tPos is unsigned, hence test < 0 is pointless. */ \
- if (c_tPos >= (UInt32)100000 * (UInt32)ro_blockSize100k) return True; \
- c_tPos = c_tt[c_tPos]; \
- cccc = (UChar)(c_tPos & 0xff); \
- c_tPos >>= 8;
-
-#define SET_LL4(i,n) \
- { if (((i) & 0x1) == 0) \
- s->ll4[(i) >> 1] = (s->ll4[(i) >> 1] & 0xf0) | (n); else \
- s->ll4[(i) >> 1] = (s->ll4[(i) >> 1] & 0x0f) | ((n) << 4); \
- }
-
-#define GET_LL4(i) \
- ((((UInt32)(s->ll4[(i) >> 1])) >> (((i) << 2) & 0x4)) & 0xF)
-
-#define SET_LL(i,n) \
- { s->ll16[i] = (UInt16)(n & 0x0000ffff); \
- SET_LL4(i, n >> 16); \
- }
-
-#define GET_LL(i) \
- (((UInt32)s->ll16[i]) | (GET_LL4(i) << 16))
-
-#define BZ_GET_SMALL(cccc) \
- /* c_tPos is unsigned, hence test < 0 is pointless. */ \
- if (s->tPos >= (UInt32)100000 * (UInt32)s->blockSize100k) return True; \
- cccc = BZ2_indexIntoF ( s->tPos, s->cftab ); \
- s->tPos = GET_LL(s->tPos);
-
-
-/*-- externs for decompression. --*/
-
-extern Int32
-BZ2_indexIntoF ( Int32, Int32* );
-
-extern Int32
-BZ2_decompress ( DState* );
-
-extern void
-BZ2_hbCreateDecodeTables ( Int32*, Int32*, Int32*, UChar*,
- Int32, Int32, Int32 );
-
-
-#endif
-
-
-/*-- BZ_NO_STDIO seems to make NULL disappear on some platforms. --*/
-
-#ifdef BZ_NO_STDIO
-#ifndef NULL
-#define NULL 0
-#endif
-#endif
-
-
-/*-------------------------------------------------------------*/
-/*--- end bzlib_private.h ---*/
-/*-------------------------------------------------------------*/
diff --git a/3.8.8/sources/cpan-Compress-Raw-Bzip2/vendor/bzip2-src/compress.c b/3.8.8/sources/cpan-Compress-Raw-Bzip2/vendor/bzip2-src/compress.c
deleted file mode 100644
index 8c80a07..0000000
--- a/3.8.8/sources/cpan-Compress-Raw-Bzip2/vendor/bzip2-src/compress.c
+++ /dev/null
@@ -1,672 +0,0 @@
-
-/*-------------------------------------------------------------*/
-/*--- Compression machinery (not incl block sorting) ---*/
-/*--- compress.c ---*/
-/*-------------------------------------------------------------*/
-
-/* ------------------------------------------------------------------
- This file is part of bzip2/libbzip2, a program and library for
- lossless, block-sorting data compression.
-
- bzip2/libbzip2 version 1.0.5 of 10 December 2007
- Copyright (C) 1996-2007 Julian Seward <jseward at bzip.org>
-
- Please read the WARNING, DISCLAIMER and PATENTS sections in the
- README file.
-
- This program is released under the terms of the license contained
- in the file LICENSE.
- ------------------------------------------------------------------ */
-
-
-/* CHANGES
- 0.9.0 -- original version.
- 0.9.0a/b -- no changes in this file.
- 0.9.0c -- changed setting of nGroups in sendMTFValues()
- so as to do a bit better on small files
-*/
-
-#include "bzlib_private.h"
-
-
-/*---------------------------------------------------*/
-/*--- Bit stream I/O ---*/
-/*---------------------------------------------------*/
-
-/*---------------------------------------------------*/
-void BZ2_bsInitWrite ( EState* s )
-{
- s->bsLive = 0;
- s->bsBuff = 0;
-}
-
-
-/*---------------------------------------------------*/
-static
-void bsFinishWrite ( EState* s )
-{
- while (s->bsLive > 0) {
- s->zbits[s->numZ] = (UChar)(s->bsBuff >> 24);
- s->numZ++;
- s->bsBuff <<= 8;
- s->bsLive -= 8;
- }
-}
-
-
-/*---------------------------------------------------*/
-#define bsNEEDW(nz) \
-{ \
- while (s->bsLive >= 8) { \
- s->zbits[s->numZ] \
- = (UChar)(s->bsBuff >> 24); \
- s->numZ++; \
- s->bsBuff <<= 8; \
- s->bsLive -= 8; \
- } \
-}
-
-
-/*---------------------------------------------------*/
-static
-__inline__
-void bsW ( EState* s, Int32 n, UInt32 v )
-{
- bsNEEDW ( n );
- s->bsBuff |= (v << (32 - s->bsLive - n));
- s->bsLive += n;
-}
-
-
-/*---------------------------------------------------*/
-static
-void bsPutUInt32 ( EState* s, UInt32 u )
-{
- bsW ( s, 8, (u >> 24) & 0xffL );
- bsW ( s, 8, (u >> 16) & 0xffL );
- bsW ( s, 8, (u >> 8) & 0xffL );
- bsW ( s, 8, u & 0xffL );
-}
-
-
-/*---------------------------------------------------*/
-static
-void bsPutUChar ( EState* s, UChar c )
-{
- bsW( s, 8, (UInt32)c );
-}
-
-
-/*---------------------------------------------------*/
-/*--- The back end proper ---*/
-/*---------------------------------------------------*/
-
-/*---------------------------------------------------*/
-static
-void makeMaps_e ( EState* s )
-{
- Int32 i;
- s->nInUse = 0;
- for (i = 0; i < 256; i++)
- if (s->inUse[i]) {
- s->unseqToSeq[i] = s->nInUse;
- s->nInUse++;
- }
-}
-
-
-/*---------------------------------------------------*/
-static
-void generateMTFValues ( EState* s )
-{
- UChar yy[256];
- Int32 i, j;
- Int32 zPend;
- Int32 wr;
- Int32 EOB;
-
- /*
- After sorting (eg, here),
- s->arr1 [ 0 .. s->nblock-1 ] holds sorted order,
- and
- ((UChar*)s->arr2) [ 0 .. s->nblock-1 ]
- holds the original block data.
-
- The first thing to do is generate the MTF values,
- and put them in
- ((UInt16*)s->arr1) [ 0 .. s->nblock-1 ].
- Because there are strictly fewer or equal MTF values
- than block values, ptr values in this area are overwritten
- with MTF values only when they are no longer needed.
-
- The final compressed bitstream is generated into the
- area starting at
- (UChar*) (&((UChar*)s->arr2)[s->nblock])
-
- These storage aliases are set up in bzCompressInit(),
- except for the last one, which is arranged in
- compressBlock().
- */
- UInt32* ptr = s->ptr;
- UChar* block = s->block;
- UInt16* mtfv = s->mtfv;
-
- makeMaps_e ( s );
- EOB = s->nInUse+1;
-
- for (i = 0; i <= EOB; i++) s->mtfFreq[i] = 0;
-
- wr = 0;
- zPend = 0;
- for (i = 0; i < s->nInUse; i++) yy[i] = (UChar) i;
-
- for (i = 0; i < s->nblock; i++) {
- UChar ll_i;
- AssertD ( wr <= i, "generateMTFValues(1)" );
- j = ptr[i]-1; if (j < 0) j += s->nblock;
- ll_i = s->unseqToSeq[block[j]];
- AssertD ( ll_i < s->nInUse, "generateMTFValues(2a)" );
-
- if (yy[0] == ll_i) {
- zPend++;
- } else {
-
- if (zPend > 0) {
- zPend--;
- while (True) {
- if (zPend & 1) {
- mtfv[wr] = BZ_RUNB; wr++;
- s->mtfFreq[BZ_RUNB]++;
- } else {
- mtfv[wr] = BZ_RUNA; wr++;
- s->mtfFreq[BZ_RUNA]++;
- }
- if (zPend < 2) break;
- zPend = (zPend - 2) / 2;
- };
- zPend = 0;
- }
- {
- register UChar rtmp;
- register UChar* ryy_j;
- register UChar rll_i;
- rtmp = yy[1];
- yy[1] = yy[0];
- ryy_j = &(yy[1]);
- rll_i = ll_i;
- while ( rll_i != rtmp ) {
- register UChar rtmp2;
- ryy_j++;
- rtmp2 = rtmp;
- rtmp = *ryy_j;
- *ryy_j = rtmp2;
- };
- yy[0] = rtmp;
- j = ryy_j - &(yy[0]);
- mtfv[wr] = j+1; wr++; s->mtfFreq[j+1]++;
- }
-
- }
- }
-
- if (zPend > 0) {
- zPend--;
- while (True) {
- if (zPend & 1) {
- mtfv[wr] = BZ_RUNB; wr++;
- s->mtfFreq[BZ_RUNB]++;
- } else {
- mtfv[wr] = BZ_RUNA; wr++;
- s->mtfFreq[BZ_RUNA]++;
- }
- if (zPend < 2) break;
- zPend = (zPend - 2) / 2;
- };
- zPend = 0;
- }
-
- mtfv[wr] = EOB; wr++; s->mtfFreq[EOB]++;
-
- s->nMTF = wr;
-}
-
-
-/*---------------------------------------------------*/
-#define BZ_LESSER_ICOST 0
-#define BZ_GREATER_ICOST 15
-
-static
-void sendMTFValues ( EState* s )
-{
- Int32 v, t, i, j, gs, ge, totc, bt, bc, iter;
- Int32 nSelectors, alphaSize, minLen, maxLen, selCtr;
- Int32 nGroups, nBytes;
-
- /*--
- UChar len [BZ_N_GROUPS][BZ_MAX_ALPHA_SIZE];
- is a global since the decoder also needs it.
-
- Int32 code[BZ_N_GROUPS][BZ_MAX_ALPHA_SIZE];
- Int32 rfreq[BZ_N_GROUPS][BZ_MAX_ALPHA_SIZE];
- are also globals only used in this proc.
- Made global to keep stack frame size small.
- --*/
-
-
- UInt16 cost[BZ_N_GROUPS];
- Int32 fave[BZ_N_GROUPS];
-
- UInt16* mtfv = s->mtfv;
-
- if (s->verbosity >= 3)
- VPrintf3( " %d in block, %d after MTF & 1-2 coding, "
- "%d+2 syms in use\n",
- s->nblock, s->nMTF, s->nInUse );
-
- alphaSize = s->nInUse+2;
- for (t = 0; t < BZ_N_GROUPS; t++)
- for (v = 0; v < alphaSize; v++)
- s->len[t][v] = BZ_GREATER_ICOST;
-
- /*--- Decide how many coding tables to use ---*/
- AssertH ( s->nMTF > 0, 3001 );
- if (s->nMTF < 200) nGroups = 2; else
- if (s->nMTF < 600) nGroups = 3; else
- if (s->nMTF < 1200) nGroups = 4; else
- if (s->nMTF < 2400) nGroups = 5; else
- nGroups = 6;
-
- /*--- Generate an initial set of coding tables ---*/
- {
- Int32 nPart, remF, tFreq, aFreq;
-
- nPart = nGroups;
- remF = s->nMTF;
- gs = 0;
- while (nPart > 0) {
- tFreq = remF / nPart;
- ge = gs-1;
- aFreq = 0;
- while (aFreq < tFreq && ge < alphaSize-1) {
- ge++;
- aFreq += s->mtfFreq[ge];
- }
-
- if (ge > gs
- && nPart != nGroups && nPart != 1
- && ((nGroups-nPart) % 2 == 1)) {
- aFreq -= s->mtfFreq[ge];
- ge--;
- }
-
- if (s->verbosity >= 3)
- VPrintf5( " initial group %d, [%d .. %d], "
- "has %d syms (%4.1f%%)\n",
- nPart, gs, ge, aFreq,
- (100.0 * (float)aFreq) / (float)(s->nMTF) );
-
- for (v = 0; v < alphaSize; v++)
- if (v >= gs && v <= ge)
- s->len[nPart-1][v] = BZ_LESSER_ICOST; else
- s->len[nPart-1][v] = BZ_GREATER_ICOST;
-
- nPart--;
- gs = ge+1;
- remF -= aFreq;
- }
- }
-
- /*---
- Iterate up to BZ_N_ITERS times to improve the tables.
- ---*/
- for (iter = 0; iter < BZ_N_ITERS; iter++) {
-
- for (t = 0; t < nGroups; t++) fave[t] = 0;
-
- for (t = 0; t < nGroups; t++)
- for (v = 0; v < alphaSize; v++)
- s->rfreq[t][v] = 0;
-
- /*---
- Set up an auxiliary length table which is used to fast-track
- the common case (nGroups == 6).
- ---*/
- if (nGroups == 6) {
- for (v = 0; v < alphaSize; v++) {
- s->len_pack[v][0] = (s->len[1][v] << 16) | s->len[0][v];
- s->len_pack[v][1] = (s->len[3][v] << 16) | s->len[2][v];
- s->len_pack[v][2] = (s->len[5][v] << 16) | s->len[4][v];
- }
- }
-
- nSelectors = 0;
- totc = 0;
- gs = 0;
- while (True) {
-
- /*--- Set group start & end marks. --*/
- if (gs >= s->nMTF) break;
- ge = gs + BZ_G_SIZE - 1;
- if (ge >= s->nMTF) ge = s->nMTF-1;
-
- /*--
- Calculate the cost of this group as coded
- by each of the coding tables.
- --*/
- for (t = 0; t < nGroups; t++) cost[t] = 0;
-
- if (nGroups == 6 && 50 == ge-gs+1) {
- /*--- fast track the common case ---*/
- register UInt32 cost01, cost23, cost45;
- register UInt16 icv;
- cost01 = cost23 = cost45 = 0;
-
-# define BZ_ITER(nn) \
- icv = mtfv[gs+(nn)]; \
- cost01 += s->len_pack[icv][0]; \
- cost23 += s->len_pack[icv][1]; \
- cost45 += s->len_pack[icv][2]; \
-
- BZ_ITER(0); BZ_ITER(1); BZ_ITER(2); BZ_ITER(3); BZ_ITER(4);
- BZ_ITER(5); BZ_ITER(6); BZ_ITER(7); BZ_ITER(8); BZ_ITER(9);
- BZ_ITER(10); BZ_ITER(11); BZ_ITER(12); BZ_ITER(13); BZ_ITER(14);
- BZ_ITER(15); BZ_ITER(16); BZ_ITER(17); BZ_ITER(18); BZ_ITER(19);
- BZ_ITER(20); BZ_ITER(21); BZ_ITER(22); BZ_ITER(23); BZ_ITER(24);
- BZ_ITER(25); BZ_ITER(26); BZ_ITER(27); BZ_ITER(28); BZ_ITER(29);
- BZ_ITER(30); BZ_ITER(31); BZ_ITER(32); BZ_ITER(33); BZ_ITER(34);
- BZ_ITER(35); BZ_ITER(36); BZ_ITER(37); BZ_ITER(38); BZ_ITER(39);
- BZ_ITER(40); BZ_ITER(41); BZ_ITER(42); BZ_ITER(43); BZ_ITER(44);
- BZ_ITER(45); BZ_ITER(46); BZ_ITER(47); BZ_ITER(48); BZ_ITER(49);
-
-# undef BZ_ITER
-
- cost[0] = cost01 & 0xffff; cost[1] = cost01 >> 16;
- cost[2] = cost23 & 0xffff; cost[3] = cost23 >> 16;
- cost[4] = cost45 & 0xffff; cost[5] = cost45 >> 16;
-
- } else {
- /*--- slow version which correctly handles all situations ---*/
- for (i = gs; i <= ge; i++) {
- UInt16 icv = mtfv[i];
- for (t = 0; t < nGroups; t++) cost[t] += s->len[t][icv];
- }
- }
-
- /*--
- Find the coding table which is best for this group,
- and record its identity in the selector table.
- --*/
- bc = 999999999; bt = -1;
- for (t = 0; t < nGroups; t++)
- if (cost[t] < bc) { bc = cost[t]; bt = t; };
- totc += bc;
- fave[bt]++;
- s->selector[nSelectors] = bt;
- nSelectors++;
-
- /*--
- Increment the symbol frequencies for the selected table.
- --*/
- if (nGroups == 6 && 50 == ge-gs+1) {
- /*--- fast track the common case ---*/
-
-# define BZ_ITUR(nn) s->rfreq[bt][ mtfv[gs+(nn)] ]++
-
- BZ_ITUR(0); BZ_ITUR(1); BZ_ITUR(2); BZ_ITUR(3); BZ_ITUR(4);
- BZ_ITUR(5); BZ_ITUR(6); BZ_ITUR(7); BZ_ITUR(8); BZ_ITUR(9);
- BZ_ITUR(10); BZ_ITUR(11); BZ_ITUR(12); BZ_ITUR(13); BZ_ITUR(14);
- BZ_ITUR(15); BZ_ITUR(16); BZ_ITUR(17); BZ_ITUR(18); BZ_ITUR(19);
- BZ_ITUR(20); BZ_ITUR(21); BZ_ITUR(22); BZ_ITUR(23); BZ_ITUR(24);
- BZ_ITUR(25); BZ_ITUR(26); BZ_ITUR(27); BZ_ITUR(28); BZ_ITUR(29);
- BZ_ITUR(30); BZ_ITUR(31); BZ_ITUR(32); BZ_ITUR(33); BZ_ITUR(34);
- BZ_ITUR(35); BZ_ITUR(36); BZ_ITUR(37); BZ_ITUR(38); BZ_ITUR(39);
- BZ_ITUR(40); BZ_ITUR(41); BZ_ITUR(42); BZ_ITUR(43); BZ_ITUR(44);
- BZ_ITUR(45); BZ_ITUR(46); BZ_ITUR(47); BZ_ITUR(48); BZ_ITUR(49);
-
-# undef BZ_ITUR
-
- } else {
- /*--- slow version which correctly handles all situations ---*/
- for (i = gs; i <= ge; i++)
- s->rfreq[bt][ mtfv[i] ]++;
- }
-
- gs = ge+1;
- }
- if (s->verbosity >= 3) {
- VPrintf2 ( " pass %d: size is %d, grp uses are ",
- iter+1, totc/8 );
- for (t = 0; t < nGroups; t++)
- VPrintf1 ( "%d ", fave[t] );
- VPrintf0 ( "\n" );
- }
-
- /*--
- Recompute the tables based on the accumulated frequencies.
- --*/
- /* maxLen was changed from 20 to 17 in bzip2-1.0.3. See
- comment in huffman.c for details. */
- for (t = 0; t < nGroups; t++)
- BZ2_hbMakeCodeLengths ( &(s->len[t][0]), &(s->rfreq[t][0]),
- alphaSize, 17 /*20*/ );
- }
-
-
- AssertH( nGroups < 8, 3002 );
- AssertH( nSelectors < 32768 &&
- nSelectors <= (2 + (900000 / BZ_G_SIZE)),
- 3003 );
-
-
- /*--- Compute MTF values for the selectors. ---*/
- {
- UChar pos[BZ_N_GROUPS], ll_i, tmp2, tmp;
- for (i = 0; i < nGroups; i++) pos[i] = i;
- for (i = 0; i < nSelectors; i++) {
- ll_i = s->selector[i];
- j = 0;
- tmp = pos[j];
- while ( ll_i != tmp ) {
- j++;
- tmp2 = tmp;
- tmp = pos[j];
- pos[j] = tmp2;
- };
- pos[0] = tmp;
- s->selectorMtf[i] = j;
- }
- };
-
- /*--- Assign actual codes for the tables. --*/
- for (t = 0; t < nGroups; t++) {
- minLen = 32;
- maxLen = 0;
- for (i = 0; i < alphaSize; i++) {
- if (s->len[t][i] > maxLen) maxLen = s->len[t][i];
- if (s->len[t][i] < minLen) minLen = s->len[t][i];
- }
- AssertH ( !(maxLen > 17 /*20*/ ), 3004 );
- AssertH ( !(minLen < 1), 3005 );
- BZ2_hbAssignCodes ( &(s->code[t][0]), &(s->len[t][0]),
- minLen, maxLen, alphaSize );
- }
-
- /*--- Transmit the mapping table. ---*/
- {
- Bool inUse16[16];
- for (i = 0; i < 16; i++) {
- inUse16[i] = False;
- for (j = 0; j < 16; j++)
- if (s->inUse[i * 16 + j]) inUse16[i] = True;
- }
-
- nBytes = s->numZ;
- for (i = 0; i < 16; i++)
- if (inUse16[i]) bsW(s,1,1); else bsW(s,1,0);
-
- for (i = 0; i < 16; i++)
- if (inUse16[i])
- for (j = 0; j < 16; j++) {
- if (s->inUse[i * 16 + j]) bsW(s,1,1); else bsW(s,1,0);
- }
-
- if (s->verbosity >= 3)
- VPrintf1( " bytes: mapping %d, ", s->numZ-nBytes );
- }
-
- /*--- Now the selectors. ---*/
- nBytes = s->numZ;
- bsW ( s, 3, nGroups );
- bsW ( s, 15, nSelectors );
- for (i = 0; i < nSelectors; i++) {
- for (j = 0; j < s->selectorMtf[i]; j++) bsW(s,1,1);
- bsW(s,1,0);
- }
- if (s->verbosity >= 3)
- VPrintf1( "selectors %d, ", s->numZ-nBytes );
-
- /*--- Now the coding tables. ---*/
- nBytes = s->numZ;
-
- for (t = 0; t < nGroups; t++) {
- Int32 curr = s->len[t][0];
- bsW ( s, 5, curr );
- for (i = 0; i < alphaSize; i++) {
- while (curr < s->len[t][i]) { bsW(s,2,2); curr++; /* 10 */ };
- while (curr > s->len[t][i]) { bsW(s,2,3); curr--; /* 11 */ };
- bsW ( s, 1, 0 );
- }
- }
-
- if (s->verbosity >= 3)
- VPrintf1 ( "code lengths %d, ", s->numZ-nBytes );
-
- /*--- And finally, the block data proper ---*/
- nBytes = s->numZ;
- selCtr = 0;
- gs = 0;
- while (True) {
- if (gs >= s->nMTF) break;
- ge = gs + BZ_G_SIZE - 1;
- if (ge >= s->nMTF) ge = s->nMTF-1;
- AssertH ( s->selector[selCtr] < nGroups, 3006 );
-
- if (nGroups == 6 && 50 == ge-gs+1) {
- /*--- fast track the common case ---*/
- UInt16 mtfv_i;
- UChar* s_len_sel_selCtr
- = &(s->len[s->selector[selCtr]][0]);
- Int32* s_code_sel_selCtr
- = &(s->code[s->selector[selCtr]][0]);
-
-# define BZ_ITAH(nn) \
- mtfv_i = mtfv[gs+(nn)]; \
- bsW ( s, \
- s_len_sel_selCtr[mtfv_i], \
- s_code_sel_selCtr[mtfv_i] )
-
- BZ_ITAH(0); BZ_ITAH(1); BZ_ITAH(2); BZ_ITAH(3); BZ_ITAH(4);
- BZ_ITAH(5); BZ_ITAH(6); BZ_ITAH(7); BZ_ITAH(8); BZ_ITAH(9);
- BZ_ITAH(10); BZ_ITAH(11); BZ_ITAH(12); BZ_ITAH(13); BZ_ITAH(14);
- BZ_ITAH(15); BZ_ITAH(16); BZ_ITAH(17); BZ_ITAH(18); BZ_ITAH(19);
- BZ_ITAH(20); BZ_ITAH(21); BZ_ITAH(22); BZ_ITAH(23); BZ_ITAH(24);
- BZ_ITAH(25); BZ_ITAH(26); BZ_ITAH(27); BZ_ITAH(28); BZ_ITAH(29);
- BZ_ITAH(30); BZ_ITAH(31); BZ_ITAH(32); BZ_ITAH(33); BZ_ITAH(34);
- BZ_ITAH(35); BZ_ITAH(36); BZ_ITAH(37); BZ_ITAH(38); BZ_ITAH(39);
- BZ_ITAH(40); BZ_ITAH(41); BZ_ITAH(42); BZ_ITAH(43); BZ_ITAH(44);
- BZ_ITAH(45); BZ_ITAH(46); BZ_ITAH(47); BZ_ITAH(48); BZ_ITAH(49);
-
-# undef BZ_ITAH
-
- } else {
- /*--- slow version which correctly handles all situations ---*/
- for (i = gs; i <= ge; i++) {
- bsW ( s,
- s->len [s->selector[selCtr]] [mtfv[i]],
- s->code [s->selector[selCtr]] [mtfv[i]] );
- }
- }
-
-
- gs = ge+1;
- selCtr++;
- }
- AssertH( selCtr == nSelectors, 3007 );
-
- if (s->verbosity >= 3)
- VPrintf1( "codes %d\n", s->numZ-nBytes );
-}
-
-
-/*---------------------------------------------------*/
-void BZ2_compressBlock ( EState* s, Bool is_last_block )
-{
- if (s->nblock > 0) {
-
- BZ_FINALISE_CRC ( s->blockCRC );
- s->combinedCRC = (s->combinedCRC << 1) | (s->combinedCRC >> 31);
- s->combinedCRC ^= s->blockCRC;
- if (s->blockNo > 1) s->numZ = 0;
-
- if (s->verbosity >= 2)
- VPrintf4( " block %d: crc = 0x%08x, "
- "combined CRC = 0x%08x, size = %d\n",
- s->blockNo, s->blockCRC, s->combinedCRC, s->nblock );
-
- BZ2_blockSort ( s );
- }
-
- s->zbits = (UChar*) (&((UChar*)s->arr2)[s->nblock]);
-
- /*-- If this is the first block, create the stream header. --*/
- if (s->blockNo == 1) {
- BZ2_bsInitWrite ( s );
- bsPutUChar ( s, BZ_HDR_B );
- bsPutUChar ( s, BZ_HDR_Z );
- bsPutUChar ( s, BZ_HDR_h );
- bsPutUChar ( s, (UChar)(BZ_HDR_0 + s->blockSize100k) );
- }
-
- if (s->nblock > 0) {
-
- bsPutUChar ( s, 0x31 ); bsPutUChar ( s, 0x41 );
- bsPutUChar ( s, 0x59 ); bsPutUChar ( s, 0x26 );
- bsPutUChar ( s, 0x53 ); bsPutUChar ( s, 0x59 );
-
- /*-- Now the block's CRC, so it is in a known place. --*/
- bsPutUInt32 ( s, s->blockCRC );
-
- /*--
- Now a single bit indicating (non-)randomisation.
- As of version 0.9.5, we use a better sorting algorithm
- which makes randomisation unnecessary. So always set
- the randomised bit to 'no'. Of course, the decoder
- still needs to be able to handle randomised blocks
- so as to maintain backwards compatibility with
- older versions of bzip2.
- --*/
- bsW(s,1,0);
-
- bsW ( s, 24, s->origPtr );
- generateMTFValues ( s );
- sendMTFValues ( s );
- }
-
-
- /*-- If this is the last block, add the stream trailer. --*/
- if (is_last_block) {
-
- bsPutUChar ( s, 0x17 ); bsPutUChar ( s, 0x72 );
- bsPutUChar ( s, 0x45 ); bsPutUChar ( s, 0x38 );
- bsPutUChar ( s, 0x50 ); bsPutUChar ( s, 0x90 );
- bsPutUInt32 ( s, s->combinedCRC );
- if (s->verbosity >= 2)
- VPrintf1( " final combined CRC = 0x%08x\n ", s->combinedCRC );
- bsFinishWrite ( s );
- }
-}
-
-
-/*-------------------------------------------------------------*/
-/*--- end compress.c ---*/
-/*-------------------------------------------------------------*/
diff --git a/3.8.8/sources/cpan-Compress-Raw-Zlib/vendor/t/09limitoutput.t b/3.8.8/sources/cpan-Compress-Raw-Zlib/vendor/t/09limitoutput.t
deleted file mode 100644
index a98b18f..0000000
--- a/3.8.8/sources/cpan-Compress-Raw-Zlib/vendor/t/09limitoutput.t
+++ /dev/null
@@ -1,129 +0,0 @@
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = ("../lib", "lib/compress");
- }
-}
-
-use lib qw(t t/compress);
-use strict;
-use warnings;
-use bytes;
-
-use Test::More ;
-use CompTestUtils;
-
-BEGIN
-{
- # use Test::NoWarnings, if available
- my $extra = 0 ;
- $extra = 1
- if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 };
-
- plan tests => 98 + $extra ;
-
- use_ok('Compress::Raw::Zlib', 2) ;
-}
-
-
-
-my $hello = "I am a HAL 9000 computer" x 2001;
-my $tmp = $hello ;
-
-my ($err, $x, $X, $status);
-
-ok( ($x, $err) = new Compress::Raw::Zlib::Deflate (-AppendOutput => 1));
-ok $x ;
-cmp_ok $err, '==', Z_OK, " status is Z_OK" ;
-
-my $out ;
-$status = $x->deflate($tmp, $out) ;
-cmp_ok $status, '==', Z_OK, " status is Z_OK" ;
-
-cmp_ok $x->flush($out), '==', Z_OK, " flush returned Z_OK" ;
-
-
-sub getOut { my $x = ''; return \$x }
-
-for my $bufsize (1, 2, 3, 13, 4096, 1024*10)
-{
- print "#\n#Bufsize $bufsize\n#\n";
- $tmp = $out;
-
- my $k;
- ok(($k, $err) = new Compress::Raw::Zlib::Inflate( AppendOutput => 1,
- LimitOutput => 1,
- Bufsize => $bufsize
- ));
- ok $k ;
- cmp_ok $err, '==', Z_OK, " status is Z_OK" ;
-
- ok ! defined $k->msg(), " no msg" ;
- is $k->total_in(), 0, " total_in == 0" ;
- is $k->total_out(), 0, " total_out == 0" ;
- my $GOT = getOut();
- my $prev;
- my $deltaOK = 1;
- my $looped = 0;
- while (length $tmp)
- {
- ++ $looped;
- my $prev = length $GOT;
- $status = $k->inflate($tmp, $GOT) ;
- last if $status == Z_STREAM_END || $status == Z_DATA_ERROR || $status == Z_STREAM_ERROR ;
- $deltaOK = 0 if length($GOT) - $prev > $bufsize;
- }
-
- ok $deltaOK, " Output Delta never > $bufsize";
- cmp_ok $looped, '>=', 1, " looped $looped";
- is length($tmp), 0, " length of input buffer is zero";
-
- cmp_ok $status, '==', Z_STREAM_END, " status is Z_STREAM_END" ;
- is $$GOT, $hello, " got expected output" ;
- ok ! defined $k->msg(), " no msg" ;
- is $k->total_in(), length $out, " length total_in ok" ;
- is $k->total_out(), length $hello, " length total_out ok " . $k->total_out() ;
-}
-
-sub getit
-{
- my $obj = shift ;
- my $input = shift;
-
- my $data ;
- 1 while $obj->inflate($input, $data) != Z_STREAM_END ;
- return \$data ;
-}
-
-{
- title "regression test";
-
- my ($err, $x, $X, $status);
-
- ok( ($x, $err) = new Compress::Raw::Zlib::Deflate (-AppendOutput => 1));
- ok $x ;
- cmp_ok $err, '==', Z_OK, " status is Z_OK" ;
-
- my $line1 = ("abcdefghijklmnopq" x 1000) . "\n" ;
- my $line2 = "second line\n" ;
- my $text = $line1 . $line2 ;
- my $tmp = $text;
-
- my $out ;
- $status = $x->deflate($tmp, $out) ;
- cmp_ok $status, '==', Z_OK, " status is Z_OK" ;
-
- cmp_ok $x->flush($out), '==', Z_OK, " flush returned Z_OK" ;
-
- my $k;
- ok(($k, $err) = new Compress::Raw::Zlib::Inflate( AppendOutput => 1,
- LimitOutput => 1
- ));
-
-
- my $c = getit($k, $out);
- is $$c, $text;
-
-
-}
-
diff --git a/3.8.8/sources/cpan-Compress-Raw-Zlib/vendor/zlib-src/adler32.c b/3.8.8/sources/cpan-Compress-Raw-Zlib/vendor/zlib-src/adler32.c
deleted file mode 100644
index 65ad6a5..0000000
--- a/3.8.8/sources/cpan-Compress-Raw-Zlib/vendor/zlib-src/adler32.c
+++ /dev/null
@@ -1,169 +0,0 @@
-/* adler32.c -- compute the Adler-32 checksum of a data stream
- * Copyright (C) 1995-2007 Mark Adler
- * For conditions of distribution and use, see copyright notice in zlib.h
- */
-
-/* @(#) $Id$ */
-
-#include "zutil.h"
-
-#define local static
-
-local uLong adler32_combine_(uLong adler1, uLong adler2, z_off64_t len2);
-
-#define BASE 65521UL /* largest prime smaller than 65536 */
-#define NMAX 5552
-/* NMAX is the largest n such that 255n(n+1)/2 + (n+1)(BASE-1) <= 2^32-1 */
-
-#define DO1(buf,i) {adler += (buf)[i]; sum2 += adler;}
-#define DO2(buf,i) DO1(buf,i); DO1(buf,i+1);
-#define DO4(buf,i) DO2(buf,i); DO2(buf,i+2);
-#define DO8(buf,i) DO4(buf,i); DO4(buf,i+4);
-#define DO16(buf) DO8(buf,0); DO8(buf,8);
-
-/* use NO_DIVIDE if your processor does not do division in hardware */
-#ifdef NO_DIVIDE
-# define MOD(a) \
- do { \
- if (a >= (BASE << 16)) a -= (BASE << 16); \
- if (a >= (BASE << 15)) a -= (BASE << 15); \
- if (a >= (BASE << 14)) a -= (BASE << 14); \
- if (a >= (BASE << 13)) a -= (BASE << 13); \
- if (a >= (BASE << 12)) a -= (BASE << 12); \
- if (a >= (BASE << 11)) a -= (BASE << 11); \
- if (a >= (BASE << 10)) a -= (BASE << 10); \
- if (a >= (BASE << 9)) a -= (BASE << 9); \
- if (a >= (BASE << 8)) a -= (BASE << 8); \
- if (a >= (BASE << 7)) a -= (BASE << 7); \
- if (a >= (BASE << 6)) a -= (BASE << 6); \
- if (a >= (BASE << 5)) a -= (BASE << 5); \
- if (a >= (BASE << 4)) a -= (BASE << 4); \
- if (a >= (BASE << 3)) a -= (BASE << 3); \
- if (a >= (BASE << 2)) a -= (BASE << 2); \
- if (a >= (BASE << 1)) a -= (BASE << 1); \
- if (a >= BASE) a -= BASE; \
- } while (0)
-# define MOD4(a) \
- do { \
- if (a >= (BASE << 4)) a -= (BASE << 4); \
- if (a >= (BASE << 3)) a -= (BASE << 3); \
- if (a >= (BASE << 2)) a -= (BASE << 2); \
- if (a >= (BASE << 1)) a -= (BASE << 1); \
- if (a >= BASE) a -= BASE; \
- } while (0)
-#else
-# define MOD(a) a %= BASE
-# define MOD4(a) a %= BASE
-#endif
-
-/* ========================================================================= */
-uLong ZEXPORT adler32(adler, buf, len)
- uLong adler;
- const Bytef *buf;
- uInt len;
-{
- unsigned long sum2;
- unsigned n;
-
- /* split Adler-32 into component sums */
- sum2 = (adler >> 16) & 0xffff;
- adler &= 0xffff;
-
- /* in case user likes doing a byte at a time, keep it fast */
- if (len == 1) {
- adler += buf[0];
- if (adler >= BASE)
- adler -= BASE;
- sum2 += adler;
- if (sum2 >= BASE)
- sum2 -= BASE;
- return adler | (sum2 << 16);
- }
-
- /* initial Adler-32 value (deferred check for len == 1 speed) */
- if (buf == Z_NULL)
- return 1L;
-
- /* in case short lengths are provided, keep it somewhat fast */
- if (len < 16) {
- while (len--) {
- adler += *buf++;
- sum2 += adler;
- }
- if (adler >= BASE)
- adler -= BASE;
- MOD4(sum2); /* only added so many BASE's */
- return adler | (sum2 << 16);
- }
-
- /* do length NMAX blocks -- requires just one modulo operation */
- while (len >= NMAX) {
- len -= NMAX;
- n = NMAX / 16; /* NMAX is divisible by 16 */
- do {
- DO16(buf); /* 16 sums unrolled */
- buf += 16;
- } while (--n);
- MOD(adler);
- MOD(sum2);
- }
-
- /* do remaining bytes (less than NMAX, still just one modulo) */
- if (len) { /* avoid modulos if none remaining */
- while (len >= 16) {
- len -= 16;
- DO16(buf);
- buf += 16;
- }
- while (len--) {
- adler += *buf++;
- sum2 += adler;
- }
- MOD(adler);
- MOD(sum2);
- }
-
- /* return recombined sums */
- return adler | (sum2 << 16);
-}
-
-/* ========================================================================= */
-local uLong adler32_combine_(adler1, adler2, len2)
- uLong adler1;
- uLong adler2;
- z_off64_t len2;
-{
- unsigned long sum1;
- unsigned long sum2;
- unsigned rem;
-
- /* the derivation of this formula is left as an exercise for the reader */
- rem = (unsigned)(len2 % BASE);
- sum1 = adler1 & 0xffff;
- sum2 = rem * sum1;
- MOD(sum2);
- sum1 += (adler2 & 0xffff) + BASE - 1;
- sum2 += ((adler1 >> 16) & 0xffff) + ((adler2 >> 16) & 0xffff) + BASE - rem;
- if (sum1 >= BASE) sum1 -= BASE;
- if (sum1 >= BASE) sum1 -= BASE;
- if (sum2 >= (BASE << 1)) sum2 -= (BASE << 1);
- if (sum2 >= BASE) sum2 -= BASE;
- return sum1 | (sum2 << 16);
-}
-
-/* ========================================================================= */
-uLong ZEXPORT adler32_combine(adler1, adler2, len2)
- uLong adler1;
- uLong adler2;
- z_off_t len2;
-{
- return adler32_combine_(adler1, adler2, len2);
-}
-
-uLong ZEXPORT adler32_combine64(adler1, adler2, len2)
- uLong adler1;
- uLong adler2;
- z_off64_t len2;
-{
- return adler32_combine_(adler1, adler2, len2);
-}
diff --git a/3.8.8/sources/cpan-Compress-Raw-Zlib/vendor/zlib-src/inflate.c b/3.8.8/sources/cpan-Compress-Raw-Zlib/vendor/zlib-src/inflate.c
deleted file mode 100644
index a8431ab..0000000
--- a/3.8.8/sources/cpan-Compress-Raw-Zlib/vendor/zlib-src/inflate.c
+++ /dev/null
@@ -1,1480 +0,0 @@
-/* inflate.c -- zlib decompression
- * Copyright (C) 1995-2010 Mark Adler
- * For conditions of distribution and use, see copyright notice in zlib.h
- */
-
-/*
- * Change history:
- *
- * 1.2.beta0 24 Nov 2002
- * - First version -- complete rewrite of inflate to simplify code, avoid
- * creation of window when not needed, minimize use of window when it is
- * needed, make inffast.c even faster, implement gzip decoding, and to
- * improve code readability and style over the previous zlib inflate code
- *
- * 1.2.beta1 25 Nov 2002
- * - Use pointers for available input and output checking in inffast.c
- * - Remove input and output counters in inffast.c
- * - Change inffast.c entry and loop from avail_in >= 7 to >= 6
- * - Remove unnecessary second byte pull from length extra in inffast.c
- * - Unroll direct copy to three copies per loop in inffast.c
- *
- * 1.2.beta2 4 Dec 2002
- * - Change external routine names to reduce potential conflicts
- * - Correct filename to inffixed.h for fixed tables in inflate.c
- * - Make hbuf[] unsigned char to match parameter type in inflate.c
- * - Change strm->next_out[-state->offset] to *(strm->next_out - state->offset)
- * to avoid negation problem on Alphas (64 bit) in inflate.c
- *
- * 1.2.beta3 22 Dec 2002
- * - Add comments on state->bits assertion in inffast.c
- * - Add comments on op field in inftrees.h
- * - Fix bug in reuse of allocated window after inflateReset()
- * - Remove bit fields--back to byte structure for speed
- * - Remove distance extra == 0 check in inflate_fast()--only helps for lengths
- * - Change post-increments to pre-increments in inflate_fast(), PPC biased?
- * - Add compile time option, POSTINC, to use post-increments instead (Intel?)
- * - Make MATCH copy in inflate() much faster for when inflate_fast() not used
- * - Use local copies of stream next and avail values, as well as local bit
- * buffer and bit count in inflate()--for speed when inflate_fast() not used
- *
- * 1.2.beta4 1 Jan 2003
- * - Split ptr - 257 statements in inflate_table() to avoid compiler warnings
- * - Move a comment on output buffer sizes from inffast.c to inflate.c
- * - Add comments in inffast.c to introduce the inflate_fast() routine
- * - Rearrange window copies in inflate_fast() for speed and simplification
- * - Unroll last copy for window match in inflate_fast()
- * - Use local copies of window variables in inflate_fast() for speed
- * - Pull out common wnext == 0 case for speed in inflate_fast()
- * - Make op and len in inflate_fast() unsigned for consistency
- * - Add FAR to lcode and dcode declarations in inflate_fast()
- * - Simplified bad distance check in inflate_fast()
- * - Added inflateBackInit(), inflateBack(), and inflateBackEnd() in new
- * source file infback.c to provide a call-back interface to inflate for
- * programs like gzip and unzip -- uses window as output buffer to avoid
- * window copying
- *
- * 1.2.beta5 1 Jan 2003
- * - Improved inflateBack() interface to allow the caller to provide initial
- * input in strm.
- * - Fixed stored blocks bug in inflateBack()
- *
- * 1.2.beta6 4 Jan 2003
- * - Added comments in inffast.c on effectiveness of POSTINC
- * - Typecasting all around to reduce compiler warnings
- * - Changed loops from while (1) or do {} while (1) to for (;;), again to
- * make compilers happy
- * - Changed type of window in inflateBackInit() to unsigned char *
- *
- * 1.2.beta7 27 Jan 2003
- * - Changed many types to unsigned or unsigned short to avoid warnings
- * - Added inflateCopy() function
- *
- * 1.2.0 9 Mar 2003
- * - Changed inflateBack() interface to provide separate opaque descriptors
- * for the in() and out() functions
- * - Changed inflateBack() argument and in_func typedef to swap the length
- * and buffer address return values for the input function
- * - Check next_in and next_out for Z_NULL on entry to inflate()
- *
- * The history for versions after 1.2.0 are in ChangeLog in zlib distribution.
- */
-
-#include "zutil.h"
-#include "inftrees.h"
-#include "inflate.h"
-#include "inffast.h"
-
-#ifdef MAKEFIXED
-# ifndef BUILDFIXED
-# define BUILDFIXED
-# endif
-#endif
-
-/* function prototypes */
-local void fixedtables OF((struct inflate_state FAR *state));
-local int updatewindow OF((z_streamp strm, unsigned out));
-#ifdef BUILDFIXED
- void makefixed OF((void));
-#endif
-local unsigned syncsearch OF((unsigned FAR *have, unsigned char FAR *buf,
- unsigned len));
-
-int ZEXPORT inflateReset(strm)
-z_streamp strm;
-{
- struct inflate_state FAR *state;
-
- if (strm == Z_NULL || strm->state == Z_NULL) return Z_STREAM_ERROR;
- state = (struct inflate_state FAR *)strm->state;
- strm->total_in = strm->total_out = state->total = 0;
- strm->msg = Z_NULL;
- strm->adler = 1; /* to support ill-conceived Java test suite */
- state->mode = HEAD;
- state->last = 0;
- state->havedict = 0;
- state->dmax = 32768U;
- state->head = Z_NULL;
- state->wsize = 0;
- state->whave = 0;
- state->wnext = 0;
- state->hold = 0;
- state->bits = 0;
- state->lencode = state->distcode = state->next = state->codes;
- state->sane = 1;
- state->back = -1;
- Tracev((stderr, "inflate: reset\n"));
- return Z_OK;
-}
-
-int ZEXPORT inflateReset2(strm, windowBits)
-z_streamp strm;
-int windowBits;
-{
- int wrap;
- struct inflate_state FAR *state;
-
- /* get the state */
- if (strm == Z_NULL || strm->state == Z_NULL) return Z_STREAM_ERROR;
- state = (struct inflate_state FAR *)strm->state;
-
- /* extract wrap request from windowBits parameter */
- if (windowBits < 0) {
- wrap = 0;
- windowBits = -windowBits;
- }
- else {
- wrap = (windowBits >> 4) + 1;
-#ifdef GUNZIP
- if (windowBits < 48)
- windowBits &= 15;
-#endif
- }
-
- /* set number of window bits, free window if different */
- if (windowBits && (windowBits < 8 || windowBits > 15))
- return Z_STREAM_ERROR;
- if (state->window != Z_NULL && state->wbits != (unsigned)windowBits) {
- ZFREE(strm, state->window);
- state->window = Z_NULL;
- }
-
- /* update state and reset the rest of it */
- state->wrap = wrap;
- state->wbits = (unsigned)windowBits;
- return inflateReset(strm);
-}
-
-int ZEXPORT inflateInit2_(strm, windowBits, version, stream_size)
-z_streamp strm;
-int windowBits;
-const char *version;
-int stream_size;
-{
- int ret;
- struct inflate_state FAR *state;
-
- if (version == Z_NULL || version[0] != ZLIB_VERSION[0] ||
- stream_size != (int)(sizeof(z_stream)))
- return Z_VERSION_ERROR;
- if (strm == Z_NULL) return Z_STREAM_ERROR;
- strm->msg = Z_NULL; /* in case we return an error */
- if (strm->zalloc == (alloc_func)0) {
- strm->zalloc = zcalloc;
- strm->opaque = (voidpf)0;
- }
- if (strm->zfree == (free_func)0) strm->zfree = zcfree;
- state = (struct inflate_state FAR *)
- ZALLOC(strm, 1, sizeof(struct inflate_state));
- if (state == Z_NULL) return Z_MEM_ERROR;
- Tracev((stderr, "inflate: allocated\n"));
- strm->state = (struct internal_state FAR *)state;
- state->window = Z_NULL;
- ret = inflateReset2(strm, windowBits);
- if (ret != Z_OK) {
- ZFREE(strm, state);
- strm->state = Z_NULL;
- }
- return ret;
-}
-
-int ZEXPORT inflateInit_(strm, version, stream_size)
-z_streamp strm;
-const char *version;
-int stream_size;
-{
- return inflateInit2_(strm, DEF_WBITS, version, stream_size);
-}
-
-int ZEXPORT inflatePrime(strm, bits, value)
-z_streamp strm;
-int bits;
-int value;
-{
- struct inflate_state FAR *state;
-
- if (strm == Z_NULL || strm->state == Z_NULL) return Z_STREAM_ERROR;
- state = (struct inflate_state FAR *)strm->state;
- if (bits < 0) {
- state->hold = 0;
- state->bits = 0;
- return Z_OK;
- }
- if (bits > 16 || state->bits + bits > 32) return Z_STREAM_ERROR;
- value &= (1L << bits) - 1;
- state->hold += value << state->bits;
- state->bits += bits;
- return Z_OK;
-}
-
-/*
- Return state with length and distance decoding tables and index sizes set to
- fixed code decoding. Normally this returns fixed tables from inffixed.h.
- If BUILDFIXED is defined, then instead this routine builds the tables the
- first time it's called, and returns those tables the first time and
- thereafter. This reduces the size of the code by about 2K bytes, in
- exchange for a little execution time. However, BUILDFIXED should not be
- used for threaded applications, since the rewriting of the tables and virgin
- may not be thread-safe.
- */
-local void fixedtables(state)
-struct inflate_state FAR *state;
-{
-#ifdef BUILDFIXED
- static int virgin = 1;
- static code *lenfix, *distfix;
- static code fixed[544];
-
- /* build fixed huffman tables if first call (may not be thread safe) */
- if (virgin) {
- unsigned sym, bits;
- static code *next;
-
- /* literal/length table */
- sym = 0;
- while (sym < 144) state->lens[sym++] = 8;
- while (sym < 256) state->lens[sym++] = 9;
- while (sym < 280) state->lens[sym++] = 7;
- while (sym < 288) state->lens[sym++] = 8;
- next = fixed;
- lenfix = next;
- bits = 9;
- inflate_table(LENS, state->lens, 288, &(next), &(bits), state->work);
-
- /* distance table */
- sym = 0;
- while (sym < 32) state->lens[sym++] = 5;
- distfix = next;
- bits = 5;
- inflate_table(DISTS, state->lens, 32, &(next), &(bits), state->work);
-
- /* do this just once */
- virgin = 0;
- }
-#else /* !BUILDFIXED */
-# include "inffixed.h"
-#endif /* BUILDFIXED */
- state->lencode = lenfix;
- state->lenbits = 9;
- state->distcode = distfix;
- state->distbits = 5;
-}
-
-#ifdef MAKEFIXED
-#include <stdio.h>
-
-/*
- Write out the inffixed.h that is #include'd above. Defining MAKEFIXED also
- defines BUILDFIXED, so the tables are built on the fly. makefixed() writes
- those tables to stdout, which would be piped to inffixed.h. A small program
- can simply call makefixed to do this:
-
- void makefixed(void);
-
- int main(void)
- {
- makefixed();
- return 0;
- }
-
- Then that can be linked with zlib built with MAKEFIXED defined and run:
-
- a.out > inffixed.h
- */
-void makefixed()
-{
- unsigned low, size;
- struct inflate_state state;
-
- fixedtables(&state);
- puts(" /* inffixed.h -- table for decoding fixed codes");
- puts(" * Generated automatically by makefixed().");
- puts(" */");
- puts("");
- puts(" /* WARNING: this file should *not* be used by applications.");
- puts(" It is part of the implementation of this library and is");
- puts(" subject to change. Applications should only use zlib.h.");
- puts(" */");
- puts("");
- size = 1U << 9;
- printf(" static const code lenfix[%u] = {", size);
- low = 0;
- for (;;) {
- if ((low % 7) == 0) printf("\n ");
- printf("{%u,%u,%d}", state.lencode[low].op, state.lencode[low].bits,
- state.lencode[low].val);
- if (++low == size) break;
- putchar(',');
- }
- puts("\n };");
- size = 1U << 5;
- printf("\n static const code distfix[%u] = {", size);
- low = 0;
- for (;;) {
- if ((low % 6) == 0) printf("\n ");
- printf("{%u,%u,%d}", state.distcode[low].op, state.distcode[low].bits,
- state.distcode[low].val);
- if (++low == size) break;
- putchar(',');
- }
- puts("\n };");
-}
-#endif /* MAKEFIXED */
-
-/*
- Update the window with the last wsize (normally 32K) bytes written before
- returning. If window does not exist yet, create it. This is only called
- when a window is already in use, or when output has been written during this
- inflate call, but the end of the deflate stream has not been reached yet.
- It is also called to create a window for dictionary data when a dictionary
- is loaded.
-
- Providing output buffers larger than 32K to inflate() should provide a speed
- advantage, since only the last 32K of output is copied to the sliding window
- upon return from inflate(), and since all distances after the first 32K of
- output will fall in the output data, making match copies simpler and faster.
- The advantage may be dependent on the size of the processor's data caches.
- */
-local int updatewindow(strm, out)
-z_streamp strm;
-unsigned out;
-{
- struct inflate_state FAR *state;
- unsigned copy, dist;
-
- state = (struct inflate_state FAR *)strm->state;
-
- /* if it hasn't been done already, allocate space for the window */
- if (state->window == Z_NULL) {
- state->window = (unsigned char FAR *)
- ZALLOC(strm, 1U << state->wbits,
- sizeof(unsigned char));
- if (state->window == Z_NULL) return 1;
- }
-
- /* if window not in use yet, initialize */
- if (state->wsize == 0) {
- state->wsize = 1U << state->wbits;
- state->wnext = 0;
- state->whave = 0;
- }
-
- /* copy state->wsize or less output bytes into the circular window */
- copy = out - strm->avail_out;
- if (copy >= state->wsize) {
- zmemcpy(state->window, strm->next_out - state->wsize, state->wsize);
- state->wnext = 0;
- state->whave = state->wsize;
- }
- else {
- dist = state->wsize - state->wnext;
- if (dist > copy) dist = copy;
- zmemcpy(state->window + state->wnext, strm->next_out - copy, dist);
- copy -= dist;
- if (copy) {
- zmemcpy(state->window, strm->next_out - copy, copy);
- state->wnext = copy;
- state->whave = state->wsize;
- }
- else {
- state->wnext += dist;
- if (state->wnext == state->wsize) state->wnext = 0;
- if (state->whave < state->wsize) state->whave += dist;
- }
- }
- return 0;
-}
-
-/* Macros for inflate(): */
-
-/* check function to use adler32() for zlib or crc32() for gzip */
-#ifdef GUNZIP
-# define UPDATE(check, buf, len) \
- (state->flags ? crc32(check, buf, len) : adler32(check, buf, len))
-#else
-# define UPDATE(check, buf, len) adler32(check, buf, len)
-#endif
-
-/* check macros for header crc */
-#ifdef GUNZIP
-# define CRC2(check, word) \
- do { \
- hbuf[0] = (unsigned char)(word); \
- hbuf[1] = (unsigned char)((word) >> 8); \
- check = crc32(check, hbuf, 2); \
- } while (0)
-
-# define CRC4(check, word) \
- do { \
- hbuf[0] = (unsigned char)(word); \
- hbuf[1] = (unsigned char)((word) >> 8); \
- hbuf[2] = (unsigned char)((word) >> 16); \
- hbuf[3] = (unsigned char)((word) >> 24); \
- check = crc32(check, hbuf, 4); \
- } while (0)
-#endif
-
-/* Load registers with state in inflate() for speed */
-#define LOAD() \
- do { \
- put = strm->next_out; \
- left = strm->avail_out; \
- next = strm->next_in; \
- have = strm->avail_in; \
- hold = state->hold; \
- bits = state->bits; \
- } while (0)
-
-/* Restore state from registers in inflate() */
-#define RESTORE() \
- do { \
- strm->next_out = put; \
- strm->avail_out = left; \
- strm->next_in = next; \
- strm->avail_in = have; \
- state->hold = hold; \
- state->bits = bits; \
- } while (0)
-
-/* Clear the input bit accumulator */
-#define INITBITS() \
- do { \
- hold = 0; \
- bits = 0; \
- } while (0)
-
-/* Get a byte of input into the bit accumulator, or return from inflate()
- if there is no input available. */
-#define PULLBYTE() \
- do { \
- if (have == 0) goto inf_leave; \
- have--; \
- hold += (unsigned long)(*next++) << bits; \
- bits += 8; \
- } while (0)
-
-/* Assure that there are at least n bits in the bit accumulator. If there is
- not enough available input to do that, then return from inflate(). */
-#define NEEDBITS(n) \
- do { \
- while (bits < (unsigned)(n)) \
- PULLBYTE(); \
- } while (0)
-
-/* Return the low n bits of the bit accumulator (n < 16) */
-#define BITS(n) \
- ((unsigned)hold & ((1U << (n)) - 1))
-
-/* Remove n bits from the bit accumulator */
-#define DROPBITS(n) \
- do { \
- hold >>= (n); \
- bits -= (unsigned)(n); \
- } while (0)
-
-/* Remove zero to seven bits as needed to go to a byte boundary */
-#define BYTEBITS() \
- do { \
- hold >>= bits & 7; \
- bits -= bits & 7; \
- } while (0)
-
-/* Reverse the bytes in a 32-bit value */
-#define REVERSE(q) \
- ((((q) >> 24) & 0xff) + (((q) >> 8) & 0xff00) + \
- (((q) & 0xff00) << 8) + (((q) & 0xff) << 24))
-
-/*
- inflate() uses a state machine to process as much input data and generate as
- much output data as possible before returning. The state machine is
- structured roughly as follows:
-
- for (;;) switch (state) {
- ...
- case STATEn:
- if (not enough input data or output space to make progress)
- return;
- ... make progress ...
- state = STATEm;
- break;
- ...
- }
-
- so when inflate() is called again, the same case is attempted again, and
- if the appropriate resources are provided, the machine proceeds to the
- next state. The NEEDBITS() macro is usually the way the state evaluates
- whether it can proceed or should return. NEEDBITS() does the return if
- the requested bits are not available. The typical use of the BITS macros
- is:
-
- NEEDBITS(n);
- ... do something with BITS(n) ...
- DROPBITS(n);
-
- where NEEDBITS(n) either returns from inflate() if there isn't enough
- input left to load n bits into the accumulator, or it continues. BITS(n)
- gives the low n bits in the accumulator. When done, DROPBITS(n) drops
- the low n bits off the accumulator. INITBITS() clears the accumulator
- and sets the number of available bits to zero. BYTEBITS() discards just
- enough bits to put the accumulator on a byte boundary. After BYTEBITS()
- and a NEEDBITS(8), then BITS(8) would return the next byte in the stream.
-
- NEEDBITS(n) uses PULLBYTE() to get an available byte of input, or to return
- if there is no input available. The decoding of variable length codes uses
- PULLBYTE() directly in order to pull just enough bytes to decode the next
- code, and no more.
-
- Some states loop until they get enough input, making sure that enough
- state information is maintained to continue the loop where it left off
- if NEEDBITS() returns in the loop. For example, want, need, and keep
- would all have to actually be part of the saved state in case NEEDBITS()
- returns:
-
- case STATEw:
- while (want < need) {
- NEEDBITS(n);
- keep[want++] = BITS(n);
- DROPBITS(n);
- }
- state = STATEx;
- case STATEx:
-
- As shown above, if the next state is also the next case, then the break
- is omitted.
-
- A state may also return if there is not enough output space available to
- complete that state. Those states are copying stored data, writing a
- literal byte, and copying a matching string.
-
- When returning, a "goto inf_leave" is used to update the total counters,
- update the check value, and determine whether any progress has been made
- during that inflate() call in order to return the proper return code.
- Progress is defined as a change in either strm->avail_in or strm->avail_out.
- When there is a window, goto inf_leave will update the window with the last
- output written. If a goto inf_leave occurs in the middle of decompression
- and there is no window currently, goto inf_leave will create one and copy
- output to the window for the next call of inflate().
-
- In this implementation, the flush parameter of inflate() only affects the
- return code (per zlib.h). inflate() always writes as much as possible to
- strm->next_out, given the space available and the provided input--the effect
- documented in zlib.h of Z_SYNC_FLUSH. Furthermore, inflate() always defers
- the allocation of and copying into a sliding window until necessary, which
- provides the effect documented in zlib.h for Z_FINISH when the entire input
- stream available. So the only thing the flush parameter actually does is:
- when flush is set to Z_FINISH, inflate() cannot return Z_OK. Instead it
- will return Z_BUF_ERROR if it has not reached the end of the stream.
- */
-
-int ZEXPORT inflate(strm, flush)
-z_streamp strm;
-int flush;
-{
- struct inflate_state FAR *state;
- unsigned char FAR *next; /* next input */
- unsigned char FAR *put; /* next output */
- unsigned have, left; /* available input and output */
- unsigned long hold; /* bit buffer */
- unsigned bits; /* bits in bit buffer */
- unsigned in, out; /* save starting available input and output */
- unsigned copy; /* number of stored or match bytes to copy */
- unsigned char FAR *from; /* where to copy match bytes from */
- code here; /* current decoding table entry */
- code last; /* parent table entry */
- unsigned len; /* length to copy for repeats, bits to drop */
- int ret; /* return code */
-#ifdef GUNZIP
- unsigned char hbuf[4]; /* buffer for gzip header crc calculation */
-#endif
- static const unsigned short order[19] = /* permutation of code lengths */
- {16, 17, 18, 0, 8, 7, 9, 6, 10, 5, 11, 4, 12, 3, 13, 2, 14, 1, 15};
-
- if (strm == Z_NULL || strm->state == Z_NULL || strm->next_out == Z_NULL ||
- (strm->next_in == Z_NULL && strm->avail_in != 0))
- return Z_STREAM_ERROR;
-
- state = (struct inflate_state FAR *)strm->state;
- if (state->mode == TYPE) state->mode = TYPEDO; /* skip check */
- LOAD();
- in = have;
- out = left;
- ret = Z_OK;
- for (;;)
- switch (state->mode) {
- case HEAD:
- if (state->wrap == 0) {
- state->mode = TYPEDO;
- break;
- }
- NEEDBITS(16);
-#ifdef GUNZIP
- if ((state->wrap & 2) && hold == 0x8b1f) { /* gzip header */
- state->check = crc32(0L, Z_NULL, 0);
- CRC2(state->check, hold);
- INITBITS();
- state->mode = FLAGS;
- break;
- }
- state->flags = 0; /* expect zlib header */
- if (state->head != Z_NULL)
- state->head->done = -1;
- if (!(state->wrap & 1) || /* check if zlib header allowed */
-#else
- if (
-#endif
- ((BITS(8) << 8) + (hold >> 8)) % 31) {
- strm->msg = (char *)"incorrect header check";
- state->mode = BAD;
- break;
- }
- if (BITS(4) != Z_DEFLATED) {
- strm->msg = (char *)"unknown compression method";
- state->mode = BAD;
- break;
- }
- DROPBITS(4);
- len = BITS(4) + 8;
- if (state->wbits == 0)
- state->wbits = len;
- else if (len > state->wbits) {
- strm->msg = (char *)"invalid window size";
- state->mode = BAD;
- break;
- }
- state->dmax = 1U << len;
- Tracev((stderr, "inflate: zlib header ok\n"));
- strm->adler = state->check = adler32(0L, Z_NULL, 0);
- state->mode = hold & 0x200 ? DICTID : TYPE;
- INITBITS();
- break;
-#ifdef GUNZIP
- case FLAGS:
- NEEDBITS(16);
- state->flags = (int)(hold);
- if ((state->flags & 0xff) != Z_DEFLATED) {
- strm->msg = (char *)"unknown compression method";
- state->mode = BAD;
- break;
- }
- if (state->flags & 0xe000) {
- strm->msg = (char *)"unknown header flags set";
- state->mode = BAD;
- break;
- }
- if (state->head != Z_NULL)
- state->head->text = (int)((hold >> 8) & 1);
- if (state->flags & 0x0200) CRC2(state->check, hold);
- INITBITS();
- state->mode = TIME;
- case TIME:
- NEEDBITS(32);
- if (state->head != Z_NULL)
- state->head->time = hold;
- if (state->flags & 0x0200) CRC4(state->check, hold);
- INITBITS();
- state->mode = OS;
- case OS:
- NEEDBITS(16);
- if (state->head != Z_NULL) {
- state->head->xflags = (int)(hold & 0xff);
- state->head->os = (int)(hold >> 8);
- }
- if (state->flags & 0x0200) CRC2(state->check, hold);
- INITBITS();
- state->mode = EXLEN;
- case EXLEN:
- if (state->flags & 0x0400) {
- NEEDBITS(16);
- state->length = (unsigned)(hold);
- if (state->head != Z_NULL)
- state->head->extra_len = (unsigned)hold;
- if (state->flags & 0x0200) CRC2(state->check, hold);
- INITBITS();
- }
- else if (state->head != Z_NULL)
- state->head->extra = Z_NULL;
- state->mode = EXTRA;
- case EXTRA:
- if (state->flags & 0x0400) {
- copy = state->length;
- if (copy > have) copy = have;
- if (copy) {
- if (state->head != Z_NULL &&
- state->head->extra != Z_NULL) {
- len = state->head->extra_len - state->length;
- zmemcpy(state->head->extra + len, next,
- len + copy > state->head->extra_max ?
- state->head->extra_max - len : copy);
- }
- if (state->flags & 0x0200)
- state->check = crc32(state->check, next, copy);
- have -= copy;
- next += copy;
- state->length -= copy;
- }
- if (state->length) goto inf_leave;
- }
- state->length = 0;
- state->mode = NAME;
- case NAME:
- if (state->flags & 0x0800) {
- if (have == 0) goto inf_leave;
- copy = 0;
- do {
- len = (unsigned)(next[copy++]);
- if (state->head != Z_NULL &&
- state->head->name != Z_NULL &&
- state->length < state->head->name_max)
- state->head->name[state->length++] = len;
- } while (len && copy < have);
- if (state->flags & 0x0200)
- state->check = crc32(state->check, next, copy);
- have -= copy;
- next += copy;
- if (len) goto inf_leave;
- }
- else if (state->head != Z_NULL)
- state->head->name = Z_NULL;
- state->length = 0;
- state->mode = COMMENT;
- case COMMENT:
- if (state->flags & 0x1000) {
- if (have == 0) goto inf_leave;
- copy = 0;
- do {
- len = (unsigned)(next[copy++]);
- if (state->head != Z_NULL &&
- state->head->comment != Z_NULL &&
- state->length < state->head->comm_max)
- state->head->comment[state->length++] = len;
- } while (len && copy < have);
- if (state->flags & 0x0200)
- state->check = crc32(state->check, next, copy);
- have -= copy;
- next += copy;
- if (len) goto inf_leave;
- }
- else if (state->head != Z_NULL)
- state->head->comment = Z_NULL;
- state->mode = HCRC;
- case HCRC:
- if (state->flags & 0x0200) {
- NEEDBITS(16);
- if (hold != (state->check & 0xffff)) {
- strm->msg = (char *)"header crc mismatch";
- state->mode = BAD;
- break;
- }
- INITBITS();
- }
- if (state->head != Z_NULL) {
- state->head->hcrc = (int)((state->flags >> 9) & 1);
- state->head->done = 1;
- }
- strm->adler = state->check = crc32(0L, Z_NULL, 0);
- state->mode = TYPE;
- break;
-#endif
- case DICTID:
- NEEDBITS(32);
- strm->adler = state->check = REVERSE(hold);
- INITBITS();
- state->mode = DICT;
- case DICT:
- if (state->havedict == 0) {
- RESTORE();
- return Z_NEED_DICT;
- }
- strm->adler = state->check = adler32(0L, Z_NULL, 0);
- state->mode = TYPE;
- case TYPE:
- if (flush == Z_BLOCK || flush == Z_TREES) goto inf_leave;
- case TYPEDO:
- if (state->last) {
- BYTEBITS();
- state->mode = CHECK;
- break;
- }
- NEEDBITS(3);
- state->last = BITS(1);
- DROPBITS(1);
- switch (BITS(2)) {
- case 0: /* stored block */
- Tracev((stderr, "inflate: stored block%s\n",
- state->last ? " (last)" : ""));
- state->mode = STORED;
- break;
- case 1: /* fixed block */
- fixedtables(state);
- Tracev((stderr, "inflate: fixed codes block%s\n",
- state->last ? " (last)" : ""));
- state->mode = LEN_; /* decode codes */
- if (flush == Z_TREES) {
- DROPBITS(2);
- goto inf_leave;
- }
- break;
- case 2: /* dynamic block */
- Tracev((stderr, "inflate: dynamic codes block%s\n",
- state->last ? " (last)" : ""));
- state->mode = TABLE;
- break;
- case 3:
- strm->msg = (char *)"invalid block type";
- state->mode = BAD;
- }
- DROPBITS(2);
- break;
- case STORED:
- BYTEBITS(); /* go to byte boundary */
- NEEDBITS(32);
- if ((hold & 0xffff) != ((hold >> 16) ^ 0xffff)) {
- strm->msg = (char *)"invalid stored block lengths";
- state->mode = BAD;
- break;
- }
- state->length = (unsigned)hold & 0xffff;
- Tracev((stderr, "inflate: stored length %u\n",
- state->length));
- INITBITS();
- state->mode = COPY_;
- if (flush == Z_TREES) goto inf_leave;
- case COPY_:
- state->mode = COPY;
- case COPY:
- copy = state->length;
- if (copy) {
- if (copy > have) copy = have;
- if (copy > left) copy = left;
- if (copy == 0) goto inf_leave;
- zmemcpy(put, next, copy);
- have -= copy;
- next += copy;
- left -= copy;
- put += copy;
- state->length -= copy;
- break;
- }
- Tracev((stderr, "inflate: stored end\n"));
- state->mode = TYPE;
- break;
- case TABLE:
- NEEDBITS(14);
- state->nlen = BITS(5) + 257;
- DROPBITS(5);
- state->ndist = BITS(5) + 1;
- DROPBITS(5);
- state->ncode = BITS(4) + 4;
- DROPBITS(4);
-#ifndef PKZIP_BUG_WORKAROUND
- if (state->nlen > 286 || state->ndist > 30) {
- strm->msg = (char *)"too many length or distance symbols";
- state->mode = BAD;
- break;
- }
-#endif
- Tracev((stderr, "inflate: table sizes ok\n"));
- state->have = 0;
- state->mode = LENLENS;
- case LENLENS:
- while (state->have < state->ncode) {
- NEEDBITS(3);
- state->lens[order[state->have++]] = (unsigned short)BITS(3);
- DROPBITS(3);
- }
- while (state->have < 19)
- state->lens[order[state->have++]] = 0;
- state->next = state->codes;
- state->lencode = (code const FAR *)(state->next);
- state->lenbits = 7;
- ret = inflate_table(CODES, state->lens, 19, &(state->next),
- &(state->lenbits), state->work);
- if (ret) {
- strm->msg = (char *)"invalid code lengths set";
- state->mode = BAD;
- break;
- }
- Tracev((stderr, "inflate: code lengths ok\n"));
- state->have = 0;
- state->mode = CODELENS;
- case CODELENS:
- while (state->have < state->nlen + state->ndist) {
- for (;;) {
- here = state->lencode[BITS(state->lenbits)];
- if ((unsigned)(here.bits) <= bits) break;
- PULLBYTE();
- }
- if (here.val < 16) {
- NEEDBITS(here.bits);
- DROPBITS(here.bits);
- state->lens[state->have++] = here.val;
- }
- else {
- if (here.val == 16) {
- NEEDBITS(here.bits + 2);
- DROPBITS(here.bits);
- if (state->have == 0) {
- strm->msg = (char *)"invalid bit length repeat";
- state->mode = BAD;
- break;
- }
- len = state->lens[state->have - 1];
- copy = 3 + BITS(2);
- DROPBITS(2);
- }
- else if (here.val == 17) {
- NEEDBITS(here.bits + 3);
- DROPBITS(here.bits);
- len = 0;
- copy = 3 + BITS(3);
- DROPBITS(3);
- }
- else {
- NEEDBITS(here.bits + 7);
- DROPBITS(here.bits);
- len = 0;
- copy = 11 + BITS(7);
- DROPBITS(7);
- }
- if (state->have + copy > state->nlen + state->ndist) {
- strm->msg = (char *)"invalid bit length repeat";
- state->mode = BAD;
- break;
- }
- while (copy--)
- state->lens[state->have++] = (unsigned short)len;
- }
- }
-
- /* handle error breaks in while */
- if (state->mode == BAD) break;
-
- /* check for end-of-block code (better have one) */
- if (state->lens[256] == 0) {
- strm->msg = (char *)"invalid code -- missing end-of-block";
- state->mode = BAD;
- break;
- }
-
- /* build code tables -- note: do not change the lenbits or distbits
- values here (9 and 6) without reading the comments in inftrees.h
- concerning the ENOUGH constants, which depend on those values */
- state->next = state->codes;
- state->lencode = (code const FAR *)(state->next);
- state->lenbits = 9;
- ret = inflate_table(LENS, state->lens, state->nlen, &(state->next),
- &(state->lenbits), state->work);
- if (ret) {
- strm->msg = (char *)"invalid literal/lengths set";
- state->mode = BAD;
- break;
- }
- state->distcode = (code const FAR *)(state->next);
- state->distbits = 6;
- ret = inflate_table(DISTS, state->lens + state->nlen, state->ndist,
- &(state->next), &(state->distbits), state->work);
- if (ret) {
- strm->msg = (char *)"invalid distances set";
- state->mode = BAD;
- break;
- }
- Tracev((stderr, "inflate: codes ok\n"));
- state->mode = LEN_;
- if (flush == Z_TREES) goto inf_leave;
- case LEN_:
- state->mode = LEN;
- case LEN:
- if (have >= 6 && left >= 258) {
- RESTORE();
- inflate_fast(strm, out);
- LOAD();
- if (state->mode == TYPE)
- state->back = -1;
- break;
- }
- state->back = 0;
- for (;;) {
- here = state->lencode[BITS(state->lenbits)];
- if ((unsigned)(here.bits) <= bits) break;
- PULLBYTE();
- }
- if (here.op && (here.op & 0xf0) == 0) {
- last = here;
- for (;;) {
- here = state->lencode[last.val +
- (BITS(last.bits + last.op) >> last.bits)];
- if ((unsigned)(last.bits + here.bits) <= bits) break;
- PULLBYTE();
- }
- DROPBITS(last.bits);
- state->back += last.bits;
- }
- DROPBITS(here.bits);
- state->back += here.bits;
- state->length = (unsigned)here.val;
- if ((int)(here.op) == 0) {
- Tracevv((stderr, here.val >= 0x20 && here.val < 0x7f ?
- "inflate: literal '%c'\n" :
- "inflate: literal 0x%02x\n", here.val));
- state->mode = LIT;
- break;
- }
- if (here.op & 32) {
- Tracevv((stderr, "inflate: end of block\n"));
- state->back = -1;
- state->mode = TYPE;
- break;
- }
- if (here.op & 64) {
- strm->msg = (char *)"invalid literal/length code";
- state->mode = BAD;
- break;
- }
- state->extra = (unsigned)(here.op) & 15;
- state->mode = LENEXT;
- case LENEXT:
- if (state->extra) {
- NEEDBITS(state->extra);
- state->length += BITS(state->extra);
- DROPBITS(state->extra);
- state->back += state->extra;
- }
- Tracevv((stderr, "inflate: length %u\n", state->length));
- state->was = state->length;
- state->mode = DIST;
- case DIST:
- for (;;) {
- here = state->distcode[BITS(state->distbits)];
- if ((unsigned)(here.bits) <= bits) break;
- PULLBYTE();
- }
- if ((here.op & 0xf0) == 0) {
- last = here;
- for (;;) {
- here = state->distcode[last.val +
- (BITS(last.bits + last.op) >> last.bits)];
- if ((unsigned)(last.bits + here.bits) <= bits) break;
- PULLBYTE();
- }
- DROPBITS(last.bits);
- state->back += last.bits;
- }
- DROPBITS(here.bits);
- state->back += here.bits;
- if (here.op & 64) {
- strm->msg = (char *)"invalid distance code";
- state->mode = BAD;
- break;
- }
- state->offset = (unsigned)here.val;
- state->extra = (unsigned)(here.op) & 15;
- state->mode = DISTEXT;
- case DISTEXT:
- if (state->extra) {
- NEEDBITS(state->extra);
- state->offset += BITS(state->extra);
- DROPBITS(state->extra);
- state->back += state->extra;
- }
-#ifdef INFLATE_STRICT
- if (state->offset > state->dmax) {
- strm->msg = (char *)"invalid distance too far back";
- state->mode = BAD;
- break;
- }
-#endif
- Tracevv((stderr, "inflate: distance %u\n", state->offset));
- state->mode = MATCH;
- case MATCH:
- if (left == 0) goto inf_leave;
- copy = out - left;
- if (state->offset > copy) { /* copy from window */
- copy = state->offset - copy;
- if (copy > state->whave) {
- if (state->sane) {
- strm->msg = (char *)"invalid distance too far back";
- state->mode = BAD;
- break;
- }
-#ifdef INFLATE_ALLOW_INVALID_DISTANCE_TOOFAR_ARRR
- Trace((stderr, "inflate.c too far\n"));
- copy -= state->whave;
- if (copy > state->length) copy = state->length;
- if (copy > left) copy = left;
- left -= copy;
- state->length -= copy;
- do {
- *put++ = 0;
- } while (--copy);
- if (state->length == 0) state->mode = LEN;
- break;
-#endif
- }
- if (copy > state->wnext) {
- copy -= state->wnext;
- from = state->window + (state->wsize - copy);
- }
- else
- from = state->window + (state->wnext - copy);
- if (copy > state->length) copy = state->length;
- }
- else { /* copy from output */
- from = put - state->offset;
- copy = state->length;
- }
- if (copy > left) copy = left;
- left -= copy;
- state->length -= copy;
- do {
- *put++ = *from++;
- } while (--copy);
- if (state->length == 0) state->mode = LEN;
- break;
- case LIT:
- if (left == 0) goto inf_leave;
- *put++ = (unsigned char)(state->length);
- left--;
- state->mode = LEN;
- break;
- case CHECK:
- if (state->wrap) {
- NEEDBITS(32);
- out -= left;
- strm->total_out += out;
- state->total += out;
- if (out)
- strm->adler = state->check =
- UPDATE(state->check, put - out, out);
- out = left;
- if ((
-#ifdef GUNZIP
- state->flags ? hold :
-#endif
- REVERSE(hold)) != state->check) {
- strm->msg = (char *)"incorrect data check";
- state->mode = BAD;
- break;
- }
- INITBITS();
- Tracev((stderr, "inflate: check matches trailer\n"));
- }
-#ifdef GUNZIP
- state->mode = LENGTH;
- case LENGTH:
- if (state->wrap && state->flags) {
- NEEDBITS(32);
- if (hold != (state->total & 0xffffffffUL)) {
- strm->msg = (char *)"incorrect length check";
- state->mode = BAD;
- break;
- }
- INITBITS();
- Tracev((stderr, "inflate: length matches trailer\n"));
- }
-#endif
- state->mode = DONE;
- case DONE:
- ret = Z_STREAM_END;
- goto inf_leave;
- case BAD:
- ret = Z_DATA_ERROR;
- goto inf_leave;
- case MEM:
- return Z_MEM_ERROR;
- case SYNC:
- default:
- return Z_STREAM_ERROR;
- }
-
- /*
- Return from inflate(), updating the total counts and the check value.
- If there was no progress during the inflate() call, return a buffer
- error. Call updatewindow() to create and/or update the window state.
- Note: a memory error from inflate() is non-recoverable.
- */
- inf_leave:
- RESTORE();
- if (state->wsize || (state->mode < CHECK && out != strm->avail_out))
- if (updatewindow(strm, out)) {
- state->mode = MEM;
- return Z_MEM_ERROR;
- }
- in -= strm->avail_in;
- out -= strm->avail_out;
- strm->total_in += in;
- strm->total_out += out;
- state->total += out;
- if (state->wrap && out)
- strm->adler = state->check =
- UPDATE(state->check, strm->next_out - out, out);
- strm->data_type = state->bits + (state->last ? 64 : 0) +
- (state->mode == TYPE ? 128 : 0) +
- (state->mode == LEN_ || state->mode == COPY_ ? 256 : 0);
- if (((in == 0 && out == 0) || flush == Z_FINISH) && ret == Z_OK)
- ret = Z_BUF_ERROR;
- return ret;
-}
-
-int ZEXPORT inflateEnd(strm)
-z_streamp strm;
-{
- struct inflate_state FAR *state;
- if (strm == Z_NULL || strm->state == Z_NULL || strm->zfree == (free_func)0)
- return Z_STREAM_ERROR;
- state = (struct inflate_state FAR *)strm->state;
- if (state->window != Z_NULL) ZFREE(strm, state->window);
- ZFREE(strm, strm->state);
- strm->state = Z_NULL;
- Tracev((stderr, "inflate: end\n"));
- return Z_OK;
-}
-
-int ZEXPORT inflateSetDictionary(strm, dictionary, dictLength)
-z_streamp strm;
-const Bytef *dictionary;
-uInt dictLength;
-{
- struct inflate_state FAR *state;
- unsigned long id;
-
- /* check state */
- if (strm == Z_NULL || strm->state == Z_NULL) return Z_STREAM_ERROR;
- state = (struct inflate_state FAR *)strm->state;
- if (state->wrap != 0 && state->mode != DICT)
- return Z_STREAM_ERROR;
-
- /* check for correct dictionary id */
- if (state->mode == DICT) {
- id = adler32(0L, Z_NULL, 0);
- id = adler32(id, dictionary, dictLength);
- if (id != state->check)
- return Z_DATA_ERROR;
- }
-
- /* copy dictionary to window */
- if (updatewindow(strm, strm->avail_out)) {
- state->mode = MEM;
- return Z_MEM_ERROR;
- }
- if (dictLength > state->wsize) {
- zmemcpy(state->window, dictionary + dictLength - state->wsize,
- state->wsize);
- state->whave = state->wsize;
- }
- else {
- zmemcpy(state->window + state->wsize - dictLength, dictionary,
- dictLength);
- state->whave = dictLength;
- }
- state->havedict = 1;
- Tracev((stderr, "inflate: dictionary set\n"));
- return Z_OK;
-}
-
-int ZEXPORT inflateGetHeader(strm, head)
-z_streamp strm;
-gz_headerp head;
-{
- struct inflate_state FAR *state;
-
- /* check state */
- if (strm == Z_NULL || strm->state == Z_NULL) return Z_STREAM_ERROR;
- state = (struct inflate_state FAR *)strm->state;
- if ((state->wrap & 2) == 0) return Z_STREAM_ERROR;
-
- /* save header structure */
- state->head = head;
- head->done = 0;
- return Z_OK;
-}
-
-/*
- Search buf[0..len-1] for the pattern: 0, 0, 0xff, 0xff. Return when found
- or when out of input. When called, *have is the number of pattern bytes
- found in order so far, in 0..3. On return *have is updated to the new
- state. If on return *have equals four, then the pattern was found and the
- return value is how many bytes were read including the last byte of the
- pattern. If *have is less than four, then the pattern has not been found
- yet and the return value is len. In the latter case, syncsearch() can be
- called again with more data and the *have state. *have is initialized to
- zero for the first call.
- */
-local unsigned syncsearch(have, buf, len)
-unsigned FAR *have;
-unsigned char FAR *buf;
-unsigned len;
-{
- unsigned got;
- unsigned next;
-
- got = *have;
- next = 0;
- while (next < len && got < 4) {
- if ((int)(buf[next]) == (got < 2 ? 0 : 0xff))
- got++;
- else if (buf[next])
- got = 0;
- else
- got = 4 - got;
- next++;
- }
- *have = got;
- return next;
-}
-
-int ZEXPORT inflateSync(strm)
-z_streamp strm;
-{
- unsigned len; /* number of bytes to look at or looked at */
- unsigned long in, out; /* temporary to save total_in and total_out */
- unsigned char buf[4]; /* to restore bit buffer to byte string */
- struct inflate_state FAR *state;
-
- /* check parameters */
- if (strm == Z_NULL || strm->state == Z_NULL) return Z_STREAM_ERROR;
- state = (struct inflate_state FAR *)strm->state;
- if (strm->avail_in == 0 && state->bits < 8) return Z_BUF_ERROR;
-
- /* if first time, start search in bit buffer */
- if (state->mode != SYNC) {
- state->mode = SYNC;
- state->hold <<= state->bits & 7;
- state->bits -= state->bits & 7;
- len = 0;
- while (state->bits >= 8) {
- buf[len++] = (unsigned char)(state->hold);
- state->hold >>= 8;
- state->bits -= 8;
- }
- state->have = 0;
- syncsearch(&(state->have), buf, len);
- }
-
- /* search available input */
- len = syncsearch(&(state->have), strm->next_in, strm->avail_in);
- strm->avail_in -= len;
- strm->next_in += len;
- strm->total_in += len;
-
- /* return no joy or set up to restart inflate() on a new block */
- if (state->have != 4) return Z_DATA_ERROR;
- in = strm->total_in; out = strm->total_out;
- inflateReset(strm);
- strm->total_in = in; strm->total_out = out;
- state->mode = TYPE;
- return Z_OK;
-}
-
-/*
- Returns true if inflate is currently at the end of a block generated by
- Z_SYNC_FLUSH or Z_FULL_FLUSH. This function is used by one PPP
- implementation to provide an additional safety check. PPP uses
- Z_SYNC_FLUSH but removes the length bytes of the resulting empty stored
- block. When decompressing, PPP checks that at the end of input packet,
- inflate is waiting for these length bytes.
- */
-int ZEXPORT inflateSyncPoint(strm)
-z_streamp strm;
-{
- struct inflate_state FAR *state;
-
- if (strm == Z_NULL || strm->state == Z_NULL) return Z_STREAM_ERROR;
- state = (struct inflate_state FAR *)strm->state;
- return state->mode == STORED && state->bits == 0;
-}
-
-int ZEXPORT inflateCopy(dest, source)
-z_streamp dest;
-z_streamp source;
-{
- struct inflate_state FAR *state;
- struct inflate_state FAR *copy;
- unsigned char FAR *window;
- unsigned wsize;
-
- /* check input */
- if (dest == Z_NULL || source == Z_NULL || source->state == Z_NULL ||
- source->zalloc == (alloc_func)0 || source->zfree == (free_func)0)
- return Z_STREAM_ERROR;
- state = (struct inflate_state FAR *)source->state;
-
- /* allocate space */
- copy = (struct inflate_state FAR *)
- ZALLOC(source, 1, sizeof(struct inflate_state));
- if (copy == Z_NULL) return Z_MEM_ERROR;
- window = Z_NULL;
- if (state->window != Z_NULL) {
- window = (unsigned char FAR *)
- ZALLOC(source, 1U << state->wbits, sizeof(unsigned char));
- if (window == Z_NULL) {
- ZFREE(source, copy);
- return Z_MEM_ERROR;
- }
- }
-
- /* copy state */
- zmemcpy(dest, source, sizeof(z_stream));
- zmemcpy(copy, state, sizeof(struct inflate_state));
- if (state->lencode >= state->codes &&
- state->lencode <= state->codes + ENOUGH - 1) {
- copy->lencode = copy->codes + (state->lencode - state->codes);
- copy->distcode = copy->codes + (state->distcode - state->codes);
- }
- copy->next = copy->codes + (state->next - state->codes);
- if (window != Z_NULL) {
- wsize = 1U << state->wbits;
- zmemcpy(window, state->window, wsize);
- }
- copy->window = window;
- dest->state = (struct internal_state FAR *)copy;
- return Z_OK;
-}
-
-int ZEXPORT inflateUndermine(strm, subvert)
-z_streamp strm;
-int subvert;
-{
- struct inflate_state FAR *state;
-
- if (strm == Z_NULL || strm->state == Z_NULL) return Z_STREAM_ERROR;
- state = (struct inflate_state FAR *)strm->state;
- state->sane = !subvert;
-#ifdef INFLATE_ALLOW_INVALID_DISTANCE_TOOFAR_ARRR
- return Z_OK;
-#else
- state->sane = 1;
- return Z_DATA_ERROR;
-#endif
-}
-
-long ZEXPORT inflateMark(strm)
-z_streamp strm;
-{
- struct inflate_state FAR *state;
-
- if (strm == Z_NULL || strm->state == Z_NULL) return -1L << 16;
- state = (struct inflate_state FAR *)strm->state;
- return ((long)(state->back) << 16) +
- (state->mode == COPY ? state->length :
- (state->mode == MATCH ? state->was - state->length : 0));
-}
diff --git a/3.8.8/sources/cpan-Compress-Raw-Zlib/vendor/zlib-src/zutil.c b/3.8.8/sources/cpan-Compress-Raw-Zlib/vendor/zlib-src/zutil.c
deleted file mode 100644
index 898ed34..0000000
--- a/3.8.8/sources/cpan-Compress-Raw-Zlib/vendor/zlib-src/zutil.c
+++ /dev/null
@@ -1,318 +0,0 @@
-/* zutil.c -- target dependent utility functions for the compression library
- * Copyright (C) 1995-2005, 2010 Jean-loup Gailly.
- * For conditions of distribution and use, see copyright notice in zlib.h
- */
-
-/* @(#) $Id$ */
-
-#include "zutil.h"
-
-#ifndef NO_DUMMY_DECL
-struct internal_state {int dummy;}; /* for buggy compilers */
-#endif
-
-const char * const z_errmsg[10] = {
-"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) */
-""};
-
-
-const char * ZEXPORT zlibVersion()
-{
- return ZLIB_VERSION;
-}
-
-uLong ZEXPORT zlibCompileFlags()
-{
- uLong flags;
-
- flags = 0;
- switch ((int)(sizeof(uInt))) {
- case 2: break;
- case 4: flags += 1; break;
- case 8: flags += 2; break;
- default: flags += 3;
- }
- switch ((int)(sizeof(uLong))) {
- case 2: break;
- case 4: flags += 1 << 2; break;
- case 8: flags += 2 << 2; break;
- default: flags += 3 << 2;
- }
- switch ((int)(sizeof(voidpf))) {
- case 2: break;
- case 4: flags += 1 << 4; break;
- case 8: flags += 2 << 4; break;
- default: flags += 3 << 4;
- }
- switch ((int)(sizeof(z_off_t))) {
- case 2: break;
- case 4: flags += 1 << 6; break;
- case 8: flags += 2 << 6; break;
- default: flags += 3 << 6;
- }
-#ifdef DEBUG
- flags += 1 << 8;
-#endif
-#if defined(ASMV) || defined(ASMINF)
- flags += 1 << 9;
-#endif
-#ifdef ZLIB_WINAPI
- flags += 1 << 10;
-#endif
-#ifdef BUILDFIXED
- flags += 1 << 12;
-#endif
-#ifdef DYNAMIC_CRC_TABLE
- flags += 1 << 13;
-#endif
-#ifdef NO_GZCOMPRESS
- flags += 1L << 16;
-#endif
-#ifdef NO_GZIP
- flags += 1L << 17;
-#endif
-#ifdef PKZIP_BUG_WORKAROUND
- flags += 1L << 20;
-#endif
-#ifdef FASTEST
- flags += 1L << 21;
-#endif
-#ifdef STDC
-# ifdef NO_vsnprintf
- flags += 1L << 25;
-# ifdef HAS_vsprintf_void
- flags += 1L << 26;
-# endif
-# else
-# ifdef HAS_vsnprintf_void
- flags += 1L << 26;
-# endif
-# endif
-#else
- flags += 1L << 24;
-# ifdef NO_snprintf
- flags += 1L << 25;
-# ifdef HAS_sprintf_void
- flags += 1L << 26;
-# endif
-# else
-# ifdef HAS_snprintf_void
- flags += 1L << 26;
-# endif
-# endif
-#endif
- return flags;
-}
-
-#ifdef DEBUG
-
-# ifndef verbose
-# define verbose 0
-# endif
-int ZLIB_INTERNAL z_verbose = verbose;
-
-void ZLIB_INTERNAL z_error (m)
- char *m;
-{
- fprintf(stderr, "%s\n", m);
- exit(1);
-}
-#endif
-
-/* exported to allow conversion of error code to string for compress() and
- * uncompress()
- */
-const char * ZEXPORT zError(err)
- int err;
-{
- return ERR_MSG(err);
-}
-
-#if defined(_WIN32_WCE)
- /* The Microsoft C Run-Time Library for Windows CE doesn't have
- * errno. We define it as a global variable to simplify porting.
- * Its value is always 0 and should not be used.
- */
- int errno = 0;
-#endif
-
-#ifndef HAVE_MEMCPY
-
-void ZLIB_INTERNAL zmemcpy(dest, source, len)
- Bytef* dest;
- const Bytef* source;
- uInt len;
-{
- if (len == 0) return;
- do {
- *dest++ = *source++; /* ??? to be unrolled */
- } while (--len != 0);
-}
-
-int ZLIB_INTERNAL zmemcmp(s1, s2, len)
- const Bytef* s1;
- const Bytef* s2;
- uInt len;
-{
- uInt j;
-
- for (j = 0; j < len; j++) {
- if (s1[j] != s2[j]) return 2*(s1[j] > s2[j])-1;
- }
- return 0;
-}
-
-void ZLIB_INTERNAL zmemzero(dest, len)
- Bytef* dest;
- uInt len;
-{
- if (len == 0) return;
- do {
- *dest++ = 0; /* ??? to be unrolled */
- } while (--len != 0);
-}
-#endif
-
-
-#ifdef SYS16BIT
-
-#ifdef __TURBOC__
-/* Turbo C in 16-bit mode */
-
-# define MY_ZCALLOC
-
-/* Turbo C malloc() does not allow dynamic allocation of 64K bytes
- * and farmalloc(64K) returns a pointer with an offset of 8, so we
- * must fix the pointer. Warning: the pointer must be put back to its
- * original form in order to free it, use zcfree().
- */
-
-#define MAX_PTR 10
-/* 10*64K = 640K */
-
-local int next_ptr = 0;
-
-typedef struct ptr_table_s {
- voidpf org_ptr;
- voidpf new_ptr;
-} ptr_table;
-
-local ptr_table table[MAX_PTR];
-/* This table is used to remember the original form of pointers
- * to large buffers (64K). Such pointers are normalized with a zero offset.
- * Since MSDOS is not a preemptive multitasking OS, this table is not
- * protected from concurrent access. This hack doesn't work anyway on
- * a protected system like OS/2. Use Microsoft C instead.
- */
-
-voidpf ZLIB_INTERNAL zcalloc (voidpf opaque, unsigned items, unsigned size)
-{
- voidpf buf = opaque; /* just to make some compilers happy */
- ulg bsize = (ulg)items*size;
-
- /* If we allocate less than 65520 bytes, we assume that farmalloc
- * will return a usable pointer which doesn't have to be normalized.
- */
- if (bsize < 65520L) {
- buf = farmalloc(bsize);
- if (*(ush*)&buf != 0) return buf;
- } else {
- buf = farmalloc(bsize + 16L);
- }
- if (buf == NULL || next_ptr >= MAX_PTR) return NULL;
- table[next_ptr].org_ptr = buf;
-
- /* Normalize the pointer to seg:0 */
- *((ush*)&buf+1) += ((ush)((uch*)buf-0) + 15) >> 4;
- *(ush*)&buf = 0;
- table[next_ptr++].new_ptr = buf;
- return buf;
-}
-
-void ZLIB_INTERNAL zcfree (voidpf opaque, voidpf ptr)
-{
- int n;
- if (*(ush*)&ptr != 0) { /* object < 64K */
- farfree(ptr);
- return;
- }
- /* Find the original pointer */
- for (n = 0; n < next_ptr; n++) {
- if (ptr != table[n].new_ptr) continue;
-
- farfree(table[n].org_ptr);
- while (++n < next_ptr) {
- table[n-1] = table[n];
- }
- next_ptr--;
- return;
- }
- ptr = opaque; /* just to make some compilers happy */
- Assert(0, "zcfree: ptr not found");
-}
-
-#endif /* __TURBOC__ */
-
-
-#ifdef M_I86
-/* Microsoft C in 16-bit mode */
-
-# define MY_ZCALLOC
-
-#if (!defined(_MSC_VER) || (_MSC_VER <= 600))
-# define _halloc halloc
-# define _hfree hfree
-#endif
-
-voidpf ZLIB_INTERNAL zcalloc (voidpf opaque, uInt items, uInt size)
-{
- if (opaque) opaque = 0; /* to make compiler happy */
- return _halloc((long)items, size);
-}
-
-void ZLIB_INTERNAL zcfree (voidpf opaque, voidpf ptr)
-{
- if (opaque) opaque = 0; /* to make compiler happy */
- _hfree(ptr);
-}
-
-#endif /* M_I86 */
-
-#endif /* SYS16BIT */
-
-
-#ifndef MY_ZCALLOC /* Any system without a special alloc function */
-
-#ifndef STDC
-extern voidp malloc OF((uInt size));
-extern voidp calloc OF((uInt items, uInt size));
-extern void free OF((voidpf ptr));
-#endif
-
-voidpf ZLIB_INTERNAL zcalloc (opaque, items, size)
- voidpf opaque;
- unsigned items;
- unsigned size;
-{
- if (opaque) items += size - size; /* make compiler happy */
- return sizeof(uInt) > 2 ? (voidpf)malloc(items * size) :
- (voidpf)calloc(items, size);
-}
-
-void ZLIB_INTERNAL zcfree (opaque, ptr)
- voidpf opaque;
- voidpf ptr;
-{
- free(ptr);
- if (opaque) return; /* make compiler happy */
-}
-
-#endif /* MY_ZCALLOC */
diff --git a/3.8.8/sources/cpan-DBIx-DBSchema/vendor/DBSchema/DBD/Oracle.pm b/3.8.8/sources/cpan-DBIx-DBSchema/vendor/DBSchema/DBD/Oracle.pm
deleted file mode 100644
index 7ad5bc3..0000000
--- a/3.8.8/sources/cpan-DBIx-DBSchema/vendor/DBSchema/DBD/Oracle.pm
+++ /dev/null
@@ -1,124 +0,0 @@
-package DBIx::DBSchema::DBD::Oracle;
-
-use strict;
-use vars qw($VERSION @ISA %typemap);
-use DBIx::DBSchema::DBD;
-
-$VERSION = '0.01';
- at ISA = qw(DBIx::DBSchema::DBD);
-
-%typemap = (
- 'VARCHAR' => 'VARCHAR2',
- 'SERIAL' => 'INTEGER',
- 'LONG VARBINARY' => 'BLOB',
- 'TIMESTAMP' => 'DATE',
- 'BOOL' => 'INTEGER'
-);
-
-=head1 NAME
-
-DBIx::DBSchema::DBD::Oracle - Oracle native driver for DBIx::DBSchema
-
-=head1 SYNOPSIS
-
-use DBI;
-use DBIx::DBSchema;
-
-$dbh = DBI->connect('dbi:Oracle:tns_service_name', 'user','pass');
-$schema = new_native DBIx::DBSchema $dbh;
-
-=head1 DESCRIPTION
-
-This module implements a Oracle-native driver for DBIx::DBSchema.
-
-=head1 AUTHOR
-
-Daniel Hanks <hanksdc at about-inc.com>
-
-=cut
-
-### Return column name, column type, nullability, column length, column default,
-### and a field reserved for driver-specific use
-sub columns {
- my ($proto, $dbh, $table) = @_;
- return $proto->_column_info($dbh, $table);
-}
-
-sub column {
- my ($proto, $dbh, $table, $column) = @_;
- return $proto->_column_info($dbh, $table, $column);
-}
-
-sub _column_info {
- my ($proto, $dbh, $table, $column) = @_;
- my $sql = "SELECT column_name, data_type,
- CASE WHEN nullable = 'Y' THEN 1
- WHEN nullable = 'N' THEN 0
- ELSE 1
- END AS nullable,
- data_length, data_default, NULL AS reserved
- FROM user_tab_columns
- WHERE table_name = ?";
- $sql .= " AND column_name = ?" if defined($column);
- if(defined($column)) {
- return $dbh->selectrow_arrayref($sql, undef, $table, $column);
- } else { ### Assume columns
- return $dbh->selectall_arrayref($sql, undef, $table);
- }
-}
-
-### This is broken. Primary keys can be comprised of any subset of a tables
-### fields, not just one field, as this module assumes.
-sub primary_key {
- my ($proto, $dbh, $table) = @_;
- my $sql = "SELECT column_name
- FROM user_constraints uc, user_cons_columns ucc
- WHERE uc.constraint_name = ucc.constraint_name
- AND uc.constraint_type = 'P'
- AND uc.table_name = ?";
- my ($key) = $dbh->selectrow_array($sql, undef, $table);
- return $key;
-}
-
-### Wraoper around _index_info
-sub unique {
- my ($proto, $dbh, $table) = @_;
- return $proto->_index_info($dbh, $table, 'UNIQUE');
-}
-
-### Wrapper around _index_info
-sub index {
- my ($proto, $dbh, $table) = @_;
- return $proto->_index_info($dbh, $table, 'NONUNIQUE');
-}
-
-### Collect info about unique or non-unique indexes
-### $type must be 'UNIQUE' or 'NONUNIQUE'
-sub _index_info {
- my ($proto, $dbh, $table, $type) = @_;
-
- ### Sanity-check
- die "\$type must be 'UNIQUE' or 'NONUNIQUE'"
- unless $type =~ /^(NON)?UNIQUE$/;
-
- ### Set up the query
- my $sql = "SELECT ui.index_name, uic.column_name
- FROM user_indexes ui, user_ind_columns uic
- WHERE ui.index_name = uic.index_name
- AND ui.uniqueness = ?
- AND table_name = ?";
- my $sth = $dbh->prepare($sql);
- $sth->execute($table, $type);
-
- ### Now collect the results
- my $results = {};
- while(my ($idx, $col) = $sth->fetchrow_array()) {
- if(!exists($results->{$idx})) {
- $results->{$idx} = [];
- }
- push @{$results->{$idx}}, $col;
- }
- return $results;
-}
-
-
diff --git a/3.8.8/sources/cpan-DBIx-DBSchema/vendor/DBSchema/DBD/Pg.pm b/3.8.8/sources/cpan-DBIx-DBSchema/vendor/DBSchema/DBD/Pg.pm
deleted file mode 100644
index 30e7ecf..0000000
--- a/3.8.8/sources/cpan-DBIx-DBSchema/vendor/DBSchema/DBD/Pg.pm
+++ /dev/null
@@ -1,369 +0,0 @@
-package DBIx::DBSchema::DBD::Pg;
-
-use strict;
-use vars qw($VERSION @ISA %typemap);
-use DBD::Pg 1.32;
-use DBIx::DBSchema::DBD;
-
-$VERSION = '0.17';
- at ISA = qw(DBIx::DBSchema::DBD);
-
-die "DBD::Pg version 1.32 or 1.41 (or later) required--".
- "this is only version $DBD::Pg::VERSION\n"
- if $DBD::Pg::VERSION != 1.32 && $DBD::Pg::VERSION < 1.41;
-
-%typemap = (
- 'BLOB' => 'BYTEA',
- 'LONG VARBINARY' => 'BYTEA',
- 'TIMESTAMP' => 'TIMESTAMP WITH TIME ZONE',
-);
-
-=head1 NAME
-
-DBIx::DBSchema::DBD::Pg - PostgreSQL native driver for DBIx::DBSchema
-
-=head1 SYNOPSIS
-
-use DBI;
-use DBIx::DBSchema;
-
-$dbh = DBI->connect('dbi:Pg:dbname=database', 'user', 'pass');
-$schema = new_native DBIx::DBSchema $dbh;
-
-=head1 DESCRIPTION
-
-This module implements a PostgreSQL-native driver for DBIx::DBSchema.
-
-=cut
-
-sub default_db_schema { 'public'; }
-
-sub columns {
- my($proto, $dbh, $table) = @_;
- my $sth = $dbh->prepare(<<END) or die $dbh->errstr;
- SELECT a.attname, t.typname, a.attlen, a.atttypmod, a.attnotnull,
- a.atthasdef, a.attnum
- FROM pg_class c, pg_attribute a, pg_type t
- WHERE c.relname = '$table'
- AND a.attnum > 0 AND a.attrelid = c.oid AND a.atttypid = t.oid
- ORDER BY a.attnum
-END
- $sth->execute or die $sth->errstr;
-
- map {
-
- my $type = $_->{'typname'};
- $type = 'char' if $type eq 'bpchar';
-
- my $len = '';
- if ( $_->{attlen} == -1 && $_->{atttypmod} != -1
- && $_->{typname} ne 'text' ) {
- $len = $_->{atttypmod} - 4;
- if ( $_->{typname} eq 'numeric' ) {
- $len = ($len >> 16). ','. ($len & 0xffff);
- }
- }
-
- my $default = '';
- if ( $_->{atthasdef} ) {
- my $attnum = $_->{attnum};
- my $d_sth = $dbh->prepare(<<END) or die $dbh->errstr;
- SELECT substring(d.adsrc for 128) FROM pg_attrdef d, pg_class c
- WHERE c.relname = '$table' AND c.oid = d.adrelid AND d.adnum = $attnum
-END
- $d_sth->execute or die $d_sth->errstr;
-
- $default = $d_sth->fetchrow_arrayref->[0];
-
- if ( _type_needs_quoting($type) ) {
- $default =~ s/::([\w ]+)$//; #save typecast info?
- if ( $default =~ /^'(.*)'$/ ) {
- $default = $1;
- $default = \"''" if $default eq '';
- } else {
- my $value = $default;
- $default = \$value;
- }
- } elsif ( $default =~ /^[a-z]/i ) { #sloppy, but it'll do
- my $value = $default;
- $default = \$value;
- }
-
- }
-
- [
- $_->{'attname'},
- $type,
- ! $_->{'attnotnull'},
- $len,
- $default,
- '' #local
- ];
-
- } @{ $sth->fetchall_arrayref({}) };
-}
-
-sub primary_key {
- my($proto, $dbh, $table) = @_;
- my $sth = $dbh->prepare(<<END) or die $dbh->errstr;
- SELECT a.attname, a.attnum
- FROM pg_class c, pg_attribute a, pg_type t
- WHERE c.relname = '${table}_pkey'
- AND a.attnum > 0 AND a.attrelid = c.oid AND a.atttypid = t.oid
-END
- $sth->execute or die $sth->errstr;
- my $row = $sth->fetchrow_hashref or return '';
- $row->{'attname'};
-}
-
-sub unique {
- my($proto, $dbh, $table) = @_;
- my $gratuitous = { map { $_ => [ $proto->_index_fields($dbh, $_ ) ] }
- grep { $proto->_is_unique($dbh, $_ ) }
- $proto->_all_indices($dbh, $table)
- };
-}
-
-sub index {
- my($proto, $dbh, $table) = @_;
- my $gratuitous = { map { $_ => [ $proto->_index_fields($dbh, $_ ) ] }
- grep { ! $proto->_is_unique($dbh, $_ ) }
- $proto->_all_indices($dbh, $table)
- };
-}
-
-sub _all_indices {
- my($proto, $dbh, $table) = @_;
- my $sth = $dbh->prepare(<<END) or die $dbh->errstr;
- SELECT c2.relname
- FROM pg_class c, pg_class c2, pg_index i
- WHERE c.relname = '$table' AND c.oid = i.indrelid AND i.indexrelid = c2.oid
-END
- $sth->execute or die $sth->errstr;
- map { $_->{'relname'} }
- grep { $_->{'relname'} !~ /_pkey$/ }
- @{ $sth->fetchall_arrayref({}) };
-}
-
-sub _index_fields {
- my($proto, $dbh, $index) = @_;
- my $sth = $dbh->prepare(<<END) or die $dbh->errstr;
- SELECT a.attname, a.attnum
- FROM pg_class c, pg_attribute a, pg_type t
- WHERE c.relname = '$index'
- AND a.attnum > 0 AND a.attrelid = c.oid AND a.atttypid = t.oid
- ORDER BY a.attnum
-END
- $sth->execute or die $sth->errstr;
- map { $_->{'attname'} } @{ $sth->fetchall_arrayref({}) };
-}
-
-sub _is_unique {
- my($proto, $dbh, $index) = @_;
- my $sth = $dbh->prepare(<<END) or die $dbh->errstr;
- SELECT i.indisunique
- FROM pg_index i, pg_class c, pg_am a
- WHERE i.indexrelid = c.oid AND c.relname = '$index' AND c.relam = a.oid
-END
- $sth->execute or die $sth->errstr;
- my $row = $sth->fetchrow_hashref or die 'guru meditation #420';
- $row->{'indisunique'};
-}
-
-sub add_column_callback {
- my( $proto, $dbh, $table, $column_obj ) = @_;
- my $name = $column_obj->name;
-
- my $pg_server_version = $dbh->{'pg_server_version'};
- my $warning = '';
- unless ( $pg_server_version =~ /\d/ ) {
- $warning = "WARNING: no pg_server_version! Assuming >= 7.3\n";
- $pg_server_version = 70300;
- }
-
- my $hashref = { 'sql_after' => [], };
-
- if ( $column_obj->type =~ /^(\w*)SERIAL$/i ) {
-
- $hashref->{'effective_type'} = uc($1).'INT';
-
- #needs more work for old Pg?
-
- my $nextval;
- warn $warning if $warning;
- if ( $pg_server_version >= 70300 ) {
- my $db_schema = default_db_schema();
- $nextval = "nextval('$db_schema.${table}_${name}_seq'::text)";
- } else {
- $nextval = "nextval('${table}_${name}_seq'::text)";
- }
-
- push @{ $hashref->{'sql_after'} },
- "ALTER TABLE $table ALTER COLUMN $name SET DEFAULT $nextval",
- "CREATE SEQUENCE ${table}_${name}_seq",
- "UPDATE $table SET $name = $nextval WHERE $name IS NULL",
- ;
-
- }
-
- if ( ! $column_obj->null ) {
- $hashref->{'effective_null'} = 'NULL';
-
- warn $warning if $warning;
- if ( $pg_server_version >= 70300 ) {
-
- push @{ $hashref->{'sql_after'} },
- "ALTER TABLE $table ALTER $name SET NOT NULL";
-
- } else {
-
- push @{ $hashref->{'sql_after'} },
- "UPDATE pg_attribute SET attnotnull = TRUE ".
- " WHERE attname = '$name' ".
- " AND attrelid = ( SELECT oid FROM pg_class WHERE relname = '$table' )";
-
- }
-
- }
-
- $hashref;
-
-}
-
-sub alter_column_callback {
- my( $proto, $dbh, $table, $old_column, $new_column ) = @_;
- my $name = $old_column->name;
-
- my %canonical = (
- 'SMALLINT' => 'INT2',
- 'INT' => 'INT4',
- 'BIGINT' => 'INT8',
- 'SERIAL' => 'INT4',
- 'BIGSERIAL' => 'INT8',
- 'DECIMAL' => 'NUMERIC',
- 'REAL' => 'FLOAT4',
- 'BLOB' => 'BYTEA',
- 'TIMESTAMP' => 'TIMESTAMPTZ',
- );
- foreach ($old_column, $new_column) {
- $_->type($canonical{uc($_->type)}) if $canonical{uc($_->type)};
- }
-
- my $pg_server_version = $dbh->{'pg_server_version'};
- my $warning = '';
- unless ( $pg_server_version =~ /\d/ ) {
- $warning = "WARNING: no pg_server_version! Assuming >= 7.3\n";
- $pg_server_version = 70300;
- }
-
- my $hashref = {};
-
- #change type
- if ( ( $canonical{uc($old_column->type)} || uc($old_column->type) )
- ne ( $canonical{uc($new_column->type)} || uc($new_column->type) )
- || $old_column->length ne $new_column->length
- )
- {
-
- warn $warning if $warning;
- if ( $pg_server_version >= 80000 ) {
-
- $hashref->{'sql_alter_type'} =
- "ALTER TABLE $table ALTER COLUMN ". $new_column->name.
- " TYPE ". $new_column->type.
- ( ( defined($new_column->length) && $new_column->length )
- ? '('.$new_column->length.')'
- : ''
- )
-
- } else {
- warn "WARNING: can't yet change column types for Pg < version 8\n";
- }
-
- }
-
- # change nullability from NOT NULL to NULL
- if ( ! $old_column->null && $new_column->null ) {
-
- warn $warning if $warning;
- if ( $pg_server_version < 70300 ) {
- $hashref->{'sql_alter_null'} =
- "UPDATE pg_attribute SET attnotnull = FALSE
- WHERE attname = '$name'
- AND attrelid = ( SELECT oid FROM pg_class
- WHERE relname = '$table'
- )";
- }
-
- }
-
- # change nullability from NULL to NOT NULL...
- # this one could be more complicated, need to set a DEFAULT value and update
- # the table first...
- if ( $old_column->null && ! $new_column->null ) {
-
- warn $warning if $warning;
- if ( $pg_server_version < 70300 ) {
- $hashref->{'sql_alter_null'} =
- "UPDATE pg_attribute SET attnotnull = TRUE
- WHERE attname = '$name'
- AND attrelid = ( SELECT oid FROM pg_class
- WHERE relname = '$table'
- )";
- }
-
- }
-
- $hashref;
-
-}
-
-sub column_value_needs_quoting {
- my($proto, $col) = @_;
- _type_needs_quoting($col->type);
-}
-
-sub _type_needs_quoting {
- my $type = shift;
- $type !~ m{^(
- int(?:2|4|8)?
- | smallint
- | integer
- | bigint
- | (?:numeric|decimal)(?:\(\d+(?:\s*\,\s*\d+\))?)?
- | real
- | double\s+precision
- | float(?:\(\d+\))?
- | serial(?:4|8)?
- | bigserial
- )$}ix;
-}
-
-
-=head1 AUTHOR
-
-Ivan Kohler <ivan-dbix-dbschema at 420.am>
-
-=head1 COPYRIGHT
-
-Copyright (c) 2000 Ivan Kohler
-Copyright (c) 2000 Mail Abuse Prevention System LLC
-Copyright (c) 2009-2010 Freeside Internet Services, Inc.
-All rights reserved.
-This program is free software; you can redistribute it and/or modify it under
-the same terms as Perl itself.
-
-=head1 BUGS
-
-Yes.
-
-columns doesn't return column default information.
-
-=head1 SEE ALSO
-
-L<DBIx::DBSchema>, L<DBIx::DBSchema::DBD>, L<DBI>, L<DBI::DBD>
-
-=cut
-
-1;
-
diff --git a/3.8.8/sources/cpan-DBIx-DBSchema/vendor/DBSchema/Table.pm b/3.8.8/sources/cpan-DBIx-DBSchema/vendor/DBSchema/Table.pm
deleted file mode 100644
index 8d047de..0000000
--- a/3.8.8/sources/cpan-DBIx-DBSchema/vendor/DBSchema/Table.pm
+++ /dev/null
@@ -1,794 +0,0 @@
-package DBIx::DBSchema::Table;
-
-use strict;
-use vars qw($VERSION $DEBUG %create_params);
-use Carp;
-#use Exporter;
-use DBIx::DBSchema::_util qw(_load_driver _dbh _parse_opt);
-use DBIx::DBSchema::Column 0.14;
-use DBIx::DBSchema::Index;
-use DBIx::DBSchema::ColGroup::Unique;
-use DBIx::DBSchema::ColGroup::Index;
-
-$VERSION = '0.08';
-$DEBUG = 0;
-
-=head1 NAME
-
-DBIx::DBSchema::Table - Table objects
-
-=head1 SYNOPSIS
-
- use DBIx::DBSchema::Table;
-
- #new style (preferred), pass a hashref of parameters
- $table = new DBIx::DBSchema::Table (
- {
- name => "table_name",
- primary_key => "primary_key",
- columns => \@dbix_dbschema_column_objects,
- #deprecated# unique => $dbix_dbschema_colgroup_unique_object,
- #deprecated# 'index' => $dbix_dbschema_colgroup_index_object,
- indices => \@dbix_dbschema_index_objects,
- }
- );
-
- #old style (VERY deprecated)
- $table = new DBIx::DBSchema::Table (
- "table_name",
- "primary_key",
- $dbix_dbschema_colgroup_unique_object,
- $dbix_dbschema_colgroup_index_object,
- @dbix_dbschema_column_objects,
- );
-
- $table->addcolumn ( $dbix_dbschema_column_object );
-
- $table_name = $table->name;
- $table->name("table_name");
-
- $primary_key = $table->primary_key;
- $table->primary_key("primary_key");
-
- #deprecated# $dbix_dbschema_colgroup_unique_object = $table->unique;
- #deprecated# $table->unique( $dbix_dbschema__colgroup_unique_object );
-
- #deprecated# $dbix_dbschema_colgroup_index_object = $table->index;
- #deprecated# $table->index( $dbix_dbschema_colgroup_index_object );
-
- %indices = $table->indices;
- $dbix_dbschema_index_object = $indices{'index_name'};
- @all_index_names = keys %indices;
- @all_dbix_dbschema_index_objects = values %indices;
-
- @column_names = $table->columns;
-
- $dbix_dbschema_column_object = $table->column("column");
-
- #preferred
- @sql_statements = $table->sql_create_table( $dbh );
- @sql_statements = $table->sql_create_table( $datasrc, $username, $password );
-
- #possible problems
- @sql_statements = $table->sql_create_table( $datasrc );
- @sql_statements = $table->sql_create_table;
-
-=head1 DESCRIPTION
-
-DBIx::DBSchema::Table objects represent a single database table.
-
-=head1 METHODS
-
-=over 4
-
-=item new HASHREF
-
-Creates a new DBIx::DBSchema::Table object. The preferred usage is to pass a
-hash reference of named parameters.
-
- {
- name => TABLE_NAME,
- primary_key => PRIMARY_KEY,
- columns => COLUMNS,
- indices => INDICES,
- local_options => OPTIONS,
- #deprecated# unique => UNIQUE,
- #deprecated# index => INDEX,
- }
-
-TABLE_NAME is the name of the table. PRIMARY_KEY is the primary key (may be
-empty). COLUMNS is a reference to an array of DBIx::DBSchema::Column objects
-(see L<DBIx::DBSchema::Column>). INDICES is a reference to an array of
-DBIx::DBSchema::Index objects (see L<DBIx::DBSchema::Index>), or a hash
-reference of index names (keys) and DBIx::DBSchema::Index objects (values).
-OPTIONS is a scalar of database-specific table options, such as "WITHOUT OIDS"
-for Pg or "TYPE=InnoDB" for mysql.
-
-Deprecated options:
-
-UNIQUE was a DBIx::DBSchema::ColGroup::Unique object (see
-L<DBIx::DBSchema::ColGroup::Unique>). INDEX was a
-DBIx::DBSchema::ColGroup::Index object (see
-L<DBIx::DBSchema::ColGroup::Index>).
-
-=cut
-
-sub new {
- my $proto = shift;
- my $class = ref($proto) || $proto;
-
- my $self;
- if ( ref($_[0]) ) {
-
- $self = shift;
- $self->{column_order} = [ map { $_->name } @{$self->{columns}} ];
- $self->{columns} = { map { $_->name, $_ } @{$self->{columns}} };
-
- $self->{indices} = { map { $_->name, $_ } @{$self->{indices}} }
- if ref($self->{indices}) eq 'ARRAY';
-
- } else {
-
- carp "Old-style $class creation without named parameters is deprecated!";
- #croak "FATAL: old-style $class creation no longer supported;".
- # " use named parameters";
-
- my($name,$primary_key,$unique,$index, at columns) = @_;
-
- my %columns = map { $_->name, $_ } @columns;
- my @column_order = map { $_->name } @columns;
-
- $self = {
- 'name' => $name,
- 'primary_key' => $primary_key,
- 'unique' => $unique,
- 'index' => $index,
- 'columns' => \%columns,
- 'column_order' => \@column_order,
- };
-
- }
-
- #check $primary_key, $unique and $index to make sure they are $columns ?
- # (and sanity check?)
-
- bless ($self, $class);
-
- $_->table_obj($self) foreach values %{ $self->{columns} };
-
- $self;
-}
-
-=item new_odbc DATABASE_HANDLE TABLE_NAME
-
-Creates a new DBIx::DBSchema::Table object from the supplied DBI database
-handle for the specified table. This uses the experimental DBI type_info
-method to create a table with standard (ODBC) SQL column types that most
-closely correspond to any non-portable column types. Use this to import a
-schema that you wish to use with many different database engines. Although
-primary key and (unique) index information will only be imported from databases
-with DBIx::DBSchema::DBD drivers (currently MySQL and PostgreSQL), import of
-column names and attributes *should* work for any database.
-
-Note: the _odbc refers to the column types used and nothing else - you do not
-have to have ODBC installed or connect to the database via ODBC.
-
-=cut
-
-%create_params = (
-# undef => sub { '' },
- '' => sub { '' },
- 'max length' => sub { $_[0]->{PRECISION}->[$_[1]]; },
- 'precision,scale' =>
- sub { $_[0]->{PRECISION}->[$_[1]]. ','. $_[0]->{SCALE}->[$_[1]]; }
-);
-
-sub new_odbc {
- my( $proto, $dbh, $name) = @_;
-
- my $driver = _load_driver($dbh);
- my $sth = _null_sth($dbh, $name);
- my $sthpos = 0;
-
- my $indices_hr =
- ( $driver
- ? eval "DBIx::DBSchema::DBD::$driver->indices(\$dbh, \$name)"
- : {}
- );
-
- $proto->new({
- 'name' => $name,
- 'primary_key' => scalar(eval "DBIx::DBSchema::DBD::$driver->primary_key(\$dbh, \$name)"),
-
- 'columns' => [
-
- map {
-
- my $col_name = $_;
-
- my $type_info = scalar($dbh->type_info($sth->{TYPE}->[$sthpos]))
- or die "DBI::type_info ". $dbh->{Driver}->{Name}. " driver ".
- "returned no results for type ". $sth->{TYPE}->[$sthpos];
-
- my $length = &{ $create_params{ $type_info->{CREATE_PARAMS} } }
- ( $sth, $sthpos++ );
-
- my $default = '';
- if ( $driver ) {
- $default = ${ [
- eval "DBIx::DBSchema::DBD::$driver->column(\$dbh, \$name, \$_)"
- ] }[4];
- }
-
- DBIx::DBSchema::Column->new({
- 'name' => $col_name,
- #'type' => "SQL_". uc($type_info->{'TYPE_NAME'}),
- 'type' => $type_info->{'TYPE_NAME'},
- 'null' => $sth->{NULLABLE}->[$sthpos],
- 'length' => $length,
- 'default' => $default,
- #'local' => # DB-local
- });
-
- }
- @{$sth->{NAME}}
-
- ],
-
- #old-style indices
- #DBIx::DBSchema::ColGroup::Unique->new(
- # $driver
- # ? [values %{eval "DBIx::DBSchema::DBD::$driver->unique(\$dbh, \$name)"}]
- # : []
- #),
- #DBIx::DBSchema::ColGroup::Index->new(
- # $driver
- # ? [ values %{eval "DBIx::DBSchema::DBD::$driver->index(\$dbh, \$name)"} ]
- # : []
- #),
-
- #new-style indices
- 'indices' => { map { my $indexname = $_;
- $indexname =>
- DBIx::DBSchema::Index->new($indices_hr->{$indexname})
- }
- keys %$indices_hr
- },
-
- });
-}
-
-=item new_native DATABASE_HANDLE TABLE_NAME
-
-Creates a new DBIx::DBSchema::Table object from the supplied DBI database
-handle for the specified table. This uses database-native methods to read the
-schema, and will preserve any non-portable column types. The method is only
-available if there is a DBIx::DBSchema::DBD for the corresponding database
-engine (currently, MySQL and PostgreSQL).
-
-=cut
-
-sub new_native {
- my( $proto, $dbh, $name) = @_;
- my $driver = _load_driver($dbh);
-
- my $indices_hr =
- ( $driver
- ? eval "DBIx::DBSchema::DBD::$driver->indices(\$dbh, \$name)"
- : {}
- );
-
- $proto->new({
- 'name' => $name,
- 'primary_key' => scalar(eval "DBIx::DBSchema::DBD::$driver->primary_key(\$dbh, \$name)"),
- 'columns' => [
-
- map DBIx::DBSchema::Column->new( @{$_} ),
- eval "DBIx::DBSchema::DBD::$driver->columns(\$dbh, \$name)"
- ],
-
- #old-style indices
- #DBIx::DBSchema::ColGroup::Unique->new(
- # [ values %{eval "DBIx::DBSchema::DBD::$driver->unique(\$dbh, \$name)"} ]
- #),
- #DBIx::DBSchema::ColGroup::Index->new(
- # [ values %{eval "DBIx::DBSchema::DBD::$driver->index(\$dbh, \$name)"} ]
- #),
-
- #new-style indices
- 'indices' => { map { my $indexname = $_;
- $indexname =>
- DBIx::DBSchema::Index->new($indices_hr->{$indexname})
- }
- keys %$indices_hr
- },
-
- });
-}
-
-=item addcolumn COLUMN
-
-Adds this DBIx::DBSchema::Column object.
-
-=cut
-
-sub addcolumn {
- my($self, $column) = @_;
- $column->table_obj($self);
- ${$self->{'columns'}}{$column->name} = $column; #sanity check?
- push @{$self->{'column_order'}}, $column->name;
-}
-
-=item delcolumn COLUMN_NAME
-
-Deletes this column. Returns false if no column of this name was found to
-remove, true otherwise.
-
-=cut
-
-sub delcolumn {
- my($self,$column) = @_;
- return 0 unless exists $self->{'columns'}{$column};
- $self->{'columns'}{$column}->table_obj('');
- delete $self->{'columns'}{$column};
- @{$self->{'column_order'}}= grep { $_ ne $column } @{$self->{'column_order'}}; 1;
-}
-
-=item name [ TABLE_NAME ]
-
-Returns or sets the table name.
-
-=cut
-
-sub name {
- my($self,$value)=@_;
- if ( defined($value) ) {
- $self->{name} = $value;
- } else {
- $self->{name};
- }
-}
-
-=item local_options [ OPTIONS ]
-
-Returns or sets the database-specific table options string.
-
-=cut
-
-sub local_options {
- my($self,$value)=@_;
- if ( defined($value) ) {
- $self->{local_options} = $value;
- } else {
- defined $self->{local_options} ? $self->{local_options} : '';
- }
-}
-
-=item primary_key [ PRIMARY_KEY ]
-
-Returns or sets the primary key.
-
-=cut
-
-sub primary_key {
- my($self,$value)=@_;
- if ( defined($value) ) {
- $self->{primary_key} = $value;
- } else {
- #$self->{primary_key};
- #hmm. maybe should untaint the entire structure when it comes off disk
- # cause if you don't trust that, ?
- $self->{primary_key} =~ /^(\w*)$/
- #aah!
- or die "Illegal primary key: ", $self->{primary_key};
- $1;
- }
-}
-
-=item unique [ UNIQUE ]
-
-This method is deprecated and included for backwards-compatibility only.
-See L</indices> for the current method to access unique and non-unique index
-objects.
-
-Returns or sets the DBIx::DBSchema::ColGroup::Unique object.
-
-=cut
-
-sub unique {
- my $self = shift;
-
- carp ref($self) . "->unique method is deprecated; see ->indices";
- #croak ref($self). "->unique method is deprecated; see ->indices";
-
- $self->_unique(@_);
-}
-
-sub _unique {
-
- my ($self,$value)=@_;
-
- if ( defined($value) ) {
- $self->{unique} = $value;
- } else {
- $self->{unique};
- }
-}
-
-=item index [ INDEX ]
-
-This method is deprecated and included for backwards-compatibility only.
-See L</indices> for the current method to access unique and non-unique index
-objects.
-
-Returns or sets the DBIx::DBSchema::ColGroup::Index object.
-
-=cut
-
-sub index {
- my $self = shift;
-
- carp ref($self). "->index method is deprecated; see ->indices";
- #croak ref($self). "->index method is deprecated; see ->indices";
-
- $self->_index(@_);
-}
-
-
-sub _index {
- my($self,$value)=@_;
-
- if ( defined($value) ) {
- $self->{'index'} = $value;
- } else {
- $self->{'index'};
- }
-}
-
-=item columns
-
-Returns a list consisting of the names of all columns.
-
-=cut
-
-sub columns {
- my($self)=@_;
- #keys %{$self->{'columns'}};
- #must preserve order
- @{ $self->{'column_order'} };
-}
-
-=item column COLUMN_NAME
-
-Returns the column object (see L<DBIx::DBSchema::Column>) for the specified
-COLUMN_NAME.
-
-=cut
-
-sub column {
- my($self,$column)=@_;
- $self->{'columns'}->{$column};
-}
-
-=item indices COLUMN_NAME
-
-Returns a list of key-value pairs suitable for assigning to a hash. Keys are
-index names, and values are index objects (see L<DBIx::DBSchema::Index>).
-
-=cut
-
-sub indices {
- my $self = shift;
- exists( $self->{'indices'} )
- ? %{ $self->{'indices'} }
- : ();
-}
-
-=item unique_singles
-
-Meet exciting and unique singles using this method!
-
-This method returns a list of column names that are indexed with their own,
-unique, non-compond (that's the "single" part) indices.
-
-=cut
-
-sub unique_singles {
- my $self = shift;
- my %indices = $self->indices;
-
- map { ${ $indices{$_}->columns }[0] }
- grep { $indices{$_}->unique && scalar(@{$indices{$_}->columns}) == 1 }
- keys %indices;
-}
-
-=item sql_create_table [ DATABASE_HANDLE | DATA_SOURCE [ USERNAME PASSWORD [ ATTR ] ] ]
-
-Returns a list of SQL statments to create this table.
-
-Optionally, the data source can be specified by passing an open DBI database
-handle, or by passing the DBI data source name, username and password.
-
-The data source can be specified by passing an open DBI database handle, or by
-passing the DBI data source name, username and password.
-
-Although the username and password are optional, it is best to call this method
-with a database handle or data source including a valid username and password -
-a DBI connection will be opened and the quoting and type mapping will be more
-reliable.
-
-If passed a DBI data source (or handle) such as `DBI:mysql:database', will use
-MySQL- or PostgreSQL-specific syntax. Non-standard syntax for other engines
-(if applicable) may also be supported in the future.
-
-=cut
-
-sub sql_create_table {
- my($self, $dbh) = ( shift, _dbh(@_) );
-
- my $driver = _load_driver($dbh);
-
-#should be in the DBD somehwere :/
-# my $saved_pkey = '';
-# if ( $driver eq 'Pg' && $self->primary_key ) {
-# my $pcolumn = $self->column( (
-# grep { $self->column($_)->name eq $self->primary_key } $self->columns
-# )[0] );
-##AUTO-INCREMENT# $pcolumn->type('serial') if lc($pcolumn->type) eq 'integer';
-# $pcolumn->local( $pcolumn->local. ' PRIMARY KEY' );
-# #my $saved_pkey = $self->primary_key;
-# #$self->primary_key('');
-# #change it back afterwords :/
-# }
-
- my @columns = map { $self->column($_)->line($dbh) } $self->columns;
-
- push @columns, "PRIMARY KEY (". $self->primary_key. ")"
- if $self->primary_key && ! grep /PRIMARY KEY/i, @columns;
-
- my $indexnum = 1;
-
- my @r = (
- "CREATE TABLE ". $self->name. " (\n ". join(",\n ", @columns). "\n)\n".
- $self->local_options
- );
-
- if ( $self->_unique ) {
-
- warn "WARNING: DBIx::DBSchema::Table object for ". $self->name.
- " table has deprecated (non-named) unique indices\n";
-
- push @r, map {
- #my($index) = $self->name. "__". $_ . "_idx";
- #$index =~ s/,\s*/_/g;
- my $index = $self->name. $indexnum++;
- "CREATE UNIQUE INDEX $index ON ". $self->name. " ($_)\n"
- } $self->unique->sql_list;
-
- }
-
- if ( $self->_index ) {
-
- warn "WARNING: DBIx::DBSchema::Table object for ". $self->name.
- " table has deprecated (non-named) indices\n";
-
- push @r, map {
- #my($index) = $self->name. "__". $_ . "_idx";
- #$index =~ s/,\s*/_/g;
- my $index = $self->name. $indexnum++;
- "CREATE INDEX $index ON ". $self->name. " ($_)\n"
- } $self->index->sql_list;
- }
-
- my %indices = $self->indices;
- #push @r, map { $indices{$_}->sql_create_index( $self->name ) } keys %indices;
- foreach my $index ( keys %indices ) {
- push @r, $indices{$index}->sql_create_index( $self->name );
- }
-
- #$self->primary_key($saved_pkey) if $saved_pkey;
- @r;
-}
-
-=item sql_alter_table PROTOTYPE_TABLE, [ DATABASE_HANDLE | DATA_SOURCE [ USERNAME PASSWORD [ ATTR ] ] ]
-
-Returns a list of SQL statements to alter this table so that it is identical
-to the provided table, also a DBIx::DBSchema::Table object.
-
-The data source can be specified by passing an open DBI database handle, or by
-passing the DBI data source name, username and password.
-
-Although the username and password are optional, it is best to call this method
-with a database handle or data source including a valid username and password -
-a DBI connection will be opened and used to check the database version as well
-as for more reliable quoting and type mapping. Note that the database
-connection will be used passively, B<not> to actually run the CREATE
-statements.
-
-If passed a DBI data source (or handle) such as `DBI:mysql:database' or
-`DBI:Pg:dbname=database', will use syntax specific to that database engine.
-Currently supported databases are MySQL and PostgreSQL.
-
-If not passed a data source (or handle), or if there is no driver for the
-specified database, will attempt to use generic SQL syntax.
-
-=cut
-
-#gosh, false laziness w/DBSchema::sql_update_schema
-
-sub sql_alter_table {
- my($self, $opt, $new, $dbh) = ( shift, _parse_opt(\@_), shift, _dbh(@_) );
-
- my $driver = _load_driver($dbh);
-
- my $table = $self->name;
-
- my @r = ();
- my @r_later = ();
- my $tempnum = 1;
-
- ###
- # columns (add/alter)
- ###
-
- foreach my $column ( $new->columns ) {
-
- if ( $self->column($column) ) {
-
- warn " $table.$column exists\n" if $DEBUG > 1;
- push @r, $self->column($column)->sql_alter_column( $new->column($column),
- $dbh,
- $opt,
- );
-
- } else {
-
- warn "column $table.$column does not exist.\n" if $DEBUG > 1;
- push @r, $new->column($column)->sql_add_column( $dbh );
-
- }
-
- }
-
- ###
- # indices
- ###
-
- my %old_indices = $self->indices;
- my %new_indices = $new->indices;
-
- foreach my $old ( keys %old_indices ) {
-
- if ( exists( $new_indices{$old} )
- && $old_indices{$old}->cmp( $new_indices{$old} )
- )
- {
- warn "index $table.$old is identical; not changing\n" if $DEBUG > 1;
- delete $old_indices{$old};
- delete $new_indices{$old};
-
- } elsif ( $driver eq 'Pg' and $dbh->{'pg_server_version'} >= 80000 ) {
-
- my @same = grep { $old_indices{$old}->cmp_noname( $new_indices{$_} ) }
- keys %new_indices;
-
- if ( @same ) {
-
- #warn if there's more than one?
- my $same = shift @same;
-
- warn "index $table.$old is identical to $same; renaming\n"
- if $DEBUG > 1;
-
- my $temp = 'dbs_temp'.$tempnum++;
-
- push @r, "ALTER INDEX $old RENAME TO $temp";
- push @r_later, "ALTER INDEX $temp RENAME TO $same";
-
- delete $old_indices{$old};
- delete $new_indices{$same};
-
- }
-
- }
-
- }
-
- foreach my $old ( keys %old_indices ) {
- warn "removing obsolete index $table.$old ON ( ".
- $old_indices{$old}->columns_sql. " )\n"
- if $DEBUG > 1;
- push @r, "DROP INDEX $old".
- ( $driver eq 'mysql' ? " ON $table" : '');
- }
-
- foreach my $new ( keys %new_indices ) {
- warn "creating new index $table.$new\n" if $DEBUG > 1;
- push @r, $new_indices{$new}->sql_create_index($table);
- }
-
- ###
- # columns (drop)
- ###
-
- foreach my $column ( grep !$new->column($_), $self->columns ) {
-
- warn "column $table.$column should be dropped.\n" if $DEBUG;
-
- push @r, $self->column($column)->sql_drop_column( $dbh );
-
- }
-
- ###
- # return the statements
- ###
-
- push @r, @r_later;
-
- warn join('', map "$_\n", @r)
- if $DEBUG && @r;
-
- @r;
-
-}
-
-sub sql_drop_table {
- my( $self, $dbh ) = ( shift, _dbh(@_) );
-
- my $name = $self->name;
-
- ("DROP TABLE $name");
-}
-
-sub _null_sth {
- my($dbh, $table) = @_;
- my $sth = $dbh->prepare("SELECT * FROM $table WHERE 1=0")
- or die $dbh->errstr;
- $sth->execute or die $sth->errstr;
- $sth;
-}
-
-=back
-
-=head1 AUTHOR
-
-Ivan Kohler <ivan-dbix-dbschema at 420.am>
-
-Thanks to Mark Ethan Trostler <mark at zzo.com> for a patch to allow tables
-with no indices.
-
-=head1 COPYRIGHT
-
-Copyright (c) 2000-2007 Ivan Kohler
-Copyright (c) 2000 Mail Abuse Prevention System LLC
-Copyright (c) 2007-2010 Freeside Internet Services, Inc.
-All rights reserved.
-This program is free software; you can redistribute it and/or modify it under
-the same terms as Perl itself.
-
-=head1 BUGS
-
-sql_create_table() has database-specific foo that probably ought to be
-abstracted into the DBIx::DBSchema::DBD:: modules (or no? it doesn't anymore?).
-
-sql_alter_table() also has database-specific foo that ought to be abstracted
-into the DBIx::DBSchema::DBD:: modules.
-
-sql_create_table() may change or destroy the object's data. If you need to use
-the object after sql_create_table, make a copy beforehand.
-
-Some of the logic in new_odbc might be better abstracted into Column.pm etc.
-
-Add methods to get and set specific indices, by name? (like column COLUMN_NAME)
-
-indices method should be a setter, not just a getter?
-
-=head1 SEE ALSO
-
-L<DBIx::DBSchema>, L<DBIx::DBSchema::ColGroup::Unique>,
-L<DBIx::DBSchema::ColGroup::Index>, L<DBIx::DBSchema::Column>, L<DBI>
-
-=cut
-
-1;
-
diff --git a/3.8.8/sources/cpan-DBIx-DBSchema/vendor/DBSchema/_util.pm b/3.8.8/sources/cpan-DBIx-DBSchema/vendor/DBSchema/_util.pm
deleted file mode 100644
index 5bb583f..0000000
--- a/3.8.8/sources/cpan-DBIx-DBSchema/vendor/DBSchema/_util.pm
+++ /dev/null
@@ -1,52 +0,0 @@
-# internal utility subroutines used by multiple classes
-
-package DBIx::DBSchema::_util;
-
-use strict;
-use vars qw(@ISA @EXPORT_OK);
-use Exporter;
-use Carp qw(confess);
-use DBI;
-
- at ISA = qw(Exporter);
- at EXPORT_OK = qw( _load_driver _dbh _parse_opt );
-
-sub _load_driver {
- my($dbh) = @_;
- my $driver;
- if ( ref($dbh) ) {
- $driver = $dbh->{Driver}->{Name};
- } else {
- $dbh =~ s/^dbi:(\w*?)(?:\((.*?)\))?://i #nicked from DBI->connect
- or '' =~ /()/; # ensure $1 etc are empty if match fails
- $driver = $1 or confess "can't parse data source: $dbh";
- }
-
- #require "DBIx/DBSchema/DBD/$driver.pm";
- #$driver;
- eval 'require "DBIx/DBSchema/DBD/$driver.pm"' and $driver or die $@;
-}
-
-#sub _dbh_or_dbi_connect_args {
-sub _dbh {
- my($dbh) = shift;
- my $created_dbh = 0;
- unless ( ref($dbh) || ! @_ ) {
- $dbh = DBI->connect( $dbh, @_ ) or die $DBI::errstr;
- $created_dbh = 1;
- }
-
- ( $dbh, $created_dbh );
-}
-
-sub _parse_opt {
- my $optref = shift;
- if ( ref( $optref->[0] ) eq 'HASH' ) {
- shift @$optref;
- } else {
- {};
- }
-}
-
-1;
-
diff --git a/3.8.8/sources/cpan-DBIx-DBSchema/vendor/META.yml b/3.8.8/sources/cpan-DBIx-DBSchema/vendor/META.yml
deleted file mode 100644
index 6d023c7..0000000
--- a/3.8.8/sources/cpan-DBIx-DBSchema/vendor/META.yml
+++ /dev/null
@@ -1,23 +0,0 @@
---- #YAML:1.0
-name: DBIx-DBSchema
-version: 0.39
-abstract: ~
-author: []
-license: unknown
-distribution_type: module
-configure_requires:
- ExtUtils::MakeMaker: 0
-build_requires:
- ExtUtils::MakeMaker: 0
-requires:
- DBI: 0
- FreezeThaw: 0
- Storable: 0
-no_index:
- directory:
- - t
- - inc
-generated_by: ExtUtils::MakeMaker version 6.55_02
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
diff --git a/3.8.8/sources/cpan-DBIx-DBSchema/vendor/t/load-oracle.t b/3.8.8/sources/cpan-DBIx-DBSchema/vendor/t/load-oracle.t
deleted file mode 100644
index c851812..0000000
--- a/3.8.8/sources/cpan-DBIx-DBSchema/vendor/t/load-oracle.t
+++ /dev/null
@@ -1,5 +0,0 @@
-BEGIN { $| = 1; print "1..1\n"; }
-END {print "not ok 1\n" unless $loaded;}
-use DBIx::DBSchema::DBD::Oracle;
-$loaded = 1;
-print "ok 1\n";
diff --git a/3.8.8/sources/cpan-DBIx-DBSchema/vendor/t/load-pg.t b/3.8.8/sources/cpan-DBIx-DBSchema/vendor/t/load-pg.t
deleted file mode 100644
index 93fcf4a..0000000
--- a/3.8.8/sources/cpan-DBIx-DBSchema/vendor/t/load-pg.t
+++ /dev/null
@@ -1,12 +0,0 @@
-print "1..1\n";
-eval "use DBD::Pg 1.32";
-if ( length($@) ) {
- print "ok 1 # Skipped: DBD::Pg 1.32 required for Pg";
-} else {
- eval "use DBIx::DBSchema::DBD::Pg;";
- if ( length($@) ) {
- print "not ok 1\n";
- } else {
- print "ok 1\n";
- }
-}
diff --git a/3.8.8/sources/cpan-DBIx-DBSchema/vendor/t/load-sqlite.t b/3.8.8/sources/cpan-DBIx-DBSchema/vendor/t/load-sqlite.t
deleted file mode 100644
index 786091e..0000000
--- a/3.8.8/sources/cpan-DBIx-DBSchema/vendor/t/load-sqlite.t
+++ /dev/null
@@ -1,5 +0,0 @@
-BEGIN { $| = 1; print "1..1\n"; }
-END {print "not ok 1\n" unless $loaded;}
-use DBIx::DBSchema::DBD::SQLite;
-$loaded = 1;
-print "ok 1\n";
diff --git a/3.8.8/sources/cpan-DBIx-DBSchema/vendor/t/load-sybase.t b/3.8.8/sources/cpan-DBIx-DBSchema/vendor/t/load-sybase.t
deleted file mode 100644
index fef6047..0000000
--- a/3.8.8/sources/cpan-DBIx-DBSchema/vendor/t/load-sybase.t
+++ /dev/null
@@ -1,5 +0,0 @@
-BEGIN { $| = 1; print "1..1\n"; }
-END {print "not ok 1\n" unless $loaded;}
-use DBIx::DBSchema::DBD::Sybase;
-$loaded = 1;
-print "ok 1\n";
diff --git a/3.8.8/sources/cpan-DBIx-DBSchema/vendor/t/load.t b/3.8.8/sources/cpan-DBIx-DBSchema/vendor/t/load.t
deleted file mode 100644
index 67ea44b..0000000
--- a/3.8.8/sources/cpan-DBIx-DBSchema/vendor/t/load.t
+++ /dev/null
@@ -1,5 +0,0 @@
-BEGIN { $| = 1; print "1..1\n"; }
-END {print "not ok 1\n" unless $loaded;}
-use DBIx::DBSchema;
-$loaded = 1;
-print "ok 1\n";
diff --git a/3.8.8/sources/cpan-Data-Dumper/vendor/Todo b/3.8.8/sources/cpan-Data-Dumper/vendor/Todo
deleted file mode 100644
index bd76e65..0000000
--- a/3.8.8/sources/cpan-Data-Dumper/vendor/Todo
+++ /dev/null
@@ -1,28 +0,0 @@
-=head1 NAME
-
-TODO - seeds germane, yet not germinated
-
-=head1 DESCRIPTION
-
-The following functionality will be supported in the next few releases.
-
-=over 4
-
-=item $Data::Dumper::Expdepth I<or> $I<OBJ>->Expdepth(I<NEWVAL>)
-
-Dump contents explicitly up to a certain depth and then use names for
-cross-referencing identical references. (useful in debugger, in situations
-where we don't care so much for cross-references).
-
-=item Make C<Dumpxs()> honor C<$Useqq>
-
-=item Fix formatting when Terse is set and Indent >= 2
-
-=item Output space after '\' (ref constructor) for high enough Indent
-
-=item Implement redesign that allows various backends (Perl, Lisp,
-some-binary-data-format, graph-description-languages, etc.)
-
-=item Dump traversal in breadth-first order
-
-=back
diff --git a/3.8.8/sources/cpan-Data-Dumper/vendor/ppport.h b/3.8.8/sources/cpan-Data-Dumper/vendor/ppport.h
deleted file mode 100644
index 3e3d52f..0000000
--- a/3.8.8/sources/cpan-Data-Dumper/vendor/ppport.h
+++ /dev/null
@@ -1,6984 +0,0 @@
-#if 0
-<<'SKIP';
-#endif
-/*
-----------------------------------------------------------------------
-
- ppport.h -- Perl/Pollution/Portability Version 3.17
-
- Automatically created by Devel::PPPort running under perl 5.010000.
-
- 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 3.17
-
-=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.10.0.
-
-=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
-automagially 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
- 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
- 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
- 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
- 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 using the CPAN Request Tracker at L<http://rt.cpan.org/>.
-
-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-2009, 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 = 3.17;
-
-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(
-AvFILLp|5.004050||p
-AvFILL|||
-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||p
-Copy|||
-CvPADLIST|||
-CvSTASH|||
-CvWEAKOUTSIDE|||
-DEFSV_set|5.011000||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|||
-GvSV|||
-Gv_AMupdate|||
-HEf_SVKEY||5.004000|
-HeHASH||5.004000|
-HeKEY||5.004000|
-HeKLEN||5.004000|
-HePV||5.004000|
-HeSVKEY_force||5.004000|
-HeSVKEY_set||5.004000|
-HeSVKEY||5.004000|
-HeUTF8||5.011000|
-HeVAL||5.004000|
-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|||
-LVRET|||
-MARK|||
-MULTICALL||5.011000|
-MY_CXT_CLONE|5.009002||p
-MY_CXT_INIT|5.007003||p
-MY_CXT|5.007003||p
-MoveD|5.009002||p
-Move|||
-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|||
-ORIGMARK|||
-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_DUP|||
-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.011000||p
-PERL_GCC_BRACE_GROUPS_FORBIDDEN|5.008001||p
-PERL_HASH|5.004000||p
-PERL_INT_MAX|5.004000||p
-PERL_INT_MIN|5.004000||p
-PERL_LONG_MAX|5.004000||p
-PERL_LONG_MIN|5.004000||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.011000||p
-PERL_MAGIC_isaelem|5.007002||p
-PERL_MAGIC_isa|5.007002||p
-PERL_MAGIC_mutex|5.011000||p
-PERL_MAGIC_nkeys|5.007002||p
-PERL_MAGIC_overload_elem|5.007002||p
-PERL_MAGIC_overload_table|5.007002||p
-PERL_MAGIC_overload|5.007002||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.004000||p
-PERL_QUAD_MIN|5.004000||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.004000||p
-PERL_SHORT_MIN|5.004000||p
-PERL_SIGNALS_UNSAFE_FLAG|5.008001||p
-PERL_SUBVERSION|5.006000||p
-PERL_UCHAR_MAX|5.004000||p
-PERL_UCHAR_MIN|5.004000||p
-PERL_UINT_MAX|5.004000||p
-PERL_UINT_MIN|5.004000||p
-PERL_ULONG_MAX|5.004000||p
-PERL_ULONG_MIN|5.004000||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.004000||p
-PERL_UQUAD_MIN|5.004000||p
-PERL_USE_GCC_BRACE_GROUPS|5.009004||p
-PERL_USHORT_MAX|5.004000||p
-PERL_USHORT_MIN|5.004000||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.011000||p
-PL_bufptr|5.011000||p
-PL_compiling|5.004050||p
-PL_copline|5.011000||p
-PL_curcop|5.004050||p
-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_expect|5.011000||p
-PL_hexdigit|5.005000||p
-PL_hints|5.005000||p
-PL_last_in_gv|||n
-PL_laststatval|5.005000||p
-PL_lex_state|5.011000||p
-PL_lex_stuff|5.011000||p
-PL_linestr|5.011000||p
-PL_modglobal||5.005000|n
-PL_na|5.004050||pn
-PL_no_modify|5.006000||p
-PL_ofsgv|||n
-PL_parser|5.009005||p
-PL_perl_destruct_level|5.004050||p
-PL_perldb|5.004050||p
-PL_ppaddr|5.006000||p
-PL_rsfp_filters|5.004050||p
-PL_rsfp|5.004050||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.011000||p
-POP_MULTICALL||5.011000|
-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.011000|
-PUSHi|||
-PUSHmortal|5.009002||p
-PUSHn|||
-PUSHp|||
-PUSHs|||
-PUSHu|5.004000||p
-PUTBACK|||
-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_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
-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
-SVf_UTF8|5.006000||p
-SVf|5.006000||p
-SVt_IV|||
-SVt_NV|||
-SVt_PVAV|||
-SVt_PVCV|||
-SVt_PVHV|||
-SVt_PVMG|||
-SVt_PV|||
-Safefree|||
-Slab_Alloc|||
-Slab_Free|||
-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_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|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|||
-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|||
-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.011000||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
-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
-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_VERSION_BOOTCHECK|||
-XS_VERSION|||
-XSprePUSH|5.006000||p
-XS|||
-ZeroD|5.009002||p
-Zero|||
-_aMY_CXT|5.007003||p
-_pMY_CXT|5.007003||p
-aMY_CXT_|5.007003||p
-aMY_CXT|5.007003||p
-aTHXR_|5.011000||p
-aTHXR|5.011000||p
-aTHX_|5.006000||p
-aTHX|5.006000||p
-add_data|||n
-addmad|||
-allocmy|||
-amagic_call|||
-amagic_cmp_locale|||
-amagic_cmp|||
-amagic_i_ncmp|||
-amagic_ncmp|||
-any_dup|||
-ao|||
-append_elem|||
-append_list|||
-append_madprops|||
-apply_attrs_my|||
-apply_attrs_string||5.006001|
-apply_attrs|||
-apply|||
-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|||
-av_fetch|||
-av_fill|||
-av_iter_p||5.011000|
-av_len|||
-av_make|||
-av_pop|||
-av_push|||
-av_reify|||
-av_shift|||
-av_store|||
-av_undef|||
-av_unshift|||
-ax|||n
-bad_type|||
-bind_match|||
-block_end|||
-block_gimme||5.004000|
-block_start|||
-boolSV|5.004000||p
-boot_core_PerlIO|||
-boot_core_UNIVERSAL|||
-boot_core_mro|||
-boot_core_xsutils|||
-bytes_from_utf8||5.007001|
-bytes_to_uni|||n
-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
-calloc||5.007002|n
-cando|||
-cast_i32||5.006000|
-cast_iv||5.006000|
-cast_ulong||5.006000|
-cast_uv||5.006000|
-check_type_and_open|||
-check_uni|||
-checkcomma|||
-checkposixcc|||
-ckWARN|5.006000||p
-ck_anoncode|||
-ck_bitop|||
-ck_concat|||
-ck_defined|||
-ck_delete|||
-ck_die|||
-ck_each|||
-ck_eof|||
-ck_eval|||
-ck_exec|||
-ck_exists|||
-ck_exit|||
-ck_ftst|||
-ck_fun|||
-ck_glob|||
-ck_grep|||
-ck_index|||
-ck_join|||
-ck_lfun|||
-ck_listiob|||
-ck_match|||
-ck_method|||
-ck_null|||
-ck_open|||
-ck_readline|||
-ck_repeat|||
-ck_require|||
-ck_return|||
-ck_rfun|||
-ck_rvconst|||
-ck_sassign|||
-ck_select|||
-ck_shift|||
-ck_sort|||
-ck_spair|||
-ck_split|||
-ck_subr|||
-ck_substr|||
-ck_svconst|||
-ck_trunc|||
-ck_unpack|||
-ckwarn_d||5.009003|
-ckwarn||5.009003|
-cl_and|||n
-cl_anything|||n
-cl_init_zero|||n
-cl_init|||n
-cl_is_anything|||n
-cl_or|||n
-clear_placeholders|||
-closest_cop|||
-convert|||
-cop_free|||
-cr_textfilter|||
-create_eval_scope|||
-croak_nocontext|||vn
-croak_xs_usage||5.011000|
-croak|||v
-csighandler||5.009003|n
-curmad|||
-custom_op_desc||5.007003|
-custom_op_name||5.007003|
-cv_ckproto_len|||
-cv_clone|||
-cv_const_sv||5.004000|
-cv_dump|||
-cv_undef|||
-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.011000||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
-del_sv|||
-delete_eval_scope|||
-delimcpy||5.004000|
-deprecate_old|||
-deprecate|||
-despatch_signals||5.007001|
-destroy_matcher|||
-die_nocontext|||vn
-die_where|||
-die|||v
-dirp_dup|||
-div128|||
-djSP|||
-do_aexec5|||
-do_aexec|||
-do_aspawn|||
-do_binmode||5.004050|
-do_chomp|||
-do_chop|||
-do_close|||
-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_kv|||
-do_magic_dump||5.006000|
-do_msgrcv|||
-do_msgsnd|||
-do_oddball|||
-do_op_dump||5.006000|
-do_op_xmldump|||
-do_open9||5.006000|
-do_openn||5.007001|
-do_open||5.004000|
-do_pmop_dump||5.006000|
-do_pmop_xmldump|||
-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|||
-dump_all||5.006000|
-dump_eval||5.006000|
-dump_exec_pos|||
-dump_fds|||
-dump_form||5.006000|
-dump_indent||5.006000|v
-dump_mstats|||
-dump_packsubs||5.006000|
-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|||
-fetch_cop_label||5.011000|
-filter_add|||
-filter_del|||
-filter_gets|||
-filter_read|||
-find_and_forget_pmops|||
-find_array_subscript|||
-find_beginning|||
-find_byclass|||
-find_hash_subscript|||
-find_in_my_stash|||
-find_runcv||5.008001|
-find_rundefsvoffset||5.009002|
-find_script|||
-find_uninit_var|||
-first_symbol|||n
-fold_constants|||
-forbid_setid|||
-force_ident|||
-force_list|||
-force_next|||
-force_version|||
-force_word|||
-forget_pmop|||
-form_nocontext|||vn
-form||5.004000|v
-fp_dup|||
-fprintf_nocontext|||vn
-free_global_struct|||
-free_tied_hv_pool|||
-free_tmps|||
-gen_constant_list|||
-get_arena|||
-get_aux_mg|||
-get_av|5.006000||p
-get_context||5.006000|n
-get_cvn_flags||5.009005|
-get_cv|5.006000||p
-get_db_sub|||
-get_debug_opts|||
-get_hash_seed|||
-get_hv|5.006000||p
-get_isa_hash|||
-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_2pv|||
-glob_assign_glob|||
-glob_assign_ref|||
-gp_dup|||
-gp_free|||
-gp_ref|||
-grok_bin|5.007003||p
-grok_hex|5.007003||p
-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_autoload4||5.004000|
-gv_check|||
-gv_const_sv||5.009003|
-gv_dump||5.006000|
-gv_efullname3||5.004000|
-gv_efullname4||5.006001|
-gv_efullname|||
-gv_ename|||
-gv_fetchfile_flags||5.009005|
-gv_fetchfile|||
-gv_fetchmeth_autoload||5.007003|
-gv_fetchmethod_autoload||5.004000|
-gv_fetchmethod_flags||5.011000|
-gv_fetchmethod|||
-gv_fetchmeth|||
-gv_fetchpvn_flags||5.009002|
-gv_fetchpv|||
-gv_fetchsv||5.009002|
-gv_fullname3||5.004000|
-gv_fullname4||5.006001|
-gv_fullname|||
-gv_get_super_pkg|||
-gv_handler||5.007001|
-gv_init_sv|||
-gv_init|||
-gv_name_set||5.009004|
-gv_stashpvn|5.004000||p
-gv_stashpvs||5.009003|
-gv_stashpv|||
-gv_stashsv|||
-he_dup|||
-hek_dup|||
-hfreeentries|||
-hsplit|||
-hv_assert||5.011000|
-hv_auxinit|||n
-hv_backreferences_p|||
-hv_clear_placeholders||5.009001|
-hv_clear|||
-hv_common_key_len||5.010000|
-hv_common||5.010000|
-hv_copy_hints_hv|||
-hv_delayfree_ent||5.004000|
-hv_delete_common|||
-hv_delete_ent||5.004000|
-hv_delete|||
-hv_eiter_p||5.009003|
-hv_eiter_set||5.009003|
-hv_exists_ent||5.004000|
-hv_exists|||
-hv_fetch_ent||5.004000|
-hv_fetchs|5.009003||p
-hv_fetch|||
-hv_free_ent||5.004000|
-hv_iterinit|||
-hv_iterkeysv||5.004000|
-hv_iterkey|||
-hv_iternext_flags||5.008000|
-hv_iternextsv|||
-hv_iternext|||
-hv_iterval|||
-hv_kill_backrefs|||
-hv_ksplit||5.004000|
-hv_magic_check|||n
-hv_magic|||
-hv_name_set||5.009003|
-hv_notallowed|||
-hv_placeholders_get||5.009003|
-hv_placeholders_p||5.009003|
-hv_placeholders_set||5.009003|
-hv_riter_p||5.009003|
-hv_riter_set||5.009003|
-hv_scalar||5.009001|
-hv_store_ent||5.004000|
-hv_store_flags||5.008000|
-hv_stores|5.009004||p
-hv_store|||
-hv_undef|||
-ibcmp_locale||5.004000|
-ibcmp_utf8||5.007003|
-ibcmp|||
-incline|||
-incpush_if_exists|||
-incpush_use_sep|||
-incpush|||
-ingroup|||
-init_argv_symbols|||
-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|
-instr|||
-intro_my|||
-intuit_method|||
-intuit_more|||
-invert|||
-io_close|||
-isALNUMC|5.006000||p
-isALNUM|||
-isALPHA|||
-isASCII|5.006000||p
-isBLANK|5.006001||p
-isCNTRL|5.006000||p
-isDIGIT|||
-isGRAPH|5.006000||p
-isLOWER|||
-isPRINT|5.004000||p
-isPSXSPC|5.006001||p
-isPUNCT|5.006000||p
-isSPACE|||
-isUPPER|||
-isXDIGIT|5.006000||p
-is_an_int|||
-is_gv_magical_sv|||
-is_handle_constructor|||n
-is_list_assignment|||
-is_lvalue_sub||5.007001|
-is_uni_alnum_lc||5.006000|
-is_uni_alnumc_lc||5.006000|
-is_uni_alnumc||5.006000|
-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_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.006000|
-is_utf8_alnum||5.006000|
-is_utf8_alpha||5.006000|
-is_utf8_ascii||5.006000|
-is_utf8_char_slow|||n
-is_utf8_char||5.006000|
-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_print||5.006000|
-is_utf8_punct||5.006000|
-is_utf8_space||5.006000|
-is_utf8_string_loclen||5.009003|
-is_utf8_string_loc||5.008001|
-is_utf8_string||5.006001|
-is_utf8_upper||5.006000|
-is_utf8_xdigit||5.006000|
-isa_lookup|||
-items|||n
-ix|||n
-jmaybe|||
-join_exact|||
-keyword|||
-leave_scope|||
-lex_end|||
-lex_start|||
-linklist|||
-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.011000||p
-mPUSHu|5.009002||p
-mXPUSHi|5.009002||p
-mXPUSHn|5.009002||p
-mXPUSHp|5.009002||p
-mXPUSHs|5.011000||p
-mXPUSHu|5.009002||p
-mad_free|||
-madlex|||
-madparse|||
-magic_clear_all_env|||
-magic_clearenv|||
-magic_clearhint|||
-magic_clearisa|||
-magic_clearpack|||
-magic_clearsig|||
-magic_dump||5.006000|
-magic_existspack|||
-magic_freearylen_p|||
-magic_freeovrld|||
-magic_getarylen|||
-magic_getdefelem|||
-magic_getnkeys|||
-magic_getpack|||
-magic_getpos|||
-magic_getsig|||
-magic_getsubstr|||
-magic_gettaint|||
-magic_getuvar|||
-magic_getvec|||
-magic_get|||
-magic_killbackrefs|||
-magic_len|||
-magic_methcall|||
-magic_methpack|||
-magic_nextpack|||
-magic_regdata_cnt|||
-magic_regdatum_get|||
-magic_regdatum_set|||
-magic_scalarpack|||
-magic_set_all_env|||
-magic_setamagic|||
-magic_setarylen|||
-magic_setcollxfrm|||
-magic_setdbline|||
-magic_setdefelem|||
-magic_setenv|||
-magic_sethint|||
-magic_setisa|||
-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_failtable|||
-make_trie|||
-malloc_good_size|||n
-malloced_size|||n
-malloc||5.007002|n
-markstack_grow|||
-matcher_matches_sv|||
-measure_struct|||
-memEQ|5.004000||p
-memNE|5.004000||p
-mem_collxfrm|||
-mem_log_common|||n
-mess_alloc|||
-mess_nocontext|||vn
-mess||5.006000|v
-method_common|||
-mfree||5.007002|n
-mg_clear|||
-mg_copy|||
-mg_dup|||
-mg_find|||
-mg_free|||
-mg_get|||
-mg_length||5.005000|
-mg_localize|||
-mg_magical|||
-mg_set|||
-mg_size||5.005000|
-mini_mktime||5.007002|
-missingterm|||
-mode_from_discipline|||
-modkids|||
-mod|||
-more_bodies|||
-more_sv|||
-moreswitches|||
-mro_get_from_name||5.011000|
-mro_get_linear_isa_dfs|||
-mro_get_linear_isa||5.009005|
-mro_get_private_data||5.011000|
-mro_isa_changed_in|||
-mro_meta_dup|||
-mro_meta_init|||
-mro_method_changed_in||5.009005|
-mro_register||5.011000|
-mro_set_mro||5.011000|
-mro_set_private_data||5.011000|
-mul128|||
-mulexp10|||n
-my_atof2||5.007002|
-my_atof||5.006000|
-my_attrs|||
-my_bcopy|||n
-my_betoh16|||n
-my_betoh32|||n
-my_betoh64|||n
-my_betohi|||n
-my_betohl|||n
-my_betohs|||n
-my_bzero|||n
-my_chsize|||
-my_clearenv|||
-my_cxt_index|||
-my_cxt_init|||
-my_dirfd||5.009005|
-my_exit_jump|||
-my_exit|||
-my_failure_exit||5.004000|
-my_fflush_all||5.006000|
-my_fork||5.007003|n
-my_htobe16|||n
-my_htobe32|||n
-my_htobe64|||n
-my_htobei|||n
-my_htobel|||n
-my_htobes|||n
-my_htole16|||n
-my_htole32|||n
-my_htole64|||n
-my_htolei|||n
-my_htolel|||n
-my_htoles|||n
-my_htonl|||
-my_kid|||
-my_letoh16|||n
-my_letoh32|||n
-my_letoh64|||n
-my_letohi|||n
-my_letohl|||n
-my_letohs|||n
-my_lstat|||
-my_memcmp||5.004000|n
-my_memset|||n
-my_ntohl|||
-my_pclose||5.004000|
-my_popen_list||5.007001|
-my_popen||5.004000|
-my_setenv|||
-my_snprintf|5.009004||pvn
-my_socketpair||5.007003|n
-my_sprintf|5.009003||pvn
-my_stat|||
-my_strftime||5.007002|
-my_strlcat|5.009004||pn
-my_strlcpy|5.009004||pn
-my_swabn|||n
-my_swap|||
-my_unexec|||
-my_vsnprintf||5.009004|n
-need_utf8|||n
-newANONATTRSUB||5.006000|
-newANONHASH|||
-newANONLIST|||
-newANONSUB|||
-newASSIGNOP|||
-newATTRSUB||5.006000|
-newAVREF|||
-newAV|||
-newBINOP|||
-newCONDOP|||
-newCONSTSUB|5.004050||p
-newCVREF|||
-newDEFSVOP|||
-newFORM|||
-newFOROP|||
-newGIVENOP||5.009003|
-newGIVWHENOP|||
-newGP|||
-newGVOP|||
-newGVREF|||
-newGVgen|||
-newHVREF|||
-newHVhv||5.005000|
-newHV|||
-newIO|||
-newLISTOP|||
-newLOGOP|||
-newLOOPEX|||
-newLOOPOP|||
-newMADPROP|||
-newMADsv|||
-newMYSUB|||
-newNULLLIST|||
-newOP|||
-newPADOP|||
-newPMOP|||
-newPROG|||
-newPVOP|||
-newRANGE|||
-newRV_inc|5.004000||p
-newRV_noinc|5.004000||p
-newRV|||
-newSLICEOP|||
-newSTATEOP|||
-newSUB|||
-newSVOP|||
-newSVREF|||
-newSV_type||5.009005|
-newSVhek||5.009003|
-newSViv|||
-newSVnv|||
-newSVpvf_nocontext|||vn
-newSVpvf||5.004000|v
-newSVpvn_flags|5.011000||p
-newSVpvn_share|5.007001||p
-newSVpvn_utf8|5.011000||p
-newSVpvn|5.004050||p
-newSVpvs_flags|5.011000||p
-newSVpvs_share||5.009003|
-newSVpvs|5.009003||p
-newSVpv|||
-newSVrv|||
-newSVsv|||
-newSVuv|5.006000||p
-newSV|||
-newTOKEN|||
-newUNOP|||
-newWHENOP||5.009003|
-newWHILEOP||5.009003|
-newXS_flags||5.009004|
-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|||
-no_bareword_allowed|||
-no_fh_allowed|||
-no_op|||
-not_a_number|||
-nothreadhook||5.008000|
-nuke_stacks|||
-num_overflow|||n
-offer_nice_chunk|||
-oopsAV|||
-oopsHV|||
-op_clear|||
-op_const_sv|||
-op_dump||5.006000|
-op_free|||
-op_getmad_weak|||
-op_getmad|||
-op_null||5.007002|
-op_refcnt_dec|||
-op_refcnt_inc|||
-op_refcnt_lock||5.009002|
-op_refcnt_unlock||5.009002|
-op_xmldump|||
-open_script|||
-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|||
-packlist||5.008001|
-pad_add_anon|||
-pad_add_name|||
-pad_alloc|||
-pad_block_start|||
-pad_check_dup|||
-pad_compname_type|||
-pad_findlex|||
-pad_findmy|||
-pad_fixup_inner_anons|||
-pad_free|||
-pad_leavemy|||
-pad_new|||
-pad_peg|||n
-pad_push|||
-pad_reset|||
-pad_setsv|||
-pad_sv||5.011000|
-pad_swipe|||
-pad_tidy|||
-pad_undef|||
-parse_body|||
-parse_unicode_opts|||
-parser_dup|||
-parser_free|||
-path_is_absolute|||n
-peep|||
-pending_Slabs_to_ro|||
-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|||
-pmflag|||
-pmop_dump||5.006000|
-pmop_xmldump|||
-pmruntime|||
-pmtrans|||
-pop_scope|||
-pregcomp||5.009005|
-pregexec|||
-pregfree2||5.011000|
-pregfree|||
-prepend_elem|||
-prepend_madprops|||
-printbuf|||
-printf_nocontext|||vn
-process_special_blocks|||
-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_byte|||
-pv_display|5.006000||p
-pv_escape|5.009004||p
-pv_pretty|5.009004||p
-pv_uni_display||5.007003|
-qerror|||
-qsortsvu|||
-re_compile||5.009005|
-re_croak2|||
-re_dup_guts|||
-re_intuit_start||5.009005|
-re_intuit_string||5.006000|
-readpipe_override|||
-realloc||5.007002|n
-reentrant_free|||
-reentrant_init|||
-reentrant_retry|||vn
-reentrant_size|||
-ref_array_or_hash|||
-refcounted_he_chain_2hv|||
-refcounted_he_fetch|||
-refcounted_he_free|||
-refcounted_he_new_common|||
-refcounted_he_new|||
-refcounted_he_value|||
-refkids|||
-refto|||
-ref||5.011000|
-reg_check_named_buff_matched|||
-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_namedseq|||
-reg_node|||
-reg_numbered_buff_fetch|||
-reg_numbered_buff_length|||
-reg_numbered_buff_store|||
-reg_qr_package|||
-reg_recode|||
-reg_scan_name|||
-reg_skipcomment|||
-reg_temp_copy|||
-reganode|||
-regatom|||
-regbranch|||
-regclass_swash||5.009004|
-regclass|||
-regcppop|||
-regcppush|||
-regcurly|||n
-regdump_extflags|||
-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|
-regpiece|||
-regpposixcc|||
-regprop|||
-regrepeat|||
-regtail_study|||
-regtail|||
-regtry|||
-reguni|||
-regwhite|||n
-reg|||
-repeatcpy|||
-report_evil_fh|||
-report_uninit|||
-require_pv||5.006000|
-require_tie_mod|||
-restore_magic|||
-rninstr|||
-rsignal_restore|||
-rsignal_save|||
-rsignal_state||5.004000|
-rsignal||5.004000|
-run_body|||
-run_user_filter|||
-runops_debug||5.005000|
-runops_standard||5.005000|
-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||5.004050|
-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_hek_flags|||n
-save_helem_flags||5.011000|
-save_helem||5.004050|
-save_hints|||
-save_hptr|||
-save_int|||
-save_item|||
-save_iv||5.005000|
-save_lines|||
-save_list|||
-save_long|||
-save_magic|||
-save_mortalizesv||5.007001|
-save_nogv|||
-save_op|||
-save_padsv_and_mortalize||5.011000|
-save_pptr|||
-save_pushi32ptr|||
-save_pushptri32ptr|||
-save_pushptrptr|||
-save_pushptr||5.011000|
-save_re_context||5.006000|
-save_scalar_at|||
-save_scalar|||
-save_set_svflags||5.009000|
-save_shared_pvref||5.007003|
-save_sptr|||
-save_svref|||
-save_vptr||5.006000|
-savepvn|||
-savepvs||5.009003|
-savepv|||
-savesharedpvn||5.009005|
-savesharedpv||5.007003|
-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|||
-scope|||
-screaminstr||5.005000|
-search_const|||
-seed||5.008001|
-sequence_num|||
-sequence_tail|||
-sequence|||
-set_context||5.006000|n
-set_numeric_local||5.006000|
-set_numeric_radix||5.006000|
-set_numeric_standard||5.006000|
-setdefout|||
-share_hek_flags|||
-share_hek||5.004000|
-si_dup|||
-sighandler|||n
-simplify_sort|||
-skipspace0|||
-skipspace1|||
-skipspace2|||
-skipspace|||
-softref2xv|||
-sortcv_stacked|||
-sortcv_xsub|||
-sortcv|||
-sortsv_flags||5.009003|
-sortsv||5.007003|
-space_join_names_mortal|||
-ss_dup|||
-stack_grow|||
-start_force|||
-start_glob|||
-start_subparse||5.004000|
-stashpv_hvname_match||5.011000|
-stdize_locale|||
-store_cop_label|||
-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|||
-sv_2cv|||
-sv_2io|||
-sv_2iuv_common|||
-sv_2iuv_non_preserve|||
-sv_2iv_flags||5.009001|
-sv_2iv|||
-sv_2mortal|||
-sv_2num|||
-sv_2nv|||
-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|||
-sv_bless|||
-sv_cat_decode||5.008001|
-sv_catpv_mg|5.004050||p
-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|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_catxmlpvn|||
-sv_catxmlsv|||
-sv_chop|||
-sv_clean_all|||
-sv_clean_objs|||
-sv_clear|||
-sv_cmp_locale||5.004000|
-sv_cmp|||
-sv_collxfrm|||
-sv_compile_2op||5.008001|
-sv_copypv||5.007003|
-sv_dec|||
-sv_del_backref|||
-sv_derived_from||5.004000|
-sv_destroyable||5.010000|
-sv_does||5.009004|
-sv_dump|||
-sv_dup|||
-sv_eq|||
-sv_exp_grow|||
-sv_force_normal_flags||5.007001|
-sv_force_normal||5.006000|
-sv_free2|||
-sv_free_arenas|||
-sv_free|||
-sv_gets||5.004000|
-sv_grow|||
-sv_i_ncmp|||
-sv_inc|||
-sv_insert_flags||5.011000|
-sv_insert|||
-sv_isa|||
-sv_isobject|||
-sv_iv||5.005000|
-sv_kill_backrefs|||
-sv_len_utf8||5.006000|
-sv_len|||
-sv_magic_portable|5.011000|5.004000|p
-sv_magicext||5.007003|
-sv_magic|||
-sv_mortalcopy|||
-sv_ncmp|||
-sv_newmortal|||
-sv_newref|||
-sv_nolocking||5.007003|
-sv_nosharing||5.007003|
-sv_nounlocking|||
-sv_nv||5.005000|
-sv_peek||5.005000|
-sv_pos_b2u_midway|||
-sv_pos_b2u||5.006000|
-sv_pos_u2b_cached|||
-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_release_COW|||
-sv_replace|||
-sv_report_used|||
-sv_reset|||
-sv_rvweaken||5.006000|
-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|5.009004||p
-sv_setpv|||
-sv_setref_iv|||
-sv_setref_nv|||
-sv_setref_pvn|||
-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_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||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
-sv_xmlpeek|||
-svtype|||
-swallow_bom|||
-swap_match_buff|||
-swash_fetch||5.007002|
-swash_get|||
-swash_init||5.006000|
-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|||
-tmps_grow||5.006000|
-toLOWER|||
-toUPPER|||
-to_byte_substr|||
-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.007003|
-to_utf8_lower||5.007003|
-to_utf8_substr|||
-to_utf8_title||5.007003|
-to_utf8_upper||5.007003|
-token_free|||
-token_getmad|||
-tokenize_use|||
-tokeq|||
-tokereport|||
-too_few_arguments|||
-too_many_arguments|||
-uiv_2buf|||n
-unlnk|||
-unpack_rec|||
-unpack_str||5.007003|
-unpackstring||5.008001|
-unshare_hek_or_pvn|||
-unshare_hek|||
-unsharepvn||5.004000|
-unwind_handler_stack|||
-update_debugger_info|||
-upg_version||5.009005|
-usage|||
-utf16_to_utf8_reversed||5.006001|
-utf16_to_utf8||5.006001|
-utf8_distance||5.006000|
-utf8_hop||5.006000|
-utf8_length||5.007001|
-utf8_mg_pos_cache_update|||
-utf8_to_bytes||5.006001|
-utf8_to_uvchr||5.007001|
-utf8_to_uvuni||5.007001|
-utf8n_to_uvchr|||
-utf8n_to_uvuni||5.007001|
-utilize|||
-uvchr_to_utf8_flags||5.007003|
-uvchr_to_utf8|||
-uvuni_to_utf8_flags||5.007003|
-uvuni_to_utf8||5.007001|
-validate_suid|||
-varname|||
-vcmp||5.009000|
-vcroak||5.006000|
-vdeb||5.007003|
-vdie_common|||
-vdie_croak_common|||
-vdie|||
-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
-warner_nocontext|||vn
-warner|5.006000|5.004000|pv
-warn|||v
-watch|||
-whichsig|||
-write_no_mem|||
-write_to_stderr|||
-xmldump_all|||
-xmldump_attr|||
-xmldump_eval|||
-xmldump_form|||
-xmldump_indent|||v
-xmldump_packsubs|||
-xmldump_sub|||
-xmldump_vindent|||
-yyerror|||
-yylex|||
-yyparse|||
-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 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 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 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 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
-#ifndef isALNUMC
-# define isALNUMC(c) (isALPHA(c) || isDIGIT(c))
-#endif
-
-#ifndef isASCII
-# define isASCII(c) ((c) <= 127)
-#endif
-
-#ifndef isCNTRL
-# define isCNTRL(c) ((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
-
-#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_expect expect
-# define PL_hexdigit hexdigit
-# define PL_hints hints
-# 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)
-
-#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);
-#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"
-# else
-# if IVSIZE == INTSIZE
-# define IVdf "d"
-# define UVuf "u"
-# define UVof "o"
-# define UVxf "x"
-# define UVXf "X"
-# endif
-# 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
-
-#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_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
-
-#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 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 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 SvGETMAGIC
-# define SvGETMAGIC(x) STMT_START { if (SvGMAGICAL(x)) mg_get(x); } STMT_END
-#endif
-#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
-
-#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 */
-#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/3.8.8/sources/cpan-Data-Dumper/vendor/t/dumper.t b/3.8.8/sources/cpan-Data-Dumper/vendor/t/dumper.t
deleted file mode 100755
index de5e87c..0000000
--- a/3.8.8/sources/cpan-Data-Dumper/vendor/t/dumper.t
+++ /dev/null
@@ -1,1432 +0,0 @@
-#!./perl -w
-#
-# testsuite for Data::Dumper
-#
-
-BEGIN {
- require Config; import Config;
- if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
- print "1..0 # Skip: Data::Dumper was not built\n";
- exit 0;
- }
-}
-
-# Since Perl 5.8.1 because otherwise hash ordering is really random.
-local $Data::Dumper::Sortkeys = 1;
-
-use Data::Dumper;
-use Config;
-my $Is_ebcdic = defined($Config{'ebcdic'}) && $Config{'ebcdic'} eq 'define';
-
-$Data::Dumper::Pad = "#";
-my $TMAX;
-my $XS;
-my $TNUM = 0;
-my $WANT = '';
-
-sub TEST {
- my $string = shift;
- my $name = shift;
- my $t = eval $string;
- ++$TNUM;
- $t =~ s/([A-Z]+)\(0x[0-9a-f]+\)/$1(0xdeadbeef)/g
- if ($WANT =~ /deadbeef/);
- if ($Is_ebcdic) {
- # these data need massaging with non ascii character sets
- # because of hashing order differences
- $WANT = join("\n",sort(split(/\n/,$WANT)));
- $WANT =~ s/\,$//mg;
- $t = join("\n",sort(split(/\n/,$t)));
- $t =~ s/\,$//mg;
- }
- $name = $name ? " - $name" : '';
- print( ($t eq $WANT and not $@) ? "ok $TNUM$name\n"
- : "not ok $TNUM$name\n--Expected--\n$WANT\n--Got--\n$@$t\n");
-
- ++$TNUM;
- if ($Is_ebcdic) { # EBCDIC.
- if ($TNUM == 311 || $TNUM == 314) {
- eval $string;
- } else {
- eval $t;
- }
- } else {
- eval "$t";
- }
- print $@ ? "not ok $TNUM\n# \$@ says: $@\n" : "ok $TNUM\n";
-
- $t = eval $string;
- ++$TNUM;
- $t =~ s/([A-Z]+)\(0x[0-9a-f]+\)/$1(0xdeadbeef)/g
- if ($WANT =~ /deadbeef/);
- if ($Is_ebcdic) {
- # here too there are hashing order differences
- $WANT = join("\n",sort(split(/\n/,$WANT)));
- $WANT =~ s/\,$//mg;
- $t = join("\n",sort(split(/\n/,$t)));
- $t =~ s/\,$//mg;
- }
- print( ($t eq $WANT and not $@) ? "ok $TNUM\n"
- : "not ok $TNUM\n--Expected--\n$WANT\n--Got--\n$@$t\n");
-}
-
-sub SKIP_TEST {
- my $reason = shift;
- ++$TNUM; print "ok $TNUM # skip $reason\n";
- ++$TNUM; print "ok $TNUM # skip $reason\n";
- ++$TNUM; print "ok $TNUM # skip $reason\n";
-}
-
-# Force Data::Dumper::Dump to use perl. We test Dumpxs explicitly by calling
-# it direct. Out here it lets us knobble the next if to test that the perl
-# only tests do work (and count correctly)
-$Data::Dumper::Useperl = 1;
-if (defined &Data::Dumper::Dumpxs) {
- print "### XS extension loaded, will run XS tests\n";
- $TMAX = 363; $XS = 1;
-}
-else {
- print "### XS extensions not loaded, will NOT run XS tests\n";
- $TMAX = 183; $XS = 0;
-}
-
-print "1..$TMAX\n";
-
-#XXXif (0) {
-#############
-#############
-
- at c = ('c');
-$c = \@c;
-$b = {};
-$a = [1, $b, $c];
-$b->{a} = $a;
-$b->{b} = $a->[1];
-$b->{c} = $a->[2];
-
-############# 1
-##
-$WANT = <<'EOT';
-#$a = [
-# 1,
-# {
-# 'a' => $a,
-# 'b' => $a->[1],
-# 'c' => [
-# 'c'
-# ]
-# },
-# $a->[1]{'c'}
-# ];
-#$b = $a->[1];
-#$6 = $a->[1]{'c'};
-EOT
-
-TEST q(Data::Dumper->Dump([$a,$b,$c], [qw(a b), 6]));
-TEST q(Data::Dumper->Dumpxs([$a,$b,$c], [qw(a b), 6])) if $XS;
-
-
-############# 7
-##
-$WANT = <<'EOT';
-#@a = (
-# 1,
-# {
-# 'a' => [],
-# 'b' => {},
-# 'c' => [
-# 'c'
-# ]
-# },
-# []
-# );
-#$a[1]{'a'} = \@a;
-#$a[1]{'b'} = $a[1];
-#$a[2] = $a[1]{'c'};
-#$b = $a[1];
-EOT
-
-$Data::Dumper::Purity = 1; # fill in the holes for eval
-TEST q(Data::Dumper->Dump([$a, $b], [qw(*a b)])); # print as @a
-TEST q(Data::Dumper->Dumpxs([$a, $b], [qw(*a b)])) if $XS;
-
-############# 13
-##
-$WANT = <<'EOT';
-#%b = (
-# 'a' => [
-# 1,
-# {},
-# [
-# 'c'
-# ]
-# ],
-# 'b' => {},
-# 'c' => []
-# );
-#$b{'a'}[1] = \%b;
-#$b{'b'} = \%b;
-#$b{'c'} = $b{'a'}[2];
-#$a = $b{'a'};
-EOT
-
-TEST q(Data::Dumper->Dump([$b, $a], [qw(*b a)])); # print as %b
-TEST q(Data::Dumper->Dumpxs([$b, $a], [qw(*b a)])) if $XS;
-
-############# 19
-##
-$WANT = <<'EOT';
-#$a = [
-# 1,
-# {
-# 'a' => [],
-# 'b' => {},
-# 'c' => []
-# },
-# []
-#];
-#$a->[1]{'a'} = $a;
-#$a->[1]{'b'} = $a->[1];
-#$a->[1]{'c'} = \@c;
-#$a->[2] = \@c;
-#$b = $a->[1];
-EOT
-
-$Data::Dumper::Indent = 1;
-TEST q(
- $d = Data::Dumper->new([$a,$b], [qw(a b)]);
- $d->Seen({'*c' => $c});
- $d->Dump;
- );
-if ($XS) {
- TEST q(
- $d = Data::Dumper->new([$a,$b], [qw(a b)]);
- $d->Seen({'*c' => $c});
- $d->Dumpxs;
- );
-}
-
-
-############# 25
-##
-$WANT = <<'EOT';
-#$a = [
-# #0
-# 1,
-# #1
-# {
-# a => $a,
-# b => $a->[1],
-# c => [
-# #0
-# 'c'
-# ]
-# },
-# #2
-# $a->[1]{c}
-# ];
-#$b = $a->[1];
-EOT
-
-$d->Indent(3);
-$d->Purity(0)->Quotekeys(0);
-TEST q( $d->Reset; $d->Dump );
-
-TEST q( $d->Reset; $d->Dumpxs ) if $XS;
-
-############# 31
-##
-$WANT = <<'EOT';
-#$VAR1 = [
-# 1,
-# {
-# 'a' => [],
-# 'b' => {},
-# 'c' => [
-# 'c'
-# ]
-# },
-# []
-#];
-#$VAR1->[1]{'a'} = $VAR1;
-#$VAR1->[1]{'b'} = $VAR1->[1];
-#$VAR1->[2] = $VAR1->[1]{'c'};
-EOT
-
-TEST q(Dumper($a));
-TEST q(Data::Dumper::DumperX($a)) if $XS;
-
-############# 37
-##
-$WANT = <<'EOT';
-#[
-# 1,
-# {
-# a => $VAR1,
-# b => $VAR1->[1],
-# c => [
-# 'c'
-# ]
-# },
-# $VAR1->[1]{c}
-#]
-EOT
-
-{
- local $Data::Dumper::Purity = 0;
- local $Data::Dumper::Quotekeys = 0;
- local $Data::Dumper::Terse = 1;
- TEST q(Dumper($a));
- TEST q(Data::Dumper::DumperX($a)) if $XS;
-}
-
-
-############# 43
-##
-$WANT = <<'EOT';
-#$VAR1 = {
-# "abc\0'\efg" => "mno\0",
-# "reftest" => \\1
-#};
-EOT
-
-$foo = { "abc\000\'\efg" => "mno\000",
- "reftest" => \\1,
- };
-{
- local $Data::Dumper::Useqq = 1;
- TEST q(Dumper($foo));
-}
-
- $WANT = <<"EOT";
-#\$VAR1 = {
-# 'abc\0\\'\efg' => 'mno\0',
-# 'reftest' => \\\\1
-#};
-EOT
-
- {
- local $Data::Dumper::Useqq = 1;
- TEST q(Data::Dumper::DumperX($foo)) if $XS; # cheat
- }
-
-
-
-#############
-#############
-
-{
- package main;
- use Data::Dumper;
- $foo = 5;
- @foo = (-10,\*foo);
- %foo = (a=>1,b=>\$foo,c=>\@foo);
- $foo{d} = \%foo;
- $foo[2] = \%foo;
-
-############# 49
-##
- $WANT = <<'EOT';
-#$foo = \*::foo;
-#*::foo = \5;
-#*::foo = [
-# #0
-# -10,
-# #1
-# do{my $o},
-# #2
-# {
-# 'a' => 1,
-# 'b' => do{my $o},
-# 'c' => [],
-# 'd' => {}
-# }
-# ];
-#*::foo{ARRAY}->[1] = $foo;
-#*::foo{ARRAY}->[2]{'b'} = *::foo{SCALAR};
-#*::foo{ARRAY}->[2]{'c'} = *::foo{ARRAY};
-#*::foo{ARRAY}->[2]{'d'} = *::foo{ARRAY}->[2];
-#*::foo = *::foo{ARRAY}->[2];
-#@bar = @{*::foo{ARRAY}};
-#%baz = %{*::foo{ARRAY}->[2]};
-EOT
-
- $Data::Dumper::Purity = 1;
- $Data::Dumper::Indent = 3;
- TEST q(Data::Dumper->Dump([\\*foo, \\@foo, \\%foo], ['*foo', '*bar', '*baz']));
- TEST q(Data::Dumper->Dumpxs([\\*foo, \\@foo, \\%foo], ['*foo', '*bar', '*baz'])) if $XS;
-
-############# 55
-##
- $WANT = <<'EOT';
-#$foo = \*::foo;
-#*::foo = \5;
-#*::foo = [
-# -10,
-# do{my $o},
-# {
-# 'a' => 1,
-# 'b' => do{my $o},
-# 'c' => [],
-# 'd' => {}
-# }
-#];
-#*::foo{ARRAY}->[1] = $foo;
-#*::foo{ARRAY}->[2]{'b'} = *::foo{SCALAR};
-#*::foo{ARRAY}->[2]{'c'} = *::foo{ARRAY};
-#*::foo{ARRAY}->[2]{'d'} = *::foo{ARRAY}->[2];
-#*::foo = *::foo{ARRAY}->[2];
-#$bar = *::foo{ARRAY};
-#$baz = *::foo{ARRAY}->[2];
-EOT
-
- $Data::Dumper::Indent = 1;
- TEST q(Data::Dumper->Dump([\\*foo, \\@foo, \\%foo], ['foo', 'bar', 'baz']));
- TEST q(Data::Dumper->Dumpxs([\\*foo, \\@foo, \\%foo], ['foo', 'bar', 'baz'])) if $XS;
-
-############# 61
-##
- $WANT = <<'EOT';
-#@bar = (
-# -10,
-# \*::foo,
-# {}
-#);
-#*::foo = \5;
-#*::foo = \@bar;
-#*::foo = {
-# 'a' => 1,
-# 'b' => do{my $o},
-# 'c' => [],
-# 'd' => {}
-#};
-#*::foo{HASH}->{'b'} = *::foo{SCALAR};
-#*::foo{HASH}->{'c'} = \@bar;
-#*::foo{HASH}->{'d'} = *::foo{HASH};
-#$bar[2] = *::foo{HASH};
-#%baz = %{*::foo{HASH}};
-#$foo = $bar[1];
-EOT
-
- TEST q(Data::Dumper->Dump([\\@foo, \\%foo, \\*foo], ['*bar', '*baz', '*foo']));
- TEST q(Data::Dumper->Dumpxs([\\@foo, \\%foo, \\*foo], ['*bar', '*baz', '*foo'])) if $XS;
-
-############# 67
-##
- $WANT = <<'EOT';
-#$bar = [
-# -10,
-# \*::foo,
-# {}
-#];
-#*::foo = \5;
-#*::foo = $bar;
-#*::foo = {
-# 'a' => 1,
-# 'b' => do{my $o},
-# 'c' => [],
-# 'd' => {}
-#};
-#*::foo{HASH}->{'b'} = *::foo{SCALAR};
-#*::foo{HASH}->{'c'} = $bar;
-#*::foo{HASH}->{'d'} = *::foo{HASH};
-#$bar->[2] = *::foo{HASH};
-#$baz = *::foo{HASH};
-#$foo = $bar->[1];
-EOT
-
- TEST q(Data::Dumper->Dump([\\@foo, \\%foo, \\*foo], ['bar', 'baz', 'foo']));
- TEST q(Data::Dumper->Dumpxs([\\@foo, \\%foo, \\*foo], ['bar', 'baz', 'foo'])) if $XS;
-
-############# 73
-##
- $WANT = <<'EOT';
-#$foo = \*::foo;
-#@bar = (
-# -10,
-# $foo,
-# {
-# a => 1,
-# b => \5,
-# c => \@bar,
-# d => $bar[2]
-# }
-#);
-#%baz = %{$bar[2]};
-EOT
-
- $Data::Dumper::Purity = 0;
- $Data::Dumper::Quotekeys = 0;
- TEST q(Data::Dumper->Dump([\\*foo, \\@foo, \\%foo], ['*foo', '*bar', '*baz']));
- TEST q(Data::Dumper->Dumpxs([\\*foo, \\@foo, \\%foo], ['*foo', '*bar', '*baz'])) if $XS;
-
-############# 79
-##
- $WANT = <<'EOT';
-#$foo = \*::foo;
-#$bar = [
-# -10,
-# $foo,
-# {
-# a => 1,
-# b => \5,
-# c => $bar,
-# d => $bar->[2]
-# }
-#];
-#$baz = $bar->[2];
-EOT
-
- TEST q(Data::Dumper->Dump([\\*foo, \\@foo, \\%foo], ['foo', 'bar', 'baz']));
- TEST q(Data::Dumper->Dumpxs([\\*foo, \\@foo, \\%foo], ['foo', 'bar', 'baz'])) if $XS;
-
-}
-
-#############
-#############
-{
- package main;
- @dogs = ( 'Fido', 'Wags' );
- %kennel = (
- First => \$dogs[0],
- Second => \$dogs[1],
- );
- $dogs[2] = \%kennel;
- $mutts = \%kennel;
- $mutts = $mutts; # avoid warning
-
-############# 85
-##
- $WANT = <<'EOT';
-#%kennels = (
-# First => \'Fido',
-# Second => \'Wags'
-#);
-#@dogs = (
-# ${$kennels{First}},
-# ${$kennels{Second}},
-# \%kennels
-#);
-#%mutts = %kennels;
-EOT
-
- TEST q(
- $d = Data::Dumper->new([\\%kennel, \\@dogs, $mutts],
- [qw(*kennels *dogs *mutts)] );
- $d->Dump;
- );
- if ($XS) {
- TEST q(
- $d = Data::Dumper->new([\\%kennel, \\@dogs, $mutts],
- [qw(*kennels *dogs *mutts)] );
- $d->Dumpxs;
- );
- }
-
-############# 91
-##
- $WANT = <<'EOT';
-#%kennels = %kennels;
-#@dogs = @dogs;
-#%mutts = %kennels;
-EOT
-
- TEST q($d->Dump);
- TEST q($d->Dumpxs) if $XS;
-
-############# 97
-##
- $WANT = <<'EOT';
-#%kennels = (
-# First => \'Fido',
-# Second => \'Wags'
-#);
-#@dogs = (
-# ${$kennels{First}},
-# ${$kennels{Second}},
-# \%kennels
-#);
-#%mutts = %kennels;
-EOT
-
-
- TEST q($d->Reset; $d->Dump);
- if ($XS) {
- TEST q($d->Reset; $d->Dumpxs);
- }
-
-############# 103
-##
- $WANT = <<'EOT';
-#@dogs = (
-# 'Fido',
-# 'Wags',
-# {
-# First => \$dogs[0],
-# Second => \$dogs[1]
-# }
-#);
-#%kennels = %{$dogs[2]};
-#%mutts = %{$dogs[2]};
-EOT
-
- TEST q(
- $d = Data::Dumper->new([\\@dogs, \\%kennel, $mutts],
- [qw(*dogs *kennels *mutts)] );
- $d->Dump;
- );
- if ($XS) {
- TEST q(
- $d = Data::Dumper->new([\\@dogs, \\%kennel, $mutts],
- [qw(*dogs *kennels *mutts)] );
- $d->Dumpxs;
- );
- }
-
-############# 109
-##
- TEST q($d->Reset->Dump);
- if ($XS) {
- TEST q($d->Reset->Dumpxs);
- }
-
-############# 115
-##
- $WANT = <<'EOT';
-#@dogs = (
-# 'Fido',
-# 'Wags',
-# {
-# First => \'Fido',
-# Second => \'Wags'
-# }
-#);
-#%kennels = (
-# First => \'Fido',
-# Second => \'Wags'
-#);
-EOT
-
- TEST q(
- $d = Data::Dumper->new( [\@dogs, \%kennel], [qw(*dogs *kennels)] );
- $d->Deepcopy(1)->Dump;
- );
- if ($XS) {
- TEST q($d->Reset->Dumpxs);
- }
-
-}
-
-{
-
-sub z { print "foo\n" }
-$c = [ \&z ];
-
-############# 121
-##
- $WANT = <<'EOT';
-#$a = $b;
-#$c = [
-# $b
-#];
-EOT
-
-TEST q(Data::Dumper->new([\&z,$c],['a','c'])->Seen({'b' => \&z})->Dump;);
-TEST q(Data::Dumper->new([\&z,$c],['a','c'])->Seen({'b' => \&z})->Dumpxs;)
- if $XS;
-
-############# 127
-##
- $WANT = <<'EOT';
-#$a = \&b;
-#$c = [
-# \&b
-#];
-EOT
-
-TEST q(Data::Dumper->new([\&z,$c],['a','c'])->Seen({'*b' => \&z})->Dump;);
-TEST q(Data::Dumper->new([\&z,$c],['a','c'])->Seen({'*b' => \&z})->Dumpxs;)
- if $XS;
-
-############# 133
-##
- $WANT = <<'EOT';
-#*a = \&b;
-#@c = (
-# \&b
-#);
-EOT
-
-TEST q(Data::Dumper->new([\&z,$c],['*a','*c'])->Seen({'*b' => \&z})->Dump;);
-TEST q(Data::Dumper->new([\&z,$c],['*a','*c'])->Seen({'*b' => \&z})->Dumpxs;)
- if $XS;
-
-}
-
-{
- $a = [];
- $a->[1] = \$a->[0];
-
-############# 139
-##
- $WANT = <<'EOT';
-#@a = (
-# undef,
-# do{my $o}
-#);
-#$a[1] = \$a[0];
-EOT
-
-TEST q(Data::Dumper->new([$a],['*a'])->Purity(1)->Dump;);
-TEST q(Data::Dumper->new([$a],['*a'])->Purity(1)->Dumpxs;)
- if $XS;
-}
-
-{
- $a = \\\\\'foo';
- $b = $$$a;
-
-############# 145
-##
- $WANT = <<'EOT';
-#$a = \\\\\'foo';
-#$b = ${${$a}};
-EOT
-
-TEST q(Data::Dumper->new([$a,$b],['a','b'])->Purity(1)->Dump;);
-TEST q(Data::Dumper->new([$a,$b],['a','b'])->Purity(1)->Dumpxs;)
- if $XS;
-}
-
-{
- $a = [{ a => \$b }, { b => undef }];
- $b = [{ c => \$b }, { d => \$a }];
-
-############# 151
-##
- $WANT = <<'EOT';
-#$a = [
-# {
-# a => \[
-# {
-# c => do{my $o}
-# },
-# {
-# d => \[]
-# }
-# ]
-# },
-# {
-# b => undef
-# }
-#];
-#${$a->[0]{a}}->[0]->{c} = $a->[0]{a};
-#${${$a->[0]{a}}->[1]->{d}} = $a;
-#$b = ${$a->[0]{a}};
-EOT
-
-TEST q(Data::Dumper->new([$a,$b],['a','b'])->Purity(1)->Dump;);
-TEST q(Data::Dumper->new([$a,$b],['a','b'])->Purity(1)->Dumpxs;)
- if $XS;
-}
-
-{
- $a = [[[[\\\\\'foo']]]];
- $b = $a->[0][0];
- $c = $${$b->[0][0]};
-
-############# 157
-##
- $WANT = <<'EOT';
-#$a = [
-# [
-# [
-# [
-# \\\\\'foo'
-# ]
-# ]
-# ]
-#];
-#$b = $a->[0][0];
-#$c = ${${$a->[0][0][0][0]}};
-EOT
-
-TEST q(Data::Dumper->new([$a,$b,$c],['a','b','c'])->Purity(1)->Dump;);
-TEST q(Data::Dumper->new([$a,$b,$c],['a','b','c'])->Purity(1)->Dumpxs;)
- if $XS;
-}
-
-{
- $f = "pearl";
- $e = [ $f ];
- $d = { 'e' => $e };
- $c = [ $d ];
- $b = { 'c' => $c };
- $a = { 'b' => $b };
-
-############# 163
-##
- $WANT = <<'EOT';
-#$a = {
-# b => {
-# c => [
-# {
-# e => 'ARRAY(0xdeadbeef)'
-# }
-# ]
-# }
-#};
-#$b = $a->{b};
-#$c = $a->{b}{c};
-EOT
-
-TEST q(Data::Dumper->new([$a,$b,$c],['a','b','c'])->Maxdepth(4)->Dump;);
-TEST q(Data::Dumper->new([$a,$b,$c],['a','b','c'])->Maxdepth(4)->Dumpxs;)
- if $XS;
-
-############# 169
-##
- $WANT = <<'EOT';
-#$a = {
-# b => 'HASH(0xdeadbeef)'
-#};
-#$b = $a->{b};
-#$c = [
-# 'HASH(0xdeadbeef)'
-#];
-EOT
-
-TEST q(Data::Dumper->new([$a,$b,$c],['a','b','c'])->Maxdepth(1)->Dump;);
-TEST q(Data::Dumper->new([$a,$b,$c],['a','b','c'])->Maxdepth(1)->Dumpxs;)
- if $XS;
-}
-
-{
- $a = \$a;
- $b = [$a];
-
-############# 175
-##
- $WANT = <<'EOT';
-#$b = [
-# \$b->[0]
-#];
-EOT
-
-TEST q(Data::Dumper->new([$b],['b'])->Purity(0)->Dump;);
-TEST q(Data::Dumper->new([$b],['b'])->Purity(0)->Dumpxs;)
- if $XS;
-
-############# 181
-##
- $WANT = <<'EOT';
-#$b = [
-# \do{my $o}
-#];
-#${$b->[0]} = $b->[0];
-EOT
-
-
-TEST q(Data::Dumper->new([$b],['b'])->Purity(1)->Dump;);
-TEST q(Data::Dumper->new([$b],['b'])->Purity(1)->Dumpxs;)
- if $XS;
-}
-
-{
- $a = "\x{09c10}";
-############# 187
-## XS code was adding an extra \0
- $WANT = <<'EOT';
-#$a = "\x{9c10}";
-EOT
-
- if($] >= 5.007) {
- TEST q(Data::Dumper->Dump([$a], ['a'])), "\\x{9c10}";
- } else {
- SKIP_TEST "Incomplete support for UTF-8 in old perls";
- }
- TEST q(Data::Dumper->Dumpxs([$a], ['a'])), "XS \\x{9c10}"
- if $XS;
-}
-
-{
- $i = 0;
- $a = { map { ("$_$_$_", ++$i) } 'I'..'Q' };
-
-############# 193
-##
- $WANT = <<'EOT';
-#$VAR1 = {
-# III => 1,
-# JJJ => 2,
-# KKK => 3,
-# LLL => 4,
-# MMM => 5,
-# NNN => 6,
-# OOO => 7,
-# PPP => 8,
-# QQQ => 9
-#};
-EOT
-
-TEST q(Data::Dumper->new([$a])->Dump;);
-TEST q(Data::Dumper->new([$a])->Dumpxs;)
- if $XS;
-}
-
-{
- $i = 5;
- $c = { map { (++$i, "$_$_$_") } 'I'..'Q' };
- local $Data::Dumper::Sortkeys = \&sort199;
- sub sort199 {
- my $hash = shift;
- return [ sort { $b <=> $a } keys %$hash ];
- }
-
-############# 199
-##
- $WANT = <<'EOT';
-#$VAR1 = {
-# 14 => 'QQQ',
-# 13 => 'PPP',
-# 12 => 'OOO',
-# 11 => 'NNN',
-# 10 => 'MMM',
-# 9 => 'LLL',
-# 8 => 'KKK',
-# 7 => 'JJJ',
-# 6 => 'III'
-#};
-EOT
-
-# perl code does keys and values as numbers if possible
-TEST q(Data::Dumper->new([$c])->Dump;);
-# XS code always does them as strings
-$WANT =~ s/ (\d+)/ '$1'/gs;
-TEST q(Data::Dumper->new([$c])->Dumpxs;)
- if $XS;
-}
-
-{
- $i = 5;
- $c = { map { (++$i, "$_$_$_") } 'I'..'Q' };
- $d = { reverse %$c };
- local $Data::Dumper::Sortkeys = \&sort205;
- sub sort205 {
- my $hash = shift;
- return [
- $hash eq $c ? (sort { $a <=> $b } keys %$hash)
- : (reverse sort keys %$hash)
- ];
- }
-
-############# 205
-##
- $WANT = <<'EOT';
-#$VAR1 = [
-# {
-# 6 => 'III',
-# 7 => 'JJJ',
-# 8 => 'KKK',
-# 9 => 'LLL',
-# 10 => 'MMM',
-# 11 => 'NNN',
-# 12 => 'OOO',
-# 13 => 'PPP',
-# 14 => 'QQQ'
-# },
-# {
-# QQQ => 14,
-# PPP => 13,
-# OOO => 12,
-# NNN => 11,
-# MMM => 10,
-# LLL => 9,
-# KKK => 8,
-# JJJ => 7,
-# III => 6
-# }
-#];
-EOT
-
-TEST q(Data::Dumper->new([[$c, $d]])->Dump;);
-$WANT =~ s/ (\d+)/ '$1'/gs;
-TEST q(Data::Dumper->new([[$c, $d]])->Dumpxs;)
- if $XS;
-}
-
-{
- local $Data::Dumper::Deparse = 1;
- local $Data::Dumper::Indent = 2;
-
-############# 211
-##
- $WANT = <<'EOT';
-#$VAR1 = {
-# foo => sub {
-# print 'foo';
-# }
-# };
-EOT
-
- if(" $Config{'extensions'} " !~ m[ B ]) {
- SKIP_TEST "Perl configured without B module";
- } else {
- TEST q(Data::Dumper->new([{ foo => sub { print "foo"; } }])->Dump);
- }
-}
-
-############# 214
-##
-
-# This is messy.
-# The controls (bare numbers) are stored either as integers or floating point.
-# [depending on whether the tokeniser sees things like ".".
-# The peephole optimiser only runs for constant folding, not single constants,
-# so I already have some NVs, some IVs
-# The string versions are not. They are all PV
-
-# This is arguably all far too chummy with the implementation, but I really
-# want to ensure that we don't go wrong when flags on scalars get as side
-# effects of reading them.
-
-# These tests are actually testing the precise output of the current
-# implementation, so will most likely fail if the implementation changes,
-# even if the new implementation produces different but correct results.
-# It would be nice to test for wrong answers, but I can't see how to do that,
-# so instead I'm checking for unexpected answers. (ie -2 becoming "-2" is not
-# wrong, but I can't see an easy, reliable way to code that knowledge)
-
-# Numbers (seen by the tokeniser as numbers, stored as numbers.
- @numbers =
- (
- 0, +1, -2, 3.0, +4.0, -5.0, 6.5, +7.5, -8.5,
- 9, +10, -11, 12.0, +13.0, -14.0, 15.5, +16.25, -17.75,
- );
-# Strings
- @strings =
- (
- "0", "+1", "-2", "3.0", "+4.0", "-5.0", "6.5", "+7.5", "-8.5", " 9",
- " +10", " -11", " 12.0", " +13.0", " -14.0", " 15.5", " +16.25", " -17.75",
- );
-
-# The perl code always does things the same way for numbers.
- $WANT_PL_N = <<'EOT';
-#$VAR1 = 0;
-#$VAR2 = 1;
-#$VAR3 = -2;
-#$VAR4 = 3;
-#$VAR5 = 4;
-#$VAR6 = -5;
-#$VAR7 = '6.5';
-#$VAR8 = '7.5';
-#$VAR9 = '-8.5';
-#$VAR10 = 9;
-#$VAR11 = 10;
-#$VAR12 = -11;
-#$VAR13 = 12;
-#$VAR14 = 13;
-#$VAR15 = -14;
-#$VAR16 = '15.5';
-#$VAR17 = '16.25';
-#$VAR18 = '-17.75';
-EOT
-# The perl code knows that 0 and -2 stringify exactly back to the strings,
-# so it dumps them as numbers, not strings.
- $WANT_PL_S = <<'EOT';
-#$VAR1 = 0;
-#$VAR2 = '+1';
-#$VAR3 = -2;
-#$VAR4 = '3.0';
-#$VAR5 = '+4.0';
-#$VAR6 = '-5.0';
-#$VAR7 = '6.5';
-#$VAR8 = '+7.5';
-#$VAR9 = '-8.5';
-#$VAR10 = ' 9';
-#$VAR11 = ' +10';
-#$VAR12 = ' -11';
-#$VAR13 = ' 12.0';
-#$VAR14 = ' +13.0';
-#$VAR15 = ' -14.0';
-#$VAR16 = ' 15.5';
-#$VAR17 = ' +16.25';
-#$VAR18 = ' -17.75';
-EOT
-
-# The XS code differs.
-# These are the numbers as seen by the tokeniser. Constants aren't folded
-# (which makes IVs where possible) so values the tokeniser thought were
-# floating point are stored as NVs. The XS code outputs these as strings,
-# but as it has converted them from NVs, leading + signs will not be there.
- $WANT_XS_N = <<'EOT';
-#$VAR1 = 0;
-#$VAR2 = 1;
-#$VAR3 = -2;
-#$VAR4 = '3';
-#$VAR5 = '4';
-#$VAR6 = '-5';
-#$VAR7 = '6.5';
-#$VAR8 = '7.5';
-#$VAR9 = '-8.5';
-#$VAR10 = 9;
-#$VAR11 = 10;
-#$VAR12 = -11;
-#$VAR13 = '12';
-#$VAR14 = '13';
-#$VAR15 = '-14';
-#$VAR16 = '15.5';
-#$VAR17 = '16.25';
-#$VAR18 = '-17.75';
-EOT
-
-# These are the strings as seen by the tokeniser. The XS code will output
-# these for all cases except where the scalar has been used in integer context
- $WANT_XS_S = <<'EOT';
-#$VAR1 = '0';
-#$VAR2 = '+1';
-#$VAR3 = '-2';
-#$VAR4 = '3.0';
-#$VAR5 = '+4.0';
-#$VAR6 = '-5.0';
-#$VAR7 = '6.5';
-#$VAR8 = '+7.5';
-#$VAR9 = '-8.5';
-#$VAR10 = ' 9';
-#$VAR11 = ' +10';
-#$VAR12 = ' -11';
-#$VAR13 = ' 12.0';
-#$VAR14 = ' +13.0';
-#$VAR15 = ' -14.0';
-#$VAR16 = ' 15.5';
-#$VAR17 = ' +16.25';
-#$VAR18 = ' -17.75';
-EOT
-
-# These are the numbers as IV-ized by &
-# These will differ from WANT_XS_N because now IV flags will be set on all
-# values that were actually integer, and the XS code will then output these
-# as numbers not strings.
- $WANT_XS_I = <<'EOT';
-#$VAR1 = 0;
-#$VAR2 = 1;
-#$VAR3 = -2;
-#$VAR4 = 3;
-#$VAR5 = 4;
-#$VAR6 = -5;
-#$VAR7 = '6.5';
-#$VAR8 = '7.5';
-#$VAR9 = '-8.5';
-#$VAR10 = 9;
-#$VAR11 = 10;
-#$VAR12 = -11;
-#$VAR13 = 12;
-#$VAR14 = 13;
-#$VAR15 = -14;
-#$VAR16 = '15.5';
-#$VAR17 = '16.25';
-#$VAR18 = '-17.75';
-EOT
-
-# Some of these tests will be redundant.
- at numbers_s = @numbers_i = @numbers_is = @numbers_n = @numbers_ns = @numbers_ni
- = @numbers_nis = @numbers;
- at strings_s = @strings_i = @strings_is = @strings_n = @strings_ns = @strings_ni
- = @strings_nis = @strings;
-# Use them in an integer context
-foreach (@numbers_i, @numbers_ni, @numbers_nis, @numbers_is,
- @strings_i, @strings_ni, @strings_nis, @strings_is) {
- my $b = sprintf "%d", $_;
-}
-# Use them in a floating point context
-foreach (@numbers_n, @numbers_ni, @numbers_nis, @numbers_ns,
- @strings_n, @strings_ni, @strings_nis, @strings_ns) {
- my $b = sprintf "%e", $_;
-}
-# Use them in a string context
-foreach (@numbers_s, @numbers_is, @numbers_nis, @numbers_ns,
- @strings_s, @strings_is, @strings_nis, @strings_ns) {
- my $b = sprintf "%s", $_;
-}
-
-# use Devel::Peek; Dump ($_) foreach @vanilla_c;
-
-$WANT=$WANT_PL_N;
-TEST q(Data::Dumper->new(\@numbers)->Dump), 'Numbers';
-TEST q(Data::Dumper->new(\@numbers_s)->Dump), 'Numbers PV';
-TEST q(Data::Dumper->new(\@numbers_i)->Dump), 'Numbers IV';
-TEST q(Data::Dumper->new(\@numbers_is)->Dump), 'Numbers IV,PV';
-TEST q(Data::Dumper->new(\@numbers_n)->Dump), 'Numbers NV';
-TEST q(Data::Dumper->new(\@numbers_ns)->Dump), 'Numbers NV,PV';
-TEST q(Data::Dumper->new(\@numbers_ni)->Dump), 'Numbers NV,IV';
-TEST q(Data::Dumper->new(\@numbers_nis)->Dump), 'Numbers NV,IV,PV';
-$WANT=$WANT_PL_S;
-TEST q(Data::Dumper->new(\@strings)->Dump), 'Strings';
-TEST q(Data::Dumper->new(\@strings_s)->Dump), 'Strings PV';
-TEST q(Data::Dumper->new(\@strings_i)->Dump), 'Strings IV';
-TEST q(Data::Dumper->new(\@strings_is)->Dump), 'Strings IV,PV';
-TEST q(Data::Dumper->new(\@strings_n)->Dump), 'Strings NV';
-TEST q(Data::Dumper->new(\@strings_ns)->Dump), 'Strings NV,PV';
-TEST q(Data::Dumper->new(\@strings_ni)->Dump), 'Strings NV,IV';
-TEST q(Data::Dumper->new(\@strings_nis)->Dump), 'Strings NV,IV,PV';
-if ($XS) {
- my $nv_preserves_uv = defined $Config{d_nv_preserves_uv};
- my $nv_preserves_uv_4bits = exists($Config{nv_preserves_uv_bits}) && $Config{nv_preserves_uv_bits} >= 4;
- $WANT=$WANT_XS_N;
- TEST q(Data::Dumper->new(\@numbers)->Dumpxs), 'XS Numbers';
- TEST q(Data::Dumper->new(\@numbers_s)->Dumpxs), 'XS Numbers PV';
- if ($nv_preserves_uv || $nv_preserves_uv_4bits) {
- $WANT=$WANT_XS_I;
- TEST q(Data::Dumper->new(\@numbers_i)->Dumpxs), 'XS Numbers IV';
- TEST q(Data::Dumper->new(\@numbers_is)->Dumpxs), 'XS Numbers IV,PV';
- } else {
- SKIP_TEST "NV does not preserve 4bits";
- SKIP_TEST "NV does not preserve 4bits";
- }
- $WANT=$WANT_XS_N;
- TEST q(Data::Dumper->new(\@numbers_n)->Dumpxs), 'XS Numbers NV';
- TEST q(Data::Dumper->new(\@numbers_ns)->Dumpxs), 'XS Numbers NV,PV';
- if ($nv_preserves_uv || $nv_preserves_uv_4bits) {
- $WANT=$WANT_XS_I;
- TEST q(Data::Dumper->new(\@numbers_ni)->Dumpxs), 'XS Numbers NV,IV';
- TEST q(Data::Dumper->new(\@numbers_nis)->Dumpxs), 'XS Numbers NV,IV,PV';
- } else {
- SKIP_TEST "NV does not preserve 4bits";
- SKIP_TEST "NV does not preserve 4bits";
- }
-
- $WANT=$WANT_XS_S;
- TEST q(Data::Dumper->new(\@strings)->Dumpxs), 'XS Strings';
- TEST q(Data::Dumper->new(\@strings_s)->Dumpxs), 'XS Strings PV';
- # This one used to really mess up. New code actually emulates the .pm code
- $WANT=$WANT_PL_S;
- TEST q(Data::Dumper->new(\@strings_i)->Dumpxs), 'XS Strings IV';
- TEST q(Data::Dumper->new(\@strings_is)->Dumpxs), 'XS Strings IV,PV';
- if ($nv_preserves_uv || $nv_preserves_uv_4bits) {
- $WANT=$WANT_XS_S;
- TEST q(Data::Dumper->new(\@strings_n)->Dumpxs), 'XS Strings NV';
- TEST q(Data::Dumper->new(\@strings_ns)->Dumpxs), 'XS Strings NV,PV';
- } else {
- SKIP_TEST "NV does not preserve 4bits";
- SKIP_TEST "NV does not preserve 4bits";
- }
- # This one used to really mess up. New code actually emulates the .pm code
- $WANT=$WANT_PL_S;
- TEST q(Data::Dumper->new(\@strings_ni)->Dumpxs), 'XS Strings NV,IV';
- TEST q(Data::Dumper->new(\@strings_nis)->Dumpxs), 'XS Strings NV,IV,PV';
-}
-
-{
- $a = "1\n";
-############# 310
-## Perl code was using /...$/ and hence missing the \n.
- $WANT = <<'EOT';
-my $VAR1 = '42
-';
-EOT
-
- # Can't pad with # as the output has an embedded newline.
- local $Data::Dumper::Pad = "my ";
- TEST q(Data::Dumper->Dump(["42\n"])), "number with trailing newline";
- TEST q(Data::Dumper->Dumpxs(["42\n"])), "XS number with trailing newline"
- if $XS;
-}
-
-{
- @a = (
- 999999999,
- 1000000000,
- 9999999999,
- 10000000000,
- -999999999,
- -1000000000,
- -9999999999,
- -10000000000,
- 4294967295,
- 4294967296,
- -2147483648,
- -2147483649,
- );
-############# 316
-## Perl code flips over at 10 digits.
- $WANT = <<'EOT';
-#$VAR1 = 999999999;
-#$VAR2 = '1000000000';
-#$VAR3 = '9999999999';
-#$VAR4 = '10000000000';
-#$VAR5 = -999999999;
-#$VAR6 = '-1000000000';
-#$VAR7 = '-9999999999';
-#$VAR8 = '-10000000000';
-#$VAR9 = '4294967295';
-#$VAR10 = '4294967296';
-#$VAR11 = '-2147483648';
-#$VAR12 = '-2147483649';
-EOT
-
- TEST q(Data::Dumper->Dump(\@a)), "long integers";
-
- if ($XS) {
-## XS code flips over at 11 characters ("-" is a char) or larger than int.
- if (~0 == 0xFFFFFFFF) {
- # 32 bit system
- $WANT = <<'EOT';
-#$VAR1 = 999999999;
-#$VAR2 = 1000000000;
-#$VAR3 = '9999999999';
-#$VAR4 = '10000000000';
-#$VAR5 = -999999999;
-#$VAR6 = '-1000000000';
-#$VAR7 = '-9999999999';
-#$VAR8 = '-10000000000';
-#$VAR9 = 4294967295;
-#$VAR10 = '4294967296';
-#$VAR11 = '-2147483648';
-#$VAR12 = '-2147483649';
-EOT
- } else {
- $WANT = <<'EOT';
-#$VAR1 = 999999999;
-#$VAR2 = 1000000000;
-#$VAR3 = 9999999999;
-#$VAR4 = '10000000000';
-#$VAR5 = -999999999;
-#$VAR6 = '-1000000000';
-#$VAR7 = '-9999999999';
-#$VAR8 = '-10000000000';
-#$VAR9 = 4294967295;
-#$VAR10 = 4294967296;
-#$VAR11 = '-2147483648';
-#$VAR12 = '-2147483649';
-EOT
- }
- TEST q(Data::Dumper->Dumpxs(\@a)), "XS long integers";
- }
-}
-
-#XXX}
-{
- if ($Is_ebcdic) {
- $b = "Bad. XS didn't escape dollar sign";
-############# 322
- $WANT = <<"EOT"; # Careful. This is '' string written inside '' here doc
-#\$VAR1 = '\$b\"\@\\\\\xB1';
-EOT
- $a = "\$b\"\@\\\xB1\x{100}";
- chop $a;
- TEST q(Data::Dumper->Dump([$a])), "utf8 flag with \" and \$";
- if ($XS) {
- $WANT = <<'EOT'; # While this is "" string written inside "" here doc
-#$VAR1 = "\$b\"\@\\\x{b1}";
-EOT
- TEST q(Data::Dumper->Dumpxs([$a])), "XS utf8 flag with \" and \$";
- }
- } else {
- $b = "Bad. XS didn't escape dollar sign";
-############# 322
- $WANT = <<"EOT"; # Careful. This is '' string written inside '' here doc
-#\$VAR1 = '\$b\"\@\\\\\xA3';
-EOT
-
- $a = "\$b\"\@\\\xA3\x{100}";
- chop $a;
- TEST q(Data::Dumper->Dump([$a])), "utf8 flag with \" and \$";
- if ($XS) {
- $WANT = <<'EOT'; # While this is "" string written inside "" here doc
-#$VAR1 = "\$b\"\@\\\x{a3}";
-EOT
- TEST q(Data::Dumper->Dumpxs([$a])), "XS utf8 flag with \" and \$";
- }
- }
- # XS used to produce "$b\"' which is 4 chars, not 3. [ie wrongly qq(\$b\\\")]
-############# 328
- $WANT = <<'EOT';
-#$VAR1 = '$b"';
-EOT
-
- $a = "\$b\"\x{100}";
- chop $a;
- TEST q(Data::Dumper->Dump([$a])), "utf8 flag with \" and \$";
- if ($XS) {
- TEST q(Data::Dumper->Dumpxs([$a])), "XS utf8 flag with \" and \$";
- }
-
-
- # XS used to produce 'D'oh!' which is well, D'oh!
- # Andreas found this one, which in turn discovered the previous two.
-############# 334
- $WANT = <<'EOT';
-#$VAR1 = 'D\'oh!';
-EOT
-
- $a = "D'oh!\x{100}";
- chop $a;
- TEST q(Data::Dumper->Dump([$a])), "utf8 flag with '";
- if ($XS) {
- TEST q(Data::Dumper->Dumpxs([$a])), "XS utf8 flag with '";
- }
-}
-
-# Jarkko found that -Mutf8 caused some tests to fail. Turns out that there
-# was an otherwise untested code path in the XS for utf8 hash keys with purity
-# 1
-
-{
- $WANT = <<'EOT';
-#$ping = \*::ping;
-#*::ping = \5;
-#*::ping = {
-# "\x{decaf}\x{decaf}\x{decaf}\x{decaf}" => do{my $o}
-#};
-#*::ping{HASH}->{"\x{decaf}\x{decaf}\x{decaf}\x{decaf}"} = *::ping{SCALAR};
-#%pong = %{*::ping{HASH}};
-EOT
- local $Data::Dumper::Purity = 1;
- local $Data::Dumper::Sortkeys;
- $ping = 5;
- %ping = (chr (0xDECAF) x 4 =>\$ping);
- for $Data::Dumper::Sortkeys (0, 1) {
- if($] >= 5.007) {
- TEST q(Data::Dumper->Dump([\\*ping, \\%ping], ['*ping', '*pong']));
- TEST q(Data::Dumper->Dumpxs([\\*ping, \\%ping], ['*ping', '*pong'])) if $XS;
- } else {
- SKIP_TEST "Incomplete support for UTF-8 in old perls";
- SKIP_TEST "Incomplete support for UTF-8 in old perls";
- }
- }
-}
-
-# XS for quotekeys==0 was not being defensive enough against utf8 flagged
-# scalars
-
-{
- $WANT = <<'EOT';
-#$VAR1 = {
-# perl => 'rocks'
-#};
-EOT
- local $Data::Dumper::Quotekeys = 0;
- my $k = 'perl' . chr 256;
- chop $k;
- %foo = ($k => 'rocks');
-
- TEST q(Data::Dumper->Dump([\\%foo])), "quotekeys == 0 for utf8 flagged ASCII";
- TEST q(Data::Dumper->Dumpxs([\\%foo])),
- "XS quotekeys == 0 for utf8 flagged ASCII" if $XS;
-}
-############# 358
-{
- $WANT = <<'EOT';
-#$VAR1 = [
-# undef,
-# undef,
-# 1
-#];
-EOT
- @foo = ();
- $foo[2] = 1;
- TEST q(Data::Dumper->Dump([\@foo])), 'Richard Clamp, Message-Id: <20030104005247.GA27685 at mirth.demon.co.uk>';
- TEST q(Data::Dumper->Dumpxs([\@foo])) if $XS;
-}
-
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/PPPort.pm b/3.8.8/sources/cpan-Devel-PPPort/vendor/PPPort.pm
deleted file mode 100644
index 5d786f1..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/PPPort.pm
+++ /dev/null
@@ -1,8269 +0,0 @@
-################################################################################
-#
-# !!!!! 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
-#
-################################################################################
-#
-# $Revision: 65 $
-# $Author: mhx $
-# $Date: 2009/06/12 04:10:36 +0200 $
-#
-################################################################################
-#
-# Version 3.x, Copyright (C) 2004-2009, 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');
-
-=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 a single function, called C<WriteFile>. Its
-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.10.0 are supported.
-
-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.
-
-=head1 COMPATIBILITY
-
-F<ppport.h> supports Perl versions from 5.003 to 5.10.0
-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
- 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_hv
- get_sv
- grok_bin
- grok_hex
- grok_number
- GROK_NUMERIC_RADIX
- grok_numeric_radix
- grok_oct
- gv_fetchpvn_flags
- gv_fetchpvs
- gv_stashpvn
- gv_stashpvs
- GvSVn
- 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
- memNE
- MoveD
- mPUSHi
- mPUSHn
- mPUSHp
- mPUSHs
- mPUSHu
- 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
- 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_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_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
- 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.11.0
-
- HeUTF8
- MULTICALL
- PERL_SYS_TERM
- POP_MULTICALL
- PUSH_MULTICALL
- SvOOK_offset
- av_iter_p
- croak_xs_usage
- fetch_cop_label
- gv_fetchmethod_flags
- hv_assert
- mro_get_from_name
- mro_get_private_data
- mro_register
- mro_set_mro
- mro_set_private_data
- pad_sv
- pregfree2
- ref
- save_adelete
- save_helem_flags
- save_padsv_and_mortalize
- save_pushptr
- stashpv_hvname_match
- sv_insert_flags
- sv_utf8_upgrade_flags_grow
-
-=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
- get_cvn_flags
- gv_fetchfile_flags
- 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
- re_intuit_start
- 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
- 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_p
- hv_placeholders_set
- hv_riter_p
- hv_riter_set
- is_utf8_string_loclen
- newGIVENOP
- newSVhek
- newSVpvs_share
- newWHENOP
- newWHILEOP
- savepvs
- sortsv_flags
- vverify
-
-=item perl 5.9.2
-
- SvPVbyte_force
- find_rundefsvoffset
- gv_fetchsv
- 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
-
- SvVOK
- doing_taint
- find_runcv
- is_utf8_string_loc
- packlist
- save_bool
- savestack_grow_cnt
- seed
- sv_cat_decode
- sv_compile_2op
- sv_setpviv
- sv_setpviv_mg
- unpackstring
-
-=item perl 5.8.0
-
- hv_iternext_flags
- hv_store_flags
- is_utf8_idcont
- nothreadhook
-
-=item perl 5.7.3
-
- 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_copypv
- sv_magicext
- sv_nolocking
- sv_nosharing
- sv_recode_to_utf8
- sv_uni_display
- to_uni_fold
- to_uni_lower
- to_uni_title
- to_uni_upper
- to_utf8_case
- to_utf8_fold
- to_utf8_lower
- to_utf8_title
- to_utf8_upper
- 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
-
- 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_uvuni
- 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
- 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
- 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_alnumc
- is_uni_alnumc_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_alnumc
- 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
- tmps_grow
- 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_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
- screaminstr
- sv_iv
- sv_nv
- sv_peek
- sv_pvn
- sv_pvn_nomg
- sv_true
-
-=item perl 5.004_05
-
- do_binmode
- save_aelem
- save_helem
-
-=item perl 5.004
-
- GIMME_V
- G_VOID
- HEf_SVKEY
- HeHASH
- HeKEY
- HeKLEN
- HePV
- HeSVKEY
- HeSVKEY_force
- HeSVKEY_set
- HeVAL
- SvSetMagicSV
- SvSetMagicSV_nosteal
- SvSetSV_nosteal
- SvTAINTED
- SvTAINTED_off
- SvTAINTED_on
- block_gimme
- call_list
- cv_const_sv
- delimcpy
- do_open
- form
- gv_autoload4
- gv_efullname3
- gv_fetchmethod_autoload
- gv_fullname3
- hv_delayfree_ent
- hv_delete_ent
- hv_exists_ent
- hv_fetch_ent
- hv_free_ent
- hv_iterkeysv
- hv_ksplit
- hv_store_ent
- ibcmp_locale
- my_failure_exit
- my_memcmp
- my_pclose
- my_popen
- newSVpvf
- rsignal
- rsignal_state
- save_I16
- save_gp
- share_hek
- start_subparse
- sv_catpvf
- sv_catpvf_mg
- sv_cmp_locale
- sv_derived_from
- sv_gets
- 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
- unsharepvn
- vnewSVpvf
- warner
-
-=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 use the CPAN Request Tracker
-at L<http://rt.cpan.org/> to create a ticket for the module.
-
-=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.
-
-=back
-
-=head1 COPYRIGHT
-
-Version 3.x, Copyright (C) 2004-2009, 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 = do { my @r = '$Snapshot: /Devel-PPPort/3.19 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
-
-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 WriteFile
-{
- my $file = shift || 'ppport.h';
- defined $data or _init_data();
- my $copy = $data;
- $copy =~ s/\bppport\.h\b/$file/g;
-
- open F, ">$file" or return undef;
- print F $copy;
- 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.10.0.
-|>
-|>=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
-|>automagially 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
-|> 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
-|> 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
-|> 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 using the CPAN Request Tracker at L<http://rt.cpan.org/>.
-|>
-|>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-2009, 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(
-AvFILLp|5.004050||p
-AvFILL|||
-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||p
-Copy|||
-CvPADLIST|||
-CvSTASH|||
-CvWEAKOUTSIDE|||
-DEFSV_set|5.011000||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|||
-GvSVn|5.009003||p
-GvSV|||
-Gv_AMupdate|||
-HEf_SVKEY||5.004000|
-HeHASH||5.004000|
-HeKEY||5.004000|
-HeKLEN||5.004000|
-HePV||5.004000|
-HeSVKEY_force||5.004000|
-HeSVKEY_set||5.004000|
-HeSVKEY||5.004000|
-HeUTF8||5.011000|
-HeVAL||5.004000|
-HvNAMELEN_get|5.009003||p
-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|||
-LVRET|||
-MARK|||
-MULTICALL||5.011000|
-MY_CXT_CLONE|5.009002||p
-MY_CXT_INIT|5.007003||p
-MY_CXT|5.007003||p
-MoveD|5.009002||p
-Move|||
-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|||
-ORIGMARK|||
-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_DUP|||
-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.011000||p
-PERL_GCC_BRACE_GROUPS_FORBIDDEN|5.008001||p
-PERL_HASH|5.004000||p
-PERL_INT_MAX|5.004000||p
-PERL_INT_MIN|5.004000||p
-PERL_LONG_MAX|5.004000||p
-PERL_LONG_MIN|5.004000||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.011000||p
-PERL_MAGIC_isaelem|5.007002||p
-PERL_MAGIC_isa|5.007002||p
-PERL_MAGIC_mutex|5.011000||p
-PERL_MAGIC_nkeys|5.007002||p
-PERL_MAGIC_overload_elem|5.007002||p
-PERL_MAGIC_overload_table|5.007002||p
-PERL_MAGIC_overload|5.007002||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.004000||p
-PERL_QUAD_MIN|5.004000||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.004000||p
-PERL_SHORT_MIN|5.004000||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.011000|
-PERL_UCHAR_MAX|5.004000||p
-PERL_UCHAR_MIN|5.004000||p
-PERL_UINT_MAX|5.004000||p
-PERL_UINT_MIN|5.004000||p
-PERL_ULONG_MAX|5.004000||p
-PERL_ULONG_MIN|5.004000||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.004000||p
-PERL_UQUAD_MIN|5.004000||p
-PERL_USE_GCC_BRACE_GROUPS|5.009004||p
-PERL_USHORT_MAX|5.004000||p
-PERL_USHORT_MIN|5.004000||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.011000||p
-PL_bufptr|5.011000||p
-PL_compiling|5.004050||p
-PL_copline|5.011000||p
-PL_curcop|5.004050||p
-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.011000||p
-PL_expect|5.011000||p
-PL_hexdigit|5.005000||p
-PL_hints|5.005000||p
-PL_in_my_stash|5.011000||p
-PL_in_my|5.011000||p
-PL_last_in_gv|||n
-PL_laststatval|5.005000||p
-PL_lex_state|5.011000||p
-PL_lex_stuff|5.011000||p
-PL_linestr|5.011000||p
-PL_modglobal||5.005000|n
-PL_na|5.004050||pn
-PL_no_modify|5.006000||p
-PL_ofsgv|||n
-PL_parser|5.009005||p
-PL_perl_destruct_level|5.004050||p
-PL_perldb|5.004050||p
-PL_ppaddr|5.006000||p
-PL_rsfp_filters|5.004050||p
-PL_rsfp|5.004050||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.011000||p
-POP_MULTICALL||5.011000|
-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.011000|
-PUSHi|||
-PUSHmortal|5.009002||p
-PUSHn|||
-PUSHp|||
-PUSHs|||
-PUSHu|5.004000||p
-PUTBACK|||
-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_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
-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_IV|||
-SVt_NV|||
-SVt_PVAV|||
-SVt_PVCV|||
-SVt_PVHV|||
-SVt_PVMG|||
-SVt_PV|||
-Safefree|||
-Slab_Alloc|||
-Slab_Free|||
-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_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|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|||
-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|||
-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.011000||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
-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_VERSION_BOOTCHECK|||
-XS_VERSION|||
-XSprePUSH|5.006000||p
-XS|||
-ZeroD|5.009002||p
-Zero|||
-_aMY_CXT|5.007003||p
-_pMY_CXT|5.007003||p
-aMY_CXT_|5.007003||p
-aMY_CXT|5.007003||p
-aTHXR_|5.011000||p
-aTHXR|5.011000||p
-aTHX_|5.006000||p
-aTHX|5.006000||p
-add_data|||n
-addmad|||
-allocmy|||
-amagic_call|||
-amagic_cmp_locale|||
-amagic_cmp|||
-amagic_i_ncmp|||
-amagic_ncmp|||
-any_dup|||
-ao|||
-append_elem|||
-append_list|||
-append_madprops|||
-apply_attrs_my|||
-apply_attrs_string||5.006001|
-apply_attrs|||
-apply|||
-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|||
-av_fetch|||
-av_fill|||
-av_iter_p||5.011000|
-av_len|||
-av_make|||
-av_pop|||
-av_push|||
-av_reify|||
-av_shift|||
-av_store|||
-av_undef|||
-av_unshift|||
-ax|||n
-bad_type|||
-bind_match|||
-block_end|||
-block_gimme||5.004000|
-block_start|||
-boolSV|5.004000||p
-boot_core_PerlIO|||
-boot_core_UNIVERSAL|||
-boot_core_mro|||
-bytes_from_utf8||5.007001|
-bytes_to_uni|||n
-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
-calloc||5.007002|n
-cando|||
-cast_i32||5.006000|
-cast_iv||5.006000|
-cast_ulong||5.006000|
-cast_uv||5.006000|
-check_type_and_open|||
-check_uni|||
-checkcomma|||
-checkposixcc|||
-ckWARN|5.006000||p
-ck_anoncode|||
-ck_bitop|||
-ck_concat|||
-ck_defined|||
-ck_delete|||
-ck_die|||
-ck_each|||
-ck_eof|||
-ck_eval|||
-ck_exec|||
-ck_exists|||
-ck_exit|||
-ck_ftst|||
-ck_fun|||
-ck_glob|||
-ck_grep|||
-ck_index|||
-ck_join|||
-ck_lfun|||
-ck_listiob|||
-ck_match|||
-ck_method|||
-ck_null|||
-ck_open|||
-ck_readline|||
-ck_repeat|||
-ck_require|||
-ck_return|||
-ck_rfun|||
-ck_rvconst|||
-ck_sassign|||
-ck_select|||
-ck_shift|||
-ck_sort|||
-ck_spair|||
-ck_split|||
-ck_subr|||
-ck_substr|||
-ck_svconst|||
-ck_trunc|||
-ck_unpack|||
-ckwarn_d||5.009003|
-ckwarn||5.009003|
-cl_and|||n
-cl_anything|||n
-cl_init_zero|||n
-cl_init|||n
-cl_is_anything|||n
-cl_or|||n
-clear_placeholders|||
-closest_cop|||
-convert|||
-cop_free|||
-cr_textfilter|||
-create_eval_scope|||
-croak_nocontext|||vn
-croak_xs_usage||5.011000|
-croak|||v
-csighandler||5.009003|n
-curmad|||
-custom_op_desc||5.007003|
-custom_op_name||5.007003|
-cv_ckproto_len|||
-cv_clone|||
-cv_const_sv||5.004000|
-cv_dump|||
-cv_undef|||
-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.011000||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
-del_sv|||
-delete_eval_scope|||
-delimcpy||5.004000|
-deprecate_old|||
-deprecate|||
-despatch_signals||5.007001|
-destroy_matcher|||
-die_nocontext|||vn
-die_where|||
-die|||v
-dirp_dup|||
-div128|||
-djSP|||
-do_aexec5|||
-do_aexec|||
-do_aspawn|||
-do_binmode||5.004050|
-do_chomp|||
-do_chop|||
-do_close|||
-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_kv|||
-do_magic_dump||5.006000|
-do_msgrcv|||
-do_msgsnd|||
-do_oddball|||
-do_op_dump||5.006000|
-do_op_xmldump|||
-do_open9||5.006000|
-do_openn||5.007001|
-do_open||5.004000|
-do_pmop_dump||5.006000|
-do_pmop_xmldump|||
-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|||
-dump_all||5.006000|
-dump_eval||5.006000|
-dump_exec_pos|||
-dump_fds|||
-dump_form||5.006000|
-dump_indent||5.006000|v
-dump_mstats|||
-dump_packsubs||5.006000|
-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|||
-fetch_cop_label||5.011000|
-filter_add|||
-filter_del|||
-filter_gets|||
-filter_read|||
-find_and_forget_pmops|||
-find_array_subscript|||
-find_beginning|||
-find_byclass|||
-find_hash_subscript|||
-find_in_my_stash|||
-find_runcv||5.008001|
-find_rundefsvoffset||5.009002|
-find_script|||
-find_uninit_var|||
-first_symbol|||n
-fold_constants|||
-forbid_setid|||
-force_ident|||
-force_list|||
-force_next|||
-force_version|||
-force_word|||
-forget_pmop|||
-form_nocontext|||vn
-form||5.004000|v
-fp_dup|||
-fprintf_nocontext|||vn
-free_global_struct|||
-free_tied_hv_pool|||
-free_tmps|||
-gen_constant_list|||
-get_arena|||
-get_aux_mg|||
-get_av|5.006000||p
-get_context||5.006000|n
-get_cvn_flags||5.009005|
-get_cv|5.006000||p
-get_db_sub|||
-get_debug_opts|||
-get_hash_seed|||
-get_hv|5.006000||p
-get_isa_hash|||
-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|||
-glob_assign_ref|||
-gp_dup|||
-gp_free|||
-gp_ref|||
-grok_bin|5.007003||p
-grok_hex|5.007003||p
-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_autoload4||5.004000|
-gv_check|||
-gv_const_sv||5.009003|
-gv_dump||5.006000|
-gv_efullname3||5.004000|
-gv_efullname4||5.006001|
-gv_efullname|||
-gv_ename|||
-gv_fetchfile_flags||5.009005|
-gv_fetchfile|||
-gv_fetchmeth_autoload||5.007003|
-gv_fetchmethod_autoload||5.004000|
-gv_fetchmethod_flags||5.011000|
-gv_fetchmethod|||
-gv_fetchmeth|||
-gv_fetchpvn_flags|5.009002||p
-gv_fetchpvs|5.009004||p
-gv_fetchpv|||
-gv_fetchsv||5.009002|
-gv_fullname3||5.004000|
-gv_fullname4||5.006001|
-gv_fullname|||
-gv_get_super_pkg|||
-gv_handler||5.007001|
-gv_init_sv|||
-gv_init|||
-gv_name_set||5.009004|
-gv_stashpvn|5.004000||p
-gv_stashpvs|5.009003||p
-gv_stashpv|||
-gv_stashsv|||
-he_dup|||
-hek_dup|||
-hfreeentries|||
-hsplit|||
-hv_assert||5.011000|
-hv_auxinit|||n
-hv_backreferences_p|||
-hv_clear_placeholders||5.009001|
-hv_clear|||
-hv_common_key_len||5.010000|
-hv_common||5.010000|
-hv_copy_hints_hv|||
-hv_delayfree_ent||5.004000|
-hv_delete_common|||
-hv_delete_ent||5.004000|
-hv_delete|||
-hv_eiter_p||5.009003|
-hv_eiter_set||5.009003|
-hv_exists_ent||5.004000|
-hv_exists|||
-hv_fetch_ent||5.004000|
-hv_fetchs|5.009003||p
-hv_fetch|||
-hv_free_ent||5.004000|
-hv_iterinit|||
-hv_iterkeysv||5.004000|
-hv_iterkey|||
-hv_iternext_flags||5.008000|
-hv_iternextsv|||
-hv_iternext|||
-hv_iterval|||
-hv_kill_backrefs|||
-hv_ksplit||5.004000|
-hv_magic_check|||n
-hv_magic|||
-hv_name_set||5.009003|
-hv_notallowed|||
-hv_placeholders_get||5.009003|
-hv_placeholders_p||5.009003|
-hv_placeholders_set||5.009003|
-hv_riter_p||5.009003|
-hv_riter_set||5.009003|
-hv_scalar||5.009001|
-hv_store_ent||5.004000|
-hv_store_flags||5.008000|
-hv_stores|5.009004||p
-hv_store|||
-hv_undef|||
-ibcmp_locale||5.004000|
-ibcmp_utf8||5.007003|
-ibcmp|||
-incline|||
-incpush_if_exists|||
-incpush_use_sep|||
-incpush|||
-ingroup|||
-init_argv_symbols|||
-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|
-instr|||
-intro_my|||
-intuit_method|||
-intuit_more|||
-invert|||
-io_close|||
-isALNUMC|5.006000||p
-isALNUM|||
-isALPHA|||
-isASCII|5.006000||p
-isBLANK|5.006001||p
-isCNTRL|5.006000||p
-isDIGIT|||
-isGRAPH|5.006000||p
-isGV_with_GP|5.009004||p
-isLOWER|||
-isPRINT|5.004000||p
-isPSXSPC|5.006001||p
-isPUNCT|5.006000||p
-isSPACE|||
-isUPPER|||
-isXDIGIT|5.006000||p
-is_an_int|||
-is_gv_magical_sv|||
-is_handle_constructor|||n
-is_list_assignment|||
-is_lvalue_sub||5.007001|
-is_uni_alnum_lc||5.006000|
-is_uni_alnumc_lc||5.006000|
-is_uni_alnumc||5.006000|
-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_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.006000|
-is_utf8_alnum||5.006000|
-is_utf8_alpha||5.006000|
-is_utf8_ascii||5.006000|
-is_utf8_char_slow|||n
-is_utf8_char||5.006000|
-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_print||5.006000|
-is_utf8_punct||5.006000|
-is_utf8_space||5.006000|
-is_utf8_string_loclen||5.009003|
-is_utf8_string_loc||5.008001|
-is_utf8_string||5.006001|
-is_utf8_upper||5.006000|
-is_utf8_xdigit||5.006000|
-isa_lookup|||
-items|||n
-ix|||n
-jmaybe|||
-join_exact|||
-keyword|||
-leave_scope|||
-lex_end|||
-lex_start|||
-linklist|||
-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.011000||p
-mPUSHu|5.009002||p
-mXPUSHi|5.009002||p
-mXPUSHn|5.009002||p
-mXPUSHp|5.009002||p
-mXPUSHs|5.011000||p
-mXPUSHu|5.009002||p
-mad_free|||
-madlex|||
-madparse|||
-magic_clear_all_env|||
-magic_clearenv|||
-magic_clearhint|||
-magic_clearisa|||
-magic_clearpack|||
-magic_clearsig|||
-magic_dump||5.006000|
-magic_existspack|||
-magic_freearylen_p|||
-magic_freeovrld|||
-magic_getarylen|||
-magic_getdefelem|||
-magic_getnkeys|||
-magic_getpack|||
-magic_getpos|||
-magic_getsig|||
-magic_getsubstr|||
-magic_gettaint|||
-magic_getuvar|||
-magic_getvec|||
-magic_get|||
-magic_killbackrefs|||
-magic_len|||
-magic_methcall|||
-magic_methpack|||
-magic_nextpack|||
-magic_regdata_cnt|||
-magic_regdatum_get|||
-magic_regdatum_set|||
-magic_scalarpack|||
-magic_set_all_env|||
-magic_setamagic|||
-magic_setarylen|||
-magic_setcollxfrm|||
-magic_setdbline|||
-magic_setdefelem|||
-magic_setenv|||
-magic_sethint|||
-magic_setisa|||
-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_failtable|||
-make_trie|||
-malloc_good_size|||n
-malloced_size|||n
-malloc||5.007002|n
-markstack_grow|||
-matcher_matches_sv|||
-measure_struct|||
-memEQ|5.004000||p
-memNE|5.004000||p
-mem_collxfrm|||
-mem_log_common|||n
-mess_alloc|||
-mess_nocontext|||vn
-mess||5.006000|v
-method_common|||
-mfree||5.007002|n
-mg_clear|||
-mg_copy|||
-mg_dup|||
-mg_find|||
-mg_free|||
-mg_get|||
-mg_length||5.005000|
-mg_localize|||
-mg_magical|||
-mg_set|||
-mg_size||5.005000|
-mini_mktime||5.007002|
-missingterm|||
-mode_from_discipline|||
-modkids|||
-mod|||
-more_bodies|||
-more_sv|||
-moreswitches|||
-mro_get_from_name||5.011000|
-mro_get_linear_isa_dfs|||
-mro_get_linear_isa||5.009005|
-mro_get_private_data||5.011000|
-mro_isa_changed_in|||
-mro_meta_dup|||
-mro_meta_init|||
-mro_method_changed_in||5.009005|
-mro_register||5.011000|
-mro_set_mro||5.011000|
-mro_set_private_data||5.011000|
-mul128|||
-mulexp10|||n
-my_atof2||5.007002|
-my_atof||5.006000|
-my_attrs|||
-my_bcopy|||n
-my_betoh16|||n
-my_betoh32|||n
-my_betoh64|||n
-my_betohi|||n
-my_betohl|||n
-my_betohs|||n
-my_bzero|||n
-my_chsize|||
-my_clearenv|||
-my_cxt_index|||
-my_cxt_init|||
-my_dirfd||5.009005|
-my_exit_jump|||
-my_exit|||
-my_failure_exit||5.004000|
-my_fflush_all||5.006000|
-my_fork||5.007003|n
-my_htobe16|||n
-my_htobe32|||n
-my_htobe64|||n
-my_htobei|||n
-my_htobel|||n
-my_htobes|||n
-my_htole16|||n
-my_htole32|||n
-my_htole64|||n
-my_htolei|||n
-my_htolel|||n
-my_htoles|||n
-my_htonl|||
-my_kid|||
-my_letoh16|||n
-my_letoh32|||n
-my_letoh64|||n
-my_letohi|||n
-my_letohl|||n
-my_letohs|||n
-my_lstat|||
-my_memcmp||5.004000|n
-my_memset|||n
-my_ntohl|||
-my_pclose||5.004000|
-my_popen_list||5.007001|
-my_popen||5.004000|
-my_setenv|||
-my_snprintf|5.009004||pvn
-my_socketpair||5.007003|n
-my_sprintf|5.009003||pvn
-my_stat|||
-my_strftime||5.007002|
-my_strlcat|5.009004||pn
-my_strlcpy|5.009004||pn
-my_swabn|||n
-my_swap|||
-my_unexec|||
-my_vsnprintf||5.009004|n
-need_utf8|||n
-newANONATTRSUB||5.006000|
-newANONHASH|||
-newANONLIST|||
-newANONSUB|||
-newASSIGNOP|||
-newATTRSUB||5.006000|
-newAVREF|||
-newAV|||
-newBINOP|||
-newCONDOP|||
-newCONSTSUB|5.004050||p
-newCVREF|||
-newDEFSVOP|||
-newFORM|||
-newFOROP|||
-newGIVENOP||5.009003|
-newGIVWHENOP|||
-newGP|||
-newGVOP|||
-newGVREF|||
-newGVgen|||
-newHVREF|||
-newHVhv||5.005000|
-newHV|||
-newIO|||
-newLISTOP|||
-newLOGOP|||
-newLOOPEX|||
-newLOOPOP|||
-newMADPROP|||
-newMADsv|||
-newMYSUB|||
-newNULLLIST|||
-newOP|||
-newPADOP|||
-newPMOP|||
-newPROG|||
-newPVOP|||
-newRANGE|||
-newRV_inc|5.004000||p
-newRV_noinc|5.004000||p
-newRV|||
-newSLICEOP|||
-newSTATEOP|||
-newSUB|||
-newSVOP|||
-newSVREF|||
-newSV_type|5.009005||p
-newSVhek||5.009003|
-newSViv|||
-newSVnv|||
-newSVpvf_nocontext|||vn
-newSVpvf||5.004000|v
-newSVpvn_flags|5.011000||p
-newSVpvn_share|5.007001||p
-newSVpvn_utf8|5.011000||p
-newSVpvn|5.004050||p
-newSVpvs_flags|5.011000||p
-newSVpvs_share||5.009003|
-newSVpvs|5.009003||p
-newSVpv|||
-newSVrv|||
-newSVsv|||
-newSVuv|5.006000||p
-newSV|||
-newTOKEN|||
-newUNOP|||
-newWHENOP||5.009003|
-newWHILEOP||5.009003|
-newXS_flags||5.009004|
-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|||
-no_bareword_allowed|||
-no_fh_allowed|||
-no_op|||
-not_a_number|||
-nothreadhook||5.008000|
-nuke_stacks|||
-num_overflow|||n
-offer_nice_chunk|||
-oopsAV|||
-oopsHV|||
-op_clear|||
-op_const_sv|||
-op_dump||5.006000|
-op_free|||
-op_getmad_weak|||
-op_getmad|||
-op_null||5.007002|
-op_refcnt_dec|||
-op_refcnt_inc|||
-op_refcnt_lock||5.009002|
-op_refcnt_unlock||5.009002|
-op_xmldump|||
-open_script|||
-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|||
-packlist||5.008001|
-pad_add_anon|||
-pad_add_name|||
-pad_alloc|||
-pad_block_start|||
-pad_check_dup|||
-pad_compname_type|||
-pad_findlex|||
-pad_findmy|||
-pad_fixup_inner_anons|||
-pad_free|||
-pad_leavemy|||
-pad_new|||
-pad_peg|||n
-pad_push|||
-pad_reset|||
-pad_setsv|||
-pad_sv||5.011000|
-pad_swipe|||
-pad_tidy|||
-pad_undef|||
-parse_body|||
-parse_unicode_opts|||
-parser_dup|||
-parser_free|||
-path_is_absolute|||n
-peep|||
-pending_Slabs_to_ro|||
-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|||
-pmflag|||
-pmop_dump||5.006000|
-pmop_xmldump|||
-pmruntime|||
-pmtrans|||
-pop_scope|||
-pregcomp||5.009005|
-pregexec|||
-pregfree2||5.011000|
-pregfree|||
-prepend_elem|||
-prepend_madprops|||
-printbuf|||
-printf_nocontext|||vn
-process_special_blocks|||
-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_byte|||
-pv_display|5.006000||p
-pv_escape|5.009004||p
-pv_pretty|5.009004||p
-pv_uni_display||5.007003|
-qerror|||
-qsortsvu|||
-re_compile||5.009005|
-re_croak2|||
-re_dup_guts|||
-re_intuit_start||5.009005|
-re_intuit_string||5.006000|
-readpipe_override|||
-realloc||5.007002|n
-reentrant_free|||
-reentrant_init|||
-reentrant_retry|||vn
-reentrant_size|||
-ref_array_or_hash|||
-refcounted_he_chain_2hv|||
-refcounted_he_fetch|||
-refcounted_he_free|||
-refcounted_he_new_common|||
-refcounted_he_new|||
-refcounted_he_value|||
-refkids|||
-refto|||
-ref||5.011000|
-reg_check_named_buff_matched|||
-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_namedseq|||
-reg_node|||
-reg_numbered_buff_fetch|||
-reg_numbered_buff_length|||
-reg_numbered_buff_store|||
-reg_qr_package|||
-reg_recode|||
-reg_scan_name|||
-reg_skipcomment|||
-reg_temp_copy|||
-reganode|||
-regatom|||
-regbranch|||
-regclass_swash||5.009004|
-regclass|||
-regcppop|||
-regcppush|||
-regcurly|||n
-regdump_extflags|||
-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|
-regpiece|||
-regpposixcc|||
-regprop|||
-regrepeat|||
-regtail_study|||
-regtail|||
-regtry|||
-reguni|||
-regwhite|||n
-reg|||
-repeatcpy|||
-report_evil_fh|||
-report_uninit|||
-require_pv||5.006000|
-require_tie_mod|||
-restore_magic|||
-rninstr|||
-rsignal_restore|||
-rsignal_save|||
-rsignal_state||5.004000|
-rsignal||5.004000|
-run_body|||
-run_user_filter|||
-runops_debug||5.005000|
-runops_standard||5.005000|
-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||5.004050|
-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_hek_flags|||n
-save_helem_flags||5.011000|
-save_helem||5.004050|
-save_hints|||
-save_hptr|||
-save_int|||
-save_item|||
-save_iv||5.005000|
-save_lines|||
-save_list|||
-save_long|||
-save_magic|||
-save_mortalizesv||5.007001|
-save_nogv|||
-save_op|||
-save_padsv_and_mortalize||5.011000|
-save_pptr|||
-save_pushi32ptr|||
-save_pushptri32ptr|||
-save_pushptrptr|||
-save_pushptr||5.011000|
-save_re_context||5.006000|
-save_scalar_at|||
-save_scalar|||
-save_set_svflags||5.009000|
-save_shared_pvref||5.007003|
-save_sptr|||
-save_svref|||
-save_vptr||5.006000|
-savepvn|||
-savepvs||5.009003|
-savepv|||
-savesharedpvn||5.009005|
-savesharedpv||5.007003|
-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|||
-scope|||
-screaminstr||5.005000|
-search_const|||
-seed||5.008001|
-sequence_num|||
-sequence_tail|||
-sequence|||
-set_context||5.006000|n
-set_numeric_local||5.006000|
-set_numeric_radix||5.006000|
-set_numeric_standard||5.006000|
-setdefout|||
-share_hek_flags|||
-share_hek||5.004000|
-si_dup|||
-sighandler|||n
-simplify_sort|||
-skipspace0|||
-skipspace1|||
-skipspace2|||
-skipspace|||
-softref2xv|||
-sortcv_stacked|||
-sortcv_xsub|||
-sortcv|||
-sortsv_flags||5.009003|
-sortsv||5.007003|
-space_join_names_mortal|||
-ss_dup|||
-stack_grow|||
-start_force|||
-start_glob|||
-start_subparse||5.004000|
-stashpv_hvname_match||5.011000|
-stdize_locale|||
-store_cop_label|||
-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|||
-sv_2cv|||
-sv_2io|||
-sv_2iuv_common|||
-sv_2iuv_non_preserve|||
-sv_2iv_flags||5.009001|
-sv_2iv|||
-sv_2mortal|||
-sv_2num|||
-sv_2nv|||
-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|||
-sv_bless|||
-sv_cat_decode||5.008001|
-sv_catpv_mg|5.004050||p
-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|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_catxmlpvn|||
-sv_catxmlsv|||
-sv_chop|||
-sv_clean_all|||
-sv_clean_objs|||
-sv_clear|||
-sv_cmp_locale||5.004000|
-sv_cmp|||
-sv_collxfrm|||
-sv_compile_2op||5.008001|
-sv_copypv||5.007003|
-sv_dec|||
-sv_del_backref|||
-sv_derived_from||5.004000|
-sv_destroyable||5.010000|
-sv_does||5.009004|
-sv_dump|||
-sv_dup_inc_multiple|||
-sv_dup|||
-sv_eq|||
-sv_exp_grow|||
-sv_force_normal_flags||5.007001|
-sv_force_normal||5.006000|
-sv_free2|||
-sv_free_arenas|||
-sv_free|||
-sv_gets||5.004000|
-sv_grow|||
-sv_i_ncmp|||
-sv_inc|||
-sv_insert_flags||5.011000|
-sv_insert|||
-sv_isa|||
-sv_isobject|||
-sv_iv||5.005000|
-sv_kill_backrefs|||
-sv_len_utf8||5.006000|
-sv_len|||
-sv_magic_portable|5.011000|5.004000|p
-sv_magicext||5.007003|
-sv_magic|||
-sv_mortalcopy|||
-sv_ncmp|||
-sv_newmortal|||
-sv_newref|||
-sv_nolocking||5.007003|
-sv_nosharing||5.007003|
-sv_nounlocking|||
-sv_nv||5.005000|
-sv_peek||5.005000|
-sv_pos_b2u_midway|||
-sv_pos_b2u||5.006000|
-sv_pos_u2b_cached|||
-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_release_COW|||
-sv_replace|||
-sv_report_used|||
-sv_reset|||
-sv_rvweaken||5.006000|
-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|5.009004||p
-sv_setpv|||
-sv_setref_iv|||
-sv_setref_nv|||
-sv_setref_pvn|||
-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_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||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
-sv_xmlpeek|||
-svtype|||
-swallow_bom|||
-swap_match_buff|||
-swash_fetch||5.007002|
-swash_get|||
-swash_init||5.006000|
-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|||
-tmps_grow||5.006000|
-toLOWER|||
-toUPPER|||
-to_byte_substr|||
-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.007003|
-to_utf8_lower||5.007003|
-to_utf8_substr|||
-to_utf8_title||5.007003|
-to_utf8_upper||5.007003|
-token_free|||
-token_getmad|||
-tokenize_use|||
-tokeq|||
-tokereport|||
-too_few_arguments|||
-too_many_arguments|||
-uiv_2buf|||n
-unlnk|||
-unpack_rec|||
-unpack_str||5.007003|
-unpackstring||5.008001|
-unshare_hek_or_pvn|||
-unshare_hek|||
-unsharepvn||5.004000|
-unwind_handler_stack|||
-update_debugger_info|||
-upg_version||5.009005|
-usage|||
-utf16_to_utf8_reversed||5.006001|
-utf16_to_utf8||5.006001|
-utf8_distance||5.006000|
-utf8_hop||5.006000|
-utf8_length||5.007001|
-utf8_mg_pos_cache_update|||
-utf8_to_bytes||5.006001|
-utf8_to_uvchr||5.007001|
-utf8_to_uvuni||5.007001|
-utf8n_to_uvchr|||
-utf8n_to_uvuni||5.007001|
-utilize|||
-uvchr_to_utf8_flags||5.007003|
-uvchr_to_utf8|||
-uvuni_to_utf8_flags||5.007003|
-uvuni_to_utf8||5.007001|
-validate_suid|||
-varname|||
-vcmp||5.009000|
-vcroak||5.006000|
-vdeb||5.007003|
-vdie_common|||
-vdie_croak_common|||
-vdie|||
-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
-warner_nocontext|||vn
-warner|5.006000|5.004000|pv
-warn|||v
-watch|||
-whichsig|||
-write_no_mem|||
-write_to_stderr|||
-xmldump_all|||
-xmldump_attr|||
-xmldump_eval|||
-xmldump_form|||
-xmldump_indent|||v
-xmldump_packsubs|||
-xmldump_sub|||
-xmldump_vindent|||
-yyerror|||
-yylex|||
-yyparse|||
-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 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 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 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
-#ifndef isALNUMC
-# define isALNUMC(c) (isALPHA(c) || isDIGIT(c))
-#endif
-
-#ifndef isASCII
-# define isASCII(c) ((c) <= 127)
-#endif
-
-#ifndef isCNTRL
-# define isCNTRL(c) ((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
-
-#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);
-#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"
-# else
-# if IVSIZE == INTSIZE
-# define IVdf "d"
-# define UVuf "u"
-# define UVof "o"
-# define UVxf "x"
-# define UVXf "X"
-# endif
-# 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_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
-
-#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 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 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_fetchpvn_flags
-# define gv_fetchpvn_flags(name, len, flags, svt) gv_fetchpv(name, flags, svt)
-#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 SvGETMAGIC
-# define SvGETMAGIC(x) STMT_START { if (SvGMAGICAL(x)) mg_get(x); } STMT_END
-#endif
-#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
-
-#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 */
-#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/3.8.8/sources/cpan-Devel-PPPort/vendor/PPPort_pm.PL b/3.8.8/sources/cpan-Devel-PPPort/vendor/PPPort_pm.PL
deleted file mode 100644
index fcc8671..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/PPPort_pm.PL
+++ /dev/null
@@ -1,669 +0,0 @@
-################################################################################
-#
-# PPPort_pm.PL -- generate PPPort.pm
-#
-################################################################################
-#
-# $Revision: 65 $
-# $Author: mhx $
-# $Date: 2009/06/12 04:10:36 +0200 $
-#
-################################################################################
-#
-# Version 3.x, Copyright (C) 2004-2009, 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.
-#
-################################################################################
-
-use strict;
-$^W = 1;
-require "parts/ppptools.pl";
-
-my $INCLUDE = 'parts/inc';
-my $DPPP = 'DPPP_';
-
-my %embed = map { ( $_->{name} => $_ ) }
- parse_embed(qw(parts/embed.fnc parts/apidoc.fnc parts/ppport.fnc));
-
-my(%provides, %prototypes, %explicit);
-
-my $data = do { local $/; <DATA> };
-$data =~ s{^\%(include)\s+(\w+)((?:[^\S\r\n]+.*?)?)\s*$}
- {eval "$1('$2', $3)" or die $@}gem;
-
-$data = expand($data);
-
-my @api = sort { lc $a cmp lc $b } keys %provides;
-
-$data =~ s{^(.*)__PROVIDED_API__(\s*?)^}
- {join '', map "$1$_\n", @api}gem;
-
-{
- my $len = 0;
- for (keys %explicit) {
- length > $len and $len = length;
- }
- my $format = sprintf '%%-%ds %%-%ds %%s', $len+2, $len+5;
- $len = 3*$len + 23;
-
-$data =~ s!^(.*)__EXPLICIT_API__(\s*?)^!
- sprintf("$1$format\n", 'Function / Variable', 'Static Request', 'Global Request') .
- $1 . '-'x$len . "\n" .
- join('', map { sprintf "$1$format\n", $explicit{$_} eq 'var' ? $_ : "$_()", "NEED_$_", "NEED_${_}_GLOBAL" }
- sort keys %explicit)
- !gem;
-}
-
-my %raw_base = %{&parse_todo('parts/base')};
-my %raw_todo = %{&parse_todo('parts/todo')};
-
-my %todo;
-for (keys %raw_todo) {
- push @{$todo{$raw_todo{$_}}}, $_;
-}
-
-# check consistency
-for (@api) {
- if (exists $raw_todo{$_} and exists $raw_base{$_}) {
- if ($raw_base{$_} eq $raw_todo{$_}) {
- warn "$INCLUDE/$provides{$_} provides $_, which is still marked "
- . "todo for " . format_version($raw_todo{$_}) . "\n";
- }
- else {
- check(2, "$_ was ported back to " . format_version($raw_todo{$_}) .
- " (baseline revision: " . format_version($raw_base{$_}) . ").");
- }
- }
-}
-
-my @perl_api;
-for (keys %provides) {
- next if /^Perl_(.*)/ && exists $embed{$1};
- next if exists $embed{$_};
- push @perl_api, $_;
- check(2, "No API definition for provided element $_ found.");
-}
-
-push @perl_api, keys %embed;
-
-for (@perl_api) {
- if (exists $provides{$_} && !exists $raw_base{$_}) {
- check(2, "Mmmh, $_ doesn't seem to need backporting.");
- }
- my $line = "$_|" . (exists $provides{$_} && exists $raw_base{$_} ? $raw_base{$_} : '') . '|';
- $line .= ($raw_todo{$_} || '') . '|';
- $line .= 'p' if exists $provides{$_};
- if (exists $embed{$_}) {
- my $e = $embed{$_};
- if (exists $e->{flags}{p}) {
- my $args = $e->{args};
- $line .= 'v' if @$args && $args->[-1][0] eq '...';
- }
- $line .= 'n' if exists $e->{flags}{n};
- }
- $_ = $line;
-}
-
-$data =~ s/^([\t ]*)__PERL_API__(\s*?)$/
- join "\n", map "$1$_", sort @perl_api
- /gem;
-
-my @todo;
-for (reverse sort keys %todo) {
- my $ver = format_version($_);
- my $todo = "=item perl $ver\n\n";
- for (sort @{$todo{$_}}) {
- $todo .= " $_\n";
- }
- push @todo, $todo;
-}
-
-$data =~ s{^__UNSUPPORTED_API__(\s*?)^}
- {join "\n", @todo}gem;
-
-$data =~ s{__MIN_PERL__}{5.003}g;
-$data =~ s{__MAX_PERL__}{5.10.0}g;
-
-open FH, ">PPPort.pm" or die "PPPort.pm: $!\n";
-print FH $data;
-close FH;
-
-exit 0;
-
-sub include
-{
- my($file, $opt) = @_;
-
- print "including $file\n";
-
- my $data = parse_partspec("$INCLUDE/$file");
-
- for (@{$data->{provides}}) {
- if (exists $provides{$_}) {
- if ($provides{$_} ne $file) {
- warn "$file: $_ already provided by $provides{$_}\n";
- }
- }
- else {
- $provides{$_} = $file;
- }
- }
-
- for (keys %{$data->{prototypes}}) {
- $prototypes{$_} = $data->{prototypes}{$_};
- $data->{implementation} =~ s/^$_(?=\s*\()/$DPPP(my_$_)/mg;
- }
-
- my $out = $data->{implementation};
-
- if (exists $opt->{indent}) {
- $out =~ s/^/$opt->{indent}/gm;
- }
-
- return $out;
-}
-
-sub expand
-{
- my $code = shift;
- $code =~ s{^(\s*#\s*(?:el)?if\s+)(.*)$}{$1.expand_pp_expressions($2)}gem;
- $code =~ s{^\s*
- __UNDEFINED__
- \s+
- (
- ( \w+ )
- (?: \( [^)]* \) )?
- )
- [^\r\n\S]*
- (
- (?:[^\r\n\\]|\\[^\r\n])*
- (?:
- \\
- (?:\r\n|[\r\n])
- (?:[^\r\n\\]|\\[^\r\n])*
- )*
- )
- \s*$}
- {expand_undefined($2, $1, $3)}gemx;
- $code =~ s{^([^\S\r\n]*)__NEED_VAR__\s+(.*?)\s+(\w+)(?:\s*=\s*([^;]+?))?\s*;\s*$}
- {expand_need_var($1, $3, $2, $4)}gem;
- $code =~ s{^([^\S\r\n]*)__NEED_DUMMY_VAR__\s+(.*?)\s+(\w+)(?:\s*=\s*([^;]+?))?\s*;\s*$}
- {expand_need_dummy_var($1, $3, $2, $4)}gem;
- return $code;
-}
-
-sub expand_need_var
-{
- my($indent, $var, $type, $init) = @_;
-
- $explicit{$var} = 'var';
-
- my $myvar = "$DPPP(my_$var)";
- $init = defined $init ? " = $init" : "";
-
- my $code = <<ENDCODE;
-#if defined(NEED_$var)
-static $type $myvar$init;
-#elif defined(NEED_${var}_GLOBAL)
-$type $myvar$init;
-#else
-extern $type $myvar;
-#endif
-#define $var $myvar
-ENDCODE
-
- $code =~ s/^/$indent/mg;
-
- return $code;
-}
-
-sub expand_need_dummy_var
-{
- my($indent, $var, $type, $init) = @_;
-
- $explicit{$var} = 'var';
-
- my $myvar = "$DPPP(dummy_$var)";
- $init = defined $init ? " = $init" : "";
-
- my $code = <<ENDCODE;
-#if defined(NEED_$var)
-static $type $myvar$init;
-#elif defined(NEED_${var}_GLOBAL)
-$type $myvar$init;
-#else
-extern $type $myvar;
-#endif
-ENDCODE
-
- $code =~ s/^/$indent/mg;
-
- return $code;
-}
-
-sub expand_undefined
-{
- my($macro, $withargs, $def) = @_;
- my $rv = "#ifndef $macro\n# define ";
-
- if (defined $def && $def =~ /\S/) {
- $rv .= sprintf "%-30s %s", $withargs, $def;
- }
- else {
- $rv .= $withargs;
- }
-
- $rv .= "\n#endif\n";
-
- return $rv;
-}
-
-sub expand_pp_expressions
-{
- my $pp = shift;
- $pp =~ s/\{([^\}]+)\}/expand_pp_expr($1)/ge;
- return $pp;
-}
-
-sub expand_pp_expr
-{
- my $expr = shift;
-
- if ($expr =~ /^\s*need\s+(\w+)\s*$/i) {
- my $func = $1;
- my $e = $embed{$func} or die "unknown API function '$func' in NEED\n";
- my $proto = make_prototype($e);
- if (exists $prototypes{$func}) {
- if (compare_prototypes($proto, $prototypes{$func})) {
- check(1, "differing prototypes for $func:\n API: $proto\n PPP: $prototypes{$func}");
- $proto = $prototypes{$func};
- }
- }
- else {
- warn "found no prototype for $func\n";;
- }
-
- $explicit{$func} = 'func';
-
- $proto =~ s/\b$func(?=\s*\()/$DPPP(my_$func)/;
- my $embed = make_embed($e);
-
- return "defined(NEED_$func)\n"
- . "static $proto;\n"
- . "static\n"
- . "#else\n"
- . "extern $proto;\n"
- . "#endif\n"
- . "\n"
- . "$embed\n"
- . "\n"
- . "#if defined(NEED_$func) || defined(NEED_${func}_GLOBAL)";
- }
-
- die "cannot expand preprocessor expression '$expr'\n";
-}
-
-sub make_embed
-{
- my $f = shift;
- my $n = $f->{name};
- my $a = do { my $x = 'a'; join ',', map { $x++ } 1 .. @{$f->{args}} };
- my $lastarg = ${$f->{args}}[-1];
-
- if ($f->{flags}{n}) {
- if ($f->{flags}{p}) {
- return "#define $n $DPPP(my_$n)\n" .
- "#define Perl_$n $DPPP(my_$n)";
- }
- else {
- return "#define $n $DPPP(my_$n)";
- }
- }
- else {
- my $undef = <<UNDEF;
-#ifdef $n
-# undef $n
-#endif
-UNDEF
- if ($f->{flags}{p}) {
- if ($f->{flags}{f}) {
- return "#define Perl_$n $DPPP(my_$n)";
- }
- elsif (@$lastarg && $lastarg->[0] =~ /\.\.\./) {
- return $undef . "#define $n $DPPP(my_$n)\n" .
- "#define Perl_$n $DPPP(my_$n)";
- }
- else {
- return $undef . "#define $n($a) $DPPP(my_$n)(aTHX_ $a)\n" .
- "#define Perl_$n $DPPP(my_$n)";
- }
- }
- else {
- return $undef . "#define $n($a) $DPPP(my_$n)(aTHX_ $a)";
- }
- }
-}
-
-sub check
-{
- my $level = shift;
-
- if (exists $ENV{DPPP_CHECK_LEVEL} and $ENV{DPPP_CHECK_LEVEL} >= $level) {
- print STDERR @_, "\n";
- }
-}
-
-__DATA__
-################################################################################
-#
-# !!!!! 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
-#
-################################################################################
-#
-# $Revision: 65 $
-# $Author: mhx $
-# $Date: 2009/06/12 04:10:36 +0200 $
-#
-################################################################################
-#
-# Version 3.x, Copyright (C) 2004-2009, 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');
-
-=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 a single function, called C<WriteFile>. Its
-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 __MIN_PERL__ to __MAX_PERL__ are supported.
-
-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.
-
-=head1 COMPATIBILITY
-
-F<ppport.h> supports Perl versions from __MIN_PERL__ to __MAX_PERL__
-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:
-
- __PROVIDED_API__
-
-=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
-
-__UNSUPPORTED_API__
-
-=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 use the CPAN Request Tracker
-at L<http://rt.cpan.org/> to create a ticket for the module.
-
-=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.
-
-=back
-
-=head1 COPYRIGHT
-
-Version 3.x, Copyright (C) 2004-2009, 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 = do { my @r = '$Snapshot: /Devel-PPPort/3.19 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
-
-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 WriteFile
-{
- my $file = shift || 'ppport.h';
- defined $data or _init_data();
- my $copy = $data;
- $copy =~ s/\bppport\.h\b/$file/g;
-
- open F, ">$file" or return undef;
- print F $copy;
- 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
-
-%include ppphdoc { indent => '|>' }
-
-%include ppphbin
-
-__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)
-
-%include version
-
-%include threads
-
-%include limits
-
-%include uv
-
-%include memory
-
-%include misc
-
-%include variables
-
-%include mPUSH
-
-%include call
-
-%include newRV
-
-%include newCONSTSUB
-
-%include MY_CXT
-
-%include format
-
-%include SvREFCNT
-
-%include newSV_type
-
-%include newSVpv
-
-%include SvPV
-
-%include Sv_set
-
-%include sv_xpvf
-
-%include shared_pv
-
-%include HvNAME
-
-%include gv
-
-%include warn
-
-%include pvs
-
-%include magic
-
-%include cop
-
-%include grok
-
-%include snprintf
-
-%include sprintf
-
-%include exception
-
-%include strlfuncs
-
-%include pv_tools
-
-#endif /* _P_P_PORTABILITY_H_ */
-
-/* End of File ppport.h */
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/PPPort_xs.PL b/3.8.8/sources/cpan-Devel-PPPort/vendor/PPPort_xs.PL
deleted file mode 100644
index 8d9fd4f..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/PPPort_xs.PL
+++ /dev/null
@@ -1,140 +0,0 @@
-################################################################################
-#
-# PPPort_xs.PL -- generate RealPPPort.xs
-#
-################################################################################
-#
-# $Revision: 15 $
-# $Author: mhx $
-# $Date: 2009/01/18 14:10:48 +0100 $
-#
-################################################################################
-#
-# Version 3.x, Copyright (C) 2004-2009, 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.
-#
-################################################################################
-
-use strict;
-$^W = 1;
-require "parts/ppptools.pl";
-
-my %SECTION = (
- xshead => { code => '', header => "/* ---- code from __FILE__ ---- */" },
- xsinit => { code => '', header => "/* ---- code from __FILE__ ---- */" },
- xsmisc => { code => '', header => "/* ---- code from __FILE__ ---- */" },
- xsboot => { code => '', header => "/* ---- code from __FILE__ ---- */", indent => "\t" },
- xsubs => { code => '', header => <<ENDHEADER },
-##----------------------------------------------------------------------
-## XSUBs for testing the implementation in __FILE__
-##----------------------------------------------------------------------
-ENDHEADER
-);
-
-if (exists $ENV{PERL_NO_GET_CONTEXT} && $ENV{PERL_NO_GET_CONTEXT}) {
-$SECTION{xshead}{code} .= <<END;
-#define PERL_NO_GET_CONTEXT
-END
-}
-
-my $file;
-my $sec;
-
-for $file (all_files_in_dir('parts/inc')) {
- my $spec = parse_partspec($file);
-
- my $msg = 0;
- for $sec (keys %SECTION) {
- if (exists $spec->{$sec}) {
- $msg++ or print "adding XS code from $file\n";
- if (exists $SECTION{$sec}{header}) {
- my $header = $SECTION{$sec}{header};
- $header =~ s/__FILE__/$file/g;
- $SECTION{$sec}{code} .= $header . "\n";
- }
- $SECTION{$sec}{code} .= $spec->{$sec} . "\n";
- }
- }
-}
-
-my $data = do { local $/; <DATA> };
-
-for $sec (keys %SECTION) {
- my $code = $SECTION{$sec}{code};
- if (exists $SECTION{$sec}{indent}) {
- $code =~ s/^/$SECTION{$sec}{indent}/gm;
- }
- $code =~ s/[\r\n]+$//;
- $data =~ s/^__\U$sec\E__$/$code/m;
-}
-
-open FH, ">RealPPPort.xs" or die "RealPPPort.xs: $!\n";
-print FH $data;
-close FH;
-
-exit 0;
-
-__DATA__
-/*******************************************************************************
-*
-* !!!!! Do NOT edit this file directly! -- Edit PPPort_xs.PL instead. !!!!!
-*
-* This file was automatically generated from the definition files in the
-* parts/inc/ subdirectory by PPPort_xs.PL. To learn more about how all this
-* works, please read the F<HACKERS> file that came with this distribution.
-*
-********************************************************************************
-*
-* Perl/Pollution/Portability
-*
-********************************************************************************
-*
-* $Revision: 15 $
-* $Author: mhx $
-* $Date: 2009/01/18 14:10:48 +0100 $
-*
-********************************************************************************
-*
-* Version 3.x, Copyright (C) 2004-2009, 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.
-*
-*******************************************************************************/
-
-/* ========== BEGIN XSHEAD ================================================== */
-
-__XSHEAD__
-
-/* =========== END XSHEAD =================================================== */
-
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-
-/* ========== BEGIN XSINIT ================================================== */
-
-__XSINIT__
-
-/* =========== END XSINIT =================================================== */
-
-#include "ppport.h"
-
-/* ========== BEGIN XSMISC ================================================== */
-
-__XSMISC__
-
-/* =========== END XSMISC =================================================== */
-
-MODULE = Devel::PPPort PACKAGE = Devel::PPPort
-
-BOOT:
-__XSBOOT__
-
-__XSUBS__
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/TODO b/3.8.8/sources/cpan-Devel-PPPort/vendor/TODO
deleted file mode 100644
index 961acd9..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/TODO
+++ /dev/null
@@ -1,347 +0,0 @@
-TODO:
-
-* > 3. In several cases, "perl ppport.h --copy=.new" output a new file in
- > which the only change was the addition of "#include "ppport.h"". In each
- > case, that actually wasn't necessary because the source file in question
- > already #included another source file which #included ppport.h itself.
- > Would it be possible for the analyzer to follow #include directives to
- > spot cases like this?
-
- Uh, well, I guess it would be possible. But I have some concerns:
-
- 1. ppport.h is already too big. :-)
-
- 2. There is code in ppport.h to actually remove an
-
- #include "ppport.h"
-
- if it appears not to be needed. If it's not needed in your
- included file, it might be dropped from there and moved to
- the other file that included the first one. This would make
- the logic much more complicated.
-
- 3. As ppport.h is configurable, it's not (always) a good idea
- to put it into a file that's included from another file.
-
- I guess I'll have to think about this a little more. Maybe I can
- come up with a fancy solution that doesn't increase the code size
- too much.
-
-
-* On 14/12/06, Nicholas Clark <nick at ccl4.org> wrote:
- > On Thu, Dec 14, 2006 at 05:03:24AM +0100, Andreas J. Koenig wrote:
- >
- > > Params::Validate and Clone suffer from the same cold:
- >
- > The same patch will make both compile and pass tests.
- > I'm wondering if it might be better to totally drop SVt_PBVM and let source
- > code fail to compile.
-
- I don't think so. Because :
- 1. your redefinition of SVt_PBVM is probably what most XS modules want
- 2. anyway, if we remove it from the core, it might appear in Devel::PPPort :)
-
-
-* maybe backport bytes_from_utf8() for 5.6.0 (or even before)?
-
-* check which of the following we need to support:
-
- amagic_generation
- AMG_names
- an
- Argv
- argvgv
- argvoutgv
- basetime
- beginav
- block_type
- bodytarget
- bufend
- bufptr
- check
- chopset
- Cmd
- compcv
- compiling
- comppad
- comppad_name
- comppad_name_fill
- copline
- cop_seqmax
- cryptseen
- cshlen
- cshname
- curcop
- curinterp
- curpad
- curpm
- curstash
- curstname
- dbargs
- DBgv
- DBline
- DBsignal
- DBsingle
- DBsub
- DBtrace
- debstash
- debug
- defgv
- defoutgv
- defstash
- delaymagic
- diehook
- dirty
- doextract
- doswitches
- do_undump
- dowarn
- egid
- encoding
- endav
- envgv
- errgv
- error_count
- errors
- euid
- eval_root
- evalseq
- eval_start
- expect
- fdpid
- filemode
- firstgv
- fold
- forkprocess
- formfeed
- formtarget
- freq
- generation
- gensym
- gid
- hexdigit
- hints
- incgv
- in_eval
- in_my
- inplace
- lastfd
- last_in_gv
- last_lop
- last_lop_op
- lastscream
- laststatval
- laststype
- last_uni
- lex_brackets
- lex_brackstack
- lex_casemods
- lex_casestack
- lex_defer
- lex_dojoin
- lex_expect
- lex_formbrack
- lex_inpat
- lex_inwhat
- lex_op
- lex_repl
- lex_starts
- lex_state
- lex_stuff
- lineary
- linestr
- localizing
- main_cv
- main_root
- mainstack
- main_start
- markstack
- markstack_max
- markstack_ptr
- max_intro_pending
- maxo
- maxscream
- maxsysfd
- min_intro_pending
- minus_a
- minus_c
- minus_F
- minus_l
- minus_n
- minus_p
- multi_close
- multi_end
- multi_open
- multi_start
- na
- nexttoke
- nexttype
- nextval
- nice_chunk
- nice_chunk_size
- No
- no_aelem
- no_dir_func
- no_func
- no_mem
- nomemok
- no_modify
- no_myglob
- no_security
- no_sock_func
- no_symref
- no_usym
- no_wrongref
- nrs
- oldbufptr
- oldname
- oldoldbufptr
- op
- opargs
- op_desc
- op_mask
- op_name
- op_seq
- origalen
- origargc
- origargv
- origenviron
- origfilename
- osname
- padix
- padix_floor
- pad_reset_pending
- patchlevel
- patleave
- perldb
- perl_destruct_level
- pidstatus
- ppaddr
- preambleav
- preambled
- preprocess
- profiledata
- regdummy
- regendp
- regeol
- reginput
- regkind
- reglastparen
- regsize
- regstartp
- restartop
- rs
- rsfp
- rsfp_filters
- runops
- savestack
- savestack_ix
- savestack_max
- sawampersand
- scopestack
- scopestack_ix
- scopestack_max
- screamfirst
- screamnext
- secondgv
- signals
- sig_name
- sig_num
- simple
- sortcop
- sortstash
- splitstr
- stack_base
- stack_max
- stack_sp
- statbuf
- statcache
- statgv
- statname
- statusvalue
- stdingv
- sub_generation
- subline
- subname
- Sv
- sv_arenaroot
- sv_count
- sv_no
- sv_objcount
- sv_root
- sv_undef
- sv_yes
- tainted
- tainting
- timesbuf
- tmps_floor
- tmps_ix
- tmps_max
- tmps_stack
- tokenbuf
- top_env
- toptarget
- uid
- unsafe
- varies
- vtbl_amagic
- vtbl_amagicelem
- vtbl_arylen
- vtbl_bm
- vtbl_dbline
- vtbl_env
- vtbl_envelem
- vtbl_glob
- vtbl_isa
- vtbl_isaelem
- vtbl_mglob
- vtbl_pack
- vtbl_packelem
- vtbl_pos
- vtbl_sig
- vtbl_sigelem
- vtbl_substr
- vtbl_sv
- vtbl_taint
- vtbl_uvar
- vtbl_vec
- warnhook
- warn_nl
- warn_nosemi
- warn_reserved
- warn_uninit
- watchaddr
- watchok
- Xpv
- Yes
-
-* have an --env option for soak to set env variable combinations
-
-* only overwrite generated files if they actually changed
-
-* try to make parts/apicheck.pl automatically find NEED_ #defines
-
-* add support for my_vsnprintf?
-
-* try to perform some core consistency checks:
-
- - check if 'd' flag in embed.fnc matches with
- supplied documentation
-
- - check if all public API is documented
-
-* check (during make regen?) if MAX_PERL in PPPort_pm.PL
- needs to be updated
-
-* see if we can implement sv_catpvf() for < 5.004
-
-* MULTICALL ?
-
-* improve apicheck (things like utf8_mg_pos_init() are
- not currently checked)
-
-* more documentation, more tests
-
-* Resolve dependencies in Makefile.PL and remind of
- running 'make regen'
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/apicheck_c.PL b/3.8.8/sources/cpan-Devel-PPPort/vendor/apicheck_c.PL
deleted file mode 100644
index e4d861e..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/apicheck_c.PL
+++ /dev/null
@@ -1,29 +0,0 @@
-################################################################################
-#
-# apicheck_c.PL -- generate apicheck.c
-#
-################################################################################
-#
-# $Revision: 11 $
-# $Author: mhx $
-# $Date: 2009/01/18 14:10:49 +0100 $
-#
-################################################################################
-#
-# Version 3.x, Copyright (C) 2004-2009, 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.
-#
-################################################################################
-
-use strict;
-
-my $out = 'apicheck.c';
-my @api = map { /^--api=(\w+)$/ ? ($1) : () } @ARGV;
-print "creating $out", (@api ? " (@api)" : ''), "\n";
-system $^X, 'parts/apicheck.pl', @api, $out
- and die "couldn't create $out\n";
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/devel/mkapidoc.sh b/3.8.8/sources/cpan-Devel-PPPort/vendor/devel/mkapidoc.sh
deleted file mode 100755
index a4de2b4..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/devel/mkapidoc.sh
+++ /dev/null
@@ -1,87 +0,0 @@
-#!/bin/bash
-################################################################################
-#
-# mkapidoc.sh -- generate apidoc.fnc from scanning the Perl source
-#
-################################################################################
-#
-# $Revision: 13 $
-# $Author: mhx $
-# $Date: 2009/01/18 14:10:50 +0100 $
-#
-################################################################################
-#
-# Version 3.x, Copyright (C) 2004-2009, 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.
-#
-################################################################################
-
-function isperlroot
-{
- [ -f "$1/embed.fnc" ] && [ -f "$1/perl.h" ]
-}
-
-function usage
-{
- echo "USAGE: $0 [perlroot] [output-file] [embed.fnc]"
- exit 0
-}
-
-if [ -z "$1" ]; then
- if isperlroot "../../.."; then
- PERLROOT=../../..
- else
- PERLROOT=.
- fi
-else
- PERLROOT=$1
-fi
-
-if [ -z "$2" ]; then
- if [ -f "parts/apidoc.fnc" ]; then
- OUTPUT="parts/apidoc.fnc"
- else
- usage
- fi
-else
- OUTPUT=$2
-fi
-
-if [ -z "$3" ]; then
- if [ -f "parts/embed.fnc" ]; then
- EMBED="parts/embed.fnc"
- else
- usage
- fi
-else
- EMBED=$3
-fi
-
-if isperlroot $PERLROOT; then
- cat >$OUTPUT <<EOF
-::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-:
-: !!!! Do NOT edit this file directly! -- Edit devel/mkapidoc.sh instead. !!!!
-:
-: This file was automatically generated from the API documentation scattered
-: all over the Perl source code. To learn more about how all this works,
-: please read the F<HACKERS> file that came with this distribution.
-:
-::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
-:
-: This file lists all API functions/macros that are documented in the Perl
-: source code, but are not contained in F<embed.fnc>.
-:
-
-EOF
- grep -hr '^=for apidoc' $PERLROOT | sed -e 's/=for apidoc //' | grep '|' | sort | uniq \
- | perl -e'$f=pop;open(F,$f)||die"$f:$!";while(<F>){(split/\|/)[2]=~/(\w+)/;$h{$1}++}
- while(<>){s/[ \t]+$//;(split/\|/)[2]=~/(\w+)/;$h{$1}||print}' $EMBED >>$OUTPUT
-else
- usage
-fi
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/devel/regenerate b/3.8.8/sources/cpan-Devel-PPPort/vendor/devel/regenerate
deleted file mode 100755
index 3176505..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/devel/regenerate
+++ /dev/null
@@ -1,161 +0,0 @@
-#!/usr/bin/perl -w
-################################################################################
-#
-# regenerate -- regenerate baseline and todo files
-#
-################################################################################
-#
-# $Revision: 8 $
-# $Author: mhx $
-# $Date: 2009/01/18 14:10:50 +0100 $
-#
-################################################################################
-#
-# Version 3.x, Copyright (C) 2004-2009, 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.
-#
-################################################################################
-
-use strict;
-use File::Path;
-use File::Copy;
-use Getopt::Long;
-use Pod::Usage;
-
-require 'devel/devtools.pl';
-
-our %opt = (
- check => 1,
- verbose => 0,
-);
-
-GetOptions(\%opt, qw( check! verbose )) or die pod2usage();
-
-identify();
-
-unless (-e 'parts/embed.fnc' and -e 'parts/apidoc.fnc') {
- print "\nOooops, $0 must be run from the Devel::PPPort root directory.\n";
- quit_now();
-}
-
-ask_or_quit("Are you sure you have updated parts/embed.fnc and parts/apidoc.fnc?");
-
-my %files = map { ($_ => [glob "parts/$_/5*"]) } qw( base todo );
-
-my(@notwr, @wr);
-for my $f (map @$_, values %files) {
- push @{-w $f ? \@wr : \@notwr}, $f;
-}
-
-if (@notwr) {
- if (@wr) {
- print "\nThe following files are not writable:\n\n";
- print " $_\n" for @notwr;
- print "\nAre you sure you have checked out these files?\n";
- }
- else {
- print "\nAll baseline / todo file are not writable.\n";
- ask_or_quit("Do you want to try to check out these files?");
- unless (runtool("wco", "-l", "-t", "locked by $0", @notwr)) {
- print "\nSomething went wrong while checking out the files.\n";
- quit_now();
- }
- }
-}
-
-for my $dir (qw( base todo )) {
- my $cur = "parts/$dir";
- my $old = "$cur-old";
- if (-e $old) {
- ask_or_quit("Do you want me to remove the old $old directory?");
- rmtree($old);
- }
- mkdir $old;
- print "\nBacking up $cur in $old.\n";
- for my $src (@{$files{$dir}}) {
- my $dst = $src;
- $dst =~ s/\E$cur/$old/ or die "Ooops!";
- move($src, $dst) or die "Moving $src to $dst failed: $!\n";
- }
-}
-
-my $T0 = time;
-my @args = ddverbose();
-push @args, '--nocheck' unless $opt{check};
-
-print "\nBuilding baseline files...\n\n";
-
-unless (runperl('devel/mktodo', '--base', @args)) {
- print "\nSomething went wrong while building the baseline files.\n";
- quit_now();
-}
-
-print "\nMoving baseline files...\n\n";
-
-for my $src (glob 'parts/todo/5*') {
- my $dst = $src;
- $dst =~ s/todo/base/ or die "Ooops!";
- move($src, $dst) or die "Moving $src to $dst failed: $!\n";
-}
-
-print "\nBuilding todo files...\n\n";
-
-unless (runperl('devel/mktodo', @args)) {
- print "\nSomething went wrong while building the baseline files.\n";
- quit_now();
-}
-
-print "\nAdding remaining baseline info...\n\n";
-
-unless (runperl('Makefile.PL') and
- runtool('make') and
- runperl('devel/scanprov', 'write')) {
- print "\nSomething went wrong while adding the baseline info.\n";
- quit_now();
-}
-
-my($wall, $usr, $sys, $cusr, $csys) = (time - $T0, times);
-my $cpu = sprintf "%.2f", $usr + $sys + $cusr + $csys;
-$usr = sprintf "%.2f", $usr + $cusr;
-$sys = sprintf "%.2f", $sys + $csys;
-
-print <<END;
-
-API info regenerated successfully.
-
-Finished in $wall wallclock secs ($usr usr + $sys sys = $cpu CPU)
-
-Don't forget to check in the files in parts/base and parts/todo.
-
-END
-
-__END__
-
-=head1 NAME
-
-regenerate - Automatically regeneate Devel::PPPort's API information
-
-=head1 SYNOPSIS
-
- regenerate [options]
-
- --nocheck don't recheck symbols that caused an error
- --verbose show verbose output
-
-=head1 COPYRIGHT
-
-Copyright (c) 2006-2009, Marcus Holland-Moritz.
-
-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> and L<HACKERS>.
-
-=cut
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/module2.c b/3.8.8/sources/cpan-Devel-PPPort/vendor/module2.c
deleted file mode 100644
index e5f4ef6..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/module2.c
+++ /dev/null
@@ -1,60 +0,0 @@
-/*******************************************************************************
-*
-* Perl/Pollution/Portability
-*
-********************************************************************************
-*
-* $Revision: 12 $
-* $Author: mhx $
-* $Date: 2009/01/18 14:10:49 +0100 $
-*
-********************************************************************************
-*
-* Version 3.x, Copyright (C) 2004-2009, 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.
-*
-*******************************************************************************/
-
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-
-#ifndef PATCHLEVEL
-#include "patchlevel.h"
-#endif
-
-#define NEED_newCONSTSUB_GLOBAL
-#define NEED_PL_signals_GLOBAL
-#define NEED_PL_parser
-#define DPPP_PL_parser_NO_DUMMY
-#include "ppport.h"
-
-void call_newCONSTSUB_2(void)
-{
- newCONSTSUB(gv_stashpv("Devel::PPPort", FALSE), "test_value_2", newSViv(2));
-}
-
-U32 get_PL_signals_2(void)
-{
- return PL_signals;
-}
-
-int no_dummy_parser_vars(int check)
-{
- if (check == 0 || PL_parser)
- {
- line_t volatile my_copline;
- line_t volatile *my_p_copline;
- my_copline = PL_copline;
- my_p_copline = &PL_copline;
- PL_copline = my_copline;
- PL_copline = *my_p_copline;
- return 1;
- }
-
- return 0;
-}
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/module3.c b/3.8.8/sources/cpan-Devel-PPPort/vendor/module3.c
deleted file mode 100644
index bcfbcd0..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/module3.c
+++ /dev/null
@@ -1,77 +0,0 @@
-/*******************************************************************************
-*
-* Perl/Pollution/Portability
-*
-********************************************************************************
-*
-* $Revision: 12 $
-* $Author: mhx $
-* $Date: 2009/01/18 14:10:49 +0100 $
-*
-********************************************************************************
-*
-* Version 3.x, Copyright (C) 2004-2009, 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.
-*
-*******************************************************************************/
-
-#include "EXTERN.h"
-#include "perl.h"
-
-#define NEED_PL_parser
-#define NO_XSLOCKS
-#include "XSUB.h"
-
-#include "ppport.h"
-
-static void throws_exception(int throw_e)
-{
- if (throw_e)
- croak("boo\n");
-}
-
-int exception(int throw_e)
-{
- dTHR;
- dXCPT;
- SV *caught = get_sv("Devel::PPPort::exception_caught", 0);
-
- XCPT_TRY_START {
- throws_exception(throw_e);
- } XCPT_TRY_END
-
- XCPT_CATCH
- {
- sv_setiv(caught, 1);
- XCPT_RETHROW;
- }
-
- sv_setiv(caught, 0);
-
- return 42;
-}
-
-void call_newCONSTSUB_3(void)
-{
- newCONSTSUB(gv_stashpv("Devel::PPPort", FALSE), "test_value_3", newSViv(3));
-}
-
-U32 get_PL_signals_3(void)
-{
- return PL_signals;
-}
-
-int dummy_parser_warning(void)
-{
- char * volatile my_bufptr;
- char * volatile *my_p_bufptr;
- my_bufptr = PL_bufptr;
- my_p_bufptr = &PL_bufptr;
- PL_bufptr = my_bufptr;
- PL_bufptr = *my_p_bufptr;
- return &PL_bufptr != NULL;
-}
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/apicheck.pl b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/apicheck.pl
deleted file mode 100755
index e6caab5..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/apicheck.pl
+++ /dev/null
@@ -1,323 +0,0 @@
-#!/usr/bin/perl -w
-################################################################################
-#
-# apicheck.pl -- generate C source for automated API check
-#
-################################################################################
-#
-# $Revision: 35 $
-# $Author: mhx $
-# $Date: 2009/06/12 12:29:35 +0200 $
-#
-################################################################################
-#
-# Version 3.x, Copyright (C) 2004-2009, 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.
-#
-################################################################################
-
-use strict;
-require 'parts/ppptools.pl';
-
-if (@ARGV) {
- my $file = pop @ARGV;
- open OUT, ">$file" or die "$file: $!\n";
-}
-else {
- *OUT = \*STDOUT;
-}
-
-my @f = parse_embed(qw( parts/embed.fnc parts/apidoc.fnc parts/ppport.fnc ));
-
-my %todo = %{&parse_todo};
-
-my %tmap = (
- void => 'int',
-);
-
-my %amap = (
- SP => 'SP',
- type => 'int',
- cast => 'int',
-);
-
-my %void = (
- void => 1,
- Free_t => 1,
- Signal_t => 1,
-);
-
-my %castvoid = (
- map { ($_ => 1) } qw(
- Nullav
- Nullcv
- Nullhv
- Nullch
- Nullsv
- HEf_SVKEY
- SP
- MARK
- SVt_PV
- SVt_IV
- SVt_NV
- SVt_PVMG
- SVt_PVAV
- SVt_PVHV
- SVt_PVCV
- SvUOK
- G_SCALAR
- G_ARRAY
- G_VOID
- G_DISCARD
- G_EVAL
- G_NOARGS
- XS_VERSION
- ),
-);
-
-my %ignorerv = (
- map { ($_ => 1) } qw(
- newCONSTSUB
- ),
-);
-
-my %stack = (
- ORIGMARK => ['dORIGMARK;'],
- POPpx => ['STRLEN n_a;'],
- POPpbytex => ['STRLEN n_a;'],
- PUSHp => ['dTARG;'],
- PUSHn => ['dTARG;'],
- PUSHi => ['dTARG;'],
- PUSHu => ['dTARG;'],
- XPUSHp => ['dTARG;'],
- XPUSHn => ['dTARG;'],
- XPUSHi => ['dTARG;'],
- XPUSHu => ['dTARG;'],
- UNDERBAR => ['dUNDERBAR;'],
- XCPT_TRY_START => ['dXCPT;'],
- XCPT_TRY_END => ['dXCPT;'],
- XCPT_CATCH => ['dXCPT;'],
- XCPT_RETHROW => ['dXCPT;'],
-);
-
-my %ignore = (
- map { ($_ => 1) } qw(
- svtype
- items
- ix
- dXSI32
- XS
- CLASS
- THIS
- RETVAL
- StructCopy
- ),
-);
-
-print OUT <<HEAD;
-/*
- * !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
- * This file is built by $0.
- * Any changes made here will be lost!
- */
-
-#include "EXTERN.h"
-#include "perl.h"
-
-#define NO_XSLOCKS
-#include "XSUB.h"
-
-#ifdef DPPP_APICHECK_NO_PPPORT_H
-
-/* This is just to avoid too many baseline failures with perls < 5.6.0 */
-
-#ifndef dTHX
-# define dTHX extern int Perl___notused
-#endif
-
-#else
-
-#define NEED_PL_signals
-#define NEED_PL_parser
-#define NEED_eval_pv
-#define NEED_grok_bin
-#define NEED_grok_hex
-#define NEED_grok_number
-#define NEED_grok_numeric_radix
-#define NEED_grok_oct
-#define NEED_load_module
-#define NEED_my_snprintf
-#define NEED_my_sprintf
-#define NEED_my_strlcat
-#define NEED_my_strlcpy
-#define NEED_newCONSTSUB
-#define NEED_newRV_noinc
-#define NEED_newSV_type
-#define NEED_newSVpvn_share
-#define NEED_pv_display
-#define NEED_pv_escape
-#define NEED_pv_pretty
-#define NEED_sv_2pv_flags
-#define NEED_sv_2pvbyte
-#define NEED_sv_catpvf_mg
-#define NEED_sv_catpvf_mg_nocontext
-#define NEED_sv_pvn_force_flags
-#define NEED_sv_setpvf_mg
-#define NEED_sv_setpvf_mg_nocontext
-#define NEED_vload_module
-#define NEED_vnewSVpvf
-#define NEED_warner
-#define NEED_newSVpvn_flags
-
-#include "ppport.h"
-
-#endif
-
-static int VARarg1;
-static char *VARarg2;
-static double VARarg3;
-
-HEAD
-
-if (@ARGV) {
- my %want = map { ($_ => 0) } @ARGV;
- @f = grep { exists $want{$_->{name}} } @f;
- for (@f) { $want{$_->{name}}++ }
- for (keys %want) {
- die "nothing found for '$_'\n" unless $want{$_};
- }
-}
-
-my $f;
-for $f (@f) {
- $ignore{$f->{name}} and next;
- $f->{flags}{A} or next; # only public API members
-
- $ignore{$f->{name}} = 1; # ignore duplicates
-
- my $Perl_ = $f->{flags}{p} ? 'Perl_' : '';
-
- my $stack = '';
- my @arg;
- my $aTHX = '';
-
- my $i = 1;
- my $ca;
- my $varargs = 0;
- for $ca (@{$f->{args}}) {
- my $a = $ca->[0];
- if ($a eq '...') {
- $varargs = 1;
- push @arg, qw(VARarg1 VARarg2 VARarg3);
- last;
- }
- my($n, $p, $d) = $a =~ /^ (\w+(?:\s+\w+)*)\s* # type name => $n
- (\**) # pointer => $p
- (?:\s*const\s*)? # const
- ((?:\[[^\]]*\])*) # dimension => $d
- $/x
- or die "$0 - cannot parse argument: [$a]\n";
- if (exists $amap{$n}) {
- push @arg, $amap{$n};
- next;
- }
- $n = $tmap{$n} || $n;
- if ($n eq 'const char' and $p eq '*' and !$f->{flags}{f}) {
- push @arg, '"foo"';
- }
- else {
- my $v = 'arg' . $i++;
- push @arg, $v;
- $stack .= " static $n $p$v$d;\n";
- }
- }
-
- unless ($f->{flags}{n} || $f->{flags}{'m'}) {
- $stack = " dTHX;\n$stack";
- $aTHX = @arg ? 'aTHX_ ' : 'aTHX';
- }
-
- if ($stack{$f->{name}}) {
- my $s = '';
- for (@{$stack{$f->{name}}}) {
- $s .= " $_\n";
- }
- $stack = "$s$stack";
- }
-
- my $args = join ', ', @arg;
- my $rvt = $f->{ret} || 'void';
- my $ret;
- if ($void{$rvt}) {
- $ret = $castvoid{$f->{name}} ? '(void) ' : '';
- }
- else {
- $stack .= " $rvt rval;\n";
- $ret = $ignorerv{$f->{name}} ? '(void) ' : "rval = ";
- }
- my $aTHX_args = "$aTHX$args";
-
- unless ($f->{flags}{'m'} and @arg == 0) {
- $args = "($args)";
- $aTHX_args = "($aTHX_args)";
- }
-
- print OUT <<HEAD;
-/******************************************************************************
-*
-* $f->{name}
-*
-******************************************************************************/
-
-HEAD
-
- if ($todo{$f->{name}}) {
- my($ver,$sub) = $todo{$f->{name}} =~ /^5\.(\d{3})(\d{3})$/ or die;
- for ($ver, $sub) {
- s/^0+(\d)/$1/
- }
- if ($ver < 6 && $sub > 0) {
- $sub =~ s/0$// or die;
- }
- print OUT "#if PERL_VERSION > $ver || (PERL_VERSION == $ver && PERL_SUBVERSION >= $sub) /* TODO */\n";
- }
-
- my $final = $varargs
- ? "$Perl_$f->{name}$aTHX_args"
- : "$f->{name}$args";
-
- $f->{cond} and print OUT "#if $f->{cond}\n";
-
- print OUT <<END;
-void _DPPP_test_$f->{name} (void)
-{
- dXSARGS;
-$stack
- {
-#ifdef $f->{name}
- $ret$f->{name}$args;
-#endif
- }
-
- {
-#ifdef $f->{name}
- $ret$final;
-#else
- $ret$Perl_$f->{name}$aTHX_args;
-#endif
- }
-}
-END
-
- $f->{cond} and print OUT "#endif\n";
- $todo{$f->{name}} and print OUT "#endif\n";
-
- print OUT "\n";
-}
-
- at ARGV and close OUT;
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5004000 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5004000
deleted file mode 100644
index 5350285..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5004000
+++ /dev/null
@@ -1,89 +0,0 @@
-5.004000
-GIMME_V # E
-G_VOID # E
-HEf_SVKEY # E
-HeHASH # U
-HeKEY # U
-HeKLEN # U
-HePV # U
-HeSVKEY # U
-HeSVKEY_force # U
-HeSVKEY_set # U
-HeVAL # U
-PUSHu # U
-SvSetMagicSV # U
-SvSetMagicSV_nosteal # U
-SvSetSV_nosteal # U
-SvTAINTED # U
-SvTAINTED_off # U
-SvTAINTED_on # U
-SvUV # U
-SvUVX # U
-SvUVx # U
-XPUSHu # U
-block_gimme # E
-call_list # E
-cv_const_sv # E
-delimcpy # E
-do_open # E (Perl_do_open)
-gv_autoload4 # E
-gv_efullname3 # U
-gv_fetchmethod_autoload # E
-gv_fullname3 # U
-gv_stashpvn # E
-hv_delayfree_ent # E
-hv_delete_ent # U
-hv_exists_ent # U
-hv_fetch_ent # U
-hv_free_ent # E
-hv_iterkeysv # E
-hv_ksplit # E
-hv_store_ent # U
-ibcmp_locale # E
-my_failure_exit # E
-my_memcmp # U
-my_pclose # E (Perl_my_pclose)
-my_popen # E (Perl_my_popen)
-newRV_inc # U
-newRV_noinc # E
-rsignal # E
-rsignal_state # E
-save_I16 # E
-save_gp # E
-share_hek # E
-start_subparse # E (Perl_start_subparse)
-sv_2uv # U
-sv_cmp_locale # E
-sv_derived_from # E
-sv_gets # E (Perl_sv_gets)
-sv_setuv # E
-sv_taint # U
-sv_tainted # E
-sv_untaint # E
-sv_vcatpvfn # E
-sv_vsetpvfn # E
-unsharepvn # E
-PERL_HASH # added by devel/scanprov
-PERL_INT_MAX # added by devel/scanprov
-PERL_INT_MIN # added by devel/scanprov
-PERL_LONG_MAX # added by devel/scanprov
-PERL_LONG_MIN # added by devel/scanprov
-PERL_QUAD_MAX # added by devel/scanprov
-PERL_QUAD_MIN # added by devel/scanprov
-PERL_SHORT_MAX # added by devel/scanprov
-PERL_SHORT_MIN # added by devel/scanprov
-PERL_UCHAR_MAX # added by devel/scanprov
-PERL_UCHAR_MIN # added by devel/scanprov
-PERL_UINT_MAX # added by devel/scanprov
-PERL_UINT_MIN # added by devel/scanprov
-PERL_ULONG_MAX # added by devel/scanprov
-PERL_ULONG_MIN # added by devel/scanprov
-PERL_UQUAD_MAX # added by devel/scanprov
-PERL_UQUAD_MIN # added by devel/scanprov
-PERL_USHORT_MAX # added by devel/scanprov
-PERL_USHORT_MIN # added by devel/scanprov
-SvUVXx # added by devel/scanprov
-boolSV # added by devel/scanprov
-isPRINT # added by devel/scanprov
-memEQ # added by devel/scanprov
-memNE # added by devel/scanprov
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5004010 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5004010
deleted file mode 100644
index 8c29866..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5004010
+++ /dev/null
@@ -1 +0,0 @@
-5.004010
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5005040 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5005040
deleted file mode 100644
index 8a165c2..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5005040
+++ /dev/null
@@ -1 +0,0 @@
-5.005040
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5006000 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5006000
deleted file mode 100644
index 924da63..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5006000
+++ /dev/null
@@ -1,295 +0,0 @@
-5.006000
-PERL_SYS_INIT3 # U
-POPn # E
-PUSHn # E
-SvIOK_UV # U
-SvIOK_notUV # U
-SvIOK_only_UV # U
-SvNV # E
-SvNVX # E
-SvNV_set # E
-SvNVx # E
-SvPOK_only_UTF8 # U
-SvPV_nolen # U
-SvPVbyte # U
-SvPVbyte_nolen # U
-SvPVbytex # U
-SvPVbytex_force # U
-SvPVutf8 # U
-SvPVutf8_force # U
-SvPVutf8_nolen # U
-SvPVutf8x # U
-SvPVutf8x_force # U
-SvUTF8 # U
-SvUTF8_off # U
-SvUTF8_on # U
-XPUSHn # E
-XSRETURN_NV # E
-XST_mNV # E
-av_delete # E
-av_exists # E
-call_argv # E (perl_call_argv)
-call_atexit # E
-call_method # E (perl_call_method)
-call_pv # E (perl_call_pv)
-call_sv # E (perl_call_sv)
-cast_i32 # E (cast_i32)
-cast_iv # E (cast_iv)
-cast_ulong # E
-cast_uv # E (cast_uv)
-croak # E (Perl_croak)
-die # E (Perl_die)
-do_gv_dump # E
-do_gvgv_dump # E
-do_hv_dump # E
-do_magic_dump # E
-do_op_dump # E
-do_open9 # E
-do_pmop_dump # E
-do_sv_dump # E
-dump_all # U
-dump_eval # U
-dump_form # U
-dump_indent # E
-dump_packsubs # U
-dump_sub # U
-dump_vindent # E
-eval_pv # E (perl_eval_pv)
-eval_sv # E (perl_eval_sv)
-form # E (Perl_form)
-get_av # E (perl_get_av)
-get_context # U
-get_cv # E (perl_get_cv)
-get_hv # E (perl_get_hv)
-get_ppaddr # E
-get_sv # E (perl_get_sv)
-gv_dump # E
-init_i18nl10n # E (perl_init_i18nl10n)
-init_i18nl14n # E (perl_init_i18nl14n)
-is_uni_alnum # E
-is_uni_alnum_lc # E
-is_uni_alnumc # E
-is_uni_alnumc_lc # E
-is_uni_alpha # E
-is_uni_alpha_lc # E
-is_uni_ascii # E
-is_uni_ascii_lc # E
-is_uni_cntrl # E
-is_uni_cntrl_lc # E
-is_uni_digit # E
-is_uni_digit_lc # E
-is_uni_graph # E
-is_uni_graph_lc # E
-is_uni_idfirst # E
-is_uni_idfirst_lc # E
-is_uni_lower # E
-is_uni_lower_lc # E
-is_uni_print # E
-is_uni_print_lc # E
-is_uni_punct # E
-is_uni_punct_lc # E
-is_uni_space # E
-is_uni_space_lc # E
-is_uni_upper # E
-is_uni_upper_lc # E
-is_uni_xdigit # E
-is_uni_xdigit_lc # E
-is_utf8_alnum # E
-is_utf8_alnumc # E
-is_utf8_alpha # E
-is_utf8_ascii # E
-is_utf8_char # E
-is_utf8_cntrl # E
-is_utf8_digit # E
-is_utf8_graph # E
-is_utf8_idfirst # E
-is_utf8_lower # E
-is_utf8_mark # E
-is_utf8_print # E
-is_utf8_punct # E
-is_utf8_space # E
-is_utf8_upper # E
-is_utf8_xdigit # E
-load_module # E
-magic_dump # E
-mess # E (Perl_mess)
-my_atof # E
-my_fflush_all # E
-newANONATTRSUB # E
-newATTRSUB # E
-newSVnv # E (Perl_newSVnv)
-newSVpvf # E (Perl_newSVpvf)
-newSVuv # E
-newXS # E (Perl_newXS)
-newXSproto # E
-new_collate # E (perl_new_collate)
-new_ctype # E (perl_new_ctype)
-new_numeric # E (perl_new_numeric)
-op_dump # E
-perl_parse # E (perl_parse)
-pmop_dump # E
-pv_display # E
-re_intuit_string # E
-reginitcolors # E
-require_pv # E (perl_require_pv)
-safesyscalloc # U
-safesysfree # U
-safesysmalloc # U
-safesysrealloc # U
-save_I8 # E
-save_alloc # E
-save_destructor # E (Perl_save_destructor)
-save_destructor_x # E
-save_re_context # E
-save_vptr # E
-scan_bin # E
-scan_hex # E (Perl_scan_hex)
-scan_oct # E (Perl_scan_oct)
-set_context # U
-set_numeric_local # E (perl_set_numeric_local)
-set_numeric_radix # E
-set_numeric_standard # E (perl_set_numeric_standard)
-str_to_version # E
-sv_2nv # E (Perl_sv_2nv)
-sv_2pv_nolen # U
-sv_2pvbyte # E
-sv_2pvbyte_nolen # U
-sv_2pvutf8 # E
-sv_2pvutf8_nolen # U
-sv_catpvf # E (Perl_sv_catpvf)
-sv_catpvf_mg # E (Perl_sv_catpvf_mg)
-sv_force_normal # U
-sv_len_utf8 # E
-sv_nv # E (Perl_sv_nv)
-sv_pos_b2u # E
-sv_pos_u2b # E
-sv_pv # U
-sv_pvbyte # U
-sv_pvbyten # E
-sv_pvbyten_force # E
-sv_pvutf8 # U
-sv_pvutf8n # E
-sv_pvutf8n_force # E
-sv_rvweaken # E
-sv_setnv # E (Perl_sv_setnv)
-sv_setnv_mg # E (Perl_sv_setnv_mg)
-sv_setpvf # E (Perl_sv_setpvf)
-sv_setpvf_mg # E (Perl_sv_setpvf_mg)
-sv_setref_nv # E (Perl_sv_setref_nv)
-sv_utf8_decode # E
-sv_utf8_downgrade # E
-sv_utf8_encode # E
-sv_vcatpvf # E
-sv_vcatpvf_mg # E
-sv_vsetpvf # E
-sv_vsetpvf_mg # E
-swash_init # E
-tmps_grow # E
-to_uni_lower_lc # E
-to_uni_title_lc # E
-to_uni_upper_lc # E
-utf8_distance # E
-utf8_hop # E
-vcroak # E
-vform # E
-vload_module # E
-vmess # E
-vnewSVpvf # E
-vwarn # E
-vwarner # E
-warn # E (Perl_warn)
-warner # E
-CopFILE # added by devel/scanprov
-CopFILEAV # added by devel/scanprov
-CopFILEGV # added by devel/scanprov
-CopFILEGV_set # added by devel/scanprov
-CopFILESV # added by devel/scanprov
-CopFILE_set # added by devel/scanprov
-CopSTASH # added by devel/scanprov
-CopSTASHPV # added by devel/scanprov
-CopSTASHPV_set # added by devel/scanprov
-CopSTASH_eq # added by devel/scanprov
-CopSTASH_set # added by devel/scanprov
-INT2PTR # added by devel/scanprov
-IVSIZE # added by devel/scanprov
-IVTYPE # added by devel/scanprov
-IVdf # added by devel/scanprov
-NUM2PTR # added by devel/scanprov
-NVTYPE # added by devel/scanprov
-PERL_REVISION # added by devel/scanprov
-PERL_SUBVERSION # added by devel/scanprov
-PERL_VERSION # added by devel/scanprov
-PL_no_modify # added by devel/scanprov
-PL_ppaddr # added by devel/scanprov
-PTR2IV # added by devel/scanprov
-PTR2NV # added by devel/scanprov
-PTR2UV # added by devel/scanprov
-PTRV # added by devel/scanprov
-SVf # added by devel/scanprov
-SVf_UTF8 # added by devel/scanprov
-UVSIZE # added by devel/scanprov
-UVTYPE # added by devel/scanprov
-UVof # added by devel/scanprov
-UVuf # added by devel/scanprov
-UVxf # added by devel/scanprov
-WARN_ALL # added by devel/scanprov
-WARN_AMBIGUOUS # added by devel/scanprov
-WARN_BAREWORD # added by devel/scanprov
-WARN_CLOSED # added by devel/scanprov
-WARN_CLOSURE # added by devel/scanprov
-WARN_DEBUGGING # added by devel/scanprov
-WARN_DEPRECATED # added by devel/scanprov
-WARN_DIGIT # added by devel/scanprov
-WARN_EXEC # added by devel/scanprov
-WARN_EXITING # added by devel/scanprov
-WARN_GLOB # added by devel/scanprov
-WARN_INPLACE # added by devel/scanprov
-WARN_INTERNAL # added by devel/scanprov
-WARN_IO # added by devel/scanprov
-WARN_MALLOC # added by devel/scanprov
-WARN_MISC # added by devel/scanprov
-WARN_NEWLINE # added by devel/scanprov
-WARN_NUMERIC # added by devel/scanprov
-WARN_ONCE # added by devel/scanprov
-WARN_OVERFLOW # added by devel/scanprov
-WARN_PACK # added by devel/scanprov
-WARN_PARENTHESIS # added by devel/scanprov
-WARN_PIPE # added by devel/scanprov
-WARN_PORTABLE # added by devel/scanprov
-WARN_PRECEDENCE # added by devel/scanprov
-WARN_PRINTF # added by devel/scanprov
-WARN_PROTOTYPE # added by devel/scanprov
-WARN_QW # added by devel/scanprov
-WARN_RECURSION # added by devel/scanprov
-WARN_REDEFINE # added by devel/scanprov
-WARN_REGEXP # added by devel/scanprov
-WARN_RESERVED # added by devel/scanprov
-WARN_SEMICOLON # added by devel/scanprov
-WARN_SEVERE # added by devel/scanprov
-WARN_SIGNAL # added by devel/scanprov
-WARN_SUBSTR # added by devel/scanprov
-WARN_SYNTAX # added by devel/scanprov
-WARN_TAINT # added by devel/scanprov
-WARN_UNINITIALIZED # added by devel/scanprov
-WARN_UNOPENED # added by devel/scanprov
-WARN_UNPACK # added by devel/scanprov
-WARN_UNTIE # added by devel/scanprov
-WARN_UTF8 # added by devel/scanprov
-WARN_VOID # added by devel/scanprov
-XSprePUSH # added by devel/scanprov
-aTHX # added by devel/scanprov
-aTHX_ # added by devel/scanprov
-ckWARN # added by devel/scanprov
-dNOOP # added by devel/scanprov
-dTHX # added by devel/scanprov
-dTHXa # added by devel/scanprov
-dTHXoa # added by devel/scanprov
-dXSTARG # added by devel/scanprov
-isALNUMC # added by devel/scanprov
-isASCII # added by devel/scanprov
-isCNTRL # added by devel/scanprov
-isGRAPH # added by devel/scanprov
-isPUNCT # added by devel/scanprov
-isXDIGIT # added by devel/scanprov
-pTHX # added by devel/scanprov
-pTHX_ # added by devel/scanprov
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5006002 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5006002
deleted file mode 100644
index dfe09ce..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5006002
+++ /dev/null
@@ -1 +0,0 @@
-5.006002
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5007000 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5007000
deleted file mode 100644
index 49d0846..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5007000
+++ /dev/null
@@ -1 +0,0 @@
-5.007000
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5007003 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5007003
deleted file mode 100644
index 325f06a..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5007003
+++ /dev/null
@@ -1,85 +0,0 @@
-5.007003
-PerlIO_clearerr # U (PerlIO_clearerr)
-PerlIO_close # U (PerlIO_close)
-PerlIO_eof # U (PerlIO_eof)
-PerlIO_error # U (PerlIO_error)
-PerlIO_fileno # U (PerlIO_fileno)
-PerlIO_fill # U (PerlIO_fill)
-PerlIO_flush # U (PerlIO_flush)
-PerlIO_get_base # U (PerlIO_get_base)
-PerlIO_get_bufsiz # U (PerlIO_get_bufsiz)
-PerlIO_get_cnt # U (PerlIO_get_cnt)
-PerlIO_get_ptr # U (PerlIO_get_ptr)
-PerlIO_read # U (PerlIO_read)
-PerlIO_seek # U (PerlIO_seek)
-PerlIO_set_cnt # U (PerlIO_set_cnt)
-PerlIO_set_ptrcnt # U (PerlIO_set_ptrcnt)
-PerlIO_setlinebuf # U (PerlIO_setlinebuf)
-PerlIO_stderr # U (PerlIO_stderr)
-PerlIO_stdin # U (PerlIO_stdin)
-PerlIO_stdout # U (PerlIO_stdout)
-PerlIO_tell # U (PerlIO_tell)
-PerlIO_unread # U (PerlIO_unread)
-PerlIO_write # U (PerlIO_write)
-SvLOCK # U
-SvSHARE # U
-SvUNLOCK # U
-atfork_lock # U
-atfork_unlock # U
-custom_op_desc # U
-custom_op_name # U
-deb # U
-debstack # U
-debstackptrs # U
-grok_bin # U
-grok_hex # U
-grok_oct # U
-gv_fetchmeth_autoload # U
-ibcmp_utf8 # U
-my_fork # U
-my_socketpair # U
-pack_cat # U
-perl_destruct # E (perl_destruct)
-pv_uni_display # U
-save_shared_pvref # U
-savesharedpv # U
-sortsv # U
-sv_copypv # U
-sv_magicext # U
-sv_nolocking # U
-sv_nosharing # U
-sv_pvn_nomg # U
-sv_recode_to_utf8 # U
-sv_uni_display # U
-to_uni_fold # U
-to_uni_lower # E (Perl_to_uni_lower)
-to_uni_title # E (Perl_to_uni_title)
-to_uni_upper # E (Perl_to_uni_upper)
-to_utf8_case # U
-to_utf8_fold # U
-to_utf8_lower # E (Perl_to_utf8_lower)
-to_utf8_title # E (Perl_to_utf8_title)
-to_utf8_upper # E (Perl_to_utf8_upper)
-unpack_str # U
-uvchr_to_utf8_flags # U
-uvuni_to_utf8_flags # U
-vdeb # U
-IS_NUMBER_NAN # added by devel/scanprov
-MY_CXT # added by devel/scanprov
-MY_CXT_INIT # added by devel/scanprov
-PERL_MAGIC_shared # added by devel/scanprov
-PERL_MAGIC_shared_scalar # added by devel/scanprov
-PERL_MAGIC_uvar_elem # added by devel/scanprov
-PERL_SCAN_ALLOW_UNDERSCORES # added by devel/scanprov
-PERL_SCAN_DISALLOW_PREFIX # added by devel/scanprov
-PERL_SCAN_GREATER_THAN_UV_MAX # added by devel/scanprov
-START_MY_CXT # added by devel/scanprov
-_aMY_CXT # added by devel/scanprov
-_pMY_CXT # added by devel/scanprov
-aMY_CXT # added by devel/scanprov
-aMY_CXT_ # added by devel/scanprov
-dMY_CXT # added by devel/scanprov
-dMY_CXT_SV # added by devel/scanprov
-pMY_CXT # added by devel/scanprov
-pMY_CXT_ # added by devel/scanprov
-packWARN # added by devel/scanprov
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5008002 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5008002
deleted file mode 100644
index 63aac52..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5008002
+++ /dev/null
@@ -1 +0,0 @@
-5.008002
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5008004 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5008004
deleted file mode 100644
index bb7bcdf..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5008004
+++ /dev/null
@@ -1 +0,0 @@
-5.008004
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5009000 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5009000
deleted file mode 100644
index 28bc859..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5009000
+++ /dev/null
@@ -1,6 +0,0 @@
-5.009000
-new_version # U
-save_set_svflags # U
-vcmp # U
-vnumify # U
-vstringify # U
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5009001 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5009001
deleted file mode 100644
index 0666184..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5009001
+++ /dev/null
@@ -1,8 +0,0 @@
-5.009001
-SvIV_nomg # U
-SvUV_nomg # U
-hv_clear_placeholders # U
-hv_scalar # U
-scan_version # E (Perl_scan_version)
-sv_2iv_flags # U
-sv_2uv_flags # U
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5009003 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5009003
deleted file mode 100644
index 2306055..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5009003
+++ /dev/null
@@ -1,67 +0,0 @@
-5.009003
-Newx # E
-Newxc # E
-Newxz # E
-SvMAGIC_set # U
-SvRV_set # U
-SvSTASH_set # U
-SvUV_set # U
-av_arylen_p # U
-ckwarn # U
-ckwarn_d # U
-csighandler # E (Perl_csighandler)
-dAXMARK # E
-dMULTICALL # E
-doref # U
-gv_const_sv # U
-gv_stashpvs # U
-hv_eiter_p # U
-hv_eiter_set # U
-hv_fetchs # U
-hv_name_set # U
-hv_placeholders_get # U
-hv_placeholders_p # U
-hv_placeholders_set # U
-hv_riter_p # U
-hv_riter_set # U
-is_utf8_string_loclen # U
-my_sprintf # U
-newGIVENOP # U
-newSVhek # U
-newSVpvs # U
-newSVpvs_share # U
-newWHENOP # U
-newWHILEOP # E (Perl_newWHILEOP)
-savepvs # U
-sortsv_flags # U
-sv_catpvs # U
-vverify # U
-GvSVn # added by devel/scanprov
-HvNAMELEN_get # added by devel/scanprov
-HvNAME_get # added by devel/scanprov
-PERLIO_FUNCS_CAST # added by devel/scanprov
-PERLIO_FUNCS_DECL # added by devel/scanprov
-PERL_UNUSED_ARG # added by devel/scanprov
-PTR2nat # added by devel/scanprov
-STR_WITH_LEN # added by devel/scanprov
-SV_CONST_RETURN # added by devel/scanprov
-SV_MUTABLE_RETURN # added by devel/scanprov
-SV_SMAGIC # added by devel/scanprov
-SvPVX_const # added by devel/scanprov
-SvPVX_mutable # added by devel/scanprov
-SvPV_const # added by devel/scanprov
-SvPV_flags_const # added by devel/scanprov
-SvPV_flags_const_nolen # added by devel/scanprov
-SvPV_flags_mutable # added by devel/scanprov
-SvPV_force_flags_mutable # added by devel/scanprov
-SvPV_force_flags_nolen # added by devel/scanprov
-SvPV_force_mutable # added by devel/scanprov
-SvPV_force_nolen # added by devel/scanprov
-SvPV_force_nomg_nolen # added by devel/scanprov
-SvPV_mutable # added by devel/scanprov
-SvPV_nolen_const # added by devel/scanprov
-SvPV_nomg_const # added by devel/scanprov
-SvPV_nomg_const_nolen # added by devel/scanprov
-SvPV_renew # added by devel/scanprov
-SvSHARED_HASH # added by devel/scanprov
-dVAR # added by devel/scanprov
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5010000 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5010000
deleted file mode 100644
index 922e614..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5010000
+++ /dev/null
@@ -1,10 +0,0 @@
-5.010000
-hv_common # U
-hv_common_key_len # U
-sv_destroyable # U
-sys_init # U
-sys_init3 # U
-sys_term # U
-PERL_PV_PRETTY_ELLIPSES # added by devel/scanprov
-PERL_PV_PRETTY_NOCLEAR # added by devel/scanprov
-XSPROTO # added by devel/scanprov
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5011000 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5011000
deleted file mode 100644
index fe92c15..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/base/5011000
+++ /dev/null
@@ -1,52 +0,0 @@
-5.011000
-HeUTF8 # U
-MULTICALL # E
-PERL_SYS_TERM # E
-POP_MULTICALL # E
-PUSH_MULTICALL # E
-SvOOK_offset # U
-av_iter_p # U
-croak_xs_usage # U
-fetch_cop_label # U
-gv_fetchmethod_flags # U
-hv_assert # U
-mPUSHs # U
-mXPUSHs # U
-mro_get_from_name # U
-mro_get_private_data # U
-mro_register # U
-mro_set_mro # U
-mro_set_private_data # U
-newSVpvn_flags # U
-newSVpvn_utf8 # U
-newSVpvs_flags # U
-pad_sv # U
-pregfree2 # U
-ref # U (Perl_ref)
-save_adelete # U
-save_helem_flags # U
-save_padsv_and_mortalize # U
-save_pushptr # U
-stashpv_hvname_match # U
-sv_insert_flags # U
-sv_magic_portable # U
-sv_utf8_upgrade_flags_grow # U
-DEFSV_set # added by devel/scanprov
-PERL_BCDVERSION # added by devel/scanprov
-PERL_MAGIC_glob # added by devel/scanprov
-PERL_MAGIC_mutex # added by devel/scanprov
-PL_bufend # added by devel/scanprov
-PL_bufptr # added by devel/scanprov
-PL_copline # added by devel/scanprov
-PL_error_count # added by devel/scanprov
-PL_expect # added by devel/scanprov
-PL_in_my # added by devel/scanprov
-PL_in_my_stash # added by devel/scanprov
-PL_lex_state # added by devel/scanprov
-PL_lex_stuff # added by devel/scanprov
-PL_linestr # added by devel/scanprov
-PL_tokenbuf # added by devel/scanprov
-WARN_ASSERTIONS # added by devel/scanprov
-aTHXR # added by devel/scanprov
-aTHXR_ # added by devel/scanprov
-dTHXR # added by devel/scanprov
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/MY_CXT b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/MY_CXT
deleted file mode 100644
index d67af01..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/MY_CXT
+++ /dev/null
@@ -1,192 +0,0 @@
-################################################################################
-##
-## $Revision: 16 $
-## $Author: mhx $
-## $Date: 2009/01/18 14:10:55 +0100 $
-##
-################################################################################
-##
-## Version 3.x, Copyright (C) 2004-2009, 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.
-##
-################################################################################
-
-=provides
-
-START_MY_CXT
-dMY_CXT_SV
-dMY_CXT
-MY_CXT_INIT
-MY_CXT_CLONE
-MY_CXT
-pMY_CXT
-pMY_CXT_
-_pMY_CXT
-aMY_CXT
-aMY_CXT_
-_aMY_CXT
-
-=implementation
-
-/*
- * 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 { VERSION < 5.004_68 }
-/* 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
-
-=xsmisc
-
-#define MY_CXT_KEY "Devel::PPPort::_guts" XS_VERSION
-
-typedef struct {
- /* Put Global Data in here */
- int dummy;
-} my_cxt_t;
-
-START_MY_CXT
-
-=xsboot
-
-{
- MY_CXT_INIT;
- /* If any of the fields in the my_cxt_t struct need
- * to be initialised, do it here.
- */
- MY_CXT.dummy = 42;
-}
-
-=xsubs
-
-int
-MY_CXT_1()
- CODE:
- dMY_CXT;
- RETVAL = MY_CXT.dummy == 42;
- ++MY_CXT.dummy;
- OUTPUT:
- RETVAL
-
-int
-MY_CXT_2()
- CODE:
- dMY_CXT;
- RETVAL = MY_CXT.dummy == 43;
- OUTPUT:
- RETVAL
-
-int
-MY_CXT_CLONE()
- CODE:
- MY_CXT_CLONE;
- RETVAL = 42;
- OUTPUT:
- RETVAL
-
-=tests plan => 3
-
-ok(&Devel::PPPort::MY_CXT_1());
-ok(&Devel::PPPort::MY_CXT_2());
-ok(&Devel::PPPort::MY_CXT_CLONE());
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/SvPV b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/SvPV
deleted file mode 100644
index e81fb68..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/SvPV
+++ /dev/null
@@ -1,524 +0,0 @@
-################################################################################
-##
-## $Revision: 22 $
-## $Author: mhx $
-## $Date: 2009/01/18 14:10:54 +0100 $
-##
-################################################################################
-##
-## Version 3.x, Copyright (C) 2004-2009, 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.
-##
-################################################################################
-
-=provides
-
-__UNDEFINED__
-SvPVbyte
-sv_2pvbyte
-sv_2pv_flags
-sv_pvn_force_flags
-
-=dontwarn
-
-NEED_sv_2pv_flags
-NEED_sv_2pv_flags_GLOBAL
-DPPP_SVPV_NOLEN_LP_ARG
-
-=implementation
-
-/* 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().
- */
-
-__UNDEFINED__ sv_2pv_nolen(sv) SvPV_nolen(sv)
-
-#ifdef SvPVbyte
-
-/* Hint: SvPVbyte
- * Does not work in perl-5.6.1, ppport.h implements a version
- * borrowed from perl-5.7.3.
- */
-
-#if { VERSION < 5.7.0 }
-
-#if { NEED sv_2pvbyte }
-
-char *
-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
-
-__UNDEFINED__ sv_2pvbyte_nolen(sv) sv_2pv_nolen(sv)
-
-/* 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 */
-__UNDEFINED__ SV_IMMEDIATE_UNREF 0
-__UNDEFINED__ SV_GMAGIC 0
-__UNDEFINED__ SV_COW_DROP_PV 0
-__UNDEFINED__ SV_UTF8_NO_ENCODING 0
-__UNDEFINED__ SV_NOSTEAL 0
-__UNDEFINED__ SV_CONST_RETURN 0
-__UNDEFINED__ SV_MUTABLE_RETURN 0
-__UNDEFINED__ SV_SMAGIC 0
-__UNDEFINED__ SV_HAS_TRAILING_NUL 0
-__UNDEFINED__ SV_COW_SHARED_HASH_KEYS 0
-
-#if { VERSION < 5.7.2 }
-
-#if { NEED sv_2pv_flags }
-
-char *
-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 { NEED sv_pvn_force_flags }
-
-char *
-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 { VERSION < 5.8.8 } || ( { VERSION >= 5.9.0 } && { VERSION < 5.9.3 } )
-# define DPPP_SVPV_NOLEN_LP_ARG &PL_na
-#else
-# define DPPP_SVPV_NOLEN_LP_ARG 0
-#endif
-
-__UNDEFINED__ SvPV_const(sv, lp) SvPV_flags_const(sv, lp, SV_GMAGIC)
-__UNDEFINED__ SvPV_mutable(sv, lp) SvPV_flags_mutable(sv, lp, SV_GMAGIC)
-
-__UNDEFINED__ SvPV_flags(sv, lp, flags) \
- ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
- ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_2pv_flags(sv, &lp, flags))
-
-__UNDEFINED__ 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))
-
-__UNDEFINED__ 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))
-
-__UNDEFINED__ 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))
-
-__UNDEFINED__ SvPV_force(sv, lp) SvPV_force_flags(sv, lp, SV_GMAGIC)
-__UNDEFINED__ SvPV_force_nolen(sv) SvPV_force_flags_nolen(sv, SV_GMAGIC)
-__UNDEFINED__ SvPV_force_mutable(sv, lp) SvPV_force_flags_mutable(sv, lp, SV_GMAGIC)
-__UNDEFINED__ SvPV_force_nomg(sv, lp) SvPV_force_flags(sv, lp, 0)
-__UNDEFINED__ SvPV_force_nomg_nolen(sv) SvPV_force_flags_nolen(sv, 0)
-
-__UNDEFINED__ 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))
-
-__UNDEFINED__ 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))
-
-__UNDEFINED__ 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))
-
-__UNDEFINED__ SvPV_nolen(sv) \
- ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
- ? SvPVX(sv) : sv_2pv_flags(sv, DPPP_SVPV_NOLEN_LP_ARG, SV_GMAGIC))
-
-__UNDEFINED__ 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))
-
-__UNDEFINED__ SvPV_nomg(sv, lp) SvPV_flags(sv, lp, 0)
-__UNDEFINED__ SvPV_nomg_const(sv, lp) SvPV_flags_const(sv, lp, 0)
-__UNDEFINED__ SvPV_nomg_const_nolen(sv) SvPV_flags_const_nolen(sv, 0)
-
-__UNDEFINED__ SvPV_renew(sv,n) STMT_START { SvLEN_set(sv, n); \
- SvPV_set((sv), (char *) saferealloc( \
- (Malloc_t)SvPVX(sv), (MEM_SIZE)((n)))); \
- } STMT_END
-
-=xsinit
-
-#define NEED_sv_2pv_flags
-#define NEED_sv_pvn_force_flags
-#define NEED_sv_2pvbyte
-
-=xsubs
-
-IV
-SvPVbyte(sv)
- SV *sv
- PREINIT:
- char *str;
- STRLEN len;
- CODE:
- str = SvPVbyte(sv, len);
- RETVAL = strEQ(str, "mhx") ? (IV) len : (IV) -1;
- OUTPUT:
- RETVAL
-
-IV
-SvPV_nolen(sv)
- SV *sv
- PREINIT:
- char *str;
- CODE:
- str = SvPV_nolen(sv);
- RETVAL = strEQ(str, "mhx") ? 42 : 0;
- OUTPUT:
- RETVAL
-
-IV
-SvPV_const(sv)
- SV *sv
- PREINIT:
- const char *str;
- STRLEN len;
- CODE:
- str = SvPV_const(sv, len);
- RETVAL = len + (strEQ(str, "mhx") ? 40 : 0);
- OUTPUT:
- RETVAL
-
-IV
-SvPV_mutable(sv)
- SV *sv
- PREINIT:
- char *str;
- STRLEN len;
- CODE:
- str = SvPV_mutable(sv, len);
- RETVAL = len + (strEQ(str, "mhx") ? 41 : 0);
- OUTPUT:
- RETVAL
-
-IV
-SvPV_flags(sv)
- SV *sv
- PREINIT:
- char *str;
- STRLEN len;
- CODE:
- str = SvPV_flags(sv, len, SV_GMAGIC);
- RETVAL = len + (strEQ(str, "mhx") ? 42 : 0);
- OUTPUT:
- RETVAL
-
-IV
-SvPV_flags_const(sv)
- SV *sv
- PREINIT:
- const char *str;
- STRLEN len;
- CODE:
- str = SvPV_flags_const(sv, len, SV_GMAGIC);
- RETVAL = len + (strEQ(str, "mhx") ? 43 : 0);
- OUTPUT:
- RETVAL
-
-IV
-SvPV_flags_const_nolen(sv)
- SV *sv
- PREINIT:
- const char *str;
- CODE:
- str = SvPV_flags_const_nolen(sv, SV_GMAGIC);
- RETVAL = strEQ(str, "mhx") ? 47 : 0;
- OUTPUT:
- RETVAL
-
-IV
-SvPV_flags_mutable(sv)
- SV *sv
- PREINIT:
- char *str;
- STRLEN len;
- CODE:
- str = SvPV_flags_mutable(sv, len, SV_GMAGIC);
- RETVAL = len + (strEQ(str, "mhx") ? 45 : 0);
- OUTPUT:
- RETVAL
-
-IV
-SvPV_force(sv)
- SV *sv
- PREINIT:
- char *str;
- STRLEN len;
- CODE:
- str = SvPV_force(sv, len);
- RETVAL = len + (strEQ(str, "mhx") ? 46 : 0);
- OUTPUT:
- RETVAL
-
-IV
-SvPV_force_nolen(sv)
- SV *sv
- PREINIT:
- char *str;
- CODE:
- str = SvPV_force_nolen(sv);
- RETVAL = strEQ(str, "mhx") ? 50 : 0;
- OUTPUT:
- RETVAL
-
-IV
-SvPV_force_mutable(sv)
- SV *sv
- PREINIT:
- char *str;
- STRLEN len;
- CODE:
- str = SvPV_force_mutable(sv, len);
- RETVAL = len + (strEQ(str, "mhx") ? 48 : 0);
- OUTPUT:
- RETVAL
-
-IV
-SvPV_force_nomg(sv)
- SV *sv
- PREINIT:
- char *str;
- STRLEN len;
- CODE:
- str = SvPV_force_nomg(sv, len);
- RETVAL = len + (strEQ(str, "mhx") ? 49 : 0);
- OUTPUT:
- RETVAL
-
-IV
-SvPV_force_nomg_nolen(sv)
- SV *sv
- PREINIT:
- char *str;
- CODE:
- str = SvPV_force_nomg_nolen(sv);
- RETVAL = strEQ(str, "mhx") ? 53 : 0;
- OUTPUT:
- RETVAL
-
-IV
-SvPV_force_flags(sv)
- SV *sv
- PREINIT:
- char *str;
- STRLEN len;
- CODE:
- str = SvPV_force_flags(sv, len, SV_GMAGIC);
- RETVAL = len + (strEQ(str, "mhx") ? 51 : 0);
- OUTPUT:
- RETVAL
-
-IV
-SvPV_force_flags_nolen(sv)
- SV *sv
- PREINIT:
- char *str;
- CODE:
- str = SvPV_force_flags_nolen(sv, SV_GMAGIC);
- RETVAL = strEQ(str, "mhx") ? 55 : 0;
- OUTPUT:
- RETVAL
-
-IV
-SvPV_force_flags_mutable(sv)
- SV *sv
- PREINIT:
- char *str;
- STRLEN len;
- CODE:
- str = SvPV_force_flags_mutable(sv, len, SV_GMAGIC);
- RETVAL = len + (strEQ(str, "mhx") ? 53 : 0);
- OUTPUT:
- RETVAL
-
-IV
-SvPV_nolen_const(sv)
- SV *sv
- PREINIT:
- const char *str;
- CODE:
- str = SvPV_nolen_const(sv);
- RETVAL = strEQ(str, "mhx") ? 57 : 0;
- OUTPUT:
- RETVAL
-
-IV
-SvPV_nomg(sv)
- SV *sv
- PREINIT:
- char *str;
- STRLEN len;
- CODE:
- str = SvPV_nomg(sv, len);
- RETVAL = len + (strEQ(str, "mhx") ? 55 : 0);
- OUTPUT:
- RETVAL
-
-IV
-SvPV_nomg_const(sv)
- SV *sv
- PREINIT:
- const char *str;
- STRLEN len;
- CODE:
- str = SvPV_nomg_const(sv, len);
- RETVAL = len + (strEQ(str, "mhx") ? 56 : 0);
- OUTPUT:
- RETVAL
-
-IV
-SvPV_nomg_const_nolen(sv)
- SV *sv
- PREINIT:
- const char *str;
- CODE:
- str = SvPV_nomg_const_nolen(sv);
- RETVAL = strEQ(str, "mhx") ? 60 : 0;
- OUTPUT:
- RETVAL
-
-void
-SvPV_renew(sv, nlen, insv)
- SV *sv
- IV nlen
- SV *insv
- PREINIT:
- STRLEN slen;
- const char *str;
- PPCODE:
- str = SvPV_const(insv, slen);
- XPUSHs(sv);
- mXPUSHi(SvLEN(sv));
- SvPV_renew(sv, nlen);
- Copy(str, SvPVX(sv), slen + 1, char);
- SvCUR_set(sv, slen);
- mXPUSHi(SvLEN(sv));
-
-
-=tests plan => 47
-
-my $mhx = "mhx";
-
-ok(&Devel::PPPort::SvPVbyte($mhx), 3);
-
-my $i = 42;
-
-ok(&Devel::PPPort::SvPV_nolen($mhx), $i++);
-ok(&Devel::PPPort::SvPV_const($mhx), $i++);
-ok(&Devel::PPPort::SvPV_mutable($mhx), $i++);
-ok(&Devel::PPPort::SvPV_flags($mhx), $i++);
-ok(&Devel::PPPort::SvPV_flags_const($mhx), $i++);
-
-ok(&Devel::PPPort::SvPV_flags_const_nolen($mhx), $i++);
-ok(&Devel::PPPort::SvPV_flags_mutable($mhx), $i++);
-ok(&Devel::PPPort::SvPV_force($mhx), $i++);
-ok(&Devel::PPPort::SvPV_force_nolen($mhx), $i++);
-ok(&Devel::PPPort::SvPV_force_mutable($mhx), $i++);
-
-ok(&Devel::PPPort::SvPV_force_nomg($mhx), $i++);
-ok(&Devel::PPPort::SvPV_force_nomg_nolen($mhx), $i++);
-ok(&Devel::PPPort::SvPV_force_flags($mhx), $i++);
-ok(&Devel::PPPort::SvPV_force_flags_nolen($mhx), $i++);
-ok(&Devel::PPPort::SvPV_force_flags_mutable($mhx), $i++);
-
-ok(&Devel::PPPort::SvPV_nolen_const($mhx), $i++);
-ok(&Devel::PPPort::SvPV_nomg($mhx), $i++);
-ok(&Devel::PPPort::SvPV_nomg_const($mhx), $i++);
-ok(&Devel::PPPort::SvPV_nomg_const_nolen($mhx), $i++);
-
-$mhx = 42; ok(&Devel::PPPort::SvPV_nolen($mhx), 0);
-$mhx = 42; ok(&Devel::PPPort::SvPV_const($mhx), 2);
-$mhx = 42; ok(&Devel::PPPort::SvPV_mutable($mhx), 2);
-$mhx = 42; ok(&Devel::PPPort::SvPV_flags($mhx), 2);
-$mhx = 42; ok(&Devel::PPPort::SvPV_flags_const($mhx), 2);
-
-$mhx = 42; ok(&Devel::PPPort::SvPV_flags_const_nolen($mhx), 0);
-$mhx = 42; ok(&Devel::PPPort::SvPV_flags_mutable($mhx), 2);
-$mhx = 42; ok(&Devel::PPPort::SvPV_force($mhx), 2);
-$mhx = 42; ok(&Devel::PPPort::SvPV_force_nolen($mhx), 0);
-$mhx = 42; ok(&Devel::PPPort::SvPV_force_mutable($mhx), 2);
-
-$mhx = 42; ok(&Devel::PPPort::SvPV_force_nomg($mhx), 2);
-$mhx = 42; ok(&Devel::PPPort::SvPV_force_nomg_nolen($mhx), 0);
-$mhx = 42; ok(&Devel::PPPort::SvPV_force_flags($mhx), 2);
-$mhx = 42; ok(&Devel::PPPort::SvPV_force_flags_nolen($mhx), 0);
-$mhx = 42; ok(&Devel::PPPort::SvPV_force_flags_mutable($mhx), 2);
-
-$mhx = 42; ok(&Devel::PPPort::SvPV_nolen_const($mhx), 0);
-$mhx = 42; ok(&Devel::PPPort::SvPV_nomg($mhx), 2);
-$mhx = 42; ok(&Devel::PPPort::SvPV_nomg_const($mhx), 2);
-$mhx = 42; ok(&Devel::PPPort::SvPV_nomg_const_nolen($mhx), 0);
-
-my $str = "";
-my($s2, $before, $after) = &Devel::PPPort::SvPV_renew($str, 81, "x"x80);
-ok($str, "x"x80);
-ok($s2, "x"x80);
-ok($before < 81);
-ok($after, 81);
-
-$str = "x"x400;
-($s2, $before, $after) = &Devel::PPPort::SvPV_renew($str, 41, "x"x40);
-ok($str, "x"x40);
-ok($s2, "x"x40);
-ok($before > 41);
-ok($after, 41);
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/call b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/call
deleted file mode 100644
index 85159e2..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/call
+++ /dev/null
@@ -1,367 +0,0 @@
-################################################################################
-##
-## $Revision: 19 $
-## $Author: mhx $
-## $Date: 2009/01/23 18:27:48 +0100 $
-##
-################################################################################
-##
-## Version 3.x, Copyright (C) 2004-2009, 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.
-##
-################################################################################
-
-=provides
-
-eval_pv
-eval_sv
-call_sv
-call_pv
-call_argv
-call_method
-load_module
-vload_module
-G_METHOD
-
-=implementation
-
-/* Replace: 1 */
-__UNDEFINED__ call_sv perl_call_sv
-__UNDEFINED__ call_pv perl_call_pv
-__UNDEFINED__ call_argv perl_call_argv
-__UNDEFINED__ call_method perl_call_method
-
-__UNDEFINED__ eval_sv perl_eval_sv
-/* Replace: 0 */
-
-__UNDEFINED__ PERL_LOADMOD_DENY 0x1
-__UNDEFINED__ PERL_LOADMOD_NOIMPORT 0x2
-__UNDEFINED__ PERL_LOADMOD_IMPORT_OPS 0x4
-
-#ifndef G_METHOD
-# define G_METHOD 64
-# ifdef call_sv
-# undef call_sv
-# endif
-# if { VERSION < 5.6.0 }
-# 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 { NEED eval_pv }
-
-SV*
-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 { NEED vload_module }
-
-void
-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 { VERSION >= 5.004 }
- utilize(!(flags & PERL_LOADMOD_DENY), start_subparse(FALSE, 0),
- 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 { NEED load_module }
-
-void
-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
-
-=xsinit
-
-#define NEED_eval_pv
-#define NEED_load_module
-#define NEED_vload_module
-
-=xsubs
-
-I32
-G_SCALAR()
- CODE:
- RETVAL = G_SCALAR;
- OUTPUT:
- RETVAL
-
-I32
-G_ARRAY()
- CODE:
- RETVAL = G_ARRAY;
- OUTPUT:
- RETVAL
-
-I32
-G_DISCARD()
- CODE:
- RETVAL = G_DISCARD;
- OUTPUT:
- RETVAL
-
-void
-eval_sv(sv, flags)
- SV* sv
- I32 flags
- PREINIT:
- I32 i;
- PPCODE:
- PUTBACK;
- i = eval_sv(sv, flags);
- SPAGAIN;
- EXTEND(SP, 1);
- mPUSHi(i);
-
-void
-eval_pv(p, croak_on_error)
- char* p
- I32 croak_on_error
- PPCODE:
- PUTBACK;
- EXTEND(SP, 1);
- PUSHs(eval_pv(p, croak_on_error));
-
-void
-call_sv(sv, flags, ...)
- SV* sv
- I32 flags
- PREINIT:
- I32 i;
- PPCODE:
- for (i=0; i<items-2; i++)
- ST(i) = ST(i+2); /* pop first two args */
- PUSHMARK(SP);
- SP += items - 2;
- PUTBACK;
- i = call_sv(sv, flags);
- SPAGAIN;
- EXTEND(SP, 1);
- mPUSHi(i);
-
-void
-call_pv(subname, flags, ...)
- char* subname
- I32 flags
- PREINIT:
- I32 i;
- PPCODE:
- for (i=0; i<items-2; i++)
- ST(i) = ST(i+2); /* pop first two args */
- PUSHMARK(SP);
- SP += items - 2;
- PUTBACK;
- i = call_pv(subname, flags);
- SPAGAIN;
- EXTEND(SP, 1);
- mPUSHi(i);
-
-void
-call_argv(subname, flags, ...)
- char* subname
- I32 flags
- PREINIT:
- I32 i;
- char *args[8];
- PPCODE:
- if (items > 8) /* play safe */
- XSRETURN_UNDEF;
- for (i=2; i<items; i++)
- args[i-2] = SvPV_nolen(ST(i));
- args[items-2] = NULL;
- PUTBACK;
- i = call_argv(subname, flags, args);
- SPAGAIN;
- EXTEND(SP, 1);
- mPUSHi(i);
-
-void
-call_method(methname, flags, ...)
- char* methname
- I32 flags
- PREINIT:
- I32 i;
- PPCODE:
- for (i=0; i<items-2; i++)
- ST(i) = ST(i+2); /* pop first two args */
- PUSHMARK(SP);
- SP += items - 2;
- PUTBACK;
- i = call_method(methname, flags);
- SPAGAIN;
- EXTEND(SP, 1);
- mPUSHi(i);
-
-void
-call_sv_G_METHOD(sv, flags, ...)
- SV* sv
- I32 flags
- PREINIT:
- I32 i;
- PPCODE:
- for (i=0; i<items-2; i++)
- ST(i) = ST(i+2); /* pop first two args */
- PUSHMARK(SP);
- SP += items - 2;
- PUTBACK;
- i = call_sv(sv, flags | G_METHOD);
- SPAGAIN;
- EXTEND(SP, 1);
- mPUSHi(i);
-
-void
-load_module(flags, name, version, ...)
- U32 flags
- SV *name
- SV *version
- CODE:
- /* Both SV parameters are donated to the ops built inside
- load_module, so we need to bump the refcounts. */
- Perl_load_module(aTHX_ flags, SvREFCNT_inc_simple(name),
- SvREFCNT_inc_simple(version), NULL);
-
-=tests plan => 52
-
-sub eq_array
-{
- my($a, $b) = @_;
- join(':', @$a) eq join(':', @$b);
-}
-
-sub f
-{
- shift;
- unshift @_, 'b';
- pop @_;
- @_, defined wantarray ? wantarray ? 'x' : 'y' : 'z';
-}
-
-my $obj = bless [], 'Foo';
-
-sub Foo::meth
-{
- return 'bad_self' unless @_ && ref $_[0] && ref($_[0]) eq 'Foo';
- shift;
- shift;
- unshift @_, 'b';
- pop @_;
- @_, defined wantarray ? wantarray ? 'x' : 'y' : 'z';
-}
-
-my $test;
-
-for $test (
- # flags args expected description
- [ &Devel::PPPort::G_SCALAR, [ ], [ qw(y 1) ], '0 args, G_SCALAR' ],
- [ &Devel::PPPort::G_SCALAR, [ qw(a p q) ], [ qw(y 1) ], '3 args, G_SCALAR' ],
- [ &Devel::PPPort::G_ARRAY, [ ], [ qw(x 1) ], '0 args, G_ARRAY' ],
- [ &Devel::PPPort::G_ARRAY, [ qw(a p q) ], [ qw(b p x 3) ], '3 args, G_ARRAY' ],
- [ &Devel::PPPort::G_DISCARD, [ ], [ qw(0) ], '0 args, G_DISCARD' ],
- [ &Devel::PPPort::G_DISCARD, [ qw(a p q) ], [ qw(0) ], '3 args, G_DISCARD' ],
-)
-{
- my ($flags, $args, $expected, $description) = @$test;
- print "# --- $description ---\n";
- ok(eq_array( [ &Devel::PPPort::call_sv(\&f, $flags, @$args) ], $expected));
- ok(eq_array( [ &Devel::PPPort::call_sv(*f, $flags, @$args) ], $expected));
- ok(eq_array( [ &Devel::PPPort::call_sv('f', $flags, @$args) ], $expected));
- ok(eq_array( [ &Devel::PPPort::call_pv('f', $flags, @$args) ], $expected));
- ok(eq_array( [ &Devel::PPPort::call_argv('f', $flags, @$args) ], $expected));
- ok(eq_array( [ &Devel::PPPort::eval_sv("f(qw(@$args))", $flags) ], $expected));
- ok(eq_array( [ &Devel::PPPort::call_method('meth', $flags, $obj, @$args) ], $expected));
- ok(eq_array( [ &Devel::PPPort::call_sv_G_METHOD('meth', $flags, $obj, @$args) ], $expected));
-};
-
-ok(&Devel::PPPort::eval_pv('f()', 0), 'y');
-ok(&Devel::PPPort::eval_pv('f(qw(a b c))', 0), 'y');
-
-ok(!defined $::{'less::'}, 1, "Hadn't loaded less yet");
-Devel::PPPort::load_module(0, "less", undef);
-ok(defined $::{'less::'}, 1, "Have now loaded less");
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/exception b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/exception
deleted file mode 100644
index 122277b..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/exception
+++ /dev/null
@@ -1,74 +0,0 @@
-################################################################################
-##
-## $Revision: 7 $
-## $Author: mhx $
-## $Date: 2009/01/18 14:10:53 +0100 $
-##
-################################################################################
-##
-## Version 3.x, Copyright (C) 2004-2009, 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.
-##
-################################################################################
-
-=provides
-
-dXCPT
-XCPT_TRY_START
-XCPT_TRY_END
-XCPT_CATCH
-XCPT_RETHROW
-
-=implementation
-
-#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
-
-=xsmisc
-
-/* defined in module3.c */
-int exception(int throw_e);
-
-=xsubs
-
-int
-exception(throw_e)
- int throw_e
- OUTPUT:
- RETVAL
-
-=tests plan => 7
-
-my $rv;
-
-$Devel::PPPort::exception_caught = undef;
-
-$rv = eval { &Devel::PPPort::exception(0) };
-ok($@, '');
-ok(defined $rv);
-ok($rv, 42);
-ok($Devel::PPPort::exception_caught, 0);
-
-$Devel::PPPort::exception_caught = undef;
-
-$rv = eval { &Devel::PPPort::exception(1) };
-ok($@, "boo\n");
-ok(not defined $rv);
-ok($Devel::PPPort::exception_caught, 1);
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/format b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/format
deleted file mode 100644
index d396704..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/format
+++ /dev/null
@@ -1,70 +0,0 @@
-################################################################################
-##
-## $Revision: 9 $
-## $Author: mhx $
-## $Date: 2009/01/18 14:10:55 +0100 $
-##
-################################################################################
-##
-## Version 3.x, Copyright (C) 2004-2009, 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.
-##
-################################################################################
-
-=provides
-
-/^#\s*define\s+(\w+)/
-
-=implementation
-
-#ifndef IVdf
-# if IVSIZE == LONGSIZE
-# define IVdf "ld"
-# define UVuf "lu"
-# define UVof "lo"
-# define UVxf "lx"
-# define UVXf "lX"
-# else
-# if IVSIZE == INTSIZE
-# define IVdf "d"
-# define UVuf "u"
-# define UVof "o"
-# define UVxf "x"
-# define UVXf "X"
-# endif
-# endif
-#endif
-
-#ifndef NVef
-# if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) && \
- defined(PERL_PRIfldbl) && { VERSION != 5.6.0 }
- /* 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
-
-=xsubs
-
-void
-croak_NVgf(num)
- NV num
- PPCODE:
- Perl_croak(aTHX_ "%.20" NVgf "\n", num);
-
-=tests plan => 1
-
-my $num = 1.12345678901234567890;
-
-eval { Devel::PPPort::croak_NVgf($num) };
-ok($@ =~ /^1.1234567890/);
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/limits b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/limits
deleted file mode 100644
index 25b3940..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/limits
+++ /dev/null
@@ -1,331 +0,0 @@
-################################################################################
-##
-## $Revision: 7 $
-## $Author: mhx $
-## $Date: 2009/01/18 14:10:54 +0100 $
-##
-################################################################################
-##
-## Version 3.x, Copyright (C) 2004-2009, 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.
-##
-################################################################################
-
-=provides
-
-PERL_UCHAR_MIN
-PERL_UCHAR_MAX
-PERL_USHORT_MIN
-PERL_USHORT_MAX
-PERL_SHORT_MAX
-PERL_SHORT_MIN
-PERL_UINT_MAX
-PERL_UINT_MIN
-PERL_INT_MAX
-PERL_INT_MIN
-PERL_ULONG_MAX
-PERL_ULONG_MIN
-PERL_LONG_MAX
-PERL_LONG_MIN
-PERL_UQUAD_MAX
-PERL_UQUAD_MIN
-PERL_QUAD_MAX
-PERL_QUAD_MIN
-IVSIZE
-UVSIZE
-IVTYPE
-UVTYPE
-
-=implementation
-
-#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
- __UNDEFINED__ IVTYPE int
- __UNDEFINED__ IV_MIN PERL_INT_MIN
- __UNDEFINED__ IV_MAX PERL_INT_MAX
- __UNDEFINED__ UV_MIN PERL_UINT_MIN
- __UNDEFINED__ UV_MAX PERL_UINT_MAX
-# ifdef INTSIZE
- __UNDEFINED__ IVSIZE INTSIZE
-# endif
-# else
-# if defined(convex) || defined(uts)
- __UNDEFINED__ IVTYPE long long
- __UNDEFINED__ IV_MIN PERL_QUAD_MIN
- __UNDEFINED__ IV_MAX PERL_QUAD_MAX
- __UNDEFINED__ UV_MIN PERL_UQUAD_MIN
- __UNDEFINED__ UV_MAX PERL_UQUAD_MAX
-# ifdef LONGLONGSIZE
- __UNDEFINED__ IVSIZE LONGLONGSIZE
-# endif
-# else
- __UNDEFINED__ IVTYPE long
- __UNDEFINED__ IV_MIN PERL_LONG_MIN
- __UNDEFINED__ IV_MAX PERL_LONG_MAX
- __UNDEFINED__ UV_MIN PERL_ULONG_MIN
- __UNDEFINED__ UV_MAX PERL_ULONG_MAX
-# ifdef LONGSIZE
- __UNDEFINED__ IVSIZE LONGSIZE
-# endif
-# endif
-# endif
- __UNDEFINED__ IVSIZE 8
- __UNDEFINED__ PERL_QUAD_MIN IV_MIN
- __UNDEFINED__ PERL_QUAD_MAX IV_MAX
- __UNDEFINED__ PERL_UQUAD_MIN UV_MIN
- __UNDEFINED__ PERL_UQUAD_MAX UV_MAX
-#else
- __UNDEFINED__ IVTYPE long
- __UNDEFINED__ IV_MIN PERL_LONG_MIN
- __UNDEFINED__ IV_MAX PERL_LONG_MAX
- __UNDEFINED__ UV_MIN PERL_ULONG_MIN
- __UNDEFINED__ UV_MAX PERL_ULONG_MAX
-#endif
-
-#ifndef IVSIZE
-# ifdef LONGSIZE
-# define IVSIZE LONGSIZE
-# else
-# define IVSIZE 4 /* A bold guess, but the best we can make. */
-# endif
-#endif
-
-__UNDEFINED__ UVTYPE unsigned IVTYPE
-__UNDEFINED__ UVSIZE IVSIZE
-
-=xsubs
-
-IV
-iv_size()
- CODE:
- RETVAL = IVSIZE == sizeof(IV);
- OUTPUT:
- RETVAL
-
-IV
-uv_size()
- CODE:
- RETVAL = UVSIZE == sizeof(UV);
- OUTPUT:
- RETVAL
-
-IV
-iv_type()
- CODE:
- RETVAL = sizeof(IVTYPE) == sizeof(IV);
- OUTPUT:
- RETVAL
-
-IV
-uv_type()
- CODE:
- RETVAL = sizeof(UVTYPE) == sizeof(UV);
- OUTPUT:
- RETVAL
-
-=tests plan => 4
-
-ok(&Devel::PPPort::iv_size());
-ok(&Devel::PPPort::uv_size());
-ok(&Devel::PPPort::iv_type());
-ok(&Devel::PPPort::uv_type());
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/mPUSH b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/mPUSH
deleted file mode 100644
index 3613058..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/mPUSH
+++ /dev/null
@@ -1,138 +0,0 @@
-################################################################################
-##
-## $Revision: 11 $
-## $Author: mhx $
-## $Date: 2009/01/18 14:10:54 +0100 $
-##
-################################################################################
-##
-## Version 3.x, Copyright (C) 2004-2009, 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.
-##
-################################################################################
-
-=provides
-
-__UNDEFINED__
-
-=implementation
-
-__UNDEFINED__ mPUSHs(s) PUSHs(sv_2mortal(s))
-__UNDEFINED__ PUSHmortal PUSHs(sv_newmortal())
-__UNDEFINED__ mPUSHp(p,l) sv_setpvn(PUSHmortal, (p), (l))
-__UNDEFINED__ mPUSHn(n) sv_setnv(PUSHmortal, (NV)(n))
-__UNDEFINED__ mPUSHi(i) sv_setiv(PUSHmortal, (IV)(i))
-__UNDEFINED__ mPUSHu(u) sv_setuv(PUSHmortal, (UV)(u))
-
-__UNDEFINED__ mXPUSHs(s) XPUSHs(sv_2mortal(s))
-__UNDEFINED__ XPUSHmortal XPUSHs(sv_newmortal())
-__UNDEFINED__ mXPUSHp(p,l) STMT_START { EXTEND(sp,1); sv_setpvn(PUSHmortal, (p), (l)); } STMT_END
-__UNDEFINED__ mXPUSHn(n) STMT_START { EXTEND(sp,1); sv_setnv(PUSHmortal, (NV)(n)); } STMT_END
-__UNDEFINED__ mXPUSHi(i) STMT_START { EXTEND(sp,1); sv_setiv(PUSHmortal, (IV)(i)); } STMT_END
-__UNDEFINED__ mXPUSHu(u) STMT_START { EXTEND(sp,1); sv_setuv(PUSHmortal, (UV)(u)); } STMT_END
-
-=xsubs
-
-void
-mPUSHs()
- PPCODE:
- EXTEND(SP, 3);
- mPUSHs(newSVpv("foo", 0));
- mPUSHs(newSVpv("bar13", 3));
- mPUSHs(newSViv(42));
- XSRETURN(3);
-
-void
-mPUSHp()
- PPCODE:
- EXTEND(SP, 3);
- mPUSHp("one", 3);
- mPUSHp("two", 3);
- mPUSHp("three", 5);
- XSRETURN(3);
-
-void
-mPUSHn()
- PPCODE:
- EXTEND(SP, 3);
- mPUSHn(0.5);
- mPUSHn(-0.25);
- mPUSHn(0.125);
- XSRETURN(3);
-
-void
-mPUSHi()
- PPCODE:
- EXTEND(SP, 3);
- mPUSHi(-1);
- mPUSHi(2);
- mPUSHi(-3);
- XSRETURN(3);
-
-void
-mPUSHu()
- PPCODE:
- EXTEND(SP, 3);
- mPUSHu(1);
- mPUSHu(2);
- mPUSHu(3);
- XSRETURN(3);
-
-void
-mXPUSHs()
- PPCODE:
- mXPUSHs(newSVpv("foo", 0));
- mXPUSHs(newSVpv("bar13", 3));
- mXPUSHs(newSViv(42));
- XSRETURN(3);
-
-void
-mXPUSHp()
- PPCODE:
- mXPUSHp("one", 3);
- mXPUSHp("two", 3);
- mXPUSHp("three", 5);
- XSRETURN(3);
-
-void
-mXPUSHn()
- PPCODE:
- mXPUSHn(0.5);
- mXPUSHn(-0.25);
- mXPUSHn(0.125);
- XSRETURN(3);
-
-void
-mXPUSHi()
- PPCODE:
- mXPUSHi(-1);
- mXPUSHi(2);
- mXPUSHi(-3);
- XSRETURN(3);
-
-void
-mXPUSHu()
- PPCODE:
- mXPUSHu(1);
- mXPUSHu(2);
- mXPUSHu(3);
- XSRETURN(3);
-
-=tests plan => 10
-
-ok(join(':', &Devel::PPPort::mPUSHs()), "foo:bar:42");
-ok(join(':', &Devel::PPPort::mPUSHp()), "one:two:three");
-ok(join(':', &Devel::PPPort::mPUSHn()), "0.5:-0.25:0.125");
-ok(join(':', &Devel::PPPort::mPUSHi()), "-1:2:-3");
-ok(join(':', &Devel::PPPort::mPUSHu()), "1:2:3");
-
-ok(join(':', &Devel::PPPort::mXPUSHs()), "foo:bar:42");
-ok(join(':', &Devel::PPPort::mXPUSHp()), "one:two:three");
-ok(join(':', &Devel::PPPort::mXPUSHn()), "0.5:-0.25:0.125");
-ok(join(':', &Devel::PPPort::mXPUSHi()), "-1:2:-3");
-ok(join(':', &Devel::PPPort::mXPUSHu()), "1:2:3");
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/memory b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/memory
deleted file mode 100644
index 761d80c..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/memory
+++ /dev/null
@@ -1,84 +0,0 @@
-################################################################################
-##
-## $Revision: 5 $
-## $Author: mhx $
-## $Date: 2009/01/18 14:10:53 +0100 $
-##
-################################################################################
-##
-## Version 3.x, Copyright (C) 2004-2009, 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.
-##
-################################################################################
-
-=provides
-
-__UNDEFINED__
-
-=implementation
-
-#ifdef HAS_MEMCMP
-__UNDEFINED__ memNE(s1,s2,l) (memcmp(s1,s2,l))
-__UNDEFINED__ memEQ(s1,s2,l) (!memcmp(s1,s2,l))
-#else
-__UNDEFINED__ memNE(s1,s2,l) (bcmp(s1,s2,l))
-__UNDEFINED__ memEQ(s1,s2,l) (!bcmp(s1,s2,l))
-#endif
-
-__UNDEFINED__ MoveD(s,d,n,t) memmove((char*)(d),(char*)(s), (n) * sizeof(t))
-__UNDEFINED__ CopyD(s,d,n,t) memcpy((char*)(d),(char*)(s), (n) * sizeof(t))
-#ifdef HAS_MEMSET
-__UNDEFINED__ ZeroD(d,n,t) memzero((char*)(d), (n) * sizeof(t))
-#else
-__UNDEFINED__ ZeroD(d,n,t) ((void)memzero((char*)(d), (n) * sizeof(t)), d)
-#endif
-
-__UNDEFINED__ PoisonWith(d,n,t,b) (void)memset((char*)(d), (U8)(b), (n) * sizeof(t))
-__UNDEFINED__ PoisonNew(d,n,t) PoisonWith(d,n,t,0xAB)
-__UNDEFINED__ PoisonFree(d,n,t) PoisonWith(d,n,t,0xEF)
-__UNDEFINED__ Poison(d,n,t) PoisonFree(d,n,t)
-
-__UNDEFINED__ Newx(v,n,t) New(0,v,n,t)
-__UNDEFINED__ Newxc(v,n,t,c) Newc(0,v,n,t,c)
-__UNDEFINED__ Newxz(v,n,t) Newz(0,v,n,t)
-
-=xsubs
-
-int
-checkmem()
- PREINIT:
- char *p;
-
- CODE:
- RETVAL = 0;
- Newx(p, 6, char);
- CopyD("Hello", p, 6, char);
- if (memEQ(p, "Hello", 6))
- RETVAL++;
- ZeroD(p, 6, char);
- if (memEQ(p, "\0\0\0\0\0\0", 6))
- RETVAL++;
- Poison(p, 6, char);
- if (memNE(p, "\0\0\0\0\0\0", 6))
- RETVAL++;
- Safefree(p);
-
- Newxz(p, 6, char);
- if (memEQ(p, "\0\0\0\0\0\0", 6))
- RETVAL++;
- Safefree(p);
-
- Newxc(p, 3, short, char);
- Safefree(p);
-
- OUTPUT:
- RETVAL
-
-=tests plan => 1
-
-ok(Devel::PPPort::checkmem(), 4);
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/newSV_type b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/newSV_type
deleted file mode 100644
index 06ebdb4..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/newSV_type
+++ /dev/null
@@ -1,86 +0,0 @@
-################################################################################
-##
-## $Revision: 1 $
-## $Author: mhx $
-## $Date: 2009/06/12 12:29:57 +0200 $
-##
-################################################################################
-##
-## Version 3.x, Copyright (C) 2004-2009, 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.
-##
-################################################################################
-
-=provides
-
-newSV_type
-
-=implementation
-
-#ifndef newSV_type
-
-#if { NEED newSV_type }
-
-SV*
-newSV_type(pTHX_ svtype const t)
-{
- SV* const sv = newSV(0);
- sv_upgrade(sv, t);
- return sv;
-}
-
-#endif
-
-#endif
-
-=xsinit
-
-#define NEED_newSV_type
-
-=xsubs
-
-int
-newSV_type()
- PREINIT:
- SV* sv;
- CODE:
- RETVAL = 0;
- sv = newSV_type(SVt_NULL);
- if (SvTYPE(sv) == SVt_NULL)
- {
- RETVAL++;
- }
- SvREFCNT_dec(sv);
-
- sv = newSV_type(SVt_PVIV);
- if (SvTYPE(sv) == SVt_PVIV)
- {
- RETVAL++;
- }
- SvREFCNT_dec(sv);
-
- sv = newSV_type(SVt_PVHV);
- if (SvTYPE(sv) == SVt_PVHV)
- {
- RETVAL++;
- }
- SvREFCNT_dec(sv);
-
- sv = newSV_type(SVt_PVAV);
- if (SvTYPE(sv) == SVt_PVAV)
- {
- RETVAL++;
- }
- SvREFCNT_dec(sv);
- OUTPUT:
- RETVAL
-
-
-=tests plan => 1
-
-ok(Devel::PPPort::newSV_type(), 4);
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/pv_tools b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/pv_tools
deleted file mode 100644
index c7e4c1e..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/pv_tools
+++ /dev/null
@@ -1,281 +0,0 @@
-################################################################################
-##
-## $Revision: 5 $
-## $Author: mhx $
-## $Date: 2009/01/18 14:10:51 +0100 $
-##
-################################################################################
-##
-## Version 3.x, Copyright (C) 2004-2009, 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.
-##
-################################################################################
-
-=provides
-
-__UNDEFINED__
-pv_escape
-pv_pretty
-pv_display
-
-=implementation
-
-__UNDEFINED__ PERL_PV_ESCAPE_QUOTE 0x0001
-__UNDEFINED__ PERL_PV_PRETTY_QUOTE PERL_PV_ESCAPE_QUOTE
-__UNDEFINED__ PERL_PV_PRETTY_ELLIPSES 0x0002
-__UNDEFINED__ PERL_PV_PRETTY_LTGT 0x0004
-__UNDEFINED__ PERL_PV_ESCAPE_FIRSTCHAR 0x0008
-__UNDEFINED__ PERL_PV_ESCAPE_UNI 0x0100
-__UNDEFINED__ PERL_PV_ESCAPE_UNI_DETECT 0x0200
-__UNDEFINED__ PERL_PV_ESCAPE_ALL 0x1000
-__UNDEFINED__ PERL_PV_ESCAPE_NOBACKSLASH 0x2000
-__UNDEFINED__ PERL_PV_ESCAPE_NOCLEAR 0x4000
-__UNDEFINED__ PERL_PV_ESCAPE_RE 0x8000
-__UNDEFINED__ PERL_PV_PRETTY_NOCLEAR PERL_PV_ESCAPE_NOCLEAR
-
-__UNDEFINED__ PERL_PV_PRETTY_DUMP PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_QUOTE
-__UNDEFINED__ PERL_PV_PRETTY_REGPROP PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_LTGT|PERL_PV_ESCAPE_RE
-
-/* 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 { NEED pv_escape }
-
-char *
-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 { NEED pv_pretty }
-
-char *
-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 { NEED pv_display }
-
-char *
-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
-
-=xsinit
-
-#define NEED_pv_escape
-#define NEED_pv_pretty
-#define NEED_pv_display
-
-=xsubs
-
-void
-pv_escape_can_unicode()
- PPCODE:
-#if defined(is_utf8_string) && defined(utf8_to_uvchr)
- XSRETURN_YES;
-#else
- XSRETURN_NO;
-#endif
-
-void
-pv_pretty()
- PREINIT:
- char *rv;
- PPCODE:
- EXTEND(SP, 8);
- ST(0) = sv_newmortal();
- rv = pv_pretty(ST(0), "foobarbaz",
- 9, 40, NULL, NULL, 0);
- ST(1) = sv_2mortal(newSVpv(rv, 0));
- ST(2) = sv_newmortal();
- rv = pv_pretty(ST(2), "pv_p\retty\n",
- 10, 40, "left", "right", PERL_PV_PRETTY_LTGT);
- ST(3) = sv_2mortal(newSVpv(rv, 0));
- ST(4) = sv_newmortal();
- rv = pv_pretty(ST(4), "N\303\275 Batter\303\255",
- 12, 20, NULL, NULL, PERL_PV_ESCAPE_UNI_DETECT);
- ST(5) = sv_2mortal(newSVpv(rv, 0));
- ST(6) = sv_newmortal();
- rv = pv_pretty(ST(6), "\303\201g\303\246tis Byrjun",
- 15, 18, NULL, NULL, PERL_PV_ESCAPE_UNI_DETECT|PERL_PV_PRETTY_ELLIPSES);
- ST(7) = sv_2mortal(newSVpv(rv, 0));
- XSRETURN(8);
-
-void
-pv_display()
- PREINIT:
- char *rv;
- PPCODE:
- EXTEND(SP, 4);
- ST(0) = sv_newmortal();
- rv = pv_display(ST(0), "foob\0rbaz", 9, 10, 20);
- ST(1) = sv_2mortal(newSVpv(rv, 0));
- ST(2) = sv_newmortal();
- rv = pv_display(ST(2), "pv_display", 10, 11, 5);
- ST(3) = sv_2mortal(newSVpv(rv, 0));
- XSRETURN(4);
-
-=tests plan => 13
-
-my $uni = &Devel::PPPort::pv_escape_can_unicode();
-
-# sanity check
-ok($uni ? $] >= 5.006 : $] < 5.008);
-
-my @r;
-
- at r = &Devel::PPPort::pv_pretty();
-ok($r[0], $r[1]);
-ok($r[0], "foobarbaz");
-ok($r[2], $r[3]);
-ok($r[2], '<leftpv_p\retty\nright>');
-ok($r[4], $r[5]);
-ok($r[4], $uni ? 'N\375 Batter\355' : 'N\303\275 Batter\303');
-ok($r[6], $r[7]);
-ok($r[6], $uni ? '\301g\346tis Byrju...' : '\303\201g\303\246t...');
-
- at r = &Devel::PPPort::pv_display();
-ok($r[0], $r[1]);
-ok($r[0], '"foob\0rbaz"\0');
-ok($r[2], $r[3]);
-ok($r[2] eq '"pv_di"...\0' ||
- $r[2] eq '"pv_d"...\0'); # some perl implementations are broken... :(
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/pvs b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/pvs
deleted file mode 100644
index 71485ad..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/pvs
+++ /dev/null
@@ -1,128 +0,0 @@
-################################################################################
-##
-## $Revision: 11 $
-## $Author: mhx $
-## $Date: 2009/06/12 12:19:15 +0200 $
-##
-################################################################################
-##
-## Version 3.x, Copyright (C) 2004-2009, 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.
-##
-################################################################################
-
-=provides
-
-__UNDEFINED__
-
-=implementation
-
-/* 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
- */
-
-__UNDEFINED__ STR_WITH_LEN(s) (s ""), (sizeof(s)-1)
-
-__UNDEFINED__ newSVpvs(str) newSVpvn(str "", sizeof(str) - 1)
-__UNDEFINED__ newSVpvs_flags(str, flags) newSVpvn_flags(str "", sizeof(str) - 1, flags)
-__UNDEFINED__ sv_catpvs(sv, str) sv_catpvn(sv, str "", sizeof(str) - 1)
-__UNDEFINED__ sv_setpvs(sv, str) sv_setpvn(sv, str "", sizeof(str) - 1)
-__UNDEFINED__ hv_fetchs(hv, key, lval) hv_fetch(hv, key "", sizeof(key) - 1, lval)
-__UNDEFINED__ hv_stores(hv, key, val) hv_store(hv, key "", sizeof(key) - 1, val, 0)
-
-__UNDEFINED__ gv_fetchpvn_flags(name, len, flags, svt) gv_fetchpv(name, flags, svt)
-__UNDEFINED__ gv_fetchpvs(name, flags, svt) gv_fetchpvn_flags(name "", sizeof(name) - 1, flags, svt)
-__UNDEFINED__ gv_stashpvs(name, flags) gv_stashpvn(name "", sizeof(name) - 1, flags)
-
-=xsubs
-
-void
-newSVpvs()
- PPCODE:
- mXPUSHs(newSVpvs("newSVpvs"));
- XSRETURN(1);
-
-void
-newSVpvs_flags()
- PPCODE:
- XPUSHs(newSVpvs_flags("newSVpvs_flags", SVs_TEMP));
- XSRETURN(1);
-
-void
-sv_catpvs(sv)
- SV *sv
- PPCODE:
- sv_catpvs(sv, "sv_catpvs");
-
-void
-sv_setpvs(sv)
- SV *sv
- PPCODE:
- sv_setpvs(sv, "sv_setpvs");
-
-void
-hv_fetchs(hv)
- SV *hv
- PREINIT:
- SV **s;
- PPCODE:
- s = hv_fetchs((HV *) SvRV(hv), "hv_fetchs", 0);
- XPUSHs(sv_mortalcopy(*s));
- XSRETURN(1);
-
-void
-hv_stores(hv, sv)
- SV *hv
- SV *sv
- PPCODE:
- (void) hv_stores((HV *) SvRV(hv), "hv_stores", SvREFCNT_inc_simple(sv));
-
-SV*
-gv_fetchpvn_flags()
- CODE:
- RETVAL = newRV_inc((SV*)gv_fetchpvn_flags("Devel::PPPort::VERSION", sizeof("Devel::PPPort::VERSION")-1, 0, SVt_PV));
- OUTPUT:
- RETVAL
-
-SV*
-gv_fetchpvs()
- CODE:
- RETVAL = newRV_inc((SV*)gv_fetchpvs("Devel::PPPort::VERSION", 0, SVt_PV));
- OUTPUT:
- RETVAL
-
-SV*
-gv_stashpvs()
- CODE:
- RETVAL = newRV_inc((SV*)gv_stashpvs("Devel::PPPort", 0));
- OUTPUT:
- RETVAL
-
-
-=tests plan => 11
-
-my $x = 'foo';
-
-ok(Devel::PPPort::newSVpvs(), "newSVpvs");
-ok(Devel::PPPort::newSVpvs_flags(), "newSVpvs_flags");
-
-Devel::PPPort::sv_catpvs($x);
-ok($x, "foosv_catpvs");
-
-Devel::PPPort::sv_setpvs($x);
-ok($x, "sv_setpvs");
-
-my %h = ('hv_fetchs' => 42);
-Devel::PPPort::hv_stores(\%h, 4711);
-ok(scalar keys %h, 2);
-ok(exists $h{'hv_stores'});
-ok($h{'hv_stores'}, 4711);
-ok(Devel::PPPort::hv_fetchs(\%h), 42);
-ok(Devel::PPPort::gv_fetchpvn_flags(), \*Devel::PPPort::VERSION);
-ok(Devel::PPPort::gv_fetchpvs(), \*Devel::PPPort::VERSION);
-ok(Devel::PPPort::gv_stashpvs(), \%Devel::PPPort::);
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/sprintf b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/sprintf
deleted file mode 100644
index 6756f9a..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/sprintf
+++ /dev/null
@@ -1,62 +0,0 @@
-################################################################################
-##
-## $Revision: 2 $
-## $Author: mhx $
-## $Date: 2009/01/18 14:10:51 +0100 $
-##
-################################################################################
-##
-## Version 3.x, Copyright (C) 2004-2009, 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.
-##
-################################################################################
-
-=provides
-
-my_sprintf
-
-=implementation
-
-#if !defined(my_sprintf)
-#if { NEED my_sprintf }
-
-int
-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
-
-=xsinit
-
-#define NEED_my_sprintf
-
-=xsubs
-
-void
-my_sprintf()
- PREINIT:
- char buf[128];
- int len;
- PPCODE:
- len = my_sprintf(buf, "foo%s%d", "bar", 42);
- mXPUSHi(len);
- mXPUSHs(newSVpv(buf, 0));
- XSRETURN(2);
-
-=tests plan => 2
-
-my($l, $s) = Devel::PPPort::my_sprintf();
-ok($l, 8);
-ok($s, "foobar42");
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/version b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/version
deleted file mode 100644
index ca8d8a6..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/version
+++ /dev/null
@@ -1,58 +0,0 @@
-################################################################################
-##
-## $Revision: 10 $
-## $Author: mhx $
-## $Date: 2009/01/18 14:10:54 +0100 $
-##
-################################################################################
-##
-## Version 3.x, Copyright (C) 2004-2009, 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.
-##
-################################################################################
-
-=provides
-
-PERL_REVISION
-PERL_VERSION
-PERL_SUBVERSION
-PERL_BCDVERSION
-
-=dontwarn
-
-PERL_PATCHLEVEL_H_IMPLICIT
-_dpppDEC2BCD
-
-=implementation
-
-#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 */
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/warn b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/warn
deleted file mode 100644
index 76bd881..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/inc/warn
+++ /dev/null
@@ -1,175 +0,0 @@
-################################################################################
-##
-## $Revision: 7 $
-## $Author: mhx $
-## $Date: 2009/01/18 14:10:52 +0100 $
-##
-################################################################################
-##
-## Version 3.x, Copyright (C) 2004-2009, 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.
-##
-################################################################################
-
-=provides
-
-__UNDEFINED__
-ckWARN
-warner
-Perl_warner
-Perl_warner_nocontext
-
-=implementation
-
-__UNDEFINED__ WARN_ALL 0
-__UNDEFINED__ WARN_CLOSURE 1
-__UNDEFINED__ WARN_DEPRECATED 2
-__UNDEFINED__ WARN_EXITING 3
-__UNDEFINED__ WARN_GLOB 4
-__UNDEFINED__ WARN_IO 5
-__UNDEFINED__ WARN_CLOSED 6
-__UNDEFINED__ WARN_EXEC 7
-__UNDEFINED__ WARN_LAYER 8
-__UNDEFINED__ WARN_NEWLINE 9
-__UNDEFINED__ WARN_PIPE 10
-__UNDEFINED__ WARN_UNOPENED 11
-__UNDEFINED__ WARN_MISC 12
-__UNDEFINED__ WARN_NUMERIC 13
-__UNDEFINED__ WARN_ONCE 14
-__UNDEFINED__ WARN_OVERFLOW 15
-__UNDEFINED__ WARN_PACK 16
-__UNDEFINED__ WARN_PORTABLE 17
-__UNDEFINED__ WARN_RECURSION 18
-__UNDEFINED__ WARN_REDEFINE 19
-__UNDEFINED__ WARN_REGEXP 20
-__UNDEFINED__ WARN_SEVERE 21
-__UNDEFINED__ WARN_DEBUGGING 22
-__UNDEFINED__ WARN_INPLACE 23
-__UNDEFINED__ WARN_INTERNAL 24
-__UNDEFINED__ WARN_MALLOC 25
-__UNDEFINED__ WARN_SIGNAL 26
-__UNDEFINED__ WARN_SUBSTR 27
-__UNDEFINED__ WARN_SYNTAX 28
-__UNDEFINED__ WARN_AMBIGUOUS 29
-__UNDEFINED__ WARN_BAREWORD 30
-__UNDEFINED__ WARN_DIGIT 31
-__UNDEFINED__ WARN_PARENTHESIS 32
-__UNDEFINED__ WARN_PRECEDENCE 33
-__UNDEFINED__ WARN_PRINTF 34
-__UNDEFINED__ WARN_PROTOTYPE 35
-__UNDEFINED__ WARN_QW 36
-__UNDEFINED__ WARN_RESERVED 37
-__UNDEFINED__ WARN_SEMICOLON 38
-__UNDEFINED__ WARN_TAINT 39
-__UNDEFINED__ WARN_THREADS 40
-__UNDEFINED__ WARN_UNINITIALIZED 41
-__UNDEFINED__ WARN_UNPACK 42
-__UNDEFINED__ WARN_UNTIE 43
-__UNDEFINED__ WARN_UTF8 44
-__UNDEFINED__ WARN_VOID 45
-__UNDEFINED__ WARN_ASSERTIONS 46
-
-__UNDEFINED__ packWARN(a) (a)
-
-#ifndef ckWARN
-# ifdef G_WARN_ON
-# define ckWARN(a) (PL_dowarn & G_WARN_ON)
-# else
-# define ckWARN(a) PL_dowarn
-# endif
-#endif
-
-#if { VERSION >= 5.004 } && !defined(warner)
-#if { NEED warner }
-
-void
-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
-
-=xsinit
-
-#define NEED_warner
-
-=xsubs
-
-void
-warner()
- CODE:
-#if { VERSION >= 5.004 }
- warner(packWARN(WARN_MISC), "warner %s:%d", "bar", 42);
-#endif
-
-void
-Perl_warner()
- CODE:
-#if { VERSION >= 5.004 }
- Perl_warner(aTHX_ packWARN(WARN_MISC), "Perl_warner %s:%d", "bar", 42);
-#endif
-
-void
-Perl_warner_nocontext()
- CODE:
-#if { VERSION >= 5.004 }
- Perl_warner_nocontext(packWARN(WARN_MISC), "Perl_warner_nocontext %s:%d", "bar", 42);
-#endif
-
-void
-ckWARN()
- CODE:
-#if { VERSION >= 5.004 }
- if (ckWARN(WARN_MISC))
- Perl_warner_nocontext(packWARN(WARN_MISC), "ckWARN %s:%d", "bar", 42);
-#endif
-
-=tests plan => 5
-
-$^W = 0;
-
-my $warning;
-
-$SIG{'__WARN__'} = sub { $warning = $_[0] };
-
-$warning = '';
-Devel::PPPort::warner();
-ok($] >= 5.004 ? $warning =~ /^warner bar:42/ : $warning eq '');
-
-$warning = '';
-Devel::PPPort::Perl_warner();
-ok($] >= 5.004 ? $warning =~ /^Perl_warner bar:42/ : $warning eq '');
-
-$warning = '';
-Devel::PPPort::Perl_warner_nocontext();
-ok($] >= 5.004 ? $warning =~ /^Perl_warner_nocontext bar:42/ : $warning eq '');
-
-$warning = '';
-Devel::PPPort::ckWARN();
-ok($warning, '');
-
-$^W = 1;
-
-$warning = '';
-Devel::PPPort::ckWARN();
-ok($] >= 5.004 ? $warning =~ /^ckWARN bar:42/ : $warning eq '');
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/ppptools.pl b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/ppptools.pl
deleted file mode 100644
index 36830eb..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/ppptools.pl
+++ /dev/null
@@ -1,400 +0,0 @@
-################################################################################
-#
-# ppptools.pl -- various utility functions
-#
-################################################################################
-#
-# $Revision: 27 $
-# $Author: mhx $
-# $Date: 2009/01/18 14:10:51 +0100 $
-#
-################################################################################
-#
-# Version 3.x, Copyright (C) 2004-2009, 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.
-#
-################################################################################
-
-sub cat_file
-{
- eval { require File::Spec };
- return $@ ? join('/', @_) : File::Spec->catfile(@_);
-}
-
-sub all_files_in_dir
-{
- my $dir = shift;
- local *DIR;
-
- opendir DIR, $dir or die "cannot open directory $dir: $!\n";
- my @files = grep { !-d && !/^\./ } readdir DIR; # no dirs or hidden files
- closedir DIR;
-
- return map { cat_file($dir, $_) } @files;
-}
-
-sub parse_todo
-{
- my $dir = shift || 'parts/todo';
- local *TODO;
- my %todo;
- my $todo;
-
- for $todo (all_files_in_dir($dir)) {
- open TODO, $todo or die "cannot open $todo: $!\n";
- my $perl = <TODO>;
- chomp $perl;
- while (<TODO>) {
- chomp;
- s/#.*//;
- s/^\s+//; s/\s+$//;
- /^\s*$/ and next;
- /^\w+$/ or die "invalid identifier: $_\n";
- exists $todo{$_} and die "duplicate identifier: $_ ($todo{$_} <=> $perl)\n";
- $todo{$_} = $perl;
- }
- close TODO;
- }
-
- return \%todo;
-}
-
-sub expand_version
-{
- my($op, $ver) = @_;
- my($r, $v, $s) = parse_version($ver);
- $r == 5 or die "only Perl revision 5 is supported\n";
- my $bcdver = sprintf "0x%d%03d%03d", $r, $v, $s;
- return "(PERL_BCDVERSION $op $bcdver)";
-}
-
-sub parse_partspec
-{
- my $file = shift;
- my $section = 'implementation';
- my $vsec = join '|', qw( provides dontwarn implementation
- xsubs xsinit xsmisc xshead xsboot tests );
- my(%data, %options);
- local *F;
-
- open F, $file or die "$file: $!\n";
- while (<F>) {
- /[ \t]+$/ and warn "$file:$.: warning: trailing whitespace\n";
- if ($section eq 'implementation') {
- m!//! && !m!(?:=~|s/).*//! && !m!(?:ht|f)tp://!
- and warn "$file:$.: warning: potential C++ comment\n";
- }
- /^##/ and next;
- if (/^=($vsec)(?:\s+(.*))?/) {
- $section = $1;
- if (defined $2) {
- my $opt = $2;
- $options{$section} = eval "{ $opt }";
- $@ and die "$file:$.: invalid options ($opt) in section $section: $@\n";
- }
- next;
- }
- push @{$data{$section}}, $_;
- }
- close F;
-
- for (keys %data) {
- my @v = @{$data{$_}};
- shift @v while @v && $v[0] =~ /^\s*$/;
- pop @v while @v && $v[-1] =~ /^\s*$/;
- $data{$_} = join '', @v;
- }
-
- unless (exists $data{provides}) {
- $data{provides} = ($file =~ /(\w+)\.?$/)[0];
- }
- $data{provides} = [$data{provides} =~ /(\S+)/g];
-
- if (exists $data{dontwarn}) {
- $data{dontwarn} = [$data{dontwarn} =~ /(\S+)/g];
- }
-
- my @prov;
- my %proto;
-
- if (exists $data{tests} && (!exists $data{implementation} || $data{implementation} !~ /\S/)) {
- $data{implementation} = '';
- }
- else {
- $data{implementation} =~ /\S/ or die "Empty implementation in $file\n";
-
- my $p;
-
- for $p (@{$data{provides}}) {
- if ($p =~ m#^/.*/\w*$#) {
- my @tmp = eval "\$data{implementation} =~ ${p}gm";
- $@ and die "invalid regex $p in $file\n";
- @tmp or warn "no matches for regex $p in $file\n";
- push @prov, do { my %h; grep !$h{$_}++, @tmp };
- }
- elsif ($p eq '__UNDEFINED__') {
- my @tmp = $data{implementation} =~ /^\s*__UNDEFINED__[^\r\n\S]+(\w+)/gm;
- @tmp or warn "no __UNDEFINED__ macros in $file\n";
- push @prov, @tmp;
- }
- else {
- push @prov, $p;
- }
- }
-
- for (@prov) {
- if ($data{implementation} !~ /\b\Q$_\E\b/) {
- warn "$file claims to provide $_, but doesn't seem to do so\n";
- next;
- }
-
- # scan for prototypes
- my($proto) = $data{implementation} =~ /
- ( ^ (?:[\w*]|[^\S\r\n])+
- [\r\n]*?
- ^ \b$_\b \s*
- \( [^{]* \)
- )
- \s* \{
- /xm or next;
-
- $proto =~ s/^\s+//;
- $proto =~ s/\s+$//;
- $proto =~ s/\s+/ /g;
-
- exists $proto{$_} and warn "$file: duplicate prototype for $_\n";
- $proto{$_} = $proto;
- }
- }
-
- for $section (qw( implementation xsubs xsinit xsmisc xshead xsboot )) {
- if (exists $data{$section}) {
- $data{$section} =~ s/\{\s*version\s*(<|>|==|!=|>=|<=)\s*([\d._]+)\s*\}/expand_version($1, $2)/gei;
- }
- }
-
- $data{provides} = \@prov;
- $data{prototypes} = \%proto;
- $data{OPTIONS} = \%options;
-
- my %prov = map { ($_ => 1) } @prov;
- my %dontwarn = exists $data{dontwarn} ? map { ($_ => 1) } @{$data{dontwarn}} : ();
- my @maybeprov = do { my %h;
- grep {
- my($nop) = /^Perl_(.*)/;
- not exists $prov{$_} ||
- exists $dontwarn{$_} ||
- /^D_PPP_/ ||
- (defined $nop && exists $prov{$nop} ) ||
- (defined $nop && exists $dontwarn{$nop}) ||
- $h{$_}++;
- }
- $data{implementation} =~ /^\s*#\s*define\s+(\w+)/gm };
-
- if (@maybeprov) {
- warn "$file seems to provide these macros, but doesn't list them:\n "
- . join("\n ", @maybeprov) . "\n";
- }
-
- return \%data;
-}
-
-sub compare_prototypes
-{
- my($p1, $p2) = @_;
- for ($p1, $p2) {
- s/^\s+//;
- s/\s+$//;
- s/\s+/ /g;
- s/(\w)\s(\W)/$1$2/g;
- s/(\W)\s(\w)/$1$2/g;
- }
- return $p1 cmp $p2;
-}
-
-sub ppcond
-{
- my $s = shift;
- my @c;
- my $p;
-
- for $p (@$s) {
- push @c, map "!($_)", @{$p->{pre}};
- defined $p->{cur} and push @c, "($p->{cur})";
- }
-
- join " && ", @c;
-}
-
-sub trim_arg
-{
- my $in = shift;
- my $remove = join '|', qw( NN NULLOK VOL );
-
- $in eq '...' and return ($in);
-
- local $_ = $in;
- my $id;
-
- s/[*()]/ /g;
- s/\[[^\]]*\]/ /g;
- s/\b(?:auto|const|extern|inline|register|static|volatile|restrict)\b//g;
- s/\b(?:$remove)\b//;
- s/^\s*//; s/\s*$//;
-
- if( /^\b(?:struct|union|enum)\s+\w+(?:\s+(\w+))?$/ ) {
- defined $1 and $id = $1;
- }
- else {
- if( s/\b(?:char|double|float|int|long|short|signed|unsigned|void)\b//g ) {
- /^\s*(\w+)\s*$/ and $id = $1;
- }
- else {
- /^\s*\w+\s+(\w+)\s*$/ and $id = $1;
- }
- }
-
- $_ = $in;
-
- defined $id and s/\b$id\b//;
-
- # these don't matter at all
- s/\b(?:auto|extern|inline|register|static|volatile|restrict)\b//g;
- s/\b(?:$remove)\b//;
-
- s/(?=<\*)\s+(?=\*)//g;
- s/\s*(\*+)\s*/ $1 /g;
- s/^\s*//; s/\s*$//;
- s/\s+/ /g;
-
- return ($_, $id);
-}
-
-sub parse_embed
-{
- my @files = @_;
- my @func;
- my @pps;
- my $file;
- local *FILE;
-
- for $file (@files) {
- open FILE, $file or die "$file: $!\n";
- my($line, $l);
-
- while (defined($line = <FILE>)) {
- while ($line =~ /\\$/ && defined($l = <FILE>)) {
- $line =~ s/\\\s*//;
- $line .= $l;
- }
- next if $line =~ /^\s*:/;
- $line =~ s/^\s+|\s+$//gs;
- my($dir, $args) = ($line =~ /^\s*#\s*(\w+)(?:\s*(.*?)\s*)?$/);
- if (defined $dir and defined $args) {
- for ($dir) {
- /^ifdef$/ and do { push @pps, { pre => [], cur => "defined($args)" } ; last };
- /^ifndef$/ and do { push @pps, { pre => [], cur => "!defined($args)" } ; last };
- /^if$/ and do { push @pps, { pre => [], cur => $args } ; last };
- /^elif$/ and do { push @{$pps[-1]{pre}}, $pps[-1]{cur}; $pps[-1]{cur} = $args; last };
- /^else$/ and do { push @{$pps[-1]{pre}}, $pps[-1]{cur}; $pps[-1]{cur} = undef; last };
- /^endif$/ and do { pop @pps ; last };
- /^include$/ and last;
- /^define$/ and last;
- /^undef$/ and last;
- warn "unhandled preprocessor directive: $dir\n";
- }
- }
- else {
- my @e = split /\s*\|\s*/, $line;
- if( @e >= 3 ) {
- my($flags, $ret, $name, @args) = @e;
- for (@args) {
- $_ = [trim_arg($_)];
- }
- ($ret) = trim_arg($ret);
- push @func, {
- name => $name,
- flags => { map { $_, 1 } $flags =~ /./g },
- ret => $ret,
- args => \@args,
- cond => ppcond(\@pps),
- };
- }
- }
- }
-
- close FILE;
- }
-
- return @func;
-}
-
-sub make_prototype
-{
- my $f = shift;
- my @args = map { "@$_" } @{$f->{args}};
- my $proto;
- my $pTHX_ = exists $f->{flags}{n} ? "" : "pTHX_ ";
- $proto = "$f->{ret} $f->{name}" . "($pTHX_" . join(', ', @args) . ')';
- return $proto;
-}
-
-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 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";
- }
- $s /= 10;
- }
-
- return ($r, $v, $s);
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5004000 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5004000
deleted file mode 100644
index 1382ea7..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5004000
+++ /dev/null
@@ -1,68 +0,0 @@
-5.004000
-GIMME_V # E
-G_VOID # E
-HEf_SVKEY # E
-HeHASH # U
-HeKEY # U
-HeKLEN # U
-HePV # U
-HeSVKEY # U
-HeSVKEY_force # U
-HeSVKEY_set # U
-HeVAL # U
-SvSetMagicSV # U
-SvSetMagicSV_nosteal # U
-SvSetSV_nosteal # U
-SvTAINTED # U
-SvTAINTED_off # U
-SvTAINTED_on # U
-block_gimme # U
-call_list # U
-cv_const_sv # U
-delimcpy # U
-do_open # E (Perl_do_open)
-form # U
-gv_autoload4 # U
-gv_efullname3 # U
-gv_fetchmethod_autoload # U
-gv_fullname3 # U
-hv_delayfree_ent # U
-hv_delete_ent # U
-hv_exists_ent # U
-hv_fetch_ent # U
-hv_free_ent # U
-hv_iterkeysv # U
-hv_ksplit # U
-hv_store_ent # U
-ibcmp_locale # U
-my_failure_exit # U
-my_memcmp # U
-my_pclose # E (Perl_my_pclose)
-my_popen # E (Perl_my_popen)
-newSVpvf # U
-rsignal # E
-rsignal_state # E
-save_I16 # U
-save_gp # U
-share_hek # E
-start_subparse # E (Perl_start_subparse)
-sv_catpvf # U
-sv_catpvf_mg # U
-sv_cmp_locale # U
-sv_derived_from # U
-sv_gets # E (Perl_sv_gets)
-sv_magic_portable # U
-sv_setpvf # U
-sv_setpvf_mg # U
-sv_taint # U
-sv_tainted # U
-sv_untaint # U
-sv_vcatpvf # U
-sv_vcatpvf_mg # U
-sv_vcatpvfn # U
-sv_vsetpvf # U
-sv_vsetpvf_mg # U
-sv_vsetpvfn # U
-unsharepvn # U
-vnewSVpvf # U
-warner # U
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5004010 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5004010
deleted file mode 100644
index 8c29866..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5004010
+++ /dev/null
@@ -1 +0,0 @@
-5.004010
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5004030 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5004030
deleted file mode 100644
index e45facb..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5004030
+++ /dev/null
@@ -1 +0,0 @@
-5.004030
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5004040 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5004040
deleted file mode 100644
index 69ccd5d..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5004040
+++ /dev/null
@@ -1 +0,0 @@
-5.004040
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5004050 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5004050
deleted file mode 100644
index f1c9f89..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5004050
+++ /dev/null
@@ -1,4 +0,0 @@
-5.004050
-do_binmode # U
-save_aelem # U
-save_helem # U
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5005010 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5005010
deleted file mode 100644
index deebff5..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5005010
+++ /dev/null
@@ -1 +0,0 @@
-5.005010
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5005020 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5005020
deleted file mode 100644
index d19ff2a..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5005020
+++ /dev/null
@@ -1 +0,0 @@
-5.005020
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5005040 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5005040
deleted file mode 100644
index 8a165c2..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5005040
+++ /dev/null
@@ -1 +0,0 @@
-5.005040
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5006001 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5006001
deleted file mode 100644
index 3f4ea79..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5006001
+++ /dev/null
@@ -1,11 +0,0 @@
-5.006001
-SvGAMAGIC # U
-apply_attrs_string # U
-bytes_to_utf8 # U
-gv_efullname4 # U
-gv_fullname4 # U
-is_utf8_string # U
-save_generic_pvref # U
-utf16_to_utf8 # E (Perl_utf16_to_utf8)
-utf16_to_utf8_reversed # E (Perl_utf16_to_utf8_reversed)
-utf8_to_bytes # U
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5007002 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5007002
deleted file mode 100644
index cb28d72..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5007002
+++ /dev/null
@@ -1,17 +0,0 @@
-5.007002
-calloc # U
-getcwd_sv # U
-init_tm # U
-malloc # U
-mfree # U
-mini_mktime # U
-my_atof2 # U
-my_strftime # U
-op_null # U
-realloc # U
-sv_catpvn_flags # U
-sv_catsv_flags # U
-sv_setsv_flags # U
-sv_utf8_upgrade_flags # U
-sv_utf8_upgrade_nomg # U
-swash_fetch # E (Perl_swash_fetch)
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5008002 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5008002
deleted file mode 100644
index 63aac52..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5008002
+++ /dev/null
@@ -1 +0,0 @@
-5.008002
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5009000 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5009000
deleted file mode 100644
index 28bc859..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5009000
+++ /dev/null
@@ -1,6 +0,0 @@
-5.009000
-new_version # U
-save_set_svflags # U
-vcmp # U
-vnumify # U
-vstringify # U
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5009004 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5009004
deleted file mode 100644
index 0d6b7d5..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5009004
+++ /dev/null
@@ -1,8 +0,0 @@
-5.009004
-PerlIO_context_layers # U
-gv_name_set # U
-my_vsnprintf # U
-newXS_flags # U
-regclass_swash # E (Perl_regclass_swash)
-sv_does # U
-sv_usepvn_flags # U
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5010000 b/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5010000
deleted file mode 100644
index 737f374..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/parts/todo/5010000
+++ /dev/null
@@ -1,7 +0,0 @@
-5.010000
-hv_common # U
-hv_common_key_len # U
-sv_destroyable # U
-sys_init # U
-sys_init3 # U
-sys_term # U
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/HvNAME.t b/3.8.8/sources/cpan-Devel-PPPort/vendor/t/HvNAME.t
deleted file mode 100644
index f54fac2..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/HvNAME.t
+++ /dev/null
@@ -1,56 +0,0 @@
-################################################################################
-#
-# !!!!! Do NOT edit this file directly! !!!!!
-#
-# Edit mktests.PL and/or parts/inc/HvNAME instead.
-#
-# This file was automatically generated from the definition files in the
-# parts/inc/ subdirectory by mktests.PL. To learn more about how all this
-# works, please read the F<HACKERS> file that came with this distribution.
-#
-################################################################################
-
-BEGIN {
- if ($ENV{'PERL_CORE'}) {
- chdir 't' if -d 't';
- @INC = ('../lib', '../ext/Devel-PPPort/t') if -d '../lib' && -d '../ext';
- require Config; import Config;
- use vars '%Config';
- if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
- print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
- exit 0;
- }
- }
- else {
- unshift @INC, 't';
- }
-
- sub load {
- eval "use Test";
- require 'testutil.pl' if $@;
- }
-
- if (4) {
- load();
- plan(tests => 4);
- }
-}
-
-use Devel::PPPort;
-use strict;
-$^W = 1;
-
-package Devel::PPPort;
-use vars '@ISA';
-require DynaLoader;
- at ISA = qw(DynaLoader);
-bootstrap Devel::PPPort;
-
-package main;
-
-ok(Devel::PPPort::HvNAME_get(\%Devel::PPPort::), 'Devel::PPPort');
-ok(Devel::PPPort::HvNAME_get({}), undef);
-
-ok(Devel::PPPort::HvNAMELEN_get(\%Devel::PPPort::), length('Devel::PPPort'));
-ok(Devel::PPPort::HvNAMELEN_get({}), 0);
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/MY_CXT.t b/3.8.8/sources/cpan-Devel-PPPort/vendor/t/MY_CXT.t
deleted file mode 100644
index a94bd38..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/MY_CXT.t
+++ /dev/null
@@ -1,54 +0,0 @@
-################################################################################
-#
-# !!!!! Do NOT edit this file directly! !!!!!
-#
-# Edit mktests.PL and/or parts/inc/MY_CXT instead.
-#
-# This file was automatically generated from the definition files in the
-# parts/inc/ subdirectory by mktests.PL. To learn more about how all this
-# works, please read the F<HACKERS> file that came with this distribution.
-#
-################################################################################
-
-BEGIN {
- if ($ENV{'PERL_CORE'}) {
- chdir 't' if -d 't';
- @INC = ('../lib', '../ext/Devel-PPPort/t') if -d '../lib' && -d '../ext';
- require Config; import Config;
- use vars '%Config';
- if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
- print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
- exit 0;
- }
- }
- else {
- unshift @INC, 't';
- }
-
- sub load {
- eval "use Test";
- require 'testutil.pl' if $@;
- }
-
- if (3) {
- load();
- plan(tests => 3);
- }
-}
-
-use Devel::PPPort;
-use strict;
-$^W = 1;
-
-package Devel::PPPort;
-use vars '@ISA';
-require DynaLoader;
- at ISA = qw(DynaLoader);
-bootstrap Devel::PPPort;
-
-package main;
-
-ok(&Devel::PPPort::MY_CXT_1());
-ok(&Devel::PPPort::MY_CXT_2());
-ok(&Devel::PPPort::MY_CXT_CLONE());
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/SvREFCNT.t b/3.8.8/sources/cpan-Devel-PPPort/vendor/t/SvREFCNT.t
deleted file mode 100644
index 0b46a51..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/SvREFCNT.t
+++ /dev/null
@@ -1,54 +0,0 @@
-################################################################################
-#
-# !!!!! Do NOT edit this file directly! !!!!!
-#
-# Edit mktests.PL and/or parts/inc/SvREFCNT instead.
-#
-# This file was automatically generated from the definition files in the
-# parts/inc/ subdirectory by mktests.PL. To learn more about how all this
-# works, please read the F<HACKERS> file that came with this distribution.
-#
-################################################################################
-
-BEGIN {
- if ($ENV{'PERL_CORE'}) {
- chdir 't' if -d 't';
- @INC = ('../lib', '../ext/Devel-PPPort/t') if -d '../lib' && -d '../ext';
- require Config; import Config;
- use vars '%Config';
- if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
- print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
- exit 0;
- }
- }
- else {
- unshift @INC, 't';
- }
-
- sub load {
- eval "use Test";
- require 'testutil.pl' if $@;
- }
-
- if (14) {
- load();
- plan(tests => 14);
- }
-}
-
-use Devel::PPPort;
-use strict;
-$^W = 1;
-
-package Devel::PPPort;
-use vars '@ISA';
-require DynaLoader;
- at ISA = qw(DynaLoader);
-bootstrap Devel::PPPort;
-
-package main;
-
-for (Devel::PPPort::SvREFCNT()) {
- ok(defined $_ and $_);
-}
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/Sv_set.t b/3.8.8/sources/cpan-Devel-PPPort/vendor/t/Sv_set.t
deleted file mode 100644
index 77a7a86..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/Sv_set.t
+++ /dev/null
@@ -1,71 +0,0 @@
-################################################################################
-#
-# !!!!! Do NOT edit this file directly! !!!!!
-#
-# Edit mktests.PL and/or parts/inc/Sv_set instead.
-#
-# This file was automatically generated from the definition files in the
-# parts/inc/ subdirectory by mktests.PL. To learn more about how all this
-# works, please read the F<HACKERS> file that came with this distribution.
-#
-################################################################################
-
-BEGIN {
- if ($ENV{'PERL_CORE'}) {
- chdir 't' if -d 't';
- @INC = ('../lib', '../ext/Devel-PPPort/t') if -d '../lib' && -d '../ext';
- require Config; import Config;
- use vars '%Config';
- if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
- print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
- exit 0;
- }
- }
- else {
- unshift @INC, 't';
- }
-
- sub load {
- eval "use Test";
- require 'testutil.pl' if $@;
- }
-
- if (5) {
- load();
- plan(tests => 5);
- }
-}
-
-use Devel::PPPort;
-use strict;
-$^W = 1;
-
-package Devel::PPPort;
-use vars '@ISA';
-require DynaLoader;
- at ISA = qw(DynaLoader);
-bootstrap Devel::PPPort;
-
-package main;
-
-my $foo = 5;
-ok(&Devel::PPPort::TestSvUV_set($foo, 12345), 42);
-ok(&Devel::PPPort::TestSvPVX_const("mhx"), 43);
-ok(&Devel::PPPort::TestSvPVX_mutable("mhx"), 44);
-
-my $bar = [];
-
-bless $bar, 'foo';
-ok($bar->x(), 'foobar');
-
-Devel::PPPort::TestSvSTASH_set($bar, 'bar');
-ok($bar->x(), 'hacker');
-
-package foo;
-
-sub x { 'foobar' }
-
-package bar;
-
-sub x { 'hacker' }
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/cop.t b/3.8.8/sources/cpan-Devel-PPPort/vendor/t/cop.t
deleted file mode 100644
index 1162a5e..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/cop.t
+++ /dev/null
@@ -1,62 +0,0 @@
-################################################################################
-#
-# !!!!! Do NOT edit this file directly! !!!!!
-#
-# Edit mktests.PL and/or parts/inc/cop instead.
-#
-# This file was automatically generated from the definition files in the
-# parts/inc/ subdirectory by mktests.PL. To learn more about how all this
-# works, please read the F<HACKERS> file that came with this distribution.
-#
-################################################################################
-
-BEGIN {
- if ($ENV{'PERL_CORE'}) {
- chdir 't' if -d 't';
- @INC = ('../lib', '../ext/Devel-PPPort/t') if -d '../lib' && -d '../ext';
- require Config; import Config;
- use vars '%Config';
- if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
- print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
- exit 0;
- }
- }
- else {
- unshift @INC, 't';
- }
-
- sub load {
- eval "use Test";
- require 'testutil.pl' if $@;
- }
-
- if (2) {
- load();
- plan(tests => 2);
- }
-}
-
-use Devel::PPPort;
-use strict;
-$^W = 1;
-
-package Devel::PPPort;
-use vars '@ISA';
-require DynaLoader;
- at ISA = qw(DynaLoader);
-bootstrap Devel::PPPort;
-
-package main;
-
-my $package;
-{
- package MyPackage;
- $package = &Devel::PPPort::CopSTASHPV();
-}
-print "# $package\n";
-ok($package, "MyPackage");
-
-my $file = &Devel::PPPort::CopFILE();
-print "# $file\n";
-ok($file =~ /cop/i);
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/exception.t b/3.8.8/sources/cpan-Devel-PPPort/vendor/t/exception.t
deleted file mode 100644
index c432df6..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/exception.t
+++ /dev/null
@@ -1,67 +0,0 @@
-################################################################################
-#
-# !!!!! Do NOT edit this file directly! !!!!!
-#
-# Edit mktests.PL and/or parts/inc/exception instead.
-#
-# This file was automatically generated from the definition files in the
-# parts/inc/ subdirectory by mktests.PL. To learn more about how all this
-# works, please read the F<HACKERS> file that came with this distribution.
-#
-################################################################################
-
-BEGIN {
- if ($ENV{'PERL_CORE'}) {
- chdir 't' if -d 't';
- @INC = ('../lib', '../ext/Devel-PPPort/t') if -d '../lib' && -d '../ext';
- require Config; import Config;
- use vars '%Config';
- if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
- print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
- exit 0;
- }
- }
- else {
- unshift @INC, 't';
- }
-
- sub load {
- eval "use Test";
- require 'testutil.pl' if $@;
- }
-
- if (7) {
- load();
- plan(tests => 7);
- }
-}
-
-use Devel::PPPort;
-use strict;
-$^W = 1;
-
-package Devel::PPPort;
-use vars '@ISA';
-require DynaLoader;
- at ISA = qw(DynaLoader);
-bootstrap Devel::PPPort;
-
-package main;
-
-my $rv;
-
-$Devel::PPPort::exception_caught = undef;
-
-$rv = eval { &Devel::PPPort::exception(0) };
-ok($@, '');
-ok(defined $rv);
-ok($rv, 42);
-ok($Devel::PPPort::exception_caught, 0);
-
-$Devel::PPPort::exception_caught = undef;
-
-$rv = eval { &Devel::PPPort::exception(1) };
-ok($@, "boo\n");
-ok(not defined $rv);
-ok($Devel::PPPort::exception_caught, 1);
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/limits.t b/3.8.8/sources/cpan-Devel-PPPort/vendor/t/limits.t
deleted file mode 100644
index ed1cb2e..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/limits.t
+++ /dev/null
@@ -1,55 +0,0 @@
-################################################################################
-#
-# !!!!! Do NOT edit this file directly! !!!!!
-#
-# Edit mktests.PL and/or parts/inc/limits instead.
-#
-# This file was automatically generated from the definition files in the
-# parts/inc/ subdirectory by mktests.PL. To learn more about how all this
-# works, please read the F<HACKERS> file that came with this distribution.
-#
-################################################################################
-
-BEGIN {
- if ($ENV{'PERL_CORE'}) {
- chdir 't' if -d 't';
- @INC = ('../lib', '../ext/Devel-PPPort/t') if -d '../lib' && -d '../ext';
- require Config; import Config;
- use vars '%Config';
- if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
- print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
- exit 0;
- }
- }
- else {
- unshift @INC, 't';
- }
-
- sub load {
- eval "use Test";
- require 'testutil.pl' if $@;
- }
-
- if (4) {
- load();
- plan(tests => 4);
- }
-}
-
-use Devel::PPPort;
-use strict;
-$^W = 1;
-
-package Devel::PPPort;
-use vars '@ISA';
-require DynaLoader;
- at ISA = qw(DynaLoader);
-bootstrap Devel::PPPort;
-
-package main;
-
-ok(&Devel::PPPort::iv_size());
-ok(&Devel::PPPort::uv_size());
-ok(&Devel::PPPort::iv_type());
-ok(&Devel::PPPort::uv_type());
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/magic.t b/3.8.8/sources/cpan-Devel-PPPort/vendor/t/magic.t
deleted file mode 100644
index 23b19ed..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/magic.t
+++ /dev/null
@@ -1,95 +0,0 @@
-################################################################################
-#
-# !!!!! Do NOT edit this file directly! !!!!!
-#
-# Edit mktests.PL and/or parts/inc/magic instead.
-#
-# This file was automatically generated from the definition files in the
-# parts/inc/ subdirectory by mktests.PL. To learn more about how all this
-# works, please read the F<HACKERS> file that came with this distribution.
-#
-################################################################################
-
-BEGIN {
- if ($ENV{'PERL_CORE'}) {
- chdir 't' if -d 't';
- @INC = ('../lib', '../ext/Devel-PPPort/t') if -d '../lib' && -d '../ext';
- require Config; import Config;
- use vars '%Config';
- if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
- print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
- exit 0;
- }
- }
- else {
- unshift @INC, 't';
- }
-
- sub load {
- eval "use Test";
- require 'testutil.pl' if $@;
- }
-
- if (15) {
- load();
- plan(tests => 15);
- }
-}
-
-use Devel::PPPort;
-use strict;
-$^W = 1;
-
-package Devel::PPPort;
-use vars '@ISA';
-require DynaLoader;
- at ISA = qw(DynaLoader);
-bootstrap Devel::PPPort;
-
-package main;
-
-use Tie::Hash;
-my %h;
-tie %h, 'Tie::StdHash';
-$h{foo} = 'foo';
-$h{bar} = '';
-
-&Devel::PPPort::sv_catpv_mg($h{foo}, 'bar');
-ok($h{foo}, 'foobar');
-
-&Devel::PPPort::sv_catpvn_mg($h{bar}, 'baz');
-ok($h{bar}, 'baz');
-
-&Devel::PPPort::sv_catsv_mg($h{foo}, '42');
-ok($h{foo}, 'foobar42');
-
-&Devel::PPPort::sv_setiv_mg($h{bar}, 42);
-ok($h{bar}, 42);
-
-&Devel::PPPort::sv_setnv_mg($h{PI}, 3.14159);
-ok(abs($h{PI} - 3.14159) < 0.01);
-
-&Devel::PPPort::sv_setpv_mg($h{mhx}, 'mhx');
-ok($h{mhx}, 'mhx');
-
-&Devel::PPPort::sv_setpvn_mg($h{mhx}, 'Marcus');
-ok($h{mhx}, 'Marcus');
-
-&Devel::PPPort::sv_setsv_mg($h{sv}, 'SV');
-ok($h{sv}, 'SV');
-
-&Devel::PPPort::sv_setuv_mg($h{sv}, 4711);
-ok($h{sv}, 4711);
-
-&Devel::PPPort::sv_usepvn_mg($h{sv}, 'Perl');
-ok($h{sv}, 'Perl');
-
-my $ver = eval qq[qv("v1.2.0")];
-ok($[ < 5.009 || $@ eq '');
-ok($@ || Devel::PPPort::SvVSTRING_mg($ver));
-ok(!Devel::PPPort::SvVSTRING_mg(4711));
-
-my $foo = 'bar';
-ok(Devel::PPPort::sv_magic_portable($foo));
-ok($foo eq 'bar');
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/memory.t b/3.8.8/sources/cpan-Devel-PPPort/vendor/t/memory.t
deleted file mode 100644
index 501b819..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/memory.t
+++ /dev/null
@@ -1,52 +0,0 @@
-################################################################################
-#
-# !!!!! Do NOT edit this file directly! !!!!!
-#
-# Edit mktests.PL and/or parts/inc/memory instead.
-#
-# This file was automatically generated from the definition files in the
-# parts/inc/ subdirectory by mktests.PL. To learn more about how all this
-# works, please read the F<HACKERS> file that came with this distribution.
-#
-################################################################################
-
-BEGIN {
- if ($ENV{'PERL_CORE'}) {
- chdir 't' if -d 't';
- @INC = ('../lib', '../ext/Devel-PPPort/t') if -d '../lib' && -d '../ext';
- require Config; import Config;
- use vars '%Config';
- if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
- print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
- exit 0;
- }
- }
- else {
- unshift @INC, 't';
- }
-
- sub load {
- eval "use Test";
- require 'testutil.pl' if $@;
- }
-
- if (1) {
- load();
- plan(tests => 1);
- }
-}
-
-use Devel::PPPort;
-use strict;
-$^W = 1;
-
-package Devel::PPPort;
-use vars '@ISA';
-require DynaLoader;
- at ISA = qw(DynaLoader);
-bootstrap Devel::PPPort;
-
-package main;
-
-ok(Devel::PPPort::checkmem(), 4);
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/newSVpv.t b/3.8.8/sources/cpan-Devel-PPPort/vendor/t/newSVpv.t
deleted file mode 100644
index d14a53f..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/newSVpv.t
+++ /dev/null
@@ -1,78 +0,0 @@
-################################################################################
-#
-# !!!!! Do NOT edit this file directly! !!!!!
-#
-# Edit mktests.PL and/or parts/inc/newSVpv instead.
-#
-# This file was automatically generated from the definition files in the
-# parts/inc/ subdirectory by mktests.PL. To learn more about how all this
-# works, please read the F<HACKERS> file that came with this distribution.
-#
-################################################################################
-
-BEGIN {
- if ($ENV{'PERL_CORE'}) {
- chdir 't' if -d 't';
- @INC = ('../lib', '../ext/Devel-PPPort/t') if -d '../lib' && -d '../ext';
- require Config; import Config;
- use vars '%Config';
- if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
- print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
- exit 0;
- }
- }
- else {
- unshift @INC, 't';
- }
-
- sub load {
- eval "use Test";
- require 'testutil.pl' if $@;
- }
-
- if (15) {
- load();
- plan(tests => 15);
- }
-}
-
-use Devel::PPPort;
-use strict;
-$^W = 1;
-
-package Devel::PPPort;
-use vars '@ISA';
-require DynaLoader;
- at ISA = qw(DynaLoader);
-bootstrap Devel::PPPort;
-
-package main;
-
-my @s = &Devel::PPPort::newSVpvn();
-ok(@s == 5);
-ok($s[0], "test");
-ok($s[1], "te");
-ok($s[2], "");
-ok(!defined($s[3]));
-ok(!defined($s[4]));
-
- at s = &Devel::PPPort::newSVpvn_flags();
-ok(@s == 5);
-ok($s[0], "test");
-ok($s[1], "te");
-ok($s[2], "");
-ok(!defined($s[3]));
-ok(!defined($s[4]));
-
- at s = &Devel::PPPort::newSVpvn_utf8();
-ok(@s == 1);
-ok($s[0], "test");
-
-if ($] >= 5.008001) {
- require utf8;
- ok(utf8::is_utf8($s[0]));
-}
-else {
- skip("skip: no is_utf8()", 0);
-}
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/snprintf.t b/3.8.8/sources/cpan-Devel-PPPort/vendor/t/snprintf.t
deleted file mode 100644
index 0b90004..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/snprintf.t
+++ /dev/null
@@ -1,54 +0,0 @@
-################################################################################
-#
-# !!!!! Do NOT edit this file directly! !!!!!
-#
-# Edit mktests.PL and/or parts/inc/snprintf instead.
-#
-# This file was automatically generated from the definition files in the
-# parts/inc/ subdirectory by mktests.PL. To learn more about how all this
-# works, please read the F<HACKERS> file that came with this distribution.
-#
-################################################################################
-
-BEGIN {
- if ($ENV{'PERL_CORE'}) {
- chdir 't' if -d 't';
- @INC = ('../lib', '../ext/Devel-PPPort/t') if -d '../lib' && -d '../ext';
- require Config; import Config;
- use vars '%Config';
- if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
- print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
- exit 0;
- }
- }
- else {
- unshift @INC, 't';
- }
-
- sub load {
- eval "use Test";
- require 'testutil.pl' if $@;
- }
-
- if (2) {
- load();
- plan(tests => 2);
- }
-}
-
-use Devel::PPPort;
-use strict;
-$^W = 1;
-
-package Devel::PPPort;
-use vars '@ISA';
-require DynaLoader;
- at ISA = qw(DynaLoader);
-bootstrap Devel::PPPort;
-
-package main;
-
-my($l, $s) = Devel::PPPort::my_snprintf();
-ok($l, 8);
-ok($s, "foobar42");
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/sprintf.t b/3.8.8/sources/cpan-Devel-PPPort/vendor/t/sprintf.t
deleted file mode 100644
index 8b0d51f..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/sprintf.t
+++ /dev/null
@@ -1,54 +0,0 @@
-################################################################################
-#
-# !!!!! Do NOT edit this file directly! !!!!!
-#
-# Edit mktests.PL and/or parts/inc/sprintf instead.
-#
-# This file was automatically generated from the definition files in the
-# parts/inc/ subdirectory by mktests.PL. To learn more about how all this
-# works, please read the F<HACKERS> file that came with this distribution.
-#
-################################################################################
-
-BEGIN {
- if ($ENV{'PERL_CORE'}) {
- chdir 't' if -d 't';
- @INC = ('../lib', '../ext/Devel-PPPort/t') if -d '../lib' && -d '../ext';
- require Config; import Config;
- use vars '%Config';
- if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
- print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
- exit 0;
- }
- }
- else {
- unshift @INC, 't';
- }
-
- sub load {
- eval "use Test";
- require 'testutil.pl' if $@;
- }
-
- if (2) {
- load();
- plan(tests => 2);
- }
-}
-
-use Devel::PPPort;
-use strict;
-$^W = 1;
-
-package Devel::PPPort;
-use vars '@ISA';
-require DynaLoader;
- at ISA = qw(DynaLoader);
-bootstrap Devel::PPPort;
-
-package main;
-
-my($l, $s) = Devel::PPPort::my_sprintf();
-ok($l, 8);
-ok($s, "foobar42");
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/strlfuncs.t b/3.8.8/sources/cpan-Devel-PPPort/vendor/t/strlfuncs.t
deleted file mode 100644
index c817547..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/strlfuncs.t
+++ /dev/null
@@ -1,65 +0,0 @@
-################################################################################
-#
-# !!!!! Do NOT edit this file directly! !!!!!
-#
-# Edit mktests.PL and/or parts/inc/strlfuncs instead.
-#
-# This file was automatically generated from the definition files in the
-# parts/inc/ subdirectory by mktests.PL. To learn more about how all this
-# works, please read the F<HACKERS> file that came with this distribution.
-#
-################################################################################
-
-BEGIN {
- if ($ENV{'PERL_CORE'}) {
- chdir 't' if -d 't';
- @INC = ('../lib', '../ext/Devel-PPPort/t') if -d '../lib' && -d '../ext';
- require Config; import Config;
- use vars '%Config';
- if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
- print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
- exit 0;
- }
- }
- else {
- unshift @INC, 't';
- }
-
- sub load {
- eval "use Test";
- require 'testutil.pl' if $@;
- }
-
- if (13) {
- load();
- plan(tests => 13);
- }
-}
-
-use Devel::PPPort;
-use strict;
-$^W = 1;
-
-package Devel::PPPort;
-use vars '@ISA';
-require DynaLoader;
- at ISA = qw(DynaLoader);
-bootstrap Devel::PPPort;
-
-package main;
-
-my @e = (3, 'foo',
- 6, 'foobar',
- 9, 'foobarb',
- 10, '1234567',
- 4, '1234',
- 16, '1234567',
- );
-my @r = Devel::PPPort::my_strlfunc();
-
-ok(@e == @r);
-
-for (0 .. $#e) {
- ok($r[$_], $e[$_]);
-}
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/testutil.pl b/3.8.8/sources/cpan-Devel-PPPort/vendor/t/testutil.pl
deleted file mode 100644
index 4fc7d66..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/testutil.pl
+++ /dev/null
@@ -1,48 +0,0 @@
-{
- my $__ntest;
- my $__total;
-
- sub plan {
- @_ == 2 or die "usage: plan(tests => count)";
- my $what = shift;
- $what eq 'tests' or die "cannot plan anything but tests";
- $__total = shift;
- defined $__total && $__total > 0 or die "need a positive number of tests";
- print "1..$__total\n";
- }
-
- sub skip {
- my $reason = shift;
- ++$__ntest;
- print "ok $__ntest # skip: $reason\n"
- }
-
- sub ok ($;$$) {
- local($\,$,);
- my $ok = 0;
- my $result = shift;
- if (@_ == 0) {
- $ok = $result;
- } else {
- $expected = shift;
- if (!defined $expected) {
- $ok = !defined $result;
- } elsif (!defined $result) {
- $ok = 0;
- } elsif (ref($expected) eq 'Regexp') {
- die "using regular expression objects is not backwards compatible";
- } else {
- $ok = $result eq $expected;
- }
- }
- ++$__ntest;
- if ($ok) {
- print "ok $__ntest\n"
- }
- else {
- print "not ok $__ntest\n"
- }
- }
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/threads.t b/3.8.8/sources/cpan-Devel-PPPort/vendor/t/threads.t
deleted file mode 100644
index a1c8caa..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/threads.t
+++ /dev/null
@@ -1,54 +0,0 @@
-################################################################################
-#
-# !!!!! Do NOT edit this file directly! !!!!!
-#
-# Edit mktests.PL and/or parts/inc/threads instead.
-#
-# This file was automatically generated from the definition files in the
-# parts/inc/ subdirectory by mktests.PL. To learn more about how all this
-# works, please read the F<HACKERS> file that came with this distribution.
-#
-################################################################################
-
-BEGIN {
- if ($ENV{'PERL_CORE'}) {
- chdir 't' if -d 't';
- @INC = ('../lib', '../ext/Devel-PPPort/t') if -d '../lib' && -d '../ext';
- require Config; import Config;
- use vars '%Config';
- if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
- print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
- exit 0;
- }
- }
- else {
- unshift @INC, 't';
- }
-
- sub load {
- eval "use Test";
- require 'testutil.pl' if $@;
- }
-
- if (2) {
- load();
- plan(tests => 2);
- }
-}
-
-use Devel::PPPort;
-use strict;
-$^W = 1;
-
-package Devel::PPPort;
-use vars '@ISA';
-require DynaLoader;
- at ISA = qw(DynaLoader);
-bootstrap Devel::PPPort;
-
-package main;
-
-ok(&Devel::PPPort::no_THX_arg("42"), 43);
-eval { &Devel::PPPort::with_THX_arg("yes\n"); };
-ok($@ =~ /^yes/);
-
diff --git a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/variables.t b/3.8.8/sources/cpan-Devel-PPPort/vendor/t/variables.t
deleted file mode 100644
index ef1ac8b..0000000
--- a/3.8.8/sources/cpan-Devel-PPPort/vendor/t/variables.t
+++ /dev/null
@@ -1,107 +0,0 @@
-################################################################################
-#
-# !!!!! Do NOT edit this file directly! !!!!!
-#
-# Edit mktests.PL and/or parts/inc/variables instead.
-#
-# This file was automatically generated from the definition files in the
-# parts/inc/ subdirectory by mktests.PL. To learn more about how all this
-# works, please read the F<HACKERS> file that came with this distribution.
-#
-################################################################################
-
-BEGIN {
- if ($ENV{'PERL_CORE'}) {
- chdir 't' if -d 't';
- @INC = ('../lib', '../ext/Devel-PPPort/t') if -d '../lib' && -d '../ext';
- require Config; import Config;
- use vars '%Config';
- if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
- print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
- exit 0;
- }
- }
- else {
- unshift @INC, 't';
- }
-
- sub load {
- eval "use Test";
- require 'testutil.pl' if $@;
- }
-
- if (52) {
- load();
- plan(tests => 52);
- }
-}
-
-use Devel::PPPort;
-use strict;
-$^W = 1;
-
-package Devel::PPPort;
-use vars '@ISA';
-require DynaLoader;
- at ISA = qw(DynaLoader);
-bootstrap Devel::PPPort;
-
-package main;
-
-ok(Devel::PPPort::compare_PL_signals());
-
-ok(!defined(&Devel::PPPort::PL_sv_undef()));
-ok(&Devel::PPPort::PL_sv_yes());
-ok(!&Devel::PPPort::PL_sv_no());
-ok(&Devel::PPPort::PL_na("abcd"), 4);
-ok(&Devel::PPPort::PL_Sv(), "mhx");
-ok(defined &Devel::PPPort::PL_tokenbuf());
-ok($] >= 5.009005 || &Devel::PPPort::PL_parser());
-ok(&Devel::PPPort::PL_hexdigit() =~ /^[0-9a-zA-Z]+$/);
-ok(defined &Devel::PPPort::PL_hints());
-ok(&Devel::PPPort::PL_ppaddr("mhx"), "MHX");
-
-for (&Devel::PPPort::other_variables()) {
- ok($_ != 0);
-}
-
-{
- my @w;
- my $fail = 0;
- {
- local $SIG{'__WARN__'} = sub { push @w, @_ };
- ok(&Devel::PPPort::dummy_parser_warning());
- }
- if ($] >= 5.009005) {
- ok(@w >= 0);
- for (@w) {
- print "# $_";
- unless (/^warning: dummy PL_bufptr used in.*module3.*:\d+/i) {
- warn $_;
- $fail++;
- }
- }
- }
- else {
- ok(@w == 0);
- }
- ok($fail, 0);
-}
-
-ok(&Devel::PPPort::no_dummy_parser_vars(1) >= ($] < 5.009005 ? 1 : 0));
-
-eval { &Devel::PPPort::no_dummy_parser_vars(0) };
-
-if ($] < 5.009005) {
- ok($@, '');
-}
-else {
- if ($@) {
- print "# $@";
- ok($@ =~ /^panic: PL_parser == NULL in.*module2.*:\d+/i);
- }
- else {
- ok(1);
- }
-}
-
diff --git a/3.8.8/sources/cpan-Devel-Symdump/vendor/MANIFEST b/3.8.8/sources/cpan-Devel-Symdump/vendor/MANIFEST
deleted file mode 100644
index c7a5163..0000000
--- a/3.8.8/sources/cpan-Devel-Symdump/vendor/MANIFEST
+++ /dev/null
@@ -1,17 +0,0 @@
-ChangeLog
-ChangeLog.svn
-MANIFEST
-Makefile.PL
-README
-lib/Devel/Symdump.pm
-lib/Devel/Symdump/Export.pm
-t/autogen.t
-t/diff.t
-t/export.t
-t/pod.t
-t/podcover.t
-t/recur.t
-t/symdump.t
-t/tree.t
-META.yml Module meta-data (added by MakeMaker)
-SIGNATURE Public-key signature (added by MakeMaker)
diff --git a/3.8.8/sources/cpan-Devel-Symdump/vendor/README b/3.8.8/sources/cpan-Devel-Symdump/vendor/README
deleted file mode 100644
index 6f89aa2..0000000
--- a/3.8.8/sources/cpan-Devel-Symdump/vendor/README
+++ /dev/null
@@ -1,140 +0,0 @@
-NAME
- Devel::Symdump - dump symbol names or the symbol table
-
-SYNOPSIS
- # Constructor
- require Devel::Symdump;
- @packs = qw(some_package another_package);
- $obj = Devel::Symdump->new(@packs); # no recursion
- $obj = Devel::Symdump->rnew(@packs); # with recursion
-
- # Methods
- @array = $obj->packages;
- @array = $obj->scalars;
- @array = $obj->arrays;
- @array = $obj->hashes;
- @array = $obj->functions;
- @array = $obj->filehandles; # deprecated, use ios instead
- @array = $obj->dirhandles; # deprecated, use ios instead
- @array = $obj->ios;
- @array = $obj->unknowns; # only perl version < 5.003 had some
-
- $string = $obj->as_string;
- $string = $obj->as_HTML;
- $string = $obj1->diff($obj2);
-
- $string = Devel::Symdump->isa_tree; # or $obj->isa_tree
- $string = Devel::Symdump->inh_tree; # or $obj->inh_tree
-
- # Methods with autogenerated objects
- # all of those call new(@packs) internally
- @array = Devel::Symdump->packages(@packs);
- @array = Devel::Symdump->scalars(@packs);
- @array = Devel::Symdump->arrays(@packs);
- @array = Devel::Symdump->hashes(@packs);
- @array = Devel::Symdump->functions(@packs);
- @array = Devel::Symdump->ios(@packs);
- @array = Devel::Symdump->unknowns(@packs);
-
-DESCRIPTION
- This little package serves to access the symbol table of perl.
-
- "Devel::Symdump->rnew(@packages)"
- returns a symbol table object for all subtrees below @packages.
- Nested Modules are analyzed recursively. If no package is given as
- argument, it defaults to "main". That means to get the whole symbol
- table, just do a "rnew" without arguments.
-
- The global variable $Devel::Symdump::MAX_RECURSION limits the
- recursion to prevent contention. The default value is set to 97,
- just low enough to survive the test suite without a warning about
- deep recursion.
-
- "Devel::Symdump->new(@packages)"
- does not go into recursion and only analyzes the packages that are
- given as arguments.
-
- packages, scalars, arrays, hashes, functions, ios
- The methods packages(), scalars(), arrays(), hashes(), functions(),
- ios(), and (for older perls) unknowns() each return an array of
- fully qualified symbols of the specified type in all packages that
- are held within a Devel::Symdump object, but without the leading
- "$", "@" or "%". In a scalar context, they will return the number of
- such symbols. Unknown symbols are usually either formats or
- variables that haven't yet got a defined value.
-
- as_string
- as_HTML
- As_string() and as_HTML() return a simple string/HTML
- representations of the object.
-
- diff
- Diff() prints the difference between two Devel::Symdump objects in
- human readable form. The format is similar to the one used by the
- as_string method.
-
- isa_tree
- inh_tree
- Isa_tree() and inh_tree() both return a simple string representation
- of the current inheritance tree. The difference between the two
- methods is the direction from which the tree is viewed: top-down or
- bottom-up. As I'm sure, many users will have different expectation
- about what is top and what is bottom, I'll provide an example what
- happens when the Socket module is loaded:
-
- % print Devel::Symdump->inh_tree
- AutoLoader
- DynaLoader
- Socket
- DynaLoader
- Socket
- Exporter
- Carp
- Config
- Socket
-
- The inh_tree method shows on the left hand side a package name and
- indented to the right the packages that use the former.
-
- % print Devel::Symdump->isa_tree
- Carp
- Exporter
- Config
- Exporter
- DynaLoader
- AutoLoader
- Socket
- Exporter
- DynaLoader
- AutoLoader
-
- The isa_tree method displays from left to right ISA relationships,
- so Socket IS A DynaLoader and DynaLoader IS A AutoLoader. (Actually,
- they were at the time this manpage was written)
-
- You may call both methods, isa_tree() and inh_tree(), with an object. If
- you do that, the object will store the output and retrieve it when you
- call the same method again later. The typical usage would be to use them
- as class methods directly though.
-
-SUBCLASSING
- The design of this package is intentionally primitive and allows it to
- be subclassed easily. An example of a (maybe) useful subclass is
- Devel::Symdump::Export, a package which exports all methods of the
- Devel::Symdump package and turns them into functions.
-
-AUTHORS
- Andreas Koenig <andk at cpan.org> and Tom Christiansen <tchrist at perl.com>.
- Based on the old dumpvar.pl by Larry Wall.
-
-COPYRIGHT, LICENSE
- This module is
-
- Copyright (c) 1995, 1997, 2000, 2002, 2005, 2006 Andreas Koenig
- "<andk at cpan.org>".
-
- All rights reserved.
-
- This library is free software; you may use, redistribute and/or modify
- it under the same terms as Perl itself.
-
diff --git a/3.8.8/sources/cpan-Devel-Symdump/vendor/t/podcover.t b/3.8.8/sources/cpan-Devel-Symdump/vendor/t/podcover.t
deleted file mode 100644
index 0b81665..0000000
--- a/3.8.8/sources/cpan-Devel-Symdump/vendor/t/podcover.t
+++ /dev/null
@@ -1,5 +0,0 @@
-use Test::More;
-eval "use Test::Pod::Coverage";
-plan skip_all => "Test::Pod::Coverage required for testing pod coverage" if $@;
-plan tests => 1;
-pod_coverage_ok( "Devel::Symdump" );
diff --git a/3.8.8/sources/cpan-Digest-MD5/vendor/MD5.xs b/3.8.8/sources/cpan-Digest-MD5/vendor/MD5.xs
deleted file mode 100644
index a743b05..0000000
--- a/3.8.8/sources/cpan-Digest-MD5/vendor/MD5.xs
+++ /dev/null
@@ -1,731 +0,0 @@
-/*
- * This library is free software; you can redistribute it and/or
- * modify it under the same terms as Perl itself.
- *
- * Copyright 1998-2000 Gisle Aas.
- * Copyright 1995-1996 Neil Winton.
- * Copyright 1991-1992 RSA Data Security, Inc.
- *
- * This code is derived from Neil Winton's MD5-1.7 Perl module, which in
- * turn is derived from the reference implementation in RFC 1321 which
- * comes with this message:
- *
- * 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.
- */
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-#define PERL_NO_GET_CONTEXT /* we want efficiency */
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-#ifdef __cplusplus
-}
-#endif
-
-#ifndef PERL_VERSION
-# include <patchlevel.h>
-# if !(defined(PERL_VERSION) || (SUBVERSION > 0 && defined(PATCHLEVEL)))
-# include <could_not_find_Perl_patchlevel.h>
-# endif
-# define PERL_REVISION 5
-# define PERL_VERSION PATCHLEVEL
-# define PERL_SUBVERSION SUBVERSION
-#endif
-
-#if PERL_VERSION <= 4 && !defined(PL_dowarn)
- #define PL_dowarn dowarn
-#endif
-
-#ifdef G_WARN_ON
- #define DOWARN (PL_dowarn & G_WARN_ON)
-#else
- #define DOWARN PL_dowarn
-#endif
-
-#ifdef SvPVbyte
- #if PERL_REVISION == 5 && PERL_VERSION < 7
- /* SvPVbyte does not work in perl-5.6.1, borrowed version for 5.7.3 */
- #undef SvPVbyte
- #define SvPVbyte(sv, lp) \
- ((SvFLAGS(sv) & (SVf_POK|SVf_UTF8)) == (SVf_POK) \
- ? ((lp = SvCUR(sv)), SvPVX(sv)) : my_sv_2pvbyte(aTHX_ sv, &lp))
-
- static char *
- my_sv_2pvbyte(pTHX_ register SV *sv, STRLEN *lp)
- {
- sv_utf8_downgrade(sv,0);
- return SvPV(sv,*lp);
- }
- #endif
-#else
- #define SvPVbyte SvPV
-#endif
-
-#ifndef dTHX
- #define pTHX_
- #define aTHX_
-#endif
-
-/* Perl does not guarantee that U32 is exactly 32 bits. Some system
- * has no integral type with exactly 32 bits. For instance, A Cray has
- * short, int and long all at 64 bits so we need to apply this macro
- * to reduce U32 values to 32 bits at appropriate places. If U32
- * really does have 32 bits then this is a no-op.
- */
-#if BYTEORDER > 0x4321 || defined(TRUNCATE_U32)
- #define TO32(x) ((x) & 0xFFFFffff)
- #define TRUNC32(x) ((x) &= 0xFFFFffff)
-#else
- #define TO32(x) (x)
- #define TRUNC32(x) /*nothing*/
-#endif
-
-/* The MD5 algorithm is defined in terms of little endian 32-bit
- * values. The following macros (and functions) allow us to convert
- * between native integers and such values.
- */
-#undef BYTESWAP
-#ifndef U32_ALIGNMENT_REQUIRED
- #if BYTEORDER == 0x1234 /* 32-bit little endian */
- #define BYTESWAP(x) (x) /* no-op */
-
- #elif BYTEORDER == 0x4321 /* 32-bit big endian */
- #define BYTESWAP(x) ((((x)&0xFF)<<24) \
- |(((x)>>24)&0xFF) \
- |(((x)&0x0000FF00)<<8) \
- |(((x)&0x00FF0000)>>8) )
- #endif
-#endif
-
-#ifndef BYTESWAP
-static void u2s(U32 u, U8* s)
-{
- *s++ = (U8)(u & 0xFF);
- *s++ = (U8)((u >> 8) & 0xFF);
- *s++ = (U8)((u >> 16) & 0xFF);
- *s = (U8)((u >> 24) & 0xFF);
-}
-
-#define s2u(s,u) ((u) = (U32)(*s) | \
- ((U32)(*(s+1)) << 8) | \
- ((U32)(*(s+2)) << 16) | \
- ((U32)(*(s+3)) << 24))
-#endif
-
-#define MD5_CTX_SIGNATURE 200003165
-
-/* This stucture keeps the current state of algorithm.
- */
-typedef struct {
- U32 signature; /* safer cast in get_md5_ctx() */
- U32 A, B, C, D; /* current digest */
- U32 bytes_low; /* counts bytes in message */
- U32 bytes_high; /* turn it into a 64-bit counter */
- U8 buffer[128]; /* collect complete 64 byte blocks */
-} MD5_CTX;
-
-
-/* Padding is added at the end of the message in order to fill a
- * complete 64 byte block (- 8 bytes for the message length). The
- * padding is also the reason the buffer in MD5_CTX have to be
- * 128 bytes.
- */
-static const unsigned char PADDING[64] = {
- 0x80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
-};
-
-/* Constants for MD5Transform routine.
- */
-#define S11 7
-#define S12 12
-#define S13 17
-#define S14 22
-#define S21 5
-#define S22 9
-#define S23 14
-#define S24 20
-#define S31 4
-#define S32 11
-#define S33 16
-#define S34 23
-#define S41 6
-#define S42 10
-#define S43 15
-#define S44 21
-
-/* F, G, H and I are basic MD5 functions.
- */
-#define F(x, y, z) ((((x) & ((y) ^ (z))) ^ (z)))
-#define G(x, y, z) F(z, x, y)
-#define H(x, y, z) ((x) ^ (y) ^ (z))
-#define I(x, y, z) ((y) ^ ((x) | (~z)))
-
-/* ROTATE_LEFT rotates x left n bits.
- */
-#define ROTATE_LEFT(x, n) (((x) << (n) | ((x) >> (32-(n)))))
-
-/* FF, GG, HH, and II transformations for rounds 1, 2, 3, and 4.
- * Rotation is separate from addition to prevent recomputation.
- */
-#define FF(a, b, c, d, s, ac) \
- (a) += F ((b), (c), (d)) + (NEXTx) + (U32)(ac); \
- TRUNC32((a)); \
- (a) = ROTATE_LEFT ((a), (s)); \
- (a) += (b); \
- TRUNC32((a));
-
-#define GG(a, b, c, d, x, s, ac) \
- (a) += G ((b), (c), (d)) + X[x] + (U32)(ac); \
- TRUNC32((a)); \
- (a) = ROTATE_LEFT ((a), (s)); \
- (a) += (b); \
- TRUNC32((a));
-
-#define HH(a, b, c, d, x, s, ac) \
- (a) += H ((b), (c), (d)) + X[x] + (U32)(ac); \
- TRUNC32((a)); \
- (a) = ROTATE_LEFT ((a), (s)); \
- (a) += (b); \
- TRUNC32((a));
-
-#define II(a, b, c, d, x, s, ac) \
- (a) += I ((b), (c), (d)) + X[x] + (U32)(ac); \
- TRUNC32((a)); \
- (a) = ROTATE_LEFT ((a), (s)); \
- (a) += (b); \
- TRUNC32((a));
-
-
-static void
-MD5Init(MD5_CTX *ctx)
-{
- /* Start state */
- ctx->A = 0x67452301;
- ctx->B = 0xefcdab89;
- ctx->C = 0x98badcfe;
- ctx->D = 0x10325476;
-
- /* message length */
- ctx->bytes_low = ctx->bytes_high = 0;
-}
-
-
-static void
-MD5Transform(MD5_CTX* ctx, const U8* buf, STRLEN blocks)
-{
-#ifdef MD5_DEBUG
- static int tcount = 0;
-#endif
-
- U32 A = ctx->A;
- U32 B = ctx->B;
- U32 C = ctx->C;
- U32 D = ctx->D;
-
-#ifndef U32_ALIGNMENT_REQUIRED
- const U32 *x = (U32*)buf; /* really just type casting */
-#endif
-
- do {
- U32 a = A;
- U32 b = B;
- U32 c = C;
- U32 d = D;
-
-#if BYTEORDER == 0x1234 && !defined(U32_ALIGNMENT_REQUIRED)
- const U32 *X = x;
- #define NEXTx (*x++)
-#else
- U32 X[16]; /* converted values, used in round 2-4 */
- U32 *uptr = X;
- U32 tmp;
- #ifdef BYTESWAP
- #define NEXTx (tmp=*x++, *uptr++ = BYTESWAP(tmp))
- #else
- #define NEXTx (s2u(buf,tmp), buf += 4, *uptr++ = tmp)
- #endif
-#endif
-
-#ifdef MD5_DEBUG
- if (buf == ctx->buffer)
- fprintf(stderr,"%5d: Transform ctx->buffer", ++tcount);
- else
- fprintf(stderr,"%5d: Transform %p (%d)", ++tcount, buf, blocks);
-
- {
- int i;
- fprintf(stderr,"[");
- for (i = 0; i < 16; i++) {
- fprintf(stderr,"%x,", x[i]);
- }
- fprintf(stderr,"]\n");
- }
-#endif
-
- /* Round 1 */
- FF (a, b, c, d, S11, 0xd76aa478); /* 1 */
- FF (d, a, b, c, S12, 0xe8c7b756); /* 2 */
- FF (c, d, a, b, S13, 0x242070db); /* 3 */
- FF (b, c, d, a, S14, 0xc1bdceee); /* 4 */
- FF (a, b, c, d, S11, 0xf57c0faf); /* 5 */
- FF (d, a, b, c, S12, 0x4787c62a); /* 6 */
- FF (c, d, a, b, S13, 0xa8304613); /* 7 */
- FF (b, c, d, a, S14, 0xfd469501); /* 8 */
- FF (a, b, c, d, S11, 0x698098d8); /* 9 */
- FF (d, a, b, c, S12, 0x8b44f7af); /* 10 */
- FF (c, d, a, b, S13, 0xffff5bb1); /* 11 */
- FF (b, c, d, a, S14, 0x895cd7be); /* 12 */
- FF (a, b, c, d, S11, 0x6b901122); /* 13 */
- FF (d, a, b, c, S12, 0xfd987193); /* 14 */
- FF (c, d, a, b, S13, 0xa679438e); /* 15 */
- FF (b, c, d, a, S14, 0x49b40821); /* 16 */
-
- /* Round 2 */
- GG (a, b, c, d, 1, S21, 0xf61e2562); /* 17 */
- GG (d, a, b, c, 6, S22, 0xc040b340); /* 18 */
- GG (c, d, a, b, 11, S23, 0x265e5a51); /* 19 */
- GG (b, c, d, a, 0, S24, 0xe9b6c7aa); /* 20 */
- GG (a, b, c, d, 5, S21, 0xd62f105d); /* 21 */
- GG (d, a, b, c, 10, S22, 0x2441453); /* 22 */
- GG (c, d, a, b, 15, S23, 0xd8a1e681); /* 23 */
- GG (b, c, d, a, 4, S24, 0xe7d3fbc8); /* 24 */
- GG (a, b, c, d, 9, S21, 0x21e1cde6); /* 25 */
- GG (d, a, b, c, 14, S22, 0xc33707d6); /* 26 */
- GG (c, d, a, b, 3, S23, 0xf4d50d87); /* 27 */
- GG (b, c, d, a, 8, S24, 0x455a14ed); /* 28 */
- GG (a, b, c, d, 13, S21, 0xa9e3e905); /* 29 */
- GG (d, a, b, c, 2, S22, 0xfcefa3f8); /* 30 */
- GG (c, d, a, b, 7, S23, 0x676f02d9); /* 31 */
- GG (b, c, d, a, 12, S24, 0x8d2a4c8a); /* 32 */
-
- /* Round 3 */
- HH (a, b, c, d, 5, S31, 0xfffa3942); /* 33 */
- HH (d, a, b, c, 8, S32, 0x8771f681); /* 34 */
- HH (c, d, a, b, 11, S33, 0x6d9d6122); /* 35 */
- HH (b, c, d, a, 14, S34, 0xfde5380c); /* 36 */
- HH (a, b, c, d, 1, S31, 0xa4beea44); /* 37 */
- HH (d, a, b, c, 4, S32, 0x4bdecfa9); /* 38 */
- HH (c, d, a, b, 7, S33, 0xf6bb4b60); /* 39 */
- HH (b, c, d, a, 10, S34, 0xbebfbc70); /* 40 */
- HH (a, b, c, d, 13, S31, 0x289b7ec6); /* 41 */
- HH (d, a, b, c, 0, S32, 0xeaa127fa); /* 42 */
- HH (c, d, a, b, 3, S33, 0xd4ef3085); /* 43 */
- HH (b, c, d, a, 6, S34, 0x4881d05); /* 44 */
- HH (a, b, c, d, 9, S31, 0xd9d4d039); /* 45 */
- HH (d, a, b, c, 12, S32, 0xe6db99e5); /* 46 */
- HH (c, d, a, b, 15, S33, 0x1fa27cf8); /* 47 */
- HH (b, c, d, a, 2, S34, 0xc4ac5665); /* 48 */
-
- /* Round 4 */
- II (a, b, c, d, 0, S41, 0xf4292244); /* 49 */
- II (d, a, b, c, 7, S42, 0x432aff97); /* 50 */
- II (c, d, a, b, 14, S43, 0xab9423a7); /* 51 */
- II (b, c, d, a, 5, S44, 0xfc93a039); /* 52 */
- II (a, b, c, d, 12, S41, 0x655b59c3); /* 53 */
- II (d, a, b, c, 3, S42, 0x8f0ccc92); /* 54 */
- II (c, d, a, b, 10, S43, 0xffeff47d); /* 55 */
- II (b, c, d, a, 1, S44, 0x85845dd1); /* 56 */
- II (a, b, c, d, 8, S41, 0x6fa87e4f); /* 57 */
- II (d, a, b, c, 15, S42, 0xfe2ce6e0); /* 58 */
- II (c, d, a, b, 6, S43, 0xa3014314); /* 59 */
- II (b, c, d, a, 13, S44, 0x4e0811a1); /* 60 */
- II (a, b, c, d, 4, S41, 0xf7537e82); /* 61 */
- II (d, a, b, c, 11, S42, 0xbd3af235); /* 62 */
- II (c, d, a, b, 2, S43, 0x2ad7d2bb); /* 63 */
- II (b, c, d, a, 9, S44, 0xeb86d391); /* 64 */
-
- A += a; TRUNC32(A);
- B += b; TRUNC32(B);
- C += c; TRUNC32(C);
- D += d; TRUNC32(D);
-
- } while (--blocks);
- ctx->A = A;
- ctx->B = B;
- ctx->C = C;
- ctx->D = D;
-}
-
-
-#ifdef MD5_DEBUG
-static char*
-ctx_dump(MD5_CTX* ctx)
-{
- static char buf[1024];
- sprintf(buf, "{A=%x,B=%x,C=%x,D=%x,%d,%d(%d)}",
- ctx->A, ctx->B, ctx->C, ctx->D,
- ctx->bytes_low, ctx->bytes_high, (ctx->bytes_low&0x3F));
- return buf;
-}
-#endif
-
-
-static void
-MD5Update(MD5_CTX* ctx, const U8* buf, STRLEN len)
-{
- STRLEN blocks;
- STRLEN fill = ctx->bytes_low & 0x3F;
-
-#ifdef MD5_DEBUG
- static int ucount = 0;
- fprintf(stderr,"%5i: Update(%s, %p, %d)\n", ++ucount, ctx_dump(ctx),
- buf, len);
-#endif
-
- ctx->bytes_low += len;
- if (ctx->bytes_low < len) /* wrap around */
- ctx->bytes_high++;
-
- if (fill) {
- STRLEN missing = 64 - fill;
- if (len < missing) {
- Copy(buf, ctx->buffer + fill, len, U8);
- return;
- }
- Copy(buf, ctx->buffer + fill, missing, U8);
- MD5Transform(ctx, ctx->buffer, 1);
- buf += missing;
- len -= missing;
- }
-
- blocks = len >> 6;
- if (blocks)
- MD5Transform(ctx, buf, blocks);
- if ( (len &= 0x3F)) {
- Copy(buf + (blocks << 6), ctx->buffer, len, U8);
- }
-}
-
-
-static void
-MD5Final(U8* digest, MD5_CTX *ctx)
-{
- STRLEN fill = ctx->bytes_low & 0x3F;
- STRLEN padlen = (fill < 56 ? 56 : 120) - fill;
- U32 bits_low, bits_high;
-#ifdef MD5_DEBUG
- fprintf(stderr," Final: %s\n", ctx_dump(ctx));
-#endif
- Copy(PADDING, ctx->buffer + fill, padlen, U8);
- fill += padlen;
-
- bits_low = ctx->bytes_low << 3;
- bits_high = (ctx->bytes_high << 3) | (ctx->bytes_low >> 29);
-#ifdef BYTESWAP
- *(U32*)(ctx->buffer + fill) = BYTESWAP(bits_low); fill += 4;
- *(U32*)(ctx->buffer + fill) = BYTESWAP(bits_high); fill += 4;
-#else
- u2s(bits_low, ctx->buffer + fill); fill += 4;
- u2s(bits_high, ctx->buffer + fill); fill += 4;
-#endif
-
- MD5Transform(ctx, ctx->buffer, fill >> 6);
-#ifdef MD5_DEBUG
- fprintf(stderr," Result: %s\n", ctx_dump(ctx));
-#endif
-
-#ifdef BYTESWAP
- *(U32*)digest = BYTESWAP(ctx->A); digest += 4;
- *(U32*)digest = BYTESWAP(ctx->B); digest += 4;
- *(U32*)digest = BYTESWAP(ctx->C); digest += 4;
- *(U32*)digest = BYTESWAP(ctx->D);
-#else
- u2s(ctx->A, digest);
- u2s(ctx->B, digest+4);
- u2s(ctx->C, digest+8);
- u2s(ctx->D, digest+12);
-#endif
-}
-
-#ifndef INT2PTR
-#define INT2PTR(any,d) (any)(d)
-#endif
-
-static MD5_CTX* get_md5_ctx(pTHX_ SV* sv)
-{
- if (SvROK(sv)) {
- sv = SvRV(sv);
- if (SvIOK(sv)) {
- MD5_CTX* ctx = INT2PTR(MD5_CTX*, SvIV(sv));
- if (ctx && ctx->signature == MD5_CTX_SIGNATURE) {
- return ctx;
- }
- }
- }
- croak("Not a reference to a Digest::MD5 object");
- return (MD5_CTX*)0; /* some compilers insist on a return value */
-}
-
-
-static char* hex_16(const unsigned char* from, char* to)
-{
- static const char hexdigits[] = "0123456789abcdef";
- const unsigned char *end = from + 16;
- char *d = to;
-
- while (from < end) {
- *d++ = hexdigits[(*from >> 4)];
- *d++ = hexdigits[(*from & 0x0F)];
- from++;
- }
- *d = '\0';
- return to;
-}
-
-static char* base64_16(const unsigned char* from, char* to)
-{
- static const char base64[] =
- "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
- const unsigned char *end = from + 16;
- unsigned char c1, c2, c3;
- char *d = to;
-
- while (1) {
- c1 = *from++;
- *d++ = base64[c1>>2];
- if (from == end) {
- *d++ = base64[(c1 & 0x3) << 4];
- break;
- }
- c2 = *from++;
- c3 = *from++;
- *d++ = base64[((c1 & 0x3) << 4) | ((c2 & 0xF0) >> 4)];
- *d++ = base64[((c2 & 0xF) << 2) | ((c3 & 0xC0) >>6)];
- *d++ = base64[c3 & 0x3F];
- }
- *d = '\0';
- return to;
-}
-
-/* Formats */
-#define F_BIN 0
-#define F_HEX 1
-#define F_B64 2
-
-static SV* make_mortal_sv(pTHX_ const unsigned char *src, int type)
-{
- STRLEN len;
- char result[33];
- char *ret;
-
- switch (type) {
- case F_BIN:
- ret = (char*)src;
- len = 16;
- break;
- case F_HEX:
- ret = hex_16(src, result);
- len = 32;
- break;
- case F_B64:
- ret = base64_16(src, result);
- len = 22;
- break;
- default:
- croak("Bad convertion type (%d)", type);
- break;
- }
- return sv_2mortal(newSVpv(ret,len));
-}
-
-
-/********************************************************************/
-
-typedef PerlIO* InputStream;
-
-MODULE = Digest::MD5 PACKAGE = Digest::MD5
-
-PROTOTYPES: DISABLE
-
-void
-new(xclass)
- SV* xclass
- PREINIT:
- MD5_CTX* context;
- PPCODE:
- if (!SvROK(xclass)) {
- STRLEN my_na;
- char *sclass = SvPV(xclass, my_na);
- New(55, context, 1, MD5_CTX);
- context->signature = MD5_CTX_SIGNATURE;
- ST(0) = sv_newmortal();
- sv_setref_pv(ST(0), sclass, (void*)context);
- SvREADONLY_on(SvRV(ST(0)));
- } else {
- context = get_md5_ctx(aTHX_ xclass);
- }
- MD5Init(context);
- XSRETURN(1);
-
-void
-clone(self)
- SV* self
- PREINIT:
- MD5_CTX* cont = get_md5_ctx(aTHX_ self);
- const char *myname = sv_reftype(SvRV(self),TRUE);
- MD5_CTX* context;
- PPCODE:
- New(55, context, 1, MD5_CTX);
- ST(0) = sv_newmortal();
- sv_setref_pv(ST(0), myname , (void*)context);
- SvREADONLY_on(SvRV(ST(0)));
- memcpy(context,cont,sizeof(MD5_CTX));
- XSRETURN(1);
-
-void
-DESTROY(context)
- MD5_CTX* context
- CODE:
- Safefree(context);
-
-void
-add(self, ...)
- SV* self
- PREINIT:
- MD5_CTX* context = get_md5_ctx(aTHX_ self);
- int i;
- unsigned char *data;
- STRLEN len;
- PPCODE:
- for (i = 1; i < items; i++) {
- data = (unsigned char *)(SvPVbyte(ST(i), len));
- MD5Update(context, data, len);
- }
- XSRETURN(1); /* self */
-
-void
-addfile(self, fh)
- SV* self
- InputStream fh
- PREINIT:
- MD5_CTX* context = get_md5_ctx(aTHX_ self);
- STRLEN fill = context->bytes_low & 0x3F;
-#ifdef USE_HEAP_INSTEAD_OF_STACK
- unsigned char* buffer;
-#else
- unsigned char buffer[4096];
-#endif
- int n;
- CODE:
- if (fh) {
-#ifdef USE_HEAP_INSTEAD_OF_STACK
- New(0, buffer, 4096, unsigned char);
- assert(buffer);
-#endif
- if (fill) {
- /* The MD5Update() function is faster if it can work with
- * complete blocks. This will fill up any buffered block
- * first.
- */
- STRLEN missing = 64 - fill;
- if ( (n = PerlIO_read(fh, buffer, missing)) > 0)
- MD5Update(context, buffer, n);
- else
- XSRETURN(1); /* self */
- }
-
- /* Process blocks until EOF or error */
- while ( (n = PerlIO_read(fh, buffer, sizeof(buffer))) > 0) {
- MD5Update(context, buffer, n);
- }
-#ifdef USE_HEAP_INSTEAD_OF_STACK
- Safefree(buffer);
-#endif
- if (PerlIO_error(fh)) {
- croak("Reading from filehandle failed");
- }
- }
- else {
- croak("No filehandle passed");
- }
- XSRETURN(1); /* self */
-
-void
-digest(context)
- MD5_CTX* context
- ALIAS:
- Digest::MD5::digest = F_BIN
- Digest::MD5::hexdigest = F_HEX
- Digest::MD5::b64digest = F_B64
- PREINIT:
- unsigned char digeststr[16];
- PPCODE:
- MD5Final(digeststr, context);
- MD5Init(context); /* In case it is reused */
- ST(0) = make_mortal_sv(aTHX_ digeststr, ix);
- XSRETURN(1);
-
-void
-md5(...)
- ALIAS:
- Digest::MD5::md5 = F_BIN
- Digest::MD5::md5_hex = F_HEX
- Digest::MD5::md5_base64 = F_B64
- PREINIT:
- MD5_CTX ctx;
- int i;
- unsigned char *data;
- STRLEN len;
- unsigned char digeststr[16];
- PPCODE:
- MD5Init(&ctx);
-
- if (DOWARN) {
- char *msg = 0;
- if (items == 1) {
- if (SvROK(ST(0))) {
- SV* sv = SvRV(ST(0));
- if (SvOBJECT(sv) && strEQ(HvNAME(SvSTASH(sv)), "Digest::MD5"))
- msg = "probably called as method";
- else
- msg = "called with reference argument";
- }
- }
- else if (items > 1) {
- data = (unsigned char *)SvPVbyte(ST(0), len);
- if (len == 11 && memEQ("Digest::MD5", data, 11)) {
- msg = "probably called as class method";
- }
- else if (SvROK(ST(0))) {
- SV* sv = SvRV(ST(0));
- if (SvOBJECT(sv) && strEQ(HvNAME(SvSTASH(sv)), "Digest::MD5"))
- msg = "probably called as method";
- }
- }
- if (msg) {
- const char *f = (ix == F_BIN) ? "md5" :
- (ix == F_HEX) ? "md5_hex" : "md5_base64";
- warn("&Digest::MD5::%s function %s", f, msg);
- }
- }
-
- for (i = 0; i < items; i++) {
- data = (unsigned char *)(SvPVbyte(ST(i), len));
- MD5Update(&ctx, data, len);
- }
- MD5Final(digeststr, &ctx);
- ST(0) = make_mortal_sv(aTHX_ digeststr, ix);
- XSRETURN(1);
diff --git a/3.8.8/sources/cpan-Digest-MD5/vendor/META.yml b/3.8.8/sources/cpan-Digest-MD5/vendor/META.yml
deleted file mode 100644
index a44faec..0000000
--- a/3.8.8/sources/cpan-Digest-MD5/vendor/META.yml
+++ /dev/null
@@ -1,21 +0,0 @@
---- #YAML:1.0
-name: Digest-MD5
-version: 2.39
-abstract: ~
-author: []
-license: perl
-distribution_type: module
-configure_requires:
- ExtUtils::MakeMaker: 0
-requires:
- Digest::base: 1.00
- File::Spec: 0
- XSLoader: 0
-no_index:
- directory:
- - t
- - inc
-generated_by: ExtUtils::MakeMaker version 6.4801
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
diff --git a/3.8.8/sources/cpan-Digest-MD5/vendor/hints/MacOS.pl b/3.8.8/sources/cpan-Digest-MD5/vendor/hints/MacOS.pl
deleted file mode 100644
index 3741e83..0000000
--- a/3.8.8/sources/cpan-Digest-MD5/vendor/hints/MacOS.pl
+++ /dev/null
@@ -1,3 +0,0 @@
-# MWCPPC compiler needs to crank down the optimizations
-
-$self->{MWCPPCOptimize} = "-O1";
diff --git a/3.8.8/sources/cpan-Digest-MD5/vendor/hints/irix_6.pl b/3.8.8/sources/cpan-Digest-MD5/vendor/hints/irix_6.pl
deleted file mode 100644
index e38ae14..0000000
--- a/3.8.8/sources/cpan-Digest-MD5/vendor/hints/irix_6.pl
+++ /dev/null
@@ -1,6 +0,0 @@
-# The Mongoose v7.1 compiler freezes up somewhere in the optimization of
-# MD5Transform() in MD5.c with optimization -O3. This is a workaround:
-
-if ($Config{cc} =~ /64|n32/ && `$Config{cc} -version 2>&1` =~ /\s7\.1/) {
- $self->{OPTIMIZE} = "-O1";
-}
diff --git a/3.8.8/sources/cpan-Digest-MD5/vendor/t/badfile.t b/3.8.8/sources/cpan-Digest-MD5/vendor/t/badfile.t
deleted file mode 100644
index 28e0b90..0000000
--- a/3.8.8/sources/cpan-Digest-MD5/vendor/t/badfile.t
+++ /dev/null
@@ -1,19 +0,0 @@
-print "1..2\n";
-
-use Digest::MD5 ();
-
-$md5 = Digest::MD5->new;
-
-eval {
- use vars qw(*FOO);
- $md5->addfile(*FOO);
-};
-print "not " unless $@ =~ /^Bad filehandle: FOO at/;
-print "ok 1\n";
-
-open(BAR, "no-existing-file.$$");
-eval {
- $md5->addfile(*BAR);
-};
-print "not " unless $@ =~ /^No filehandle passed at/;
-print "ok 2\n";
diff --git a/3.8.8/sources/cpan-Digest-MD5/vendor/t/bits.t b/3.8.8/sources/cpan-Digest-MD5/vendor/t/bits.t
deleted file mode 100644
index db3b693..0000000
--- a/3.8.8/sources/cpan-Digest-MD5/vendor/t/bits.t
+++ /dev/null
@@ -1,26 +0,0 @@
-#!perl -w
-
-use Test qw(plan ok);
-plan tests => 2;
-
-use Digest::MD5;
-
-my $md5 = Digest::MD5->new;
-
-if ($Digest::base::VERSION) {
- $md5->add_bits("01111111");
- ok($md5->hexdigest, "83acb6e67e50e31db6ed341dd2de1595");
- eval {
- $md5->add_bits("0111");
- };
- ok($@ =~ /must be multiple of 8/);
-}
-else {
- print "# No Digest::base\n";
- eval {
- $md5->add_bits("foo");
- };
- ok($@ =~ /^Can\'t locate Digest\/base\.pm in \@INC/);
- ok(1); # dummy
-}
-
diff --git a/3.8.8/sources/cpan-Digest-MD5/vendor/t/clone.t b/3.8.8/sources/cpan-Digest-MD5/vendor/t/clone.t
deleted file mode 100644
index 56382af..0000000
--- a/3.8.8/sources/cpan-Digest-MD5/vendor/t/clone.t
+++ /dev/null
@@ -1,41 +0,0 @@
-#!perl -w
-
-print "1..6\n";
-
-use strict;
-use Digest::MD5 qw(md5_hex);
-
-my $a = Digest::MD5->new;
-$a->add("a");
-my $b = $a->clone;
-
-print "not " unless $b->clone->hexdigest eq md5_hex("a");
-print "ok 1\n";
-
-$a->add("a");
-print "not " unless $a->hexdigest eq md5_hex("aa");
-print "ok 2\n";
-
-print "not " unless $a->hexdigest eq md5_hex("");
-print "ok 3\n";
-
-$b->add("b");
-print "not " unless $b->clone->hexdigest eq md5_hex("ab");
-print "ok 4\n";
-
-$b->add("c");
-print "not " unless $b->clone->hexdigest eq md5_hex("abc");
-print "ok 5\n";
-
-# Test that cloning picks up the correct class for subclasses.
-{
- package MD5;
- @MD5::ISA = qw(Digest::MD5);
-}
-
-$a = MD5->new;
-$a->add("a");
-$b = $a->clone;
-
-print "not " unless ref($b) eq "MD5" && $b->add("b")->hexdigest eq md5_hex("ab");
-print "ok 6\n";
diff --git a/3.8.8/sources/cpan-Digest-MD5/vendor/t/files.t b/3.8.8/sources/cpan-Digest-MD5/vendor/t/files.t
deleted file mode 100644
index 26d64e3..0000000
--- a/3.8.8/sources/cpan-Digest-MD5/vendor/t/files.t
+++ /dev/null
@@ -1,191 +0,0 @@
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = '../lib';
- }
-}
-
-print "1..3\n";
-
-use strict;
-use Digest::MD5 qw(md5 md5_hex md5_base64);
-
-# To update the EBCDIC section even on a Latin 1 platform,
-# run this script with $ENV{EBCDIC_MD5SUM} set to a true value.
-# (You'll need to have Perl 5.7.3 or later, to have the Encode installed.)
-# (And remember that under the Perl core distribution you should
-# also have the $ENV{PERL_CORE} set to a true value.)
-# Similarly, to update MacOS section, run with $ENV{MAC_MD5SUM} set.
-
-my $EXPECT;
-if (ord "A" == 193) { # EBCDIC
- $EXPECT = <<EOT;
-11e8028ee426273db6b6db270a8bb38c README
-6e556382813f67120863f4f91b7fcdc2 MD5.xs
-276da0aa4e9a08b7fe09430c9c5690aa rfc1321.txt
-EOT
-} elsif ("\n" eq "\015") { # MacOS
- $EXPECT = <<EOT;
-c95549c6c5e1e1c078b27042f1dc850f README
-7aa380c810bc7c1a0bec22cf32bc50d4 MD5.xs
-754b9db19f79dbc4992f7166eb0f37ce rfc1321.txt
-EOT
-} else {
- # This is the output of: 'md5sum README MD5.xs rfc1321.txt'
- $EXPECT = <<EOT;
-c95549c6c5e1e1c078b27042f1dc850f README
-7aa380c810bc7c1a0bec22cf32bc50d4 MD5.xs
-754b9db19f79dbc4992f7166eb0f37ce rfc1321.txt
-EOT
-}
-
-if (!(-f "README") && -f "../README") {
- chdir("..") or die "Can't chdir: $!";
-}
-
-my $testno = 0;
-
-my $B64 = 1;
-eval { require MIME::Base64; };
-if ($@) {
- print "# $@: Will not test base64 methods\n";
- $B64 = 0;
-}
-
-for (split /^/, $EXPECT) {
- my($md5hex, $file) = split ' ';
- my $base = $file;
-# print "# $base\n";
- if ($ENV{PERL_CORE}) {
- if ($file eq 'rfc1321.txt') { # Don't have it in core.
- print "ok ", ++$testno, " # Skip: PERL_CORE\n";
- next;
- }
- use File::Spec;
- my @path = qw(ext Digest-MD5);
- my $path = File::Spec->updir;
- while (@path) {
- $path = File::Spec->catdir($path, shift @path);
- }
- $file = File::Spec->catfile($path, $file);
- }
-# print "# file = $file\n";
- unless (-f $file) {
- warn "No such file: $file\n";
- next;
- }
- if ($ENV{EBCDIC_MD5SUM}) {
- require Encode;
- my $data = cat_file($file);
- Encode::from_to($data, 'latin1', 'cp1047');
- print md5_hex($data), " $base\n";
- next;
- }
- if ($ENV{MAC_MD5SUM}) {
- require Encode;
- my $data = cat_file($file);
- Encode::from_to($data, 'latin1', 'MacRoman');
- print md5_hex($data), " $base\n";
- next;
- }
- my $md5bin = pack("H*", $md5hex);
- my $md5b64;
- if ($B64) {
- $md5b64 = MIME::Base64::encode($md5bin, "");
- chop($md5b64); chop($md5b64); # remove padding
- }
- my $failed;
- my $got;
-
- if (digest_file($file, 'digest') ne $md5bin) {
- print "$file: Bad digest\n";
- $failed++;
- }
-
- if (($got = digest_file($file, 'hexdigest')) ne $md5hex) {
- print "$file: Bad hexdigest: got $got expected $md5hex\n";
- $failed++;
- }
-
- if ($B64 && digest_file($file, 'b64digest') ne $md5b64) {
- print "$file: Bad b64digest\n";
- $failed++;
- }
-
- my $data = cat_file($file);
- if (md5($data) ne $md5bin) {
- print "$file: md5() failed\n";
- $failed++;
- }
- if (md5_hex($data) ne $md5hex) {
- print "$file: md5_hex() failed\n";
- $failed++;
- }
- if ($B64 && md5_base64($data) ne $md5b64) {
- print "$file: md5_base64() failed\n";
- $failed++;
- }
-
- if (Digest::MD5->new->add($data)->digest ne $md5bin) {
- print "$file: MD5->new->add(...)->digest failed\n";
- $failed++;
- }
- if (Digest::MD5->new->add($data)->hexdigest ne $md5hex) {
- print "$file: MD5->new->add(...)->hexdigest failed\n";
- $failed++;
- }
- if ($B64 && Digest::MD5->new->add($data)->b64digest ne $md5b64) {
- print "$file: MD5->new->add(...)->b64digest failed\n";
- $failed++;
- }
-
- my @data = split //, $data;
- if (md5(@data) ne $md5bin) {
- print "$file: md5(\@data) failed\n";
- $failed++;
- }
- if (Digest::MD5->new->add(@data)->digest ne $md5bin) {
- print "$file: MD5->new->add(\@data)->digest failed\n";
- $failed++;
- }
- my $md5 = Digest::MD5->new;
- for (@data) {
- $md5->add($_);
- }
- if ($md5->digest ne $md5bin) {
- print "$file: $md5->add()-loop failed\n";
- $failed++;
- }
-
- print "not " if $failed;
- print "ok ", ++$testno, "\n";
-}
-
-
-sub digest_file
-{
- my($file, $method) = @_;
- $method ||= "digest";
- #print "$file $method\n";
-
- open(FILE, $file) or die "Can't open $file: $!";
- my $digest = Digest::MD5->new->addfile(*FILE)->$method();
- close(FILE);
-
- $digest;
-}
-
-sub cat_file
-{
- my($file) = @_;
- local $/; # slurp
- open(FILE, $file) or die "Can't open $file: $!";
-
- # For PerlIO in case of UTF-8 locales.
- eval 'binmode(FILE, ":bytes")' if $] >= 5.008;
-
- my $tmp = <FILE>;
- close(FILE);
- $tmp;
-}
-
diff --git a/3.8.8/sources/cpan-Digest-MD5/vendor/t/md5-aaa.t b/3.8.8/sources/cpan-Digest-MD5/vendor/t/md5-aaa.t
deleted file mode 100644
index 1ccd59b..0000000
--- a/3.8.8/sources/cpan-Digest-MD5/vendor/t/md5-aaa.t
+++ /dev/null
@@ -1,554 +0,0 @@
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = '../lib';
- }
-}
-
-use strict;
-print "1..256\n";
-
-use Digest::MD5 qw(md5_hex);
-
-my $Is_EBCDIC = ord('A') == 193;
-
-my $testno = 0;
-while (<DATA>) {
- if (!$Is_EBCDIC) {
- next if /^EBCDIC/;
- }
- else {
- next if !/^EBCDIC/;
- s/^EBCDIC,\w+#//;
- }
- my($hexdigest, $message) = split;
- $message =~ s/\"//g;
-
- my $failed;
- $failed++ unless md5_hex($message) eq $hexdigest;
- $failed++ unless Digest::MD5->new->add(split(//, $message))->digest
- eq pack("H*", $hexdigest);
-
- print "not " if $failed;
- print "ok ", ++$testno, "\n";
-}
-
-
-
-# This data was generated with:
-#
-# perl -e 'for (1..256) { system("md5sum --string=" . ("a" x $_)); }'
-#
-__END__
-0cc175b9c0f1b6a831c399e269772661 "a"
-4124bc0a9335c27f086f24ba207a4912 "aa"
-47bce5c74f589f4867dbd57e9ca9f808 "aaa"
-74b87337454200d4d33f80c4663dc5e5 "aaaa"
-594f803b380a41396ed63dca39503542 "aaaaa"
-0b4e7a0e5fe84ad35fb5f95b9ceeac79 "aaaaaa"
-5d793fc5b00a2348c3fb9ab59e5ca98a "aaaaaaa"
-3dbe00a167653a1aaee01d93e77e730e "aaaaaaaa"
-552e6a97297c53e592208cf97fbb3b60 "aaaaaaaaa"
-e09c80c42fda55f9d992e59ca6b3307d "aaaaaaaaaa"
-d57f21e6a273781dbf8b7657940f3b03 "aaaaaaaaaaa"
-45e4812014d83dde5666ebdf5a8ed1ed "aaaaaaaaaaaa"
-c162de19c4c3731ca3428769d0cd593d "aaaaaaaaaaaaa"
-451599a5f9afa91a0f2097040a796f3d "aaaaaaaaaaaaaa"
-12f9cf6998d52dbe773b06f848bb3608 "aaaaaaaaaaaaaaa"
-23ca472302f49b3ea5592b146a312da0 "aaaaaaaaaaaaaaaa"
-88e42e96cc71151b6e1938a1699b0a27 "aaaaaaaaaaaaaaaaa"
-2c60c24e7087e18e45055a33f9a5be91 "aaaaaaaaaaaaaaaaaa"
-639d76897485360b3147e66e0a8a3d6c "aaaaaaaaaaaaaaaaaaa"
-22d42eb002cefa81e9ad604ea57bc01d "aaaaaaaaaaaaaaaaaaaa"
-bd049f221af82804c5a2826809337c9b "aaaaaaaaaaaaaaaaaaaaa"
-ff49cfac3968dbce26ebe7d4823e58bd "aaaaaaaaaaaaaaaaaaaaaa"
-d95dbfee231e34cccb8c04444412ed7d "aaaaaaaaaaaaaaaaaaaaaaa"
-40edae4bad0e5bf6d6c2dc5615a86afb "aaaaaaaaaaaaaaaaaaaaaaaa"
-a5a8bfa3962f49330227955e24a2e67c "aaaaaaaaaaaaaaaaaaaaaaaaa"
-ae791f19bdf77357ff10bb6b0e97e121 "aaaaaaaaaaaaaaaaaaaaaaaaaa"
-aaab9c59a88bf0bdfcb170546c5459d6 "aaaaaaaaaaaaaaaaaaaaaaaaaaa"
-b0f0545856af1a340acdedce23c54b97 "aaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-f7ce3d7d44f3342107d884bfa90c966a "aaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-59e794d45697b360e18ba972bada0123 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-3b0845db57c200be6052466f87b2198a "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-5eca9bd3eb07c006cd43ae48dfde7fd3 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-b4f13cb081e412f44e99742cb128a1a5 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-4c660346451b8cf91ef50f4634458d41 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-11db24dc3f6c2145701db08625dd6d76 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-80dad3aad8584778352c68ab06250327 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-1227fe415e79db47285cb2689c93963f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-8e084f489f1bdf08c39f98ff6447ce6d "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-08b2f2b0864bac1ba1585043362cbec9 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-4697843037d962f62a5a429e611e0f5f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-10c4da18575c092b486f8ab96c01c02f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-af205d729450b663f48b11d839a1c8df "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-0d3f91798fac6ee279ec2485b25f1124 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-4c3c7c067634daec9716a80ea886d123 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-d1e358e6e3b707282cdd06e919f7e08c "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-8c6ded4f0af86e0a7e301f8a716c4363 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-4c2d8bcb02d982d7cb77f649c0a2dea8 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-bdb662f765cd310f2a547cab1cfecef6 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-08ff5f7301d30200ab89169f6afdb7af "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-6eb6a030bcce166534b95bc2ab45d9cf "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-1bb77918e5695c944be02c16ae29b25e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-b6fe77c19f0f0f4946c761d62585bfea "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-e9e7e260dce84ffa6e0e7eb5fd9d37fc "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-eced9e0b81ef2bba605cbc5e2e76a1d0 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-ef1772b6dff9a122358552954ad0df65 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-3b0c8ac703f828b04c6c197006d17218 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-652b906d60af96844ebd21b674f35e93 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-dc2f2f2462a0d72358b2f99389458606 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-762fc2665994b217c52c3c2eb7d9f406 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-cc7ed669cf88f201c3297c6a91e1d18d "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-cced11f7bbbffea2f718903216643648 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-24612f0ce2c9d2cf2b022ef1e027a54f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-b06521f39153d618550606be297466d5 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-014842d480b571495a4a0363793f7367 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-c743a45e0d2e6a95cb859adae0248435 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-def5d97e01e1219fb2fc8da6c4d6ba2f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-92cb737f8687ccb93022fdb411a77cca "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-a0d1395c7fb36247bfe2d49376d9d133 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-ab75504250558b788f99d1ebd219abf2 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-0f5c6c4e740bfcc08c3c26ccb2673d46 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-cddd19bec7f310d8c87149ef47a1828f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-96b39b8b95e016c79d104d83395b8133 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-f1fc0b14ff8fa674b02344577e23eeb1 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-0e8d28a1cafa3ffcff22afd480cce7d8 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-448539ffc17e1e81005b65581855cef4 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-61e39aae7c53e6e77db2e4405d9fb157 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-618a426895ee6133a372bebd1129b63e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-046c90690c9e36578b9d4a7e1d249c75 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-aadab38075c43296ee7e12466ebb03e3 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-b15af9cdabbaea0516866a33d8fd0f98 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-986e6938ed767a8ae9530eef54bfe5f1 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-7ae25a72b71a42ccbc5477fd989cd512 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-98d34e50d4aa7a893cc7919a91acb0e3 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-3fc53fc22ea40f1a0afd78fc2cd9aa0f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-923e37c738b9d7b1526f70b65229cc3d "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-b3966b7a08e5d46fd0774b797ba78dc2 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-f50c7286b540bb181db1d6e05a51a296 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-4efd6c8826e65a61f82af954d431b59b "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-ef1031e79e7a15a4470a5e98b23781b5 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-067876bfd0df0f4c5002780ec85e6f8c "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-789851dfa4c03563e9cef5f7bc050a7e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-baf934720818ee49477e74fc644faa5e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-9a0ea77ca26d2c121ddcc179edb76308 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-20c825561572e33d026f99ddfd999538 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-464c461455c5a927079a13609c20b637 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-cf37d42f89b6adb0e1a9e99104501b82 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-d266af45e3d06b70d9f52e2df4344186 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-f8b59fa22eb0ba944e2b7aa24d67b681 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-0918d7c2f9062743450a86eae9dde1a3 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-36a92cc94a9e0fa21f625f8bfb007adf "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-681d73898dad5685d48b5e8438bc3a66 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-337ccef058459c3c16411381778da0c4 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-6ccdfcc742862036ce07583633c5f77e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-ddfa1adc974649dc5b414be86def7457 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-650ebc28ad85f11aa4b63b6ee565b89d "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-e4571793bcaba284017eeabd8df85697 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-4fc040d354ad9ba5e4f62862109d3e17 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-25814274e02aa7cc03d6314eb703e655 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-11378ecaee0089c840d26352704027e3 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-86f950bfcd824d5546da01c40576db31 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-089f243d1e831c5879aa375ee364a06e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-9146ef3527c7cfcc66dc615c3986e391 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-d727cfdfc9ed0347e6917a68b982f7bc "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-da8f45e1fdc12deecfe56aeb5288796e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-29cfcf52d8250a253a535cf7989c7bd2 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-0f6eb555b8e3c35411eebe9348594193 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-a922439f963e7e59040e4756992c6f1b "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-81f8453cf3f7e5ee5479c777e5a8d80c "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-8a7bd0732ed6a28ce75f6dabc90e1613 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-5f61c0ccad4cac44c75ff505e1f1e537 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-f6acfca2d47c87f2b14ca038234d3614 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-269fc62c517f3d55c368152addca57e7 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-50587cb16413da779b35508018721647 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-5e4a3ecfdaa4636b84a39b6a7be7c047 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-c5339dc2af6bf595580281ffb07353f6 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-e51176a47347e167ed0ed766b6de1a0c "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-020406e1d05cdc2aa287641f7ae2cc39 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-e510683b3f5ffe4093d021808bc6ff70 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-b325dc1c6f5e7a2b7cf465b9feab7948 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-e016e4ccc7fdaea56fc377600b58c4cb "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-3870ec709d2fc64b255d65be3123ad69 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-a92bde1f862c3fe797ecd69510bbd266 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-04daa146f3a2256fdcbf015c0f67e168 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-3d13c8bf627421ccc937aa1c9ac87bf1 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-247dc7ffc545e4dda64ae12def481c4e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-2dfd4def392ee9563241b7db7eb7c346 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-d11a18a4743a1a0a699d1704efb74a0d "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-55b62fabd9c77d44d86e992eeeb093e6 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-9a72cf7d0bd5ae2907c79f91837e3ced "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-d3828cce1835534475029202ebd799e4 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-b0bebbf0015658d4740679f263a3f01f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-02368ebf1f53bc4634211b1693021666 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-04960f7d18960e348372949e4baa9752 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-c6041e7a86d407e9402b175670519260 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-439fd4c056bec1d14acd393746f6ae59 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-81a855120e04494c5a6c874a2360fd57 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-ef57bd47a964dc3aadd959c4131e64ac "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-0b0ab27b16cbba267c141fe0f4ee9189 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-abccd84f340bfe4ba59095cc3d5ca6ad "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-bc620e8c15265f195c8818e2f3e3c58b "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-fdcd84c4143286f6fc70c69208acd18d "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-50e05071e773b1e9f3009a4a559ce6b2 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-9e69c7a6c1863fbba2532f09ba665bde "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-47a962111aa5187eeef3d17a278d95f2 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-c13e57e33526bc713b5a1825f92651bc "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-72b392f15593e42404b38e5c889fa75e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-5327acd3278274265d44e22ccfc4042c "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-930dcac6da160b2a4c51879da76d3417 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-41292c326f926f1534ead47fe302f0a0 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-2bdecb5cf6b69a00f7832299ef2fb5a5 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-8bf93e9e8a3e4396de3f211c788e177e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-eea9cb566e19d6a7f55fbae78d94ef2a "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-3b8452700a829dec78397aa5c0458dd3 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-7950059f699eaea1e0a1759340d7c153 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-40840c5f1de00f17a8e70d5bd4d00af2 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-80f86f6af38be9ca8e40c2dc44491a0a "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-7aab2c2e72c77163e7102412dc332125 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-bfd6869ae2ee2fe2675846d341eaa67d "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-7e4d976f6d552d1d5bac7e2693dc8759 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-37d9884c32abfc6f372ee899434e64ad "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-e362cd83a4b49d81ac6788b7839a56fd "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-9203cbb93b25d80b9d1b75e3c6c4b0dc "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-77441eda11554ec5b915d942605f66ed "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-e0fe0c02b5c9c5afe10ab9d6a3769efe "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-cc7682cf11b214e928f3df899772e789 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-ade0901d347afb25ecf9df4955bb8061 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-987379587cbe8e94b7057269232ff826 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-fd44a60101b04b7ddbc2b4e9b509ca1f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-53107a7f1e6f13a2e63239b6f2bf0ef1 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-0b82cdd562f26aaa2459610a7ba8cd76 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-79f12de7255e9c8c0ec9a9be45ee6210 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-92338d8de02ed7aa8b3adc9120b94e71 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-8fc48efda580fce85b8705d540e8382e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-63642b027ee89938c922722650f2eb9b "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-fe54daa473502e9cc2c26dd66d564eab "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-b90f3d4b7dcd8cdd8d96cb14695f4793 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-3e73392e7a03bca45b67650d79a8fc63 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-7fe51f2642dffbabc33eea2fcc2039ba "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-bc33790e52f99718cf920329961ee753 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-54d1e41ebac5db7886f01ab0afb65b17 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-16e2824f7a3f00ef0028994182071953 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-234c07907df5019d5f40f03936939bce "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-8ea3af1d9476fa0b6c04ce4f3a336c03 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-e95b69eae07d498d484afc771d1c45fc "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-f22a673abbc4372544ba37b51a5f5a91 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-7e6161eb1be7b06928c536fada91b7f1 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-4dfe3c301e88fff67822e1cfcfece43f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-edda210ac6645fbf5815eb4c58821f6d "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-6a514de2bf1926129b08f9234cd0115e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-887f30b43b2867f4a9accceee7d16e6c "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-15936442c22dab9b685de350bfe75971 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-281a39e10bab29f1f2dead149a1f3f87 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-04d5f8a53b0eeda82d3c0ccafd02c98e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-a91e6b80fe9d6db74fac76c7a67f065a "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-30334486fa9841044afb07f2573107a5 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-0183c0cf15a3c2ed97d326f421b6d62c "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-4dc2a01b2161653753019b5228f765f8 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-71ef2dbdec7f78005354abebbfec8d8f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-a1d1cd1446c113726ba50cc86d8b6519 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-ed6da79cfd13ece051c4cb7c88e80c2e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-d2047852ce178d4ddb7978da3883f9c5 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-d75382e07dd096b618faeeac033eefff "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-3fb48e286d462dcc237c3335aa63ba14 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-55b959972677ea06c4d0e32f7fb2f10a "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-0a479c3623cfb9745e54d3376d0b9ae2 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-7825ad1ba19db7eec57d88b16936f32f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-833ccf25509cb423a4aa98accb15512d "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-cae9609b05a9782610a5a43d7cd4b8ff "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-6c303e1da7f8a3032d13fe995847a722 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-4c47143a568e30ecde86dafe3bcb0558 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-9c48f0592f504b86360cfb6de00203b3 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-e1524f5686f170209366f9723880d9b0 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-a96164a43a192543d40e538b9e9e4ece "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-b774a4f788458a60e131d998705e4a06 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-1e97f0a7dfd3fac6ae585acdcf51a549 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-b6364c77b6dd495c2a7f6b0211ac6fce "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-5d22315e78df2bc4146aa66f6c405dbb "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-2a773d5b04e910612543a42deeaaaa62 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-0165449ac66b086accdec3051e0b691e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-54884ba571054eae72b2a5271828a1fc "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-520fb61f8625ea916d72a54a37937bc6 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-7717f05d6e424a2c7a20ab7977b21ec8 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-b64e4f62e3e14317e3a90f9ff2cde576 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-a49128259cfe50ba3bed80bbd11add7f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-b10cb153b79c2e4af6a8431c265aa82d "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-2e50fee6f574241042bdfabfdd46a153 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-5d5656a09b98c24edd01c530d3aad5e2 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-5ac1e1609d82274371c349d5b7875298 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-b7b40d64ffccebd78abcf522376b3aae "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-8619933469d908a2d4a2d890909bea43 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-591a0ee6dccd872b46ae184eb0f9450e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-8cd256a02c8c5c1676e9220e655d9ac4 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-e48c0e2ed3e4e299a6e62e5416eb6d83 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-f30f75dce71e757ee562218c1efa0645 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-06bd7e90c0410dacb155732cf956f520 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-531a0a821a9304c215f1829b880306f1 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-93f4621c0b88499297ec3f8fbb3fb9c4 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-6af3d61e2e3ef8e189cffbea802c7e69 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-df84d21c884f99d6764d9bca4dec26e1 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-1bdbdf1c9087c796394bcda5789f7206 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-21f5b107cda33036590a19419afd7fb6 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-0eae304c738191613302fb6721ea3605 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-abed9cdef66dcec954b87124ba18c1ab "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-dfde09457e2017e31d4ecfaea010db8f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-46bc249a5a8fc5d622cf12c42c463ae0 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-81109eec5aa1a284fb5327b10e9c16b9 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#cd25041f9f36811b04ab3015805fe816 "a"
-EBCDIC,1047#762b8b87733ee724b8cb751c3b956ea7 "aa"
-EBCDIC,1047#f39105ec557abe624399862897a127ed "aaa"
-EBCDIC,1047#b825cfc3203d45d01156b8e06ae74901 "aaaa"
-EBCDIC,1047#a497a05975af505878aa98b26bd329dd "aaaaa"
-EBCDIC,1047#90420f3fc7d64c6cdd7a3bf218b004b1 "aaaaaa"
-EBCDIC,1047#b3d7a168407b1613f08f186dc3744a72 "aaaaaaa"
-EBCDIC,1047#b7b4ab251d9cc8dc9fc562272a1c7f44 "aaaaaaaa"
-EBCDIC,1047#eb974f5cd9b8100dad8e9b82bbdb4a7a "aaaaaaaaa"
-EBCDIC,1047#cd675880a60d9c2095fe48981959ea5b "aaaaaaaaaa"
-EBCDIC,1047#8396c227248d77e1ebb478b4c44ee8e8 "aaaaaaaaaaa"
-EBCDIC,1047#ae59cf65c1c722b8ea6f6e770b20315f "aaaaaaaaaaaa"
-EBCDIC,1047#d1550adc6c6f2baeb5da9e2acd75eea1 "aaaaaaaaaaaaa"
-EBCDIC,1047#bddd60dbf174785c39827c71ecb29706 "aaaaaaaaaaaaaa"
-EBCDIC,1047#d0ef1bc67b2d761513ad8c1f92ca7a2b "aaaaaaaaaaaaaaa"
-EBCDIC,1047#dd613bdc90e1e71e57e40931cf3803c1 "aaaaaaaaaaaaaaaa"
-EBCDIC,1047#3810ed84a3fabf136b9f5c2de3c802ca "aaaaaaaaaaaaaaaaa"
-EBCDIC,1047#a41d584a36ba74526057338e4240b31d "aaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#e361a7b2e6adb9df91ed794f39c31a8f "aaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#dc089d8d25773e879ce759357394f63b "aaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#096bdd77ddd6393b5ff2878813ebc9c3 "aaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#e457d06769e51e7b34314c1fa885534b "aaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#ae3399b847ef9ce11d958a8926afa2a3 "aaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#be65d5ac6ebe81410cca55c2ad70e672 "aaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#108e4c3887db4178e5ea72782fb105d2 "aaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#d6ccc43d376b6ded51af488d1f56a872 "aaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#e208a35fdf88de1da8ec8411888b807e "aaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#bf09c576c720c32342308fae413347ae "aaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#aac629ca1ec1d5908fe85d6eeb352765 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#845a64111840e9db26e8f5032d59187d "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#db38d8cf4f7037e6a150cc35e385972c "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#2586f6fcb6ffb1578a94f8c9c2944b40 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#cb63decd219ee21068b330d321061434 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#d98cca1ccf230b2619ae6f452ab18325 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#f99e8a5e800a9c1b78b9c7181fa4113d "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#c60d314815b0d438fe8cf18a62d8680d "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#1256f52d15ab93e69c75d6cc9986fa49 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#7e6b1236d08400ec5723b76f3b883b2a "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#bae076b34373156e51196c8170fff549 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#b957a14baa9ab970516e5e3fe30560c5 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#8209c722c9d86984bde35f31e64de4c9 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#ad6abdadefb6809ef9db323939dad44e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#91ae6c863369dbfb13c688b9e5290929 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#770e940a6f11de3a3897031c7040573f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#2d07c71e6709d908992a19ee8fcd70c7 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#e748dc11e3b2984e0888782ecc9fa43f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#99573ce268b1f9e32e18319922380b2b "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#68951bca944217c5a17d54d9fe296ee9 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#53addd1728c3fd60ba02e29ff7eac4d8 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#7c4abc37772402388c8d792351ae3163 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#a21011fb1a5c1f06dfc23c1b9b921506 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#5ce00db35364620dc75696426b9c7948 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#50a785cbcd6cb70322f32062bcfc8940 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#92e6ad1aa09ecde0becf66dc9f356549 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#bb769fed437ab5471f0453bdf0de6ca2 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#49d68b22125368b152dd80773b1053cd "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#8c7ce5f0c7ed40ec25df22b68d1725f3 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#344d80c1906e9e728e0cc9703fc60803 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#630a45b11cc72d8e36aca0e180241cb4 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#1c9ba16c5be8d48b5d8fe1a8dd1b6999 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#74bb8337e8e9a3d114eb266437302949 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#134ddd06fa362804c9f8cf02111826bd "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#1ffd548f057ed474c0d3b53ee1f8ce1b "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#487823e5089b40d8c66a6a7fc613c26c "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#a40e0c6392e974bc6e258fb7530b9ec3 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#dccf88078dcb7501156e17b6f5b90bd0 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#9012cdfe170301d3c8d11d9dab87bf96 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#046d4f6709367aa9be3452dc5dd03601 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#237b85d7be428836b0835e3f7411d0d0 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#32022ea076ffe7496da0b64b2482b963 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#c68b3e8c7c88bf10003deaf652549f1c "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#e648925002262503def112984215d21d "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#192328de11913688d002f01326071abb "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#42f7138b1f7ed2121098f3e418406e7b "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#cb64c10607f961b2714a3b104e487838 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#0a8fb4023704d318e53a6047531477f3 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#2c9a5487397c8245fe8a52684fa50554 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#26efb364f1da859fbc71744d2c62570e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#3359363d24960feaa2f05ea1b403ddcc "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#be9304d0a6297a1a1c7b02cbf177fe0c "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#badb0d02141d35349b3b2838cb6450cc "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#75261d10ee76bfc016f98a868e535e49 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#d85006031896657b7215ed1f64f002b9 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#2db85d6ffa2287e42c0e55a72900dd4f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#f8ce69fabcf5d5013aaede9c90a7e4c0 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#5749ef4b7f6347c3cf9e8af2dc48093e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#afd1f87f6522f82f7d260909db38f84c "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#690a229786930ec741404c83738f0e87 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#a1f02fbe5b1815f5d68ebfa5c5b8cdda "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#4e75faba6d50d6f3341b3623f3457c83 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#af0eed7206c2aba4622b15a826b3cf48 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#984236c86e268a506dda56886d4589aa "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#256f33cc0cd5d0d700b959143f8b81fb "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#a4f4a73bdf53bd03ec2bf406df8c5bf1 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#bac0c7bb84f581a8ca67e49ecb7eabdc "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#c1be2bc056a5abfff888f562f7420b8b "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#6db1e154a0feeb290d6f9b6ca78b9faa "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#163fa1f68d79b511aa832e4d513c0d75 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#f00e90ba697aa55722c87b51652b515f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#ba925e3f1584bb930da28396334dfb06 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#6a43780f9f36e80e977d31e6ee055ccf "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#f07953ebdb37e911069ab4dc1d11b691 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#0f21a8a924546d121d479c2ae9b22788 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#6c857bf152348cc6a8d63ef4bb3a8b22 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#afc61c11e9730f9221e5b013cb75e36b "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#7c762743838df21dbe61883325e4de3e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#a78d17621ef736358cf69909fe1841ae "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#687559a1f8bb2799d3f7e57ceb0f816e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#0a5eb0bcfc8888839b3b4f986e91db7c "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#232c4a6355062f36d5b18a18453ba936 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#5ec9bdfb872d07265113dd94eaf7a9ea "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#f3c9f677ab5404ed16b029067a8d632f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#290997df4163f9f37994048b7f750ecb "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#9d482b2d64d165eaf1796bddb15ffc43 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#f7e059c707e4156d59bef9c887731b75 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#dec244a8f0d45814f8968492cae063ae "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#a153d558a8bed15abe61d6de1345200c "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#c4c4155e9855435000915b9028af57ad "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#3bf4740880459875fc6625d3e8b9702b "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#b73a90ab965e8254aeb1ed8995ccf551 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#143a255cfc206e135b23ed557c6b8c7d "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#1600b994bf10eeb85772e0f5811ed661 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#7becfd6e439108f896d34012bc3c879f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#9fb1155e1c1529943d378bc79ce7248a "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#210f27a4c085f4c50b119a9f530dbe64 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#c03e534627aec7638f2ef7136a987afb "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#056ff6dcf19eff62af1f7eaf68fdb868 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#78ebdbcbd1cf873ac5bc3317bc333d74 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#379ed8c06d6533b0ae397bd9bcc88727 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#68202ec0f97b3d04145ad8143b36bbec "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#f2e8c8f3ab9832adae73d6694b5aa6b5 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#4dd0228d79bab138ae330137ceac9547 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#db509dc0a6d9a43323f200c3944fdd47 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#91e5620a3fbe4a7dbddc6328024f57e6 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#cebbeb507c5b8534898b394c3cb6dbab "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#eaa83adae76b4e5a38361a7943b2fc51 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#cf3fe145cdd9d906dff484591bebb099 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#5ee68f513d294e242dfd84066a489ad4 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#1452349d5b61efaf5f86f6c67ae1e67d "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#4a6d9c83bb7f0418977302f41861c674 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#1c82f764bc22e2b43aa64c86152576c5 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#94046ff34b09f2d5cd1ecc145f8b67f9 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#2f9b4413a963175dbf6c0e79fbafc13f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#fdcfd05667569a819bd43a32f3f0034c "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#977ffabd477e827a170211d989121719 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#eb42e9022bad24209923768cd295da59 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#34daced153754389b0a3dd457aaa580f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#4d4ac318fd2765150cdd3a1fd9046f76 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#5f3779e31d8b4ecc587ef2aa620990cb "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#538a0f0a41a77491368d12d280b67ffc "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#2b8bea1be2920657faea5d2f306df93e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#fdb162676ff37cafbb0b37f4a34e1f05 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#79b031eae2e5d593ad9e1765c1b32311 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#9a9d79d611f3f97dac3f1f16aeb95810 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#eca47f4f27f10c6e50bc02e96c1305e0 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#c27a036a378a0c37e551623253de6c86 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#846248b2d8ba9a2845a5b5a6160ea043 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#37f6c0bb5c1c76a018bd92d6267d5f52 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#c71638a87de7d0b7ff178235d368ca87 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#c1769c2dafefeb4400d8aaaad7be13e2 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#c2170ff8ba444a468ecc92c68e156876 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#87d372bb84572d2c33e910a8f39a46c3 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#e198c2b2ad83adf6d2edb90918afb140 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#dc89c07be1a85973ce4a75fdd70b945f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#8213ffd54a231c594058b572f12ed2ce "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#64a275192c6bbaf330994498212ff235 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#e718b792be6311e0248a537ba6d5e84c "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#b7ee2cd790ed748aa3ac632e2c30fe08 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#6a97471085d1e13858f7febbc8762a40 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#d82fa7cf3fe39751e88cc6a4c5ea0a80 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#4d3ea68fdfb845be4aa12eef1868ac54 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#b24417be7632f1db1f37c00f2be59372 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#79f7f0088af39859c26e8dd422102e4a "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#8e7c80a85e3a76bb83d81e12122d699c "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#ffb596a208a1b81b17cf86e809ea9b15 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#a3e78c5e9bd595ea8457b25b7ae5ee7c "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#200b9de7d5ebd0a74deb6d501fa9c273 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#75865e9d3111b6e17ba1e1b586c520e0 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#f13640a7b68db8d2bd853a95c371f4e7 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#4525f0da220d5e730ad91070c819ca6a "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#3f9c9eb19f1fd6aefeb3d736d5f37cbb "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#e3344f64ba3436948b3de13081c98eb9 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#18b50889733a1e896e8fd2e460e98d7f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#918a86710bc529f44f022d5f891107a1 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#4aaea2b4f2cfcfef3a5f6be8996b2a3e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#af899efcace3138fea64764015e265f6 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#d472112d115b9bfb34a65cc6683109fc "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#f2a42d47b187fc7a250f771ebcda779b "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#43442e458f65b5dc6b84181fb70f0e36 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#051771335f34ad905c1af28c429e23e2 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#c2c23e86aac60a7d8cb2f2d9a011b525 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#4276f514d2e9b5cf511a01b16d5bd7ad "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#43011a7d9ad322984e3617859eb37ee7 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#9b7e0d04de1c0121bd261a15cf9bb806 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#bc1e0269ae34e27ed0534a8ab5146324 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#85fa07daa4541779d7c8436a737802cf "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#5d1db871938d1dcc8a72509411dada31 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#e679a912e400a1c078e657be492a672c "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#b17718a20096befcee63c2b55bbc5399 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#4786015b6aa47e81752f4e2aa59061d5 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#7f3793d46edf449ce5800d568ef6e83f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#8f992f2bc222fdc9ecf86eb0c984948b "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#aec900f38434e9fb7ded9d33f9a59b66 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#de3fe519c53310d2a8970a4ed2bcc937 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#02bf7d064c621689246886752ddc08bc "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#c306bdf0469814bf38b2cadc896489a3 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#9f84e151ea29f14871b63454585cbc78 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#cc4fd08ed3768b08646bfa6c332a6156 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#d35126a1dc2ae4b93ac67a442961a752 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#4c2ed17f95f823071289b94c7efe53f2 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#63e071ca26135f7e27d76fa57d015dbe "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#4e506bd75c0d1391a0dd36adc18b3485 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#b8a9a5bf97ce5fc88a24c128bb75536e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#97e8bb790b164bc3bdb7189630748841 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#3c7a2d742d599f4fac9231c5264967ee "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#0483a8dc4b24d3d26f0d3bf0402486c5 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#86022bc208c5bbded89bbaeae88e6dbf "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#c7a3f500cfe98f8c1959922b381b9438 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#bff3067df4cfff43007bea69f2380d6a "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#e34a5c41f51ea6d1f1b187e90d940b59 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#c8468cae7c8a2a999a0a164f68b759eb "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#4bccb2bff1862782004398afff2289b4 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#9710683ca0b5cbf10c3df249bfa85d7a "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#5a705ab132807ce9605b98444622abf3 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#dd53ab3422160f933f9723cd3cb53b5a "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#bad7e8a4aeea40f8642a0ca1cdfcc61b "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#4c0df2b1456694b51a5c809f34f959a8 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#f330498cabce39dd03eb02d6c983281f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#915ff5f5c93e0a7833be8cc529108216 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#b8facb5253a2b7e091c0a6c18d48e368 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#8ebdd257c3bc052f9c837f90fb1879cf "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#42d2cf830ee626939580323a824a4099 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#0d364adcb48ee9db07828ce127355a0b "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#14d9170b8f9ead33ec4da94d66b6b74a "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#0327eff7ae5d6b5966def78e593ff5f7 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#f08ac509f43f8e34008a65c3f47d29aa "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#7dc9cdc33fb9a0d70e1409357b086783 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#5f079c22e843c3426bcf03efbd0fc54d "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#8422781e8a9390246920556090a9559d "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#0cc485a5c828b2cdc895f38b5c3b386e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#2259886c34c2e8adf2b3552bd47a3d6e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#c96af44682d38aa7e4b86954c883f8dc "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#85bfdfeff05f7120bd5821ac6668694e "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#b4083c69629ec95f6397cd5844edaf90 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#666550654d7c9e6b8a3118d9dc64bace "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#eef83a6cad3d9a8d963d468cb037ccce "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#c2fd346804a8c9c80a08312d7b9d17f3 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#6521b944a119cd1f787ff75c1452db74 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#805638adfdb3bf9591fd28dfadba697a "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#e62d07301fd3c0bdb5f7ce0e49e4b5d3 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#49b46e007e0c79c047f655b1b46167c2 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#8811ec9d3b878d168975ed835b3acaa8 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#9b4e8b089d75d1fe3567bcc97b4379d5 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#c279605bdcfee9b4976eb57a9eb0d5fd "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#3e362e6f8c5eb3aa7530ef9722dda11c "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
-EBCDIC,1047#c54a2d44c8a73ab63d892b8b3d1c336f "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
diff --git a/3.8.8/sources/cpan-Digest/vendor/Digest.pm b/3.8.8/sources/cpan-Digest/vendor/Digest.pm
deleted file mode 100644
index 384dfc8..0000000
--- a/3.8.8/sources/cpan-Digest/vendor/Digest.pm
+++ /dev/null
@@ -1,316 +0,0 @@
-package Digest;
-
-use strict;
-use vars qw($VERSION %MMAP $AUTOLOAD);
-
-$VERSION = "1.16";
-
-%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::PIPEMD160",
-);
-
-sub new
-{
- shift; # class ignored
- my $algorithm = shift;
- my $impl = $MMAP{$algorithm} || do {
- $algorithm =~ s/\W+//;
- "Digest::$algorithm";
- };
- $impl = [$impl] unless ref($impl);
- my $err;
- for (@$impl) {
- my $class = $_;
- my @args;
- ($class, @args) = @$class if ref($class);
- no strict 'refs';
- unless (exists ${"$class\::"}{"VERSION"}) {
- eval "require $class";
- 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 at 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/3.8.8/sources/cpan-Digest/vendor/Digest/base.pm b/3.8.8/sources/cpan-Digest/vendor/Digest/base.pm
deleted file mode 100644
index b2844ba..0000000
--- a/3.8.8/sources/cpan-Digest/vendor/Digest/base.pm
+++ /dev/null
@@ -1,100 +0,0 @@
-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/3.8.8/sources/cpan-Digest/vendor/MANIFEST b/3.8.8/sources/cpan-Digest/vendor/MANIFEST
deleted file mode 100644
index 3962b00..0000000
--- a/3.8.8/sources/cpan-Digest/vendor/MANIFEST
+++ /dev/null
@@ -1,12 +0,0 @@
-Changes
-Digest.pm
-Digest/base.pm
-Digest/file.pm
-digest-bench
-MANIFEST
-Makefile.PL
-README
-t/base.t
-t/digest.t
-t/file.t
-META.yml Module meta-data (added by MakeMaker)
diff --git a/3.8.8/sources/cpan-Digest/vendor/META.yml b/3.8.8/sources/cpan-Digest/vendor/META.yml
deleted file mode 100644
index f4cbf01..0000000
--- a/3.8.8/sources/cpan-Digest/vendor/META.yml
+++ /dev/null
@@ -1,19 +0,0 @@
---- #YAML:1.0
-name: Digest
-version: 1.16
-abstract: ~
-author: []
-license: unknown
-distribution_type: module
-configure_requires:
- ExtUtils::MakeMaker: 0
-requires:
- MIME::Base64: 0
-no_index:
- directory:
- - t
- - inc
-generated_by: ExtUtils::MakeMaker version 6.4801
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
diff --git a/3.8.8/sources/cpan-Digest/vendor/Makefile.PL b/3.8.8/sources/cpan-Digest/vendor/Makefile.PL
deleted file mode 100644
index b0cbd16..0000000
--- a/3.8.8/sources/cpan-Digest/vendor/Makefile.PL
+++ /dev/null
@@ -1,10 +0,0 @@
-require 5.004;
-use ExtUtils::MakeMaker;
-
-WriteMakefile(
- 'NAME' => 'Digest',
- 'VERSION_FROM' => 'Digest.pm',
- ($] >= 5.008 ? ('INSTALLDIRS' => 'perl') : ()),
- 'PREREQ_PM' => { 'MIME::Base64' => 0, },
- 'dist' => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
-);
diff --git a/3.8.8/sources/cpan-Digest/vendor/t/digest.t b/3.8.8/sources/cpan-Digest/vendor/t/digest.t
deleted file mode 100644
index c5da8f0..0000000
--- a/3.8.8/sources/cpan-Digest/vendor/t/digest.t
+++ /dev/null
@@ -1,36 +0,0 @@
-print "1..3\n";
-
-use Digest;
-
-{
- package Digest::Dummy;
- use vars qw($VERSION @ISA);
- $VERSION = 1;
-
- require Digest::base;
- @ISA = qw(Digest::base);
-
- sub new {
- my $class = shift;
- my $d = shift || "ooo";
- bless { d => $d }, $class;
- }
- sub add {}
- sub digest { shift->{d} }
-}
-
-my $d;
-$d = Digest->new("Dummy");
-print "not " unless $d->digest eq "ooo";
-print "ok 1\n";
-
-$d = Digest->Dummy;
-print "not " unless $d->digest eq "ooo";
-print "ok 2\n";
-
-$Digest::MMAP{"Dummy-24"} = [["NotThere"], "NotThereEither", ["Digest::Dummy", 24]];
-$d = Digest->new("Dummy-24");
-print "not " unless $d->digest eq "24";
-print "ok 3\n";
-
-
diff --git a/3.8.8/sources/cpan-Digest/vendor/t/file.t b/3.8.8/sources/cpan-Digest/vendor/t/file.t
deleted file mode 100644
index f431a38..0000000
--- a/3.8.8/sources/cpan-Digest/vendor/t/file.t
+++ /dev/null
@@ -1,52 +0,0 @@
-#!perl -w
-
-use Test qw(plan ok);
-plan tests => 5;
-
-{
- package Digest::Foo;
- require Digest::base;
- use vars qw(@ISA $VERSION);
- @ISA = qw(Digest::base);
-
- sub new {
- my $class = shift;
- my $str = "";
- bless \$str, $class;
- }
-
- sub add {
- my $self = shift;
- $$self .= join("", @_);
- return $self;
- }
-
- sub digest {
- my $self = shift;
- return sprintf "%04d", length($$self);
- }
-}
-
-use Digest::file qw(digest_file digest_file_hex digest_file_base64);
-
-my $file = "test-$$";
-die if -f $file;
-open(F, ">$file") || die "Can't create '$file': $!";
-binmode(F);
-print F "foo\0\n";
-close(F) || die "Can't write '$file': $!";
-
-ok(digest_file($file, "Foo"), "0005");
-
-if (ord('A') == 193) { # EBCDIC.
- ok(digest_file_hex($file, "Foo"), "f0f0f0f5");
- ok(digest_file_base64($file, "Foo"), "8PDw9Q");
-} else {
- ok(digest_file_hex($file, "Foo"), "30303035");
- ok(digest_file_base64($file, "Foo"), "MDAwNQ");
-}
-
-unlink($file) || warn "Can't unlink '$file': $!";
-
-ok(eval { digest_file("not-there.txt", "Foo") }, undef);
-ok($@);
diff --git a/3.8.8/sources/cpan-Encode/vendor/Byte/Makefile.old b/3.8.8/sources/cpan-Encode/vendor/Byte/Makefile.old
deleted file mode 100644
index 79bc9f7..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/Byte/Makefile.old
+++ /dev/null
@@ -1,771 +0,0 @@
-# This Makefile is for the Encode::Byte extension to perl.
-#
-# It was generated automatically by MakeMaker version
-# 6.56 (Revision: 65600) from the contents of
-# Makefile.PL. Don't edit this file, edit Makefile.PL instead.
-#
-# ANY CHANGES MADE HERE WILL BE LOST!
-#
-# MakeMaker ARGV: ()
-#
-
-# MakeMaker Parameters:
-
-# BUILD_REQUIRES => { }
-# INC => q[-I../Encode]
-# MAN3PODS => { }
-# NAME => q[Encode::Byte]
-# OBJECT => q[$(O_FILES)]
-# PREREQ_PM => { }
-# VERSION_FROM => q[Byte.pm]
-# XSOPT => q[-nolinenumbers]
-# dist => { DIST_DEFAULT=>q[all tardist], COMPRESS=>q[gzip -9f], SUFFIX=>q[gz] }
-
-# --- MakeMaker post_initialize section:
-# Built Byte.xs
-
-
-
-# --- MakeMaker const_config section:
-
-# These definitions are from config.sh (via /opt/perl-5.12.0/lib/5.12.0/darwin-2level/Config.pm).
-# They may have been overridden via Makefile.PL or on the command line.
-AR = ar
-CC = cc
-CCCDLFLAGS =
-CCDLFLAGS =
-DLEXT = bundle
-DLSRC = dl_dlopen.xs
-EXE_EXT =
-FULL_AR = /usr/bin/ar
-LD = env MACOSX_DEPLOYMENT_TARGET=10.3 cc
-LDDLFLAGS = -bundle -undefined dynamic_lookup -L/usr/local/lib -L/opt/local/lib -fstack-protector
-LDFLAGS = -fstack-protector -L/usr/local/lib -L/opt/local/lib
-LIBC = /usr/lib/libc.dylib
-LIB_EXT = .a
-OBJ_EXT = .o
-OSNAME = darwin
-OSVERS = 10.3.0
-RANLIB = ranlib
-SITELIBEXP = /opt/perl-5.12.0/lib/site_perl/5.12.0
-SITEARCHEXP = /opt/perl-5.12.0/lib/site_perl/5.12.0/darwin-2level
-SO = dylib
-VENDORARCHEXP =
-VENDORLIBEXP =
-
-
-# --- MakeMaker constants section:
-AR_STATIC_ARGS = cr
-DIRFILESEP = /
-DFSEP = $(DIRFILESEP)
-NAME = Encode::Byte
-NAME_SYM = Encode_Byte
-VERSION = 2.04
-VERSION_MACRO = VERSION
-VERSION_SYM = 2_04
-DEFINE_VERSION = -D$(VERSION_MACRO)=\"$(VERSION)\"
-XS_VERSION = 2.04
-XS_VERSION_MACRO = XS_VERSION
-XS_DEFINE_VERSION = -D$(XS_VERSION_MACRO)=\"$(XS_VERSION)\"
-INST_ARCHLIB = ../blib/arch
-INST_SCRIPT = ../blib/script
-INST_BIN = ../blib/bin
-INST_LIB = ../blib/lib
-INST_MAN1DIR = ../blib/man1
-INST_MAN3DIR = ../blib/man3
-MAN1EXT = 1
-MAN3EXT = 3
-INSTALLDIRS = site
-DESTDIR =
-PREFIX = $(SITEPREFIX)
-PERLPREFIX = /opt/perl-5.12.0
-SITEPREFIX = /opt/perl-5.12.0
-VENDORPREFIX =
-INSTALLPRIVLIB = /opt/perl-5.12.0/lib/5.12.0
-DESTINSTALLPRIVLIB = $(DESTDIR)$(INSTALLPRIVLIB)
-INSTALLSITELIB = /opt/perl-5.12.0/lib/site_perl/5.12.0
-DESTINSTALLSITELIB = $(DESTDIR)$(INSTALLSITELIB)
-INSTALLVENDORLIB =
-DESTINSTALLVENDORLIB = $(DESTDIR)$(INSTALLVENDORLIB)
-INSTALLARCHLIB = /opt/perl-5.12.0/lib/5.12.0/darwin-2level
-DESTINSTALLARCHLIB = $(DESTDIR)$(INSTALLARCHLIB)
-INSTALLSITEARCH = /opt/perl-5.12.0/lib/site_perl/5.12.0/darwin-2level
-DESTINSTALLSITEARCH = $(DESTDIR)$(INSTALLSITEARCH)
-INSTALLVENDORARCH =
-DESTINSTALLVENDORARCH = $(DESTDIR)$(INSTALLVENDORARCH)
-INSTALLBIN = /opt/perl-5.12.0/bin
-DESTINSTALLBIN = $(DESTDIR)$(INSTALLBIN)
-INSTALLSITEBIN = /opt/perl-5.12.0/bin
-DESTINSTALLSITEBIN = $(DESTDIR)$(INSTALLSITEBIN)
-INSTALLVENDORBIN =
-DESTINSTALLVENDORBIN = $(DESTDIR)$(INSTALLVENDORBIN)
-INSTALLSCRIPT = /opt/perl-5.12.0/bin
-DESTINSTALLSCRIPT = $(DESTDIR)$(INSTALLSCRIPT)
-INSTALLSITESCRIPT = /opt/perl-5.12.0/bin
-DESTINSTALLSITESCRIPT = $(DESTDIR)$(INSTALLSITESCRIPT)
-INSTALLVENDORSCRIPT =
-DESTINSTALLVENDORSCRIPT = $(DESTDIR)$(INSTALLVENDORSCRIPT)
-INSTALLMAN1DIR = /opt/perl-5.12.0/man/man1
-DESTINSTALLMAN1DIR = $(DESTDIR)$(INSTALLMAN1DIR)
-INSTALLSITEMAN1DIR = /opt/perl-5.12.0/man/man1
-DESTINSTALLSITEMAN1DIR = $(DESTDIR)$(INSTALLSITEMAN1DIR)
-INSTALLVENDORMAN1DIR =
-DESTINSTALLVENDORMAN1DIR = $(DESTDIR)$(INSTALLVENDORMAN1DIR)
-INSTALLMAN3DIR = /opt/perl-5.12.0/man/man3
-DESTINSTALLMAN3DIR = $(DESTDIR)$(INSTALLMAN3DIR)
-INSTALLSITEMAN3DIR = /opt/perl-5.12.0/man/man3
-DESTINSTALLSITEMAN3DIR = $(DESTDIR)$(INSTALLSITEMAN3DIR)
-INSTALLVENDORMAN3DIR =
-DESTINSTALLVENDORMAN3DIR = $(DESTDIR)$(INSTALLVENDORMAN3DIR)
-PERL_LIB = /opt/perl-5.12.0/lib/5.12.0
-PERL_ARCHLIB = /opt/perl-5.12.0/lib/5.12.0/darwin-2level
-LIBPERL_A = libperl.a
-FIRST_MAKEFILE = Makefile
-MAKEFILE_OLD = Makefile.old
-MAKE_APERL_FILE = Makefile.aperl
-PERLMAINCC = $(CC)
-PERL_INC = /opt/perl-5.12.0/lib/5.12.0/darwin-2level/CORE
-PERL = /opt/perl-5.12.0/bin/perl
-FULLPERL = /opt/perl-5.12.0/bin/perl
-ABSPERL = $(PERL)
-PERLRUN = $(PERL)
-FULLPERLRUN = $(FULLPERL)
-ABSPERLRUN = $(ABSPERL)
-PERLRUNINST = $(PERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
-FULLPERLRUNINST = $(FULLPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
-ABSPERLRUNINST = $(ABSPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
-PERL_CORE = 0
-PERM_DIR = 755
-PERM_RW = 644
-PERM_RWX = 755
-
-MAKEMAKER = /opt/perl-5.12.0/lib/5.12.0/ExtUtils/MakeMaker.pm
-MM_VERSION = 6.56
-MM_REVISION = 65600
-
-# 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.
-MAKE = make
-FULLEXT = Encode/Byte
-BASEEXT = Byte
-PARENT_NAME = Encode
-DLBASE = $(BASEEXT)
-VERSION_FROM = Byte.pm
-INC = -I../Encode
-OBJECT = $(O_FILES)
-LDFROM = $(OBJECT)
-LINKTYPE = dynamic
-BOOTDEP =
-
-# Handy lists of source code files:
-XS_FILES = Byte.xs
-C_FILES = Byte.c \
- byte_t.c
-O_FILES = Byte.o \
- byte_t.o
-H_FILES = ../Encode/encode.h
-MAN1PODS =
-MAN3PODS =
-
-# Where is the Config information that we are using/depend on
-CONFIGDEP = $(PERL_ARCHLIB)$(DFSEP)Config.pm $(PERL_INC)$(DFSEP)config.h
-
-# Where to build things
-INST_LIBDIR = $(INST_LIB)/Encode
-INST_ARCHLIBDIR = $(INST_ARCHLIB)/Encode
-
-INST_AUTODIR = $(INST_LIB)/auto/$(FULLEXT)
-INST_ARCHAUTODIR = $(INST_ARCHLIB)/auto/$(FULLEXT)
-
-INST_STATIC = $(INST_ARCHAUTODIR)/$(BASEEXT)$(LIB_EXT)
-INST_DYNAMIC = $(INST_ARCHAUTODIR)/$(DLBASE).$(DLEXT)
-INST_BOOT = $(INST_ARCHAUTODIR)/$(BASEEXT).bs
-
-# Extra linker info
-EXPORT_LIST =
-PERL_ARCHIVE =
-PERL_ARCHIVE_AFTER =
-
-
-TO_INST_PM = Byte.pm
-
-PM_TO_BLIB = Byte.pm \
- $(INST_LIB)/Encode/Byte.pm
-
-
-# --- MakeMaker platform_constants section:
-MM_Unix_VERSION = 6.56
-PERL_MALLOC_DEF = -DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc -Dfree=Perl_mfree -Drealloc=Perl_realloc -Dcalloc=Perl_calloc
-
-
-# --- MakeMaker tool_autosplit section:
-# Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto
-AUTOSPLITFILE = $(ABSPERLRUN) -e 'use AutoSplit; autosplit($$ARGV[0], $$ARGV[1], 0, 1, 1)' --
-
-
-
-# --- MakeMaker tool_xsubpp section:
-
-XSUBPPDIR = /opt/perl-5.12.0/lib/5.12.0/ExtUtils
-XSUBPP = $(XSUBPPDIR)$(DFSEP)xsubpp
-XSUBPPRUN = $(PERLRUN) $(XSUBPP)
-XSPROTOARG =
-XSUBPPDEPS = /opt/perl-5.12.0/lib/5.12.0/ExtUtils/typemap $(XSUBPP)
-XSUBPPARGS = -nolinenumbers -typemap /opt/perl-5.12.0/lib/5.12.0/ExtUtils/typemap
-XSUBPP_EXTRA_ARGS =
-
-
-# --- MakeMaker tools_other section:
-SHELL = /bin/sh
-CHMOD = chmod
-CP = cp
-MV = mv
-NOOP = $(TRUE)
-NOECHO = @
-RM_F = rm -f
-RM_RF = rm -rf
-TEST_F = test -f
-TOUCH = touch
-UMASK_NULL = umask 0
-DEV_NULL = > /dev/null 2>&1
-MKPATH = $(ABSPERLRUN) -MExtUtils::Command -e 'mkpath' --
-EQUALIZE_TIMESTAMP = $(ABSPERLRUN) -MExtUtils::Command -e 'eqtime' --
-FALSE = false
-TRUE = true
-ECHO = echo
-ECHO_N = echo -n
-UNINST = 0
-VERBINST = 0
-MOD_INSTALL = $(ABSPERLRUN) -MExtUtils::Install -e 'install([ from_to => {@ARGV}, verbose => '\''$(VERBINST)'\'', uninstall_shadows => '\''$(UNINST)'\'', dir_mode => '\''$(PERM_DIR)'\'' ]);' --
-DOC_INSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'perllocal_install' --
-UNINSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'uninstall' --
-WARN_IF_OLD_PACKLIST = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'warn_if_old_packlist' --
-MACROSTART =
-MACROEND =
-USEMAKEFILE = -f
-FIXIN = $(ABSPERLRUN) -MExtUtils::MY -e 'MY->fixin(shift)' --
-
-
-# --- MakeMaker makemakerdflt section:
-makemakerdflt : all
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker dist section skipped.
-
-# --- MakeMaker macro section:
-
-
-# --- MakeMaker depend section:
-
-
-# --- MakeMaker cflags section:
-
-CCFLAGS = -fno-common -DPERL_DARWIN -no-cpp-precomp -fno-strict-aliasing -pipe -fstack-protector -I/opt/local/include
-OPTIMIZE = -O3
-PERLTYPE =
-MPOLLUTE =
-
-
-# --- MakeMaker const_loadlibs section:
-
-# Encode::Byte might depend on some other libraries:
-# See ExtUtils::Liblist for details
-#
-
-
-# --- MakeMaker const_cccmd section:
-CCCMD = $(CC) -c $(PASTHRU_INC) $(INC) \
- $(CCFLAGS) $(OPTIMIZE) \
- $(PERLTYPE) $(MPOLLUTE) $(DEFINE_VERSION) \
- $(XS_DEFINE_VERSION)
-
-# --- MakeMaker post_constants section:
-
-
-# --- MakeMaker pasthru section:
-
-PASTHRU = LIBPERL_A="$(LIBPERL_A)"\
- LINKTYPE="$(LINKTYPE)"\
- OPTIMIZE="$(OPTIMIZE)"\
- PREFIX="$(PREFIX)"\
- PASTHRU_INC="$(PASTHRU_INC)"
-
-
-# --- MakeMaker special_targets section:
-.SUFFIXES : .xs .c .C .cpp .i .s .cxx .cc $(OBJ_EXT)
-
-.PHONY: all config static dynamic test linkext manifest blibdirs clean realclean disttest distdir
-
-
-
-# --- MakeMaker c_o section:
-
-.c.i:
- cc -E -c $(PASTHRU_INC) $(INC) \
- $(CCFLAGS) $(OPTIMIZE) \
- $(PERLTYPE) $(MPOLLUTE) $(DEFINE_VERSION) \
- $(XS_DEFINE_VERSION) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c > $*.i
-
-.c.s:
- $(CCCMD) -S $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c
-
-.c$(OBJ_EXT):
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c
-
-.cpp$(OBJ_EXT):
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cpp
-
-.cxx$(OBJ_EXT):
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cxx
-
-.cc$(OBJ_EXT):
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cc
-
-.C$(OBJ_EXT):
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.C
-
-
-# --- MakeMaker xs_c section:
-
-.xs.c:
- $(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $(XSUBPP_EXTRA_ARGS) $*.xs > $*.xsc && $(MV) $*.xsc $*.c
-
-
-# --- MakeMaker xs_o section:
-
-.xs$(OBJ_EXT):
- $(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.xsc && $(MV) $*.xsc $*.c
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c
-
-
-# --- MakeMaker top_targets section:
-all :: pure_all manifypods
- $(NOECHO) $(NOOP)
-
-
-pure_all :: config pm_to_blib subdirs linkext
- $(NOECHO) $(NOOP)
-
-subdirs :: $(MYEXTLIB)
- $(NOECHO) $(NOOP)
-
-config :: $(FIRST_MAKEFILE) blibdirs
- $(NOECHO) $(NOOP)
-
-$(O_FILES): $(H_FILES)
-
-help :
- perldoc ExtUtils::MakeMaker
-
-
-# --- MakeMaker blibdirs section:
-blibdirs : $(INST_LIBDIR)$(DFSEP).exists $(INST_ARCHLIB)$(DFSEP).exists $(INST_AUTODIR)$(DFSEP).exists $(INST_ARCHAUTODIR)$(DFSEP).exists $(INST_BIN)$(DFSEP).exists $(INST_SCRIPT)$(DFSEP).exists $(INST_MAN1DIR)$(DFSEP).exists $(INST_MAN3DIR)$(DFSEP).exists
- $(NOECHO) $(NOOP)
-
-# Backwards compat with 6.18 through 6.25
-blibdirs.ts : blibdirs
- $(NOECHO) $(NOOP)
-
-$(INST_LIBDIR)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_LIBDIR)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_LIBDIR)
- $(NOECHO) $(TOUCH) $(INST_LIBDIR)$(DFSEP).exists
-
-$(INST_ARCHLIB)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_ARCHLIB)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHLIB)
- $(NOECHO) $(TOUCH) $(INST_ARCHLIB)$(DFSEP).exists
-
-$(INST_AUTODIR)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_AUTODIR)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_AUTODIR)
- $(NOECHO) $(TOUCH) $(INST_AUTODIR)$(DFSEP).exists
-
-$(INST_ARCHAUTODIR)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_ARCHAUTODIR)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHAUTODIR)
- $(NOECHO) $(TOUCH) $(INST_ARCHAUTODIR)$(DFSEP).exists
-
-$(INST_BIN)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_BIN)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_BIN)
- $(NOECHO) $(TOUCH) $(INST_BIN)$(DFSEP).exists
-
-$(INST_SCRIPT)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_SCRIPT)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_SCRIPT)
- $(NOECHO) $(TOUCH) $(INST_SCRIPT)$(DFSEP).exists
-
-$(INST_MAN1DIR)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_MAN1DIR)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN1DIR)
- $(NOECHO) $(TOUCH) $(INST_MAN1DIR)$(DFSEP).exists
-
-$(INST_MAN3DIR)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_MAN3DIR)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN3DIR)
- $(NOECHO) $(TOUCH) $(INST_MAN3DIR)$(DFSEP).exists
-
-
-
-# --- MakeMaker linkext section:
-
-linkext :: $(LINKTYPE)
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker dlsyms section:
-
-
-# --- MakeMaker dynamic section:
-
-dynamic :: $(FIRST_MAKEFILE) $(INST_DYNAMIC) $(INST_BOOT)
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker dynamic_bs section:
-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) $@
- $(CHMOD) $(PERM_RW) $@
-
-$(INST_BOOT) : $(BOOTSTRAP) $(INST_ARCHAUTODIR)$(DFSEP).exists
- $(NOECHO) $(RM_RF) $@
- - $(CP) $(BOOTSTRAP) $@
- $(CHMOD) $(PERM_RW) $@
-
-
-# --- MakeMaker dynamic_lib section:
-
-# This section creates the dynamically loadable $(INST_DYNAMIC)
-# from $(OBJECT) and possibly $(MYEXTLIB).
-ARMAYBE = :
-OTHERLDFLAGS =
-INST_DYNAMIC_DEP =
-INST_DYNAMIC_FIX =
-
-$(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(BOOTSTRAP) $(INST_ARCHAUTODIR)$(DFSEP).exists $(EXPORT_LIST) $(PERL_ARCHIVE) $(PERL_ARCHIVE_AFTER) $(INST_DYNAMIC_DEP)
- $(RM_F) $@
- $(LD) $(LDDLFLAGS) $(LDFROM) $(OTHERLDFLAGS) -o $@ $(MYEXTLIB) \
- $(PERL_ARCHIVE) $(LDLOADLIBS) $(PERL_ARCHIVE_AFTER) $(EXPORT_LIST) \
- $(INST_DYNAMIC_FIX)
- $(CHMOD) $(PERM_RWX) $@
-
-
-# --- MakeMaker static section:
-
-## $(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)
-
-
-# --- MakeMaker static_lib section:
-
-$(INST_STATIC) : $(OBJECT) $(MYEXTLIB) $(INST_ARCHAUTODIR)$(DFSEP).exists
- $(RM_RF) $@
- $(FULL_AR) $(AR_STATIC_ARGS) $@ $(OBJECT) && $(RANLIB) $@
- $(CHMOD) $(PERM_RWX) $@
- $(NOECHO) $(ECHO) "$(EXTRALIBS)" > $(INST_ARCHAUTODIR)/extralibs.ld
-
-
-# --- MakeMaker manifypods section:
-
-POD2MAN_EXE = $(PERLRUN) "-MExtUtils::Command::MM" -e pod2man "--"
-POD2MAN = $(POD2MAN_EXE)
-
-
-manifypods : pure_all
- $(NOECHO) $(NOOP)
-
-
-
-
-# --- MakeMaker processPL section:
-
-
-# --- MakeMaker installbin section:
-
-
-# --- MakeMaker subdirs section:
-
-# none
-
-# --- MakeMaker clean_subdirs section:
-clean_subdirs :
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker clean section:
-
-# 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
- - $(RM_F) \
- *$(LIB_EXT) core \
- core.[0-9] $(INST_ARCHAUTODIR)/extralibs.all \
- core.[0-9][0-9] $(BASEEXT).bso \
- pm_to_blib.ts core.[0-9][0-9][0-9][0-9] \
- $(BASEEXT).x $(BOOTSTRAP) \
- Byte.c perl$(EXE_EXT) \
- tmon.out *$(OBJ_EXT) \
- pm_to_blib $(INST_ARCHAUTODIR)/extralibs.ld \
- blibdirs.ts core.[0-9][0-9][0-9][0-9][0-9] \
- *perl.core core.*perl.*.? \
- $(MAKE_APERL_FILE) perl \
- $(BASEEXT).def core.[0-9][0-9][0-9] \
- mon.out lib$(BASEEXT).def \
- perlmain.c perl.exe \
- so_locations $(BASEEXT).exp
- - $(RM_RF) \
- Byte.xs byte_t.fnm \
- byte_t.c byte_t$(OBJ_EXT) \
- byte_t.exh byte_t.h \
- blib
- - $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) $(DEV_NULL)
-
-
-# --- MakeMaker realclean_subdirs section:
-realclean_subdirs :
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker realclean section:
-# Delete temporary files (via clean) and also delete dist files
-realclean purge :: clean realclean_subdirs
- - $(RM_F) \
- $(OBJECT) $(MAKEFILE_OLD) \
- $(FIRST_MAKEFILE)
- - $(RM_RF) \
- $(DISTVNAME)
-
-
-# --- MakeMaker metafile section:
-metafile : create_distdir
- $(NOECHO) $(ECHO) Generating META.yml
- $(NOECHO) $(ECHO) '--- #YAML:1.0' > META_new.yml
- $(NOECHO) $(ECHO) 'name: Encode-Byte' >> META_new.yml
- $(NOECHO) $(ECHO) 'version: 2.04' >> META_new.yml
- $(NOECHO) $(ECHO) 'abstract: ~' >> META_new.yml
- $(NOECHO) $(ECHO) 'author: []' >> META_new.yml
- $(NOECHO) $(ECHO) 'license: unknown' >> META_new.yml
- $(NOECHO) $(ECHO) 'distribution_type: module' >> META_new.yml
- $(NOECHO) $(ECHO) 'configure_requires:' >> META_new.yml
- $(NOECHO) $(ECHO) ' ExtUtils::MakeMaker: 0' >> META_new.yml
- $(NOECHO) $(ECHO) 'build_requires:' >> META_new.yml
- $(NOECHO) $(ECHO) ' ExtUtils::MakeMaker: 0' >> META_new.yml
- $(NOECHO) $(ECHO) 'requires: {}' >> META_new.yml
- $(NOECHO) $(ECHO) 'no_index:' >> META_new.yml
- $(NOECHO) $(ECHO) ' directory:' >> META_new.yml
- $(NOECHO) $(ECHO) ' - t' >> META_new.yml
- $(NOECHO) $(ECHO) ' - inc' >> META_new.yml
- $(NOECHO) $(ECHO) 'generated_by: ExtUtils::MakeMaker version 6.56' >> META_new.yml
- $(NOECHO) $(ECHO) 'meta-spec:' >> META_new.yml
- $(NOECHO) $(ECHO) ' url: http://module-build.sourceforge.net/META-spec-v1.4.html' >> META_new.yml
- $(NOECHO) $(ECHO) ' version: 1.4' >> META_new.yml
- -$(NOECHO) $(MV) META_new.yml $(DISTVNAME)/META.yml
-
-
-# --- MakeMaker signature section:
-signature :
- cpansign -s
-
-
-# --- MakeMaker dist_basics section skipped.
-
-# --- MakeMaker dist_core section skipped.
-
-# --- MakeMaker distdir section skipped.
-
-# --- MakeMaker dist_test section skipped.
-
-# --- MakeMaker dist_ci section skipped.
-
-# --- MakeMaker distmeta section:
-distmeta : create_distdir metafile
- $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'eval { maniadd({q{META.yml} => q{Module meta-data (added by MakeMaker)}}) } ' \
- -e ' or print "Could not add META.yml to MANIFEST: $${'\''@'\''}\n"' --
-
-
-
-# --- MakeMaker distsignature section:
-distsignature : create_distdir
- $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'eval { maniadd({q{SIGNATURE} => q{Public-key signature (added by MakeMaker)}}) } ' \
- -e ' or print "Could not add SIGNATURE to MANIFEST: $${'\''@'\''}\n"' --
- $(NOECHO) cd $(DISTVNAME) && $(TOUCH) SIGNATURE
- cd $(DISTVNAME) && cpansign -s
-
-
-
-# --- MakeMaker install section skipped.
-
-# --- MakeMaker force section:
-# Phony target to force checking subdirectories.
-FORCE :
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker perldepend section:
-
-PERL_HDRS = \
- $(PERL_INC)/EXTERN.h \
- $(PERL_INC)/INTERN.h \
- $(PERL_INC)/XSUB.h \
- $(PERL_INC)/av.h \
- $(PERL_INC)/cc_runtime.h \
- $(PERL_INC)/config.h \
- $(PERL_INC)/cop.h \
- $(PERL_INC)/cv.h \
- $(PERL_INC)/dosish.h \
- $(PERL_INC)/embed.h \
- $(PERL_INC)/embedvar.h \
- $(PERL_INC)/fakethr.h \
- $(PERL_INC)/form.h \
- $(PERL_INC)/gv.h \
- $(PERL_INC)/handy.h \
- $(PERL_INC)/hv.h \
- $(PERL_INC)/intrpvar.h \
- $(PERL_INC)/iperlsys.h \
- $(PERL_INC)/keywords.h \
- $(PERL_INC)/mg.h \
- $(PERL_INC)/nostdio.h \
- $(PERL_INC)/op.h \
- $(PERL_INC)/opcode.h \
- $(PERL_INC)/patchlevel.h \
- $(PERL_INC)/perl.h \
- $(PERL_INC)/perlio.h \
- $(PERL_INC)/perlsdio.h \
- $(PERL_INC)/perlsfio.h \
- $(PERL_INC)/perlvars.h \
- $(PERL_INC)/perly.h \
- $(PERL_INC)/pp.h \
- $(PERL_INC)/pp_proto.h \
- $(PERL_INC)/proto.h \
- $(PERL_INC)/regcomp.h \
- $(PERL_INC)/regexp.h \
- $(PERL_INC)/regnodes.h \
- $(PERL_INC)/scope.h \
- $(PERL_INC)/sv.h \
- $(PERL_INC)/thread.h \
- $(PERL_INC)/unixish.h \
- $(PERL_INC)/util.h
-
-$(OBJECT) : $(PERL_HDRS)
-
-Byte.c : $(XSUBPPDEPS)
-
-
-# --- MakeMaker makefile section:
-
-$(OBJECT) : $(FIRST_MAKEFILE)
-
-# 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 $?"
- $(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) Makefile.PL
- $(NOECHO) $(ECHO) "==> Your Makefile has been rebuilt. <=="
- $(NOECHO) $(ECHO) "==> Please rerun the $(MAKE) command. <=="
- $(FALSE)
-
-
-
-# --- MakeMaker staticmake section:
-
-# --- MakeMaker makeaperl section ---
-MAP_TARGET = ../perl
-FULLPERL = /opt/perl-5.12.0/bin/perl
-
-
-# --- MakeMaker test section:
-
-TEST_VERBOSE=0
-TEST_TYPE=test_$(LINKTYPE)
-TEST_FILE = test.pl
-TEST_FILES =
-TESTDB_SW = -d
-
-testdb :: testdb_$(LINKTYPE)
-
-test :: $(TEST_TYPE) subdirs-test
-
-subdirs-test ::
- $(NOECHO) $(NOOP)
-
- $(NOECHO) $(ECHO) 'No tests defined for $(NAME) extension.'
-
-test_dynamic :: pure_all
-
-testdb_dynamic :: pure_all
- PERL_DL_NONLAZY=1 $(FULLPERLRUN) $(TESTDB_SW) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE)
-
-test_ : test_dynamic
-
-test_static :: pure_all $(MAP_TARGET)
-
-testdb_static :: pure_all $(MAP_TARGET)
- PERL_DL_NONLAZY=1 ./$(MAP_TARGET) $(TESTDB_SW) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE)
-
-
-
-# --- MakeMaker ppd section:
-# Creates a PPD (Perl Package Description) for a binary distribution.
-ppd :
- $(NOECHO) $(ECHO) '<SOFTPKG NAME="$(DISTNAME)" VERSION="2.04">' > $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' <ABSTRACT></ABSTRACT>' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' <AUTHOR></AUTHOR>' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' <IMPLEMENTATION>' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' <ARCHITECTURE NAME="darwin-2level-5.12" />' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' <CODEBASE HREF="" />' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' </IMPLEMENTATION>' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) '</SOFTPKG>' >> $(DISTNAME).ppd
-
-
-# --- MakeMaker pm_to_blib section:
-
-pm_to_blib : $(FIRST_MAKEFILE) $(TO_INST_PM)
- $(NOECHO) $(ABSPERLRUN) -MExtUtils::Install -e 'pm_to_blib({@ARGV}, '\''$(INST_LIB)/auto'\'', q[$(PM_FILTER)], '\''$(PERM_DIR)'\'')' -- \
- Byte.pm $(INST_LIB)/Encode/Byte.pm
- $(NOECHO) $(TOUCH) pm_to_blib
-
-
-# --- MakeMaker selfdocument section:
-
-
-# --- MakeMaker postamble section:
-# Byte$(OBJ_EXT) depends on .h and .exh files not .c files - but all written by enc2xs
-Byte.c : Byte.xs byte_t.c
-
-Byte$(OBJ_EXT) : Byte.c
-
-byte_t.c : ../bin/enc2xs Makefile.PL ../ucm/nextstep.ucm ../ucm/hp-roman8.ucm ../ucm/viscii.ucm ../ucm/adobeStdenc.ucm ../ucm/koi8-f.ucm \
- ../ucm/koi8-r.ucm ../ucm/koi8-u.ucm ../ucm/macArabic.ucm ../ucm/macCentEuro.ucm ../ucm/macCroatian.ucm ../ucm/macCyrillic.ucm \
- ../ucm/macFarsi.ucm ../ucm/macGreek.ucm ../ucm/macHebrew.ucm ../ucm/macIceland.ucm ../ucm/macRoman.ucm ../ucm/macROMnn.ucm \
- ../ucm/macRUMnn.ucm ../ucm/macSami.ucm ../ucm/macThai.ucm ../ucm/macTurkish.ucm ../ucm/macUkraine.ucm ../ucm/8859-10.ucm \
- ../ucm/8859-11.ucm ../ucm/8859-13.ucm ../ucm/8859-14.ucm ../ucm/8859-15.ucm ../ucm/8859-16.ucm ../ucm/8859-2.ucm ../ucm/8859-3.ucm \
- ../ucm/8859-4.ucm ../ucm/8859-5.ucm ../ucm/8859-6.ucm ../ucm/8859-7.ucm ../ucm/8859-8.ucm ../ucm/8859-9.ucm ../ucm/cp1006.ucm \
- ../ucm/cp1250.ucm ../ucm/cp1251.ucm ../ucm/cp1252.ucm ../ucm/cp1253.ucm ../ucm/cp1254.ucm ../ucm/cp1255.ucm ../ucm/cp1256.ucm \
- ../ucm/cp1257.ucm ../ucm/cp1258.ucm ../ucm/cp424.ucm ../ucm/cp437.ucm ../ucm/cp737.ucm ../ucm/cp775.ucm ../ucm/cp850.ucm \
- ../ucm/cp852.ucm ../ucm/cp855.ucm ../ucm/cp856.ucm ../ucm/cp857.ucm ../ucm/cp858.ucm ../ucm/cp860.ucm ../ucm/cp861.ucm \
- ../ucm/cp862.ucm ../ucm/cp863.ucm ../ucm/cp864.ucm ../ucm/cp865.ucm ../ucm/cp866.ucm ../ucm/cp869.ucm ../ucm/cp874.ucm
- $(PERL) ../bin/enc2xs -"Q" -"O" -o $@ -f byte_t.fnm
-
-
-
-# End.
diff --git a/3.8.8/sources/cpan-Encode/vendor/EBCDIC/Makefile.old b/3.8.8/sources/cpan-Encode/vendor/EBCDIC/Makefile.old
deleted file mode 100644
index 635e1eb..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/EBCDIC/Makefile.old
+++ /dev/null
@@ -1,762 +0,0 @@
-# This Makefile is for the Encode::EBCDIC extension to perl.
-#
-# It was generated automatically by MakeMaker version
-# 6.56 (Revision: 65600) from the contents of
-# Makefile.PL. Don't edit this file, edit Makefile.PL instead.
-#
-# ANY CHANGES MADE HERE WILL BE LOST!
-#
-# MakeMaker ARGV: ()
-#
-
-# MakeMaker Parameters:
-
-# BUILD_REQUIRES => { }
-# INC => q[-I../Encode]
-# MAN3PODS => { }
-# NAME => q[Encode::EBCDIC]
-# OBJECT => q[$(O_FILES)]
-# PREREQ_PM => { }
-# VERSION_FROM => q[EBCDIC.pm]
-# XSOPT => q[-nolinenumbers]
-# dist => { DIST_DEFAULT=>q[all tardist], COMPRESS=>q[gzip -9f], SUFFIX=>q[gz] }
-
-# --- MakeMaker post_initialize section:
-# Built EBCDIC.xs
-
-
-
-# --- MakeMaker const_config section:
-
-# These definitions are from config.sh (via /opt/perl-5.12.0/lib/5.12.0/darwin-2level/Config.pm).
-# They may have been overridden via Makefile.PL or on the command line.
-AR = ar
-CC = cc
-CCCDLFLAGS =
-CCDLFLAGS =
-DLEXT = bundle
-DLSRC = dl_dlopen.xs
-EXE_EXT =
-FULL_AR = /usr/bin/ar
-LD = env MACOSX_DEPLOYMENT_TARGET=10.3 cc
-LDDLFLAGS = -bundle -undefined dynamic_lookup -L/usr/local/lib -L/opt/local/lib -fstack-protector
-LDFLAGS = -fstack-protector -L/usr/local/lib -L/opt/local/lib
-LIBC = /usr/lib/libc.dylib
-LIB_EXT = .a
-OBJ_EXT = .o
-OSNAME = darwin
-OSVERS = 10.3.0
-RANLIB = ranlib
-SITELIBEXP = /opt/perl-5.12.0/lib/site_perl/5.12.0
-SITEARCHEXP = /opt/perl-5.12.0/lib/site_perl/5.12.0/darwin-2level
-SO = dylib
-VENDORARCHEXP =
-VENDORLIBEXP =
-
-
-# --- MakeMaker constants section:
-AR_STATIC_ARGS = cr
-DIRFILESEP = /
-DFSEP = $(DIRFILESEP)
-NAME = Encode::EBCDIC
-NAME_SYM = Encode_EBCDIC
-VERSION = 2.02
-VERSION_MACRO = VERSION
-VERSION_SYM = 2_02
-DEFINE_VERSION = -D$(VERSION_MACRO)=\"$(VERSION)\"
-XS_VERSION = 2.02
-XS_VERSION_MACRO = XS_VERSION
-XS_DEFINE_VERSION = -D$(XS_VERSION_MACRO)=\"$(XS_VERSION)\"
-INST_ARCHLIB = ../blib/arch
-INST_SCRIPT = ../blib/script
-INST_BIN = ../blib/bin
-INST_LIB = ../blib/lib
-INST_MAN1DIR = ../blib/man1
-INST_MAN3DIR = ../blib/man3
-MAN1EXT = 1
-MAN3EXT = 3
-INSTALLDIRS = site
-DESTDIR =
-PREFIX = $(SITEPREFIX)
-PERLPREFIX = /opt/perl-5.12.0
-SITEPREFIX = /opt/perl-5.12.0
-VENDORPREFIX =
-INSTALLPRIVLIB = /opt/perl-5.12.0/lib/5.12.0
-DESTINSTALLPRIVLIB = $(DESTDIR)$(INSTALLPRIVLIB)
-INSTALLSITELIB = /opt/perl-5.12.0/lib/site_perl/5.12.0
-DESTINSTALLSITELIB = $(DESTDIR)$(INSTALLSITELIB)
-INSTALLVENDORLIB =
-DESTINSTALLVENDORLIB = $(DESTDIR)$(INSTALLVENDORLIB)
-INSTALLARCHLIB = /opt/perl-5.12.0/lib/5.12.0/darwin-2level
-DESTINSTALLARCHLIB = $(DESTDIR)$(INSTALLARCHLIB)
-INSTALLSITEARCH = /opt/perl-5.12.0/lib/site_perl/5.12.0/darwin-2level
-DESTINSTALLSITEARCH = $(DESTDIR)$(INSTALLSITEARCH)
-INSTALLVENDORARCH =
-DESTINSTALLVENDORARCH = $(DESTDIR)$(INSTALLVENDORARCH)
-INSTALLBIN = /opt/perl-5.12.0/bin
-DESTINSTALLBIN = $(DESTDIR)$(INSTALLBIN)
-INSTALLSITEBIN = /opt/perl-5.12.0/bin
-DESTINSTALLSITEBIN = $(DESTDIR)$(INSTALLSITEBIN)
-INSTALLVENDORBIN =
-DESTINSTALLVENDORBIN = $(DESTDIR)$(INSTALLVENDORBIN)
-INSTALLSCRIPT = /opt/perl-5.12.0/bin
-DESTINSTALLSCRIPT = $(DESTDIR)$(INSTALLSCRIPT)
-INSTALLSITESCRIPT = /opt/perl-5.12.0/bin
-DESTINSTALLSITESCRIPT = $(DESTDIR)$(INSTALLSITESCRIPT)
-INSTALLVENDORSCRIPT =
-DESTINSTALLVENDORSCRIPT = $(DESTDIR)$(INSTALLVENDORSCRIPT)
-INSTALLMAN1DIR = /opt/perl-5.12.0/man/man1
-DESTINSTALLMAN1DIR = $(DESTDIR)$(INSTALLMAN1DIR)
-INSTALLSITEMAN1DIR = /opt/perl-5.12.0/man/man1
-DESTINSTALLSITEMAN1DIR = $(DESTDIR)$(INSTALLSITEMAN1DIR)
-INSTALLVENDORMAN1DIR =
-DESTINSTALLVENDORMAN1DIR = $(DESTDIR)$(INSTALLVENDORMAN1DIR)
-INSTALLMAN3DIR = /opt/perl-5.12.0/man/man3
-DESTINSTALLMAN3DIR = $(DESTDIR)$(INSTALLMAN3DIR)
-INSTALLSITEMAN3DIR = /opt/perl-5.12.0/man/man3
-DESTINSTALLSITEMAN3DIR = $(DESTDIR)$(INSTALLSITEMAN3DIR)
-INSTALLVENDORMAN3DIR =
-DESTINSTALLVENDORMAN3DIR = $(DESTDIR)$(INSTALLVENDORMAN3DIR)
-PERL_LIB = /opt/perl-5.12.0/lib/5.12.0
-PERL_ARCHLIB = /opt/perl-5.12.0/lib/5.12.0/darwin-2level
-LIBPERL_A = libperl.a
-FIRST_MAKEFILE = Makefile
-MAKEFILE_OLD = Makefile.old
-MAKE_APERL_FILE = Makefile.aperl
-PERLMAINCC = $(CC)
-PERL_INC = /opt/perl-5.12.0/lib/5.12.0/darwin-2level/CORE
-PERL = /opt/perl-5.12.0/bin/perl
-FULLPERL = /opt/perl-5.12.0/bin/perl
-ABSPERL = $(PERL)
-PERLRUN = $(PERL)
-FULLPERLRUN = $(FULLPERL)
-ABSPERLRUN = $(ABSPERL)
-PERLRUNINST = $(PERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
-FULLPERLRUNINST = $(FULLPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
-ABSPERLRUNINST = $(ABSPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
-PERL_CORE = 0
-PERM_DIR = 755
-PERM_RW = 644
-PERM_RWX = 755
-
-MAKEMAKER = /opt/perl-5.12.0/lib/5.12.0/ExtUtils/MakeMaker.pm
-MM_VERSION = 6.56
-MM_REVISION = 65600
-
-# 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.
-MAKE = make
-FULLEXT = Encode/EBCDIC
-BASEEXT = EBCDIC
-PARENT_NAME = Encode
-DLBASE = $(BASEEXT)
-VERSION_FROM = EBCDIC.pm
-INC = -I../Encode
-OBJECT = $(O_FILES)
-LDFROM = $(OBJECT)
-LINKTYPE = dynamic
-BOOTDEP =
-
-# Handy lists of source code files:
-XS_FILES = EBCDIC.xs
-C_FILES = EBCDIC.c \
- ebcdic_t.c
-O_FILES = EBCDIC.o \
- ebcdic_t.o
-H_FILES = ../Encode/encode.h
-MAN1PODS =
-MAN3PODS =
-
-# Where is the Config information that we are using/depend on
-CONFIGDEP = $(PERL_ARCHLIB)$(DFSEP)Config.pm $(PERL_INC)$(DFSEP)config.h
-
-# Where to build things
-INST_LIBDIR = $(INST_LIB)/Encode
-INST_ARCHLIBDIR = $(INST_ARCHLIB)/Encode
-
-INST_AUTODIR = $(INST_LIB)/auto/$(FULLEXT)
-INST_ARCHAUTODIR = $(INST_ARCHLIB)/auto/$(FULLEXT)
-
-INST_STATIC = $(INST_ARCHAUTODIR)/$(BASEEXT)$(LIB_EXT)
-INST_DYNAMIC = $(INST_ARCHAUTODIR)/$(DLBASE).$(DLEXT)
-INST_BOOT = $(INST_ARCHAUTODIR)/$(BASEEXT).bs
-
-# Extra linker info
-EXPORT_LIST =
-PERL_ARCHIVE =
-PERL_ARCHIVE_AFTER =
-
-
-TO_INST_PM = EBCDIC.pm
-
-PM_TO_BLIB = EBCDIC.pm \
- $(INST_LIB)/Encode/EBCDIC.pm
-
-
-# --- MakeMaker platform_constants section:
-MM_Unix_VERSION = 6.56
-PERL_MALLOC_DEF = -DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc -Dfree=Perl_mfree -Drealloc=Perl_realloc -Dcalloc=Perl_calloc
-
-
-# --- MakeMaker tool_autosplit section:
-# Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto
-AUTOSPLITFILE = $(ABSPERLRUN) -e 'use AutoSplit; autosplit($$ARGV[0], $$ARGV[1], 0, 1, 1)' --
-
-
-
-# --- MakeMaker tool_xsubpp section:
-
-XSUBPPDIR = /opt/perl-5.12.0/lib/5.12.0/ExtUtils
-XSUBPP = $(XSUBPPDIR)$(DFSEP)xsubpp
-XSUBPPRUN = $(PERLRUN) $(XSUBPP)
-XSPROTOARG =
-XSUBPPDEPS = /opt/perl-5.12.0/lib/5.12.0/ExtUtils/typemap $(XSUBPP)
-XSUBPPARGS = -nolinenumbers -typemap /opt/perl-5.12.0/lib/5.12.0/ExtUtils/typemap
-XSUBPP_EXTRA_ARGS =
-
-
-# --- MakeMaker tools_other section:
-SHELL = /bin/sh
-CHMOD = chmod
-CP = cp
-MV = mv
-NOOP = $(TRUE)
-NOECHO = @
-RM_F = rm -f
-RM_RF = rm -rf
-TEST_F = test -f
-TOUCH = touch
-UMASK_NULL = umask 0
-DEV_NULL = > /dev/null 2>&1
-MKPATH = $(ABSPERLRUN) -MExtUtils::Command -e 'mkpath' --
-EQUALIZE_TIMESTAMP = $(ABSPERLRUN) -MExtUtils::Command -e 'eqtime' --
-FALSE = false
-TRUE = true
-ECHO = echo
-ECHO_N = echo -n
-UNINST = 0
-VERBINST = 0
-MOD_INSTALL = $(ABSPERLRUN) -MExtUtils::Install -e 'install([ from_to => {@ARGV}, verbose => '\''$(VERBINST)'\'', uninstall_shadows => '\''$(UNINST)'\'', dir_mode => '\''$(PERM_DIR)'\'' ]);' --
-DOC_INSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'perllocal_install' --
-UNINSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'uninstall' --
-WARN_IF_OLD_PACKLIST = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'warn_if_old_packlist' --
-MACROSTART =
-MACROEND =
-USEMAKEFILE = -f
-FIXIN = $(ABSPERLRUN) -MExtUtils::MY -e 'MY->fixin(shift)' --
-
-
-# --- MakeMaker makemakerdflt section:
-makemakerdflt : all
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker dist section skipped.
-
-# --- MakeMaker macro section:
-
-
-# --- MakeMaker depend section:
-
-
-# --- MakeMaker cflags section:
-
-CCFLAGS = -fno-common -DPERL_DARWIN -no-cpp-precomp -fno-strict-aliasing -pipe -fstack-protector -I/opt/local/include
-OPTIMIZE = -O3
-PERLTYPE =
-MPOLLUTE =
-
-
-# --- MakeMaker const_loadlibs section:
-
-# Encode::EBCDIC might depend on some other libraries:
-# See ExtUtils::Liblist for details
-#
-
-
-# --- MakeMaker const_cccmd section:
-CCCMD = $(CC) -c $(PASTHRU_INC) $(INC) \
- $(CCFLAGS) $(OPTIMIZE) \
- $(PERLTYPE) $(MPOLLUTE) $(DEFINE_VERSION) \
- $(XS_DEFINE_VERSION)
-
-# --- MakeMaker post_constants section:
-
-
-# --- MakeMaker pasthru section:
-
-PASTHRU = LIBPERL_A="$(LIBPERL_A)"\
- LINKTYPE="$(LINKTYPE)"\
- OPTIMIZE="$(OPTIMIZE)"\
- PREFIX="$(PREFIX)"\
- PASTHRU_INC="$(PASTHRU_INC)"
-
-
-# --- MakeMaker special_targets section:
-.SUFFIXES : .xs .c .C .cpp .i .s .cxx .cc $(OBJ_EXT)
-
-.PHONY: all config static dynamic test linkext manifest blibdirs clean realclean disttest distdir
-
-
-
-# --- MakeMaker c_o section:
-
-.c.i:
- cc -E -c $(PASTHRU_INC) $(INC) \
- $(CCFLAGS) $(OPTIMIZE) \
- $(PERLTYPE) $(MPOLLUTE) $(DEFINE_VERSION) \
- $(XS_DEFINE_VERSION) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c > $*.i
-
-.c.s:
- $(CCCMD) -S $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c
-
-.c$(OBJ_EXT):
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c
-
-.cpp$(OBJ_EXT):
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cpp
-
-.cxx$(OBJ_EXT):
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cxx
-
-.cc$(OBJ_EXT):
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cc
-
-.C$(OBJ_EXT):
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.C
-
-
-# --- MakeMaker xs_c section:
-
-.xs.c:
- $(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $(XSUBPP_EXTRA_ARGS) $*.xs > $*.xsc && $(MV) $*.xsc $*.c
-
-
-# --- MakeMaker xs_o section:
-
-.xs$(OBJ_EXT):
- $(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.xsc && $(MV) $*.xsc $*.c
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c
-
-
-# --- MakeMaker top_targets section:
-all :: pure_all manifypods
- $(NOECHO) $(NOOP)
-
-
-pure_all :: config pm_to_blib subdirs linkext
- $(NOECHO) $(NOOP)
-
-subdirs :: $(MYEXTLIB)
- $(NOECHO) $(NOOP)
-
-config :: $(FIRST_MAKEFILE) blibdirs
- $(NOECHO) $(NOOP)
-
-$(O_FILES): $(H_FILES)
-
-help :
- perldoc ExtUtils::MakeMaker
-
-
-# --- MakeMaker blibdirs section:
-blibdirs : $(INST_LIBDIR)$(DFSEP).exists $(INST_ARCHLIB)$(DFSEP).exists $(INST_AUTODIR)$(DFSEP).exists $(INST_ARCHAUTODIR)$(DFSEP).exists $(INST_BIN)$(DFSEP).exists $(INST_SCRIPT)$(DFSEP).exists $(INST_MAN1DIR)$(DFSEP).exists $(INST_MAN3DIR)$(DFSEP).exists
- $(NOECHO) $(NOOP)
-
-# Backwards compat with 6.18 through 6.25
-blibdirs.ts : blibdirs
- $(NOECHO) $(NOOP)
-
-$(INST_LIBDIR)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_LIBDIR)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_LIBDIR)
- $(NOECHO) $(TOUCH) $(INST_LIBDIR)$(DFSEP).exists
-
-$(INST_ARCHLIB)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_ARCHLIB)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHLIB)
- $(NOECHO) $(TOUCH) $(INST_ARCHLIB)$(DFSEP).exists
-
-$(INST_AUTODIR)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_AUTODIR)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_AUTODIR)
- $(NOECHO) $(TOUCH) $(INST_AUTODIR)$(DFSEP).exists
-
-$(INST_ARCHAUTODIR)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_ARCHAUTODIR)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHAUTODIR)
- $(NOECHO) $(TOUCH) $(INST_ARCHAUTODIR)$(DFSEP).exists
-
-$(INST_BIN)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_BIN)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_BIN)
- $(NOECHO) $(TOUCH) $(INST_BIN)$(DFSEP).exists
-
-$(INST_SCRIPT)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_SCRIPT)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_SCRIPT)
- $(NOECHO) $(TOUCH) $(INST_SCRIPT)$(DFSEP).exists
-
-$(INST_MAN1DIR)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_MAN1DIR)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN1DIR)
- $(NOECHO) $(TOUCH) $(INST_MAN1DIR)$(DFSEP).exists
-
-$(INST_MAN3DIR)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_MAN3DIR)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN3DIR)
- $(NOECHO) $(TOUCH) $(INST_MAN3DIR)$(DFSEP).exists
-
-
-
-# --- MakeMaker linkext section:
-
-linkext :: $(LINKTYPE)
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker dlsyms section:
-
-
-# --- MakeMaker dynamic section:
-
-dynamic :: $(FIRST_MAKEFILE) $(INST_DYNAMIC) $(INST_BOOT)
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker dynamic_bs section:
-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) $@
- $(CHMOD) $(PERM_RW) $@
-
-$(INST_BOOT) : $(BOOTSTRAP) $(INST_ARCHAUTODIR)$(DFSEP).exists
- $(NOECHO) $(RM_RF) $@
- - $(CP) $(BOOTSTRAP) $@
- $(CHMOD) $(PERM_RW) $@
-
-
-# --- MakeMaker dynamic_lib section:
-
-# This section creates the dynamically loadable $(INST_DYNAMIC)
-# from $(OBJECT) and possibly $(MYEXTLIB).
-ARMAYBE = :
-OTHERLDFLAGS =
-INST_DYNAMIC_DEP =
-INST_DYNAMIC_FIX =
-
-$(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(BOOTSTRAP) $(INST_ARCHAUTODIR)$(DFSEP).exists $(EXPORT_LIST) $(PERL_ARCHIVE) $(PERL_ARCHIVE_AFTER) $(INST_DYNAMIC_DEP)
- $(RM_F) $@
- $(LD) $(LDDLFLAGS) $(LDFROM) $(OTHERLDFLAGS) -o $@ $(MYEXTLIB) \
- $(PERL_ARCHIVE) $(LDLOADLIBS) $(PERL_ARCHIVE_AFTER) $(EXPORT_LIST) \
- $(INST_DYNAMIC_FIX)
- $(CHMOD) $(PERM_RWX) $@
-
-
-# --- MakeMaker static section:
-
-## $(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)
-
-
-# --- MakeMaker static_lib section:
-
-$(INST_STATIC) : $(OBJECT) $(MYEXTLIB) $(INST_ARCHAUTODIR)$(DFSEP).exists
- $(RM_RF) $@
- $(FULL_AR) $(AR_STATIC_ARGS) $@ $(OBJECT) && $(RANLIB) $@
- $(CHMOD) $(PERM_RWX) $@
- $(NOECHO) $(ECHO) "$(EXTRALIBS)" > $(INST_ARCHAUTODIR)/extralibs.ld
-
-
-# --- MakeMaker manifypods section:
-
-POD2MAN_EXE = $(PERLRUN) "-MExtUtils::Command::MM" -e pod2man "--"
-POD2MAN = $(POD2MAN_EXE)
-
-
-manifypods : pure_all
- $(NOECHO) $(NOOP)
-
-
-
-
-# --- MakeMaker processPL section:
-
-
-# --- MakeMaker installbin section:
-
-
-# --- MakeMaker subdirs section:
-
-# none
-
-# --- MakeMaker clean_subdirs section:
-clean_subdirs :
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker clean section:
-
-# 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
- - $(RM_F) \
- *$(LIB_EXT) core \
- core.[0-9] $(INST_ARCHAUTODIR)/extralibs.all \
- core.[0-9][0-9] $(BASEEXT).bso \
- pm_to_blib.ts core.[0-9][0-9][0-9][0-9] \
- $(BASEEXT).x $(BOOTSTRAP) \
- perl$(EXE_EXT) tmon.out \
- *$(OBJ_EXT) pm_to_blib \
- $(INST_ARCHAUTODIR)/extralibs.ld blibdirs.ts \
- EBCDIC.c core.[0-9][0-9][0-9][0-9][0-9] \
- *perl.core core.*perl.*.? \
- $(MAKE_APERL_FILE) $(BASEEXT).def \
- perl core.[0-9][0-9][0-9] \
- mon.out lib$(BASEEXT).def \
- perl.exe perlmain.c \
- so_locations $(BASEEXT).exp
- - $(RM_RF) \
- ebcdic_t.fnm ebcdic_t.h \
- ebcdic_t.exh ebcdic_t.c \
- EBCDIC.xs ebcdic_t$(OBJ_EXT) \
- blib
- - $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) $(DEV_NULL)
-
-
-# --- MakeMaker realclean_subdirs section:
-realclean_subdirs :
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker realclean section:
-# Delete temporary files (via clean) and also delete dist files
-realclean purge :: clean realclean_subdirs
- - $(RM_F) \
- $(OBJECT) $(MAKEFILE_OLD) \
- $(FIRST_MAKEFILE)
- - $(RM_RF) \
- $(DISTVNAME)
-
-
-# --- MakeMaker metafile section:
-metafile : create_distdir
- $(NOECHO) $(ECHO) Generating META.yml
- $(NOECHO) $(ECHO) '--- #YAML:1.0' > META_new.yml
- $(NOECHO) $(ECHO) 'name: Encode-EBCDIC' >> META_new.yml
- $(NOECHO) $(ECHO) 'version: 2.02' >> META_new.yml
- $(NOECHO) $(ECHO) 'abstract: ~' >> META_new.yml
- $(NOECHO) $(ECHO) 'author: []' >> META_new.yml
- $(NOECHO) $(ECHO) 'license: unknown' >> META_new.yml
- $(NOECHO) $(ECHO) 'distribution_type: module' >> META_new.yml
- $(NOECHO) $(ECHO) 'configure_requires:' >> META_new.yml
- $(NOECHO) $(ECHO) ' ExtUtils::MakeMaker: 0' >> META_new.yml
- $(NOECHO) $(ECHO) 'build_requires:' >> META_new.yml
- $(NOECHO) $(ECHO) ' ExtUtils::MakeMaker: 0' >> META_new.yml
- $(NOECHO) $(ECHO) 'requires: {}' >> META_new.yml
- $(NOECHO) $(ECHO) 'no_index:' >> META_new.yml
- $(NOECHO) $(ECHO) ' directory:' >> META_new.yml
- $(NOECHO) $(ECHO) ' - t' >> META_new.yml
- $(NOECHO) $(ECHO) ' - inc' >> META_new.yml
- $(NOECHO) $(ECHO) 'generated_by: ExtUtils::MakeMaker version 6.56' >> META_new.yml
- $(NOECHO) $(ECHO) 'meta-spec:' >> META_new.yml
- $(NOECHO) $(ECHO) ' url: http://module-build.sourceforge.net/META-spec-v1.4.html' >> META_new.yml
- $(NOECHO) $(ECHO) ' version: 1.4' >> META_new.yml
- -$(NOECHO) $(MV) META_new.yml $(DISTVNAME)/META.yml
-
-
-# --- MakeMaker signature section:
-signature :
- cpansign -s
-
-
-# --- MakeMaker dist_basics section skipped.
-
-# --- MakeMaker dist_core section skipped.
-
-# --- MakeMaker distdir section skipped.
-
-# --- MakeMaker dist_test section skipped.
-
-# --- MakeMaker dist_ci section skipped.
-
-# --- MakeMaker distmeta section:
-distmeta : create_distdir metafile
- $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'eval { maniadd({q{META.yml} => q{Module meta-data (added by MakeMaker)}}) } ' \
- -e ' or print "Could not add META.yml to MANIFEST: $${'\''@'\''}\n"' --
-
-
-
-# --- MakeMaker distsignature section:
-distsignature : create_distdir
- $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'eval { maniadd({q{SIGNATURE} => q{Public-key signature (added by MakeMaker)}}) } ' \
- -e ' or print "Could not add SIGNATURE to MANIFEST: $${'\''@'\''}\n"' --
- $(NOECHO) cd $(DISTVNAME) && $(TOUCH) SIGNATURE
- cd $(DISTVNAME) && cpansign -s
-
-
-
-# --- MakeMaker install section skipped.
-
-# --- MakeMaker force section:
-# Phony target to force checking subdirectories.
-FORCE :
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker perldepend section:
-
-PERL_HDRS = \
- $(PERL_INC)/EXTERN.h \
- $(PERL_INC)/INTERN.h \
- $(PERL_INC)/XSUB.h \
- $(PERL_INC)/av.h \
- $(PERL_INC)/cc_runtime.h \
- $(PERL_INC)/config.h \
- $(PERL_INC)/cop.h \
- $(PERL_INC)/cv.h \
- $(PERL_INC)/dosish.h \
- $(PERL_INC)/embed.h \
- $(PERL_INC)/embedvar.h \
- $(PERL_INC)/fakethr.h \
- $(PERL_INC)/form.h \
- $(PERL_INC)/gv.h \
- $(PERL_INC)/handy.h \
- $(PERL_INC)/hv.h \
- $(PERL_INC)/intrpvar.h \
- $(PERL_INC)/iperlsys.h \
- $(PERL_INC)/keywords.h \
- $(PERL_INC)/mg.h \
- $(PERL_INC)/nostdio.h \
- $(PERL_INC)/op.h \
- $(PERL_INC)/opcode.h \
- $(PERL_INC)/patchlevel.h \
- $(PERL_INC)/perl.h \
- $(PERL_INC)/perlio.h \
- $(PERL_INC)/perlsdio.h \
- $(PERL_INC)/perlsfio.h \
- $(PERL_INC)/perlvars.h \
- $(PERL_INC)/perly.h \
- $(PERL_INC)/pp.h \
- $(PERL_INC)/pp_proto.h \
- $(PERL_INC)/proto.h \
- $(PERL_INC)/regcomp.h \
- $(PERL_INC)/regexp.h \
- $(PERL_INC)/regnodes.h \
- $(PERL_INC)/scope.h \
- $(PERL_INC)/sv.h \
- $(PERL_INC)/thread.h \
- $(PERL_INC)/unixish.h \
- $(PERL_INC)/util.h
-
-$(OBJECT) : $(PERL_HDRS)
-
-EBCDIC.c : $(XSUBPPDEPS)
-
-
-# --- MakeMaker makefile section:
-
-$(OBJECT) : $(FIRST_MAKEFILE)
-
-# 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 $?"
- $(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) Makefile.PL
- $(NOECHO) $(ECHO) "==> Your Makefile has been rebuilt. <=="
- $(NOECHO) $(ECHO) "==> Please rerun the $(MAKE) command. <=="
- $(FALSE)
-
-
-
-# --- MakeMaker staticmake section:
-
-# --- MakeMaker makeaperl section ---
-MAP_TARGET = ../perl
-FULLPERL = /opt/perl-5.12.0/bin/perl
-
-
-# --- MakeMaker test section:
-
-TEST_VERBOSE=0
-TEST_TYPE=test_$(LINKTYPE)
-TEST_FILE = test.pl
-TEST_FILES =
-TESTDB_SW = -d
-
-testdb :: testdb_$(LINKTYPE)
-
-test :: $(TEST_TYPE) subdirs-test
-
-subdirs-test ::
- $(NOECHO) $(NOOP)
-
- $(NOECHO) $(ECHO) 'No tests defined for $(NAME) extension.'
-
-test_dynamic :: pure_all
-
-testdb_dynamic :: pure_all
- PERL_DL_NONLAZY=1 $(FULLPERLRUN) $(TESTDB_SW) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE)
-
-test_ : test_dynamic
-
-test_static :: pure_all $(MAP_TARGET)
-
-testdb_static :: pure_all $(MAP_TARGET)
- PERL_DL_NONLAZY=1 ./$(MAP_TARGET) $(TESTDB_SW) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE)
-
-
-
-# --- MakeMaker ppd section:
-# Creates a PPD (Perl Package Description) for a binary distribution.
-ppd :
- $(NOECHO) $(ECHO) '<SOFTPKG NAME="$(DISTNAME)" VERSION="2.02">' > $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' <ABSTRACT></ABSTRACT>' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' <AUTHOR></AUTHOR>' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' <IMPLEMENTATION>' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' <ARCHITECTURE NAME="darwin-2level-5.12" />' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' <CODEBASE HREF="" />' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' </IMPLEMENTATION>' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) '</SOFTPKG>' >> $(DISTNAME).ppd
-
-
-# --- MakeMaker pm_to_blib section:
-
-pm_to_blib : $(FIRST_MAKEFILE) $(TO_INST_PM)
- $(NOECHO) $(ABSPERLRUN) -MExtUtils::Install -e 'pm_to_blib({@ARGV}, '\''$(INST_LIB)/auto'\'', q[$(PM_FILTER)], '\''$(PERM_DIR)'\'')' -- \
- EBCDIC.pm $(INST_LIB)/Encode/EBCDIC.pm
- $(NOECHO) $(TOUCH) pm_to_blib
-
-
-# --- MakeMaker selfdocument section:
-
-
-# --- MakeMaker postamble section:
-# EBCDIC$(OBJ_EXT) depends on .h and .exh files not .c files - but all written by enc2xs
-EBCDIC.c : EBCDIC.xs ebcdic_t.c
-
-EBCDIC$(OBJ_EXT) : EBCDIC.c
-
-ebcdic_t.c : ../bin/enc2xs Makefile.PL ../ucm/posix-bc.ucm ../ucm/cp037.ucm ../ucm/cp1026.ucm ../ucm/cp1047.ucm ../ucm/cp500.ucm ../ucm/cp875.ucm
- $(PERL) ../bin/enc2xs -"Q" -"O" -o $@ -f ebcdic_t.fnm
-
-
-
-# End.
diff --git a/3.8.8/sources/cpan-Encode/vendor/Encode.pm b/3.8.8/sources/cpan-Encode/vendor/Encode.pm
deleted file mode 100644
index f1dff78..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/Encode.pm
+++ /dev/null
@@ -1,963 +0,0 @@
-#
-# $Id: Encode.pm,v 2.39 2009/11/26 09:23:48 dankogai Exp $
-#
-package Encode;
-use strict;
-use warnings;
-our $VERSION = sprintf "%d.%02d", q$Revision: 2.39 $ =~ /(\d+)/g;
-sub DEBUG () { 0 }
-use XSLoader ();
-XSLoader::load( __PACKAGE__, $VERSION );
-
-require Exporter;
-use base qw/Exporter/;
-
-# 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 handers inside eval{} are disabled.
-eval {
- local $SIG{__DIE__};
- local $SIG{__WARN__};
- require Encode::ConfigLocal;
-};
-
-sub encodings {
- my $class = shift;
- my %enc;
- if ( @_ and $_[0] eq ":all" ) {
- %enc = ( %Encoding, %ExtModule );
- }
- else {
- %enc = %Encoding;
- for my $mod ( map { m/::/o ? $_ : "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 ) = @_;
-
- 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 .= '' if ref $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'");
- }
- my $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 .= '' if ref $octets;
- $check ||= 0;
- my $enc = find_encoding($name);
- unless ( defined $enc ) {
- require Carp;
- Carp::croak("Unknown encoding '$name'");
- }
- my $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;
-}
-
-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 ( $obj, $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 ( $obj, $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 ( $obj, $str, $chk ) = @_;
- utf8::upgrade($str);
- $_[1] = '' if $chk;
- return $str;
- };
- *encode = \&decode;
- $Encode::Encoding{Unicode} =
- bless { Name => "Internal" } => "Encode::Internal";
- }
-
- {
-
- # 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 ( $obj, $octets, $chk ) = @_;
- my $str = Encode::decode_utf8($octets);
- if ( defined $str ) {
- $_[1] = '' if $chk;
- return $str;
- }
- return undef;
- };
- *encode = sub {
- my ( $obj, $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 ( $obj, 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
-
-=head1 SYNOPSIS
-
- use Encode;
-
-=head2 Table of Contents
-
-Encode consists of a collection of modules whose details are too big
-to fit in one document. This POD itself explains the top-level APIs
-and general topics at a glance. For other topics and more details,
-see the PODs below:
-
- Name Description
- --------------------------------------------------------
- Encode::Alias Alias definitions to encodings
- Encode::Encoding Encode Implementation Base Class
- Encode::Supported List of Supported Encodings
- Encode::CN Simplified Chinese Encodings
- Encode::JP Japanese Encodings
- Encode::KR Korean Encodings
- Encode::TW Traditional Chinese Encodings
- --------------------------------------------------------
-
-=head1 DESCRIPTION
-
-The C<Encode> module provides the interfaces between Perl's strings
-and the rest of the system. Perl strings are sequences of
-B<characters>.
-
-The repertoire of characters that Perl can represent is at least that
-defined by the Unicode Consortium. On most platforms the ordinal
-values of the characters (as returned by C<ord(ch)>) is the "Unicode
-codepoint" for the character (the exceptions are those platforms where
-the legacy encoding is some variant of EBCDIC rather than a super-set
-of ASCII - see L<perlebcdic>).
-
-Traditionally, computer data has been moved around in 8-bit chunks
-often called "bytes". These chunks are also known as "octets" in
-networking standards. 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 - as a
-byte has 256 possible values, it easily fits in Perl's much larger
-"logical character".
-
-=head2 TERMINOLOGY
-
-=over 2
-
-=item *
-
-I<character>: a character in the range 0..(2**32-1) (or more).
-(What Perl's strings are made of.)
-
-=item *
-
-I<byte>: a character in the range 0..255
-(A special case of a Perl character.)
-
-=item *
-
-I<octet>: 8 bits of data, with ordinal values 0..255
-(Term for bytes passed to or from a non-Perl context, e.g. a disk file.)
-
-=back
-
-=head1 PERL ENCODING API
-
-=over 2
-
-=item $octets = encode(ENCODING, $string [, CHECK])
-
-Encodes a string from Perl's internal form into I<ENCODING> and returns
-a sequence of octets. 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 to
-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 B<may not be equal to> $string. Though they both contain the
-same data, the UTF8 flag for $octets is B<always> off. When you
-encode anything, UTF8 flag of the result is always off, even when it
-contains completely valid utf8 string. See L</"The UTF8 flag"> below.
-
-If the $string is C<undef> then C<undef> is returned.
-
-=item $string = decode(ENCODING, $octets [, CHECK])
-
-Decodes a sequence of octets assumed to be in I<ENCODING> into Perl's
-internal form and returns the resulting string. As in encode(),
-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 ISO-8859-1 data to 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
-B<may not be equal to> $octets. Though they both contain the same data,
-the UTF8 flag for $string is on unless $octets entirely consists of
-ASCII data (or EBCDIC on EBCDIC machines). See L</"The UTF8 flag">
-below.
-
-If the $string is C<undef> then C<undef> is returned.
-
-=item [$obj =] find_encoding(ENCODING)
-
-Returns the I<encoding object> corresponding to ENCODING. Returns
-undef if no matching ENCODING is find.
-
-This object is what actually does the actual (en|de)coding.
-
- $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.
-
-Therefore you can save time by reusing this object as follows;
-
- my $enc = find_encoding("iso-8859-1");
- while(<>){
- my $utf8 = $enc->decode($_);
- # and do someting with $utf8;
- }
-
-Besides C<< ->decode >> and C<< ->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.
-
-=item [$length =] from_to($octets, FROM_ENC, TO_ENC [, CHECK])
-
-Converts B<in-place> data between two encodings. The data in $octets
-must be encoded as octets and not as characters in Perl's internal
-format. For example, to convert ISO-8859-1 data to Microsoft's CP1250
-encoding:
-
- from_to($octets, "iso-8859-1", "cp1250");
-
-and to convert it back:
-
- from_to($octets, "cp1250", "iso-8859-1");
-
-Note that because the conversion happens in place, the data to be
-converted cannot be a string constant; it must be a scalar variable.
-
-from_to() returns the length of the converted string in octets on
-success, I<undef> on error.
-
-B<CAVEAT>: The following operations look the same but are not quite so;
-
- 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 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 not respect the $check during decoding. It is
-deliberately done that way. If you need minute control, C<decode>
-then C<encode> as follows;
-
- $octets = encode($to, decode($from, $octets, $check_from), $check_to);
-
-=item $octets = encode_utf8($string);
-
-Equivalent to C<$octets = encode("utf8", $string);> The characters
-that comprise $string are encoded in Perl's internal format and the
-result is returned as a sequence of octets. All possible
-characters have a UTF-8 representation so this function cannot fail.
-
-
-=item $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. Not all sequences of octets form valid UTF-8 encodings, so
-it is possible for this call to fail. For CHECK, see
-L</"Handling Malformed Data">.
-
-=back
-
-=head2 Listing available encodings
-
- use Encode;
- @list = Encode->encodings();
-
-Returns a list of the canonical names of the available encodings that
-are loaded. To get a list of all available encodings including the
-ones that are not loaded yet, say
-
- @all_encodings = Encode->encodings(":all");
-
-Or you can give the name of a specific module.
-
- @with_jp = Encode->encodings("Encode::JP");
-
-When "::" is not in the name, "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, newName can be used as an alias for ENCODING.
-ENCODING may be either the name of an encoding or an
-I<encoding object>
-
-But before you do so, make sure the alias is nonexistent with
-C<resolve_alias()>, which returns the canonical name thereof.
-i.e.
-
- 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
-
-resolve_alias() does not need C<use Encode::Alias>; it can be
-exported 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 IANA Character Set Registry, commonly seen as C<< Content-Type:
-text/plain; charset=I<whatever> >>. For most cases canonical names
-work but sometimes it does not (notably 'utf-8-strict').
-
-Therefore as of Encode version 2.21, a new method C<mime_name()> is 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 I<PerlIO> (which is the default), you can use a
-PerlIO layer to decode and encode directly via a filehandle. The
-following two examples are totally identical in their functionality.
-
- # via PerlIO
- open my $in, "<:encoding(shiftjis)", $infile or die;
- open my $out, ">:encoding(euc-jp)", $outfile or die;
- while(<$in>){ print $out $_; }
-
- # via from_to
- open my $in, "<", $infile or die;
- open my $out, ">", $outfile or die;
- while(<$in>){
- from_to($_, "shiftjis", "euc-jp", 1);
- print $out $_;
- }
-
-Unfortunately, it may be that encodings are PerlIO-savvy. You can check
-if your encoding is supported by PerlIO by calling the C<perlio_ok>
-method.
-
- Encode::perlio_ok("hz"); # False
- find_encoding("euc-cn")->perlio_ok; # True where PerlIO is available
-
- use Encode qw(perlio_ok); # exported upon request
- perlio_ok("euc-jp")
-
-Fortunately, all encodings that come with Encode core are PerlIO-savvy
-except for hz and ISO-2022-kr. For gory details, see
-L<Encode::Encoding> and L<Encode::PerlIO>.
-
-=head1 Handling Malformed Data
-
-The optional I<CHECK> argument tells Encode what to do when it
-encounters malformed data. Without CHECK, Encode::FB_DEFAULT ( == 0 )
-is assumed.
-
-As of version 2.12 Encode supports coderef values for CHECK. See below.
-
-=over 2
-
-=item B<NOTE:> Not all encoding support this feature
-
-Some encodings ignore I<CHECK> argument. For example,
-L<Encode::Unicode> ignores I<CHECK> and it always croaks on error.
-
-=back
-
-Now here is the list of I<CHECK> values available
-
-=over 2
-
-=item I<CHECK> = Encode::FB_DEFAULT ( == 0)
-
-If I<CHECK> is 0, (en|de)code will put a I<substitution character> in
-place of a malformed character. When you encode, E<lt>subcharE<gt>
-will be used. When you decode the code point C<0xFFFD> is used. If
-the data is supposed to be UTF-8, an optional lexical warning
-(category utf8) is given.
-
-=item I<CHECK> = Encode::FB_CROAK ( == 1)
-
-If I<CHECK> is 1, methods will die on error immediately with an error
-message. Therefore, when I<CHECK> is set to 1, you should trap the
-error with eval{} unless you really want to let it die.
-
-=item I<CHECK> = Encode::FB_QUIET
-
-If I<CHECK> is set to Encode::FB_QUIET, (en|de)code will immediately
-return the portion of the data that has been processed so far when an
-error occurs. The data argument will be overwritten with everything
-after that point (that is, the unprocessed part of data). This is
-handy when you have to call decode repeatedly in the case where your
-source data may contain partial multi-byte character sequences,
-(i.e. you are reading with a fixed-width buffer). Here is a sample
-code that does exactly this:
-
- my $buffer = ''; my $string = '';
- while(read $fh, $buffer, 256, length($buffer)){
- $string .= decode($encoding, $buffer, Encode::FB_QUIET);
- # $buffer now contains the unprocessed partial character
- }
-
-=item I<CHECK> = Encode::FB_WARN
-
-This is the same as above, except that it warns on error. Handy when
-you are debugging the mode above.
-
-=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)
-
-For encodings that are implemented by Encode::XS, CHECK ==
-Encode::FB_PERLQQ turns (en|de)code into C<perlqq> fallback mode.
-
-When you decode, C<\xI<HH>> will be inserted for a malformed character,
-where I<HH> is the hex representation of the octet that could not be
-decoded to utf8. And when you encode, C<\x{I<HHHH>}> will be inserted,
-where I<HHHH> is the Unicode ID of the character that cannot be found
-in the character repertoire of the encoding.
-
-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 Encode 2.10 or later, C<LEAVE_SRC> is also implied.
-
-=item The bitmask
-
-These modes are actually set via a bitmask. Here is how the FB_XX
-constants are laid out. You can import the FB_XX constants via
-C<use Encode qw(:fallbacks)>; 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
-
-=back
-
-=over 2
-
-=item Encode::LEAVE_SRC
-
-If the C<Encode::LEAVE_SRC> bit is not set, but I<CHECK> is, then the second
-argument to C<encode()> or C<decode()> may be assigned to by the functions. If
-you're not interested in this, then bitwise-or the bitmask with it.
-
-=back
-
-=head2 coderef for CHECK
-
-As of Encode 2.12 CHECK can also be a code reference which takes the
-ord value of unmapped caharacter as an argument and returns a string
-that represents the fallback character. For instance,
-
- $ascii = encode("ascii", $utf8, sub{ sprintf "<U+%04X>", shift });
-
-Acts like FB_PERLQQ but E<lt>U+I<XXXX>E<gt> is used instead of
-\x{I<XXXX>}.
-
-=head1 Defining Encodings
-
-To define a new encoding, use:
-
- use Encode qw(define_encoding);
- define_encoding($object, 'canonicalName' [, alias...]);
-
-I<canonicalName> will be associated with I<$object>. The object
-should provide the interface described in L<Encode::Encoding>.
-If more than two arguments are provided then additional
-arguments are taken as aliases for I<$object>.
-
-See L<Encode::Encoding> for more 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 will quote page 402 of
-C<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
-
-Back when C<Programming Perl, 3rd ed.> was written, not even Perl 5.6.0
-was born and many features documented in the book remained
-unimplemented for a long time. Perl 5.8 corrected this and the introduction
-of the UTF8 flag is one of them. You can think of this perl notion as of a
-byte-oriented mode (UTF8 flag off) and a character-oriented mode (UTF8
-flag on).
-
-Here is how Encode takes care of the UTF8 flag.
-
-=over 2
-
-=item *
-
-When you encode, the resulting UTF8 flag is always off.
-
-=item *
-
-When you decode, the resulting UTF8 flag is on unless you can
-unambiguously represent data. Here is the definition of
-dis-ambiguity.
-
-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 Encode Goal #2 is assumed but you still have to be
-careful in such cases mentioned in B<CAVEAT> paragraphs.
-
-This UTF8 flag is not visible in perl scripts, exactly for the same
-reason you cannot (or you I<don't have to>) see if a scalar contains a
-string, integer, or floating point number. But you can still peek
-and poke these if you will. See the section below.
-
-=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.
-
-=over 2
-
-=item is_utf8(STRING [, CHECK])
-
-[INTERNAL] Tests whether the UTF8 flag is turned on in the STRING.
-If CHECK is true, also checks the data in STRING for being well-formed
-UTF-8. Returns true if successful, false otherwise.
-
-As of perl 5.8.1, L<utf8> also has utf8::is_utf8().
-
-=item _utf8_on(STRING)
-
-[INTERNAL] Turns on the UTF8 flag in STRING. The data in STRING is
-B<not> checked for being well-formed UTF-8. Do not use unless you
-B<know> that the STRING is 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 STRING is not a string.
-
-This function does not work on tainted values.
-
-=item _utf8_off(STRING)
-
-[INTERNAL] Turns off the UTF8 flag in STRING. Do not use frivolously.
-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 STRING is
-not a string.
-
-This function does not work on tainted values.
-
-=back
-
-=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 been the perl's notion of UTF-8 but official UTF-8 is more
-strict; Its ranges is much narrower (0 .. 10FFFF), some sequences are
-not allowed (i.e. Those used in the surrogate pair, 0xFFFE, et al).
-
-Now that is overruled by Larry Wall himself.
-
- From: Larry Wall <larry at wall.org>
- Date: December 04, 2004 11:51:58 JST
- To: perl-unicode at perl.org
- Subject: Re: Make Encode.pm support the real UTF-8
- Message-Id: <20041204025158.GA28754 at 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
-
-Do you copy? As of Perl 5.8.7, B<UTF-8> means strict, official UTF-8
-while B<utf8> means liberal, lax, version thereof. And Encode version
-2.10 or later thus groks the difference between C<UTF-8> and C"utf8".
-
- encode("utf8", "\x{FFFF_FFFF}", 1); # okay
- encode("UTF-8", "\x{FFFF_FFFF}", 1); # croaks
-
-C<UTF-8> in Encode is actually a canonical name for C<utf-8-strict>.
-Yes, the hyphen between "UTF" and "8" is important. Without it Encode
-goes "liberal"
-
- 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'.
-
-The UTF8 flag is internally called UTF8, without a hyphen. It indicates
-whether a string is internally encoded as utf8, also without a hypen.
-
-=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 E<lt>perl-unicode at perl.orgE<gt>
-
-=head1 MAINTAINER
-
-This project was originated by Nick Ing-Simmons and later maintained
-by Dan Kogai E<lt>dankogai at dan.co.jpE<gt>. See AUTHORS for a full
-list of people involved. For any questions, use
-E<lt>perl-unicode at perl.orgE<gt> so we can all share.
-
-While Dan Kogai retains the copyright as a maintainer, the credit
-should go to all those involoved. See AUTHORS for those submitted
-codes.
-
-=head1 COPYRIGHT
-
-Copyright 2002-2006 Dan Kogai E<lt>dankogai at dan.co.jpE<gt>
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-=cut
diff --git a/3.8.8/sources/cpan-Encode/vendor/Encode/Changes.e2x b/3.8.8/sources/cpan-Encode/vendor/Encode/Changes.e2x
deleted file mode 100644
index 5c67c55..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/Encode/Changes.e2x
+++ /dev/null
@@ -1,7 +0,0 @@
-#
-# $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/3.8.8/sources/cpan-Encode/vendor/Encode/ConfigLocal_PM.e2x b/3.8.8/sources/cpan-Encode/vendor/Encode/ConfigLocal_PM.e2x
deleted file mode 100644
index e203dfd..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/Encode/ConfigLocal_PM.e2x
+++ /dev/null
@@ -1,13 +0,0 @@
-#
-# 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/3.8.8/sources/cpan-Encode/vendor/Encode/_T.e2x b/3.8.8/sources/cpan-Encode/vendor/Encode/_T.e2x
deleted file mode 100644
index 6cf5f29..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/Encode/_T.e2x
+++ /dev/null
@@ -1,7 +0,0 @@
-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/3.8.8/sources/cpan-Encode/vendor/Encode/encode.h b/3.8.8/sources/cpan-Encode/vendor/Encode/encode.h
deleted file mode 100644
index 0dcf83d..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/Encode/encode.h
+++ /dev/null
@@ -1,113 +0,0 @@
-#ifndef ENCODE_H
-#define ENCODE_H
-
-#ifndef U8
-/*
- A tad devious this:
- perl normally has a #define for U8 - if that isn't present then we
- typedef it - leaving it #ifndef so 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 U8
-/* 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 /* U8 */
-
-#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/3.8.8/sources/cpan-Encode/vendor/JP/Makefile.old b/3.8.8/sources/cpan-Encode/vendor/JP/Makefile.old
deleted file mode 100644
index 6faa9f3..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/JP/Makefile.old
+++ /dev/null
@@ -1,807 +0,0 @@
-# This Makefile is for the Encode::JP extension to perl.
-#
-# It was generated automatically by MakeMaker version
-# 6.56 (Revision: 65600) from the contents of
-# Makefile.PL. Don't edit this file, edit Makefile.PL instead.
-#
-# ANY CHANGES MADE HERE WILL BE LOST!
-#
-# MakeMaker ARGV: ()
-#
-
-# MakeMaker Parameters:
-
-# BUILD_REQUIRES => { }
-# INC => q[-I../Encode]
-# MAN3PODS => { }
-# NAME => q[Encode::JP]
-# OBJECT => q[$(O_FILES)]
-# PREREQ_PM => { }
-# VERSION_FROM => q[JP.pm]
-# XSOPT => q[-nolinenumbers]
-# dist => { DIST_DEFAULT=>q[all tardist], COMPRESS=>q[gzip -9f], SUFFIX=>q[gz] }
-
-# --- MakeMaker post_initialize section:
-# Built JP.xs
-
-
-
-# --- MakeMaker const_config section:
-
-# These definitions are from config.sh (via /opt/perl-5.12.0/lib/5.12.0/darwin-2level/Config.pm).
-# They may have been overridden via Makefile.PL or on the command line.
-AR = ar
-CC = cc
-CCCDLFLAGS =
-CCDLFLAGS =
-DLEXT = bundle
-DLSRC = dl_dlopen.xs
-EXE_EXT =
-FULL_AR = /usr/bin/ar
-LD = env MACOSX_DEPLOYMENT_TARGET=10.3 cc
-LDDLFLAGS = -bundle -undefined dynamic_lookup -L/usr/local/lib -L/opt/local/lib -fstack-protector
-LDFLAGS = -fstack-protector -L/usr/local/lib -L/opt/local/lib
-LIBC = /usr/lib/libc.dylib
-LIB_EXT = .a
-OBJ_EXT = .o
-OSNAME = darwin
-OSVERS = 10.3.0
-RANLIB = ranlib
-SITELIBEXP = /opt/perl-5.12.0/lib/site_perl/5.12.0
-SITEARCHEXP = /opt/perl-5.12.0/lib/site_perl/5.12.0/darwin-2level
-SO = dylib
-VENDORARCHEXP =
-VENDORLIBEXP =
-
-
-# --- MakeMaker constants section:
-AR_STATIC_ARGS = cr
-DIRFILESEP = /
-DFSEP = $(DIRFILESEP)
-NAME = Encode::JP
-NAME_SYM = Encode_JP
-VERSION = 2.04
-VERSION_MACRO = VERSION
-VERSION_SYM = 2_04
-DEFINE_VERSION = -D$(VERSION_MACRO)=\"$(VERSION)\"
-XS_VERSION = 2.04
-XS_VERSION_MACRO = XS_VERSION
-XS_DEFINE_VERSION = -D$(XS_VERSION_MACRO)=\"$(XS_VERSION)\"
-INST_ARCHLIB = ../blib/arch
-INST_SCRIPT = ../blib/script
-INST_BIN = ../blib/bin
-INST_LIB = ../blib/lib
-INST_MAN1DIR = ../blib/man1
-INST_MAN3DIR = ../blib/man3
-MAN1EXT = 1
-MAN3EXT = 3
-INSTALLDIRS = site
-DESTDIR =
-PREFIX = $(SITEPREFIX)
-PERLPREFIX = /opt/perl-5.12.0
-SITEPREFIX = /opt/perl-5.12.0
-VENDORPREFIX =
-INSTALLPRIVLIB = /opt/perl-5.12.0/lib/5.12.0
-DESTINSTALLPRIVLIB = $(DESTDIR)$(INSTALLPRIVLIB)
-INSTALLSITELIB = /opt/perl-5.12.0/lib/site_perl/5.12.0
-DESTINSTALLSITELIB = $(DESTDIR)$(INSTALLSITELIB)
-INSTALLVENDORLIB =
-DESTINSTALLVENDORLIB = $(DESTDIR)$(INSTALLVENDORLIB)
-INSTALLARCHLIB = /opt/perl-5.12.0/lib/5.12.0/darwin-2level
-DESTINSTALLARCHLIB = $(DESTDIR)$(INSTALLARCHLIB)
-INSTALLSITEARCH = /opt/perl-5.12.0/lib/site_perl/5.12.0/darwin-2level
-DESTINSTALLSITEARCH = $(DESTDIR)$(INSTALLSITEARCH)
-INSTALLVENDORARCH =
-DESTINSTALLVENDORARCH = $(DESTDIR)$(INSTALLVENDORARCH)
-INSTALLBIN = /opt/perl-5.12.0/bin
-DESTINSTALLBIN = $(DESTDIR)$(INSTALLBIN)
-INSTALLSITEBIN = /opt/perl-5.12.0/bin
-DESTINSTALLSITEBIN = $(DESTDIR)$(INSTALLSITEBIN)
-INSTALLVENDORBIN =
-DESTINSTALLVENDORBIN = $(DESTDIR)$(INSTALLVENDORBIN)
-INSTALLSCRIPT = /opt/perl-5.12.0/bin
-DESTINSTALLSCRIPT = $(DESTDIR)$(INSTALLSCRIPT)
-INSTALLSITESCRIPT = /opt/perl-5.12.0/bin
-DESTINSTALLSITESCRIPT = $(DESTDIR)$(INSTALLSITESCRIPT)
-INSTALLVENDORSCRIPT =
-DESTINSTALLVENDORSCRIPT = $(DESTDIR)$(INSTALLVENDORSCRIPT)
-INSTALLMAN1DIR = /opt/perl-5.12.0/man/man1
-DESTINSTALLMAN1DIR = $(DESTDIR)$(INSTALLMAN1DIR)
-INSTALLSITEMAN1DIR = /opt/perl-5.12.0/man/man1
-DESTINSTALLSITEMAN1DIR = $(DESTDIR)$(INSTALLSITEMAN1DIR)
-INSTALLVENDORMAN1DIR =
-DESTINSTALLVENDORMAN1DIR = $(DESTDIR)$(INSTALLVENDORMAN1DIR)
-INSTALLMAN3DIR = /opt/perl-5.12.0/man/man3
-DESTINSTALLMAN3DIR = $(DESTDIR)$(INSTALLMAN3DIR)
-INSTALLSITEMAN3DIR = /opt/perl-5.12.0/man/man3
-DESTINSTALLSITEMAN3DIR = $(DESTDIR)$(INSTALLSITEMAN3DIR)
-INSTALLVENDORMAN3DIR =
-DESTINSTALLVENDORMAN3DIR = $(DESTDIR)$(INSTALLVENDORMAN3DIR)
-PERL_LIB = /opt/perl-5.12.0/lib/5.12.0
-PERL_ARCHLIB = /opt/perl-5.12.0/lib/5.12.0/darwin-2level
-LIBPERL_A = libperl.a
-FIRST_MAKEFILE = Makefile
-MAKEFILE_OLD = Makefile.old
-MAKE_APERL_FILE = Makefile.aperl
-PERLMAINCC = $(CC)
-PERL_INC = /opt/perl-5.12.0/lib/5.12.0/darwin-2level/CORE
-PERL = /opt/perl-5.12.0/bin/perl
-FULLPERL = /opt/perl-5.12.0/bin/perl
-ABSPERL = $(PERL)
-PERLRUN = $(PERL)
-FULLPERLRUN = $(FULLPERL)
-ABSPERLRUN = $(ABSPERL)
-PERLRUNINST = $(PERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
-FULLPERLRUNINST = $(FULLPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
-ABSPERLRUNINST = $(ABSPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
-PERL_CORE = 0
-PERM_DIR = 755
-PERM_RW = 644
-PERM_RWX = 755
-
-MAKEMAKER = /opt/perl-5.12.0/lib/5.12.0/ExtUtils/MakeMaker.pm
-MM_VERSION = 6.56
-MM_REVISION = 65600
-
-# 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.
-MAKE = make
-FULLEXT = Encode/JP
-BASEEXT = JP
-PARENT_NAME = Encode
-DLBASE = $(BASEEXT)
-VERSION_FROM = JP.pm
-INC = -I../Encode
-OBJECT = $(O_FILES)
-LDFROM = $(OBJECT)
-LINKTYPE = dynamic
-BOOTDEP =
-
-# Handy lists of source code files:
-XS_FILES = JP.xs
-C_FILES = JP.c \
- ji_02_t.c \
- ji_03_t.c \
- eu_01_t.c \
- cp_00_t.c \
- ji_04_t.c \
- sh_06_t.c \
- ma_05_t.c
-O_FILES = JP.o \
- cp_00_t.o \
- eu_01_t.o \
- ji_02_t.o \
- ji_03_t.o \
- ji_04_t.o \
- ma_05_t.o \
- sh_06_t.o
-H_FILES = ../Encode/encode.h
-MAN1PODS =
-MAN3PODS =
-
-# Where is the Config information that we are using/depend on
-CONFIGDEP = $(PERL_ARCHLIB)$(DFSEP)Config.pm $(PERL_INC)$(DFSEP)config.h
-
-# Where to build things
-INST_LIBDIR = $(INST_LIB)/Encode
-INST_ARCHLIBDIR = $(INST_ARCHLIB)/Encode
-
-INST_AUTODIR = $(INST_LIB)/auto/$(FULLEXT)
-INST_ARCHAUTODIR = $(INST_ARCHLIB)/auto/$(FULLEXT)
-
-INST_STATIC = $(INST_ARCHAUTODIR)/$(BASEEXT)$(LIB_EXT)
-INST_DYNAMIC = $(INST_ARCHAUTODIR)/$(DLBASE).$(DLEXT)
-INST_BOOT = $(INST_ARCHAUTODIR)/$(BASEEXT).bs
-
-# Extra linker info
-EXPORT_LIST =
-PERL_ARCHIVE =
-PERL_ARCHIVE_AFTER =
-
-
-TO_INST_PM = JP.pm
-
-PM_TO_BLIB = JP.pm \
- $(INST_LIB)/Encode/JP.pm
-
-
-# --- MakeMaker platform_constants section:
-MM_Unix_VERSION = 6.56
-PERL_MALLOC_DEF = -DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc -Dfree=Perl_mfree -Drealloc=Perl_realloc -Dcalloc=Perl_calloc
-
-
-# --- MakeMaker tool_autosplit section:
-# Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto
-AUTOSPLITFILE = $(ABSPERLRUN) -e 'use AutoSplit; autosplit($$ARGV[0], $$ARGV[1], 0, 1, 1)' --
-
-
-
-# --- MakeMaker tool_xsubpp section:
-
-XSUBPPDIR = /opt/perl-5.12.0/lib/5.12.0/ExtUtils
-XSUBPP = $(XSUBPPDIR)$(DFSEP)xsubpp
-XSUBPPRUN = $(PERLRUN) $(XSUBPP)
-XSPROTOARG =
-XSUBPPDEPS = /opt/perl-5.12.0/lib/5.12.0/ExtUtils/typemap $(XSUBPP)
-XSUBPPARGS = -nolinenumbers -typemap /opt/perl-5.12.0/lib/5.12.0/ExtUtils/typemap
-XSUBPP_EXTRA_ARGS =
-
-
-# --- MakeMaker tools_other section:
-SHELL = /bin/sh
-CHMOD = chmod
-CP = cp
-MV = mv
-NOOP = $(TRUE)
-NOECHO = @
-RM_F = rm -f
-RM_RF = rm -rf
-TEST_F = test -f
-TOUCH = touch
-UMASK_NULL = umask 0
-DEV_NULL = > /dev/null 2>&1
-MKPATH = $(ABSPERLRUN) -MExtUtils::Command -e 'mkpath' --
-EQUALIZE_TIMESTAMP = $(ABSPERLRUN) -MExtUtils::Command -e 'eqtime' --
-FALSE = false
-TRUE = true
-ECHO = echo
-ECHO_N = echo -n
-UNINST = 0
-VERBINST = 0
-MOD_INSTALL = $(ABSPERLRUN) -MExtUtils::Install -e 'install([ from_to => {@ARGV}, verbose => '\''$(VERBINST)'\'', uninstall_shadows => '\''$(UNINST)'\'', dir_mode => '\''$(PERM_DIR)'\'' ]);' --
-DOC_INSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'perllocal_install' --
-UNINSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'uninstall' --
-WARN_IF_OLD_PACKLIST = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'warn_if_old_packlist' --
-MACROSTART =
-MACROEND =
-USEMAKEFILE = -f
-FIXIN = $(ABSPERLRUN) -MExtUtils::MY -e 'MY->fixin(shift)' --
-
-
-# --- MakeMaker makemakerdflt section:
-makemakerdflt : all
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker dist section skipped.
-
-# --- MakeMaker macro section:
-
-
-# --- MakeMaker depend section:
-
-
-# --- MakeMaker cflags section:
-
-CCFLAGS = -fno-common -DPERL_DARWIN -no-cpp-precomp -fno-strict-aliasing -pipe -fstack-protector -I/opt/local/include
-OPTIMIZE = -O3
-PERLTYPE =
-MPOLLUTE =
-
-
-# --- MakeMaker const_loadlibs section:
-
-# Encode::JP might depend on some other libraries:
-# See ExtUtils::Liblist for details
-#
-
-
-# --- MakeMaker const_cccmd section:
-CCCMD = $(CC) -c $(PASTHRU_INC) $(INC) \
- $(CCFLAGS) $(OPTIMIZE) \
- $(PERLTYPE) $(MPOLLUTE) $(DEFINE_VERSION) \
- $(XS_DEFINE_VERSION)
-
-# --- MakeMaker post_constants section:
-
-
-# --- MakeMaker pasthru section:
-
-PASTHRU = LIBPERL_A="$(LIBPERL_A)"\
- LINKTYPE="$(LINKTYPE)"\
- OPTIMIZE="$(OPTIMIZE)"\
- PREFIX="$(PREFIX)"\
- PASTHRU_INC="$(PASTHRU_INC)"
-
-
-# --- MakeMaker special_targets section:
-.SUFFIXES : .xs .c .C .cpp .i .s .cxx .cc $(OBJ_EXT)
-
-.PHONY: all config static dynamic test linkext manifest blibdirs clean realclean disttest distdir
-
-
-
-# --- MakeMaker c_o section:
-
-.c.i:
- cc -E -c $(PASTHRU_INC) $(INC) \
- $(CCFLAGS) $(OPTIMIZE) \
- $(PERLTYPE) $(MPOLLUTE) $(DEFINE_VERSION) \
- $(XS_DEFINE_VERSION) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c > $*.i
-
-.c.s:
- $(CCCMD) -S $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c
-
-.c$(OBJ_EXT):
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c
-
-.cpp$(OBJ_EXT):
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cpp
-
-.cxx$(OBJ_EXT):
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cxx
-
-.cc$(OBJ_EXT):
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cc
-
-.C$(OBJ_EXT):
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.C
-
-
-# --- MakeMaker xs_c section:
-
-.xs.c:
- $(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $(XSUBPP_EXTRA_ARGS) $*.xs > $*.xsc && $(MV) $*.xsc $*.c
-
-
-# --- MakeMaker xs_o section:
-
-.xs$(OBJ_EXT):
- $(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.xsc && $(MV) $*.xsc $*.c
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c
-
-
-# --- MakeMaker top_targets section:
-all :: pure_all manifypods
- $(NOECHO) $(NOOP)
-
-
-pure_all :: config pm_to_blib subdirs linkext
- $(NOECHO) $(NOOP)
-
-subdirs :: $(MYEXTLIB)
- $(NOECHO) $(NOOP)
-
-config :: $(FIRST_MAKEFILE) blibdirs
- $(NOECHO) $(NOOP)
-
-$(O_FILES): $(H_FILES)
-
-help :
- perldoc ExtUtils::MakeMaker
-
-
-# --- MakeMaker blibdirs section:
-blibdirs : $(INST_LIBDIR)$(DFSEP).exists $(INST_ARCHLIB)$(DFSEP).exists $(INST_AUTODIR)$(DFSEP).exists $(INST_ARCHAUTODIR)$(DFSEP).exists $(INST_BIN)$(DFSEP).exists $(INST_SCRIPT)$(DFSEP).exists $(INST_MAN1DIR)$(DFSEP).exists $(INST_MAN3DIR)$(DFSEP).exists
- $(NOECHO) $(NOOP)
-
-# Backwards compat with 6.18 through 6.25
-blibdirs.ts : blibdirs
- $(NOECHO) $(NOOP)
-
-$(INST_LIBDIR)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_LIBDIR)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_LIBDIR)
- $(NOECHO) $(TOUCH) $(INST_LIBDIR)$(DFSEP).exists
-
-$(INST_ARCHLIB)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_ARCHLIB)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHLIB)
- $(NOECHO) $(TOUCH) $(INST_ARCHLIB)$(DFSEP).exists
-
-$(INST_AUTODIR)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_AUTODIR)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_AUTODIR)
- $(NOECHO) $(TOUCH) $(INST_AUTODIR)$(DFSEP).exists
-
-$(INST_ARCHAUTODIR)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_ARCHAUTODIR)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHAUTODIR)
- $(NOECHO) $(TOUCH) $(INST_ARCHAUTODIR)$(DFSEP).exists
-
-$(INST_BIN)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_BIN)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_BIN)
- $(NOECHO) $(TOUCH) $(INST_BIN)$(DFSEP).exists
-
-$(INST_SCRIPT)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_SCRIPT)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_SCRIPT)
- $(NOECHO) $(TOUCH) $(INST_SCRIPT)$(DFSEP).exists
-
-$(INST_MAN1DIR)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_MAN1DIR)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN1DIR)
- $(NOECHO) $(TOUCH) $(INST_MAN1DIR)$(DFSEP).exists
-
-$(INST_MAN3DIR)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_MAN3DIR)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN3DIR)
- $(NOECHO) $(TOUCH) $(INST_MAN3DIR)$(DFSEP).exists
-
-
-
-# --- MakeMaker linkext section:
-
-linkext :: $(LINKTYPE)
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker dlsyms section:
-
-
-# --- MakeMaker dynamic section:
-
-dynamic :: $(FIRST_MAKEFILE) $(INST_DYNAMIC) $(INST_BOOT)
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker dynamic_bs section:
-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) $@
- $(CHMOD) $(PERM_RW) $@
-
-$(INST_BOOT) : $(BOOTSTRAP) $(INST_ARCHAUTODIR)$(DFSEP).exists
- $(NOECHO) $(RM_RF) $@
- - $(CP) $(BOOTSTRAP) $@
- $(CHMOD) $(PERM_RW) $@
-
-
-# --- MakeMaker dynamic_lib section:
-
-# This section creates the dynamically loadable $(INST_DYNAMIC)
-# from $(OBJECT) and possibly $(MYEXTLIB).
-ARMAYBE = :
-OTHERLDFLAGS =
-INST_DYNAMIC_DEP =
-INST_DYNAMIC_FIX =
-
-$(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(BOOTSTRAP) $(INST_ARCHAUTODIR)$(DFSEP).exists $(EXPORT_LIST) $(PERL_ARCHIVE) $(PERL_ARCHIVE_AFTER) $(INST_DYNAMIC_DEP)
- $(RM_F) $@
- $(LD) $(LDDLFLAGS) $(LDFROM) $(OTHERLDFLAGS) -o $@ $(MYEXTLIB) \
- $(PERL_ARCHIVE) $(LDLOADLIBS) $(PERL_ARCHIVE_AFTER) $(EXPORT_LIST) \
- $(INST_DYNAMIC_FIX)
- $(CHMOD) $(PERM_RWX) $@
-
-
-# --- MakeMaker static section:
-
-## $(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)
-
-
-# --- MakeMaker static_lib section:
-
-$(INST_STATIC) : $(OBJECT) $(MYEXTLIB) $(INST_ARCHAUTODIR)$(DFSEP).exists
- $(RM_RF) $@
- $(FULL_AR) $(AR_STATIC_ARGS) $@ $(OBJECT) && $(RANLIB) $@
- $(CHMOD) $(PERM_RWX) $@
- $(NOECHO) $(ECHO) "$(EXTRALIBS)" > $(INST_ARCHAUTODIR)/extralibs.ld
-
-
-# --- MakeMaker manifypods section:
-
-POD2MAN_EXE = $(PERLRUN) "-MExtUtils::Command::MM" -e pod2man "--"
-POD2MAN = $(POD2MAN_EXE)
-
-
-manifypods : pure_all
- $(NOECHO) $(NOOP)
-
-
-
-
-# --- MakeMaker processPL section:
-
-
-# --- MakeMaker installbin section:
-
-
-# --- MakeMaker subdirs section:
-
-# none
-
-# --- MakeMaker clean_subdirs section:
-clean_subdirs :
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker clean section:
-
-# 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
- - $(RM_F) \
- *$(LIB_EXT) core \
- core.[0-9] $(INST_ARCHAUTODIR)/extralibs.all \
- core.[0-9][0-9] $(BASEEXT).bso \
- pm_to_blib.ts core.[0-9][0-9][0-9][0-9] \
- $(BASEEXT).x $(BOOTSTRAP) \
- perl$(EXE_EXT) tmon.out \
- *$(OBJ_EXT) JP.c \
- pm_to_blib $(INST_ARCHAUTODIR)/extralibs.ld \
- blibdirs.ts core.[0-9][0-9][0-9][0-9][0-9] \
- *perl.core core.*perl.*.? \
- $(MAKE_APERL_FILE) $(BASEEXT).def \
- perl core.[0-9][0-9][0-9] \
- mon.out lib$(BASEEXT).def \
- perl.exe perlmain.c \
- so_locations $(BASEEXT).exp
- - $(RM_RF) \
- ji_02_t.c ma_05_t$(OBJ_EXT) \
- sh_06_t.c ji_03_t.h \
- ji_03_t.c ji_03_t.exh \
- cp_00_t.h ji_04_t.h \
- ma_05_t.c ji_04_t$(OBJ_EXT) \
- cp_00_t.fnm eu_01_t$(OBJ_EXT) \
- sh_06_t.fnm ji_03_t.fnm \
- ji_02_t.h ji_04_t.fnm \
- cp_00_t.exh JP.xs \
- ji_02_t$(OBJ_EXT) eu_01_t.exh \
- eu_01_t.c ma_05_t.h \
- ji_02_t.exh ma_05_t.fnm \
- sh_06_t$(OBJ_EXT) ji_03_t$(OBJ_EXT) \
- ji_04_t.c sh_06_t.h \
- eu_01_t.h ma_05_t.exh \
- sh_06_t.exh ji_02_t.fnm \
- eu_01_t.fnm cp_00_t$(OBJ_EXT) \
- ji_04_t.exh blib \
- cp_00_t.c
- - $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) $(DEV_NULL)
-
-
-# --- MakeMaker realclean_subdirs section:
-realclean_subdirs :
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker realclean section:
-# Delete temporary files (via clean) and also delete dist files
-realclean purge :: clean realclean_subdirs
- - $(RM_F) \
- $(OBJECT) $(MAKEFILE_OLD) \
- $(FIRST_MAKEFILE)
- - $(RM_RF) \
- $(DISTVNAME)
-
-
-# --- MakeMaker metafile section:
-metafile : create_distdir
- $(NOECHO) $(ECHO) Generating META.yml
- $(NOECHO) $(ECHO) '--- #YAML:1.0' > META_new.yml
- $(NOECHO) $(ECHO) 'name: Encode-JP' >> META_new.yml
- $(NOECHO) $(ECHO) 'version: 2.04' >> META_new.yml
- $(NOECHO) $(ECHO) 'abstract: ~' >> META_new.yml
- $(NOECHO) $(ECHO) 'author: []' >> META_new.yml
- $(NOECHO) $(ECHO) 'license: unknown' >> META_new.yml
- $(NOECHO) $(ECHO) 'distribution_type: module' >> META_new.yml
- $(NOECHO) $(ECHO) 'configure_requires:' >> META_new.yml
- $(NOECHO) $(ECHO) ' ExtUtils::MakeMaker: 0' >> META_new.yml
- $(NOECHO) $(ECHO) 'build_requires:' >> META_new.yml
- $(NOECHO) $(ECHO) ' ExtUtils::MakeMaker: 0' >> META_new.yml
- $(NOECHO) $(ECHO) 'requires: {}' >> META_new.yml
- $(NOECHO) $(ECHO) 'no_index:' >> META_new.yml
- $(NOECHO) $(ECHO) ' directory:' >> META_new.yml
- $(NOECHO) $(ECHO) ' - t' >> META_new.yml
- $(NOECHO) $(ECHO) ' - inc' >> META_new.yml
- $(NOECHO) $(ECHO) 'generated_by: ExtUtils::MakeMaker version 6.56' >> META_new.yml
- $(NOECHO) $(ECHO) 'meta-spec:' >> META_new.yml
- $(NOECHO) $(ECHO) ' url: http://module-build.sourceforge.net/META-spec-v1.4.html' >> META_new.yml
- $(NOECHO) $(ECHO) ' version: 1.4' >> META_new.yml
- -$(NOECHO) $(MV) META_new.yml $(DISTVNAME)/META.yml
-
-
-# --- MakeMaker signature section:
-signature :
- cpansign -s
-
-
-# --- MakeMaker dist_basics section skipped.
-
-# --- MakeMaker dist_core section skipped.
-
-# --- MakeMaker distdir section skipped.
-
-# --- MakeMaker dist_test section skipped.
-
-# --- MakeMaker dist_ci section skipped.
-
-# --- MakeMaker distmeta section:
-distmeta : create_distdir metafile
- $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'eval { maniadd({q{META.yml} => q{Module meta-data (added by MakeMaker)}}) } ' \
- -e ' or print "Could not add META.yml to MANIFEST: $${'\''@'\''}\n"' --
-
-
-
-# --- MakeMaker distsignature section:
-distsignature : create_distdir
- $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'eval { maniadd({q{SIGNATURE} => q{Public-key signature (added by MakeMaker)}}) } ' \
- -e ' or print "Could not add SIGNATURE to MANIFEST: $${'\''@'\''}\n"' --
- $(NOECHO) cd $(DISTVNAME) && $(TOUCH) SIGNATURE
- cd $(DISTVNAME) && cpansign -s
-
-
-
-# --- MakeMaker install section skipped.
-
-# --- MakeMaker force section:
-# Phony target to force checking subdirectories.
-FORCE :
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker perldepend section:
-
-PERL_HDRS = \
- $(PERL_INC)/EXTERN.h \
- $(PERL_INC)/INTERN.h \
- $(PERL_INC)/XSUB.h \
- $(PERL_INC)/av.h \
- $(PERL_INC)/cc_runtime.h \
- $(PERL_INC)/config.h \
- $(PERL_INC)/cop.h \
- $(PERL_INC)/cv.h \
- $(PERL_INC)/dosish.h \
- $(PERL_INC)/embed.h \
- $(PERL_INC)/embedvar.h \
- $(PERL_INC)/fakethr.h \
- $(PERL_INC)/form.h \
- $(PERL_INC)/gv.h \
- $(PERL_INC)/handy.h \
- $(PERL_INC)/hv.h \
- $(PERL_INC)/intrpvar.h \
- $(PERL_INC)/iperlsys.h \
- $(PERL_INC)/keywords.h \
- $(PERL_INC)/mg.h \
- $(PERL_INC)/nostdio.h \
- $(PERL_INC)/op.h \
- $(PERL_INC)/opcode.h \
- $(PERL_INC)/patchlevel.h \
- $(PERL_INC)/perl.h \
- $(PERL_INC)/perlio.h \
- $(PERL_INC)/perlsdio.h \
- $(PERL_INC)/perlsfio.h \
- $(PERL_INC)/perlvars.h \
- $(PERL_INC)/perly.h \
- $(PERL_INC)/pp.h \
- $(PERL_INC)/pp_proto.h \
- $(PERL_INC)/proto.h \
- $(PERL_INC)/regcomp.h \
- $(PERL_INC)/regexp.h \
- $(PERL_INC)/regnodes.h \
- $(PERL_INC)/scope.h \
- $(PERL_INC)/sv.h \
- $(PERL_INC)/thread.h \
- $(PERL_INC)/unixish.h \
- $(PERL_INC)/util.h
-
-$(OBJECT) : $(PERL_HDRS)
-
-JP.c : $(XSUBPPDEPS)
-
-
-# --- MakeMaker makefile section:
-
-$(OBJECT) : $(FIRST_MAKEFILE)
-
-# 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 $?"
- $(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) Makefile.PL
- $(NOECHO) $(ECHO) "==> Your Makefile has been rebuilt. <=="
- $(NOECHO) $(ECHO) "==> Please rerun the $(MAKE) command. <=="
- $(FALSE)
-
-
-
-# --- MakeMaker staticmake section:
-
-# --- MakeMaker makeaperl section ---
-MAP_TARGET = ../perl
-FULLPERL = /opt/perl-5.12.0/bin/perl
-
-
-# --- MakeMaker test section:
-
-TEST_VERBOSE=0
-TEST_TYPE=test_$(LINKTYPE)
-TEST_FILE = test.pl
-TEST_FILES =
-TESTDB_SW = -d
-
-testdb :: testdb_$(LINKTYPE)
-
-test :: $(TEST_TYPE) subdirs-test
-
-subdirs-test ::
- $(NOECHO) $(NOOP)
-
- $(NOECHO) $(ECHO) 'No tests defined for $(NAME) extension.'
-
-test_dynamic :: pure_all
-
-testdb_dynamic :: pure_all
- PERL_DL_NONLAZY=1 $(FULLPERLRUN) $(TESTDB_SW) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE)
-
-test_ : test_dynamic
-
-test_static :: pure_all $(MAP_TARGET)
-
-testdb_static :: pure_all $(MAP_TARGET)
- PERL_DL_NONLAZY=1 ./$(MAP_TARGET) $(TESTDB_SW) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE)
-
-
-
-# --- MakeMaker ppd section:
-# Creates a PPD (Perl Package Description) for a binary distribution.
-ppd :
- $(NOECHO) $(ECHO) '<SOFTPKG NAME="$(DISTNAME)" VERSION="2.04">' > $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' <ABSTRACT></ABSTRACT>' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' <AUTHOR></AUTHOR>' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' <IMPLEMENTATION>' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' <ARCHITECTURE NAME="darwin-2level-5.12" />' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' <CODEBASE HREF="" />' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' </IMPLEMENTATION>' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) '</SOFTPKG>' >> $(DISTNAME).ppd
-
-
-# --- MakeMaker pm_to_blib section:
-
-pm_to_blib : $(FIRST_MAKEFILE) $(TO_INST_PM)
- $(NOECHO) $(ABSPERLRUN) -MExtUtils::Install -e 'pm_to_blib({@ARGV}, '\''$(INST_LIB)/auto'\'', q[$(PM_FILTER)], '\''$(PERM_DIR)'\'')' -- \
- JP.pm $(INST_LIB)/Encode/JP.pm
- $(NOECHO) $(TOUCH) pm_to_blib
-
-
-# --- MakeMaker selfdocument section:
-
-
-# --- MakeMaker postamble section:
-# JP$(OBJ_EXT) depends on .h and .exh files not .c files - but all written by enc2xs
-JP.c : JP.xs ji_02_t.c ji_03_t.c eu_01_t.c cp_00_t.c ji_04_t.c sh_06_t.c ma_05_t.c
-
-JP$(OBJ_EXT) : JP.c
-
-ji_02_t.c : ../bin/enc2xs Makefile.PL ../ucm/jis0201.ucm
- $(PERL) ../bin/enc2xs -"Q" -o $@ -f ji_02_t.fnm
-
-ji_03_t.c : ../bin/enc2xs Makefile.PL ../ucm/jis0208.ucm
- $(PERL) ../bin/enc2xs -"Q" -o $@ -f ji_03_t.fnm
-
-eu_01_t.c : ../bin/enc2xs Makefile.PL ../ucm/euc-jp.ucm
- $(PERL) ../bin/enc2xs -"Q" -o $@ -f eu_01_t.fnm
-
-cp_00_t.c : ../bin/enc2xs Makefile.PL ../ucm/cp932.ucm
- $(PERL) ../bin/enc2xs -"Q" -o $@ -f cp_00_t.fnm
-
-ji_04_t.c : ../bin/enc2xs Makefile.PL ../ucm/jis0212.ucm
- $(PERL) ../bin/enc2xs -"Q" -o $@ -f ji_04_t.fnm
-
-sh_06_t.c : ../bin/enc2xs Makefile.PL ../ucm/shiftjis.ucm
- $(PERL) ../bin/enc2xs -"Q" -o $@ -f sh_06_t.fnm
-
-ma_05_t.c : ../bin/enc2xs Makefile.PL ../ucm/macJapanese.ucm
- $(PERL) ../bin/enc2xs -"Q" -o $@ -f ma_05_t.fnm
-
-
-
-# End.
diff --git a/3.8.8/sources/cpan-Encode/vendor/KR/Makefile.old b/3.8.8/sources/cpan-Encode/vendor/KR/Makefile.old
deleted file mode 100644
index 1a6c693..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/KR/Makefile.old
+++ /dev/null
@@ -1,792 +0,0 @@
-# This Makefile is for the Encode::KR extension to perl.
-#
-# It was generated automatically by MakeMaker version
-# 6.56 (Revision: 65600) from the contents of
-# Makefile.PL. Don't edit this file, edit Makefile.PL instead.
-#
-# ANY CHANGES MADE HERE WILL BE LOST!
-#
-# MakeMaker ARGV: ()
-#
-
-# MakeMaker Parameters:
-
-# BUILD_REQUIRES => { }
-# INC => q[-I../Encode]
-# MAN3PODS => { }
-# NAME => q[Encode::KR]
-# OBJECT => q[$(O_FILES)]
-# PREREQ_PM => { }
-# VERSION_FROM => q[KR.pm]
-# XSOPT => q[-nolinenumbers]
-# dist => { DIST_DEFAULT=>q[all tardist], COMPRESS=>q[gzip -9f], SUFFIX=>q[gz] }
-
-# --- MakeMaker post_initialize section:
-# Built KR.xs
-
-
-
-# --- MakeMaker const_config section:
-
-# These definitions are from config.sh (via /opt/perl-5.12.0/lib/5.12.0/darwin-2level/Config.pm).
-# They may have been overridden via Makefile.PL or on the command line.
-AR = ar
-CC = cc
-CCCDLFLAGS =
-CCDLFLAGS =
-DLEXT = bundle
-DLSRC = dl_dlopen.xs
-EXE_EXT =
-FULL_AR = /usr/bin/ar
-LD = env MACOSX_DEPLOYMENT_TARGET=10.3 cc
-LDDLFLAGS = -bundle -undefined dynamic_lookup -L/usr/local/lib -L/opt/local/lib -fstack-protector
-LDFLAGS = -fstack-protector -L/usr/local/lib -L/opt/local/lib
-LIBC = /usr/lib/libc.dylib
-LIB_EXT = .a
-OBJ_EXT = .o
-OSNAME = darwin
-OSVERS = 10.3.0
-RANLIB = ranlib
-SITELIBEXP = /opt/perl-5.12.0/lib/site_perl/5.12.0
-SITEARCHEXP = /opt/perl-5.12.0/lib/site_perl/5.12.0/darwin-2level
-SO = dylib
-VENDORARCHEXP =
-VENDORLIBEXP =
-
-
-# --- MakeMaker constants section:
-AR_STATIC_ARGS = cr
-DIRFILESEP = /
-DFSEP = $(DIRFILESEP)
-NAME = Encode::KR
-NAME_SYM = Encode_KR
-VERSION = 2.03
-VERSION_MACRO = VERSION
-VERSION_SYM = 2_03
-DEFINE_VERSION = -D$(VERSION_MACRO)=\"$(VERSION)\"
-XS_VERSION = 2.03
-XS_VERSION_MACRO = XS_VERSION
-XS_DEFINE_VERSION = -D$(XS_VERSION_MACRO)=\"$(XS_VERSION)\"
-INST_ARCHLIB = ../blib/arch
-INST_SCRIPT = ../blib/script
-INST_BIN = ../blib/bin
-INST_LIB = ../blib/lib
-INST_MAN1DIR = ../blib/man1
-INST_MAN3DIR = ../blib/man3
-MAN1EXT = 1
-MAN3EXT = 3
-INSTALLDIRS = site
-DESTDIR =
-PREFIX = $(SITEPREFIX)
-PERLPREFIX = /opt/perl-5.12.0
-SITEPREFIX = /opt/perl-5.12.0
-VENDORPREFIX =
-INSTALLPRIVLIB = /opt/perl-5.12.0/lib/5.12.0
-DESTINSTALLPRIVLIB = $(DESTDIR)$(INSTALLPRIVLIB)
-INSTALLSITELIB = /opt/perl-5.12.0/lib/site_perl/5.12.0
-DESTINSTALLSITELIB = $(DESTDIR)$(INSTALLSITELIB)
-INSTALLVENDORLIB =
-DESTINSTALLVENDORLIB = $(DESTDIR)$(INSTALLVENDORLIB)
-INSTALLARCHLIB = /opt/perl-5.12.0/lib/5.12.0/darwin-2level
-DESTINSTALLARCHLIB = $(DESTDIR)$(INSTALLARCHLIB)
-INSTALLSITEARCH = /opt/perl-5.12.0/lib/site_perl/5.12.0/darwin-2level
-DESTINSTALLSITEARCH = $(DESTDIR)$(INSTALLSITEARCH)
-INSTALLVENDORARCH =
-DESTINSTALLVENDORARCH = $(DESTDIR)$(INSTALLVENDORARCH)
-INSTALLBIN = /opt/perl-5.12.0/bin
-DESTINSTALLBIN = $(DESTDIR)$(INSTALLBIN)
-INSTALLSITEBIN = /opt/perl-5.12.0/bin
-DESTINSTALLSITEBIN = $(DESTDIR)$(INSTALLSITEBIN)
-INSTALLVENDORBIN =
-DESTINSTALLVENDORBIN = $(DESTDIR)$(INSTALLVENDORBIN)
-INSTALLSCRIPT = /opt/perl-5.12.0/bin
-DESTINSTALLSCRIPT = $(DESTDIR)$(INSTALLSCRIPT)
-INSTALLSITESCRIPT = /opt/perl-5.12.0/bin
-DESTINSTALLSITESCRIPT = $(DESTDIR)$(INSTALLSITESCRIPT)
-INSTALLVENDORSCRIPT =
-DESTINSTALLVENDORSCRIPT = $(DESTDIR)$(INSTALLVENDORSCRIPT)
-INSTALLMAN1DIR = /opt/perl-5.12.0/man/man1
-DESTINSTALLMAN1DIR = $(DESTDIR)$(INSTALLMAN1DIR)
-INSTALLSITEMAN1DIR = /opt/perl-5.12.0/man/man1
-DESTINSTALLSITEMAN1DIR = $(DESTDIR)$(INSTALLSITEMAN1DIR)
-INSTALLVENDORMAN1DIR =
-DESTINSTALLVENDORMAN1DIR = $(DESTDIR)$(INSTALLVENDORMAN1DIR)
-INSTALLMAN3DIR = /opt/perl-5.12.0/man/man3
-DESTINSTALLMAN3DIR = $(DESTDIR)$(INSTALLMAN3DIR)
-INSTALLSITEMAN3DIR = /opt/perl-5.12.0/man/man3
-DESTINSTALLSITEMAN3DIR = $(DESTDIR)$(INSTALLSITEMAN3DIR)
-INSTALLVENDORMAN3DIR =
-DESTINSTALLVENDORMAN3DIR = $(DESTDIR)$(INSTALLVENDORMAN3DIR)
-PERL_LIB = /opt/perl-5.12.0/lib/5.12.0
-PERL_ARCHLIB = /opt/perl-5.12.0/lib/5.12.0/darwin-2level
-LIBPERL_A = libperl.a
-FIRST_MAKEFILE = Makefile
-MAKEFILE_OLD = Makefile.old
-MAKE_APERL_FILE = Makefile.aperl
-PERLMAINCC = $(CC)
-PERL_INC = /opt/perl-5.12.0/lib/5.12.0/darwin-2level/CORE
-PERL = /opt/perl-5.12.0/bin/perl
-FULLPERL = /opt/perl-5.12.0/bin/perl
-ABSPERL = $(PERL)
-PERLRUN = $(PERL)
-FULLPERLRUN = $(FULLPERL)
-ABSPERLRUN = $(ABSPERL)
-PERLRUNINST = $(PERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
-FULLPERLRUNINST = $(FULLPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
-ABSPERLRUNINST = $(ABSPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
-PERL_CORE = 0
-PERM_DIR = 755
-PERM_RW = 644
-PERM_RWX = 755
-
-MAKEMAKER = /opt/perl-5.12.0/lib/5.12.0/ExtUtils/MakeMaker.pm
-MM_VERSION = 6.56
-MM_REVISION = 65600
-
-# 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.
-MAKE = make
-FULLEXT = Encode/KR
-BASEEXT = KR
-PARENT_NAME = Encode
-DLBASE = $(BASEEXT)
-VERSION_FROM = KR.pm
-INC = -I../Encode
-OBJECT = $(O_FILES)
-LDFROM = $(OBJECT)
-LINKTYPE = dynamic
-BOOTDEP =
-
-# Handy lists of source code files:
-XS_FILES = KR.xs
-C_FILES = KR.c \
- ma_04_t.c \
- ks_03_t.c \
- jo_02_t.c \
- eu_01_t.c \
- cp_00_t.c
-O_FILES = KR.o \
- cp_00_t.o \
- eu_01_t.o \
- jo_02_t.o \
- ks_03_t.o \
- ma_04_t.o
-H_FILES = ../Encode/encode.h
-MAN1PODS =
-MAN3PODS =
-
-# Where is the Config information that we are using/depend on
-CONFIGDEP = $(PERL_ARCHLIB)$(DFSEP)Config.pm $(PERL_INC)$(DFSEP)config.h
-
-# Where to build things
-INST_LIBDIR = $(INST_LIB)/Encode
-INST_ARCHLIBDIR = $(INST_ARCHLIB)/Encode
-
-INST_AUTODIR = $(INST_LIB)/auto/$(FULLEXT)
-INST_ARCHAUTODIR = $(INST_ARCHLIB)/auto/$(FULLEXT)
-
-INST_STATIC = $(INST_ARCHAUTODIR)/$(BASEEXT)$(LIB_EXT)
-INST_DYNAMIC = $(INST_ARCHAUTODIR)/$(DLBASE).$(DLEXT)
-INST_BOOT = $(INST_ARCHAUTODIR)/$(BASEEXT).bs
-
-# Extra linker info
-EXPORT_LIST =
-PERL_ARCHIVE =
-PERL_ARCHIVE_AFTER =
-
-
-TO_INST_PM = KR.pm
-
-PM_TO_BLIB = KR.pm \
- $(INST_LIB)/Encode/KR.pm
-
-
-# --- MakeMaker platform_constants section:
-MM_Unix_VERSION = 6.56
-PERL_MALLOC_DEF = -DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc -Dfree=Perl_mfree -Drealloc=Perl_realloc -Dcalloc=Perl_calloc
-
-
-# --- MakeMaker tool_autosplit section:
-# Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto
-AUTOSPLITFILE = $(ABSPERLRUN) -e 'use AutoSplit; autosplit($$ARGV[0], $$ARGV[1], 0, 1, 1)' --
-
-
-
-# --- MakeMaker tool_xsubpp section:
-
-XSUBPPDIR = /opt/perl-5.12.0/lib/5.12.0/ExtUtils
-XSUBPP = $(XSUBPPDIR)$(DFSEP)xsubpp
-XSUBPPRUN = $(PERLRUN) $(XSUBPP)
-XSPROTOARG =
-XSUBPPDEPS = /opt/perl-5.12.0/lib/5.12.0/ExtUtils/typemap $(XSUBPP)
-XSUBPPARGS = -nolinenumbers -typemap /opt/perl-5.12.0/lib/5.12.0/ExtUtils/typemap
-XSUBPP_EXTRA_ARGS =
-
-
-# --- MakeMaker tools_other section:
-SHELL = /bin/sh
-CHMOD = chmod
-CP = cp
-MV = mv
-NOOP = $(TRUE)
-NOECHO = @
-RM_F = rm -f
-RM_RF = rm -rf
-TEST_F = test -f
-TOUCH = touch
-UMASK_NULL = umask 0
-DEV_NULL = > /dev/null 2>&1
-MKPATH = $(ABSPERLRUN) -MExtUtils::Command -e 'mkpath' --
-EQUALIZE_TIMESTAMP = $(ABSPERLRUN) -MExtUtils::Command -e 'eqtime' --
-FALSE = false
-TRUE = true
-ECHO = echo
-ECHO_N = echo -n
-UNINST = 0
-VERBINST = 0
-MOD_INSTALL = $(ABSPERLRUN) -MExtUtils::Install -e 'install([ from_to => {@ARGV}, verbose => '\''$(VERBINST)'\'', uninstall_shadows => '\''$(UNINST)'\'', dir_mode => '\''$(PERM_DIR)'\'' ]);' --
-DOC_INSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'perllocal_install' --
-UNINSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'uninstall' --
-WARN_IF_OLD_PACKLIST = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'warn_if_old_packlist' --
-MACROSTART =
-MACROEND =
-USEMAKEFILE = -f
-FIXIN = $(ABSPERLRUN) -MExtUtils::MY -e 'MY->fixin(shift)' --
-
-
-# --- MakeMaker makemakerdflt section:
-makemakerdflt : all
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker dist section skipped.
-
-# --- MakeMaker macro section:
-
-
-# --- MakeMaker depend section:
-
-
-# --- MakeMaker cflags section:
-
-CCFLAGS = -fno-common -DPERL_DARWIN -no-cpp-precomp -fno-strict-aliasing -pipe -fstack-protector -I/opt/local/include
-OPTIMIZE = -O3
-PERLTYPE =
-MPOLLUTE =
-
-
-# --- MakeMaker const_loadlibs section:
-
-# Encode::KR might depend on some other libraries:
-# See ExtUtils::Liblist for details
-#
-
-
-# --- MakeMaker const_cccmd section:
-CCCMD = $(CC) -c $(PASTHRU_INC) $(INC) \
- $(CCFLAGS) $(OPTIMIZE) \
- $(PERLTYPE) $(MPOLLUTE) $(DEFINE_VERSION) \
- $(XS_DEFINE_VERSION)
-
-# --- MakeMaker post_constants section:
-
-
-# --- MakeMaker pasthru section:
-
-PASTHRU = LIBPERL_A="$(LIBPERL_A)"\
- LINKTYPE="$(LINKTYPE)"\
- OPTIMIZE="$(OPTIMIZE)"\
- PREFIX="$(PREFIX)"\
- PASTHRU_INC="$(PASTHRU_INC)"
-
-
-# --- MakeMaker special_targets section:
-.SUFFIXES : .xs .c .C .cpp .i .s .cxx .cc $(OBJ_EXT)
-
-.PHONY: all config static dynamic test linkext manifest blibdirs clean realclean disttest distdir
-
-
-
-# --- MakeMaker c_o section:
-
-.c.i:
- cc -E -c $(PASTHRU_INC) $(INC) \
- $(CCFLAGS) $(OPTIMIZE) \
- $(PERLTYPE) $(MPOLLUTE) $(DEFINE_VERSION) \
- $(XS_DEFINE_VERSION) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c > $*.i
-
-.c.s:
- $(CCCMD) -S $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c
-
-.c$(OBJ_EXT):
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c
-
-.cpp$(OBJ_EXT):
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cpp
-
-.cxx$(OBJ_EXT):
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cxx
-
-.cc$(OBJ_EXT):
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cc
-
-.C$(OBJ_EXT):
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.C
-
-
-# --- MakeMaker xs_c section:
-
-.xs.c:
- $(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $(XSUBPP_EXTRA_ARGS) $*.xs > $*.xsc && $(MV) $*.xsc $*.c
-
-
-# --- MakeMaker xs_o section:
-
-.xs$(OBJ_EXT):
- $(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.xsc && $(MV) $*.xsc $*.c
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c
-
-
-# --- MakeMaker top_targets section:
-all :: pure_all manifypods
- $(NOECHO) $(NOOP)
-
-
-pure_all :: config pm_to_blib subdirs linkext
- $(NOECHO) $(NOOP)
-
-subdirs :: $(MYEXTLIB)
- $(NOECHO) $(NOOP)
-
-config :: $(FIRST_MAKEFILE) blibdirs
- $(NOECHO) $(NOOP)
-
-$(O_FILES): $(H_FILES)
-
-help :
- perldoc ExtUtils::MakeMaker
-
-
-# --- MakeMaker blibdirs section:
-blibdirs : $(INST_LIBDIR)$(DFSEP).exists $(INST_ARCHLIB)$(DFSEP).exists $(INST_AUTODIR)$(DFSEP).exists $(INST_ARCHAUTODIR)$(DFSEP).exists $(INST_BIN)$(DFSEP).exists $(INST_SCRIPT)$(DFSEP).exists $(INST_MAN1DIR)$(DFSEP).exists $(INST_MAN3DIR)$(DFSEP).exists
- $(NOECHO) $(NOOP)
-
-# Backwards compat with 6.18 through 6.25
-blibdirs.ts : blibdirs
- $(NOECHO) $(NOOP)
-
-$(INST_LIBDIR)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_LIBDIR)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_LIBDIR)
- $(NOECHO) $(TOUCH) $(INST_LIBDIR)$(DFSEP).exists
-
-$(INST_ARCHLIB)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_ARCHLIB)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHLIB)
- $(NOECHO) $(TOUCH) $(INST_ARCHLIB)$(DFSEP).exists
-
-$(INST_AUTODIR)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_AUTODIR)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_AUTODIR)
- $(NOECHO) $(TOUCH) $(INST_AUTODIR)$(DFSEP).exists
-
-$(INST_ARCHAUTODIR)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_ARCHAUTODIR)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHAUTODIR)
- $(NOECHO) $(TOUCH) $(INST_ARCHAUTODIR)$(DFSEP).exists
-
-$(INST_BIN)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_BIN)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_BIN)
- $(NOECHO) $(TOUCH) $(INST_BIN)$(DFSEP).exists
-
-$(INST_SCRIPT)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_SCRIPT)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_SCRIPT)
- $(NOECHO) $(TOUCH) $(INST_SCRIPT)$(DFSEP).exists
-
-$(INST_MAN1DIR)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_MAN1DIR)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN1DIR)
- $(NOECHO) $(TOUCH) $(INST_MAN1DIR)$(DFSEP).exists
-
-$(INST_MAN3DIR)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_MAN3DIR)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN3DIR)
- $(NOECHO) $(TOUCH) $(INST_MAN3DIR)$(DFSEP).exists
-
-
-
-# --- MakeMaker linkext section:
-
-linkext :: $(LINKTYPE)
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker dlsyms section:
-
-
-# --- MakeMaker dynamic section:
-
-dynamic :: $(FIRST_MAKEFILE) $(INST_DYNAMIC) $(INST_BOOT)
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker dynamic_bs section:
-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) $@
- $(CHMOD) $(PERM_RW) $@
-
-$(INST_BOOT) : $(BOOTSTRAP) $(INST_ARCHAUTODIR)$(DFSEP).exists
- $(NOECHO) $(RM_RF) $@
- - $(CP) $(BOOTSTRAP) $@
- $(CHMOD) $(PERM_RW) $@
-
-
-# --- MakeMaker dynamic_lib section:
-
-# This section creates the dynamically loadable $(INST_DYNAMIC)
-# from $(OBJECT) and possibly $(MYEXTLIB).
-ARMAYBE = :
-OTHERLDFLAGS =
-INST_DYNAMIC_DEP =
-INST_DYNAMIC_FIX =
-
-$(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(BOOTSTRAP) $(INST_ARCHAUTODIR)$(DFSEP).exists $(EXPORT_LIST) $(PERL_ARCHIVE) $(PERL_ARCHIVE_AFTER) $(INST_DYNAMIC_DEP)
- $(RM_F) $@
- $(LD) $(LDDLFLAGS) $(LDFROM) $(OTHERLDFLAGS) -o $@ $(MYEXTLIB) \
- $(PERL_ARCHIVE) $(LDLOADLIBS) $(PERL_ARCHIVE_AFTER) $(EXPORT_LIST) \
- $(INST_DYNAMIC_FIX)
- $(CHMOD) $(PERM_RWX) $@
-
-
-# --- MakeMaker static section:
-
-## $(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)
-
-
-# --- MakeMaker static_lib section:
-
-$(INST_STATIC) : $(OBJECT) $(MYEXTLIB) $(INST_ARCHAUTODIR)$(DFSEP).exists
- $(RM_RF) $@
- $(FULL_AR) $(AR_STATIC_ARGS) $@ $(OBJECT) && $(RANLIB) $@
- $(CHMOD) $(PERM_RWX) $@
- $(NOECHO) $(ECHO) "$(EXTRALIBS)" > $(INST_ARCHAUTODIR)/extralibs.ld
-
-
-# --- MakeMaker manifypods section:
-
-POD2MAN_EXE = $(PERLRUN) "-MExtUtils::Command::MM" -e pod2man "--"
-POD2MAN = $(POD2MAN_EXE)
-
-
-manifypods : pure_all
- $(NOECHO) $(NOOP)
-
-
-
-
-# --- MakeMaker processPL section:
-
-
-# --- MakeMaker installbin section:
-
-
-# --- MakeMaker subdirs section:
-
-# none
-
-# --- MakeMaker clean_subdirs section:
-clean_subdirs :
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker clean section:
-
-# 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
- - $(RM_F) \
- *$(LIB_EXT) KR.c \
- core core.[0-9] \
- $(INST_ARCHAUTODIR)/extralibs.all core.[0-9][0-9] \
- $(BASEEXT).bso pm_to_blib.ts \
- core.[0-9][0-9][0-9][0-9] $(BASEEXT).x \
- $(BOOTSTRAP) perl$(EXE_EXT) \
- tmon.out *$(OBJ_EXT) \
- pm_to_blib $(INST_ARCHAUTODIR)/extralibs.ld \
- blibdirs.ts core.[0-9][0-9][0-9][0-9][0-9] \
- *perl.core core.*perl.*.? \
- $(MAKE_APERL_FILE) $(BASEEXT).def \
- perl core.[0-9][0-9][0-9] \
- mon.out lib$(BASEEXT).def \
- perl.exe perlmain.c \
- so_locations $(BASEEXT).exp
- - $(RM_RF) \
- ks_03_t.c jo_02_t.c \
- cp_00_t.h ma_04_t$(OBJ_EXT) \
- ks_03_t$(OBJ_EXT) cp_00_t.fnm \
- eu_01_t$(OBJ_EXT) ma_04_t.h \
- jo_02_t$(OBJ_EXT) ma_04_t.c \
- cp_00_t.exh jo_02_t.h \
- eu_01_t.exh eu_01_t.c \
- ma_04_t.fnm jo_02_t.fnm \
- ma_04_t.exh ks_03_t.fnm \
- KR.xs jo_02_t.exh \
- eu_01_t.h ks_03_t.exh \
- eu_01_t.fnm cp_00_t$(OBJ_EXT) \
- blib cp_00_t.c \
- ks_03_t.h
- - $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) $(DEV_NULL)
-
-
-# --- MakeMaker realclean_subdirs section:
-realclean_subdirs :
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker realclean section:
-# Delete temporary files (via clean) and also delete dist files
-realclean purge :: clean realclean_subdirs
- - $(RM_F) \
- $(OBJECT) $(MAKEFILE_OLD) \
- $(FIRST_MAKEFILE)
- - $(RM_RF) \
- $(DISTVNAME)
-
-
-# --- MakeMaker metafile section:
-metafile : create_distdir
- $(NOECHO) $(ECHO) Generating META.yml
- $(NOECHO) $(ECHO) '--- #YAML:1.0' > META_new.yml
- $(NOECHO) $(ECHO) 'name: Encode-KR' >> META_new.yml
- $(NOECHO) $(ECHO) 'version: 2.03' >> META_new.yml
- $(NOECHO) $(ECHO) 'abstract: ~' >> META_new.yml
- $(NOECHO) $(ECHO) 'author: []' >> META_new.yml
- $(NOECHO) $(ECHO) 'license: unknown' >> META_new.yml
- $(NOECHO) $(ECHO) 'distribution_type: module' >> META_new.yml
- $(NOECHO) $(ECHO) 'configure_requires:' >> META_new.yml
- $(NOECHO) $(ECHO) ' ExtUtils::MakeMaker: 0' >> META_new.yml
- $(NOECHO) $(ECHO) 'build_requires:' >> META_new.yml
- $(NOECHO) $(ECHO) ' ExtUtils::MakeMaker: 0' >> META_new.yml
- $(NOECHO) $(ECHO) 'requires: {}' >> META_new.yml
- $(NOECHO) $(ECHO) 'no_index:' >> META_new.yml
- $(NOECHO) $(ECHO) ' directory:' >> META_new.yml
- $(NOECHO) $(ECHO) ' - t' >> META_new.yml
- $(NOECHO) $(ECHO) ' - inc' >> META_new.yml
- $(NOECHO) $(ECHO) 'generated_by: ExtUtils::MakeMaker version 6.56' >> META_new.yml
- $(NOECHO) $(ECHO) 'meta-spec:' >> META_new.yml
- $(NOECHO) $(ECHO) ' url: http://module-build.sourceforge.net/META-spec-v1.4.html' >> META_new.yml
- $(NOECHO) $(ECHO) ' version: 1.4' >> META_new.yml
- -$(NOECHO) $(MV) META_new.yml $(DISTVNAME)/META.yml
-
-
-# --- MakeMaker signature section:
-signature :
- cpansign -s
-
-
-# --- MakeMaker dist_basics section skipped.
-
-# --- MakeMaker dist_core section skipped.
-
-# --- MakeMaker distdir section skipped.
-
-# --- MakeMaker dist_test section skipped.
-
-# --- MakeMaker dist_ci section skipped.
-
-# --- MakeMaker distmeta section:
-distmeta : create_distdir metafile
- $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'eval { maniadd({q{META.yml} => q{Module meta-data (added by MakeMaker)}}) } ' \
- -e ' or print "Could not add META.yml to MANIFEST: $${'\''@'\''}\n"' --
-
-
-
-# --- MakeMaker distsignature section:
-distsignature : create_distdir
- $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'eval { maniadd({q{SIGNATURE} => q{Public-key signature (added by MakeMaker)}}) } ' \
- -e ' or print "Could not add SIGNATURE to MANIFEST: $${'\''@'\''}\n"' --
- $(NOECHO) cd $(DISTVNAME) && $(TOUCH) SIGNATURE
- cd $(DISTVNAME) && cpansign -s
-
-
-
-# --- MakeMaker install section skipped.
-
-# --- MakeMaker force section:
-# Phony target to force checking subdirectories.
-FORCE :
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker perldepend section:
-
-PERL_HDRS = \
- $(PERL_INC)/EXTERN.h \
- $(PERL_INC)/INTERN.h \
- $(PERL_INC)/XSUB.h \
- $(PERL_INC)/av.h \
- $(PERL_INC)/cc_runtime.h \
- $(PERL_INC)/config.h \
- $(PERL_INC)/cop.h \
- $(PERL_INC)/cv.h \
- $(PERL_INC)/dosish.h \
- $(PERL_INC)/embed.h \
- $(PERL_INC)/embedvar.h \
- $(PERL_INC)/fakethr.h \
- $(PERL_INC)/form.h \
- $(PERL_INC)/gv.h \
- $(PERL_INC)/handy.h \
- $(PERL_INC)/hv.h \
- $(PERL_INC)/intrpvar.h \
- $(PERL_INC)/iperlsys.h \
- $(PERL_INC)/keywords.h \
- $(PERL_INC)/mg.h \
- $(PERL_INC)/nostdio.h \
- $(PERL_INC)/op.h \
- $(PERL_INC)/opcode.h \
- $(PERL_INC)/patchlevel.h \
- $(PERL_INC)/perl.h \
- $(PERL_INC)/perlio.h \
- $(PERL_INC)/perlsdio.h \
- $(PERL_INC)/perlsfio.h \
- $(PERL_INC)/perlvars.h \
- $(PERL_INC)/perly.h \
- $(PERL_INC)/pp.h \
- $(PERL_INC)/pp_proto.h \
- $(PERL_INC)/proto.h \
- $(PERL_INC)/regcomp.h \
- $(PERL_INC)/regexp.h \
- $(PERL_INC)/regnodes.h \
- $(PERL_INC)/scope.h \
- $(PERL_INC)/sv.h \
- $(PERL_INC)/thread.h \
- $(PERL_INC)/unixish.h \
- $(PERL_INC)/util.h
-
-$(OBJECT) : $(PERL_HDRS)
-
-KR.c : $(XSUBPPDEPS)
-
-
-# --- MakeMaker makefile section:
-
-$(OBJECT) : $(FIRST_MAKEFILE)
-
-# 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 $?"
- $(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) Makefile.PL
- $(NOECHO) $(ECHO) "==> Your Makefile has been rebuilt. <=="
- $(NOECHO) $(ECHO) "==> Please rerun the $(MAKE) command. <=="
- $(FALSE)
-
-
-
-# --- MakeMaker staticmake section:
-
-# --- MakeMaker makeaperl section ---
-MAP_TARGET = ../perl
-FULLPERL = /opt/perl-5.12.0/bin/perl
-
-
-# --- MakeMaker test section:
-
-TEST_VERBOSE=0
-TEST_TYPE=test_$(LINKTYPE)
-TEST_FILE = test.pl
-TEST_FILES =
-TESTDB_SW = -d
-
-testdb :: testdb_$(LINKTYPE)
-
-test :: $(TEST_TYPE) subdirs-test
-
-subdirs-test ::
- $(NOECHO) $(NOOP)
-
- $(NOECHO) $(ECHO) 'No tests defined for $(NAME) extension.'
-
-test_dynamic :: pure_all
-
-testdb_dynamic :: pure_all
- PERL_DL_NONLAZY=1 $(FULLPERLRUN) $(TESTDB_SW) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE)
-
-test_ : test_dynamic
-
-test_static :: pure_all $(MAP_TARGET)
-
-testdb_static :: pure_all $(MAP_TARGET)
- PERL_DL_NONLAZY=1 ./$(MAP_TARGET) $(TESTDB_SW) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE)
-
-
-
-# --- MakeMaker ppd section:
-# Creates a PPD (Perl Package Description) for a binary distribution.
-ppd :
- $(NOECHO) $(ECHO) '<SOFTPKG NAME="$(DISTNAME)" VERSION="2.03">' > $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' <ABSTRACT></ABSTRACT>' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' <AUTHOR></AUTHOR>' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' <IMPLEMENTATION>' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' <ARCHITECTURE NAME="darwin-2level-5.12" />' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' <CODEBASE HREF="" />' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' </IMPLEMENTATION>' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) '</SOFTPKG>' >> $(DISTNAME).ppd
-
-
-# --- MakeMaker pm_to_blib section:
-
-pm_to_blib : $(FIRST_MAKEFILE) $(TO_INST_PM)
- $(NOECHO) $(ABSPERLRUN) -MExtUtils::Install -e 'pm_to_blib({@ARGV}, '\''$(INST_LIB)/auto'\'', q[$(PM_FILTER)], '\''$(PERM_DIR)'\'')' -- \
- KR.pm $(INST_LIB)/Encode/KR.pm
- $(NOECHO) $(TOUCH) pm_to_blib
-
-
-# --- MakeMaker selfdocument section:
-
-
-# --- MakeMaker postamble section:
-# KR$(OBJ_EXT) depends on .h and .exh files not .c files - but all written by enc2xs
-KR.c : KR.xs ma_04_t.c ks_03_t.c jo_02_t.c eu_01_t.c cp_00_t.c
-
-KR$(OBJ_EXT) : KR.c
-
-ma_04_t.c : ../bin/enc2xs Makefile.PL ../ucm/macKorean.ucm
- $(PERL) ../bin/enc2xs -"Q" -o $@ -f ma_04_t.fnm
-
-ks_03_t.c : ../bin/enc2xs Makefile.PL ../ucm/ksc5601.ucm
- $(PERL) ../bin/enc2xs -"Q" -o $@ -f ks_03_t.fnm
-
-jo_02_t.c : ../bin/enc2xs Makefile.PL ../ucm/johab.ucm
- $(PERL) ../bin/enc2xs -"Q" -o $@ -f jo_02_t.fnm
-
-eu_01_t.c : ../bin/enc2xs Makefile.PL ../ucm/euc-kr.ucm
- $(PERL) ../bin/enc2xs -"Q" -o $@ -f eu_01_t.fnm
-
-cp_00_t.c : ../bin/enc2xs Makefile.PL ../ucm/cp949.ucm
- $(PERL) ../bin/enc2xs -"Q" -o $@ -f cp_00_t.fnm
-
-
-
-# End.
diff --git a/3.8.8/sources/cpan-Encode/vendor/META.yml b/3.8.8/sources/cpan-Encode/vendor/META.yml
deleted file mode 100644
index 2a5c1ab..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/META.yml
+++ /dev/null
@@ -1,20 +0,0 @@
---- #YAML:1.0
-name: Encode
-version: 2.39
-abstract: ~
-author: []
-license: unknown
-distribution_type: module
-configure_requires:
- ExtUtils::MakeMaker: 0
-build_requires:
- ExtUtils::MakeMaker: 0
-requires: {}
-no_index:
- directory:
- - t
- - inc
-generated_by: ExtUtils::MakeMaker version 6.55_02
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
diff --git a/3.8.8/sources/cpan-Encode/vendor/Makefile.PL b/3.8.8/sources/cpan-Encode/vendor/Makefile.PL
deleted file mode 100644
index 2db8802..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/Makefile.PL
+++ /dev/null
@@ -1,132 +0,0 @@
-#
-# $Id: Makefile.PL,v 2.8 2009/07/08 13:34:15 dankogai Exp $
-#
-use 5.007003;
-use strict;
-use warnings;
-use ExtUtils::MakeMaker;
-use File::Spec;
-
-# Just for sure :)
-my %ARGV = map { my @r = split /=/,$_; defined $r[1] or $r[1]=1; @r } @ARGV;
-$ARGV{DEBUG} and warn "$_ => $ARGV{$_}\n" for keys %ARGV;
-$ENV{PERL_CORE} ||= $ARGV{PERL_CORE} if $ARGV{PERL_CORE};
-
-my %tables =
- (
- def_t => ['ascii.ucm',
- '8859-1.ucm',
- 'null.ucm',
- 'ctrl.ucm',
- ]
- );
-
-my @exe_files = qw(bin/enc2xs
- bin/piconv
- );
-my @more_exe_files = qw(
- unidump
- );
-my @pmlibdirs = qw(lib Encode);
-
-$ARGV{MORE_SCRIPTS} and push @exe_files, @more_exe_files;
-$ARGV{INSTALL_UCM} and push @pmlibdirs, "ucm";
-
-WriteMakefile(
- NAME => "Encode",
- EXE_FILES => \@exe_files,
- VERSION_FROM => 'Encode.pm',
- OBJECT => '$(O_FILES)',
- 'dist' => {
- COMPRESS => 'gzip -9f',
- SUFFIX => 'gz',
- DIST_DEFAULT => 'all tardist',
- },
- INC => '-I' . File::Spec->catfile( '.', 'Encode' ),
- PMLIBDIRS => \@pmlibdirs,
- INSTALLDIRS => 'perl',
-);
-
-package MY;
-
-
-sub post_initialize
-{
- my ($self) = @_;
- my %o;
- # Find existing O_FILES
- foreach my $f (@{$self->{'O_FILES'}})
- {
- $o{$f} = 1;
- }
- my $x = $self->{'OBJ_EXT'};
- # Add the table O_FILES
- foreach my $e (keys %tables)
- {
- $o{$e.$x} = 1;
- }
- # Trick case-blind filesystems.
- delete $o{'encode'.$x};
- $o{'Encode'.$x} = 1;
- # Reset the variable
- $self->{'O_FILES'} = [sort keys %o];
- my @files;
- foreach my $table (keys %tables)
- {
- foreach my $ext (qw($(OBJ_EXT) .c .h .exh .fnm))
- {
- push (@files,$table.$ext);
- }
- $self->{SOURCE} .= " $table.c"
- if $^O eq 'MacOS' && $self->{SOURCE} !~ /\b$table\.c\b/;
-}
-$self->{'clean'}{'FILES'} .= join(' ', at files);
-return '';
-}
-
-sub postamble
-{
- my $self = shift;
- my $dir = $self->catdir($self->curdir,'ucm');
- my $str = "# Encode\$(OBJ_EXT) does not depend on .c files directly\n";
- $str .= "# (except Encode.c), but on .h and .exh files written by enc2xs\n";
- $str .= $^O eq 'MacOS' ? 'Encode.c.{$(MACPERL_BUILD_EXT_STATIC)}.o :' : 'Encode$(OBJ_EXT) :';
- $str .= ' Encode.c';
- foreach my $table (keys %tables)
- {
- $str .= " $table.c";
- }
- $str .= "\n\n";
- foreach my $table (keys %tables)
- {
- my $numlines = 1;
- my $lengthsofar = length($str);
- my $continuator = '';
- my $enc2xs = $self->catfile('bin', 'enc2xs');
- $str .= "$table.c : $enc2xs 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)"' : '';
- $plib .= " -MCross=$::Cross::platform" if defined $::Cross::platform;
- my $ucopts = '-"Q" -"O"';
- $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/3.8.8/sources/cpan-Encode/vendor/Symbol/Makefile.PL b/3.8.8/sources/cpan-Encode/vendor/Symbol/Makefile.PL
deleted file mode 100644
index 23ca1f4..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/Symbol/Makefile.PL
+++ /dev/null
@@ -1,156 +0,0 @@
-use 5.7.2;
-use strict;
-use ExtUtils::MakeMaker;
-
-my $name = 'Symbol';
-my %tables = (
- symbol_t => [qw(
- symbol.ucm
- dingbats.ucm
- adobeSymbol.ucm
- adobeZdingbat.ucm
- macSymbol.ucm
- macDingbats.ucm
- )
- ],
- );
-
-WriteMakefile(
- INC => "-I../Encode",
- NAME => 'Encode::'.$name,
- VERSION_FROM => "$name.pm",
- OBJECT => '$(O_FILES)',
- 'dist' => {
- COMPRESS => 'gzip -9f',
- SUFFIX => 'gz',
- DIST_DEFAULT => 'all tardist',
- },
- MAN3PODS => {},
- # 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"];
- $self->{SOURCE} .= " $name.c"
- if $^O eq 'MacOS' && $self->{SOURCE} !~ /\b$name\.c\b/;
- $self->{'H'} = [$self->catfile($self->updir,'Encode', 'encode.h')];
- my %xs;
- foreach my $table (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->{SOURCE} .= " $table.c"
- if $^O eq 'MacOS' && $self->{SOURCE} !~ /\b$table\.c\b/;
- }
- $self->{'XS'} = { "$name.xs" => "$name.c" };
- $self->{'clean'}{'FILES'} .= join(' ', at files);
- open(XS,">$name.xs") || die "Cannot open $name.xs:$!";
- print XS <<'END';
-#include <EXTERN.h>
-#include <perl.h>
-#include <XSUB.h>
-#define U8 U8
-#include "encode.h"
-END
- foreach my $table (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 *sv = sv_bless(newRV_noinc(newSViv(PTR2IV(enc))),stash);
- int i = 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 (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($self->updir,'ucm');
- 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 (keys %tables)
- {
- $str .= " $table.c";
- }
- $str .= "\n\n";
- $str .= "$name\$(OBJ_EXT) : $name.c\n\n";
-
- my $enc2xs = $self->catfile($self->updir,'bin', 'enc2xs');
- foreach my $table (keys %tables)
- {
- my $numlines = 1;
- my $lengthsofar = length($str);
- my $continuator = '';
- $str .= "$table.c : $enc2xs 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)"' : '';
- $plib .= " -MCross=$::Cross::platform" if defined $::Cross::platform;
- my $ucopts = '-"Q" -"O"';
- $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/3.8.8/sources/cpan-Encode/vendor/Unicode/Unicode.pm b/3.8.8/sources/cpan-Encode/vendor/Unicode/Unicode.pm
deleted file mode 100644
index f71567c..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/Unicode/Unicode.pm
+++ /dev/null
@@ -1,270 +0,0 @@
-package Encode::Unicode;
-
-use strict;
-use warnings;
-no warnings 'redefine';
-
-our $VERSION = do { my @r = ( q$Revision: 2.7 $ =~ /\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 base 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 implemntation 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. If no BOM is found, the routine dies.
-
-=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/3.8.8/sources/cpan-Encode/vendor/bin/ucm2table b/3.8.8/sources/cpan-Encode/vendor/bin/ucm2table
deleted file mode 100755
index 66e63fc..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/bin/ucm2table
+++ /dev/null
@@ -1,45 +0,0 @@
-#!/usr/bin/perl
-# $Id: ucm2table,v 2.1 2006/05/03 18:24:10 dankogai Exp $
-#
-
-use 5.006;
-use strict;
-use Getopt::Std;
-my %Opt;
-getopts("aeu", \%Opt);
-my %Chartab;
-
-my $Hex = '[0-9A-Fa-f]';
-while(<>){
- chomp;
- my ($uni, $enc, $fb) =
- /^<U($Hex+)>\s+(\S+)\s+\|(\d)/o or next;
- $fb eq '0' or next;
- my @byte = ();
- my $ord = 0;
- while($enc =~ /\G\\x($Hex+)/iog){
- my $byte = hex($1);
- push @byte, $byte;
- $ord <<= 8; $ord += $byte;
- };
- # print join('', @byte), " => $ord \n";
- if ($Opt{u}){
- $Chartab{$ord} = pack("U", hex($uni));
- }else{
- $Chartab{$ord} = pack("C*", @byte);
- }
-}
-
-my $start = $Opt{a} ? 0x20 : 0xa0;
-
-for (my $x = $start; $x <= 0xffff; $x += 32) {
- my $line = '';
- for my $i (0..31){
- my $num = $x+$i; $num eq 0x7f and next; # skip delete
- my $char = $Chartab{$num};
- $line .= !$char ? " " :
- ($num < 0x7f ) ? " $char" : $char ;
- }
- $line =~ /^\s+$/o and next;
- printf "0x%04x: $line\n", $x;
-}
diff --git a/3.8.8/sources/cpan-Encode/vendor/bin/ucmlint b/3.8.8/sources/cpan-Encode/vendor/bin/ucmlint
deleted file mode 100644
index 622376d..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/bin/ucmlint
+++ /dev/null
@@ -1,203 +0,0 @@
-#!/usr/local/bin/perl
-#
-# $Id: ucmlint,v 2.2 2008/03/12 09:51:11 dankogai Exp $
-#
-
-use strict;
-our $VERSION = do { my @r = (q$Revision: 2.2 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
-
-use Getopt::Std;
-our %Opt;
-getopts("Dehfv", \%Opt);
-
-if ($Opt{e}){
- eval{ require Encode; };
- $@ and die "can't load Encode : $@";
-}
-
-$Opt{h} and help();
- at ARGV or help();
-
-sub help{
- print <<"";
-$0 -[Dehfv] [ucm files ...]
- -D debug mode on
- -e test with Encode module also (requires perl 5.7.3 or higher)
- -h shows this message
- -f forces roundtrip check even for |[123]
- -v verbose mode
-
-}
-
-$| = 1;
-my (%Hdr, %U2E, %E2U, %Fallback);
-my $in_charmap = 0;
-my $nerror = 0;
-my $nwarning = 0;
-
-sub nit($;$){
- my ($msg, $level) = @_;
- my $lstr;
- if ($level == 2){
- $lstr = 'notice';
- }elsif ($level == 1){
- $lstr = 'warning'; $nwarning++;
- }else{
- $lstr = 'error'; $nerror++;
- }
- print "$ARGV:$lstr in line $.: $msg\n";
-}
-
-for $ARGV (@ARGV){
- open UCM, $ARGV or die "$ARGV:$!";
- %Hdr = %U2E = %E2U = %Fallback = ();
- $in_charmap = $nerror = $nwarning = 0;
- $. = 0;
- while(<UCM>){
- chomp;
- s/\s*#.*$//o; /^$/ and next;
- if ($_ eq "CHARMAP"){
- $in_charmap = 1;
- for my $must (qw/code_set_name mb_cur_min mb_cur_max/){
- exists $Hdr{$must} or nit "<$must> nonexistent";
- }
- $Hdr{mb_cur_min} > $Hdr{mb_cur_max}
- and nit sprintf("mb_cur_min(%d) > mb_cur_max(%d)",
- $Hdr{mb_cur_min},$Hdr{mb_cur_max});
- $in_charmap = 1;
- next;
- }
- unless ($in_charmap){
- my($hkey, $hvalue) = /^<(\S+)>\s+[\"\']?([^\"\']+)/o or next;
- $Opt{D} and warn "$hkey => $hvalue";
- if ($hkey eq "code_set_name"){ # name check
- exists $Hdr{code_set_name}
- and nit "Duplicate <code_set_name>: $hkey";
- }
- if ($hkey eq "code_set_alias"){ # alias check
- $hvalue eq $Hdr{code_set_name}
- and nit qq(alias "$hvalue" is already in <code_set_name>);
- }
- $Hdr{$hkey} = $hvalue;
- }else{
- my $name = $Hdr{code_set_name};
- my($unistr, $encstr, $fb) = /^(\S+)\s+(\S+)\s(\S+)/o or next;
- $Opt{v} and nit $_, 2;
- my $uni = uniparse($unistr);
- my $enc = encparse($encstr);
- $fb =~ /^\|([0123])$/ or nit "malformed fallback: $fb";
- $fb = $1;
- $Opt{f} and $fb = 0;
- unless ($fb == 3){ # check uni -> enc
- if (exists $U2E{$uni}){
- nit "dupe encode map: U$uni => $U2E{$uni} and $enc", 1;
- }else{
- $U2E{$uni} = $enc;
- $Fallback{$uni}{$enc} = 1 if $fb == 1;
- if ($Opt{e}) {
- my $e = hex2enc($enc);
- my $u = hex2uni($uni);
- my $eu = Encode::encode($name, $u);
- $e eq $eu
- or nit qq(encode('$name', $uni) != $enc);
- }
- }
- }
- unless ($fb == 1){ # check enc -> uni
- if (exists $E2U{$enc}){
- nit "dupe decode map: $enc => U$E2U{$enc} and U$uni", 1;
- }else{
- $E2U{$enc} = $uni;
- $Fallback{$enc}{$uni} = 1 if $fb == 3;
- if ($Opt{e}) {
- my $e = hex2enc($enc);
- my $u = hex2uni($uni);
- $Opt{D} and warn "$uni, $enc";
- my $de = Encode::decode($name, $e);
- $de eq $u
- or nit qq(decode('$name', $enc) != $uni);
- }
- }
- }
- # warn "$uni, $enc, $fb";
- }
- }
- $in_charmap or nit "Where is CHARMAP?";
- checkRT();
- printf ("$ARGV: %s error%s found\n",
- ($nerror == 0 ? 'no' : $nerror),
- ($nerror > 1 ? 's' : ''));
-}
-
-exit;
-
-sub hex2enc{
- pack("C*", map {hex($_)} split(",", shift));
-}
-sub hex2uni{
- join("", map { chr(hex($_)) } split(",", shift));
-}
-
-sub checkRT{
- for my $uni (keys %E2U){
- my $enc = $U2E{$uni} or next; # okay
- $E2U{$U2E{$uni}} eq $uni or $Fallback{$uni}{$enc} or
- nit "RT failure: U$uni => $enc =>U$E2U{$U2E{$uni}}";
- }
- for my $enc (keys %E2U){
- my $uni = $E2U{$enc} or next; # okay
- $U2E{$E2U{$enc}} eq $enc or $Fallback{$enc}{$uni} or
- nit "RT failure: $enc => U$uni => $U2E{$E2U{$enc}}";
- }
-}
-
-
-sub uniparse{
- my $str = shift;
- my @u;
- push @u, $1 while($str =~ /\G<U(.*?)>/ig);
- for my $u (@u){
- $u =~ /^([0-9A-Za-z]+)$/o
- or nit "malformed Unicode character: $u";
- }
- return join(',', @u);
-}
-
-sub encparse{
- my $str = shift;
- my @e;
- for my $e (split /\\x/io, $str){
- $e or next; # first \x
- $e =~ /^([0-9A-Za-z]{1,2})$/io
- or nit "Hex $e in $str is bogus";
- push @e, $1;
- }
- return join(',', @e);
-}
-
-
-
-__END__
-
-A UCM file looks like this.
-
- #
- # Comments
- #
- <code_set_name> "US-ascii" # Required
- <code_set_alias> "ascii" # Optional
- <mb_cur_min> 1 # Required; usually 1
- <mb_cur_max> 1 # Max. # of bytes/char
- <subchar> \x3F # Substitution char
- #
- CHARMAP
- <U0000> \x00 |0 # <control>
- <U0001> \x01 |0 # <control>
- <U0002> \x02 |0 # <control>
- ....
- <U007C> \x7C |0 # VERTICAL LINE
- <U007D> \x7D |0 # RIGHT CURLY BRACKET
- <U007E> \x7E |0 # TILDE
- <U007F> \x7F |0 # <control>
- END CHARMAP
-
diff --git a/3.8.8/sources/cpan-Encode/vendor/bin/unidump b/3.8.8/sources/cpan-Encode/vendor/bin/unidump
deleted file mode 100755
index ae0da30..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/bin/unidump
+++ /dev/null
@@ -1,272 +0,0 @@
-#!./perl
-
-use strict;
-use Encode;
-use Getopt::Std;
-my %Opt; getopts("ChH:e:f:t:s:pPv", \%Opt);
-$Opt{p} ||= $Opt{P};
-$Opt{e} ||= 'utf8';
-$Opt{f} ||= $Opt{e};
-$Opt{t} ||= $Opt{e};
-$Opt{h} and help();
-
-my ($linebuf, $outbuf);
-my $CPL = $Opt{p} ? 64 : 8;
-my $linenum;
-my $linesperheading = $Opt{H};
-my $nchars;
-our $PrevChunk;
-
-$Opt{h} and help();
-$Opt{p} and do_perl($Opt{s});
-do_dump($Opt{s});
-exit;
-
-#
-
-sub do_perl{
- my $string = shift;
- $Opt{P} and print "#!$^X -w\nprint\n";
- unless ($string){
- while(<>){
- use utf8;
- $linebuf .= Encode::decode($Opt{f}, $_);
- while($linebuf){
- my $chr = render_p(substr($linebuf, 0, 1, ''));
- length($outbuf) + length($chr) > $CPL and print_P();
- $outbuf .= $chr;
- }
- }
- $outbuf and print print_P(";");
- }else{
- while($string){
- my $chr = render_p(substr($string, 0, 1, ''));
- length($outbuf) + length($chr) > $CPL and print_P();
- $outbuf .= $chr;
- }
- }
- $outbuf and print print_P(";");
- exit;
-}
-
-sub render_p{
- my ($chr, $format) = @_;
- our %S2pstr;
- $S2pstr{$chr} and return $S2pstr{$chr}; # \t\n...
- $chr =~ /[\x20-\x7e]/ and return $chr; # ascii, printable;
- my $fmt = ($chr =~ /[\x00-\x1f\x7F]/) ?
- q(\x%x) : q(\x{%x});
- return sprintf $fmt, ord($chr);
-}
-
-sub print_P{
- my $end = shift;
- $outbuf or return;
- print '"', encode($Opt{t}, $outbuf), '"';
- my $tail = $Opt{P} ? $end ? "$end" : "," : '';
- print $tail, "\n";
- $outbuf = '';
-}
-
-sub do_dump{
- my $string = shift;
- !$Opt{p} and exists $Opt{H} and print_H();
- unless ($string){
- while(<>){
- use utf8;
- $linebuf .= Encode::decode($Opt{f}, $_);
- while (length($linebuf) > $CPL){
- my $chunk = substr($linebuf, 0, $CPL, '');
- print_C($chunk, $linenum++);
- $Opt{H} and $linenum % $Opt{H} == $CPL-1 and print_S();
- }
- }
- $linebuf and print_C($linebuf);
- }else{
- while ($string){
- my $chunk = substr($string, 0, $CPL, '');
- print_C($chunk, $linenum++);
- $Opt{H} and $linenum % $Opt{H} == $CPL-1 and print_S();
- }
- }
- exit;
-}
-
-sub print_S{
- print "--------+------------------------------------------------";
- if ($Opt{C}){
- print "-+-----------------";
- }
- print "\n";
-}
-sub print_H{
- print " Offset 0 1 2 3 4 5 6 7";
- if ($Opt{C}){
- print " | 0 1 2 3 4 5 6 7";
- }
- print "\n";
- print_S;
-}
-
-sub print_C{
- my ($chunk, $linenum) = @_;
- if (!$Opt{v} and $chunk eq $PrevChunk){
- printf "%08x *\n", $linenum*8; return;
- }
- $PrevChunk = $chunk;
- my $end = length($chunk) - 1;
- my (@ord, @chr);
- for my $i (0..$end){
- use utf8;
- my $chr = substr($chunk,$i,1);
- my $ord = ord($chr);
- my $fmt = $ord <= 0xffff ? " %04x" : " %05x";
- push @ord, (sprintf $fmt, $ord);
- $Opt{C} and push @chr, render_c($chr);
- }
- if (++$end < 7){
- for my $i ($end..7){
- push @ord, (" " x 6);
- }
- }
- my $line = sprintf "%08x %s", $linenum*8, join('', @ord);
- $Opt{C} and $line .= sprintf " | %s", join('', @chr);
- print encode($Opt{t}, $line), "\n";
-}
-
-sub render_c{
- my ($chr, $format) = @_;
- our (%S2str, $IsFullWidth);
- $chr =~ /[\p{IsControl}\s]/o and return $S2str{$chr} || " ";
- $chr =~ $IsFullWidth and return $chr; # as is
- return " " . $chr;
-}
-
-sub help{
- my $message = shift;
- use File::Basename;
- my $name = basename($0);
- $message and print STDERR "$name error: $message\n";
- print STDERR <<"EOT";
-Usage:
- $name -[options...] [files...]
- $name -[options...] -s "string"
- $name -h
- -h prints this message.
-Inherited from hexdump;
- -C Canonical unidump mode
- -v prints the duplicate line as is. Without this option,
- single "*" will be printed instead.
-For unidump only
- -p prints in perl literals that you can copy and paste directly
- to your perl script.
- -P prints in perl executable format!
- -u prints a bunch of "Uxxxx,". Handy when you want to pass your
- characters in mailing lists.
-IO Options:
- -e io_encoding same as "-f io_encoding -t io_encoding"
- -f from_encoding convert the source stream from this encoding
- -t to_encoding print to STDOUT in this encoding
- -s string "string" will be converted instead of STDIN.
- -H nline prints separater for each nlines of output.
- 0 means only the table headding be printed.
-EOT
- exit;
-}
-
-BEGIN{
- our %S2pstr= (
- "\\" => '\\\\',
- "\0" => '\0',
- "\t" => '\t',
- "\n" => '\n',
- "\r" => '\r',
- "\v" => '\v',
- "\a" => '\a',
- "\e" => '\e',
- "\"" => qq(\\\"),
- "\'" => qq(\\\'),
- '$' => '\$',
- "@" => '\@',
- "%" => '\%',
- );
-
- our %S2str = (
- qq(\x00) => q(\0), # NULL
- qq(\x01) => q(^A), # START OF HEADING
- qq(\x02) => q(^B), # START OF TEXT
- qq(\x03) => q(^C), # END OF TEXT
- qq(\x04) => q(^D), # END OF TRANSMISSION
- qq(\x05) => q(^E), # ENQUIRY
- qq(\x06) => q(^F), # ACKNOWLEDGE
- qq(\x07) => q(\a), # BELL
- qq(\x08) => q(^H), # BACKSPACE
- qq(\x09) => q(\t), # HORIZONTAL TABULATION
- qq(\x0A) => q(\n), # LINE FEED
- qq(\x0B) => q(\v), # VERTICAL TABULATION
- qq(\x0C) => q(^L), # FORM FEED
- qq(\x0D) => q(\r), # CARRIAGE RETURN
- qq(\x0E) => q(^N), # SHIFT OUT
- qq(\x0F) => q(^O), # SHIFT IN
- qq(\x10) => q(^P), # DATA LINK ESCAPE
- qq(\x11) => q(^Q), # DEVICE CONTROL ONE
- qq(\x12) => q(^R), # DEVICE CONTROL TWO
- qq(\x13) => q(^S), # DEVICE CONTROL THREE
- qq(\x14) => q(^T), # DEVICE CONTROL FOUR
- qq(\x15) => q(^U), # NEGATIVE ACKNOWLEDGE
- qq(\x16) => q(^V), # SYNCHRONOUS IDLE
- qq(\x17) => q(^W), # END OF TRANSMISSION BLOCK
- qq(\x18) => q(^X), # CANCEL
- qq(\x19) => q(^Y), # END OF MEDIUM
- qq(\x1A) => q(^Z), # SUBSTITUTE
- qq(\x1B) => q(\e), # ESCAPE (\c[)
- qq(\x1C) => "^\\", # FILE SEPARATOR
- qq(\x1D) => "^\]", # GROUP SEPARATOR
- qq(\x1E) => q(^^), # RECORD SEPARATOR
- qq(\x1F) => q(^_), # UNIT SEPARATOR
- );
- #
- # Generated out of lib/unicore/EastAsianWidth.txt
- # will it work ?
- #
- our $IsFullWidth =
- qr/^[
- \x{1100}-\x{1159}
- \x{115F}-\x{115F}
- \x{2329}-\x{232A}
- \x{2E80}-\x{2E99}
- \x{2E9B}-\x{2EF3}
- \x{2F00}-\x{2FD5}
- \x{2FF0}-\x{2FFB}
- \x{3000}-\x{303E}
- \x{3041}-\x{3096}
- \x{3099}-\x{30FF}
- \x{3105}-\x{312C}
- \x{3131}-\x{318E}
- \x{3190}-\x{31B7}
- \x{31F0}-\x{321C}
- \x{3220}-\x{3243}
- \x{3251}-\x{327B}
- \x{327F}-\x{32CB}
- \x{32D0}-\x{32FE}
- \x{3300}-\x{3376}
- \x{337B}-\x{33DD}
- \x{3400}-\x{4DB5}
- \x{4E00}-\x{9FA5}
- \x{33E0}-\x{33FE}
- \x{A000}-\x{A48C}
- \x{AC00}-\x{D7A3}
- \x{A490}-\x{A4C6}
- \x{F900}-\x{FA2D}
- \x{FA30}-\x{FA6A}
- \x{FE30}-\x{FE46}
- \x{FE49}-\x{FE52}
- \x{FE54}-\x{FE66}
- \x{FE68}-\x{FE6B}
- \x{FF01}-\x{FF60}
- \x{FFE0}-\x{FFE6}
- \x{20000}-\x{2A6D6}
- ]$/xo;
-}
-
-__END__
diff --git a/3.8.8/sources/cpan-Encode/vendor/lib/Encode/Alias.pm b/3.8.8/sources/cpan-Encode/vendor/lib/Encode/Alias.pm
deleted file mode 100644
index f142403..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/lib/Encode/Alias.pm
+++ /dev/null
@@ -1,377 +0,0 @@
-package Encode::Alias;
-use strict;
-use warnings;
-no warnings 'redefine';
-our $VERSION = do { my @r = ( q$Revision: 2.12 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
-sub DEBUG () { 0 }
-
-use base qw(Exporter);
-
-# 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' ) {
- DEBUG and warn "delete \$Alias\{$k\}";
- delete $Alias{ $alias->($name) };
- }
- }
- }
- 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/^mac_(.*)$/i => '"mac$1"' );
- # http://rt.cpan.org/Ticket/Display.html?id=36326
- define_alias( qr/^macintosh$/i => '"MacRoman"' );
-
- # Ououououou. gone. They are differente!
- # 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"' );
- }
-
- # 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);
-
-=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 I<newName> 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 not required.
-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 ths 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.
-
-=head1 SEE ALSO
-
-L<Encode>, L<Encode::Supported>
-
-=cut
-
diff --git a/3.8.8/sources/cpan-Encode/vendor/lib/Encode/Encoding.pm b/3.8.8/sources/cpan-Encode/vendor/lib/Encode/Encoding.pm
deleted file mode 100644
index 768d6d1..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/lib/Encode/Encoding.pm
+++ /dev/null
@@ -1,360 +0,0 @@
-package Encode::Encoding;
-
-# Base class for classes which implement encodings
-use strict;
-use warnings;
-our $VERSION = do { my @r = ( q$Revision: 2.5 $ =~ /\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 base 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 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 base 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 base 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/3.8.8/sources/cpan-Encode/vendor/lib/Encode/GSM0338.pm b/3.8.8/sources/cpan-Encode/vendor/lib/Encode/GSM0338.pm
deleted file mode 100644
index 2ea71f2..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/lib/Encode/GSM0338.pm
+++ /dev/null
@@ -1,292 +0,0 @@
-#
-# $Id: GSM0338.pm,v 2.1 2008/05/07 20:56:05 dankogai Exp $
-#
-package Encode::GSM0338;
-
-use strict;
-use warnings;
-use Carp;
-
-use vars qw($VERSION);
-$VERSION = do { my @r = ( q$Revision: 2.1 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
-
-use Encode qw(:fallbacks);
-
-use base 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{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;
- 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;
- 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 aways 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/3.8.8/sources/cpan-Encode/vendor/lib/Encode/Guess.pm b/3.8.8/sources/cpan-Encode/vendor/lib/Encode/Guess.pm
deleted file mode 100644
index 1ad7147..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/lib/Encode/Guess.pm
+++ /dev/null
@@ -1,355 +0,0 @@
-package Encode::Guess;
-use strict;
-use warnings;
-use Encode qw(:fallbacks find_encoding);
-our $VERSION = do { my @r = ( q$Revision: 2.3 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
-
-my $Canon = 'Guess';
-sub DEBUG () { 0 }
-our %DEF_SUSPECTS = map { $_ => find_encoding($_) } qw(ascii utf8);
-$Encode::Encoding{$Canon} = bless {
- Name => $Canon,
- Suspects => {%DEF_SUSPECTS},
-} => __PACKAGE__;
-
-use base 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 );
- $_[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 and utf8
- 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/3.8.8/sources/cpan-Encode/vendor/lib/Encode/JP/H2Z.pm b/3.8.8/sources/cpan-Encode/vendor/lib/Encode/JP/H2Z.pm
deleted file mode 100644
index f8e2230..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/lib/Encode/JP/H2Z.pm
+++ /dev/null
@@ -1,176 +0,0 @@
-#
-# $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/3.8.8/sources/cpan-Encode/vendor/lib/Encode/JP/JIS7.pm b/3.8.8/sources/cpan-Encode/vendor/lib/Encode/JP/JIS7.pm
deleted file mode 100644
index 3b5699c..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/lib/Encode/JP/JIS7.pm
+++ /dev/null
@@ -1,165 +0,0 @@
-package Encode::JP::JIS7;
-use strict;
-use warnings;
-our $VERSION = do { my @r = ( q$Revision: 2.4 $ =~ /\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 base 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/3.8.8/sources/cpan-Encode/vendor/lib/Encode/KR/2022_KR.pm b/3.8.8/sources/cpan-Encode/vendor/lib/Encode/KR/2022_KR.pm
deleted file mode 100644
index 0218d97..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/lib/Encode/KR/2022_KR.pm
+++ /dev/null
@@ -1,81 +0,0 @@
-package Encode::KR::2022_KR;
-use strict;
-use warnings;
-our $VERSION = do { my @r = ( q$Revision: 2.2 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
-
-use Encode qw(:fallbacks);
-
-use base 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/3.8.8/sources/cpan-Encode/vendor/lib/Encode/MIME/Header.pm b/3.8.8/sources/cpan-Encode/vendor/lib/Encode/MIME/Header.pm
deleted file mode 100644
index 9728dc3..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/lib/Encode/MIME/Header.pm
+++ /dev/null
@@ -1,241 +0,0 @@
-package Encode::MIME::Header;
-use strict;
-use warnings;
-no warnings 'redefine';
-
-our $VERSION = do { my @r = ( q$Revision: 2.11 $ =~ /\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 base 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;
-
-sub encode($$;$) {
- my ( $obj, $str, $chk ) = @_;
- my @line = ();
- for my $line ( split /\r\n|[\r\n]/o, $str ) {
- my ( @word, @subline );
- for my $word ( split /($re_especials)/o, $line ) {
- if ( $word =~ /[^\x00-\x7f]/o
- or $word =~ /^$re_encoded_word$/o )
- {
- push @word, $obj->_encode($word);
- }
- else {
- push @word, $word;
- }
- }
- my $subline = '';
- for my $word (@word) {
- use bytes ();
- if ( bytes::length($subline) + bytes::length($word) >
- $obj->{bpl} )
- {
- push @subline, $subline;
- $subline = '';
- }
- $subline .= $word;
- }
- $subline and push @subline, $subline;
- push @line, join( "\n " => @subline );
- }
- $_[1] = '' if $chk;
- return 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/3.8.8/sources/cpan-Encode/vendor/lib/Encode/Supported.pod b/3.8.8/sources/cpan-Encode/vendor/lib/Encode/Supported.pod
deleted file mode 100644
index e84faaf..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/lib/Encode/Supported.pod
+++ /dev/null
@@ -1,901 +0,0 @@
-=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 seperately 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 unsupport because those encodings need 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 bellow)
- 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/3.8.8/sources/cpan-Encode/vendor/t/Unicode.t b/3.8.8/sources/cpan-Encode/vendor/t/Unicode.t
deleted file mode 100644
index baa502c..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/t/Unicode.t
+++ /dev/null
@@ -1,165 +0,0 @@
-#
-# $Id: Unicode.t,v 2.2 2009/11/16 14:08:13 dankogai Exp $
-#
-# This script is written entirely in ASCII, even though quoted literals
-# do include non-BMP unicode characters -- Are you happy, jhi?
-#
-
-BEGIN {
- require Config; import Config;
- if ($Config{'extensions'} !~ /\bEncode\b/) {
- print "1..0 # Skip: Encode was not built\n";
- exit 0;
- }
- if (ord("A") == 193) {
- print "1..0 # Skip: EBCDIC\n";
- exit 0;
- }
- $| = 1;
-}
-
-use strict;
-#use Test::More 'no_plan';
-use Test::More tests => 38;
-use Encode qw(encode decode find_encoding);
-
-#
-# see
-# http://www.unicode.org/unicode/reports/tr19/
-#
-
-my $dankogai = "\x{5c0f}\x{98fc}\x{3000}\x{5f3e}";
-my $nasty = "$dankogai\x{1abcd}";
-my $fallback = "$dankogai\x{fffd}";
-
-#hi: (0x1abcd - 0x10000) / 0x400 + 0xD800 = 0xd82a
-#lo: (0x1abcd - 0x10000) % 0x400 + 0xDC00 = 0xdfcd
-
-my $n_16be =
- pack("C*", map {hex($_)} qw<5c 0f 98 fc 30 00 5f 3e d8 2a df cd>);
-my $n_16le =
- pack("C*", map {hex($_)} qw<0f 5c fc 98 00 30 3e 5f 2a d8 cd df>);
-my $f_16be =
- pack("C*", map {hex($_)} qw<5c 0f 98 fc 30 00 5f 3e ff fd>);
-my $f_16le =
- pack("C*", map {hex($_)} qw<0f 5c fc 98 00 30 3e 5f fd ff>);
-my $n_32be =
- pack("C*", map {hex($_)}
- qw<00 00 5c 0f 00 00 98 fc 00 00 30 00 00 00 5f 3e 00 01 ab cd>);
-my $n_32le =
- pack("C*", map {hex($_)}
- qw<0f 5c 00 00 fc 98 00 00 00 30 00 00 3e 5f 00 00 cd ab 01 00>);
-
-my $n_16bb = pack('n', 0xFeFF) . $n_16be;
-my $n_16lb = pack('v', 0xFeFF) . $n_16le;
-my $n_32bb = pack('N', 0xFeFF) . $n_32be;
-my $n_32lb = pack('V', 0xFeFF) . $n_32le;
-
-is($n_16be, encode('UTF-16BE', $nasty), qq{encode UTF-16BE});
-is($n_16le, encode('UTF-16LE', $nasty), qq{encode UTF-16LE});
-is($n_32be, encode('UTF-32BE', $nasty), qq{encode UTF-32BE});
-is($n_32le, encode('UTF-32LE', $nasty), qq{encode UTF-16LE});
-
-is($nasty, decode('UTF-16BE', $n_16be), qq{decode UTF-16BE});
-is($nasty, decode('UTF-16LE', $n_16le), qq{decode UTF-16LE});
-is($nasty, decode('UTF-32BE', $n_32be), qq{decode UTF-32BE});
-is($nasty, decode('UTF-32LE', $n_32le), qq{decode UTF-32LE});
-
-is($n_16bb, encode('UTF-16', $nasty), qq{encode UTF-16});
-is($n_32bb, encode('UTF-32', $nasty), qq{encode UTF-32});
-is($nasty, decode('UTF-16', $n_16bb), qq{decode UTF-16, bom=be});
-is($nasty, decode('UTF-16', $n_16lb), qq{decode UTF-16, bom=le});
-is($nasty, decode('UTF-32', $n_32bb), qq{decode UTF-32, bom=be});
-is($nasty, decode('UTF-32', $n_32lb), qq{decode UTF-32, bom=le});
-
-is(decode('UCS-2BE', $n_16be), $fallback, "decode UCS-2BE: fallback");
-is(decode('UCS-2LE', $n_16le), $fallback, "decode UCS-2LE: fallback");
-eval { decode('UCS-2BE', $n_16be, 1) };
-is (index($@,'UCS-2BE:'), 0, "decode UCS-2BE: exception");
-eval { decode('UCS-2LE', $n_16le, 1) };
-is (index($@,'UCS-2LE:'), 0, "decode UCS-2LE: exception");
-is(encode('UCS-2BE', $nasty), $f_16be, "encode UCS-2BE: fallback");
-is(encode('UCS-2LE', $nasty), $f_16le, "encode UCS-2LE: fallback");
-eval { encode('UCS-2BE', $nasty, 1) };
-is(index($@, 'UCS-2BE'), 0, "encode UCS-2BE: exception");
-eval { encode('UCS-2LE', $nasty, 1) };
-is(index($@, 'UCS-2LE'), 0, "encode UCS-2LE: exception");
-
-#
-# SvGROW test for (en|de)code_xs
-#
-SKIP: {
- my $utf8 = '';
- for my $j (0,0x10){
- for my $i (0..0xffff){
- $j == 0 and (0xD800 <= $i && $i <= 0xDFFF) and next;
- $utf8 .= ord($j+$i);
- }
- for my $major ('UTF-16', 'UTF-32'){
- for my $minor ('BE', 'LE'){
- my $enc = $major.$minor;
- is(decode($enc, encode($enc, $utf8)), $utf8, "$enc RT");
- }
- }
- }
-};
-
-#
-# CJKT vs. UTF-7
-#
-
-use File::Spec;
-use File::Basename;
-
-my $dir = dirname(__FILE__);
-opendir my $dh, $dir or die "$dir:$!";
-my @file = sort grep {/\.utf$/o} readdir $dh;
-closedir $dh;
-for my $file (@file){
- my $path = File::Spec->catfile($dir, $file);
- open my $fh, '<', $path or die "$path:$!";
- my $content;
- if (PerlIO::Layer->find('perlio')){
- binmode $fh => ':utf8';
- $content = join('' => <$fh>);
- }else{ # ugh!
- binmode $fh;
- $content = join('' => <$fh>);
- Encode::_utf8_on($content)
- }
- close $fh;
- is(decode("UTF-7", encode("UTF-7", $content)), $content,
- "UTF-7 RT:$file");
-}
-
-# Magic
-{
- # see http://rt.perl.org/rt3//Ticket/Display.html?id=60472
- my $work = chr(0x100);
- my $encoding = find_encoding("UTF16-BE");
- my $tied;
- tie $tied, SomeScalar => \$work;
- my $result = $encoding->encode($tied, 1);
- is($work, "", "check set magic was applied");
-}
-
-package SomeScalar;
-use Tie::Scalar;
-use vars qw(@ISA);
-BEGIN { @ISA = 'Tie::Scalar' }
-
-sub TIESCALAR {
- my ($class, $ref) = @_;
- return bless $ref, $class;
-}
-
-sub FETCH {
- ${$_[0]}
-}
-
-sub STORE {
- ${$_[0]} = $_[1];
-}
-
-1;
-__END__
diff --git a/3.8.8/sources/cpan-Encode/vendor/t/at-cn.t b/3.8.8/sources/cpan-Encode/vendor/t/at-cn.t
deleted file mode 100644
index 03ba109..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/t/at-cn.t
+++ /dev/null
@@ -1,145 +0,0 @@
-BEGIN {
- if ($ENV{'PERL_CORE'}){
- chdir 't';
- unshift @INC, '../lib';
- }
- require Config; import Config;
- if ($Config{'extensions'} !~ /\bEncode\b/) {
- print "1..0 # Skip: Encode was not built\n";
- exit 0;
- }
- if (ord("A") == 193) {
- print "1..0 # Skip: EBCDIC\n";
- exit 0;
- }
- $| = 1;
-}
-
-use strict;
-use Test::More tests => 29;
-use Encode;
-
-no utf8; # we have raw Chinese encodings here
-
-use_ok('Encode::CN');
-
-# Since JP.t already tests basic file IO, we will just focus on
-# internal encode / decode test here. Unfortunately, to test
-# against all the UniHan characters will take a huge disk space,
-# not to mention the time it will take, and the fact that Perl
-# did not bundle UniHan.txt anyway.
-
-# So, here we just test a typical snippet spanning multiple Unicode
-# blocks, and hope it can point out obvious errors.
-
-run_tests('Simplified Chinese only', {
- 'utf' => (
-12298.26131.32463.12299.31532.19968.21350.
-24406.26352.65306.
-22823.21705.20094.20803.65292.19975.29289.36164.22987.65292.
-20035.32479.22825.12290.
-20113.34892.38632.26045.65292.21697.29289.27969.24418.12290.
-22823.26126.22987.32456.65292.20845.20301.26102.25104.65292.
-26102.20056.20845.40857.20197.24481.22825.12290.
-20094.36947.21464.21270.65292.21508.27491.24615.21629.65292.
-20445.21512.22823.21644.65292.20035.21033.36126.12290.
-39318.20986.24246.29289.65292.19975.22269.21688.23425.12290
- ),
-
- 'euc-cn' => join('',
-'¡¶Ò×¾¡·µÚÒ»ØÔ',
-'åèÔ»£º',
-'´óÔÕǬԪ£¬ÍòÎï×Êʼ£¬',
-'ÄËͳÌì¡£',
-'ÔÆÐÐÓêÊ©£¬Æ·ÎïÁ÷ÐΡ£',
-'´óÃ÷ʼÖÕ£¬Áùλʱ³É£¬',
-'ʱ³ËÁùÁúÒÔÓùÌì¡£',
-'ǬµÀ±ä»¯£¬¸÷ÕýÐÔÃü£¬',
-'±£ºÏ´óºÍ£¬ÄËÀûÕê¡£',
-'Ê׳öÊüÎÍò¹úÏÌÄþ¡£',
- ),
-
- 'gb2312-raw' => join('',
-'!6RW>-!75ZR;XT',
-'ehT;#:',
-'4sTUG,T*#,MrNoWJJ<#,',
-'DKM3Ll!#',
-'TFPPSjJ)#,F7NoAwPN!#',
-'4sCwJ<VU#,AyN;J13I#,',
-'J13KAyAzRTSyLl!#',
-'G,5 at 1d;/#,8wU}PTC|#,',
-'1#:O4s:M#,DK@{Uj!#',
-'JW3vJ|No#,Mr9zOLD~!#'
- ),
-
- 'iso-ir-165'=> join('',
-'!6RW>-!75ZR;XT',
-'ehT;#:',
-'4sTUG,T*#,MrNoWJJ<#,',
-'DKM3Ll!#',
-'TFPPSjJ)#,F7NoAwPN!#',
-'4sCwJ<VU#,AyN;J13I#,',
-'J13KAyAzRTSyLl!#',
-'G,5 at 1d;/#,8wU}PTC|#,',
-'1#:O4s:M#,DK@{Uj!#',
-'JW3vJ|No#,Mr9zOLD~!#'
- ),
-});
-
-run_tests('Simplified Chinese + ASCII', {
- 'utf' => (
-35937.26352.65306.10.
-22825.34892.20581.65292.21531.23376.20197.33258.24378.19981.24687.12290.10.
-28508.40857.21247.29992.65292.38451.22312.19979.20063.12290.32.
-35265.40857.22312.30000.65292.24503.26045.26222.20063.12290.32.
-32456.26085.20094.20094.65292.21453.22797.36947.20063.12290.10.
-25110.36291.22312.28170.65292.36827.26080.21646.20063.12290.39134.
-40857.22312.22825.65292.22823.20154.36896.20063.12290.32.
-20130.40857.26377.24724.65292.30408.19981.21487.20037.20063.12290.10.
-29992.20061.65292.22825.24503.19981.21487.20026.39318.20063.12290
- ),
-
- 'cp936' => join(chr(10),
-'ÏóÔ»£º',
-'ÌìÐн¡£¬¾ý×ÓÒÔ×ÔÇ¿²»Ï¢¡£',
-'DZÁúÎðÓã¬ÑôÔÚÏÂÒ²¡£ ¼ûÁúÔÚÌµÂÊ©ÆÕÒ²¡£ ÖÕÈÕǬǬ£¬·´¸´µÀÒ²¡£',
-'»òÔ¾ÔÚÔ¨£¬½øÎÞ¾ÌÒ²¡£·ÉÁúÔÚÌ죬´óÈËÔìÒ²¡£ ¿ºÁúÓлڣ¬Ó¯²»¿É¾ÃÒ²¡£',
-'Óþţ¬ÌìµÂ²»¿ÉΪÊ×Ò²¡£',
- ),
-
- 'hz' => join(chr(10),
-'~{OsT;#:~}',
-'~{LlPP=!#,>}WSRTWTG?2;O"!#~}',
-'~{G1AzNpSC#,QtTZOBR2!#~} ~{<{AzTZLo#,5BJ)FUR2!#~} ~{VUHUG,G,#,74845 at R2!#~}',
-'~{;rT>TZT(#,=xN^>LR2!#7IAzTZLl#,4sHKTlR2!#~} ~{?:AzSP;Z#,S/2;?I>CR2!#~}',
-'~{SC>E#,Ll5B2;?IN*JWR2!#~}',
- ),
-});
-
-run_tests('Traditional Chinese', {
- 'utf', => 20094.65306.20803.12289.20136.12289.21033.12289.35998,
- 'gb12345-raw' => 'G,#:T*!":`!"@{!"Uj',
- 'gbk' => 'Ǭ£ºÔª¡¢ºà¡¢Àû¡¢Ø‘',
-});
-
-sub run_tests {
- my ($title, $tests) = @_;
- my $utf = delete $tests->{'utf'};
-
- # $enc = encoding, $str = content
- foreach my $enc (sort keys %{$tests}) {
- my $str = $tests->{$enc};
-
- is(Encode::decode($enc, $str), $utf, "[$enc] decode - $title");
- is(Encode::encode($enc, $utf), $str, "[$enc] encode - $title");
-
- my $str2 = $str;
- my $utf8 = Encode::encode('utf-8', $utf);
-
- Encode::from_to($str2, $enc, 'utf-8');
- is($str2, $utf8, "[$enc] from_to => utf8 - $title");
-
- Encode::from_to($utf8, 'utf-8', $enc); # convert $utf8 as $enc
- is($utf8, $str, "[$enc] utf8 => from_to - $title");
- }
-}
diff --git a/3.8.8/sources/cpan-Encode/vendor/t/big5-hkscs.utf b/3.8.8/sources/cpan-Encode/vendor/t/big5-hkscs.utf
deleted file mode 100644
index 73d7f63..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/t/big5-hkscs.utf
+++ /dev/null
@@ -1,590 +0,0 @@
-0x8840: ïŒïŒŽïŒïŒïŒ‘ĀÃÇÀĒÉĚÈŌÓ
-0x8860: ǑÒẾỀÊÄáǎà ɑēéěèīÃÇìÅóǒòūúǔùǖǘǚ
-0x88a0: ǜüï„ếï†á»ÃªÉ¡ïŠï‹
-0x8940: ïŽ ïŽ¡ 攊 丽æ»éµŽé‡Ÿ 撑会伨侨兖兴农凤务动医åŽå‘å˜å›¢å£°å¤„备夲
-0x8960: 头å¦å®žå®Ÿå²šåº†æ€»æ–‰æŸ¾æ „桥济炼电纤纬纺织ç»ç»Ÿç¼†ç¼·è‰ºè‹è¯è§†è®¾è¯¢è½¦è½§è½®
-0x89a0: ç‘ç³¼ç·æ¥†ç«‰åˆ§ 醌碸酞肼 è´‹èƒ¶ï° è‚Ÿé»‡ä³é·‰é¸Œä°¾ï¹ïºé¸Šï¼ã—
-0x89c0: 溚舾甙 䤑马éªé¾™ç¦‡ïˆï‰ïŠï‹ä¸¤äºäº€äº‡äº¿ä»«ä¼·ã‘Œä¾½ã¹ˆå€ƒå‚ˆã‘½ã’“㒥円夅凛
-0x89e0: 凼刅争剹åŠåŒ§ã—‡åŽ©ã•‘厰㕓å‚å£ã•ã•²ãšå’“咣咴咹å“哯唘唣唨㖘唿㖥㖿嗗㗅
-0x8a40: ï½å”¥ ï‘€ï‘ï‘‚å–㧬蹆ä“ï‘‹çºï‘㨴䟕ï‘ï‘‘ï‘’æ“æ’蹾
-0x8a60: ï‘ï‘žï‘Ÿ 䟴骲㩧ã¿ã”†ï‘¬ï‘ï‘®ï‘¯éµ®é • ä™ï‘´æ’´å“£ï‘·ï‘¸ï‘¹ã§»ï‘»
-0x8aa0: 擪ï’蹨 ä ‹ï’ˆã¿ºå¡³ï’‹ ï’ï’Žï’ï’啹䂻䎺 䪴膪飵
-0x8ac0: ï’›æ¹ã§¾ï’žè·€åš¡æ‘¼ã¹ƒ  㦒㨆ï’㕸噒㒼氽 ï’º
-0x8ae0: ï“羓㗻㾓ï“ï“Žï“ ï“‘ï“’ï““ï“”ï“•ã¿¹ï“—æ²ï“™
-0x8b40: ï“ï“žï“Ÿï“ ã¨˜ï“¢ï“£ï“¤ï“¥ï“¦ï“§ï“¨ï“©é–ªå“Œè‹„å–¹ 鰦骶煀è…胬尜脴
-0x8b60: ãž—åŸï“¼é†¶ï“¾ï“¿ï”€ï”ã—㘉嚯ï”ï”ï”婔垜
-0x8ba0: ï”ãœƒï”Ÿï” ï”¡ï”¢ï”£ï”¤ï”¥ï”¦å¢™å‰¨ã˜šï”ªç®²å¨ä €ä¬¬é¼§ä§§é°Ÿé®ï”³ï”´å—»ã—²åš‰
-0x8bc0: 丨夂é‘乛亻㔾尣彑忄㣺扌攵æºæ°µæ°ºç¬çˆ«ä¸¬çŠï•Žç½’礻糹罓㓠耂
-0x8be0: 肀å衤è§ï•žè® è´é’…镸长门韦页风飞饣鱼鸟黄æ¯ï¤‡ä¸·ï•²é˜æˆ·é’¢
-0x8c40: 倻淾㷉è¢ï•½ç·å³µä¬ ï–㕙愢辧釶熑朙玺㲋ä¬ç£¤ç‚冮䀉橣
-0x8c60: äˆ£è˜ ç¨ªï–›ï–œé•çåŒ¤ï– é´ç›™ï–£ï–¤çŸäº£ä¿°å‚¼ä¸¯ä¼—ï–«å´ç¶‹å¢’å£ï–°åº’庙忂斋
-0x8ca0: 椙橃泿 爀玌㻛嬕璹讃窓篬糃繬苸薗è¢ï—Žèº¹ï—è¿è•Ÿé§ 鈡
-0x8cc0: ï—•ï—–ï——ä±äŠ¢å¨š 顨æ«ä‰¶åœ½ 藖芿ä²ï—¨åµ»ï—ªï—«ï—¬ï—å®–ï—¯ ç¹›
-0x8d60: 崾嵈嵖㷼ã 嶤嶹ã 㠸幂庽弥徃㤈㤔㤿ã¥æƒ—愽峥㦉憷憹æ‡ã¦¸æˆ¬æŠæ‹¥æŒ˜ã§¸åš±
-0x8da0: 㨃æ¢æ»æ‡æ‘šã©‹æ“€å´•å˜¡é¾Ÿãª—斆㪽旿晓㫲暒㬢朖ã‚æž¤æ €ã˜æ¡Šæ¢„ã²ã±ã»æ¤‰æ¥ƒç‰œ
-0x8dc0: 楤榟榅㮼槖ã¯æ©¥æ©´æ©±æª‚㯬檙㯲檫檵櫔櫶æ®æ¯æ¯ªæ±µæ²ªã³‹æ´‚洆洦æ¶ã³¯æ¶¤æ¶±æ¸•æ¸˜
-0x8de0: 温溆溻滢滚齿滨滩漤漴㵆æ¾æ¾¾ãµªãµµç†·å²™ã¶Šç€¬ã¶‘çç”ç¯ç¿ç‚‰ïšä㗱
-0x8e40: 垾焾㙎榢å´ç©‰îŒ›îŒœç©¥ç©½îŒŸçª»çª°ç«‚竃燑䇊竚ç«ç«ªä‡¯å’²îŒ¬ç¬‹ç•ç¬©îŒ°
-0x8e60: 箢ç¯èŽœîŒµîŒ¶ç¯è¡ç®’ ã¶îŒ½è’’篺 ç°µî‚籄粃î…粦晽îˆç³‰ç³‡ç³¦ç±´ç³³ç³µ
-0x8ea0: 繧ä”î’çµî”ç’綉綫焵綳 î›îœç·¤ã´“ç·µî ç·¥î¢ î¤î¥ç¹®çº’䌫鑬縧罀ç½ç½‡ç¤¶
-0x8ec0: î¯é§¡ç¾—î²ç¾£î´îµä•œî·ä”ƒî¹ç¿ºî» è€ˆè€ è€¯îŽîŽ‚耻耼è¡îŽ†ä¦‰îŽˆîŽ‰îŽŠæœ¥è‚§îŽè„‡
-0x8ee0: è„šå¢°îŽ‘æ±¿îŽ“îŽ”æ“§îŽ–èˆ˜îŽ˜æ©“îŽšîŽ›ä‘ºèˆ©îŽžîŽŸîŽ ä¿¹îŽ¢è“¢è¢îŽ¥îŽ¦îŽ§îŽ¨îŽ©èŠªæ¤›îŽ¬ä‡›
-0x8f40: è•‹è‹èŒšîŽ±îŽ²ã›îŽ´îŽµè‰»è‹¢èŒ˜îŽ¹îŽºîŽ»îŽ¼îŽ½ã¶¿èŒå—¬èŽ…䔋îƒèŽ¬ è“㑾îˆæ©—è•šã’–îŒî
-0x8f60: 葘î葱㷓䓤檧葊î•ç¥˜ î˜î™îšè“ž èŽ‘ä’ è’“è“¤î¡ä‰€î£ä•ƒè”´å«²î§ä”§è•³ä”–枿蘖
-0x8fa0: îî®è—î°è˜‚î²î³î´ä•ªè˜¨ã™ˆî¸å·îºè™¾è±î½èŸ®î¿èž±èŸšè 噡虬桖ä˜è¡…衆î‰îŠî‹
-0x8fc0: 衞袜䙛袴袵æ装ç·î”覇覊 覧覼î›è§§îîžèªœçž“釾èªî£ç«©î¥î¦äœ“î¨ç…¼è¬Œè¬Ÿ
-0x8fe0: î¬î謿èŒè誩î²è®è®›èª¯î¶ä˜•è¡è²›îºî»î¼ãœ¥î¾è³–î‘€î‘贒贃賛çœè´‘ã»
-0x9040: 趩î‘î‘Žã¼î‘竧èºèº¶è»ƒé‹”è¼™è¼î‘™î‘šè¾¥éŒƒî‘辳䤪廸迹
-0x9060: 㦀逷é¡î‘±î‘²é‚¨î‘´éƒ„邮 酧㫰醩釄粬鈎沟é‰é‰¢î’„ 
-0x90a0: 錬é«î’î’Žç‚嫃䥥鉄é³é‘›èº¼é–…é–¦é¦é– 濶䊹䧟氜陻隖
-0x90c0: 䅬隣懚隶磵隽åŒä¦¡î’³î’´î’µî’¶î’·î’¸î’¹î’ºéœ±è™‚霶ä¨ä”½ä–…î“çµå霛 é—åŠ
-0x90e0: éŸé¥åƒî“î“Žéž‰éžŸéž±éž¾éŸ€éŸ’éŸ î“–éŸ®çœî“™ 韵î“ä«‘é ´é ³é¡‹é¡¦ã¬Žî“¤ãµ‘î“¦î“§
-0x9140: 飊颷飈飇䫿喰飡飦飬é¸é¤¹î“¶ä²î“¸î“¹é§µé¨Œé¨»é¨é©˜î“¿ã›„î”î”‚é« é«¢î”…é«´ä°Ž
-0x9160: 鬔é¬î”Šå€´é¬´î”㣃î”éé€î”’婅鮎鰂鯿鰌鷔î”î”žî”Ÿî” î”¡éµ¾é¶ƒî”¤é¸Žæ¢ˆ
-0x91a0: 鷄鴹éºéº•éºžéº¢ä´´éºªéº¯î”·é»ã 㧥ã´ä¼²ãž¾î”¾é¼‚鼈䮖é¤î•ƒé¼—
-0x91c0: 鼹嚟嚊齅馸韲葿齢齩竜龎爖䮾煷玞禟é©é³î•¢é‹¬éŽé‹
-0x91e0: 爗㻫ç²ç©ƒçƒî•î•®ç…¾î•°ç‚£î•²î•³ã»‡î•µî•¶î•·ãœ¢î•¹î•ºã›¡î•¼î•½î•¾ãœ£î–€å›î–‚
-0x9240: 蔃 è‘•î–‹î–Œî–î–Žî–î–䓴柹㜳㰕㷧塬æ ä—î–î–žî–Ÿî– î–¡å“‹åšžî–¤
-0x9260: 嚒é†î–ªéŽœä»¸å„«ã ™î–¯äº¼î–±î–²ä½‹ä¾Šî–µå©¨î–·î–¸ã¦™î–ºî–»ãµä¼©î–¾î–¿î—€è«šî—‚亘
-0x92a0: åƒå„侢伃佂倮å¬å‚俌俥å˜åƒ¼ 湶浲冨凃ä“î—¡î—¢
-0x92c0: 赺剙劤勡 䙺熌槑 㻞璙ç”瑖玘䮎åã–„çˆî˜€å–´î˜‚
-0x92e0: å“åœé‰é›´é¦åŸåžå¿ã˜¾å£‹åª™î˜î˜î˜‘娬妸éŠå©¾å«å¨’㛵洅瑃娡
-0x9340: åªî˜£î˜¤é 璌焅䥲éˆî˜«éŽ½ãž 尞岞幞幈å»åãœî˜ºã›î˜¼ã›“脪î™
-0x9360: 弌弎婫å„è˜”î™‹è¡ æ¾î™Žî™å¿›ãº¸î™’懀憙憘æµî™î™žî™Ÿî™
-0x93a0: 摱㨩挷撶挱æ‘护æ»æ•«æ¥²ã¯´î™¶î™·î™¸î™¹å”曎
-0x93c0: 㫠ä†îšƒîš„磮㑤îšîšæšŽîš’晫䮓昰晣昞㣑
-0x93e0: 㮙ç“ã®–æžîš¦æ¢¶æ žã¯„檾㡣îšæ¨³æ©’櫉欅攑梘橌㯗橺æ—îš¹îšºéŽ é‹²îš½îš¾
-0x9440: 銉î›é‘§æ¶¥æ¼‹î›… ã¶æ¸„娽渊塇洤硂焻烱ç‰çŠ‡çŠ”兹瑺î›î›ž
-0x9460: î›Ÿî› î›¡ã¼†ãº±î›¤î›¥î›¦æ‚§ã»³ç“Œç¼éŽ‡ç·ä’Ÿî›®ä•‘疃㽣㽘畕癳㬙瑨㫻
-0x94a0: ã·î›¿ã»¿îœîœ‚釺圲é‚僟ç¸îœŒçœŽçœç»îœîœ‘㩞ç¸ç’›ãº¿îœ—䃈錇
-0x94c0: îœç žç¢ç¢ˆç£’ç祙䄎 蒖禥æ¨îœ«ç¨ºç§´ä…®îœ¯ä„²éˆµç§±îœ³îœ´îœµîœ¶îœ·ã–—啫㕰㚪
-0x94e0: 竢婙î€îî‚å¨î„磰娪î‡ç«¾ä‡¹ç±ç±äˆ‘îîŽîç³î‘î’粎籼粮檲緜縇緓罎î›
-0x9540: îœî綗îŸä‰ªî¡î¢æŸ–î¤î¥åŸ„î§î¨î©ç¿ç¬§î¬îî®ç¬Œî°é§¦è™…驣樜îµã§¢î·î¸é¨Ÿîºè’€
-0x9560: î¼î½ä“ªè„·ä‚胆脉腂飃艢艥葓è˜îžåª†ä…¿îžå¬«îž’å«¤îž”èš îž–îž—è 娂
-0x95a0: 衮佅袇袿裦襥è¥îž¢è¥”ãºè’£ä›µä›ãŸ²è¨½è¨œîž±å½éˆ«îž´æ—”焩烄éµ
-0x95c0: 貟賩妚矃姰ä®ã›”踪躧輰轊䋴汘澻䢛潹溋鯩㚵邻 啱䤆醻é„ä¢
-0x95e0: é§îŸœîŸè“¥è¨«é–™é–§é–—閖瑅㻂㻧éšîŸîŸ®îŸ¯ã»ŒîŸ±îŸ²îŸ³ç’瑫㻼é
-0x9640: 桇ä¨îŸ»îŸ¼ é¨îŸ¿î €î î ‚éŠºå¬‘è©ä¤¼ç¹î ˆéž›é±é¤¸î Œå·î Žî é Ÿî ‘é‹¶î “é‡¥ä“€î –î —î ˜
-0x9660: é£œî šã¼€éˆªä¤¥è”餻é¥î ¡ã·½é¦›ä¯é¦ªé©œî §î ¨æªé¨¡å«¾é¨¯î ä®î ¯é¦¼ä®½ä®—é½å¡²î µå ¢î ·
-0x96a0: î ¸ç¡„î ºî »æ£…ãµ½é‘˜ã¤§æ…î¡î¡‚愇é±é±“鱻鰵é°é¿é¯î¡‹é®Ÿî¡î¡Žé´¡ä²®î¡‘鸘䲰鴌
-0x96c0: 鶥蒽î¡è—¼ä”³î¡ î¡¡î¡¢è 藮秢ä¤î¡¬ãµ¢é›éŠ¾éˆî¡±ç¢¹é‰·é‘俤㑀
-0x96e0: é¤î¡¸ç ½ç¡”碶硋㚚佲濚濙 瀞å”垻壳垊鴖埗焴㒯î¢ç‡«î¢‘ 
-0x9740: 愌嫎娋䊼㜬ä»î¢éŽ»éŽ¸î¢ 葲妔綨î¢î¢®î¢¯î¢°é‹¥ç¢ã»©ç’´î¢µ
-0x9760: 㻡櫘ç³ç»ã»–î£î£‚瑈炥銄ç¦éŸî£‹éŒ±î£î£ŽéŽ†î£î£‘䤵煫
-0x97a0: 嚤唂秄î£ç·¾î£Ÿî£ 䔮é㜊妰媡㛢î£ãš°é‰Ÿå©¹î£±î£²é´
-0x97c0: ã³î£µäª–㦊僴㵩㵌煵䋻æ¸î¤€ä“«æµ—ç§æ²¯ã³–渂漌㵯畑㚼㓈䚀㻚䡱姄
-0x97e0: 鉮䤾è½î¤—î¤˜å ’åŸˆã›–î¤œçƒ¾î¤žî¤Ÿî¤ î¤¡î¤¢æ¢¹æ¥§î¤¥î¤¦î¤§î¤¨î¤©î¤ªî¤«î¤¬æ¨šî¤®î¤¯è¾ä“Ÿä“Ž
-0x9840: 漗茽è妉媂î¥å©¡å©±î¥„ãœå§¯î¥ˆã›‡ç†ŽéŽæššî¥å©®å¨«î¥æ¨«î¥’
-0x9860: ç„侰峂î¥î¥žæ¨Œî¥ 炦焳㶥泟繥姫崯㷳彜綤è¦
-0x98a0: 咅å¾î¥·î¥¸ã¿¥î¥ºî¥»ç€ƒî¥½åµ°çŽç³“î¦î¦‚俈翧ç‹çŒî¦‡çŒ¸çŒ¹î¦Šççˆãº©î¦Žé¬ç‡µ
-0x98c0: ç¡è‡¶ã»ŠçœŒã»‘沢国ç™çžçŸã»¢ã»°ã»´ã»ºç““㼎㽓畂ç•ç•²ç–㽼痈痜㿀ç™ã¿—癴㿜発
-0x98e0: 熈嘣覀塩ä€çƒä€¹æ¡ä…㗛瞘äªä¯å±žçž¾çŸ‹å£²ç ˜ç‚¹ç œä‚¨ç ¹ç¡‡ç¡‘ç¡¦è‘ˆî§‹ç¤³æ ƒç¤²ä„ƒ
-0x9940: 䄉禑禙辻稆込䅧窑䆲窼艹䇄ç«ç«›ä‡ä¸¡ç¢ç¬ç»ç°’ç°›ä‰ ä‰ºç±»ç²œäŠŒç²¸äŠ”ç³è¾“烀
-0x9960: ç·ç·”ç·ç·½ç¾®ç¾´çŠŸäŽ—è€ è€¥ç¬¹è€®è€±è”ã·Œåž´ç‚ è‚·èƒ©äè„ŒçŒªè„Žè„’ç• è„”ä㬹腖腙腚
-0x99a0: ä“å ºè…¼è†„ä¥è†“ä膥埯è‡è‡¤è‰”ä’芦艶苊苘苿䒰è—险榊è…烵葤惣蒈䔄蒾蓡蓸
-0x99c0: è”è”¸è•’ä”»è•¯è•°è— ä•·è™²èš’èš²è›¯é™…èž‹ä˜†ä˜—è¢®è£¿è¤¤è¥‡è¦‘î©ƒè¨©è¨¸èª”èª´è±‘è³”è³²è´œäž˜å¡Ÿ
-0x99e0: è·ƒäŸä»®è¸ºå—˜å”è¹±å—µèº°ä ·è»Žè»¢è»¤è»è»²è¾·è¿è¿Šè¿Œé€³é§„ä¢é£ 鈓䤞鈨鉘鉫銱銮銿
-0x9a40: 鋣鋫鋳鋴鋽éƒéŽ„éŽä¥…䥑麿é—åŒééé¾ä¥ªé‘”鑹é”é–¢ä¦§é—´é˜³ä§¥æž ä¨¤é€ä¨µéž²éŸ‚å™”
-0x9a60: 䫤惨颹䬙飱塄餎餙冴餜餷饂é¥é¥¢ä°é§…ä®é¨¼é¬çªƒé©é®é¯é¯±é¯´ä±é° ã¯îª©éµ‰é°º
-0x9aa0: 黾å™é¶“鶽鷀鷼银辶鹻麬麱麽黆铜黢黱黸竈齄î«æ¤šé“ƒå¦¬î«…å¡€é“㞹
-0x9ac0: î«‹î«Œå—ç…³î«î«î«‘å‘ªî«“î«”å’žî«–î«—î«˜î«™î«šæƒ§î«œå™ºî«žî«Ÿî« î«¡î«¢î«£æ¥•é°¯èž¥î«§î«¨î«©î«ª
-0x9ae0: î««î«¬å° î«®å¸‹î«°î«±î«²æœžî«´î«µî«¶ã™‡î«¸î«¹î«ºî«»å¤è’è®î¬‚乸炻
-0x9b40: î¬î¬Žî¬æ‹ƒî¬‘熘桕槩㛈î¬è‹½î¬Ÿî¬ î¬¡è¦¥î¬£è¾ î¬¥éž¸î¬§é¡‡éª½
-0x9b60:  î¬î¬®î¬¯î¬°î¬±î¬²î¬³î¬´î¬µî¬¶î¬·î¬¸î¬¹å¾±æ™ˆæš¿î¬½î¬¾î¬¿ î îƒî„ î†å¢µæœŽ
-0x9ba0: 椘îŠî‹îŒîîŽîîä£äª¸î“î”î•î–î—î˜î™îšî›å‡’î妟îŸã®¾î¡î¢î£åžˆî¥ã¦›î§
-0x9bc0: î¨î©ã¢î«èžî î¯î°î±çˆ‰î³î´å¥¥î¶î·î¸è»šîºåŠåœ¿ç…±î¾î¿î®€î®å–¼î®ƒî®„î®… 㑳
-0x9be0: 䜘î®î®Žî®î®å¦ã“»î®“ ä¼î®—垡煑 î®Ÿî® é–è¢î®¥î®¦
-0x9c40: 嵛 諪î®î®®î®¯î®°ä¯€î®²î®³î®´é‘¥î®¶æ†•å¨§î®¹ 嚹乪陖æ¶î¯‚㘘襷
-0x9c60:  ç‚î¯î¯Ž î¯ç©… î¯“é¨¦î¯•ã™Ÿî¯—î¯˜ç¦ƒî¯šî¯›å´¬î¯ î¯Ÿä›î¯¡ç”»è¡¥î¯¤å¢¶
-0x9ca0: 㜜㱔éŠî¯®î¯¯éŒ°î¯±î¯²æ°¹é’Ÿî¯µî¯¶è §è£µî¯¹î¯ºî¯»æº¸î¯½î¯¾ã¦¤ãš¹ 䔿暶
-0x9cc0: 襃囖䃟㦡î°î°ç†è¦î°“î°” 䲷î°çƒç¥¾î° 澵樃
-0x9ce0: åŽ¢î°¦éŽ¿æ ¶éî°î°®î°¯å¶…î°±î°²åœ•é £î°µå¶«î°·æ–¾æ§•å’㰑朶î±î±‚
-0x9d40: 㗊䣺æ¦î±ç ˆé‰•î±’ä²î±”äŸî±–姸 î±œî± î±Ÿî± ã··î±¢î±£
-0x9d60: è¿çŠåš‹î±§î±¨î±©î±ªî±«î±¬î±î±®î±¯î±°î±±î±²î±³çºŸî±µî±¶ä²¤é•‡î±¹ç†¢î±»ä¶‘递䶜达å—
-0x9da0: 辺边䔉繿潖檱仪㓤î²î²Žãœºèº€î²‘㷫亚î²î²žåš¿î² 踎
-0x9dc0: åî²£î²¤æž î²§î²¨æ”°å˜î²«åšî²ã·†î²¯ä±½å˜¢å˜žç½‰î²´å¥µî²¶è°ä¸œî²¹î²ºî²»è„—鵞贘瘻鱅癎
-0x9de0: çž¹é…å²è…ˆè‹·å˜¥è„²è˜è‚½å—ªç¥¢å™ƒå–î³ã—Žå˜…嗱曱ã˜ç”´å—°å–ºå’—啲å»î³žî³Ÿî³
-0x9e40: 麫絚嗞æŠéå’”è³ç‡¶é…¶æ¼æŽ¹æ¾å•©î³°é±²î³²å†šã“Ÿî³µå†§å‘唞唓癦è¸î³¼ç–±è‚¶è „螆
-0x9e60: 裇膶èœî´„䓬猄å®èŒ‹î´Šå™»î´Œî´î´Žî´î´î´‘酰鈈牦äŽî´œî´î´žäƒº
-0x9ea0: é±æ”Ÿî´¢ä£³î´¤î´¥î´¦î´§ î´ç†£çºŽéµä¸šä¸„ã•·å¬æ²²å§ãš¬ã§œå½ãš¥î´»å¢šî´½èˆ
-0x9ec0: 呋垪îµîµ‚㩒ç´îµ‡ä´‰é¯îµŠîµ‹ä±›îµîµŽîµè‘œîµ‘挮紥㨪逈勌㹴㙺䗩
-0x9ee0: 癀嫰硺䞶墧䂿噼鮋嵴癔麅䳡 㟻愙å™îµµåž§îµ·îµ¸åˆ´îµºã– éµ¼
-0x9f40: 籖鬹埞î¶å±“擓èšî¶ˆî¶‰î¶Šî¶‹î¶Œå‡¾î¶Žå¶Žéœƒî¶‘éºéŒç¬Ÿé¬‚峑箣扨挵髿ç¯é¬ªç±¾
-0x9f60: 籂粆鰕篼鬉 é°›î¶¦é½šå•³å¯ƒä¿½éº˜ä¿²å‰ ã¸†å‹‘å§å–妷帒韈鶫轜呩鞴饀鞺匬愰
-0x9fa0: 椬åšé°Šé´‚ä°»é™æ¦€å‚¦ç•†î·†é§šå‰³î·‰é…™éšé…œî·é…‘î·æ¿î·‘櫊嘑醎畺抅çç±°î·šî·›
-0x9fc0: î·œî·ç›–é®ä¸ªî·¡èŽ¾è¡‚届槀 åºåˆŸå·µä»Žæ°±î·ä¼¹å’œå“šåŠšè¶‚ã—¾ 㗳æ’é…¼é¾¥é®—é ®
-0x9fe0: é¢´éªºéº¨éº„ç…ºç¬”î¸‚æ¯ºè ˜ç½¸î¸†å˜ î¸ˆè¹·é½“î¸‹è·”è¹é¸œè¸æŠ‚踨蹵竓稾磘泪詧瘇
-0xa040: î¸›é¼¦æ³ŽèŸ–ç—ƒî¸ ç¡“î¸¢è´Œç‹¢ç±è¬çŒ‚ç“±è³«î¸ªè˜¯å¾ºè¢ ä’·î¸¯î¸°î¸±î¸²è©¾î¸´î¸µæƒ½ç™§é«—éµ„é®
-0xa060: é®èŸµî¸½ 賷猬霡鮰㗖犲䰇籑饊慙䰄麖慽î¹åŸæ…¯æŠ¦æˆ¹ 㩜懢厪æ¤æ ‚ã—’
-0xa0a0: 嵗迚î¹î¹žåƒ™î¹ 礆匲阸ä¥î¹¦çŸ¾î¹¨ç³‚糚ç¨è¦è£çµç”…瓲覔舚朌è¢î¹¶è›ç“°
-0xa0c0: 脃眤覉畓螩蟎臈螌詉è²èƒçœ«ç“¸è“šã˜µæ¦²è¶¦îºŒè¦© 涹èŸîº‘瓧㷛煶悤憜㳑
-0xa0e0: æ·îºšç½±îºœ 惩ä¾åˆ 㰘å³îº¬îºîº®îº¯îº°îº±ä•¢å¬Ÿîº´é½éº¦îº·
-0xa140: 　，ã€ã€‚．‧；：？ï¼ï¸°â€¦â€¥ï¹ï¹‘﹒·﹔﹕﹖﹗｜–︱—︳╴︴ï¹ï¼ˆï¼‰ï¸µ
-0xa160: ︶｛ï½ï¸·ï¸¸ã€”〕︹︺ã€ã€‘︻︼《》︽︾〈〉︿﹀「ã€ï¹ï¹‚『ã€ï¹ƒï¹„﹙﹚
-0xa1a0: ﹛﹜ï¹ï¹žâ€˜â€™â€œâ€ã€ã€žâ€µâ€²ï¼ƒï¼†ï¼Šâ€»Â§ã€ƒâ—‹â—△▲◎☆★◇◆□■▽▼
-0xa1c0: ㊣℅¯￣＿Ë﹉﹊ï¹ï¹Žï¹‹ï¹Œï¹Ÿï¹ ﹡＋ï¼Ã—÷±√＜＞ï¼â‰¦â‰§â‰ ∞≒≡﹢﹣
-0xa1e0: ﹤﹥﹦～∩∪⊥∠∟⊿ã’ã‘∫∮∵∴♀♂⊕⊙↑↓â†â†’↖↗↙↘∥∣ï¼
-0xa240: ï¼¼âˆ•ï¹¨ï¼„ï¿¥ã€’ï¿ ï¿¡ï¼…ï¼ â„ƒâ„‰ï¹©ï¹ªï¹«ã•ãŽœãŽãŽžãŽãŽ¡ãŽŽãŽã„°兙兛兞å…兡兣嗧
-0xa260: 瓩糎â–▂▃▄▅▆▇█â–â–Žâ–▌▋▊▉┼┴┬┤├▔─│▕┌â”└┘â•
-0xa2a0: ╮╰╯ ◢◣◥◤╱╲╳ï¼ï¼‘ï¼’ï¼“ï¼”ï¼•ï¼–ï¼—ï¼˜ï¼™â… â…¡â…¢â…£â…¤â…¥â…¦
-0xa2c0: ⅧⅨⅩ〡〢〣〤〥〦〧〨〩〸〹〺ＡＢＣＤＥＦＧＨＩＪＫＬï¼ï¼®ï¼¯ï¼°ï¼±
-0xa2e0: ＲＳＴＵＶＷＸＹＺï½ï½‚ｃｄｅｆｇｈｉｊｋｌï½ï½Žï½ï½ï½‘ｒｓｔｕｖ
-0xa340: ｗｘｙｚΑΒΓΔΕΖΗΘΙΚΛΜÎΞΟΠΡΣΤΥΦΧΨΩαβγδ
-0xa360: εζηθικλμνξοπÏστυφχψωㄅㄆㄇㄈㄉㄊㄋㄌã„ã„Žã„
-0xa3a0: ã„ㄑㄒㄓㄔㄕㄖㄗㄘㄙㄚㄛㄜã„ㄞㄟㄠㄡㄢㄣㄤㄥㄦㄧㄨㄩ˙ˉˊˇˋ
-0xa3e0: €
-0xa440: 一乙ä¸ä¸ƒä¹ƒä¹äº†äºŒäººå„¿å…¥å…«å‡ 刀åˆåŠ›åŒ•ååœåˆä¸‰ä¸‹ä¸ˆä¸Šä¸«ä¸¸å‡¡ä¹…么也乞于
-0xa460: 亡兀刃勺åƒå‰å£åœŸå£«å¤•å¤§å¥³åå‘å“寸å°å°¢å°¸å±±å·å·¥å·±å·²å·³å·¾å¹²å»¾å¼‹å¼“æ‰
-0xa4a0: 丑ä¸ä¸ä¸ä¸°ä¸¹ä¹‹å°¹äºˆäº‘井互五亢ä»ä»€ä»ƒä»†ä»‡ä»ä»Šä»‹ä»„å…ƒå…å…§å…兮公冗凶
-0xa4c0: 分切刈勻勾勿化匹åˆå‡å…åžåŽ„å‹åŠå壬天夫太å¤å”少尤尺屯巴幻廿弔引心
-0xa4e0: æˆˆæˆ¶æ‰‹æ‰Žæ”¯æ–‡æ–—æ–¤æ–¹æ—¥æ›°æœˆæœ¨æ¬ æ¢æ¹æ¯‹æ¯”毛æ°æ°´ç«çˆªçˆ¶çˆ»ç‰‡ç‰™ç‰›çŠ¬çŽ‹ä¸™
-0xa540: 世丕且丘主ä¹ä¹ä¹Žä»¥ä»˜ä»”ä»•ä»–ä»—ä»£ä»¤ä»™ä»žå……å…„å†‰å†Šå†¬å‡¹å‡ºå‡¸åˆŠåŠ åŠŸåŒ…åŒ†åŒ—
-0xa560: åŒä»ŸåŠå‰å¡å å¯å®åŽ»å¯å¤å³å¬å®å©å¨å¼å¸åµå«å¦åªå²å±å°å¥åå»å››å›šå¤–
-0xa5a0: 央失奴奶å•å®ƒå°¼å·¨å·§å·¦å¸‚布平幼å¼å¼˜å¼—必戊打扔扒扑斥旦朮本未末æœæ£
-0xa5c0: æ¯æ°‘æ°æ°¸æ±æ±€æ°¾çŠ¯çŽ„玉瓜瓦甘生用甩田由甲申疋白皮皿目矛矢石示禾穴立
-0xa5e0: 丞丟乒乓乩亙交亦亥仿伉伙伊伕ä¼ä¼ä¼‘ä¼ä»²ä»¶ä»»ä»°ä»³ä»½ä¼ä¼‹å…‰å…‡å…†å…ˆå…¨
-0xa640: å…±å†å†°åˆ—åˆ‘åˆ’åˆŽåˆ–åŠ£åŒˆåŒ¡åŒ å°å±å‰ååŒåŠååå‹å„å‘ååˆåƒåŽå†å’å› å›žå›
-0xa660: 圳地在åœåœ¬åœ¯åœ©å¤™å¤šå¤·å¤¸å¦„奸妃好她如å¦å—å˜å®‡å®ˆå®…安寺尖屹州帆并年
-0xa6a0: å¼å¼›å¿™å¿–戎戌æˆæˆæ‰£æ‰›æ‰˜æ”¶æ—©æ—¨æ—¬æ—曲曳有朽朴朱朵次æ¤æ»æ°–æ±æ±—汙江
-0xa6c0: æ± æ±æ±•æ±¡æ±›æ±æ±Žç°ç‰Ÿç‰ç™¾ç«¹ç±³ç³¸ç¼¶ç¾Šç¾½è€è€ƒè€Œè€’耳è¿è‚‰è‚‹è‚Œè‡£è‡ªè‡³è‡¼èˆŒèˆ›
-0xa6e0: 舟艮色艾虫血行衣西阡串亨ä½ä½ä½‡ä½—佞伴佛何估ä½ä½‘伽伺伸佃佔似但佣
-0xa740: ä½œä½ ä¼¯ä½Žä¼¶ä½™ä½ä½ˆä½šå…Œå…‹å…兵冶冷別判利刪刨劫助努劬匣å³åµåååžå¾å¦
-0xa760: å‘Žå§å‘†å‘ƒå³å‘ˆå‘‚å›å©å‘Šå¹å»å¸å®åµå¶å å¼å‘€å±å«åŸå¬å›ªå›°å›¤å›«åŠå‘å€å
-0xa7a0: å‡åŽåœ¾åå圻壯夾å¦å¦’妨妞妣妙妖å¦å¦¤å¦“妊妥ååœåšå›å®Œå®‹å®å°¬å±€å±å°¿
-0xa7c0: å°¾å²å²‘岔岌巫希åºåº‡åºŠå»·å¼„弟彤形彷役忘忌志å¿å¿±å¿«å¿¸å¿ªæˆ’我抄抗抖技扶
-0xa7e0: 抉æ‰æŠŠæ‰¼æ‰¾æ‰¹æ‰³æŠ’扯折扮投抓抑抆改攻攸旱更æŸæŽæææ‘æœæ–æžæ‰æ†æ
-0xa840: æ“æ—æ¥æ¯æ±‚汞沙æ²æ²ˆæ²‰æ²…沛汪決æ²æ±°æ²Œæ±¨æ²–沒汽沃汲汾汴沆汶æ²æ²”沘沂ç¶
-0xa860: ç¼ç½ç¸ç‰¢ç‰¡ç‰ 狄狂玖甬甫男甸皂盯矣ç§ç§€ç¦¿ç©¶ç³»ç½•è‚–è‚“è‚肘肛肚育良芒
-0xa8a0: 芋èŠè¦‹è§’言谷豆豕è²èµ¤èµ°è¶³èº«è»Šè¾›è¾°è¿‚迆迅迄巡邑邢邪邦那酉釆里防阮
-0xa8c0: 阱阪阬並乖乳事些亞享京佯ä¾ä¾ä½³ä½¿ä½¬ä¾›ä¾‹ä¾†ä¾ƒä½°ä½µä¾ˆä½©ä½»ä¾–ä½¾ä¾ä¾‘佺兔
-0xa8e0: 兒兕兩具其典冽函刻券刷刺到刮制å‰åŠ¾åŠ»å’å”å“å‘å¦å·å¸å¹å–å”å—味呵
-0xa940: 咖呸咕咀呻呷咄咒咆呼å’呱呶和咚呢周咋命咎固垃å·åªå©å¡å¦å¤å¼å¤œå¥‰å¥‡
-0xa960: 奈奄奔妾妻委妹妮姑姆å§å§å§‹å§“姊妯妳姒姅åŸå¤å£å®—定官宜宙宛尚屈居
-0xa9a0: 屆岷岡岸岩岫岱岳帘帚帖帕帛帑幸庚店府底庖延弦弧弩往å¾å½¿å½¼å¿å¿ 忽
-0xa9c0: 念忿æ€æ€”怯怵怖怪怕怡性怩怫怛或戕房戾所承拉拌拄抿拂抹拒招披拓拔拋
-0xa9e0: 拈抨抽押æ‹æ‹™æ‹‡æ‹æŠµæ‹šæŠ±æ‹˜æ‹–拗拆抬拎放斧於旺昔易昌昆昂明昀æ˜æ˜•æ˜Š
-0xaa40: 昇æœæœ‹ææž‹æž•æ±æžœæ³æ·æž‡æžæž—æ¯æ°æ¿æž‰æ¾æžæµæžšæž“æ¼æªæ²æ¬£æ¦æ§æ¿æ°“氛泣
-0xaa60: 注泳沱泌泥河沽沾沼波沫法泓沸泄油æ³æ²®æ³—泅泱沿治泡泛泊沬泯泜泖æ³
-0xaaa0: 炕炎炒炊炙爬çˆçˆ¸ç‰ˆç‰§ç‰©ç‹€ç‹Žç‹™ç‹—ç‹çŽ©çŽ¨çŽŸçŽ«çŽ¥ç”½ç–疙疚的盂盲直知矽
-0xaac0: 社祀ç¥ç§‰ç§ˆç©ºç©¹ç«ºç³¾ç½”羌羋者肺肥肢肱股肫肩肴肪肯臥臾èˆèŠ³èŠèŠ™èŠèŠ½èŠŸ
-0xaae0: 芹花芬芥芯芸芣芰芾芷虎虱åˆè¡¨è»‹è¿Žè¿”近邵邸邱邶采金長門阜陀阿阻附
-0xab40: 陂隹雨é’éžäºŸäºäº®ä¿¡ä¾µä¾¯ä¾¿ä¿ ä¿‘ä¿ä¿ä¿ƒä¾¶ä¿˜ä¿Ÿä¿Šä¿—ä¾®ä¿ä¿„係俚俎俞侷兗冒
-0xab60: å†‘å† å‰Žå‰ƒå‰Šå‰å‰Œå‰‹å‰‡å‹‡å‹‰å‹ƒå‹åŒå—å»åŽšå›å’¬å“€å’¨å“Žå“‰å’¸å’¦å’³å“‡å“‚咽咪å“
-0xaba0: å“„å“ˆå’¯å’«å’±å’»å’©å’§å’¿å›¿åž‚åž‹åž åž£åž¢åŸŽåž®åž“å¥•å¥‘å¥å¥Žå¥å§œå§˜å§¿å§£å§¨å¨ƒå§¥å§ª
-0xabc0: 姚姦å¨å§»å©å®£å®¦å®¤å®¢å®¥å°å±Žå±å±å±‹å³™å³’å··å¸å¸¥å¸Ÿå¹½åº 度建弈å¼å½¥å¾ˆå¾…徊律
-0xabe0: 徇後徉怒æ€æ€ 急怎怨ææ°æ¨æ¢æ†æƒæ¬æ«æªæ¤æ‰æ‹œæŒ–按拼æ‹æŒæ‹®æ‹½æŒ‡æ‹±æ‹·
-0xac40: 拯括拾拴挑挂政故斫施既春æ˜æ˜ 昧是星昨昱昤曷柿染柱柔æŸæŸ¬æž¶æž¯æŸµæŸ©æŸ¯
-0xac60: 柄柑枴柚查枸æŸæŸžæŸ³æž°æŸ™æŸ¢æŸæŸ’æªæ®ƒæ®†æ®µæ¯’毗氟泉洋洲洪æµæ´¥æ´Œæ´±æ´žæ´—
-0xaca0: 活洽派洶洛泵洹洧洸洩洮洵洎洫炫為炳炬炯ç‚ç‚¸ç‚®ç‚¤çˆ°ç‰²ç‰¯ç‰´ç‹©ç‹ ç‹¡çŽ·
-0xacc0: çŠçŽ»çŽ²çç€çŽ³ç”šç”ç•ç•Œç•Žç•‹ç–«ç–¤ç–¥ç–¢ç–£ç™¸çš†çš‡çšˆç›ˆç›†ç›ƒç›…çœç›¹ç›¸çœ‰çœ‹ç›¾ç›¼
-0xace0: çœ‡çŸœç ‚ç ”ç Œç 祆祉祈祇禹禺科秒秋穿çªç«¿ç«½ç±½ç´‚紅紀紉紇約紆缸美羿耄
-0xad40: è€è€è€‘耶胖胥胚胃胄背胡胛胎胞胤èƒè‡´èˆ¢è‹§èŒƒèŒ…苣苛苦茄若茂茉苒苗英èŒ
-0xad60: 苜苔苑苞苓苟苯茆è™è™¹è™»è™ºè¡è¡«è¦è§”è¨ˆè¨‚è¨ƒè²žè² èµ´èµ³è¶´è»è»Œè¿°è¿¦è¿¢è¿ªè¿¥
-0xada0: è¿è¿«è¿¤è¿¨éƒŠéƒŽéƒéƒƒé…‹é…Šé‡é–‚é™é™‹é™Œé™é¢é©éŸ‹éŸéŸ³é 風飛食首香乘亳倌å€
-0xadc0: 倣俯倦倥俸倩倖倆值借倚倒們俺倀倔倨俱倡個候倘俳修å€å€ªä¿¾å€«å€‰å…¼å†¤å†¥
-0xade0: 冢å‡å‡Œå‡†å‡‹å‰–剜剔剛å‰åŒªå¿åŽŸåŽåŸå“¨å”å”唷哼哥哲唆哺唔哩å“員唉哮哪
-0xae40: 哦唧唇哽å”åœƒåœ„åŸ‚åŸ”åŸ‹åŸƒå ‰å¤å¥—å¥˜å¥šå¨‘å¨˜å¨œå¨Ÿå¨›å¨“å§¬å¨ å¨£å¨©å¨¥å¨Œå¨‰å«å±˜å®°
-0xae60: 害家宴宮宵容宸射屑展å±å³å³½å³»å³ªå³¨å³°å³¶å´å³´å·®å¸å¸«åº«åºåº§å¼±å¾’徑å¾æ™
-0xaea0: æ£æ¥ææ•ææ©æ¯æ‚„æ‚Ÿæ‚šæ‚悔悌悅悖扇拳挈拿æŽæŒ¾æŒ¯æ•æ‚æ†ææ‰æŒºæ挽挪
-0xaec0: 挫挨ææŒæ•ˆæ•‰æ–™æ—旅時晉æ™æ™ƒæ™’晌晅æ™æ›¸æœ”æœ•æœ—æ ¡æ ¸æ¡ˆæ¡†æ¡“æ ¹æ¡‚æ¡”æ ©æ¢³æ —
-0xaee0: æ¡Œæ¡‘æ ½æŸ´æ¡æ¡€æ ¼æ¡ƒæ ªæ¡…æ “æ ˜æ¡æ®Šæ®‰æ®·æ°£æ°§æ°¨æ°¦æ°¤æ³°æµªæ¶•æ¶ˆæ¶‡æµ¦æµ¸æµ·æµ™æ¶“
-0xaf40: 浬涉浮浚浴浩涌涊浹涅浥涔烊烘烤烙烈çƒçˆ¹ç‰¹ç‹¼ç‹¹ç‹½ç‹¸ç‹·çŽ†çç‰ç®ç çªçž
-0xaf60: ç•”ç•ç•œç•šç•™ç–¾ç—…症疲疳疽疼疹痂疸皋皰益ç›ç›Žçœ©çœŸçœ çœ¨çŸ©ç °ç §ç ¸ç ç ´ç ·
-0xafa0: ç ¥ç ç ç Ÿç ²ç¥•ç¥ç¥ 祟祖神ç¥ç¥—祚秤秣秧租秦秩秘窄窈站笆笑粉紡紗紋紊
-0xafc0: ç´ ç´¢ç´”ç´ç´•ç´šç´œç´ç´™ç´›ç¼ºç½Ÿç¾”ç¿…ç¿è€†è€˜è€•è€™è€—耽耿胱脂胰脅èƒèƒ´è„†èƒ¸èƒ³è„ˆ
-0xafe0: 能脊胼胯è‡è‡¬èˆ€èˆèˆªèˆ«èˆ¨èˆ¬èŠ»èŒ«è’è”èŠèŒ¸èè‰èŒµèŒ´è茲茹茶茗è€èŒ±èŒ¨èƒ
-0xb040: 虔蚊蚪蚓蚤蚩蚌蚣蚜衰衷è¢è¢‚衽衹記è¨è¨Žè¨Œè¨•è¨Šè¨—訓訖è¨è¨‘豈豺豹財貢起
-0xb060: 躬軒軔è»è¾±é€é€†è¿·é€€è¿ºè¿´é€ƒè¿½é€…迸邕郡éƒéƒ¢é…’é…酌釘é‡é‡—釜釙閃院陣陡
-0xb0a0: é™›é™é™¤é™˜é™žéš»é£¢é¦¬éª¨é«˜é¬¥é¬²é¬¼ä¹¾åºå½åœå‡åƒåŒåšå‰å¥å¶åŽå•åµå´å·åå€
-0xb0c0: å¯å兜冕凰剪副勒務勘動åŒåŒåŒ™åŒ¿å€åŒ¾åƒæ›¼å•†å•ªå•¦å•„啞啡啃啊唱啖å•å••å”¯
-0xb0e0: 啤唸售啜唬啣唳å•å•—åœˆåœ‹åœ‰åŸŸå …å Šå †åŸ åŸ¤åŸºå ‚å µåŸ·åŸ¹å¤ å¥¢å¨¶å©å©‰å©¦å©ªå©€
-0xb140: 娼婢婚婆婊å°å¯‡å¯…å¯„å¯‚å®¿å¯†å°‰å°ˆå°‡å± å±œå±å´‡å´†å´Žå´›å´–崢崑崩崔崙崤崧崗巢
-0xb160: å¸¸å¸¶å¸³å¸·åº·åº¸åº¶åºµåº¾å¼µå¼·å½—å½¬å½©å½«å¾—å¾™å¾žå¾˜å¾¡å¾ å¾œæ¿æ‚£æ‚‰æ‚ 您惋悴惦悽
-0xb1a0: æƒ…æ‚»æ‚µæƒœæ‚¼æƒ˜æƒ•æƒ†æƒŸæ‚¸æƒšæƒ‡æˆšæˆ›æ‰ˆæŽ æŽ§æ²æŽ–探接æ·æ§æŽ˜æŽªæ±æŽ©æŽ‰æŽƒæŽ›æ«
-0xb1c0: 推掄授掙採掬排æŽæŽ€æ»æ©æ¨æºæ•æ•–救教敗啟æ•æ•˜æ••æ•”斜斛斬æ—旋旌旎æ™æ™š
-0xb1e0: 晤晨晦晞曹勗望æ¢æ¢¯æ¢¢æ¢“梵桿桶梱梧梗械梃棄æ¢æ¢†æ¢…梔æ¢æ¢¨æ¢Ÿæ¢¡æ¢‚欲殺
-0xb240: 毫毬氫涎涼淳淙液淡淌淤添淺清淇淋涯淑涮淞淹涸混淵淅淒渚涵淚淫淘淪
-0xb260: 深淮淨淆淄涪淬涿淦烹焉焊烽烯爽牽çŠçŒœçŒ›çŒ–猓猙率ç…çŠçƒç†ç¾çç“ ç“¶
-0xb2a0: 瓷甜產略畦畢異ç–痔痕疵痊ç—皎盔盒盛眷眾眼眶眸眺硫硃硎祥票ç¥ç§»çª’
-0xb2c0: çª•ç¬ ç¬¨ç¬›ç¬¬ç¬¦ç¬™ç¬žç¬®ç²’ç²—ç²•çµ†çµƒçµ±ç´®ç´¹ç´¼çµ€ç´°ç´³çµ„ç´¯çµ‚ç´²ç´±ç¼½ç¾žç¾šç¿Œç¿Žç¿’
-0xb2e0: 耜èŠè†è„¯è„–脣脫脩脰脤舂舵舷舶船莎莞莘è¸èŽ¢èŽ–èŽ½èŽ«èŽ’èŽŠèŽ“èŽ‰èŽ è·è»è¼
-0xb340: 莆莧處彪蛇蛀蚶蛄蚵蛆蛋蚱蚯蛉術袞袈被袒袖è¢è¢‹è¦“è¦è¨ªè¨è¨£è¨¥è¨±è¨è¨Ÿè¨›
-0xb360: 訢豉豚販責貫貨貪貧赧赦趾趺軛軟這é€é€šé€—連速é€é€é€•é€žé€ é€é€¢é€–逛途
-0xb3a0: 部éƒéƒ½é…—野釵釦釣釧é‡é‡©é–‰é™ªé™µé™³é™¸é™°é™´é™¶é™·é™¬é›€é›ªé›©ç« ç«Ÿé ‚é ƒéšé³¥é¹µ
-0xb3c0: 鹿麥麻傢å‚傅備傑傀傖傘傚最凱割剴創剩勞å‹å‹›åšåŽ¥å•»å–€å–§å•¼å–Šå–喘喂喜
-0xb3e0: 喪喔喇喋喃喳單喟唾喲喚喻喬喱啾喉喫喙åœå ¯å ªå ´å ¤å °å ±å ¡å å 壹壺å¥
-0xb440: 婷媚婿媒媛媧å³å±å¯’富寓å¯å°Šå°‹å°±åµŒåµå´´åµ‡å·½å¹…帽幀幃幾廊å»å»‚廄弼å½å¾©
-0xb460: å¾ªå¾¨æƒ‘æƒ¡æ‚²æ‚¶æƒ æ„œæ„£æƒºæ„•æƒ°æƒ»æƒ´æ…¨æƒ±æ„Žæƒ¶æ„‰æ„€æ„’æˆŸæ‰‰æŽ£æŽŒææ€æ©æ‰æ†æ
-0xb4a0: æ’æ£ææ¡æ–ææ®æ¶æ´æªæ›æ‘’æšæ¹æ•žæ•¦æ•¢æ•£æ–‘æ–斯普晰晴晶景暑智晾晷曾
-0xb4c0: 替期æœæ£ºæ£•æ£ 棘棗椅棟棵森棧棹棒棲棣棋æ£æ¤æ¤’椎棉棚楮棻款欺欽殘殖殼
-0xb4e0: æ¯¯æ°®æ°¯æ°¬æ¸¯æ¸¸æ¹”æ¸¡æ¸²æ¹§æ¹Šæ¸ æ¸¥æ¸£æ¸›æ¹›æ¹˜æ¸¤æ¹–æ¹®æ¸æ¸¦æ¹¯æ¸´æ¹æ¸ºæ¸¬æ¹ƒæ¸æ¸¾æ»‹
-0xb540: 溉渙湎湣湄湲湩湟焙焚焦焰無然煮焜牌犄犀猶猥猴猩çºçªç³ç¢ç¥çµç¶ç´ç¯
-0xb560: ç›ç¦ç¨ç”¥ç”¦ç•«ç•ªç—¢ç—›ç—£ç—™ç—˜ç—žç— 登發皖皓皴盜ççŸç¡ç¡¬ç¡¯ç¨ç¨ˆç¨‹ç¨…稀窘
-0xb5a0: 窗窖童竣ç‰ç–ç†çç’ç”çç‹çç‘粟粥絞çµçµ¨çµ•ç´«çµ®çµ²çµ¡çµ¦çµ¢çµ°çµ³å–„翔翕
-0xb5c0: 耋è’肅腕腔腋腑腎脹腆脾腌腓腴舒舜è©èƒè¸èè è…è‹èè¯è±è´è‘—èŠè°èŒèŒ
-0xb5e0: è½è²èŠè¸èŽè„èœè‡è”èŸè™›è›Ÿè›™è›è›”蛛蛤è›è›žè¡—è£è£‚è¢±è¦ƒè¦–è¨»è© è©•è©žè¨¼è©
-0xb640: 詔詛è©è©†è¨´è¨ºè¨¶è©–象貂貯貼貳貽è³è²»è³€è²´è²·è²¶è²¿è²¸è¶Šè¶…è¶è·Žè·è·‹è·šè·‘跌跛
-0xb660: 跆軻軸軼辜逮逵週逸進逶鄂郵鄉郾酣酥é‡éˆ”鈕鈣鈉鈞éˆéˆéˆ‡éˆ‘é–”é–é–‹é–‘
-0xb6a0: 間閒閎隊階隋陽隅隆éšé™²éš„é›é›…é›„é›†é›‡é›¯é›²éŸŒé …é †é ˆé£§é£ªé£¯é£©é£²é£é¦®é¦
-0xb6c0: 黃é»é»‘亂å‚債傲傳僅傾催傷傻傯僇剿剷剽募勦勤勢勣匯嗟嗨嗓嗦嗎嗜嗇嗑
-0xb6e0: 嗣嗤嗯嗚嗡嗅嗆嗥嗉園圓塞塑塘塗塚塔填塌å¡å¡Šå¡¢å¡’塋奧å«å«‰å«Œåª¾åª½åª¼
-0xb740: 媳嫂媲嵩嵯幌幹廉廈弒彙徬微愚æ„慈感想愛惹æ„愈慎慌慄æ…愾愴愧æ„愆愷
-0xb760: 戡戢æ“æ¾æžæªææ½æ¬ææœæ”ææ¶æ–æ—æ†æ•¬æ–Ÿæ–°æš—暉暇暈暖暄暘æšæœƒæ¦”æ¥
-0xb7a0: æ¥šæ¥·æ¥ æ¥”æ¥µæ¤°æ¦‚æ¥Šæ¥¨æ¥«æ¥žæ¥“æ¥¹æ¦†æ¥æ¥£æ¥›æ‡æ²æ¯€æ®¿æ¯“毽溢溯滓溶滂æºæºæ»‡
-0xb7c0: 滅溥溘溼溺溫滑準溜滄滔溪溧溴煎煙煩煤煉照煜煬煦煌煥煞煆煨煖爺牒猷
-0xb7e0: ç…猿猾瑯瑚瑕瑟瑞ç‘ç¿ç‘™ç‘›ç‘œç•¶ç•¸ç˜€ç—°ç˜ç—²ç—±ç—ºç—¿ç—´ç—³ç›žç›Ÿç›ç«ç¦çžç£
-0xb840: ç¹çªç¬çœç¥ç¨ç¢çŸ®ç¢Žç¢°ç¢—碘碌碉硼碑碓硿祺祿ç¦è¬ç¦½ç¨œç¨šç¨ ç¨”ç¨Ÿç¨žçªŸçª ç·
-0xb860: 節ç ç®ç§ç²±ç²³ç²µç¶“絹綑ç¶ç¶çµ›ç½®ç½©ç½ªç½²ç¾©ç¾¨ç¾¤è–è˜è‚†è‚„腱腰腸腥腮腳腫
-0xb8a0: 腹腺腦舅艇蒂葷è½è±è‘µè‘¦è‘«è‘‰è‘¬è‘›è¼èµè‘¡è‘£è‘©è‘葆虞虜號蛹蜓蜈蜇蜀蛾
-0xb8c0: 蛻蜂蜃蜆蜊衙裟裔裙補裘è£è£¡è£Šè£•è£’è¦œè§£è©«è©²è©³è©¦è©©è©°èª‡è©¼è©£èª è©±èª…è©è©¢
-0xb8e0: 詮詬詹詻訾詨豢貊貉賊資賈賄貲賃賂賅跡跟跨路跳跺跪跤跦躲較載軾輊
-0xb940: 辟農é‹éŠé“é‚é”逼é•éé‡ééŽéé‘逾é鄒鄗酬酪酩釉鈷鉗鈸鈽鉀鈾鉛鉋鉤
-0xb960: 鉑鈴鉉é‰é‰…鈹鈿鉚閘隘隔隕é›é›‹é›‰é›Šé›·é›»é›¹é›¶é–é´é¶é é ‘é “é Šé ’é Œé£¼é£´
-0xb9a0: é£½é£¾é¦³é¦±é¦´é«¡é³©éº‚é¼Žé¼“é¼ åƒ§åƒ®åƒ¥åƒ–åƒåƒšåƒ•åƒåƒ‘僱僎僩兢凳劃劂匱åŽå—¾å˜€
-0xb9c0: 嘛嘗嗽嘔嘆嘉å˜å˜Žå—·å˜–嘟嘈å˜å—¶åœ˜åœ–塵塾境墓墊塹墅塽壽夥夢夤奪奩嫡嫦
-0xb9e0: 嫩嫗嫖嫘嫣åµå¯žå¯§å¯¡å¯¥å¯¦å¯¨å¯¢å¯¤å¯Ÿå°å±¢å¶„嶇幛幣幕幗幔廓廖弊彆彰徹慇
-0xba40: 愿態慷慢慣慟慚慘慵截撇摘摔撤摸摟摺摑摧æ´æ‘摻敲斡旗旖暢暨æšæ¦œæ¦¨æ¦•
-0xba60: æ§æ¦®æ§“構榛榷榻榫榴æ§æ§æ¦æ§Œæ¦¦æ§ƒæ¦£æ‰æŒæ°³æ¼³æ¼”æ»¾æ¼“æ»´æ¼©æ¼¾æ¼ æ¼¬æ¼æ¼‚æ¼¢
-0xbaa0: 滿滯漆漱漸漲漣漕漫漯澈漪滬æ¼æ»²æ»Œæ»·ç†”熙煽熊熄熒爾犒犖ç„ç瑤瑣瑪
-0xbac0: ç‘°ç‘甄疑瘧ç˜ç˜‹ç˜‰ç˜“盡監瞄ç½ç¿ç¡ç£ç¢Ÿç¢§ç¢³ç¢©ç¢£ç¦Žç¦ç¦ç¨®ç¨±çªªçª©ç«ç«¯ç®¡ç®•
-0xbae0: 箋çµç®—ç®ç®”ç®ç®¸ç®‡ç®„ç²¹ç²½ç²¾ç¶»ç¶°ç¶œç¶½ç¶¾ç¶ ç·Šç¶´ç¶²ç¶±ç¶ºç¶¢ç¶¿ç¶µç¶¸ç¶ç·’緇綬
-0xbb40: ç½°ç¿ ç¿¡ç¿Ÿèžèšè‚‡è…膀è†è†ˆè†Šè…¿è†‚臧臺與舔舞艋蓉蒿蓆蓄蒙蒞蒲蒜蓋蒸蓀蓓
-0xbb60: è’蒼蓑蓊蜿蜜蜻蜢蜥蜴蜘è•èœ·èœ©è£³è¤‚裴裹裸製裨褚裯誦誌語誣èªèª¡èª“誤
-0xbba0: 說誥誨誘誑誚誧豪è²è²Œè³“賑賒赫趙趕跼輔輒輕輓辣é é˜éœé£é™éžé¢éé›
-0xbbc0: 鄙鄘鄞酵酸酷酴鉸銀銅銘銖鉻銓銜銨鉼銑閡閨閩閣閥閤隙障際雌雒需é¼éž…
-0xbbe0: éŸ¶é —é ˜é¢¯é¢±é¤ƒé¤…é¤Œé¤‰é§éª¯éª°é«¦éé‚鳴鳶鳳麼鼻齊億儀僻僵價儂儈儉儅凜
-0xbc40: 劇劈劉åŠåŠŠå‹°åŽ²å˜®å˜»å˜¹å˜²å˜¿å˜´å˜©å™“噎噗噴嘶嘯嘰墀墟增墳墜墮墩墦å¥å¬‰å«»
-0xbc60: 嬋嫵嬌嬈寮寬審寫層履å¶å¶”幢幟幡廢廚廟å»å»£å» 彈影德徵慶慧慮æ…慕憂
-0xbca0: 慼慰慫慾憧æ†æ†«æ†Žæ†¬æ†šæ†¤æ†”憮戮摩摯摹撞撲撈æ’撰撥撓撕撩撒撮æ’æ’«æ’š
-0xbcc0: 撬撙撢撳敵敷數暮暫暴暱樣樟槨æ¨æ¨žæ¨™æ§½æ¨¡æ¨“樊槳樂樅æ§æ¨‘ææŽæ®¤æ¯…毆漿
-0xbce0: 潼澄潑潦潔澆æ½æ½›æ½¸æ½®æ¾Žæ½ºæ½°æ½¤æ¾—æ½˜æ»•æ½¯æ½ æ½Ÿç†Ÿç†¬ç†±ç†¨ç‰–çŠ›çŽç—ç‘©ç’‹ç’ƒ
-0xbd40: ç‘¾ç’€ç•¿ç˜ ç˜©ç˜Ÿç˜¤ç˜¦ç˜¡ç˜¢çššçšºç›¤çžŽçž‡çžŒçž‘çž‹ç£‹ç£…ç¢ºç£Šç¢¾ç£•ç¢¼ç£ç¨¿ç¨¼ç©€ç¨½ç¨·ç¨»
-0xbd60: 窯窮ç®ç®±ç¯„箴篆篇ç¯ç® ç¯Œç³Šç· ç·´ç·¯ç·»ç·˜ç·¬ç·ç·¨ç·£ç·šç·žç·©ç¶žç·™ç·²ç·¹ç½µç½·ç¾¯
-0xbda0: 翩耦膛膜è†è† 膚膘蔗蔽蔚蓮蔬è”蔓蔑蔣蔡蔔蓬蔥蓿蔆螂è´è¶è è¦è¸è¨è™
-0xbdc0: è—èŒè“è¡›è¡è¤è¤‡è¤’褓褕褊誼諒談諄誕請諸課諉諂調誰論è«èª¶èª¹è«›è±Œè±Žè±¬è³
-0xbde0: 賞賦賤賬è³è³¢è³£è³œè³ªè³¡èµè¶Ÿè¶£è¸«è¸è¸è¸¢è¸è¸©è¸Ÿè¸¡è¸žèººè¼è¼›è¼Ÿè¼©è¼¦è¼ªè¼œè¼ž
-0xbe40: è¼¥é©é®é¨éé·é„°é„鄧鄱醇醉醋醃鋅銻銷鋪銬鋤é‹éŠ³éŠ¼é‹’鋇鋰銲é–閱霄霆震
-0xbe60: 霉é éžéž‹éžé ¡é «é œé¢³é¤Šé¤“餒餘é§é§é§Ÿé§›é§‘駕駒駙骷髮髯鬧é…é„é·é¯é´†é´‰
-0xbea0: 鴃麩麾黎墨齒儒儘儔å„儕冀冪å‡åŠ‘劓勳噙噫噹噩噤噸噪器噥噱噯噬噢噶
-0xbec0: å£å¢¾å£‡å£…奮å¬å¬´å¸å¯°å°Žå½Šæ†²æ†‘憩憊æ‡æ†¶æ†¾æ‡Šæ‡ˆæˆ°æ“…æ“擋撻撼據擄擇擂æ“æ’¿
-0xbee0: 擒擔撾整曆曉暹曄曇暸樽樸樺橙橫橘樹橄橢橡橋橇樵機橈æ™æ·æ°…濂澱澡
-0xbf40: 濃澤æ¿æ¾§æ¾³æ¿€æ¾¹æ¾¶æ¾¦æ¾ 澴熾燉ç‡ç‡’燈燕熹燎燙燜燃燄ç¨ç’œç’£ç’˜ç’Ÿç’žç“¢ç”Œç”
-0xbf60: ç˜´ç˜¸ç˜ºç›§ç›¥çž çžžçžŸçž¥ç£¨ç£šç£¬ç£§ç¦¦ç©ç©Žç©†ç©Œç©‹çªºç¯™ç°‘築篤篛篡篩篦糕糖縊
-0xbfa0: 縑縈縛縣縞ç¸ç¸‰ç¸ç½¹ç¾²ç¿°ç¿±ç¿®è€¨è†³è†©è†¨è‡»èˆˆè‰˜è‰™è•Šè•™è•ˆè•¨è•©è•ƒè•‰è•è•ªè•ž
-0xbfc0: 螃螟螞螢èžè¡¡è¤ªè¤²è¤¥è¤«è¤¡è¦ªè¦¦è«¦è«ºè««è«±è¬€è«œè«§è«®è«¾è¬è¬‚è«·è«è«³è«¶è«¼è±«è±è²“
-0xbfe0: 賴蹄踱踴蹂踹踵輻輯輸輳辨辦éµé´é¸é²é¼éºé„´é†’éŒ éŒ¶é‹¸éŒ³éŒ¯éŒ¢é‹¼éŒ«éŒ„éŒš
-0xc040: éŒéŒ¦éŒ¡éŒ•éŒ®éŒ™é–»éš§éš¨éšªé›•éœŽéœ‘霖éœéœ“éœé›éœé¦éž˜é °é ¸é »é ·é é ¹é ¤é¤é¤¨é¤žé¤›
-0xc060: 餡餚é§é§¢é§±éª¸éª¼é«»é«é¬¨é®‘鴕鴣鴦鴨鴒鴛默黔é¾é¾œå„ªå„Ÿå„¡å„²å‹µåšŽåš€åšåš…嚇
-0xc0a0: åšå£•å£“壑壎嬰嬪嬤åºå°·å±¨å¶¼å¶ºå¶½å¶¸å¹«å½Œå¾½æ‡‰æ‡‚æ‡‡æ‡¦æ‡‹æˆ²æˆ´æ“Žæ“Šæ“˜æ“ æ“°æ“¦
-0xc0c0: 擬擱擢æ“斂斃曙曖檀檔檄檢檜櫛檣橾檗æªæª æœæ®®æ¯šæ°ˆæ¿˜æ¿±æ¿Ÿæ¿ 濛濤濫濯澀
-0xc0e0: 濬濡濩濕濮濰燧營燮燦燥ç‡ç‡¬ç‡´ç‡ 爵牆ç°ç²ç’©ç’°ç’¦ç’¨ç™†ç™‚癌盪瞳瞪瞰瞬
-0xc140: 瞧çžçŸ¯ç£·ç£ºç£´ç£¯ç¤ç¦§ç¦ªç©—窿簇ç°ç¯¾ç¯·ç°Œç¯ ç³ ç³œç³žç³¢ç³Ÿç³™ç³ç¸®ç¸¾ç¹†ç¸·ç¸²ç¹ƒç¸«
-0xc160: 總縱繅ç¹ç¸´ç¸¹ç¹ˆç¸µç¸¿ç¸¯ç½„翳翼è±è²è°è¯è³è‡†è‡ƒè†ºè‡‚臀膿膽臉膾臨舉艱薪
-0xc1a0: 薄蕾薜薑薔薯薛薇薨薊虧蟀蟑螳蟒蟆螫螻螺蟈蟋褻褶襄褸褽覬謎謗謙講
-0xc1c0: è¬Šè¬ è¬è¬„è¬è±è°¿è±³è³ºè³½è³¼è³¸è³»è¶¨è¹‰è¹‹è¹ˆè¹Šè½„輾轂轅輿é¿é½é‚„é‚邂邀鄹醣醞
-0xc1e0: 醜é鎂錨éµéŠé¥é‹éŒ˜é¾é¬é›é°éšé”é—Šé—‹é—Œé—ˆé—†éš±éš¸é›–éœœéœžéž éŸ“é¡†é¢¶é¤µé¨
-0xc240: 駿鮮鮫鮪é®é´»é´¿éº‹é»é»žé»œé»é»›é¼¾é½‹å¢åš•åš®å£™å£˜å¬¸å½žæ‡£æˆ³æ“´æ“²æ“¾æ”†æ“ºæ“»æ“·æ–·
-0xc260: 曜朦檳檬櫃檻檸櫂檮檯æŸæ¸æ®¯ç€‰ç€‹æ¿¾ç€†æ¿ºç€‘ç€ç‡»ç‡¼ç‡¾ç‡¸ç·çµç’§ç’¿ç”•ç™–癘
-0xc2a0: ç™’çž½çž¿çž»çž¼ç¤Žç¦®ç©¡ç©¢ç© ç«„ç«…ç°«ç°§ç°ªç°žç°£ç°¡ç³§ç¹”ç¹•ç¹žç¹šç¹¡ç¹’ç¹™ç½ˆç¿¹ç¿»è·è¶
-0xc2c0: è‡è‡èˆŠè—è–©è—è—è—‰è–°è–ºè–¹è–¦èŸ¯èŸ¬èŸ²èŸ è¦†è¦²è§´è¬¨è¬¹è¬¬è¬«è±è´…蹙蹣蹦蹤蹟蹕軀
-0xc2e0: 轉è½é‚‡é‚ƒé‚ˆé†«é†¬é‡éŽ”鎊鎖鎢鎳鎮鎬鎰鎘鎚鎗闔闖é—闕離雜雙雛雞霤鞣鞦
-0xc340: éžéŸ¹é¡é¡é¡Œé¡Žé¡“颺餾餿餽餮馥騎é«é¬ƒé¬†ééŽé鯊鯉鯽鯈鯀鵑éµéµ é» é¼•é¼¬å„³
-0xc360: 嚥壞壟壢寵é¾å»¬æ‡²æ‡·æ‡¶æ‡µæ”€æ”æ› æ›æ«¥æ«æ«šæ«“瀛瀟瀨瀚ç€ç€•ç€˜çˆ†çˆç‰˜çŠ¢ç¸
-0xc3a0: çºç’½ç“Šç“£ç–‡ç–†ç™Ÿç™¡çŸ‡ç¤™ç¦±ç©«ç©©ç°¾ç°¿ç°¸ç°½ç°·ç±€ç¹«ç¹ç¹¹ç¹©ç¹ªç¾…繳羶羹羸臘藩
-0xc3c0: è—è—ªè—•è—¤è—¥è—·èŸ»è …è èŸ¹èŸ¾è¥ è¥Ÿè¥–è¥žèèœè˜è‰èšèŽèè†è™è´ˆè´Šè¹¼è¹²èº‡è¹¶è¹¬è¹º
-0xc3e0: 蹴轔轎è¾é‚Šé‚‹é†±é†®é¡é‘éŸéƒéˆéœéé–é¢éé˜é¤é—é¨é—œéš´é›£éœªéœ§é¡éŸœéŸ»é¡ž
-0xc440: 願顛颼饅饉騖騙é¬é¯¨é¯§é¯–鯛鶉鵡鵲鵪鵬麒麗麓麴勸嚨嚷嚶嚴嚼壤å€åƒå½å¯¶
-0xc460: 巉懸懺攘攔攙曦朧櫬瀾瀰瀲çˆç»ç“癢癥礦礪礬礫竇競籌籃ç±ç³¯ç³°è¾®ç¹½ç¹¼
-0xc4a0: çº‚ç½Œè€€è‡šè‰¦è—»è—¹è˜‘è—ºè˜†è˜‹è˜‡è˜Šè ”è •è¥¤è¦ºè§¸è°è¬è¦è¯èŸè«è´è´èº‰èºèº…躂醴
-0xc4c0: 釋é˜éƒé½é—¡éœ°é£„饒饑馨騫騰騷騵鰓é°é¹¹éºµé»¨é¼¯é½Ÿé½£é½¡å„·å„¸å›å›€å›‚夔屬å·æ‡¼
-0xc4e0: 懾æ”攜斕曩櫻欄櫺殲çŒçˆ›çŠ§ç“–瓔癩矓ç±çºçºŒç¾¼è˜—è˜è˜šè £è ¢è ¡è Ÿè¥ªè¥¬è¦½è´
-0xc540: è·è½è´“躊èºèº‹è½Ÿè¾¯é†ºé®é³éµéºé¸é²é«é—¢éœ¸éœ¹éœ²éŸ¿é¡§é¡¥é¥—驅驃驀騾é«é”é‘é°
-0xc560: 鰥鶯鶴鷂鶸éºé»¯é¼™é½œé½¦é½§å„¼å„»å›ˆå›Šå›‰å¿å·”巒彎懿攤權æ¡ç‘ç˜çŽ€ç“¤ç–Šç™®ç™¬
-0xc5a0: ç¦³ç± ç±Ÿè¾è½è‡Ÿè¥²è¥¯è§¼è®€è´–贗躑躓轡酈鑄鑑鑒霽霾韃éŸé¡«é¥•é©•é©é«’鬚鱉鰱
-0xc5c0: 鰾鰻鷓鷗鼴齬齪龔囌巖戀攣攫攪曬æ¬ç“šç«Šç±¤ç±£ç±¥çº“çº–çº”è‡¢è˜¸è˜¿è ±è®Šé‚é‚é‘£
-0xc5e0: é‘ é‘¤é¨é¡¯é¥œé©šé©›é©—髓體髑鱔鱗鱖鷥麟黴囑壩攬çžç™±ç™²çŸ—ç½ç¾ˆè ¶è ¹è¡¢è®“è®’
-0xc640: 讖艷贛釀鑪é‚éˆé„韆顰驟鬢é˜é±Ÿé·¹é·ºé¹¼é¹½é¼‡é½·é½²å»³æ¬–ç£ç±¬ç±®è »è§€èº¡é‡é‘²é‘°
-0xc660: 顱饞髖鬣黌ç¤çŸšè®šé‘·éŸ‰é©¢é©¥çºœè®œèºªé‡…鑽鑾鑼鱷鱸黷豔鑿鸚爨驪鬱鸛鸞籲
-0xc6a0: ①②③④⑤⑥⑦⑧⑨⑩⑴⑵⑶⑷⑸⑹⑺⑻⑼⑽ⅰⅱⅲⅳⅴⅵⅶⅷⅸⅹ丶
-0xc6c0: ä¸¿äº…äº å†‚å†–å†«å‹¹åŒ¸å©åŽ¶å¤Šå®€å·›â¼³å¹¿â¼µå½å½¡æ”´â½†ç–’⽨辵⾪¨ˆヽヾã‚ゞ
-0xc6e0: 々〆〇ー［］✽ãã‚ãƒã„ã…ã†ã‡ãˆã‰ãŠã‹ãŒããŽããã‘ã’ã“ã”ã•ã–ã—ã˜
-0xc740: ã™ãšã›ãœããžãŸã ã¡ã¢ã£ã¤ã¥ã¦ã§ã¨ã©ãªã«ã¬ãã®ã¯ã°ã±ã²ã³ã´ãµã¶ã·ã¸
-0xc760: ã¹ãºã»ã¼ã½ã¾ã¿ã‚€ã‚もゃやゅゆょよらりるれã‚ã‚Žã‚ã‚ゑをんァアィイ
-0xc7a0: ゥウェエォオカガã‚ギクグケゲコゴサザシジスズセゼソゾタダãƒãƒ‚ッ
-0xc7c0: ツヅテデトドナニヌãƒãƒŽãƒãƒãƒ‘ヒビピフブプヘベペホボãƒãƒžãƒŸãƒ メモャ
-0xc7e0: ヤュユョヨラリルレãƒãƒ®ãƒ¯ãƒ°ãƒ±ãƒ²ãƒ³ãƒ´ãƒµãƒ¶ÐБВГДЕÐЖЗИЙК
-0xc840: ЛМÐОПРСТУФХЦЧШЩЪЫЬÐЮЯабвгдеёжзий
-0xc860: клмнопрÑтуфхцчшщъыьÑÑŽÑ⇧↸↹乚刂
-0xc8a0: 冈ïŸïŸ®ïŸ¯ïŸ°ïŸ±ïŸ²ïŸ³ïŸ´ïŸµïŸ¶ïŸ·ïŸ¸ïŸ¹ïŸºïŸ»ïŸ¼ïŸ½ïŸ¾ïŸ¿ï €ï ï ‚ï ƒï „ï …ï †ï ‡ï ˆï ‰
-0xc8c0: ï Šï ‹ï Œï ï Žï ï ï ‘ï ’ï “ï ”ï •ï –ï¿¢ï¿¤ï¼‡ï¼‚ãˆ±â„–â„¡ã‚›ã‚œâº€âº„âº†âº‡âºˆâºŠâºŒâºâº•âºœ
-0xc8e0: âºâº¥âº§âºªâº¬âº®âº¶âº¼âº¾â»†â»Šâ»Œâ»â»â»–⻗⻞⻣ ʃÉɛɔɵœøŋʊɪ
-0xc940: 乂乜凵匚厂万丌乇äºå›—兀屮彳ä¸å†‡ä¸Žä¸®äº“仂仉仈冘勼å¬åŽ¹åœ 夃夬å°å·¿æ—¡æ®³
-0xc960: 毌气爿丱丼仨仜仩仡ä»ä»šåˆŒåŒœåŒåœ¢åœ£å¤—夯å®å®„尒尻屴屳帄庀庂忉戉æ‰æ°•
-0xc9a0: 氶汃氿氻犮犰玊禸肊阞伎优伬仵伔仱伀价伈ä¼ä¼‚伅伢伓伄仴伒冱刓刉åˆ
-0xc9c0: 劦匢匟å厊å‡å›¡å›Ÿåœ®åœªåœ´å¤¼å¦€å¥¼å¦…奻奾奷奿å–尕尥屼屺屻屾巟幵庄异弚彴
-0xc9e0: å¿•å¿”å¿æ‰œæ‰žæ‰¤æ‰¡æ‰¦æ‰¢æ‰™æ‰ 扚扥旯旮朾朹朸朻机朿朼朳氘汆汒汜æ±æ±Šæ±”汋
-0xca40: 汌ç±ç‰žçŠ´çŠµçŽŽç”ªç™¿ç©µç½‘艸艼芀艽艿è™è¥¾é‚™é‚—é‚˜é‚›é‚”é˜¢é˜¤é˜ é˜£ä½–ä¼»ä½¢ä½‰ä½“ä½¤
-0xca60: 伾佧佒佟ä½ä½˜ä¼ä¼³ä¼¿ä½¡å†å†¹åˆœåˆžåˆ¡åŠåŠ®åŒ‰å£å²åŽŽåŽå°å·åªå‘”å‘…å™åœå¥å˜
-0xcaa0: å½å‘å‘å¨å¤å‘‡å›®å›§å›¥åå…åŒå‰å‹å’å¤†å¥€å¦¦å¦˜å¦ å¦—å¦Žå¦¢å¦å¦å¦§å¦¡å®Žå®’尨尪
-0xcac0: å²å²å²ˆå²‹å²‰å²’å²Šå²†å²“å²•å· å¸Šå¸Žåº‹åº‰åºŒåºˆåºå¼…å¼å½¸å½¶å¿’å¿‘å¿å¿å¿¨å¿®å¿³å¿¡å¿¤å¿£
-0xcae0: 忺忯忷忻怀忴戺抃抌抎æŠæŠ”抇扱扻扺扰æŠæŠˆæ‰·æ‰½æ‰²æ‰´æ”·æ—°æ—´æ—³æ—²æ—µæ…æ‡
-0xcb40: æ™æ•æŒæˆæææšæ‹æ¯æ°™æ°šæ±¸æ±§æ±«æ²„沋æ²æ±±æ±¯æ±©æ²šæ±æ²‡æ²•æ²œæ±¦æ±³æ±¥æ±»æ²Žç´çº
-0xcb60: 牣犿犽狃狆ç‹çŠºç‹…玕玗玓玔玒町甹疔疕çšç¤½è€´è‚•è‚™è‚è‚’è‚œèŠèŠèŠ…芎芑芓
-0xcba0: èŠŠèŠƒèŠ„è±¸è¿‰è¾¿é‚Ÿé‚¡é‚¥é‚žé‚§é‚ é˜°é˜¨é˜¯é˜ä¸³ä¾˜ä½¼ä¾…佽侀侇佶佴侉侄佷佌侗佪
-0xcbc0: 侚佹ä¾ä½¸ä¾ä¾œä¾”侞侒侂侕佫佮冞冼冾刵刲刳剆刱劼匊匋匼厒厔咇呿å’å’‘å’‚
-0xcbe0: 咈呫呺呾呥呬呴呦å’å‘¯å‘¡å‘ å’˜å‘£å‘§å‘¤å›·å›¹å¯å²åå«å±å°å¶åž€åµå»å³å´å¢
-0xcc40: å¨å½å¤Œå¥…妵妺å§å§Žå¦²å§Œå§å¦¶å¦¼å§ƒå§–妱妽姀姈妴姇å¢å¥å®“å®•å±„å±‡å²®å²¤å² å²µå²¯
-0xcc60: 岨岬岟岣å²å²¢å²ªå²§å²å²¥å²¶å²°å²¦å¸—帔帙弨弢弣弤彔徂彾彽忞忥æ€æ€¦æ€™æ€²æ€‹
-0xcca0: 怴怊怗怳怚怞怬怢æ€æ€æ€®æ€“怑怌怉怜戔戽æŠæŠ´æ‹‘抾抪抶拊抮抳抯抻抩抰
-0xccc0: 抸攽斨斻昉旼昄昒昈旻昃昋æ˜æ˜…旽昑æ˜æ›¶æœŠæž…æ¬æžŽæž’æ¶æ»æž˜æž†æž„æ´æžæžŒæº
-0xcce0: 枟枑枙枃æ½æžæ¸æ¹æž”欥殀æ¾æ¯žæ°æ²“泬泫泮泙沶泔æ²æ³§æ²·æ³æ³‚沺泃泆æ³æ³²
-0xcd40: æ³’æ³æ²´æ²Šæ²æ²€æ³žæ³€æ´°æ³æ³‡æ²°æ³¹æ³æ³©æ³‘炔炘炅炓炆炄炑炖炂炚炃牪狖狋狘狉
-0xcd60: 狜狒狔狚狌狑玤玡çŽçŽ¦çŽ¢çŽ 玬çŽç“瓨甿畀甾疌疘皯盳盱盰盵矸矼矹矻矺
-0xcda0: 矷祂礿秅穸穻竻籵糽耵è‚肮肣肸肵è‚èˆ èŠ è‹€èŠ«èŠšèŠ˜èŠ›èŠµèŠ§èŠ®èŠ¼èŠžèŠºèŠ´èŠ¨
-0xcdc0: 芡芩苂芤苃芶芢虰虯è™è™®è±–è¿’è¿‹è¿“è¿è¿–迕迗邲邴邯邳邰阹阽阼阺陃ä¿ä¿…ä¿“
-0xcde0: 侲俉俋ä¿ä¿”俜俙侻侳俛俇俖侺俀侹俬剄剉勀勂匽å¼åŽ—厖厙厘咺咡å’å’¥å“
-0xce40: 哃èŒå’·å’®å“–å’¶å“…å“†å’ å‘°å’¼å’¢å’¾å‘²å“žå’°åžµåžžåžŸåž¤åžŒåž—åžåž›åž”垘åžåž™åž¥åžšåž•å£´
-0xce60: å¤å¥“姡姞姮娀姱å§å§ºå§½å§¼å§¶å§¤å§²å§·å§›å§©å§³å§µå§ 姾姴å§å®¨å±Œå³å³˜å³Œå³—峋峛
-0xcea0: 峞峚峉峇峊峖峓峔å³å³ˆå³†å³Žå³Ÿå³¸å·¹å¸¡å¸¢å¸£å¸ 帤庰庤庢庛庣庥弇弮彖徆怷
-0xcec0: 怹æ”æ²æžæ…æ“æ‡æ‰æ›æŒæ€æ‚æŸæ€¤æ„æ˜æ¦æ®æ‰‚扃æ‹æŒæŒ‹æ‹µæŒŽæŒƒæ‹«æ‹¹æŒæŒŒæ‹¸æ‹¶
-0xcee0: 挀挓挔拺挕拻拰æ•æ•ƒæ–ªæ–¿æ˜¶æ˜¡æ˜²æ˜µæ˜œæ˜¦æ˜¢æ˜³æ˜«æ˜ºæ˜æ˜´æ˜¹æ˜®æœæœæŸæŸ²æŸˆæžº
-0xcf40: 柜枻柸柘柀枷柅柫柤柟枵æŸæž³æŸ·æŸ¶æŸ®æŸ£æŸ‚枹柎柧柰枲柼柆æŸæŸŒæž®æŸ¦æŸ›æŸºæŸ‰
-0xcf60: æŸŠæŸƒæŸªæŸ‹æ¬¨æ®‚æ®„æ®¶æ¯–æ¯˜æ¯ æ° æ°¡æ´¨æ´´æ´æ´Ÿæ´¼æ´¿æ´’洊泚洳洄洙洺洚洑洀æ´æµ‚
-0xcfa0: æ´æ´˜æ´·æ´ƒæ´æµ€æ´‡æ´ 洬洈洢洉æ´ç‚·ç‚Ÿç‚¾ç‚±ç‚°ç‚¡ç‚´ç‚µç‚©ç‰ç‰‰ç‰Šç‰¬ç‰°ç‰³ç‰®ç‹Šç‹¤
-0xcfc0: 狨狫狟狪狦狣玅çŒç‚çˆç…玹玶玵玴ç«çŽ¿ç‡çŽ¾çƒç†çŽ¸ç‹ç“¬ç“®ç”®ç•‡ç•ˆç–§ç–ªç™¹ç›„
-0xcfe0: çœˆçœƒçœ„çœ…çœŠç›·ç›»ç›ºçŸ§çŸ¨ç †ç ‘ç ’ç …ç ç ç Žç ‰ç ƒç “ç¥Šç¥Œç¥‹ç¥…ç¥„ç§•ç§ç§ç§–秎窀
-0xd040: 穾竑笀ç¬ç±ºç±¸ç±¹ç±¿ç²€ç²ç´ƒç´ˆç´ç½˜ç¾‘ç¾ç¾¾è€‡è€Žè€è€”è€·èƒ˜èƒ‡èƒ èƒ‘èƒˆèƒ‚èƒèƒ…胣胙
-0xd060: 胜胊胕胉èƒèƒ—胦èƒè‡¿èˆ¡èŠ”苙苾苹茇苨茀苕茺苫苖苴苬苡苲苵茌苻苶苰苪
-0xd0a0: è‹¤è‹ è‹ºè‹³è‹è™·è™´è™¼è™³è¡è¡Žè¡§è¡ªè¡©è§“è¨„è¨‡èµ²è¿£è¿¡è¿®è¿ éƒ±é‚½é‚¿éƒ•éƒ…é‚¾éƒ‡éƒ‹éƒˆ
-0xd0c0: 釔釓陔é™é™‘é™“é™Šé™Žå€žå€…å€‡å€“å€¢å€°å€›ä¿µä¿´å€³å€·å€¬ä¿¶ä¿·å€—å€œå€ å€§å€µå€¯å€±å€Žå…šå†”
-0xd0e0: 冓凊凄凅凈凎剡剚剒剞剟剕剢å‹åŒŽåŽžå”¦å“¢å”—唒哧哳哤唚哿唄唈哫唑唅哱
-0xd140: å”Šå“»å“·å“¸å“ å”Žå”ƒå”‹åœåœ‚åŸŒå ²åŸ•åŸ’åžºåŸ†åž½åž¼åž¸åž¶åž¿åŸ‡åŸåž¹åŸå¤Žå¥Šå¨™å¨–å¨å¨®å¨•
-0xd160: å¨å¨—娊娞娳å¬å®§å®å®¬å°ƒå±–屔峬峿峮峱峷崀峹帩帨庨庮庪庬弳弰彧ææšæ§
-0xd1a0: æ悢悈悀悒æ‚æ‚悃悕悛悗悇悜悎戙扆拲æŒæ–挬æ„æ…挶æƒæ¤æŒ¹æ‹æŠæŒ¼æŒ©æ
-0xd1c0: 挴æ˜æ”æ™æŒæ‡æŒ³æšæ‘挸æ—æ€æˆæ•Šæ•†æ—†æ—ƒæ—„æ—‚æ™Šæ™Ÿæ™‡æ™‘æœ’æœ“æ Ÿæ šæ¡‰æ ²æ ³æ »æ¡‹
-0xd1e0: æ¡æ –æ ±æ œæ µæ «æ æ ¯æ¡Žæ¡„æ ´æ æ ’æ ”æ ¦æ ¨æ ®æ¡æ ºæ ¥æ 欬欯æ¬æ¬±æ¬´æ肂殈毦毤
-0xd240: 毨毣毢毧氥浺浣浤浶æ´æµ¡æ¶’浘浢æµæµ¯æ¶‘æ¶æ·¯æµ¿æ¶†æµžæµ§æµ 涗浰浼浟涂涘洯浨
-0xd260: 涋浾涀涄洖涃浻浽浵æ¶çƒœçƒ“烑çƒçƒ‹ç¼¹çƒ¢çƒ—çƒ’çƒžçƒ çƒ”çƒçƒ…烆烇烚烎烡牂牸
-0xd2a0: 牷牶猀狺狴狾狶狳狻çŒç“ç™ç¥ç–玼ç§ç£ç©çœç’ç›ç”ççšç—ç˜ç¨ç“žç“Ÿç“´ç“µ
-0xd2c0: 甡畛畟疰ç—疻痄痀疿疶疺皊盉çœçœ›çœçœ“çœ’çœ£çœ‘çœ•çœ™çœšçœ¢çœ§ç £ç ¬ç ¢ç µç ¯ç ¨ç ®
-0xd2e0: ç «ç ¡ç ©ç ³ç ªç ±ç¥”ç¥›ç¥ç¥œç¥“ç¥’ç¥‘ç§«ç§¬ç§ ç§®ç§ç§ªç§œç§žç§çª†çª‰çª…窋窌窊窇竘ç¬
-0xd340: 笄笓笅ç¬ç¬ˆç¬Šç¬Žç¬‰ç¬’粄粑粊粌粈ç²ç²…ç´žç´ç´‘紎紘紖紓紟紒ç´ç´Œç½œç½¡ç½žç½ ç½
-0xd360: 罛羖羒翃翂翀耖耾耹胺胲胹胵è„胻脀èˆèˆ¯èˆ¥èŒ³èŒè„茙è‘茥è–茿è茦茜茢
-0xd3a0: è‚èŽèŒ›èŒªèŒˆèŒ¼èèŒ–èŒ¤èŒ èŒ·èŒ¯èŒ©è‡è…èŒè“茞茬è‹èŒ§èˆè™“虒蚢蚨蚖èšèš‘蚞蚇
-0xd3c0: 蚗蚆蚋蚚蚅蚥蚙蚡蚧蚕蚘蚎èšèšèš”衃衄è¡è¡µè¡¶è¡²è¢€è¡±è¡¿è¡¯è¢ƒè¡¾è¡´è¡¼è¨’豇豗
-0xd3e0: è±»è²¤è²£èµ¶èµ¸è¶µè¶·è¶¶è»‘è»“è¿¾è¿µé€‚è¿¿è¿»é€„è¿¼è¿¶éƒ–éƒ éƒ™éƒšéƒ£éƒŸéƒ¥éƒ˜éƒ›éƒ—éƒœéƒ¤é…
-0xd440: é…Žé…釕釢釚陜陟隼飣髟鬯乿å°åªå¡åžå å“å‹åå²åˆååå›åŠå¢å€•å…åŸå©å«
-0xd460: å£å¤å†å€å®å³å—å‘å‡å‰«å‰å‰¬å‰®å‹–å‹“åŒåŽœå•µå•¶å”¼å•å•å”´å”ªå•‘啢唶唵唰啒啅
-0xd4a0: 唌唲啥啎唹啈å”å”»å•€å•‹åœŠåœ‡åŸ»å ”åŸ¢åŸ¶åŸœåŸ´å €åŸåŸ½å ˆåŸ¸å ‹åŸ³åŸå ‡åŸ®åŸ£åŸ²åŸ¥
-0xd4c0: åŸ¬åŸ¡å ŽåŸ¼å 埧å å ŒåŸ±åŸ©åŸ°å å „å¥œå© å©˜å©•å©§å©žå¨¸å¨µå©å©å©Ÿå©¥å©¬å©“婤婗婃å©å©’
-0xd4e0: 婄婛婈媎娾å©å¨¹å©Œå©°å©©å©‡å©‘å©–å©‚å©œå²å®å¯å¯€å±™å´žå´‹å´å´šå´ 崌崨å´å´¦å´¥å´
-0xd540: 崰崒崣崟崮帾帴庱庴庹庲庳弶弸徛徖徟悊æ‚悆悾悰悺惓惔æƒæƒ¤æƒ™æƒæƒˆæ‚±æƒ›
-0xd560: 悷惊悿惃æƒæƒ€æŒ²æ¥æŽŠæŽ‚æ½æŽ½æŽžæŽæŽæŽ—掫掎æ¯æŽ‡æŽæ®æŽ¯æµæŽœæ掮æ¼æŽ¤æŒ»æŽŸ
-0xd5a0: æ¸æŽ…æŽæŽ‘æŽæ°æ•“æ—晥晡晛晙晜晢朘桹梇æ¢æ¢œæ¡æ¡®æ¢®æ¢«æ¥–桯梣梬梩桵桴梲
-0xd5c0: æ¢æ¡·æ¢’æ¡¼æ¡«æ¡²æ¢ªæ¢€æ¡±æ¡¾æ¢›æ¢–æ¢‹æ¢ æ¢‰æ¢¤æ¡¸æ¡»æ¢‘æ¢Œæ¢Šæ¡½æ¬¶æ¬³æ¬·æ¬¸æ®‘æ®æ®æ®Žæ®Œæ°ª
-0xd5e0: æ·€æ¶«æ¶´æ¶³æ¹´æ¶¬æ·©æ·¢æ¶·æ·¶æ·”æ¸€æ·ˆæ· æ·Ÿæ·–æ¶¾æ·¥æ·œæ·æ·›æ·´æ·Šæ¶½æ·æ·°æ¶ºæ·•æ·‚æ·æ·‰
-0xd640: æ·æ·²æ·“淽淗æ·æ·£æ¶»çƒºç„烷焗烴焌烰焄烳ç„烼烿焆焓焀烸烶焋焂焎牾牻牼牿
-0xd660: çŒçŒ—猇猑猘猊猈狿çŒçŒžçŽˆç¶ç¸çµç„çç½ç‡ç€çºç¼ç¿çŒç‹ç´çˆç•¤ç•£ç—Žç—’ç—
-0xd6a0: 痋痌痑ç—çšçš‰ç›“眹眯çœçœ±çœ²çœ´çœ³çœ½çœ¥çœ»çœµç¡ˆç¡’硉ç¡ç¡Šç¡Œç ¦ç¡…ç¡ç¥¤ç¥§ç¥©ç¥ª
-0xd6c0: 祣祫祡离秺秸秶秷çªçª”çªç¬µç‡ç¬´ç¬¥ç¬°ç¬¢ç¬¤ç¬³ç¬˜ç¬ªç¬ç¬±ç¬«ç¬ç¬¯ç¬²ç¬¸ç¬šç¬£ç²”粘
-0xd6e0: 粖粣紵紽紸紶紺絅紬紩çµçµ‡ç´¾ç´¿çµŠç´»ç´¨ç½£ç¾•ç¾œç¾ç¾›ç¿Šç¿‹ç¿ç¿ç¿‘翇ç¿ç¿‰è€Ÿ
-0xd740: 耞耛è‡èƒèˆè„˜è„¥è„™è„›è„脟脬脞脡脕脧è„脢舑舸舳舺舴舲艴èŽèŽ£èŽ¨èŽèºè³èŽ¤
-0xd760: è´èŽèŽèŽ•èŽ™èµèŽ”莩è½èŽƒèŽŒèŽèŽ›èŽªèŽ‹è¾èŽ¥èŽ¯èŽˆèŽ—莰è¿èŽ¦èŽ‡èŽ®è¶èŽšè™™è™–èš¿èš·
-0xd7a0: 蛂è›è›…蚺蚰蛈蚹蚳蚸蛌蚴蚻蚼蛃蚽蚾衒袉袕袨袢袪袚袑袡袟袘袧袙袛袗
-0xd7c0: 袤袬袌袓袎覂觖觙觕訰訧訬訞谹谻豜è±è±½è²¥èµ½èµ»èµ¹è¶¼è·‚趹趿è·è»˜è»žè»è»œè»—
-0xd7e0: è» è»¡é€¤é€‹é€‘é€œé€Œé€¡éƒ¯éƒªéƒ°éƒ´éƒ²éƒ³éƒ”éƒ«éƒ¬éƒ©é…–é…˜é…šé…“é…•é‡¬é‡´é‡±é‡³é‡¸é‡¤é‡¹é‡ª
-0xd840: 釫釷釨釮镺閆閈陼é™é™«é™±é™¯éš¿éªé „飥馗傛傕傔傞傋傣傃傌傎å‚å¨å‚œå‚’傂傇
-0xd860: 兟凔匒匑厤厧喑喨喥å–啷噅喢喓喈å–å–µå–å–£å–’å–¤å•½å–Œå–¦å•¿å–•å–¡å–ŽåœŒå ©å ·
-0xd8a0: å ™å žå §å £å ¨åŸµå¡ˆå ¥å œå ›å ³å ¿å ¶å ®å ¹å ¸å å ¬å »å¥¡åª¯åª”åªŸå©ºåª¢åªžå©¸åª¦å©¼åª¥åª¬
-0xd8c0: 媕媮娷媄媊媗媃媋媩婻婽媌媜åªåª“åªå¯ªå¯å¯‹å¯”寑寊寎尌尰崷嵃嵫åµåµ‹å´¿å´µ
-0xd8e0: 嵑嵎嵕崳崺嵒崽崱嵙嵂崹嵉崸崼崲崶嵀嵅幄å¹å½˜å¾¦å¾¥å¾«æƒ‰æ‚¹æƒŒæƒ¢æƒŽæƒ„æ„”
-0xd940: 惲愊愖愅惵愓惸惼惾æƒæ„ƒæ„˜æ„æ„惿愄愋扊掔掱掰æŽæ¥æ¨æ¯æƒæ’æ³æŠæ æ¶æ•
-0xd960: æ²æµæ‘¡æŸæŽ¾ææœæ„æ˜æ“æ‚æ‡æŒæ‹æˆæ°æ—æ™æ”²æ•§æ•ªæ•¤æ•œæ•¨æ•¥æ–Œæ–æ–žæ–®æ—æ—’
-0xd9a0: 晼晬晻暀晱晹晪晲æœæ¤Œæ£“椄棜椪棬棪棱æ¤æ£–棷棫棤棶椓æ¤æ£³æ£¡æ¤‡æ£Œæ¤ˆæ¥°
-0xd9c0: 梴椑棯棆椔棸æ£æ£½æ£¼æ£¨æ¤‹æ¤Šæ¤—棎棈æ£æ£žæ£¦æ£´æ£‘椆棔棩椕椥棇欹欻欿欼殔殗
-0xd9e0: 殙殕殽毰毲毳氰淼湆湇渟湉溈渼渽湅湢渫渿æ¹æ¹æ¹³æ¸œæ¸³æ¹‹æ¹€æ¹‘渻渃渮湞
-0xda40: æ¹¨æ¹œæ¹¡æ¸±æ¸¨æ¹ æ¹±æ¹«æ¸¹æ¸¢æ¸°æ¹“æ¹¥æ¸§æ¹¸æ¹¤æ¹·æ¹•æ¹¹æ¹’æ¹¦æ¸µæ¸¶æ¹šç„ ç„žç„¯çƒ»ç„®ç„±ç„£ç„¥
-0xda60: 焢焲焟焨焺焛牋牚犈犉犆犅犋猒猋猰猢猱猳猧猲çŒçŒ¦çŒ£çŒµçŒŒç®ç¬ç°ç«ç–
-0xdaa0: çšç¡çç±ç¤ç£çç©ç ç²ç“»ç”¯ç•¯ç•¬ç—§ç—šç—¡ç—¦ç—痟痤痗皕皒盚ç†ç‡ç„çç…çŠ
-0xdac0: çŽç‹çŒçŸžçŸ¬ç¡ 硤硥硜ç¡ç¡±ç¡ªç¡®ç¡°ç¡©ç¡¨ç¡žç¡¢ç¥´ç¥³ç¥²ç¥°ç¨‚稊稃稌稄窙竦竤çŠç¬»
-0xdae0: ç„çˆçŒçŽç€ç˜ç…粢粞粨粡絘絯絣絓絖絧絪çµçµçµœçµ«çµ’絔絩絑絟絎缾缿罥
-0xdb40: ç½¦ç¾¢ç¾ ç¾¡ç¿—è‘èè胾胔腃腊腒è…腇脽è…脺臦臮臷臸臹舄舼舽舿艵茻èè¹è£
-0xdb60: è€è¨è’è§è¤è¼è¶èè†èˆè«è£èŽ¿èèè¥è˜è¿è¡è‹èŽè–èµè‰è‰èèžè‘è†è‚è³
-0xdba0: è•èºè‡è‘èªè“èƒè¬è®è„è»è—è¢è›è›è¾è›˜è›¢è›¦è›“蛣蛚蛪è›è›«è›œè›¬è›©è›—蛨蛑
-0xdbc0: 衈衖衕袺裗袹袸裀袾袶袼袷袽袲è¤è£‰è¦•è¦˜è¦—è§è§šè§›è©Žè©è¨¹è©™è©€è©—詘詄詅詒
-0xdbe0: 詈詑詊詌è©è±Ÿè²è²€è²ºè²¾è²°è²¹è²µè¶„趀趉跘跓è·è·‡è·–è·œè·è·•è·™è·ˆè·—跅軯軷軺
-0xdc40: 軹軦軮軥軵軧軨軶軫軱軬軴軩é€é€´é€¯é„†é„¬é„„郿郼鄈郹郻é„鄀鄇鄅鄃酡酤酟
-0xdc60: é…¢é… éˆéˆŠéˆ¥éˆƒéˆšéˆ¦éˆéˆŒéˆ€éˆ’釿釽鈆鈄鈧鈂鈜鈤鈙鈗鈅鈖镻é–é–Œé–隇陾隈
-0xdca0: 隉隃隀雂雈雃雱雰é¬é°é®é ‡é¢©é£«é³¦é»¹äºƒäº„亶傽傿僆傮僄僊傴僈僂傰åƒå‚º
-0xdcc0: 傱僋僉傶傸凗剺剸剻剼嗃嗛嗌å—å—‹å—Šå—嗀嗔嗄嗩喿嗒å–å—嗕嗢嗖嗈嗲å—å—™
-0xdce0: 嗂圔塓塨塤å¡å¡å¡‰å¡¯å¡•å¡Žå¡å¡™å¡¥å¡›å ½å¡£å¡±å£¼å«‡å«„嫋媺媸媱媵媰媿嫈媻嫆
-0xdd40: 媷嫀嫊媴媶å«åª¹åªå¯–寘寙尟尳嵱嵣嵊嵥嵲嵬嵞嵨嵧嵢巰å¹å¹Žå¹Šå¹å¹‹å»…廌廆
-0xdd60: 廋廇彀徯å¾æƒ·æ…‰æ…Šæ„«æ……愶愲愮慆愯æ…æ„©æ…€æˆ é…¨æˆ£æˆ¥æˆ¤æ…æ±æ«ææ’æ‰æ æ¤
-0xdda0: æ³æ‘ƒæŸæ•æ˜æ¹æ·æ¢æ£æŒæ¦æ°æ¨æ‘æµæ¯æŠæšæ‘€æ¥æ§æ‹æ§æ›æ®æ¡æŽæ•¯æ–’旓暆
-0xddc0: 暌暕æšæš‹æšŠæš™æš”æ™¸æœ æ¥¦æ¥Ÿæ¤¸æ¥Žæ¥¢æ¥±æ¤¿æ¥…æ¥ªæ¤¹æ¥‚æ¥—æ¥™æ¥ºæ¥ˆæ¥‰æ¤µæ¥¬æ¤³æ¤½æ¥¥æ£°æ¥¸
-0xdde0: 椴楩楀楯楄楶楘æ¥æ¥´æ¥Œæ¤»æ¥‹æ¤·æ¥œæ¥æ¥‘椲楒椯楻椼æ†æ…æƒæ‚æˆææ®›ï¨æ¯»æ¯¼
-0xde40: 毹毷毸溛滖滈æºæ»€æºŸæº“æº”æº æº±æº¹æ»†æ»’æº½æ»æºžæ»‰æº·æº°æ»æº¦æ»æº²æº¾æ»ƒæ»œæ»˜æº™æº’
-0xde60: 溎æºæº¤æº¡æº¿æº³æ»æ»Šæº—æº®æº£ç…‡ç…”ç…’ç…£ç… ç…ç…煢煲煸煪煡煂煘煃煋煰煟ç…ç…“
-0xdea0: ç…„ç…ç…šç‰çŠçŠŒçŠ‘çŠçŠŽçŒ¼ç‚猻猺ç€çŠç‰ç‘„ç‘Šç‘‹ç‘’ç‘‘ç‘—ç‘€ç‘ç‘瑎瑂瑆ç‘瑔瓡
-0xdec0: 瓿瓾瓽ç”畹畷榃痯ç˜ç˜ƒç—·ç—¾ç—¼ç—¹ç—¸ç˜ç—»ç—¶ç—痵痽皙皵ç›ç•çŸç ç’ç–çšç©ç§
-0xdee0: ç”ç™ççŸ ç¢‡ç¢šç¢”ç¢ç¢„碕碅碆碡碃硹碙碀碖硻祼禂祽祹稑稘稙稒稗稕稢稓
-0xdf40: 稛ç¨çª£çª¢çªžç««ç¦ç¤çç´ç©ç²ç¥ç³ç±ç°ç¡ç¸ç¶ç£ç²²ç²´ç²¯ç¶ˆç¶†ç¶€ç¶çµ¿ç¶…絺綎絻
-0xdf60: 綃絼綌綔綄絽綒ç½ç½«ç½§ç½¨ç½¬ç¾¦ç¾¥ç¾§ç¿›ç¿œè€¡è…¤è… 腷腜腩腛腢腲朡腞腶腧腯
-0xdfa0: è…„è…¡èˆè‰‰è‰„艀艂艅蓱è¿è‘–葶葹è’è’葥葑葀蒆葧è°è‘葽葚葙葴葳è‘蔇葞è·
-0xdfc0: èºè´è‘ºè‘ƒè‘¸è²è‘…è©è™è‘‹è¯è‘‚èè‘Ÿè‘°è¹è‘Žè‘Œè‘’葯蓅蒎è»è‘‡è¶è³è‘¨è‘¾è‘„è«è‘ è‘”
-0xdfe0: è‘®è‘蜋蜄蛷蜌蛺蛖蛵è蛸蜎蜉èœè›¶èœèœ…裖裋è£è£Žè£žè£›è£šè£Œè£è¦…覛觟觥觤
-0xe040: è§¡è§ è§¢è§œè§¦è©¶èª†è©¿è©¡è¨¿è©·èª‚èª„è©µèªƒèªè©´è©ºè°¼è±‹è±Šè±¥è±¤è±¦è²†è²„貅賌赨赩趑趌
-0xe060: 趎è¶è¶è¶“趔è¶è¶’è·°è· è·¬è·±è·®è·è·©è·£è·¢è·§è·²è·«è·´è¼†è»¿è¼è¼€è¼…輇輈輂輋é’逿
-0xe0a0: é„é‰é€½é„é„é„鄑鄖鄔鄋鄎酮酯鉈鉒鈰鈺鉦鈳鉥鉞銃鈮鉊鉆é‰é‰¬é‰é‰ 鉧鉯
-0xe0c0: 鈶鉡鉰鈱鉔鉣é‰é‰²é‰Žé‰“鉌鉖鈲閟閜閞閛隒隓隑隗雎雺雽雸雵é³é·é¸é²é é
-0xe0e0: é Žé¢¬é£¶é£¹é¦¯é¦²é¦°é¦µéªéª«é›é³ªé³é³§éº€é»½åƒ¦åƒ”僗僨僳僛僪åƒåƒ¤åƒ“僬僰僯僣åƒ
-0xe140: 凘劀åŠå‹©å‹«åŒ°åŽ¬å˜§å˜•å˜Œå˜’å—¼å˜å˜œå˜å˜“嘂嗺å˜å˜„嗿嗹墉塼å¢å¢˜å¢†å¢å¡¿å¡´å¢‹å¡º
-0xe160: 墇墑墎塶墂墈塻墔å¢å£¾å¥«å«œå«®å«¥å«•å«ªå«šå«å««å«³å«¢å« 嫛嫬嫞å«å«™å«¨å«Ÿå·å¯
-0xe1a0: 寣屣嶂嶀嵽嶆嵺å¶åµ·å¶Šå¶‰å¶ˆåµ¾åµ¼å¶åµ¹åµ¿å¹˜å¹™å¹“廘廑廗廎廜廕廙廒廔彄彃
-0xe1c0: 彯徶愬愨æ…慞慱慳慒慓慲慬憀慴慔慺慛慥愻慪慡慖戩戧戫æ«æ‘æ‘›æ‘摴摶摲
-0xe1e0: æ‘³æ‘½æ‘µæ‘¦æ’¦æ‘Žæ’‚æ‘žæ‘œæ‘‹æ‘“æ‘ æ‘æ‘¿æ¿æ‘¬æ‘«æ‘™æ‘¥æ‘·æ•³æ– æš¡æš æšŸæœ…æœ„æœ¢æ¦±æ¦¶æ§‰
-0xe240: æ¦ æ§Žæ¦–æ¦°æ¦¬æ¦¼æ¦‘æ¦™æ¦Žæ¦§æ¦æ¦©æ¦¾æ¦¯æ¦¿æ§„榽榤槔榹槊榚æ§æ¦³æ¦“榪榡榞槙榗æ¦æ§‚
-0xe260: 榵榥槆æŠææ‹æ®žæ®Ÿæ® 毃毄毾滎滵滱漃漥滸漷滻漮漉潎漙漚漧漘漻漒æ»æ¼Š
-0xe2a0: 漶潳滹滮æ¼æ½€æ¼°æ¼¼æ¼µæ»«æ¼‡æ¼Žæ½ƒæ¼…滽滶漹漜滼漺漟æ¼æ¼žæ¼ˆæ¼¡ç†‡ç†ç†‰ç†€ç†…熂
-0xe2c0: ç†ç…»ç††ç†ç†—牄牓犗犕犓çƒçç‘çŒç‘¢ç‘³ç‘±ç‘µç‘²ç‘§ç‘®ç”€ç”‚甃畽ç–瘖瘈瘌瘕瘑瘊
-0xe2e0: 瘔皸çžç¼çž…çž‚ç®çž€ç¯ç¾çžƒç¢²ç¢ªç¢´ç¢ç¢¨ç¡¾ç¢«ç¢žç¢¥ç¢ 碬碢碤禘禊禋禖禕禔禓
-0xe340: 禗禈禒ç¦ç¨«ç©Šç¨°ç¨¯ç¨¨ç¨¦çª¨çª«çª¬ç«®ç®ˆç®œç®Šç®‘ç®ç®–ç®ç®Œç®›ç®Žç®…箘劄箙箤箂粻粿
-0xe360: 粼粺綧綷緂綣綪ç·ç·€ç·…ç¶ç·Žç·„緆緋緌綯綹綖綼綟綦綮綩綡緉罳翢翣翥翞
-0xe3a0: 耤èèœè†‰è††è†ƒè†‡è†è†Œè†‹èˆ•è’—蒤蒡蒟蒺蓎蓂蒬蒮蒫蒹蒴è“è“蒪蒚蒱è“è’è’§
-0xe3c0: 蒻蒢蒔蓇蓌蒛蒩蒯蒨蓖蒘蒶è“è’ è“—è“”è“’è“›è’°è’‘è™¡èœ³èœ£èœ¨è«è€èœ®èœžèœ¡èœ™èœ›èƒ
-0xe3e0: 蜬è蜾è†èœ 蜲蜪èœèœ¼èœ’蜺蜱蜵è‚蜦蜧蜸蜤蜚蜰蜑裷裧裱裲裺裾裮裼裶裻
-0xe440: 裰裬裫è¦è¦¡è¦Ÿè¦žè§©è§«è§¨èª«èª™èª‹èª’èªèª–谽豨豩賕è³è³—趖踉踂跿è¸è·½è¸Šè¸ƒè¸‡è¸†
-0xe460: 踅跾踀踄è¼è¼‘輎è¼é„£é„œé„ 鄢鄟é„é„šé„¤é„¡é„›é…ºé…²é…¹é…³éŠ¥éŠ¤é‰¶éŠ›é‰ºéŠ éŠ”éŠªéŠ
-0xe4a0: 銦銚銫鉹銗鉿銣鋮銎銂銕銢鉽銈銡銊銆銌銙銧鉾銇銩éŠéŠ‹éˆéšžéš¡é›¿é˜é½
-0xe4c0: éºé¾éžƒéž€éž‚é»éž„éžé¿éŸŽéŸé –é¢é¢®é¤‚餀餇é¦é¦œé§ƒé¦¹é¦»é¦ºé§‚馽駇骱髣髧鬾鬿é
-0xe4e0: é¡éŸé³±é³²é³µéº§åƒ¿å„ƒå„°åƒ¸å„†å„‡åƒ¶åƒ¾å„‹å„Œåƒ½å„ŠåŠ‹åŠŒå‹±å‹¯å™ˆå™‚噌嘵å™å™Šå™‰å™†å™˜
-0xe540: 噚噀嘳嘽嘬嘾嘸嘪嘺圚墫å¢å¢±å¢ 墣墯墬墥墡壿嫿嫴嫽嫷嫶嬃嫸嬂嫹å¬å¬‡å¬…
-0xe560: å¬å±§å¶™å¶—å¶Ÿå¶’å¶¢å¶“å¶•å¶ å¶œå¶¡å¶šå¶žå¹©å¹å¹ 幜緳廛廞廡彉徲憋憃慹憱憰憢憉
-0xe5a0: 憛憓憯æ†æ†Ÿæ†’憪憡æ†æ…¦æ†³æˆæ‘®æ‘°æ’–æ’ æ’…æ’—æ’œæ’撋撊撌撣撟摨撱撘敶敺敹
-0xe5c0: æ•»æ–²æ–³æšµæš°æš©æš²æš·æšªæš¯æ¨€æ¨†æ¨—æ§¥æ§¸æ¨•æ§±æ§¤æ¨ æ§¿æ§¬æ§¢æ¨›æ¨æ§¾æ¨§æ§²æ§®æ¨”槷槧橀
-0xe5e0: 樈槦槻æ¨æ§¼æ§«æ¨‰æ¨„樘樥æ¨æ§¶æ¨¦æ¨‡æ§´æ¨–æ‘殥殣殢殦æ°æ°€æ¯¿æ°‚æ½æ¼¦æ½¾æ¾‡æ¿†æ¾’
-0xe640: æ¾æ¾‰æ¾Œæ½¢æ½æ¾…潚澖潶潬澂潕潲潒æ½æ½—澔澓æ½æ¼€æ½¡æ½«æ½½æ½§æ¾æ½“澋潩潿澕潣潷
-0xe660: æ½ªæ½»ç†²ç†¯ç†›ç†°ç† ç†šç†©ç†µç†ç†¥ç†žç†¤ç†¡ç†ªç†œç†§ç†³çŠ˜çŠšç˜ç’çžçŸç çç›ç¡çšç™
-0xe6a0: ç¢ç’‡ç’‰ç’Šç’†ç’瑽璅璈瑼瑹甈甇畾瘥瘞瘙ç˜ç˜œç˜£ç˜šç˜¨ç˜›çšœçšçšžçš›çžçžçž‰çžˆ
-0xe6c0: ç£ç¢»ç£ç£Œç£‘ç£Žç£”ç£ˆç£ƒç£„ç£‰ç¦šç¦¡ç¦ ç¦œç¦¢ç¦›æ¶ç¨¹çª²çª´çª³ç®·ç¯‹ç®¾ç®¬ç¯Žç®¯ç®¹ç¯Šç®µç³…
-0xe6e0: 糈糌糋緷緛緪緧緗緡縃緺緦緶緱緰緮緟罶羬羰ç¾ç¿ç¿«ç¿ªç¿¬ç¿¦ç¿¨è¤è§è†£è†Ÿ
-0xe740: 膞膕膢膙膗舖è‰è‰“艒è‰è‰Žè‰‘蔤蔻è”蔀蔩蔎蔉è”蔟蔊蔧蔜蓻蔫蓺蔈蔌蓴蔪蓲
-0xe760: 蔕蓷蓫蓳蓼蔒蓪蓩蔖蓾蔨è”è”®è”‚è“½è”žè“¶è”±è”¦è“§è“¨è“°è“¯è“¹è”˜è” è”°è”‹è”™è”¯è™¢
-0xe7a0: è–è£è¤è·èŸ¡è³è˜è”è›è’è¡èšè‘èžèèªèèŽèŸèè¯è¬èºè®èœè¥èè»èµè¢è§
-0xe7c0: è©è¡šè¤…褌褔褋褗褘褙褆褖褑褎褉覢覤覣è§è§°è§¬è«è«†èª¸è«“諑諔諕誻諗誾諀諅
-0xe7e0: 諘諃誺誽諙谾è±è²è³¥è³Ÿè³™è³¨è³šè³è³§è¶ è¶œè¶¡è¶›è¸ è¸£è¸¥è¸¤è¸®è¸•è¸›è¸–è¸‘è¸™è¸¦è¸§
-0xe840: è¸”è¸’è¸˜è¸“è¸œè¸—è¸šè¼¬è¼¤è¼˜è¼šè¼ è¼£è¼–è¼—é³é°é¯é§é«é„¯é„«é„©é„ªé„²é„¦é„®é†…醆醊é†é†‚
-0xe860: 醄醀é‹é‹ƒé‹„鋀鋙銶é‹é‹±é‹Ÿé‹˜é‹©é‹—é‹é‹Œé‹¯é‹‚鋨鋊鋈鋎鋦é‹é‹•é‹‰é‹ 鋞鋧鋑鋓
-0xe8a0: 銵鋡鋆銴镼閬閫閮閰隤隢雓霅霈霂éšéžŠéžŽéžˆéŸéŸé žé é ¦é ©é ¨é é ›é §é¢²é¤ˆ
-0xe8c0: 飺餑餔餖餗餕駜é§é§é§“駔駎駉駖駘駋駗駌骳髬髫髳髲髱é†éƒé§é´é±é¦é¶éµ
-0xe8e0: é°é¨é¤é¬é³¼é³ºé³½é³¿é³·é´‡é´€é³¹é³»é´ˆé´…鴄麃黓é¼é¼å„œå„“儗儚儑凞匴å¡å™°å™ å™®
-0xe940: 噳噦噣å™å™²å™žå™·åœœåœ›å£ˆå¢½å£‰å¢¿å¢ºå£‚墼壆嬗嬙嬛嬡嬔嬓å¬å¬–å¬¨å¬šå¬ å¬žå¯¯å¶¬å¶±
-0xe960: 嶩嶧嶵嶰嶮嶪嶨嶲å¶å¶¯å¶´å¹§å¹¨å¹¦å¹¯å»©å»§å»¦å»¨å»¥å½‹å¾¼æ†æ†¨æ†–懅憴懆æ‡æ‡Œæ†º
-0xe9a0: 憿憸憌擗擖æ“æ“擉撽撉擃擛擳擙攳敿敼斢曈暾曀曊曋æ›æš½æš»æšºæ›Œæœ£æ¨´æ©¦
-0xe9c0: 橉橧樲橨樾æ©æ©æ©¶æ©›æ©‘樨橚樻樿æ©æ©ªæ©¤æ©æ©æ©”æ©¯æ©©æ© æ¨¼æ©žæ©–æ©•æ©æ©Žæ©†æ•æ”
-0xe9e0: æ–殧殪殫毈毇氄氃氆æ¾æ¿‹æ¾£æ¿‡æ¾¼æ¿Žæ¿ˆæ½žæ¿„澽澞濊澨瀄澥澮澺澬澪æ¿æ¾¿æ¾¸
-0xea40: 澢濉澫æ¿æ¾¯æ¾²æ¾°ç‡…燂熿熸燖燀ç‡ç‡‹ç‡”燊燇ç‡ç†½ç‡˜ç†¼ç‡†ç‡šç‡›çŠçŠžç©ç¦ç§ç¬ç¥
-0xea60: ç«çªç‘¿ç’šç’ 璔璒璕璡甋疀瘯ç˜ç˜±ç˜½ç˜³ç˜¼ç˜µç˜²ç˜°çš»ç›¦çžšçžçž¡çžœçž›çž¢çž£çž•çž™
-0xeaa0: çž—ç£ç£©ç£¥ç£ªç£žç££ç£›ç£¡ç£¢ç£ç£Ÿç£ 禤穄穈穇窶窸窵窱窷篞篣篧ç¯ç¯•ç¯¥ç¯šç¯¨ç¯¹
-0xeac0: 篔篪篢篜篫篘篟糒糔糗ç³ç³‘ç¸’ç¸¡ç¸—ç¸Œç¸Ÿç¸ ç¸“ç¸Žç¸œç¸•ç¸šç¸¢ç¸‹ç¸ç¸–ç¸ç¸”縥縤罃
-0xeae0: 罻罼罺羱翯耪耩è¬è†±è†¦è†®è†¹è†µè†«è†°è†¬è†´è†²è†·è†§è‡²è‰•è‰–艗蕖蕅蕫è•è•“蕡蕘
-0xeb40: 蕀蕆蕤è•è•¢è•„è•‘è•‡è•£è”¾è•›è•±è•Žè•®è•µè••è•§è• è–Œè•¦è•è•”蕥蕬虣虥虤螛èžèž—èž“èž’
-0xeb60: 螈èžèž–螘è¹èž‡èž£èž…èžèž‘èžèž„螔螜螚螉褞褦褰è¤è¤®è¤§è¤±è¤¢è¤©è¤£è¤¯è¤¬è¤Ÿè§±è«
-0xeba0: 諢諲諴諵è«è¬”諤諟諰諈諞諡諨諿諯諻貑貒è²è³µè³®è³±è³°è³³èµ¬èµ®è¶¥è¶§è¸³è¸¾è¸¸
-0xebc0: 蹀蹅踶踼踽è¹è¸°è¸¿èº½è¼¶è¼®è¼µè¼²è¼¹è¼·è¼´é¶é¹é»é‚†éƒºé„³é„µé„¶é†“é†é†‘é†é†éŒ§éŒžéŒˆ
-0xebe0: 錟錆éŒéºéŒ¸éŒ¼éŒ›éŒ£éŒ’éŒé†éŒéŒŽéŒé‹‹éŒé‹ºéŒ¥éŒ“鋹鋷錴錂錤鋿錩錹錵錪錔錌
-0xec40: 錋鋾錉錀鋻錖閼é—閾閹閺閶閿閵閽隩雔霋霒éœéž™éž—éž”éŸ°éŸ¸é µé ¯é ²é¤¤é¤Ÿé¤§é¤©
-0xec60: 馞駮駬駥駤駰駣駪駩駧骹骿骴骻髶髺髹髷鬳鮀鮅鮇é¼é¾é»é®‚鮓鮒é®éºé®•
-0xeca0: é½é®ˆé´¥é´—é´ é´žé´”é´©é´é´˜é´¢é´é´™é´Ÿéºˆéº†éº‡éº®éºé»•é»–é»ºé¼’é¼½å„¦å„¥å„¢å„¤å„ å„©å‹´
-0xecc0: 嚓嚌åšåš†åš„嚃噾嚂噿åšå£–壔å£å£’å¬å¬¥å¬²å¬£å¬¬å¬§å¬¦å¬¯å¬®å»å¯±å¯²å¶·å¹¬å¹ªå¾¾å¾»æ‡ƒ
-0xece0: æ†µæ†¼æ‡§æ‡ æ‡¥æ‡¤æ‡¨æ‡žæ“¯æ“©æ“£æ“«æ“¤æ“¨æ–斀斶旚曒æªæª–æªæª¥æª‰æªŸæª›æª¡æªžæª‡æª“檎
-0xed40: 檕檃檨檤檑橿檦檚檅檌檒æ›æ®æ°‰æ¿Œæ¾©æ¿´æ¿”濣濜æ¿æ¿§æ¿¦æ¿žæ¿²æ¿æ¿¢æ¿¨ç‡¡ç‡±ç‡¨ç‡²
-0xed60: 燤燰燢ç³ç®ç¯ç’—璲璫ç’ç’ªç’璱璥璯ç”甑甒ç”疄癃癈癉癇皤盩瞵瞫瞲瞷瞶
-0xeda0: 瞴瞱瞨矰磳磽礂磻磼磲礅磹磾礄禫禨穜穛穖穘穔穚窾竀ç«ç°…ç°ç¯²ç°€ç¯¿ç¯»
-0xedc0: 簎篴簋篳簂簉簃ç°ç¯¸ç¯½ç°†ç¯°ç¯±ç°ç°Šç³¨ç¸ç¸¼ç¹‚縳顈縸縪繉繀繇縩繌縰縻縶繄
-0xede0: 縺罅罿罾罽翴翲耬膻臄臌臊臅臇膼臩艛艚艜薃薀è–è–§è–•è– è–‹è–£è•»è–¤è–šè–ž
-0xee40: 蕷蕼薉薡蕺蕸蕗薎薖薆è–è–™è–è–薢薂薈薅蕹蕶薘è–薟虨螾螪èžèŸ…螰螬螹螵
-0xee60: 螼螮蟉蟃蟂蟌螷螯蟄蟊螴螶螿螸螽蟞螲褵褳褼褾è¥è¥’褷襂è¦è¦¯è¦®è§²è§³è¬ž
-0xeea0: 謘謖謑謅謋謢è¬è¬’謕謇è¬è¬ˆè¬†è¬œè¬“謚è±è±°è±²è±±è±¯è²•è²”賹赯蹎è¹è¹“è¹è¹Œè¹‡
-0xeec0: 轃轀邅é¾é„¸é†šé†¢é†›é†™é†Ÿé†¡é†é† 鎡鎃鎯é¤é–é‡é¼é˜éœé¶é‰éé‘é ééŽéŒéªé¹
-0xeee0: é—é•é’éé±é·é»é¡éžé£é§éŽ€éŽé™é—‡é—€é—‰é—ƒé—…é–·éš®éš°éš¬éœ éœŸéœ˜éœéœ™éžšéž¡éžœ
-0xef40: éžžéžéŸ•éŸ”韱é¡é¡„顊顉顅顃餥餫餬餪餳餲餯é¤é¤±é¤°é¦˜é¦£é¦¡é¨‚駺駴駷駹駸駶駻
-0xef60: 駽駾駼騃骾髾髽é¬é«¼éˆé®šé®¨é®žé®›é®¦é®¡é®¥é®¤é®†é®¢é® 鮯鴳éµéµ§é´¶é´®é´¯é´±é´¸é´°
-0xefa0: 鵅鵂鵃鴾鴷鵀鴽翵é´éºŠéº‰éºéº°é»ˆé»šé»»é»¿é¼¤é¼£é¼¢é½”é¾ å„±å„儮嚘嚜嚗嚚åšåš™
-0xefc0: 奰嬼屩屪巀å¹å¹®æ‡˜æ‡Ÿæ‡æ‡®æ‡±æ‡ªæ‡°æ‡«æ‡–懩擿攄擽擸æ”攃擼斔旛曚曛曘櫅檹檽
-0xefe0: 櫡櫆檺檶檷櫇檴æªæžæ¯‰æ°‹ç€‡ç€Œç€ç€ç€…瀔瀎濿瀀濻瀦濼濷瀊çˆç‡¿ç‡¹çˆƒç‡½ç¶
-0xf040: 璸瓀璵ç“璾璶璻瓂甔甓癜癤癙ç™ç™“癗癚皦皽盬矂瞺磿礌礓礔礉ç¤ç¤’礑ç¦ç¦¬
-0xf060: ç©Ÿç°œç°©ç°™ç° ç°Ÿç°ç°ç°¦ç°¨ç°¢ç°¥ç°°ç¹œç¹ç¹–ç¹£ç¹˜ç¹¢ç¹Ÿç¹‘ç¹ ç¹—ç¹“ç¾µç¾³ç¿·ç¿¸èµè‡‘臒
-0xf0a0: è‡è‰Ÿè‰žè–´è—†è—€è—ƒè—‚薳薵薽藇藄薿藋藎藈藅薱薶藒蘤薸薷薾虩蟧蟦蟢蟛蟫
-0xf0c0: 蟪蟥蟟蟳蟤蟔蟜蟓èŸèŸ˜èŸ£èž¤èŸ—蟙è 蟴蟨èŸè¥“襋è¥è¥Œè¥†è¥è¥‘襉謪謧謣謳謰謵
-0xf0e0: è‡è¬¯è¬¼è¬¾è¬±è¬¥è¬·è¬¦è¬¶è¬®è¬¤è¬»è¬½è¬ºè±‚è±µè²™è²˜è²—è³¾è´„è´‚è´€è¹œè¹¢è¹ è¹—è¹–è¹žè¹¥è¹§
-0xf140: 蹛蹚蹡è¹è¹©è¹”轆轇轈轋鄨鄺鄻鄾醨醥醧醯醪鎵鎌鎒鎷鎛éŽéŽ‰éŽ§éŽŽéŽªéŽžéŽ¦éŽ•
-0xf160: 鎈鎙鎟éŽéŽ±éŽ‘鎲鎤鎨鎴鎣鎥闒闓闑隳雗雚巂雟雘é›éœ£éœ¢éœ¥éž¬éž®éž¨éž«éž¤éžª
-0xf1a0: 鞢鞥韗韙韖韘韺é¡é¡‘顒颸é¥é¤¼é¤ºé¨é¨‹é¨‰é¨é¨„騑騊騅騇騆髀髜鬈鬄鬅鬩鬵
-0xf1c0: éŠéŒé‹é¯‡é¯†é¯ƒé®¿é¯é®µé®¸é¯“鮶鯄鮹鮽鵜鵓éµéµŠéµ›éµ‹éµ™éµ–鵌鵗鵒鵔鵟鵘鵚麎麌
-0xf1e0: 黟é¼é¼€é¼–鼥鼫鼪鼩鼨齌齕儴儵劖勷厴嚫åšåš¦åš§åšªåš¬å£šå£å£›å¤’嬽嬾嬿巃幰
-0xf240: 徿懻攇æ”æ”攉攌攎斄旞æ—æ›žæ«§æ« æ«Œæ«‘æ«™æ«‹æ«Ÿæ«œæ«æ««æ«æ«æ«žæ æ®°æ°Œç€™ç€§ç€ ç€–
-0xf260: ç€«ç€¡ç€¢ç€£ç€©ç€—ç€¤ç€œç€ªçˆŒçˆŠçˆ‡çˆ‚çˆ…çŠ¥çŠ¦çŠ¤çŠ£çŠ¡ç“‹ç“…ç’·ç“ƒç”–ç™ çŸ‰çŸŠçŸ„çŸ±ç¤ç¤›
-0xf2a0: 礡礜礗礞禰穧穨簳簼簹簬簻糬糪繶繵繸繰繷繯繺繲繴繨罋罊羃羆羷翽翾
-0xf2c0: è¸è‡—臕艤艡艣藫藱è—è—™è—¡è—¨è—šè——è—¬è—²è—¸è—˜è—Ÿè—£è—œè—‘è—°è—¦è—¯è—žè—¢è €èŸºè ƒèŸ¶èŸ·
-0xf2e0: è ‰è Œè ‹è †èŸ¼è ˆèŸ¿è Šè ‚è¥¢è¥šè¥›è¥—è¥¡è¥œè¥˜è¥è¥™è¦ˆè¦·è¦¶è§¶èèˆèŠè€è“è–è”è‹è•
-0xf340: è‘è‚è’è—豃豷豶貚贆贇贉趬趪è¶è¶«è¹è¹¸è¹³è¹ªè¹¯è¹»è»‚轒轑è½è½è½“辴酀鄿醰é†
-0xf360: éžé‡éé‚éšéé¹é¬éŒé™éŽ©é¦éŠé”é®é£é•é„éŽé€é’é§é•½é—šé—›é›¡éœ©éœ«éœ¬éœ¨éœ¦
-0xf3a0: 鞳鞷鞶éŸéŸžéŸŸé¡œé¡™é¡é¡—颿颽颻颾饈饇饃馦馧騚騕騥é¨é¨¤é¨›é¨¢é¨ 騧騣騞騜
-0xf3c0: é¨”é«‚é¬‹é¬Šé¬Žé¬Œé¬·é¯ªé¯«é¯ é¯žé¯¤é¯¦é¯¢é¯°é¯”é¯—é¯¬é¯œé¯™é¯¥é¯•é¯¡é¯šéµ·é¶é¶Šé¶„鶈鵱鶀鵸
-0xf3e0: 鶆鶋鶌鵽鵫鵴鵵鵰鵩鶅鵳鵻鶂鵯鵹鵿鶇鵨麔麑黀黼é¼é½€é½é½é½–齗齘匷嚲
-0xf440: 嚵嚳壣å…巆巇廮廯忀å¿æ‡¹æ”—攖攕攓旟曨曣曤櫳櫰櫪櫨櫹櫱櫮櫯瀼瀵瀯瀷瀴
-0xf460: 瀱ç‚瀸瀿瀺瀹ç€ç€»ç€³ç爓爔犨ç½ç¼ç’ºçš«çšªçš¾ç›çŸŒçŸŽçŸçŸçŸ²ç¤¥ç¤£ç¤§ç¤¨ç¤¤ç¤©
-0xf4a0: 禲穮穬ç©ç«·ç±‰ç±ˆç±Šç±‡ç±…糮繻繾çºçº€ç¾ºç¿¿è¹è‡›è‡™èˆ‹è‰¨è‰©è˜¢è—¿è˜è—¾è˜›è˜€è—¶è˜„
-0xf4c0: è˜‰è˜…è˜Œè—½è ™è è ‘è —è “è –è¥£è¥¦è¦¹è§·è èªèè¨è£è¥è§è趮躆躈躄轙轖轗轕轘轚
-0xf4e0: é‚é…ƒé…醷醵醲醳é‹é“é»é éé”é¾é•éé¨é™ééµé€é·é‡éŽé–é’éºé‰é¸éŠé¿
-0xf540: é¼éŒé¶é‘é†é—žé— é—Ÿéœ®éœ¯éž¹éž»éŸ½éŸ¾é¡ é¡¢é¡£é¡Ÿé£é£‚é¥é¥Žé¥™é¥Œé¥‹é¥“騲騴騱騬騪騶
-0xf560: 騩騮騸é¨é«‡é«Šé«†é¬é¬’鬑鰋鰈鯷鰅鰒鯸鱀鰇鰎鰆鰗鰔鰉鶟鶙鶤é¶é¶’鶘é¶é¶›
-0xf5a0: é¶ é¶”é¶œé¶ªé¶—é¶¡é¶šé¶¢é¶¨é¶žé¶£é¶¿é¶©é¶–é¶¦é¶§éº™éº›éºšé»¥é»¤é»§é»¦é¼°é¼®é½›é½ é½žé½é½™é¾‘
-0xf5c0: 儺儹劘劗囃嚽嚾åˆå‡å·‹å·å»±æ‡½æ”›æ¬‚櫼欃櫸欀çƒç„çŠçˆç‰ç…ç†çˆçˆšçˆ™ç¾ç”—癪
-0xf5e0: çŸç¤ç¤±ç¤¯ç±”籓糲纊纇纈纋纆çºç½ç¾»è€°è‡è˜˜è˜ªè˜¦è˜Ÿè˜£è˜œè˜™è˜§è˜®è˜¡è˜ 蘩蘞蘥
-0xf640: è ©è è ›è è ¤è œè «è¡Šè¥è¥©è¥®è¥«è§ºè¹è¸è…èºè»è´è´”趯躎躌轞轛è½é…†é…„酅醹é¿é»
-0xf660: é¶é©é½é¼é°é¹éªé·é¬é‘€é±é—¥é—¤é—£éœµéœºéž¿éŸ¡é¡¤é£‰é£†é£€é¥˜é¥–騹騽驆驄驂é©é¨º
-0xf6a0: 騿é«é¬•é¬—鬘鬖鬺é’é°«é°é°œé°¬é°£é°¨é°©é°¤é°¡é¶·é¶¶é¶¼é·é·‡é·Šé·é¶¾é·…鷃鶻鶵鷎鶹
-0xf6c0: 鶺鶬鷈鶱é¶é·Œé¶³é·é¶²é¹ºéºœé»«é»®é»é¼›é¼˜é¼šé¼±é½Žé½¥é½¤é¾’亹囆囅囋奱å‹åŒå·•å·‘廲
-0xf6e0: æ”¡æ” æ”¦æ”¢æ¬‹æ¬ˆæ¬‰æ°ç•ç–ç—ç’爞爟犩ç¿ç“˜ç“•ç“™ç“—ç™çšç¤µç¦´ç©°ç©±ç±—籜籙籛籚
-0xf740: 糴糱纑ç½ç¾‡è‡žè‰«è˜´è˜µè˜³è˜¬è˜²è˜¶è ¬è ¨è ¦è ªè ¥è¥±è¦¿è¦¾è§»è¾è®„讂讆讅è¿è´•èº•èº”躚
-0xf760: 躒èºèº–èº—è½ è½¢é…‡é‘Œé‘é‘Šé‘‹é‘鑇鑅鑈鑉鑆霿韣顪顩飋饔饛驎驓驔驌é©é©ˆé©Š
-0xf7a0: 驉驒é©é«é¬™é¬«é¬»é–é•é±†é±ˆé°¿é±„鰹鰳é±é°¼é°·é°´é°²é°½é°¶é·›é·’é·žé·šé·‹é·é·œé·‘é·Ÿ
-0xf7c0: 鷩鷙鷘鷖鷵鷕é·éº¶é»°é¼µé¼³é¼²é½‚齫龕龢儽劙壨壧奲åå·˜è ¯å½æˆæˆƒæˆ„攩攥斖曫
-0xf7e0: 欑欒æ¬æ¯Šç›çšçˆ¢çŽ‚çŽçŽƒç™°çŸ”ç±§ç±¦çº•è‰¬è˜ºè™€è˜¹è˜¼è˜±è˜»è˜¾è °è ²è ®è ³è¥¶è¥´è¥³è§¾
-0xf840: 讌讎讋讈豅贙躘轤轣醼鑢鑕é‘é‘—é‘žéŸ„éŸ…é €é©–é©™é¬žé¬Ÿé¬ é±’é±˜é±é±Šé±é±‹é±•é±™é±Œ
-0xf860: 鱎鷻鷷鷯鷣鷫鷸鷤鷶鷡鷮鷦鷲鷰鷢鷬鷴鷳鷨é·é»‚é»é»²é»³é¼†é¼œé¼¸é¼·é¼¶é½ƒé½
-0xf8a0: 齱齰齮齯囓å›åŽå±æ”æ›æ›®æ¬“çŸç¡çç 爣瓛瓥矕礸禷禶籪纗羉è‰è™ƒè ¸è ·è µ
-0xf8c0: è¡‹è®”è®•èºžèºŸèº èºé†¾é†½é‡‚鑫鑨鑩雥é†éƒé‡éŸ‡éŸ¥é©žé«•é™é±£é±§é±¦é±¢é±žé± 鸂鷾鸇鸃
-0xf8e0: 鸆鸅鸀é¸é¸‰é·¿é·½é¸„éº é¼žé½†é½´é½µé½¶å›”æ”®æ–¸æ¬˜æ¬™æ¬—æ¬šç¢çˆ¦çŠªçŸ˜çŸ™ç¤¹ç±©ç±«ç³¶çºš
-0xf940: çº˜çº›çº™è‡ è‡¡è™†è™‡è™ˆè¥¹è¥ºè¥¼è¥»è§¿è®˜è®™èº¥èº¤èº£é‘®é‘鑯鑱鑳é‰é¡²é¥Ÿé±¨é±®é±é¸‹é¸é¸
-0xf960: é¸é¸’鸑麡黵鼉齇齸齻齺齹圞ç¦ç±¯è ¼è¶²èº¦é‡ƒé‘´é‘¸é‘¶é‘µé© 鱴鱳鱱鱵鸔鸓黶鼊
-0xf9a0: 龤ç¨ç¥ç³·è™ªè ¾è ½è ¿è®žè²œèº©è»‰é‹é¡³é¡´é£Œé¥¡é¦«é©¤é©¦é©§é¬¤é¸•é¸—齈戇欞爧虌躨钂
-0xf9c0: é’€é’驩驨鬮鸙爩虋讟钃鱹麷癵驫鱺é¸ç©çªéº¤é½¾é½‰é¾˜ç¢éŠ¹è£å¢»æ’粧嫺╔╦╗
-0xf9e0: ╠╬╣╚╩â•â•’╤╕╞╪╡╘╧╛╓╥╖╟╫╢╙╨╜║╠ï¿
-0xfa40: 鋛蕌䊵ç¯å†µã™‰î€‰î€Šé„î€Œè‹®î€Žç ¼æ„拟侫倈î€î€ž
-0xfa60: î€ å¾¤î€¢î€£æ»›î€¥ å„㑺儎顬ãƒè–î€î€®å… 兪宂è½î€»î€¼å†²å†¸
-0xfaa0: 鴴凉å‡å‡‘㳜凓î…决凢å‚å‡è椾îŒå½»åˆ‹åˆ¦åˆ¼åŠµå‰—åŠ”åŠ¹å‹…ç°•è•‚å‹ è˜îš îœå•‰
-0xfac0: æ»™îŸî î¡åŒ³ î¤æ³‹î¦æ ›ç•æŠãºªã£Œî¬ç‡ä’¢åå´î±å¾ î´îµçŸ¦åŽ“î¸åŽ 厫厮玧î½
-0xfae0: 㽙玜åå…汉义埾å™ãª«î‚‡å å¶î‚Œå“ç¹å”«æ™—æµ›å‘î‚“î‚”å•å’咤䞦㶴
-0xfb40: î‚啇ä³å¯ç—喆喩 䕒暳嘷æ›î‚®æš¤æšå™å™ç£±å›±éž‡å¾åœ€å›¯å›î‚ºã˜£î‚¼
-0xfb60: å†î‚¾æ±®ç‚‹å‚ãš±îƒƒåŸ¦îƒ…å ƒîƒ‡îƒˆå ¦îƒŠå¡œå¢ªã•¡å£ å£œîƒå£»å¯¿åƒîƒ”é“㖡够梦㛃湙
-0xfba0: 娤啓蔅姉姙浱姹媫婣㛦 㜈媖瑥嫓㶅
-0xfbc0: 㜲広å‹å¶æ–ˆå¼î„ƒä€„ä¡î„†å¯•æ… 寳å®ä´å°…î„å°“çŽå°”屉ä£å²…峩峯
-0xfbe0: 嶋î„å´å´˜åµ†î„¡å²ºå·—苼ã 芇㠶㯂帮檊 幺厦亷 厨帉廴
-0xfc40: å»¹å»»ã¢ å»¼æ ¾é›å¼î…㫞䢮强 彣鞽î…å½²é€î…徧嶶㵟釖
-0xfc60: 怱暅î…㥣㷇㘹åžî…¢ç¥±ã¹€æ‚ž æ‚³î…¨î…©î…ªç’¤åƒ¡åª æ…¤è¤æ…‚æ†å‡´î…µæ†‡å®ªî…¸
-0xfca0: 懓æ‡ã¤²î…¿î†€æ€£æ…œæ”žæŽ‹î†…担拕æ¬î†‹ã¨—æ¸æ¸î†î† æ¾Šî†“é ”î†•î†–æ“¡
-0xfcc0: 擥鑻㩦æºã©—æ•æ¼–î†Ÿî† æ–…æ•æ•Ÿî†¤æ–µî†¦ä¬·æ—‘äƒ˜î†ªæ— æ—£å¿Ÿî†®æ˜˜î†°î†±æ™„î†³î†´æ™‹î†¶æ™§
-0xfce0: 晳 矅î‡é¦¤æœ‚㬫槺 æ§æ¢î‡Œî‡æŸ—ä“©æ ¢æ¹éˆ¼æ æ¡
-0xfd40: 槡樋楳棃î‡æ¤æ¤€ã´²ã¨î‡¢ã®€æž¬æ¥¡î‡¦ä‹¼æ¤¶æ¦˜ã®¡î‡«è£å‚槹橅æªã¯³æž±æ«ˆ
-0xfd60: ã°æ¬î‡ºæƒžæ¬µæ´î‡¾æºµîˆ€îˆîˆ‚ã€å¡îˆ…毡毜氷汚舦汹îˆä“…
-0xfda0: 㛥㳫鮃ç¾æ ·îˆŸîˆ 涖浜湼漄蔳凇 è®îˆ¯ 瑓秌
-0xfdc0: æ¹åª‘濸ãœæ¾îˆ»æ»ºîˆ½îˆ¾ä••é°æ½„潜㵎潴㴻澟濓î‰î‰Žî‰å‡Ÿî‰‘
-0xfde0: ç‹ç¾ç‚§ç‚烌烕烖烟䄄㷨熴熖焫煅媈煊 岜ç…é¢î‰«ç„¬î‰î‰®î‰¯ç†ºî‰±ç‚½çˆŽ
-0xfe40: 鑂爕夑鑃爤é爮牀梽牕牗㹕æ 漽犂 猫ä£îŠ‹çŒ¨çŒ®ç玪îŠîŠ‘ç‰ç‘‰
-0xfe60: 昣㛅ç·ç•æ¤ƒîŠŸç¹îŠ¡ã»— îŠ¤ç‘ îŠ¦ç‘‡ç¤ç‘¶èŽ¹ç‘¬ãœ°ç‘´é±æ¨¬ç’‚䥓
-0xfea0: å†îŠ·îŠ¸ç“ˆîŠºç”Ž 甞寗î‹éŽ…ç•ç•Šç•§ç•®î‹‡ã¼„疎ç‘疞疴瘂瘬癑ç™
-0xfec0: 癯癶çšè‡¯ãŸ¸î‹˜î‹™çš¡çš¥çš·ç›Œî‹žè‘¢î‹ 眞眦ç€æ’¯î‹§ç˜î‹©çž¯î‹«î‹¬î‹çŸ´ 
-0xfee0: 棊碯磇磓隥礮磗礴碱辸袄îŒç¦†è¤€æ¤‚禀ç¦îŒˆç¤¼ç¦©æ¸ªîŒŒãº¨ç§†îŒç§”
diff --git a/3.8.8/sources/cpan-Encode/vendor/t/enc_data.t b/3.8.8/sources/cpan-Encode/vendor/t/enc_data.t
deleted file mode 100644
index 52d7e11..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/t/enc_data.t
+++ /dev/null
@@ -1,44 +0,0 @@
-# $Id: enc_data.t,v 2.1 2006/05/03 18:24:10 dankogai Exp $
-
-BEGIN {
- require Config; import Config;
- if ($Config{'extensions'} !~ /\bEncode\b/) {
- print "1..0 # Skip: Encode was not built\n";
- exit 0;
- }
- unless (find PerlIO::Layer 'perlio') {
- print "1..0 # Skip: PerlIO was not built\n";
- exit 0;
- }
- if (ord("A") == 193) {
- print "1..0 # encoding pragma does not support EBCDIC platforms\n";
- exit(0);
- }
- if ($] <= 5.008 and !$Config{perl_patchlevel}){
- print "1..0 # Skip: Perl 5.8.1 or later required\n";
- exit 0;
- }
-}
-
-
-use strict;
-use encoding 'euc-jp';
-use Test::More tests => 4;
-
-my @a;
-
-while (<DATA>) {
- chomp;
- tr/¤¡-¤ó¥¡-¥ó/¥¡-¥ó¤¡-¤ó/;
- push @a, $_;
-}
-
-is(scalar @a, 3);
-is($a[0], "¥³¥ì¥ÏDATA¤Õ¤¡¤¤¤ë¤Ï¤ó¤É¤ë¥Î¤Æ¤¹¤È¥Ç¥¹¡£");
-is($a[1], "ÆüËܸ쥬¥Á¥ã¥ó¥ÈÊÑ´¹¥Ç¥¥ë¥«");
-is($a[2], "¥É¥¦¥«¥Î¤Æ¤¹¤È¥ò¥·¥Æ¥¤¥Þ¥¹¡£");
-
-__DATA__
-¤³¤ì¤ÏDATA¥Õ¥¡¥¤¥ë¥Ï¥ó¥É¥ë¤Î¥Æ¥¹¥È¤Ç¤¹¡£
-ÆüËܸ줬¤Á¤ã¤ó¤ÈÊÑ´¹¤Ç¤¤ë¤«
-¤É¤¦¤«¤Î¥Æ¥¹¥È¤ò¤·¤Æ¤¤¤Þ¤¹¡£
diff --git a/3.8.8/sources/cpan-Encode/vendor/t/enc_eucjp.t b/3.8.8/sources/cpan-Encode/vendor/t/enc_eucjp.t
deleted file mode 100644
index 2fdd811..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/t/enc_eucjp.t
+++ /dev/null
@@ -1,83 +0,0 @@
-# $Id: enc_eucjp.t,v 2.1 2006/05/03 18:24:10 dankogai Exp $
-# This is the twin of enc_utf8.t .
-
-BEGIN {
- require Config; import Config;
- if ($Config{'extensions'} !~ /\bEncode\b/) {
- print "1..0 # Skip: Encode was not built\n";
- exit 0;
- }
- unless (find PerlIO::Layer 'perlio') {
- print "1..0 # Skip: PerlIO was not built\n";
- exit 0;
- }
- if (ord("A") == 193) {
- print "1..0 # encoding pragma does not support EBCDIC platforms\n";
- exit(0);
- }
- if ($] <= 5.008 and !$Config{perl_patchlevel}){
- print "1..0 # Skip: Perl 5.8.1 or later required\n";
- exit 0;
- }
-}
-
-use encoding 'euc-jp';
-
-my @c = (127, 128, 255, 256);
-
-print "1.." . (scalar @c + 1) . "\n";
-
-my @f;
-
-for my $i (0..$#c) {
- no warnings 'pack';
- my $file = filename("f$i");
- push @f, $file;
- open(F, ">$file") or die "$0: failed to open '$file' for writing: $!";
- binmode(F, ":utf8");
- print F chr($c[$i]);
- print F pack("C" => $c[$i]);
- close F;
-}
-
-my $t = 1;
-
-for my $i (0..$#c) {
- my $file = filename("f$i");
- open(F, "<$file") or die "$0: failed to open '$file' for reading: $!";
- binmode(F, ":utf8");
- my $c = <F>;
- my $o = ord($c);
- print $o == $c[$i] ? "ok $t - utf8 I/O $c[$i]\n" : "not ok $t - utf8 I/O $c[$i]: $o != $c[$i]\n";
- $t++;
-}
-
-my $f = filename("f" . @f);
-
-push @f, $f;
-open(F, ">$f") or die "$0: failed to open '$f' for writing: $!";
-binmode(F, ":raw"); # Output raw bytes.
-print F chr(128); # Output illegal UTF-8.
-close F;
-open(F, $f) or die "$0: failed to open '$f' for reading: $!";
-binmode(F, ":encoding(utf-8)");
-{
- local $^W = 1;
- local $SIG{__WARN__} = sub { $a = shift };
- eval { <F> }; # This should get caught.
-}
-close F;
-print $a =~ qr{^utf8 "\\x80" does not map to Unicode} ?
- "ok $t - illegal utf8 input\n" : "not ok $t - illegal utf8 input: a = " . unpack("H*", $a) . "\n";
-
-# On VMS temporary file names like "f0." may be more readable than "f0" since
-# "f0" could be a logical name pointing elsewhere.
-sub filename {
- my $name = shift;
- $name .= '.' if $^O eq 'VMS';
- return $name;
-}
-
-END {
- 1 while unlink @f;
-}
diff --git a/3.8.8/sources/cpan-Encode/vendor/t/encoding.t b/3.8.8/sources/cpan-Encode/vendor/t/encoding.t
deleted file mode 100644
index b17b11f..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/t/encoding.t
+++ /dev/null
@@ -1,203 +0,0 @@
-BEGIN {
- require Config; import Config;
- if ($Config{'extensions'} !~ /\bEncode\b/) {
- print "1..0 # Skip: Encode was not built\n";
- exit 0;
- }
- unless (find PerlIO::Layer 'perlio') {
- print "1..0 # Skip: PerlIO was not built\n";
- exit 0;
- }
- if (ord("A") == 193) {
- print "1..0 # encoding pragma does not support EBCDIC platforms\n";
- exit(0);
- }
-}
-
-print "1..31\n";
-
-use encoding "latin1"; # ignored (overwritten by the next line)
-use encoding "greek"; # iso 8859-7 (no "latin" alias, surprise...)
-
-# "greek" is "ISO 8859-7", and \xDF in ISO 8859-7 is
-# \x{3AF} in Unicode (GREEK SMALL LETTER IOTA WITH TONOS),
-# instead of \xDF in Unicode (LATIN SMALL LETTER SHARP S)
-
-$a = "\xDF";
-$b = "\x{100}";
-
-print "not " unless ord($a) == 0x3af;
-print "ok 1\n";
-
-print "not " unless ord($b) == 0x100;
-print "ok 2\n";
-
-my $c;
-
-$c = $a . $b;
-
-print "not " unless ord($c) == 0x3af;
-print "ok 3\n";
-
-print "not " unless length($c) == 2;
-print "ok 4\n";
-
-print "not " unless ord(substr($c, 1, 1)) == 0x100;
-print "ok 5\n";
-
-print "not " unless ord(chr(0xdf)) == 0x3af; # spooky
-print "ok 6\n";
-
-print "not " unless ord(pack("C", 0xdf)) == 0x3af;
-print "ok 7\n";
-
-# we didn't break pack/unpack, I hope
-
-print "not " unless unpack("C", pack("C", 0xdf)) == 0xdf;
-print "ok 8\n";
-
-# the first octet of UTF-8 encoded 0x3af
-print "not " unless unpack("U0 C", chr(0xdf)) == 0xce;
-print "ok 9\n";
-
-print "not " unless unpack("U", pack("U", 0xdf)) == 0xdf;
-print "ok 10\n";
-
-print "not " unless unpack("U", chr(0xdf)) == 0x3af;
-print "ok 11\n";
-
-# charnames must still work
-use charnames ':full';
-print "not " unless ord("\N{LATIN SMALL LETTER SHARP S}") == 0xdf;
-print "ok 12\n";
-
-# combine
-
-$c = "\xDF\N{LATIN SMALL LETTER SHARP S}" . chr(0xdf);
-
-print "not " unless ord($c) == 0x3af;
-print "ok 13\n";
-
-print "not " unless ord(substr($c, 1, 1)) == 0xdf;
-print "ok 14\n";
-
-print "not " unless ord(substr($c, 2, 1)) == 0x3af;
-print "ok 15\n";
-
-# regex literals
-
-print "not " unless "\xDF" =~ /\x{3AF}/;
-print "ok 16\n";
-
-print "not " unless "\x{3AF}" =~ /\xDF/;
-print "ok 17\n";
-
-print "not " unless "\xDF" =~ /\xDF/;
-print "ok 18\n";
-
-print "not " unless "\x{3AF}" =~ /\x{3AF}/;
-print "ok 19\n";
-
-# eq, cmp
-
-my ($byte,$bytes,$U,$Ub,$g1,$g2,$l) = (
- pack("C*", 0xDF ), # byte
- pack("C*", 0xDF, 0x20), # ($bytes2 cmp $U) > 0
- pack("U*", 0x3AF), # $U eq $byte
- pack("U*", 0xDF ), # $Ub would eq $bytev w/o use encoding
- pack("U*", 0x3B1), # ($g1 cmp $byte) > 0; === chr(0xe1)
- pack("U*", 0x3AF, 0x20), # ($g2 cmp $byte) > 0;
- pack("U*", 0x3AB), # ($l cmp $byte) < 0; === chr(0xdb)
-);
-
-# all the tests in this section that compare a byte encoded string
-# ato UTF-8 encoded are run in all possible vairants
-# all of the eq, ne, cmp operations tested,
-# $v z $u tested as well as $u z $v
-
-sub alleq($$){
- my ($a,$b) = (shift, shift);
- $a eq $b && $b eq $a &&
- !( $a ne $b ) && !( $b ne $a ) &&
- ( $a cmp $b ) == 0 && ( $b cmp $a ) == 0;
-}
-
-sub anyeq($$){
- my ($a,$b) = (shift, shift);
- $a eq $b || $b eq $a ||
- !( $a ne $b ) || !( $b ne $a ) ||
- ( $a cmp $b ) == 0 || ( $b cmp $a ) == 0;
-}
-
-sub allgt($$){
- my ($a,$b) = (shift, shift);
- ( $a cmp $b ) == 1 && ( $b cmp $a ) == -1;
-}
-#match the correct UTF-8 string
-print "not " unless alleq($byte, $U);
-print "ok 20\n";
-
-#do not match a wrong UTF-8 string
-print "not " if anyeq($byte, $Ub);
-print "ok 21\n";
-
-#string ordering
-print "not " unless allgt ( $g1, $byte ) &&
- allgt ( $g2, $byte ) &&
- allgt ( $byte, $l ) &&
- allgt ( $bytes, $U );
-print "ok 22\n";
-
-# upgrade, downgrade
-
-my ($u,$v,$v2);
-$u = $v = $v2 = pack("C*", 0xDF);
-utf8::upgrade($v); #explicit upgrade
-$v2 = substr( $v2."\x{410}", 0, -1); #implicit upgrade
-
-# implicit upgrade === explicit upgrade
-print "not " if do{{use bytes; $v ne $v2}} || $v ne $v2;
-print "ok 23\n";
-
-# utf8::upgrade is transparent and does not break equality
-print "not " unless alleq( $u, $v );
-print "ok 24\n";
-
-$u = $v = pack("C*", 0xDF);
-utf8::upgrade($v);
-#test for a roundtrip, we should get back from where we left
-eval {utf8::downgrade( $v )};
-print "not " if $@ !~ /^Wide / || do{{use bytes; $u eq $v}} || $u ne $v;
-print "ok 25\n";
-
-# some more eq, cmp
-
-$byte=pack("C*", 0xDF);
-
-print "not " unless pack("U*", 0x3AF) eq $byte;
-print "ok 26\n";
-
-print "not " if chr(0xDF) cmp $byte;
-print "ok 27\n";
-
-print "not " unless ((pack("U*", 0x3B0) cmp $byte) == 1) &&
- ((pack("U*", 0x3AE) cmp $byte) == -1) &&
- ((pack("U*", 0x3AF, 0x20) cmp $byte) == 1) &&
- ((pack("U*", 0x3AF) cmp pack("C*",0xDF,0x20))==-1);
-print "ok 28\n";
-
-
-{
- # Used to core dump in 5.7.3
- no warnings; # so test goes noiselessly
- print ord(undef) == 0 ? "ok 29\n" : "not ok 29\n";
-}
-
-{
- my %h1;
- my %h2;
- $h1{"\xdf"} = 41;
- $h2{"\x{3af}"} = 42;
- print $h1{"\x{3af}"} == 41 ? "ok 30\n" : "not ok 30\n";
- print $h2{"\xdf"} == 42 ? "ok 31\n" : "not ok 31\n";
-}
diff --git a/3.8.8/sources/cpan-Encode/vendor/t/fallback.t b/3.8.8/sources/cpan-Encode/vendor/t/fallback.t
deleted file mode 100644
index 8ef8ab3..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/t/fallback.t
+++ /dev/null
@@ -1,184 +0,0 @@
-BEGIN {
- if ($ENV{'PERL_CORE'}){
- chdir 't';
- unshift @INC, '../lib';
- }
- require Config; import Config;
- if ($Config{'extensions'} !~ /\bEncode\b/) {
- print "1..0 # Skip: Encode was not built\n";
- exit 0;
- }
- if (ord("A") == 193) {
- print "1..0 # Skip: EBCDIC\n";
- exit 0;
- }
- $| = 1;
-}
-
-use strict;
-#use Test::More qw(no_plan);
-use Test::More tests => 50;
-use Encode q(:all);
-
-my $uo = '';
-my $nf = '';
-my ($af, $aq, $ap, $ah, $ax, $uf, $uq, $up, $uh, $ux, $ac, $uc);
-for my $i (0x20..0x7e){
- $uo .= chr($i);
-}
-$af = $aq = $ap = $ah = $ax = $ac =
-$uf = $uq = $up = $uh = $ux = $uc =
-$nf = $uo;
-
-my $residue = '';
-for my $i (0x80..0xff){
- $uo .= chr($i);
- $residue .= chr($i);
- $af .= '?';
- $uf .= "\x{FFFD}";
- $ap .= sprintf("\\x{%04x}", $i);
- $up .= sprintf("\\x%02X", $i);
- $ah .= sprintf("&#%d;", $i);
- $uh .= sprintf("\\x%02X", $i);
- $ax .= sprintf("&#x%x;", $i);
- $ux .= sprintf("\\x%02X", $i);
- $ac .= sprintf("<U+%04X>", $i);
- $uc .= sprintf("[%02X]", $i);
-}
-
-my $ao = $uo;
-utf8::upgrade($uo);
-
-my $ascii = find_encoding('ascii');
-my $utf8 = find_encoding('utf8');
-
-my $src = $uo;
-my $dst = $ascii->encode($src, FB_DEFAULT);
-is($dst, $af, "FB_DEFAULT ascii");
-is($src, $uo, "FB_DEFAULT residue ascii");
-
-$src = $ao;
-$dst = $utf8->decode($src, FB_DEFAULT);
-is($dst, $uf, "FB_DEFAULT utf8");
-is($src, $ao, "FB_DEFAULT residue utf8");
-
-$src = $uo;
-eval{ $dst = $ascii->encode($src, FB_CROAK) };
-like($@, qr/does not map to ascii/o, "FB_CROAK ascii");
-is($src, $uo, "FB_CROAK residue ascii");
-
-$src = $ao;
-eval{ $dst = $utf8->decode($src, FB_CROAK) };
-like($@, qr/does not map to Unicode/o, "FB_CROAK utf8");
-is($src, $ao, "FB_CROAK residue utf8");
-
-$src = $nf;
-eval{ $dst = $ascii->encode($src, FB_CROAK) };
-is($@, '', "FB_CROAK on success ascii");
-is($src, '', "FB_CROAK on success residue ascii");
-
-$src = $nf;
-eval{ $dst = $utf8->decode($src, FB_CROAK) };
-is($@, '', "FB_CROAK on success utf8");
-is($src, '', "FB_CROAK on success residue utf8");
-
-$src = $uo;
-$dst = $ascii->encode($src, FB_QUIET);
-is($dst, $aq, "FB_QUIET ascii");
-is($src, $residue, "FB_QUIET residue ascii");
-
-$src = $ao;
-$dst = $utf8->decode($src, FB_QUIET);
-is($dst, $uq, "FB_QUIET utf8");
-is($src, $residue, "FB_QUIET residue utf8");
-
-{
- my $message = '';
- local $SIG{__WARN__} = sub { $message = $_[0] };
-
- $src = $uo;
- $dst = $ascii->encode($src, FB_WARN);
- is($dst, $aq, "FB_WARN ascii");
- is($src, $residue, "FB_WARN residue ascii");
- like($message, qr/does not map to ascii/o, "FB_WARN message ascii");
-
- $message = '';
- $src = $ao;
- $dst = $utf8->decode($src, FB_WARN);
- is($dst, $uq, "FB_WARN utf8");
- is($src, $residue, "FB_WARN residue utf8");
- like($message, qr/does not map to Unicode/o, "FB_WARN message utf8");
-
- $message = '';
- $src = $uo;
- $dst = $ascii->encode($src, WARN_ON_ERR);
- is($dst, $af, "WARN_ON_ERR ascii");
- is($src, '', "WARN_ON_ERR residue ascii");
- like($message, qr/does not map to ascii/o, "WARN_ON_ERR message ascii");
-
- $message = '';
- $src = $ao;
- $dst = $utf8->decode($src, WARN_ON_ERR);
- is($dst, $uf, "WARN_ON_ERR utf8");
- is($src, '', "WARN_ON_ERR residue utf8");
- like($message, qr/does not map to Unicode/o, "WARN_ON_ERR message ascii");
-}
-
-$src = $uo;
-$dst = $ascii->encode($src, FB_PERLQQ);
-is($dst, $ap, "FB_PERLQQ encode");
-is($src, $uo, "FB_PERLQQ residue encode");
-
-$src = $ao;
-$dst = $ascii->decode($src, FB_PERLQQ);
-is($dst, $up, "FB_PERLQQ decode");
-is($src, $ao, "FB_PERLQQ residue decode");
-
-$src = $uo;
-$dst = $ascii->encode($src, FB_HTMLCREF);
-is($dst, $ah, "FB_HTMLCREF encode");
-is($src, $uo, "FB_HTMLCREF residue encode");
-
-$src = $ao;
-$dst = $ascii->decode($src, FB_HTMLCREF);
-is($dst, $uh, "FB_HTMLCREF decode");
-is($src, $ao, "FB_HTMLCREF residue decode");
-
-$src = $uo;
-$dst = $ascii->encode($src, FB_XMLCREF);
-is($dst, $ax, "FB_XMLCREF encode");
-is($src, $uo, "FB_XMLCREF residue encode");
-
-$src = $ao;
-$dst = $ascii->decode($src, FB_XMLCREF);
-is($dst, $ux, "FB_XMLCREF decode");
-is($src, $ao, "FB_XMLCREF residue decode");
-
-$src = $uo;
-$dst = $ascii->encode($src, sub{ sprintf "<U+%04X>", shift });
-is($dst, $ac, "coderef encode");
-is($src, $uo, "coderef residue encode");
-
-$src = $ao;
-$dst = $ascii->decode($src, sub{ sprintf "[%02X]", shift });
-is($dst, $uc, "coderef decode");
-is($src, $ao, "coderef residue decode");
-
-$src = "\x{3000}";
-$dst = $ascii->encode($src, sub{ $_[0] });
-is $dst, 0x3000."", qq{$ascii->encode(\$src, sub{ \$_[0] } )};
-$dst = encode("ascii", "\x{3000}", sub{ $_[0] });
-is $dst, 0x3000."", qq{encode("ascii", "\\x{3000}", sub{ \$_[0] })};
-
-$src = pack "C*", 0xFF;
-$dst = $ascii->decode($src, sub{ $_[0] });
-is $dst, 0xFF."", qq{$ascii->encode(\$src, sub{ \$_[0] } )};
-$dst = decode("ascii", (pack "C*", 0xFF), sub{ $_[0] });
-is $dst, 0xFF."", qq{decode("ascii", (pack "C*", 0xFF), sub{ \$_[0] })};
-
-
-$src = pack "C*", 0x80;
-$dst = $utf8->decode($src, sub{ $_[0] });
-is $dst, 0x80."", qq{$utf8->encode(\$src, sub{ \$_[0] } )};
-$dst = decode("utf8", $src, sub{ $_[0] });
-is $dst, 0x80."", qq{decode("utf8", (pack "C*", 0x80), sub{ \$_[0] })};
diff --git a/3.8.8/sources/cpan-Encode/vendor/t/gb2312.utf b/3.8.8/sources/cpan-Encode/vendor/t/gb2312.utf
deleted file mode 100644
index 8c50b31..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/t/gb2312.utf
+++ /dev/null
@@ -1,242 +0,0 @@
-0x2120: 　ã€ã€‚・ˉˇ¨〃々―～‖…‘’“â€ã€”〕〈〉《》「ã€ã€Žã€ã€–〗ã€ã€‘
-0x2140: ±×÷∶∧∨∑âˆâˆªâˆ©âˆˆâˆ·âˆšâŠ¥âˆ¥âˆ ⌒⊙∫∮≡≌≈∽âˆâ‰ ≮≯≤≥∞∵
-0x2160: âˆ´â™‚â™€Â°â€²â€³â„ƒï¼„Â¤ï¿ ï¿¡â€°Â§â„–â˜†â˜…â—‹â—◎◇◆□■△▲※→â†â†‘↓〓
-0x2220: ⒈⒉⒊⒋⒌â’â’Žâ’â’⒑⒒⒓⒔⒕⒖
-0x2240: ⒗⒘⒙⒚⒛⑴⑵⑶⑷⑸⑹⑺⑻⑼⑽⑾⑿⒀â’⒂⒃⒄⒅⒆⒇①②③④⑤⑥⑦
-0x2260: ⑧⑨⑩ ㈠㈡㈢㈣㈤㈥㈦㈧㈨㈩ â… â…¡â…¢â…£â…¤â…¥â…¦â…§â…¨â…©â…ªâ…«
-0x2320: ï¼ï¼‚＃￥％＆＇（）＊＋，ï¼ï¼Žï¼ï¼ï¼‘２３４５６７８９：；＜ï¼ï¼žï¼Ÿ
-0x2340: ï¼ ï¼¡ï¼¢ï¼£ï¼¤ï¼¥ï¼¦ï¼§ï¼¨ï¼©ï¼ªï¼«ï¼¬ï¼ï¼®ï¼¯ï¼°ï¼±ï¼²ï¼³ï¼´ï¼µï¼¶ï¼·ï¼¸ï¼¹ï¼ºï¼»ï¼¼ï¼½ï¼¾ï¼¿
-0x2360: ï½€ï½ï½‚ｃｄｅｆｇｈｉｊｋｌï½ï½Žï½ï½ï½‘ｒｓｔｕｖｗｘｙｚ｛｜ï½ï¿£
-0x2420: ãã‚ãƒã„ã…ã†ã‡ãˆã‰ãŠã‹ãŒããŽããã‘ã’ã“ã”ã•ã–ã—ã˜ã™ãšã›ãœããžãŸ
-0x2440: ã ã¡ã¢ã£ã¤ã¥ã¦ã§ã¨ã©ãªã«ã¬ãã®ã¯ã°ã±ã²ã³ã´ãµã¶ã·ã¸ã¹ãºã»ã¼ã½ã¾ã¿
-0x2460: ã‚€ã‚もゃやゅゆょよらりるれã‚ã‚Žã‚ã‚ã‚‘ã‚’ã‚“
-0x2520: ァアィイゥウェエォオカガã‚ギクグケゲコゴサザシジスズセゼソゾタ
-0x2540: ダãƒãƒ‚ッツヅテデトドナニヌãƒãƒŽãƒãƒãƒ‘ヒビピフブプヘベペホボãƒãƒžãƒŸ
-0x2560: ムメモャヤュユョヨラリルレãƒãƒ®ãƒ¯ãƒ°ãƒ±ãƒ²ãƒ³ãƒ´ãƒµãƒ¶
-0x2620: ΑΒΓΔΕΖΗΘΙΚΛΜÎΞΟΠΡΣΤΥΦΧΨΩ
-0x2640: αβγδεζηθικλμνξοπÏστυφχψω
-0x2720: ÐБВГДЕÐЖЗИЙКЛМÐОПРСТУФХЦЧШЩЪЫЬÐ
-0x2740: ЮЯ абвгдеёжзийклмн
-0x2760: опрÑтуфхцчшщъыьÑÑŽÑ
-0x2820: Äáǎà ēéěèīÃÇìÅóǒòūúǔùǖǘǚǜüê
-0x2840: ㄅㄆㄇㄈㄉㄊㄋㄌã„ã„Žã„ã„ㄑㄒㄓㄔㄕㄖㄗㄘㄙㄚㄛㄜã„ã„žã„Ÿ
-0x2860: ㄠㄡㄢㄣㄤㄥㄦㄧㄨㄩ
-0x2920: ─â”│┃┄┅┆┇┈┉┊┋┌â”┎â”â”┑┒┓└┕┖┗┘┙┚┛
-0x2940: ├â”┞┟┠┡┢┣┤┥┦┧┨┩┪┫┬â”┮┯┰┱┲┳┴┵┶┷┸┹┺┻
-0x2960: ┼┽┾┿╀â•â•‚╃╄╅╆╇╈╉╊╋
-0x3020: 啊阿埃挨哎唉哀皑癌蔼矮艾ç¢çˆ±éš˜éžæ°¨å®‰ä¿ºæŒ‰æš—岸胺案肮昂盎凹敖熬翱
-0x3040: 袄傲奥懊澳èŠæŒæ‰’åå§ç¬†å…«ç–¤å·´æ‹”è·‹é¶æŠŠè€™å霸罢爸白æŸç™¾æ‘†ä½°è´¥æ‹œç¨—æ–‘
-0x3060: çæ¬æ‰³èˆ¬é¢æ¿ç‰ˆæ‰®æ‹Œä¼´ç“£åŠåŠžç»Šé‚¦å¸®æ¢†æ¦œè†€ç»‘棒磅蚌镑å‚谤苞胞包褒剥
-0x3120: 薄雹ä¿å ¡é¥±å®æŠ±æŠ¥æš´è±¹é²çˆ†æ¯ç¢‘悲å‘北辈背è´é’¡å€ç‹ˆå¤‡æƒ«ç„™è¢«å¥”苯本笨
-0x3140: å´©ç»·ç”泵蹦迸逼鼻比鄙笔彼碧蓖蔽毕毙毖å¸åº‡ç—¹é—æ•å¼Šå¿…辟å£è‡‚é¿é™›éžè¾¹
-0x3160: ç¼–è´¬æ‰ä¾¿å˜åžè¾¨è¾©è¾«éæ ‡å½ªè†˜è¡¨é³–æ†‹åˆ«ç˜ªå½¬æ–Œæ¿’æ»¨å®¾æ‘ˆå…µå†°æŸ„ä¸™ç§‰é¥¼ç‚³
-0x3220: 病并玻è æ’拨钵波åšå‹ƒæ铂箔伯帛舶脖膊渤泊驳æ•åœå“ºè¡¥åŸ ä¸å¸ƒæ¥ç°¿éƒ¨
-0x3240: 怖擦猜è£ææ‰è´¢ç¬è¸©é‡‡å½©èœè”¡é¤å‚蚕残æƒæƒ¨ç¿è‹èˆ±ä»“沧è—æ“糙槽曹è‰åŽ•ç–
-0x3260: 侧册测层è¹æ’å‰èŒ¬èŒ¶æŸ¥ç¢´æ½å¯Ÿå²”差诧拆柴豺æ€æŽºè‰é¦‹è°—ç¼ é“²äº§é˜é¢¤æ˜ŒçŒ–
-0x3320: 场å°å¸¸é•¿å¿è‚ 厂敞畅唱倡超抄钞æœå˜²æ½®å·¢åµç‚’车扯撤掣彻澈郴臣辰尘晨
-0x3340: 忱沉陈è¶è¡¬æ’‘称城橙æˆå‘ˆä¹˜ç¨‹æƒ©æ¾„诚承逞骋秤åƒç—´æŒåŒ™æ± 迟弛驰耻齿侈尺
-0x3360: èµ¤ç¿…æ–¥ç‚½å……å†²è™«å´‡å® æŠ½é…¬ç•´è¸Œç¨ æ„ç¹ä»‡ç»¸çž…丑è‡åˆå‡ºæ©±åŽ¨èº‡é”„é›æ»é™¤æ¥š
-0x3420: 础储矗æ触处æ£å·ç©¿æ¤½ä¼ 船喘串疮窗幢床闯创å¹ç‚Šæ¶é”¤åž‚春椿醇唇淳纯
-0x3440: è ¢æˆ³ç»°ç–µèŒ¨ç£é›Œè¾žæ…ˆç“·è¯æ¤åˆºèµæ¬¡èªè‘±å›±åŒ†ä»Žä¸›å‡‘粗醋簇促蹿篡窜摧崔催
-0x3460: 脆ç˜ç²¹æ·¬ç¿ æ‘å˜å¯¸ç£‹æ’®æ“措挫错æè¾¾ç”瘩打大呆æ¹å‚£æˆ´å¸¦æ®†ä»£è´·è¢‹å¾…逮
-0x3520: æ€ è€½æ‹…ä¸¹å•éƒ¸æŽ¸èƒ†æ—¦æ°®ä½†æƒ®æ·¡è¯žå¼¹è›‹å½“挡党è¡æ¡£åˆ€æ£è¹ˆå€’岛祷导到稻悼
-0x3540: é“盗德得的蹬ç¯ç™»ç‰çžªå‡³é‚“å ¤ä½Žæ»´è¿ªæ•Œç¬›ç‹„æ¶¤ç¿Ÿå«¡æŠµåº•åœ°è’‚ç¬¬å¸å¼Ÿé€’ç¼”é¢
-0x3560: 掂滇碘点典é›åž«ç”µä½ƒç”¸åº—æƒ¦å¥ æ·€æ®¿ç¢‰å¼é›•å‡‹åˆæŽ‰åŠé’“调跌爹碟è¶è¿è°å
-0x3620: ä¸ç›¯å®é’‰é¡¶é¼Žé”å®šè®¢ä¸¢ä¸œå†¬è‘£æ‡‚åŠ¨æ ‹ä¾—æ«å†»æ´žå…œæŠ–斗陡豆逗痘都ç£æ¯’犊
-0x3640: ç‹¬è¯»å µç¹èµŒæœé•€è‚šåº¦æ¸¡å¦’端çŸé”»æ®µæ–ç¼Žå †å…‘é˜Ÿå¯¹å¢©å¨è¹²æ•¦é¡¿å›¤é’盾é掇哆
-0x3660: 多夺垛躲朵跺舵å‰æƒ°å •è›¾å³¨é¹…ä¿„é¢è®¹å¨¥æ¶åŽ„扼é鄂饿æ©è€Œå„¿è€³å°”饵洱二
-0x3720: è´°å‘罚çä¼ä¹é˜€æ³•ç藩帆番翻樊矾钒ç¹å‡¡çƒ¦å返范贩犯é¥æ³›åŠèŠ³æ–¹è‚ªæˆ¿
-0x3740: 防妨仿访纺放è²éžå•¡é£žè‚¥åŒªè¯½å 肺废沸费芬酚å©æ°›åˆ†çº·åŸç„šæ±¾ç²‰å¥‹ä»½å¿¿æ„¤
-0x3760: 粪丰å°æž«èœ‚峰锋风疯烽逢冯ç¼è®½å¥‰å‡¤ä½›å¦å¤«æ•·è‚¤åµæ‰¶æ‹‚è¾å¹…氟符ä¼ä¿˜æœ
-0x3820: 浮涪ç¦è¢±å¼—甫抚辅俯釜斧脯腑府è…赴副覆赋å¤å‚…付阜父腹负富讣附妇缚
-0x3840: å’噶嘎该改概钙盖溉干甘æ†æŸ‘ç«¿è‚赶感秆敢赣冈刚钢缸肛纲岗港æ 篙皋高
-0x3860: è†ç¾”糕æžé•ç¨¿å‘Šå“¥æŒæ戈鸽胳疙割é©è‘›æ ¼è›¤é˜éš”铬个å„ç»™æ ¹è·Ÿè€•æ›´åºšç¾¹
-0x3920: 埂耿梗工攻功æ龚供躬公宫弓巩汞拱贡共钩勾沟苟狗垢构è´å¤Ÿè¾œè‡å’•ç®
-0x3940: ä¼°æ²½å¤å§‘鼓å¤è›Šéª¨è°·è‚¡æ•…顾固雇刮瓜å‰å¯¡æŒ‚褂乖æ‹æ€ªæ£ºå…³å®˜å† 观管馆ç½æƒ¯
-0x3960: çŒè´¯å…‰å¹¿é€›ç‘°è§„åœç¡…归龟闺轨鬼诡癸桂柜跪贵刽辊滚æ£é”…éƒå›½æžœè£¹è¿‡å“ˆ
-0x3a20: 骸å©æµ·æ°¦äº¥å®³éª‡é…£æ†¨é‚¯éŸ©å«æ¶µå¯’函喊罕翰撼æ旱憾æ‚焊汗汉夯æ航壕嚎
-0x3a40: 豪毫éƒå¥½è€—å·æµ©å‘µå–è·èæ ¸ç¦¾å’Œä½•åˆç›’貉阂河涸赫è¤é¹¤è´ºå˜¿é»‘ç—•å¾ˆç‹ æ¨å“¼
-0x3a60: 亨横衡æ’轰哄烘虹鸿洪å®å¼˜çº¢å–‰ä¾¯çŒ´å¼åŽšå€™åŽå‘¼ä¹Žå¿½ç‘šå£¶è‘«èƒ¡è´ç‹ç³Šæ¹–
-0x3b20: 弧虎唬护互沪户花哗åŽçŒ¾æ»‘画划化è¯æ§å¾Šæ€€æ·®å欢环桓还缓æ¢æ‚£å”¤ç—ªè±¢
-0x3b40: 焕涣宦幻è’慌黄磺è—簧皇凰惶煌晃幌æè°Žç°æŒ¥è¾‰å¾½æ¢è›”回æ¯æ‚”æ…§å‰æƒ 晦贿
-0x3b60: 秽会烩汇讳诲绘è¤æ˜å©šé‚浑混è±æ´»ä¼™ç«èŽ·æˆ–惑éœè´§ç¥¸å‡»åœ¾åŸºæœºç•¸ç¨½ç§¯ç®•
-0x3c20: 肌饥迹激讥鸡姬绩缉å‰æžæ£˜è¾‘ç±é›†åŠæ€¥ç–¾æ±²å³å«‰çº§æŒ¤å‡ 脊己蓟技冀å£ä¼Ž
-0x3c40: ç¥å‰‚æ‚¸æµŽå¯„å¯‚è®¡è®°æ—¢å¿Œé™…å¦“ç»§çºªå˜‰æž·å¤¹ä½³å®¶åŠ èšé¢Šè´¾ç”²é’¾å‡ç¨¼ä»·æž¶é©¾å«æ¼
-0x3c60: 监åšå°–笺间煎兼肩艰奸缄茧检柬碱硷拣æ¡ç®€ä¿å‰ªå‡è槛鉴践贱è§é”®ç®ä»¶
-0x3d20: å¥èˆ°å‰‘饯æ¸æº…æ¶§å»ºåƒµå§œå°†æµ†æ±Ÿç–†è’‹æ¡¨å¥–è®²åŒ é…±é™è•‰æ¤’ç¤ç„¦èƒ¶äº¤éƒŠæµ‡éª„娇
-0x3d40: åš¼æ…铰矫侥脚狡角饺缴绞剿教酵轿较å«çª–æ接皆秸街阶截劫节桔æ°æ·ç«ç«
-0x3d60: æ´ç»“解å§æˆ’藉芥界借介疥诫届巾ç‹æ–¤é‡‘今津襟紧锦仅谨进é³æ™‹ç¦è¿‘烬浸
-0x3e20: 尽劲è†å…¢èŒŽç›æ™¶é²¸äº¬æƒŠç²¾ç²³ç»äº•è¦æ™¯é¢ˆé™å¢ƒæ•¬é•œå¾„ç—‰é–竟竞净炯窘æªç©¶
-0x3e40: çº çŽ–éŸä¹…ç¸ä¹é…’åŽ©æ•‘æ—§è‡¼èˆ…å’Žå°±ç–šéž æ‹˜ç‹™ç–½å±…é©¹èŠå±€å’€çŸ©ä¸¾æ²®èšæ‹’æ®å·¨å…·
-0x3e60: è·è¸žé”¯ä¿±å¥æƒ§ç‚¬å‰§æ鹃娟倦眷å·ç»¢æ’…攫抉掘倔爵觉决诀ç»å‡èŒé’§å†›å›å³»
-0x3f20: 俊竣浚郡éªå–€å’–å¡å’¯å¼€æ©æ¥·å‡¯æ…¨åˆŠå ªå‹˜åŽç çœ‹åº·æ…·ç³ æ‰›æŠ—äº¢ç‚•è€ƒæ‹·çƒ¤é
-0x3f40: å·è‹›æŸ¯æ£µç£•é¢—科壳咳å¯æ¸´å…‹åˆ»å®¢è¯¾è‚¯å•ƒåž¦æ³å‘å空æå”æŽ§æŠ å£æ‰£å¯‡æž¯å“窟
-0x3f60: 苦酷库裤夸垮挎跨胯å—ç·ä¾©å¿«å®½æ¬¾åŒ¡ç狂框矿眶旷况äºç›”岿窥葵奎éå‚€
-0x4020: 馈愧溃å¤æ˜†æ†å›°æ‹¬æ‰©å»“阔垃拉喇蜡腊辣啦莱æ¥èµ–è“婪æ 拦篮阑兰澜谰æ½
-0x4040: 览懒缆烂滥ç…榔狼廊郎朗浪æžåŠ³ç‰¢è€ä½¬å§¥é…ªçƒ™æ¶å‹’ä¹é›·é•è•¾ç£Šç´¯å„¡åž’æ“‚è‚‹
-0x4060: 类泪棱楞冷厘梨çŠé»Žç¯±ç‹¸ç¦»æ¼“ç†æŽé‡Œé²¤ç¤¼èŽ‰è”åæ —ä¸½åŽ‰åŠ±ç ¾åŽ†åˆ©å‚ˆä¾‹ä¿
-0x4120: 痢立粒沥隶力璃哩俩è”莲连镰廉怜涟帘敛脸链æ‹ç‚¼ç»ƒç²®å‡‰æ¢ç²±è‰¯ä¸¤è¾†é‡
-0x4140: 晾亮谅撩èŠåƒšç–—燎寥辽潦了撂镣廖料列裂烈劣猎ç³æž—磷霖临邻鳞淋凛èµå
-0x4160: 拎玲è±é›¶é¾„铃伶羚凌çµé™µå²é¢†å¦ä»¤æºœç‰æ¦´ç¡«é¦ç•™åˆ˜ç˜¤æµæŸ³å…é¾™è‹å’™ç¬¼çª¿
-0x4220: 隆垄拢陇楼娄æ‚篓æ¼é™‹èŠ¦å¢é¢…åºç‚‰æŽ³å¤è™é²éº“碌露路赂鹿潞禄录陆戮驴
-0x4240: å•é“侣旅履屡缕虑氯律率滤绿峦挛åªæ»¦åµä¹±æŽ 略抡轮伦仑沦纶论è螺罗逻
-0x4260: 锣箩骡裸è½æ´›éª†ç»œå¦ˆéº»çŽ›ç 蚂马骂嘛å—埋买麦å–迈脉瞒馒蛮满蔓曼慢漫
-0x4320: 谩芒茫盲氓忙莽猫茅锚毛矛铆å¯èŒ‚冒帽貌贸么玫枚梅酶霉煤没眉媒é•æ¯
-0x4340: 美昧å¯å¦¹åªšé—¨é—·ä»¬èŒè’™æª¬ç›Ÿé”°çŒ›æ¢¦åŸçœ¯é†šé¡ç³œè¿·è°œå¼¥ç±³ç§˜è§…泌蜜密幂棉çœ
-0x4360: 绵冕å…勉娩缅é¢è‹—æçž„è—秒渺庙妙蔑ç民抿皿æ•æ‚¯é—½æ˜ŽèžŸé¸£é“å命谬摸
-0x4420: 摹蘑模膜磨摩é”æŠ¹æœ«èŽ«å¢¨é»˜æ²«æ¼ å¯žé™Œè°‹ç‰ŸæŸæ‹‡ç‰¡äº©å§†æ¯å¢“暮幕募慕木目
-0x4440: ç¦ç‰§ç©†æ‹¿å“ªå‘é’ é‚£å¨œçº³æ°–ä¹ƒå¥¶è€å¥ˆå—ç”·éš¾å›ŠæŒ è„‘æ¼é—¹æ·–å‘¢é¦å†…嫩能妮霓倪
-0x4460: æ³¥å°¼æ‹Ÿä½ åŒ¿è…»é€†æººè”«æ‹ˆå¹´ç¢¾æ’µæ»å¿µå¨˜é…¿é¸Ÿå°¿æè‚å½å•®é•Šé•æ¶…æ‚¨æŸ ç‹žå‡å®
-0x4520: 拧泞牛æ‰é’®çº½è„“浓农弄奴努怒女暖è™ç–ŸæŒªæ‡¦ç³¯è¯ºå“¦æ¬§é¸¥æ®´è—•å‘•å¶æ²¤å•ªè¶´
-0x4540: 爬帕怕ç¶æ‹æŽ’牌徘湃派攀潘盘ç£ç›¼ç•”判å›ä¹“庞æ—耪胖抛咆刨炮è¢è·‘泡呸胚
-0x4560: 培裴赔陪é…ä½©æ²›å–·ç›†ç °æŠ¨çƒ¹æ¾Žå½è“¬æ£šç¡¼ç¯·è†¨æœ‹é¹æ§ç¢°å¯ç ’霹批披劈çµæ¯—
-0x4620: 啤脾疲皮匹痞僻å±è¬ç¯‡å片骗飘漂瓢票撇瞥拼频贫å“è˜ä¹’åªè‹¹èå¹³å‡ç“¶
-0x4640: 评å±å¡æ³¼é¢‡å©†ç ´é„迫粕剖扑铺仆莆葡è©è’²åŸ”朴圃普浦谱æ›ç€‘æœŸæ¬ºæ –æˆšå¦»ä¸ƒ
-0x4660: 凄漆柒æ²å…¶æ£‹å¥‡æ§ç•¦å´Žè„é½æ——祈ç¥éª‘起岂乞ä¼å¯å¥‘ç Œå™¨æ°”è¿„å¼ƒæ±½æ³£è®«æŽ
-0x4720: æ°æ´½ç‰µæ‰¦é’Žé“…åƒè¿ç¾ä»Ÿè°¦ä¹¾é»”钱钳å‰æ½œé£æµ…è°´å ‘åµŒæ¬ æ‰æžªå‘›è…”羌墙蔷强
-0x4740: 抢橇锹敲悄桥瞧乔侨巧鞘撬翘å³ä¿çªåˆ‡èŒ„且怯窃钦侵亲秦ç´å‹¤èŠ¹æ“’禽å¯æ²
-0x4760: é’轻氢倾å¿æ¸…擎晴氰情顷请庆ç¼ç©·ç§‹ä¸˜é‚±çƒæ±‚囚酋泅趋区蛆曲躯屈驱æ¸
-0x4820: å–娶龋趣去圈颧æƒé†›æ³‰å…¨ç—Šæ‹³çŠ¬åˆ¸åŠç¼ºç‚”瘸å´é¹Šæ¦·ç¡®é›€è£™ç¾¤ç„¶ç‡ƒå†‰æŸ“瓤
-0x4840: 壤攘嚷让饶扰绕惹çƒå£¬ä»äººå¿éŸ§ä»»è®¤åˆƒå¦Šçº«æ‰”ä»æ—¥æˆŽèŒ¸è“‰è£èžç†”溶容绒冗
-0x4860: æ‰æŸ”è‚‰èŒ¹è •å„’åºå¦‚辱乳æ±å…¥è¤¥è½¯é˜®è•Šç‘žé”闰润若弱撒洒è¨è…®é³ƒå¡žèµ›ä¸‰å
-0x4920: 伞散桑嗓丧æ”éªšæ‰«å«‚ç‘Ÿè‰²æ¶©æ£®åƒ§èŽŽç ‚æ€åˆ¹æ²™çº±å‚»å•¥ç…žç›æ™’çŠè‹«æ‰å±±åˆ ç…½
-0x4940: 衫闪陕擅赡膳善汕扇缮墒伤商èµæ™Œä¸Šå°šè£³æ¢¢æŽç¨çƒ§èŠå‹ºéŸ¶å°‘哨邵ç»å¥¢èµŠè›‡
-0x4960: 舌èˆèµ¦æ‘„å°„æ…‘æ¶‰ç¤¾è®¾ç ·ç”³å‘»ä¼¸èº«æ·±å¨ ç»…ç¥žæ²ˆå®¡å©¶ç”šè‚¾æ…Žæ¸—å£°ç”Ÿç”¥ç‰²å‡ç»³
-0x4a20: çœç››å‰©èƒœåœ£å¸ˆå¤±ç‹®æ–½æ¹¿è¯—尸虱å石拾时什食蚀实识å²çŸ¢ä½¿å±Žé©¶å§‹å¼ç¤ºå£«
-0x4a40: 世柿事æ‹èª“é€åŠ¿æ˜¯å—œå™¬é€‚仕ä¾é‡Šé¥°æ°å¸‚æƒå®¤è§†è¯•æ”¶æ‰‹é¦–守寿授售å—瘦兽蔬
-0x4a60: 枢梳殊抒输å”舒淑ç–书赎å°ç†Ÿè–¯æš‘曙署蜀é»é¼ å±žæœ¯è¿°æ ‘æŸæˆç«–墅庶数漱
-0x4b20: æ•åˆ·è€æ‘”è¡°ç”©å¸…æ “æ‹´éœœåŒçˆ½è°æ°´ç¡ç¨Žå®çž¬é¡ºèˆœè¯´ç¡•æœ”çƒæ–¯æ’•å˜¶æ€ç§å¸ä¸
-0x4b40: æ»è‚†å¯ºå—£å››ä¼ºä¼¼é¥²å·³æ¾è€¸æ€‚颂é€å®‹è®¼è¯µæœè‰˜æ“žå—½è‹é…¥ä¿—ç´ é€Ÿç²Ÿåƒ³å¡‘æº¯å®¿è¯‰
-0x4b60: 肃酸蒜算虽隋éšç»¥é«“碎å²ç©—é‚隧祟å™æŸç¬‹è“‘æ¢å”†ç¼©çç´¢é”所塌他它她塔
-0x4c20: ç挞蹋è¸èƒŽè‹”抬å°æ³°é…žå¤ªæ€æ±°å摊贪瘫滩å›æª€ç—°æ½è°è°ˆå¦æ¯¯è¢’碳探å¹ç‚
-0x4c40: 汤塘æªå ‚æ£ è†›å”糖倘躺淌趟烫æŽæ¶›æ»”绦è„桃逃淘陶讨套特藤腾疼誊梯剔踢
-0x4c60: 锑æ题蹄啼体替åšæƒ•æ¶•å‰ƒå±‰å¤©æ·»å¡«ç”°ç”œæ¬èˆ”腆挑æ¡è¿¢çœºè·³è´´é“帖厅å¬çƒƒ
-0x4d20: 汀廷åœäºåºæŒºè‰‡é€šæ¡é…®çž³åŒé“œå½¤ç«¥æ¡¶æ…ç’统痛å·æŠ•å¤´é€å‡¸ç§ƒçªå›¾å¾’途涂
-0x4d40: å± åœŸåå…”æ¹å›¢æŽ¨é¢“腿蜕褪退åžå±¯è‡€æ‹–托脱鸵陀驮驼æ¤å¦¥æ‹“唾挖哇蛙洼娃瓦
-0x4d60: 袜æªå¤–豌弯湾玩顽丸烷完碗挽晚皖惋宛婉万腕汪王亡枉网往旺望忘妄å¨
-0x4e20: å·å¾®å±éŸ¦è¿æ¡…围唯惟为æ½ç»´è‹‡èŽå§”伟伪尾纬未蔚味ç•èƒƒå–‚éä½æ¸è°“尉慰
-0x4e40: å«ç˜Ÿæ¸©èšŠæ–‡é—»çº¹å»ç¨³ç´Šé—®å—¡ç¿ç“®æŒèœ—涡çªæˆ‘æ–¡å§æ¡æ²ƒå·«å‘œé’¨ä¹Œæ±¡è¯¬å±‹æ— 芜
-0x4e60: 梧å¾å´æ¯‹æ¦äº”æ‚åˆèˆžä¼ä¾®åžæˆŠé›¾æ™¤ç‰©å‹¿åŠ¡æ‚Ÿè¯¯æ˜”熙æžè¥¿ç¡’矽晰嘻å¸é”¡ç‰º
-0x4f20: 稀æ¯å¸Œæ‚‰è†å¤•æƒœç†„烯溪æ±çŠ€æª„è¢å¸ä¹ 媳喜铣洗系隙æˆç»†çžŽè™¾åŒ£éœžè¾–暇峡
-0x4f40: ä¾ ç‹ä¸‹åŽ¦å¤å“掀锨先仙鲜纤咸贤衔舷闲涎弦嫌显险现献县腺馅羡宪陷é™çº¿
-0x4f60: 相厢镶香箱襄湘乡翔祥详想å“享项巷橡åƒå‘象è§ç¡éœ„削哮嚣销消宵淆晓
-0x5020: å°åæ ¡è‚–å•¸ç¬‘æ•ˆæ¥”äº›æ‡èŽéž‹å挟æºé‚ªæ–œèƒè°å†™æ¢°å¸èŸ¹æ‡ˆæ³„泻谢屑薪芯锌
-0x5040: 欣辛新忻心信衅星腥猩惺兴刑型形邢行醒幸æ性姓兄凶胸匈汹雄熊休修羞
-0x5060: 朽嗅锈秀袖绣墟戌需虚嘘须å¾è®¸è“„é…—å™æ—åºç•œæ¤çµ®å©¿ç»ªç»è½©å–§å®£æ‚¬æ—‹çŽ„
-0x5120: 选癣眩绚é´è–›å¦ç©´é›ªè¡€å‹‹ç†å¾ªæ—¬è¯¢å¯»é©¯å·¡æ®‰æ±›è®è®¯é€Šè¿…压押鸦é¸å‘€ä¸«èŠ½
-0x5140: 牙蚜崖衙涯雅哑亚讶焉咽阉烟淹ç›ä¸¥ç ”蜒岩延言颜阎炎沿奄掩眼è¡æ¼”è‰³å °
-0x5160: ç‡•åŽŒç šé›å”彦焰宴谚验殃央鸯秧æ¨æ‰¬ä½¯ç–¡ç¾Šæ´‹é˜³æ°§ä»°ç—’å…»æ ·æ¼¾é‚€è…°å¦–ç‘¶
-0x5220: 摇尧é¥çª‘谣姚咬舀è¯è¦è€€æ¤°å™Žè€¶çˆ·é‡Žå†¶ä¹Ÿé¡µæŽ–业å¶æ›³è…‹å¤œæ¶²ä¸€å£¹åŒ»æ–铱
-0x5240: ä¾ä¼Šè¡£é¢å¤·é—移仪胰疑沂宜姨å½æ¤…èšå€šå·²ä¹™çŸ£ä»¥è‰ºæŠ‘易邑屹亿役臆逸肄疫
-0x5260: 亦裔æ„毅忆义益溢诣议谊译异翼翌绎茵è«å› 殷音阴姻åŸé“¶æ·«å¯…饮尹引éš
-0x5320: å°è‹±æ¨±å©´é¹°åº”缨莹è¤è¥è§è‡è¿Žèµ¢ç›ˆå½±é¢–ç¡¬æ˜ å“Ÿæ‹¥ä½£è‡ƒç—ˆåº¸é›è¸Šè›¹å’泳涌
-0x5340: æ°¸æ¿å‹‡ç”¨å¹½ä¼˜æ‚ 忧尤由邮铀犹油游酉有å‹å³ä½‘釉诱åˆå¹¼è¿‚淤于盂榆虞愚舆
-0x5360: 余俞逾鱼愉æ¸æ¸”隅予娱雨与屿禹宇è¯ç¾½çŽ‰åŸŸèŠ‹éƒåé‡å–»å³ªå¾¡æ„ˆæ¬²ç‹±è‚²èª‰
-0x5420: 浴寓裕预豫é©é¸³æ¸Šå†¤å…ƒåž£è¢åŽŸæ´è¾•å›å‘˜åœ†çŒ¿æºç¼˜è¿œè‹‘愿怨院曰约越跃钥
-0x5440: 岳粤月悦阅耘云郧匀陨å…è¿è•´é…晕韵å•åŒç ¸æ‚æ ½å“‰ç¾å®°è½½å†åœ¨å’±æ”’暂赞赃
-0x5460: è„葬é糟凿藻枣早澡蚤èºå™ªé€ çš‚ç¶ç‡¥è´£æ‹©åˆ™æ³½è´¼æ€Žå¢žæ†Žæ›¾èµ 扎喳渣æœè½§
-0x5520: é“¡é—¸çœ¨æ …æ¦¨å’‹ä¹ç‚¸è¯ˆæ‘˜æ–‹å®…窄债寨瞻毡詹粘沾ç›æ–©è¾—å´å±•è˜¸æ ˆå 战站湛
-0x5540: ç»½æ¨Ÿç« å½°æ¼³å¼ æŽŒæ¶¨æ–丈å¸è´¦ä»—胀瘴障招æ˜æ‰¾æ²¼èµµç…§ç½©å…†è‚‡å¬é®æŠ˜å“²è›°è¾™è€…
-0x5560: 锗蔗这浙çæ–ŸçœŸç”„ç §è‡»è´žé’ˆä¾¦æž•ç–¹è¯Šéœ‡æŒ¯é•‡é˜µè’¸æŒ£çå¾ç‹°äº‰æ€”整拯æ£æ”¿
-0x5620: 帧症郑è¯èŠæžæ”¯å±èœ˜çŸ¥è‚¢è„‚æ±ä¹‹ç»‡èŒç›´æ¤æ®–执值侄å€æŒ‡æ¢è¶¾åªæ—¨çº¸å¿—挚
-0x5640: 掷至致置帜峙制智秩稚质炙痔滞治窒ä¸ç›…å¿ é’Ÿè¡·ç»ˆç§è‚¿é‡ä»²ä¼—舟周州洲诌
-0x5660: 粥轴肘帚咒皱宙昼骤ç æ ªè››æœ±çŒªè¯¸è¯›é€ç«¹çƒ›ç…®æ‹„瞩嘱主著柱助蛀贮铸ç‘
-0x5720: ä½æ³¨ç¥é©»æŠ“çˆªæ‹½ä¸“ç –è½¬æ’°èµšç¯†æ¡©åº„è£…å¦†æ’žå£®çŠ¶æ¤Žé”¥è¿½èµ˜å 缀谆准æ‰æ‹™å“
-0x5740: æ¡Œç¢èŒé…Œå•„ç€ç¼æµŠå…¹å’¨èµ„姿滋淄åœç´«ä»”籽滓å自æ¸å—鬃棕踪宗综总纵邹走
-0x5760: å¥æ租足å’æ—祖诅阻组钻纂嘴醉最罪尊éµæ˜¨å·¦ä½æŸžåšä½œå座
-0x5820: äºä¸Œå…€ä¸å»¿å…丕亘丞鬲å¬å™©ä¸¨ç¦ºä¸¿åŒ•ä¹‡å¤çˆ»å®æ°å›Ÿèƒ¤é¦—毓ç¾é¼—丶亟é¼ä¹œ
-0x5840: 乩亓芈å›å•¬å˜ä»„åŽåŽåŽ£åŽ¥åŽ®é¥èµåŒšåµåŒ¦åŒ®åŒ¾èµœå¦å£åˆ‚刈刎åˆåˆ³åˆ¿å‰€å‰Œå‰žå‰¡
-0x5860: 剜蒯剽劂åŠåŠåŠ“冂罔亻仃仉仂仨仡仫仞伛仳伢佤仵伥伧伉伫佞佧攸佚ä½
-0x5920: 佟佗伲伽佶佴侑侉侃ä¾ä½¾ä½»ä¾ªä½¼ä¾¬ä¾”俦俨俪俅俚俣俜俑俟俸倩åŒä¿³å€¬å€
-0x5940: 倮å€ä¿¾å€œå€Œå€¥å€¨å¾åƒå•åˆåŽå¬å»å‚¥å‚§å‚©å‚ºåƒ–儆åƒåƒ¬åƒ¦åƒ®å„‡å„‹ä»æ°½ä½˜ä½¥ä¿Žé¾
-0x5960: 汆籴兮巽黉馘å†å¤”勹åŒè¨‡åŒå‡«å¤™å…•äº å…–äº³è¡®è¢¤äºµè„”è£’ç¦€å¬´è ƒç¾¸å†«å†±å†½å†¼
-0x5a20: å‡‡å†–å†¢å†¥è® è®¦è®§è®ªè®´è®µè®·è¯‚è¯ƒè¯‹è¯è¯Žè¯’è¯“è¯”è¯–è¯˜è¯™è¯œè¯Ÿè¯ è¯¤è¯¨è¯©è¯®è¯°è¯³
-0x5a40: 诶诹诼诿谀谂谄谇谌è°è°‘谒谔谕谖谙谛谘è°è°Ÿè° 谡谥谧谪谫谮谯谲谳谵谶
-0x5a60: å©åºé˜é˜¢é˜¡é˜±é˜ªé˜½é˜¼é™‚陉陔陟陧陬陲陴隈éšéš—éš°é‚—é‚›é‚邙邬邡邴邳邶邺
-0x5b20: 邸邰éƒéƒ…邾éƒéƒ„郇郓郦郢郜郗郛郫郯郾鄄鄢鄞鄣鄱鄯鄹酃酆åˆå¥‚劢劬åŠ
-0x5b40: 劾哿å‹å‹–å‹°åŸç‡®çŸå»´å‡µå‡¼é¬¯åŽ¶å¼ç•šå·¯åŒåž©åž¡å¡¾å¢¼å£…壑圩圬圪圳圹圮圯åœåœ»
-0x5b60: å‚å©åž…å«åž†å¼å»å¨åå¶å³åžåž¤åžŒåž²åŸåž§åž´åž“åž åŸ•åŸ˜åŸšåŸ™åŸ’åž¸åŸ´åŸ¯åŸ¸åŸ¤åŸ
-0x5c20: å ‹å 埽åŸå €å žå ™å¡„å 塥塬å¢å¢‰å¢šå¢€é¦¨é¼™æ‡¿è‰¹è‰½è‰¿èŠèŠŠèŠ¨èŠ„芎芑芗芙芫芸
-0x5c40: 芾芰苈苊苣芘芷芮苋苌è‹èŠ©èŠ´èŠ¡èŠªèŠŸè‹„苎芤苡茉苷苤èŒèŒ‡è‹œè‹´è‹’苘茌苻苓
-0x5c60: èŒ‘èŒšèŒ†èŒ”èŒ•è‹ è‹•èŒœè‘è›èœèŒˆèŽ’茼茴茱莛èžèŒ¯èè‡èƒèŸè€èŒ—è èŒèŒºèŒ³è¦è¥
-0x5d20: è¨èŒ›è©è¬èªèè®èŽ°è¸èŽ³èŽ´èŽ 莪莓莜莅è¼èŽ¶èŽ©è½èŽ¸è»èŽ˜èŽžèŽ¨èŽºèŽ¼èèè¥è˜
-0x5d40: å ‡è˜è‹èè½è–èœè¸è‘è†è”èŸèèƒè¸è¹èªè…è€è¦è°è¡è‘œè‘‘葚葙葳蒇蒈葺蒉葸
-0x5d60: è¼è‘†è‘©è‘¶è’Œè’Žè±è‘è“è“è“è“¦è’½è““è“Šè’¿è’ºè“ è’¡è’¹è’´è’—è“¥è“£è”Œç”蔸蓰蔹蔟蔺
-0x5e20: 蕖蔻蓿蓼蕙蕈蕨蕤蕞蕺瞢蕃蕲蕻薤薨薇è–蕹薮薜薅薹薷薰藓è—藜藿蘧蘅
-0x5e40: 蘩蘖蘼廾弈夼å¥è€·å¥•å¥šå¥˜åŒå°¢å°¥å°¬å°´æ‰Œæ‰ªæŠŸæŠ»æ‹Šæ‹šæ‹—拮挢拶挹æ‹æƒæŽæ¶æ±
-0x5e60: æºæŽŽæŽ´æ掬掊æ©æŽ®æŽ¼æ²æ¸æ æ¿æ„æžæŽæ‘’æ†æŽ¾æ‘…æ‘æ‹æ›æ æŒæ¦æ¡æ‘žæ’„æ‘æ’–
-0x5f20: 摺撷撸撙撺擀æ“擗擤擢攉攥攮弋忒甙弑åŸå±å½å©å¨å»å’å–å†å‘‹å‘’呓呔呖
-0x5f40: 呃å¡å‘—å‘™å£å²å’‚咔呷呱呤咚咛咄呶呦å’å“å’哂咴哒咧咦哓哔呲咣哕咻咿哌
-0x5f60: 哙哚哜咩咪咤å“å“å“žå”›å“§å” å“½å””å“³å”¢å”£å”唑唧唪啧å–喵啉å•å•å••å”¿å•å”¼
-0x6020: 唷啖啵啶啷唳唰啜喋嗒喃喱喹喈å–喟啾嗖喑啻嗟喽喾喔喙嗪嗷嗉嘟嗑嗫
-0x6040: 嗬嗔嗦å—嗄嗯嗥嗲嗳嗌å—嗨嗵嗤辔嘞嘈嘌å˜å˜¤å˜£å—¾å˜€å˜§å˜å™˜å˜¹å™—嘬å™å™¢å™™
-0x6060: 噜噌噔嚆噤噱噫噻噼嚅嚓嚯囔囗å›å›¡å›µå›«å›¹å›¿åœ„圊圉圜å¸å¸™å¸”帑帱帻帼
-0x6120: 帷幄幔幛幞幡岌屺å²å²å²–岈岘岙岑岚岜岵岢岽岬岫岱岣å³å²·å³„峒峤峋峥
-0x6140: 崂崃崧崦崮崤崞崆崛嵘崾崴崽嵬嵛嵯åµåµ«åµ‹åµŠåµ©åµ´å¶‚嶙å¶è±³å¶·å·…彳彷徂徇
-0x6160: 徉後徕徙徜徨å¾å¾µå¾¼è¡¢å½¡çŠçŠ°çŠ´çŠ·çŠ¸ç‹ƒç‹ç‹Žç‹ç‹’狨狯狩狲狴狷çŒç‹³çŒƒç‹º
-0x6220: 狻猗猓猡猊猞çŒçŒ•çŒ¢çŒ¹çŒ¥çŒ¬çŒ¸çŒ±ççç—ç ç¬ç¯ç¾èˆ›å¤¥é£§å¤¤å¤‚饣饧饨饩饪
-0x6240: 饫饬饴饷饽馀馄馇馊é¦é¦é¦‘é¦“é¦”é¦•åº€åº‘åº‹åº–åº¥åº åº¹åºµåº¾åº³èµ“å»’å»‘å»›å»¨å»ªè†º
-0x6260: 忄忉忖å¿æ€ƒå¿®æ€„忡忤忾怅怆忪å¿å¿¸æ€™æ€µæ€¦æ€›æ€æ€æ€©æ€«æ€Šæ€¿æ€¡æ¸æ¹æ»æºæ‚
-0x6320: æªæ½æ‚–æ‚šæ‚æ‚悃悒悌悛惬悻悱æƒæƒ˜æƒ†æƒšæ‚´æ„ 愦愕愣惴愀愎愫慊慵憬憔憧
-0x6340: 憷懔懵å¿éš³é—©é—«é—±é—³é—µé—¶é—¼é—¾é˜ƒé˜„阆阈阊阋阌é˜é˜é˜’阕阖阗阙阚丬爿戕氵
-0x6360: 汔汜汊沣沅æ²æ²”沌汨汩汴汶沆沩æ³æ³”æ²æ³·æ³¸æ³±æ³—æ²²æ³ æ³–æ³ºæ³«æ³®æ²±æ³“æ³¯æ³¾
-0x6420: 洹洧洌浃浈洇洄洙洎洫æµæ´®æ´µæ´šæµæµ’æµ”æ´³æ¶‘æµ¯æ¶žæ¶ æµžæ¶“æ¶”æµœæµ æµ¼æµ£æ¸šæ·‡
-0x6440: æ·…æ·žæ¸Žæ¶¿æ· æ¸‘æ·¦æ·æ·™æ¸–æ¶«æ¸Œæ¶®æ¸«æ¹®æ¹Žæ¹«æº²æ¹Ÿæº†æ¹“æ¹”æ¸²æ¸¥æ¹„æ»Ÿæº±æº˜æ» æ¼æ»¢æº¥
-0x6460: 溧溽溻溷滗溴æ»æºæ»‚溟潢潆潇漤漕滹漯漶潋潴漪漉漩澉æ¾æ¾Œæ½¸æ½²æ½¼æ½ºæ¿‘
-0x6520: æ¿‰æ¾§æ¾¹æ¾¶æ¿‚æ¿¡æ¿®æ¿žæ¿ æ¿¯ç€šç€£ç€›ç€¹ç€µççžå®€å®„宕宓宥宸甯骞æ´å¯¤å¯®è¤°å¯°è¹‡
-0x6540: 謇辶迓迕迥迮迤迩迦迳迨逅逄逋逦逑é€é€–逡逵逶é€é€¯é„é‘é’éé¨é˜é¢é›æš¹
-0x6560: é´é½é‚‚邈邃邋å½å½—彖彘尻咫å±å±™å±å±£å±¦ç¾¼å¼ªå¼©å¼è‰´å¼¼é¬»å±®å¦å¦ƒå¦å¦©å¦ªå¦£
-0x6620: 妗姊妫妞妤姒妲妯姗妾娅娆å§å¨ˆå§£å§˜å§¹å¨Œå¨‰å¨²å¨´å¨‘娣娓婀婧婊婕娼婢婵
-0x6640: èƒ¬åªªåª›å©·å©ºåª¾å««åª²å«’å«”åª¸å« å«£å«±å«–å«¦å«˜å«œå¬‰å¬—å¬–å¬²å¬·å€å°•å°œåšå¥å³å‘å“å¢
-0x6660: 驵驷驸驺驿驽骀éªéª…骈骊éªéª’骓骖骘骛骜éªéªŸéª 骢骣骥骧纟纡纣纥纨纩
-0x6720: çºçº°çº¾ç»€ç»ç»‚绉绋绌ç»ç»”ç»—ç»›ç» ç»¡ç»¨ç»«ç»®ç»¯ç»±ç»²ç¼ç»¶ç»ºç»»ç»¾ç¼ç¼‚缃缇缈
-0x6740: 缋缌ç¼ç¼‘缒缗缙缜缛缟缡缢缣缤缥缦缧缪缫缬ç¼ç¼¯ç¼°ç¼±ç¼²ç¼³ç¼µå¹ºç•¿å·›ç”¾é‚•
-0x6760: 玎玑玮玢玟çç‚ç‘玷玳ç€ç‰çˆç¥ç™é¡¼çŠç©ç§çžçŽºç²ççªç‘›ç¦ç¥ç¨ç°ç®ç¬
-0x6820: ç›çšç‘瑜瑗瑕瑙瑷ç‘瑾璜璎璀ç’璇璋璞璨璩ç’璧瓒璺韪韫韬æŒæ“æžæˆæ©
-0x6840: 枥枇æªæ³æž˜æž§æµæž¨æžžæžæž‹æ·æ¼æŸ°æ ‰æŸ˜æ ŠæŸ©æž°æ ŒæŸ™æžµæŸšæž³æŸæ €æŸƒæž¸æŸ¢æ ŽæŸæŸ½
-0x6860: æ ²æ ³æ¡ æ¡¡æ¡Žæ¡¢æ¡„æ¡¤æ¢ƒæ 桕桦æ¡æ¡§æ¡€æ ¾æ¡Šæ¡‰æ ©æ¢µæ¢æ¡´æ¡·æ¢“æ¡«æ£‚æ¥®æ£¼æ¤Ÿæ¤ æ£¹
-0x6920: 椤棰椋æ¤æ¥—棣æ¤æ¥±æ¤¹æ¥ 楂æ¥æ¦„楫榀榘楸椴槌榇榈槎榉楦楣楹榛榧榻榫æ¦
-0x6940: 槔榱æ§æ§Šæ§Ÿæ¦•æ§ æ¦æ§¿æ¨¯æ§æ¨—æ¨˜æ©¥æ§²æ©„æ¨¾æª æ©æ©›æ¨µæªŽæ©¹æ¨½æ¨¨æ©˜æ©¼æª‘æªæª©æª—檫
-0x6960: 猷ç’æ®æ®‚殇殄殒殓æ®æ®šæ®›æ®¡æ®ªè½«è½è½±è½²è½³è½µè½¶è½¸è½·è½¹è½ºè½¼è½¾è¾è¾‚辄辇辋
-0x6a20: è¾è¾Žè¾è¾˜è¾šè»Žæˆ‹æˆ—戛戟戢戡戥戤戬臧瓯瓴瓿ç”甑甓攴旮旯旰昊昙æ²æ˜ƒæ˜•
-0x6a40: 昀炅曷æ˜æ˜´æ˜±æ˜¶æ˜µè€†æ™Ÿæ™”æ™æ™æ™–晡晗晷暄暌暧æšæš¾æ››æ›œæ›¦æ›©è´²è´³è´¶è´»è´½èµ€
-0x6a60: 赅赆赈赉赇èµèµ•èµ™è§‡è§Šè§‹è§Œè§Žè§è§è§‘牮犟ç‰ç‰¦ç‰¯ç‰¾ç‰¿çŠ„犋çŠçŠçŠ’挈挲掰
-0x6b20: æ¿æ“˜è€„毪毳毽毵毹氅氇氆æ°æ°•æ°˜æ°™æ°šæ°¡æ°©æ°¤æ°ªæ°²æ”µæ••æ•«ç‰ç‰’牖爰虢刖肟
-0x6b40: 肜肓肼朊肽肱肫è‚肴肷胧胨胩胪胛胂胄胙èƒèƒ—æœèƒèƒ«èƒ±èƒ´èƒè„脎胲胼朕脒
-0x6b60: è±šè„¶è„žè„¬è„˜è„²è…ˆè…Œè…“è…´è…™è…šè…±è… è…©è…¼è…½è…è…§å¡åªµè†ˆè†‚膑滕膣膪臌朦臊膻
-0x6c20: è‡è†¦æ¬¤æ¬·æ¬¹æƒæ†æ™é£‘飒飓飕飙飚殳彀毂觳æ–齑斓於旆旄旃旌旎旒旖炀炜
-0x6c40: ç‚–ç‚炻烀炷炫炱烨烊ç„ç„“ç„–ç„¯ç„±ç…³ç…œç…¨ç……ç…²ç…Šç…¸ç…ºç†˜ç†³ç†µç†¨ç† ç‡ ç‡”ç‡§ç‡¹çˆ
-0x6c60: 爨ç¬ç„˜ç…¦ç†¹æˆ¾æˆ½æ‰ƒæ‰ˆæ‰‰ç¤»ç¥€ç¥†ç¥‰ç¥›ç¥œç¥“ç¥šç¥¢ç¥—ç¥ ç¥¯ç¥§ç¥ºç¦…ç¦Šç¦šç¦§ç¦³å¿‘å¿
-0x6d20: 怼ææšæ§ææ™æ£æ‚«æ„†æ„æ…憩æ†æ‡‹æ‡‘戆肀è¿æ²“æ³¶æ·¼çŸ¶çŸ¸ç €ç ‰ç —ç ˜ç ‘æ–«ç ç œ
-0x6d40: ç ç ¹ç ºç »ç Ÿç ¼ç ¥ç ¬ç £ç ©ç¡Žç¡ç¡–ç¡—ç ¦ç¡ç¡‡ç¡Œç¡ªç¢›ç¢“碚碇碜碡碣碲碹碥磔磙磉
-0x6d60: 磬磲礅磴礓礤礞礴龛黹黻黼盱眄çœç›¹çœ‡çœˆçœšçœ¢çœ™çœçœ¦çœµçœ¸çç‘ç‡çƒçšç¨
-0x6e20: ç¢ç¥ç¿çžç½çž€çžŒçž‘çžŸçž çž°çžµçž½ç”ºç•€ç•Žç•‹ç•ˆç•›ç•²ç•¹ç–ƒç½˜ç½¡ç½Ÿè©ˆç½¨ç½´ç½±ç½¹ç¾
-0x6e40: ç½¾ç›ç›¥è ²é’…钆钇钋钊钌é’é’é’钔钗钕钚钛钜钣钤钫钪é’钬钯钰钲钴钶钷钸
-0x6e60: 钹钺钼钽钿铄铈铉铊铋铌é“é“Žé“é“‘é“’é“•é“–é“—é“™é“˜é“›é“žé“Ÿé“ é“¢é“¤é“¥é“§é“¨é“ª
-0x6f20: 铩铫铮铯铳铴铵铷铹铼铽铿锃锂锆锇锉锊é”锎é”锒锓锔锕锖锘锛é”锞锟
-0x6f40: 锢锪锫锩锬锱锲锴锶锷锸锼锾锿镂锵镄镅镆镉镌镎é•é•’镓镔镖镗镘镙镛镞
-0x6f60: é•Ÿé•é•¡é•¢é•¤é•¥é•¦é•§é•¨é•©é•ªé•«é•¬é•¯é•±é•²é•³é”ºçŸ§çŸ¬é›‰ç§•ç§ç§£ç§«ç¨†åµ‡ç¨ƒç¨‚稞稔
-0x7020: 稹稷穑é»é¦¥ç©°çšˆçšŽçš“çš™çš¤ç“žç“ ç”¬é¸ é¸¢é¸¨é¸©é¸ªé¸«é¸¬é¸²é¸±é¸¶é¸¸é¸·é¸¹é¸ºé¸¾é¹é¹‚
-0x7040: 鹄鹆鹇鹈鹉鹋鹌鹎鹑鹕鹗鹚鹛鹜鹞鹣鹦鹧鹨鹩鹪鹫鹬鹱é¹é¹³ç–’ç–”ç––ç– ç–ç–¬
-0x7060: 疣疳疴疸痄疱疰痃痂痖ç—痣痨痦痤痫痧瘃痱痼痿ç˜ç˜€ç˜…瘌瘗瘊瘥瘘瘕瘙
-0x7120: ç˜›ç˜¼ç˜¢ç˜ ç™€ç˜ç˜°ç˜¿ç˜µç™ƒç˜¾ç˜³ç™ç™žç™”ç™œç™–ç™«ç™¯ç¿Šç«¦ç©¸ç©¹çª€çª†çªˆçª•çª¦çª çª¬çª¨
-0x7140: çªçª³è¡¤è¡©è¡²è¡½è¡¿è¢‚袢裆袷袼裉裢裎裣裥裱褚裼裨裾裰褡褙褓褛褊褴褫褶è¥
-0x7160: è¥¦è¥»ç–‹èƒ¥çš²çš´çŸœè€’è€”è€–è€œè€ è€¢è€¥è€¦è€§è€©è€¨è€±è€‹è€µèƒè†èè’è©è±è¦ƒé¡¸é¢€é¢ƒ
-0x7220: 颉颌é¢é¢é¢”颚颛颞颟颡颢颥颦è™è™”虬虮虿虺虼虻蚨èšèš‹èš¬èšèš§èš£èšªèš“èš©
-0x7240: 蚶蛄蚵蛎蚰蚺蚱蚯蛉è›èš´è›©è›±è›²è›è›³è›èœ“蛞蛴蛟蛘蛑蜃蜇蛸蜈蜊èœèœ‰èœ£èœ»
-0x7260: 蜞蜥蜮蜚蜾èˆèœ´èœ±èœ©èœ·èœ¿èž‚蜢è½è¾è»è è°èŒè®èž‹è“è£è¼è¤è™è¥èž“螯螨蟒
-0x7320: 蟆螈螅èžèž—èžƒèž«èŸ¥èž¬èžµèž³èŸ‹èŸ“èž½èŸ‘èŸ€èŸŠèŸ›èŸªèŸ èŸ®è –è “èŸ¾è Šè ›è ¡è ¹è ¼ç¼¶ç½‚
-0x7340: 罄罅èˆç«ºç«½ç¬ˆç¬ƒç¬„笕笊笫ç¬ç‡ç¬¸ç¬ªç¬™ç¬®ç¬±ç¬ 笥笤笳笾笞ç˜çšç…çµçŒçç ç®
-0x7360: ç»ç¢ç²ç±ç®ç®¦ç®§ç®¸ç®¬ç®ç®¨ç®…箪箜箢箫箴篑ç¯ç¯Œç¯ç¯šç¯¥ç¯¦ç¯ªç°Œç¯¾ç¯¼ç°ç°–ç°‹
-0x7420: 簟簪簦簸ç±ç±€è‡¾èˆèˆ‚舄臬衄舡舢舣èˆèˆ¯èˆ¨èˆ«èˆ¸èˆ»èˆ³èˆ´èˆ¾è‰„艉艋è‰è‰šè‰Ÿè‰¨
-0x7440: 衾袅袈裘裟襞ç¾ç¾Ÿç¾§ç¾¯ç¾°ç¾²ç±¼æ•‰ç²‘ç²ç²œç²žç²¢ç²²ç²¼ç²½ç³ç³‡ç³Œç³ç³ˆç³…糗糨艮暨
-0x7460: 羿翎翕翥翡翦翩翮翳糸絷綦綮繇纛麸麴赳趄趔趑趱赧èµè±‡è±‰é…Šé…é…Žé…é…¤
-0x7520: 酢酡酰酩酯酽酾酲酴酹醌醅é†é†é†‘醢醣醪é†é†®é†¯é†µé†´é†ºè±•é¹¾è¶¸è·«è¸…蹙蹩
-0x7540: 趵趿趼趺跄跖跗跚跞跎è·è·›è·†è·¬è··è·¸è·£è·¹è·»è·¤è¸‰è·½è¸”è¸è¸Ÿè¸¬è¸®è¸£è¸¯è¸ºè¹€è¸¹
-0x7560: 踵踽踱蹉è¹è¹‚蹑蹒蹊蹰蹶蹼蹯蹴躅èºèº”èºèºœèºžè±¸è²‚貊貅貘貔斛觖觞觚觜
-0x7620: 觥觫觯訾謦é“雩雳雯霆éœéœˆéœéœŽéœªéœéœ°éœ¾é¾€é¾ƒé¾…龆龇龈龉龊龌黾鼋é¼éš¹
-0x7640: éš¼éš½é›Žé›’çž¿é› éŠŽéŠ®é‹ˆéŒ¾éªéŠéŽé¾é‘«é±¿é²‚鲅鲆鲇鲈稣鲋鲎é²é²‘鲒鲔鲕鲚鲛鲞
-0x7660: é²Ÿé² é²¡é²¢é²£é²¥é²¦é²§é²¨é²©é²«é²é²®é²°é²±é²²é²³é²´é²µé²¶é²·é²ºé²»é²¼é²½é³„鳅鳆鳇鳊鳋
-0x7720: 鳌é³é³Žé³é³é³“鳔鳕鳗鳘鳙鳜é³é³Ÿé³¢é¼éž…鞑鞒鞔鞯鞫鞣鞲鞴骱骰骷鹘骶骺
-0x7740: 骼é«é«€é«…髂髋髌髑é…éƒé‡é‰éˆéé‘飨é¤é¤®é¥•é¥”髟髡髦髯髫髻é«é«¹é¬ˆé¬é¬“鬟
-0x7760: 鬣麽麾縻麂麇麈麋麒é–éºéºŸé»›é»œé»é» 黟黢黩黧黥黪黯鼢鼬鼯鼹鼷鼽鼾齄
diff --git a/3.8.8/sources/cpan-Encode/vendor/t/grow.t b/3.8.8/sources/cpan-Encode/vendor/t/grow.t
deleted file mode 100644
index e6b35fc..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/t/grow.t
+++ /dev/null
@@ -1,39 +0,0 @@
-#!../perl
-our $POWER;
-BEGIN {
- if ($ENV{'PERL_CORE'}){
- chdir 't';
- unshift @INC, '../lib';
- }
- require Config; import Config;
- if ($Config{'extensions'} !~ /\bEncode\b/) {
- print "1..0 # Skip: Encode was not built\n";
- exit 0;
- }
- $POWER = 12; # up to 1 MB. You may adjust the figure here
-}
-
-use strict;
-use Encode;
-
-my $seed = "";
-for my $i (0x00..0xff){
- my $c = chr($i);
- $seed .= ($c =~ /^\p{IsPrint}/o) ? $c : " ";
-}
-
-use Test::More tests => $POWER*2;
-my $octs = $seed;
-use bytes ();
-for my $i (1..$POWER){
- $octs .= $octs;
- my $len = bytes::length($octs);
- my $utf8 = Encode::decode('latin1', $octs);
- ok(1, "decode $len bytes");
- is($octs,
- Encode::encode('latin1', $utf8),
- "encode $len bytes");
-}
-__END__
-
-
diff --git a/3.8.8/sources/cpan-Encode/vendor/t/gsm0338.t b/3.8.8/sources/cpan-Encode/vendor/t/gsm0338.t
deleted file mode 100644
index 822ff4f..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/t/gsm0338.t
+++ /dev/null
@@ -1,135 +0,0 @@
-BEGIN {
- if ($ENV{'PERL_CORE'}){
- chdir 't';
- unshift @INC, '../lib';
- }
- require Config; import Config;
- if ($Config{'extensions'} !~ /\bEncode\b/) {
- print "1..0 # Skip: Encode was not built\n";
- exit 0;
- }
- $| = 1;
-}
-
-use strict;
-use utf8;
-use Test::More tests => 778;
-use Encode;
-use Encode::GSM0338;
-
-# The specification of GSM 03.38 is not awfully clear.
-# (http://www.unicode.org/Public/MAPPINGS/ETSI/GSM0338.TXT)
-# The various combinations of 0x00 and 0x1B as leading bytes
-# are unclear, as is the semantics of those bytes as standalone
-# or as final single bytes.
-
-
-my $chk = Encode::LEAVE_SRC();
-
-# escapes
-# see http://www.csoft.co.uk/sms/character_sets/gsm.htm
-my %esc_seq = (
- "\x{20ac}" => "\x1b\x65",
- "\x0c" => "\x1b\x0A",
- "[" => "\x1b\x3C",
- "\\" => "\x1b\x2F",
- "]" => "\x1b\x3E",
- "^" => "\x1b\x14",
- "{" => "\x1b\x28",
- "|" => "\x1b\x40",
- "}" => "\x1b\x29",
- "~" => "\x1b\x3D",
-);
-
-my %unesc_seq = reverse %esc_seq;
-
-
-sub eu{
- $_[0] =~ /[\x00-\x1f]/ ?
- sprintf("\\x{%04X}", ord($_[0])) : encode_utf8($_[0]);
-
-}
-
-for my $c ( map { chr } 0 .. 127 ) {
- my $u = $Encode::GSM0338::GSM2UNI{$c};
-
- # default character set
- is decode( "gsm0338", $c, $chk ), $u,
- sprintf( "decode \\x%02X", ord($c) );
- eval { decode( "gsm0338", $c . "\xff", $chk ) };
- ok( $@, $@ );
- is encode( "gsm0338", $u, $chk ), $c, sprintf( "encode %s", eu($u) );
- eval { encode( "gsm0338", $u . "\x{3000}", $chk ) };
- ok( $@, $@ );
-
- # nasty atmark
- if ( $c eq "\x00" ) {
- is decode( "gsm0338", "\x00" . $c, $chk ), "\x00",
- sprintf( '@@ =>: \x00+\x%02X', ord($c) );
- }
- else {
- is decode( "gsm0338", "\x00" . $c ), '@' . decode( "gsm0338", $c ),
- sprintf( '@: decode \x00+\x%02X', ord($c) );
- }
-
- # escape seq.
- my $ecs = "\x1b" . $c;
- if ( $unesc_seq{$ecs} ) {
- is decode( "gsm0338", $ecs, $chk ), $unesc_seq{$ecs},
- sprintf( "ESC: decode ESC+\\x%02X", ord($c) );
- is encode( "gsm0338", $unesc_seq{$ecs}, $chk ), $ecs,
- sprintf( "ESC: encode %s ", eu( $unesc_seq{$ecs} ) );
- }
- else {
- is decode( "gsm0338", $ecs, $chk ),
- "\xA0" . decode( "gsm0338", $c ),
- sprintf( "decode ESC+\\x%02X", ord($c) );
- }
-}
-
-__END__
-for my $c (map { chr } 0..127){
- my $b = "\x1b$c";
- my $u = $Encode::GSM0338::GSM2UNI{$b};
- next unless $u;
- $u ||= "\xA0" . $Encode::GSM0338::GSM2UNI{$c};
- is decode("gsm0338", $b), $u, sprintf("decode ESC+\\x%02X", ord($c) );
-}
-
-__END__
-# old test follows
-ub t { is(decode("gsm0338", my $t = $_[0]), $_[1]) }
-
-# t("\x00", "\x00"); # ???
-
-# "Round-trip".
-t("\x41", "\x41");
-
-t("\x01", "\xA3");
-t("\x02", "\x24");
-t("\x03", "\xA5");
-t("\x09", "\xE7");
-
-t("\x00\x00", "\x00\x00"); # Maybe?
-t("\x00\x1B", "\x40\xA0"); # Maybe?
-t("\x00\x41", "\x40\x41");
-
-# t("\x1B", "\x1B"); # ???
-
-# Escape with no special second byte is just a NBSP.
-t("\x1B\x41", "\xA0\x41");
-
-t("\x1B\x00", "\xA0\x40"); # Maybe?
-
-# Special escape characters.
-t("\x1B\x0A", "\x0C");
-t("\x1B\x14", "\x5E");
-t("\x1B\x28", "\x7B");
-t("\x1B\x29", "\x7D");
-t("\x1B\x2F", "\x5C");
-t("\x1B\x3C", "\x5B");
-t("\x1B\x3D", "\x7E");
-t("\x1B\x3E", "\x5D");
-t("\x1B\x40", "\x7C");
-t("\x1B\x40", "\x7C");
-t("\x1B\x65", "\x{20AC}");
diff --git a/3.8.8/sources/cpan-Encode/vendor/t/guess.t b/3.8.8/sources/cpan-Encode/vendor/t/guess.t
deleted file mode 100644
index 37ddd5a..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/t/guess.t
+++ /dev/null
@@ -1,114 +0,0 @@
-BEGIN {
- require Config; import Config;
- if ($Config{'extensions'} !~ /\bEncode\b/) {
- print "1..0 # Skip: Encode was not built\n";
- exit 0;
- }
- if (ord("A") == 193) {
- print "1..0 # Skip: EBCDIC\n";
- exit 0;
- }
- $| = 1;
-}
-
-use strict;
-use File::Basename;
-use File::Spec;
-use Encode qw(decode encode find_encoding _utf8_off);
-
-#use Test::More qw(no_plan);
-use Test::More tests => 30;
-use_ok("Encode::Guess");
-{
- no warnings;
- $Encode::Guess::DEBUG = shift || 0;
-}
-
-my $ascii = join('' => map {chr($_)}(0x21..0x7e));
-my $latin1 = join('' => map {chr($_)}(0xa1..0xfe));
-my $utf8on = join('' => map {chr($_)}(0x3000..0x30fe));
-my $utf8off = $utf8on; _utf8_off($utf8off);
-my $utf16 = encode('UTF-16', $utf8on);
-my $utf32 = encode('UTF-32', $utf8on);
-
-like(guess_encoding(''), qr/empty string/io, 'empty string');
-is(guess_encoding($ascii)->name, 'ascii', 'ascii');
-like(guess_encoding($latin1), qr/No appropriate encoding/io, 'no ascii');
-is(guess_encoding($latin1, 'latin1')->name, 'iso-8859-1', 'iso-8859-1');
-is(guess_encoding($utf8on)->name, 'utf8', 'utf8 w/ flag');
-is(guess_encoding($utf8off)->name, 'utf8', 'utf8 w/o flag');
-is(guess_encoding($utf16)->name, 'UTF-16', 'UTF-16');
-is(guess_encoding($utf32)->name, 'UTF-32', 'UTF-32');
-
-my $jisx0201 = File::Spec->catfile(dirname(__FILE__), 'jisx0201.utf');
-my $jisx0208 = File::Spec->catfile(dirname(__FILE__), 'jisx0208.utf');
-my $jisx0212 = File::Spec->catfile(dirname(__FILE__), 'jisx0212.utf');
-
-open my $fh, $jisx0208 or die "$jisx0208: $!";
-binmode($fh);
-$utf8off = join('' => <$fh>);
-close $fh;
-$utf8on = decode('utf8', $utf8off);
-
-my @jp = qw(7bit-jis shiftjis euc-jp);
-
-Encode::Guess->set_suspects(@jp);
-
-for my $jp (@jp){
- my $test = encode($jp, $utf8on);
- is(guess_encoding($test)->name, $jp, "JP:$jp");
-}
-
-is (decode('Guess', encode('euc-jp', $utf8on)), $utf8on, "decode('Guess')");
-eval{ encode('Guess', $utf8on) };
-like($@, qr/not defined/io, "no encode()");
-
-my %CJKT =
- (
- 'euc-cn' => File::Spec->catfile(dirname(__FILE__), 'gb2312.utf'),
- 'euc-jp' => File::Spec->catfile(dirname(__FILE__), 'jisx0208.utf'),
- 'euc-kr' => File::Spec->catfile(dirname(__FILE__), 'ksc5601.utf'),
- 'big5-eten' => File::Spec->catfile(dirname(__FILE__), 'big5-eten.utf'),
-);
-
-Encode::Guess->set_suspects(keys %CJKT);
-
-for my $name (keys %CJKT){
- open my $fh, $CJKT{$name} or die "$CJKT{$name}: $!";
- binmode($fh);
- $utf8off = join('' => <$fh>);
- close $fh;
-
- my $test = encode($name, decode('utf8', $utf8off));
- is(guess_encoding($test)->name, $name, "CJKT:$name");
-}
-
-my $ambiguous = "\x{5c0f}\x{98fc}\x{5f3e}";
-my $english = "The quick brown fox jumps over the black lazy dog.";
-for my $utf (qw/UTF-16 UTF-32/){
- for my $bl (qw/BE LE/){
- my $test = encode("$utf$bl" => $english);
- is(guess_encoding($test)->name, "$utf$bl", "$utf$bl");
- }
-}
-for my $bl (qw/BE LE/){
- my $test = encode("UTF-16$bl" => $ambiguous);
- my $result = guess_encoding($test);
- ok(! ref($result), "UTF-16$bl:$result");
-}
-
-
-
-Encode::Guess->set_suspects();
-for my $jp (@jp){
- # intentionally set $1 a priori -- see Changes
- my $test = "English";
- '$1' =~ m/^(.*)/o;
- is(guess_encoding($test, ($jp))->name, 'ascii',
- "ascii vs $jp (\$1 messed)");
- $test = encode($jp, $test . "\n\x{65e5}\x{672c}\x{8a9e}");
- is(guess_encoding($test, ($jp))->name,
- $jp, "$jp vs ascii (\$1 messed)");
-}
-
-__END__;
diff --git a/3.8.8/sources/cpan-Encode/vendor/t/jisx0201.enc b/3.8.8/sources/cpan-Encode/vendor/t/jisx0201.enc
deleted file mode 100644
index 66a7cbb..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/t/jisx0201.enc
+++ /dev/null
@@ -1,2 +0,0 @@
-0x00a0: Ž¡Ž¢Ž£Ž¤Ž¥Ž¦Ž§Ž¨Ž©ŽªŽ«Ž¬ŽŽ®Ž¯Ž°Ž±Ž²Ž³Ž´ŽµŽ¶Ž·Ž¸Ž¹ŽºŽ»Ž¼Ž½Ž¾Ž¿
-0x00c0: ŽÀŽÁŽÂŽÃŽÄŽÅŽÆŽÇŽÈŽÉŽÊŽËŽÌŽÍŽÎŽÏŽÐŽÑŽÒŽÓŽÔŽÕŽÖŽ×ŽØŽÙŽÚŽÛŽÜŽÝŽÞŽß
diff --git a/3.8.8/sources/cpan-Encode/vendor/t/jisx0208.utf b/3.8.8/sources/cpan-Encode/vendor/t/jisx0208.utf
deleted file mode 100644
index 3a51feb..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/t/jisx0208.utf
+++ /dev/null
@@ -1,226 +0,0 @@
-0x2120: 　ã€ã€‚，．・：；？ï¼ã‚›ã‚œÂ´ï½€Â¨ï¼¾ï¿£ï¼¿ãƒ½ãƒ¾ã‚ゞ〃ä»ã€…〆〇ー―â€ï¼
-0x2140: ＼〜‖｜…‥‘’“â€ï¼ˆï¼‰ã€”〕［］｛ï½ã€ˆã€‰ã€Šã€‹ã€Œã€ã€Žã€ã€ã€‘＋−±×
-0x2160: ÷ï¼â‰ ï¼œï¼žâ‰¦â‰§âˆžâˆ´â™‚â™€Â°â€²â€³â„ƒï¿¥ï¼„Â¢Â£ï¼…ï¼ƒï¼†ï¼Šï¼ Â§â˜†â˜…â—‹â—â—Žâ—‡
-0x2220: ◆□■△▲▽▼※〒→â†â†‘↓〓 ∈∋⊆⊇⊂⊃
-0x2240: ∪∩ ∧∨¬⇒⇔∀∃ ∠⊥⌒∂
-0x2260: ∇≡≒≪≫√∽âˆâˆµâˆ«âˆ¬ ʼn♯â™â™ªâ€ ‡¶ â—¯
-0x2320: ï¼ï¼‘２３４５６７８９
-0x2340: ＡＢＣＤＥＦＧＨＩＪＫＬï¼ï¼®ï¼¯ï¼°ï¼±ï¼²ï¼³ï¼´ï¼µï¼¶ï¼·ï¼¸ï¼¹ï¼º
-0x2360: ï½ï½‚ｃｄｅｆｇｈｉｊｋｌï½ï½Žï½ï½ï½‘ｒｓｔｕｖｗｘｙｚ
-0x2420: ãã‚ãƒã„ã…ã†ã‡ãˆã‰ãŠã‹ãŒããŽããã‘ã’ã“ã”ã•ã–ã—ã˜ã™ãšã›ãœããžãŸ
-0x2440: ã ã¡ã¢ã£ã¤ã¥ã¦ã§ã¨ã©ãªã«ã¬ãã®ã¯ã°ã±ã²ã³ã´ãµã¶ã·ã¸ã¹ãºã»ã¼ã½ã¾ã¿
-0x2460: ã‚€ã‚もゃやゅゆょよらりるれã‚ã‚Žã‚ã‚ã‚‘ã‚’ã‚“
-0x2520: ァアィイゥウェエォオカガã‚ギクグケゲコゴサザシジスズセゼソゾタ
-0x2540: ダãƒãƒ‚ッツヅテデトドナニヌãƒãƒŽãƒãƒãƒ‘ヒビピフブプヘベペホボãƒãƒžãƒŸ
-0x2560: ムメモャヤュユョヨラリルレãƒãƒ®ãƒ¯ãƒ°ãƒ±ãƒ²ãƒ³ãƒ´ãƒµãƒ¶
-0x2620: ΑΒΓΔΕΖΗΘΙΚΛΜÎΞΟΠΡΣΤΥΦΧΨΩ
-0x2640: αβγδεζηθικλμνξοπÏστυφχψω
-0x2720: ÐБВГДЕÐЖЗИЙКЛМÐОПРСТУФХЦЧШЩЪЫЬÐ
-0x2740: ЮЯ абвгдеёжзийклмн
-0x2760: опрÑтуфхцчшщъыьÑÑŽÑ
-0x2820: ─│┌â”┘└├┬┤┴┼â”┃â”┓┛┗┣┳┫┻╋┠┯┨┷┿â”┰┥┸
-0x2840: â•‚
-0x3020: 亜唖娃阿哀愛挨姶逢葵茜ç©æ‚ªæ¡æ¸¥æ—葦芦鯵梓圧斡扱宛å§è™»é£´çµ¢ç¶¾é®Žæˆ–
-0x3040: 粟袷安庵按暗案闇éžæ以伊ä½ä¾å‰å›²å¤·å§”å¨å°‰æƒŸæ„慰易椅為ç•ç•°ç§»ç¶ç·¯èƒƒ
-0x3060: èŽè¡£è¬‚é•éºåŒ»äº•äº¥åŸŸè‚²éƒç£¯ä¸€å£±æº¢é€¸ç¨²èŒ¨èŠ‹é°¯å…å°å’½å“¡å› 姻引飲淫胤è”
-0x3120: é™¢é™°éš éŸ»å‹å³å®‡çƒç¾½è¿‚雨å¯éµœçªºä¸‘碓臼渦嘘唄æ¬è”šé°»å§¥åŽ©æµ¦ç“œé–噂云é‹
-0x3140: 雲è餌å¡å–¶å¬°å½±æ˜ æ›³æ „æ°¸æ³³æ´©ç‘›ç›ˆç©Žé ´è‹±è¡›è© é‹æ¶²ç–«ç›Šé§…悦è¬è¶Šé–²æ¦ŽåŽå††
-0x3160: åœ’å °å¥„å®´å»¶æ€¨æŽ©æ´æ²¿æ¼”炎焔煙燕猿ç¸è‰¶è‹‘è–—é 鉛鴛塩於汚甥凹央奥往応
-0x3220: 押旺横欧殴王ç¿è¥–鴬鴎黄岡沖è»å„„屋憶臆桶牡乙俺å¸æ©æ¸©ç©éŸ³ä¸‹åŒ–仮何
-0x3240: ä¼½ä¾¡ä½³åŠ å¯å˜‰å¤å«å®¶å¯¡ç§‘暇果架æŒæ²³ç«ç‚ç¦ç¦¾ç¨¼ç®‡èŠ±è‹›èŒ„è·è¯è“è¦èª²å˜©è²¨
-0x3260: 迦éŽéœžèšŠä¿„峨我牙画臥芽蛾賀雅餓駕介会解回塊壊廻快怪悔æ¢æ‡æˆ’æ‹æ”¹
-0x3320: é晦械海ç°ç•Œçš†çµµèŠ¥èŸ¹é–‹éšŽè²å‡±åŠ¾å¤–咳害崖慨概涯ç¢è“‹è¡—該鎧骸浬馨蛙
-0x3340: 垣柿蛎鈎劃嚇å„å»“æ‹¡æ’¹æ ¼æ ¸æ®»ç²ç¢ºç©«è¦šè§’赫較éƒé–£éš”é©å¦å²³æ¥½é¡é¡ŽæŽ›ç¬ 樫
-0x3360: 橿梶é°æ½Ÿå‰²å–æ°æ‹¬æ´»æ¸‡æ»‘è‘›è¤è½„且鰹å¶æ¤›æ¨ºéž„æ ªå…œç«ƒè’²é‡œéŽŒå™›é´¨æ ¢èŒ…è±
-0x3420: ç²¥åˆˆè‹…ç“¦ä¹¾ä¾ƒå† å¯’åˆŠå‹˜å‹§å·»å–šå ªå§¦å®Œå®˜å¯›å¹²å¹¹æ‚£æ„Ÿæ…£æ†¾æ›æ•¢æŸ‘桓棺款æ“
-0x3440: 汗漢澗潅環甘監看竿管簡緩缶翰è‚艦莞観諌貫還鑑間閑関陥韓館舘丸å«å²¸
-0x3460: 巌玩癌眼岩翫贋é›é ‘顔願ä¼ä¼Žå±å–œå™¨åŸºå¥‡å¬‰å¯„å²å¸Œå¹¾å¿Œæ®æœºæ——既期棋棄
-0x3520: 機帰毅気汽畿祈å£ç¨€ç´€å¾½è¦è¨˜è²´èµ·è»Œè¼é£¢é¨Žé¬¼äº€å½å„€å¦“å®œæˆ¯æŠ€æ“¬æ¬ºçŠ ç–‘
-0x3540: 祇義蟻誼è°æŽ¬èŠéž å‰åƒå–«æ¡”æ©˜è©°ç §æµé»å´å®¢è„šè™é€†ä¸˜ä¹…仇休åŠå¸å®®å¼“急救
-0x3560: 朽求汲泣ç¸çƒç©¶çª®ç¬ˆç´šç³¾çµ¦æ—§ç‰›åŽ»å±…å·¨æ‹’æ‹ æŒ™æ¸ è™šè¨±è·é‹¸æ¼ç¦¦éšäº¨äº«äº¬
-0x3620: ä¾›ä¾ åƒ‘å…‡ç«¶å…±å‡¶å”匡å¿å«å–¬å¢ƒå³¡å¼·å½Šæ€¯ææ挟教橋æ³ç‹‚ç‹çŸ¯èƒ¸è„…興蕎郷
-0x3640: é¡éŸ¿é¥—é©šä»°å‡å°æšæ¥å±€æ›²æ¥µçŽ‰æ¡ç²åƒ…勤å‡å·¾éŒ¦æ–¤æ¬£æ¬½ç´ç¦ç¦½ç‹ç·ŠèŠ¹èŒè¡¿è¥Ÿ
-0x3660: 謹近金åŸéŠ€ä¹å€¶å¥åŒºç‹—玖矩苦躯駆駈駒具愚虞喰空å¶å¯“é‡éš…串櫛釧屑屈
-0x3720: 掘窟沓é´è½¡çªªç†Šéšˆç²‚æ —ç¹°æ¡‘é¬å‹²å›è–«è¨“群è»éƒ¡å¦è¢ˆç¥ä¿‚傾刑兄啓åœçªåž‹
-0x3740: 契形径æµæ…¶æ…§æ†©æŽ²æºæ•¬æ™¯æ¡‚渓畦稽系経継繋罫茎èŠè›è¨ˆè©£è¦è»½é šé¶èŠ¸è¿Žé¯¨
-0x3760: 劇戟撃激隙æ¡å‚‘æ¬ æ±ºæ½”ç©´çµè¡€è¨£æœˆä»¶å€¹å€¦å¥å…¼åˆ¸å‰£å–§åœå …嫌建憲懸拳æ²
-0x3820: æ¤œæ¨©ç‰½çŠ¬çŒ®ç ”ç¡¯çµ¹çœŒè‚©è¦‹è¬™è³¢è»’é£éµé™ºé¡•é¨“鹸元原厳幻弦減æºçŽ„ç¾çµƒèˆ·
-0x3840: 言諺é™ä¹Žå€‹å¤å‘¼å›ºå§‘å¤å·±åº«å¼§æˆ¸æ•…枯湖ç‹ç³Šè¢´è‚¡èƒ¡è°è™Žèª‡è·¨éˆ·é›‡é¡§é¼“五互
-0x3860: ä¼åˆå‘‰å¾å¨¯å¾Œå¾¡æ‚Ÿæ¢§æªŽç‘šç¢èªžèª¤è·é†ä¹žé¯‰äº¤ä½¼ä¾¯å€™å€–光公功効勾厚å£å‘
-0x3920: åŽå–‰å‘垢好å”åå®å·¥å·§å··å¹¸åºƒåºšåº·å¼˜æ’慌抗拘控攻昂晃更ææ ¡æ¢—æ§‹æ±Ÿæ´ª
-0x3940: 浩港æºç”²çš‡ç¡¬ç¨¿ç³ 紅紘絞綱耕考肯肱腔è†èˆªè’è¡Œè¡¡è¬›è²¢è³¼éƒŠé…µé‰±ç ¿é‹¼é–¤é™
-0x3960: é …é¦™é«˜é´»å‰›åŠ«å·åˆå£•æ‹·æ¿ è±ªè½Ÿéº¹å…‹åˆ»å‘Šå›½ç©€é…·éµ é»’ç„漉腰甑忽惚骨狛込
-0x3a20: æ¤é ƒä»Šå›°å¤å¢¾å©šæ¨æ‡‡æ˜æ˜†æ ¹æ¢±æ··ç—•ç´ºè‰®é‚些ä½å‰å”†åµ¯å·¦å·®æŸ»æ²™ç‘³ç ‚è©éŽ–
-0x3a40: 裟å座挫債催å†æœ€å“‰å¡žå¦»å®°å½©æ‰æŽ¡æ ½æ³æ¸ˆç½é‡‡çŠ€ç •ç ¦ç¥æ–Žç´°èœè£è¼‰éš›å‰¤åœ¨
-0x3a60: æ罪財冴å‚é˜ªå ºæ¦Šè‚´å’²å´ŽåŸ¼ç¢•é·ºä½œå‰Šå’‹æ¾æ˜¨æœ”柵窄ç–索錯桜é®ç¬¹åŒ™å†Šåˆ·
-0x3b20: 察拶撮擦æœæ®ºè–©é›‘çšé¯–æŒéŒ†é®«çš¿æ™’三傘å‚山惨撒散桟燦çŠç”£ç®—纂蚕讃賛
-0x3b40: é…¸é¤æ–¬æš«æ®‹ä»•ä»”伺使刺å¸å²å—£å››å£«å§‹å§‰å§¿åå±å¸‚師志æ€æŒ‡æ”¯åœæ–¯æ–½æ—¨æžæ¢
-0x3b60: æ»æ°ç…祉ç§ç³¸ç´™ç´«è‚¢è„‚至視詞詩試誌諮資賜雌飼æ¯äº‹ä¼¼ä¾å…å—寺慈æŒæ™‚
-0x3c20: 次滋治爾璽痔ç£ç¤ºè€Œè€³è‡ªè’”辞æ±é¹¿å¼è˜é´«ç«ºè»¸å®é›«ä¸ƒå±åŸ·å¤±å«‰å®¤æ‚‰æ¹¿æ¼†
-0x3c40: ç–¾è³ªå®Ÿè”€ç¯ å²æŸ´èŠå±¡è•Šç¸žèˆŽå†™å°„æ¨èµ¦æ–œç…®ç¤¾ç´—者è¬è»Šé®è›‡é‚ªå€Ÿå‹ºå°ºæ“ç¼çˆµ
-0x3c60: 酌釈錫若寂弱惹主å–守手朱殊狩ç 種腫趣酒首儒å—呪寿授樹綬需囚åŽå‘¨
-0x3d20: 宗就州修æ„拾洲秀秋終ç¹ç¿’è‡èˆŸè’衆襲è®è¹´è¼¯é€±é…‹é…¬é›†é†œä»€ä½å……å従戎
-0x3d40: 柔æ±æ¸‹ç£ç¸¦é‡éŠƒå”夙宿淑ç¥ç¸®ç²›å¡¾ç†Ÿå‡ºè¡“述俊峻春瞬竣舜駿准循旬楯殉淳
-0x3d60: 準潤盾純巡éµé†‡é †å‡¦åˆæ‰€æš‘曙渚庶緒署書薯藷諸助å™å¥³åºå¾æ•é‹¤é™¤å‚·å„Ÿ
-0x3e20: å‹åŒ å‡å¬å“¨å•†å”±å˜—奨妾娼宵将å°å°‘å°šåº„åºŠå» å½°æ‰¿æŠ„æ‹›æŽŒæ·æ˜‡æ˜Œæ˜æ™¶æ¾æ¢¢
-0x3e40: 樟樵沼消渉湘焼焦照症çœç¡ç¤ç¥¥ç§°ç« 笑粧紹肖è–蒋蕉è¡è£³è¨Ÿè¨¼è©”詳象賞醤
-0x3e60: 鉦é¾é˜éšœéž˜ä¸Šä¸ˆä¸žä¹—å†—å‰°åŸŽå ´å£Œå¬¢å¸¸æƒ…æ“¾æ¡æ–浄状畳穣蒸è²é†¸éŒ 嘱埴飾
-0x3f20: æ‹æ¤æ®–ç‡ç¹”è·è‰²è§¦é£Ÿè•è¾±å°»ä¼¸ä¿¡ä¾µå”‡å¨ å¯å¯©å¿ƒæ…ŽæŒ¯æ–°æ™‹æ£®æ¦›æµ¸æ·±ç”³ç–¹çœŸ
-0x3f40: 神秦紳臣芯薪親診身辛進é‡éœ‡äººä»åˆƒå¡µå£¬å°‹ç”šå°½è…Žè¨Šè¿…陣é笥è«é ˆé…¢å›³åŽ¨
-0x3f60: 逗å¹åž‚帥推水炊ç¡ç²‹ç¿ è¡°é‚é…”éŒéŒ˜éšç‘žé«„崇嵩数枢趨雛æ®æ‰æ¤™è…é —é›€è£¾
-0x4020: 澄摺寸世瀬ç•æ˜¯å‡„制勢姓å¾æ€§æˆæ”¿æ•´æ˜Ÿæ™´æ£²æ –æ£æ¸…牲生盛精è–声製西èª
-0x4040: 誓請é€é†’é’é™æ–‰ç¨Žè„†éš»å¸æƒœæˆšæ–¥æ˜”æžçŸ³ç©ç±ç¸¾è„Šè²¬èµ¤è·¡è¹Ÿç¢©åˆ‡æ‹™æŽ¥æ‘‚折è¨
-0x4060: 窃節説雪絶舌è‰ä»™å…ˆåƒå 宣専尖å·æˆ¦æ‰‡æ’°æ “æ ´æ³‰æµ…æ´—æŸ“æ½œç…Žç…½æ—‹ç©¿ç®ç·š
-0x4120: 繊羨腺舛船薦詮賎践é¸é·éŠéŠ‘閃鮮å‰å–„漸然全禅繕膳糎噌塑岨措曾曽楚
-0x4140: ç‹™ç–ç–Žç¤Žç¥–ç§Ÿç²—ç´ çµ„è˜‡è¨´é˜»é¡é¼ 僧創åŒå¢å€‰å–ªå£®å¥çˆ½å®‹å±¤åŒæƒ£æƒ³æœæŽƒæŒ¿æŽ»
-0x4160: æ“早曹巣æ§æ§½æ¼•ç‡¥äº‰ç—©ç›¸çª“糟ç·ç¶œè¡è‰è˜è‘¬è’¼è—»è£…èµ°é€é鎗霜騒åƒå¢—憎
-0x4220: è‡“è”µè´ˆé€ ä¿ƒå´å‰‡å³æ¯æ‰æŸæ¸¬è¶³é€Ÿä¿—属賊æ—続å’袖其æƒå˜å«å°Šææ‘éœä»–多
-0x4240: å¤ªæ±°è©‘å”¾å •å¦¥æƒ°æ‰“æŸèˆµæ¥•é™€é§„é¨¨ä½“å †å¯¾è€å²±å¸¯å¾…æ€ æ…‹æˆ´æ›¿æ³°æ»žèƒŽè…¿è‹”è¢‹è²¸
-0x4260: 退逮隊黛鯛代å°å¤§ç¬¬é†é¡Œé·¹æ»ç€§å“啄宅托択拓沢濯ç¢è¨—é¸æ¿è«¾èŒ¸å‡§è›¸åª
-0x4320: å©ä½†é”辰奪脱巽竪辿棚谷狸鱈樽誰丹å˜å˜†å¦æ‹…探旦æŽæ·¡æ¹›ç‚çŸç«¯ç®ªç¶»è€½
-0x4340: 胆蛋誕é›å›£å£‡å¼¾æ–暖檀段男談値知地弛æ¥æ™ºæ± 痴稚置致蜘é…馳築畜竹ç‘è“„
-0x4360: é€ç§©çª’茶嫡ç€ä¸ä»²å®™å¿ 抽昼柱注虫衷註酎鋳é§æ¨—瀦猪苧著貯ä¸å…†å‡‹å–‹å¯µ
-0x4420: 帖帳åºå¼”張彫徴懲挑暢æœæ½®ç‰’町眺è´è„¹è…¸è¶èª¿è«œè¶…è·³éŠšé•·é ‚é³¥å‹…æ—直朕
-0x4440: 沈çè³ƒéŽ®é™³æ´¥å¢œæ¤Žæ§Œè¿½éŽšç—›é€šå¡šæ ‚æŽ´æ§»ä½ƒæ¼¬æŸ˜è¾»è”¦ç¶´é”椿潰åªå£·å¬¬ç´¬çˆªåŠ
-0x4460: 釣鶴äºä½Žåœåµå‰ƒè²žå‘ˆå ¤å®šå¸åº•åºå»·å¼Ÿæ‚ŒæŠµæŒºææ¢¯æ±€ç¢‡ç¦Žç¨‹ç· è‰‡è¨‚è«¦è¹„é€“
-0x4520: 邸é„釘鼎泥摘擢敵滴的笛é©é‘溺哲徹撤è½è¿é‰„典填天展店添çºç”œè²¼è»¢é¡›
-0x4540: 点ä¼æ®¿æ¾±ç”°é›»å…Žåå µå¡—å¦¬å± å¾’æ–—æœæ¸¡ç™»èŸè³é€”都éç ¥ç ºåŠªåº¦åœŸå¥´æ€’å€’å…šå†¬
-0x4560: å‡åˆ€å”塔塘套宕島嶋悼投ææ±æ¡ƒæ¢¼æ£Ÿç›—淘湯涛ç¯ç‡ˆå½“痘祷ç‰ç”ç’糖統到
-0x4620: 董蕩藤討謄豆è¸é€ƒé€é™é™¶é 騰闘åƒå‹•åŒå ‚導憧撞洞瞳童胴è„é“éŠ…å³ é´‡åŒ¿
-0x4640: 得徳涜特ç£ç¦¿ç¯¤æ¯’独èªæ ƒæ©¡å‡¸çªæ¤´å±Šé³¶è‹«å¯…酉瀞噸屯惇敦沌豚éé “å‘‘æ›‡éˆ
-0x4660: 奈那内ä¹å‡ªè–™è¬Žç˜æºé‹æ¥¢é¦´ç¸„ç•·å—æ¥ è»Ÿé›£æ±äºŒå°¼å¼è¿©åŒ‚賑肉虹廿日乳入
-0x4720: 如尿韮任妊å¿èªæ¿¡ç¦°ç¥¢å¯§è‘±çŒ«ç†±å¹´å¿µæ»æ’šç‡ƒç²˜ä¹ƒå»¼ä¹‹åŸœåš¢æ‚©æ¿ƒç´èƒ½è„³è†¿
-0x4740: 農覗蚤巴把æ’覇æ·æ³¢æ´¾ç¶ç ´å©†ç½µèŠé¦¬ä¿³å»ƒæ‹æŽ’æ•—æ¯ç›ƒç‰ŒèƒŒè‚ºè¼©é…å€åŸ¹åª’梅
-0x4760: æ¥³ç…¤ç‹½è²·å£²è³ é™ªé€™è¿ç§¤çŸ§è©ä¼¯å‰¥åšæ‹æŸæ³Šç™½ç®”粕舶薄迫æ›æ¼ 爆縛莫é§éº¦
-0x4820: 函箱硲箸肇çˆæ«¨å¹¡è‚Œç•‘ç• å…«é‰¢æºŒç™ºé†—é«ªä¼ç½°æŠœç閥鳩噺塙蛤隼伴判åŠå
-0x4840: å›å¸†æ¬æ–‘æ¿æ°¾æ±Žç‰ˆçŠ¯çç•”ç¹èˆ¬è—©è²©ç¯„é‡†ç…©é ’é£¯æŒ½æ™©ç•ªç›¤ç£è•ƒè›®åŒªå‘å¦å¦ƒåº‡
-0x4860: 彼悲扉批披æ–比泌疲皮碑秘緋罷肥被誹費é¿éžé£›æ¨‹ç°¸å‚™å°¾å¾®æž‡æ¯˜çµçœ‰ç¾Ž
-0x4920: 鼻柊稗匹疋é«å½¦è†è±è‚˜å¼¼å¿…ç•¢ç†é€¼æ¡§å§«åª›ç´ç™¾è¬¬ä¿µå½ªæ¨™æ°·æ¼‚瓢票表評豹
-0x4940: 廟æ病秒苗錨鋲蒜è›é°å“å½¬æ–Œæµœç€•è²§è³“é »æ•ç“¶ä¸ä»˜åŸ 夫婦富冨布府怖扶敷
-0x4960: 斧普浮父符è…膚芙èœè² 賦赴阜附侮撫æ¦èˆžè‘¡è•ªéƒ¨å°æ¥“風葺蕗ä¼å‰¯å¾©å¹…æœ
-0x4a20: ç¦è…¹è¤‡è¦†æ·µå¼—払沸ä»ç‰©é®’分å»å™´å¢³æ†¤æ‰®ç„šå¥®ç²‰ç³žç´›é›°æ–‡èžä¸™ä½µå…µå¡€å¹£å¹³
-0x4a40: 弊柄並蔽閉陛米é 僻å£ç™–碧別瞥蔑箆å変片篇編辺返é便勉娩å¼éžä¿èˆ—鋪
-0x4a60: 圃æ•æ©ç”«è£œè¼”穂募墓慕戊暮æ¯ç°¿è©å€£ä¿¸åŒ…å‘†å ±å¥‰å®å³°å³¯å´©åº–抱æ§æ”¾æ–¹æœ‹
-0x4b20: æ³•æ³¡çƒ¹ç ²ç¸«èƒžèŠ³èŒè“¬èœ‚褒訪豊邦鋒飽鳳鵬ä¹äº¡å‚剖åŠå¦¨å¸½å¿˜å¿™æˆ¿æš´æœ›æŸ
-0x4b40: 棒冒紡肪膨謀貌貿鉾防å é ¬åŒ—åƒ•åœå¢¨æ’²æœ´ç‰§ç¦ç©†é‡¦å‹ƒæ²¡æ®†å €å¹Œå¥”本翻凡盆
-0x4b60: 摩磨é”麻埋妹昧枚毎哩槙幕膜枕鮪柾鱒æ¡äº¦ä¿£åˆæŠ¹æœ«æ²«è¿„ä¾ç¹éº¿ä¸‡æ…¢æº€
-0x4c20: 漫蔓味未é…巳箕岬密蜜湊蓑稔脈妙ç²æ°‘çœ å‹™å¤¢ç„¡ç‰ŸçŸ›éœ§éµ¡æ¤‹å©¿å¨˜å†¥å命
-0x4c40: 明盟迷銘鳴姪ç‰æ»…å…棉綿緬é¢éººæ‘¸æ¨¡èŒ‚妄åŸæ¯›çŒ›ç›²ç¶²è€—蒙儲木黙目æ¢å‹¿é¤…
-0x4c60: 尤戻籾貰å•æ‚¶ç´‹é–€åŒä¹Ÿå†¶å¤œçˆºè€¶é‡Žå¼¥çŸ¢åŽ„役約薬訳èºé–柳薮鑓愉愈油癒
-0x4d20: è«è¼¸å”¯ä½‘優勇å‹å®¥å¹½æ‚ 憂æ–有柚湧涌猶猷由ç¥è£•èª˜éŠé‚‘郵雄èžå¤•äºˆä½™ä¸Ž
-0x4d40: 誉輿é å‚幼妖容庸æšæºæ“曜楊様洋溶熔用窯羊耀葉蓉è¦è¬¡è¸Šé¥é™½é¤Šæ…¾æŠ‘欲
-0x4d60: 沃浴翌翼淀羅螺裸æ¥èŽ±é ¼é›·æ´›çµ¡è½é…ªä¹±åµåµæ¬„æ¿«è—è˜è¦§åˆ©åå±¥æŽæ¢¨ç†ç’ƒ
-0x4e20: ç—¢è£è£¡é‡Œé›¢é™¸å¾‹çŽ‡ç«‹è‘ŽæŽ 略劉æµæºœç‰ç•™ç¡«ç²’隆竜é¾ä¾¶æ…®æ—…虜了亮僚両凌
-0x4e40: 寮料æ¢æ¶¼çŒŸç™‚çžç¨œç³§è‰¯è«’é¼é‡é™µé ˜åŠ›ç·‘倫厘林淋ç‡ç³è‡¨è¼ªéš£é±—éºŸç‘ å¡æ¶™ç´¯
-0x4e60: 類令伶例冷励嶺怜玲礼苓鈴隷零霊麗齢暦æ´åˆ—劣烈裂廉æ‹æ†æ¼£ç…‰ç°¾ç·´è¯
-0x4f20: 蓮連錬呂é¯æ«“炉賂路露労å©å»Šå¼„朗楼榔浪æ¼ç‰¢ç‹¼ç¯è€è¾è‹éƒŽå…麓禄肋録
-0x4f40: è«–å€å’Œè©±æªè³„è„‡æƒ‘æž é·²äº™äº˜é°è©«è—蕨椀湾碗腕
-0x5020: 弌ä¸ä¸•ä¸ªä¸±ä¸¶ä¸¼ä¸¿ä¹‚乖乘亂亅豫亊舒å¼äºŽäºžäºŸäº 亢亰亳亶从ä»ä»„仆仂仗
-0x5040: 仞ä»ä»Ÿä»·ä¼‰ä½šä¼°ä½›ä½ä½—佇佶侈ä¾ä¾˜ä½»ä½©ä½°ä¾‘佯來侖儘俔俟俎俘俛俑俚ä¿ä¿¤
-0x5060: 俥倚倨倔倪倥倅伜俶倡倩倬俾俯們倆åƒå‡æœƒå•ååˆåšå–å¬å¸å‚€å‚šå‚…傴傲
-0x5120: 僉僊傳僂僖僞僥åƒåƒ£åƒ®åƒ¹åƒµå„‰å„儂儖儕儔儚儡儺儷儼儻儿兀兒兌兔兢竸
-0x5140: 兩兪兮冀冂囘册冉å†å†‘å†“å†•å†–å†¤å†¦å†¢å†©å†ªå†«å†³å†±å†²å†°å†µå†½å‡…å‡‰å‡›å‡ è™•å‡©å‡
-0x5160: 凰凵凾刄刋刔刎刧刪刮刳刹å‰å‰„剋剌剞剔剪剴剩剳剿剽åŠåŠ”劒剱劈劑辨
-0x5220: 辧劬åŠåŠ¼åŠµå‹å‹å‹—勞勣勦é£å‹ 勳勵勸勹匆匈甸åŒåŒåŒåŒ•åŒšåŒ£åŒ¯åŒ±åŒ³åŒ¸å€
-0x5240: å†å…丗å‰å凖åžå©å®å¤˜å»å·åŽ‚åŽ–åŽ åŽ¦åŽ¥åŽ®åŽ°åŽ¶åƒç°’é›™åŸæ›¼ç‡®å®å¨ååºåå½
-0x5260: å‘€å¬åå¼å®å¶å©åå‘Žå’呵咎呟呱呷呰咒呻咀呶咄å’咆哇咢咸咥咬哄哈咨
-0x5320: 咫哂咤咾咼哘哥哦å”唔哽哮å“哺哢唹啀啣啌售啜啅啖啗唸唳å•å–™å–€å’¯å–Š
-0x5340: 喟啻啾喘喞單啼喃喩喇喨嗚嗅嗟嗄嗜嗤嗔嘔嗷嘖嗾嗽嘛嗹噎å™ç‡Ÿå˜´å˜¶å˜²å˜¸
-0x5360: å™«å™¤å˜¯å™¬å™ªåš†åš€åšŠåš åš”åšåš¥åš®åš¶åš´å›‚åš¼å›å›ƒå›€å›ˆå›Žå›‘囓囗囮囹圀囿圄圉
-0x5420: 圈國åœåœ“團圖嗇圜圦圷圸åŽåœ»å€åå©åŸ€åžˆå¡å¿åž‰åž“åž åž³åž¤åžªåž°åŸƒåŸ†åŸ”åŸ’
-0x5440: åŸ“å ŠåŸ–åŸ£å ‹å ™å å¡²å ¡å¡¢å¡‹å¡°æ¯€å¡’å ½å¡¹å¢…å¢¹å¢Ÿå¢«å¢ºå£žå¢»å¢¸å¢®å£…å£“å£‘å£—å£™å£˜å£¥
-0x5460: 壜壤壟壯壺壹壻壼壽夂夊å¤å¤›æ¢¦å¤¥å¤¬å¤å¤²å¤¸å¤¾ç«’奕å¥å¥Žå¥šå¥˜å¥¢å¥ 奧奬奩
-0x5520: 奸å¦å¦ä½žä¾«å¦£å¦²å§†å§¨å§œå¦å§™å§šå¨¥å¨Ÿå¨‘娜娉娚婀婬婉娵娶婢婪媚媼媾嫋嫂
-0x5540: 媽嫣嫗嫦嫩嫖嫺嫻嬌嬋嬖嬲å«å¬ªå¬¶å¬¾åƒå…å€å‘å•åšå›å¥å©å°å³åµå¸æ–ˆåºå®€
-0x5560: 它宦宸寃寇寉寔å¯å¯¤å¯¦å¯¢å¯žå¯¥å¯«å¯°å¯¶å¯³å°…將專å°å°“å° å°¢å°¨å°¸å°¹å±å±†å±Žå±“
-0x5620: å±å±å±å±¬å±®ä¹¢å±¶å±¹å²Œå²‘岔妛岫岻岶岼岷峅岾峇峙峩峽峺å³å¶Œå³ªå´‹å´•å´—嵜
-0x5640: 崟崛崑崔崢崚崙崘嵌嵒嵎嵋嵬嵳嵶嶇嶄嶂嶢å¶å¶¬å¶®å¶½å¶å¶·å¶¼å·‰å·å·“å·’å·–å·›
-0x5660: å·«å·²å·µå¸‹å¸šå¸™å¸‘å¸›å¸¶å¸·å¹„å¹ƒå¹€å¹Žå¹—å¹”å¹Ÿå¹¢å¹¤å¹‡å¹µå¹¶å¹ºéº¼å¹¿åº å»å»‚廈å»å»
-0x5720: 廖廣å»å»šå»›å»¢å»¡å»¨å»©å»¬å»±å»³å»°å»´å»¸å»¾å¼ƒå¼‰å½å½œå¼‹å¼‘弖弩å¼å¼¸å½å½ˆå½Œå½Žå¼¯
-0x5740: 彑彖彗彙彡å½å½³å½·å¾ƒå¾‚å½¿å¾Šå¾ˆå¾‘å¾‡å¾žå¾™å¾˜å¾ å¾¨å¾å¾¼å¿–忻忤忸忱å¿æ‚³å¿¿æ€¡æ
-0x5760: 怙æ€æ€©æ€Žæ€±æ€›æ€•æ€«æ€¦æ€æ€ºæšææªæ·æŸæŠæ†ææ£æƒæ¤æ‚æ¬æ«æ™æ‚æ‚惧悃悚
-0x5820: æ‚„æ‚›æ‚–æ‚—æ‚’æ‚§æ‚‹æƒ¡æ‚¸æƒ æƒ“æ‚´å¿°æ‚½æƒ†æ‚µæƒ˜æ…愕愆惶惷愀惴惺愃愡惻惱æ„æ„Ž
-0x5840: 慇愾愨愧慊愿愼愬愴愽慂慄慳慷慘慙慚慫慴慯慥慱慟æ…慓慵憙憖憇憬憔憚
-0x5860: 憊憑憫憮懌懊應懷懈懃懆憺懋罹æ‡æ‡¦æ‡£æ‡¶æ‡ºæ‡´æ‡¿æ‡½æ‡¼æ‡¾æˆ€æˆˆæˆ‰æˆæˆŒæˆ”戛
-0x5920: 戞戡截戮戰戲戳æ‰æ‰Žæ‰žæ‰£æ‰›æ‰ 扨扼抂抉找抒抓抖拔抃抔拗拑抻æ‹æ‹¿æ‹†æ“”
-0x5940: 拈拜拌拊拂拇抛拉挌拮拱挧挂挈拯拵æ挾ææœæ掖掎掀掫æ¶æŽ£æŽæŽ‰æŽŸæŽµæ«
-0x5960: æ©æŽ¾æ©æ€æ†æ£æ‰æ’æ¶æ„æ–æ´æ†æ“æ¦æ¶æ”æ—æ¨æ摧摯摶摎攪撕撓撥撩撈撼
-0x5a20: æ“šæ“’æ“…æ“‡æ’»æ“˜æ“‚æ“±æ“§èˆ‰æ“ æ“¡æŠ¬æ“£æ“¯æ”¬æ“¶æ“´æ“²æ“ºæ”€æ“½æ”˜æ”œæ”…æ”¤æ”£æ”«æ”´æ”µæ”·
-0x5a40: 收攸畋效敖敕æ•æ•˜æ•žæ•æ•²æ•¸æ–‚斃變斛斟斫斷旃旆æ—æ—„æ—Œæ—’æ—›æ—™æ— æ—¡æ—±æ²æ˜Š
-0x5a60: 昃旻æ³æ˜µæ˜¶æ˜´æ˜œæ™æ™„晉æ™æ™žæ™æ™¤æ™§æ™¨æ™Ÿæ™¢æ™°æšƒæšˆæšŽæš‰æš„暘æšæ›æš¹æ›‰æš¾æš¼
-0x5b20: æ›„æš¸æ›–æ›šæ› æ˜¿æ›¦æ›©æ›°æ›µæ›·æœæœ–朞朦朧霸朮朿朶æ朸朷æ†æžæ æ™æ£æ¤æž‰æ°
-0x5b40: æž©æ¼æªæžŒæž‹æž¦æž¡æž…枷柯枴柬枳柩枸柤柞æŸæŸ¢æŸ®æž¹æŸŽæŸ†æŸ§æªœæ žæ¡†æ ©æ¡€æ¡æ ²æ¡Ž
-0x5b60: æ¢³æ «æ¡™æ¡£æ¡·æ¡¿æ¢Ÿæ¢æ¢æ¢”æ¢æ¢›æ¢ƒæª®æ¢¹æ¡´æ¢µæ¢ 梺æ¤æ¢æ¡¾æ¤æ£Šæ¤ˆæ£˜æ¤¢æ¤¦æ£¡æ¤Œæ£
-0x5c20: æ£”æ£§æ£•æ¤¶æ¤’æ¤„æ£—æ££æ¤¥æ£¹æ£ æ£¯æ¤¨æ¤ªæ¤šæ¤£æ¤¡æ£†æ¥¹æ¥·æ¥œæ¥¸æ¥«æ¥”æ¥¾æ¥®æ¤¹æ¥´æ¤½æ¥™æ¤°
-0x5c40: 楡楞æ¥æ¦æ¥ªæ¦²æ¦®æ§æ¦¿æ§æ§“榾槎寨槊æ§æ¦»æ§ƒæ¦§æ¨®æ¦‘æ¦ æ¦œæ¦•æ¦´æ§žæ§¨æ¨‚æ¨›æ§¿æ¬Šæ§¹
-0x5c60: 槲槧樅榱樞æ§æ¨”槫樊樒æ«æ¨£æ¨“橄樌橲樶橸橇橢橙橦橈樸樢æªæªæª 檄檢檣
-0x5d20: 檗蘗檻櫃櫂檸檳檬櫞櫑櫟檪櫚櫪櫻欅蘖櫺欒欖鬱欟欸欷盜欹飮æ‡æƒæ‰æ
-0x5d40: æ™æ”æ›æŸæ¡æ¸æ¹æ¿æ®€æ®„殃æ®æ®˜æ®•æ®žæ®¤æ®ªæ®«æ®¯æ®²æ®±æ®³æ®·æ®¼æ¯†æ¯‹æ¯“毟毬毫毳毯
-0x5d60: 麾氈氓气氛氤氣汞汕汢汪沂æ²æ²šæ²æ²›æ±¾æ±¨æ±³æ²’æ²æ³„泱泓沽泗泅æ³æ²®æ²±æ²¾
-0x5e20: 沺泛泯泙泪洟è¡æ´¶æ´«æ´½æ´¸æ´™æ´µæ´³æ´’洌浣涓浤浚浹浙涎涕濤涅淹渕渊涵淇
-0x5e40: 淦涸淆淬淞淌淨淒淅淺淙淤淕淪淮æ¸æ¹®æ¸®æ¸™æ¹²æ¹Ÿæ¸¾æ¸£æ¹«æ¸«æ¹¶æ¹æ¸Ÿæ¹ƒæ¸ºæ¹Žæ¸¤
-0x5e60: 滿æ¸æ¸¸æº‚溪溘滉溷滓溽溯滄溲滔滕æºæº¥æ»‚溟æ½æ¼‘çŒæ»¬æ»¸æ»¾æ¼¿æ»²æ¼±æ»¯æ¼²æ»Œ
-0x5f20: 漾漓滷澆潺潸æ¾æ¾€æ½¯æ½›æ¿³æ½æ¾‚潼潘澎澑濂潦澳澣澡澤澹濆澪濟濕濬濔濘
-0x5f40: 濱濮濛瀉瀋濺瀑ç€ç€æ¿¾ç€›ç€šæ½´ç€ç€˜ç€Ÿç€°ç€¾ç€²ç‘ç£ç‚™ç‚’炯烱炬炸炳炮烟烋çƒ
-0x5f60: 烙焉烽焜焙煥煕熈煦煢煌煖煬ç†ç‡»ç†„ç†•ç†¨ç†¬ç‡—ç†¹ç†¾ç‡’ç‡‰ç‡”ç‡Žç‡ ç‡¬ç‡§ç‡µç‡¼
-0x6020: 燹燿çˆçˆçˆ›çˆ¨çˆçˆ¬çˆ°çˆ²çˆ»çˆ¼çˆ¿ç‰€ç‰†ç‰‹ç‰˜ç‰´ç‰¾çŠ‚çŠçŠ‡çŠ’犖犢犧犹犲狃狆狄
-0x6040: ç‹Žç‹’ç‹¢ç‹ ç‹¡ç‹¹ç‹·å€çŒ—猊猜猖çŒçŒ´çŒ¯çŒ©çŒ¥çŒ¾çŽç默ç—çªç¨ç°ç¸çµç»çºçˆçŽ³çŽ
-0x6060: 玻ç€ç¥ç®çžç’¢ç…瑯ç¥ç¸ç²çºç‘•ç¿ç‘Ÿç‘™ç‘瑜瑩瑰瑣瑪瑶瑾璋璞璧瓊ç“ç“”ç±
-0x6120: ç“ ç“£ç“§ç“©ç“®ç“²ç“°ç“±ç“¸ç“·ç”„ç”ƒç”…ç”Œç”Žç”甕甓甞甦甬甼畄ç•ç•Šç•‰ç•›ç•†ç•šç•©ç•¤
-0x6140: 畧畫ç•ç•¸ç•¶ç–†ç–‡ç•´ç–Šç–‰ç–‚疔疚ç–疥疣痂疳痃疵疽疸疼疱ç—痊痒痙痣痞痾痿
-0x6160: ç—¼ç˜ç—°ç—ºç—²ç—³ç˜‹ç˜ç˜‰ç˜Ÿç˜§ç˜ 瘡瘢瘤瘴瘰瘻癇癈癆癜癘癡癢癨癩癪癧癬癰
-0x6220: 癲癶癸發皀皃皈皋皎皖皓皙皚皰皴皸皹皺盂ç›ç›–盒盞盡盥盧盪蘯盻眈眇
-0x6240: 眄眩眤眞眥眦眛眷眸ç‡çšç¨ç«ç›ç¥ç¿ç¾ç¹çžŽçž‹çž‘çž çžžçž°çž¶çž¹çž¿çž¼çž½çž»çŸ‡çŸ
-0x6260: çŸ—çŸšçŸœçŸ£çŸ®çŸ¼ç Œç ’ç¤¦ç 礪硅碎硴碆硼碚碌碣碵碪碯磑磆磋磔碾碼磅磊磬
-0x6320: ç£§ç£šç£½ç£´ç¤‡ç¤’ç¤‘ç¤™ç¤¬ç¤«ç¥€ç¥ ç¥—ç¥Ÿç¥šç¥•ç¥“ç¥ºç¥¿ç¦Šç¦ç¦§é½‹ç¦ªç¦®ç¦³ç¦¹ç¦ºç§‰ç§•ç§§
-0x6340: 秬秡秣稈ç¨ç¨˜ç¨™ç¨ 稟禀稱稻稾稷穃穗穉穡穢穩é¾ç©°ç©¹ç©½çªˆçª—窕窘窖窩竈窰
-0x6360: 窶竅竄窿邃竇竊ç«ç«ç«•ç«“站竚ç«ç«¡ç«¢ç«¦ç«ç«°ç¬‚ç¬ç¬Šç¬†ç¬³ç¬˜ç¬™ç¬žç¬µç¬¨ç¬¶ç
-0x6420: çºç¬„ç笋çŒç…çµç¥ç´ç§ç°ç±ç¬ç®ç®ç®˜ç®Ÿç®ç®œç®šç®‹ç®’ç®ç箙篋ç¯ç¯Œç¯ç®´ç¯†
-0x6440: ç¯ç¯©ç°‘ç°”ç¯¦ç¯¥ç± ç°€ç°‡ç°“ç¯³ç¯·ç°—ç°ç¯¶ç°£ç°§ç°ªç°Ÿç°·ç°«ç°½ç±Œç±ƒç±”ç±ç±€ç±ç±˜ç±Ÿç±¤ç±–
-0x6460: 籥籬籵粃ç²ç²¤ç²ç²¢ç²«ç²¡ç²¨ç²³ç²²ç²±ç²®ç²¹ç²½ç³€ç³…糂糘糒糜糢鬻糯糲糴糶糺紆
-0x6520: 紂紜紕紊絅絋紮紲紿紵絆絳絖絎絲絨絮çµçµ£ç¶“綉絛ç¶çµ½ç¶›ç¶ºç¶®ç¶£ç¶µç·‡ç¶½
-0x6540: 綫總綢綯緜綸綟綰緘ç·ç·¤ç·žç·»ç·²ç·¡ç¸…縊縣縡縒縱縟縉縋縢繆繦縻縵縹繃縷
-0x6560: 縲縺繧ç¹ç¹–繞繙繚繹繪繩繼繻纃緕繽辮繿纈纉續纒çºçº“纔纖纎纛纜缸缺
-0x6620: 罅罌ç½ç½Žç½ç½‘ç½•ç½”ç½˜ç½Ÿç½ ç½¨ç½©ç½§ç½¸ç¾‚ç¾†ç¾ƒç¾ˆç¾‡ç¾Œç¾”ç¾žç¾ç¾šç¾£ç¾¯ç¾²ç¾¹ç¾®ç¾¶
-0x6640: 羸è±ç¿…翆翊翕翔翡翦翩翳翹飜耆耄耋耒耘耙耜耡耨耿耻èŠè†è’è˜èšèŸè¢è¨
-0x6660: è³è²è°è¶è¹è½è¿è‚„肆肅肛肓肚è‚å†è‚¬èƒ›èƒ¥èƒ™èƒèƒ„胚胖脉胯胱脛脩脣脯腋
-0x6720: éš‹è…†è„¾è…“è…‘èƒ¼è…±è…®è…¥è…¦è…´è†ƒè†ˆè†Šè†€è†‚è† è†•è†¤è†£è…Ÿè†“è†©è†°è†µè†¾è†¸è†½è‡€è‡‚è†º
-0x6740: 臉è‡è‡‘è‡™è‡˜è‡ˆè‡šè‡Ÿè‡ è‡§è‡ºè‡»è‡¾èˆèˆ‚舅與舊èˆèˆèˆ–舩舫舸舳艀艙艘è‰è‰šè‰Ÿè‰¤
-0x6760: 艢艨艪艫舮艱艷艸艾èŠèŠ’芫芟芻芬苡苣苟苒苴苳苺莓范苻苹苞茆苜茉苙
-0x6820: 茵茴茖茲茱è€èŒ¹èè…茯茫茗茘莅莚莪莟莢莖茣莎莇莊è¼èŽµè³èµèŽ 莉莨è´
-0x6840: è“è«èŽè½èƒè˜è‹èè·è‡è è²èè¢è 莽è¸è”†è»è‘èªè¼è•šè’„è‘·è‘«è’葮蒂葩葆è¬
-0x6860: 葯葹èµè“Šè‘¢è’¹è’¿è’Ÿè“™è“蒻蓚è“è“蓆蓖蒡蔡蓿蓴蔗蔘蔬蔟蔕蔔蓼蕀蕣蕘蕈
-0x6920: è•è˜‚蕋蕕薀薤薈薑薊薨è•è–”薛藪薇薜蕷蕾è–藉薺è—è–¹è—è—•è—藥藜藹蘊蘓
-0x6940: 蘋藾藺蘆蘢蘚蘰蘿è™ä¹•è™”è™Ÿè™§è™±èš“èš£èš©èšªèš‹èšŒèš¶èš¯è›„è›†èš°è›‰è £èš«è›”è›žè›©è›¬
-0x6960: 蛟蛛蛯蜒蜆蜈蜀蜃蛻蜑蜉èœè›¹èœŠèœ´èœ¿èœ·èœ»èœ¥èœ©èœšè èŸè¸èŒèŽè´è—è¨è®è™
-0x6a20: è“è£èªè …螢螟螂螯蟋螽蟀èŸé›–èž«èŸ„èž³èŸ‡èŸ†èž»èŸ¯èŸ²èŸ è è èŸ¾èŸ¶èŸ·è ŽèŸ’è ‘è –
-0x6a40: è •è ¢è ¡è ±è ¶è ¹è §è »è¡„è¡‚è¡’è¡™è¡žè¡¢è¡«è¢è¡¾è¢žè¡µè¡½è¢µè¡²è¢‚袗袒袮袙袢è¢è¢¤è¢°è¢¿
-0x6a60: 袱裃裄裔裘裙è£è£¹è¤‚裼裴裨裲褄褌褊褓襃褞褥褪褫è¥è¥„褻褶褸襌è¤è¥ 襞
-0x6b20: 襦襤è¥è¥ªè¥¯è¥´è¥·è¥¾è¦ƒè¦ˆè¦Šè¦“覘覡覩覦覬覯覲覺覽覿觀觚觜è§è§§è§´è§¸è¨ƒè¨–
-0x6b40: è¨è¨Œè¨›è¨è¨¥è¨¶è©è©›è©’詆詈詼è©è©¬è©¢èª…誂誄誨誡誑誥誦誚誣諄è«è«‚諚諫諳諧
-0x6b60: è«¤è«±è¬”è« è«¢è«·è«žè«›è¬Œè¬‡è¬šè«¡è¬–è¬è¬—è¬ è¬³éž«è¬¦è¬«è¬¾è¬¨èèŒèèŽè‰è–è›èšè«
-0x6c20: èŸè¬è¯è´è½è®€è®Œè®Žè®’讓讖讙讚谺è±è°¿è±ˆè±Œè±Žè±è±•è±¢è±¬è±¸è±ºè²‚貉貅貊è²è²Ž
-0x6c40: 貔豼貘æˆè²è²ªè²½è²²è²³è²®è²¶è³ˆè³è³¤è³£è³šè³½è³ºè³»è´„è´…è´Šè´‡è´è´è´é½Žè´“è³è´”贖赧
-0x6c60: èµèµ±èµ³è¶è¶™è·‚趾趺è·è·šè·–跌跛跋跪跫跟跣跼踈踉跿è¸è¸žè¸è¸Ÿè¹‚踵踰踴蹊
-0x6d20: 蹇蹉蹌è¹è¹ˆè¹™è¹¤è¹ 踪蹣蹕蹶蹲蹼èºèº‡èº…躄躋躊躓躑躔躙躪躡躬躰軆躱躾
-0x6d40: 軅軈軋軛軣軼軻軫軾輊輅輕輒輙輓輜輟輛輌輦輳輻輹轅轂輾轌轉轆轎轗轜
-0x6d60: 轢轣轤辜辟辣è¾è¾¯è¾·è¿šè¿¥è¿¢è¿ªè¿¯é‚‡è¿´é€…迹迺逑逕逡é€é€žé€–逋逧逶逵逹迸
-0x6e20: ééé‘é’逎é‰é€¾é–é˜éžé¨é¯é¶éš¨é²é‚‚é½é‚邀邊邉é‚邨邯邱邵郢郤扈郛鄂
-0x6e40: 鄒鄙鄲鄰酊酖酘酣酥酩酳酲醋醉醂醢醫醯醪醵醴醺釀é‡é‡‰é‡‹é‡é‡–釟釡釛釼
-0x6e60: 釵釶鈞釿鈔鈬鈕鈑鉞鉗鉅鉉鉤鉈銕鈿鉋é‰éŠœéŠ–銓銛鉚é‹éŠ¹éŠ·é‹©éŒé‹ºé„錮
-0x6f20: 錙錢錚錣錺錵錻éœé é¼é®é–鎰鎬éŽéŽ”鎹é–é—é¨é¥é˜éƒéééˆé¤éšé”é“éƒ
-0x6f40: é‡éé¶é«éµé¡éºé‘é‘’é‘„é‘›é‘ é‘¢é‘žé‘ªéˆ©é‘°é‘µé‘·é‘½é‘šé‘¼é‘¾é’鑿閂閇閊閔閖閘閙
-0x6f60: é– é–¨é–§é–閼閻閹閾闊濶闃é—闌闕闔闖關闡闥闢阡阨阮阯陂陌é™é™‹é™·é™œé™ž
-0x7020: é™é™Ÿé™¦é™²é™¬éšéš˜éš•éš—險隧隱隲隰隴隶隸隹雎雋雉é›è¥é›œéœé›•é›¹éœ„霆霈霓
-0x7040: 霎霑éœéœ–霙霤霪霰霹霽霾é„é†éˆé‚é‰éœé é¤é¦é¨å‹’é«é±é¹éž…é¼éžéºéž†éž‹éž
-0x7060: éžéžœéž¨éž¦éž£éž³éž´éŸƒéŸ†éŸˆéŸ‹éŸœéŸé½éŸ²ç«ŸéŸ¶éŸµé é Œé ¸é ¤é ¡é ·é ½é¡†é¡é¡‹é¡«é¡¯é¡°
-0x7120: 顱顴顳颪颯颱颶飄飃飆飩飫餃餉餒餔餘餡é¤é¤žé¤¤é¤ 餬餮餽餾饂饉饅é¥é¥‹
-0x7140: 饑饒饌饕馗馘馥é¦é¦®é¦¼é§Ÿé§›é§é§˜é§‘é§é§®é§±é§²é§»é§¸é¨é¨é¨…駢騙騫騷驅驂驀驃
-0x7160: 騾驕é©é©›é©—驟驢驥驤驩驫驪éªéª°éª¼é«€é«é«‘髓體髞髟髢髣髦髯髫髮髴髱髷
-0x7220: 髻鬆鬘鬚鬟鬢鬣鬥鬧鬨鬩鬪鬮鬯鬲é„éƒéééŽé‘é˜é´é®“é®ƒé®‘é®–é®—é®Ÿé® é®¨
-0x7240: 鮴鯀鯊鮹鯆é¯é¯‘鯒鯣鯢鯤鯔鯡鰺鯲鯱鯰鰕鰔鰉鰓鰌鰆鰈鰒鰊鰄鰮鰛鰥鰤鰡
-0x7260: é°°é±‡é°²é±†é°¾é±šé± é±§é±¶é±¸é³§é³¬é³°é´‰é´ˆé³«é´ƒé´†é´ªé´¦é¶¯é´£é´Ÿéµ„é´•é´’éµé´¿é´¾éµ†éµˆ
-0x7320: éµéµžéµ¤éµ‘éµéµ™éµ²é¶‰é¶‡é¶«éµ¯éµºé¶šé¶¤é¶©é¶²é·„é·é¶»é¶¸é¶ºé·†é·é·‚鷙鷓鷸鷦é·é·¯é·½
-0x7340: 鸚鸛鸞鹵鹹鹽éºéºˆéº‹éºŒéº’麕麑éºéº¥éº©éº¸éºªéºé¡é»Œé»Žé»é»é»”黜點é»é» 黥黨黯
-0x7360: é»´é»¶é»·é»¹é»»é»¼é»½é¼‡é¼ˆçš·é¼•é¼¡é¼¬é¼¾é½Šé½’é½”é½£é½Ÿé½ é½¡é½¦é½§é½¬é½ªé½·é½²é½¶é¾•é¾œé¾
-0x7420: å ¯æ§‡é™ç‘¤å‡œç†™
diff --git a/3.8.8/sources/cpan-Encode/vendor/t/jisx0212.enc b/3.8.8/sources/cpan-Encode/vendor/t/jisx0212.enc
deleted file mode 100644
index f6910c3..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/t/jisx0212.enc
+++ /dev/null
@@ -1,200 +0,0 @@
-0x2220: ¢¯¢°¢±¢²¢³¢´¢µ¢¶~¢¸¢¹
-0x2240: ¢Â¢Ã¢Ä
-0x2260: ¢ë¢ì¢í¢î¢ï¢ð¢ñ
-0x2660: ¦á¦â¦ã¦ä¦å ¦ç ¦é¦ê ¦ì ¦ñ¦ò¦ó¦ô¦õ¦ö¦÷¦ø¦ù¦ú¦û¦ü
-0x2740: §Â§Ã§Ä§Å§Æ§Ç§È§É§Ê§Ë§Ì§Í§Î
-0x2760: §ò§ó§ô§õ§ö§÷§ø§ù§ú§û§ü§ý§þ
-0x2920: ©¡©¢ ©¤ ©¦ ©¨©© ©«©¬© ©¯©°
-0x2940: ©Á©Â©Ã©Ä©Å©Æ©Ç©È©É©Ê©Ë©Ì©Í©Î©Ï©Ð
-0x2a20: ª¡ª¢ª£ª¤ª¥ª¦ª§ª¨ª©ªªª«ª¬ªª®ª¯ª°ª±ª²ª³ª´ªµª¶ª·ª¸ ªºª»ª¼ª½ª¾ª¿
-0x2a40: ªÀªÁªÂªÃªÄªÅªÆªÇªÈªÉªÊªËªÌªÍªÎªÏªÐªÑªÒªÓªÔªÕªÖª×ªØªÙªÚªÛªÜªÝªÞªß
-0x2a60: ªàªáªâªãªäªåªæªçªèªéªêªëªìªíªîªïªðªñªòªóªôªõªöª÷
-0x2b20: «¡«¢«£«¤«¥«¦«§«¨«©«ª«««¬««®«¯«°«±«²«³«´«µ«¶«·«¸«¹«º«» «½«¾«¿
-0x2b40: «À«Á«Â«Ã «Å«Æ«Ç«È«É«Ê«Ë«Ì«Í«Î«Ï«Ð«Ñ«Ò«Ó«Ô«Õ«Ö«×«Ø«Ù«Ú«Û«Ü«Ý«Þ«ß
-0x2b60: «à«á«â«ã«ä«å«æ«ç«è«é«ê«ë«ì«í«î«ï«ð«ñ«ò«ó«ô«õ«ö«÷
-0x3020: °¡°¢°£°¤°¥°¦°§°¨°©°ª°«°¬°°®°¯°°°±°²°³°´°µ°¶°·°¸°¹°º°»°¼°½°¾°¿
-0x3040: °À°Á°Â°Ã°Ä°Å°Æ°Ç°È°É°Ê°Ë°Ì°Í°Î°Ï°Ð°Ñ°Ò°Ó°Ô°Õ°Ö°×°Ø°Ù°Ú°Û°Ü°Ý°Þ°ß
-0x3060: °à°á°â°ã°ä°å°æ°ç°è°é°ê°ë°ì°í°î°ï°ð°ñ°ò°ó°ô°õ°ö°÷°ø°ù°ú°û°ü°ý°þ
-0x3120: ±¡±¢±£±¤±¥±¦±§±¨±©±ª±«±¬±±®±¯±°±±±²±³±´±µ±¶±·±¸±¹±º±»±¼±½±¾±¿
-0x3140: ±À±Á±Â±Ã±Ä±Å±Æ±Ç±È±É±Ê±Ë±Ì±Í±Î±Ï±Ð±Ñ±Ò±Ó±Ô±Õ±Ö±×±Ø±Ù±Ú±Û±Ü±Ý±Þ±ß
-0x3160: ±à±á±â±ã±ä±å±æ±ç±è±é±ê±ë±ì±í±î±ï±ð±ñ±ò±ó±ô±õ±ö±÷±ø±ù±ú±û±ü±ý±þ
-0x3220: ²¡²¢²£²¤²¥²¦²§²¨²©²ª²«²¬²²®²¯²°²±²²²³²´²µ²¶²·²¸²¹²º²»²¼²½²¾²¿
-0x3240: ²À²Á²Â²Ã²Ä²Å²Æ²Ç²È²É²Ê²Ë²Ì²Í²Î²Ï²Ð²Ñ²Ò²Ó²Ô²Õ²Ö²×²Ø²Ù²Ú²Û²Ü²Ý²Þ²ß
-0x3260: ²à²á²â²ã²ä²å²æ²ç²è²é²ê²ë²ì²í²î²ï²ð²ñ²ò²ó²ô²õ²ö²÷²ø²ù²ú²û²ü²ý²þ
-0x3320: ³¡³¢³£³¤³¥³¦³§³¨³©³ª³«³¬³³®³¯³°³±³²³³³´³µ³¶³·³¸³¹³º³»³¼³½³¾³¿
-0x3340: ³À³Á³Â³Ã³Ä³Å³Æ³Ç³È³É³Ê³Ë³Ì³Í³Î³Ï³Ð³Ñ³Ò³Ó³Ô³Õ³Ö³×³Ø³Ù³Ú³Û³Ü³Ý³Þ³ß
-0x3360: ³à³á³â³ã³ä³å³æ³ç³è³é³ê³ë³ì³í³î³ï³ð³ñ³ò³ó³ô³õ³ö³÷³ø³ù³ú³û³ü³ý³þ
-0x3420: ´¡´¢´£´¤´¥´¦´§´¨´©´ª´«´¬´´®´¯´°´±´²´³´´´µ´¶´·´¸´¹´º´»´¼´½´¾´¿
-0x3440: ´À´Á´Â´Ã´Ä´Å´Æ´Ç´È´É´Ê´Ë´Ì´Í´Î´Ï´Ð´Ñ´Ò´Ó´Ô´Õ´Ö´×´Ø´Ù´Ú´Û´Ü´Ý´Þ´ß
-0x3460: ´à´á´â´ã´ä´å´æ´ç´è´é´ê´ë´ì´í´î´ï´ð´ñ´ò´ó´ô´õ´ö´÷´ø´ù´ú´û´ü´ý´þ
-0x3520: µ¡µ¢µ£µ¤µ¥µ¦µ§µ¨µ©µªµ«µ¬µµ®µ¯µ°µ±µ²µ³µ´µµµ¶µ·µ¸µ¹µºµ»µ¼µ½µ¾µ¿
-0x3540: µÀµÁµÂµÃµÄµÅµÆµÇµÈµÉµÊµËµÌµÍµÎµÏµÐµÑµÒµÓµÔµÕµÖµ×µØµÙµÚµÛµÜµÝµÞµß
-0x3560: µàµáµâµãµäµåµæµçµèµéµêµëµìµíµîµïµðµñµòµóµôµõµöµ÷µøµùµúµûµüµýµþ
-0x3620: ¶¡¶¢¶£¶¤¶¥¶¦¶§¶¨¶©¶ª¶«¶¬¶¶®¶¯¶°¶±¶²¶³¶´¶µ¶¶¶·¶¸¶¹¶º¶»¶¼¶½¶¾¶¿
-0x3640: ¶À¶Á¶Â¶Ã¶Ä¶Å¶Æ¶Ç¶È¶É¶Ê¶Ë¶Ì¶Í¶Î¶Ï¶Ð¶Ñ¶Ò¶Ó¶Ô¶Õ¶Ö¶×¶Ø¶Ù¶Ú¶Û¶Ü¶Ý¶Þ¶ß
-0x3660: ¶à¶á¶â¶ã¶ä¶å¶æ¶ç¶è¶é¶ê¶ë¶ì¶í¶î¶ï¶ð¶ñ¶ò¶ó¶ô¶õ¶ö¶÷¶ø¶ù¶ú¶û¶ü¶ý¶þ
-0x3720: ·¡·¢·£·¤·¥·¦·§·¨·©·ª·«·¬··®·¯·°·±·²·³·´·µ·¶···¸·¹·º·»·¼·½·¾·¿
-0x3740: ·À·Á·Â·Ã·Ä·Å·Æ·Ç·È·É·Ê·Ë·Ì·Í·Î·Ï·Ð·Ñ·Ò·Ó·Ô·Õ·Ö·×·Ø·Ù·Ú·Û·Ü·Ý·Þ·ß
-0x3760: ·à·á·â·ã·ä·å·æ·ç·è·é·ê·ë·ì·í·î·ï·ð·ñ·ò·ó·ô·õ·ö·÷·ø·ù·ú·û·ü·ý·þ
-0x3820: ¸¡¸¢¸£¸¤¸¥¸¦¸§¸¨¸©¸ª¸«¸¬¸¸®¸¯¸°¸±¸²¸³¸´¸µ¸¶¸·¸¸¸¹¸º¸»¸¼¸½¸¾¸¿
-0x3840: ¸À¸Á¸Â¸Ã¸Ä¸Å¸Æ¸Ç¸È¸É¸Ê¸Ë¸Ì¸Í¸Î¸Ï¸Ð¸Ñ¸Ò¸Ó¸Ô¸Õ¸Ö¸×¸Ø¸Ù¸Ú¸Û¸Ü¸Ý¸Þ¸ß
-0x3860: ¸à¸á¸â¸ã¸ä¸å¸æ¸ç¸è¸é¸ê¸ë¸ì¸í¸î¸ï¸ð¸ñ¸ò¸ó¸ô¸õ¸ö¸÷¸ø¸ù¸ú¸û¸ü¸ý¸þ
-0x3920: ¹¡¹¢¹£¹¤¹¥¹¦¹§¹¨¹©¹ª¹«¹¬¹¹®¹¯¹°¹±¹²¹³¹´¹µ¹¶¹·¹¸¹¹¹º¹»¹¼¹½¹¾¹¿
-0x3940: ¹À¹Á¹Â¹Ã¹Ä¹Å¹Æ¹Ç¹È¹É¹Ê¹Ë¹Ì¹Í¹Î¹Ï¹Ð¹Ñ¹Ò¹Ó¹Ô¹Õ¹Ö¹×¹Ø¹Ù¹Ú¹Û¹Ü¹Ý¹Þ¹ß
-0x3960: ¹à¹á¹â¹ã¹ä¹å¹æ¹ç¹è¹é¹ê¹ë¹ì¹í¹î¹ï¹ð¹ñ¹ò¹ó¹ô¹õ¹ö¹÷¹ø¹ù¹ú¹û¹ü¹ý¹þ
-0x3a20: º¡º¢º£º¤º¥º¦º§º¨º©ºªº«º¬ºº®º¯º°º±º²º³º´ºµº¶º·º¸º¹ººº»º¼º½º¾º¿
-0x3a40: ºÀºÁºÂºÃºÄºÅºÆºÇºÈºÉºÊºËºÌºÍºÎºÏºÐºÑºÒºÓºÔºÕºÖº×ºØºÙºÚºÛºÜºÝºÞºß
-0x3a60: ºàºáºâºãºäºåºæºçºèºéºêºëºìºíºîºïºðºñºòºóºôºõºöº÷ºøºùºúºûºüºýºþ
-0x3b20: »¡»¢»£»¤»¥»¦»§»¨»©»ª»«»¬»»®»¯»°»±»²»³»´»µ»¶»·»¸»¹»º»»»¼»½»¾»¿
-0x3b40: »À»Á»Â»Ã»Ä»Å»Æ»Ç»È»É»Ê»Ë»Ì»Í»Î»Ï»Ð»Ñ»Ò»Ó»Ô»Õ»Ö»×»Ø»Ù»Ú»Û»Ü»Ý»Þ»ß
-0x3b60: »à»á»â»ã»ä»å»æ»ç»è»é»ê»ë»ì»í»î»ï»ð»ñ»ò»ó»ô»õ»ö»÷»ø»ù»ú»û»ü»ý»þ
-0x3c20: ¼¡¼¢¼£¼¤¼¥¼¦¼§¼¨¼©¼ª¼«¼¬¼¼®¼¯¼°¼±¼²¼³¼´¼µ¼¶¼·¼¸¼¹¼º¼»¼¼¼½¼¾¼¿
-0x3c40: ¼À¼Á¼Â¼Ã¼Ä¼Å¼Æ¼Ç¼È¼É¼Ê¼Ë¼Ì¼Í¼Î¼Ï¼Ð¼Ñ¼Ò¼Ó¼Ô¼Õ¼Ö¼×¼Ø¼Ù¼Ú¼Û¼Ü¼Ý¼Þ¼ß
-0x3c60: ¼à¼á¼â¼ã¼ä¼å¼æ¼ç¼è¼é¼ê¼ë¼ì¼í¼î¼ï¼ð¼ñ¼ò¼ó¼ô¼õ¼ö¼÷¼ø¼ù¼ú¼û¼ü¼ý¼þ
-0x3d20: ½¡½¢½£½¤½¥½¦½§½¨½©½ª½«½¬½½®½¯½°½±½²½³½´½µ½¶½·½¸½¹½º½»½¼½½½¾½¿
-0x3d40: ½À½Á½Â½Ã½Ä½Å½Æ½Ç½È½É½Ê½Ë½Ì½Í½Î½Ï½Ð½Ñ½Ò½Ó½Ô½Õ½Ö½×½Ø½Ù½Ú½Û½Ü½Ý½Þ½ß
-0x3d60: ½à½á½â½ã½ä½å½æ½ç½è½é½ê½ë½ì½í½î½ï½ð½ñ½ò½ó½ô½õ½ö½÷½ø½ù½ú½û½ü½ý½þ
-0x3e20: ¾¡¾¢¾£¾¤¾¥¾¦¾§¾¨¾©¾ª¾«¾¬¾¾®¾¯¾°¾±¾²¾³¾´¾µ¾¶¾·¾¸¾¹¾º¾»¾¼¾½¾¾¾¿
-0x3e40: ¾À¾Á¾Â¾Ã¾Ä¾Å¾Æ¾Ç¾È¾É¾Ê¾Ë¾Ì¾Í¾Î¾Ï¾Ð¾Ñ¾Ò¾Ó¾Ô¾Õ¾Ö¾×¾Ø¾Ù¾Ú¾Û¾Ü¾Ý¾Þ¾ß
-0x3e60: ¾à¾á¾â¾ã¾ä¾å¾æ¾ç¾è¾é¾ê¾ë¾ì¾í¾î¾ï¾ð¾ñ¾ò¾ó¾ô¾õ¾ö¾÷¾ø¾ù¾ú¾û¾ü¾ý¾þ
-0x3f20: ¿¡¿¢¿£¿¤¿¥¿¦¿§¿¨¿©¿ª¿«¿¬¿¿®¿¯¿°¿±¿²¿³¿´¿µ¿¶¿·¿¸¿¹¿º¿»¿¼¿½¿¾¿¿
-0x3f40: ¿À¿Á¿Â¿Ã¿Ä¿Å¿Æ¿Ç¿È¿É¿Ê¿Ë¿Ì¿Í¿Î¿Ï¿Ð¿Ñ¿Ò¿Ó¿Ô¿Õ¿Ö¿×¿Ø¿Ù¿Ú¿Û¿Ü¿Ý¿Þ¿ß
-0x3f60: ¿à¿á¿â¿ã¿ä¿å¿æ¿ç¿è¿é¿ê¿ë¿ì¿í¿î¿ï¿ð¿ñ¿ò¿ó¿ô¿õ¿ö¿÷¿ø¿ù¿ú¿û¿ü¿ý¿þ
-0x4020: À¡À¢À£À¤À¥À¦À§À¨À©ÀªÀ«À¬ÀÀ®À¯À°À±À²À³À´ÀµÀ¶À·À¸À¹ÀºÀ»À¼À½À¾À¿
-0x4040: ÀÀÀÁÀÂÀÃÀÄÀÅÀÆÀÇÀÈÀÉÀÊÀËÀÌÀÍÀÎÀÏÀÐÀÑÀÒÀÓÀÔÀÕÀÖÀ×ÀØÀÙÀÚÀÛÀÜÀÝÀÞÀß
-0x4060: ÀàÀáÀâÀãÀäÀåÀæÀçÀèÀéÀêÀëÀìÀíÀîÀïÀðÀñÀòÀóÀôÀõÀöÀ÷ÀøÀùÀúÀûÀüÀýÀþ
-0x4120: Á¡Á¢Á£Á¤Á¥Á¦Á§Á¨Á©ÁªÁ«Á¬ÁÁ®Á¯Á°Á±Á²Á³Á´ÁµÁ¶Á·Á¸Á¹ÁºÁ»Á¼Á½Á¾Á¿
-0x4140: ÁÀÁÁÁÂÁÃÁÄÁÅÁÆÁÇÁÈÁÉÁÊÁËÁÌÁÍÁÎÁÏÁÐÁÑÁÒÁÓÁÔÁÕÁÖÁ×ÁØÁÙÁÚÁÛÁÜÁÝÁÞÁß
-0x4160: ÁàÁáÁâÁãÁäÁåÁæÁçÁèÁéÁêÁëÁìÁíÁîÁïÁðÁñÁòÁóÁôÁõÁöÁ÷ÁøÁùÁúÁûÁüÁýÁþ
-0x4220: ¡¢£¤¥¦§¨©ª«¬Â®¯°±²³´µ¶·¸¹º»¼½¾¿
-0x4240: ÂÀÂÁÂÂÂÃÂÄÂÅÂÆÂÇÂÈÂÉÂÊÂËÂÌÂÍÂÎÂÏÂÐÂÑÂÒÂÓÂÔÂÕÂÖÂ×ÂØÂÙÂÚÂÛÂÜÂÝÂÞÂß
-0x4260: ÂàÂáÂâÂãÂäÂåÂæÂçÂèÂéÂêÂëÂìÂíÂîÂïÂðÂñÂòÂóÂôÂõÂöÂ÷ÂøÂùÂúÂûÂüÂýÂþ
-0x4320: áâãäåæçèéêëìÃîïðñòóôõö÷øùúûüýþÿ
-0x4340: ÃÀÃÁÃÂÃÃÃÄÃÅÃÆÃÇÃÈÃÉÃÊÃËÃÌÃÍÃÎÃÏÃÐÃÑÃÒÃÓÃÔÃÕÃÖÃ×ÃØÃÙÃÚÃÛÃÜÃÝÃÞÃß
-0x4360: ÃàÃáÃâÃãÃäÃåÃæÃçÃèÃéÃêÃëÃìÃíÃîÃïÃðÃñÃòÃóÃôÃõÃöÃ÷ÃøÃùÃúÃûÃüÃýÃþ
-0x4420: ġĢģĤĥĦħĨĩĪīĬÄĮįİıIJijĴĵĶķĸĹĺĻļĽľĿ
-0x4440: ÄÀÄÁÄÂÄÃÄÄÄÅÄÆÄÇÄÈÄÉÄÊÄËÄÌÄÍÄÎÄÏÄÐÄÑÄÒÄÓÄÔÄÕÄÖÄ×ÄØÄÙÄÚÄÛÄÜÄÝÄÞÄß
-0x4460: ÄàÄáÄâÄãÄäÄåÄæÄçÄèÄéÄêÄëÄìÄíÄîÄïÄðÄñÄòÄóÄôÄõÄöÄ÷ÄøÄùÄúÄûÄüÄýÄþ
-0x4520: šŢţŤťŦŧŨũŪūŬÅŮůŰűŲųŴŵŶŷŸŹźŻżŽžſ
-0x4540: ÅÀÅÁÅÂÅÃÅÄÅÅÅÆÅÇÅÈÅÉÅÊÅËÅÌÅÍÅÎÅÏÅÐÅÑÅÒÅÓÅÔÅÕÅÖÅ×ÅØÅÙÅÚÅÛÅÜÅÝÅÞÅß
-0x4560: ÅàÅáÅâÅãÅäÅåÅæÅçÅèÅéÅêÅëÅìÅíÅîÅïÅðÅñÅòÅóÅôÅõÅöÅ÷ÅøÅùÅúÅûÅüÅýÅþ
-0x4620: ơƢƣƤƥƦƧƨƩƪƫƬÆƮƯưƱƲƳƴƵƶƷƸƹƺƻƼƽƾƿ
-0x4640: ÆÀÆÁÆÂÆÃÆÄÆÅÆÆÆÇÆÈÆÉÆÊÆËÆÌÆÍÆÎÆÏÆÐÆÑÆÒÆÓÆÔÆÕÆÖÆ×ÆØÆÙÆÚÆÛÆÜÆÝÆÞÆß
-0x4660: ÆàÆáÆâÆãÆäÆåÆæÆçÆèÆéÆêÆëÆìÆíÆîÆïÆðÆñÆòÆóÆôÆõÆöÆ÷ÆøÆùÆúÆûÆüÆýÆþ
-0x4720: ǡǢǣǤǥǦǧǨǩǪǫǬÇǮǯǰDZDzdzǴǵǶǷǸǹǺǻǼǽǾǿ
-0x4740: ÇÀÇÁÇÂÇÃÇÄÇÅÇÆÇÇÇÈÇÉÇÊÇËÇÌÇÍÇÎÇÏÇÐÇÑÇÒÇÓÇÔÇÕÇÖÇ×ÇØÇÙÇÚÇÛÇÜÇÝÇÞÇß
-0x4760: ÇàÇáÇâÇãÇäÇåÇæÇçÇèÇéÇêÇëÇìÇíÇîÇïÇðÇñÇòÇóÇôÇõÇöÇ÷ÇøÇùÇúÇûÇüÇýÇþ
-0x4820: ȡȢȣȤȥȦȧȨȩȪȫȬÈȮȯȰȱȲȳȴȵȶȷȸȹȺȻȼȽȾȿ
-0x4840: ÈÀÈÁÈÂÈÃÈÄÈÅÈÆÈÇÈÈÈÉÈÊÈËÈÌÈÍÈÎÈÏÈÐÈÑÈÒÈÓÈÔÈÕÈÖÈ×ÈØÈÙÈÚÈÛÈÜÈÝÈÞÈß
-0x4860: ÈàÈáÈâÈãÈäÈåÈæÈçÈèÈéÈêÈëÈìÈíÈîÈïÈðÈñÈòÈóÈôÈõÈöÈ÷ÈøÈùÈúÈûÈüÈýÈþ
-0x4920: ɡɢɣɤɥɦɧɨɩɪɫɬÉɮɯɰɱɲɳɴɵɶɷɸɹɺɻɼɽɾɿ
-0x4940: ÉÀÉÁÉÂÉÃÉÄÉÅÉÆÉÇÉÈÉÉÉÊÉËÉÌÉÍÉÎÉÏÉÐÉÑÉÒÉÓÉÔÉÕÉÖÉ×ÉØÉÙÉÚÉÛÉÜÉÝÉÞÉß
-0x4960: ÉàÉáÉâÉãÉäÉåÉæÉçÉèÉéÉêÉëÉìÉíÉîÉïÉðÉñÉòÉóÉôÉõÉöÉ÷ÉøÉùÉúÉûÉüÉýÉþ
-0x4a20: ʡʢʣʤʥʦʧʨʩʪʫʬÊʮʯʰʱʲʳʴʵʶʷʸʹʺʻʼʽʾʿ
-0x4a40: ÊÀÊÁÊÂÊÃÊÄÊÅÊÆÊÇÊÈÊÉÊÊÊËÊÌÊÍÊÎÊÏÊÐÊÑÊÒÊÓÊÔÊÕÊÖÊ×ÊØÊÙÊÚÊÛÊÜÊÝÊÞÊß
-0x4a60: ÊàÊáÊâÊãÊäÊåÊæÊçÊèÊéÊêÊëÊìÊíÊîÊïÊðÊñÊòÊóÊôÊõÊöÊ÷ÊøÊùÊúÊûÊüÊýÊþ
-0x4b20: ˡˢˣˤ˥˦˧˨˩˪˫ˬËˮ˯˰˱˲˳˴˵˶˷˸˹˺˻˼˽˾˿
-0x4b40: ËÀËÁËÂËÃËÄËÅËÆËÇËÈËÉËÊËËËÌËÍËÎËÏËÐËÑËÒËÓËÔËÕËÖË×ËØËÙËÚËÛËÜËÝËÞËß
-0x4b60: ËàËáËâËãËäËåËæËçËèËéËêËëËìËíËîËïËðËñËòËóËôËõËöË÷ËøËùËúËûËüËýËþ
-0x4c20: ̡̢̧̨̣̤̥̦̩̪̫̬Ì̴̵̶̷̸̮̯̰̱̲̳̹̺̻̼̽̾̿
-0x4c40: ÌÀÌÁÌÂÌÃÌÄÌÅÌÆÌÇÌÈÌÉÌÊÌËÌÌÌÍÌÎÌÏÌÐÌÑÌÒÌÓÌÔÌÕÌÖÌ×ÌØÌÙÌÚÌÛÌÜÌÝÌÞÌß
-0x4c60: ÌàÌáÌâÌãÌäÌåÌæÌçÌèÌéÌêÌëÌìÌíÌîÌïÌðÌñÌòÌóÌôÌõÌöÌ÷ÌøÌùÌúÌûÌüÌýÌþ
-0x4d20: ͣͤͥͦͧͨͩͪͫͬ͢͡ÍͮͯͰͱͲͳʹ͵Ͷͷ͸͹ͺͻͼͽ;Ϳ
-0x4d40: ÍÀÍÁÍÂÍÃÍÄÍÅÍÆÍÇÍÈÍÉÍÊÍËÍÌÍÍÍÎÍÏÍÐÍÑÍÒÍÓÍÔÍÕÍÖÍ×ÍØÍÙÍÚÍÛÍÜÍÝÍÞÍß
-0x4d60: ÍàÍáÍâÍãÍäÍåÍæÍçÍèÍéÍêÍëÍìÍíÍîÍïÍðÍñÍòÍóÍôÍõÍöÍ÷ÍøÍùÍúÍûÍüÍýÍþ
-0x4e20: Ρ΢ΣΤΥΦΧΨΩΪΫάÎήίΰαβγδεζηθικλμνξο
-0x4e40: ÎÀÎÁÎÂÎÃÎÄÎÅÎÆÎÇÎÈÎÉÎÊÎËÎÌÎÍÎÎÎÏÎÐÎÑÎÒÎÓÎÔÎÕÎÖÎ×ÎØÎÙÎÚÎÛÎÜÎÝÎÞÎß
-0x4e60: ÎàÎáÎâÎãÎäÎåÎæÎçÎèÎéÎêÎëÎìÎíÎîÎïÎðÎñÎòÎóÎôÎõÎöÎ÷ÎøÎùÎúÎûÎüÎýÎþ
-0x4f20: ϡϢϣϤϥϦϧϨϩϪϫϬÏϮϯϰϱϲϳϴϵ϶ϷϸϹϺϻϼϽϾϿ
-0x4f40: ÏÀÏÁÏÂÏÃÏÄÏÅÏÆÏÇÏÈÏÉÏÊÏËÏÌÏÍÏÎÏÏÏÐÏÑÏÒÏÓÏÔÏÕÏÖÏ×ÏØÏÙÏÚÏÛÏÜÏÝÏÞÏß
-0x4f60: ÏàÏáÏâÏãÏäÏåÏæÏçÏèÏéÏêÏëÏìÏíÏîÏïÏðÏñÏòÏóÏôÏõÏöÏ÷ÏøÏùÏúÏûÏüÏýÏþ
-0x5020: СТУФХЦЧШЩЪЫЬÐЮЯабвгдежзийклмноп
-0x5040: ÐÀÐÁÐÂÐÃÐÄÐÅÐÆÐÇÐÈÐÉÐÊÐËÐÌÐÍÐÎÐÏÐÐÐÑÐÒÐÓÐÔÐÕÐÖÐ×ÐØÐÙÐÚÐÛÐÜÐÝÐÞÐß
-0x5060: ÐàÐáÐâÐãÐäÐåÐæÐçÐèÐéÐêÐëÐìÐíÐîÐïÐðÐñÐòÐóÐôÐõÐöÐ÷ÐøÐùÐúÐûÐüÐýÐþ
-0x5120: ѡѢѣѤѥѦѧѨѩѪѫѬÑѮѯѰѱѲѳѴѵѶѷѸѹѺѻѼѽѾѿ
-0x5140: ÑÀÑÁÑÂÑÃÑÄÑÅÑÆÑÇÑÈÑÉÑÊÑËÑÌÑÍÑÎÑÏÑÐÑÑÑÒÑÓÑÔÑÕÑÖÑ×ÑØÑÙÑÚÑÛÑÜÑÝÑÞÑß
-0x5160: ÑàÑáÑâÑãÑäÑåÑæÑçÑèÑéÑêÑëÑìÑíÑîÑïÑðÑñÑòÑóÑôÑõÑöÑ÷ÑøÑùÑúÑûÑüÑýÑþ
-0x5220: Ò¡Ò¢Ò£Ò¤Ò¥Ò¦Ò§Ò¨Ò©ÒªÒ«Ò¬ÒÒ®Ò¯Ò°Ò±Ò²Ò³Ò´ÒµÒ¶Ò·Ò¸Ò¹ÒºÒ»Ò¼Ò½Ò¾Ò¿
-0x5240: ÒÀÒÁÒÂÒÃÒÄÒÅÒÆÒÇÒÈÒÉÒÊÒËÒÌÒÍÒÎÒÏÒÐÒÑÒÒÒÓÒÔÒÕÒÖÒ×ÒØÒÙÒÚÒÛÒÜÒÝÒÞÒß
-0x5260: ÒàÒáÒâÒãÒäÒåÒæÒçÒèÒéÒêÒëÒìÒíÒîÒïÒðÒñÒòÒóÒôÒõÒöÒ÷ÒøÒùÒúÒûÒüÒýÒþ
-0x5320: Ó¡Ó¢Ó£Ó¤Ó¥Ó¦Ó§Ó¨Ó©ÓªÓ«Ó¬ÓÓ®Ó¯Ó°Ó±Ó²Ó³Ó´ÓµÓ¶Ó·Ó¸Ó¹ÓºÓ»Ó¼Ó½Ó¾Ó¿
-0x5340: ÓÀÓÁÓÂÓÃÓÄÓÅÓÆÓÇÓÈÓÉÓÊÓËÓÌÓÍÓÎÓÏÓÐÓÑÓÒÓÓÓÔÓÕÓÖÓ×ÓØÓÙÓÚÓÛÓÜÓÝÓÞÓß
-0x5360: ÓàÓáÓâÓãÓäÓåÓæÓçÓèÓéÓêÓëÓìÓíÓîÓïÓðÓñÓòÓóÓôÓõÓöÓ÷ÓøÓùÓúÓûÓüÓýÓþ
-0x5420: Ô¡Ô¢Ô£Ô¤Ô¥Ô¦Ô§Ô¨Ô©ÔªÔ«Ô¬ÔÔ®Ô¯Ô°Ô±Ô²Ô³Ô´ÔµÔ¶Ô·Ô¸Ô¹ÔºÔ»Ô¼Ô½Ô¾Ô¿
-0x5440: ÔÀÔÁÔÂÔÃÔÄÔÅÔÆÔÇÔÈÔÉÔÊÔËÔÌÔÍÔÎÔÏÔÐÔÑÔÒÔÓÔÔÔÕÔÖÔ×ÔØÔÙÔÚÔÛÔÜÔÝÔÞÔß
-0x5460: ÔàÔáÔâÔãÔäÔåÔæÔçÔèÔéÔêÔëÔìÔíÔîÔïÔðÔñÔòÔóÔôÔõÔöÔ÷ÔøÔùÔúÔûÔüÔýÔþ
-0x5520: Õ¡Õ¢Õ£Õ¤Õ¥Õ¦Õ§Õ¨Õ©ÕªÕ«Õ¬ÕÕ®Õ¯Õ°Õ±Õ²Õ³Õ´ÕµÕ¶Õ·Õ¸Õ¹ÕºÕ»Õ¼Õ½Õ¾Õ¿
-0x5540: ÕÀÕÁÕÂÕÃÕÄÕÅÕÆÕÇÕÈÕÉÕÊÕËÕÌÕÍÕÎÕÏÕÐÕÑÕÒÕÓÕÔÕÕÕÖÕ×ÕØÕÙÕÚÕÛÕÜÕÝÕÞÕß
-0x5560: ÕàÕáÕâÕãÕäÕåÕæÕçÕèÕéÕêÕëÕìÕíÕîÕïÕðÕñÕòÕóÕôÕõÕöÕ÷ÕøÕùÕúÕûÕüÕýÕþ
-0x5620: Ö¡Ö¢Ö£Ö¤Ö¥Ö¦Ö§Ö¨Ö©ÖªÖ«Ö¬ÖÖ®Ö¯Ö°Ö±Ö²Ö³Ö´ÖµÖ¶Ö·Ö¸Ö¹ÖºÖ»Ö¼Ö½Ö¾Ö¿
-0x5640: ÖÀÖÁÖÂÖÃÖÄÖÅÖÆÖÇÖÈÖÉÖÊÖËÖÌÖÍÖÎÖÏÖÐÖÑÖÒÖÓÖÔÖÕÖÖÖ×ÖØÖÙÖÚÖÛÖÜÖÝÖÞÖß
-0x5660: ÖàÖáÖâÖãÖäÖåÖæÖçÖèÖéÖêÖëÖìÖíÖîÖïÖðÖñÖòÖóÖôÖõÖöÖ÷ÖøÖùÖúÖûÖüÖýÖþ
-0x5720: סעףפץצקרשת׫׬×׮ׯװױײ׳״׵׶׷׸׹׺׻׼׽׾׿
-0x5740: ×À×Á×Â×Ã×Ä×Å×Æ×Ç×È×É×Ê×Ë×Ì×Í×Î×Ï×Ð×Ñ×Ò×Ó×Ô×Õ×Ö×××Ø×Ù×Ú×Û×Ü×Ý×Þ×ß
-0x5760: ×à×á×â×ã×ä×å×æ×ç×è×é×ê×ë×ì×í×î×ï×ð×ñ×ò×ó×ô×õ×ö×÷×ø×ù×ú×û×ü×ý×þ
-0x5820: ءآأؤإئابةتثجØخدذرزسشصضطظعغػؼؽؾؿ
-0x5840: ØÀØÁØÂØÃØÄØÅØÆØÇØÈØÉØÊØËØÌØÍØÎØÏØÐØÑØÒØÓØÔØÕØÖØ×ØØØÙØÚØÛØÜØÝØÞØß
-0x5860: ØàØáØâØãØäØåØæØçØèØéØêØëØìØíØîØïØðØñØòØóØôØõØöØ÷ØøØùØúØûØüØýØþ
-0x5920: ١٢٣٤٥٦٧٨٩٪٫٬Ùٮٯٰٱٲٳٴٵٶٷٸٹٺٻټٽپٿ
-0x5940: ÙÀÙÁÙÂÙÃÙÄÙÅÙÆÙÇÙÈÙÉÙÊÙËÙÌÙÍÙÎÙÏÙÐÙÑÙÒÙÓÙÔÙÕÙÖÙ×ÙØÙÙÙÚÙÛÙÜÙÝÙÞÙß
-0x5960: ÙàÙáÙâÙãÙäÙåÙæÙçÙèÙéÙêÙëÙìÙíÙîÙïÙðÙñÙòÙóÙôÙõÙöÙ÷ÙøÙùÙúÙûÙüÙýÙþ
-0x5a20: Ú¡Ú¢Ú£Ú¤Ú¥Ú¦Ú§Ú¨Ú©ÚªÚ«Ú¬ÚÚ®Ú¯Ú°Ú±Ú²Ú³Ú´ÚµÚ¶Ú·Ú¸Ú¹ÚºÚ»Ú¼Ú½Ú¾Ú¿
-0x5a40: ÚÀÚÁÚÂÚÃÚÄÚÅÚÆÚÇÚÈÚÉÚÊÚËÚÌÚÍÚÎÚÏÚÐÚÑÚÒÚÓÚÔÚÕÚÖÚ×ÚØÚÙÚÚÚÛÚÜÚÝÚÞÚß
-0x5a60: ÚàÚáÚâÚãÚäÚåÚæÚçÚèÚéÚêÚëÚìÚíÚîÚïÚðÚñÚòÚóÚôÚõÚöÚ÷ÚøÚùÚúÚûÚüÚýÚþ
-0x5b20: Û¡Û¢Û£Û¤Û¥Û¦Û§Û¨Û©ÛªÛ«Û¬ÛÛ®Û¯Û°Û±Û²Û³Û´ÛµÛ¶Û·Û¸Û¹ÛºÛ»Û¼Û½Û¾Û¿
-0x5b40: ÛÀÛÁÛÂÛÃÛÄÛÅÛÆÛÇÛÈÛÉÛÊÛËÛÌÛÍÛÎÛÏÛÐÛÑÛÒÛÓÛÔÛÕÛÖÛ×ÛØÛÙÛÚÛÛÛÜÛÝÛÞÛß
-0x5b60: ÛàÛáÛâÛãÛäÛåÛæÛçÛèÛéÛêÛëÛìÛíÛîÛïÛðÛñÛòÛóÛôÛõÛöÛ÷ÛøÛùÛúÛûÛüÛýÛþ
-0x5c20: ܡܢܣܤܥܦܧܨܩܪܫܬÜܮܯܱܴܷܸܹܻܼܾܰܲܳܵܶܺܽܿ
-0x5c40: ÜÀÜÁÜÂÜÃÜÄÜÅÜÆÜÇÜÈÜÉÜÊÜËÜÌÜÍÜÎÜÏÜÐÜÑÜÒÜÓÜÔÜÕÜÖÜ×ÜØÜÙÜÚÜÛÜÜÜÝÜÞÜß
-0x5c60: ÜàÜáÜâÜãÜäÜåÜæÜçÜèÜéÜêÜëÜìÜíÜîÜïÜðÜñÜòÜóÜôÜõÜöÜ÷ÜøÜùÜúÜûÜüÜýÜþ
-0x5d20: ݡݢݣݤݥݦݧݨݩݪݫݬÝݮݯݰݱݲݳݴݵݶݷݸݹݺݻݼݽݾݿ
-0x5d40: ÝÀÝÁÝÂÝÃÝÄÝÅÝÆÝÇÝÈÝÉÝÊÝËÝÌÝÍÝÎÝÏÝÐÝÑÝÒÝÓÝÔÝÕÝÖÝ×ÝØÝÙÝÚÝÛÝÜÝÝÝÞÝß
-0x5d60: ÝàÝáÝâÝãÝäÝåÝæÝçÝèÝéÝêÝëÝìÝíÝîÝïÝðÝñÝòÝóÝôÝõÝöÝ÷ÝøÝùÝúÝûÝüÝýÝþ
-0x5e20: Þ¡Þ¢Þ£Þ¤Þ¥Þ¦Þ§Þ¨Þ©ÞªÞ«Þ¬ÞÞ®Þ¯Þ°Þ±Þ²Þ³Þ´ÞµÞ¶Þ·Þ¸Þ¹ÞºÞ»Þ¼Þ½Þ¾Þ¿
-0x5e40: ÞÀÞÁÞÂÞÃÞÄÞÅÞÆÞÇÞÈÞÉÞÊÞËÞÌÞÍÞÎÞÏÞÐÞÑÞÒÞÓÞÔÞÕÞÖÞ×ÞØÞÙÞÚÞÛÞÜÞÝÞÞÞß
-0x5e60: ÞàÞáÞâÞãÞäÞåÞæÞçÞèÞéÞêÞëÞìÞíÞîÞïÞðÞñÞòÞóÞôÞõÞöÞ÷ÞøÞùÞúÞûÞüÞýÞþ
-0x5f20: ߡߢߣߤߥߦߧߨߩߪ߫߬ß߲߮߯߰߱߳ߴߵ߶߷߸߹ߺ߻߼߽߾߿
-0x5f40: ßÀßÁßÂßÃßÄßÅßÆßÇßÈßÉßÊßËßÌßÍßÎßÏßÐßÑßÒßÓßÔßÕßÖß×ßØßÙßÚßÛßÜßÝßÞßß
-0x5f60: ßàßáßâßãßäßåßæßçßèßéßêßëßìßíßîßïßðßñßòßóßôßõßöß÷ßøßùßúßûßüßýßþ
-0x6020: à¡à¢à£à¤à¥à¦à§à¨à©àªà«à¬àà®à¯à°à±à²à³à´àµà¶à·à¸à¹àºà»à¼à½à¾à¿
-0x6040: àÀàÁàÂàÃàÄàÅàÆàÇàÈàÉàÊàËàÌàÍàÎàÏàÐàÑàÒàÓàÔàÕàÖà×àØàÙàÚàÛàÜàÝàÞàß
-0x6060: àààáàâàãàäàåàæàçàèàéàêàëàìàíàîàïàðàñàòàóàôàõàöà÷àøàùàúàûàüàýàþ
-0x6120: á¡á¢á£á¤á¥á¦á§á¨á©áªá«á¬áá®á¯á°á±á²á³á´áµá¶á·á¸á¹áºá»á¼á½á¾á¿
-0x6140: áÀáÁáÂáÃáÄáÅáÆáÇáÈáÉáÊáËáÌáÍáÎáÏáÐáÑáÒáÓáÔáÕáÖá×áØáÙáÚáÛáÜáÝáÞáß
-0x6160: áàáááâáãáäáåáæáçáèáéáêáëáìáíáîáïáðáñáòáóáôáõáöá÷áøáùáúáûáüáýáþ
-0x6220: â¡â¢â£â¤â¥â¦â§â¨â©âªâ«â¬ââ®â¯â°â±â²â³â´âµâ¶â·â¸â¹âºâ»â¼â½â¾â¿
-0x6240: âÀâÁâÂâÃâÄâÅâÆâÇâÈâÉâÊâËâÌâÍâÎâÏâÐâÑâÒâÓâÔâÕâÖâ×âØâÙâÚâÛâÜâÝâÞâß
-0x6260: âàâáâââãâäâåâæâçâèâéâêâëâìâíâîâïâðâñâòâóâôâõâöâ÷âøâùâúâûâüâýâþ
-0x6320: ã¡ã¢ã£ã¤ã¥ã¦ã§ã¨ã©ãªã«ã¬ãã®ã¯ã°ã±ã²ã³ã´ãµã¶ã·ã¸ã¹ãºã»ã¼ã½ã¾ã¿
-0x6340: ãÀãÁãÂãÃãÄãÅãÆãÇãÈãÉãÊãËãÌãÍãÎãÏãÐãÑãÒãÓãÔãÕãÖã×ãØãÙãÚãÛãÜãÝãÞãß
-0x6360: ãàãáãâãããäãåãæãçãèãéãêãëãìãíãîãïãðãñãòãóãôãõãöã÷ãøãùãúãûãüãýãþ
-0x6420: ä¡ä¢ä£ä¤ä¥ä¦ä§ä¨ä©äªä«ä¬ää®ä¯ä°ä±ä²ä³ä´äµä¶ä·ä¸ä¹äºä»ä¼ä½ä¾ä¿
-0x6440: äÀäÁäÂäÃäÄäÅäÆäÇäÈäÉäÊäËäÌäÍäÎäÏäÐäÑäÒäÓäÔäÕäÖä×äØäÙäÚäÛäÜäÝäÞäß
-0x6460: äàäáäâäãäääåäæäçäèäéäêäëäìäíäîäïäðäñäòäóäôäõäöä÷äøäùäúäûäüäýäþ
-0x6520: å¡å¢å£å¤å¥å¦å§å¨å©åªå«å¬åå®å¯å°å±å²å³å´åµå¶å·å¸å¹åºå»å¼å½å¾å¿
-0x6540: åÀåÁåÂåÃåÄåÅåÆåÇåÈåÉåÊåËåÌåÍåÎåÏåÐåÑåÒåÓåÔåÕåÖå×åØåÙåÚåÛåÜåÝåÞåß
-0x6560: åàåáåâåãåäåååæåçåèåéåêåëåìåíåîåïåðåñåòåóåôåõåöå÷åøåùåúåûåüåýåþ
-0x6620: æ¡æ¢æ£æ¤æ¥æ¦æ§æ¨æ©æªæ«æ¬ææ®æ¯æ°æ±æ²æ³æ´æµæ¶æ·æ¸æ¹æºæ»æ¼æ½æ¾æ¿
-0x6640: æÀæÁæÂæÃæÄæÅæÆæÇæÈæÉæÊæËæÌæÍæÎæÏæÐæÑæÒæÓæÔæÕæÖæ×æØæÙæÚæÛæÜæÝæÞæß
-0x6660: æàæáæâæãæäæåæææçæèæéæêæëæìæíæîæïæðæñæòæóæôæõæöæ÷æøæùæúæûæüæýæþ
-0x6720: ç¡ç¢ç£ç¤ç¥ç¦ç§ç¨ç©çªç«ç¬çç®ç¯ç°ç±ç²ç³ç´çµç¶ç·ç¸ç¹çºç»ç¼ç½ç¾ç¿
-0x6740: çÀçÁçÂçÃçÄçÅçÆçÇçÈçÉçÊçËçÌçÍçÎçÏçÐçÑçÒçÓçÔçÕçÖç×çØçÙçÚçÛçÜçÝçÞçß
-0x6760: çàçáçâçãçäçåçæçççèçéçêçëçìçíçîçïçðçñçòçóçôçõçöç÷çøçùçúçûçüçýçþ
-0x6820: è¡è¢è£è¤è¥è¦è§è¨è©èªè«è¬èè®è¯è°è±è²è³è´èµè¶è·è¸è¹èºè»è¼è½è¾è¿
-0x6840: èÀèÁèÂèÃèÄèÅèÆèÇèÈèÉèÊèËèÌèÍèÎèÏèÐèÑèÒèÓèÔèÕèÖè×èØèÙèÚèÛèÜèÝèÞèß
-0x6860: èàèáèâèãèäèåèæèçèèèéèêèëèìèíèîèïèðèñèòèóèôèõèöè÷èøèùèúèûèüèýèþ
-0x6920: é¡é¢é£é¤é¥é¦é§é¨é©éªé«é¬éé®é¯é°é±é²é³é´éµé¶é·é¸é¹éºé»é¼é½é¾é¿
-0x6940: éÀéÁéÂéÃéÄéÅéÆéÇéÈéÉéÊéËéÌéÍéÎéÏéÐéÑéÒéÓéÔéÕéÖé×éØéÙéÚéÛéÜéÝéÞéß
-0x6960: éàéáéâéãéäéåéæéçéèéééêéëéìéíéîéïéðéñéòéóéôéõéöé÷éøéùéúéûéüéýéþ
-0x6a20: ê¡ê¢ê£ê¤ê¥ê¦ê§ê¨ê©êªê«ê¬êê®ê¯ê°ê±ê²ê³ê´êµê¶ê·ê¸ê¹êºê»ê¼ê½ê¾ê¿
-0x6a40: êÀêÁêÂêÃêÄêÅêÆêÇêÈêÉêÊêËêÌêÍêÎêÏêÐêÑêÒêÓêÔêÕêÖê×êØêÙêÚêÛêÜêÝêÞêß
-0x6a60: êàêáêâêãêäêåêæêçêèêéêêêëêìêíêîêïêðêñêòêóêôêõêöê÷êøêùêúêûêüêýêþ
-0x6b20: ë¡ë¢ë£ë¤ë¥ë¦ë§ë¨ë©ëªë«ë¬ëë®ë¯ë°ë±ë²ë³ë´ëµë¶ë·ë¸ë¹ëºë»ë¼ë½ë¾ë¿
-0x6b40: ëÀëÁëÂëÃëÄëÅëÆëÇëÈëÉëÊëËëÌëÍëÎëÏëÐëÑëÒëÓëÔëÕëÖë×ëØëÙëÚëÛëÜëÝëÞëß
-0x6b60: ëàëáëâëãëäëåëæëçëèëéëêëëëìëíëîëïëðëñëòëóëôëõëöë÷ëøëùëúëûëüëýëþ
-0x6c20: ì¡ì¢ì£ì¤ì¥ì¦ì§ì¨ì©ìªì«ì¬ìì®ì¯ì°ì±ì²ì³ì´ìµì¶ì·ì¸ì¹ìºì»ì¼ì½ì¾ì¿
-0x6c40: ìÀìÁìÂìÃìÄìÅìÆìÇìÈìÉìÊìËìÌìÍìÎìÏìÐìÑìÒìÓìÔìÕìÖì×ìØìÙìÚìÛìÜìÝìÞìß
-0x6c60: ìàìáìâìãìäìåìæìçìèìéìêìëìììíìîìïìðìñìòìóìôìõìöì÷ìøìùìúìûìüìýìþ
-0x6d20: í¡í¢í£í¤í¥í¦í§í¨í©íªí«í¬íí®í¯í°í±í²í³í´íµí¶í·í¸í¹íºí»í¼í½í¾í¿
-0x6d40: íÀíÁíÂíÃíÄíÅíÆíÇíÈíÉíÊíËíÌíÍíÎíÏíÐíÑíÒíÓíÔíÕíÖí×íØíÙíÚíÛíÜíÝíÞíß
-0x6d60: íàíáíâíã
diff --git a/3.8.8/sources/cpan-Encode/vendor/t/jisx0212.utf b/3.8.8/sources/cpan-Encode/vendor/t/jisx0212.utf
deleted file mode 100644
index 84d221c..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/t/jisx0212.utf
+++ /dev/null
@@ -1,200 +0,0 @@
-0x2220: ˘ˇ¸˙˯˛˚~΄΅
-0x2240: ¡¦¿
-0x2260: ºª©®™¤№
-0x2660: ΆΈΉΊΪ ÎŒ ΎΫ ΠάÎήίϊÎόςÏϋΰώ
-0x2740: ЂЃЄЅІЇЈЉЊЋЌЎÐ
-0x2760: ђѓєѕіїјљњћќўџ
-0x2920: Ã†Ä Ä¦ IJ ÅÄ¿ ŊØŒ ŦÞ
-0x2940: æđðħıijĸłŀʼnŋøœßŧþ
-0x2a20: ÃÀÄÂĂÇĀĄÅÃĆĈČÇĊĎÉÈËÊĚĖĒĘ ÄœÄžÄ¢Ä Ä¤Ã
-0x2a40: ÃŒÃÃŽÇİĪĮĨĴĶĹĽĻŃŇŅÑÓÒÖÔǑÅŌÕŔŘŖŚŜŠŞ
-0x2a60: ŤŢÚÙÜÛŬǓŰŪŲŮŨǗǛǙǕŴßŶŹŽŻ
-0x2b20: áà äâăǎÄąåãćĉÄçċÄéèëêěėēęǵÄÄŸ Ä¡Ä¥Ã
-0x2b40: Ã¬Ã¯Ã®Ç Ä«Ä¯Ä©ÄµÄ·ÄºÄ¾Ä¼Å„ÅˆÅ†Ã±Ã³Ã²Ã¶Ã´Ç’Å‘ÅõŕřŗśÅÅ¡ÅŸ
-0x2b60: ťţúùüûÅǔűūųůũǘǜǚǖŵýÿŷźžż
-0x3020: 丂丄丅丌丒丟丣两丨丫丮丯丰丵乀ä¹ä¹„乇乑乚乜乣乨乩乴乵乹乿äºäº–亗
-0x3040: äºäº¯äº¹ä»ƒä»ä»šä»›ä» 仡仢仨仯仱仳仵份仾仿伀伂伃伈伋伌伒伕伖众伙伮伱ä½
-0x3060: 伳伵伷伹伻伾佀佂佈佉佋佌佒佔佖佘佟佣佪佬佮佱佷佸佹佺佽佾ä¾ä¾‚侄
-0x3120: 侅侉侊侌侎ä¾ä¾’侓侔侗侙侚侞侟侲侷侹侻侼侽侾俀ä¿ä¿…俆俈俉俋俌ä¿ä¿
-0x3140: ä¿’ä¿œä¿ ä¿¢ä¿°ä¿²ä¿¼ä¿½ä¿¿å€€å€å€„倇倊倌倎å€å€“倗倘倛倜å€å€žå€¢å€§å€®å€°å€²å€³å€µå€
-0x3160: åå‚å…å†åŠåŒåŽå‘å’å“å—å™åŸå å¢å£å¦å§åªåå°å±å€»å‚傃傄傆傊傎å‚å‚
-0x3220: å‚’å‚“å‚”å‚–å‚›å‚œå‚žå‚Ÿå‚ å‚¡å‚¢å‚ªå‚¯å‚°å‚¹å‚ºå‚½åƒ€åƒƒåƒ„åƒ‡åƒŒåƒŽåƒåƒ“僔僘僜åƒåƒŸåƒ¢
-0x3240: 僤僦僨僩僯僱僶僺僾儃儆儇儈儋儌å„儎僲å„儗儙儛儜å„儞儣儧儨儬å„儯儱
-0x3260: 儳儴儵儸儹兂兊å…兓兕兗兘兟兤兦兾冃冄冋冎冘å†å†¡å†£å†å†¸å†ºå†¼å†¾å†¿å‡‚
-0x3320: 凈å‡å‡‘凒凓凕凘凞凢凥凮凲凳凴凷åˆåˆ‚刅划刓刕刖刘刢刨刱刲刵刼剅剉
-0x3340: å‰•å‰—å‰˜å‰šå‰œå‰Ÿå‰ å‰¡å‰¦å‰®å‰·å‰¸å‰¹åŠ€åŠ‚åŠ…åŠŠåŠŒåŠ“åŠ•åŠ–åŠ—åŠ˜åŠšåŠœåŠ¤åŠ¥åŠ¦åŠ§åŠ¯åŠ°åŠ¶
-0x3360: 劷劸劺劻劽勀勄勆勈勌å‹å‹‘勔勖勛勜勡勥勨勩勪勬勰勱勴勶勷匀匃匊匋
-0x3420: 匌匑匓匘匛匜匞匟匥匧匨匩匫匬åŒåŒ°åŒ²åŒµåŒ¼åŒ½åŒ¾å‚åŒå‹å™å›å¡å£å¥å¬å
-0x3440: å²å¹å¾åŽƒåŽ‡åŽˆåŽŽåŽ“厔厙åŽåŽ¡åŽ¤åŽªåŽ«åŽ¯åŽ²åŽ´åŽµåŽ·åŽ¸åŽºåŽ½å€å…åå’å“å•åšååž
-0x3460: å å¦å§åµå‚å“åšå¡å§å¨åªå¯å±å´åµå‘ƒå‘„呇å‘å‘呞呢呤呦呧呩呫å‘呮呴呿
-0x3520: å’咃咅咈咉å’咑咕咖咜咟咡咦咧咩咪å’咮咱咷咹咺咻咿哆哊å“å“Žå“ å“ªå“¬
-0x3540: 哯哶哼哾哿唀å”唅唈唉唌å”唎唕唪唫唲唵唶唻唼唽å•å•‡å•‰å•Šå•å•å•‘啘啚啛
-0x3560: å•žå• å•¡å•¤å•¦å•¿å–喂喆喈喎å–喑喒喓喔喗喣喤å–喲喿å—嗃嗆嗉嗋嗌嗎嗑嗒
-0x3620: 嗓嗗嗘嗛嗞嗢嗩嗶嗿嘅嘈嘊å˜å˜Žå˜å˜å˜‘嘒嘙嘬嘰嘳嘵嘷嘹嘻嘼嘽嘿噀å™
-0x3640: 噃噄噆噉噋å™å™å™”å™žå™ å™¡å™¢å™£å™¦å™©å™å™¯å™±å™²å™µåš„嚅嚈嚋嚌嚕嚙嚚åšåšžåšŸåš¦
-0x3660: 嚧嚨嚩嚫嚬åšåš±åš³åš·åš¾å›…囉囊囋å›å›å›Œå›å›™å›œå›å›Ÿå›¡å›¤å›¥å›¦å›§å›¨å›±å›«å›
-0x3720: 囶囷åœåœ‚圇圊圌圑圕圚圛åœåœ 圢圣圤圥圩圪圬圮圯圳圴圽圾圿å…å†åŒå
-0x3740: å’å¢å¥å§å¨å«åå®å¯å°å±å³å´åµå·å¹åºå»å¼å¾åžåžƒåžŒåž”垗垙垚垜åžåžžåžŸåž¡
-0x3760: 垕垧垨垩垬垸垽埇埈埌åŸåŸ•åŸåŸžåŸ¤åŸ¦åŸ§åŸ©åŸåŸ°åŸµåŸ¶åŸ¸åŸ½åŸ¾åŸ¿å ƒå „å ˆå ‰åŸ¡
-0x3820: å Œå å ›å žå Ÿå å ¦å §å å ²å ¹å ¿å¡‰å¡Œå¡å¡å¡å¡•å¡Ÿå¡¡å¡¤å¡§å¡¨å¡¸å¡¼å¡¿å¢€å¢å¢‡å¢ˆå¢‰
-0x3840: 墊墌å¢å¢å¢å¢”墖å¢å¢ 墡墢墦墩墱墲壄墼壂壈å£å£Žå£å£’壔壖壚å£å£¡å£¢å£©å£³å¤…
-0x3860: 夆夋夌夒夓夔è™å¤å¤¡å¤£å¤¤å¤¨å¤¯å¤°å¤³å¤µå¤¶å¤¿å¥ƒå¥†å¥’奓奙奛å¥å¥žå¥Ÿå¥¡å¥£å¥«å¥
-0x3920: 奯奲奵奶她奻奼妋妌妎妒妕妗妟妤妧å¦å¦®å¦¯å¦°å¦³å¦·å¦ºå¦¼å§å§ƒå§„姈姊å§å§’
-0x3940: å§å§žå§Ÿå§£å§¤å§§å§®å§¯å§±å§²å§´å§·å¨€å¨„娌å¨å¨Žå¨’娓娞娣娤娧娨娪å¨å¨°å©„婅婇婈婌
-0x3960: å©å©•å©žå©£å©¥å©§å©å©·å©ºå©»å©¾åª‹åªåª“åª–åª™åªœåªžåªŸåª åª¢åª§åª¬åª±åª²åª³åªµåª¸åªºåª»åª¿
-0x3a20: 嫄嫆嫈å«å«šå«œå« 嫥嫪嫮嫵嫶嫽嬀å¬å¬ˆå¬—嬴嬙嬛å¬å¬¡å¬¥å¬å¬¸åå‹åŒå’å–åž
-0x3a40: å¨å®å¯å¼å½å¾å¿å®å®„宆宊宎å®å®‘宓宔宖宨宩宬å®å®¯å®±å®²å®·å®ºå®¼å¯€å¯å¯å¯å¯–
-0x3a60: å¯—å¯˜å¯™å¯šå¯ å¯¯å¯±å¯´å¯½å°Œå°—å°žå°Ÿå°£å°¦å°©å°«å°¬å°®å°°å°²å°µå°¶å±™å±šå±œå±¢å±£å±§å±¨å±©
-0x3b20: å±å±°å±´å±µå±ºå±»å±¼å±½å²‡å²ˆå²Šå²å²’å²å²Ÿå² 岢岣岦岪岲岴岵岺峉峋峒å³å³—峮峱
-0x3b40: 峲峴å´å´†å´å´’å´«å´£å´¤å´¦å´§å´±å´´å´¹å´½å´¿åµ‚åµƒåµ†åµˆåµ•åµ‘åµ™åµŠåµŸåµ åµ¡åµ¢åµ¤åµªåµåµ°
-0x3b60: 嵹嵺嵾嵿å¶å¶ƒå¶ˆå¶Šå¶’å¶“å¶”å¶•å¶™å¶›å¶Ÿå¶ å¶§å¶«å¶°å¶´å¶¸å¶¹å·ƒå·‡å·‹å·å·Žå·˜å·™å· å·¤
-0x3c20: 巩巸巹帀帇å¸å¸’å¸”å¸•å¸˜å¸Ÿå¸ å¸®å¸¨å¸²å¸µå¸¾å¹‹å¹å¹‰å¹‘幖幘幛幜幞幨幪幫幬å¹
-0x3c40: 幮幰庀庋庎庢庤庥庨庪庬庱庳庽庾庿廆廌廋廎廑廒廔廕廜廞廥廫异弆弇弈
-0x3c60: 弎弙弜å¼å¼¡å¼¢å¼£å¼¤å¼¨å¼«å¼¬å¼®å¼°å¼´å¼¶å¼»å¼½å¼¿å½€å½„彅彇å½å½å½”å½˜å½›å½ å½£å½¤å½§
-0x3d20: 彯彲彴彵彸彺彽彾徉å¾å¾å¾–徜å¾å¾¢å¾§å¾«å¾¤å¾¬å¾¯å¾°å¾±å¾¸å¿„忇忈忉忋å¿å¿‘å¿’
-0x3d40: 忓忔忞忡忢忨忩忪忬å¿å¿®å¿¯å¿²å¿³å¿¶å¿ºå¿¼æ€‡æ€Šæ€æ€“怔怗怘怚怟怤æ€æ€³æ€µæ€æ‡
-0x3d60: æˆæ‰æŒæ‘æ”æ–æ—ææ¡æ§æ±æ¾æ¿æ‚‚悆悈悊悎悑悓悕悘æ‚悞悢悤悥您悰悱悷
-0x3e20: 悻悾惂惄惈惉惊惋惎æƒæƒ”惕惙惛æƒæƒžæƒ¢æƒ¥æƒ²æƒµæƒ¸æƒ¼æƒ½æ„‚愇愊愌æ„æ„‘æ„’æ„“
-0x3e40: 愔愖愗愙愜愞愢愪愫愰愱愵愶愷愹æ…æ……æ…†æ…‰æ…žæ… æ…¬æ…²æ…¸æ…»æ…¼æ…¿æ†€æ†æ†ƒæ†„憋
-0x3e60: æ†æ†’憓憗憘憜æ†æ†Ÿæ† 憥憨憪æ†æ†¸æ†¹æ†¼æ‡€æ‡æ‡‚懎æ‡æ‡•æ‡œæ‡æ‡žæ‡Ÿæ‡¡æ‡¢æ‡§æ‡©æ‡¥
-0x3f20: 懬æ‡æ‡¯æˆæˆƒæˆ„æˆ‡æˆ“æˆ•æˆœæˆ æˆ¢æˆ£æˆ§æˆ©æˆ«æˆ¹æˆ½æ‰‚æ‰ƒæ‰„æ‰†æ‰Œæ‰æ‰‘扒扔扖扚扜扤
-0x3f40: æ‰æ‰¯æ‰³æ‰ºæ‰½æŠæŠŽæŠæŠæŠ¦æŠ¨æŠ³æŠ¶æŠ·æŠºæŠ¾æŠ¿æ‹„拎拕拖拚拪拲拴拼拽挃挄挊挋æŒ
-0x3f60: æŒæŒ“挖挘挩挪æŒæŒµæŒ¶æŒ¹æŒ¼ææ‚æƒæ„æ†æŠæ‹æŽæ’æ“æ”æ˜æ›æ¥æ¦æ¬ææ±æ´æµ
-0x4020: æ¸æ¼æ½æ¿æŽ‚掄掇掊æŽæŽ”掕掙掚掞掤掦æŽæŽ®æŽ¯æŽ½ææ…æˆæŽæ‘æ“æ”æ•æœæ æ¥
-0x4040: æªæ¬æ²æ³æµæ¸æ¹æ‰æŠææ’æ”æ˜æžæ æ¢æ¤æ¥æ©æªæ¯æ°æµæ½æ¿æ‘‹æ‘摑摒摓摔摚
-0x4060: 摛摜æ‘æ‘Ÿæ‘ æ‘¡æ‘£æ‘摳摴摻摽撅撇æ’æ’撑撘撙撛æ’撟撡撣撦撨撬撳撽撾撿
-0x4120: 擄擉擊擋擌擎æ“擑擕擗擤擥擩擪æ“擰擵擷擻擿æ”攄攈攉攊æ”攓攔攖攙攛
-0x4140: 攞攟攢攦攩攮攱攺攼攽敃敇敉æ•æ•’æ•”æ•Ÿæ• æ•§æ•«æ•ºæ•½æ–æ–…æ–Šæ–’æ–•æ–˜æ–æ– æ–£æ–¦
-0x4160: 斮斲斳斴斿旂旈旉旎æ—旔旖旘旟旰旲旴旵旹旾旿昀昄昈昉æ˜æ˜‘昒昕昖æ˜
-0x4220: æ˜žæ˜¡æ˜¢æ˜£æ˜¤æ˜¦æ˜©æ˜ªæ˜«æ˜¬æ˜®æ˜°æ˜±æ˜³æ˜¹æ˜·æ™€æ™…æ™†æ™Šæ™Œæ™‘æ™Žæ™—æ™˜æ™™æ™›æ™œæ™ æ™¡æ›»
-0x4240: 晪晫晬晾晳晵晿晷晸晹晻暀晼暋暌æšæšæš’æš™æššæš›æšœæšŸæš æš¤æšæš±æš²æšµæš»æš¿æ›€
-0x4260: 曂曃曈曌曎æ›æ›”æ››æ›Ÿæ›¨æ›«æ›¬æ›®æ›ºæœ…æœ‡æœŽæœ“æœ™æœœæœ æœ¢æœ³æœ¾æ…æ‡æˆæŒæ”æ•æ
-0x4320: æ¦æ¬æ®æ´æ¶æ»æžæž„枎æžæž‘枓枖枘枙枛枰枱枲枵枻枼枽柹柀柂柃柅柈柉柒
-0x4340: æŸ—æŸ™æŸœæŸ¡æŸ¦æŸ°æŸ²æŸ¶æŸ·æ¡’æ ”æ ™æ æ Ÿæ ¨æ §æ ¬æ æ ¯æ °æ ±æ ³æ »æ ¿æ¡„æ¡…æ¡Šæ¡Œæ¡•æ¡—æ¡˜æ¡›
-0x4360: 桫桮桯桰桱桲桵桹桺桻桼梂梄梆梈梖梘梚梜梡梣梥梩梪梮梲梻棅棈棌æ£
-0x4420: æ£æ£‘棓棖棙棜æ£æ£¥æ£¨æ£ªæ£«æ£¬æ£æ£°æ£±æ£µæ£¶æ£»æ£¼æ£½æ¤†æ¤‰æ¤Šæ¤æ¤‘椓椖椗椱椳椵
-0x4440: 椸椻楂楅楉楎楗楛楣楤楥楦楨楩楬楰楱楲楺楻楿榀æ¦æ¦’榖榘榡榥榦榨榫æ¦
-0x4460: 榯榷榸榺榼槅槈槑槖槗槢槥槮槯槱槳槵槾樀æ¨æ¨ƒæ¨æ¨‘樕樚æ¨æ¨ 樤樨樰樲
-0x4520: 樴樷樻樾樿橅橆橉橊橎æ©æ©‘橒橕橖橛橤橧橪橱橳橾æªæªƒæª†æª‡æª‰æª‹æª‘檛æª
-0x4540: 檞檟檥檫檯檰檱檴檽檾檿櫆櫉櫈櫌æ«æ«”æ«•æ«–æ«œæ«æ«¤æ«§æ«¬æ«°æ«±æ«²æ«¼æ«½æ¬‚欃欆
-0x4560: 欇欉æ¬æ¬æ¬‘欗欛欞欤欨欫欬欯欵欶欻欿æ†æŠææ’æ–æ˜ææ æ§æ«æ®æ°æµæ½
-0x4620: æ¾æ®‚æ®…æ®—æ®›æ®Ÿæ® æ®¢æ®£æ®¨æ®©æ®¬æ®æ®®æ®°æ®¸æ®¹æ®½æ®¾æ¯ƒæ¯„毉毌毖毚毡毣毦毧毮毱
-0x4640: 毷毹毿氂氄氅氉æ°æ°Žæ°æ°’氙氟氦氧氨氬氮氳氵氶氺氻氿汊汋æ±æ±æ±’汔汙汛
-0x4660: 汜汫æ±æ±¯æ±´æ±¶æ±¸æ±¹æ±»æ²…沆沇沉沔沕沗沘沜沟沰沲沴泂泆æ³æ³æ³æ³‘泒泔泖
-0x4720: æ³šæ³œæ³ æ³§æ³©æ³«æ³¬æ³®æ³²æ³´æ´„æ´‡æ´Šæ´Žæ´æ´‘洓洚洦洧洨汧洮洯洱洹洼洿浗浞浟
-0x4740: 浡浥浧浯浰浼涂涇涑涒涔涖涗涘涪涬涴涷涹涽涿淄淈淊淎æ·æ·–æ·›æ·æ·Ÿæ· æ·¢
-0x4760: 淥淩淯淰淴淶淼渀渄渞渢渧渲渶渹渻渼湄湅湈湉湋æ¹æ¹‘湒湓湔湗湜æ¹æ¹ž
-0x4820: 湢湣湨湳湻湽æºæº“æº™æº æº§æºæº®æº±æº³æº»æº¿æ»€æ»æ»ƒæ»‡æ»ˆæ»Šæ»æ»Žæ»æ»«æ»æ»®æ»¹æ»»
-0x4840: 滽漄漈漊漌æ¼æ¼–漘漚漛漦漩漪漯漰漳漶漻漼æ¼æ½æ½‘潒潓潗潙潚æ½æ½žæ½¡æ½¢æ½¨
-0x4860: 潬潽潾澃澇澈澋澌æ¾æ¾æ¾’æ¾“æ¾”æ¾–æ¾šæ¾Ÿæ¾ æ¾¥æ¾¦æ¾§æ¾¨æ¾®æ¾¯æ¾°æ¾µæ¾¶æ¾¼æ¿…æ¿‡æ¿ˆæ¿Š
-0x4920: 濚濞濨濩濰濵濹濼濽瀀瀅瀆瀇ç€ç€—ç€ ç€£ç€¯ç€´ç€·ç€¹ç€¼çƒç„çˆç‰çŠç‹ç”ç•ç
-0x4940: çžçŽç¤ç¥ç¬ç®çµç¶ç¾ç‚炅炆炔炕炖炗炘炛炤炫炰炱炴炷烊烑烓烔烕烖烘烜
-0x4960: 烤烺焃焄焅焆焇焋焌ç„ç„žç„ ç„«ç„焯焰焱焸ç…煅煆煇煊煋ç…煒煗煚煜煞ç…
-0x4a20: ç…¨ç…¹ç†€ç†…ç†‡ç†Œç†’ç†šç†›ç† ç†¢ç†¯ç†°ç†²ç†³ç†ºç†¿ç‡€ç‡ç‡„燋燌燓燖燙燚燜燸燾爀爇
-0x4a40: 爈爉爓爗爚çˆçˆŸçˆ¤çˆ«çˆ¯çˆ´çˆ¸çˆ¹ç‰ç‰‚牃牅牎ç‰ç‰ç‰“ç‰•ç‰–ç‰šç‰œç‰žç‰ ç‰£ç‰¨ç‰«ç‰®ç‰¯
-0x4a60: 牱牷牸牻牼牿犄犉çŠçŠŽçŠ“犛犨çŠçŠ®çŠ±çŠ´çŠ¾ç‹ç‹‡ç‹‰ç‹Œç‹•ç‹–狘狟狥狳狴狺狻
-0x4b20: 狾猂猄猅猇猋çŒçŒ’猓猘猙猞猢猤猧猨猬猱猲猵猺猻猽çƒççç’ç–ç˜ççž
-0x4b40: çŸç ç¦ç§ç©ç«ç¬ç®ç¯ç±ç·ç¹ç¼çŽ€çŽçŽƒçŽ…玆玎çŽçŽ“çŽ•çŽ—çŽ˜çŽœçŽžçŽŸçŽ çŽ¢çŽ¥çŽ¦çŽª
-0x4b60: 玫çŽçŽµçŽ·çŽ¹çŽ¼çŽ½çŽ¿ç…ç†ç‰ç‹çŒçç’ç“ç–ç™çç¡ç£ç¦ç§ç©ç´çµç·ç¹çºç»ç½
-0x4c20: ç¿ç€çç„ç‡çŠç‘çšç›ç¤ç¦ç¨ç©çªç«ç¬çç®ç¯ç°ç±ç¹ç‘€ç‘ƒç‘„瑆瑇瑋ç‘ç‘‘ç‘’
-0x4c40: ç‘—ç‘瑢瑦瑧瑨瑫ç‘瑮瑱瑲璀ç’璅璆璇璉ç’ç’ç’‘ç’’ç’˜ç’™ç’šç’œç’Ÿç’ ç’¡ç’£ç’¦ç’¨ç’©
-0x4c60: 璪璫璮璯璱璲璵璹璻璿瓈瓉瓌ç“瓓瓘瓚瓛瓞瓟瓤瓨瓪瓫瓯瓴瓺瓻瓼瓿甆
-0x4d20: ç”’ç”–ç”—ç” ç”¡ç”¤ç”§ç”©ç”ªç”¯ç”¶ç”¹ç”½ç”¾ç”¿ç•€ç•ƒç•‡ç•ˆç•Žç•ç•’畗畞畟畡畯畱畹畺畻
-0x4d40: 畼畽畾ç–ç–…ç–疒疓疕疙疜疢疤疴疺疿痀ç—痄痆痌痎ç—ç——ç—œç—Ÿç— ç—¡ç—¤ç—§ç—¬ç—®
-0x4d60: 痯痱痹瘀瘂瘃瘄瘇瘈瘊瘌ç˜ç˜’瘓瘕瘖瘙瘛瘜ç˜ç˜žç˜£ç˜¥ç˜¦ç˜©ç˜ç˜²ç˜³ç˜µç˜¸ç˜¹
-0x4e20: 瘺瘼癊癀ç™ç™ƒç™„癅癉癋癕癙癟癤癥ç™ç™®ç™¯ç™±ç™´çšçš…皌çšçš•çš›çšœçšçšŸçš 皢
-0x4e40: 皣皤皥皦皧皨皪çšçš½ç›ç›…ç›‰ç›‹ç›Œç›Žç›”ç›™ç› ç›¦ç›¨ç›¬ç›°ç›±ç›¶ç›¹ç›¼çœ€çœ†çœŠçœŽçœ’çœ”
-0x4e60: 眕眗眙眚眜眢眨çœçœ®çœ¯çœ´çœµçœ¶çœ¹çœ½çœ¾ç‚ç…ç†çŠççŽçç’ç–ç—çœçžçŸç ç¢
-0x4f20: ç¤ç§çªç¬ç°ç²ç³ç´çºç½çž€çž„瞌çžçž”瞕瞖瞚瞟瞢瞧瞪瞮瞯瞱瞵瞾矃矉矑矒
-0x4f40: çŸ•çŸ™çŸžçŸŸçŸ çŸ¤çŸ¦çŸªçŸ¬çŸ°çŸ±çŸ´çŸ¸çŸ»ç …ç †ç ‰ç ç Žç ‘ç ç ¡ç ¢ç £ç ç ®ç °ç µç ·ç¡ƒç¡„ç¡‡
-0x4f60: ç¡ˆç¡Œç¡Žç¡’ç¡œç¡žç¡ ç¡¡ç¡£ç¡¤ç¡¨ç¡ªç¡®ç¡ºç¡¾ç¢Šç¢ç¢”碘碡ç¢ç¢žç¢Ÿç¢¤ç¢¨ç¢¬ç¢ç¢°ç¢±ç¢²ç¢³
-0x5020: ç¢»ç¢½ç¢¿ç£‡ç£ˆç£‰ç£Œç£Žç£’ç£“ç£•ç£–ç£¤ç£›ç£Ÿç£ ç£¡ç£¦ç£ªç£²ç£³ç¤€ç£¶ç£·ç£ºç£»ç£¿ç¤†ç¤Œç¤ç¤š
-0x5040: ç¤œç¤žç¤Ÿç¤ ç¤¥ç¤§ç¤©ç¤ç¤±ç¤´ç¤µç¤»ç¤½ç¤¿ç¥„祅祆祊祋ç¥ç¥‘祔祘祛祜祧祩祫祲祹祻祼
-0x5060: 祾禋禌禑禓禔禕禖禘禛禜禡禨禩禫禯禱禴禸离秂秄秇秈秊ç§ç§”秖秚ç§ç§ž
-0x5120: ç§ ç§¢ç§¥ç§ªç§«ç§ç§±ç§¸ç§¼ç¨‚稃稇稉稊稌稑稕稛稞稡稧稫ç¨ç¨¯ç¨°ç¨´ç¨µç¨¸ç¨¹ç¨ºç©„
-0x5140: 穅穇穈穌穕穖穙穜ç©ç©Ÿç© 穥穧穪ç©ç©µç©¸ç©¾çª€çª‚窅窆窊窋çªçª‘çª”çªžçª çª£çª¬çª³
-0x5160: 窵窹窻窼竆竉竌竎竑竛竨竩竫竬竱竴竻竽竾笇笔笟笣笧笩笪笫ç¬ç¬®ç¬¯ç¬°
-0x5220: 笱笴笽笿ç€çç‡çŽç•ç ç¤ç¦ç©çªçç¯ç²ç³ç·ç®„箉箎ç®ç®‘ç®–ç®›ç®žç® ç®¥ç®¬ç®¯
-0x5240: 箰箲箵箶箺箻箼箽篂篅篈篊篔篖篗篙篚篛篨篪篲篴篵篸篹篺篼篾ç°ç°‚簃簄
-0x5260: 簆簉簋簌簎ç°ç°™ç°›ç° 簥簦簨簬簱簳簴簶簹簺籆籊籕籑籒籓籙籚籛籜ç±ç±ž
-0x5320: 籡籣籧籩ç±ç±®ç±°ç±²ç±¹ç±¼ç±½ç²†ç²‡ç²ç²”ç²žç² ç²¦ç²°ç²¶ç²·ç²ºç²»ç²¼ç²¿ç³„ç³‡ç³ˆç³‰ç³ç³
-0x5340: 糓糔糕糗糙糚ç³ç³¦ç³©ç³«ç³µç´ƒç´‡ç´ˆç´‰ç´ç´‘ç´’ç´“ç´–ç´ç´žç´£ç´¦ç´ªç´ç´±ç´¼ç´½ç´¾çµ€çµ
-0x5360: 絇絈çµçµ‘絓絗絙絚絜çµçµ¥çµ§çµªçµ°çµ¸çµºçµ»çµ¿ç¶ç¶‚綃綅綆綈綋綌ç¶ç¶‘綖綗ç¶
-0x5420: 綞綦綧綪綳綶綷綹緂緃緄緅緆緌ç·ç·Žç·—緙縀緢緥緦緪緫ç·ç·±ç·µç·¶ç·¹ç·ºç¸ˆ
-0x5440: ç¸ç¸‘縕縗縜ç¸ç¸ 縧縨縬ç¸ç¸¯ç¸³ç¸¶ç¸¿ç¹„繅繇繎ç¹ç¹’繘繟繡繢繥繫繮繯繳繸繾
-0x5460: çºçº†çº‡çºŠçºçº‘纕纘纚çºçºžç¼¼ç¼»ç¼½ç¼¾ç¼¿ç½ƒç½„罇ç½ç½’罓罛罜ç½ç½¡ç½£ç½¤ç½¥ç½¦ç½
-0x5520: 罱罽罾罿羀羋ç¾ç¾ç¾ç¾‘羖羗羜羡羢羦羪ç¾ç¾´ç¾¼ç¾¿ç¿€ç¿ƒç¿ˆç¿Žç¿ç¿›ç¿Ÿç¿£ç¿¥ç¿¨
-0x5540: 翬翮翯翲翺翽翾翿耇耈耊è€è€Žè€è€‘耓耔耖è€è€žè€Ÿè€ 耤耦耬耮耰耴耵耷耹耺
-0x5560: 耼耾è€è„è è¤è¦èè±èµè‚肈肎肜肞肦肧肫肸肹胈èƒèƒèƒ’èƒ”èƒ•èƒ—èƒ˜èƒ èƒèƒ®
-0x5620: èƒ°èƒ²èƒ³èƒ¶èƒ¹èƒºèƒ¾è„ƒè„‹è„–è„—è„˜è„œè„žè„ è„¤è„§è„¬è„°è„µè„ºè„¼è……è…‡è…Šè…Œè…’è…—è… è…¡è…§
-0x5640: 腨腩è…腯腷è†è†è†„膅膆膋膎膖膘膛膞膢膮膲膴膻臋臃臅臊臎è‡è‡•è‡—臛è‡è‡ž
-0x5660: 臡臤臫臬臰臱臲臵臶臸臹臽臿舀舃èˆèˆ“舔舙舚èˆèˆ¡èˆ¢èˆ¨èˆ²èˆ´èˆºè‰ƒè‰„艅艆
-0x5720: 艋艎è‰è‰‘è‰–è‰œè‰ è‰£è‰§è‰è‰´è‰»è‰½è‰¿èŠ€èŠèŠƒèŠ„èŠ‡èŠ‰èŠŠèŠŽèŠ‘èŠ”èŠ–èŠ˜èŠšèŠ›èŠ èŠ¡èŠ£
-0x5740: 芤芧芨芩芪芮芰芲芴芷芺芼芾芿苆è‹è‹•è‹šè‹ 苢苤苨苪è‹è‹¯è‹¶è‹·è‹½è‹¾èŒ€èŒèŒ‡
-0x5760: 茈茊茋è”茛èŒèŒžèŒŸèŒ¡èŒ¢èŒ¬èŒèŒ®èŒ°èŒ³èŒ·èŒºèŒ¼èŒ½è‚èƒè„è‡èèŽè‘è•è–è—è°è¸
-0x5820: è½è¿èŽ€èŽ‚莄莆èŽèŽ’莔莕莘莙莛莜èŽèŽ¦èŽ§èŽ©èŽ¬èŽ¾èŽ¿è€è‡è‰èèè‘è”èè“è¨
-0x5840: èªè¶è¸è¹è¼èè†èŠèè‘è•è™èŽè¯è¹è‘…葇葈葊è‘è‘è‘‘è‘’è‘–è‘˜è‘™è‘šè‘œè‘ è‘¤è‘¥è‘§
-0x5860: 葪葰葳葴葶葸葼葽è’蒅蒒蒓蒕蒞蒦蒨蒩蒪蒯蒱蒴蒺蒽蒾蓀蓂蓇蓈蓌è“è““
-0x5920: 蓜蓧蓪蓯蓰蓱蓲蓷蔲蓺蓻蓽蔂蔃蔇蔌蔎è”蔜蔞蔢蔣蔤蔥蔧蔪蔫蔯蔳蔴蔶
-0x5940: 蔿蕆è•è•è•‘蕒蕓蕖蕙蕜è•è•žè•Ÿè• 蕡蕢蕤蕫蕯蕹蕺蕻蕽蕿è–薅薆薉薋薌è–è–“
-0x5960: è–˜è–è–Ÿè– è–¢è–¥è–§è–´è–¶è–·è–¸è–¼è–½è–¾è–¿è—‚è—‡è—Šè—‹è—Žè–è—˜è—šè—Ÿè— è—¦è—¨è—藳藶藼
-0x5a20: 藿蘀蘄蘅è˜è˜Žè˜è˜‘蘒蘘蘙蘛蘞蘡蘧蘩蘶蘸蘺蘼蘽虀虂虆虒虓虖虗虘虙è™
-0x5a40: è™ è™¡è™¢è™£è™¤è™©è™¬è™¯è™µè™¶è™·è™ºèšèš‘蚖蚘蚚蚜蚡蚦蚧蚨èšèš±èš³èš´èšµèš·èš¸èš¹èš¿è›€
-0x5a60: è›è›ƒè›…è›‘è›’è›•è›—è›šè›œè› è›£è›¥è›§èšˆè›ºè›¼è›½èœ„èœ…èœ‡èœ‹èœŽèœèœèœ“蜔蜙蜞蜟蜡蜣
-0x5b20: 蜨蜮蜯蜱蜲蜹蜺蜼蜽蜾è€èƒè…èè˜èè¡è¤è¥è¯è±è²è»èžƒèž„螅螆螇螈螉螋
-0x5b40: 螌èžèž“èž•èž—èž˜èž™èžžèž èž£èž§èž¬èžèž®èž±èžµèž¾èž¿èŸèŸˆèŸ‰èŸŠèŸŽèŸ•èŸ–蟙蟚蟜蟟蟢蟣蟤
-0x5b60: 蟪蟫èŸèŸ±èŸ³èŸ¸èŸºèŸ¿è è ƒè †è ‰è Šè ‹è è ™è ’è “è ”è ˜è šè ›è œè žè Ÿè ¨è è ®è °è ²è µ
-0x5c20: è ºè ¼è¡è¡ƒè¡…è¡ˆè¡‰è¡Šè¡‹è¡Žè¡‘è¡•è¡–è¡˜è¡šè¡œè¡Ÿè¡ è¡¤è¡©è¡±è¡¹è¡»è¢€è¢˜è¢šè¢›è¢œè¢Ÿè¢ è¢¨
-0x5c40: 袪袺袽袾裀裊裋裌è£è£Žè£‘裒裓裛裞裧裯裰裱裵裷è¤è¤†è¤è¤Žè¤è¤•è¤–褘褙褚褜
-0x5c60: è¤ è¤¦è¤§è¤¨è¤°è¤±è¤²è¤µè¤¹è¤ºè¤¾è¥€è¥‚è¥…è¥†è¥‰è¥è¥’襗襚襛襜襡襢襣襫襮襰襳襵襺
-0x5d20: 襻襼襽覉è¦è¦è¦”è¦•è¦›è¦œè¦Ÿè¦ è¦¥è¦°è¦´è¦µè¦¶è¦·è¦¼è§”è§•è§–è§—è§˜è§¥è§©è§«è§è§±è§³è§¶
-0x5d40: 觹觽觿訄訅訇è¨è¨‘è¨’è¨”è¨•è¨žè¨ è¨¢è¨¤è¨¦è¨«è¨¬è¨¯è¨µè¨·è¨½è¨¾è©€è©ƒè©…è©‡è©‰è©è©Žè©“è©–
-0x5d60: 詗詘詜è©è©¡è©¥è©§è©µè©¶è©·è©¹è©ºè©»è©¾è©¿èª€èªƒèª†èª‹èªèªèª’誖誗誙誟誧誩誮誯誳
-0x5e20: 誶誷誻誾諃諆諈諉諊諑諓諔諕諗è«è«Ÿè«¬è«°è«´è«µè«¶è«¼è«¿è¬…謆謋謑謜謞謟謊
-0x5e40: è¬è¬°è¬·è¬¼è‚èƒè„è…è†èˆè’è“è”è™èèžè£èè¶è¸è¹è¼è¾è®è®„讅讋è®è®è®”讕讜
-0x5e60: 讞讟谸谹谽谾豅豇豉豋è±è±‘豓豔豗豘豛è±è±™è±£è±¤è±¦è±¨è±©è±è±³è±µè±¶è±»è±¾è²†
-0x5f20: 貇貋è²è²’貓貙貛貜貤貹貺賅賆賉賋è³è³–賕賙è³è³¡è³¨è³¬è³¯è³°è³²è³µè³·è³¸è³¾è³¿
-0x5f40: è´è´ƒè´‰è´’贗贛赥赩赬赮赿趂趄趈è¶è¶è¶‘è¶•è¶žè¶Ÿè¶ è¶¦è¶«è¶¬è¶¯è¶²è¶µè¶·è¶¹è¶»è·€è·…
-0x5f60: 跆跇跈跊跎跑跔跕跗跙跤跥跧跬跰趼跱跲跴跽è¸è¸„è¸…è¸†è¸‹è¸‘è¸”è¸–è¸ è¸¡è¸¢
-0x6020: 踣踦踧踱踳踶踷踸踹踽蹀è¹è¹‹è¹è¹Žè¹è¹”蹛蹜è¹è¹žè¹¡è¹¢è¹©è¹¬è¹è¹¯è¹°è¹±è¹¹è¹º
-0x6040: 蹻躂躃躉èºèº’躕躚躛èºèºžèº¢èº§èº©èºèº®èº³èºµèººèº»è»€è»è»ƒè»„軇è»è»‘軔軜軨軮軰
-0x6060: 軱軷軹軺è»è¼€è¼‚輇輈è¼è¼è¼–è¼—è¼˜è¼žè¼ è¼¡è¼£è¼¥è¼§è¼¨è¼¬è¼è¼®è¼´è¼µè¼¶è¼·è¼ºè½€è½
-0x6120: 轃轇è½è½‘轒轓轔轕轘è½è½žè½¥è¾è¾ 辡辤辥辦辵辶辸达迀è¿è¿†è¿Šè¿‹è¿è¿è¿’è¿“
-0x6140: è¿•è¿ è¿£è¿¤è¿¨è¿®è¿±è¿µè¿¶è¿»è¿¾é€‚é€„é€ˆé€Œé€˜é€›é€¨é€©é€¯é€ªé€¬é€é€³é€´é€·é€¿éƒé„éŒé›é
-0x6160: é¢é¦é§é¬é°é´é¹é‚…邈邋邌邎é‚é‚•é‚—é‚˜é‚™é‚›é‚ é‚¡é‚¢é‚¥é‚°é‚²é‚³é‚´é‚¶é‚½éƒŒé‚¾éƒƒ
-0x6220: 郄郅郇郈郕郗郘郙郜éƒéƒŸéƒ¥éƒ’郶郫郯郰郴郾郿鄀鄄鄅鄆鄈é„é„鄔鄖鄗鄘
-0x6240: é„šé„œé„žé„ é„¥é„¢é„£é„§é„©é„®é„¯é„±é„´é„¶é„·é„¹é„ºé„¼é„½é…ƒé…‡é…ˆé…酓酗酙酚酛酡酤酧é…
-0x6260: 酴酹酺酻é†é†ƒé†…醆醊醎醑醓醔醕醘醞醡醦醨醬é†é†®é†°é†±é†²é†³é†¶é†»é†¼é†½é†¿
-0x6320: 釂釃釅釓釔釗釙釚釞釤釥釩釪釬é‡é‡®é‡¯é‡°é‡±é‡·é‡¹é‡»é‡½éˆ€éˆéˆ„鈅鈆鈇鈉鈊
-0x6340: 鈌éˆéˆ’鈓鈖鈘鈜éˆéˆ£éˆ¤éˆ¥éˆ¦éˆ¨éˆ®éˆ¯éˆ°éˆ³éˆµéˆ¶éˆ¸éˆ¹éˆºéˆ¼éˆ¾é‰€é‰‚鉃鉆鉇鉊é‰é‰Ž
-0x6360: é‰é‰‘鉘鉙鉜é‰é‰ 鉡鉥鉧鉨鉩鉮鉯鉰鉵鉶鉷鉸鉹鉻鉼鉽鉿銈銉銊éŠéŠŽéŠ’銗
-0x6420: éŠ™éŠŸéŠ éŠ¤éŠ¥éŠ§éŠ¨éŠ«éŠ¯éŠ²éŠ¶éŠ¸éŠºéŠ»éŠ¼éŠ½éŠ¿é‹€é‹é‹‚鋃鋅鋆鋇鋈鋋鋌é‹é‹Žé‹é‹“
-0x6440: 鋕鋗鋘鋙鋜é‹é‹Ÿé‹ 鋡鋣鋥鋧鋨鋬鋮鋰鋹鋻鋿錀錂錈éŒéŒ‘錔錕錜éŒéŒžéŒŸéŒ¡éŒ¤
-0x6460: 錥錧錩錪錳錴錶錷é‡éˆé‰éé‘é’é•é—é˜éšéžé¤é¥é§é©éªéé¯é°é±é³é´é¶
-0x6520: éºé½é¿éŽ€éŽéŽ‚鎈鎊鎋éŽéŽéŽ’鎕鎘鎛鎞鎡鎣鎤鎦鎨鎫鎴鎵鎶鎺鎩éé„é…é†
-0x6540: é‡é‰éŠé‹éŒéé“é™éœéžéŸé¢é¦é§é¹é·é¸éºé»é½éé‚é„éˆé‰ééŽéé•é–é—éŸ
-0x6560: é®é¯é±é²é³é´é»é¿é½é‘ƒé‘…鑈鑊鑌鑕鑙鑜鑟鑡鑣鑨鑫é‘鑮鑯鑱鑲钄钃镸镹
-0x6620: 镾閄閈閌é–é–Žé–閞閟閡閦閩閫閬閴閶閺閽閿闆闈闉闋é—闑闒闓闙闚é—é—ž
-0x6640: é—Ÿé— é—¤é—¦é˜é˜žé˜¢é˜¤é˜¥é˜¦é˜¬é˜±é˜³é˜·é˜¸é˜¹é˜ºé˜¼é˜½é™é™’陔陖陗陘陡陮陴陻陼陾陿
-0x6660: éšéš‚隃隄隉隑隖隚éšéšŸéš¤éš¥éš¦éš©éš®éš¯éš³éšºé›Šé›’嶲雘雚é›é›žé›Ÿé›©é›¯é›±é›ºéœ‚
-0x6720: 霃霅霉霚霛éœéœ¡éœ¢éœ£éœ¨éœ±éœ³ééƒéŠéŽéé•é—é˜éšé›é£é§éªé®é³é¶é·é¸é»
-0x6740: é½é¿éž€éž‰éž•éž–鞗鞙鞚鞞鞟鞢鞬鞮鞱鞲鞵鞶鞸鞹鞺鞼鞾鞿éŸéŸ„韅韇韉韊韌éŸ
-0x6760: 韎éŸéŸ‘韔韗韘韙éŸéŸžéŸ éŸ›éŸ¡éŸ¤éŸ¯éŸ±éŸ´éŸ·éŸ¸éŸºé ‡é Šé ™é é Žé ”é –é œé žé é £é ¦
-0x6820: é «é ®é ¯é °é ²é ³é µé ¥é ¾é¡„é¡‡é¡Šé¡‘é¡’é¡“é¡–é¡—é¡™é¡šé¡¢é¡£é¡¥é¡¦é¡ªé¡¬é¢«é¢é¢®é¢°é¢´é¢·
-0x6840: 颸颺颻颿飂飅飈飌飡飣飥飦飧飪飳飶餂餇餈餑餕餖餗餚餛餜餟餢餦餧餫餱
-0x6860: 餲餳餴餵餹餺餻餼饀é¥é¥†é¥‡é¥ˆé¥é¥Žé¥”é¥˜é¥™é¥›é¥œé¥žé¥Ÿé¥ é¦›é¦é¦Ÿé¦¦é¦°é¦±é¦²é¦µ
-0x6920: 馹馺馽馿駃駉駓駔駙駚駜駞駧駪駫駬駰駴駵駹駽駾騂騃騄騋騌é¨é¨‘騖騞
-0x6940: é¨ é¨¢é¨£é¨¤é¨§é¨é¨®é¨³é¨µé¨¶é¨¸é©‡é©é©„驊驋驌驎驑驔驖é©éªªéª¬éª®éª¯éª²éª´éªµéª¶éª¹éª»
-0x6960: 骾骿é«é«ƒé«†é«ˆé«Žé«é«’é«•é«–é«—é«›é«œé« é«¤é«¥é«§é«©é«¬é«²é«³é«µé«¹é«ºé«½é«¿é¬€é¬é¬‚鬃
-0x6a20: 鬄鬅鬈鬉鬋鬌é¬é¬Žé¬é¬’é¬–é¬™é¬›é¬œé¬ é¬¦é¬«é¬é¬³é¬´é¬µé¬·é¬¹é¬ºé¬½éˆé‹éŒé•é–é—
-0x6a40: é›éžé¡é£é¥é¦é¨éªé«é¬éé®é³éµé·é¸é¹é¿é®€é®„鮅鮆鮇鮉鮊鮋é®é®é®é®”鮚é®
-0x6a60: 鮞鮦鮧鮩鮬鮰鮱鮲鮷鮸鮻鮼鮾鮿é¯é¯‡é¯ˆé¯Žé¯é¯—鯘é¯é¯Ÿé¯¥é¯§é¯ªé¯«é¯¯é¯³é¯·é¯¸
-0x6b20: 鯹鯺鯽鯿鰀鰂鰋é°é°‘鰖鰘鰙鰚鰜鰞鰢鰣鰦鰧鰨鰩鰪鰱鰵鰶鰷鰽é±é±ƒé±„é±…
-0x6b40: 鱉鱊鱎é±é±é±“鱔鱖鱘鱛é±é±žé±Ÿé±£é±©é±ªé±œé±«é±¨é±®é±°é±²é±µé±·é±»é³¦é³²é³·é³¹é´‹é´‚é´‘
-0x6b60: 鴗鴘鴜é´é´žé´¯é´°é´²é´³é´´é´ºé´¼éµ…鴽鵂鵃鵇鵊鵓鵔鵟鵣鵢鵥鵩鵪鵫鵰鵶鵷鵻
-0x6c20: 鵼鵾鶃鶄鶆鶊é¶é¶Žé¶’鶓鶕鶖鶗鶘鶡鶪鶬鶮鶱鶵鶹鶼鶿鷃鷇鷉鷊鷔鷕鷖鷗
-0x6c40: é·šé·žé·Ÿé· é·¥é·§é·©é·«é·®é·°é·³é·´é·¾é¸Šé¸‚é¸‡é¸Žé¸é¸‘鸒鸕鸖鸙鸜é¸é¹ºé¹»é¹¼éº€éº‚麃麄
-0x6c60: 麅麇麎éºéº–麘麛麞麤麨麬麮麯麰麳麴麵黆黈黋黕黟黤黧黬é»é»®é»°é»±é»²é»µ
-0x6d20: 黸黿鼂鼃鼉é¼é¼é¼‘鼒鼔鼖鼗鼙鼚鼛鼟鼢鼦鼪鼫鼯鼱鼲鼴鼷鼹鼺鼼鼽鼿é½
-0x6d40: 齃齄齅齆齇齓齕齖齗齘齚é½é½žé½¨é½©é½é½®é½¯é½°é½±é½³é½µé½ºé½½é¾é¾é¾‘龒龔龖龗龞
-0x6d60: 龡龢龣龥
diff --git a/3.8.8/sources/cpan-Encode/vendor/t/mime-name.t b/3.8.8/sources/cpan-Encode/vendor/t/mime-name.t
deleted file mode 100644
index 02ff490..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/t/mime-name.t
+++ /dev/null
@@ -1,36 +0,0 @@
-#
-# $Id: mime-name.t,v 1.1 2007/05/12 06:42:19 dankogai Exp $
-# This script is written in utf8
-#
-BEGIN {
- if ($ENV{'PERL_CORE'}){
- chdir 't';
- unshift @INC, '../lib';
- }
- require Config; import Config;
- if ($Config{'extensions'} !~ /\bEncode\b/) {
- print "1..0 # Skip: Encode was not built\n";
- exit 0;
- }
- if (ord("A") == 193) {
- print "1..0 # Skip: EBCDIC\n";
- exit 0;
- }
- $| = 1;
-}
-
-use strict;
-use warnings;
-use Encode;
-#use Test::More qw(no_plan);
-use Test::More tests => 68;
-
-use_ok("Encode::MIME::Name");
-for my $canon ( sort keys %Encode::MIME::Name::MIME_NAME_OF ) {
- my $enc = find_encoding($canon);
- my $mime_name = $Encode::MIME::Name::MIME_NAME_OF{$canon};
- is $enc->mime_name, $mime_name,
- qq(\$enc->mime_name("$canon") eq $mime_name);
-}
-
-__END__;
diff --git a/3.8.8/sources/cpan-Encode/vendor/t/perlio.t b/3.8.8/sources/cpan-Encode/vendor/t/perlio.t
deleted file mode 100644
index e50dfa4..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/t/perlio.t
+++ /dev/null
@@ -1,180 +0,0 @@
-BEGIN {
- require Config; import Config;
- if ($Config{'extensions'} !~ /\bEncode\b/) {
- print "1..0 # Skip: Encode was not built\n";
- exit 0;
- }
- if (ord("A") == 193) {
- print "1..0 # Skip: EBCDIC\n";
- exit 0;
- }
- unless (PerlIO::Layer->find('perlio')){
- print "1..0 # Skip: PerlIO required\n";
- exit 0;
- }
- $| = 1;
-}
-
-use strict;
-use File::Basename;
-use File::Spec;
-use File::Compare qw(compare_text);
-use File::Copy;
-use FileHandle;
-
-#use Test::More qw(no_plan);
-use Test::More tests => 38;
-
-our $DEBUG = 0;
-
-use Encode (":all");
-{
- no warnings;
- @ARGV and $DEBUG = shift;
- #require Encode::JP::JIS7;
- #require Encode::KR::2022_KR;
- #$Encode::JP::JIS7::DEBUG = $DEBUG;
-}
-
-my $seq = 0;
-my $dir = dirname(__FILE__);
-
-my %e =
- (
- jisx0208 => [ qw/euc-jp shiftjis 7bit-jis iso-2022-jp iso-2022-jp-1/],
- ksc5601 => [ qw/euc-kr/],
- gb2312 => [ qw/euc-cn hz/],
- );
-
-$/ = "\x0a"; # may fix VMS problem for test #28 and #29
-
-for my $src (sort keys %e) {
- my $ufile = File::Spec->catfile($dir,"$src.utf");
- open my $fh, "<:utf8", $ufile or die "$ufile : $!";
- my @uline = <$fh>;
- my $utext = join('' => @uline);
- close $fh;
-
- for my $e (@{$e{$src}}){
- my $sfile = File::Spec->catfile($dir,"$$.sio");
- my $pfile = File::Spec->catfile($dir,"$$.pio");
-
- # first create a file without perlio
- dump2file($sfile, &encode($e, $utext, 0));
-
- # then create a file via perlio without autoflush
-
- SKIP:{
- skip "$e: !perlio_ok", 4 unless (perlio_ok($e) or $DEBUG);
- no warnings 'uninitialized';
- open $fh, ">:encoding($e)", $pfile or die "$sfile : $!";
- $fh->autoflush(0);
- print $fh $utext;
- close $fh;
- $seq++;
- is(compare_text($sfile, $pfile), 0 => ">:encoding($e)");
- if ($DEBUG){
- copy $sfile, "$sfile.$seq";
- copy $pfile, "$pfile.$seq";
- }
-
- # this time print line by line.
- # works even for ISO-2022 but not ISO-2022-KR
- open $fh, ">:encoding($e)", $pfile or die "$sfile : $!";
- $fh->autoflush(1);
- for my $l (@uline) {
- print $fh $l;
- }
- close $fh;
- $seq++;
- is(compare_text($sfile, $pfile), 0 => ">:encoding($e) by lines");
- if ($DEBUG){
- copy $sfile, "$sfile.$seq";
- copy $pfile, "$pfile.$seq";
- }
- my $dtext;
- open $fh, "<:encoding($e)", $pfile or die "$pfile : $!";
- $fh->autoflush(0);
- $dtext = join('' => <$fh>);
- close $fh;
- $seq++;
- ok($utext eq $dtext, "<:encoding($e)");
- if ($DEBUG){
- dump2file("$sfile.$seq", $utext);
- dump2file("$pfile.$seq", $dtext);
- }
- if (perlio_ok($e) or $DEBUG){
- $dtext = '';
- open $fh, "<:encoding($e)", $pfile or die "$pfile : $!";
- while(defined(my $l = <$fh>)) {
- $dtext .= $l;
- }
- close $fh;
- }
- $seq++;
- ok($utext eq $dtext, "<:encoding($e) by lines");
- if ($DEBUG){
- dump2file("$sfile.$seq", $utext);
- dump2file("$pfile.$seq", $dtext);
- }
- }
- if ( ! $DEBUG ) {
- 1 while unlink ($sfile);
- 1 while unlink ($pfile);
- }
- }
-}
-
-# BOM Test
-
-SKIP:{
- my $pev = PerlIO::encoding->VERSION;
- skip "PerlIO::encoding->VERSION = $pev <= 0.07 ", 6
- unless ($pev >= 0.07 or $DEBUG);
-
- my $file = File::Spec->catfile($dir,"jisx0208.utf");
- open my $fh, "<:utf8", $file or die "$file : $!";
- my $str = join('' => <$fh>);
- close $fh;
- my %bom = (
- 'UTF-16BE' => pack('n', 0xFeFF),
- 'UTF-16LE' => pack('v', 0xFeFF),
- 'UTF-32BE' => pack('N', 0xFeFF),
- 'UTF-32LE' => pack('V', 0xFeFF),
- );
- # reading
- for my $utf (sort keys %bom){
- my $bomed = $bom{$utf} . encode($utf, $str);
- my $sfile = File::Spec->catfile($dir,".${utf}_${seq}_$$");
- dump2file($sfile, $bomed);
- my $utf_nobom = $utf; $utf_nobom =~ s/(LE|BE)$//o;
- # reading
- open $fh, "<:encoding($utf_nobom)", $sfile or die "$sfile : $!";
- my $cmp = join '' => <$fh>;
- close $fh;
- is($str, $cmp, "<:encoding($utf_nobom) eq $utf");
- unlink $sfile; $seq++;
- }
- # writing
- for my $utf_nobom (qw/UTF-16 UTF-32/){
- my $utf = $utf_nobom . 'BE';
- my $sfile = File::Spec->catfile($dir,".${utf_nobom}_${seq}_$$");
- my $bomed = $bom{$utf} . encode($utf, $str);
- open $fh, ">:encoding($utf_nobom)", $sfile or die "$sfile : $!";
- print $fh $str;
- close $fh;
- open my $fh, "<:bytes", $sfile or die "$sfile : $!";
- read $fh, my $cmp, -s $sfile;
- close $fh;
- use bytes ();
- ok($bomed eq $cmp, ">:encoding($utf_nobom) eq $utf");
- unlink $sfile; $seq++;
- }
-}
-sub dump2file{
- no warnings;
- open my $fh, ">", $_[0] or die "$_[0]: $!";
- binmode $fh;
- print $fh $_[1];
- close $fh;
-}
diff --git a/3.8.8/sources/cpan-Encode/vendor/t/utf8strict.t b/3.8.8/sources/cpan-Encode/vendor/t/utf8strict.t
deleted file mode 100644
index 37e7713..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/t/utf8strict.t
+++ /dev/null
@@ -1,89 +0,0 @@
-#!../perl
-our $DEBUG = @ARGV;
-our (%ORD, %SEQ, $NTESTS);
-BEGIN {
- if ($ENV{'PERL_CORE'}){
- chdir 't';
- unshift @INC, '../lib';
- }
- require Config; import Config;
- if ($Config{'extensions'} !~ /\bEncode\b/) {
- print "1..0 # Skip: Encode was not built\n";
- exit 0;
- }
- if ($] <= 5.008 and !$Config{perl_patchlevel}){
- print "1..0 # Skip: Perl 5.8.1 or later required\n";
- exit 0;
- }
- # http://smontagu.damowmow.com/utf8test.html
- %ORD = (
- 0x00000080 => 0, # 2.1.2
- 0x00000800 => 0, # 2.1.3
- 0x00010000 => 0, # 2.1.4
- 0x00200000 => 1, # 2.1.5
- 0x00400000 => 1, # 2.1.6
- 0x0000007F => 0, # 2.2.1 -- unmapped okay
- 0x000007FF => 0, # 2.2.2
- 0x0000FFFF => 1, # 2.2.3
- 0x001FFFFF => 1, # 2.2.4
- 0x03FFFFFF => 1, # 2.2.5
- 0x7FFFFFFF => 1, # 2.2.6
- 0x0000D800 => 1, # 5.1.1
- 0x0000DB7F => 1, # 5.1.2
- 0x0000D880 => 1, # 5.1.3
- 0x0000DBFF => 1, # 5.1.4
- 0x0000DC00 => 1, # 5.1.5
- 0x0000DF80 => 1, # 5.1.6
- 0x0000DFFF => 1, # 5.1.7
- # 5.2 "Paird UTF-16 surrogates skipped
- # because utf-8-strict raises exception at the first one
- 0x0000FFFF => 1, # 5.3.1
- );
- $NTESTS += scalar keys %ORD;
- if (ord('A') == 193) {
- %SEQ = (
- qq/dd 64 73 73/ => 0, # 2.3.1
- qq/dd 67 41 41/ => 0, # 2.3.2
- qq/ee 42 73 73 73/ => 0, # 2.3.3
- qq/f4 90 80 80/ => 1, # 2.3.4 -- out of range so NG
- # "3 Malformed sequences" are checked by perl.
- # "4 Overlong sequences" are checked by perl.
- );
- } else {
- %SEQ = (
- qq/ed 9f bf/ => 0, # 2.3.1
- qq/ee 80 80/ => 0, # 2.3.2
- qq/f4 8f bf bf/ => 0, # 2.3.3
- qq/f4 90 80 80/ => 1, # 2.3.4 -- out of range so NG
- # "3 Malformed sequences" are checked by perl.
- # "4 Overlong sequences" are checked by perl.
- );
- }
- $NTESTS += scalar keys %SEQ;
-}
-use strict;
-use Encode;
-use utf8;
-use Test::More tests => $NTESTS;
-
-local($SIG{__WARN__}) = sub { $DEBUG and $@ and print STDERR $@ };
-
-my $d = find_encoding("utf-8-strict");
-for my $u (sort keys %ORD){
- my $c = chr($u);
- eval { $d->encode($c,1) };
- $DEBUG and $@ and warn $@;
- my $t = $@ ? 1 : 0;
- is($t, $ORD{$u}, sprintf "U+%04X", $u);
-}
-for my $s (sort keys %SEQ){
- my $o = pack "C*" => map {hex} split /\s+/, $s;
- eval { $d->decode($o,1) };
- $DEBUG and $@ and warn $@;
- my $t = $@ ? 1 : 0;
- is($t, $SEQ{$s}, $s);
-}
-
-__END__
-
-
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/8859-1.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/8859-1.ucm
deleted file mode 100644
index 223e566..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/8859-1.ucm
+++ /dev/null
@@ -1,268 +0,0 @@
-#
-# $Id: 8859-1.ucm,v 2.0 2004/05/16 20:55:19 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/ISO8859/8859-1.TXT
-#
-<code_set_name> "iso-8859-1"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3F
-CHARMAP
-<U0000> \x00 |0 # NULL
-<U0001> \x01 |0 # START OF HEADING
-<U0002> \x02 |0 # START OF TEXT
-<U0003> \x03 |0 # END OF TEXT
-<U0004> \x04 |0 # END OF TRANSMISSION
-<U0005> \x05 |0 # ENQUIRY
-<U0006> \x06 |0 # ACKNOWLEDGE
-<U0007> \x07 |0 # BELL
-<U0008> \x08 |0 # BACKSPACE
-<U0009> \x09 |0 # CHARACTER TABULATION
-<U000A> \x0A |0 # LINE FEED (LF)
-<U000B> \x0B |0 # LINE TABULATION
-<U000C> \x0C |0 # FORM FEED (FF)
-<U000D> \x0D |0 # CARRIAGE RETURN (CR)
-<U000E> \x0E |0 # SHIFT OUT
-<U000F> \x0F |0 # SHIFT IN
-<U0010> \x10 |0 # DATA LINK ESCAPE
-<U0011> \x11 |0 # DEVICE CONTROL ONE
-<U0012> \x12 |0 # DEVICE CONTROL TWO
-<U0013> \x13 |0 # DEVICE CONTROL THREE
-<U0014> \x14 |0 # DEVICE CONTROL FOUR
-<U0015> \x15 |0 # NEGATIVE ACKNOWLEDGE
-<U0016> \x16 |0 # SYNCHRONOUS IDLE
-<U0017> \x17 |0 # END OF TRANSMISSION BLOCK
-<U0018> \x18 |0 # CANCEL
-<U0019> \x19 |0 # END OF MEDIUM
-<U001A> \x1A |0 # SUBSTITUTE
-<U001B> \x1B |0 # ESCAPE
-<U001C> \x1C |0 # INFORMATION SEPARATOR FOUR
-<U001D> \x1D |0 # INFORMATION SEPARATOR THREE
-<U001E> \x1E |0 # INFORMATION SEPARATOR TWO
-<U001F> \x1F |0 # INFORMATION SEPARATOR ONE
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002A> \x2A |0 # ASTERISK
-<U002B> \x2B |0 # PLUS SIGN
-<U002C> \x2C |0 # COMMA
-<U002D> \x2D |0 # HYPHEN-MINUS
-<U002E> \x2E |0 # FULL STOP
-<U002F> \x2F |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003A> \x3A |0 # COLON
-<U003B> \x3B |0 # SEMICOLON
-<U003C> \x3C |0 # LESS-THAN SIGN
-<U003D> \x3D |0 # EQUALS SIGN
-<U003E> \x3E |0 # GREATER-THAN SIGN
-<U003F> \x3F |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004A> \x4A |0 # LATIN CAPITAL LETTER J
-<U004B> \x4B |0 # LATIN CAPITAL LETTER K
-<U004C> \x4C |0 # LATIN CAPITAL LETTER L
-<U004D> \x4D |0 # LATIN CAPITAL LETTER M
-<U004E> \x4E |0 # LATIN CAPITAL LETTER N
-<U004F> \x4F |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005A> \x5A |0 # LATIN CAPITAL LETTER Z
-<U005B> \x5B |0 # LEFT SQUARE BRACKET
-<U005C> \x5C |0 # REVERSE SOLIDUS
-<U005D> \x5D |0 # RIGHT SQUARE BRACKET
-<U005E> \x5E |0 # CIRCUMFLEX ACCENT
-<U005F> \x5F |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006A> \x6A |0 # LATIN SMALL LETTER J
-<U006B> \x6B |0 # LATIN SMALL LETTER K
-<U006C> \x6C |0 # LATIN SMALL LETTER L
-<U006D> \x6D |0 # LATIN SMALL LETTER M
-<U006E> \x6E |0 # LATIN SMALL LETTER N
-<U006F> \x6F |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007A> \x7A |0 # LATIN SMALL LETTER Z
-<U007B> \x7B |0 # LEFT CURLY BRACKET
-<U007C> \x7C |0 # VERTICAL LINE
-<U007D> \x7D |0 # RIGHT CURLY BRACKET
-<U007E> \x7E |0 # TILDE
-<U007F> \x7F |0 # DELETE
-<U0080> \x80 |0 # <control>
-<U0081> \x81 |0 # <control>
-<U0082> \x82 |0 # BREAK PERMITTED HERE
-<U0083> \x83 |0 # NO BREAK HERE
-<U0084> \x84 |0 # <control>
-<U0085> \x85 |0 # NEXT LINE (NEL)
-<U0086> \x86 |0 # START OF SELECTED AREA
-<U0087> \x87 |0 # END OF SELECTED AREA
-<U0088> \x88 |0 # CHARACTER TABULATION SET
-<U0089> \x89 |0 # CHARACTER TABULATION WITH JUSTIFICATION
-<U008A> \x8A |0 # LINE TABULATION SET
-<U008B> \x8B |0 # PARTIAL LINE FORWARD
-<U008C> \x8C |0 # PARTIAL LINE BACKWARD
-<U008D> \x8D |0 # REVERSE LINE FEED
-<U008E> \x8E |0 # SINGLE SHIFT TWO
-<U008F> \x8F |0 # SINGLE SHIFT THREE
-<U0090> \x90 |0 # DEVICE CONTROL STRING
-<U0091> \x91 |0 # PRIVATE USE ONE
-<U0092> \x92 |0 # PRIVATE USE TWO
-<U0093> \x93 |0 # SET TRANSMIT STATE
-<U0094> \x94 |0 # CANCEL CHARACTER
-<U0095> \x95 |0 # MESSAGE WAITING
-<U0096> \x96 |0 # START OF GUARDED AREA
-<U0097> \x97 |0 # END OF GUARDED AREA
-<U0098> \x98 |0 # START OF STRING
-<U0099> \x99 |0 # <control>
-<U009A> \x9A |0 # SINGLE CHARACTER INTRODUCER
-<U009B> \x9B |0 # CONTROL SEQUENCE INTRODUCER
-<U009C> \x9C |0 # STRING TERMINATOR
-<U009D> \x9D |0 # OPERATING SYSTEM COMMAND
-<U009E> \x9E |0 # PRIVACY MESSAGE
-<U009F> \x9F |0 # APPLICATION PROGRAM COMMAND
-<U00A0> \xA0 |0 # NO-BREAK SPACE
-<U00A1> \xA1 |0 # INVERTED EXCLAMATION MARK
-<U00A2> \xA2 |0 # CENT SIGN
-<U00A3> \xA3 |0 # POUND SIGN
-<U00A4> \xA4 |0 # CURRENCY SIGN
-<U00A5> \xA5 |0 # YEN SIGN
-<U00A6> \xA6 |0 # BROKEN BAR
-<U00A7> \xA7 |0 # SECTION SIGN
-<U00A8> \xA8 |0 # DIAERESIS
-<U00A9> \xA9 |0 # COPYRIGHT SIGN
-<U00AA> \xAA |0 # FEMININE ORDINAL INDICATOR
-<U00AB> \xAB |0 # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00AC> \xAC |0 # NOT SIGN
-<U00AD> \xAD |0 # SOFT HYPHEN
-<U00AE> \xAE |0 # REGISTERED SIGN
-<U00AF> \xAF |0 # MACRON
-<U00B0> \xB0 |0 # DEGREE SIGN
-<U00B1> \xB1 |0 # PLUS-MINUS SIGN
-<U00B2> \xB2 |0 # SUPERSCRIPT TWO
-<U00B3> \xB3 |0 # SUPERSCRIPT THREE
-<U00B4> \xB4 |0 # ACUTE ACCENT
-<U00B5> \xB5 |0 # MICRO SIGN
-<U00B6> \xB6 |0 # PILCROW SIGN
-<U00B7> \xB7 |0 # MIDDLE DOT
-<U00B8> \xB8 |0 # CEDILLA
-<U00B9> \xB9 |0 # SUPERSCRIPT ONE
-<U00BA> \xBA |0 # MASCULINE ORDINAL INDICATOR
-<U00BB> \xBB |0 # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00BC> \xBC |0 # VULGAR FRACTION ONE QUARTER
-<U00BD> \xBD |0 # VULGAR FRACTION ONE HALF
-<U00BE> \xBE |0 # VULGAR FRACTION THREE QUARTERS
-<U00BF> \xBF |0 # INVERTED QUESTION MARK
-<U00C0> \xC0 |0 # LATIN CAPITAL LETTER A WITH GRAVE
-<U00C1> \xC1 |0 # LATIN CAPITAL LETTER A WITH ACUTE
-<U00C2> \xC2 |0 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
-<U00C3> \xC3 |0 # LATIN CAPITAL LETTER A WITH TILDE
-<U00C4> \xC4 |0 # LATIN CAPITAL LETTER A WITH DIAERESIS
-<U00C5> \xC5 |0 # LATIN CAPITAL LETTER A WITH RING ABOVE
-<U00C6> \xC6 |0 # LATIN CAPITAL LETTER AE
-<U00C7> \xC7 |0 # LATIN CAPITAL LETTER C WITH CEDILLA
-<U00C8> \xC8 |0 # LATIN CAPITAL LETTER E WITH GRAVE
-<U00C9> \xC9 |0 # LATIN CAPITAL LETTER E WITH ACUTE
-<U00CA> \xCA |0 # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
-<U00CB> \xCB |0 # LATIN CAPITAL LETTER E WITH DIAERESIS
-<U00CC> \xCC |0 # LATIN CAPITAL LETTER I WITH GRAVE
-<U00CD> \xCD |0 # LATIN CAPITAL LETTER I WITH ACUTE
-<U00CE> \xCE |0 # LATIN CAPITAL LETTER I WITH CIRCUMFLEX
-<U00CF> \xCF |0 # LATIN CAPITAL LETTER I WITH DIAERESIS
-<U00D0> \xD0 |0 # LATIN CAPITAL LETTER ETH
-<U00D1> \xD1 |0 # LATIN CAPITAL LETTER N WITH TILDE
-<U00D2> \xD2 |0 # LATIN CAPITAL LETTER O WITH GRAVE
-<U00D3> \xD3 |0 # LATIN CAPITAL LETTER O WITH ACUTE
-<U00D4> \xD4 |0 # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
-<U00D5> \xD5 |0 # LATIN CAPITAL LETTER O WITH TILDE
-<U00D6> \xD6 |0 # LATIN CAPITAL LETTER O WITH DIAERESIS
-<U00D7> \xD7 |0 # MULTIPLICATION SIGN
-<U00D8> \xD8 |0 # LATIN CAPITAL LETTER O WITH STROKE
-<U00D9> \xD9 |0 # LATIN CAPITAL LETTER U WITH GRAVE
-<U00DA> \xDA |0 # LATIN CAPITAL LETTER U WITH ACUTE
-<U00DB> \xDB |0 # LATIN CAPITAL LETTER U WITH CIRCUMFLEX
-<U00DC> \xDC |0 # LATIN CAPITAL LETTER U WITH DIAERESIS
-<U00DD> \xDD |0 # LATIN CAPITAL LETTER Y WITH ACUTE
-<U00DE> \xDE |0 # LATIN CAPITAL LETTER THORN
-<U00DF> \xDF |0 # LATIN SMALL LETTER SHARP S
-<U00E0> \xE0 |0 # LATIN SMALL LETTER A WITH GRAVE
-<U00E1> \xE1 |0 # LATIN SMALL LETTER A WITH ACUTE
-<U00E2> \xE2 |0 # LATIN SMALL LETTER A WITH CIRCUMFLEX
-<U00E3> \xE3 |0 # LATIN SMALL LETTER A WITH TILDE
-<U00E4> \xE4 |0 # LATIN SMALL LETTER A WITH DIAERESIS
-<U00E5> \xE5 |0 # LATIN SMALL LETTER A WITH RING ABOVE
-<U00E6> \xE6 |0 # LATIN SMALL LETTER AE
-<U00E7> \xE7 |0 # LATIN SMALL LETTER C WITH CEDILLA
-<U00E8> \xE8 |0 # LATIN SMALL LETTER E WITH GRAVE
-<U00E9> \xE9 |0 # LATIN SMALL LETTER E WITH ACUTE
-<U00EA> \xEA |0 # LATIN SMALL LETTER E WITH CIRCUMFLEX
-<U00EB> \xEB |0 # LATIN SMALL LETTER E WITH DIAERESIS
-<U00EC> \xEC |0 # LATIN SMALL LETTER I WITH GRAVE
-<U00ED> \xED |0 # LATIN SMALL LETTER I WITH ACUTE
-<U00EE> \xEE |0 # LATIN SMALL LETTER I WITH CIRCUMFLEX
-<U00EF> \xEF |0 # LATIN SMALL LETTER I WITH DIAERESIS
-<U00F0> \xF0 |0 # LATIN SMALL LETTER ETH
-<U00F1> \xF1 |0 # LATIN SMALL LETTER N WITH TILDE
-<U00F2> \xF2 |0 # LATIN SMALL LETTER O WITH GRAVE
-<U00F3> \xF3 |0 # LATIN SMALL LETTER O WITH ACUTE
-<U00F4> \xF4 |0 # LATIN SMALL LETTER O WITH CIRCUMFLEX
-<U00F5> \xF5 |0 # LATIN SMALL LETTER O WITH TILDE
-<U00F6> \xF6 |0 # LATIN SMALL LETTER O WITH DIAERESIS
-<U00F7> \xF7 |0 # DIVISION SIGN
-<U00F8> \xF8 |0 # LATIN SMALL LETTER O WITH STROKE
-<U00F9> \xF9 |0 # LATIN SMALL LETTER U WITH GRAVE
-<U00FA> \xFA |0 # LATIN SMALL LETTER U WITH ACUTE
-<U00FB> \xFB |0 # LATIN SMALL LETTER U WITH CIRCUMFLEX
-<U00FC> \xFC |0 # LATIN SMALL LETTER U WITH DIAERESIS
-<U00FD> \xFD |0 # LATIN SMALL LETTER Y WITH ACUTE
-<U00FE> \xFE |0 # LATIN SMALL LETTER THORN
-<U00FF> \xFF |0 # LATIN SMALL LETTER Y WITH DIAERESIS
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/8859-14.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/8859-14.ucm
deleted file mode 100644
index c4a2cba..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/8859-14.ucm
+++ /dev/null
@@ -1,268 +0,0 @@
-#
-# $Id: 8859-14.ucm,v 2.0 2004/05/16 20:55:19 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/ISO8859/8859-14.TXT
-#
-<code_set_name> "iso-8859-14"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3F
-CHARMAP
-<U0000> \x00 |0 # NULL
-<U0001> \x01 |0 # START OF HEADING
-<U0002> \x02 |0 # START OF TEXT
-<U0003> \x03 |0 # END OF TEXT
-<U0004> \x04 |0 # END OF TRANSMISSION
-<U0005> \x05 |0 # ENQUIRY
-<U0006> \x06 |0 # ACKNOWLEDGE
-<U0007> \x07 |0 # BELL
-<U0008> \x08 |0 # BACKSPACE
-<U0009> \x09 |0 # CHARACTER TABULATION
-<U000A> \x0A |0 # LINE FEED (LF)
-<U000B> \x0B |0 # LINE TABULATION
-<U000C> \x0C |0 # FORM FEED (FF)
-<U000D> \x0D |0 # CARRIAGE RETURN (CR)
-<U000E> \x0E |0 # SHIFT OUT
-<U000F> \x0F |0 # SHIFT IN
-<U0010> \x10 |0 # DATA LINK ESCAPE
-<U0011> \x11 |0 # DEVICE CONTROL ONE
-<U0012> \x12 |0 # DEVICE CONTROL TWO
-<U0013> \x13 |0 # DEVICE CONTROL THREE
-<U0014> \x14 |0 # DEVICE CONTROL FOUR
-<U0015> \x15 |0 # NEGATIVE ACKNOWLEDGE
-<U0016> \x16 |0 # SYNCHRONOUS IDLE
-<U0017> \x17 |0 # END OF TRANSMISSION BLOCK
-<U0018> \x18 |0 # CANCEL
-<U0019> \x19 |0 # END OF MEDIUM
-<U001A> \x1A |0 # SUBSTITUTE
-<U001B> \x1B |0 # ESCAPE
-<U001C> \x1C |0 # INFORMATION SEPARATOR FOUR
-<U001D> \x1D |0 # INFORMATION SEPARATOR THREE
-<U001E> \x1E |0 # INFORMATION SEPARATOR TWO
-<U001F> \x1F |0 # INFORMATION SEPARATOR ONE
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002A> \x2A |0 # ASTERISK
-<U002B> \x2B |0 # PLUS SIGN
-<U002C> \x2C |0 # COMMA
-<U002D> \x2D |0 # HYPHEN-MINUS
-<U002E> \x2E |0 # FULL STOP
-<U002F> \x2F |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003A> \x3A |0 # COLON
-<U003B> \x3B |0 # SEMICOLON
-<U003C> \x3C |0 # LESS-THAN SIGN
-<U003D> \x3D |0 # EQUALS SIGN
-<U003E> \x3E |0 # GREATER-THAN SIGN
-<U003F> \x3F |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004A> \x4A |0 # LATIN CAPITAL LETTER J
-<U004B> \x4B |0 # LATIN CAPITAL LETTER K
-<U004C> \x4C |0 # LATIN CAPITAL LETTER L
-<U004D> \x4D |0 # LATIN CAPITAL LETTER M
-<U004E> \x4E |0 # LATIN CAPITAL LETTER N
-<U004F> \x4F |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005A> \x5A |0 # LATIN CAPITAL LETTER Z
-<U005B> \x5B |0 # LEFT SQUARE BRACKET
-<U005C> \x5C |0 # REVERSE SOLIDUS
-<U005D> \x5D |0 # RIGHT SQUARE BRACKET
-<U005E> \x5E |0 # CIRCUMFLEX ACCENT
-<U005F> \x5F |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006A> \x6A |0 # LATIN SMALL LETTER J
-<U006B> \x6B |0 # LATIN SMALL LETTER K
-<U006C> \x6C |0 # LATIN SMALL LETTER L
-<U006D> \x6D |0 # LATIN SMALL LETTER M
-<U006E> \x6E |0 # LATIN SMALL LETTER N
-<U006F> \x6F |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007A> \x7A |0 # LATIN SMALL LETTER Z
-<U007B> \x7B |0 # LEFT CURLY BRACKET
-<U007C> \x7C |0 # VERTICAL LINE
-<U007D> \x7D |0 # RIGHT CURLY BRACKET
-<U007E> \x7E |0 # TILDE
-<U007F> \x7F |0 # DELETE
-<U0080> \x80 |0 # <control>
-<U0081> \x81 |0 # <control>
-<U0082> \x82 |0 # BREAK PERMITTED HERE
-<U0083> \x83 |0 # NO BREAK HERE
-<U0084> \x84 |0 # <control>
-<U0085> \x85 |0 # NEXT LINE (NEL)
-<U0086> \x86 |0 # START OF SELECTED AREA
-<U0087> \x87 |0 # END OF SELECTED AREA
-<U0088> \x88 |0 # CHARACTER TABULATION SET
-<U0089> \x89 |0 # CHARACTER TABULATION WITH JUSTIFICATION
-<U008A> \x8A |0 # LINE TABULATION SET
-<U008B> \x8B |0 # PARTIAL LINE FORWARD
-<U008C> \x8C |0 # PARTIAL LINE BACKWARD
-<U008D> \x8D |0 # REVERSE LINE FEED
-<U008E> \x8E |0 # SINGLE SHIFT TWO
-<U008F> \x8F |0 # SINGLE SHIFT THREE
-<U0090> \x90 |0 # DEVICE CONTROL STRING
-<U0091> \x91 |0 # PRIVATE USE ONE
-<U0092> \x92 |0 # PRIVATE USE TWO
-<U0093> \x93 |0 # SET TRANSMIT STATE
-<U0094> \x94 |0 # CANCEL CHARACTER
-<U0095> \x95 |0 # MESSAGE WAITING
-<U0096> \x96 |0 # START OF GUARDED AREA
-<U0097> \x97 |0 # END OF GUARDED AREA
-<U0098> \x98 |0 # START OF STRING
-<U0099> \x99 |0 # <control>
-<U009A> \x9A |0 # SINGLE CHARACTER INTRODUCER
-<U009B> \x9B |0 # CONTROL SEQUENCE INTRODUCER
-<U009C> \x9C |0 # STRING TERMINATOR
-<U009D> \x9D |0 # OPERATING SYSTEM COMMAND
-<U009E> \x9E |0 # PRIVACY MESSAGE
-<U009F> \x9F |0 # APPLICATION PROGRAM COMMAND
-<U00A0> \xA0 |0 # NO-BREAK SPACE
-<U00A3> \xA3 |0 # POUND SIGN
-<U00A7> \xA7 |0 # SECTION SIGN
-<U00A9> \xA9 |0 # COPYRIGHT SIGN
-<U00AD> \xAD |0 # SOFT HYPHEN
-<U00AE> \xAE |0 # REGISTERED SIGN
-<U00B6> \xB6 |0 # PILCROW SIGN
-<U00C0> \xC0 |0 # LATIN CAPITAL LETTER A WITH GRAVE
-<U00C1> \xC1 |0 # LATIN CAPITAL LETTER A WITH ACUTE
-<U00C2> \xC2 |0 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
-<U00C3> \xC3 |0 # LATIN CAPITAL LETTER A WITH TILDE
-<U00C4> \xC4 |0 # LATIN CAPITAL LETTER A WITH DIAERESIS
-<U00C5> \xC5 |0 # LATIN CAPITAL LETTER A WITH RING ABOVE
-<U00C6> \xC6 |0 # LATIN CAPITAL LETTER AE
-<U00C7> \xC7 |0 # LATIN CAPITAL LETTER C WITH CEDILLA
-<U00C8> \xC8 |0 # LATIN CAPITAL LETTER E WITH GRAVE
-<U00C9> \xC9 |0 # LATIN CAPITAL LETTER E WITH ACUTE
-<U00CA> \xCA |0 # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
-<U00CB> \xCB |0 # LATIN CAPITAL LETTER E WITH DIAERESIS
-<U00CC> \xCC |0 # LATIN CAPITAL LETTER I WITH GRAVE
-<U00CD> \xCD |0 # LATIN CAPITAL LETTER I WITH ACUTE
-<U00CE> \xCE |0 # LATIN CAPITAL LETTER I WITH CIRCUMFLEX
-<U00CF> \xCF |0 # LATIN CAPITAL LETTER I WITH DIAERESIS
-<U00D1> \xD1 |0 # LATIN CAPITAL LETTER N WITH TILDE
-<U00D2> \xD2 |0 # LATIN CAPITAL LETTER O WITH GRAVE
-<U00D3> \xD3 |0 # LATIN CAPITAL LETTER O WITH ACUTE
-<U00D4> \xD4 |0 # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
-<U00D5> \xD5 |0 # LATIN CAPITAL LETTER O WITH TILDE
-<U00D6> \xD6 |0 # LATIN CAPITAL LETTER O WITH DIAERESIS
-<U00D8> \xD8 |0 # LATIN CAPITAL LETTER O WITH STROKE
-<U00D9> \xD9 |0 # LATIN CAPITAL LETTER U WITH GRAVE
-<U00DA> \xDA |0 # LATIN CAPITAL LETTER U WITH ACUTE
-<U00DB> \xDB |0 # LATIN CAPITAL LETTER U WITH CIRCUMFLEX
-<U00DC> \xDC |0 # LATIN CAPITAL LETTER U WITH DIAERESIS
-<U00DD> \xDD |0 # LATIN CAPITAL LETTER Y WITH ACUTE
-<U00DF> \xDF |0 # LATIN SMALL LETTER SHARP S
-<U00E0> \xE0 |0 # LATIN SMALL LETTER A WITH GRAVE
-<U00E1> \xE1 |0 # LATIN SMALL LETTER A WITH ACUTE
-<U00E2> \xE2 |0 # LATIN SMALL LETTER A WITH CIRCUMFLEX
-<U00E3> \xE3 |0 # LATIN SMALL LETTER A WITH TILDE
-<U00E4> \xE4 |0 # LATIN SMALL LETTER A WITH DIAERESIS
-<U00E5> \xE5 |0 # LATIN SMALL LETTER A WITH RING ABOVE
-<U00E6> \xE6 |0 # LATIN SMALL LETTER AE
-<U00E7> \xE7 |0 # LATIN SMALL LETTER C WITH CEDILLA
-<U00E8> \xE8 |0 # LATIN SMALL LETTER E WITH GRAVE
-<U00E9> \xE9 |0 # LATIN SMALL LETTER E WITH ACUTE
-<U00EA> \xEA |0 # LATIN SMALL LETTER E WITH CIRCUMFLEX
-<U00EB> \xEB |0 # LATIN SMALL LETTER E WITH DIAERESIS
-<U00EC> \xEC |0 # LATIN SMALL LETTER I WITH GRAVE
-<U00ED> \xED |0 # LATIN SMALL LETTER I WITH ACUTE
-<U00EE> \xEE |0 # LATIN SMALL LETTER I WITH CIRCUMFLEX
-<U00EF> \xEF |0 # LATIN SMALL LETTER I WITH DIAERESIS
-<U00F1> \xF1 |0 # LATIN SMALL LETTER N WITH TILDE
-<U00F2> \xF2 |0 # LATIN SMALL LETTER O WITH GRAVE
-<U00F3> \xF3 |0 # LATIN SMALL LETTER O WITH ACUTE
-<U00F4> \xF4 |0 # LATIN SMALL LETTER O WITH CIRCUMFLEX
-<U00F5> \xF5 |0 # LATIN SMALL LETTER O WITH TILDE
-<U00F6> \xF6 |0 # LATIN SMALL LETTER O WITH DIAERESIS
-<U00F8> \xF8 |0 # LATIN SMALL LETTER O WITH STROKE
-<U00F9> \xF9 |0 # LATIN SMALL LETTER U WITH GRAVE
-<U00FA> \xFA |0 # LATIN SMALL LETTER U WITH ACUTE
-<U00FB> \xFB |0 # LATIN SMALL LETTER U WITH CIRCUMFLEX
-<U00FC> \xFC |0 # LATIN SMALL LETTER U WITH DIAERESIS
-<U00FD> \xFD |0 # LATIN SMALL LETTER Y WITH ACUTE
-<U00FF> \xFF |0 # LATIN SMALL LETTER Y WITH DIAERESIS
-<U010A> \xA4 |0 # LATIN CAPITAL LETTER C WITH DOT ABOVE
-<U010B> \xA5 |0 # LATIN SMALL LETTER C WITH DOT ABOVE
-<U0120> \xB2 |0 # LATIN CAPITAL LETTER G WITH DOT ABOVE
-<U0121> \xB3 |0 # LATIN SMALL LETTER G WITH DOT ABOVE
-<U0174> \xD0 |0 # LATIN CAPITAL LETTER W WITH CIRCUMFLEX
-<U0175> \xF0 |0 # LATIN SMALL LETTER W WITH CIRCUMFLEX
-<U0176> \xDE |0 # LATIN CAPITAL LETTER Y WITH CIRCUMFLEX
-<U0177> \xFE |0 # LATIN SMALL LETTER Y WITH CIRCUMFLEX
-<U0178> \xAF |0 # LATIN CAPITAL LETTER Y WITH DIAERESIS
-<U1E02> \xA1 |0 # LATIN CAPITAL LETTER B WITH DOT ABOVE
-<U1E03> \xA2 |0 # LATIN SMALL LETTER B WITH DOT ABOVE
-<U1E0A> \xA6 |0 # LATIN CAPITAL LETTER D WITH DOT ABOVE
-<U1E0B> \xAB |0 # LATIN SMALL LETTER D WITH DOT ABOVE
-<U1E1E> \xB0 |0 # LATIN CAPITAL LETTER F WITH DOT ABOVE
-<U1E1F> \xB1 |0 # LATIN SMALL LETTER F WITH DOT ABOVE
-<U1E40> \xB4 |0 # LATIN CAPITAL LETTER M WITH DOT ABOVE
-<U1E41> \xB5 |0 # LATIN SMALL LETTER M WITH DOT ABOVE
-<U1E56> \xB7 |0 # LATIN CAPITAL LETTER P WITH DOT ABOVE
-<U1E57> \xB9 |0 # LATIN SMALL LETTER P WITH DOT ABOVE
-<U1E60> \xBB |0 # LATIN CAPITAL LETTER S WITH DOT ABOVE
-<U1E61> \xBF |0 # LATIN SMALL LETTER S WITH DOT ABOVE
-<U1E6A> \xD7 |0 # LATIN CAPITAL LETTER T WITH DOT ABOVE
-<U1E6B> \xF7 |0 # LATIN SMALL LETTER T WITH DOT ABOVE
-<U1E80> \xA8 |0 # LATIN CAPITAL LETTER W WITH GRAVE
-<U1E81> \xB8 |0 # LATIN SMALL LETTER W WITH GRAVE
-<U1E82> \xAA |0 # LATIN CAPITAL LETTER W WITH ACUTE
-<U1E83> \xBA |0 # LATIN SMALL LETTER W WITH ACUTE
-<U1E84> \xBD |0 # LATIN CAPITAL LETTER W WITH DIAERESIS
-<U1E85> \xBE |0 # LATIN SMALL LETTER W WITH DIAERESIS
-<U1EF2> \xAC |0 # LATIN CAPITAL LETTER Y WITH GRAVE
-<U1EF3> \xBC |0 # LATIN SMALL LETTER Y WITH GRAVE
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/8859-2.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/8859-2.ucm
deleted file mode 100644
index fe61819..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/8859-2.ucm
+++ /dev/null
@@ -1,268 +0,0 @@
-#
-# $Id: 8859-2.ucm,v 2.0 2004/05/16 20:55:19 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/ISO8859/8859-2.TXT
-#
-<code_set_name> "iso-8859-2"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3F
-CHARMAP
-<U0000> \x00 |0 # NULL
-<U0001> \x01 |0 # START OF HEADING
-<U0002> \x02 |0 # START OF TEXT
-<U0003> \x03 |0 # END OF TEXT
-<U0004> \x04 |0 # END OF TRANSMISSION
-<U0005> \x05 |0 # ENQUIRY
-<U0006> \x06 |0 # ACKNOWLEDGE
-<U0007> \x07 |0 # BELL
-<U0008> \x08 |0 # BACKSPACE
-<U0009> \x09 |0 # CHARACTER TABULATION
-<U000A> \x0A |0 # LINE FEED (LF)
-<U000B> \x0B |0 # LINE TABULATION
-<U000C> \x0C |0 # FORM FEED (FF)
-<U000D> \x0D |0 # CARRIAGE RETURN (CR)
-<U000E> \x0E |0 # SHIFT OUT
-<U000F> \x0F |0 # SHIFT IN
-<U0010> \x10 |0 # DATA LINK ESCAPE
-<U0011> \x11 |0 # DEVICE CONTROL ONE
-<U0012> \x12 |0 # DEVICE CONTROL TWO
-<U0013> \x13 |0 # DEVICE CONTROL THREE
-<U0014> \x14 |0 # DEVICE CONTROL FOUR
-<U0015> \x15 |0 # NEGATIVE ACKNOWLEDGE
-<U0016> \x16 |0 # SYNCHRONOUS IDLE
-<U0017> \x17 |0 # END OF TRANSMISSION BLOCK
-<U0018> \x18 |0 # CANCEL
-<U0019> \x19 |0 # END OF MEDIUM
-<U001A> \x1A |0 # SUBSTITUTE
-<U001B> \x1B |0 # ESCAPE
-<U001C> \x1C |0 # INFORMATION SEPARATOR FOUR
-<U001D> \x1D |0 # INFORMATION SEPARATOR THREE
-<U001E> \x1E |0 # INFORMATION SEPARATOR TWO
-<U001F> \x1F |0 # INFORMATION SEPARATOR ONE
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002A> \x2A |0 # ASTERISK
-<U002B> \x2B |0 # PLUS SIGN
-<U002C> \x2C |0 # COMMA
-<U002D> \x2D |0 # HYPHEN-MINUS
-<U002E> \x2E |0 # FULL STOP
-<U002F> \x2F |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003A> \x3A |0 # COLON
-<U003B> \x3B |0 # SEMICOLON
-<U003C> \x3C |0 # LESS-THAN SIGN
-<U003D> \x3D |0 # EQUALS SIGN
-<U003E> \x3E |0 # GREATER-THAN SIGN
-<U003F> \x3F |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004A> \x4A |0 # LATIN CAPITAL LETTER J
-<U004B> \x4B |0 # LATIN CAPITAL LETTER K
-<U004C> \x4C |0 # LATIN CAPITAL LETTER L
-<U004D> \x4D |0 # LATIN CAPITAL LETTER M
-<U004E> \x4E |0 # LATIN CAPITAL LETTER N
-<U004F> \x4F |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005A> \x5A |0 # LATIN CAPITAL LETTER Z
-<U005B> \x5B |0 # LEFT SQUARE BRACKET
-<U005C> \x5C |0 # REVERSE SOLIDUS
-<U005D> \x5D |0 # RIGHT SQUARE BRACKET
-<U005E> \x5E |0 # CIRCUMFLEX ACCENT
-<U005F> \x5F |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006A> \x6A |0 # LATIN SMALL LETTER J
-<U006B> \x6B |0 # LATIN SMALL LETTER K
-<U006C> \x6C |0 # LATIN SMALL LETTER L
-<U006D> \x6D |0 # LATIN SMALL LETTER M
-<U006E> \x6E |0 # LATIN SMALL LETTER N
-<U006F> \x6F |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007A> \x7A |0 # LATIN SMALL LETTER Z
-<U007B> \x7B |0 # LEFT CURLY BRACKET
-<U007C> \x7C |0 # VERTICAL LINE
-<U007D> \x7D |0 # RIGHT CURLY BRACKET
-<U007E> \x7E |0 # TILDE
-<U007F> \x7F |0 # DELETE
-<U0080> \x80 |0 # <control>
-<U0081> \x81 |0 # <control>
-<U0082> \x82 |0 # BREAK PERMITTED HERE
-<U0083> \x83 |0 # NO BREAK HERE
-<U0084> \x84 |0 # <control>
-<U0085> \x85 |0 # NEXT LINE (NEL)
-<U0086> \x86 |0 # START OF SELECTED AREA
-<U0087> \x87 |0 # END OF SELECTED AREA
-<U0088> \x88 |0 # CHARACTER TABULATION SET
-<U0089> \x89 |0 # CHARACTER TABULATION WITH JUSTIFICATION
-<U008A> \x8A |0 # LINE TABULATION SET
-<U008B> \x8B |0 # PARTIAL LINE FORWARD
-<U008C> \x8C |0 # PARTIAL LINE BACKWARD
-<U008D> \x8D |0 # REVERSE LINE FEED
-<U008E> \x8E |0 # SINGLE SHIFT TWO
-<U008F> \x8F |0 # SINGLE SHIFT THREE
-<U0090> \x90 |0 # DEVICE CONTROL STRING
-<U0091> \x91 |0 # PRIVATE USE ONE
-<U0092> \x92 |0 # PRIVATE USE TWO
-<U0093> \x93 |0 # SET TRANSMIT STATE
-<U0094> \x94 |0 # CANCEL CHARACTER
-<U0095> \x95 |0 # MESSAGE WAITING
-<U0096> \x96 |0 # START OF GUARDED AREA
-<U0097> \x97 |0 # END OF GUARDED AREA
-<U0098> \x98 |0 # START OF STRING
-<U0099> \x99 |0 # <control>
-<U009A> \x9A |0 # SINGLE CHARACTER INTRODUCER
-<U009B> \x9B |0 # CONTROL SEQUENCE INTRODUCER
-<U009C> \x9C |0 # STRING TERMINATOR
-<U009D> \x9D |0 # OPERATING SYSTEM COMMAND
-<U009E> \x9E |0 # PRIVACY MESSAGE
-<U009F> \x9F |0 # APPLICATION PROGRAM COMMAND
-<U00A0> \xA0 |0 # NO-BREAK SPACE
-<U00A4> \xA4 |0 # CURRENCY SIGN
-<U00A7> \xA7 |0 # SECTION SIGN
-<U00A8> \xA8 |0 # DIAERESIS
-<U00AD> \xAD |0 # SOFT HYPHEN
-<U00B0> \xB0 |0 # DEGREE SIGN
-<U00B4> \xB4 |0 # ACUTE ACCENT
-<U00B8> \xB8 |0 # CEDILLA
-<U00C1> \xC1 |0 # LATIN CAPITAL LETTER A WITH ACUTE
-<U00C2> \xC2 |0 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
-<U00C4> \xC4 |0 # LATIN CAPITAL LETTER A WITH DIAERESIS
-<U00C7> \xC7 |0 # LATIN CAPITAL LETTER C WITH CEDILLA
-<U00C9> \xC9 |0 # LATIN CAPITAL LETTER E WITH ACUTE
-<U00CB> \xCB |0 # LATIN CAPITAL LETTER E WITH DIAERESIS
-<U00CD> \xCD |0 # LATIN CAPITAL LETTER I WITH ACUTE
-<U00CE> \xCE |0 # LATIN CAPITAL LETTER I WITH CIRCUMFLEX
-<U00D3> \xD3 |0 # LATIN CAPITAL LETTER O WITH ACUTE
-<U00D4> \xD4 |0 # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
-<U00D6> \xD6 |0 # LATIN CAPITAL LETTER O WITH DIAERESIS
-<U00D7> \xD7 |0 # MULTIPLICATION SIGN
-<U00DA> \xDA |0 # LATIN CAPITAL LETTER U WITH ACUTE
-<U00DC> \xDC |0 # LATIN CAPITAL LETTER U WITH DIAERESIS
-<U00DD> \xDD |0 # LATIN CAPITAL LETTER Y WITH ACUTE
-<U00DF> \xDF |0 # LATIN SMALL LETTER SHARP S
-<U00E1> \xE1 |0 # LATIN SMALL LETTER A WITH ACUTE
-<U00E2> \xE2 |0 # LATIN SMALL LETTER A WITH CIRCUMFLEX
-<U00E4> \xE4 |0 # LATIN SMALL LETTER A WITH DIAERESIS
-<U00E7> \xE7 |0 # LATIN SMALL LETTER C WITH CEDILLA
-<U00E9> \xE9 |0 # LATIN SMALL LETTER E WITH ACUTE
-<U00EB> \xEB |0 # LATIN SMALL LETTER E WITH DIAERESIS
-<U00ED> \xED |0 # LATIN SMALL LETTER I WITH ACUTE
-<U00EE> \xEE |0 # LATIN SMALL LETTER I WITH CIRCUMFLEX
-<U00F3> \xF3 |0 # LATIN SMALL LETTER O WITH ACUTE
-<U00F4> \xF4 |0 # LATIN SMALL LETTER O WITH CIRCUMFLEX
-<U00F6> \xF6 |0 # LATIN SMALL LETTER O WITH DIAERESIS
-<U00F7> \xF7 |0 # DIVISION SIGN
-<U00FA> \xFA |0 # LATIN SMALL LETTER U WITH ACUTE
-<U00FC> \xFC |0 # LATIN SMALL LETTER U WITH DIAERESIS
-<U00FD> \xFD |0 # LATIN SMALL LETTER Y WITH ACUTE
-<U0102> \xC3 |0 # LATIN CAPITAL LETTER A WITH BREVE
-<U0103> \xE3 |0 # LATIN SMALL LETTER A WITH BREVE
-<U0104> \xA1 |0 # LATIN CAPITAL LETTER A WITH OGONEK
-<U0105> \xB1 |0 # LATIN SMALL LETTER A WITH OGONEK
-<U0106> \xC6 |0 # LATIN CAPITAL LETTER C WITH ACUTE
-<U0107> \xE6 |0 # LATIN SMALL LETTER C WITH ACUTE
-<U010C> \xC8 |0 # LATIN CAPITAL LETTER C WITH CARON
-<U010D> \xE8 |0 # LATIN SMALL LETTER C WITH CARON
-<U010E> \xCF |0 # LATIN CAPITAL LETTER D WITH CARON
-<U010F> \xEF |0 # LATIN SMALL LETTER D WITH CARON
-<U0110> \xD0 |0 # LATIN CAPITAL LETTER D WITH STROKE
-<U0111> \xF0 |0 # LATIN SMALL LETTER D WITH STROKE
-<U0118> \xCA |0 # LATIN CAPITAL LETTER E WITH OGONEK
-<U0119> \xEA |0 # LATIN SMALL LETTER E WITH OGONEK
-<U011A> \xCC |0 # LATIN CAPITAL LETTER E WITH CARON
-<U011B> \xEC |0 # LATIN SMALL LETTER E WITH CARON
-<U0139> \xC5 |0 # LATIN CAPITAL LETTER L WITH ACUTE
-<U013A> \xE5 |0 # LATIN SMALL LETTER L WITH ACUTE
-<U013D> \xA5 |0 # LATIN CAPITAL LETTER L WITH CARON
-<U013E> \xB5 |0 # LATIN SMALL LETTER L WITH CARON
-<U0141> \xA3 |0 # LATIN CAPITAL LETTER L WITH STROKE
-<U0142> \xB3 |0 # LATIN SMALL LETTER L WITH STROKE
-<U0143> \xD1 |0 # LATIN CAPITAL LETTER N WITH ACUTE
-<U0144> \xF1 |0 # LATIN SMALL LETTER N WITH ACUTE
-<U0147> \xD2 |0 # LATIN CAPITAL LETTER N WITH CARON
-<U0148> \xF2 |0 # LATIN SMALL LETTER N WITH CARON
-<U0150> \xD5 |0 # LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
-<U0151> \xF5 |0 # LATIN SMALL LETTER O WITH DOUBLE ACUTE
-<U0154> \xC0 |0 # LATIN CAPITAL LETTER R WITH ACUTE
-<U0155> \xE0 |0 # LATIN SMALL LETTER R WITH ACUTE
-<U0158> \xD8 |0 # LATIN CAPITAL LETTER R WITH CARON
-<U0159> \xF8 |0 # LATIN SMALL LETTER R WITH CARON
-<U015A> \xA6 |0 # LATIN CAPITAL LETTER S WITH ACUTE
-<U015B> \xB6 |0 # LATIN SMALL LETTER S WITH ACUTE
-<U015E> \xAA |0 # LATIN CAPITAL LETTER S WITH CEDILLA
-<U015F> \xBA |0 # LATIN SMALL LETTER S WITH CEDILLA
-<U0160> \xA9 |0 # LATIN CAPITAL LETTER S WITH CARON
-<U0161> \xB9 |0 # LATIN SMALL LETTER S WITH CARON
-<U0162> \xDE |0 # LATIN CAPITAL LETTER T WITH CEDILLA
-<U0163> \xFE |0 # LATIN SMALL LETTER T WITH CEDILLA
-<U0164> \xAB |0 # LATIN CAPITAL LETTER T WITH CARON
-<U0165> \xBB |0 # LATIN SMALL LETTER T WITH CARON
-<U016E> \xD9 |0 # LATIN CAPITAL LETTER U WITH RING ABOVE
-<U016F> \xF9 |0 # LATIN SMALL LETTER U WITH RING ABOVE
-<U0170> \xDB |0 # LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
-<U0171> \xFB |0 # LATIN SMALL LETTER U WITH DOUBLE ACUTE
-<U0179> \xAC |0 # LATIN CAPITAL LETTER Z WITH ACUTE
-<U017A> \xBC |0 # LATIN SMALL LETTER Z WITH ACUTE
-<U017B> \xAF |0 # LATIN CAPITAL LETTER Z WITH DOT ABOVE
-<U017C> \xBF |0 # LATIN SMALL LETTER Z WITH DOT ABOVE
-<U017D> \xAE |0 # LATIN CAPITAL LETTER Z WITH CARON
-<U017E> \xBE |0 # LATIN SMALL LETTER Z WITH CARON
-<U02C7> \xB7 |0 # CARON
-<U02D8> \xA2 |0 # BREVE
-<U02D9> \xFF |0 # DOT ABOVE
-<U02DB> \xB2 |0 # OGONEK
-<U02DD> \xBD |0 # DOUBLE ACUTE ACCENT
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/8859-6.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/8859-6.ucm
deleted file mode 100644
index 20bc82f..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/8859-6.ucm
+++ /dev/null
@@ -1,223 +0,0 @@
-#
-# $Id: 8859-6.ucm,v 2.0 2004/05/16 20:55:19 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/ISO8859/8859-6.TXT
-#
-<code_set_name> "iso-8859-6"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3F
-CHARMAP
-<U0000> \x00 |0 # NULL
-<U0001> \x01 |0 # START OF HEADING
-<U0002> \x02 |0 # START OF TEXT
-<U0003> \x03 |0 # END OF TEXT
-<U0004> \x04 |0 # END OF TRANSMISSION
-<U0005> \x05 |0 # ENQUIRY
-<U0006> \x06 |0 # ACKNOWLEDGE
-<U0007> \x07 |0 # BELL
-<U0008> \x08 |0 # BACKSPACE
-<U0009> \x09 |0 # CHARACTER TABULATION
-<U000A> \x0A |0 # LINE FEED (LF)
-<U000B> \x0B |0 # LINE TABULATION
-<U000C> \x0C |0 # FORM FEED (FF)
-<U000D> \x0D |0 # CARRIAGE RETURN (CR)
-<U000E> \x0E |0 # SHIFT OUT
-<U000F> \x0F |0 # SHIFT IN
-<U0010> \x10 |0 # DATA LINK ESCAPE
-<U0011> \x11 |0 # DEVICE CONTROL ONE
-<U0012> \x12 |0 # DEVICE CONTROL TWO
-<U0013> \x13 |0 # DEVICE CONTROL THREE
-<U0014> \x14 |0 # DEVICE CONTROL FOUR
-<U0015> \x15 |0 # NEGATIVE ACKNOWLEDGE
-<U0016> \x16 |0 # SYNCHRONOUS IDLE
-<U0017> \x17 |0 # END OF TRANSMISSION BLOCK
-<U0018> \x18 |0 # CANCEL
-<U0019> \x19 |0 # END OF MEDIUM
-<U001A> \x1A |0 # SUBSTITUTE
-<U001B> \x1B |0 # ESCAPE
-<U001C> \x1C |0 # INFORMATION SEPARATOR FOUR
-<U001D> \x1D |0 # INFORMATION SEPARATOR THREE
-<U001E> \x1E |0 # INFORMATION SEPARATOR TWO
-<U001F> \x1F |0 # INFORMATION SEPARATOR ONE
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002A> \x2A |0 # ASTERISK
-<U002B> \x2B |0 # PLUS SIGN
-<U002C> \x2C |0 # COMMA
-<U002D> \x2D |0 # HYPHEN-MINUS
-<U002E> \x2E |0 # FULL STOP
-<U002F> \x2F |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003A> \x3A |0 # COLON
-<U003B> \x3B |0 # SEMICOLON
-<U003C> \x3C |0 # LESS-THAN SIGN
-<U003D> \x3D |0 # EQUALS SIGN
-<U003E> \x3E |0 # GREATER-THAN SIGN
-<U003F> \x3F |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004A> \x4A |0 # LATIN CAPITAL LETTER J
-<U004B> \x4B |0 # LATIN CAPITAL LETTER K
-<U004C> \x4C |0 # LATIN CAPITAL LETTER L
-<U004D> \x4D |0 # LATIN CAPITAL LETTER M
-<U004E> \x4E |0 # LATIN CAPITAL LETTER N
-<U004F> \x4F |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005A> \x5A |0 # LATIN CAPITAL LETTER Z
-<U005B> \x5B |0 # LEFT SQUARE BRACKET
-<U005C> \x5C |0 # REVERSE SOLIDUS
-<U005D> \x5D |0 # RIGHT SQUARE BRACKET
-<U005E> \x5E |0 # CIRCUMFLEX ACCENT
-<U005F> \x5F |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006A> \x6A |0 # LATIN SMALL LETTER J
-<U006B> \x6B |0 # LATIN SMALL LETTER K
-<U006C> \x6C |0 # LATIN SMALL LETTER L
-<U006D> \x6D |0 # LATIN SMALL LETTER M
-<U006E> \x6E |0 # LATIN SMALL LETTER N
-<U006F> \x6F |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007A> \x7A |0 # LATIN SMALL LETTER Z
-<U007B> \x7B |0 # LEFT CURLY BRACKET
-<U007C> \x7C |0 # VERTICAL LINE
-<U007D> \x7D |0 # RIGHT CURLY BRACKET
-<U007E> \x7E |0 # TILDE
-<U007F> \x7F |0 # DELETE
-<U0080> \x80 |0 # <control>
-<U0081> \x81 |0 # <control>
-<U0082> \x82 |0 # BREAK PERMITTED HERE
-<U0083> \x83 |0 # NO BREAK HERE
-<U0084> \x84 |0 # <control>
-<U0085> \x85 |0 # NEXT LINE (NEL)
-<U0086> \x86 |0 # START OF SELECTED AREA
-<U0087> \x87 |0 # END OF SELECTED AREA
-<U0088> \x88 |0 # CHARACTER TABULATION SET
-<U0089> \x89 |0 # CHARACTER TABULATION WITH JUSTIFICATION
-<U008A> \x8A |0 # LINE TABULATION SET
-<U008B> \x8B |0 # PARTIAL LINE FORWARD
-<U008C> \x8C |0 # PARTIAL LINE BACKWARD
-<U008D> \x8D |0 # REVERSE LINE FEED
-<U008E> \x8E |0 # SINGLE SHIFT TWO
-<U008F> \x8F |0 # SINGLE SHIFT THREE
-<U0090> \x90 |0 # DEVICE CONTROL STRING
-<U0091> \x91 |0 # PRIVATE USE ONE
-<U0092> \x92 |0 # PRIVATE USE TWO
-<U0093> \x93 |0 # SET TRANSMIT STATE
-<U0094> \x94 |0 # CANCEL CHARACTER
-<U0095> \x95 |0 # MESSAGE WAITING
-<U0096> \x96 |0 # START OF GUARDED AREA
-<U0097> \x97 |0 # END OF GUARDED AREA
-<U0098> \x98 |0 # START OF STRING
-<U0099> \x99 |0 # <control>
-<U009A> \x9A |0 # SINGLE CHARACTER INTRODUCER
-<U009B> \x9B |0 # CONTROL SEQUENCE INTRODUCER
-<U009C> \x9C |0 # STRING TERMINATOR
-<U009D> \x9D |0 # OPERATING SYSTEM COMMAND
-<U009E> \x9E |0 # PRIVACY MESSAGE
-<U009F> \x9F |0 # APPLICATION PROGRAM COMMAND
-<U00A0> \xA0 |0 # NO-BREAK SPACE
-<U00A4> \xA4 |0 # CURRENCY SIGN
-<U00AD> \xAD |0 # SOFT HYPHEN
-<U060C> \xAC |0 # ARABIC COMMA
-<U061B> \xBB |0 # ARABIC SEMICOLON
-<U061F> \xBF |0 # ARABIC QUESTION MARK
-<U0621> \xC1 |0 # ARABIC LETTER HAMZA
-<U0622> \xC2 |0 # ARABIC LETTER ALEF WITH MADDA ABOVE
-<U0623> \xC3 |0 # ARABIC LETTER ALEF WITH HAMZA ABOVE
-<U0624> \xC4 |0 # ARABIC LETTER WAW WITH HAMZA ABOVE
-<U0625> \xC5 |0 # ARABIC LETTER ALEF WITH HAMZA BELOW
-<U0626> \xC6 |0 # ARABIC LETTER YEH WITH HAMZA ABOVE
-<U0627> \xC7 |0 # ARABIC LETTER ALEF
-<U0628> \xC8 |0 # ARABIC LETTER BEH
-<U0629> \xC9 |0 # ARABIC LETTER TEH MARBUTA
-<U062A> \xCA |0 # ARABIC LETTER TEH
-<U062B> \xCB |0 # ARABIC LETTER THEH
-<U062C> \xCC |0 # ARABIC LETTER JEEM
-<U062D> \xCD |0 # ARABIC LETTER HAH
-<U062E> \xCE |0 # ARABIC LETTER KHAH
-<U062F> \xCF |0 # ARABIC LETTER DAL
-<U0630> \xD0 |0 # ARABIC LETTER THAL
-<U0631> \xD1 |0 # ARABIC LETTER REH
-<U0632> \xD2 |0 # ARABIC LETTER ZAIN
-<U0633> \xD3 |0 # ARABIC LETTER SEEN
-<U0634> \xD4 |0 # ARABIC LETTER SHEEN
-<U0635> \xD5 |0 # ARABIC LETTER SAD
-<U0636> \xD6 |0 # ARABIC LETTER DAD
-<U0637> \xD7 |0 # ARABIC LETTER TAH
-<U0638> \xD8 |0 # ARABIC LETTER ZAH
-<U0639> \xD9 |0 # ARABIC LETTER AIN
-<U063A> \xDA |0 # ARABIC LETTER GHAIN
-<U0640> \xE0 |0 # ARABIC TATWEEL
-<U0641> \xE1 |0 # ARABIC LETTER FEH
-<U0642> \xE2 |0 # ARABIC LETTER QAF
-<U0643> \xE3 |0 # ARABIC LETTER KAF
-<U0644> \xE4 |0 # ARABIC LETTER LAM
-<U0645> \xE5 |0 # ARABIC LETTER MEEM
-<U0646> \xE6 |0 # ARABIC LETTER NOON
-<U0647> \xE7 |0 # ARABIC LETTER HEH
-<U0648> \xE8 |0 # ARABIC LETTER WAW
-<U0649> \xE9 |0 # ARABIC LETTER ALEF MAKSURA
-<U064A> \xEA |0 # ARABIC LETTER YEH
-<U064B> \xEB |0 # ARABIC FATHATAN
-<U064C> \xEC |0 # ARABIC DAMMATAN
-<U064D> \xED |0 # ARABIC KASRATAN
-<U064E> \xEE |0 # ARABIC FATHA
-<U064F> \xEF |0 # ARABIC DAMMA
-<U0650> \xF0 |0 # ARABIC KASRA
-<U0651> \xF1 |0 # ARABIC SHADDA
-<U0652> \xF2 |0 # ARABIC SUKUN
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/8859-8.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/8859-8.ucm
deleted file mode 100644
index 7572102..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/8859-8.ucm
+++ /dev/null
@@ -1,232 +0,0 @@
-#
-# $Id: 8859-8.ucm,v 2.0 2004/05/16 20:55:19 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/ISO8859/8859-8.TXT
-#
-<code_set_name> "iso-8859-8"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3F
-CHARMAP
-<U0000> \x00 |0 # NULL
-<U0001> \x01 |0 # START OF HEADING
-<U0002> \x02 |0 # START OF TEXT
-<U0003> \x03 |0 # END OF TEXT
-<U0004> \x04 |0 # END OF TRANSMISSION
-<U0005> \x05 |0 # ENQUIRY
-<U0006> \x06 |0 # ACKNOWLEDGE
-<U0007> \x07 |0 # BELL
-<U0008> \x08 |0 # BACKSPACE
-<U0009> \x09 |0 # CHARACTER TABULATION
-<U000A> \x0A |0 # LINE FEED (LF)
-<U000B> \x0B |0 # LINE TABULATION
-<U000C> \x0C |0 # FORM FEED (FF)
-<U000D> \x0D |0 # CARRIAGE RETURN (CR)
-<U000E> \x0E |0 # SHIFT OUT
-<U000F> \x0F |0 # SHIFT IN
-<U0010> \x10 |0 # DATA LINK ESCAPE
-<U0011> \x11 |0 # DEVICE CONTROL ONE
-<U0012> \x12 |0 # DEVICE CONTROL TWO
-<U0013> \x13 |0 # DEVICE CONTROL THREE
-<U0014> \x14 |0 # DEVICE CONTROL FOUR
-<U0015> \x15 |0 # NEGATIVE ACKNOWLEDGE
-<U0016> \x16 |0 # SYNCHRONOUS IDLE
-<U0017> \x17 |0 # END OF TRANSMISSION BLOCK
-<U0018> \x18 |0 # CANCEL
-<U0019> \x19 |0 # END OF MEDIUM
-<U001A> \x1A |0 # SUBSTITUTE
-<U001B> \x1B |0 # ESCAPE
-<U001C> \x1C |0 # INFORMATION SEPARATOR FOUR
-<U001D> \x1D |0 # INFORMATION SEPARATOR THREE
-<U001E> \x1E |0 # INFORMATION SEPARATOR TWO
-<U001F> \x1F |0 # INFORMATION SEPARATOR ONE
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002A> \x2A |0 # ASTERISK
-<U002B> \x2B |0 # PLUS SIGN
-<U002C> \x2C |0 # COMMA
-<U002D> \x2D |0 # HYPHEN-MINUS
-<U002E> \x2E |0 # FULL STOP
-<U002F> \x2F |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003A> \x3A |0 # COLON
-<U003B> \x3B |0 # SEMICOLON
-<U003C> \x3C |0 # LESS-THAN SIGN
-<U003D> \x3D |0 # EQUALS SIGN
-<U003E> \x3E |0 # GREATER-THAN SIGN
-<U003F> \x3F |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004A> \x4A |0 # LATIN CAPITAL LETTER J
-<U004B> \x4B |0 # LATIN CAPITAL LETTER K
-<U004C> \x4C |0 # LATIN CAPITAL LETTER L
-<U004D> \x4D |0 # LATIN CAPITAL LETTER M
-<U004E> \x4E |0 # LATIN CAPITAL LETTER N
-<U004F> \x4F |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005A> \x5A |0 # LATIN CAPITAL LETTER Z
-<U005B> \x5B |0 # LEFT SQUARE BRACKET
-<U005C> \x5C |0 # REVERSE SOLIDUS
-<U005D> \x5D |0 # RIGHT SQUARE BRACKET
-<U005E> \x5E |0 # CIRCUMFLEX ACCENT
-<U005F> \x5F |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006A> \x6A |0 # LATIN SMALL LETTER J
-<U006B> \x6B |0 # LATIN SMALL LETTER K
-<U006C> \x6C |0 # LATIN SMALL LETTER L
-<U006D> \x6D |0 # LATIN SMALL LETTER M
-<U006E> \x6E |0 # LATIN SMALL LETTER N
-<U006F> \x6F |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007A> \x7A |0 # LATIN SMALL LETTER Z
-<U007B> \x7B |0 # LEFT CURLY BRACKET
-<U007C> \x7C |0 # VERTICAL LINE
-<U007D> \x7D |0 # RIGHT CURLY BRACKET
-<U007E> \x7E |0 # TILDE
-<U007F> \x7F |0 # DELETE
-<U0080> \x80 |0 # <control>
-<U0081> \x81 |0 # <control>
-<U0082> \x82 |0 # BREAK PERMITTED HERE
-<U0083> \x83 |0 # NO BREAK HERE
-<U0084> \x84 |0 # <control>
-<U0085> \x85 |0 # NEXT LINE (NEL)
-<U0086> \x86 |0 # START OF SELECTED AREA
-<U0087> \x87 |0 # END OF SELECTED AREA
-<U0088> \x88 |0 # CHARACTER TABULATION SET
-<U0089> \x89 |0 # CHARACTER TABULATION WITH JUSTIFICATION
-<U008A> \x8A |0 # LINE TABULATION SET
-<U008B> \x8B |0 # PARTIAL LINE FORWARD
-<U008C> \x8C |0 # PARTIAL LINE BACKWARD
-<U008D> \x8D |0 # REVERSE LINE FEED
-<U008E> \x8E |0 # SINGLE SHIFT TWO
-<U008F> \x8F |0 # SINGLE SHIFT THREE
-<U0090> \x90 |0 # DEVICE CONTROL STRING
-<U0091> \x91 |0 # PRIVATE USE ONE
-<U0092> \x92 |0 # PRIVATE USE TWO
-<U0093> \x93 |0 # SET TRANSMIT STATE
-<U0094> \x94 |0 # CANCEL CHARACTER
-<U0095> \x95 |0 # MESSAGE WAITING
-<U0096> \x96 |0 # START OF GUARDED AREA
-<U0097> \x97 |0 # END OF GUARDED AREA
-<U0098> \x98 |0 # START OF STRING
-<U0099> \x99 |0 # <control>
-<U009A> \x9A |0 # SINGLE CHARACTER INTRODUCER
-<U009B> \x9B |0 # CONTROL SEQUENCE INTRODUCER
-<U009C> \x9C |0 # STRING TERMINATOR
-<U009D> \x9D |0 # OPERATING SYSTEM COMMAND
-<U009E> \x9E |0 # PRIVACY MESSAGE
-<U009F> \x9F |0 # APPLICATION PROGRAM COMMAND
-<U00A0> \xA0 |0 # NO-BREAK SPACE
-<U00A2> \xA2 |0 # CENT SIGN
-<U00A3> \xA3 |0 # POUND SIGN
-<U00A4> \xA4 |0 # CURRENCY SIGN
-<U00A5> \xA5 |0 # YEN SIGN
-<U00A6> \xA6 |0 # BROKEN BAR
-<U00A7> \xA7 |0 # SECTION SIGN
-<U00A8> \xA8 |0 # DIAERESIS
-<U00A9> \xA9 |0 # COPYRIGHT SIGN
-<U00AB> \xAB |0 # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00AC> \xAC |0 # NOT SIGN
-<U00AD> \xAD |0 # SOFT HYPHEN
-<U00AE> \xAE |0 # REGISTERED SIGN
-<U00AF> \xAF |0 # MACRON
-<U00B0> \xB0 |0 # DEGREE SIGN
-<U00B1> \xB1 |0 # PLUS-MINUS SIGN
-<U00B2> \xB2 |0 # SUPERSCRIPT TWO
-<U00B3> \xB3 |0 # SUPERSCRIPT THREE
-<U00B4> \xB4 |0 # ACUTE ACCENT
-<U00B5> \xB5 |0 # MICRO SIGN
-<U00B6> \xB6 |0 # PILCROW SIGN
-<U00B7> \xB7 |0 # MIDDLE DOT
-<U00B8> \xB8 |0 # CEDILLA
-<U00B9> \xB9 |0 # SUPERSCRIPT ONE
-<U00BB> \xBB |0 # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00BC> \xBC |0 # VULGAR FRACTION ONE QUARTER
-<U00BD> \xBD |0 # VULGAR FRACTION ONE HALF
-<U00BE> \xBE |0 # VULGAR FRACTION THREE QUARTERS
-<U00D7> \xAA |0 # MULTIPLICATION SIGN
-<U00F7> \xBA |0 # DIVISION SIGN
-<U05D0> \xE0 |0 # HEBREW LETTER ALEF
-<U05D1> \xE1 |0 # HEBREW LETTER BET
-<U05D2> \xE2 |0 # HEBREW LETTER GIMEL
-<U05D3> \xE3 |0 # HEBREW LETTER DALET
-<U05D4> \xE4 |0 # HEBREW LETTER HE
-<U05D5> \xE5 |0 # HEBREW LETTER VAV
-<U05D6> \xE6 |0 # HEBREW LETTER ZAYIN
-<U05D7> \xE7 |0 # HEBREW LETTER HET
-<U05D8> \xE8 |0 # HEBREW LETTER TET
-<U05D9> \xE9 |0 # HEBREW LETTER YOD
-<U05DA> \xEA |0 # HEBREW LETTER FINAL KAF
-<U05DB> \xEB |0 # HEBREW LETTER KAF
-<U05DC> \xEC |0 # HEBREW LETTER LAMED
-<U05DD> \xED |0 # HEBREW LETTER FINAL MEM
-<U05DE> \xEE |0 # HEBREW LETTER MEM
-<U05DF> \xEF |0 # HEBREW LETTER FINAL NUN
-<U05E0> \xF0 |0 # HEBREW LETTER NUN
-<U05E1> \xF1 |0 # HEBREW LETTER SAMEKH
-<U05E2> \xF2 |0 # HEBREW LETTER AYIN
-<U05E3> \xF3 |0 # HEBREW LETTER FINAL PE
-<U05E4> \xF4 |0 # HEBREW LETTER PE
-<U05E5> \xF5 |0 # HEBREW LETTER FINAL TSADI
-<U05E6> \xF6 |0 # HEBREW LETTER TSADI
-<U05E7> \xF7 |0 # HEBREW LETTER QOF
-<U05E8> \xF8 |0 # HEBREW LETTER RESH
-<U05E9> \xF9 |0 # HEBREW LETTER SHIN
-<U05EA> \xFA |0 # HEBREW LETTER TAV
-<U200E> \xFD |0 # LEFT-TO-RIGHT MARK
-<U200F> \xFE |0 # RIGHT-TO-LEFT MARK
-<U2017> \xDF |0 # DOUBLE LOW LINE
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/8859-9.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/8859-9.ucm
deleted file mode 100644
index 02022eb..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/8859-9.ucm
+++ /dev/null
@@ -1,268 +0,0 @@
-#
-# $Id: 8859-9.ucm,v 2.0 2004/05/16 20:55:19 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/ISO8859/8859-9.TXT
-#
-<code_set_name> "iso-8859-9"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3F
-CHARMAP
-<U0000> \x00 |0 # NULL
-<U0001> \x01 |0 # START OF HEADING
-<U0002> \x02 |0 # START OF TEXT
-<U0003> \x03 |0 # END OF TEXT
-<U0004> \x04 |0 # END OF TRANSMISSION
-<U0005> \x05 |0 # ENQUIRY
-<U0006> \x06 |0 # ACKNOWLEDGE
-<U0007> \x07 |0 # BELL
-<U0008> \x08 |0 # BACKSPACE
-<U0009> \x09 |0 # CHARACTER TABULATION
-<U000A> \x0A |0 # LINE FEED (LF)
-<U000B> \x0B |0 # LINE TABULATION
-<U000C> \x0C |0 # FORM FEED (FF)
-<U000D> \x0D |0 # CARRIAGE RETURN (CR)
-<U000E> \x0E |0 # SHIFT OUT
-<U000F> \x0F |0 # SHIFT IN
-<U0010> \x10 |0 # DATA LINK ESCAPE
-<U0011> \x11 |0 # DEVICE CONTROL ONE
-<U0012> \x12 |0 # DEVICE CONTROL TWO
-<U0013> \x13 |0 # DEVICE CONTROL THREE
-<U0014> \x14 |0 # DEVICE CONTROL FOUR
-<U0015> \x15 |0 # NEGATIVE ACKNOWLEDGE
-<U0016> \x16 |0 # SYNCHRONOUS IDLE
-<U0017> \x17 |0 # END OF TRANSMISSION BLOCK
-<U0018> \x18 |0 # CANCEL
-<U0019> \x19 |0 # END OF MEDIUM
-<U001A> \x1A |0 # SUBSTITUTE
-<U001B> \x1B |0 # ESCAPE
-<U001C> \x1C |0 # INFORMATION SEPARATOR FOUR
-<U001D> \x1D |0 # INFORMATION SEPARATOR THREE
-<U001E> \x1E |0 # INFORMATION SEPARATOR TWO
-<U001F> \x1F |0 # INFORMATION SEPARATOR ONE
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002A> \x2A |0 # ASTERISK
-<U002B> \x2B |0 # PLUS SIGN
-<U002C> \x2C |0 # COMMA
-<U002D> \x2D |0 # HYPHEN-MINUS
-<U002E> \x2E |0 # FULL STOP
-<U002F> \x2F |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003A> \x3A |0 # COLON
-<U003B> \x3B |0 # SEMICOLON
-<U003C> \x3C |0 # LESS-THAN SIGN
-<U003D> \x3D |0 # EQUALS SIGN
-<U003E> \x3E |0 # GREATER-THAN SIGN
-<U003F> \x3F |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004A> \x4A |0 # LATIN CAPITAL LETTER J
-<U004B> \x4B |0 # LATIN CAPITAL LETTER K
-<U004C> \x4C |0 # LATIN CAPITAL LETTER L
-<U004D> \x4D |0 # LATIN CAPITAL LETTER M
-<U004E> \x4E |0 # LATIN CAPITAL LETTER N
-<U004F> \x4F |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005A> \x5A |0 # LATIN CAPITAL LETTER Z
-<U005B> \x5B |0 # LEFT SQUARE BRACKET
-<U005C> \x5C |0 # REVERSE SOLIDUS
-<U005D> \x5D |0 # RIGHT SQUARE BRACKET
-<U005E> \x5E |0 # CIRCUMFLEX ACCENT
-<U005F> \x5F |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006A> \x6A |0 # LATIN SMALL LETTER J
-<U006B> \x6B |0 # LATIN SMALL LETTER K
-<U006C> \x6C |0 # LATIN SMALL LETTER L
-<U006D> \x6D |0 # LATIN SMALL LETTER M
-<U006E> \x6E |0 # LATIN SMALL LETTER N
-<U006F> \x6F |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007A> \x7A |0 # LATIN SMALL LETTER Z
-<U007B> \x7B |0 # LEFT CURLY BRACKET
-<U007C> \x7C |0 # VERTICAL LINE
-<U007D> \x7D |0 # RIGHT CURLY BRACKET
-<U007E> \x7E |0 # TILDE
-<U007F> \x7F |0 # DELETE
-<U0080> \x80 |0 # <control>
-<U0081> \x81 |0 # <control>
-<U0082> \x82 |0 # BREAK PERMITTED HERE
-<U0083> \x83 |0 # NO BREAK HERE
-<U0084> \x84 |0 # <control>
-<U0085> \x85 |0 # NEXT LINE (NEL)
-<U0086> \x86 |0 # START OF SELECTED AREA
-<U0087> \x87 |0 # END OF SELECTED AREA
-<U0088> \x88 |0 # CHARACTER TABULATION SET
-<U0089> \x89 |0 # CHARACTER TABULATION WITH JUSTIFICATION
-<U008A> \x8A |0 # LINE TABULATION SET
-<U008B> \x8B |0 # PARTIAL LINE FORWARD
-<U008C> \x8C |0 # PARTIAL LINE BACKWARD
-<U008D> \x8D |0 # REVERSE LINE FEED
-<U008E> \x8E |0 # SINGLE SHIFT TWO
-<U008F> \x8F |0 # SINGLE SHIFT THREE
-<U0090> \x90 |0 # DEVICE CONTROL STRING
-<U0091> \x91 |0 # PRIVATE USE ONE
-<U0092> \x92 |0 # PRIVATE USE TWO
-<U0093> \x93 |0 # SET TRANSMIT STATE
-<U0094> \x94 |0 # CANCEL CHARACTER
-<U0095> \x95 |0 # MESSAGE WAITING
-<U0096> \x96 |0 # START OF GUARDED AREA
-<U0097> \x97 |0 # END OF GUARDED AREA
-<U0098> \x98 |0 # START OF STRING
-<U0099> \x99 |0 # <control>
-<U009A> \x9A |0 # SINGLE CHARACTER INTRODUCER
-<U009B> \x9B |0 # CONTROL SEQUENCE INTRODUCER
-<U009C> \x9C |0 # STRING TERMINATOR
-<U009D> \x9D |0 # OPERATING SYSTEM COMMAND
-<U009E> \x9E |0 # PRIVACY MESSAGE
-<U009F> \x9F |0 # APPLICATION PROGRAM COMMAND
-<U00A0> \xA0 |0 # NO-BREAK SPACE
-<U00A1> \xA1 |0 # INVERTED EXCLAMATION MARK
-<U00A2> \xA2 |0 # CENT SIGN
-<U00A3> \xA3 |0 # POUND SIGN
-<U00A4> \xA4 |0 # CURRENCY SIGN
-<U00A5> \xA5 |0 # YEN SIGN
-<U00A6> \xA6 |0 # BROKEN BAR
-<U00A7> \xA7 |0 # SECTION SIGN
-<U00A8> \xA8 |0 # DIAERESIS
-<U00A9> \xA9 |0 # COPYRIGHT SIGN
-<U00AA> \xAA |0 # FEMININE ORDINAL INDICATOR
-<U00AB> \xAB |0 # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00AC> \xAC |0 # NOT SIGN
-<U00AD> \xAD |0 # SOFT HYPHEN
-<U00AE> \xAE |0 # REGISTERED SIGN
-<U00AF> \xAF |0 # MACRON
-<U00B0> \xB0 |0 # DEGREE SIGN
-<U00B1> \xB1 |0 # PLUS-MINUS SIGN
-<U00B2> \xB2 |0 # SUPERSCRIPT TWO
-<U00B3> \xB3 |0 # SUPERSCRIPT THREE
-<U00B4> \xB4 |0 # ACUTE ACCENT
-<U00B5> \xB5 |0 # MICRO SIGN
-<U00B6> \xB6 |0 # PILCROW SIGN
-<U00B7> \xB7 |0 # MIDDLE DOT
-<U00B8> \xB8 |0 # CEDILLA
-<U00B9> \xB9 |0 # SUPERSCRIPT ONE
-<U00BA> \xBA |0 # MASCULINE ORDINAL INDICATOR
-<U00BB> \xBB |0 # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00BC> \xBC |0 # VULGAR FRACTION ONE QUARTER
-<U00BD> \xBD |0 # VULGAR FRACTION ONE HALF
-<U00BE> \xBE |0 # VULGAR FRACTION THREE QUARTERS
-<U00BF> \xBF |0 # INVERTED QUESTION MARK
-<U00C0> \xC0 |0 # LATIN CAPITAL LETTER A WITH GRAVE
-<U00C1> \xC1 |0 # LATIN CAPITAL LETTER A WITH ACUTE
-<U00C2> \xC2 |0 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
-<U00C3> \xC3 |0 # LATIN CAPITAL LETTER A WITH TILDE
-<U00C4> \xC4 |0 # LATIN CAPITAL LETTER A WITH DIAERESIS
-<U00C5> \xC5 |0 # LATIN CAPITAL LETTER A WITH RING ABOVE
-<U00C6> \xC6 |0 # LATIN CAPITAL LETTER AE
-<U00C7> \xC7 |0 # LATIN CAPITAL LETTER C WITH CEDILLA
-<U00C8> \xC8 |0 # LATIN CAPITAL LETTER E WITH GRAVE
-<U00C9> \xC9 |0 # LATIN CAPITAL LETTER E WITH ACUTE
-<U00CA> \xCA |0 # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
-<U00CB> \xCB |0 # LATIN CAPITAL LETTER E WITH DIAERESIS
-<U00CC> \xCC |0 # LATIN CAPITAL LETTER I WITH GRAVE
-<U00CD> \xCD |0 # LATIN CAPITAL LETTER I WITH ACUTE
-<U00CE> \xCE |0 # LATIN CAPITAL LETTER I WITH CIRCUMFLEX
-<U00CF> \xCF |0 # LATIN CAPITAL LETTER I WITH DIAERESIS
-<U00D1> \xD1 |0 # LATIN CAPITAL LETTER N WITH TILDE
-<U00D2> \xD2 |0 # LATIN CAPITAL LETTER O WITH GRAVE
-<U00D3> \xD3 |0 # LATIN CAPITAL LETTER O WITH ACUTE
-<U00D4> \xD4 |0 # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
-<U00D5> \xD5 |0 # LATIN CAPITAL LETTER O WITH TILDE
-<U00D6> \xD6 |0 # LATIN CAPITAL LETTER O WITH DIAERESIS
-<U00D7> \xD7 |0 # MULTIPLICATION SIGN
-<U00D8> \xD8 |0 # LATIN CAPITAL LETTER O WITH STROKE
-<U00D9> \xD9 |0 # LATIN CAPITAL LETTER U WITH GRAVE
-<U00DA> \xDA |0 # LATIN CAPITAL LETTER U WITH ACUTE
-<U00DB> \xDB |0 # LATIN CAPITAL LETTER U WITH CIRCUMFLEX
-<U00DC> \xDC |0 # LATIN CAPITAL LETTER U WITH DIAERESIS
-<U00DF> \xDF |0 # LATIN SMALL LETTER SHARP S
-<U00E0> \xE0 |0 # LATIN SMALL LETTER A WITH GRAVE
-<U00E1> \xE1 |0 # LATIN SMALL LETTER A WITH ACUTE
-<U00E2> \xE2 |0 # LATIN SMALL LETTER A WITH CIRCUMFLEX
-<U00E3> \xE3 |0 # LATIN SMALL LETTER A WITH TILDE
-<U00E4> \xE4 |0 # LATIN SMALL LETTER A WITH DIAERESIS
-<U00E5> \xE5 |0 # LATIN SMALL LETTER A WITH RING ABOVE
-<U00E6> \xE6 |0 # LATIN SMALL LETTER AE
-<U00E7> \xE7 |0 # LATIN SMALL LETTER C WITH CEDILLA
-<U00E8> \xE8 |0 # LATIN SMALL LETTER E WITH GRAVE
-<U00E9> \xE9 |0 # LATIN SMALL LETTER E WITH ACUTE
-<U00EA> \xEA |0 # LATIN SMALL LETTER E WITH CIRCUMFLEX
-<U00EB> \xEB |0 # LATIN SMALL LETTER E WITH DIAERESIS
-<U00EC> \xEC |0 # LATIN SMALL LETTER I WITH GRAVE
-<U00ED> \xED |0 # LATIN SMALL LETTER I WITH ACUTE
-<U00EE> \xEE |0 # LATIN SMALL LETTER I WITH CIRCUMFLEX
-<U00EF> \xEF |0 # LATIN SMALL LETTER I WITH DIAERESIS
-<U00F1> \xF1 |0 # LATIN SMALL LETTER N WITH TILDE
-<U00F2> \xF2 |0 # LATIN SMALL LETTER O WITH GRAVE
-<U00F3> \xF3 |0 # LATIN SMALL LETTER O WITH ACUTE
-<U00F4> \xF4 |0 # LATIN SMALL LETTER O WITH CIRCUMFLEX
-<U00F5> \xF5 |0 # LATIN SMALL LETTER O WITH TILDE
-<U00F6> \xF6 |0 # LATIN SMALL LETTER O WITH DIAERESIS
-<U00F7> \xF7 |0 # DIVISION SIGN
-<U00F8> \xF8 |0 # LATIN SMALL LETTER O WITH STROKE
-<U00F9> \xF9 |0 # LATIN SMALL LETTER U WITH GRAVE
-<U00FA> \xFA |0 # LATIN SMALL LETTER U WITH ACUTE
-<U00FB> \xFB |0 # LATIN SMALL LETTER U WITH CIRCUMFLEX
-<U00FC> \xFC |0 # LATIN SMALL LETTER U WITH DIAERESIS
-<U00FF> \xFF |0 # LATIN SMALL LETTER Y WITH DIAERESIS
-<U011E> \xD0 |0 # LATIN CAPITAL LETTER G WITH BREVE
-<U011F> \xF0 |0 # LATIN SMALL LETTER G WITH BREVE
-<U0130> \xDD |0 # LATIN CAPITAL LETTER I WITH DOT ABOVE
-<U0131> \xFD |0 # LATIN SMALL LETTER DOTLESS I
-<U015E> \xDE |0 # LATIN CAPITAL LETTER S WITH CEDILLA
-<U015F> \xFE |0 # LATIN SMALL LETTER S WITH CEDILLA
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/ascii.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/ascii.ucm
deleted file mode 100644
index a1914c4..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/ascii.ucm
+++ /dev/null
@@ -1,139 +0,0 @@
-#
-# $Id: ascii.ucm,v 2.0 2004/05/16 20:55:19 dankogai Exp $
-#
-<code_set_name> "ascii"
-<code_set_alias> "US-ascii"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3F
-#
-CHARMAP
-<U0000> \x00 |0 # <control>
-<U0001> \x01 |0 # <control>
-<U0002> \x02 |0 # <control>
-<U0003> \x03 |0 # <control>
-<U0004> \x04 |0 # <control>
-<U0005> \x05 |0 # <control>
-<U0006> \x06 |0 # <control>
-<U0007> \x07 |0 # <control>
-<U0008> \x08 |0 # <control>
-<U0009> \x09 |0 # <control>
-<U000A> \x0A |0 # <control>
-<U000B> \x0B |0 # <control>
-<U000C> \x0C |0 # <control>
-<U000D> \x0D |0 # <control>
-<U000E> \x0E |0 # <control>
-<U000F> \x0F |0 # <control>
-<U0010> \x10 |0 # <control>
-<U0011> \x11 |0 # <control>
-<U0012> \x12 |0 # <control>
-<U0013> \x13 |0 # <control>
-<U0014> \x14 |0 # <control>
-<U0015> \x15 |0 # <control>
-<U0016> \x16 |0 # <control>
-<U0017> \x17 |0 # <control>
-<U0018> \x18 |0 # <control>
-<U0019> \x19 |0 # <control>
-<U001A> \x1A |0 # <control>
-<U001B> \x1B |0 # <control>
-<U001C> \x1C |0 # <control>
-<U001D> \x1D |0 # <control>
-<U001E> \x1E |0 # <control>
-<U001F> \x1F |0 # <control>
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002A> \x2A |0 # ASTERISK
-<U002B> \x2B |0 # PLUS SIGN
-<U002C> \x2C |0 # COMMA
-<U002D> \x2D |0 # HYPHEN-MINUS
-<U002E> \x2E |0 # FULL STOP
-<U002F> \x2F |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003A> \x3A |0 # COLON
-<U003B> \x3B |0 # SEMICOLON
-<U003C> \x3C |0 # LESS-THAN SIGN
-<U003D> \x3D |0 # EQUALS SIGN
-<U003E> \x3E |0 # GREATER-THAN SIGN
-<U003F> \x3F |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004A> \x4A |0 # LATIN CAPITAL LETTER J
-<U004B> \x4B |0 # LATIN CAPITAL LETTER K
-<U004C> \x4C |0 # LATIN CAPITAL LETTER L
-<U004D> \x4D |0 # LATIN CAPITAL LETTER M
-<U004E> \x4E |0 # LATIN CAPITAL LETTER N
-<U004F> \x4F |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005A> \x5A |0 # LATIN CAPITAL LETTER Z
-<U005B> \x5B |0 # LEFT SQUARE BRACKET
-<U005C> \x5C |0 # REVERSE SOLIDUS
-<U005D> \x5D |0 # RIGHT SQUARE BRACKET
-<U005E> \x5E |0 # CIRCUMFLEX ACCENT
-<U005F> \x5F |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006A> \x6A |0 # LATIN SMALL LETTER J
-<U006B> \x6B |0 # LATIN SMALL LETTER K
-<U006C> \x6C |0 # LATIN SMALL LETTER L
-<U006D> \x6D |0 # LATIN SMALL LETTER M
-<U006E> \x6E |0 # LATIN SMALL LETTER N
-<U006F> \x6F |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007A> \x7A |0 # LATIN SMALL LETTER Z
-<U007B> \x7B |0 # LEFT CURLY BRACKET
-<U007C> \x7C |0 # VERTICAL LINE
-<U007D> \x7D |0 # RIGHT CURLY BRACKET
-<U007E> \x7E |0 # TILDE
-<U007F> \x7F |0 # <control>
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/big5-eten.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/big5-eten.ucm
deleted file mode 100644
index db17574..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/big5-eten.ucm
+++ /dev/null
@@ -1,14047 +0,0 @@
-#
-# $Id: big5-eten.ucm,v 2.0 2004/05/16 20:55:19 dankogai Exp $
-#
-# ./compile -n big5-eten -o Encode/big5-eten.ucm Encode/big5-eten.enc
-<code_set_name> "big5-eten"
-<mb_cur_min> 1
-<mb_cur_max> 2
-<subchar> \x3F
-#
-CHARMAP
-<U0000> \x00 |0 # NULL
-<U0001> \x01 |0 # START OF HEADING
-<U0002> \x02 |0 # START OF TEXT
-<U0003> \x03 |0 # END OF TEXT
-<U0004> \x04 |0 # END OF TRANSMISSION
-<U0005> \x05 |0 # ENQUIRY
-<U0006> \x06 |0 # ACKNOWLEDGE
-<U0007> \x07 |0 # BELL
-<U0008> \x08 |0 # BACKSPACE
-<U0009> \x09 |0 # HORIZONTAL TABULATION
-<U000A> \x0A |0 # LINE FEED
-<U000B> \x0B |0 # VERTICAL TABULATION
-<U000C> \x0C |0 # FORM FEED
-<U000D> \x0D |0 # CARRIAGE RETURN
-<U000E> \x0E |0 # SHIFT OUT
-<U000F> \x0F |0 # SHIFT IN
-<U0010> \x10 |0 # DATA LINK ESCAPE
-<U0011> \x11 |0 # DEVICE CONTROL ONE
-<U0012> \x12 |0 # DEVICE CONTROL TWO
-<U0013> \x13 |0 # DEVICE CONTROL THREE
-<U0014> \x14 |0 # DEVICE CONTROL FOUR
-<U0015> \x15 |0 # NEGATIVE ACKNOWLEDGE
-<U0016> \x16 |0 # SYNCHRONOUS IDLE
-<U0017> \x17 |0 # END OF TRANSMISSION BLOCK
-<U0018> \x18 |0 # CANCEL
-<U0019> \x19 |0 # END OF MEDIUM
-<U001A> \x1A |0 # SUBSTITUTE
-<U001B> \x1B |0 # ESCAPE
-<U001C> \x1C |0 # FILE SEPARATOR
-<U001D> \x1D |0 # GROUP SEPARATOR
-<U001E> \x1E |0 # RECORD SEPARATOR
-<U001F> \x1F |0 # UNIT SEPARATOR
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002A> \x2A |0 # ASTERISK
-<U002B> \x2B |0 # PLUS SIGN
-<U002C> \x2C |0 # COMMA
-<U002D> \x2D |0 # HYPHEN-MINUS
-<U002E> \x2E |0 # FULL STOP
-<U002F> \x2F |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003A> \x3A |0 # COLON
-<U003B> \x3B |0 # SEMICOLON
-<U003C> \x3C |0 # LESS-THAN SIGN
-<U003D> \x3D |0 # EQUALS SIGN
-<U003E> \x3E |0 # GREATER-THAN SIGN
-<U003F> \x3F |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004A> \x4A |0 # LATIN CAPITAL LETTER J
-<U004B> \x4B |0 # LATIN CAPITAL LETTER K
-<U004C> \x4C |0 # LATIN CAPITAL LETTER L
-<U004D> \x4D |0 # LATIN CAPITAL LETTER M
-<U004E> \x4E |0 # LATIN CAPITAL LETTER N
-<U004F> \x4F |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005A> \x5A |0 # LATIN CAPITAL LETTER Z
-<U005B> \x5B |0 # LEFT SQUARE BRACKET
-<U005C> \x5C |0 # REVERSE SOLIDUS
-<U005D> \x5D |0 # RIGHT SQUARE BRACKET
-<U005E> \x5E |0 # CIRCUMFLEX ACCENT
-<U005F> \x5F |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006A> \x6A |0 # LATIN SMALL LETTER J
-<U006B> \x6B |0 # LATIN SMALL LETTER K
-<U006C> \x6C |0 # LATIN SMALL LETTER L
-<U006D> \x6D |0 # LATIN SMALL LETTER M
-<U006E> \x6E |0 # LATIN SMALL LETTER N
-<U006F> \x6F |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007A> \x7A |0 # LATIN SMALL LETTER Z
-<U007B> \x7B |0 # LEFT CURLY BRACKET
-<U007C> \x7C |0 # VERTICAL LINE
-<U007D> \x7D |0 # RIGHT CURLY BRACKET
-<U007E> \x7E |0 # TILDE
-<U007F> \x7F |0 # DELETE
-<U00A7> \xA1\xB1 |0
-<U00A8> \xC6\xD8 |0
-<U00AF> \xA1\xC2 |0
-<U00B0> \xA2\x58 |0
-<U00B1> \xA1\xD3 |0
-<U00B7> \xA1\x50 |0
-<U00D7> \xA1\xD1 |0
-<U00F7> \xA1\xD2 |0
-<U00F8> \xC8\xFB |0
-<U014B> \xC8\xFC |0
-<U0153> \xC8\xFA |0
-<U0250> \xC8\xF6 |0
-<U0254> \xC8\xF8 |0
-<U025B> \xC8\xF7 |0
-<U026A> \xC8\xFE |0
-<U0275> \xC8\xF9 |0
-<U0283> \xC8\xF5 |0
-<U028A> \xC8\xFD |0
-<U02C6> \xC6\xD9 |0
-<U02C7> \xA3\xBE |0
-<U02C9> \xA3\xBC |0
-<U02CA> \xA3\xBD |0
-<U02CB> \xA3\xBF |0
-<U02CD> \xA1\xC5 |0
-<U02D9> \xA3\xBB |0
-<U0391> \xA3\x44 |0
-<U0392> \xA3\x45 |0
-<U0393> \xA3\x46 |0
-<U0394> \xA3\x47 |0
-<U0395> \xA3\x48 |0
-<U0396> \xA3\x49 |0
-<U0397> \xA3\x4A |0
-<U0398> \xA3\x4B |0
-<U0399> \xA3\x4C |0
-<U039A> \xA3\x4D |0
-<U039B> \xA3\x4E |0
-<U039C> \xA3\x4F |0
-<U039D> \xA3\x50 |0
-<U039E> \xA3\x51 |0
-<U039F> \xA3\x52 |0
-<U03A0> \xA3\x53 |0
-<U03A1> \xA3\x54 |0
-<U03A3> \xA3\x55 |0
-<U03A4> \xA3\x56 |0
-<U03A5> \xA3\x57 |0
-<U03A6> \xA3\x58 |0
-<U03A7> \xA3\x59 |0
-<U03A8> \xA3\x5A |0
-<U03A9> \xA3\x5B |0
-<U03B1> \xA3\x5C |0
-<U03B2> \xA3\x5D |0
-<U03B3> \xA3\x5E |0
-<U03B4> \xA3\x5F |0
-<U03B5> \xA3\x60 |0
-<U03B6> \xA3\x61 |0
-<U03B7> \xA3\x62 |0
-<U03B8> \xA3\x63 |0
-<U03B9> \xA3\x64 |0
-<U03BA> \xA3\x65 |0
-<U03BB> \xA3\x66 |0
-<U03BC> \xA3\x67 |0
-<U03BD> \xA3\x68 |0
-<U03BE> \xA3\x69 |0
-<U03BF> \xA3\x6A |0
-<U03C0> \xA3\x6B |0
-<U03C1> \xA3\x6C |0
-<U03C3> \xA3\x6D |0
-<U03C4> \xA3\x6E |0
-<U03C5> \xA3\x6F |0
-<U03C6> \xA3\x70 |0
-<U03C7> \xA3\x71 |0
-<U03C8> \xA3\x72 |0
-<U03C9> \xA3\x73 |0
-<U0401> \xC7\xF9 |0
-<U0410> \xC7\xF3 |0
-<U0411> \xC7\xF4 |0
-<U0412> \xC7\xF5 |0
-<U0413> \xC7\xF6 |0
-<U0414> \xC7\xF7 |0
-<U0415> \xC7\xF8 |0
-<U0416> \xC7\xFA |0
-<U0417> \xC7\xFB |0
-<U0418> \xC7\xFC |0
-<U0419> \xC7\xFD |0
-<U041A> \xC7\xFE |0
-<U041B> \xC8\x40 |0
-<U041C> \xC8\x41 |0
-<U041D> \xC8\x42 |0
-<U041E> \xC8\x43 |0
-<U041F> \xC8\x44 |0
-<U0420> \xC8\x45 |0
-<U0421> \xC8\x46 |0
-<U0422> \xC8\x47 |0
-<U0423> \xC8\x48 |0
-<U0424> \xC8\x49 |0
-<U0425> \xC8\x4A |0
-<U0426> \xC8\x4B |0
-<U0427> \xC8\x4C |0
-<U0428> \xC8\x4D |0
-<U0429> \xC8\x4E |0
-<U042A> \xC8\x4F |0
-<U042B> \xC8\x50 |0
-<U042C> \xC8\x51 |0
-<U042D> \xC8\x52 |0
-<U042E> \xC8\x53 |0
-<U042F> \xC8\x54 |0
-<U0430> \xC8\x55 |0
-<U0431> \xC8\x56 |0
-<U0432> \xC8\x57 |0
-<U0433> \xC8\x58 |0
-<U0434> \xC8\x59 |0
-<U0435> \xC8\x5A |0
-<U0436> \xC8\x5C |0
-<U0437> \xC8\x5D |0
-<U0438> \xC8\x5E |0
-<U0439> \xC8\x5F |0
-<U043A> \xC8\x60 |0
-<U043B> \xC8\x61 |0
-<U043C> \xC8\x62 |0
-<U043D> \xC8\x63 |0
-<U043E> \xC8\x64 |0
-<U043F> \xC8\x65 |0
-<U0440> \xC8\x66 |0
-<U0441> \xC8\x67 |0
-<U0442> \xC8\x68 |0
-<U0443> \xC8\x69 |0
-<U0444> \xC8\x6A |0
-<U0445> \xC8\x6B |0
-<U0446> \xC8\x6C |0
-<U0447> \xC8\x6D |0
-<U0448> \xC8\x6E |0
-<U0449> \xC8\x6F |0
-<U044A> \xC8\x70 |0
-<U044B> \xC8\x71 |0
-<U044C> \xC8\x72 |0
-<U044D> \xC8\x73 |0
-<U044E> \xC8\x74 |0
-<U044F> \xC8\x75 |0
-<U0451> \xC8\x5B |0
-<U2008A> \xC8\x7C |0
-<U200CC> \xC8\x7A |0
-<U2013> \xA1\x56 |0
-<U2014> \xA1\x58 |0
-<U2018> \xA1\xA5 |0
-<U2019> \xA1\xA6 |0
-<U201C> \xA1\xA7 |0
-<U201D> \xA1\xA8 |0
-<U2025> \xA1\x4C |0
-<U2026> \xA1\x4B |0
-<U2027> \xA1\x45 |0
-<U2032> \xA1\xAC |0
-<U2035> \xA1\xAB |0
-<U203B> \xA1\xB0 |0
-<U20AC> \xA3\xE1 |0
-<U2103> \xA2\x4A |0
-<U2105> \xA1\xC1 |0
-<U2109> \xA2\x4B |0
-<U2116> \xC8\xD2 |0
-<U2121> \xC8\xD3 |0
-<U2160> \xA2\xB9 |0
-<U2161> \xA2\xBA |0
-<U2162> \xA2\xBB |0
-<U2163> \xA2\xBC |0
-<U2164> \xA2\xBD |0
-<U2165> \xA2\xBE |0
-<U2166> \xA2\xBF |0
-<U2167> \xA2\xC0 |0
-<U2168> \xA2\xC1 |0
-<U2169> \xA2\xC2 |0
-<U2170> \xC6\xB5 |0
-<U2171> \xC6\xB6 |0
-<U2172> \xC6\xB7 |0
-<U2173> \xC6\xB8 |0
-<U2174> \xC6\xB9 |0
-<U2175> \xC6\xBA |0
-<U2176> \xC6\xBB |0
-<U2177> \xC6\xBC |0
-<U2178> \xC6\xBD |0
-<U2179> \xC6\xBE |0
-<U2190> \xA1\xF6 |0
-<U2191> \xA1\xF4 |0
-<U2192> \xA1\xF7 |0
-<U2193> \xA1\xF5 |0
-<U2196> \xA1\xF8 |0
-<U2197> \xA1\xF9 |0
-<U2198> \xA1\xFB |0
-<U2199> \xA1\xFA |0
-<U21B8> \xC8\x77 |0
-<U21B9> \xC8\x78 |0
-<U21E7> \xC8\x76 |0
-<U2215> \xA2\x41 |0
-<U221A> \xA1\xD4 |0
-<U221E> \xA1\xDB |0
-<U221F> \xA1\xE8 |0
-<U2220> \xA1\xE7 |0
-<U2223> \xA1\xFD |0
-<U2225> \xA1\xFC |0
-<U2229> \xA1\xE4 |0
-<U222A> \xA1\xE5 |0
-<U222B> \xA1\xEC |0
-<U222E> \xA1\xED |0
-<U2234> \xA1\xEF |0
-<U2235> \xA1\xEE |0
-<U2252> \xA1\xDC |0
-<U2260> \xA1\xDA |0
-<U2261> \xA1\xDD |0
-<U2266> \xA1\xD8 |0
-<U2267> \xA1\xD9 |0
-<U2295> \xA1\xF2 |0
-<U2299> \xA1\xF3 |0
-<U22A5> \xA1\xE6 |0
-<U22BF> \xA1\xE9 |0
-<U2460> \xC6\xA1 |0
-<U2461> \xC6\xA2 |0
-<U2462> \xC6\xA3 |0
-<U2463> \xC6\xA4 |0
-<U2464> \xC6\xA5 |0
-<U2465> \xC6\xA6 |0
-<U2466> \xC6\xA7 |0
-<U2467> \xC6\xA8 |0
-<U2468> \xC6\xA9 |0
-<U2469> \xC6\xAA |0
-<U2474> \xC6\xAB |0
-<U2475> \xC6\xAC |0
-<U2476> \xC6\xAD |0
-<U2477> \xC6\xAE |0
-<U2478> \xC6\xAF |0
-<U2479> \xC6\xB0 |0
-<U247A> \xC6\xB1 |0
-<U247B> \xC6\xB2 |0
-<U247C> \xC6\xB3 |0
-<U247D> \xC6\xB4 |0
-<U2500> \xA2\x77 |0
-<U2502> \xA2\x78 |0
-<U250C> \xA2\x7A |0
-<U2510> \xA2\x7B |0
-<U2514> \xA2\x7C |0
-<U2518> \xA2\x7D |0
-<U251C> \xA2\x75 |0
-<U2524> \xA2\x74 |0
-<U252C> \xA2\x73 |0
-<U2534> \xA2\x72 |0
-<U253C> \xA2\x71 |0
-<U2550> \xF9\xF9 |0
-<U2550> \xA2\xA4 |3
-<U2551> \xF9\xF8 |0
-<U2552> \xF9\xE6 |0
-<U2553> \xF9\xEF |0
-<U2554> \xF9\xDD |0
-<U2555> \xF9\xE8 |0
-<U2556> \xF9\xF1 |0
-<U2557> \xF9\xDF |0
-<U2558> \xF9\xEC |0
-<U2559> \xF9\xF5 |0
-<U255A> \xF9\xE3 |0
-<U255B> \xF9\xEE |0
-<U255C> \xF9\xF7 |0
-<U255D> \xF9\xE5 |0
-<U255E> \xF9\xE9 |0
-<U255E> \xA2\xA5 |3
-<U255F> \xF9\xF2 |0
-<U2560> \xF9\xE0 |0
-<U2561> \xF9\xEB |0
-<U2561> \xA2\xA7 |3
-<U2562> \xF9\xF4 |0
-<U2563> \xF9\xE2 |0
-<U2564> \xF9\xE7 |0
-<U2565> \xF9\xF0 |0
-<U2566> \xF9\xDE |0
-<U2567> \xF9\xED |0
-<U2568> \xF9\xF6 |0
-<U2569> \xF9\xE4 |0
-<U256A> \xF9\xEA |0
-<U256A> \xA2\xA6 |3
-<U256B> \xF9\xF3 |0
-<U256C> \xF9\xE1 |0
-<U256D> \xA2\x7E |0
-<U256D> \xF9\xFA |3
-<U256E> \xA2\xA1 |0
-<U256E> \xF9\xFB |3
-<U256F> \xA2\xA3 |0
-<U256F> \xF9\xFD |3
-<U2570> \xA2\xA2 |0
-<U2570> \xF9\xFC |3
-<U2571> \xA2\xAC |0
-<U2572> \xA2\xAD |0
-<U2573> \xA2\xAE |0
-<U2574> \xA1\x5A |0
-<U2581> \xA2\x62 |0
-<U2582> \xA2\x63 |0
-<U2583> \xA2\x64 |0
-<U2584> \xA2\x65 |0
-<U2585> \xA2\x66 |0
-<U2586> \xA2\x67 |0
-<U2587> \xA2\x68 |0
-<U2588> \xA2\x69 |0
-<U2589> \xA2\x70 |0
-<U258A> \xA2\x6F |0
-<U258B> \xA2\x6E |0
-<U258C> \xA2\x6D |0
-<U258D> \xA2\x6C |0
-<U258E> \xA2\x6B |0
-<U258F> \xA2\x6A |0
-<U2593> \xF9\xFE |0
-<U2594> \xA2\x76 |0
-<U2595> \xA2\x79 |0
-<U25A0> \xA1\xBD |0
-<U25A1> \xA1\xBC |0
-<U25B2> \xA1\xB6 |0
-<U25B3> \xA1\xB5 |0
-<U25BC> \xA1\xBF |0
-<U25BD> \xA1\xBE |0
-<U25C6> \xA1\xBB |0
-<U25C7> \xA1\xBA |0
-<U25CB> \xA1\xB3 |0
-<U25CE> \xA1\xB7 |0
-<U25CF> \xA1\xB4 |0
-<U25E2> \xA2\xA8 |0
-<U25E3> \xA2\xA9 |0
-<U25E4> \xA2\xAB |0
-<U25E5> \xA2\xAA |0
-<U2605> \xA1\xB9 |0
-<U2606> \xA1\xB8 |0
-<U2640> \xA1\xF0 |0
-<U2642> \xA1\xF1 |0
-<U273D> \xC6\xE6 |0
-<U27607> \xC8\xA4 |0
-<U2E80> \xC8\xD6 |0
-<U2E84> \xC8\xD7 |0
-<U2E86> \xC8\xD8 |0
-<U2E87> \xC8\xD9 |0
-<U2E88> \xC8\xDA |0
-<U2E8A> \xC8\xDB |0
-<U2E8C> \xC8\xDC |0
-<U2E8D> \xC8\xDD |0
-<U2E95> \xC8\xDE |0
-<U2E9C> \xC8\xDF |0
-<U2E9D> \xC8\xE0 |0
-<U2EA5> \xC8\xE1 |0
-<U2EA7> \xC8\xE2 |0
-<U2EAA> \xC8\xE3 |0
-<U2EAC> \xC8\xE4 |0
-<U2EAE> \xC8\xE5 |0
-<U2EB6> \xC8\xE6 |0
-<U2EBC> \xC8\xE7 |0
-<U2EBE> \xC8\xE8 |0
-<U2EC6> \xC8\xE9 |0
-<U2ECA> \xC8\xEA |0
-<U2ECC> \xC8\xEB |0
-<U2ECD> \xC8\xEC |0
-<U2ECF> \xC8\xED |0
-<U2ED6> \xC8\xEE |0
-<U2ED7> \xC8\xEF |0
-<U2EDE> \xC8\xF0 |0
-<U2EE3> \xC8\xF1 |0
-<U2F02> \xC6\xBF |0
-<U2F03> \xC6\xC0 |0
-<U2F05> \xC6\xC1 |0
-<U2F07> \xC6\xC2 |0
-<U2F0C> \xC6\xC3 |0
-<U2F0D> \xC6\xC4 |0
-<U2F0E> \xC6\xC5 |0
-<U2F13> \xC6\xC6 |0
-<U2F16> \xC6\xC7 |0
-<U2F19> \xC6\xC8 |0
-<U2F1B> \xC6\xC9 |0
-<U2F22> \xC6\xCA |0
-<U2F27> \xC6\xCB |0
-<U2F2E> \xC6\xCC |0
-<U2F33> \xC6\xCD |0
-<U2F34> \xC6\xCE |0
-<U2F35> \xC6\xCF |0
-<U2F39> \xC6\xD0 |0
-<U2F3A> \xC6\xD1 |0
-<U2F41> \xC6\xD2 |0
-<U2F46> \xC6\xD3 |0
-<U2F67> \xC6\xD4 |0
-<U2F68> \xC6\xD5 |0
-<U2FA1> \xC6\xD6 |0
-<U2FAA> \xC6\xD7 |0
-<U3000> \xA1\x40 |0
-<U3001> \xA1\x42 |0
-<U3002> \xA1\x43 |0
-<U3003> \xA1\xB2 |0
-<U3005> \xC6\xE0 |0
-<U3006> \xC6\xE1 |0
-<U3007> \xC6\xE2 |0
-<U3008> \xA1\x71 |0
-<U3009> \xA1\x72 |0
-<U300A> \xA1\x6D |0
-<U300B> \xA1\x6E |0
-<U300C> \xA1\x75 |0
-<U300D> \xA1\x76 |0
-<U300E> \xA1\x79 |0
-<U300F> \xA1\x7A |0
-<U3010> \xA1\x69 |0
-<U3011> \xA1\x6A |0
-<U3012> \xA2\x45 |0
-<U3014> \xA1\x65 |0
-<U3015> \xA1\x66 |0
-<U301D> \xA1\xA9 |0
-<U301E> \xA1\xAA |0
-<U3021> \xA2\xC3 |0
-<U3022> \xA2\xC4 |0
-<U3023> \xA2\xC5 |0
-<U3024> \xA2\xC6 |0
-<U3025> \xA2\xC7 |0
-<U3026> \xA2\xC8 |0
-<U3027> \xA2\xC9 |0
-<U3028> \xA2\xCA |0
-<U3029> \xA2\xCB |0
-<U3038> \xA2\xCC |0
-<U3039> \xA2\xCD |0
-<U303A> \xA2\xCE |0
-<U3041> \xC6\xE7 |0
-<U3042> \xC6\xE8 |0
-<U3043> \xC6\xE9 |0
-<U3044> \xC6\xEA |0
-<U3045> \xC6\xEB |0
-<U3046> \xC6\xEC |0
-<U3047> \xC6\xED |0
-<U3048> \xC6\xEE |0
-<U3049> \xC6\xEF |0
-<U304A> \xC6\xF0 |0
-<U304B> \xC6\xF1 |0
-<U304C> \xC6\xF2 |0
-<U304D> \xC6\xF3 |0
-<U304E> \xC6\xF4 |0
-<U304F> \xC6\xF5 |0
-<U3050> \xC6\xF6 |0
-<U3051> \xC6\xF7 |0
-<U3052> \xC6\xF8 |0
-<U3053> \xC6\xF9 |0
-<U3054> \xC6\xFA |0
-<U3055> \xC6\xFB |0
-<U3056> \xC6\xFC |0
-<U3057> \xC6\xFD |0
-<U3058> \xC6\xFE |0
-<U3059> \xC7\x40 |0
-<U305A> \xC7\x41 |0
-<U305B> \xC7\x42 |0
-<U305C> \xC7\x43 |0
-<U305D> \xC7\x44 |0
-<U305E> \xC7\x45 |0
-<U305F> \xC7\x46 |0
-<U3060> \xC7\x47 |0
-<U3061> \xC7\x48 |0
-<U3062> \xC7\x49 |0
-<U3063> \xC7\x4A |0
-<U3064> \xC7\x4B |0
-<U3065> \xC7\x4C |0
-<U3066> \xC7\x4D |0
-<U3067> \xC7\x4E |0
-<U3068> \xC7\x4F |0
-<U3069> \xC7\x50 |0
-<U306A> \xC7\x51 |0
-<U306B> \xC7\x52 |0
-<U306C> \xC7\x53 |0
-<U306D> \xC7\x54 |0
-<U306E> \xC7\x55 |0
-<U306F> \xC7\x56 |0
-<U3070> \xC7\x57 |0
-<U3071> \xC7\x58 |0
-<U3072> \xC7\x59 |0
-<U3073> \xC7\x5A |0
-<U3074> \xC7\x5B |0
-<U3075> \xC7\x5C |0
-<U3076> \xC7\x5D |0
-<U3077> \xC7\x5E |0
-<U3078> \xC7\x5F |0
-<U3079> \xC7\x60 |0
-<U307A> \xC7\x61 |0
-<U307B> \xC7\x62 |0
-<U307C> \xC7\x63 |0
-<U307D> \xC7\x64 |0
-<U307E> \xC7\x65 |0
-<U307F> \xC7\x66 |0
-<U3080> \xC7\x67 |0
-<U3081> \xC7\x68 |0
-<U3082> \xC7\x69 |0
-<U3083> \xC7\x6A |0
-<U3084> \xC7\x6B |0
-<U3085> \xC7\x6C |0
-<U3086> \xC7\x6D |0
-<U3087> \xC7\x6E |0
-<U3088> \xC7\x6F |0
-<U3089> \xC7\x70 |0
-<U308A> \xC7\x71 |0
-<U308B> \xC7\x72 |0
-<U308C> \xC7\x73 |0
-<U308D> \xC7\x74 |0
-<U308E> \xC7\x75 |0
-<U308F> \xC7\x76 |0
-<U3090> \xC7\x77 |0
-<U3091> \xC7\x78 |0
-<U3092> \xC7\x79 |0
-<U3093> \xC7\x7A |0
-<U309B> \xC8\xD4 |0
-<U309C> \xC8\xD5 |0
-<U309D> \xC6\xDC |0
-<U309E> \xC6\xDD |0
-<U30A1> \xC7\x7B |0
-<U30A2> \xC7\x7C |0
-<U30A3> \xC7\x7D |0
-<U30A4> \xC7\x7E |0
-<U30A5> \xC7\xA1 |0
-<U30A6> \xC7\xA2 |0
-<U30A7> \xC7\xA3 |0
-<U30A8> \xC7\xA4 |0
-<U30A9> \xC7\xA5 |0
-<U30AA> \xC7\xA6 |0
-<U30AB> \xC7\xA7 |0
-<U30AC> \xC7\xA8 |0
-<U30AD> \xC7\xA9 |0
-<U30AE> \xC7\xAA |0
-<U30AF> \xC7\xAB |0
-<U30B0> \xC7\xAC |0
-<U30B1> \xC7\xAD |0
-<U30B2> \xC7\xAE |0
-<U30B3> \xC7\xAF |0
-<U30B4> \xC7\xB0 |0
-<U30B5> \xC7\xB1 |0
-<U30B6> \xC7\xB2 |0
-<U30B7> \xC7\xB3 |0
-<U30B8> \xC7\xB4 |0
-<U30B9> \xC7\xB5 |0
-<U30BA> \xC7\xB6 |0
-<U30BB> \xC7\xB7 |0
-<U30BC> \xC7\xB8 |0
-<U30BD> \xC7\xB9 |0
-<U30BE> \xC7\xBA |0
-<U30BF> \xC7\xBB |0
-<U30C0> \xC7\xBC |0
-<U30C1> \xC7\xBD |0
-<U30C2> \xC7\xBE |0
-<U30C3> \xC7\xBF |0
-<U30C4> \xC7\xC0 |0
-<U30C5> \xC7\xC1 |0
-<U30C6> \xC7\xC2 |0
-<U30C7> \xC7\xC3 |0
-<U30C8> \xC7\xC4 |0
-<U30C9> \xC7\xC5 |0
-<U30CA> \xC7\xC6 |0
-<U30CB> \xC7\xC7 |0
-<U30CC> \xC7\xC8 |0
-<U30CD> \xC7\xC9 |0
-<U30CE> \xC7\xCA |0
-<U30CF> \xC7\xCB |0
-<U30D0> \xC7\xCC |0
-<U30D1> \xC7\xCD |0
-<U30D2> \xC7\xCE |0
-<U30D3> \xC7\xCF |0
-<U30D4> \xC7\xD0 |0
-<U30D5> \xC7\xD1 |0
-<U30D6> \xC7\xD2 |0
-<U30D7> \xC7\xD3 |0
-<U30D8> \xC7\xD4 |0
-<U30D9> \xC7\xD5 |0
-<U30DA> \xC7\xD6 |0
-<U30DB> \xC7\xD7 |0
-<U30DC> \xC7\xD8 |0
-<U30DD> \xC7\xD9 |0
-<U30DE> \xC7\xDA |0
-<U30DF> \xC7\xDB |0
-<U30E0> \xC7\xDC |0
-<U30E1> \xC7\xDD |0
-<U30E2> \xC7\xDE |0
-<U30E3> \xC7\xDF |0
-<U30E4> \xC7\xE0 |0
-<U30E5> \xC7\xE1 |0
-<U30E6> \xC7\xE2 |0
-<U30E7> \xC7\xE3 |0
-<U30E8> \xC7\xE4 |0
-<U30E9> \xC7\xE5 |0
-<U30EA> \xC7\xE6 |0
-<U30EB> \xC7\xE7 |0
-<U30EC> \xC7\xE8 |0
-<U30ED> \xC7\xE9 |0
-<U30EE> \xC7\xEA |0
-<U30EF> \xC7\xEB |0
-<U30F0> \xC7\xEC |0
-<U30F1> \xC7\xED |0
-<U30F2> \xC7\xEE |0
-<U30F3> \xC7\xEF |0
-<U30F4> \xC7\xF0 |0
-<U30F5> \xC7\xF1 |0
-<U30F6> \xC7\xF2 |0
-<U30FC> \xC6\xE3 |0
-<U30FD> \xC6\xDA |0
-<U30FE> \xC6\xDB |0
-<U3105> \xA3\x74 |0
-<U3106> \xA3\x75 |0
-<U3107> \xA3\x76 |0
-<U3108> \xA3\x77 |0
-<U3109> \xA3\x78 |0
-<U310A> \xA3\x79 |0
-<U310B> \xA3\x7A |0
-<U310C> \xA3\x7B |0
-<U310D> \xA3\x7C |0
-<U310E> \xA3\x7D |0
-<U310F> \xA3\x7E |0
-<U3110> \xA3\xA1 |0
-<U3111> \xA3\xA2 |0
-<U3112> \xA3\xA3 |0
-<U3113> \xA3\xA4 |0
-<U3114> \xA3\xA5 |0
-<U3115> \xA3\xA6 |0
-<U3116> \xA3\xA7 |0
-<U3117> \xA3\xA8 |0
-<U3118> \xA3\xA9 |0
-<U3119> \xA3\xAA |0
-<U311A> \xA3\xAB |0
-<U311B> \xA3\xAC |0
-<U311C> \xA3\xAD |0
-<U311D> \xA3\xAE |0
-<U311E> \xA3\xAF |0
-<U311F> \xA3\xB0 |0
-<U3120> \xA3\xB1 |0
-<U3121> \xA3\xB2 |0
-<U3122> \xA3\xB3 |0
-<U3123> \xA3\xB4 |0
-<U3124> \xA3\xB5 |0
-<U3125> \xA3\xB6 |0
-<U3126> \xA3\xB7 |0
-<U3127> \xA3\xB8 |0
-<U3128> \xA3\xB9 |0
-<U3129> \xA3\xBA |0
-<U3231> \xC8\xD1 |0
-<U32A3> \xA1\xC0 |0
-<U338E> \xA2\x55 |0
-<U338F> \xA2\x56 |0
-<U339C> \xA2\x50 |0
-<U339D> \xA2\x51 |0
-<U339E> \xA2\x52 |0
-<U33A1> \xA2\x54 |0
-<U33C4> \xA2\x57 |0
-<U33CE> \xA2\x53 |0
-<U33D1> \xA1\xEB |0
-<U33D2> \xA1\xEA |0
-<U33D5> \xA2\x4F |0
-<U4E00> \xA4\x40 |0
-<U4E01> \xA4\x42 |0
-<U4E03> \xA4\x43 |0
-<U4E07> \xC9\x45 |0
-<U4E08> \xA4\x56 |0
-<U4E09> \xA4\x54 |0
-<U4E0A> \xA4\x57 |0
-<U4E0B> \xA4\x55 |0
-<U4E0C> \xC9\x46 |0
-<U4E0D> \xA4\xA3 |0
-<U4E0E> \xC9\x4F |0
-<U4E0F> \xC9\x4D |0
-<U4E10> \xA4\xA2 |0
-<U4E11> \xA4\xA1 |0
-<U4E14> \xA5\x42 |0
-<U4E15> \xA5\x41 |0
-<U4E16> \xA5\x40 |0
-<U4E18> \xA5\x43 |0
-<U4E19> \xA4\xFE |0
-<U4E1E> \xA5\xE0 |0
-<U4E1F> \xA5\xE1 |0
-<U4E26> \xA8\xC3 |0
-<U4E2B> \xA4\x58 |0
-<U4E2D> \xA4\xA4 |0
-<U4E2E> \xC9\x50 |0
-<U4E30> \xA4\xA5 |0
-<U4E31> \xC9\x63 |0
-<U4E32> \xA6\xEA |0
-<U4E33> \xCB\xB1 |0
-<U4E38> \xA4\x59 |0
-<U4E39> \xA4\xA6 |0
-<U4E3B> \xA5\x44 |0
-<U4E3C> \xC9\x64 |0
-<U4E42> \xC9\x40 |0
-<U4E43> \xA4\x44 |0
-<U4E45> \xA4\x5B |0
-<U4E47> \xC9\x47 |0
-<U4E48> \xA4\x5C |0
-<U4E4B> \xA4\xA7 |0
-<U4E4D> \xA5\x45 |0
-<U4E4E> \xA5\x47 |0
-<U4E4F> \xA5\x46 |0
-<U4E52> \xA5\xE2 |0
-<U4E53> \xA5\xE3 |0
-<U4E56> \xA8\xC4 |0
-<U4E58> \xAD\xBC |0
-<U4E59> \xA4\x41 |0
-<U4E5A> \xC8\x7B |0
-<U4E5C> \xC9\x41 |0
-<U4E5D> \xA4\x45 |0
-<U4E5E> \xA4\x5E |0
-<U4E5F> \xA4\x5D |0
-<U4E69> \xA5\xE4 |0
-<U4E73> \xA8\xC5 |0
-<U4E7E> \xB0\xAE |0
-<U4E7F> \xD4\x4B |0
-<U4E82> \xB6\xC3 |0
-<U4E83> \xDC\xB1 |0
-<U4E84> \xDC\xB2 |0
-<U4E86> \xA4\x46 |0
-<U4E88> \xA4\xA9 |0
-<U4E8B> \xA8\xC6 |0
-<U4E8C> \xA4\x47 |0
-<U4E8D> \xC9\x48 |0
-<U4E8E> \xA4\x5F |0
-<U4E91> \xA4\xAA |0
-<U4E92> \xA4\xAC |0
-<U4E93> \xC9\x51 |0
-<U4E94> \xA4\xAD |0
-<U4E95> \xA4\xAB |0
-<U4E99> \xA5\xE5 |0
-<U4E9B> \xA8\xC7 |0
-<U4E9E> \xA8\xC8 |0
-<U4E9F> \xAB\x45 |0
-<U4EA1> \xA4\x60 |0
-<U4EA2> \xA4\xAE |0
-<U4EA4> \xA5\xE6 |0
-<U4EA5> \xA5\xE8 |0
-<U4EA6> \xA5\xE7 |0
-<U4EA8> \xA6\xEB |0
-<U4EAB> \xA8\xC9 |0
-<U4EAC> \xA8\xCA |0
-<U4EAD> \xAB\x46 |0
-<U4EAE> \xAB\x47 |0
-<U4EB3> \xAD\xBD |0
-<U4EB6> \xDC\xB3 |0
-<U4EB9> \xF6\xD6 |0
-<U4EBA> \xA4\x48 |0
-<U4EC0> \xA4\xB0 |0
-<U4EC1> \xA4\xAF |0
-<U4EC2> \xC9\x52 |0
-<U4EC3> \xA4\xB1 |0
-<U4EC4> \xA4\xB7 |0
-<U4EC6> \xA4\xB2 |0
-<U4EC7> \xA4\xB3 |0
-<U4EC8> \xC9\x54 |0
-<U4EC9> \xC9\x53 |0
-<U4ECA> \xA4\xB5 |0
-<U4ECB> \xA4\xB6 |0
-<U4ECD> \xA4\xB4 |0
-<U4ED4> \xA5\x4A |0
-<U4ED5> \xA5\x4B |0
-<U4ED6> \xA5\x4C |0
-<U4ED7> \xA5\x4D |0
-<U4ED8> \xA5\x49 |0
-<U4ED9> \xA5\x50 |0
-<U4EDA> \xC9\x6A |0
-<U4EDC> \xC9\x66 |0
-<U4EDD> \xC9\x69 |0
-<U4EDE> \xA5\x51 |0
-<U4EDF> \xA5\x61 |0
-<U4EE1> \xC9\x68 |0
-<U4EE3> \xA5\x4E |0
-<U4EE4> \xA5\x4F |0
-<U4EE5> \xA5\x48 |0
-<U4EE8> \xC9\x65 |0
-<U4EE9> \xC9\x67 |0
-<U4EF0> \xA5\xF5 |0
-<U4EF1> \xC9\xB0 |0
-<U4EF2> \xA5\xF2 |0
-<U4EF3> \xA5\xF6 |0
-<U4EF4> \xC9\xBA |0
-<U4EF5> \xC9\xAE |0
-<U4EF6> \xA5\xF3 |0
-<U4EF7> \xC9\xB2 |0
-<U4EFB> \xA5\xF4 |0
-<U4EFD> \xA5\xF7 |0
-<U4EFF> \xA5\xE9 |0
-<U4F00> \xC9\xB1 |0
-<U4F01> \xA5\xF8 |0
-<U4F02> \xC9\xB5 |0
-<U4F04> \xC9\xB9 |0
-<U4F05> \xC9\xB6 |0
-<U4F08> \xC9\xB3 |0
-<U4F09> \xA5\xEA |0
-<U4F0A> \xA5\xEC |0
-<U4F0B> \xA5\xF9 |0
-<U4F0D> \xA5\xEE |0
-<U4F0E> \xC9\xAB |0
-<U4F0F> \xA5\xF1 |0
-<U4F10> \xA5\xEF |0
-<U4F11> \xA5\xF0 |0
-<U4F12> \xC9\xBB |0
-<U4F13> \xC9\xB8 |0
-<U4F14> \xC9\xAF |0
-<U4F15> \xA5\xED |0
-<U4F18> \xC9\xAC |0
-<U4F19> \xA5\xEB |0
-<U4F1D> \xC9\xB4 |0
-<U4F22> \xC9\xB7 |0
-<U4F2C> \xC9\xAD |0
-<U4F2D> \xCA\x66 |0
-<U4F2F> \xA7\x42 |0
-<U4F30> \xA6\xF4 |0
-<U4F33> \xCA\x67 |0
-<U4F34> \xA6\xF1 |0
-<U4F36> \xA7\x44 |0
-<U4F38> \xA6\xF9 |0
-<U4F3A> \xA6\xF8 |0
-<U4F3B> \xCA\x5B |0
-<U4F3C> \xA6\xFC |0
-<U4F3D> \xA6\xF7 |0
-<U4F3E> \xCA\x60 |0
-<U4F3F> \xCA\x68 |0
-<U4F41> \xCA\x64 |0
-<U4F43> \xA6\xFA |0
-<U4F46> \xA6\xFD |0
-<U4F47> \xA6\xEE |0
-<U4F48> \xA7\x47 |0
-<U4F49> \xCA\x5D |0
-<U4F4C> \xCB\xBD |0
-<U4F4D> \xA6\xEC |0
-<U4F4E> \xA7\x43 |0
-<U4F4F> \xA6\xED |0
-<U4F50> \xA6\xF5 |0
-<U4F51> \xA6\xF6 |0
-<U4F52> \xCA\x62 |0
-<U4F53> \xCA\x5E |0
-<U4F54> \xA6\xFB |0
-<U4F55> \xA6\xF3 |0
-<U4F56> \xCA\x5A |0
-<U4F57> \xA6\xEF |0
-<U4F58> \xCA\x65 |0
-<U4F59> \xA7\x45 |0
-<U4F5A> \xA7\x48 |0
-<U4F5B> \xA6\xF2 |0
-<U4F5C> \xA7\x40 |0
-<U4F5D> \xA7\x46 |0
-<U4F5E> \xA6\xF0 |0
-<U4F5F> \xCA\x63 |0
-<U4F60> \xA7\x41 |0
-<U4F61> \xCA\x69 |0
-<U4F62> \xCA\x5C |0
-<U4F63> \xA6\xFE |0
-<U4F64> \xCA\x5F |0
-<U4F67> \xCA\x61 |0
-<U4F69> \xA8\xD8 |0
-<U4F6A> \xCB\xBF |0
-<U4F6B> \xCB\xCB |0
-<U4F6C> \xA8\xD0 |0
-<U4F6E> \xCB\xCC |0
-<U4F6F> \xA8\xCB |0
-<U4F70> \xA8\xD5 |0
-<U4F73> \xA8\xCE |0
-<U4F74> \xCB\xB9 |0
-<U4F75> \xA8\xD6 |0
-<U4F76> \xCB\xB8 |0
-<U4F77> \xCB\xBC |0
-<U4F78> \xCB\xC3 |0
-<U4F79> \xCB\xC1 |0
-<U4F7A> \xA8\xDE |0
-<U4F7B> \xA8\xD9 |0
-<U4F7C> \xCB\xB3 |0
-<U4F7D> \xCB\xB5 |0
-<U4F7E> \xA8\xDB |0
-<U4F7F> \xA8\xCF |0
-<U4F80> \xCB\xB6 |0
-<U4F81> \xCB\xC2 |0
-<U4F82> \xCB\xC9 |0
-<U4F83> \xA8\xD4 |0
-<U4F84> \xCB\xBB |0
-<U4F85> \xCB\xB4 |0
-<U4F86> \xA8\xD3 |0
-<U4F87> \xCB\xB7 |0
-<U4F88> \xA8\xD7 |0
-<U4F89> \xCB\xBA |0
-<U4F8B> \xA8\xD2 |0
-<U4F8D> \xA8\xCD |0
-<U4F8F> \xA8\xDC |0
-<U4F90> \xCB\xC4 |0
-<U4F91> \xA8\xDD |0
-<U4F92> \xCB\xC8 |0
-<U4F94> \xCB\xC6 |0
-<U4F95> \xCB\xCA |0
-<U4F96> \xA8\xDA |0
-<U4F97> \xCB\xBE |0
-<U4F98> \xCB\xB2 |0
-<U4F9A> \xCB\xC0 |0
-<U4F9B> \xA8\xD1 |0
-<U4F9C> \xCB\xC5 |0
-<U4F9D> \xA8\xCC |0
-<U4F9E> \xCB\xC7 |0
-<U4FAE> \xAB\x56 |0
-<U4FAF> \xAB\x4A |0
-<U4FB2> \xCD\xE0 |0
-<U4FB3> \xCD\xE8 |0
-<U4FB5> \xAB\x49 |0
-<U4FB6> \xAB\x51 |0
-<U4FB7> \xAB\x5D |0
-<U4FB9> \xCD\xEE |0
-<U4FBA> \xCD\xEC |0
-<U4FBB> \xCD\xE7 |0
-<U4FBF> \xAB\x4B |0
-<U4FC0> \xCD\xED |0
-<U4FC1> \xCD\xE3 |0
-<U4FC2> \xAB\x59 |0
-<U4FC3> \xAB\x50 |0
-<U4FC4> \xAB\x58 |0
-<U4FC5> \xCD\xDE |0
-<U4FC7> \xCD\xEA |0
-<U4FC9> \xCD\xE1 |0
-<U4FCA> \xAB\x54 |0
-<U4FCB> \xCD\xE2 |0
-<U4FCD> \xCD\xDD |0
-<U4FCE> \xAB\x5B |0
-<U4FCF> \xAB\x4E |0
-<U4FD0> \xAB\x57 |0
-<U4FD1> \xAB\x4D |0
-<U4FD3> \xCD\xDF |0
-<U4FD4> \xCD\xE4 |0
-<U4FD6> \xCD\xEB |0
-<U4FD7> \xAB\x55 |0
-<U4FD8> \xAB\x52 |0
-<U4FD9> \xCD\xE6 |0
-<U4FDA> \xAB\x5A |0
-<U4FDB> \xCD\xE9 |0
-<U4FDC> \xCD\xE5 |0
-<U4FDD> \xAB\x4F |0
-<U4FDE> \xAB\x5C |0
-<U4FDF> \xAB\x53 |0
-<U4FE0> \xAB\x4C |0
-<U4FE1> \xAB\x48 |0
-<U4FEC> \xCD\xEF |0
-<U4FEE> \xAD\xD7 |0
-<U4FEF> \xAD\xC1 |0
-<U4FF1> \xAD\xD1 |0
-<U4FF3> \xAD\xD6 |0
-<U4FF4> \xD0\xD0 |0
-<U4FF5> \xD0\xCF |0
-<U4FF6> \xD0\xD4 |0
-<U4FF7> \xD0\xD5 |0
-<U4FF8> \xAD\xC4 |0
-<U4FFA> \xAD\xCD |0
-<U4FFE> \xAD\xDA |0
-<U5000> \xAD\xCE |0
-<U5005> \xD0\xC9 |0
-<U5006> \xAD\xC7 |0
-<U5007> \xD0\xCA |0
-<U5009> \xAD\xDC |0
-<U500B> \xAD\xD3 |0
-<U500C> \xAD\xBE |0
-<U500D> \xAD\xBF |0
-<U500E> \xD0\xDD |0
-<U500F> \xB0\xBF |0
-<U5011> \xAD\xCC |0
-<U5012> \xAD\xCB |0
-<U5013> \xD0\xCB |0
-<U5014> \xAD\xCF |0
-<U5015> \xD4\x5B |0
-<U5016> \xAD\xC6 |0
-<U5017> \xD0\xD6 |0
-<U5018> \xAD\xD5 |0
-<U5019> \xAD\xD4 |0
-<U501A> \xAD\xCA |0
-<U501B> \xD0\xCE |0
-<U501C> \xD0\xD7 |0
-<U501E> \xD0\xC8 |0
-<U501F> \xAD\xC9 |0
-<U5020> \xD0\xD8 |0
-<U5021> \xAD\xD2 |0
-<U5022> \xD0\xCC |0
-<U5023> \xAD\xC0 |0
-<U5025> \xAD\xC3 |0
-<U5026> \xAD\xC2 |0
-<U5027> \xD0\xD9 |0
-<U5028> \xAD\xD0 |0
-<U5029> \xAD\xC5 |0
-<U502A> \xAD\xD9 |0
-<U502B> \xAD\xDB |0
-<U502C> \xD0\xD3 |0
-<U502D> \xAD\xD8 |0
-<U502F> \xD0\xDB |0
-<U5030> \xD0\xCD |0
-<U5031> \xD0\xDC |0
-<U5033> \xD0\xD1 |0
-<U5035> \xD0\xDA |0
-<U5037> \xD0\xD2 |0
-<U503C> \xAD\xC8 |0
-<U5040> \xD4\x63 |0
-<U5041> \xD4\x57 |0
-<U5043> \xB0\xB3 |0
-<U5045> \xD4\x5C |0
-<U5046> \xD4\x62 |0
-<U5047> \xB0\xB2 |0
-<U5048> \xD4\x55 |0
-<U5049> \xB0\xB6 |0
-<U504A> \xD4\x59 |0
-<U504B> \xD4\x52 |0
-<U504C> \xB0\xB4 |0
-<U504D> \xD4\x56 |0
-<U504E> \xB0\xB9 |0
-<U504F> \xB0\xBE |0
-<U5051> \xD4\x67 |0
-<U5053> \xD4\x51 |0
-<U5055> \xB0\xBA |0
-<U5057> \xD4\x66 |0
-<U505A> \xB0\xB5 |0
-<U505B> \xD4\x58 |0
-<U505C> \xB0\xB1 |0
-<U505D> \xD4\x53 |0
-<U505E> \xD4\x4F |0
-<U505F> \xD4\x5D |0
-<U5060> \xD4\x50 |0
-<U5061> \xD4\x4E |0
-<U5062> \xD4\x5A |0
-<U5063> \xD4\x60 |0
-<U5064> \xD4\x61 |0
-<U5065> \xB0\xB7 |0
-<U5068> \xD8\x5B |0
-<U5069> \xD4\x5E |0
-<U506A> \xD4\x4D |0
-<U506B> \xD4\x5F |0
-<U506D> \xB0\xC1 |0
-<U506E> \xD4\x64 |0
-<U506F> \xB0\xC0 |0
-<U5070> \xD4\x4C |0
-<U5072> \xD4\x54 |0
-<U5073> \xD4\x65 |0
-<U5074> \xB0\xBC |0
-<U5075> \xB0\xBB |0
-<U5076> \xB0\xB8 |0
-<U5077> \xB0\xBD |0
-<U507A> \xB0\xAF |0
-<U507D> \xB0\xB0 |0
-<U5080> \xB3\xC8 |0
-<U5082> \xD8\x5E |0
-<U5083> \xD8\x57 |0
-<U5085> \xB3\xC5 |0
-<U5087> \xD8\x5F |0
-<U508B> \xD8\x55 |0
-<U508C> \xD8\x58 |0
-<U508D> \xB3\xC4 |0
-<U508E> \xD8\x59 |0
-<U5091> \xB3\xC7 |0
-<U5092> \xD8\x5D |0
-<U5094> \xD8\x53 |0
-<U5095> \xD8\x52 |0
-<U5096> \xB3\xC9 |0
-<U5098> \xB3\xCA |0
-<U5099> \xB3\xC6 |0
-<U509A> \xB3\xCB |0
-<U509B> \xD8\x51 |0
-<U509C> \xD8\x5C |0
-<U509D> \xD8\x5A |0
-<U509E> \xD8\x54 |0
-<U50A2> \xB3\xC3 |0
-<U50A3> \xD8\x56 |0
-<U50AC> \xB6\xCA |0
-<U50AD> \xB6\xC4 |0
-<U50AE> \xDC\xB7 |0
-<U50AF> \xB6\xCD |0
-<U50B0> \xDC\xBD |0
-<U50B1> \xDC\xC0 |0
-<U50B2> \xB6\xC6 |0
-<U50B3> \xB6\xC7 |0
-<U50B4> \xDC\xBA |0
-<U50B5> \xB6\xC5 |0
-<U50B6> \xDC\xC3 |0
-<U50B7> \xB6\xCB |0
-<U50B8> \xDC\xC4 |0
-<U50BA> \xDC\xBF |0
-<U50BB> \xB6\xCC |0
-<U50BD> \xDC\xB4 |0
-<U50BE> \xB6\xC9 |0
-<U50BF> \xDC\xB5 |0
-<U50C1> \xDC\xBE |0
-<U50C2> \xDC\xBC |0
-<U50C4> \xDC\xB8 |0
-<U50C5> \xB6\xC8 |0
-<U50C6> \xDC\xB6 |0
-<U50C7> \xB6\xCE |0
-<U50C8> \xDC\xBB |0
-<U50C9> \xDC\xC2 |0
-<U50CA> \xDC\xB9 |0
-<U50CB> \xDC\xC1 |0
-<U50CE> \xB9\xB6 |0
-<U50CF> \xB9\xB3 |0
-<U50D1> \xB9\xB4 |0
-<U50D3> \xE0\xF9 |0
-<U50D4> \xE0\xF1 |0
-<U50D5> \xB9\xB2 |0
-<U50D6> \xB9\xAF |0
-<U50D7> \xE0\xF2 |0
-<U50DA> \xB9\xB1 |0
-<U50DB> \xE0\xF5 |0
-<U50DD> \xE0\xF7 |0
-<U50E0> \xE0\xFE |0
-<U50E3> \xE0\xFD |0
-<U50E4> \xE0\xF8 |0
-<U50E5> \xB9\xAE |0
-<U50E6> \xE0\xF0 |0
-<U50E7> \xB9\xAC |0
-<U50E8> \xE0\xF3 |0
-<U50E9> \xB9\xB7 |0
-<U50EA> \xE0\xF6 |0
-<U50EC> \xE0\xFA |0
-<U50ED> \xB9\xB0 |0
-<U50EE> \xB9\xAD |0
-<U50EF> \xE0\xFC |0
-<U50F0> \xE0\xFB |0
-<U50F1> \xB9\xB5 |0
-<U50F3> \xE0\xF4 |0
-<U50F5> \xBB\xF8 |0
-<U50F6> \xE4\xEC |0
-<U50F8> \xE4\xE9 |0
-<U50F9> \xBB\xF9 |0
-<U50FB> \xBB\xF7 |0
-<U50FD> \xE4\xF0 |0
-<U50FE> \xE4\xED |0
-<U50FF> \xE4\xE6 |0
-<U5100> \xBB\xF6 |0
-<U5102> \xBB\xFA |0
-<U5103> \xE4\xE7 |0
-<U5104> \xBB\xF5 |0
-<U5105> \xBB\xFD |0
-<U5106> \xE4\xEA |0
-<U5107> \xE4\xEB |0
-<U5108> \xBB\xFB |0
-<U5109> \xBB\xFC |0
-<U510A> \xE4\xF1 |0
-<U510B> \xE4\xEE |0
-<U510C> \xE4\xEF |0
-<U5110> \xBE\xAA |0
-<U5111> \xE8\xF8 |0
-<U5112> \xBE\xA7 |0
-<U5113> \xE8\xF5 |0
-<U5114> \xBE\xA9 |0
-<U5115> \xBE\xAB |0
-<U5117> \xE8\xF6 |0
-<U5118> \xBE\xA8 |0
-<U511A> \xE8\xF7 |0
-<U511C> \xE8\xF4 |0
-<U511F> \xC0\x76 |0
-<U5120> \xEC\xBD |0
-<U5121> \xC0\x77 |0
-<U5122> \xEC\xBB |0
-<U5124> \xEC\xBC |0
-<U5125> \xEC\xBA |0
-<U5126> \xEC\xB9 |0
-<U5129> \xEC\xBE |0
-<U512A> \xC0\x75 |0
-<U512D> \xEF\xB8 |0
-<U512E> \xEF\xB9 |0
-<U5130> \xE4\xE8 |0
-<U5131> \xEF\xB7 |0
-<U5132> \xC0\x78 |0
-<U5133> \xC3\x5F |0
-<U5134> \xF1\xEB |0
-<U5135> \xF1\xEC |0
-<U5137> \xC4\xD7 |0
-<U5138> \xC4\xD8 |0
-<U5139> \xF5\xC1 |0
-<U513A> \xF5\xC0 |0
-<U513B> \xC5\x6C |0
-<U513C> \xC5\x6B |0
-<U513D> \xF7\xD0 |0
-<U513F> \xA4\x49 |0
-<U5140> \xA4\x61 |0
-<U5141> \xA4\xB9 |0
-<U5143> \xA4\xB8 |0
-<U5144> \xA5\x53 |0
-<U5145> \xA5\x52 |0
-<U5146> \xA5\xFC |0
-<U5147> \xA5\xFB |0
-<U5148> \xA5\xFD |0
-<U5149> \xA5\xFA |0
-<U514B> \xA7\x4A |0
-<U514C> \xA7\x49 |0
-<U514D> \xA7\x4B |0
-<U5152> \xA8\xE0 |0
-<U5154> \xA8\xDF |0
-<U5155> \xA8\xE1 |0
-<U5157> \xAB\x5E |0
-<U5159> \xA2\x59 |0
-<U515A> \xD0\xDE |0
-<U515B> \xA2\x5A |0
-<U515C> \xB0\xC2 |0
-<U515D> \xA2\x5C |0
-<U515E> \xA2\x5B |0
-<U515F> \xD8\x60 |0
-<U5161> \xA2\x5D |0
-<U5162> \xB9\xB8 |0
-<U5163> \xA2\x5E |0
-<U5165> \xA4\x4A |0
-<U5167> \xA4\xBA |0
-<U5168> \xA5\xFE |0
-<U5169> \xA8\xE2 |0
-<U516B> \xA4\x4B |0
-<U516C> \xA4\xBD |0
-<U516D> \xA4\xBB |0
-<U516E> \xA4\xBC |0
-<U5171> \xA6\x40 |0
-<U5175> \xA7\x4C |0
-<U5176> \xA8\xE4 |0
-<U5177> \xA8\xE3 |0
-<U5178> \xA8\xE5 |0
-<U517C> \xAD\xDD |0
-<U5180> \xBE\xAC |0
-<U5187> \xC9\x4E |0
-<U5188> \xC8\xA2 |0
-<U5189> \xA5\x54 |0
-<U518A> \xA5\x55 |0
-<U518D> \xA6\x41 |0
-<U518F> \xCA\x6A |0
-<U5191> \xAB\x60 |0
-<U5192> \xAB\x5F |0
-<U5193> \xD0\xE0 |0
-<U5194> \xD0\xDF |0
-<U5195> \xB0\xC3 |0
-<U5197> \xA4\xBE |0
-<U5198> \xC9\x55 |0
-<U519E> \xCB\xCD |0
-<U51A0> \xAB\x61 |0
-<U51A2> \xAD\xE0 |0
-<U51A4> \xAD\xDE |0
-<U51A5> \xAD\xDF |0
-<U51AA> \xBE\xAD |0
-<U51AC> \xA5\x56 |0
-<U51B0> \xA6\x42 |0
-<U51B1> \xC9\xBC |0
-<U51B6> \xA7\x4D |0
-<U51B7> \xA7\x4E |0
-<U51B9> \xCA\x6B |0
-<U51BC> \xCB\xCE |0
-<U51BD> \xA8\xE6 |0
-<U51BE> \xCB\xCF |0
-<U51C4> \xD0\xE2 |0
-<U51C5> \xD0\xE3 |0
-<U51C6> \xAD\xE3 |0
-<U51C8> \xD0\xE4 |0
-<U51CA> \xD0\xE1 |0
-<U51CB> \xAD\xE4 |0
-<U51CC> \xAD\xE2 |0
-<U51CD> \xAD\xE1 |0
-<U51CE> \xD0\xE5 |0
-<U51D0> \xD4\x68 |0
-<U51D4> \xD8\x61 |0
-<U51D7> \xDC\xC5 |0
-<U51D8> \xE1\x40 |0
-<U51DC> \xBB\xFE |0
-<U51DD> \xBE\xAE |0
-<U51DE> \xE8\xF9 |0
-<U51E0> \xA4\x4C |0
-<U51E1> \xA4\x5A |0
-<U51F0> \xB0\xC4 |0
-<U51F1> \xB3\xCD |0
-<U51F3> \xB9\xB9 |0
-<U51F5> \xC9\x42 |0
-<U51F6> \xA4\xBF |0
-<U51F8> \xA5\x59 |0
-<U51F9> \xA5\x57 |0
-<U51FA> \xA5\x58 |0
-<U51FD> \xA8\xE7 |0
-<U5200> \xA4\x4D |0
-<U5201> \xA4\x4E |0
-<U5202> \xC8\x7D |0
-<U5203> \xA4\x62 |0
-<U5206> \xA4\xC0 |0
-<U5207> \xA4\xC1 |0
-<U5208> \xA4\xC2 |0
-<U5209> \xC9\xBE |0
-<U520A> \xA5\x5A |0
-<U520C> \xC9\x6B |0
-<U520E> \xA6\x46 |0
-<U5210> \xC9\xBF |0
-<U5211> \xA6\x44 |0
-<U5212> \xA6\x45 |0
-<U5213> \xC9\xBD |0
-<U5216> \xA6\x47 |0
-<U5217> \xA6\x43 |0
-<U521C> \xCA\x6C |0
-<U521D> \xAA\xEC |0
-<U521E> \xCA\x6D |0
-<U5221> \xCA\x6E |0
-<U5224> \xA7\x50 |0
-<U5225> \xA7\x4F |0
-<U5228> \xA7\x53 |0
-<U5229> \xA7\x51 |0
-<U522A> \xA7\x52 |0
-<U522E> \xA8\xED |0
-<U5230> \xA8\xEC |0
-<U5231> \xCB\xD4 |0
-<U5232> \xCB\xD1 |0
-<U5233> \xCB\xD2 |0
-<U5235> \xCB\xD0 |0
-<U5236> \xA8\xEE |0
-<U5237> \xA8\xEA |0
-<U5238> \xA8\xE9 |0
-<U523A> \xA8\xEB |0
-<U523B> \xA8\xE8 |0
-<U5241> \xA8\xEF |0
-<U5243> \xAB\x63 |0
-<U5244> \xCD\xF0 |0
-<U5246> \xCB\xD3 |0
-<U5247> \xAB\x68 |0
-<U5249> \xCD\xF1 |0
-<U524A> \xAB\x64 |0
-<U524B> \xAB\x67 |0
-<U524C> \xAB\x66 |0
-<U524D> \xAB\x65 |0
-<U524E> \xAB\x62 |0
-<U5252> \xD0\xE8 |0
-<U5254> \xAD\xE7 |0
-<U5255> \xD0\xEB |0
-<U5256> \xAD\xE5 |0
-<U525A> \xD0\xE7 |0
-<U525B> \xAD\xE8 |0
-<U525C> \xAD\xE6 |0
-<U525D> \xAD\xE9 |0
-<U525E> \xD0\xE9 |0
-<U525F> \xD0\xEA |0
-<U5261> \xD0\xE6 |0
-<U5262> \xD0\xEC |0
-<U5269> \xB3\xD1 |0
-<U526A> \xB0\xC5 |0
-<U526B> \xD4\x69 |0
-<U526C> \xD4\x6B |0
-<U526D> \xD4\x6A |0
-<U526E> \xD4\x6C |0
-<U526F> \xB0\xC6 |0
-<U5272> \xB3\xCE |0
-<U5274> \xB3\xCF |0
-<U5275> \xB3\xD0 |0
-<U5277> \xB6\xD0 |0
-<U5278> \xDC\xC7 |0
-<U527A> \xDC\xC6 |0
-<U527B> \xDC\xC8 |0
-<U527C> \xDC\xC9 |0
-<U527D> \xB6\xD1 |0
-<U527F> \xB6\xCF |0
-<U5280> \xE1\x41 |0
-<U5281> \xE1\x42 |0
-<U5282> \xB9\xBB |0
-<U5283> \xB9\xBA |0
-<U5284> \xE3\x5A |0
-<U5287> \xBC\x40 |0
-<U5288> \xBC\x41 |0
-<U5289> \xBC\x42 |0
-<U528A> \xBC\x44 |0
-<U528B> \xE4\xF2 |0
-<U528C> \xE4\xF3 |0
-<U528D> \xBC\x43 |0
-<U5291> \xBE\xAF |0
-<U5293> \xBE\xB0 |0
-<U5296> \xF1\xED |0
-<U5297> \xF5\xC3 |0
-<U5298> \xF5\xC2 |0
-<U5299> \xF7\xD1 |0
-<U529B> \xA4\x4F |0
-<U529F> \xA5\x5C |0
-<U52A0> \xA5\x5B |0
-<U52A3> \xA6\x48 |0
-<U52A6> \xC9\xC0 |0
-<U52A9> \xA7\x55 |0
-<U52AA> \xA7\x56 |0
-<U52AB> \xA7\x54 |0
-<U52AC> \xA7\x57 |0
-<U52AD> \xCA\x6F |0
-<U52AE> \xCA\x70 |0
-<U52BB> \xA8\xF1 |0
-<U52BC> \xCB\xD5 |0
-<U52BE> \xA8\xF0 |0
-<U52C0> \xCD\xF2 |0
-<U52C1> \xAB\x6C |0
-<U52C2> \xCD\xF3 |0
-<U52C3> \xAB\x6B |0
-<U52C7> \xAB\x69 |0
-<U52C9> \xAB\x6A |0
-<U52CD> \xD0\xED |0
-<U52D2> \xB0\xC7 |0
-<U52D3> \xD4\x6E |0
-<U52D5> \xB0\xCA |0
-<U52D6> \xD4\x6D |0
-<U52D7> \xB1\xE5 |0
-<U52D8> \xB0\xC9 |0
-<U52D9> \xB0\xC8 |0
-<U52DB> \xB3\xD4 |0
-<U52DD> \xB3\xD3 |0
-<U52DE> \xB3\xD2 |0
-<U52DF> \xB6\xD2 |0
-<U52E2> \xB6\xD5 |0
-<U52E3> \xB6\xD6 |0
-<U52E4> \xB6\xD4 |0
-<U52E6> \xB6\xD3 |0
-<U52E9> \xE1\x43 |0
-<U52EB> \xE1\x44 |0
-<U52EF> \xE4\xF5 |0
-<U52F0> \xBC\x45 |0
-<U52F1> \xE4\xF4 |0
-<U52F3> \xBE\xB1 |0
-<U52F4> \xEC\xBF |0
-<U52F5> \xC0\x79 |0
-<U52F7> \xF1\xEE |0
-<U52F8> \xC4\x55 |0
-<U52FA> \xA4\x63 |0
-<U52FB> \xA4\xC3 |0
-<U52FC> \xC9\x56 |0
-<U52FE> \xA4\xC4 |0
-<U52FF> \xA4\xC5 |0
-<U5305> \xA5\x5D |0
-<U5306> \xA5\x5E |0
-<U5308> \xA6\x49 |0
-<U5309> \xCA\x71 |0
-<U530A> \xCB\xD6 |0
-<U530B> \xCB\xD7 |0
-<U530D> \xAB\x6D |0
-<U530E> \xD0\xEE |0
-<U530F> \xB0\xCC |0
-<U5310> \xB0\xCB |0
-<U5311> \xD8\x63 |0
-<U5312> \xD8\x62 |0
-<U5315> \xA4\x50 |0
-<U5316> \xA4\xC6 |0
-<U5317> \xA5\x5F |0
-<U5319> \xB0\xCD |0
-<U531A> \xC9\x43 |0
-<U531C> \xC9\x6C |0
-<U531D> \xA5\x60 |0
-<U531F> \xC9\xC2 |0
-<U5320> \xA6\x4B |0
-<U5321> \xA6\x4A |0
-<U5322> \xC9\xC1 |0
-<U5323> \xA7\x58 |0
-<U532A> \xAD\xEA |0
-<U532D> \xD4\x6F |0
-<U532F> \xB6\xD7 |0
-<U5330> \xE1\x45 |0
-<U5331> \xB9\xBC |0
-<U5334> \xE8\xFA |0
-<U5337> \xF3\xFD |0
-<U5339> \xA4\xC7 |0
-<U533C> \xCB\xD8 |0
-<U533D> \xCD\xF4 |0
-<U533E> \xB0\xD0 |0
-<U533F> \xB0\xCE |0
-<U5340> \xB0\xCF |0
-<U5341> \xA4\x51 |0
-<U5343> \xA4\x64 |0
-<U5345> \xA4\xCA |0
-<U5347> \xA4\xC9 |0
-<U5348> \xA4\xC8 |0
-<U5349> \xA5\x63 |0
-<U534A> \xA5\x62 |0
-<U534C> \xC9\x6D |0
-<U534D> \xC9\xC3 |0
-<U5351> \xA8\xF5 |0
-<U5352> \xA8\xF2 |0
-<U5353> \xA8\xF4 |0
-<U5354> \xA8\xF3 |0
-<U5357> \xAB\x6E |0
-<U535A> \xB3\xD5 |0
-<U535C> \xA4\x52 |0
-<U535E> \xA4\xCB |0
-<U5360> \xA5\x65 |0
-<U5361> \xA5\x64 |0
-<U5363> \xCA\x72 |0
-<U5366> \xA8\xF6 |0
-<U536C> \xC9\x57 |0
-<U536E> \xA5\x67 |0
-<U536F> \xA5\x66 |0
-<U5370> \xA6\x4C |0
-<U5371> \xA6\x4D |0
-<U5372> \xCA\x73 |0
-<U5373> \xA7\x59 |0
-<U5375> \xA7\x5A |0
-<U5377> \xA8\xF7 |0
-<U5378> \xA8\xF8 |0
-<U5379> \xA8\xF9 |0
-<U537B> \xAB\x6F |0
-<U537C> \xCD\xF5 |0
-<U537F> \xAD\xEB |0
-<U5382> \xC9\x44 |0
-<U5384> \xA4\xCC |0
-<U538A> \xC9\xC4 |0
-<U538E> \xCA\x74 |0
-<U538F> \xCA\x75 |0
-<U5392> \xCB\xD9 |0
-<U5394> \xCB\xDA |0
-<U5396> \xCD\xF7 |0
-<U5397> \xCD\xF6 |0
-<U5398> \xCD\xF9 |0
-<U5399> \xCD\xF8 |0
-<U539A> \xAB\x70 |0
-<U539C> \xD4\x70 |0
-<U539D> \xAD\xED |0
-<U539E> \xD0\xEF |0
-<U539F> \xAD\xEC |0
-<U53A4> \xD8\x64 |0
-<U53A5> \xB3\xD6 |0
-<U53A7> \xD8\x65 |0
-<U53AC> \xE1\x46 |0
-<U53AD> \xB9\xBD |0
-<U53B2> \xBC\x46 |0
-<U53B4> \xF1\xEF |0
-<U53B9> \xC9\x58 |0
-<U53BB> \xA5\x68 |0
-<U53C3> \xB0\xD1 |0
-<U53C8> \xA4\x53 |0
-<U53C9> \xA4\x65 |0
-<U53CA> \xA4\xCE |0
-<U53CB> \xA4\xCD |0
-<U53CD> \xA4\xCF |0
-<U53D4> \xA8\xFB |0
-<U53D6> \xA8\xFA |0
-<U53D7> \xA8\xFC |0
-<U53DB> \xAB\x71 |0
-<U53DF> \xAD\xEE |0
-<U53E1> \xE8\xFB |0
-<U53E2> \xC2\x4F |0
-<U53E3> \xA4\x66 |0
-<U53E4> \xA5\x6A |0
-<U53E5> \xA5\x79 |0
-<U53E6> \xA5\x74 |0
-<U53E8> \xA5\x6F |0
-<U53E9> \xA5\x6E |0
-<U53EA> \xA5\x75 |0
-<U53EB> \xA5\x73 |0
-<U53EC> \xA5\x6C |0
-<U53ED> \xA5\x7A |0
-<U53EE> \xA5\x6D |0
-<U53EF> \xA5\x69 |0
-<U53F0> \xA5\x78 |0
-<U53F1> \xA5\x77 |0
-<U53F2> \xA5\x76 |0
-<U53F3> \xA5\x6B |0
-<U53F5> \xA5\x72 |0
-<U53F8> \xA5\x71 |0
-<U53FB> \xA5\x7B |0
-<U53FC> \xA5\x70 |0
-<U5401> \xA6\x53 |0
-<U5403> \xA6\x59 |0
-<U5404> \xA6\x55 |0
-<U5406> \xA6\x5B |0
-<U5407> \xC9\xC5 |0
-<U5408> \xA6\x58 |0
-<U5409> \xA6\x4E |0
-<U540A> \xA6\x51 |0
-<U540B> \xA6\x54 |0
-<U540C> \xA6\x50 |0
-<U540D> \xA6\x57 |0
-<U540E> \xA6\x5A |0
-<U540F> \xA6\x4F |0
-<U5410> \xA6\x52 |0
-<U5411> \xA6\x56 |0
-<U5412> \xA6\x5C |0
-<U5418> \xCA\x7E |0
-<U5419> \xCA\x7B |0
-<U541B> \xA7\x67 |0
-<U541C> \xCA\x7C |0
-<U541D> \xA7\x5B |0
-<U541E> \xA7\x5D |0
-<U541F> \xA7\x75 |0
-<U5420> \xA7\x70 |0
-<U5424> \xCA\xA5 |0
-<U5425> \xCA\x7D |0
-<U5426> \xA7\x5F |0
-<U5427> \xA7\x61 |0
-<U5428> \xCA\xA4 |0
-<U5429> \xA7\x68 |0
-<U542A> \xCA\x78 |0
-<U542B> \xA7\x74 |0
-<U542C> \xA7\x76 |0
-<U542D> \xA7\x5C |0
-<U542E> \xA7\x6D |0
-<U5430> \xCA\x76 |0
-<U5431> \xA7\x73 |0
-<U5433> \xA7\x64 |0
-<U5435> \xA7\x6E |0
-<U5436> \xA7\x6F |0
-<U5437> \xCA\x77 |0
-<U5438> \xA7\x6C |0
-<U5439> \xA7\x6A |0
-<U543B> \xA7\x6B |0
-<U543C> \xA7\x71 |0
-<U543D> \xCA\xA1 |0
-<U543E> \xA7\x5E |0
-<U5440> \xA7\x72 |0
-<U5441> \xCA\xA3 |0
-<U5442> \xA7\x66 |0
-<U5443> \xA7\x63 |0
-<U5445> \xCA\x7A |0
-<U5446> \xA7\x62 |0
-<U5447> \xCA\xA6 |0
-<U5448> \xA7\x65 |0
-<U544A> \xA7\x69 |0
-<U544E> \xA7\x60 |0
-<U544F> \xCA\xA2 |0
-<U5454> \xCA\x79 |0
-<U5460> \xCB\xEB |0
-<U5461> \xCB\xEA |0
-<U5462> \xA9\x4F |0
-<U5463> \xCB\xED |0
-<U5464> \xCB\xEF |0
-<U5465> \xCB\xE4 |0
-<U5466> \xCB\xE7 |0
-<U5467> \xCB\xEE |0
-<U5468> \xA9\x50 |0
-<U546B> \xCB\xE1 |0
-<U546C> \xCB\xE5 |0
-<U546F> \xCB\xE9 |0
-<U5470> \xCE\x49 |0
-<U5471> \xA9\x4B |0
-<U5472> \xCE\x4D |0
-<U5473> \xA8\xFD |0
-<U5474> \xCB\xE6 |0
-<U5475> \xA8\xFE |0
-<U5476> \xA9\x4C |0
-<U5477> \xA9\x45 |0
-<U5478> \xA9\x41 |0
-<U547A> \xCB\xE2 |0
-<U547B> \xA9\x44 |0
-<U547C> \xA9\x49 |0
-<U547D> \xA9\x52 |0
-<U547E> \xCB\xE3 |0
-<U547F> \xCB\xDC |0
-<U5480> \xA9\x43 |0
-<U5481> \xCB\xDD |0
-<U5482> \xCB\xDF |0
-<U5484> \xA9\x46 |0
-<U5486> \xA9\x48 |0
-<U5487> \xCB\xDB |0
-<U5488> \xCB\xE0 |0
-<U548B> \xA9\x51 |0
-<U548C> \xA9\x4D |0
-<U548D> \xCB\xE8 |0
-<U548E> \xA9\x53 |0
-<U5490> \xA9\x4A |0
-<U5491> \xCB\xDE |0
-<U5492> \xA9\x47 |0
-<U5495> \xA9\x42 |0
-<U5496> \xA9\x40 |0
-<U5498> \xCB\xEC |0
-<U549A> \xA9\x4E |0
-<U54A0> \xCE\x48 |0
-<U54A1> \xCD\xFB |0
-<U54A2> \xCE\x4B |0
-<U54A5> \xCD\xFD |0
-<U54A6> \xAB\x78 |0
-<U54A7> \xAB\xA8 |0
-<U54A8> \xAB\x74 |0
-<U54A9> \xAB\xA7 |0
-<U54AA> \xAB\x7D |0
-<U54AB> \xAB\xA4 |0
-<U54AC> \xAB\x72 |0
-<U54AD> \xCD\xFC |0
-<U54AE> \xCE\x43 |0
-<U54AF> \xAB\xA3 |0
-<U54B0> \xCE\x4F |0
-<U54B1> \xAB\xA5 |0
-<U54B3> \xAB\x79 |0
-<U54B6> \xCE\x45 |0
-<U54B7> \xCE\x42 |0
-<U54B8> \xAB\x77 |0
-<U54BA> \xCD\xFA |0
-<U54BB> \xAB\xA6 |0
-<U54BC> \xCE\x4A |0
-<U54BD> \xAB\x7C |0
-<U54BE> \xCE\x4C |0
-<U54BF> \xAB\xA9 |0
-<U54C0> \xAB\x73 |0
-<U54C1> \xAB\x7E |0
-<U54C2> \xAB\x7B |0
-<U54C3> \xCE\x40 |0
-<U54C4> \xAB\xA1 |0
-<U54C5> \xCE\x46 |0
-<U54C6> \xCE\x47 |0
-<U54C7> \xAB\x7A |0
-<U54C8> \xAB\xA2 |0
-<U54C9> \xAB\x76 |0
-<U54CE> \xAB\x75 |0
-<U54CF> \xCD\xFE |0
-<U54D6> \xCE\x44 |0
-<U54DE> \xCE\x4E |0
-<U54E0> \xD1\x44 |0
-<U54E1> \xAD\xFB |0
-<U54E2> \xD0\xF1 |0
-<U54E4> \xD0\xF6 |0
-<U54E5> \xAD\xF4 |0
-<U54E6> \xAE\x40 |0
-<U54E7> \xD0\xF4 |0
-<U54E8> \xAD\xEF |0
-<U54E9> \xAD\xF9 |0
-<U54EA> \xAD\xFE |0
-<U54EB> \xD0\xFB |0
-<U54ED> \xAD\xFA |0
-<U54EE> \xAD\xFD |0
-<U54F1> \xD0\xFE |0
-<U54F2> \xAD\xF5 |0
-<U54F3> \xD0\xF5 |0
-<U54F7> \xD1\x42 |0
-<U54F8> \xD1\x43 |0
-<U54FA> \xAD\xF7 |0
-<U54FB> \xD1\x41 |0
-<U54FC> \xAD\xF3 |0
-<U54FD> \xAE\x43 |0
-<U54FF> \xD0\xF8 |0
-<U5501> \xAD\xF1 |0
-<U5503> \xD1\x46 |0
-<U5504> \xD0\xF9 |0
-<U5505> \xD0\xFD |0
-<U5506> \xAD\xF6 |0
-<U5507> \xAE\x42 |0
-<U5508> \xD0\xFA |0
-<U5509> \xAD\xFC |0
-<U550A> \xD1\x40 |0
-<U550B> \xD1\x47 |0
-<U550C> \xD4\xA1 |0
-<U550E> \xD1\x45 |0
-<U550F> \xAE\x44 |0
-<U5510> \xAD\xF0 |0
-<U5511> \xD0\xFC |0
-<U5512> \xD0\xF3 |0
-<U5514> \xAD\xF8 |0
-<U5517> \xD0\xF2 |0
-<U551A> \xD0\xF7 |0
-<U5526> \xD0\xF0 |0
-<U5527> \xAE\x41 |0
-<U552A> \xD4\x77 |0
-<U552C> \xB0\xE4 |0
-<U552D> \xD4\xA7 |0
-<U552E> \xB0\xE2 |0
-<U552F> \xB0\xDF |0
-<U5530> \xD4\x7C |0
-<U5531> \xB0\xDB |0
-<U5532> \xD4\xA2 |0
-<U5533> \xB0\xE6 |0
-<U5534> \xD4\x76 |0
-<U5535> \xD4\x7B |0
-<U5536> \xD4\x7A |0
-<U5537> \xAD\xF2 |0
-<U5538> \xB0\xE1 |0
-<U5539> \xD4\xA5 |0
-<U553B> \xD4\xA8 |0
-<U553C> \xD4\x73 |0
-<U553E> \xB3\xE8 |0
-<U5540> \xD4\xA9 |0
-<U5541> \xB0\xE7 |0
-<U5543> \xB0\xD9 |0
-<U5544> \xB0\xD6 |0
-<U5545> \xD4\x7E |0
-<U5546> \xB0\xD3 |0
-<U5548> \xD4\xA6 |0
-<U554A> \xB0\xDA |0
-<U554B> \xD4\xAA |0
-<U554D> \xD4\x74 |0
-<U554E> \xD4\xA4 |0
-<U554F> \xB0\xDD |0
-<U5550> \xD4\x75 |0
-<U5551> \xD4\x78 |0
-<U5552> \xD4\x7D |0
-<U5555> \xB0\xDE |0
-<U5556> \xB0\xDC |0
-<U5557> \xB0\xE8 |0
-<U555C> \xB0\xE3 |0
-<U555E> \xB0\xD7 |0
-<U555F> \xB1\xD2 |0
-<U5561> \xB0\xD8 |0
-<U5562> \xD4\x79 |0
-<U5563> \xB0\xE5 |0
-<U5564> \xB0\xE0 |0
-<U5565> \xD4\xA3 |0
-<U5566> \xB0\xD5 |0
-<U556A> \xB0\xD4 |0
-<U5575> \xD4\x71 |0
-<U5576> \xD4\x72 |0
-<U5577> \xD8\x6A |0
-<U557B> \xB3\xD7 |0
-<U557C> \xB3\xDA |0
-<U557D> \xD8\x75 |0
-<U557E> \xB3\xEE |0
-<U557F> \xD8\x78 |0
-<U5580> \xB3\xD8 |0
-<U5581> \xD8\x71 |0
-<U5582> \xB3\xDE |0
-<U5583> \xB3\xE4 |0
-<U5584> \xB5\xBD |0
-<U5587> \xB3\xE2 |0
-<U5588> \xD8\x6E |0
-<U5589> \xB3\xEF |0
-<U558A> \xB3\xDB |0
-<U558B> \xB3\xE3 |0
-<U558C> \xD8\x76 |0
-<U558D> \xDC\xD7 |0
-<U558E> \xD8\x7B |0
-<U558F> \xD8\x6F |0
-<U5591> \xD8\x66 |0
-<U5592> \xD8\x73 |0
-<U5593> \xD8\x6D |0
-<U5594> \xB3\xE1 |0
-<U5595> \xD8\x79 |0
-<U5598> \xB3\xDD |0
-<U5599> \xB3\xF1 |0
-<U559A> \xB3\xEA |0
-<U559C> \xB3\xDF |0
-<U559D> \xB3\xDC |0
-<U559F> \xB3\xE7 |0
-<U55A1> \xD8\x7A |0
-<U55A2> \xD8\x6C |0
-<U55A3> \xD8\x72 |0
-<U55A4> \xD8\x74 |0
-<U55A5> \xD8\x68 |0
-<U55A6> \xD8\x77 |0
-<U55A7> \xB3\xD9 |0
-<U55A8> \xD8\x67 |0
-<U55AA> \xB3\xE0 |0
-<U55AB> \xB3\xF0 |0
-<U55AC> \xB3\xEC |0
-<U55AD> \xD8\x69 |0
-<U55AE> \xB3\xE6 |0
-<U55B1> \xB3\xED |0
-<U55B2> \xB3\xE9 |0
-<U55B3> \xB3\xE5 |0
-<U55B5> \xD8\x70 |0
-<U55BB> \xB3\xEB |0
-<U55BF> \xDC\xD5 |0
-<U55C0> \xDC\xD1 |0
-<U55C2> \xDC\xE0 |0
-<U55C3> \xDC\xCA |0
-<U55C4> \xDC\xD3 |0
-<U55C5> \xB6\xE5 |0
-<U55C6> \xB6\xE6 |0
-<U55C7> \xB6\xDE |0
-<U55C8> \xDC\xDC |0
-<U55C9> \xB6\xE8 |0
-<U55CA> \xDC\xCF |0
-<U55CB> \xDC\xCE |0
-<U55CC> \xDC\xCC |0
-<U55CD> \xDC\xDE |0
-<U55CE> \xB6\xDC |0
-<U55CF> \xDC\xD8 |0
-<U55D0> \xDC\xCD |0
-<U55D1> \xB6\xDF |0
-<U55D2> \xDC\xD6 |0
-<U55D3> \xB6\xDA |0
-<U55D4> \xDC\xD2 |0
-<U55D5> \xDC\xD9 |0
-<U55D6> \xDC\xDB |0
-<U55D9> \xDC\xDF |0
-<U55DA> \xB6\xE3 |0
-<U55DB> \xDC\xCB |0
-<U55DC> \xB6\xDD |0
-<U55DD> \xDC\xD0 |0
-<U55DF> \xB6\xD8 |0
-<U55E1> \xB6\xE4 |0
-<U55E2> \xDC\xDA |0
-<U55E3> \xB6\xE0 |0
-<U55E4> \xB6\xE1 |0
-<U55E5> \xB6\xE7 |0
-<U55E6> \xB6\xDB |0
-<U55E7> \xA2\x5F |0
-<U55E8> \xB6\xD9 |0
-<U55E9> \xDC\xD4 |0
-<U55EF> \xB6\xE2 |0
-<U55F2> \xDC\xDD |0
-<U55F6> \xB9\xCD |0
-<U55F7> \xB9\xC8 |0
-<U55F9> \xE1\x55 |0
-<U55FA> \xE1\x51 |0
-<U55FC> \xE1\x4B |0
-<U55FD> \xB9\xC2 |0
-<U55FE> \xB9\xBE |0
-<U55FF> \xE1\x54 |0
-<U5600> \xB9\xBF |0
-<U5601> \xE1\x4E |0
-<U5602> \xE1\x50 |0
-<U5604> \xE1\x53 |0
-<U5606> \xB9\xC4 |0
-<U5608> \xB9\xCB |0
-<U5609> \xB9\xC5 |0
-<U560C> \xE1\x49 |0
-<U560D> \xB9\xC6 |0
-<U560E> \xB9\xC7 |0
-<U560F> \xE1\x4C |0
-<U5610> \xB9\xCC |0
-<U5612> \xE1\x4A |0
-<U5613> \xE1\x4F |0
-<U5614> \xB9\xC3 |0
-<U5615> \xE1\x48 |0
-<U5616> \xB9\xC9 |0
-<U5617> \xB9\xC1 |0
-<U561B> \xB9\xC0 |0
-<U561C> \xE1\x4D |0
-<U561D> \xE1\x52 |0
-<U561F> \xB9\xCA |0
-<U5627> \xE1\x47 |0
-<U5629> \xBC\x4D |0
-<U562A> \xE5\x47 |0
-<U562C> \xE5\x44 |0
-<U562E> \xBC\x47 |0
-<U562F> \xBC\x53 |0
-<U5630> \xBC\x54 |0
-<U5632> \xBC\x4A |0
-<U5633> \xE5\x42 |0
-<U5634> \xBC\x4C |0
-<U5635> \xE4\xF9 |0
-<U5636> \xBC\x52 |0
-<U5638> \xE5\x46 |0
-<U5639> \xBC\x49 |0
-<U563A> \xE5\x48 |0
-<U563B> \xBC\x48 |0
-<U563D> \xE5\x43 |0
-<U563E> \xE5\x45 |0
-<U563F> \xBC\x4B |0
-<U5640> \xE5\x41 |0
-<U5641> \xE4\xFA |0
-<U5642> \xE4\xF7 |0
-<U5645> \xD8\x6B |0
-<U5646> \xE4\xFD |0
-<U5648> \xE4\xF6 |0
-<U5649> \xE4\xFC |0
-<U564A> \xE4\xFB |0
-<U564C> \xE4\xF8 |0
-<U564E> \xBC\x4F |0
-<U5653> \xBC\x4E |0
-<U5657> \xBC\x50 |0
-<U5658> \xE4\xFE |0
-<U5659> \xBE\xB2 |0
-<U565A> \xE5\x40 |0
-<U565E> \xE9\x45 |0
-<U5660> \xE8\xFD |0
-<U5662> \xBE\xBE |0
-<U5663> \xE9\x42 |0
-<U5664> \xBE\xB6 |0
-<U5665> \xBE\xBA |0
-<U5666> \xE9\x41 |0
-<U5668> \xBE\xB9 |0
-<U5669> \xBE\xB5 |0
-<U566A> \xBE\xB8 |0
-<U566B> \xBE\xB3 |0
-<U566C> \xBE\xBD |0
-<U566D> \xE9\x43 |0
-<U566E> \xE8\xFE |0
-<U566F> \xBE\xBC |0
-<U5670> \xE8\xFC |0
-<U5671> \xBE\xBB |0
-<U5672> \xE9\x44 |0
-<U5673> \xE9\x40 |0
-<U5674> \xBC\x51 |0
-<U5676> \xBE\xBF |0
-<U5677> \xE9\x46 |0
-<U5678> \xBE\xB7 |0
-<U5679> \xBE\xB4 |0
-<U567E> \xEC\xC6 |0
-<U567F> \xEC\xC8 |0
-<U5680> \xC0\x7B |0
-<U5681> \xEC\xC9 |0
-<U5682> \xEC\xC7 |0
-<U5683> \xEC\xC5 |0
-<U5684> \xEC\xC4 |0
-<U5685> \xC0\x7D |0
-<U5686> \xEC\xC3 |0
-<U5687> \xC0\x7E |0
-<U568C> \xEC\xC1 |0
-<U568D> \xEC\xC2 |0
-<U568E> \xC0\x7A |0
-<U568F> \xC0\xA1 |0
-<U5690> \xC0\x7C |0
-<U5693> \xEC\xC0 |0
-<U5695> \xC2\x50 |0
-<U5697> \xEF\xBC |0
-<U5698> \xEF\xBA |0
-<U5699> \xEF\xBF |0
-<U569A> \xEF\xBD |0
-<U569C> \xEF\xBB |0
-<U569D> \xEF\xBE |0
-<U56A5> \xC3\x60 |0
-<U56A6> \xF1\xF2 |0
-<U56A7> \xF1\xF3 |0
-<U56A8> \xC4\x56 |0
-<U56AA> \xF1\xF4 |0
-<U56AB> \xF1\xF0 |0
-<U56AC> \xF1\xF5 |0
-<U56AD> \xF1\xF1 |0
-<U56AE> \xC2\x51 |0
-<U56B2> \xF3\xFE |0
-<U56B3> \xF4\x41 |0
-<U56B4> \xC4\x59 |0
-<U56B5> \xF4\x40 |0
-<U56B6> \xC4\x58 |0
-<U56B7> \xC4\x57 |0
-<U56BC> \xC4\x5A |0
-<U56BD> \xF5\xC5 |0
-<U56BE> \xF5\xC6 |0
-<U56C0> \xC4\xDA |0
-<U56C1> \xC4\xD9 |0
-<U56C2> \xC4\xDB |0
-<U56C3> \xF5\xC4 |0
-<U56C5> \xF6\xD8 |0
-<U56C6> \xF6\xD7 |0
-<U56C8> \xC5\x6D |0
-<U56C9> \xC5\x6F |0
-<U56CA> \xC5\x6E |0
-<U56CB> \xF6\xD9 |0
-<U56CC> \xC5\xC8 |0
-<U56CD> \xF8\xA6 |0
-<U56D1> \xC5\xF1 |0
-<U56D3> \xF8\xA5 |0
-<U56D4> \xF8\xEE |0
-<U56D7> \xC9\x49 |0
-<U56DA> \xA5\x7D |0
-<U56DB> \xA5\x7C |0
-<U56DD> \xA6\x5F |0
-<U56DE> \xA6\x5E |0
-<U56DF> \xC9\xC7 |0
-<U56E0> \xA6\x5D |0
-<U56E1> \xC9\xC6 |0
-<U56E4> \xA7\x79 |0
-<U56E5> \xCA\xA9 |0
-<U56E7> \xCA\xA8 |0
-<U56EA> \xA7\x77 |0
-<U56EB> \xA7\x7A |0
-<U56EE> \xCA\xA7 |0
-<U56F0> \xA7\x78 |0
-<U56F7> \xCB\xF0 |0
-<U56F9> \xCB\xF1 |0
-<U56FA> \xA9\x54 |0
-<U56FF> \xAB\xAA |0
-<U5701> \xD1\x48 |0
-<U5702> \xD1\x49 |0
-<U5703> \xAE\x45 |0
-<U5704> \xAE\x46 |0
-<U5707> \xD4\xAC |0
-<U5708> \xB0\xE9 |0
-<U5709> \xB0\xEB |0
-<U570A> \xD4\xAB |0
-<U570B> \xB0\xEA |0
-<U570C> \xD8\x7C |0
-<U570D> \xB3\xF2 |0
-<U5712> \xB6\xE9 |0
-<U5713> \xB6\xEA |0
-<U5714> \xDC\xE1 |0
-<U5716> \xB9\xCF |0
-<U5718> \xB9\xCE |0
-<U571A> \xE5\x49 |0
-<U571B> \xE9\x48 |0
-<U571C> \xE9\x47 |0
-<U571E> \xF9\x6B |0
-<U571F> \xA4\x67 |0
-<U5720> \xC9\x59 |0
-<U5722> \xC9\x6E |0
-<U5723> \xC9\x6F |0
-<U5728> \xA6\x62 |0
-<U5729> \xA6\x66 |0
-<U572A> \xC9\xC9 |0
-<U572C> \xA6\x64 |0
-<U572D> \xA6\x63 |0
-<U572E> \xC9\xC8 |0
-<U572F> \xA6\x65 |0
-<U5730> \xA6\x61 |0
-<U5733> \xA6\x60 |0
-<U5734> \xC9\xCA |0
-<U573B> \xA7\xA6 |0
-<U573E> \xA7\xA3 |0
-<U5740> \xA7\x7D |0
-<U5741> \xCA\xAA |0
-<U5745> \xCA\xAB |0
-<U5747> \xA7\xA1 |0
-<U5749> \xCA\xAD |0
-<U574A> \xA7\x7B |0
-<U574B> \xCA\xAE |0
-<U574C> \xCA\xAC |0
-<U574D> \xA7\x7E |0
-<U574E> \xA7\xA2 |0
-<U574F> \xA7\xA5 |0
-<U5750> \xA7\xA4 |0
-<U5751> \xA7\x7C |0
-<U5752> \xCA\xAF |0
-<U5761> \xA9\x59 |0
-<U5762> \xCB\xFE |0
-<U5764> \xA9\x5B |0
-<U5766> \xA9\x5A |0
-<U5768> \xCC\x40 |0
-<U5769> \xA9\x58 |0
-<U576A> \xA9\x57 |0
-<U576B> \xCB\xF5 |0
-<U576D> \xCB\xF4 |0
-<U576F> \xCB\xF2 |0
-<U5770> \xCB\xF7 |0
-<U5771> \xCB\xF6 |0
-<U5772> \xCB\xF3 |0
-<U5773> \xCB\xFC |0
-<U5774> \xCB\xFD |0
-<U5775> \xCB\xFA |0
-<U5776> \xCB\xF8 |0
-<U5777> \xA9\x56 |0
-<U577B> \xCB\xFB |0
-<U577C> \xA9\x5C |0
-<U577D> \xCC\x41 |0
-<U5780> \xCB\xF9 |0
-<U5782> \xAB\xAB |0
-<U5783> \xA9\x55 |0
-<U578B> \xAB\xAC |0
-<U578C> \xCE\x54 |0
-<U578F> \xCE\x5A |0
-<U5793> \xAB\xB2 |0
-<U5794> \xCE\x58 |0
-<U5795> \xCE\x5E |0
-<U5797> \xCE\x55 |0
-<U5798> \xCE\x59 |0
-<U5799> \xCE\x5B |0
-<U579A> \xCE\x5D |0
-<U579B> \xCE\x57 |0
-<U579D> \xCE\x56 |0
-<U579E> \xCE\x51 |0
-<U579F> \xCE\x52 |0
-<U57A0> \xAB\xAD |0
-<U57A2> \xAB\xAF |0
-<U57A3> \xAB\xAE |0
-<U57A4> \xCE\x53 |0
-<U57A5> \xCE\x5C |0
-<U57AE> \xAB\xB1 |0
-<U57B5> \xCE\x50 |0
-<U57B6> \xD1\x53 |0
-<U57B8> \xD1\x52 |0
-<U57B9> \xD1\x57 |0
-<U57BA> \xD1\x4E |0
-<U57BC> \xD1\x51 |0
-<U57BD> \xD1\x50 |0
-<U57BF> \xD1\x54 |0
-<U57C1> \xD1\x58 |0
-<U57C2> \xAE\x47 |0
-<U57C3> \xAE\x4A |0
-<U57C6> \xD1\x4F |0
-<U57C7> \xD1\x55 |0
-<U57CB> \xAE\x49 |0
-<U57CC> \xD1\x4A |0
-<U57CE> \xAB\xB0 |0
-<U57CF> \xD4\xBA |0
-<U57D0> \xD1\x56 |0
-<U57D2> \xD1\x4D |0
-<U57D4> \xAE\x48 |0
-<U57D5> \xD1\x4C |0
-<U57DC> \xD4\xB1 |0
-<U57DF> \xB0\xEC |0
-<U57E0> \xB0\xF0 |0
-<U57E1> \xD4\xC1 |0
-<U57E2> \xD4\xAF |0
-<U57E3> \xD4\xBD |0
-<U57E4> \xB0\xF1 |0
-<U57E5> \xD4\xBF |0
-<U57E7> \xD4\xC5 |0
-<U57E9> \xD4\xC9 |0
-<U57EC> \xD4\xC0 |0
-<U57ED> \xD4\xB4 |0
-<U57EE> \xD4\xBC |0
-<U57F0> \xD4\xCA |0
-<U57F1> \xD4\xC8 |0
-<U57F2> \xD4\xBE |0
-<U57F3> \xD4\xB9 |0
-<U57F4> \xD4\xB2 |0
-<U57F5> \xD8\xA6 |0
-<U57F6> \xD4\xB0 |0
-<U57F7> \xB0\xF5 |0
-<U57F8> \xD4\xB7 |0
-<U57F9> \xB0\xF6 |0
-<U57FA> \xB0\xF2 |0
-<U57FB> \xD4\xAD |0
-<U57FC> \xD4\xC3 |0
-<U57FD> \xD4\xB5 |0
-<U5800> \xD4\xB3 |0
-<U5801> \xD4\xC6 |0
-<U5802> \xB0\xF3 |0
-<U5804> \xD4\xCC |0
-<U5805> \xB0\xED |0
-<U5806> \xB0\xEF |0
-<U5807> \xD4\xBB |0
-<U5808> \xD4\xB6 |0
-<U5809> \xAE\x4B |0
-<U580A> \xB0\xEE |0
-<U580B> \xD4\xB8 |0
-<U580C> \xD4\xC7 |0
-<U580D> \xD4\xCB |0
-<U580E> \xD4\xC2 |0
-<U5810> \xD4\xC4 |0
-<U5814> \xD4\xAE |0
-<U5819> \xD8\xA1 |0
-<U581B> \xD8\xAA |0
-<U581C> \xD8\xA9 |0
-<U581D> \xB3\xFA |0
-<U581E> \xD8\xA2 |0
-<U5820> \xB3\xFB |0
-<U5821> \xB3\xF9 |0
-<U5823> \xD8\xA4 |0
-<U5824> \xB3\xF6 |0
-<U5825> \xD8\xA8 |0
-<U5827> \xD8\xA3 |0
-<U5828> \xD8\xA5 |0
-<U5829> \xD8\x7D |0
-<U582A> \xB3\xF4 |0
-<U582C> \xD8\xB2 |0
-<U582D> \xD8\xB1 |0
-<U582E> \xD8\xAE |0
-<U582F> \xB3\xF3 |0
-<U5830> \xB3\xF7 |0
-<U5831> \xB3\xF8 |0
-<U5832> \xD1\x4B |0
-<U5833> \xD8\xAB |0
-<U5834> \xB3\xF5 |0
-<U5835> \xB0\xF4 |0
-<U5836> \xD8\xAD |0
-<U5837> \xD8\x7E |0
-<U5838> \xD8\xB0 |0
-<U5839> \xD8\xAF |0
-<U583B> \xD8\xB3 |0
-<U583D> \xDC\xEF |0
-<U583F> \xD8\xAC |0
-<U5848> \xD8\xA7 |0
-<U5849> \xDC\xE7 |0
-<U584A> \xB6\xF4 |0
-<U584B> \xB6\xF7 |0
-<U584C> \xB6\xF2 |0
-<U584D> \xDC\xE6 |0
-<U584E> \xDC\xEA |0
-<U584F> \xDC\xE5 |0
-<U5851> \xB6\xEC |0
-<U5852> \xB6\xF6 |0
-<U5853> \xDC\xE2 |0
-<U5854> \xB6\xF0 |0
-<U5855> \xDC\xE9 |0
-<U5857> \xB6\xEE |0
-<U5858> \xB6\xED |0
-<U5859> \xDC\xEC |0
-<U585A> \xB6\xEF |0
-<U585B> \xDC\xEE |0
-<U585D> \xDC\xEB |0
-<U585E> \xB6\xEB |0
-<U5862> \xB6\xF5 |0
-<U5863> \xDC\xF0 |0
-<U5864> \xDC\xE4 |0
-<U5865> \xDC\xED |0
-<U5868> \xDC\xE3 |0
-<U586B> \xB6\xF1 |0
-<U586D> \xB6\xF3 |0
-<U586F> \xDC\xE8 |0
-<U5871> \xDC\xF1 |0
-<U5874> \xE1\x5D |0
-<U5875> \xB9\xD0 |0
-<U5876> \xE1\x63 |0
-<U5879> \xB9\xD5 |0
-<U587A> \xE1\x5F |0
-<U587B> \xE1\x66 |0
-<U587C> \xE1\x57 |0
-<U587D> \xB9\xD7 |0
-<U587E> \xB9\xD1 |0
-<U587F> \xE1\x5C |0
-<U5880> \xBC\x55 |0
-<U5881> \xE1\x5B |0
-<U5882> \xE1\x64 |0
-<U5883> \xB9\xD2 |0
-<U5885> \xB9\xD6 |0
-<U5886> \xE1\x5A |0
-<U5887> \xE1\x60 |0
-<U5888> \xE1\x65 |0
-<U5889> \xE1\x56 |0
-<U588A> \xB9\xD4 |0
-<U588B> \xE1\x5E |0
-<U588E> \xE1\x62 |0
-<U588F> \xE1\x68 |0
-<U5890> \xE1\x58 |0
-<U5891> \xE1\x61 |0
-<U5893> \xB9\xD3 |0
-<U5894> \xE1\x67 |0
-<U5898> \xE1\x59 |0
-<U589C> \xBC\x59 |0
-<U589D> \xE5\x4B |0
-<U589E> \xBC\x57 |0
-<U589F> \xBC\x56 |0
-<U58A0> \xE5\x4D |0
-<U58A1> \xE5\x52 |0
-<U58A3> \xE5\x4E |0
-<U58A5> \xE5\x51 |0
-<U58A6> \xBC\x5C |0
-<U58A8> \xBE\xA5 |0
-<U58A9> \xBC\x5B |0
-<U58AB> \xE5\x4A |0
-<U58AC> \xE5\x50 |0
-<U58AE> \xBC\x5A |0
-<U58AF> \xE5\x4F |0
-<U58B1> \xE5\x4C |0
-<U58B3> \xBC\x58 |0
-<U58BA> \xE9\x4D |0
-<U58BB> \xF9\xD9 |0
-<U58BC> \xE9\x4F |0
-<U58BD> \xE9\x4A |0
-<U58BE> \xBE\xC1 |0
-<U58BF> \xE9\x4C |0
-<U58C1> \xBE\xC0 |0
-<U58C2> \xE9\x4E |0
-<U58C5> \xBE\xC3 |0
-<U58C6> \xE9\x50 |0
-<U58C7> \xBE\xC2 |0
-<U58C8> \xE9\x49 |0
-<U58C9> \xE9\x4B |0
-<U58CE> \xC0\xA5 |0
-<U58CF> \xEC\xCC |0
-<U58D1> \xC0\xA4 |0
-<U58D2> \xEC\xCD |0
-<U58D3> \xC0\xA3 |0
-<U58D4> \xEC\xCB |0
-<U58D5> \xC0\xA2 |0
-<U58D6> \xEC\xCA |0
-<U58D8> \xC2\x53 |0
-<U58D9> \xC2\x52 |0
-<U58DA> \xF1\xF6 |0
-<U58DB> \xF1\xF8 |0
-<U58DD> \xF1\xF7 |0
-<U58DE> \xC3\x61 |0
-<U58DF> \xC3\x62 |0
-<U58E2> \xC3\x63 |0
-<U58E3> \xF4\x42 |0
-<U58E4> \xC4\x5B |0
-<U58E7> \xF7\xD3 |0
-<U58E8> \xF7\xD2 |0
-<U58E9> \xC5\xF2 |0
-<U58EB> \xA4\x68 |0
-<U58EC> \xA4\xD0 |0
-<U58EF> \xA7\xA7 |0
-<U58F4> \xCE\x5F |0
-<U58F9> \xB3\xFC |0
-<U58FA> \xB3\xFD |0
-<U58FC> \xDC\xF2 |0
-<U58FD> \xB9\xD8 |0
-<U58FE> \xE1\x69 |0
-<U58FF> \xE5\x53 |0
-<U5903> \xC9\x5A |0
-<U5906> \xCA\xB0 |0
-<U590C> \xCC\x42 |0
-<U590D> \xCE\x60 |0
-<U590E> \xD1\x59 |0
-<U590F> \xAE\x4C |0
-<U5912> \xF1\xF9 |0
-<U5914> \xC4\xDC |0
-<U5915> \xA4\x69 |0
-<U5916> \xA5\x7E |0
-<U5917> \xC9\x70 |0
-<U5919> \xA6\x67 |0
-<U591A> \xA6\x68 |0
-<U591C> \xA9\x5D |0
-<U5920> \xB0\xF7 |0
-<U5922> \xB9\xDA |0
-<U5924> \xB9\xDB |0
-<U5925> \xB9\xD9 |0
-<U5927> \xA4\x6A |0
-<U5929> \xA4\xD1 |0
-<U592A> \xA4\xD3 |0
-<U592B> \xA4\xD2 |0
-<U592C> \xC9\x5B |0
-<U592D> \xA4\xD4 |0
-<U592E> \xA5\xA1 |0
-<U592F> \xC9\x71 |0
-<U5931> \xA5\xA2 |0
-<U5937> \xA6\x69 |0
-<U5938> \xA6\x6A |0
-<U593C> \xC9\xCB |0
-<U593E> \xA7\xA8 |0
-<U5940> \xCA\xB1 |0
-<U5944> \xA9\x61 |0
-<U5945> \xCC\x43 |0
-<U5947> \xA9\x5F |0
-<U5948> \xA9\x60 |0
-<U5949> \xA9\x5E |0
-<U594A> \xD1\x5A |0
-<U594E> \xAB\xB6 |0
-<U594F> \xAB\xB5 |0
-<U5950> \xAB\xB7 |0
-<U5951> \xAB\xB4 |0
-<U5953> \xCE\x61 |0
-<U5954> \xA9\x62 |0
-<U5955> \xAB\xB3 |0
-<U5957> \xAE\x4D |0
-<U5958> \xAE\x4E |0
-<U595A> \xAE\x4F |0
-<U595C> \xD4\xCD |0
-<U5960> \xB3\xFE |0
-<U5961> \xD8\xB4 |0
-<U5962> \xB0\xF8 |0
-<U5967> \xB6\xF8 |0
-<U5969> \xB9\xDD |0
-<U596A> \xB9\xDC |0
-<U596B> \xE1\x6A |0
-<U596D> \xBC\x5D |0
-<U596E> \xBE\xC4 |0
-<U5970> \xEF\xC0 |0
-<U5971> \xF6\xDA |0
-<U5972> \xF7\xD4 |0
-<U5973> \xA4\x6B |0
-<U5974> \xA5\xA3 |0
-<U5976> \xA5\xA4 |0
-<U5977> \xC9\xD1 |0
-<U5978> \xA6\x6C |0
-<U5979> \xA6\x6F |0
-<U597B> \xC9\xCF |0
-<U597C> \xC9\xCD |0
-<U597D> \xA6\x6E |0
-<U597E> \xC9\xD0 |0
-<U597F> \xC9\xD2 |0
-<U5980> \xC9\xCC |0
-<U5981> \xA6\x71 |0
-<U5982> \xA6\x70 |0
-<U5983> \xA6\x6D |0
-<U5984> \xA6\x6B |0
-<U5985> \xC9\xCE |0
-<U598A> \xA7\xB3 |0
-<U598D> \xA7\xB0 |0
-<U598E> \xCA\xB6 |0
-<U598F> \xCA\xB9 |0
-<U5990> \xCA\xB8 |0
-<U5992> \xA7\xAA |0
-<U5993> \xA7\xB2 |0
-<U5996> \xA7\xAF |0
-<U5997> \xCA\xB5 |0
-<U5998> \xCA\xB3 |0
-<U5999> \xA7\xAE |0
-<U599D> \xA7\xA9 |0
-<U599E> \xA7\xAC |0
-<U59A0> \xCA\xB4 |0
-<U59A1> \xCA\xBB |0
-<U59A2> \xCA\xB7 |0
-<U59A3> \xA7\xAD |0
-<U59A4> \xA7\xB1 |0
-<U59A5> \xA7\xB4 |0
-<U59A6> \xCA\xB2 |0
-<U59A7> \xCA\xBA |0
-<U59A8> \xA7\xAB |0
-<U59AE> \xA9\x67 |0
-<U59AF> \xA9\x6F |0
-<U59B1> \xCC\x4F |0
-<U59B2> \xCC\x48 |0
-<U59B3> \xA9\x70 |0
-<U59B4> \xCC\x53 |0
-<U59B5> \xCC\x44 |0
-<U59B6> \xCC\x4B |0
-<U59B9> \xA9\x66 |0
-<U59BA> \xCC\x45 |0
-<U59BB> \xA9\x64 |0
-<U59BC> \xCC\x4C |0
-<U59BD> \xCC\x50 |0
-<U59BE> \xA9\x63 |0
-<U59C0> \xCC\x51 |0
-<U59C1> \xCC\x4A |0
-<U59C3> \xCC\x4D |0
-<U59C5> \xA9\x72 |0
-<U59C6> \xA9\x69 |0
-<U59C7> \xCC\x54 |0
-<U59C8> \xCC\x52 |0
-<U59CA> \xA9\x6E |0
-<U59CB> \xA9\x6C |0
-<U59CC> \xCC\x49 |0
-<U59CD> \xA9\x6B |0
-<U59CE> \xCC\x47 |0
-<U59CF> \xCC\x46 |0
-<U59D0> \xA9\x6A |0
-<U59D1> \xA9\x68 |0
-<U59D2> \xA9\x71 |0
-<U59D3> \xA9\x6D |0
-<U59D4> \xA9\x65 |0
-<U59D6> \xCC\x4E |0
-<U59D8> \xAB\xB9 |0
-<U59DA> \xAB\xC0 |0
-<U59DB> \xCE\x6F |0
-<U59DC> \xAB\xB8 |0
-<U59DD> \xCE\x67 |0
-<U59DE> \xCE\x63 |0
-<U59E0> \xCE\x73 |0
-<U59E1> \xCE\x62 |0
-<U59E3> \xAB\xBB |0
-<U59E4> \xCE\x6C |0
-<U59E5> \xAB\xBE |0
-<U59E6> \xAB\xC1 |0
-<U59E8> \xAB\xBC |0
-<U59E9> \xCE\x70 |0
-<U59EA> \xAB\xBF |0
-<U59EC> \xAE\x56 |0
-<U59ED> \xCE\x76 |0
-<U59EE> \xCE\x64 |0
-<U59F1> \xCE\x66 |0
-<U59F2> \xCE\x6D |0
-<U59F3> \xCE\x71 |0
-<U59F4> \xCE\x75 |0
-<U59F5> \xCE\x72 |0
-<U59F6> \xCE\x6B |0
-<U59F7> \xCE\x6E |0
-<U59FA> \xCE\x68 |0
-<U59FB> \xAB\xC3 |0
-<U59FC> \xCE\x6A |0
-<U59FD> \xCE\x69 |0
-<U59FE> \xCE\x74 |0
-<U59FF> \xAB\xBA |0
-<U5A00> \xCE\x65 |0
-<U5A01> \xAB\xC2 |0
-<U5A03> \xAB\xBD |0
-<U5A09> \xAE\x5C |0
-<U5A0A> \xD1\x62 |0
-<U5A0C> \xAE\x5B |0
-<U5A0F> \xD1\x60 |0
-<U5A11> \xAE\x50 |0
-<U5A13> \xAE\x55 |0
-<U5A15> \xD1\x5F |0
-<U5A16> \xD1\x5C |0
-<U5A17> \xD1\x61 |0
-<U5A18> \xAE\x51 |0
-<U5A19> \xD1\x5B |0
-<U5A1B> \xAE\x54 |0
-<U5A1C> \xAE\x52 |0
-<U5A1E> \xD1\x63 |0
-<U5A1F> \xAE\x53 |0
-<U5A20> \xAE\x57 |0
-<U5A23> \xAE\x58 |0
-<U5A25> \xAE\x5A |0
-<U5A29> \xAE\x59 |0
-<U5A2D> \xD1\x5D |0
-<U5A2E> \xD1\x5E |0
-<U5A33> \xD1\x64 |0
-<U5A35> \xD4\xD4 |0
-<U5A36> \xB0\xF9 |0
-<U5A37> \xD8\xC2 |0
-<U5A38> \xD4\xD3 |0
-<U5A39> \xD4\xE6 |0
-<U5A3C> \xB1\x40 |0
-<U5A3E> \xD4\xE4 |0
-<U5A40> \xB0\xFE |0
-<U5A41> \xB0\xFA |0
-<U5A42> \xD4\xED |0
-<U5A43> \xD4\xDD |0
-<U5A44> \xD4\xE0 |0
-<U5A46> \xB1\x43 |0
-<U5A47> \xD4\xEA |0
-<U5A48> \xD4\xE2 |0
-<U5A49> \xB0\xFB |0
-<U5A4A> \xB1\x44 |0
-<U5A4C> \xD4\xE7 |0
-<U5A4D> \xD4\xE5 |0
-<U5A50> \xD4\xD6 |0
-<U5A51> \xD4\xEB |0
-<U5A52> \xD4\xDF |0
-<U5A53> \xD4\xDA |0
-<U5A55> \xD4\xD0 |0
-<U5A56> \xD4\xEC |0
-<U5A57> \xD4\xDC |0
-<U5A58> \xD4\xCF |0
-<U5A5A> \xB1\x42 |0
-<U5A5B> \xD4\xE1 |0
-<U5A5C> \xD4\xEE |0
-<U5A5D> \xD4\xDE |0
-<U5A5E> \xD4\xD2 |0
-<U5A5F> \xD4\xD7 |0
-<U5A60> \xD4\xCE |0
-<U5A62> \xB1\x41 |0
-<U5A64> \xD4\xDB |0
-<U5A65> \xD4\xD8 |0
-<U5A66> \xB0\xFC |0
-<U5A67> \xD4\xD1 |0
-<U5A69> \xD4\xE9 |0
-<U5A6A> \xB0\xFD |0
-<U5A6C> \xD4\xD9 |0
-<U5A6D> \xD4\xD5 |0
-<U5A70> \xD4\xE8 |0
-<U5A77> \xB4\x40 |0
-<U5A78> \xD8\xBB |0
-<U5A7A> \xD8\xB8 |0
-<U5A7B> \xD8\xC9 |0
-<U5A7C> \xD8\xBD |0
-<U5A7D> \xD8\xCA |0
-<U5A7F> \xB4\x42 |0
-<U5A83> \xD8\xC6 |0
-<U5A84> \xD8\xC3 |0
-<U5A8A> \xD8\xC4 |0
-<U5A8B> \xD8\xC7 |0
-<U5A8C> \xD8\xCB |0
-<U5A8E> \xD4\xE3 |0
-<U5A8F> \xD8\xCD |0
-<U5A90> \xDD\x47 |0
-<U5A92> \xB4\x43 |0
-<U5A93> \xD8\xCE |0
-<U5A94> \xD8\xB6 |0
-<U5A95> \xD8\xC0 |0
-<U5A97> \xD8\xC5 |0
-<U5A9A> \xB4\x41 |0
-<U5A9B> \xB4\x44 |0
-<U5A9C> \xD8\xCC |0
-<U5A9D> \xD8\xCF |0
-<U5A9E> \xD8\xBA |0
-<U5A9F> \xD8\xB7 |0
-<U5AA2> \xD8\xB9 |0
-<U5AA5> \xD8\xBE |0
-<U5AA6> \xD8\xBC |0
-<U5AA7> \xB4\x45 |0
-<U5AA9> \xD8\xC8 |0
-<U5AAC> \xD8\xBF |0
-<U5AAE> \xD8\xC1 |0
-<U5AAF> \xD8\xB5 |0
-<U5AB0> \xDC\xFA |0
-<U5AB1> \xDC\xF8 |0
-<U5AB2> \xB7\x42 |0
-<U5AB3> \xB7\x40 |0
-<U5AB4> \xDD\x43 |0
-<U5AB5> \xDC\xF9 |0
-<U5AB6> \xDD\x44 |0
-<U5AB7> \xDD\x40 |0
-<U5AB8> \xDC\xF7 |0
-<U5AB9> \xDD\x46 |0
-<U5ABA> \xDC\xF6 |0
-<U5ABB> \xDC\xFD |0
-<U5ABC> \xB6\xFE |0
-<U5ABD> \xB6\xFD |0
-<U5ABE> \xB6\xFC |0
-<U5ABF> \xDC\xFB |0
-<U5AC0> \xDD\x41 |0
-<U5AC1> \xB6\xF9 |0
-<U5AC2> \xB7\x41 |0
-<U5AC4> \xDC\xF4 |0
-<U5AC6> \xDC\xFE |0
-<U5AC7> \xDC\xF3 |0
-<U5AC8> \xDC\xFC |0
-<U5AC9> \xB6\xFA |0
-<U5ACA> \xDD\x42 |0
-<U5ACB> \xDC\xF5 |0
-<U5ACC> \xB6\xFB |0
-<U5ACD> \xDD\x45 |0
-<U5AD5> \xE1\x6E |0
-<U5AD6> \xB9\xE2 |0
-<U5AD7> \xB9\xE1 |0
-<U5AD8> \xB9\xE3 |0
-<U5AD9> \xE1\x7A |0
-<U5ADA> \xE1\x70 |0
-<U5ADB> \xE1\x76 |0
-<U5ADC> \xE1\x6B |0
-<U5ADD> \xE1\x79 |0
-<U5ADE> \xE1\x78 |0
-<U5ADF> \xE1\x7C |0
-<U5AE0> \xE1\x75 |0
-<U5AE1> \xB9\xDE |0
-<U5AE2> \xE1\x74 |0
-<U5AE3> \xB9\xE4 |0
-<U5AE5> \xE1\x6D |0
-<U5AE6> \xB9\xDF |0
-<U5AE8> \xE1\x7B |0
-<U5AE9> \xB9\xE0 |0
-<U5AEA> \xE1\x6F |0
-<U5AEB> \xE1\x72 |0
-<U5AEC> \xE1\x77 |0
-<U5AED> \xE1\x71 |0
-<U5AEE> \xE1\x6C |0
-<U5AF3> \xE1\x73 |0
-<U5AF4> \xE5\x55 |0
-<U5AF5> \xBC\x61 |0
-<U5AF6> \xE5\x58 |0
-<U5AF7> \xE5\x57 |0
-<U5AF8> \xE5\x5A |0
-<U5AF9> \xE5\x5C |0
-<U5AFA> \xF9\xDC |0
-<U5AFB> \xBC\x5F |0
-<U5AFD> \xE5\x56 |0
-<U5AFF> \xE5\x54 |0
-<U5B01> \xE5\x5D |0
-<U5B02> \xE5\x5B |0
-<U5B03> \xE5\x59 |0
-<U5B05> \xE5\x5F |0
-<U5B07> \xE5\x5E |0
-<U5B08> \xBC\x63 |0
-<U5B09> \xBC\x5E |0
-<U5B0B> \xBC\x60 |0
-<U5B0C> \xBC\x62 |0
-<U5B0F> \xE5\x60 |0
-<U5B10> \xE9\x57 |0
-<U5B13> \xE9\x56 |0
-<U5B14> \xE9\x55 |0
-<U5B16> \xE9\x58 |0
-<U5B17> \xE9\x51 |0
-<U5B19> \xE9\x52 |0
-<U5B1A> \xE9\x5A |0
-<U5B1B> \xE9\x53 |0
-<U5B1D> \xBE\xC5 |0
-<U5B1E> \xE9\x5C |0
-<U5B20> \xE9\x5B |0
-<U5B21> \xE9\x54 |0
-<U5B23> \xEC\xD1 |0
-<U5B24> \xC0\xA8 |0
-<U5B25> \xEC\xCF |0
-<U5B26> \xEC\xD4 |0
-<U5B27> \xEC\xD3 |0
-<U5B28> \xE9\x59 |0
-<U5B2A> \xC0\xA7 |0
-<U5B2C> \xEC\xD2 |0
-<U5B2D> \xEC\xCE |0
-<U5B2E> \xEC\xD6 |0
-<U5B2F> \xEC\xD5 |0
-<U5B30> \xC0\xA6 |0
-<U5B32> \xEC\xD0 |0
-<U5B34> \xBE\xC6 |0
-<U5B38> \xC2\x54 |0
-<U5B3C> \xEF\xC1 |0
-<U5B3D> \xF1\xFA |0
-<U5B3E> \xF1\xFB |0
-<U5B3F> \xF1\xFC |0
-<U5B40> \xC4\x5C |0
-<U5B43> \xC4\x5D |0
-<U5B45> \xF4\x43 |0
-<U5B47> \xF5\xC8 |0
-<U5B48> \xF5\xC7 |0
-<U5B4B> \xF6\xDB |0
-<U5B4C> \xF6\xDC |0
-<U5B4D> \xF7\xD5 |0
-<U5B4E> \xF8\xA7 |0
-<U5B50> \xA4\x6C |0
-<U5B51> \xA4\x6D |0
-<U5B53> \xA4\x6E |0
-<U5B54> \xA4\xD5 |0
-<U5B55> \xA5\xA5 |0
-<U5B56> \xC9\xD3 |0
-<U5B57> \xA6\x72 |0
-<U5B58> \xA6\x73 |0
-<U5B5A> \xA7\xB7 |0
-<U5B5B> \xA7\xB8 |0
-<U5B5C> \xA7\xB6 |0
-<U5B5D> \xA7\xB5 |0
-<U5B5F> \xA9\x73 |0
-<U5B62> \xCC\x55 |0
-<U5B63> \xA9\x75 |0
-<U5B64> \xA9\x74 |0
-<U5B65> \xCC\x56 |0
-<U5B69> \xAB\xC4 |0
-<U5B6B> \xAE\x5D |0
-<U5B6C> \xD1\x65 |0
-<U5B6E> \xD4\xF0 |0
-<U5B70> \xB1\x45 |0
-<U5B71> \xB4\x47 |0
-<U5B72> \xD4\xEF |0
-<U5B73> \xB4\x46 |0
-<U5B75> \xB9\xE5 |0
-<U5B77> \xE1\x7D |0
-<U5B78> \xBE\xC7 |0
-<U5B7A> \xC0\xA9 |0
-<U5B7B> \xEC\xD7 |0
-<U5B7D> \xC4\x5E |0
-<U5B7F> \xC5\x70 |0
-<U5B81> \xC9\x72 |0
-<U5B83> \xA5\xA6 |0
-<U5B84> \xC9\x73 |0
-<U5B85> \xA6\x76 |0
-<U5B87> \xA6\x74 |0
-<U5B88> \xA6\x75 |0
-<U5B89> \xA6\x77 |0
-<U5B8B> \xA7\xBA |0
-<U5B8C> \xA7\xB9 |0
-<U5B8E> \xCA\xBC |0
-<U5B8F> \xA7\xBB |0
-<U5B92> \xCA\xBD |0
-<U5B93> \xCC\x57 |0
-<U5B95> \xCC\x58 |0
-<U5B97> \xA9\x76 |0
-<U5B98> \xA9\x78 |0
-<U5B99> \xA9\x7A |0
-<U5B9A> \xA9\x77 |0
-<U5B9B> \xA9\x7B |0
-<U5B9C> \xA9\x79 |0
-<U5BA2> \xAB\xC8 |0
-<U5BA3> \xAB\xC5 |0
-<U5BA4> \xAB\xC7 |0
-<U5BA5> \xAB\xC9 |0
-<U5BA6> \xAB\xC6 |0
-<U5BA7> \xD1\x66 |0
-<U5BA8> \xCE\x77 |0
-<U5BAC> \xD1\x68 |0
-<U5BAD> \xD1\x67 |0
-<U5BAE> \xAE\x63 |0
-<U5BB0> \xAE\x5F |0
-<U5BB3> \xAE\x60 |0
-<U5BB4> \xAE\x62 |0
-<U5BB5> \xAE\x64 |0
-<U5BB6> \xAE\x61 |0
-<U5BB8> \xAE\x66 |0
-<U5BB9> \xAE\x65 |0
-<U5BBF> \xB1\x4A |0
-<U5BC0> \xD4\xF2 |0
-<U5BC1> \xD4\xF1 |0
-<U5BC2> \xB1\x49 |0
-<U5BC4> \xB1\x48 |0
-<U5BC5> \xB1\x47 |0
-<U5BC6> \xB1\x4B |0
-<U5BC7> \xB1\x46 |0
-<U5BCA> \xD8\xD5 |0
-<U5BCB> \xD8\xD2 |0
-<U5BCC> \xB4\x49 |0
-<U5BCD> \xD8\xD1 |0
-<U5BCE> \xD8\xD6 |0
-<U5BD0> \xB4\x4B |0
-<U5BD1> \xD8\xD4 |0
-<U5BD2> \xB4\x48 |0
-<U5BD3> \xB4\x4A |0
-<U5BD4> \xD8\xD3 |0
-<U5BD6> \xDD\x48 |0
-<U5BD8> \xDD\x49 |0
-<U5BD9> \xDD\x4A |0
-<U5BDE> \xB9\xE6 |0
-<U5BDF> \xB9\xEE |0
-<U5BE0> \xE1\x7E |0
-<U5BE1> \xB9\xE8 |0
-<U5BE2> \xB9\xEC |0
-<U5BE3> \xE1\xA1 |0
-<U5BE4> \xB9\xED |0
-<U5BE5> \xB9\xE9 |0
-<U5BE6> \xB9\xEA |0
-<U5BE7> \xB9\xE7 |0
-<U5BE8> \xB9\xEB |0
-<U5BE9> \xBC\x66 |0
-<U5BEA> \xD8\xD0 |0
-<U5BEB> \xBC\x67 |0
-<U5BEC> \xBC\x65 |0
-<U5BEE> \xBC\x64 |0
-<U5BEF> \xE9\x5D |0
-<U5BF0> \xBE\xC8 |0
-<U5BF1> \xEC\xD8 |0
-<U5BF2> \xEC\xD9 |0
-<U5BF5> \xC3\x64 |0
-<U5BF6> \xC4\x5F |0
-<U5BF8> \xA4\x6F |0
-<U5BFA> \xA6\x78 |0
-<U5C01> \xAB\xCA |0
-<U5C03> \xD1\x69 |0
-<U5C04> \xAE\x67 |0
-<U5C07> \xB1\x4E |0
-<U5C08> \xB1\x4D |0
-<U5C09> \xB1\x4C |0
-<U5C0A> \xB4\x4C |0
-<U5C0B> \xB4\x4D |0
-<U5C0C> \xD8\xD7 |0
-<U5C0D> \xB9\xEF |0
-<U5C0E> \xBE\xC9 |0
-<U5C0F> \xA4\x70 |0
-<U5C10> \xC9\x5C |0
-<U5C11> \xA4\xD6 |0
-<U5C12> \xC9\x74 |0
-<U5C15> \xC9\xD4 |0
-<U5C16> \xA6\x79 |0
-<U5C1A> \xA9\x7C |0
-<U5C1F> \xDD\x4B |0
-<U5C22> \xA4\x71 |0
-<U5C24> \xA4\xD7 |0
-<U5C25> \xC9\xD5 |0
-<U5C28> \xCA\xBE |0
-<U5C2A> \xCA\xBF |0
-<U5C2C> \xA7\xBC |0
-<U5C30> \xD8\xD8 |0
-<U5C31> \xB4\x4E |0
-<U5C33> \xDD\x4C |0
-<U5C37> \xC0\xAA |0
-<U5C38> \xA4\x72 |0
-<U5C39> \xA4\xA8 |0
-<U5C3A> \xA4\xD8 |0
-<U5C3B> \xC9\x75 |0
-<U5C3C> \xA5\xA7 |0
-<U5C3E> \xA7\xC0 |0
-<U5C3F> \xA7\xBF |0
-<U5C40> \xA7\xBD |0
-<U5C41> \xA7\xBE |0
-<U5C44> \xCC\x59 |0
-<U5C45> \xA9\x7E |0
-<U5C46> \xA9\xA1 |0
-<U5C47> \xCC\x5A |0
-<U5C48> \xA9\x7D |0
-<U5C4B> \xAB\xCE |0
-<U5C4C> \xCE\x78 |0
-<U5C4D> \xAB\xCD |0
-<U5C4E> \xAB\xCB |0
-<U5C4F> \xAB\xCC |0
-<U5C50> \xAE\x6A |0
-<U5C51> \xAE\x68 |0
-<U5C54> \xD1\x6B |0
-<U5C55> \xAE\x69 |0
-<U5C56> \xD1\x6A |0
-<U5C58> \xAE\x5E |0
-<U5C59> \xD4\xF3 |0
-<U5C5C> \xB1\x50 |0
-<U5C5D> \xB1\x51 |0
-<U5C60> \xB1\x4F |0
-<U5C62> \xB9\xF0 |0
-<U5C63> \xE1\xA2 |0
-<U5C64> \xBC\x68 |0
-<U5C65> \xBC\x69 |0
-<U5C67> \xE5\x61 |0
-<U5C68> \xC0\xAB |0
-<U5C69> \xEF\xC2 |0
-<U5C6A> \xEF\xC3 |0
-<U5C6C> \xC4\xDD |0
-<U5C6D> \xF8\xA8 |0
-<U5C6E> \xC9\x4B |0
-<U5C6F> \xA4\xD9 |0
-<U5C71> \xA4\x73 |0
-<U5C73> \xC9\x77 |0
-<U5C74> \xC9\x76 |0
-<U5C79> \xA6\x7A |0
-<U5C7A> \xC9\xD7 |0
-<U5C7B> \xC9\xD8 |0
-<U5C7C> \xC9\xD6 |0
-<U5C7E> \xC9\xD9 |0
-<U5C86> \xCA\xC7 |0
-<U5C88> \xCA\xC2 |0
-<U5C89> \xCA\xC4 |0
-<U5C8A> \xCA\xC6 |0
-<U5C8B> \xCA\xC3 |0
-<U5C8C> \xA7\xC4 |0
-<U5C8D> \xCA\xC0 |0
-<U5C8F> \xCA\xC1 |0
-<U5C90> \xA7\xC1 |0
-<U5C91> \xA7\xC2 |0
-<U5C92> \xCA\xC5 |0
-<U5C93> \xCA\xC8 |0
-<U5C94> \xA7\xC3 |0
-<U5C95> \xCA\xC9 |0
-<U5C9D> \xCC\x68 |0
-<U5C9F> \xCC\x62 |0
-<U5CA0> \xCC\x5D |0
-<U5CA1> \xA9\xA3 |0
-<U5CA2> \xCC\x65 |0
-<U5CA3> \xCC\x63 |0
-<U5CA4> \xCC\x5C |0
-<U5CA5> \xCC\x69 |0
-<U5CA6> \xCC\x6C |0
-<U5CA7> \xCC\x67 |0
-<U5CA8> \xCC\x60 |0
-<U5CA9> \xA9\xA5 |0
-<U5CAA> \xCC\x66 |0
-<U5CAB> \xA9\xA6 |0
-<U5CAC> \xCC\x61 |0
-<U5CAD> \xCC\x64 |0
-<U5CAE> \xCC\x5B |0
-<U5CAF> \xCC\x5F |0
-<U5CB0> \xCC\x6B |0
-<U5CB1> \xA9\xA7 |0
-<U5CB3> \xA9\xA8 |0
-<U5CB5> \xCC\x5E |0
-<U5CB6> \xCC\x6A |0
-<U5CB7> \xA9\xA2 |0
-<U5CB8> \xA9\xA4 |0
-<U5CC6> \xCE\xAB |0
-<U5CC7> \xCE\xA4 |0
-<U5CC8> \xCE\xAA |0
-<U5CC9> \xCE\xA3 |0
-<U5CCA> \xCE\xA5 |0
-<U5CCB> \xCE\x7D |0
-<U5CCC> \xCE\x7B |0
-<U5CCE> \xCE\xAC |0
-<U5CCF> \xCE\xA9 |0
-<U5CD0> \xCE\x79 |0
-<U5CD2> \xAB\xD0 |0
-<U5CD3> \xCE\xA7 |0
-<U5CD4> \xCE\xA8 |0
-<U5CD6> \xCE\xA6 |0
-<U5CD7> \xCE\x7C |0
-<U5CD8> \xCE\x7A |0
-<U5CD9> \xAB\xCF |0
-<U5CDA> \xCE\xA2 |0
-<U5CDB> \xCE\x7E |0
-<U5CDE> \xCE\xA1 |0
-<U5CDF> \xCE\xAD |0
-<U5CE8> \xAE\x6F |0
-<U5CEA> \xAE\x6E |0
-<U5CEC> \xD1\x6C |0
-<U5CED> \xAE\x6B |0
-<U5CEE> \xD1\x6E |0
-<U5CF0> \xAE\x70 |0
-<U5CF1> \xD1\x6F |0
-<U5CF4> \xAE\x73 |0
-<U5CF6> \xAE\x71 |0
-<U5CF7> \xD1\x70 |0
-<U5CF8> \xCE\xAE |0
-<U5CF9> \xD1\x72 |0
-<U5CFB> \xAE\x6D |0
-<U5CFD> \xAE\x6C |0
-<U5CFF> \xD1\x6D |0
-<U5D00> \xD1\x71 |0
-<U5D01> \xAE\x72 |0
-<U5D06> \xB1\x53 |0
-<U5D07> \xB1\x52 |0
-<U5D0B> \xD4\xF5 |0
-<U5D0C> \xD4\xF9 |0
-<U5D0D> \xD4\xFB |0
-<U5D0E> \xB1\x54 |0
-<U5D0F> \xD4\xFE |0
-<U5D11> \xB1\x58 |0
-<U5D12> \xD5\x41 |0
-<U5D14> \xB1\x5A |0
-<U5D16> \xB1\x56 |0
-<U5D17> \xB1\x5E |0
-<U5D19> \xB1\x5B |0
-<U5D1A> \xD4\xF7 |0
-<U5D1B> \xB1\x55 |0
-<U5D1D> \xD4\xF6 |0
-<U5D1E> \xD4\xF4 |0
-<U5D1F> \xD5\x43 |0
-<U5D20> \xD4\xF8 |0
-<U5D22> \xB1\x57 |0
-<U5D23> \xD5\x42 |0
-<U5D24> \xB1\x5C |0
-<U5D25> \xD4\xFD |0
-<U5D26> \xD4\xFC |0
-<U5D27> \xB1\x5D |0
-<U5D28> \xD4\xFA |0
-<U5D29> \xB1\x59 |0
-<U5D2E> \xD5\x44 |0
-<U5D30> \xD5\x40 |0
-<U5D31> \xD8\xE7 |0
-<U5D32> \xD8\xEE |0
-<U5D33> \xD8\xE3 |0
-<U5D34> \xB4\x51 |0
-<U5D35> \xD8\xDF |0
-<U5D36> \xD8\xEF |0
-<U5D37> \xD8\xD9 |0
-<U5D38> \xD8\xEC |0
-<U5D39> \xD8\xEA |0
-<U5D3A> \xD8\xE4 |0
-<U5D3C> \xD8\xED |0
-<U5D3D> \xD8\xE6 |0
-<U5D3F> \xD8\xDE |0
-<U5D40> \xD8\xF0 |0
-<U5D41> \xD8\xDC |0
-<U5D42> \xD8\xE9 |0
-<U5D43> \xD8\xDA |0
-<U5D45> \xD8\xF1 |0
-<U5D47> \xB4\x52 |0
-<U5D49> \xD8\xEB |0
-<U5D4A> \xDD\x4F |0
-<U5D4B> \xD8\xDD |0
-<U5D4C> \xB4\x4F |0
-<U5D4E> \xD8\xE1 |0
-<U5D50> \xB4\x50 |0
-<U5D51> \xD8\xE0 |0
-<U5D52> \xD8\xE5 |0
-<U5D55> \xD8\xE2 |0
-<U5D59> \xD8\xE8 |0
-<U5D5E> \xDD\x53 |0
-<U5D62> \xDD\x56 |0
-<U5D63> \xDD\x4E |0
-<U5D65> \xDD\x50 |0
-<U5D67> \xDD\x55 |0
-<U5D68> \xDD\x54 |0
-<U5D69> \xB7\x43 |0
-<U5D6B> \xD8\xDB |0
-<U5D6C> \xDD\x52 |0
-<U5D6F> \xB7\x44 |0
-<U5D71> \xDD\x4D |0
-<U5D72> \xDD\x51 |0
-<U5D77> \xE1\xA9 |0
-<U5D79> \xE1\xB0 |0
-<U5D7A> \xE1\xA7 |0
-<U5D7C> \xE1\xAE |0
-<U5D7D> \xE1\xA5 |0
-<U5D7E> \xE1\xAD |0
-<U5D7F> \xE1\xB1 |0
-<U5D80> \xE1\xA4 |0
-<U5D81> \xE1\xA8 |0
-<U5D82> \xE1\xA3 |0
-<U5D84> \xB9\xF1 |0
-<U5D86> \xE1\xA6 |0
-<U5D87> \xB9\xF2 |0
-<U5D88> \xE1\xAC |0
-<U5D89> \xE1\xAB |0
-<U5D8A> \xE1\xAA |0
-<U5D8D> \xE1\xAF |0
-<U5D92> \xE5\x65 |0
-<U5D93> \xE5\x67 |0
-<U5D94> \xBC\x6B |0
-<U5D95> \xE5\x68 |0
-<U5D97> \xE5\x63 |0
-<U5D99> \xE5\x62 |0
-<U5D9A> \xE5\x6C |0
-<U5D9C> \xE5\x6A |0
-<U5D9D> \xBC\x6A |0
-<U5D9E> \xE5\x6D |0
-<U5D9F> \xE5\x64 |0
-<U5DA0> \xE5\x69 |0
-<U5DA1> \xE5\x6B |0
-<U5DA2> \xE5\x66 |0
-<U5DA7> \xE9\x61 |0
-<U5DA8> \xE9\x66 |0
-<U5DA9> \xE9\x60 |0
-<U5DAA> \xE9\x65 |0
-<U5DAC> \xE9\x5E |0
-<U5DAD> \xE9\x68 |0
-<U5DAE> \xE9\x64 |0
-<U5DAF> \xE9\x69 |0
-<U5DB0> \xE9\x63 |0
-<U5DB1> \xE9\x5F |0
-<U5DB2> \xE9\x67 |0
-<U5DB4> \xE9\x6A |0
-<U5DB5> \xE9\x62 |0
-<U5DB7> \xEC\xDA |0
-<U5DB8> \xC0\xAF |0
-<U5DBA> \xC0\xAD |0
-<U5DBC> \xC0\xAC |0
-<U5DBD> \xC0\xAE |0
-<U5DC0> \xEF\xC4 |0
-<U5DC2> \xF1\x72 |0
-<U5DC3> \xF1\xFD |0
-<U5DC6> \xF4\x44 |0
-<U5DC7> \xF4\x45 |0
-<U5DC9> \xC4\x60 |0
-<U5DCB> \xF5\xC9 |0
-<U5DCD> \xC4\xDE |0
-<U5DCF> \xF5\xCA |0
-<U5DD1> \xF6\xDE |0
-<U5DD2> \xC5\x72 |0
-<U5DD4> \xC5\x71 |0
-<U5DD5> \xF6\xDD |0
-<U5DD6> \xC5\xC9 |0
-<U5DD8> \xF7\xD6 |0
-<U5DDD> \xA4\x74 |0
-<U5DDE> \xA6\x7B |0
-<U5DDF> \xC9\xDA |0
-<U5DE0> \xCA\xCA |0
-<U5DE1> \xA8\xB5 |0
-<U5DE2> \xB1\x5F |0
-<U5DE5> \xA4\x75 |0
-<U5DE6> \xA5\xAA |0
-<U5DE7> \xA5\xA9 |0
-<U5DE8> \xA5\xA8 |0
-<U5DEB> \xA7\xC5 |0
-<U5DEE> \xAE\x74 |0
-<U5DF0> \xDD\x57 |0
-<U5DF1> \xA4\x76 |0
-<U5DF2> \xA4\x77 |0
-<U5DF3> \xA4\x78 |0
-<U5DF4> \xA4\xDA |0
-<U5DF7> \xAB\xD1 |0
-<U5DF9> \xCE\xAF |0
-<U5DFD> \xB4\x53 |0
-<U5DFE> \xA4\x79 |0
-<U5DFF> \xC9\x5D |0
-<U5E02> \xA5\xAB |0
-<U5E03> \xA5\xAC |0
-<U5E04> \xC9\x78 |0
-<U5E06> \xA6\x7C |0
-<U5E0A> \xCA\xCB |0
-<U5E0C> \xA7\xC6 |0
-<U5E0E> \xCA\xCC |0
-<U5E11> \xA9\xAE |0
-<U5E14> \xCC\x6E |0
-<U5E15> \xA9\xAC |0
-<U5E16> \xA9\xAB |0
-<U5E17> \xCC\x6D |0
-<U5E18> \xA9\xA9 |0
-<U5E19> \xCC\x6F |0
-<U5E1A> \xA9\xAA |0
-<U5E1B> \xA9\xAD |0
-<U5E1D> \xAB\xD2 |0
-<U5E1F> \xAB\xD4 |0
-<U5E20> \xCE\xB3 |0
-<U5E21> \xCE\xB0 |0
-<U5E22> \xCE\xB1 |0
-<U5E23> \xCE\xB2 |0
-<U5E24> \xCE\xB4 |0
-<U5E25> \xAB\xD3 |0
-<U5E28> \xD1\x74 |0
-<U5E29> \xD1\x73 |0
-<U5E2B> \xAE\x76 |0
-<U5E2D> \xAE\x75 |0
-<U5E33> \xB1\x62 |0
-<U5E34> \xD5\x46 |0
-<U5E36> \xB1\x61 |0
-<U5E37> \xB1\x63 |0
-<U5E38> \xB1\x60 |0
-<U5E3D> \xB4\x55 |0
-<U5E3E> \xD5\x45 |0
-<U5E40> \xB4\x56 |0
-<U5E41> \xD8\xF3 |0
-<U5E43> \xB4\x57 |0
-<U5E44> \xD8\xF2 |0
-<U5E45> \xB4\x54 |0
-<U5E4A> \xDD\x5A |0
-<U5E4B> \xDD\x5C |0
-<U5E4C> \xB7\x45 |0
-<U5E4D> \xDD\x5B |0
-<U5E4E> \xDD\x59 |0
-<U5E4F> \xDD\x58 |0
-<U5E53> \xE1\xB4 |0
-<U5E54> \xB9\xF7 |0
-<U5E55> \xB9\xF5 |0
-<U5E57> \xB9\xF6 |0
-<U5E58> \xE1\xB2 |0
-<U5E59> \xE1\xB3 |0
-<U5E5B> \xB9\xF3 |0
-<U5E5C> \xE5\x71 |0
-<U5E5D> \xE5\x6F |0
-<U5E5F> \xBC\x6D |0
-<U5E60> \xE5\x70 |0
-<U5E61> \xBC\x6E |0
-<U5E62> \xBC\x6C |0
-<U5E63> \xB9\xF4 |0
-<U5E66> \xE9\x6D |0
-<U5E67> \xE9\x6B |0
-<U5E68> \xE9\x6C |0
-<U5E69> \xE5\x6E |0
-<U5E6A> \xEC\xDC |0
-<U5E6B> \xC0\xB0 |0
-<U5E6C> \xEC\xDB |0
-<U5E6D> \xEF\xC5 |0
-<U5E6E> \xEF\xC6 |0
-<U5E6F> \xE9\x6E |0
-<U5E70> \xF1\xFE |0
-<U5E72> \xA4\x7A |0
-<U5E73> \xA5\xAD |0
-<U5E74> \xA6\x7E |0
-<U5E75> \xC9\xDB |0
-<U5E76> \xA6\x7D |0
-<U5E78> \xA9\xAF |0
-<U5E79> \xB7\x46 |0
-<U5E7B> \xA4\xDB |0
-<U5E7C> \xA5\xAE |0
-<U5E7D> \xAB\xD5 |0
-<U5E7E> \xB4\x58 |0
-<U5E80> \xC9\x79 |0
-<U5E82> \xC9\x7A |0
-<U5E84> \xC9\xDC |0
-<U5E87> \xA7\xC8 |0
-<U5E88> \xCA\xD0 |0
-<U5E89> \xCA\xCE |0
-<U5E8A> \xA7\xC9 |0
-<U5E8B> \xCA\xCD |0
-<U5E8C> \xCA\xCF |0
-<U5E8D> \xCA\xD1 |0
-<U5E8F> \xA7\xC7 |0
-<U5E95> \xA9\xB3 |0
-<U5E96> \xA9\xB4 |0
-<U5E97> \xA9\xB1 |0
-<U5E9A> \xA9\xB0 |0
-<U5E9B> \xCE\xB8 |0
-<U5E9C> \xA9\xB2 |0
-<U5EA0> \xAB\xD6 |0
-<U5EA2> \xCE\xB7 |0
-<U5EA3> \xCE\xB9 |0
-<U5EA4> \xCE\xB6 |0
-<U5EA5> \xCE\xBA |0
-<U5EA6> \xAB\xD7 |0
-<U5EA7> \xAE\x79 |0
-<U5EA8> \xD1\x75 |0
-<U5EAA> \xD1\x77 |0
-<U5EAB> \xAE\x77 |0
-<U5EAC> \xD1\x78 |0
-<U5EAD> \xAE\x78 |0
-<U5EAE> \xD1\x76 |0
-<U5EB0> \xCE\xB5 |0
-<U5EB1> \xD5\x47 |0
-<U5EB2> \xD5\x4A |0
-<U5EB3> \xD5\x4B |0
-<U5EB4> \xD5\x48 |0
-<U5EB5> \xB1\x67 |0
-<U5EB6> \xB1\x66 |0
-<U5EB7> \xB1\x64 |0
-<U5EB8> \xB1\x65 |0
-<U5EB9> \xD5\x49 |0
-<U5EBE> \xB1\x68 |0
-<U5EC1> \xB4\x5A |0
-<U5EC2> \xB4\x5B |0
-<U5EC4> \xB4\x5C |0
-<U5EC5> \xDD\x5D |0
-<U5EC6> \xDD\x5F |0
-<U5EC7> \xDD\x61 |0
-<U5EC8> \xB7\x48 |0
-<U5EC9> \xB7\x47 |0
-<U5ECA> \xB4\x59 |0
-<U5ECB> \xDD\x60 |0
-<U5ECC> \xDD\x5E |0
-<U5ECE> \xE1\xB8 |0
-<U5ED1> \xE1\xB6 |0
-<U5ED2> \xE1\xBC |0
-<U5ED3> \xB9\xF8 |0
-<U5ED4> \xE1\xBD |0
-<U5ED5> \xE1\xBA |0
-<U5ED6> \xB9\xF9 |0
-<U5ED7> \xE1\xB7 |0
-<U5ED8> \xE1\xB5 |0
-<U5ED9> \xE1\xBB |0
-<U5EDA> \xBC\x70 |0
-<U5EDB> \xE5\x73 |0
-<U5EDC> \xE1\xB9 |0
-<U5EDD> \xBC\x72 |0
-<U5EDE> \xE5\x74 |0
-<U5EDF> \xBC\x71 |0
-<U5EE0> \xBC\x74 |0
-<U5EE1> \xE5\x75 |0
-<U5EE2> \xBC\x6F |0
-<U5EE3> \xBC\x73 |0
-<U5EE5> \xE9\x73 |0
-<U5EE6> \xE9\x71 |0
-<U5EE7> \xE9\x70 |0
-<U5EE8> \xE9\x72 |0
-<U5EE9> \xE9\x6F |0
-<U5EEC> \xC3\x66 |0
-<U5EEE> \xF4\x46 |0
-<U5EEF> \xF4\x47 |0
-<U5EF1> \xF5\xCB |0
-<U5EF2> \xF6\xDF |0
-<U5EF3> \xC6\x55 |0
-<U5EF6> \xA9\xB5 |0
-<U5EF7> \xA7\xCA |0
-<U5EFA> \xAB\xD8 |0
-<U5EFE> \xA4\x7B |0
-<U5EFF> \xA4\xDC |0
-<U5F01> \xA5\xAF |0
-<U5F02> \xC9\xDD |0
-<U5F04> \xA7\xCB |0
-<U5F05> \xCA\xD2 |0
-<U5F07> \xCE\xBB |0
-<U5F08> \xAB\xD9 |0
-<U5F0A> \xB9\xFA |0
-<U5F0B> \xA4\x7C |0
-<U5F0F> \xA6\xA1 |0
-<U5F12> \xB7\x49 |0
-<U5F13> \xA4\x7D |0
-<U5F14> \xA4\xDD |0
-<U5F15> \xA4\xDE |0
-<U5F17> \xA5\xB1 |0
-<U5F18> \xA5\xB0 |0
-<U5F1A> \xC9\xDE |0
-<U5F1B> \xA6\xA2 |0
-<U5F1D> \xCA\xD3 |0
-<U5F1F> \xA7\xCC |0
-<U5F22> \xCC\x71 |0
-<U5F23> \xCC\x72 |0
-<U5F24> \xCC\x73 |0
-<U5F26> \xA9\xB6 |0
-<U5F27> \xA9\xB7 |0
-<U5F28> \xCC\x70 |0
-<U5F29> \xA9\xB8 |0
-<U5F2D> \xAB\xDA |0
-<U5F2E> \xCE\xBC |0
-<U5F30> \xD1\x7A |0
-<U5F31> \xAE\x7A |0
-<U5F33> \xD1\x79 |0
-<U5F35> \xB1\x69 |0
-<U5F36> \xD5\x4C |0
-<U5F37> \xB1\x6A |0
-<U5F38> \xD5\x4D |0
-<U5F3C> \xB4\x5D |0
-<U5F40> \xDD\x62 |0
-<U5F43> \xE1\xBF |0
-<U5F44> \xE1\xBE |0
-<U5F46> \xB9\xFB |0
-<U5F48> \xBC\x75 |0
-<U5F49> \xE5\x76 |0
-<U5F4A> \xBE\xCA |0
-<U5F4B> \xE9\x74 |0
-<U5F4C> \xC0\xB1 |0
-<U5F4E> \xC5\x73 |0
-<U5F4F> \xF7\xD8 |0
-<U5F54> \xCC\x74 |0
-<U5F56> \xCE\xBD |0
-<U5F57> \xB1\x6B |0
-<U5F58> \xD8\xF4 |0
-<U5F59> \xB7\x4A |0
-<U5F5E> \xC2\x55 |0
-<U5F62> \xA7\xCE |0
-<U5F64> \xA7\xCD |0
-<U5F65> \xAB\xDB |0
-<U5F67> \xD1\x7B |0
-<U5F69> \xB1\x6D |0
-<U5F6A> \xB3\x43 |0
-<U5F6B> \xB1\x6E |0
-<U5F6C> \xB1\x6C |0
-<U5F6D> \xB4\x5E |0
-<U5F6F> \xE1\xC0 |0
-<U5F70> \xB9\xFC |0
-<U5F71> \xBC\x76 |0
-<U5F73> \xC9\x4C |0
-<U5F74> \xC9\xDF |0
-<U5F76> \xCA\xD5 |0
-<U5F77> \xA7\xCF |0
-<U5F78> \xCA\xD4 |0
-<U5F79> \xA7\xD0 |0
-<U5F7C> \xA9\xBC |0
-<U5F7D> \xCC\x77 |0
-<U5F7E> \xCC\x76 |0
-<U5F7F> \xA9\xBB |0
-<U5F80> \xA9\xB9 |0
-<U5F81> \xA9\xBA |0
-<U5F82> \xCC\x75 |0
-<U5F85> \xAB\xDD |0
-<U5F86> \xCE\xBE |0
-<U5F87> \xAB\xE0 |0
-<U5F88> \xAB\xDC |0
-<U5F89> \xAB\xE2 |0
-<U5F8A> \xAB\xDE |0
-<U5F8B> \xAB\xDF |0
-<U5F8C> \xAB\xE1 |0
-<U5F90> \xAE\x7D |0
-<U5F91> \xAE\x7C |0
-<U5F92> \xAE\x7B |0
-<U5F96> \xD5\x4F |0
-<U5F97> \xB1\x6F |0
-<U5F98> \xB1\x72 |0
-<U5F99> \xB1\x70 |0
-<U5F9B> \xD5\x4E |0
-<U5F9C> \xB1\x75 |0
-<U5F9E> \xB1\x71 |0
-<U5F9F> \xD5\x50 |0
-<U5FA0> \xB1\x74 |0
-<U5FA1> \xB1\x73 |0
-<U5FA5> \xD8\xF6 |0
-<U5FA6> \xD8\xF5 |0
-<U5FA8> \xB4\x61 |0
-<U5FA9> \xB4\x5F |0
-<U5FAA> \xB4\x60 |0
-<U5FAB> \xD8\xF7 |0
-<U5FAC> \xB7\x4B |0
-<U5FAD> \xDD\x64 |0
-<U5FAE> \xB7\x4C |0
-<U5FAF> \xDD\x63 |0
-<U5FB2> \xE5\x77 |0
-<U5FB5> \xBC\x78 |0
-<U5FB6> \xE1\xC1 |0
-<U5FB7> \xBC\x77 |0
-<U5FB9> \xB9\xFD |0
-<U5FBB> \xEC\xDE |0
-<U5FBC> \xE9\x75 |0
-<U5FBD> \xC0\xB2 |0
-<U5FBE> \xEC\xDD |0
-<U5FBF> \xF2\x40 |0
-<U5FC0> \xF4\x48 |0
-<U5FC1> \xF4\x49 |0
-<U5FC3> \xA4\xDF |0
-<U5FC5> \xA5\xB2 |0
-<U5FC9> \xC9\x7B |0
-<U5FCC> \xA7\xD2 |0
-<U5FCD> \xA7\xD4 |0
-<U5FCF> \xC9\xE2 |0
-<U5FD0> \xCA\xD8 |0
-<U5FD1> \xCA\xD7 |0
-<U5FD2> \xCA\xD6 |0
-<U5FD4> \xC9\xE1 |0
-<U5FD5> \xC9\xE0 |0
-<U5FD6> \xA6\xA4 |0
-<U5FD7> \xA7\xD3 |0
-<U5FD8> \xA7\xD1 |0
-<U5FD9> \xA6\xA3 |0
-<U5FDD> \xA9\xBD |0
-<U5FDE> \xCC\x78 |0
-<U5FE0> \xA9\xBE |0
-<U5FE1> \xCA\xDD |0
-<U5FE3> \xCA\xDF |0
-<U5FE4> \xCA\xDE |0
-<U5FE5> \xCC\x79 |0
-<U5FE8> \xCA\xDA |0
-<U5FEA> \xA7\xD8 |0
-<U5FEB> \xA7\xD6 |0
-<U5FED> \xCA\xD9 |0
-<U5FEE> \xCA\xDB |0
-<U5FEF> \xCA\xE1 |0
-<U5FF1> \xA7\xD5 |0
-<U5FF3> \xCA\xDC |0
-<U5FF4> \xCA\xE5 |0
-<U5FF5> \xA9\xC0 |0
-<U5FF7> \xCA\xE2 |0
-<U5FF8> \xA7\xD7 |0
-<U5FFA> \xCA\xE0 |0
-<U5FFB> \xCA\xE3 |0
-<U5FFD> \xA9\xBF |0
-<U5FFF> \xA9\xC1 |0
-<U6000> \xCA\xE4 |0
-<U6009> \xCC\xAF |0
-<U600A> \xCC\xA2 |0
-<U600B> \xCC\x7E |0
-<U600C> \xCC\xAE |0
-<U600D> \xCC\xA9 |0
-<U600E> \xAB\xE7 |0
-<U600F> \xA9\xC2 |0
-<U6010> \xCC\xAA |0
-<U6011> \xCC\xAD |0
-<U6012> \xAB\xE3 |0
-<U6013> \xCC\xAC |0
-<U6014> \xA9\xC3 |0
-<U6015> \xA9\xC8 |0
-<U6016> \xA9\xC6 |0
-<U6017> \xCC\xA3 |0
-<U6019> \xCC\x7C |0
-<U601A> \xCC\xA5 |0
-<U601B> \xA9\xCD |0
-<U601C> \xCC\xB0 |0
-<U601D> \xAB\xE4 |0
-<U601E> \xCC\xA6 |0
-<U6020> \xAB\xE5 |0
-<U6021> \xA9\xC9 |0
-<U6022> \xCC\xA8 |0
-<U6024> \xCE\xCD |0
-<U6025> \xAB\xE6 |0
-<U6026> \xCC\x7B |0
-<U6027> \xA9\xCA |0
-<U6028> \xAB\xE8 |0
-<U6029> \xA9\xCB |0
-<U602A> \xA9\xC7 |0
-<U602B> \xA9\xCC |0
-<U602C> \xCC\xA7 |0
-<U602D> \xCC\x7A |0
-<U602E> \xCC\xAB |0
-<U602F> \xA9\xC4 |0
-<U6032> \xCC\x7D |0
-<U6033> \xCC\xA4 |0
-<U6034> \xCC\xA1 |0
-<U6035> \xA9\xC5 |0
-<U6037> \xCE\xBF |0
-<U6039> \xCE\xC0 |0
-<U6040> \xCE\xCA |0
-<U6041> \xD1\xA1 |0
-<U6042> \xCE\xCB |0
-<U6043> \xAB\xEE |0
-<U6044> \xCE\xCE |0
-<U6045> \xCE\xC4 |0
-<U6046> \xAB\xED |0
-<U6047> \xCE\xC6 |0
-<U6049> \xCE\xC7 |0
-<U604C> \xCE\xC9 |0
-<U604D> \xAB\xE9 |0
-<U6050> \xAE\xA3 |0
-<U6052> \xF9\xDA |0
-<U6053> \xCE\xC5 |0
-<U6054> \xCE\xC1 |0
-<U6055> \xAE\xA4 |0
-<U6058> \xCE\xCF |0
-<U6059> \xAE\x7E |0
-<U605A> \xD1\x7D |0
-<U605B> \xCE\xC8 |0
-<U605D> \xD1\x7C |0
-<U605E> \xCE\xC3 |0
-<U605F> \xCE\xCC |0
-<U6062> \xAB\xEC |0
-<U6063> \xAE\xA1 |0
-<U6064> \xAB\xF2 |0
-<U6065> \xAE\xA2 |0
-<U6066> \xCE\xD0 |0
-<U6067> \xD1\x7E |0
-<U6068> \xAB\xEB |0
-<U6069> \xAE\xA6 |0
-<U606A> \xAB\xF1 |0
-<U606B> \xAB\xF0 |0
-<U606C> \xAB\xEF |0
-<U606D> \xAE\xA5 |0
-<U606E> \xCE\xD1 |0
-<U606F> \xAE\xA7 |0
-<U6070> \xAB\xEA |0
-<U6072> \xCE\xC2 |0
-<U607F> \xB1\x76 |0
-<U6080> \xD1\xA4 |0
-<U6081> \xD1\xA6 |0
-<U6083> \xD1\xA8 |0
-<U6084> \xAE\xA8 |0
-<U6085> \xAE\xAE |0
-<U6086> \xD5\x53 |0
-<U6087> \xD1\xAC |0
-<U6088> \xD1\xA3 |0
-<U6089> \xB1\x78 |0
-<U608A> \xD5\x51 |0
-<U608C> \xAE\xAD |0
-<U608D> \xAE\xAB |0
-<U608E> \xD1\xAE |0
-<U6090> \xD5\x52 |0
-<U6092> \xD1\xA5 |0
-<U6094> \xAE\xAC |0
-<U6095> \xD1\xA9 |0
-<U6096> \xAE\xAF |0
-<U6097> \xD1\xAB |0
-<U609A> \xAE\xAA |0
-<U609B> \xD1\xAA |0
-<U609C> \xD1\xAD |0
-<U609D> \xD1\xA7 |0
-<U609F> \xAE\xA9 |0
-<U60A0> \xB1\x79 |0
-<U60A2> \xD1\xA2 |0
-<U60A3> \xB1\x77 |0
-<U60A8> \xB1\x7A |0
-<U60B0> \xD5\x55 |0
-<U60B1> \xD5\x5E |0
-<U60B2> \xB4\x64 |0
-<U60B4> \xB1\x7C |0
-<U60B5> \xB1\xA3 |0
-<U60B6> \xB4\x65 |0
-<U60B7> \xD5\x60 |0
-<U60B8> \xB1\xAA |0
-<U60B9> \xD8\xF9 |0
-<U60BA> \xD5\x56 |0
-<U60BB> \xB1\xA2 |0
-<U60BC> \xB1\xA5 |0
-<U60BD> \xB1\x7E |0
-<U60BE> \xD5\x54 |0
-<U60BF> \xD5\x62 |0
-<U60C0> \xD5\x65 |0
-<U60C1> \xD9\x49 |0
-<U60C3> \xD5\x63 |0
-<U60C4> \xD8\xFD |0
-<U60C5> \xB1\xA1 |0
-<U60C6> \xB1\xA8 |0
-<U60C7> \xB1\xAC |0
-<U60C8> \xD5\x5D |0
-<U60C9> \xD8\xF8 |0
-<U60CA> \xD5\x61 |0
-<U60CB> \xB1\x7B |0
-<U60CC> \xD8\xFA |0
-<U60CD> \xD5\x64 |0
-<U60CE> \xD8\xFC |0
-<U60CF> \xD5\x59 |0
-<U60D1> \xB4\x62 |0
-<U60D3> \xD5\x57 |0
-<U60D4> \xD5\x58 |0
-<U60D5> \xB1\xA7 |0
-<U60D8> \xB1\xA6 |0
-<U60D9> \xD5\x5B |0
-<U60DA> \xB1\xAB |0
-<U60DB> \xD5\x5F |0
-<U60DC> \xB1\xA4 |0
-<U60DD> \xD5\x5C |0
-<U60DF> \xB1\xA9 |0
-<U60E0> \xB4\x66 |0
-<U60E1> \xB4\x63 |0
-<U60E2> \xD8\xFB |0
-<U60E4> \xD5\x5A |0
-<U60E6> \xB1\x7D |0
-<U60F0> \xB4\x6B |0
-<U60F1> \xB4\x6F |0
-<U60F2> \xD9\x40 |0
-<U60F3> \xB7\x51 |0
-<U60F4> \xB4\x6D |0
-<U60F5> \xD9\x44 |0
-<U60F6> \xB4\x71 |0
-<U60F7> \xDD\x65 |0
-<U60F8> \xD9\x46 |0
-<U60F9> \xB7\x53 |0
-<U60FA> \xB4\x69 |0
-<U60FB> \xB4\x6C |0
-<U60FC> \xD9\x47 |0
-<U60FE> \xD9\x48 |0
-<U60FF> \xD9\x4E |0
-<U6100> \xB4\x73 |0
-<U6101> \xB7\x54 |0
-<U6103> \xD9\x4A |0
-<U6104> \xD9\x4F |0
-<U6105> \xD9\x43 |0
-<U6106> \xB7\x5E |0
-<U6108> \xB7\x55 |0
-<U6109> \xB4\x72 |0
-<U610A> \xD9\x41 |0
-<U610B> \xD9\x50 |0
-<U610D> \xB7\x5D |0
-<U610E> \xB4\x70 |0
-<U610F> \xB7\x4E |0
-<U6110> \xD9\x4D |0
-<U6112> \xB4\x74 |0
-<U6113> \xD9\x45 |0
-<U6114> \xD8\xFE |0
-<U6115> \xB4\x6A |0
-<U6116> \xD9\x42 |0
-<U6118> \xD9\x4B |0
-<U611A> \xB7\x4D |0
-<U611B> \xB7\x52 |0
-<U611C> \xB4\x67 |0
-<U611D> \xD9\x4C |0
-<U611F> \xB7\x50 |0
-<U6123> \xB4\x68 |0
-<U6127> \xB7\x5C |0
-<U6128> \xE1\xC3 |0
-<U6129> \xDD\x70 |0
-<U612B> \xDD\x68 |0
-<U612C> \xE1\xC2 |0
-<U612E> \xDD\x6C |0
-<U612F> \xDD\x6E |0
-<U6132> \xDD\x6B |0
-<U6134> \xB7\x5B |0
-<U6136> \xDD\x6A |0
-<U6137> \xB7\x5F |0
-<U613B> \xE1\xD2 |0
-<U613E> \xB7\x5A |0
-<U613F> \xBA\x40 |0
-<U6140> \xDD\x71 |0
-<U6141> \xE1\xC4 |0
-<U6144> \xB7\x58 |0
-<U6145> \xDD\x69 |0
-<U6146> \xDD\x6D |0
-<U6147> \xB9\xFE |0
-<U6148> \xB7\x4F |0
-<U6149> \xDD\x66 |0
-<U614A> \xDD\x67 |0
-<U614B> \xBA\x41 |0
-<U614C> \xB7\x57 |0
-<U614D> \xB7\x59 |0
-<U614E> \xB7\x56 |0
-<U614F> \xDD\x6F |0
-<U6152> \xE1\xC8 |0
-<U6153> \xE1\xC9 |0
-<U6154> \xE1\xCE |0
-<U6155> \xBC\x7D |0
-<U6156> \xE1\xD5 |0
-<U6158> \xBA\x47 |0
-<U615A> \xBA\x46 |0
-<U615B> \xE1\xD0 |0
-<U615D> \xBC\x7C |0
-<U615E> \xE1\xC5 |0
-<U615F> \xBA\x45 |0
-<U6161> \xE1\xD4 |0
-<U6162> \xBA\x43 |0
-<U6163> \xBA\x44 |0
-<U6165> \xE1\xD1 |0
-<U6166> \xE5\xAA |0
-<U6167> \xBC\x7A |0
-<U6168> \xB4\x6E |0
-<U616A> \xE1\xD3 |0
-<U616B> \xBC\xA3 |0
-<U616C> \xE1\xCB |0
-<U616E> \xBC\x7B |0
-<U6170> \xBC\xA2 |0
-<U6171> \xE1\xC6 |0
-<U6172> \xE1\xCA |0
-<U6173> \xE1\xC7 |0
-<U6174> \xE1\xCD |0
-<U6175> \xBA\x48 |0
-<U6176> \xBC\x79 |0
-<U6177> \xBA\x42 |0
-<U6179> \xE5\x7A |0
-<U617A> \xE1\xCF |0
-<U617C> \xBC\xA1 |0
-<U617E> \xBC\xA4 |0
-<U6180> \xE1\xCC |0
-<U6182> \xBC\x7E |0
-<U6183> \xE5\x79 |0
-<U6189> \xE5\x7E |0
-<U618A> \xBE\xCE |0
-<U618B> \xE5\x78 |0
-<U618C> \xE9\xA3 |0
-<U618D> \xE5\xA9 |0
-<U618E> \xBC\xA8 |0
-<U6190> \xBC\xA6 |0
-<U6191> \xBE\xCC |0
-<U6192> \xE5\xA6 |0
-<U6193> \xE5\xA2 |0
-<U6194> \xBC\xAC |0
-<U6196> \xE9\x78 |0
-<U619A> \xBC\xAA |0
-<U619B> \xE5\xA1 |0
-<U619D> \xE9\x76 |0
-<U619F> \xE5\xA5 |0
-<U61A1> \xE5\xA8 |0
-<U61A2> \xE5\x7D |0
-<U61A4> \xBC\xAB |0
-<U61A7> \xBC\xA5 |0
-<U61A8> \xE9\x77 |0
-<U61A9> \xBE\xCD |0
-<U61AA> \xE5\xA7 |0
-<U61AB> \xBC\xA7 |0
-<U61AC> \xBC\xA9 |0
-<U61AD> \xE5\xA4 |0
-<U61AE> \xBC\xAD |0
-<U61AF> \xE5\xA3 |0
-<U61B0> \xE5\x7C |0
-<U61B1> \xE5\x7B |0
-<U61B2> \xBE\xCB |0
-<U61B3> \xE5\xAB |0
-<U61B4> \xE9\x7A |0
-<U61B5> \xEC\xE0 |0
-<U61B6> \xBE\xD0 |0
-<U61B8> \xE9\xA2 |0
-<U61BA> \xE9\x7E |0
-<U61BC> \xEC\xE1 |0
-<U61BE> \xBE\xD1 |0
-<U61BF> \xE9\xA1 |0
-<U61C1> \xE9\x7C |0
-<U61C2> \xC0\xB4 |0
-<U61C3> \xEC\xDF |0
-<U61C5> \xE9\x79 |0
-<U61C6> \xE9\x7B |0
-<U61C7> \xC0\xB5 |0
-<U61C8> \xBE\xD3 |0
-<U61C9> \xC0\xB3 |0
-<U61CA> \xBE\xD2 |0
-<U61CB> \xC0\xB7 |0
-<U61CC> \xE9\x7D |0
-<U61CD> \xBE\xCF |0
-<U61D6> \xEF\xCF |0
-<U61D8> \xEF\xC7 |0
-<U61DE> \xEC\xE7 |0
-<U61DF> \xEF\xC8 |0
-<U61E0> \xEC\xE3 |0
-<U61E3> \xC2\x56 |0
-<U61E4> \xEC\xE5 |0
-<U61E5> \xEC\xE4 |0
-<U61E6> \xC0\xB6 |0
-<U61E7> \xEC\xE2 |0
-<U61E8> \xEC\xE6 |0
-<U61E9> \xEF\xD0 |0
-<U61EA> \xEF\xCC |0
-<U61EB> \xEF\xCE |0
-<U61ED> \xEF\xC9 |0
-<U61EE> \xEF\xCA |0
-<U61F0> \xEF\xCD |0
-<U61F1> \xEF\xCB |0
-<U61F2> \xC3\x67 |0
-<U61F5> \xC3\x6A |0
-<U61F6> \xC3\x69 |0
-<U61F7> \xC3\x68 |0
-<U61F8> \xC4\x61 |0
-<U61F9> \xF4\x4A |0
-<U61FA> \xC4\x62 |0
-<U61FB> \xF2\x41 |0
-<U61FC> \xC4\xDF |0
-<U61FD> \xF5\xCC |0
-<U61FE> \xC4\xE0 |0
-<U61FF> \xC5\x74 |0
-<U6200> \xC5\xCA |0
-<U6201> \xF7\xD9 |0
-<U6203> \xF7\xDA |0
-<U6204> \xF7\xDB |0
-<U6207> \xF9\xBA |0
-<U6208> \xA4\xE0 |0
-<U6209> \xC9\x7C |0
-<U620A> \xA5\xB3 |0
-<U620C> \xA6\xA6 |0
-<U620D> \xA6\xA7 |0
-<U620E> \xA6\xA5 |0
-<U6210> \xA6\xA8 |0
-<U6211> \xA7\xDA |0
-<U6212> \xA7\xD9 |0
-<U6214> \xCC\xB1 |0
-<U6215> \xA9\xCF |0
-<U6216> \xA9\xCE |0
-<U6219> \xD1\xAF |0
-<U621A> \xB1\xAD |0
-<U621B> \xB1\xAE |0
-<U621F> \xB4\x75 |0
-<U6220> \xDD\x72 |0
-<U6221> \xB7\x60 |0
-<U6222> \xB7\x61 |0
-<U6223> \xDD\x74 |0
-<U6224> \xDD\x76 |0
-<U6225> \xDD\x75 |0
-<U6227> \xE1\xD7 |0
-<U6229> \xE1\xD6 |0
-<U622A> \xBA\x49 |0
-<U622B> \xE1\xD8 |0
-<U622D> \xE5\xAC |0
-<U622E> \xBC\xAE |0
-<U6230> \xBE\xD4 |0
-<U6232> \xC0\xB8 |0
-<U6233> \xC2\x57 |0
-<U6234> \xC0\xB9 |0
-<U6236> \xA4\xE1 |0
-<U623A> \xCA\xE6 |0
-<U623D> \xCC\xB2 |0
-<U623E> \xA9\xD1 |0
-<U623F> \xA9\xD0 |0
-<U6240> \xA9\xD2 |0
-<U6241> \xAB\xF3 |0
-<U6242> \xCE\xD2 |0
-<U6243> \xCE\xD3 |0
-<U6246> \xD1\xB0 |0
-<U6247> \xAE\xB0 |0
-<U6248> \xB1\xAF |0
-<U6249> \xB4\x76 |0
-<U624A> \xD9\x51 |0
-<U624B> \xA4\xE2 |0
-<U624D> \xA4\x7E |0
-<U624E> \xA4\xE3 |0
-<U6250> \xC9\x7D |0
-<U6251> \xA5\xB7 |0
-<U6252> \xA5\xB6 |0
-<U6253> \xA5\xB4 |0
-<U6254> \xA5\xB5 |0
-<U6258> \xA6\xAB |0
-<U6259> \xC9\xE9 |0
-<U625A> \xC9\xEB |0
-<U625B> \xA6\xAA |0
-<U625C> \xC9\xE3 |0
-<U625E> \xC9\xE4 |0
-<U6260> \xC9\xEA |0
-<U6261> \xC9\xE6 |0
-<U6262> \xC9\xE8 |0
-<U6263> \xA6\xA9 |0
-<U6264> \xC9\xE5 |0
-<U6265> \xC9\xEC |0
-<U6266> \xC9\xE7 |0
-<U626D> \xA7\xE1 |0
-<U626E> \xA7\xEA |0
-<U626F> \xA7\xE8 |0
-<U6270> \xCA\xF0 |0
-<U6271> \xCA\xED |0
-<U6272> \xCA\xF5 |0
-<U6273> \xA7\xE6 |0
-<U6274> \xCA\xF6 |0
-<U6276> \xA7\xDF |0
-<U6277> \xCA\xF3 |0
-<U6279> \xA7\xE5 |0
-<U627A> \xCA\xEF |0
-<U627B> \xCA\xEE |0
-<U627C> \xA7\xE3 |0
-<U627D> \xCA\xF4 |0
-<U627E> \xA7\xE4 |0
-<U627F> \xA9\xD3 |0
-<U6280> \xA7\xDE |0
-<U6281> \xCA\xF1 |0
-<U6283> \xCA\xE7 |0
-<U6284> \xA7\xDB |0
-<U6286> \xA7\xEE |0
-<U6287> \xCA\xEC |0
-<U6288> \xCA\xF2 |0
-<U6289> \xA7\xE0 |0
-<U628A> \xA7\xE2 |0
-<U628C> \xCA\xE8 |0
-<U628E> \xCA\xE9 |0
-<U628F> \xCA\xEA |0
-<U6291> \xA7\xED |0
-<U6292> \xA7\xE7 |0
-<U6293> \xA7\xEC |0
-<U6294> \xCA\xEB |0
-<U6295> \xA7\xEB |0
-<U6296> \xA7\xDD |0
-<U6297> \xA7\xDC |0
-<U6298> \xA7\xE9 |0
-<U62A8> \xA9\xE1 |0
-<U62A9> \xCC\xBE |0
-<U62AA> \xCC\xB7 |0
-<U62AB> \xA9\xDC |0
-<U62AC> \xA9\xEF |0
-<U62AD> \xCC\xB3 |0
-<U62AE> \xCC\xBA |0
-<U62AF> \xCC\xBC |0
-<U62B0> \xCC\xBF |0
-<U62B1> \xA9\xEA |0
-<U62B3> \xCC\xBB |0
-<U62B4> \xCC\xB4 |0
-<U62B5> \xA9\xE8 |0
-<U62B6> \xCC\xB8 |0
-<U62B8> \xCC\xC0 |0
-<U62B9> \xA9\xD9 |0
-<U62BB> \xCC\xBD |0
-<U62BC> \xA9\xE3 |0
-<U62BD> \xA9\xE2 |0
-<U62BE> \xCC\xB6 |0
-<U62BF> \xA9\xD7 |0
-<U62C2> \xA9\xD8 |0
-<U62C4> \xA9\xD6 |0
-<U62C6> \xA9\xEE |0
-<U62C7> \xA9\xE6 |0
-<U62C8> \xA9\xE0 |0
-<U62C9> \xA9\xD4 |0
-<U62CA> \xCC\xB9 |0
-<U62CB> \xA9\xDF |0
-<U62CC> \xA9\xD5 |0
-<U62CD> \xA9\xE7 |0
-<U62CE> \xA9\xF0 |0
-<U62CF> \xCE\xD4 |0
-<U62D0> \xA9\xE4 |0
-<U62D1> \xCC\xB5 |0
-<U62D2> \xA9\xDA |0
-<U62D3> \xA9\xDD |0
-<U62D4> \xA9\xDE |0
-<U62D6> \xA9\xEC |0
-<U62D7> \xA9\xED |0
-<U62D8> \xA9\xEB |0
-<U62D9> \xA9\xE5 |0
-<U62DA> \xA9\xE9 |0
-<U62DB> \xA9\xDB |0
-<U62DC> \xAB\xF4 |0
-<U62EB> \xCE\xDA |0
-<U62EC> \xAC\x41 |0
-<U62ED> \xAB\xF8 |0
-<U62EE> \xAB\xFA |0
-<U62EF> \xAC\x40 |0
-<U62F0> \xCE\xE6 |0
-<U62F1> \xAB\xFD |0
-<U62F2> \xD1\xB1 |0
-<U62F3> \xAE\xB1 |0
-<U62F4> \xAC\x43 |0
-<U62F5> \xCE\xD7 |0
-<U62F6> \xCE\xDF |0
-<U62F7> \xAB\xFE |0
-<U62F8> \xCE\xDE |0
-<U62F9> \xCE\xDB |0
-<U62FA> \xCE\xE3 |0
-<U62FB> \xCE\xE5 |0
-<U62FC> \xAB\xF7 |0
-<U62FD> \xAB\xFB |0
-<U62FE> \xAC\x42 |0
-<U62FF> \xAE\xB3 |0
-<U6300> \xCE\xE0 |0
-<U6301> \xAB\xF9 |0
-<U6302> \xAC\x45 |0
-<U6303> \xCE\xD9 |0
-<U6307> \xAB\xFC |0
-<U6308> \xAE\xB2 |0
-<U6309> \xAB\xF6 |0
-<U630B> \xCE\xD6 |0
-<U630C> \xCE\xDD |0
-<U630D> \xCE\xD5 |0
-<U630E> \xCE\xD8 |0
-<U630F> \xCE\xDC |0
-<U6310> \xD1\xB2 |0
-<U6311> \xAC\x44 |0
-<U6313> \xCE\xE1 |0
-<U6314> \xCE\xE2 |0
-<U6315> \xCE\xE4 |0
-<U6316> \xAB\xF5 |0
-<U6328> \xAE\xC1 |0
-<U6329> \xD1\xBE |0
-<U632A> \xAE\xBF |0
-<U632B> \xAE\xC0 |0
-<U632C> \xD1\xB4 |0
-<U632D> \xD1\xC4 |0
-<U632F> \xAE\xB6 |0
-<U6332> \xD5\x66 |0
-<U6333> \xD1\xC6 |0
-<U6334> \xD1\xC0 |0
-<U6336> \xD1\xB7 |0
-<U6338> \xD1\xC9 |0
-<U6339> \xD1\xBA |0
-<U633A> \xAE\xBC |0
-<U633B> \xD5\x7D |0
-<U633C> \xD1\xBD |0
-<U633D> \xAE\xBE |0
-<U633E> \xAE\xB5 |0
-<U6340> \xD1\xCB |0
-<U6341> \xD1\xBF |0
-<U6342> \xAE\xB8 |0
-<U6343> \xD1\xB8 |0
-<U6344> \xD1\xB5 |0
-<U6345> \xD1\xB6 |0
-<U6346> \xAE\xB9 |0
-<U6347> \xD1\xC5 |0
-<U6348> \xD1\xCC |0
-<U6349> \xAE\xBB |0
-<U634A> \xD1\xBC |0
-<U634B> \xD1\xBB |0
-<U634C> \xAE\xC3 |0
-<U634D> \xAE\xC2 |0
-<U634E> \xAE\xB4 |0
-<U634F> \xAE\xBA |0
-<U6350> \xAE\xBD |0
-<U6351> \xD1\xC8 |0
-<U6354> \xD1\xC2 |0
-<U6355> \xAE\xB7 |0
-<U6356> \xD1\xB3 |0
-<U6357> \xD1\xCA |0
-<U6358> \xD1\xC1 |0
-<U6359> \xD1\xC3 |0
-<U635A> \xD1\xC7 |0
-<U6365> \xD5\x67 |0
-<U6367> \xB1\xB7 |0
-<U6368> \xB1\xCB |0
-<U6369> \xB1\xCA |0
-<U636B> \xB1\xBF |0
-<U636D> \xD5\x79 |0
-<U636E> \xD5\x75 |0
-<U636F> \xD5\x72 |0
-<U6370> \xD5\xA6 |0
-<U6371> \xB1\xBA |0
-<U6372> \xB1\xB2 |0
-<U6375> \xD5\x77 |0
-<U6376> \xB4\xA8 |0
-<U6377> \xB1\xB6 |0
-<U6378> \xD5\xA1 |0
-<U637A> \xB1\xCC |0
-<U637B> \xB1\xC9 |0
-<U637C> \xD5\x7B |0
-<U637D> \xD5\x6A |0
-<U6380> \xB1\xC8 |0
-<U6381> \xD5\xA3 |0
-<U6382> \xD5\x69 |0
-<U6383> \xB1\xBD |0
-<U6384> \xB1\xC1 |0
-<U6385> \xD5\xA2 |0
-<U6387> \xD5\x73 |0
-<U6388> \xB1\xC2 |0
-<U6389> \xB1\xBC |0
-<U638A> \xD5\x68 |0
-<U638C> \xB4\x78 |0
-<U638D> \xD5\xA5 |0
-<U638E> \xD5\x71 |0
-<U638F> \xB1\xC7 |0
-<U6390> \xD5\x74 |0
-<U6391> \xD5\xA4 |0
-<U6392> \xB1\xC6 |0
-<U6394> \xD9\x52 |0
-<U6396> \xB1\xB3 |0
-<U6397> \xD5\x6F |0
-<U6398> \xB1\xB8 |0
-<U6399> \xB1\xC3 |0
-<U639B> \xB1\xBE |0
-<U639C> \xD5\x78 |0
-<U639D> \xD5\x6E |0
-<U639E> \xD5\x6C |0
-<U639F> \xD5\x7E |0
-<U63A0> \xB1\xB0 |0
-<U63A1> \xB1\xC4 |0
-<U63A2> \xB1\xB4 |0
-<U63A3> \xB4\x77 |0
-<U63A4> \xD5\x7C |0
-<U63A5> \xB1\xB5 |0
-<U63A7> \xB1\xB1 |0
-<U63A8> \xB1\xC0 |0
-<U63A9> \xB1\xBB |0
-<U63AA> \xB1\xB9 |0
-<U63AB> \xD5\x70 |0
-<U63AC> \xB1\xC5 |0
-<U63AD> \xD5\x6D |0
-<U63AE> \xD5\x7A |0
-<U63AF> \xD5\x76 |0
-<U63B0> \xD9\x54 |0
-<U63B1> \xD9\x53 |0
-<U63BD> \xD5\x6B |0
-<U63BE> \xD9\x64 |0
-<U63C0> \xB4\x7A |0
-<U63C2> \xD9\x6A |0
-<U63C3> \xD9\x59 |0
-<U63C4> \xD9\x67 |0
-<U63C5> \xDD\x77 |0
-<U63C6> \xB4\x7D |0
-<U63C7> \xD9\x6B |0
-<U63C8> \xD9\x6E |0
-<U63C9> \xB4\x7C |0
-<U63CA> \xD9\x5C |0
-<U63CB> \xD9\x6D |0
-<U63CC> \xD9\x6C |0
-<U63CD> \xB4\x7E |0
-<U63CE> \xD9\x55 |0
-<U63CF> \xB4\x79 |0
-<U63D0> \xB4\xA3 |0
-<U63D2> \xB4\xA1 |0
-<U63D3> \xD9\x69 |0
-<U63D5> \xD9\x5F |0
-<U63D6> \xB4\xA5 |0
-<U63D7> \xD9\x70 |0
-<U63D8> \xD9\x68 |0
-<U63D9> \xD9\x71 |0
-<U63DA> \xB4\xAD |0
-<U63DB> \xB4\xAB |0
-<U63DC> \xD9\x66 |0
-<U63DD> \xD9\x65 |0
-<U63DF> \xD9\x63 |0
-<U63E0> \xD9\x5D |0
-<U63E1> \xB4\xA4 |0
-<U63E3> \xB4\xA2 |0
-<U63E4> \xD1\xB9 |0
-<U63E5> \xD9\x56 |0
-<U63E7> \xDD\xB7 |0
-<U63E8> \xD9\x57 |0
-<U63E9> \xB4\x7B |0
-<U63EA> \xB4\xAA |0
-<U63EB> \xDD\x79 |0
-<U63ED> \xB4\xA6 |0
-<U63EE> \xB4\xA7 |0
-<U63EF> \xD9\x58 |0
-<U63F0> \xD9\x6F |0
-<U63F1> \xDD\x78 |0
-<U63F2> \xD9\x60 |0
-<U63F3> \xD9\x5B |0
-<U63F4> \xB4\xA9 |0
-<U63F5> \xD9\x61 |0
-<U63F6> \xD9\x5E |0
-<U63F9> \xB4\xAE |0
-<U6406> \xB7\x70 |0
-<U6409> \xDD\x7C |0
-<U640A> \xDD\xB1 |0
-<U640B> \xDD\xB6 |0
-<U640C> \xDD\xAA |0
-<U640D> \xB7\x6C |0
-<U640E> \xDD\xBB |0
-<U640F> \xB7\x69 |0
-<U6410> \xDD\x7A |0
-<U6412> \xDD\x7B |0
-<U6413> \xB7\x62 |0
-<U6414> \xB7\x6B |0
-<U6415> \xDD\xA4 |0
-<U6416> \xB7\x6E |0
-<U6417> \xB7\x6F |0
-<U6418> \xDD\xA5 |0
-<U641A> \xDD\xB2 |0
-<U641B> \xDD\xB8 |0
-<U641C> \xB7\x6A |0
-<U641E> \xB7\x64 |0
-<U641F> \xDD\xA3 |0
-<U6420> \xDD\x7D |0
-<U6421> \xDD\xBA |0
-<U6422> \xDD\xA8 |0
-<U6423> \xDD\xA9 |0
-<U6424> \xDD\x7E |0
-<U6425> \xDD\xB4 |0
-<U6426> \xDD\xAB |0
-<U6427> \xDD\xB5 |0
-<U6428> \xDD\xAD |0
-<U642A> \xB7\x65 |0
-<U642B> \xE1\xD9 |0
-<U642C> \xB7\x68 |0
-<U642D> \xB7\x66 |0
-<U642E> \xDD\xB9 |0
-<U642F> \xDD\xB0 |0
-<U6430> \xDD\xAC |0
-<U6433> \xDD\xA1 |0
-<U6434> \xBA\x53 |0
-<U6435> \xDD\xAF |0
-<U6436> \xB7\x6D |0
-<U6437> \xDD\xA7 |0
-<U6439> \xDD\xA6 |0
-<U643D> \xB7\x67 |0
-<U643E> \xB7\x63 |0
-<U643F> \xE1\xEE |0
-<U6440> \xDD\xB3 |0
-<U6441> \xDD\xAE |0
-<U6443> \xDD\xA2 |0
-<U644B> \xE1\xE9 |0
-<U644D> \xE1\xDA |0
-<U644E> \xE1\xE5 |0
-<U6450> \xE1\xEC |0
-<U6451> \xBA\x51 |0
-<U6452> \xB4\xAC |0
-<U6453> \xE1\xEA |0
-<U6454> \xBA\x4C |0
-<U6458> \xBA\x4B |0
-<U6459> \xE1\xF1 |0
-<U645B> \xE1\xDB |0
-<U645C> \xE1\xE8 |0
-<U645D> \xE1\xDC |0
-<U645E> \xE1\xE7 |0
-<U645F> \xBA\x4F |0
-<U6460> \xE1\xEB |0
-<U6461> \xD9\x62 |0
-<U6465> \xE1\xF2 |0
-<U6466> \xE1\xE3 |0
-<U6467> \xBA\x52 |0
-<U6468> \xE5\xBA |0
-<U6469> \xBC\xAF |0
-<U646B> \xE1\xF0 |0
-<U646C> \xE1\xEF |0
-<U646D> \xBA\x54 |0
-<U646E> \xE5\xAD |0
-<U646F> \xBC\xB0 |0
-<U6470> \xE5\xAE |0
-<U6472> \xE1\xDF |0
-<U6473> \xE1\xE0 |0
-<U6474> \xE1\xDD |0
-<U6475> \xE1\xE2 |0
-<U6476> \xE1\xDE |0
-<U6477> \xE1\xF3 |0
-<U6478> \xBA\x4E |0
-<U6479> \xBC\xB1 |0
-<U647A> \xBA\x50 |0
-<U647B> \xBA\x55 |0
-<U647D> \xE1\xE1 |0
-<U647F> \xE1\xED |0
-<U6482> \xE1\xE6 |0
-<U6485> \xE5\xB1 |0
-<U6487> \xBA\x4A |0
-<U6488> \xBC\xB4 |0
-<U6489> \xE9\xAA |0
-<U648A> \xE5\xB6 |0
-<U648B> \xE5\xB5 |0
-<U648C> \xE5\xB7 |0
-<U648F> \xE5\xB4 |0
-<U6490> \xBC\xB5 |0
-<U6492> \xBC\xBB |0
-<U6493> \xBC\xB8 |0
-<U6495> \xBC\xB9 |0
-<U6496> \xE5\xAF |0
-<U6497> \xE5\xB2 |0
-<U6498> \xE5\xBC |0
-<U6499> \xBC\xC1 |0
-<U649A> \xBC\xBF |0
-<U649C> \xE5\xB3 |0
-<U649D> \xD9\x5A |0
-<U649E> \xBC\xB2 |0
-<U649F> \xE5\xB9 |0
-<U64A0> \xE5\xB0 |0
-<U64A2> \xBC\xC2 |0
-<U64A3> \xE5\xB8 |0
-<U64A4> \xBA\x4D |0
-<U64A5> \xBC\xB7 |0
-<U64A6> \xE1\xE4 |0
-<U64A9> \xBC\xBA |0
-<U64AB> \xBC\xBE |0
-<U64AC> \xBC\xC0 |0
-<U64AD> \xBC\xBD |0
-<U64AE> \xBC\xBC |0
-<U64B0> \xBC\xB6 |0
-<U64B1> \xE5\xBB |0
-<U64B2> \xBC\xB3 |0
-<U64B3> \xBC\xC3 |0
-<U64BB> \xBE\xD8 |0
-<U64BC> \xBE\xD9 |0
-<U64BD> \xE9\xA9 |0
-<U64BE> \xBE\xE2 |0
-<U64BF> \xBE\xDF |0
-<U64C1> \xBE\xD6 |0
-<U64C2> \xBE\xDD |0
-<U64C3> \xE9\xAB |0
-<U64C4> \xBE\xDB |0
-<U64C5> \xBE\xD5 |0
-<U64C7> \xBE\xDC |0
-<U64C9> \xE9\xA8 |0
-<U64CA> \xC0\xBB |0
-<U64CB> \xBE\xD7 |0
-<U64CD> \xBE\xDE |0
-<U64CE> \xC0\xBA |0
-<U64CF> \xE9\xA7 |0
-<U64D0> \xE9\xA6 |0
-<U64D2> \xBE\xE0 |0
-<U64D4> \xBE\xE1 |0
-<U64D6> \xE9\xA5 |0
-<U64D7> \xE9\xA4 |0
-<U64D8> \xC0\xBC |0
-<U64D9> \xE9\xAE |0
-<U64DA> \xBE\xDA |0
-<U64DB> \xE9\xAC |0
-<U64E0> \xC0\xBD |0
-<U64E2> \xC0\xC2 |0
-<U64E3> \xEC\xEA |0
-<U64E4> \xEC\xEC |0
-<U64E6> \xC0\xBF |0
-<U64E8> \xEC\xED |0
-<U64E9> \xEC\xE9 |0
-<U64EB> \xEC\xEB |0
-<U64EC> \xC0\xC0 |0
-<U64ED> \xC0\xC3 |0
-<U64EF> \xEC\xE8 |0
-<U64F0> \xC0\xBE |0
-<U64F1> \xC0\xC1 |0
-<U64F2> \xC2\x59 |0
-<U64F3> \xE9\xAD |0
-<U64F4> \xC2\x58 |0
-<U64F7> \xC2\x5E |0
-<U64F8> \xEF\xD4 |0
-<U64FA> \xC2\x5C |0
-<U64FB> \xC2\x5D |0
-<U64FC> \xEF\xD7 |0
-<U64FD> \xEF\xD3 |0
-<U64FE> \xC2\x5A |0
-<U64FF> \xEF\xD1 |0
-<U6500> \xC3\x6B |0
-<U6501> \xEF\xD5 |0
-<U6503> \xEF\xD6 |0
-<U6504> \xEF\xD2 |0
-<U6506> \xC2\x5B |0
-<U6507> \xF2\x42 |0
-<U6509> \xF2\x45 |0
-<U650C> \xF2\x46 |0
-<U650D> \xF2\x44 |0
-<U650E> \xF2\x47 |0
-<U650F> \xC3\x6C |0
-<U6510> \xF2\x43 |0
-<U6513> \xF4\x4E |0
-<U6514> \xC4\x64 |0
-<U6515> \xF4\x4D |0
-<U6516> \xF4\x4C |0
-<U6517> \xF4\x4B |0
-<U6518> \xC4\x63 |0
-<U6519> \xC4\x65 |0
-<U651B> \xF5\xCD |0
-<U651C> \xC4\xE2 |0
-<U651D> \xC4\xE1 |0
-<U6520> \xF6\xE1 |0
-<U6521> \xF6\xE0 |0
-<U6522> \xF6\xE3 |0
-<U6523> \xC5\xCB |0
-<U6524> \xC5\x75 |0
-<U6525> \xF7\xDD |0
-<U6526> \xF6\xE2 |0
-<U6529> \xF7\xDC |0
-<U652A> \xC5\xCD |0
-<U652B> \xC5\xCC |0
-<U652C> \xC5\xF3 |0
-<U652D> \xF8\xA9 |0
-<U652E> \xF8\xEF |0
-<U652F> \xA4\xE4 |0
-<U6532> \xD9\x72 |0
-<U6533> \xE9\xAF |0
-<U6536> \xA6\xAC |0
-<U6537> \xCA\xF7 |0
-<U6538> \xA7\xF1 |0
-<U6539> \xA7\xEF |0
-<U653B> \xA7\xF0 |0
-<U653D> \xCC\xC1 |0
-<U653E> \xA9\xF1 |0
-<U653F> \xAC\x46 |0
-<U6541> \xCE\xE7 |0
-<U6543> \xCE\xE8 |0
-<U6545> \xAC\x47 |0
-<U6546> \xD1\xCE |0
-<U6548> \xAE\xC4 |0
-<U6549> \xAE\xC5 |0
-<U654A> \xD1\xCD |0
-<U654F> \xB1\xD3 |0
-<U6551> \xB1\xCF |0
-<U6553> \xD5\xA7 |0
-<U6554> \xB1\xD6 |0
-<U6555> \xB1\xD5 |0
-<U6556> \xB1\xCE |0
-<U6557> \xB1\xD1 |0
-<U6558> \xB1\xD4 |0
-<U6559> \xB1\xD0 |0
-<U655C> \xD9\x76 |0
-<U655D> \xB1\xCD |0
-<U655E> \xB4\xAF |0
-<U6562> \xB4\xB1 |0
-<U6563> \xB4\xB2 |0
-<U6564> \xD9\x75 |0
-<U6565> \xD9\x78 |0
-<U6566> \xB4\xB0 |0
-<U6567> \xD9\x73 |0
-<U6568> \xD9\x77 |0
-<U656A> \xD9\x74 |0
-<U656C> \xB7\x71 |0
-<U656F> \xDD\xBC |0
-<U6572> \xBA\x56 |0
-<U6573> \xE1\xF4 |0
-<U6574> \xBE\xE3 |0
-<U6575> \xBC\xC4 |0
-<U6576> \xE5\xBD |0
-<U6577> \xBC\xC5 |0
-<U6578> \xBC\xC6 |0
-<U6579> \xE5\xBF |0
-<U657A> \xE5\xBE |0
-<U657B> \xE5\xC0 |0
-<U657C> \xE9\xB1 |0
-<U657F> \xE9\xB0 |0
-<U6580> \xEC\xEF |0
-<U6581> \xEC\xEE |0
-<U6582> \xC0\xC4 |0
-<U6583> \xC0\xC5 |0
-<U6584> \xF2\x48 |0
-<U6587> \xA4\xE5 |0
-<U658C> \xD9\x79 |0
-<U6590> \xB4\xB4 |0
-<U6591> \xB4\xB3 |0
-<U6592> \xDD\xBD |0
-<U6594> \xEF\xD8 |0
-<U6595> \xC4\xE3 |0
-<U6596> \xF7\xDE |0
-<U6597> \xA4\xE6 |0
-<U6599> \xAE\xC6 |0
-<U659B> \xB1\xD8 |0
-<U659C> \xB1\xD7 |0
-<U659D> \xD9\x7A |0
-<U659E> \xD9\x7B |0
-<U659F> \xB7\x72 |0
-<U65A0> \xE1\xF5 |0
-<U65A1> \xBA\x57 |0
-<U65A2> \xE9\xB2 |0
-<U65A4> \xA4\xE7 |0
-<U65A5> \xA5\xB8 |0
-<U65A7> \xA9\xF2 |0
-<U65A8> \xCC\xC2 |0
-<U65AA> \xCE\xE9 |0
-<U65AB> \xAC\x48 |0
-<U65AC> \xB1\xD9 |0
-<U65AE> \xD9\x7C |0
-<U65AF> \xB4\xB5 |0
-<U65B0> \xB7\x73 |0
-<U65B2> \xE5\xC1 |0
-<U65B3> \xE5\xC2 |0
-<U65B6> \xEC\xF0 |0
-<U65B7> \xC2\x5F |0
-<U65B8> \xF8\xF0 |0
-<U65B9> \xA4\xE8 |0
-<U65BB> \xCC\xC3 |0
-<U65BC> \xA9\xF3 |0
-<U65BD> \xAC\x49 |0
-<U65BF> \xCE\xEA |0
-<U65C1> \xAE\xC7 |0
-<U65C2> \xD1\xD2 |0
-<U65C3> \xD1\xD0 |0
-<U65C4> \xD1\xD1 |0
-<U65C5> \xAE\xC8 |0
-<U65C6> \xD1\xCF |0
-<U65CB> \xB1\xDB |0
-<U65CC> \xB1\xDC |0
-<U65CD> \xD5\xA8 |0
-<U65CE> \xB1\xDD |0
-<U65CF> \xB1\xDA |0
-<U65D0> \xD9\x7D |0
-<U65D2> \xD9\x7E |0
-<U65D3> \xDD\xBE |0
-<U65D6> \xBA\x59 |0
-<U65D7> \xBA\x58 |0
-<U65DA> \xEC\xF1 |0
-<U65DB> \xEF\xD9 |0
-<U65DD> \xF2\x4A |0
-<U65DE> \xF2\x49 |0
-<U65DF> \xF4\x4F |0
-<U65E1> \xC9\x5E |0
-<U65E2> \xAC\x4A |0
-<U65E5> \xA4\xE9 |0
-<U65E6> \xA5\xB9 |0
-<U65E8> \xA6\xAE |0
-<U65E9> \xA6\xAD |0
-<U65EC> \xA6\xAF |0
-<U65ED> \xA6\xB0 |0
-<U65EE> \xC9\xEE |0
-<U65EF> \xC9\xED |0
-<U65F0> \xCA\xF8 |0
-<U65F1> \xA7\xF2 |0
-<U65F2> \xCA\xFB |0
-<U65F3> \xCA\xFA |0
-<U65F4> \xCA\xF9 |0
-<U65F5> \xCA\xFC |0
-<U65FA> \xA9\xF4 |0
-<U65FB> \xCC\xC9 |0
-<U65FC> \xCC\xC5 |0
-<U65FD> \xCC\xCE |0
-<U6600> \xA9\xFB |0
-<U6602> \xA9\xF9 |0
-<U6603> \xCC\xCA |0
-<U6604> \xCC\xC6 |0
-<U6605> \xCC\xCD |0
-<U6606> \xA9\xF8 |0
-<U6607> \xAA\x40 |0
-<U6608> \xCC\xC8 |0
-<U6609> \xCC\xC4 |0
-<U660A> \xA9\xFE |0
-<U660B> \xCC\xCB |0
-<U660C> \xA9\xF7 |0
-<U660D> \xCC\xCC |0
-<U660E> \xA9\xFA |0
-<U660F> \xA9\xFC |0
-<U6610> \xCC\xD0 |0
-<U6611> \xCC\xCF |0
-<U6612> \xCC\xC7 |0
-<U6613> \xA9\xF6 |0
-<U6614> \xA9\xF5 |0
-<U6615> \xA9\xFD |0
-<U661C> \xCE\xEF |0
-<U661D> \xCE\xF5 |0
-<U661F> \xAC\x50 |0
-<U6620> \xAC\x4D |0
-<U6621> \xCE\xEC |0
-<U6622> \xCE\xF1 |0
-<U6624> \xAC\x53 |0
-<U6625> \xAC\x4B |0
-<U6626> \xCE\xF0 |0
-<U6627> \xAC\x4E |0
-<U6628> \xAC\x51 |0
-<U662B> \xCE\xF3 |0
-<U662D> \xAC\x4C |0
-<U662E> \xCE\xF8 |0
-<U662F> \xAC\x4F |0
-<U6631> \xAC\x52 |0
-<U6632> \xCE\xED |0
-<U6633> \xCE\xF2 |0
-<U6634> \xCE\xF6 |0
-<U6635> \xCE\xEE |0
-<U6636> \xCE\xEB |0
-<U6639> \xCE\xF7 |0
-<U663A> \xCE\xF4 |0
-<U6641> \xAE\xD0 |0
-<U6642> \xAE\xC9 |0
-<U6643> \xAE\xCC |0
-<U6645> \xAE\xCF |0
-<U6647> \xD1\xD5 |0
-<U6649> \xAE\xCA |0
-<U664A> \xD1\xD3 |0
-<U664C> \xAE\xCE |0
-<U664F> \xAE\xCB |0
-<U6651> \xD1\xD6 |0
-<U6652> \xAE\xCD |0
-<U6659> \xD5\xAC |0
-<U665A> \xB1\xDF |0
-<U665B> \xD5\xAB |0
-<U665C> \xD5\xAD |0
-<U665D> \xB1\xDE |0
-<U665E> \xB1\xE3 |0
-<U665F> \xD1\xD4 |0
-<U6661> \xD5\xAA |0
-<U6662> \xD5\xAE |0
-<U6664> \xB1\xE0 |0
-<U6665> \xD5\xA9 |0
-<U6666> \xB1\xE2 |0
-<U6668> \xB1\xE1 |0
-<U666A> \xD9\xA7 |0
-<U666C> \xD9\xA2 |0
-<U666E> \xB4\xB6 |0
-<U666F> \xB4\xBA |0
-<U6670> \xB4\xB7 |0
-<U6671> \xD9\xA5 |0
-<U6672> \xD9\xA8 |0
-<U6674> \xB4\xB8 |0
-<U6676> \xB4\xB9 |0
-<U6677> \xB4\xBE |0
-<U6678> \xDD\xC7 |0
-<U6679> \xD9\xA6 |0
-<U667A> \xB4\xBC |0
-<U667B> \xD9\xA3 |0
-<U667C> \xD9\xA1 |0
-<U667E> \xB4\xBD |0
-<U6680> \xD9\xA4 |0
-<U6684> \xB7\x79 |0
-<U6686> \xDD\xBF |0
-<U6687> \xB7\x76 |0
-<U6688> \xB7\x77 |0
-<U6689> \xB7\x75 |0
-<U668A> \xDD\xC4 |0
-<U668B> \xDD\xC3 |0
-<U668C> \xDD\xC0 |0
-<U668D> \xB7\x7B |0
-<U6690> \xDD\xC2 |0
-<U6691> \xB4\xBB |0
-<U6694> \xDD\xC6 |0
-<U6695> \xDD\xC1 |0
-<U6696> \xB7\x78 |0
-<U6697> \xB7\x74 |0
-<U6698> \xB7\x7A |0
-<U6699> \xDD\xC5 |0
-<U669D> \xBA\x5C |0
-<U669F> \xE1\xF8 |0
-<U66A0> \xE1\xF7 |0
-<U66A1> \xE1\xF6 |0
-<U66A2> \xBA\x5A |0
-<U66A8> \xBA\x5B |0
-<U66A9> \xE5\xC5 |0
-<U66AA> \xE5\xC8 |0
-<U66AB> \xBC\xC8 |0
-<U66AE> \xBC\xC7 |0
-<U66AF> \xE5\xC9 |0
-<U66B0> \xE5\xC4 |0
-<U66B1> \xBC\xCA |0
-<U66B2> \xE5\xC6 |0
-<U66B4> \xBC\xC9 |0
-<U66B5> \xE5\xC3 |0
-<U66B7> \xE5\xC7 |0
-<U66B8> \xBE\xE9 |0
-<U66B9> \xBE\xE6 |0
-<U66BA> \xE9\xBB |0
-<U66BB> \xE9\xBA |0
-<U66BD> \xE9\xB9 |0
-<U66BE> \xE9\xB4 |0
-<U66C0> \xE9\xB5 |0
-<U66C4> \xBE\xE7 |0
-<U66C6> \xBE\xE4 |0
-<U66C7> \xBE\xE8 |0
-<U66C8> \xE9\xB3 |0
-<U66C9> \xBE\xE5 |0
-<U66CA> \xE9\xB6 |0
-<U66CB> \xE9\xB7 |0
-<U66CC> \xE9\xBC |0
-<U66CF> \xE9\xB8 |0
-<U66D2> \xEC\xF2 |0
-<U66D6> \xC0\xC7 |0
-<U66D8> \xEF\xDC |0
-<U66D9> \xC0\xC6 |0
-<U66DA> \xEF\xDA |0
-<U66DB> \xEF\xDB |0
-<U66DC> \xC2\x60 |0
-<U66DD> \xC3\x6E |0
-<U66DE> \xF2\x4B |0
-<U66E0> \xC3\x6D |0
-<U66E3> \xF4\x51 |0
-<U66E4> \xF4\x52 |0
-<U66E6> \xC4\x66 |0
-<U66E8> \xF4\x50 |0
-<U66E9> \xC4\xE4 |0
-<U66EB> \xF7\xDF |0
-<U66EC> \xC5\xCE |0
-<U66ED> \xF8\xAA |0
-<U66EE> \xF8\xAB |0
-<U66F0> \xA4\xEA |0
-<U66F2> \xA6\xB1 |0
-<U66F3> \xA6\xB2 |0
-<U66F4> \xA7\xF3 |0
-<U66F6> \xCC\xD1 |0
-<U66F7> \xAC\x54 |0
-<U66F8> \xAE\xD1 |0
-<U66F9> \xB1\xE4 |0
-<U66FC> \xB0\xD2 |0
-<U66FE> \xB4\xBF |0
-<U66FF> \xB4\xC0 |0
-<U6700> \xB3\xCC |0
-<U6701> \xD9\xA9 |0
-<U6703> \xB7\x7C |0
-<U6704> \xE1\xFA |0
-<U6705> \xE1\xF9 |0
-<U6708> \xA4\xEB |0
-<U6709> \xA6\xB3 |0
-<U670A> \xCC\xD2 |0
-<U670B> \xAA\x42 |0
-<U670D> \xAA\x41 |0
-<U670F> \xCE\xF9 |0
-<U6710> \xCE\xFA |0
-<U6712> \xD1\xD7 |0
-<U6713> \xD1\xD8 |0
-<U6714> \xAE\xD2 |0
-<U6715> \xAE\xD3 |0
-<U6717> \xAE\xD4 |0
-<U6718> \xD5\xAF |0
-<U671B> \xB1\xE6 |0
-<U671D> \xB4\xC2 |0
-<U671F> \xB4\xC1 |0
-<U6720> \xDD\xC8 |0
-<U6721> \xDF\x7A |0
-<U6722> \xE1\xFB |0
-<U6723> \xE9\xBD |0
-<U6726> \xC2\x61 |0
-<U6727> \xC4\x67 |0
-<U6728> \xA4\xEC |0
-<U672A> \xA5\xBC |0
-<U672B> \xA5\xBD |0
-<U672C> \xA5\xBB |0
-<U672D> \xA5\xBE |0
-<U672E> \xA5\xBA |0
-<U6731> \xA6\xB6 |0
-<U6733> \xC9\xF6 |0
-<U6734> \xA6\xB5 |0
-<U6735> \xA6\xB7 |0
-<U6738> \xC9\xF1 |0
-<U6739> \xC9\xF0 |0
-<U673A> \xC9\xF3 |0
-<U673B> \xC9\xF2 |0
-<U673C> \xC9\xF5 |0
-<U673D> \xA6\xB4 |0
-<U673E> \xC9\xEF |0
-<U673F> \xC9\xF4 |0
-<U6745> \xCA\xFD |0
-<U6746> \xA7\xFD |0
-<U6747> \xCA\xFE |0
-<U6748> \xCB\x43 |0
-<U6749> \xA7\xFC |0
-<U674B> \xCB\x47 |0
-<U674C> \xCB\x42 |0
-<U674D> \xCB\x45 |0
-<U674E> \xA7\xF5 |0
-<U674F> \xA7\xF6 |0
-<U6750> \xA7\xF7 |0
-<U6751> \xA7\xF8 |0
-<U6753> \xA8\x40 |0
-<U6755> \xCB\x41 |0
-<U6756> \xA7\xFA |0
-<U6757> \xA8\x41 |0
-<U6759> \xCB\x40 |0
-<U675A> \xCB\x46 |0
-<U675C> \xA7\xF9 |0
-<U675D> \xCB\x44 |0
-<U675E> \xA7\xFB |0
-<U675F> \xA7\xF4 |0
-<U6760> \xA7\xFE |0
-<U676A> \xAA\x57 |0
-<U676C> \xCC\xD4 |0
-<U676D> \xAA\x43 |0
-<U676F> \xAA\x4D |0
-<U6770> \xAA\x4E |0
-<U6771> \xAA\x46 |0
-<U6772> \xAA\x58 |0
-<U6773> \xAA\x48 |0
-<U6774> \xCC\xDC |0
-<U6775> \xAA\x53 |0
-<U6776> \xCC\xD7 |0
-<U6777> \xAA\x49 |0
-<U6778> \xCC\xE6 |0
-<U6779> \xCC\xE7 |0
-<U677A> \xCC\xDF |0
-<U677B> \xCC\xD8 |0
-<U677C> \xAA\x56 |0
-<U677D> \xCC\xE4 |0
-<U677E> \xAA\x51 |0
-<U677F> \xAA\x4F |0
-<U6781> \xCC\xE5 |0
-<U6783> \xCC\xE3 |0
-<U6784> \xCC\xDB |0
-<U6785> \xCC\xD3 |0
-<U6786> \xCC\xDA |0
-<U6787> \xAA\x4A |0
-<U6789> \xAA\x50 |0
-<U678B> \xAA\x44 |0
-<U678C> \xCC\xDE |0
-<U678D> \xCC\xDD |0
-<U678E> \xCC\xD5 |0
-<U6790> \xAA\x52 |0
-<U6791> \xCC\xE1 |0
-<U6792> \xCC\xD6 |0
-<U6793> \xAA\x55 |0
-<U6794> \xCC\xE8 |0
-<U6795> \xAA\x45 |0
-<U6797> \xAA\x4C |0
-<U6798> \xCC\xD9 |0
-<U6799> \xCC\xE2 |0
-<U679A> \xAA\x54 |0
-<U679C> \xAA\x47 |0
-<U679D> \xAA\x4B |0
-<U679F> \xCC\xE0 |0
-<U67AE> \xCF\x5B |0
-<U67AF> \xAC\x5C |0
-<U67B0> \xAC\x69 |0
-<U67B2> \xCF\x56 |0
-<U67B3> \xCF\x4C |0
-<U67B4> \xAC\x62 |0
-<U67B5> \xCF\x4A |0
-<U67B6> \xAC\x5B |0
-<U67B7> \xCF\x45 |0
-<U67B8> \xAC\x65 |0
-<U67B9> \xCF\x52 |0
-<U67BA> \xCE\xFE |0
-<U67BB> \xCF\x41 |0
-<U67C0> \xCF\x44 |0
-<U67C1> \xCE\xFB |0
-<U67C2> \xCF\x51 |0
-<U67C3> \xCF\x61 |0
-<U67C4> \xAC\x60 |0
-<U67C5> \xCF\x46 |0
-<U67C6> \xCF\x58 |0
-<U67C8> \xCE\xFD |0
-<U67C9> \xCF\x5F |0
-<U67CA> \xCF\x60 |0
-<U67CB> \xCF\x63 |0
-<U67CC> \xCF\x5A |0
-<U67CD> \xCF\x4B |0
-<U67CE> \xCF\x53 |0
-<U67CF> \xAC\x66 |0
-<U67D0> \xAC\x59 |0
-<U67D1> \xAC\x61 |0
-<U67D2> \xAC\x6D |0
-<U67D3> \xAC\x56 |0
-<U67D4> \xAC\x58 |0
-<U67D8> \xCF\x43 |0
-<U67D9> \xAC\x6A |0
-<U67DA> \xAC\x63 |0
-<U67DB> \xCF\x5D |0
-<U67DC> \xCF\x40 |0
-<U67DD> \xAC\x6C |0
-<U67DE> \xAC\x67 |0
-<U67DF> \xCF\x49 |0
-<U67E2> \xAC\x6B |0
-<U67E3> \xCF\x50 |0
-<U67E4> \xCF\x48 |0
-<U67E5> \xAC\x64 |0
-<U67E6> \xCF\x5C |0
-<U67E7> \xCF\x54 |0
-<U67E9> \xAC\x5E |0
-<U67EA> \xCF\x62 |0
-<U67EB> \xCF\x47 |0
-<U67EC> \xAC\x5A |0
-<U67ED> \xCF\x59 |0
-<U67EE> \xCF\x4F |0
-<U67EF> \xAC\x5F |0
-<U67F0> \xCF\x55 |0
-<U67F1> \xAC\x57 |0
-<U67F2> \xCE\xFC |0
-<U67F3> \xAC\x68 |0
-<U67F4> \xAE\xE3 |0
-<U67F5> \xAC\x5D |0
-<U67F6> \xCF\x4E |0
-<U67F7> \xCF\x4D |0
-<U67F8> \xCF\x42 |0
-<U67FA> \xCF\x5E |0
-<U67FC> \xCF\x57 |0
-<U67FF> \xAC\x55 |0
-<U6812> \xD1\xEC |0
-<U6813> \xAE\xEA |0
-<U6814> \xD1\xED |0
-<U6816> \xD1\xE1 |0
-<U6817> \xAE\xDF |0
-<U6818> \xAE\xEB |0
-<U681A> \xD1\xDA |0
-<U681C> \xD1\xE3 |0
-<U681D> \xD1\xEB |0
-<U681F> \xD1\xD9 |0
-<U6820> \xD1\xF4 |0
-<U6821> \xAE\xD5 |0
-<U6825> \xD1\xF3 |0
-<U6826> \xD1\xEE |0
-<U6828> \xD1\xEF |0
-<U6829> \xAE\xDD |0
-<U682A> \xAE\xE8 |0
-<U682B> \xD1\xE5 |0
-<U682D> \xD1\xE6 |0
-<U682E> \xD1\xF0 |0
-<U682F> \xD1\xE7 |0
-<U6831> \xD1\xE2 |0
-<U6832> \xD1\xDC |0
-<U6833> \xD1\xDD |0
-<U6834> \xD1\xEA |0
-<U6835> \xD1\xE4 |0
-<U6838> \xAE\xD6 |0
-<U6839> \xAE\xDA |0
-<U683A> \xD1\xF2 |0
-<U683B> \xD1\xDE |0
-<U683C> \xAE\xE6 |0
-<U683D> \xAE\xE2 |0
-<U6840> \xAE\xE5 |0
-<U6841> \xAE\xEC |0
-<U6842> \xAE\xDB |0
-<U6843> \xAE\xE7 |0
-<U6844> \xD1\xE9 |0
-<U6845> \xAE\xE9 |0
-<U6846> \xAE\xD8 |0
-<U6848> \xAE\xD7 |0
-<U6849> \xD1\xDB |0
-<U684B> \xD1\xDF |0
-<U684C> \xAE\xE0 |0
-<U684D> \xD1\xF1 |0
-<U684E> \xD1\xE8 |0
-<U684F> \xD1\xE0 |0
-<U6850> \xAE\xE4 |0
-<U6851> \xAE\xE1 |0
-<U6853> \xAE\xD9 |0
-<U6854> \xAE\xDC |0
-<U686B> \xD5\xC4 |0
-<U686D> \xD5\xB4 |0
-<U686E> \xD5\xB5 |0
-<U686F> \xD5\xB9 |0
-<U6871> \xD5\xC8 |0
-<U6872> \xD5\xC5 |0
-<U6874> \xD5\xBE |0
-<U6875> \xD5\xBD |0
-<U6876> \xB1\xED |0
-<U6877> \xD5\xC1 |0
-<U6878> \xD5\xD0 |0
-<U6879> \xD5\xB0 |0
-<U687B> \xD5\xD1 |0
-<U687C> \xD5\xC3 |0
-<U687D> \xD5\xD5 |0
-<U687E> \xD5\xC9 |0
-<U687F> \xB1\xEC |0
-<U6880> \xD5\xC7 |0
-<U6881> \xB1\xE7 |0
-<U6882> \xB1\xFC |0
-<U6883> \xB1\xF2 |0
-<U6885> \xB1\xF6 |0
-<U6886> \xB1\xF5 |0
-<U6887> \xD5\xB1 |0
-<U6889> \xD5\xCE |0
-<U688A> \xD5\xD4 |0
-<U688B> \xD5\xCC |0
-<U688C> \xD5\xD3 |0
-<U688F> \xD5\xC0 |0
-<U6890> \xD5\xB2 |0
-<U6891> \xD5\xD2 |0
-<U6892> \xD5\xC2 |0
-<U6893> \xB1\xEA |0
-<U6894> \xB1\xF7 |0
-<U6896> \xD5\xCB |0
-<U6897> \xB1\xF0 |0
-<U689B> \xD5\xCA |0
-<U689C> \xD5\xB3 |0
-<U689D> \xB1\xF8 |0
-<U689F> \xB1\xFA |0
-<U68A0> \xD5\xCD |0
-<U68A1> \xB1\xFB |0
-<U68A2> \xB1\xE9 |0
-<U68A3> \xD5\xBA |0
-<U68A4> \xD5\xCF |0
-<U68A7> \xB1\xEF |0
-<U68A8> \xB1\xF9 |0
-<U68A9> \xD5\xBC |0
-<U68AA> \xD5\xC6 |0
-<U68AB> \xD5\xB7 |0
-<U68AC> \xD5\xBB |0
-<U68AD> \xB1\xF4 |0
-<U68AE> \xD5\xB6 |0
-<U68AF> \xB1\xE8 |0
-<U68B0> \xB1\xF1 |0
-<U68B1> \xB1\xEE |0
-<U68B2> \xD5\xBF |0
-<U68B3> \xAE\xDE |0
-<U68B4> \xD9\xC0 |0
-<U68B5> \xB1\xEB |0
-<U68C4> \xB1\xF3 |0
-<U68C6> \xD9\xC3 |0
-<U68C7> \xD9\xD9 |0
-<U68C8> \xD9\xCE |0
-<U68C9> \xB4\xD6 |0
-<U68CB> \xB4\xD1 |0
-<U68CC> \xD9\xBD |0
-<U68CD> \xB4\xD2 |0
-<U68CE> \xD9\xCD |0
-<U68D0> \xD9\xC6 |0
-<U68D1> \xD9\xD3 |0
-<U68D2> \xB4\xCE |0
-<U68D3> \xD9\xAB |0
-<U68D4> \xD9\xD5 |0
-<U68D5> \xB4\xC4 |0
-<U68D6> \xD9\xB3 |0
-<U68D7> \xB4\xC7 |0
-<U68D8> \xB4\xC6 |0
-<U68DA> \xB4\xD7 |0
-<U68DC> \xD9\xAD |0
-<U68DD> \xD9\xCF |0
-<U68DE> \xD9\xD0 |0
-<U68DF> \xB4\xC9 |0
-<U68E0> \xB4\xC5 |0
-<U68E1> \xD9\xBB |0
-<U68E3> \xB4\xD0 |0
-<U68E4> \xD9\xB6 |0
-<U68E6> \xD9\xD1 |0
-<U68E7> \xB4\xCC |0
-<U68E8> \xD9\xC9 |0
-<U68E9> \xD9\xD6 |0
-<U68EA> \xD9\xB0 |0
-<U68EB> \xD9\xB5 |0
-<U68EC> \xD9\xAF |0
-<U68EE> \xB4\xCB |0
-<U68EF> \xD9\xC2 |0
-<U68F0> \xDD\xDE |0
-<U68F1> \xD9\xB1 |0
-<U68F2> \xB4\xCF |0
-<U68F3> \xD9\xBA |0
-<U68F4> \xD9\xD2 |0
-<U68F5> \xB4\xCA |0
-<U68F6> \xD9\xB7 |0
-<U68F7> \xD9\xB4 |0
-<U68F8> \xD9\xC5 |0
-<U68F9> \xB4\xCD |0
-<U68FA> \xB4\xC3 |0
-<U68FB> \xB4\xD9 |0
-<U68FC> \xD9\xC8 |0
-<U68FD> \xD9\xC7 |0
-<U6904> \xD9\xAC |0
-<U6905> \xB4\xC8 |0
-<U6906> \xD9\xD4 |0
-<U6907> \xD9\xBC |0
-<U6908> \xD9\xBE |0
-<U690A> \xD9\xCB |0
-<U690B> \xD9\xCA |0
-<U690C> \xD9\xAA |0
-<U690D> \xB4\xD3 |0
-<U690E> \xB4\xD5 |0
-<U690F> \xD9\xB2 |0
-<U6910> \xD9\xB9 |0
-<U6911> \xD9\xC1 |0
-<U6912> \xB4\xD4 |0
-<U6913> \xD9\xB8 |0
-<U6914> \xD9\xC4 |0
-<U6915> \xD9\xD7 |0
-<U6917> \xD9\xCC |0
-<U6925> \xD9\xD8 |0
-<U692A> \xD9\xAE |0
-<U692F> \xDD\xF2 |0
-<U6930> \xB7\xA6 |0
-<U6932> \xDD\xF0 |0
-<U6933> \xDD\xDB |0
-<U6934> \xDD\xE0 |0
-<U6935> \xDD\xD9 |0
-<U6937> \xDD\xEC |0
-<U6938> \xDD\xCB |0
-<U6939> \xDD\xD2 |0
-<U693B> \xDD\xEA |0
-<U693C> \xDD\xF4 |0
-<U693D> \xDD\xDC |0
-<U693F> \xDD\xCF |0
-<U6940> \xDD\xE2 |0
-<U6941> \xDD\xE7 |0
-<U6942> \xDD\xD3 |0
-<U6944> \xDD\xE4 |0
-<U6945> \xDD\xD0 |0
-<U6948> \xDD\xD7 |0
-<U6949> \xDD\xD8 |0
-<U694A> \xB7\xA8 |0
-<U694B> \xDD\xEB |0
-<U694C> \xDD\xE9 |0
-<U694E> \xDD\xCC |0
-<U694F> \xDD\xEE |0
-<U6951> \xDD\xEF |0
-<U6952> \xDD\xF1 |0
-<U6953> \xB7\xAC |0
-<U6954> \xB7\xA4 |0
-<U6956> \xD5\xB8 |0
-<U6957> \xDD\xD4 |0
-<U6958> \xDD\xE6 |0
-<U6959> \xDD\xD5 |0
-<U695A> \xB7\xA1 |0
-<U695B> \xB7\xB1 |0
-<U695C> \xDD\xED |0
-<U695D> \xB7\xAF |0
-<U695E> \xB7\xAB |0
-<U695F> \xDD\xCA |0
-<U6960> \xB7\xA3 |0
-<U6962> \xDD\xCD |0
-<U6963> \xB7\xB0 |0
-<U6965> \xDD\xDD |0
-<U6966> \xDD\xC9 |0
-<U6968> \xB7\xA9 |0
-<U6969> \xDD\xE1 |0
-<U696A> \xDD\xD1 |0
-<U696B> \xB7\xAA |0
-<U696C> \xDD\xDA |0
-<U696D> \xB7\x7E |0
-<U696E> \xB4\xD8 |0
-<U696F> \xDD\xE3 |0
-<U6970> \xD9\xBF |0
-<U6971> \xDD\xCE |0
-<U6974> \xDD\xE8 |0
-<U6975> \xB7\xA5 |0
-<U6976> \xDD\xE5 |0
-<U6977> \xB7\xA2 |0
-<U6978> \xDD\xDF |0
-<U6979> \xB7\xAD |0
-<U697A> \xDD\xD6 |0
-<U697B> \xDD\xF3 |0
-<U6982> \xB7\xA7 |0
-<U6983> \xDE\xC6 |0
-<U6986> \xB7\xAE |0
-<U698D> \xE2\x4A |0
-<U698E> \xE2\x48 |0
-<U6990> \xE2\x5E |0
-<U6991> \xE2\x46 |0
-<U6993> \xE2\x58 |0
-<U6994> \xB7\x7D |0
-<U6995> \xBA\x5F |0
-<U6996> \xE2\x42 |0
-<U6997> \xE2\x5D |0
-<U6999> \xE2\x47 |0
-<U699A> \xE2\x55 |0
-<U699B> \xBA\x64 |0
-<U699C> \xBA\x5D |0
-<U699E> \xE2\x5B |0
-<U69A0> \xE2\x40 |0
-<U69A1> \xE2\x5A |0
-<U69A3> \xBA\x6F |0
-<U69A4> \xE2\x51 |0
-<U69A5> \xE2\x61 |0
-<U69A6> \xBA\x6D |0
-<U69A7> \xE2\x49 |0
-<U69A8> \xBA\x5E |0
-<U69A9> \xE2\x4B |0
-<U69AA> \xE2\x59 |0
-<U69AB> \xBA\x67 |0
-<U69AC> \xE2\x44 |0
-<U69AD> \xBA\x6B |0
-<U69AE> \xBA\x61 |0
-<U69AF> \xE2\x4D |0
-<U69B0> \xE2\x43 |0
-<U69B1> \xE1\xFC |0
-<U69B3> \xE2\x57 |0
-<U69B4> \xBA\x68 |0
-<U69B5> \xE2\x60 |0
-<U69B6> \xE1\xFD |0
-<U69B7> \xBA\x65 |0
-<U69B9> \xE2\x53 |0
-<U69BB> \xBA\x66 |0
-<U69BC> \xE2\x45 |0
-<U69BD> \xE2\x50 |0
-<U69BE> \xE2\x4C |0
-<U69BF> \xE2\x4E |0
-<U69C1> \xBA\x60 |0
-<U69C2> \xE2\x5F |0
-<U69C3> \xBA\x6E |0
-<U69C4> \xE2\x4F |0
-<U69C6> \xE2\x62 |0
-<U69C9> \xE1\xFE |0
-<U69CA> \xE2\x54 |0
-<U69CB> \xBA\x63 |0
-<U69CC> \xBA\x6C |0
-<U69CD> \xBA\x6A |0
-<U69CE> \xE2\x41 |0
-<U69CF> \xE2\x56 |0
-<U69D0> \xBA\x69 |0
-<U69D3> \xBA\x62 |0
-<U69D4> \xE2\x52 |0
-<U69D9> \xE2\x5C |0
-<U69E2> \xE5\xD5 |0
-<U69E4> \xE5\xD1 |0
-<U69E5> \xE5\xCD |0
-<U69E6> \xE5\xE1 |0
-<U69E7> \xE5\xDE |0
-<U69E8> \xBC\xCD |0
-<U69EB> \xE5\xE5 |0
-<U69EC> \xE5\xD4 |0
-<U69ED> \xBC\xD8 |0
-<U69EE> \xE5\xDB |0
-<U69F1> \xE5\xD0 |0
-<U69F2> \xE5\xDA |0
-<U69F3> \xBC\xD5 |0
-<U69F4> \xE5\xEE |0
-<U69F6> \xE5\xEB |0
-<U69F7> \xE5\xDD |0
-<U69F8> \xE5\xCE |0
-<U69FB> \xE5\xE2 |0
-<U69FC> \xE5\xE4 |0
-<U69FD> \xBC\xD1 |0
-<U69FE> \xE5\xD8 |0
-<U69FF> \xE5\xD3 |0
-<U6A00> \xE5\xCA |0
-<U6A01> \xBC\xCE |0
-<U6A02> \xBC\xD6 |0
-<U6A04> \xE5\xE7 |0
-<U6A05> \xBC\xD7 |0
-<U6A06> \xE5\xCB |0
-<U6A07> \xE5\xED |0
-<U6A08> \xE5\xE0 |0
-<U6A09> \xE5\xE6 |0
-<U6A0A> \xBC\xD4 |0
-<U6A0D> \xE5\xE3 |0
-<U6A0F> \xE5\xEA |0
-<U6A11> \xBC\xD9 |0
-<U6A13> \xBC\xD3 |0
-<U6A14> \xE5\xDC |0
-<U6A15> \xE5\xCF |0
-<U6A16> \xE5\xEF |0
-<U6A17> \xE5\xCC |0
-<U6A18> \xE5\xE8 |0
-<U6A19> \xBC\xD0 |0
-<U6A1B> \xE5\xD6 |0
-<U6A1D> \xE5\xD7 |0
-<U6A1E> \xBC\xCF |0
-<U6A1F> \xBC\xCC |0
-<U6A20> \xE5\xD2 |0
-<U6A21> \xBC\xD2 |0
-<U6A23> \xBC\xCB |0
-<U6A25> \xE5\xE9 |0
-<U6A26> \xE5\xEC |0
-<U6A27> \xE5\xD9 |0
-<U6A28> \xE9\xCA |0
-<U6A32> \xE9\xC2 |0
-<U6A34> \xE9\xBE |0
-<U6A35> \xBE\xF6 |0
-<U6A38> \xBE\xEB |0
-<U6A39> \xBE\xF0 |0
-<U6A3A> \xBE\xEC |0
-<U6A3B> \xE9\xCC |0
-<U6A3C> \xE9\xD7 |0
-<U6A3D> \xBE\xEA |0
-<U6A3E> \xE9\xC4 |0
-<U6A3F> \xE9\xCD |0
-<U6A40> \xE5\xDF |0
-<U6A41> \xE9\xCE |0
-<U6A44> \xBE\xF1 |0
-<U6A46> \xE9\xDD |0
-<U6A47> \xBE\xF5 |0
-<U6A48> \xBE\xF8 |0
-<U6A49> \xE9\xC0 |0
-<U6A4B> \xBE\xF4 |0
-<U6A4D> \xE9\xDB |0
-<U6A4E> \xE9\xDC |0
-<U6A4F> \xE9\xD2 |0
-<U6A50> \xE9\xD1 |0
-<U6A51> \xE9\xC9 |0
-<U6A54> \xE9\xD3 |0
-<U6A55> \xE9\xDA |0
-<U6A56> \xE9\xD9 |0
-<U6A58> \xBE\xEF |0
-<U6A59> \xBE\xED |0
-<U6A5A> \xE9\xCB |0
-<U6A5B> \xE9\xC8 |0
-<U6A5D> \xE9\xC5 |0
-<U6A5E> \xE9\xD8 |0
-<U6A5F> \xBE\xF7 |0
-<U6A60> \xE9\xD6 |0
-<U6A61> \xBE\xF3 |0
-<U6A62> \xBE\xF2 |0
-<U6A64> \xE9\xD0 |0
-<U6A66> \xE9\xBF |0
-<U6A67> \xE9\xC1 |0
-<U6A68> \xE9\xC3 |0
-<U6A69> \xE9\xD5 |0
-<U6A6A> \xE9\xCF |0
-<U6A6B> \xBE\xEE |0
-<U6A6D> \xE9\xC6 |0
-<U6A6F> \xE9\xD4 |0
-<U6A76> \xE9\xC7 |0
-<U6A7E> \xC0\xCF |0
-<U6A7F> \xED\x45 |0
-<U6A80> \xC0\xC8 |0
-<U6A81> \xEC\xF5 |0
-<U6A83> \xED\x41 |0
-<U6A84> \xC0\xCA |0
-<U6A85> \xED\x48 |0
-<U6A87> \xEC\xFC |0
-<U6A89> \xEC\xF7 |0
-<U6A8C> \xED\x49 |0
-<U6A8D> \xEC\xF3 |0
-<U6A8E> \xEC\xFE |0
-<U6A90> \xC0\xD1 |0
-<U6A91> \xED\x44 |0
-<U6A92> \xED\x4A |0
-<U6A93> \xEC\xFD |0
-<U6A94> \xC0\xC9 |0
-<U6A95> \xED\x40 |0
-<U6A96> \xEC\xF4 |0
-<U6A97> \xC0\xD0 |0
-<U6A9A> \xED\x47 |0
-<U6A9B> \xEC\xF9 |0
-<U6A9C> \xC0\xCC |0
-<U6A9E> \xEC\xFB |0
-<U6A9F> \xEC\xF8 |0
-<U6AA0> \xC0\xD2 |0
-<U6AA1> \xEC\xFA |0
-<U6AA2> \xC0\xCB |0
-<U6AA3> \xC0\xCE |0
-<U6AA4> \xED\x43 |0
-<U6AA5> \xEC\xF6 |0
-<U6AA6> \xED\x46 |0
-<U6AA8> \xED\x42 |0
-<U6AAC> \xC2\x63 |0
-<U6AAD> \xEF\xE7 |0
-<U6AAE> \xC2\x68 |0
-<U6AAF> \xC2\x69 |0
-<U6AB3> \xC2\x62 |0
-<U6AB4> \xEF\xE6 |0
-<U6AB6> \xEF\xE3 |0
-<U6AB7> \xEF\xE4 |0
-<U6AB8> \xC2\x66 |0
-<U6AB9> \xEF\xDE |0
-<U6ABA> \xEF\xE2 |0
-<U6ABB> \xC2\x65 |0
-<U6ABD> \xEF\xDF |0
-<U6AC2> \xC2\x67 |0
-<U6AC3> \xC2\x64 |0
-<U6AC5> \xEF\xDD |0
-<U6AC6> \xEF\xE1 |0
-<U6AC7> \xEF\xE5 |0
-<U6ACB> \xF2\x51 |0
-<U6ACC> \xF2\x4E |0
-<U6ACD> \xF2\x57 |0
-<U6ACF> \xF2\x56 |0
-<U6AD0> \xF2\x54 |0
-<U6AD1> \xF2\x4F |0
-<U6AD3> \xC3\x72 |0
-<U6AD9> \xF2\x50 |0
-<U6ADA> \xC3\x71 |0
-<U6ADB> \xC0\xCD |0
-<U6ADC> \xF2\x53 |0
-<U6ADD> \xC3\x70 |0
-<U6ADE> \xF2\x58 |0
-<U6ADF> \xF2\x52 |0
-<U6AE0> \xF2\x4D |0
-<U6AE1> \xEF\xE0 |0
-<U6AE5> \xC3\x6F |0
-<U6AE7> \xF2\x4C |0
-<U6AE8> \xF4\x56 |0
-<U6AEA> \xF4\x55 |0
-<U6AEB> \xF2\x55 |0
-<U6AEC> \xC4\x68 |0
-<U6AEE> \xF4\x59 |0
-<U6AEF> \xF4\x5A |0
-<U6AF0> \xF4\x54 |0
-<U6AF1> \xF4\x58 |0
-<U6AF3> \xF4\x53 |0
-<U6AF8> \xF5\xD1 |0
-<U6AF9> \xF4\x57 |0
-<U6AFA> \xC4\xE7 |0
-<U6AFB> \xC4\xE5 |0
-<U6AFC> \xF5\xCF |0
-<U6B00> \xF5\xD2 |0
-<U6B02> \xF5\xCE |0
-<U6B03> \xF5\xD0 |0
-<U6B04> \xC4\xE6 |0
-<U6B08> \xF6\xE5 |0
-<U6B09> \xF6\xE6 |0
-<U6B0A> \xC5\x76 |0
-<U6B0B> \xF6\xE4 |0
-<U6B0F> \xF7\xE2 |0
-<U6B10> \xC5\xCF |0
-<U6B11> \xF7\xE0 |0
-<U6B12> \xF7\xE1 |0
-<U6B13> \xF8\xAC |0
-<U6B16> \xC6\x56 |0
-<U6B17> \xF8\xF3 |0
-<U6B18> \xF8\xF1 |0
-<U6B19> \xF8\xF2 |0
-<U6B1A> \xF8\xF4 |0
-<U6B1E> \xF9\xBB |0
-<U6B20> \xA4\xED |0
-<U6B21> \xA6\xB8 |0
-<U6B23> \xAA\x59 |0
-<U6B25> \xCC\xE9 |0
-<U6B28> \xCF\x64 |0
-<U6B2C> \xD1\xF5 |0
-<U6B2D> \xD1\xF7 |0
-<U6B2F> \xD1\xF6 |0
-<U6B31> \xD1\xF8 |0
-<U6B32> \xB1\xFD |0
-<U6B33> \xD5\xD7 |0
-<U6B34> \xD1\xF9 |0
-<U6B36> \xD5\xD6 |0
-<U6B37> \xD5\xD8 |0
-<U6B38> \xD5\xD9 |0
-<U6B39> \xD9\xDA |0
-<U6B3A> \xB4\xDB |0
-<U6B3B> \xD9\xDB |0
-<U6B3C> \xD9\xDD |0
-<U6B3D> \xB4\xDC |0
-<U6B3E> \xB4\xDA |0
-<U6B3F> \xD9\xDC |0
-<U6B41> \xDD\xFA |0
-<U6B42> \xDD\xF8 |0
-<U6B43> \xDD\xF7 |0
-<U6B45> \xDD\xF6 |0
-<U6B46> \xDD\xF5 |0
-<U6B47> \xB7\xB2 |0
-<U6B48> \xDD\xF9 |0
-<U6B49> \xBA\x70 |0
-<U6B4A> \xE2\x63 |0
-<U6B4B> \xE2\x65 |0
-<U6B4C> \xBA\x71 |0
-<U6B4D> \xE2\x64 |0
-<U6B4E> \xBC\xDB |0
-<U6B50> \xBC\xDA |0
-<U6B51> \xE5\xF0 |0
-<U6B54> \xE9\xDF |0
-<U6B55> \xE9\xDE |0
-<U6B56> \xE9\xE0 |0
-<U6B59> \xBE\xF9 |0
-<U6B5B> \xED\x4B |0
-<U6B5C> \xC0\xD3 |0
-<U6B5E> \xEF\xE8 |0
-<U6B5F> \xC2\x6A |0
-<U6B60> \xF2\x59 |0
-<U6B61> \xC5\x77 |0
-<U6B62> \xA4\xEE |0
-<U6B63> \xA5\xBF |0
-<U6B64> \xA6\xB9 |0
-<U6B65> \xA8\x42 |0
-<U6B66> \xAA\x5A |0
-<U6B67> \xAA\x5B |0
-<U6B6A> \xAC\x6E |0
-<U6B6D> \xD1\xFA |0
-<U6B72> \xB7\xB3 |0
-<U6B76> \xE6\xD1 |0
-<U6B77> \xBE\xFA |0
-<U6B78> \xC2\x6B |0
-<U6B79> \xA4\xEF |0
-<U6B7B> \xA6\xBA |0
-<U6B7E> \xCC\xEB |0
-<U6B7F> \xAA\x5C |0
-<U6B80> \xCC\xEA |0
-<U6B82> \xCF\x65 |0
-<U6B83> \xAC\x6F |0
-<U6B84> \xCF\x66 |0
-<U6B86> \xAC\x70 |0
-<U6B88> \xD1\xFC |0
-<U6B89> \xAE\xEE |0
-<U6B8A> \xAE\xED |0
-<U6B8C> \xD5\xDE |0
-<U6B8D> \xD5\xDC |0
-<U6B8E> \xD5\xDD |0
-<U6B8F> \xD5\xDB |0
-<U6B91> \xD5\xDA |0
-<U6B94> \xD9\xDE |0
-<U6B95> \xD9\xE1 |0
-<U6B96> \xB4\xDE |0
-<U6B97> \xD9\xDF |0
-<U6B98> \xB4\xDD |0
-<U6B99> \xD9\xE0 |0
-<U6B9B> \xDD\xFB |0
-<U6B9E> \xE2\x66 |0
-<U6B9F> \xE2\x67 |0
-<U6BA0> \xE2\x68 |0
-<U6BA2> \xE5\xF3 |0
-<U6BA3> \xE5\xF2 |0
-<U6BA4> \xBC\xDC |0
-<U6BA5> \xE5\xF1 |0
-<U6BA6> \xE5\xF4 |0
-<U6BA7> \xE9\xE1 |0
-<U6BAA> \xE9\xE2 |0
-<U6BAB> \xE9\xE3 |0
-<U6BAD> \xED\x4C |0
-<U6BAE> \xC0\xD4 |0
-<U6BAF> \xC2\x6C |0
-<U6BB0> \xF2\x5A |0
-<U6BB2> \xC4\xE8 |0
-<U6BB3> \xC9\x5F |0
-<U6BB5> \xAC\x71 |0
-<U6BB6> \xCF\x67 |0
-<U6BB7> \xAE\xEF |0
-<U6BBA> \xB1\xFE |0
-<U6BBC> \xB4\xDF |0
-<U6BBD> \xD9\xE2 |0
-<U6BBF> \xB7\xB5 |0
-<U6BC0> \xB7\xB4 |0
-<U6BC3> \xE2\x69 |0
-<U6BC4> \xE2\x6A |0
-<U6BC5> \xBC\xDD |0
-<U6BC6> \xBC\xDE |0
-<U6BC7> \xE9\xE5 |0
-<U6BC8> \xE9\xE4 |0
-<U6BC9> \xEF\xE9 |0
-<U6BCA> \xF7\xE3 |0
-<U6BCB> \xA4\xF0 |0
-<U6BCC> \xC9\x60 |0
-<U6BCD> \xA5\xC0 |0
-<U6BCF> \xA8\x43 |0
-<U6BD0> \xCB\x48 |0
-<U6BD2> \xAC\x72 |0
-<U6BD3> \xB7\xB6 |0
-<U6BD4> \xA4\xF1 |0
-<U6BD6> \xCF\x68 |0
-<U6BD7> \xAC\x73 |0
-<U6BD8> \xCF\x69 |0
-<U6BDA> \xC0\xD5 |0
-<U6BDB> \xA4\xF2 |0
-<U6BDE> \xCC\xEC |0
-<U6BE0> \xCF\x6A |0
-<U6BE2> \xD2\x42 |0
-<U6BE3> \xD2\x41 |0
-<U6BE4> \xD1\xFE |0
-<U6BE6> \xD1\xFD |0
-<U6BE7> \xD2\x43 |0
-<U6BE8> \xD2\x40 |0
-<U6BEB> \xB2\x40 |0
-<U6BEC> \xB2\x41 |0
-<U6BEF> \xB4\xE0 |0
-<U6BF0> \xD9\xE3 |0
-<U6BF2> \xD9\xE4 |0
-<U6BF3> \xD9\xE5 |0
-<U6BF7> \xDE\x41 |0
-<U6BF8> \xDE\x42 |0
-<U6BF9> \xDE\x40 |0
-<U6BFB> \xDD\xFD |0
-<U6BFC> \xDD\xFE |0
-<U6BFD> \xB7\xB7 |0
-<U6BFE> \xE2\x6B |0
-<U6BFF> \xE5\xF7 |0
-<U6C00> \xE5\xF6 |0
-<U6C01> \xE5\xF5 |0
-<U6C02> \xE5\xF8 |0
-<U6C03> \xE9\xE7 |0
-<U6C04> \xE9\xE6 |0
-<U6C05> \xBE\xFB |0
-<U6C06> \xE9\xE8 |0
-<U6C08> \xC0\xD6 |0
-<U6C09> \xED\x4D |0
-<U6C0B> \xEF\xEA |0
-<U6C0C> \xF2\x5B |0
-<U6C0D> \xF6\xE7 |0
-<U6C0F> \xA4\xF3 |0
-<U6C10> \xA5\xC2 |0
-<U6C11> \xA5\xC1 |0
-<U6C13> \xAA\x5D |0
-<U6C14> \xC9\x61 |0
-<U6C15> \xC9\x7E |0
-<U6C16> \xA6\xBB |0
-<U6C18> \xC9\xF7 |0
-<U6C19> \xCB\x49 |0
-<U6C1A> \xCB\x4A |0
-<U6C1B> \xAA\x5E |0
-<U6C1D> \xCC\xED |0
-<U6C1F> \xAC\x74 |0
-<U6C20> \xCF\x6B |0
-<U6C21> \xCF\x6C |0
-<U6C23> \xAE\xF0 |0
-<U6C24> \xAE\xF4 |0
-<U6C25> \xD2\x44 |0
-<U6C26> \xAE\xF3 |0
-<U6C27> \xAE\xF1 |0
-<U6C28> \xAE\xF2 |0
-<U6C2A> \xD5\xDF |0
-<U6C2B> \xB2\x42 |0
-<U6C2C> \xB4\xE3 |0
-<U6C2E> \xB4\xE1 |0
-<U6C2F> \xB4\xE2 |0
-<U6C30> \xD9\xE6 |0
-<U6C33> \xBA\x72 |0
-<U6C34> \xA4\xF4 |0
-<U6C36> \xC9\xA1 |0
-<U6C38> \xA5\xC3 |0
-<U6C3B> \xC9\xA4 |0
-<U6C3E> \xA5\xC6 |0
-<U6C3F> \xC9\xA3 |0
-<U6C40> \xA5\xC5 |0
-<U6C41> \xA5\xC4 |0
-<U6C42> \xA8\x44 |0
-<U6C43> \xC9\xA2 |0
-<U6C46> \xC9\xF8 |0
-<U6C4A> \xC9\xFC |0
-<U6C4B> \xC9\xFE |0
-<U6C4C> \xCA\x40 |0
-<U6C4D> \xA6\xC5 |0
-<U6C4E> \xA6\xC6 |0
-<U6C4F> \xC9\xFB |0
-<U6C50> \xA6\xC1 |0
-<U6C52> \xC9\xF9 |0
-<U6C54> \xC9\xFD |0
-<U6C55> \xA6\xC2 |0
-<U6C57> \xA6\xBD |0
-<U6C59> \xA6\xBE |0
-<U6C5B> \xA6\xC4 |0
-<U6C5C> \xC9\xFA |0
-<U6C5D> \xA6\xBC |0
-<U6C5E> \xA8\x45 |0
-<U6C5F> \xA6\xBF |0
-<U6C60> \xA6\xC0 |0
-<U6C61> \xA6\xC3 |0
-<U6C65> \xCB\x5B |0
-<U6C66> \xCB\x59 |0
-<U6C67> \xCB\x4C |0
-<U6C68> \xA8\x51 |0
-<U6C69> \xCB\x53 |0
-<U6C6A> \xA8\x4C |0
-<U6C6B> \xCB\x4D |0
-<U6C6D> \xCB\x55 |0
-<U6C6F> \xCB\x52 |0
-<U6C70> \xA8\x4F |0
-<U6C71> \xCB\x51 |0
-<U6C72> \xA8\x56 |0
-<U6C73> \xCB\x5A |0
-<U6C74> \xA8\x58 |0
-<U6C76> \xA8\x5A |0
-<U6C78> \xCB\x4B |0
-<U6C7A> \xA8\x4D |0
-<U6C7B> \xCB\x5C |0
-<U6C7D> \xA8\x54 |0
-<U6C7E> \xA8\x57 |0
-<U6C80> \xCD\x45 |0
-<U6C81> \xA8\x47 |0
-<U6C82> \xA8\x5E |0
-<U6C83> \xA8\x55 |0
-<U6C84> \xCB\x4E |0
-<U6C85> \xA8\x4A |0
-<U6C86> \xA8\x59 |0
-<U6C87> \xCB\x56 |0
-<U6C88> \xA8\x48 |0
-<U6C89> \xA8\x49 |0
-<U6C8A> \xCD\x43 |0
-<U6C8B> \xCB\x4F |0
-<U6C8C> \xA8\x50 |0
-<U6C8D> \xA8\x5B |0
-<U6C8E> \xCB\x5D |0
-<U6C8F> \xCB\x50 |0
-<U6C90> \xA8\x4E |0
-<U6C92> \xA8\x53 |0
-<U6C93> \xCC\xEE |0
-<U6C94> \xA8\x5C |0
-<U6C95> \xCB\x57 |0
-<U6C96> \xA8\x52 |0
-<U6C98> \xA8\x5D |0
-<U6C99> \xA8\x46 |0
-<U6C9A> \xCB\x54 |0
-<U6C9B> \xA8\x4B |0
-<U6C9C> \xCB\x58 |0
-<U6C9D> \xCD\x44 |0
-<U6CAB> \xAA\x6A |0
-<U6CAC> \xAA\x7A |0
-<U6CAD> \xCC\xF5 |0
-<U6CAE> \xAA\x71 |0
-<U6CB0> \xCD\x4B |0
-<U6CB1> \xAA\x62 |0
-<U6CB3> \xAA\x65 |0
-<U6CB4> \xCD\x42 |0
-<U6CB6> \xCC\xF3 |0
-<U6CB7> \xCC\xF7 |0
-<U6CB8> \xAA\x6D |0
-<U6CB9> \xAA\x6F |0
-<U6CBA> \xCC\xFA |0
-<U6CBB> \xAA\x76 |0
-<U6CBC> \xAA\x68 |0
-<U6CBD> \xAA\x66 |0
-<U6CBE> \xAA\x67 |0
-<U6CBF> \xAA\x75 |0
-<U6CC0> \xCD\x47 |0
-<U6CC1> \xAA\x70 |0
-<U6CC2> \xCC\xF9 |0
-<U6CC3> \xCC\xFB |0
-<U6CC4> \xAA\x6E |0
-<U6CC5> \xAA\x73 |0
-<U6CC6> \xCC\xFC |0
-<U6CC7> \xCD\x4A |0
-<U6CC9> \xAC\x75 |0
-<U6CCA> \xAA\x79 |0
-<U6CCC> \xAA\x63 |0
-<U6CCD> \xCD\x49 |0
-<U6CCF> \xCD\x4D |0
-<U6CD0> \xCC\xF8 |0
-<U6CD1> \xCD\x4F |0
-<U6CD2> \xCD\x40 |0
-<U6CD3> \xAA\x6C |0
-<U6CD4> \xCC\xF4 |0
-<U6CD5> \xAA\x6B |0
-<U6CD6> \xAA\x7D |0
-<U6CD7> \xAA\x72 |0
-<U6CD9> \xCC\xF2 |0
-<U6CDA> \xCF\x75 |0
-<U6CDB> \xAA\x78 |0
-<U6CDC> \xAA\x7C |0
-<U6CDD> \xCD\x41 |0
-<U6CDE> \xCD\x46 |0
-<U6CE0> \xAA\x7E |0
-<U6CE1> \xAA\x77 |0
-<U6CE2> \xAA\x69 |0
-<U6CE3> \xAA\x5F |0
-<U6CE5> \xAA\x64 |0
-<U6CE7> \xCC\xF6 |0
-<U6CE8> \xAA\x60 |0
-<U6CE9> \xCD\x4E |0
-<U6CEB> \xCC\xF0 |0
-<U6CEC> \xCC\xEF |0
-<U6CED> \xCC\xFD |0
-<U6CEE> \xCC\xF1 |0
-<U6CEF> \xAA\x7B |0
-<U6CF0> \xAE\xF5 |0
-<U6CF1> \xAA\x74 |0
-<U6CF2> \xCC\xFE |0
-<U6CF3> \xAA\x61 |0
-<U6CF5> \xAC\xA6 |0
-<U6CF9> \xCD\x4C |0
-<U6D00> \xCF\x7C |0
-<U6D01> \xCF\xA1 |0
-<U6D03> \xCF\xA4 |0
-<U6D04> \xCF\x77 |0
-<U6D07> \xCF\xA7 |0
-<U6D08> \xCF\xAA |0
-<U6D09> \xCF\xAC |0
-<U6D0A> \xCF\x74 |0
-<U6D0B> \xAC\x76 |0
-<U6D0C> \xAC\x7B |0
-<U6D0D> \xD2\x49 |0
-<U6D0E> \xAC\xAD |0
-<U6D0F> \xCF\xA5 |0
-<U6D10> \xCF\xAD |0
-<U6D11> \xCF\x7B |0
-<U6D12> \xCF\x73 |0
-<U6D16> \xD2\x64 |0
-<U6D17> \xAC\x7E |0
-<U6D18> \xCF\xA2 |0
-<U6D19> \xCF\x78 |0
-<U6D1A> \xCF\x7A |0
-<U6D1B> \xAC\xA5 |0
-<U6D1D> \xCF\x7D |0
-<U6D1E> \xAC\x7D |0
-<U6D1F> \xCF\x70 |0
-<U6D20> \xCF\xA8 |0
-<U6D22> \xCF\xAB |0
-<U6D25> \xAC\x7A |0
-<U6D27> \xAC\xA8 |0
-<U6D28> \xCF\x6D |0
-<U6D29> \xAC\xAA |0
-<U6D2A> \xAC\x78 |0
-<U6D2B> \xAC\xAE |0
-<U6D2C> \xCF\xA9 |0
-<U6D2D> \xCF\x6F |0
-<U6D2E> \xAC\xAB |0
-<U6D2F> \xD2\x5E |0
-<U6D30> \xCD\x48 |0
-<U6D31> \xAC\x7C |0
-<U6D32> \xAC\x77 |0
-<U6D33> \xCF\x76 |0
-<U6D34> \xCF\x6E |0
-<U6D35> \xAC\xAC |0
-<U6D36> \xAC\xA4 |0
-<U6D37> \xCF\xA3 |0
-<U6D38> \xAC\xA9 |0
-<U6D39> \xAC\xA7 |0
-<U6D3A> \xCF\x79 |0
-<U6D3B> \xAC\xA1 |0
-<U6D3C> \xCF\x71 |0
-<U6D3D> \xAC\xA2 |0
-<U6D3E> \xAC\xA3 |0
-<U6D3F> \xCF\x72 |0
-<U6D40> \xCF\xA6 |0
-<U6D41> \xAC\x79 |0
-<U6D42> \xCF\x7E |0
-<U6D58> \xD2\x4C |0
-<U6D59> \xAE\xFD |0
-<U6D5A> \xAF\x43 |0
-<U6D5E> \xD2\x55 |0
-<U6D5F> \xD2\x5B |0
-<U6D60> \xD2\x57 |0
-<U6D61> \xD2\x4A |0
-<U6D62> \xD2\x4D |0
-<U6D63> \xD2\x46 |0
-<U6D64> \xD2\x47 |0
-<U6D65> \xAF\x4A |0
-<U6D66> \xAE\xFA |0
-<U6D67> \xD2\x56 |0
-<U6D68> \xD2\x5F |0
-<U6D69> \xAF\x45 |0
-<U6D6A> \xAE\xF6 |0
-<U6D6C> \xAF\x40 |0
-<U6D6D> \xD2\x4E |0
-<U6D6E> \xAF\x42 |0
-<U6D6F> \xD2\x4F |0
-<U6D70> \xD2\x59 |0
-<U6D74> \xAF\x44 |0
-<U6D75> \xD2\x68 |0
-<U6D76> \xD2\x48 |0
-<U6D77> \xAE\xFC |0
-<U6D78> \xAE\xFB |0
-<U6D79> \xAF\x48 |0
-<U6D7A> \xD2\x45 |0
-<U6D7B> \xD2\x66 |0
-<U6D7C> \xD2\x5A |0
-<U6D7D> \xD2\x67 |0
-<U6D7E> \xD2\x61 |0
-<U6D7F> \xD2\x53 |0
-<U6D80> \xD2\x62 |0
-<U6D82> \xD2\x5C |0
-<U6D83> \xD2\x65 |0
-<U6D84> \xD2\x63 |0
-<U6D85> \xAF\x49 |0
-<U6D86> \xD2\x54 |0
-<U6D87> \xAE\xF9 |0
-<U6D88> \xAE\xF8 |0
-<U6D89> \xAF\x41 |0
-<U6D8A> \xAF\x47 |0
-<U6D8B> \xD2\x60 |0
-<U6D8C> \xAF\x46 |0
-<U6D8D> \xD2\x51 |0
-<U6D8E> \xB2\x43 |0
-<U6D90> \xD2\x69 |0
-<U6D91> \xD2\x50 |0
-<U6D92> \xD2\x4B |0
-<U6D93> \xAE\xFE |0
-<U6D94> \xAF\x4B |0
-<U6D95> \xAE\xF7 |0
-<U6D97> \xD2\x58 |0
-<U6D98> \xD2\x5D |0
-<U6DAA> \xB2\x65 |0
-<U6DAB> \xD5\xE1 |0
-<U6DAC> \xD5\xE5 |0
-<U6DAE> \xB2\x52 |0
-<U6DAF> \xB2\x50 |0
-<U6DB2> \xB2\x47 |0
-<U6DB3> \xD5\xE3 |0
-<U6DB4> \xD5\xE2 |0
-<U6DB5> \xB2\x5B |0
-<U6DB7> \xD5\xE8 |0
-<U6DB8> \xB2\x55 |0
-<U6DBA> \xD5\xFA |0
-<U6DBB> \xD6\x47 |0
-<U6DBC> \xB2\x44 |0
-<U6DBD> \xD5\xF7 |0
-<U6DBE> \xD5\xF0 |0
-<U6DBF> \xB2\x67 |0
-<U6DC0> \xD5\xE0 |0
-<U6DC2> \xD5\xFC |0
-<U6DC4> \xB2\x64 |0
-<U6DC5> \xB2\x58 |0
-<U6DC6> \xB2\x63 |0
-<U6DC7> \xB2\x4E |0
-<U6DC8> \xD5\xEC |0
-<U6DC9> \xD5\xFE |0
-<U6DCA> \xD5\xF6 |0
-<U6DCB> \xB2\x4F |0
-<U6DCC> \xB2\x49 |0
-<U6DCD> \xD6\x45 |0
-<U6DCF> \xD5\xFD |0
-<U6DD0> \xD6\x40 |0
-<U6DD1> \xB2\x51 |0
-<U6DD2> \xB2\x59 |0
-<U6DD3> \xD6\x42 |0
-<U6DD4> \xD5\xEA |0
-<U6DD5> \xD5\xFB |0
-<U6DD6> \xD5\xEF |0
-<U6DD7> \xD6\x44 |0
-<U6DD8> \xB2\x5E |0
-<U6DD9> \xB2\x46 |0
-<U6DDA> \xB2\x5C |0
-<U6DDB> \xD5\xF4 |0
-<U6DDC> \xD5\xF2 |0
-<U6DDD> \xD5\xF3 |0
-<U6DDE> \xB2\x53 |0
-<U6DDF> \xD5\xEE |0
-<U6DE0> \xD5\xED |0
-<U6DE1> \xB2\x48 |0
-<U6DE2> \xD5\xE7 |0
-<U6DE3> \xD6\x46 |0
-<U6DE4> \xB2\x4A |0
-<U6DE5> \xD5\xF1 |0
-<U6DE6> \xB2\x68 |0
-<U6DE8> \xB2\x62 |0
-<U6DE9> \xD5\xE6 |0
-<U6DEA> \xB2\x5F |0
-<U6DEB> \xB2\x5D |0
-<U6DEC> \xB2\x66 |0
-<U6DED> \xD5\xF8 |0
-<U6DEE> \xB2\x61 |0
-<U6DEF> \xD2\x52 |0
-<U6DF0> \xD5\xF9 |0
-<U6DF1> \xB2\x60 |0
-<U6DF2> \xD6\x41 |0
-<U6DF3> \xB2\x45 |0
-<U6DF4> \xD5\xF5 |0
-<U6DF5> \xB2\x57 |0
-<U6DF6> \xD5\xE9 |0
-<U6DF7> \xB2\x56 |0
-<U6DF9> \xB2\x54 |0
-<U6DFA> \xB2\x4C |0
-<U6DFB> \xB2\x4B |0
-<U6DFC> \xD9\xE7 |0
-<U6DFD> \xD6\x43 |0
-<U6E00> \xD5\xEB |0
-<U6E03> \xD9\xFC |0
-<U6E05> \xB2\x4D |0
-<U6E19> \xB5\x41 |0
-<U6E1A> \xB2\x5A |0
-<U6E1B> \xB4\xEE |0
-<U6E1C> \xD9\xF6 |0
-<U6E1D> \xB4\xFC |0
-<U6E1F> \xD9\xEA |0
-<U6E20> \xB4\xEB |0
-<U6E21> \xB4\xE7 |0
-<U6E22> \xDA\x49 |0
-<U6E23> \xB4\xED |0
-<U6E24> \xB4\xF1 |0
-<U6E25> \xB4\xEC |0
-<U6E26> \xB4\xF5 |0
-<U6E27> \xDA\x4D |0
-<U6E28> \xDA\x44 |0
-<U6E2B> \xD9\xF1 |0
-<U6E2C> \xB4\xFA |0
-<U6E2D> \xB4\xF4 |0
-<U6E2E> \xD9\xFD |0
-<U6E2F> \xB4\xE4 |0
-<U6E30> \xDA\x4A |0
-<U6E31> \xDA\x43 |0
-<U6E32> \xB4\xE8 |0
-<U6E33> \xD9\xF7 |0
-<U6E34> \xB4\xF7 |0
-<U6E35> \xDA\x55 |0
-<U6E36> \xDA\x56 |0
-<U6E38> \xB4\xE5 |0
-<U6E39> \xDA\x48 |0
-<U6E3A> \xB4\xF9 |0
-<U6E3B> \xD9\xFB |0
-<U6E3C> \xD9\xED |0
-<U6E3D> \xD9\xEE |0
-<U6E3E> \xB4\xFD |0
-<U6E3F> \xD9\xF2 |0
-<U6E40> \xD9\xF9 |0
-<U6E41> \xD9\xF3 |0
-<U6E43> \xB4\xFB |0
-<U6E44> \xB5\x44 |0
-<U6E45> \xD9\xEF |0
-<U6E46> \xD9\xE8 |0
-<U6E47> \xD9\xE9 |0
-<U6E49> \xD9\xEB |0
-<U6E4A> \xB4\xEA |0
-<U6E4B> \xD9\xF8 |0
-<U6E4D> \xB4\xF8 |0
-<U6E4E> \xB5\x42 |0
-<U6E51> \xD9\xFA |0
-<U6E52> \xDA\x53 |0
-<U6E53> \xDA\x4B |0
-<U6E54> \xB4\xE6 |0
-<U6E55> \xDA\x51 |0
-<U6E56> \xB4\xF2 |0
-<U6E58> \xB4\xF0 |0
-<U6E5A> \xDA\x57 |0
-<U6E5B> \xB4\xEF |0
-<U6E5C> \xDA\x41 |0
-<U6E5D> \xD9\xF4 |0
-<U6E5E> \xD9\xFE |0
-<U6E5F> \xB5\x47 |0
-<U6E60> \xDA\x45 |0
-<U6E61> \xDA\x42 |0
-<U6E62> \xD9\xF0 |0
-<U6E63> \xB5\x43 |0
-<U6E64> \xDA\x4F |0
-<U6E65> \xDA\x4C |0
-<U6E66> \xDA\x54 |0
-<U6E67> \xB4\xE9 |0
-<U6E68> \xDA\x40 |0
-<U6E69> \xB5\x46 |0
-<U6E6B> \xDA\x47 |0
-<U6E6E> \xB4\xF3 |0
-<U6E6F> \xB4\xF6 |0
-<U6E71> \xDA\x46 |0
-<U6E72> \xB5\x45 |0
-<U6E73> \xD9\xF5 |0
-<U6E74> \xD5\xE4 |0
-<U6E77> \xDA\x50 |0
-<U6E78> \xDA\x4E |0
-<U6E79> \xDA\x52 |0
-<U6E88> \xD9\xEC |0
-<U6E89> \xB5\x40 |0
-<U6E8D> \xDE\x61 |0
-<U6E8E> \xDE\x60 |0
-<U6E8F> \xDE\x46 |0
-<U6E90> \xB7\xBD |0
-<U6E92> \xDE\x5F |0
-<U6E93> \xDE\x49 |0
-<U6E94> \xDE\x4A |0
-<U6E96> \xB7\xC7 |0
-<U6E97> \xDE\x68 |0
-<U6E98> \xB7\xC2 |0
-<U6E99> \xDE\x5E |0
-<U6E9B> \xDE\x43 |0
-<U6E9C> \xB7\xC8 |0
-<U6E9D> \xB7\xBE |0
-<U6E9E> \xDE\x52 |0
-<U6E9F> \xDE\x48 |0
-<U6EA0> \xDE\x4B |0
-<U6EA1> \xDE\x63 |0
-<U6EA2> \xB7\xB8 |0
-<U6EA3> \xDE\x6A |0
-<U6EA4> \xDE\x62 |0
-<U6EA5> \xB7\xC1 |0
-<U6EA6> \xDE\x57 |0
-<U6EA7> \xB7\xCC |0
-<U6EAA> \xB7\xCB |0
-<U6EAB> \xB7\xC5 |0
-<U6EAE> \xDE\x69 |0
-<U6EAF> \xB7\xB9 |0
-<U6EB0> \xDE\x55 |0
-<U6EB1> \xDE\x4C |0
-<U6EB2> \xDE\x59 |0
-<U6EB3> \xDE\x65 |0
-<U6EB4> \xB7\xCD |0
-<U6EB6> \xB7\xBB |0
-<U6EB7> \xDE\x54 |0
-<U6EB9> \xDE\x4D |0
-<U6EBA> \xB7\xC4 |0
-<U6EBC> \xB7\xC3 |0
-<U6EBD> \xDE\x50 |0
-<U6EBE> \xDE\x5A |0
-<U6EBF> \xDE\x64 |0
-<U6EC0> \xDE\x47 |0
-<U6EC1> \xDE\x51 |0
-<U6EC2> \xB7\xBC |0
-<U6EC3> \xDE\x5B |0
-<U6EC4> \xB7\xC9 |0
-<U6EC5> \xB7\xC0 |0
-<U6EC6> \xDE\x4E |0
-<U6EC7> \xB7\xBF |0
-<U6EC8> \xDE\x45 |0
-<U6EC9> \xDE\x53 |0
-<U6ECA> \xDE\x67 |0
-<U6ECB> \xB4\xFE |0
-<U6ECC> \xBA\xB0 |0
-<U6ECD> \xDE\x56 |0
-<U6ECE> \xE2\x6C |0
-<U6ECF> \xDE\x58 |0
-<U6ED0> \xDE\x66 |0
-<U6ED1> \xB7\xC6 |0
-<U6ED2> \xDE\x4F |0
-<U6ED3> \xB7\xBA |0
-<U6ED4> \xB7\xCA |0
-<U6ED5> \xBC\xF0 |0
-<U6ED6> \xDE\x44 |0
-<U6ED8> \xDE\x5D |0
-<U6EDC> \xDE\x5C |0
-<U6EEB> \xE2\xAA |0
-<U6EEC> \xBA\xAD |0
-<U6EED> \xE2\x7D |0
-<U6EEE> \xE2\xA4 |0
-<U6EEF> \xBA\xA2 |0
-<U6EF1> \xE2\x6E |0
-<U6EF2> \xBA\xAF |0
-<U6EF4> \xBA\x77 |0
-<U6EF5> \xE2\x6D |0
-<U6EF6> \xE2\xB0 |0
-<U6EF7> \xBA\xB1 |0
-<U6EF8> \xE2\x71 |0
-<U6EF9> \xE2\xA3 |0
-<U6EFB> \xE2\x73 |0
-<U6EFC> \xE2\xB3 |0
-<U6EFD> \xE2\xAF |0
-<U6EFE> \xBA\x75 |0
-<U6EFF> \xBA\xA1 |0
-<U6F00> \xE6\x53 |0
-<U6F01> \xBA\xAE |0
-<U6F02> \xBA\x7D |0
-<U6F03> \xE2\x6F |0
-<U6F05> \xE2\xAE |0
-<U6F06> \xBA\xA3 |0
-<U6F07> \xE2\xAB |0
-<U6F08> \xE2\xB8 |0
-<U6F09> \xE2\x75 |0
-<U6F0A> \xE2\x7E |0
-<U6F0D> \xE2\xB6 |0
-<U6F0E> \xE2\xAC |0
-<U6F0F> \xBA\x7C |0
-<U6F12> \xE2\x7C |0
-<U6F13> \xBA\x76 |0
-<U6F14> \xBA\x74 |0
-<U6F15> \xBA\xA8 |0
-<U6F18> \xE2\x7A |0
-<U6F19> \xE2\x77 |0
-<U6F1A> \xE2\x78 |0
-<U6F1C> \xE2\xB2 |0
-<U6F1E> \xE2\xB7 |0
-<U6F1F> \xE2\xB5 |0
-<U6F20> \xBA\x7A |0
-<U6F21> \xE2\xB9 |0
-<U6F22> \xBA\x7E |0
-<U6F23> \xBA\xA7 |0
-<U6F25> \xE2\x70 |0
-<U6F26> \xE5\xFA |0
-<U6F27> \xE2\x79 |0
-<U6F29> \xBA\x78 |0
-<U6F2A> \xBA\xAC |0
-<U6F2B> \xBA\xA9 |0
-<U6F2C> \xBA\x7B |0
-<U6F2D> \xE2\xA5 |0
-<U6F2E> \xE2\x74 |0
-<U6F2F> \xBA\xAA |0
-<U6F30> \xE2\xA7 |0
-<U6F31> \xBA\xA4 |0
-<U6F32> \xBA\xA6 |0
-<U6F33> \xBA\x73 |0
-<U6F35> \xE2\xA9 |0
-<U6F36> \xE2\xA1 |0
-<U6F37> \xE2\x72 |0
-<U6F38> \xBA\xA5 |0
-<U6F39> \xE2\xB1 |0
-<U6F3A> \xE2\xB4 |0
-<U6F3B> \xE2\x7B |0
-<U6F3C> \xE2\xA8 |0
-<U6F3E> \xBA\x79 |0
-<U6F3F> \xBC\xDF |0
-<U6F40> \xE2\xA6 |0
-<U6F41> \xE5\xF9 |0
-<U6F43> \xE2\xAD |0
-<U6F4E> \xE2\x76 |0
-<U6F4F> \xE6\x44 |0
-<U6F50> \xE6\x4E |0
-<U6F51> \xBC\xE2 |0
-<U6F52> \xE6\x4D |0
-<U6F53> \xE6\x59 |0
-<U6F54> \xBC\xE4 |0
-<U6F55> \xE6\x4B |0
-<U6F57> \xE6\x4F |0
-<U6F58> \xBC\xEF |0
-<U6F5A> \xE6\x46 |0
-<U6F5B> \xBC\xE7 |0
-<U6F5D> \xE6\x52 |0
-<U6F5E> \xE9\xF0 |0
-<U6F5F> \xBC\xF3 |0
-<U6F60> \xBC\xF2 |0
-<U6F61> \xE6\x54 |0
-<U6F62> \xE6\x43 |0
-<U6F63> \xE6\x5E |0
-<U6F64> \xBC\xED |0
-<U6F66> \xBC\xE3 |0
-<U6F67> \xE6\x57 |0
-<U6F69> \xE6\x5B |0
-<U6F6A> \xE6\x60 |0
-<U6F6B> \xE6\x55 |0
-<U6F6C> \xE6\x49 |0
-<U6F6D> \xBC\xE6 |0
-<U6F6E> \xBC\xE9 |0
-<U6F6F> \xBC\xF1 |0
-<U6F70> \xBC\xEC |0
-<U6F72> \xE6\x4C |0
-<U6F73> \xE2\xA2 |0
-<U6F76> \xE6\x48 |0
-<U6F77> \xE6\x5F |0
-<U6F78> \xBC\xE8 |0
-<U6F7A> \xBC\xEB |0
-<U6F7B> \xE6\x61 |0
-<U6F7C> \xBC\xE0 |0
-<U6F7D> \xE6\x56 |0
-<U6F7E> \xE5\xFB |0
-<U6F7F> \xE6\x5C |0
-<U6F80> \xC0\xDF |0
-<U6F82> \xE6\x4A |0
-<U6F84> \xBC\xE1 |0
-<U6F85> \xE6\x45 |0
-<U6F86> \xBC\xE5 |0
-<U6F87> \xE5\xFC |0
-<U6F88> \xBA\xAB |0
-<U6F89> \xE6\x41 |0
-<U6F8B> \xE6\x5A |0
-<U6F8C> \xE6\x42 |0
-<U6F8D> \xE6\x40 |0
-<U6F8E> \xBC\xEA |0
-<U6F90> \xE6\x58 |0
-<U6F92> \xE5\xFE |0
-<U6F93> \xE6\x51 |0
-<U6F94> \xE6\x50 |0
-<U6F95> \xE6\x5D |0
-<U6F96> \xE6\x47 |0
-<U6F97> \xBC\xEE |0
-<U6F9E> \xE9\xF3 |0
-<U6FA0> \xBF\x49 |0
-<U6FA1> \xBE\xFE |0
-<U6FA2> \xEA\x40 |0
-<U6FA3> \xE9\xEB |0
-<U6FA4> \xBF\x41 |0
-<U6FA5> \xE9\xF7 |0
-<U6FA6> \xBF\x48 |0
-<U6FA7> \xBF\x43 |0
-<U6FA8> \xE9\xF5 |0
-<U6FA9> \xED\x4F |0
-<U6FAA> \xE9\xFB |0
-<U6FAB> \xEA\x42 |0
-<U6FAC> \xE9\xFA |0
-<U6FAD> \xE9\xE9 |0
-<U6FAE> \xE9\xF8 |0
-<U6FAF> \xEA\x44 |0
-<U6FB0> \xEA\x46 |0
-<U6FB1> \xBE\xFD |0
-<U6FB2> \xEA\x45 |0
-<U6FB3> \xBF\x44 |0
-<U6FB4> \xBF\x4A |0
-<U6FB6> \xBF\x47 |0
-<U6FB8> \xE9\xFE |0
-<U6FB9> \xBF\x46 |0
-<U6FBA> \xE9\xF9 |0
-<U6FBC> \xE9\xED |0
-<U6FBD> \xE9\xF2 |0
-<U6FBF> \xE9\xFD |0
-<U6FC0> \xBF\x45 |0
-<U6FC1> \xBF\x42 |0
-<U6FC2> \xBE\xFC |0
-<U6FC3> \xBF\x40 |0
-<U6FC4> \xE9\xF1 |0
-<U6FC6> \xE5\xFD |0
-<U6FC7> \xE9\xEC |0
-<U6FC8> \xE9\xEF |0
-<U6FC9> \xEA\x41 |0
-<U6FCA> \xE9\xF4 |0
-<U6FCB> \xE9\xEA |0
-<U6FCC> \xED\x4E |0
-<U6FCD> \xEA\x43 |0
-<U6FCE> \xE9\xEE |0
-<U6FCF> \xE9\xFC |0
-<U6FD4> \xED\x51 |0
-<U6FD5> \xC0\xE3 |0
-<U6FD8> \xC0\xD7 |0
-<U6FDB> \xC0\xDB |0
-<U6FDC> \xED\x53 |0
-<U6FDD> \xED\x59 |0
-<U6FDE> \xED\x57 |0
-<U6FDF> \xC0\xD9 |0
-<U6FE0> \xC0\xDA |0
-<U6FE1> \xC0\xE1 |0
-<U6FE2> \xED\x5A |0
-<U6FE3> \xED\x52 |0
-<U6FE4> \xC0\xDC |0
-<U6FE6> \xED\x56 |0
-<U6FE7> \xED\x55 |0
-<U6FE8> \xED\x5B |0
-<U6FE9> \xC0\xE2 |0
-<U6FEB> \xC0\xDD |0
-<U6FEC> \xC0\xE0 |0
-<U6FED> \xED\x54 |0
-<U6FEE> \xC0\xE4 |0
-<U6FEF> \xC0\xDE |0
-<U6FF0> \xC0\xE5 |0
-<U6FF1> \xC0\xD8 |0
-<U6FF2> \xED\x58 |0
-<U6FF4> \xED\x50 |0
-<U6FF7> \xEF\xF7 |0
-<U6FFA> \xC2\x71 |0
-<U6FFB> \xEF\xF4 |0
-<U6FFC> \xEF\xF6 |0
-<U6FFE> \xC2\x6F |0
-<U6FFF> \xEF\xF2 |0
-<U7000> \xEF\xF3 |0
-<U7001> \xEF\xEE |0
-<U7004> \xE9\xF6 |0
-<U7005> \xEF\xEF |0
-<U7006> \xC2\x70 |0
-<U7007> \xEF\xEB |0
-<U7009> \xC2\x6D |0
-<U700A> \xEF\xF8 |0
-<U700B> \xC2\x6E |0
-<U700C> \xEF\xEC |0
-<U700D> \xEF\xED |0
-<U700E> \xEF\xF1 |0
-<U700F> \xC2\x73 |0
-<U7011> \xC2\x72 |0
-<U7014> \xEF\xF0 |0
-<U7015> \xC3\x78 |0
-<U7016> \xF2\x5F |0
-<U7017> \xF2\x65 |0
-<U7018> \xC3\x79 |0
-<U7019> \xF2\x5C |0
-<U701A> \xC3\x76 |0
-<U701B> \xC3\x73 |0
-<U701C> \xF2\x67 |0
-<U701D> \xC3\x77 |0
-<U701F> \xC3\x74 |0
-<U7020> \xF2\x5E |0
-<U7021> \xF2\x61 |0
-<U7022> \xF2\x62 |0
-<U7023> \xF2\x63 |0
-<U7024> \xF2\x66 |0
-<U7026> \xEF\xF5 |0
-<U7027> \xF2\x5D |0
-<U7028> \xC3\x75 |0
-<U7029> \xF2\x64 |0
-<U702A> \xF2\x68 |0
-<U702B> \xF2\x60 |0
-<U702F> \xF4\x5D |0
-<U7030> \xC4\x6A |0
-<U7031> \xF4\x60 |0
-<U7032> \xC4\x6B |0
-<U7033> \xF4\x68 |0
-<U7034> \xF4\x5F |0
-<U7035> \xF4\x5C |0
-<U7037> \xF4\x5E |0
-<U7038> \xF4\x62 |0
-<U7039> \xF4\x65 |0
-<U703A> \xF4\x64 |0
-<U703B> \xF4\x67 |0
-<U703C> \xF4\x5B |0
-<U703E> \xC4\x69 |0
-<U703F> \xF4\x63 |0
-<U7040> \xF4\x66 |0
-<U7041> \xF4\x69 |0
-<U7042> \xF4\x61 |0
-<U7043> \xF5\xD3 |0
-<U7044> \xF5\xD4 |0
-<U7045> \xF5\xD8 |0
-<U7046> \xF5\xD9 |0
-<U7048> \xF5\xD6 |0
-<U7049> \xF5\xD7 |0
-<U704A> \xF5\xD5 |0
-<U704C> \xC4\xE9 |0
-<U7051> \xC5\x78 |0
-<U7052> \xF6\xEB |0
-<U7055> \xF6\xE8 |0
-<U7056> \xF6\xE9 |0
-<U7057> \xF6\xEA |0
-<U7058> \xC5\x79 |0
-<U705A> \xF7\xE5 |0
-<U705B> \xF7\xE4 |0
-<U705D> \xF8\xAF |0
-<U705E> \xC5\xF4 |0
-<U705F> \xF8\xAD |0
-<U7060> \xF8\xB0 |0
-<U7061> \xF8\xAE |0
-<U7062> \xF8\xF5 |0
-<U7063> \xC6\x57 |0
-<U7064> \xC6\x65 |0
-<U7065> \xF9\xA3 |0
-<U7066> \xF9\x6C |0
-<U7068> \xF9\xA2 |0
-<U7069> \xF9\xD0 |0
-<U706A> \xF9\xD1 |0
-<U706B> \xA4\xF5 |0
-<U7070> \xA6\xC7 |0
-<U7071> \xCA\x41 |0
-<U7074> \xCB\x5E |0
-<U7076> \xA8\x5F |0
-<U7078> \xA8\x62 |0
-<U707A> \xCB\x5F |0
-<U707C> \xA8\x60 |0
-<U707D> \xA8\x61 |0
-<U7082> \xCD\x58 |0
-<U7083> \xCD\x5A |0
-<U7084> \xCD\x55 |0
-<U7085> \xCD\x52 |0
-<U7086> \xCD\x54 |0
-<U708A> \xAA\xA4 |0
-<U708E> \xAA\xA2 |0
-<U7091> \xCD\x56 |0
-<U7092> \xAA\xA3 |0
-<U7093> \xCD\x53 |0
-<U7094> \xCD\x50 |0
-<U7095> \xAA\xA1 |0
-<U7096> \xCD\x57 |0
-<U7098> \xCD\x51 |0
-<U7099> \xAA\xA5 |0
-<U709A> \xCD\x59 |0
-<U709F> \xCF\xAF |0
-<U70A1> \xCF\xB3 |0
-<U70A4> \xAC\xB7 |0
-<U70A9> \xCF\xB6 |0
-<U70AB> \xAC\xAF |0
-<U70AC> \xAC\xB2 |0
-<U70AD> \xAC\xB4 |0
-<U70AE> \xAC\xB6 |0
-<U70AF> \xAC\xB3 |0
-<U70B0> \xCF\xB2 |0
-<U70B1> \xCF\xB1 |0
-<U70B3> \xAC\xB1 |0
-<U70B4> \xCF\xB4 |0
-<U70B5> \xCF\xB5 |0
-<U70B7> \xCF\xAE |0
-<U70B8> \xAC\xB5 |0
-<U70BA> \xAC\xB0 |0
-<U70BE> \xCF\xB0 |0
-<U70C5> \xD2\x77 |0
-<U70C6> \xD2\x78 |0
-<U70C7> \xD2\x79 |0
-<U70C8> \xAF\x50 |0
-<U70CA> \xAF\x4C |0
-<U70CB> \xD2\x6E |0
-<U70CD> \xD2\x76 |0
-<U70CE> \xD2\x7B |0
-<U70CF> \xAF\x51 |0
-<U70D1> \xD2\x6C |0
-<U70D2> \xD2\x72 |0
-<U70D3> \xD2\x6B |0
-<U70D4> \xD2\x75 |0
-<U70D7> \xD2\x71 |0
-<U70D8> \xAF\x4D |0
-<U70D9> \xAF\x4F |0
-<U70DA> \xD2\x7A |0
-<U70DC> \xD2\x6A |0
-<U70DD> \xD2\x6D |0
-<U70DE> \xD2\x73 |0
-<U70E0> \xD2\x74 |0
-<U70E1> \xD2\x7C |0
-<U70E2> \xD2\x70 |0
-<U70E4> \xAF\x4E |0
-<U70EF> \xB2\x6D |0
-<U70F0> \xD6\x4E |0
-<U70F3> \xD6\x50 |0
-<U70F4> \xD6\x4C |0
-<U70F6> \xD6\x58 |0
-<U70F7> \xD6\x4A |0
-<U70F8> \xD6\x57 |0
-<U70F9> \xB2\x69 |0
-<U70FA> \xD6\x48 |0
-<U70FB> \xDA\x5B |0
-<U70FC> \xD6\x52 |0
-<U70FD> \xB2\x6C |0
-<U70FF> \xD6\x53 |0
-<U7100> \xD6\x56 |0
-<U7102> \xD6\x5A |0
-<U7104> \xD6\x4F |0
-<U7106> \xD6\x54 |0
-<U7109> \xB2\x6A |0
-<U710A> \xB2\x6B |0
-<U710B> \xD6\x59 |0
-<U710C> \xD6\x4D |0
-<U710D> \xD6\x49 |0
-<U710E> \xD6\x5B |0
-<U7110> \xD6\x51 |0
-<U7113> \xD6\x55 |0
-<U7117> \xD6\x4B |0
-<U7119> \xB5\x48 |0
-<U711A> \xB5\x49 |0
-<U711B> \xDA\x65 |0
-<U711C> \xB5\x4F |0
-<U711E> \xDA\x59 |0
-<U711F> \xDA\x62 |0
-<U7120> \xDA\x58 |0
-<U7121> \xB5\x4C |0
-<U7122> \xDA\x60 |0
-<U7123> \xDA\x5E |0
-<U7125> \xDA\x5F |0
-<U7126> \xB5\x4A |0
-<U7128> \xDA\x63 |0
-<U712E> \xDA\x5C |0
-<U712F> \xDA\x5A |0
-<U7130> \xB5\x4B |0
-<U7131> \xDA\x5D |0
-<U7132> \xDA\x61 |0
-<U7136> \xB5\x4D |0
-<U713A> \xDA\x64 |0
-<U7141> \xDE\x70 |0
-<U7142> \xDE\x77 |0
-<U7143> \xDE\x79 |0
-<U7144> \xDE\xA1 |0
-<U7146> \xB7\xDA |0
-<U7147> \xDE\x6B |0
-<U7149> \xB7\xD2 |0
-<U714B> \xDE\x7A |0
-<U714C> \xB7\xD7 |0
-<U714D> \xDE\xA2 |0
-<U714E> \xB7\xCE |0
-<U7150> \xDE\x7D |0
-<U7152> \xDE\x6D |0
-<U7153> \xDE\x7E |0
-<U7154> \xDE\x6C |0
-<U7156> \xB7\xDC |0
-<U7158> \xDE\x78 |0
-<U7159> \xB7\xCF |0
-<U715A> \xDE\xA3 |0
-<U715C> \xB7\xD4 |0
-<U715D> \xDE\x71 |0
-<U715E> \xB7\xD9 |0
-<U715F> \xDE\x7C |0
-<U7160> \xDE\x6F |0
-<U7161> \xDE\x76 |0
-<U7162> \xDE\x72 |0
-<U7163> \xDE\x6E |0
-<U7164> \xB7\xD1 |0
-<U7165> \xB7\xD8 |0
-<U7166> \xB7\xD6 |0
-<U7167> \xB7\xD3 |0
-<U7168> \xB7\xDB |0
-<U7169> \xB7\xD0 |0
-<U716A> \xDE\x75 |0
-<U716C> \xB7\xD5 |0
-<U716E> \xB5\x4E |0
-<U7170> \xDE\x7B |0
-<U7172> \xDE\x73 |0
-<U7178> \xDE\x74 |0
-<U717B> \xE2\xC1 |0
-<U717D> \xBA\xB4 |0
-<U7180> \xE2\xBD |0
-<U7181> \xE2\xC3 |0
-<U7182> \xE2\xBF |0
-<U7184> \xBA\xB6 |0
-<U7185> \xE2\xBE |0
-<U7186> \xE2\xC2 |0
-<U7187> \xE2\xBA |0
-<U7189> \xE2\xBC |0
-<U718A> \xBA\xB5 |0
-<U718F> \xE2\xC0 |0
-<U7190> \xE2\xBB |0
-<U7192> \xBA\xB7 |0
-<U7194> \xBA\xB2 |0
-<U7197> \xE2\xC4 |0
-<U7199> \xBA\xB3 |0
-<U719A> \xE6\x67 |0
-<U719B> \xE6\x64 |0
-<U719C> \xE6\x70 |0
-<U719D> \xE6\x6A |0
-<U719E> \xE6\x6C |0
-<U719F> \xBC\xF4 |0
-<U71A0> \xE6\x66 |0
-<U71A1> \xE6\x6E |0
-<U71A4> \xE6\x6D |0
-<U71A5> \xE6\x6B |0
-<U71A7> \xE6\x71 |0
-<U71A8> \xBC\xF7 |0
-<U71A9> \xE6\x68 |0
-<U71AA> \xE6\x6F |0
-<U71AC> \xBC\xF5 |0
-<U71AF> \xE6\x63 |0
-<U71B0> \xE6\x65 |0
-<U71B1> \xBC\xF6 |0
-<U71B2> \xE6\x62 |0
-<U71B3> \xE6\x72 |0
-<U71B5> \xE6\x69 |0
-<U71B8> \xEA\x4A |0
-<U71B9> \xBF\x51 |0
-<U71BC> \xEA\x55 |0
-<U71BD> \xEA\x53 |0
-<U71BE> \xBF\x4B |0
-<U71BF> \xEA\x49 |0
-<U71C0> \xEA\x4C |0
-<U71C1> \xEA\x4D |0
-<U71C2> \xEA\x48 |0
-<U71C3> \xBF\x55 |0
-<U71C4> \xBF\x56 |0
-<U71C5> \xEA\x47 |0
-<U71C6> \xEA\x56 |0
-<U71C7> \xEA\x51 |0
-<U71C8> \xBF\x4F |0
-<U71C9> \xBF\x4C |0
-<U71CA> \xEA\x50 |0
-<U71CB> \xEA\x4E |0
-<U71CE> \xBF\x52 |0
-<U71CF> \xEA\x52 |0
-<U71D0> \xBF\x4D |0
-<U71D2> \xBF\x4E |0
-<U71D4> \xEA\x4F |0
-<U71D5> \xBF\x50 |0
-<U71D6> \xEA\x4B |0
-<U71D8> \xEA\x54 |0
-<U71D9> \xBF\x53 |0
-<U71DA> \xEA\x57 |0
-<U71DB> \xEA\x58 |0
-<U71DC> \xBF\x54 |0
-<U71DF> \xC0\xE7 |0
-<U71E0> \xC0\xEE |0
-<U71E1> \xED\x5C |0
-<U71E2> \xED\x62 |0
-<U71E4> \xED\x60 |0
-<U71E5> \xC0\xEA |0
-<U71E6> \xC0\xE9 |0
-<U71E7> \xC0\xE6 |0
-<U71E8> \xED\x5E |0
-<U71EC> \xC0\xEC |0
-<U71ED> \xC0\xEB |0
-<U71EE> \xC0\xE8 |0
-<U71F0> \xED\x61 |0
-<U71F1> \xED\x5D |0
-<U71F2> \xED\x5F |0
-<U71F4> \xC0\xED |0
-<U71F8> \xC2\x77 |0
-<U71F9> \xEF\xFB |0
-<U71FB> \xC2\x74 |0
-<U71FC> \xC2\x75 |0
-<U71FD> \xEF\xFD |0
-<U71FE> \xC2\x76 |0
-<U71FF> \xEF\xFA |0
-<U7201> \xEF\xF9 |0
-<U7202> \xF2\x6C |0
-<U7203> \xEF\xFC |0
-<U7205> \xF2\x6D |0
-<U7206> \xC3\x7A |0
-<U7207> \xF2\x6B |0
-<U720A> \xF2\x6A |0
-<U720C> \xF2\x69 |0
-<U720D> \xC3\x7B |0
-<U7210> \xC4\x6C |0
-<U7213> \xF4\x6A |0
-<U7214> \xF4\x6B |0
-<U7219> \xF5\xDC |0
-<U721A> \xF5\xDB |0
-<U721B> \xC4\xEA |0
-<U721D> \xF5\xDA |0
-<U721E> \xF6\xEC |0
-<U721F> \xF6\xED |0
-<U7222> \xF7\xE6 |0
-<U7223> \xF8\xB1 |0
-<U7226> \xF8\xF6 |0
-<U7227> \xF9\xBC |0
-<U7228> \xC6\x79 |0
-<U7229> \xF9\xC6 |0
-<U722A> \xA4\xF6 |0
-<U722C> \xAA\xA6 |0
-<U722D> \xAA\xA7 |0
-<U7230> \xAC\xB8 |0
-<U7235> \xC0\xEF |0
-<U7236> \xA4\xF7 |0
-<U7238> \xAA\xA8 |0
-<U7239> \xAF\x52 |0
-<U723A> \xB7\xDD |0
-<U723B> \xA4\xF8 |0
-<U723D> \xB2\x6E |0
-<U723E> \xBA\xB8 |0
-<U723F> \xC9\x62 |0
-<U7241> \xCF\xB7 |0
-<U7242> \xD2\x7D |0
-<U7244> \xE2\xC5 |0
-<U7246> \xC0\xF0 |0
-<U7247> \xA4\xF9 |0
-<U7248> \xAA\xA9 |0
-<U7249> \xCF\xB8 |0
-<U724A> \xCF\xB9 |0
-<U724B> \xDA\x66 |0
-<U724C> \xB5\x50 |0
-<U724F> \xDE\xA4 |0
-<U7252> \xB7\xDE |0
-<U7253> \xE2\xC6 |0
-<U7256> \xBC\xF8 |0
-<U7258> \xC3\x7C |0
-<U7259> \xA4\xFA |0
-<U725A> \xDA\x67 |0
-<U725B> \xA4\xFB |0
-<U725D> \xA6\xC9 |0
-<U725E> \xCA\x42 |0
-<U725F> \xA6\xC8 |0
-<U7260> \xA8\x65 |0
-<U7261> \xA8\x64 |0
-<U7262> \xA8\x63 |0
-<U7263> \xCB\x60 |0
-<U7267> \xAA\xAA |0
-<U7269> \xAA\xAB |0
-<U726A> \xCD\x5B |0
-<U726C> \xCF\xBA |0
-<U726E> \xCF\xBD |0
-<U726F> \xAC\xBA |0
-<U7270> \xCF\xBB |0
-<U7272> \xAC\xB9 |0
-<U7273> \xCF\xBC |0
-<U7274> \xAC\xBB |0
-<U7276> \xD2\xA2 |0
-<U7277> \xD2\xA1 |0
-<U7278> \xD2\x7E |0
-<U7279> \xAF\x53 |0
-<U727B> \xD6\x5D |0
-<U727C> \xD6\x5E |0
-<U727D> \xB2\x6F |0
-<U727E> \xD6\x5C |0
-<U727F> \xD6\x5F |0
-<U7280> \xB5\x52 |0
-<U7281> \xB2\x70 |0
-<U7284> \xB5\x51 |0
-<U7285> \xDA\x6B |0
-<U7286> \xDA\x6A |0
-<U7288> \xDA\x68 |0
-<U7289> \xDA\x69 |0
-<U728B> \xDA\x6C |0
-<U728C> \xDE\xA6 |0
-<U728D> \xDE\xA5 |0
-<U728E> \xDE\xA9 |0
-<U7290> \xDE\xA8 |0
-<U7291> \xDE\xA7 |0
-<U7292> \xBA\xB9 |0
-<U7293> \xE2\xC9 |0
-<U7295> \xE2\xC8 |0
-<U7296> \xBA\xBA |0
-<U7297> \xE2\xC7 |0
-<U7298> \xE6\x73 |0
-<U729A> \xE6\x74 |0
-<U729B> \xBC\xF9 |0
-<U729D> \xEA\x59 |0
-<U729E> \xEA\x5A |0
-<U72A1> \xF2\x72 |0
-<U72A2> \xC3\x7D |0
-<U72A3> \xF2\x71 |0
-<U72A4> \xF2\x70 |0
-<U72A5> \xF2\x6E |0
-<U72A6> \xF2\x6F |0
-<U72A7> \xC4\xEB |0
-<U72A8> \xF4\x6C |0
-<U72A9> \xF6\xEE |0
-<U72AA> \xF8\xF7 |0
-<U72AC> \xA4\xFC |0
-<U72AE> \xC9\xA5 |0
-<U72AF> \xA5\xC7 |0
-<U72B0> \xC9\xA6 |0
-<U72B4> \xCA\x43 |0
-<U72B5> \xCA\x44 |0
-<U72BA> \xCB\x66 |0
-<U72BD> \xCB\x62 |0
-<U72BF> \xCB\x61 |0
-<U72C0> \xAA\xAC |0
-<U72C1> \xCB\x65 |0
-<U72C2> \xA8\x67 |0
-<U72C3> \xCB\x63 |0
-<U72C4> \xA8\x66 |0
-<U72C5> \xCB\x67 |0
-<U72C6> \xCB\x64 |0
-<U72C9> \xCD\x5F |0
-<U72CA> \xCF\xBE |0
-<U72CB> \xCD\x5D |0
-<U72CC> \xCD\x64 |0
-<U72CE> \xAA\xAD |0
-<U72D0> \xAA\xB0 |0
-<U72D1> \xCD\x65 |0
-<U72D2> \xCD\x61 |0
-<U72D4> \xCD\x62 |0
-<U72D6> \xCD\x5C |0
-<U72D7> \xAA\xAF |0
-<U72D8> \xCD\x5E |0
-<U72D9> \xAA\xAE |0
-<U72DA> \xCD\x63 |0
-<U72DC> \xCD\x60 |0
-<U72DF> \xCF\xC2 |0
-<U72E0> \xAC\xBD |0
-<U72E1> \xAC\xBE |0
-<U72E3> \xCF\xC5 |0
-<U72E4> \xCF\xBF |0
-<U72E6> \xCF\xC4 |0
-<U72E8> \xCF\xC0 |0
-<U72E9> \xAC\xBC |0
-<U72EA> \xCF\xC3 |0
-<U72EB> \xCF\xC1 |0
-<U72F3> \xD2\xA8 |0
-<U72F4> \xD2\xA5 |0
-<U72F6> \xD2\xA7 |0
-<U72F7> \xAF\x58 |0
-<U72F8> \xAF\x57 |0
-<U72F9> \xAF\x55 |0
-<U72FA> \xD2\xA4 |0
-<U72FB> \xD2\xA9 |0
-<U72FC> \xAF\x54 |0
-<U72FD> \xAF\x56 |0
-<U72FE> \xD2\xA6 |0
-<U72FF> \xD6\x67 |0
-<U7300> \xD2\xA3 |0
-<U7301> \xD2\xAA |0
-<U7307> \xD6\x62 |0
-<U7308> \xD6\x66 |0
-<U730A> \xD6\x65 |0
-<U730B> \xDA\x6E |0
-<U730C> \xDA\x79 |0
-<U730F> \xD6\x68 |0
-<U7311> \xD6\x63 |0
-<U7312> \xDA\x6D |0
-<U7313> \xB2\x74 |0
-<U7316> \xB2\x73 |0
-<U7317> \xD6\x61 |0
-<U7318> \xD6\x64 |0
-<U7319> \xB2\x75 |0
-<U731B> \xB2\x72 |0
-<U731C> \xB2\x71 |0
-<U731D> \xD6\x60 |0
-<U731E> \xD6\x69 |0
-<U7322> \xDA\x70 |0
-<U7323> \xDA\x77 |0
-<U7325> \xB5\x54 |0
-<U7326> \xDA\x76 |0
-<U7327> \xDA\x73 |0
-<U7329> \xB5\x56 |0
-<U732D> \xDA\x75 |0
-<U7330> \xDA\x6F |0
-<U7331> \xDA\x71 |0
-<U7332> \xDA\x74 |0
-<U7333> \xDA\x72 |0
-<U7334> \xB5\x55 |0
-<U7335> \xDA\x78 |0
-<U7336> \xB5\x53 |0
-<U7337> \xB7\xDF |0
-<U733A> \xDE\xAD |0
-<U733B> \xDE\xAC |0
-<U733C> \xDE\xAA |0
-<U733E> \xB7\xE2 |0
-<U733F> \xB7\xE1 |0
-<U7340> \xDE\xAE |0
-<U7342> \xDE\xAB |0
-<U7343> \xE2\xCA |0
-<U7344> \xBA\xBB |0
-<U7345> \xB7\xE0 |0
-<U7349> \xDE\xB0 |0
-<U734A> \xDE\xAF |0
-<U734C> \xE2\xCD |0
-<U734D> \xE2\xCB |0
-<U734E> \xBC\xFA |0
-<U7350> \xBA\xBC |0
-<U7351> \xE2\xCC |0
-<U7352> \xE6\x76 |0
-<U7357> \xBC\xFB |0
-<U7358> \xE6\x75 |0
-<U7359> \xE6\x7E |0
-<U735A> \xE6\x7D |0
-<U735B> \xE6\x7B |0
-<U735D> \xE6\x7A |0
-<U735E> \xE6\x77 |0
-<U735F> \xE6\x78 |0
-<U7360> \xE6\x79 |0
-<U7361> \xE6\x7C |0
-<U7362> \xE6\xA1 |0
-<U7365> \xEA\x5F |0
-<U7366> \xEA\x5C |0
-<U7367> \xEA\x5D |0
-<U7368> \xBF\x57 |0
-<U7369> \xEA\x5B |0
-<U736A> \xEA\x61 |0
-<U736B> \xEA\x60 |0
-<U736C> \xEA\x5E |0
-<U736E> \xED\x64 |0
-<U736F> \xED\x65 |0
-<U7370> \xC0\xF1 |0
-<U7372> \xC0\xF2 |0
-<U7373> \xED\x63 |0
-<U7375> \xC2\x79 |0
-<U7376> \xEF\xFE |0
-<U7377> \xC2\x78 |0
-<U7378> \xC3\x7E |0
-<U737A> \xC3\xA1 |0
-<U737B> \xC4\x6D |0
-<U737C> \xF4\x6E |0
-<U737D> \xF4\x6D |0
-<U737E> \xF5\xDD |0
-<U737F> \xF6\xEF |0
-<U7380> \xC5\x7A |0
-<U7381> \xF7\xE8 |0
-<U7382> \xF7\xE7 |0
-<U7383> \xF7\xE9 |0
-<U7384> \xA5\xC8 |0
-<U7385> \xCF\xC6 |0
-<U7386> \xAF\x59 |0
-<U7387> \xB2\x76 |0
-<U7388> \xD6\x6A |0
-<U7389> \xA5\xC9 |0
-<U738A> \xC9\xA7 |0
-<U738B> \xA4\xFD |0
-<U738E> \xCA\x45 |0
-<U7392> \xCB\x6C |0
-<U7393> \xCB\x6A |0
-<U7394> \xCB\x6B |0
-<U7395> \xCB\x68 |0
-<U7396> \xA8\x68 |0
-<U7397> \xCB\x69 |0
-<U739D> \xCD\x6D |0
-<U739F> \xAA\xB3 |0
-<U73A0> \xCD\x6B |0
-<U73A1> \xCD\x67 |0
-<U73A2> \xCD\x6A |0
-<U73A4> \xCD\x66 |0
-<U73A5> \xAA\xB5 |0
-<U73A6> \xCD\x69 |0
-<U73A8> \xAA\xB2 |0
-<U73A9> \xAA\xB1 |0
-<U73AB> \xAA\xB4 |0
-<U73AC> \xCD\x6C |0
-<U73AD> \xCD\x68 |0
-<U73B2> \xAC\xC2 |0
-<U73B3> \xAC\xC5 |0
-<U73B4> \xCF\xCE |0
-<U73B5> \xCF\xCD |0
-<U73B6> \xCF\xCC |0
-<U73B7> \xAC\xBF |0
-<U73B8> \xCF\xD5 |0
-<U73B9> \xCF\xCB |0
-<U73BB> \xAC\xC1 |0
-<U73BC> \xD2\xAF |0
-<U73BE> \xCF\xD2 |0
-<U73BF> \xCF\xD0 |0
-<U73C0> \xAC\xC4 |0
-<U73C2> \xCF\xC8 |0
-<U73C3> \xCF\xD3 |0
-<U73C5> \xCF\xCA |0
-<U73C6> \xCF\xD4 |0
-<U73C7> \xCF\xD1 |0
-<U73C8> \xCF\xC9 |0
-<U73CA> \xAC\xC0 |0
-<U73CB> \xCF\xD6 |0
-<U73CC> \xCF\xC7 |0
-<U73CD> \xAC\xC3 |0
-<U73D2> \xD2\xB4 |0
-<U73D3> \xD2\xAB |0
-<U73D4> \xD2\xB6 |0
-<U73D6> \xD2\xAE |0
-<U73D7> \xD2\xB9 |0
-<U73D8> \xD2\xBA |0
-<U73D9> \xD2\xAC |0
-<U73DA> \xD2\xB8 |0
-<U73DB> \xD2\xB5 |0
-<U73DC> \xD2\xB3 |0
-<U73DD> \xD2\xB7 |0
-<U73DE> \xAF\x5F |0
-<U73E0> \xAF\x5D |0
-<U73E3> \xD2\xB1 |0
-<U73E5> \xD2\xAD |0
-<U73E7> \xD2\xB0 |0
-<U73E8> \xD2\xBB |0
-<U73E9> \xD2\xB2 |0
-<U73EA> \xAF\x5E |0
-<U73EB> \xCF\xCF |0
-<U73ED> \xAF\x5A |0
-<U73EE> \xAF\x5C |0
-<U73F4> \xD6\x78 |0
-<U73F5> \xD6\x6D |0
-<U73F6> \xD6\x6B |0
-<U73F8> \xD6\x6C |0
-<U73FA> \xD6\x73 |0
-<U73FC> \xD6\x74 |0
-<U73FD> \xD6\x70 |0
-<U73FE> \xB2\x7B |0
-<U73FF> \xD6\x75 |0
-<U7400> \xD6\x72 |0
-<U7401> \xD6\x6F |0
-<U7403> \xB2\x79 |0
-<U7404> \xD6\x6E |0
-<U7405> \xB2\x77 |0
-<U7406> \xB2\x7A |0
-<U7407> \xD6\x71 |0
-<U7408> \xD6\x79 |0
-<U7409> \xAF\x5B |0
-<U740A> \xB2\x78 |0
-<U740B> \xD6\x77 |0
-<U740C> \xD6\x76 |0
-<U740D> \xB2\x7C |0
-<U7416> \xDA\x7E |0
-<U741A> \xDA\xA1 |0
-<U741B> \xB5\x60 |0
-<U741D> \xDA\xA7 |0
-<U7420> \xDA\xA9 |0
-<U7421> \xDA\xA2 |0
-<U7422> \xB5\x5A |0
-<U7423> \xDA\xA6 |0
-<U7424> \xDA\xA5 |0
-<U7425> \xB5\x5B |0
-<U7426> \xB5\x61 |0
-<U7428> \xB5\x62 |0
-<U7429> \xDA\xA8 |0
-<U742A> \xB5\x58 |0
-<U742B> \xDA\x7D |0
-<U742C> \xDA\x7B |0
-<U742D> \xDA\xA3 |0
-<U742E> \xDA\x7A |0
-<U742F> \xB5\x5F |0
-<U7430> \xDA\x7C |0
-<U7431> \xDA\xA4 |0
-<U7432> \xDA\xAA |0
-<U7433> \xB5\x59 |0
-<U7434> \xB5\x5E |0
-<U7435> \xB5\x5C |0
-<U7436> \xB5\x5D |0
-<U743A> \xB5\x57 |0
-<U743F> \xB7\xE9 |0
-<U7440> \xDE\xB7 |0
-<U7441> \xB7\xE8 |0
-<U7442> \xDE\xBB |0
-<U7444> \xDE\xB1 |0
-<U7446> \xDE\xBC |0
-<U744A> \xDE\xB2 |0
-<U744B> \xDE\xB3 |0
-<U744D> \xDE\xBD |0
-<U744E> \xDE\xBA |0
-<U744F> \xDE\xB8 |0
-<U7450> \xDE\xB9 |0
-<U7451> \xDE\xB5 |0
-<U7452> \xDE\xB4 |0
-<U7454> \xDE\xBE |0
-<U7455> \xB7\xE5 |0
-<U7457> \xDE\xB6 |0
-<U7459> \xB7\xEA |0
-<U745A> \xB7\xE4 |0
-<U745B> \xB7\xEB |0
-<U745C> \xB7\xEC |0
-<U745E> \xB7\xE7 |0
-<U745F> \xB7\xE6 |0
-<U7462> \xE2\xCE |0
-<U7463> \xBA\xBE |0
-<U7464> \xBA\xBD |0
-<U7467> \xE2\xD3 |0
-<U7469> \xBC\xFC |0
-<U746A> \xBA\xBF |0
-<U746D> \xBA\xC1 |0
-<U746E> \xE2\xD4 |0
-<U746F> \xB7\xE3 |0
-<U7470> \xBA\xC0 |0
-<U7471> \xE2\xD0 |0
-<U7472> \xE2\xD2 |0
-<U7473> \xE2\xCF |0
-<U7475> \xE2\xD1 |0
-<U7479> \xE6\xAB |0
-<U747C> \xE6\xAA |0
-<U747D> \xE6\xA7 |0
-<U747E> \xBD\x40 |0
-<U747F> \xEA\x62 |0
-<U7480> \xBD\x41 |0
-<U7481> \xE6\xA6 |0
-<U7483> \xBC\xFE |0
-<U7485> \xE6\xA8 |0
-<U7486> \xE6\xA5 |0
-<U7487> \xE6\xA2 |0
-<U7488> \xE6\xA9 |0
-<U7489> \xE6\xA3 |0
-<U748A> \xE6\xA4 |0
-<U748B> \xBC\xFD |0
-<U7490> \xED\x69 |0
-<U7492> \xEA\x66 |0
-<U7494> \xEA\x65 |0
-<U7495> \xEA\x67 |0
-<U7497> \xED\x66 |0
-<U7498> \xBF\x5A |0
-<U749A> \xEA\x63 |0
-<U749C> \xBF\x58 |0
-<U749E> \xBF\x5C |0
-<U749F> \xBF\x5B |0
-<U74A0> \xEA\x64 |0
-<U74A1> \xEA\x68 |0
-<U74A3> \xBF\x59 |0
-<U74A5> \xED\x6D |0
-<U74A6> \xC0\xF5 |0
-<U74A7> \xC2\x7A |0
-<U74A8> \xC0\xF6 |0
-<U74A9> \xC0\xF3 |0
-<U74AA> \xED\x6A |0
-<U74AB> \xED\x68 |0
-<U74AD> \xED\x6B |0
-<U74AF> \xED\x6E |0
-<U74B0> \xC0\xF4 |0
-<U74B1> \xED\x6C |0
-<U74B2> \xED\x67 |0
-<U74B5> \xF0\x42 |0
-<U74B6> \xF0\x45 |0
-<U74B7> \xF2\x75 |0
-<U74B8> \xF0\x40 |0
-<U74BA> \xF4\x6F |0
-<U74BB> \xF0\x46 |0
-<U74BD> \xC3\xA2 |0
-<U74BE> \xF0\x44 |0
-<U74BF> \xC2\x7B |0
-<U74C0> \xF0\x41 |0
-<U74C1> \xF0\x43 |0
-<U74C2> \xF0\x47 |0
-<U74C3> \xF2\x76 |0
-<U74C5> \xF2\x74 |0
-<U74CA> \xC3\xA3 |0
-<U74CB> \xF2\x73 |0
-<U74CF> \xC4\x6E |0
-<U74D4> \xC4\xED |0
-<U74D5> \xF6\xF1 |0
-<U74D6> \xC4\xEC |0
-<U74D7> \xF6\xF3 |0
-<U74D8> \xF6\xF0 |0
-<U74D9> \xF6\xF2 |0
-<U74DA> \xC5\xD0 |0
-<U74DB> \xF8\xB2 |0
-<U74DC> \xA5\xCA |0
-<U74DD> \xCD\x6E |0
-<U74DE> \xD2\xBC |0
-<U74DF> \xD2\xBD |0
-<U74E0> \xB2\x7D |0
-<U74E1> \xDE\xBF |0
-<U74E2> \xBF\x5D |0
-<U74E3> \xC3\xA4 |0
-<U74E4> \xC5\x7B |0
-<U74E5> \xF8\xB3 |0
-<U74E6> \xA5\xCB |0
-<U74E8> \xCD\x6F |0
-<U74E9> \xA2\x60 |0
-<U74EC> \xCF\xD7 |0
-<U74EE> \xCF\xD8 |0
-<U74F4> \xD2\xBE |0
-<U74F5> \xD2\xBF |0
-<U74F6> \xB2\x7E |0
-<U74F7> \xB2\xA1 |0
-<U74FB> \xDA\xAB |0
-<U74FD> \xDE\xC2 |0
-<U74FE> \xDE\xC1 |0
-<U74FF> \xDE\xC0 |0
-<U7500> \xE2\xD5 |0
-<U7502> \xE2\xD6 |0
-<U7503> \xE2\xD7 |0
-<U7504> \xBA\xC2 |0
-<U7507> \xE6\xAD |0
-<U7508> \xE6\xAC |0
-<U750B> \xEA\x69 |0
-<U750C> \xBF\x5E |0
-<U750D> \xBF\x5F |0
-<U750F> \xED\x72 |0
-<U7510> \xED\x6F |0
-<U7511> \xED\x70 |0
-<U7512> \xED\x71 |0
-<U7513> \xF0\x49 |0
-<U7514> \xF0\x48 |0
-<U7515> \xC2\x7C |0
-<U7516> \xF2\x77 |0
-<U7517> \xF5\xDE |0
-<U7518> \xA5\xCC |0
-<U751A> \xAC\xC6 |0
-<U751C> \xB2\xA2 |0
-<U751D> \xDE\xC3 |0
-<U751F> \xA5\xCD |0
-<U7521> \xD2\xC0 |0
-<U7522> \xB2\xA3 |0
-<U7525> \xB5\x63 |0
-<U7526> \xB5\x64 |0
-<U7528> \xA5\xCE |0
-<U7529> \xA5\xCF |0
-<U752A> \xCA\x46 |0
-<U752B> \xA8\x6A |0
-<U752C> \xA8\x69 |0
-<U752D> \xAC\xC7 |0
-<U752E> \xCF\xD9 |0
-<U752F> \xDA\xAC |0
-<U7530> \xA5\xD0 |0
-<U7531> \xA5\xD1 |0
-<U7532> \xA5\xD2 |0
-<U7533> \xA5\xD3 |0
-<U7537> \xA8\x6B |0
-<U7538> \xA8\x6C |0
-<U7539> \xCB\x6E |0
-<U753A> \xCB\x6D |0
-<U753D> \xAA\xB6 |0
-<U753E> \xCD\x72 |0
-<U753F> \xCD\x70 |0
-<U7540> \xCD\x71 |0
-<U7547> \xCF\xDA |0
-<U7548> \xCF\xDB |0
-<U754B> \xAC\xCB |0
-<U754C> \xAC\xC9 |0
-<U754E> \xAC\xCA |0
-<U754F> \xAC\xC8 |0
-<U7554> \xAF\x60 |0
-<U7559> \xAF\x64 |0
-<U755A> \xAF\x63 |0
-<U755B> \xD2\xC1 |0
-<U755C> \xAF\x62 |0
-<U755D> \xAF\x61 |0
-<U755F> \xD2\xC2 |0
-<U7562> \xB2\xA6 |0
-<U7563> \xD6\x7B |0
-<U7564> \xD6\x7A |0
-<U7565> \xB2\xA4 |0
-<U7566> \xB2\xA5 |0
-<U756A> \xB5\x66 |0
-<U756B> \xB5\x65 |0
-<U756C> \xDA\xAE |0
-<U756F> \xDA\xAD |0
-<U7570> \xB2\xA7 |0
-<U7576> \xB7\xED |0
-<U7577> \xDE\xC5 |0
-<U7578> \xB7\xEE |0
-<U7579> \xDE\xC4 |0
-<U757D> \xE2\xD8 |0
-<U757E> \xE6\xAE |0
-<U757F> \xBD\x42 |0
-<U7580> \xEA\x6A |0
-<U7584> \xED\x73 |0
-<U7586> \xC3\xA6 |0
-<U7587> \xC3\xA5 |0
-<U758A> \xC5\x7C |0
-<U758B> \xA5\xD4 |0
-<U758C> \xCD\x73 |0
-<U758F> \xB2\xA8 |0
-<U7590> \xE2\xD9 |0
-<U7591> \xBA\xC3 |0
-<U7594> \xCB\x6F |0
-<U7595> \xCB\x70 |0
-<U7598> \xCD\x74 |0
-<U7599> \xAA\xB8 |0
-<U759A> \xAA\xB9 |0
-<U759D> \xAA\xB7 |0
-<U75A2> \xAC\xCF |0
-<U75A3> \xAC\xD0 |0
-<U75A4> \xAC\xCD |0
-<U75A5> \xAC\xCE |0
-<U75A7> \xCF\xDC |0
-<U75AA> \xCF\xDD |0
-<U75AB> \xAC\xCC |0
-<U75B0> \xD2\xC3 |0
-<U75B2> \xAF\x68 |0
-<U75B3> \xAF\x69 |0
-<U75B5> \xB2\xAB |0
-<U75B6> \xD2\xC9 |0
-<U75B8> \xAF\x6E |0
-<U75B9> \xAF\x6C |0
-<U75BA> \xD2\xCA |0
-<U75BB> \xD2\xC5 |0
-<U75BC> \xAF\x6B |0
-<U75BD> \xAF\x6A |0
-<U75BE> \xAF\x65 |0
-<U75BF> \xD2\xC8 |0
-<U75C0> \xD2\xC7 |0
-<U75C1> \xD2\xC4 |0
-<U75C2> \xAF\x6D |0
-<U75C4> \xD2\xC6 |0
-<U75C5> \xAF\x66 |0
-<U75C7> \xAF\x67 |0
-<U75CA> \xB2\xAC |0
-<U75CB> \xD6\xA1 |0
-<U75CC> \xD6\xA2 |0
-<U75CD> \xB2\xAD |0
-<U75CE> \xD6\x7C |0
-<U75CF> \xD6\x7E |0
-<U75D0> \xD6\xA4 |0
-<U75D1> \xD6\xA3 |0
-<U75D2> \xD6\x7D |0
-<U75D4> \xB2\xA9 |0
-<U75D5> \xB2\xAA |0
-<U75D7> \xDA\xB6 |0
-<U75D8> \xB5\x6B |0
-<U75D9> \xB5\x6A |0
-<U75DA> \xDA\xB0 |0
-<U75DB> \xB5\x68 |0
-<U75DD> \xDA\xB3 |0
-<U75DE> \xB5\x6C |0
-<U75DF> \xDA\xB4 |0
-<U75E0> \xB5\x6D |0
-<U75E1> \xDA\xB1 |0
-<U75E2> \xB5\x67 |0
-<U75E3> \xB5\x69 |0
-<U75E4> \xDA\xB5 |0
-<U75E6> \xDA\xB2 |0
-<U75E7> \xDA\xAF |0
-<U75ED> \xDE\xD2 |0
-<U75EF> \xDE\xC7 |0
-<U75F0> \xB7\xF0 |0
-<U75F1> \xB7\xF3 |0
-<U75F2> \xB7\xF2 |0
-<U75F3> \xB7\xF7 |0
-<U75F4> \xB7\xF6 |0
-<U75F5> \xDE\xD3 |0
-<U75F6> \xDE\xD1 |0
-<U75F7> \xDE\xCA |0
-<U75F8> \xDE\xCE |0
-<U75F9> \xDE\xCD |0
-<U75FA> \xB7\xF4 |0
-<U75FB> \xDE\xD0 |0
-<U75FC> \xDE\xCC |0
-<U75FD> \xDE\xD4 |0
-<U75FE> \xDE\xCB |0
-<U75FF> \xB7\xF5 |0
-<U7600> \xB7\xEF |0
-<U7601> \xB7\xF1 |0
-<U7603> \xDE\xC9 |0
-<U7608> \xE2\xDB |0
-<U7609> \xBA\xC7 |0
-<U760A> \xE2\xDF |0
-<U760B> \xBA\xC6 |0
-<U760C> \xE2\xDC |0
-<U760D> \xBA\xC5 |0
-<U760F> \xDE\xC8 |0
-<U7610> \xDE\xCF |0
-<U7611> \xE2\xDE |0
-<U7613> \xBA\xC8 |0
-<U7614> \xE2\xE0 |0
-<U7615> \xE2\xDD |0
-<U7616> \xE2\xDA |0
-<U7619> \xE6\xB1 |0
-<U761A> \xE6\xB5 |0
-<U761B> \xE6\xB7 |0
-<U761C> \xE6\xB3 |0
-<U761D> \xE6\xB2 |0
-<U761E> \xE6\xB0 |0
-<U761F> \xBD\x45 |0
-<U7620> \xBD\x43 |0
-<U7621> \xBD\x48 |0
-<U7622> \xBD\x49 |0
-<U7623> \xE6\xB4 |0
-<U7624> \xBD\x46 |0
-<U7625> \xE6\xAF |0
-<U7626> \xBD\x47 |0
-<U7627> \xBA\xC4 |0
-<U7628> \xE6\xB6 |0
-<U7629> \xBD\x44 |0
-<U762D> \xEA\x6C |0
-<U762F> \xEA\x6B |0
-<U7630> \xEA\x73 |0
-<U7631> \xEA\x6D |0
-<U7632> \xEA\x72 |0
-<U7633> \xEA\x6F |0
-<U7634> \xBF\x60 |0
-<U7635> \xEA\x71 |0
-<U7638> \xBF\x61 |0
-<U763A> \xBF\x62 |0
-<U763C> \xEA\x70 |0
-<U763D> \xEA\x6E |0
-<U7642> \xC0\xF8 |0
-<U7643> \xED\x74 |0
-<U7646> \xC0\xF7 |0
-<U7647> \xED\x77 |0
-<U7648> \xED\x75 |0
-<U7649> \xED\x76 |0
-<U764C> \xC0\xF9 |0
-<U7650> \xF0\x4D |0
-<U7652> \xC2\xA1 |0
-<U7653> \xF0\x4E |0
-<U7656> \xC2\x7D |0
-<U7657> \xF0\x4F |0
-<U7658> \xC2\x7E |0
-<U7659> \xF0\x4C |0
-<U765A> \xF0\x50 |0
-<U765C> \xF0\x4A |0
-<U765F> \xC3\xA7 |0
-<U7660> \xF2\x78 |0
-<U7661> \xC3\xA8 |0
-<U7662> \xC4\x6F |0
-<U7664> \xF0\x4B |0
-<U7665> \xC4\x70 |0
-<U7669> \xC4\xEE |0
-<U766A> \xF5\xDF |0
-<U766C> \xC5\x7E |0
-<U766D> \xF6\xF4 |0
-<U766E> \xC5\x7D |0
-<U7670> \xF7\xEA |0
-<U7671> \xC5\xF5 |0
-<U7672> \xC5\xF6 |0
-<U7675> \xF9\xCC |0
-<U7678> \xAC\xD1 |0
-<U7679> \xCF\xDE |0
-<U767B> \xB5\x6E |0
-<U767C> \xB5\x6F |0
-<U767D> \xA5\xD5 |0
-<U767E> \xA6\xCA |0
-<U767F> \xCA\x47 |0
-<U7681> \xCB\x71 |0
-<U7682> \xA8\x6D |0
-<U7684> \xAA\xBA |0
-<U7686> \xAC\xD2 |0
-<U7687> \xAC\xD3 |0
-<U7688> \xAC\xD4 |0
-<U7689> \xD6\xA6 |0
-<U768A> \xD2\xCB |0
-<U768B> \xAF\x6F |0
-<U768E> \xB2\xAE |0
-<U768F> \xD6\xA5 |0
-<U7692> \xDA\xB8 |0
-<U7693> \xB5\x71 |0
-<U7695> \xDA\xB7 |0
-<U7696> \xB5\x70 |0
-<U7699> \xDE\xD5 |0
-<U769A> \xBD\x4A |0
-<U769B> \xE6\xBB |0
-<U769C> \xE6\xB8 |0
-<U769D> \xE6\xB9 |0
-<U769E> \xE6\xBA |0
-<U76A4> \xED\x78 |0
-<U76A6> \xF0\x51 |0
-<U76AA> \xF4\x71 |0
-<U76AB> \xF4\x70 |0
-<U76AD> \xF6\xF5 |0
-<U76AE> \xA5\xD6 |0
-<U76AF> \xCD\x75 |0
-<U76B0> \xAF\x70 |0
-<U76B4> \xB5\x72 |0
-<U76B5> \xDE\xD6 |0
-<U76B8> \xE2\xE1 |0
-<U76BA> \xBD\x4B |0
-<U76BB> \xEA\x74 |0
-<U76BD> \xF0\x52 |0
-<U76BE> \xF4\x72 |0
-<U76BF> \xA5\xD7 |0
-<U76C2> \xAA\xBB |0
-<U76C3> \xAC\xD7 |0
-<U76C4> \xCF\xDF |0
-<U76C5> \xAC\xD8 |0
-<U76C6> \xAC\xD6 |0
-<U76C8> \xAC\xD5 |0
-<U76C9> \xD2\xCC |0
-<U76CA> \xAF\x71 |0
-<U76CD> \xAF\x72 |0
-<U76CE> \xAF\x73 |0
-<U76D2> \xB2\xB0 |0
-<U76D3> \xD6\xA7 |0
-<U76D4> \xB2\xAF |0
-<U76DA> \xDA\xB9 |0
-<U76DB> \xB2\xB1 |0
-<U76DC> \xB5\x73 |0
-<U76DD> \xDE\xD7 |0
-<U76DE> \xB7\xF8 |0
-<U76DF> \xB7\xF9 |0
-<U76E1> \xBA\xC9 |0
-<U76E3> \xBA\xCA |0
-<U76E4> \xBD\x4C |0
-<U76E5> \xBF\x64 |0
-<U76E6> \xEA\x75 |0
-<U76E7> \xBF\x63 |0
-<U76E9> \xED\x79 |0
-<U76EA> \xC0\xFA |0
-<U76EC> \xF0\x53 |0
-<U76ED> \xF4\x73 |0
-<U76EE> \xA5\xD8 |0
-<U76EF> \xA8\x6E |0
-<U76F0> \xCD\x78 |0
-<U76F1> \xCD\x77 |0
-<U76F2> \xAA\xBC |0
-<U76F3> \xCD\x76 |0
-<U76F4> \xAA\xBD |0
-<U76F5> \xCD\x79 |0
-<U76F7> \xCF\xE5 |0
-<U76F8> \xAC\xDB |0
-<U76F9> \xAC\xDA |0
-<U76FA> \xCF\xE7 |0
-<U76FB> \xCF\xE6 |0
-<U76FC> \xAC\xDF |0
-<U76FE> \xAC\xDE |0
-<U7701> \xAC\xD9 |0
-<U7703> \xCF\xE1 |0
-<U7704> \xCF\xE2 |0
-<U7705> \xCF\xE3 |0
-<U7707> \xAC\xE0 |0
-<U7708> \xCF\xE0 |0
-<U7709> \xAC\xDC |0
-<U770A> \xCF\xE4 |0
-<U770B> \xAC\xDD |0
-<U7710> \xD2\xCF |0
-<U7711> \xD2\xD3 |0
-<U7712> \xD2\xD1 |0
-<U7713> \xD2\xD0 |0
-<U7715> \xD2\xD4 |0
-<U7719> \xD2\xD5 |0
-<U771A> \xD2\xD6 |0
-<U771B> \xD2\xCE |0
-<U771D> \xD2\xCD |0
-<U771F> \xAF\x75 |0
-<U7720> \xAF\x76 |0
-<U7722> \xD2\xD7 |0
-<U7723> \xD2\xD2 |0
-<U7725> \xD6\xB0 |0
-<U7727> \xD2\xD8 |0
-<U7728> \xAF\x77 |0
-<U7729> \xAF\x74 |0
-<U772D> \xD6\xAA |0
-<U772F> \xD6\xA9 |0
-<U7731> \xD6\xAB |0
-<U7732> \xD6\xAC |0
-<U7733> \xD6\xAE |0
-<U7734> \xD6\xAD |0
-<U7735> \xD6\xB2 |0
-<U7736> \xB2\xB5 |0
-<U7737> \xB2\xB2 |0
-<U7738> \xB2\xB6 |0
-<U7739> \xD6\xA8 |0
-<U773A> \xB2\xB7 |0
-<U773B> \xD6\xB1 |0
-<U773C> \xB2\xB4 |0
-<U773D> \xD6\xAF |0
-<U773E> \xB2\xB3 |0
-<U7744> \xDA\xBC |0
-<U7745> \xDA\xBE |0
-<U7746> \xDA\xBA |0
-<U7747> \xDA\xBB |0
-<U774A> \xDA\xBF |0
-<U774B> \xDA\xC1 |0
-<U774C> \xDA\xC2 |0
-<U774D> \xDA\xBD |0
-<U774E> \xDA\xC0 |0
-<U774F> \xB5\x74 |0
-<U7752> \xDE\xDB |0
-<U7754> \xDE\xE0 |0
-<U7755> \xDE\xD8 |0
-<U7756> \xDE\xDC |0
-<U7759> \xDE\xE1 |0
-<U775A> \xDE\xDD |0
-<U775B> \xB7\xFA |0
-<U775C> \xB8\x43 |0
-<U775E> \xB7\xFD |0
-<U775F> \xDE\xD9 |0
-<U7760> \xDE\xDA |0
-<U7761> \xBA\xCE |0
-<U7762> \xB8\x46 |0
-<U7763> \xB7\xFE |0
-<U7765> \xB8\x44 |0
-<U7766> \xB7\xFC |0
-<U7767> \xDE\xDF |0
-<U7768> \xB8\x45 |0
-<U7769> \xDE\xDE |0
-<U776A> \xB8\x41 |0
-<U776B> \xB7\xFB |0
-<U776C> \xB8\x42 |0
-<U776D> \xDE\xE2 |0
-<U776E> \xE2\xE6 |0
-<U776F> \xE2\xE8 |0
-<U7779> \xB8\x40 |0
-<U777C> \xE2\xE3 |0
-<U777D> \xBA\xCC |0
-<U777E> \xE2\xE9 |0
-<U777F> \xBA\xCD |0
-<U7780> \xE2\xE7 |0
-<U7781> \xE2\xE2 |0
-<U7782> \xE2\xE5 |0
-<U7783> \xE2\xEA |0
-<U7784> \xBA\xCB |0
-<U7785> \xE2\xE4 |0
-<U7787> \xBD\x4E |0
-<U7788> \xE6\xBF |0
-<U7789> \xE6\xBE |0
-<U778B> \xBD\x51 |0
-<U778C> \xBD\x4F |0
-<U778D> \xE6\xBC |0
-<U778E> \xBD\x4D |0
-<U778F> \xE6\xBD |0
-<U7791> \xBD\x50 |0
-<U7795> \xEA\x7D |0
-<U7797> \xEA\xA1 |0
-<U7799> \xEA\x7E |0
-<U779A> \xEA\x76 |0
-<U779B> \xEA\x7A |0
-<U779C> \xEA\x79 |0
-<U779D> \xEA\x77 |0
-<U779E> \xBF\x66 |0
-<U779F> \xBF\x67 |0
-<U77A0> \xBF\x65 |0
-<U77A1> \xEA\x78 |0
-<U77A2> \xEA\x7B |0
-<U77A3> \xEA\x7C |0
-<U77A5> \xBF\x68 |0
-<U77A7> \xC1\x40 |0
-<U77A8> \xED\xA3 |0
-<U77AA> \xC0\xFC |0
-<U77AB> \xED\x7B |0
-<U77AC> \xC0\xFE |0
-<U77AD> \xC1\x41 |0
-<U77B0> \xC0\xFD |0
-<U77B1> \xED\xA2 |0
-<U77B2> \xED\x7C |0
-<U77B3> \xC0\xFB |0
-<U77B4> \xED\xA1 |0
-<U77B5> \xED\x7A |0
-<U77B6> \xED\x7E |0
-<U77B7> \xED\x7D |0
-<U77BA> \xF0\x55 |0
-<U77BB> \xC2\xA4 |0
-<U77BC> \xC2\xA5 |0
-<U77BD> \xC2\xA2 |0
-<U77BF> \xC2\xA3 |0
-<U77C2> \xF0\x54 |0
-<U77C4> \xF2\x7B |0
-<U77C7> \xC3\xA9 |0
-<U77C9> \xF2\x79 |0
-<U77CA> \xF2\x7A |0
-<U77CC> \xF4\x74 |0
-<U77CD> \xF4\x77 |0
-<U77CE> \xF4\x75 |0
-<U77CF> \xF4\x76 |0
-<U77D0> \xF5\xE0 |0
-<U77D3> \xC4\xEF |0
-<U77D4> \xF7\xEB |0
-<U77D5> \xF8\xB4 |0
-<U77D7> \xC5\xF7 |0
-<U77D8> \xF8\xF8 |0
-<U77D9> \xF8\xF9 |0
-<U77DA> \xC6\x66 |0
-<U77DB> \xA5\xD9 |0
-<U77DC> \xAC\xE1 |0
-<U77DE> \xDA\xC3 |0
-<U77E0> \xDE\xE3 |0
-<U77E2> \xA5\xDA |0
-<U77E3> \xA8\x6F |0
-<U77E5> \xAA\xBE |0
-<U77E7> \xCF\xE8 |0
-<U77E8> \xCF\xE9 |0
-<U77E9> \xAF\x78 |0
-<U77EC> \xDA\xC4 |0
-<U77ED> \xB5\x75 |0
-<U77EE> \xB8\x47 |0
-<U77EF> \xC1\x42 |0
-<U77F0> \xED\xA4 |0
-<U77F1> \xF2\x7C |0
-<U77F2> \xF4\x78 |0
-<U77F3> \xA5\xDB |0
-<U77F7> \xCD\xA1 |0
-<U77F8> \xCD\x7A |0
-<U77F9> \xCD\x7C |0
-<U77FA> \xCD\x7E |0
-<U77FB> \xCD\x7D |0
-<U77FC> \xCD\x7B |0
-<U77FD> \xAA\xBF |0
-<U7802> \xAC\xE2 |0
-<U7803> \xCF\xF2 |0
-<U7805> \xCF\xED |0
-<U7806> \xCF\xEA |0
-<U7809> \xCF\xF1 |0
-<U780C> \xAC\xE4 |0
-<U780D> \xAC\xE5 |0
-<U780E> \xCF\xF0 |0
-<U780F> \xCF\xEF |0
-<U7810> \xCF\xEE |0
-<U7811> \xCF\xEB |0
-<U7812> \xCF\xEC |0
-<U7813> \xCF\xF3 |0
-<U7814> \xAC\xE3 |0
-<U781D> \xAF\x7C |0
-<U781F> \xAF\xA4 |0
-<U7820> \xAF\xA3 |0
-<U7821> \xD2\xE1 |0
-<U7822> \xD2\xDB |0
-<U7823> \xD2\xD9 |0
-<U7825> \xAF\xA1 |0
-<U7826> \xD6\xB9 |0
-<U7827> \xAF\x7A |0
-<U7828> \xD2\xDE |0
-<U7829> \xD2\xE2 |0
-<U782A> \xD2\xE4 |0
-<U782B> \xD2\xE0 |0
-<U782C> \xD2\xDA |0
-<U782D> \xAF\xA2 |0
-<U782E> \xD2\xDF |0
-<U782F> \xD2\xDD |0
-<U7830> \xAF\x79 |0
-<U7831> \xD2\xE5 |0
-<U7832> \xAF\xA5 |0
-<U7833> \xD2\xE3 |0
-<U7834> \xAF\x7D |0
-<U7835> \xD2\xDC |0
-<U7837> \xAF\x7E |0
-<U7838> \xAF\x7B |0
-<U7843> \xB2\xB9 |0
-<U7845> \xD6\xBA |0
-<U7848> \xD6\xB3 |0
-<U7849> \xD6\xB5 |0
-<U784A> \xD6\xB7 |0
-<U784C> \xD6\xB8 |0
-<U784D> \xD6\xB6 |0
-<U784E> \xB2\xBA |0
-<U7850> \xD6\xBB |0
-<U7852> \xD6\xB4 |0
-<U785C> \xDA\xC8 |0
-<U785D> \xB5\x76 |0
-<U785E> \xDA\xD0 |0
-<U7860> \xDA\xC5 |0
-<U7862> \xDA\xD1 |0
-<U7864> \xDA\xC6 |0
-<U7865> \xDA\xC7 |0
-<U7868> \xDA\xCF |0
-<U7869> \xDA\xCE |0
-<U786A> \xDA\xCB |0
-<U786B> \xB2\xB8 |0
-<U786C> \xB5\x77 |0
-<U786D> \xDA\xC9 |0
-<U786E> \xDA\xCC |0
-<U786F> \xB5\x78 |0
-<U7870> \xDA\xCD |0
-<U7871> \xDA\xCA |0
-<U7879> \xDE\xEE |0
-<U787B> \xDE\xF2 |0
-<U787C> \xB8\x4E |0
-<U787E> \xE2\xF0 |0
-<U787F> \xB8\x51 |0
-<U7880> \xDE\xF0 |0
-<U7881> \xF9\xD6 |0
-<U7883> \xDE\xED |0
-<U7884> \xDE\xE8 |0
-<U7885> \xDE\xEA |0
-<U7886> \xDE\xEB |0
-<U7887> \xDE\xE4 |0
-<U7889> \xB8\x4D |0
-<U788C> \xB8\x4C |0
-<U788E> \xB8\x48 |0
-<U788F> \xDE\xE7 |0
-<U7891> \xB8\x4F |0
-<U7893> \xB8\x50 |0
-<U7894> \xDE\xE6 |0
-<U7895> \xDE\xE9 |0
-<U7896> \xDE\xF1 |0
-<U7897> \xB8\x4A |0
-<U7898> \xB8\x4B |0
-<U7899> \xDE\xEF |0
-<U789A> \xDE\xE5 |0
-<U789E> \xE2\xF2 |0
-<U789F> \xBA\xD0 |0
-<U78A0> \xE2\xF4 |0
-<U78A1> \xDE\xEC |0
-<U78A2> \xE2\xF6 |0
-<U78A3> \xBA\xD4 |0
-<U78A4> \xE2\xF7 |0
-<U78A5> \xE2\xF3 |0
-<U78A7> \xBA\xD1 |0
-<U78A8> \xE2\xEF |0
-<U78A9> \xBA\xD3 |0
-<U78AA> \xE2\xEC |0
-<U78AB> \xE2\xF1 |0
-<U78AC> \xE2\xF5 |0
-<U78AD> \xE2\xEE |0
-<U78B0> \xB8\x49 |0
-<U78B2> \xE2\xEB |0
-<U78B3> \xBA\xD2 |0
-<U78B4> \xE2\xED |0
-<U78BA> \xBD\x54 |0
-<U78BB> \xE6\xC1 |0
-<U78BC> \xBD\x58 |0
-<U78BE> \xBD\x56 |0
-<U78C1> \xBA\xCF |0
-<U78C3> \xE6\xC8 |0
-<U78C4> \xE6\xC9 |0
-<U78C5> \xBD\x53 |0
-<U78C8> \xE6\xC7 |0
-<U78C9> \xE6\xCA |0
-<U78CA> \xBD\x55 |0
-<U78CB> \xBD\x52 |0
-<U78CC> \xE6\xC3 |0
-<U78CD> \xE6\xC0 |0
-<U78CE> \xE6\xC5 |0
-<U78CF> \xE6\xC2 |0
-<U78D0> \xBD\x59 |0
-<U78D1> \xE6\xC4 |0
-<U78D4> \xE6\xC6 |0
-<U78D5> \xBD\x57 |0
-<U78DA> \xBF\x6A |0
-<U78DB> \xEA\xA8 |0
-<U78DD> \xEA\xA2 |0
-<U78DE> \xEA\xA6 |0
-<U78DF> \xEA\xAC |0
-<U78E0> \xEA\xAD |0
-<U78E1> \xEA\xA9 |0
-<U78E2> \xEA\xAA |0
-<U78E3> \xEA\xA7 |0
-<U78E5> \xEA\xA4 |0
-<U78E7> \xBF\x6C |0
-<U78E8> \xBF\x69 |0
-<U78E9> \xEA\xA3 |0
-<U78EA> \xEA\xA5 |0
-<U78EC> \xBF\x6B |0
-<U78ED> \xEA\xAB |0
-<U78EF> \xC1\x46 |0
-<U78F2> \xED\xAA |0
-<U78F3> \xED\xA5 |0
-<U78F4> \xC1\x45 |0
-<U78F7> \xC1\x43 |0
-<U78F9> \xED\xAC |0
-<U78FA> \xC1\x44 |0
-<U78FB> \xED\xA8 |0
-<U78FC> \xED\xA9 |0
-<U78FD> \xED\xA6 |0
-<U78FE> \xED\xAD |0
-<U78FF> \xF0\x56 |0
-<U7901> \xC1\x47 |0
-<U7902> \xED\xA7 |0
-<U7904> \xED\xAE |0
-<U7905> \xED\xAB |0
-<U7909> \xF0\x5A |0
-<U790C> \xF0\x57 |0
-<U790E> \xC2\xA6 |0
-<U7910> \xF0\x5B |0
-<U7911> \xF0\x5D |0
-<U7912> \xF0\x5C |0
-<U7913> \xF0\x58 |0
-<U7914> \xF0\x59 |0
-<U7917> \xF2\xA3 |0
-<U7919> \xC3\xAA |0
-<U791B> \xF2\x7E |0
-<U791C> \xF2\xA2 |0
-<U791D> \xF2\x7D |0
-<U791E> \xF2\xA4 |0
-<U7921> \xF2\xA1 |0
-<U7923> \xF4\x7A |0
-<U7924> \xF4\x7D |0
-<U7925> \xF4\x79 |0
-<U7926> \xC4\x71 |0
-<U7927> \xF4\x7B |0
-<U7928> \xF4\x7C |0
-<U7929> \xF4\x7E |0
-<U792A> \xC4\x72 |0
-<U792B> \xC4\x74 |0
-<U792C> \xC4\x73 |0
-<U792D> \xF5\xE1 |0
-<U792F> \xF5\xE3 |0
-<U7931> \xF5\xE2 |0
-<U7935> \xF6\xF6 |0
-<U7938> \xF8\xB5 |0
-<U7939> \xF8\xFA |0
-<U793A> \xA5\xDC |0
-<U793D> \xCB\x72 |0
-<U793E> \xAA\xC0 |0
-<U793F> \xCD\xA3 |0
-<U7940> \xAA\xC1 |0
-<U7941> \xAA\xC2 |0
-<U7942> \xCD\xA2 |0
-<U7944> \xCF\xF8 |0
-<U7945> \xCF\xF7 |0
-<U7946> \xAC\xE6 |0
-<U7947> \xAC\xE9 |0
-<U7948> \xAC\xE8 |0
-<U7949> \xAC\xE7 |0
-<U794A> \xCF\xF4 |0
-<U794B> \xCF\xF6 |0
-<U794C> \xCF\xF5 |0
-<U794F> \xD2\xE8 |0
-<U7950> \xAF\xA7 |0
-<U7951> \xD2\xEC |0
-<U7952> \xD2\xEB |0
-<U7953> \xD2\xEA |0
-<U7954> \xD2\xE6 |0
-<U7955> \xAF\xA6 |0
-<U7956> \xAF\xAA |0
-<U7957> \xAF\xAD |0
-<U795A> \xAF\xAE |0
-<U795B> \xD2\xE7 |0
-<U795C> \xD2\xE9 |0
-<U795D> \xAF\xAC |0
-<U795E> \xAF\xAB |0
-<U795F> \xAF\xA9 |0
-<U7960> \xAF\xA8 |0
-<U7961> \xD6\xC2 |0
-<U7963> \xD6\xC0 |0
-<U7964> \xD6\xBC |0
-<U7965> \xB2\xBB |0
-<U7967> \xD6\xBD |0
-<U7968> \xB2\xBC |0
-<U7969> \xD6\xBE |0
-<U796A> \xD6\xBF |0
-<U796B> \xD6\xC1 |0
-<U796D> \xB2\xBD |0
-<U7970> \xDA\xD5 |0
-<U7972> \xDA\xD4 |0
-<U7973> \xDA\xD3 |0
-<U7974> \xDA\xD2 |0
-<U7979> \xDE\xF6 |0
-<U797A> \xB8\x52 |0
-<U797C> \xDE\xF3 |0
-<U797D> \xDE\xF5 |0
-<U797F> \xB8\x53 |0
-<U7981> \xB8\x54 |0
-<U7982> \xDE\xF4 |0
-<U7988> \xE3\x41 |0
-<U798A> \xE2\xF9 |0
-<U798B> \xE2\xFA |0
-<U798D> \xBA\xD7 |0
-<U798E> \xBA\xD5 |0
-<U798F> \xBA\xD6 |0
-<U7990> \xE3\x43 |0
-<U7992> \xE3\x42 |0
-<U7993> \xE2\xFE |0
-<U7994> \xE2\xFD |0
-<U7995> \xE2\xFC |0
-<U7996> \xE2\xFB |0
-<U7997> \xE3\x40 |0
-<U7998> \xE2\xF8 |0
-<U799A> \xE6\xCB |0
-<U799B> \xE6\xD0 |0
-<U799C> \xE6\xCE |0
-<U79A0> \xE6\xCD |0
-<U79A1> \xE6\xCC |0
-<U79A2> \xE6\xCF |0
-<U79A4> \xEA\xAE |0
-<U79A6> \xBF\x6D |0
-<U79A7> \xC1\x48 |0
-<U79A8> \xED\xB0 |0
-<U79AA> \xC1\x49 |0
-<U79AB> \xED\xAF |0
-<U79AC> \xF0\x5F |0
-<U79AD> \xF0\x5E |0
-<U79AE> \xC2\xA7 |0
-<U79B0> \xF2\xA5 |0
-<U79B1> \xC3\xAB |0
-<U79B2> \xF4\xA1 |0
-<U79B3> \xC5\xA1 |0
-<U79B4> \xF6\xF7 |0
-<U79B6> \xF8\xB7 |0
-<U79B7> \xF8\xB6 |0
-<U79B8> \xC9\xA8 |0
-<U79B9> \xAC\xEA |0
-<U79BA> \xAC\xEB |0
-<U79BB> \xD6\xC3 |0
-<U79BD> \xB8\x56 |0
-<U79BE> \xA5\xDD |0
-<U79BF> \xA8\x72 |0
-<U79C0> \xA8\x71 |0
-<U79C1> \xA8\x70 |0
-<U79C5> \xCD\xA4 |0
-<U79C8> \xAA\xC4 |0
-<U79C9> \xAA\xC3 |0
-<U79CB> \xAC\xEE |0
-<U79CD> \xCF\xFA |0
-<U79CE> \xCF\xFD |0
-<U79CF> \xCF\xFB |0
-<U79D1> \xAC\xEC |0
-<U79D2> \xAC\xED |0
-<U79D5> \xCF\xF9 |0
-<U79D6> \xCF\xFC |0
-<U79D8> \xAF\xB5 |0
-<U79DC> \xD2\xF3 |0
-<U79DD> \xD2\xF5 |0
-<U79DE> \xD2\xF4 |0
-<U79DF> \xAF\xB2 |0
-<U79E0> \xD2\xEF |0
-<U79E3> \xAF\xB0 |0
-<U79E4> \xAF\xAF |0
-<U79E6> \xAF\xB3 |0
-<U79E7> \xAF\xB1 |0
-<U79E9> \xAF\xB4 |0
-<U79EA> \xD2\xF2 |0
-<U79EB> \xD2\xED |0
-<U79EC> \xD2\xEE |0
-<U79ED> \xD2\xF1 |0
-<U79EE> \xD2\xF0 |0
-<U79F6> \xD6\xC6 |0
-<U79F7> \xD6\xC7 |0
-<U79F8> \xD6\xC5 |0
-<U79FA> \xD6\xC4 |0
-<U79FB> \xB2\xBE |0
-<U7A00> \xB5\x7D |0
-<U7A02> \xDA\xD6 |0
-<U7A03> \xDA\xD8 |0
-<U7A04> \xDA\xDA |0
-<U7A05> \xB5\x7C |0
-<U7A08> \xB5\x7A |0
-<U7A0A> \xDA\xD7 |0
-<U7A0B> \xB5\x7B |0
-<U7A0C> \xDA\xD9 |0
-<U7A0D> \xB5\x79 |0
-<U7A10> \xDF\x41 |0
-<U7A11> \xDE\xF7 |0
-<U7A12> \xDE\xFA |0
-<U7A13> \xDE\xFE |0
-<U7A14> \xB8\x5A |0
-<U7A15> \xDE\xFC |0
-<U7A17> \xDE\xFB |0
-<U7A18> \xDE\xF8 |0
-<U7A19> \xDE\xF9 |0
-<U7A1A> \xB8\x58 |0
-<U7A1B> \xDF\x40 |0
-<U7A1C> \xB8\x57 |0
-<U7A1E> \xB8\x5C |0
-<U7A1F> \xB8\x5B |0
-<U7A20> \xB8\x59 |0
-<U7A22> \xDE\xFD |0
-<U7A26> \xE3\x49 |0
-<U7A28> \xE3\x48 |0
-<U7A2B> \xE3\x44 |0
-<U7A2E> \xBA\xD8 |0
-<U7A2F> \xE3\x47 |0
-<U7A30> \xE3\x46 |0
-<U7A31> \xBA\xD9 |0
-<U7A37> \xBD\x5E |0
-<U7A39> \xE6\xD2 |0
-<U7A3B> \xBD\x5F |0
-<U7A3C> \xBD\x5B |0
-<U7A3D> \xBD\x5D |0
-<U7A3F> \xBD\x5A |0
-<U7A40> \xBD\x5C |0
-<U7A44> \xEA\xAF |0
-<U7A46> \xBF\x70 |0
-<U7A47> \xEA\xB1 |0
-<U7A48> \xEA\xB0 |0
-<U7A4A> \xE3\x45 |0
-<U7A4B> \xBF\x72 |0
-<U7A4C> \xBF\x71 |0
-<U7A4D> \xBF\x6E |0
-<U7A4E> \xBF\x6F |0
-<U7A54> \xED\xB5 |0
-<U7A56> \xED\xB3 |0
-<U7A57> \xC1\x4A |0
-<U7A58> \xED\xB4 |0
-<U7A5A> \xED\xB6 |0
-<U7A5B> \xED\xB2 |0
-<U7A5C> \xED\xB1 |0
-<U7A5F> \xF0\x60 |0
-<U7A60> \xC2\xAA |0
-<U7A61> \xC2\xA8 |0
-<U7A62> \xC2\xA9 |0
-<U7A67> \xF2\xA6 |0
-<U7A68> \xF2\xA7 |0
-<U7A69> \xC3\xAD |0
-<U7A6B> \xC3\xAC |0
-<U7A6C> \xF4\xA3 |0
-<U7A6D> \xF4\xA4 |0
-<U7A6E> \xF4\xA2 |0
-<U7A70> \xF6\xF8 |0
-<U7A71> \xF6\xF9 |0
-<U7A74> \xA5\xDE |0
-<U7A75> \xCA\x48 |0
-<U7A76> \xA8\x73 |0
-<U7A78> \xCD\xA5 |0
-<U7A79> \xAA\xC6 |0
-<U7A7A> \xAA\xC5 |0
-<U7A7B> \xCD\xA6 |0
-<U7A7E> \xD0\x40 |0
-<U7A7F> \xAC\xEF |0
-<U7A80> \xCF\xFE |0
-<U7A81> \xAC\xF0 |0
-<U7A84> \xAF\xB6 |0
-<U7A85> \xD2\xF8 |0
-<U7A86> \xD2\xF6 |0
-<U7A87> \xD2\xFC |0
-<U7A88> \xAF\xB7 |0
-<U7A89> \xD2\xF7 |0
-<U7A8A> \xD2\xFB |0
-<U7A8B> \xD2\xF9 |0
-<U7A8C> \xD2\xFA |0
-<U7A8F> \xD6\xC8 |0
-<U7A90> \xD6\xCA |0
-<U7A92> \xB2\xBF |0
-<U7A94> \xD6\xC9 |0
-<U7A95> \xB2\xC0 |0
-<U7A96> \xB5\xA2 |0
-<U7A97> \xB5\xA1 |0
-<U7A98> \xB5\x7E |0
-<U7A99> \xDA\xDB |0
-<U7A9E> \xDF\x44 |0
-<U7A9F> \xB8\x5D |0
-<U7AA0> \xB8\x5E |0
-<U7AA2> \xDF\x43 |0
-<U7AA3> \xDF\x42 |0
-<U7AA8> \xE3\x4A |0
-<U7AA9> \xBA\xDB |0
-<U7AAA> \xBA\xDA |0
-<U7AAB> \xE3\x4B |0
-<U7AAC> \xE3\x4C |0
-<U7AAE> \xBD\x61 |0
-<U7AAF> \xBD\x60 |0
-<U7AB1> \xEA\xB5 |0
-<U7AB2> \xE6\xD3 |0
-<U7AB3> \xE6\xD5 |0
-<U7AB4> \xE6\xD4 |0
-<U7AB5> \xEA\xB4 |0
-<U7AB6> \xEA\xB2 |0
-<U7AB7> \xEA\xB6 |0
-<U7AB8> \xEA\xB3 |0
-<U7ABA> \xBF\x73 |0
-<U7ABE> \xED\xB7 |0
-<U7ABF> \xC1\x4B |0
-<U7AC0> \xED\xB8 |0
-<U7AC1> \xED\xB9 |0
-<U7AC4> \xC2\xAB |0
-<U7AC5> \xC2\xAC |0
-<U7AC7> \xC4\x75 |0
-<U7ACA> \xC5\xD1 |0
-<U7ACB> \xA5\xDF |0
-<U7AD1> \xD0\x41 |0
-<U7AD8> \xD2\xFD |0
-<U7AD9> \xAF\xB8 |0
-<U7ADF> \xB3\xBA |0
-<U7AE0> \xB3\xB9 |0
-<U7AE3> \xB5\xA4 |0
-<U7AE4> \xDA\xDD |0
-<U7AE5> \xB5\xA3 |0
-<U7AE6> \xDA\xDC |0
-<U7AEB> \xDF\x45 |0
-<U7AED> \xBA\xDC |0
-<U7AEE> \xE3\x4D |0
-<U7AEF> \xBA\xDD |0
-<U7AF6> \xC4\x76 |0
-<U7AF7> \xF4\xA5 |0
-<U7AF9> \xA6\xCB |0
-<U7AFA> \xAA\xC7 |0
-<U7AFB> \xCD\xA7 |0
-<U7AFD> \xAC\xF2 |0
-<U7AFF> \xAC\xF1 |0
-<U7B00> \xD0\x42 |0
-<U7B01> \xD0\x43 |0
-<U7B04> \xD3\x40 |0
-<U7B05> \xD3\x42 |0
-<U7B06> \xAF\xB9 |0
-<U7B08> \xD3\x44 |0
-<U7B09> \xD3\x47 |0
-<U7B0A> \xD3\x45 |0
-<U7B0E> \xD3\x46 |0
-<U7B0F> \xD3\x43 |0
-<U7B10> \xD2\xFE |0
-<U7B11> \xAF\xBA |0
-<U7B12> \xD3\x48 |0
-<U7B13> \xD3\x41 |0
-<U7B18> \xD6\xD3 |0
-<U7B19> \xB2\xC6 |0
-<U7B1A> \xD6\xDC |0
-<U7B1B> \xB2\xC3 |0
-<U7B1D> \xD6\xD5 |0
-<U7B1E> \xB2\xC7 |0
-<U7B20> \xB2\xC1 |0
-<U7B22> \xD6\xD0 |0
-<U7B23> \xD6\xDD |0
-<U7B24> \xD6\xD1 |0
-<U7B25> \xD6\xCE |0
-<U7B26> \xB2\xC5 |0
-<U7B28> \xB2\xC2 |0
-<U7B2A> \xD6\xD4 |0
-<U7B2B> \xD6\xD7 |0
-<U7B2C> \xB2\xC4 |0
-<U7B2D> \xD6\xD8 |0
-<U7B2E> \xB2\xC8 |0
-<U7B2F> \xD6\xD9 |0
-<U7B30> \xD6\xCF |0
-<U7B31> \xD6\xD6 |0
-<U7B32> \xD6\xDA |0
-<U7B33> \xD6\xD2 |0
-<U7B34> \xD6\xCD |0
-<U7B35> \xD6\xCB |0
-<U7B38> \xD6\xDB |0
-<U7B3B> \xDA\xDF |0
-<U7B40> \xDA\xE4 |0
-<U7B44> \xDA\xE0 |0
-<U7B45> \xDA\xE6 |0
-<U7B46> \xB5\xA7 |0
-<U7B47> \xD6\xCC |0
-<U7B48> \xDA\xE1 |0
-<U7B49> \xB5\xA5 |0
-<U7B4A> \xDA\xDE |0
-<U7B4B> \xB5\xAC |0
-<U7B4C> \xDA\xE2 |0
-<U7B4D> \xB5\xAB |0
-<U7B4E> \xDA\xE3 |0
-<U7B4F> \xB5\xAD |0
-<U7B50> \xB5\xA8 |0
-<U7B51> \xB5\xAE |0
-<U7B52> \xB5\xA9 |0
-<U7B54> \xB5\xAA |0
-<U7B56> \xB5\xA6 |0
-<U7B58> \xDA\xE5 |0
-<U7B60> \xB8\x61 |0
-<U7B61> \xDF\x50 |0
-<U7B63> \xDF\x53 |0
-<U7B64> \xDF\x47 |0
-<U7B65> \xDF\x4C |0
-<U7B66> \xDF\x46 |0
-<U7B67> \xB8\x63 |0
-<U7B69> \xDF\x4A |0
-<U7B6D> \xDF\x48 |0
-<U7B6E> \xB8\x62 |0
-<U7B70> \xDF\x4F |0
-<U7B71> \xDF\x4E |0
-<U7B72> \xDF\x4B |0
-<U7B73> \xDF\x4D |0
-<U7B74> \xDF\x49 |0
-<U7B75> \xBA\xE1 |0
-<U7B76> \xDF\x52 |0
-<U7B77> \xB8\x5F |0
-<U7B78> \xDF\x51 |0
-<U7B82> \xE3\x5D |0
-<U7B84> \xBA\xE8 |0
-<U7B85> \xE3\x58 |0
-<U7B87> \xBA\xE7 |0
-<U7B88> \xE3\x4E |0
-<U7B8A> \xE3\x50 |0
-<U7B8B> \xBA\xE0 |0
-<U7B8C> \xE3\x55 |0
-<U7B8D> \xE3\x54 |0
-<U7B8E> \xE3\x57 |0
-<U7B8F> \xBA\xE5 |0
-<U7B90> \xE3\x52 |0
-<U7B91> \xE3\x51 |0
-<U7B94> \xBA\xE4 |0
-<U7B95> \xBA\xDF |0
-<U7B96> \xE3\x53 |0
-<U7B97> \xBA\xE2 |0
-<U7B98> \xE3\x59 |0
-<U7B99> \xE3\x5B |0
-<U7B9B> \xE3\x56 |0
-<U7B9C> \xE3\x4F |0
-<U7B9D> \xBA\xE3 |0
-<U7BA0> \xBD\x69 |0
-<U7BA1> \xBA\xDE |0
-<U7BA4> \xE3\x5C |0
-<U7BAC> \xE6\xD9 |0
-<U7BAD> \xBD\x62 |0
-<U7BAF> \xE6\xDB |0
-<U7BB1> \xBD\x63 |0
-<U7BB4> \xBD\x65 |0
-<U7BB5> \xE6\xDE |0
-<U7BB7> \xE6\xD6 |0
-<U7BB8> \xBA\xE6 |0
-<U7BB9> \xE6\xDC |0
-<U7BBE> \xE6\xD8 |0
-<U7BC0> \xB8\x60 |0
-<U7BC1> \xBD\x68 |0
-<U7BC4> \xBD\x64 |0
-<U7BC6> \xBD\x66 |0
-<U7BC7> \xBD\x67 |0
-<U7BC9> \xBF\x76 |0
-<U7BCA> \xE6\xDD |0
-<U7BCB> \xE6\xD7 |0
-<U7BCC> \xBD\x6A |0
-<U7BCE> \xE6\xDA |0
-<U7BD4> \xEA\xC0 |0
-<U7BD5> \xEA\xBB |0
-<U7BD8> \xEA\xC5 |0
-<U7BD9> \xBF\x74 |0
-<U7BDA> \xEA\xBD |0
-<U7BDB> \xBF\x78 |0
-<U7BDC> \xEA\xC3 |0
-<U7BDD> \xEA\xBA |0
-<U7BDE> \xEA\xB7 |0
-<U7BDF> \xEA\xC6 |0
-<U7BE0> \xC1\x51 |0
-<U7BE1> \xBF\x79 |0
-<U7BE2> \xEA\xC2 |0
-<U7BE3> \xEA\xB8 |0
-<U7BE4> \xBF\x77 |0
-<U7BE5> \xEA\xBC |0
-<U7BE6> \xBF\x7B |0
-<U7BE7> \xEA\xB9 |0
-<U7BE8> \xEA\xBE |0
-<U7BE9> \xBF\x7A |0
-<U7BEA> \xEA\xC1 |0
-<U7BEB> \xEA\xC4 |0
-<U7BF0> \xED\xCB |0
-<U7BF1> \xED\xCC |0
-<U7BF2> \xED\xBC |0
-<U7BF3> \xED\xC3 |0
-<U7BF4> \xED\xC1 |0
-<U7BF7> \xC1\x4F |0
-<U7BF8> \xED\xC8 |0
-<U7BF9> \xEA\xBF |0
-<U7BFB> \xED\xBF |0
-<U7BFD> \xED\xC9 |0
-<U7BFE> \xC1\x4E |0
-<U7BFF> \xED\xBE |0
-<U7C00> \xED\xBD |0
-<U7C01> \xED\xC7 |0
-<U7C02> \xED\xC4 |0
-<U7C03> \xED\xC6 |0
-<U7C05> \xED\xBA |0
-<U7C06> \xED\xCA |0
-<U7C07> \xC1\x4C |0
-<U7C09> \xED\xC5 |0
-<U7C0A> \xED\xCE |0
-<U7C0B> \xED\xC2 |0
-<U7C0C> \xC1\x50 |0
-<U7C0D> \xC1\x4D |0
-<U7C0E> \xED\xC0 |0
-<U7C0F> \xED\xBB |0
-<U7C10> \xED\xCD |0
-<U7C11> \xBF\x75 |0
-<U7C19> \xF0\x63 |0
-<U7C1C> \xF0\x61 |0
-<U7C1D> \xF0\x67 |0
-<U7C1E> \xC2\xB0 |0
-<U7C1F> \xF0\x65 |0
-<U7C20> \xF0\x64 |0
-<U7C21> \xC2\xB2 |0
-<U7C22> \xF0\x6A |0
-<U7C23> \xC2\xB1 |0
-<U7C25> \xF0\x6B |0
-<U7C26> \xF0\x68 |0
-<U7C27> \xC2\xAE |0
-<U7C28> \xF0\x69 |0
-<U7C29> \xF0\x62 |0
-<U7C2A> \xC2\xAF |0
-<U7C2B> \xC2\xAD |0
-<U7C2C> \xF2\xAB |0
-<U7C2D> \xF0\x66 |0
-<U7C30> \xF0\x6C |0
-<U7C33> \xF2\xA8 |0
-<U7C37> \xC3\xB2 |0
-<U7C38> \xC3\xB0 |0
-<U7C39> \xF2\xAA |0
-<U7C3B> \xF2\xAC |0
-<U7C3C> \xF2\xA9 |0
-<U7C3D> \xC3\xB1 |0
-<U7C3E> \xC3\xAE |0
-<U7C3F> \xC3\xAF |0
-<U7C40> \xC3\xB3 |0
-<U7C43> \xC4\x78 |0
-<U7C45> \xF4\xAA |0
-<U7C47> \xF4\xA9 |0
-<U7C48> \xF4\xA7 |0
-<U7C49> \xF4\xA6 |0
-<U7C4A> \xF4\xA8 |0
-<U7C4C> \xC4\x77 |0
-<U7C4D> \xC4\x79 |0
-<U7C50> \xC4\xF0 |0
-<U7C53> \xF5\xE5 |0
-<U7C54> \xF5\xE4 |0
-<U7C57> \xF6\xFA |0
-<U7C59> \xF6\xFC |0
-<U7C5A> \xF6\xFE |0
-<U7C5B> \xF6\xFD |0
-<U7C5C> \xF6\xFB |0
-<U7C5F> \xC5\xA3 |0
-<U7C60> \xC5\xA2 |0
-<U7C63> \xC5\xD3 |0
-<U7C64> \xC5\xD2 |0
-<U7C65> \xC5\xD4 |0
-<U7C66> \xF7\xED |0
-<U7C67> \xF7\xEC |0
-<U7C69> \xF8\xFB |0
-<U7C6A> \xF8\xB8 |0
-<U7C6B> \xF8\xFC |0
-<U7C6C> \xC6\x58 |0
-<U7C6E> \xC6\x59 |0
-<U7C6F> \xF9\x6D |0
-<U7C72> \xC6\x7E |0
-<U7C73> \xA6\xCC |0
-<U7C75> \xCD\xA8 |0
-<U7C78> \xD0\x45 |0
-<U7C79> \xD0\x46 |0
-<U7C7A> \xD0\x44 |0
-<U7C7D> \xAC\xF3 |0
-<U7C7F> \xD0\x47 |0
-<U7C80> \xD0\x48 |0
-<U7C81> \xD0\x49 |0
-<U7C84> \xD3\x49 |0
-<U7C85> \xD3\x4F |0
-<U7C88> \xD3\x4D |0
-<U7C89> \xAF\xBB |0
-<U7C8A> \xD3\x4B |0
-<U7C8C> \xD3\x4C |0
-<U7C8D> \xD3\x4E |0
-<U7C91> \xD3\x4A |0
-<U7C92> \xB2\xC9 |0
-<U7C94> \xD6\xDE |0
-<U7C95> \xB2\xCB |0
-<U7C96> \xD6\xE0 |0
-<U7C97> \xB2\xCA |0
-<U7C98> \xD6\xDF |0
-<U7C9E> \xDA\xE8 |0
-<U7C9F> \xB5\xAF |0
-<U7CA1> \xDA\xEA |0
-<U7CA2> \xDA\xE7 |0
-<U7CA3> \xD6\xE1 |0
-<U7CA5> \xB5\xB0 |0
-<U7CA7> \xF9\xDB |0
-<U7CA8> \xDA\xE9 |0
-<U7CAF> \xDF\x56 |0
-<U7CB1> \xB8\x64 |0
-<U7CB2> \xDF\x54 |0
-<U7CB3> \xB8\x65 |0
-<U7CB4> \xDF\x55 |0
-<U7CB5> \xB8\x66 |0
-<U7CB9> \xBA\xE9 |0
-<U7CBA> \xE3\x61 |0
-<U7CBB> \xE3\x5E |0
-<U7CBC> \xE3\x60 |0
-<U7CBD> \xBA\xEA |0
-<U7CBE> \xBA\xEB |0
-<U7CBF> \xE3\x5F |0
-<U7CC5> \xE6\xDF |0
-<U7CC8> \xE6\xE0 |0
-<U7CCA> \xBD\x6B |0
-<U7CCB> \xE6\xE2 |0
-<U7CCC> \xE6\xE1 |0
-<U7CCE> \xA2\x61 |0
-<U7CD0> \xEA\xCA |0
-<U7CD1> \xEA\xCB |0
-<U7CD2> \xEA\xC7 |0
-<U7CD4> \xEA\xC8 |0
-<U7CD5> \xBF\x7C |0
-<U7CD6> \xBF\x7D |0
-<U7CD7> \xEA\xC9 |0
-<U7CD9> \xC1\x57 |0
-<U7CDC> \xC1\x53 |0
-<U7CDD> \xC1\x58 |0
-<U7CDE> \xC1\x54 |0
-<U7CDF> \xC1\x56 |0
-<U7CE0> \xC1\x52 |0
-<U7CE2> \xC1\x55 |0
-<U7CE7> \xC2\xB3 |0
-<U7CE8> \xED\xCF |0
-<U7CEA> \xF2\xAE |0
-<U7CEC> \xF2\xAD |0
-<U7CEE> \xF4\xAB |0
-<U7CEF> \xC4\x7A |0
-<U7CF0> \xC4\x7B |0
-<U7CF1> \xF7\x41 |0
-<U7CF2> \xF5\xE6 |0
-<U7CF4> \xF7\x40 |0
-<U7CF6> \xF8\xFD |0
-<U7CF7> \xF9\xA4 |0
-<U7CF8> \xA6\xCD |0
-<U7CFB> \xA8\x74 |0
-<U7CFD> \xCD\xA9 |0
-<U7CFE> \xAA\xC8 |0
-<U7D00> \xAC\xF6 |0
-<U7D01> \xD0\x4C |0
-<U7D02> \xAC\xF4 |0
-<U7D03> \xD0\x4A |0
-<U7D04> \xAC\xF9 |0
-<U7D05> \xAC\xF5 |0
-<U7D06> \xAC\xFA |0
-<U7D07> \xAC\xF8 |0
-<U7D08> \xD0\x4B |0
-<U7D09> \xAC\xF7 |0
-<U7D0A> \xAF\xBF |0
-<U7D0B> \xAF\xBE |0
-<U7D0C> \xD3\x5A |0
-<U7D0D> \xAF\xC7 |0
-<U7D0E> \xD3\x53 |0
-<U7D0F> \xD3\x59 |0
-<U7D10> \xAF\xC3 |0
-<U7D11> \xD3\x52 |0
-<U7D12> \xD3\x58 |0
-<U7D13> \xD3\x56 |0
-<U7D14> \xAF\xC2 |0
-<U7D15> \xAF\xC4 |0
-<U7D16> \xD3\x55 |0
-<U7D17> \xAF\xBD |0
-<U7D18> \xD3\x54 |0
-<U7D19> \xAF\xC8 |0
-<U7D1A> \xAF\xC5 |0
-<U7D1B> \xAF\xC9 |0
-<U7D1C> \xAF\xC6 |0
-<U7D1D> \xD3\x51 |0
-<U7D1E> \xD3\x50 |0
-<U7D1F> \xD3\x57 |0
-<U7D20> \xAF\xC0 |0
-<U7D21> \xAF\xBC |0
-<U7D22> \xAF\xC1 |0
-<U7D28> \xD6\xF0 |0
-<U7D29> \xD6\xE9 |0
-<U7D2B> \xB5\xB5 |0
-<U7D2C> \xD6\xE8 |0
-<U7D2E> \xB2\xCF |0
-<U7D2F> \xB2\xD6 |0
-<U7D30> \xB2\xD3 |0
-<U7D31> \xB2\xD9 |0
-<U7D32> \xB2\xD8 |0
-<U7D33> \xB2\xD4 |0
-<U7D35> \xD6\xE2 |0
-<U7D36> \xD6\xE5 |0
-<U7D38> \xD6\xE4 |0
-<U7D39> \xB2\xD0 |0
-<U7D3A> \xD6\xE6 |0
-<U7D3B> \xD6\xEF |0
-<U7D3C> \xB2\xD1 |0
-<U7D3D> \xD6\xE3 |0
-<U7D3E> \xD6\xEC |0
-<U7D3F> \xD6\xED |0
-<U7D40> \xB2\xD2 |0
-<U7D41> \xD6\xEA |0
-<U7D42> \xB2\xD7 |0
-<U7D43> \xB2\xCD |0
-<U7D44> \xB2\xD5 |0
-<U7D45> \xD6\xE7 |0
-<U7D46> \xB2\xCC |0
-<U7D47> \xD6\xEB |0
-<U7D4A> \xD6\xEE |0
-<U7D4E> \xDA\xFB |0
-<U7D4F> \xDA\xF2 |0
-<U7D50> \xB5\xB2 |0
-<U7D51> \xDA\xF9 |0
-<U7D52> \xDA\xF6 |0
-<U7D53> \xDA\xEE |0
-<U7D54> \xDA\xF7 |0
-<U7D55> \xB5\xB4 |0
-<U7D56> \xDA\xEF |0
-<U7D58> \xDA\xEB |0
-<U7D5B> \xB8\x6C |0
-<U7D5C> \xDA\xF4 |0
-<U7D5E> \xB5\xB1 |0
-<U7D5F> \xDA\xFA |0
-<U7D61> \xB5\xB8 |0
-<U7D62> \xB5\xBA |0
-<U7D63> \xDA\xED |0
-<U7D66> \xB5\xB9 |0
-<U7D67> \xDA\xF0 |0
-<U7D68> \xB5\xB3 |0
-<U7D69> \xDA\xF8 |0
-<U7D6A> \xDA\xF1 |0
-<U7D6B> \xDA\xF5 |0
-<U7D6D> \xDA\xF3 |0
-<U7D6E> \xB5\xB6 |0
-<U7D6F> \xDA\xEC |0
-<U7D70> \xB5\xBB |0
-<U7D71> \xB2\xCE |0
-<U7D72> \xB5\xB7 |0
-<U7D73> \xB5\xBC |0
-<U7D79> \xB8\x68 |0
-<U7D7A> \xDF\x5D |0
-<U7D7B> \xDF\x5F |0
-<U7D7C> \xDF\x61 |0
-<U7D7D> \xDF\x65 |0
-<U7D7F> \xDF\x5B |0
-<U7D80> \xDF\x59 |0
-<U7D81> \xB8\x6A |0
-<U7D83> \xDF\x60 |0
-<U7D84> \xDF\x64 |0
-<U7D85> \xDF\x5C |0
-<U7D86> \xDF\x58 |0
-<U7D88> \xDF\x57 |0
-<U7D8C> \xDF\x62 |0
-<U7D8D> \xDF\x5A |0
-<U7D8E> \xDF\x5E |0
-<U7D8F> \xB8\x6B |0
-<U7D91> \xB8\x69 |0
-<U7D92> \xDF\x66 |0
-<U7D93> \xB8\x67 |0
-<U7D94> \xDF\x63 |0
-<U7D96> \xE3\x72 |0
-<U7D9C> \xBA\xEE |0
-<U7D9D> \xE3\x6A |0
-<U7D9E> \xBD\x78 |0
-<U7D9F> \xE3\x74 |0
-<U7DA0> \xBA\xF1 |0
-<U7DA1> \xE3\x78 |0
-<U7DA2> \xBA\xF7 |0
-<U7DA3> \xE3\x65 |0
-<U7DA6> \xE3\x75 |0
-<U7DA7> \xE3\x62 |0
-<U7DA9> \xE3\x77 |0
-<U7DAA> \xE3\x66 |0
-<U7DAC> \xBA\xFE |0
-<U7DAD> \xBA\xFB |0
-<U7DAE> \xE3\x76 |0
-<U7DAF> \xE3\x70 |0
-<U7DB0> \xBA\xED |0
-<U7DB1> \xBA\xF5 |0
-<U7DB2> \xBA\xF4 |0
-<U7DB4> \xBA\xF3 |0
-<U7DB5> \xBA\xF9 |0
-<U7DB7> \xE3\x63 |0
-<U7DB8> \xBA\xFA |0
-<U7DB9> \xE3\x71 |0
-<U7DBA> \xBA\xF6 |0
-<U7DBB> \xBA\xEC |0
-<U7DBC> \xE3\x73 |0
-<U7DBD> \xBA\xEF |0
-<U7DBE> \xBA\xF0 |0
-<U7DBF> \xBA\xF8 |0
-<U7DC0> \xE3\x68 |0
-<U7DC1> \xE3\x67 |0
-<U7DC2> \xE3\x64 |0
-<U7DC4> \xE3\x6C |0
-<U7DC5> \xE3\x69 |0
-<U7DC6> \xE3\x6D |0
-<U7DC7> \xBA\xFD |0
-<U7DC9> \xE3\x79 |0
-<U7DCA> \xBA\xF2 |0
-<U7DCB> \xE3\x6E |0
-<U7DCC> \xE3\x6F |0
-<U7DCE> \xE3\x6B |0
-<U7DD2> \xBA\xFC |0
-<U7DD7> \xE6\xE7 |0
-<U7DD8> \xBD\x70 |0
-<U7DD9> \xBD\x79 |0
-<U7DDA> \xBD\x75 |0
-<U7DDB> \xE6\xE4 |0
-<U7DDD> \xBD\x72 |0
-<U7DDE> \xBD\x76 |0
-<U7DDF> \xE6\xF0 |0
-<U7DE0> \xBD\x6C |0
-<U7DE1> \xE6\xE8 |0
-<U7DE3> \xBD\x74 |0
-<U7DE6> \xE6\xEB |0
-<U7DE7> \xE6\xE6 |0
-<U7DE8> \xBD\x73 |0
-<U7DE9> \xBD\x77 |0
-<U7DEA> \xE6\xE5 |0
-<U7DEC> \xBD\x71 |0
-<U7DEE> \xE6\xEF |0
-<U7DEF> \xBD\x6E |0
-<U7DF0> \xE6\xEE |0
-<U7DF1> \xE6\xED |0
-<U7DF2> \xBD\x7A |0
-<U7DF3> \xE5\x72 |0
-<U7DF4> \xBD\x6D |0
-<U7DF6> \xE6\xEC |0
-<U7DF7> \xE6\xE3 |0
-<U7DF9> \xBD\x7B |0
-<U7DFA> \xE6\xEA |0
-<U7DFB> \xBD\x6F |0
-<U7E03> \xE6\xE9 |0
-<U7E08> \xBF\xA2 |0
-<U7E09> \xBF\xA7 |0
-<U7E0A> \xBF\x7E |0
-<U7E0B> \xEA\xD8 |0
-<U7E0C> \xEA\xCF |0
-<U7E0D> \xEA\xDB |0
-<U7E0E> \xEA\xD3 |0
-<U7E0F> \xEA\xD9 |0
-<U7E10> \xBF\xA8 |0
-<U7E11> \xBF\xA1 |0
-<U7E12> \xEA\xCC |0
-<U7E13> \xEA\xD2 |0
-<U7E14> \xEA\xDC |0
-<U7E15> \xEA\xD5 |0
-<U7E16> \xEA\xDA |0
-<U7E17> \xEA\xCE |0
-<U7E1A> \xEA\xD6 |0
-<U7E1B> \xBF\xA3 |0
-<U7E1C> \xEA\xD4 |0
-<U7E1D> \xBF\xA6 |0
-<U7E1E> \xBF\xA5 |0
-<U7E1F> \xEA\xD0 |0
-<U7E20> \xEA\xD1 |0
-<U7E21> \xEA\xCD |0
-<U7E22> \xEA\xD7 |0
-<U7E23> \xBF\xA4 |0
-<U7E24> \xEA\xDE |0
-<U7E25> \xEA\xDD |0
-<U7E29> \xED\xDA |0
-<U7E2A> \xED\xD6 |0
-<U7E2B> \xC1\x5F |0
-<U7E2D> \xED\xD0 |0
-<U7E2E> \xC1\x59 |0
-<U7E2F> \xC1\x69 |0
-<U7E30> \xED\xDC |0
-<U7E31> \xC1\x61 |0
-<U7E32> \xC1\x5D |0
-<U7E33> \xED\xD3 |0
-<U7E34> \xC1\x64 |0
-<U7E35> \xC1\x67 |0
-<U7E36> \xED\xDE |0
-<U7E37> \xC1\x5C |0
-<U7E38> \xED\xD5 |0
-<U7E39> \xC1\x65 |0
-<U7E3A> \xED\xE0 |0
-<U7E3B> \xED\xDD |0
-<U7E3C> \xED\xD1 |0
-<U7E3D> \xC1\x60 |0
-<U7E3E> \xC1\x5A |0
-<U7E3F> \xC1\x68 |0
-<U7E40> \xED\xD8 |0
-<U7E41> \xC1\x63 |0
-<U7E42> \xED\xD2 |0
-<U7E43> \xC1\x5E |0
-<U7E44> \xED\xDF |0
-<U7E45> \xC1\x62 |0
-<U7E46> \xC1\x5B |0
-<U7E47> \xED\xD9 |0
-<U7E48> \xC1\x66 |0
-<U7E49> \xED\xD7 |0
-<U7E4C> \xED\xDB |0
-<U7E50> \xF0\x6E |0
-<U7E51> \xF0\x74 |0
-<U7E52> \xC2\xB9 |0
-<U7E53> \xF0\x77 |0
-<U7E54> \xC2\xB4 |0
-<U7E55> \xC2\xB5 |0
-<U7E56> \xF0\x6F |0
-<U7E57> \xF0\x76 |0
-<U7E58> \xF0\x71 |0
-<U7E59> \xC2\xBA |0
-<U7E5A> \xC2\xB7 |0
-<U7E5C> \xF0\x6D |0
-<U7E5E> \xC2\xB6 |0
-<U7E5F> \xF0\x73 |0
-<U7E60> \xF0\x75 |0
-<U7E61> \xC2\xB8 |0
-<U7E62> \xF0\x72 |0
-<U7E63> \xF0\x70 |0
-<U7E68> \xF2\xB8 |0
-<U7E69> \xC3\xB7 |0
-<U7E6A> \xC3\xB8 |0
-<U7E6B> \xC3\xB4 |0
-<U7E6D> \xC3\xB5 |0
-<U7E6F> \xF2\xB4 |0
-<U7E70> \xF2\xB2 |0
-<U7E72> \xF2\xB6 |0
-<U7E73> \xC3\xBA |0
-<U7E74> \xF2\xB7 |0
-<U7E75> \xF2\xB0 |0
-<U7E76> \xF2\xAF |0
-<U7E77> \xF2\xB3 |0
-<U7E78> \xF2\xB1 |0
-<U7E79> \xC3\xB6 |0
-<U7E7A> \xF2\xB5 |0
-<U7E7B> \xF4\xAC |0
-<U7E7C> \xC4\x7E |0
-<U7E7D> \xC4\x7D |0
-<U7E7E> \xF4\xAD |0
-<U7E80> \xF4\xAF |0
-<U7E81> \xF4\xAE |0
-<U7E82> \xC4\xA1 |0
-<U7E86> \xF5\xEB |0
-<U7E87> \xF5\xE8 |0
-<U7E88> \xF5\xE9 |0
-<U7E8A> \xF5\xE7 |0
-<U7E8B> \xF5\xEA |0
-<U7E8C> \xC4\xF2 |0
-<U7E8D> \xF5\xEC |0
-<U7E8F> \xC4\xF1 |0
-<U7E91> \xF7\x42 |0
-<U7E93> \xC5\xD5 |0
-<U7E94> \xC5\xD7 |0
-<U7E95> \xF7\xEE |0
-<U7E96> \xC5\xD6 |0
-<U7E97> \xF8\xB9 |0
-<U7E98> \xF9\x40 |0
-<U7E99> \xF9\x42 |0
-<U7E9A> \xF8\xFE |0
-<U7E9B> \xF9\x41 |0
-<U7E9C> \xC6\x6C |0
-<U7F36> \xA6\xCE |0
-<U7F38> \xAC\xFB |0
-<U7F39> \xD2\x6F |0
-<U7F3A> \xAF\xCA |0
-<U7F3D> \xB2\xDA |0
-<U7F3E> \xDA\xFC |0
-<U7F3F> \xDA\xFD |0
-<U7F43> \xEA\xDF |0
-<U7F44> \xC1\x6A |0
-<U7F45> \xED\xE1 |0
-<U7F48> \xC2\xBB |0
-<U7F4A> \xF2\xBA |0
-<U7F4B> \xF2\xB9 |0
-<U7F4C> \xC4\xA2 |0
-<U7F4D> \xF5\xED |0
-<U7F4F> \xF7\x43 |0
-<U7F50> \xC5\xF8 |0
-<U7F51> \xCA\x49 |0
-<U7F54> \xAA\xC9 |0
-<U7F55> \xA8\x75 |0
-<U7F58> \xD0\x4D |0
-<U7F5B> \xD3\x60 |0
-<U7F5C> \xD3\x5B |0
-<U7F5D> \xD3\x5F |0
-<U7F5E> \xD3\x5D |0
-<U7F5F> \xAF\xCB |0
-<U7F60> \xD3\x5E |0
-<U7F61> \xD3\x5C |0
-<U7F63> \xD6\xF1 |0
-<U7F65> \xDA\xFE |0
-<U7F66> \xDB\x40 |0
-<U7F67> \xDF\x69 |0
-<U7F68> \xDF\x6A |0
-<U7F69> \xB8\x6E |0
-<U7F6A> \xB8\x6F |0
-<U7F6B> \xDF\x68 |0
-<U7F6C> \xDF\x6B |0
-<U7F6D> \xDF\x67 |0
-<U7F6E> \xB8\x6D |0
-<U7F70> \xBB\x40 |0
-<U7F72> \xB8\x70 |0
-<U7F73> \xE3\x7A |0
-<U7F75> \xBD\x7C |0
-<U7F76> \xE6\xF1 |0
-<U7F77> \xBD\x7D |0
-<U7F79> \xBF\xA9 |0
-<U7F7A> \xEA\xE2 |0
-<U7F7B> \xEA\xE0 |0
-<U7F7C> \xEA\xE1 |0
-<U7F7D> \xED\xE4 |0
-<U7F7E> \xED\xE3 |0
-<U7F7F> \xED\xE2 |0
-<U7F83> \xF2\xBB |0
-<U7F85> \xC3\xB9 |0
-<U7F86> \xF2\xBC |0
-<U7F87> \xF7\x44 |0
-<U7F88> \xC5\xF9 |0
-<U7F89> \xF8\xBA |0
-<U7F8A> \xA6\xCF |0
-<U7F8B> \xAA\xCB |0
-<U7F8C> \xAA\xCA |0
-<U7F8D> \xD0\x4F |0
-<U7F8E> \xAC\xFC |0
-<U7F91> \xD0\x4E |0
-<U7F92> \xD3\x62 |0
-<U7F94> \xAF\xCC |0
-<U7F95> \xD6\xF2 |0
-<U7F96> \xD3\x61 |0
-<U7F9A> \xB2\xDC |0
-<U7F9B> \xD6\xF5 |0
-<U7F9C> \xD6\xF3 |0
-<U7F9D> \xD6\xF4 |0
-<U7F9E> \xB2\xDB |0
-<U7FA0> \xDB\x42 |0
-<U7FA1> \xDB\x43 |0
-<U7FA2> \xDB\x41 |0
-<U7FA4> \xB8\x73 |0
-<U7FA5> \xDF\x6D |0
-<U7FA6> \xDF\x6C |0
-<U7FA7> \xDF\x6E |0
-<U7FA8> \xB8\x72 |0
-<U7FA9> \xB8\x71 |0
-<U7FAC> \xE6\xF2 |0
-<U7FAD> \xE6\xF4 |0
-<U7FAF> \xBD\x7E |0
-<U7FB0> \xE6\xF3 |0
-<U7FB1> \xEA\xE3 |0
-<U7FB2> \xBF\xAA |0
-<U7FB3> \xF0\x79 |0
-<U7FB5> \xF0\x78 |0
-<U7FB6> \xC3\xBB |0
-<U7FB7> \xF2\xBD |0
-<U7FB8> \xC3\xBD |0
-<U7FB9> \xC3\xBC |0
-<U7FBA> \xF4\xB0 |0
-<U7FBB> \xF5\xEE |0
-<U7FBC> \xC4\xF3 |0
-<U7FBD> \xA6\xD0 |0
-<U7FBE> \xD0\x50 |0
-<U7FBF> \xAC\xFD |0
-<U7FC0> \xD3\x65 |0
-<U7FC1> \xAF\xCE |0
-<U7FC2> \xD3\x64 |0
-<U7FC3> \xD3\x63 |0
-<U7FC5> \xAF\xCD |0
-<U7FC7> \xD6\xFB |0
-<U7FC9> \xD6\xFD |0
-<U7FCA> \xD6\xF6 |0
-<U7FCB> \xD6\xF7 |0
-<U7FCC> \xB2\xDD |0
-<U7FCD> \xD6\xF8 |0
-<U7FCE> \xB2\xDE |0
-<U7FCF> \xD6\xFC |0
-<U7FD0> \xD6\xF9 |0
-<U7FD1> \xD6\xFA |0
-<U7FD2> \xB2\xDF |0
-<U7FD4> \xB5\xBE |0
-<U7FD5> \xB5\xBF |0
-<U7FD7> \xDB\x44 |0
-<U7FDB> \xDF\x6F |0
-<U7FDC> \xDF\x70 |0
-<U7FDE> \xE3\x7E |0
-<U7FDF> \xBB\x43 |0
-<U7FE0> \xBB\x41 |0
-<U7FE1> \xBB\x42 |0
-<U7FE2> \xE3\x7B |0
-<U7FE3> \xE3\x7C |0
-<U7FE5> \xE3\x7D |0
-<U7FE6> \xE6\xF9 |0
-<U7FE8> \xE6\xFA |0
-<U7FE9> \xBD\xA1 |0
-<U7FEA> \xE6\xF7 |0
-<U7FEB> \xE6\xF6 |0
-<U7FEC> \xE6\xF8 |0
-<U7FED> \xE6\xF5 |0
-<U7FEE> \xBF\xAD |0
-<U7FEF> \xEA\xE4 |0
-<U7FF0> \xBF\xAB |0
-<U7FF1> \xBF\xAC |0
-<U7FF2> \xED\xE6 |0
-<U7FF3> \xC1\x6B |0
-<U7FF4> \xED\xE5 |0
-<U7FF5> \xEF\xA8 |0
-<U7FF7> \xF0\x7A |0
-<U7FF8> \xF0\x7B |0
-<U7FF9> \xC2\xBC |0
-<U7FFB> \xC2\xBD |0
-<U7FFC> \xC1\x6C |0
-<U7FFD> \xF2\xBE |0
-<U7FFE> \xF2\xBF |0
-<U7FFF> \xF4\xB1 |0
-<U8000> \xC4\xA3 |0
-<U8001> \xA6\xD1 |0
-<U8003> \xA6\xD2 |0
-<U8004> \xAC\xFE |0
-<U8005> \xAA\xCC |0
-<U8006> \xAF\xCF |0
-<U8007> \xD0\x51 |0
-<U800B> \xB5\xC0 |0
-<U800C> \xA6\xD3 |0
-<U800D> \xAD\x41 |0
-<U800E> \xD0\x52 |0
-<U800F> \xD0\x53 |0
-<U8010> \xAD\x40 |0
-<U8011> \xAD\x42 |0
-<U8012> \xA6\xD4 |0
-<U8014> \xD0\x54 |0
-<U8015> \xAF\xD1 |0
-<U8016> \xD3\x66 |0
-<U8017> \xAF\xD3 |0
-<U8018> \xAF\xD0 |0
-<U8019> \xAF\xD2 |0
-<U801B> \xD7\x41 |0
-<U801C> \xB2\xE0 |0
-<U801E> \xD7\x40 |0
-<U801F> \xD6\xFE |0
-<U8021> \xDF\x71 |0
-<U8024> \xE3\xA1 |0
-<U8026> \xBD\xA2 |0
-<U8028> \xBF\xAE |0
-<U8029> \xEA\xE6 |0
-<U802A> \xEA\xE5 |0
-<U802C> \xED\xE7 |0
-<U8030> \xF5\xEF |0
-<U8033> \xA6\xD5 |0
-<U8034> \xCB\x73 |0
-<U8035> \xCD\xAA |0
-<U8036> \xAD\x43 |0
-<U8037> \xD0\x55 |0
-<U8039> \xD3\x68 |0
-<U803D> \xAF\xD4 |0
-<U803E> \xD3\x67 |0
-<U803F> \xAF\xD5 |0
-<U8043> \xD7\x43 |0
-<U8046> \xB2\xE2 |0
-<U8047> \xD7\x42 |0
-<U8048> \xD7\x44 |0
-<U804A> \xB2\xE1 |0
-<U804F> \xDB\x46 |0
-<U8050> \xDB\x47 |0
-<U8051> \xDB\x45 |0
-<U8052> \xB5\xC1 |0
-<U8056> \xB8\x74 |0
-<U8058> \xB8\x75 |0
-<U805A> \xBB\x45 |0
-<U805C> \xE3\xA3 |0
-<U805D> \xE3\xA2 |0
-<U805E> \xBB\x44 |0
-<U8064> \xE6\xFB |0
-<U8067> \xE6\xFC |0
-<U806C> \xEA\xE7 |0
-<U806F> \xC1\x70 |0
-<U8070> \xC1\x6F |0
-<U8071> \xC1\x6D |0
-<U8072> \xC1\x6E |0
-<U8073> \xC1\x71 |0
-<U8075> \xF0\x7C |0
-<U8076> \xC2\xBF |0
-<U8077> \xC2\xBE |0
-<U8078> \xF2\xC0 |0
-<U8079> \xF4\xB2 |0
-<U807D> \xC5\xA5 |0
-<U807E> \xC5\xA4 |0
-<U807F> \xA6\xD6 |0
-<U8082> \xD1\xFB |0
-<U8084> \xB8\x77 |0
-<U8085> \xB5\xC2 |0
-<U8086> \xB8\x76 |0
-<U8087> \xBB\x46 |0
-<U8089> \xA6\xD7 |0
-<U808A> \xC9\xA9 |0
-<U808B> \xA6\xD8 |0
-<U808C> \xA6\xD9 |0
-<U808F> \xCD\xAB |0
-<U8090> \xCB\x76 |0
-<U8092> \xCB\x77 |0
-<U8093> \xA8\x77 |0
-<U8095> \xCB\x74 |0
-<U8096> \xA8\x76 |0
-<U8098> \xA8\x79 |0
-<U8099> \xCB\x75 |0
-<U809A> \xA8\x7B |0
-<U809B> \xA8\x7A |0
-<U809C> \xCB\x78 |0
-<U809D> \xA8\x78 |0
-<U80A1> \xAA\xD1 |0
-<U80A2> \xAA\xCF |0
-<U80A3> \xCD\xAD |0
-<U80A5> \xAA\xCE |0
-<U80A9> \xAA\xD3 |0
-<U80AA> \xAA\xD5 |0
-<U80AB> \xAA\xD2 |0
-<U80AD> \xCD\xB0 |0
-<U80AE> \xCD\xAC |0
-<U80AF> \xAA\xD6 |0
-<U80B1> \xAA\xD0 |0
-<U80B2> \xA8\x7C |0
-<U80B4> \xAA\xD4 |0
-<U80B5> \xCD\xAF |0
-<U80B8> \xCD\xAE |0
-<U80BA> \xAA\xCD |0
-<U80C2> \xD0\x5B |0
-<U80C3> \xAD\x47 |0
-<U80C4> \xAD\x48 |0
-<U80C5> \xD0\x5D |0
-<U80C7> \xD0\x57 |0
-<U80C8> \xD0\x5A |0
-<U80C9> \xD0\x63 |0
-<U80CA> \xD0\x61 |0
-<U80CC> \xAD\x49 |0
-<U80CD> \xD0\x67 |0
-<U80CE> \xAD\x4C |0
-<U80CF> \xD0\x64 |0
-<U80D0> \xD0\x5C |0
-<U80D1> \xD0\x59 |0
-<U80D4> \xDB\x49 |0
-<U80D5> \xD0\x62 |0
-<U80D6> \xAD\x44 |0
-<U80D7> \xD0\x65 |0
-<U80D8> \xD0\x56 |0
-<U80D9> \xD0\x5F |0
-<U80DA> \xAD\x46 |0
-<U80DB> \xAD\x4B |0
-<U80DC> \xD0\x60 |0
-<U80DD> \xAD\x4F |0
-<U80DE> \xAD\x4D |0
-<U80E0> \xD0\x58 |0
-<U80E1> \xAD\x4A |0
-<U80E3> \xD0\x5E |0
-<U80E4> \xAD\x4E |0
-<U80E5> \xAD\x45 |0
-<U80E6> \xD0\x66 |0
-<U80ED> \xAF\xDA |0
-<U80EF> \xAF\xE3 |0
-<U80F0> \xAF\xD8 |0
-<U80F1> \xAF\xD6 |0
-<U80F2> \xD3\x6A |0
-<U80F3> \xAF\xDE |0
-<U80F4> \xAF\xDB |0
-<U80F5> \xD3\x6C |0
-<U80F8> \xAF\xDD |0
-<U80F9> \xD3\x6B |0
-<U80FA> \xD3\x69 |0
-<U80FB> \xD3\x6E |0
-<U80FC> \xAF\xE2 |0
-<U80FD> \xAF\xE0 |0
-<U80FE> \xDB\x48 |0
-<U8100> \xD3\x6F |0
-<U8101> \xD3\x6D |0
-<U8102> \xAF\xD7 |0
-<U8105> \xAF\xD9 |0
-<U8106> \xAF\xDC |0
-<U8108> \xAF\xDF |0
-<U810A> \xAF\xE1 |0
-<U8115> \xD7\x4E |0
-<U8116> \xB2\xE4 |0
-<U8118> \xD7\x45 |0
-<U8119> \xD7\x47 |0
-<U811B> \xD7\x48 |0
-<U811D> \xD7\x50 |0
-<U811E> \xD7\x4C |0
-<U811F> \xD7\x4A |0
-<U8121> \xD7\x4D |0
-<U8122> \xD7\x51 |0
-<U8123> \xB2\xE5 |0
-<U8124> \xB2\xE9 |0
-<U8125> \xD7\x46 |0
-<U8127> \xD7\x4F |0
-<U8129> \xB2\xE7 |0
-<U812B> \xB2\xE6 |0
-<U812C> \xD7\x4B |0
-<U812D> \xD7\x49 |0
-<U812F> \xB2\xE3 |0
-<U8130> \xB2\xE8 |0
-<U8139> \xB5\xC8 |0
-<U813A> \xDB\x51 |0
-<U813D> \xDB\x4F |0
-<U813E> \xB5\xCA |0
-<U8143> \xDB\x4A |0
-<U8144> \xDF\xA1 |0
-<U8146> \xB5\xC9 |0
-<U8147> \xDB\x4E |0
-<U814A> \xDB\x4B |0
-<U814B> \xB5\xC5 |0
-<U814C> \xB5\xCB |0
-<U814D> \xDB\x50 |0
-<U814E> \xB5\xC7 |0
-<U814F> \xDB\x4D |0
-<U8150> \xBB\x47 |0
-<U8151> \xB5\xC6 |0
-<U8152> \xDB\x4C |0
-<U8153> \xB5\xCC |0
-<U8154> \xB5\xC4 |0
-<U8155> \xB5\xC3 |0
-<U815B> \xDF\x77 |0
-<U815C> \xDF\x75 |0
-<U815E> \xDF\x7B |0
-<U8160> \xDF\x73 |0
-<U8161> \xDF\xA2 |0
-<U8162> \xDF\x78 |0
-<U8164> \xDF\x72 |0
-<U8165> \xB8\x7B |0
-<U8166> \xB8\xA3 |0
-<U8167> \xDF\x7D |0
-<U8169> \xDF\x76 |0
-<U816B> \xB8\x7E |0
-<U816E> \xB8\x7C |0
-<U816F> \xDF\x7E |0
-<U8170> \xB8\x79 |0
-<U8171> \xB8\x78 |0
-<U8172> \xDF\x79 |0
-<U8173> \xB8\x7D |0
-<U8174> \xB5\xCD |0
-<U8176> \xDF\x7C |0
-<U8177> \xDF\x74 |0
-<U8178> \xB8\x7A |0
-<U8179> \xB8\xA1 |0
-<U817A> \xB8\xA2 |0
-<U817F> \xBB\x4C |0
-<U8180> \xBB\x48 |0
-<U8182> \xBB\x4D |0
-<U8183> \xE3\xA6 |0
-<U8186> \xE3\xA5 |0
-<U8187> \xE3\xA7 |0
-<U8188> \xBB\x4A |0
-<U8189> \xE3\xA4 |0
-<U818A> \xBB\x4B |0
-<U818B> \xE3\xAA |0
-<U818C> \xE3\xA9 |0
-<U818D> \xE3\xA8 |0
-<U818F> \xBB\x49 |0
-<U8195> \xE7\x41 |0
-<U8197> \xE7\x44 |0
-<U8198> \xBD\xA8 |0
-<U8199> \xE7\x43 |0
-<U819A> \xBD\xA7 |0
-<U819B> \xBD\xA3 |0
-<U819C> \xBD\xA4 |0
-<U819D> \xBD\xA5 |0
-<U819E> \xE7\x40 |0
-<U819F> \xE6\xFE |0
-<U81A0> \xBD\xA6 |0
-<U81A2> \xE7\x42 |0
-<U81A3> \xE6\xFD |0
-<U81A6> \xEA\xE9 |0
-<U81A7> \xEA\xF3 |0
-<U81A8> \xBF\xB1 |0
-<U81A9> \xBF\xB0 |0
-<U81AB> \xEA\xED |0
-<U81AC> \xEA\xEF |0
-<U81AE> \xEA\xEA |0
-<U81B0> \xEA\xEE |0
-<U81B1> \xEA\xE8 |0
-<U81B2> \xEA\xF1 |0
-<U81B3> \xBF\xAF |0
-<U81B4> \xEA\xF0 |0
-<U81B5> \xEA\xEC |0
-<U81B7> \xEA\xF2 |0
-<U81B9> \xEA\xEB |0
-<U81BA> \xC1\x74 |0
-<U81BB> \xED\xE8 |0
-<U81BC> \xED\xEE |0
-<U81BD> \xC1\x78 |0
-<U81BE> \xC1\x7A |0
-<U81BF> \xC1\x77 |0
-<U81C0> \xC1\x76 |0
-<U81C2> \xC1\x75 |0
-<U81C3> \xC1\x73 |0
-<U81C4> \xED\xE9 |0
-<U81C5> \xED\xEC |0
-<U81C6> \xC1\x72 |0
-<U81C7> \xED\xED |0
-<U81C9> \xC1\x79 |0
-<U81CA> \xED\xEB |0
-<U81CC> \xED\xEA |0
-<U81CD> \xC2\xC0 |0
-<U81CF> \xC2\xC1 |0
-<U81D0> \xF0\xA1 |0
-<U81D1> \xF0\x7D |0
-<U81D2> \xF0\x7E |0
-<U81D5> \xF2\xC2 |0
-<U81D7> \xF2\xC1 |0
-<U81D8> \xC3\xBE |0
-<U81D9> \xF4\xB4 |0
-<U81DA> \xC4\xA4 |0
-<U81DB> \xF4\xB3 |0
-<U81DD> \xF5\xF0 |0
-<U81DE> \xF7\x45 |0
-<U81DF> \xC5\xA6 |0
-<U81E0> \xF9\x43 |0
-<U81E1> \xF9\x44 |0
-<U81E2> \xC5\xD8 |0
-<U81E3> \xA6\xDA |0
-<U81E5> \xAA\xD7 |0
-<U81E6> \xDB\x52 |0
-<U81E7> \xBB\x4E |0
-<U81E8> \xC1\x7B |0
-<U81E9> \xED\xEF |0
-<U81EA> \xA6\xDB |0
-<U81EC> \xAF\xE5 |0
-<U81ED> \xAF\xE4 |0
-<U81EE> \xDB\x53 |0
-<U81F2> \xEA\xF4 |0
-<U81F3> \xA6\xDC |0
-<U81F4> \xAD\x50 |0
-<U81F7> \xDB\x54 |0
-<U81F8> \xDB\x55 |0
-<U81F9> \xDB\x56 |0
-<U81FA> \xBB\x4F |0
-<U81FB> \xBF\xB2 |0
-<U81FC> \xA6\xDD |0
-<U81FE> \xAA\xD8 |0
-<U81FF> \xD0\x68 |0
-<U8200> \xAF\xE6 |0
-<U8201> \xD3\x70 |0
-<U8202> \xB2\xEA |0
-<U8204> \xDB\x57 |0
-<U8205> \xB8\xA4 |0
-<U8207> \xBB\x50 |0
-<U8208> \xBF\xB3 |0
-<U8209> \xC1\x7C |0
-<U820A> \xC2\xC2 |0
-<U820B> \xF4\xB5 |0
-<U820C> \xA6\xDE |0
-<U820D> \xAA\xD9 |0
-<U8210> \xAF\xE7 |0
-<U8211> \xD7\x52 |0
-<U8212> \xB5\xCE |0
-<U8214> \xBB\x51 |0
-<U8215> \xE3\xAB |0
-<U8216> \xE7\x45 |0
-<U821B> \xA6\xDF |0
-<U821C> \xB5\xCF |0
-<U821D> \xDF\xA3 |0
-<U821E> \xBB\x52 |0
-<U821F> \xA6\xE0 |0
-<U8220> \xCD\xB1 |0
-<U8221> \xD0\x69 |0
-<U8222> \xAD\x51 |0
-<U8225> \xD3\x72 |0
-<U8228> \xAF\xEA |0
-<U822A> \xAF\xE8 |0
-<U822B> \xAF\xE9 |0
-<U822C> \xAF\xEB |0
-<U822F> \xD3\x71 |0
-<U8232> \xD7\x57 |0
-<U8233> \xD7\x54 |0
-<U8234> \xD7\x56 |0
-<U8235> \xB2\xEB |0
-<U8236> \xB2\xED |0
-<U8237> \xB2\xEC |0
-<U8238> \xD7\x53 |0
-<U8239> \xB2\xEE |0
-<U823A> \xD7\x55 |0
-<U823C> \xDB\x58 |0
-<U823D> \xDB\x59 |0
-<U823F> \xDB\x5A |0
-<U8240> \xDF\xA6 |0
-<U8242> \xDF\xA7 |0
-<U8244> \xDF\xA5 |0
-<U8245> \xDF\xA8 |0
-<U8247> \xB8\xA5 |0
-<U8249> \xDF\xA4 |0
-<U824B> \xBB\x53 |0
-<U824E> \xE7\x4A |0
-<U824F> \xE7\x46 |0
-<U8250> \xE7\x49 |0
-<U8251> \xE7\x4B |0
-<U8252> \xE7\x48 |0
-<U8253> \xE7\x47 |0
-<U8255> \xEA\xF5 |0
-<U8256> \xEA\xF6 |0
-<U8257> \xEA\xF7 |0
-<U8258> \xBF\xB4 |0
-<U8259> \xBF\xB5 |0
-<U825A> \xED\xF1 |0
-<U825B> \xED\xF0 |0
-<U825C> \xED\xF2 |0
-<U825E> \xF0\xA3 |0
-<U825F> \xF0\xA2 |0
-<U8261> \xF2\xC4 |0
-<U8263> \xF2\xC5 |0
-<U8264> \xF2\xC3 |0
-<U8266> \xC4\xA5 |0
-<U8268> \xF4\xB6 |0
-<U8269> \xF4\xB7 |0
-<U826B> \xF7\x46 |0
-<U826C> \xF7\xEF |0
-<U826D> \xF8\xBB |0
-<U826E> \xA6\xE1 |0
-<U826F> \xA8\x7D |0
-<U8271> \xC1\x7D |0
-<U8272> \xA6\xE2 |0
-<U8274> \xD7\x58 |0
-<U8275> \xDB\x5B |0
-<U8277> \xC6\x41 |0
-<U8278> \xCA\x4A |0
-<U827C> \xCA\x4B |0
-<U827D> \xCA\x4D |0
-<U827E> \xA6\xE3 |0
-<U827F> \xCA\x4E |0
-<U8280> \xCA\x4C |0
-<U8283> \xCB\xA2 |0
-<U8284> \xCB\xA3 |0
-<U8285> \xCB\x7B |0
-<U828A> \xCB\xA1 |0
-<U828B> \xA8\xA1 |0
-<U828D> \xA8\xA2 |0
-<U828E> \xCB\x7C |0
-<U828F> \xCB\x7A |0
-<U8290> \xCB\x79 |0
-<U8291> \xCB\x7D |0
-<U8292> \xA8\x7E |0
-<U8293> \xCB\x7E |0
-<U8294> \xD0\x6A |0
-<U8298> \xCD\xB6 |0
-<U8299> \xAA\xDC |0
-<U829A> \xCD\xB5 |0
-<U829B> \xCD\xB7 |0
-<U829D> \xAA\xDB |0
-<U829E> \xCD\xBC |0
-<U829F> \xAA\xDF |0
-<U82A0> \xCD\xB2 |0
-<U82A1> \xCD\xC0 |0
-<U82A2> \xCD\xC6 |0
-<U82A3> \xAA\xE6 |0
-<U82A4> \xCD\xC3 |0
-<U82A5> \xAA\xE3 |0
-<U82A7> \xCD\xB9 |0
-<U82A8> \xCD\xBF |0
-<U82A9> \xCD\xC1 |0
-<U82AB> \xCD\xB4 |0
-<U82AC> \xAA\xE2 |0
-<U82AD> \xAA\xDD |0
-<U82AE> \xCD\xBA |0
-<U82AF> \xAA\xE4 |0
-<U82B0> \xAA\xE7 |0
-<U82B1> \xAA\xE1 |0
-<U82B3> \xAA\xDA |0
-<U82B4> \xCD\xBE |0
-<U82B5> \xCD\xB8 |0
-<U82B6> \xCD\xC5 |0
-<U82B7> \xAA\xE9 |0
-<U82B8> \xAA\xE5 |0
-<U82B9> \xAA\xE0 |0
-<U82BA> \xCD\xBD |0
-<U82BB> \xAF\xEC |0
-<U82BC> \xCD\xBB |0
-<U82BD> \xAA\xDE |0
-<U82BE> \xAA\xE8 |0
-<U82C0> \xCD\xB3 |0
-<U82C2> \xCD\xC2 |0
-<U82C3> \xCD\xC4 |0
-<U82D1> \xAD\x62 |0
-<U82D2> \xAD\x5C |0
-<U82D3> \xAD\x64 |0
-<U82D4> \xAD\x61 |0
-<U82D5> \xD0\x71 |0
-<U82D6> \xD0\x74 |0
-<U82D7> \xAD\x5D |0
-<U82D9> \xD0\x6B |0
-<U82DB> \xAD\x56 |0
-<U82DC> \xAD\x60 |0
-<U82DE> \xAD\x63 |0
-<U82DF> \xAD\x65 |0
-<U82E0> \xD0\xA2 |0
-<U82E1> \xD0\x77 |0
-<U82E3> \xAD\x55 |0
-<U82E4> \xD0\xA1 |0
-<U82E5> \xAD\x59 |0
-<U82E6> \xAD\x57 |0
-<U82E7> \xAD\x52 |0
-<U82E8> \xD0\x6F |0
-<U82EA> \xD0\x7E |0
-<U82EB> \xD0\x73 |0
-<U82EC> \xD0\x76 |0
-<U82ED> \xD0\xA5 |0
-<U82EF> \xAD\x66 |0
-<U82F0> \xD0\x7D |0
-<U82F1> \xAD\x5E |0
-<U82F2> \xD0\x78 |0
-<U82F3> \xD0\xA4 |0
-<U82F4> \xD0\x75 |0
-<U82F5> \xD0\x79 |0
-<U82F6> \xD0\x7C |0
-<U82F9> \xD0\x6D |0
-<U82FA> \xD0\xA3 |0
-<U82FB> \xD0\x7B |0
-<U82FE> \xD0\x6C |0
-<U8300> \xD0\x70 |0
-<U8301> \xAD\x5F |0
-<U8302> \xAD\x5A |0
-<U8303> \xAD\x53 |0
-<U8304> \xAD\x58 |0
-<U8305> \xAD\x54 |0
-<U8306> \xAD\x67 |0
-<U8307> \xD0\x6E |0
-<U8308> \xD3\xA5 |0
-<U8309> \xAD\x5B |0
-<U830C> \xD0\x7A |0
-<U830D> \xCE\x41 |0
-<U8316> \xD3\xA8 |0
-<U8317> \xAF\xFA |0
-<U8319> \xD3\x76 |0
-<U831B> \xD3\xA3 |0
-<U831C> \xD3\x7D |0
-<U831E> \xD3\xB2 |0
-<U8320> \xD3\xAA |0
-<U8322> \xD3\x7E |0
-<U8324> \xD3\xA9 |0
-<U8325> \xD3\x78 |0
-<U8326> \xD3\x7C |0
-<U8327> \xD3\xB5 |0
-<U8328> \xAF\xFD |0
-<U8329> \xD3\xAD |0
-<U832A> \xD3\xA4 |0
-<U832B> \xAF\xED |0
-<U832C> \xD3\xB3 |0
-<U832D> \xD3\x74 |0
-<U832F> \xD3\xAC |0
-<U8331> \xAF\xFC |0
-<U8332> \xAF\xF7 |0
-<U8333> \xD3\x73 |0
-<U8334> \xAF\xF5 |0
-<U8335> \xAF\xF4 |0
-<U8336> \xAF\xF9 |0
-<U8337> \xD3\xAB |0
-<U8338> \xAF\xF1 |0
-<U8339> \xAF\xF8 |0
-<U833A> \xD0\x72 |0
-<U833B> \xDB\x5C |0
-<U833C> \xD3\xA6 |0
-<U833F> \xD3\x7A |0
-<U8340> \xAF\xFB |0
-<U8341> \xD3\x7B |0
-<U8342> \xD3\xA1 |0
-<U8343> \xAF\xFE |0
-<U8344> \xD3\x75 |0
-<U8345> \xD3\xAF |0
-<U8347> \xD3\xAE |0
-<U8348> \xD3\xB6 |0
-<U8349> \xAF\xF3 |0
-<U834A> \xAF\xF0 |0
-<U834B> \xD3\xB4 |0
-<U834C> \xD3\xB0 |0
-<U834D> \xD3\xA7 |0
-<U834E> \xD3\xA2 |0
-<U834F> \xAF\xF6 |0
-<U8350> \xAF\xF2 |0
-<U8351> \xD3\x77 |0
-<U8352> \xAF\xEE |0
-<U8353> \xD3\xB1 |0
-<U8354> \xAF\xEF |0
-<U8356> \xD3\x79 |0
-<U8373> \xD7\x5E |0
-<U8374> \xD7\x60 |0
-<U8375> \xD7\x65 |0
-<U8376> \xD7\x79 |0
-<U8377> \xB2\xFC |0
-<U8378> \xB2\xF2 |0
-<U837A> \xD7\x5D |0
-<U837B> \xB2\xFD |0
-<U837C> \xB2\xFE |0
-<U837D> \xD7\x68 |0
-<U837E> \xD7\x6F |0
-<U837F> \xD7\x75 |0
-<U8381> \xD7\x62 |0
-<U8383> \xD7\x69 |0
-<U8386> \xB3\x40 |0
-<U8387> \xD7\x77 |0
-<U8388> \xD7\x72 |0
-<U8389> \xB2\xFA |0
-<U838A> \xB2\xF8 |0
-<U838B> \xD7\x6E |0
-<U838C> \xD7\x6A |0
-<U838D> \xD7\x5C |0
-<U838E> \xB2\xEF |0
-<U838F> \xD7\x61 |0
-<U8390> \xD7\x59 |0
-<U8392> \xB2\xF7 |0
-<U8393> \xB2\xF9 |0
-<U8394> \xD7\x66 |0
-<U8395> \xD7\x63 |0
-<U8396> \xB2\xF4 |0
-<U8397> \xD7\x73 |0
-<U8398> \xB2\xF1 |0
-<U8399> \xD7\x64 |0
-<U839A> \xD7\x7A |0
-<U839B> \xD7\x6C |0
-<U839D> \xD7\x6B |0
-<U839E> \xB2\xF0 |0
-<U83A0> \xB2\xFB |0
-<U83A2> \xB2\xF3 |0
-<U83A3> \xD7\x5A |0
-<U83A4> \xD7\x5F |0
-<U83A5> \xD7\x70 |0
-<U83A6> \xD7\x76 |0
-<U83A7> \xB3\x41 |0
-<U83A8> \xD7\x5B |0
-<U83A9> \xD7\x67 |0
-<U83AA> \xD7\x6D |0
-<U83AB> \xB2\xF6 |0
-<U83AE> \xD7\x78 |0
-<U83AF> \xD7\x71 |0
-<U83B0> \xD7\x74 |0
-<U83BD> \xB2\xF5 |0
-<U83BF> \xDB\x6C |0
-<U83C0> \xDB\x60 |0
-<U83C1> \xB5\xD7 |0
-<U83C2> \xDB\x7D |0
-<U83C3> \xDB\xA7 |0
-<U83C4> \xDB\xAA |0
-<U83C5> \xB5\xD5 |0
-<U83C6> \xDB\x68 |0
-<U83C7> \xDB\xA3 |0
-<U83C8> \xDB\x69 |0
-<U83C9> \xDB\x77 |0
-<U83CA> \xB5\xE2 |0
-<U83CB> \xDB\x73 |0
-<U83CC> \xB5\xDF |0
-<U83CE> \xDB\x74 |0
-<U83CF> \xDB\x5D |0
-<U83D1> \xDB\xA4 |0
-<U83D4> \xB5\xE8 |0
-<U83D5> \xDB\xA1 |0
-<U83D6> \xDB\x75 |0
-<U83D7> \xDB\xAC |0
-<U83D8> \xDB\x70 |0
-<U83D9> \xDF\xC8 |0
-<U83DB> \xDB\xAF |0
-<U83DC> \xB5\xE6 |0
-<U83DD> \xDB\x6E |0
-<U83DE> \xDB\x7A |0
-<U83DF> \xB5\xE9 |0
-<U83E0> \xB5\xD4 |0
-<U83E1> \xDB\x72 |0
-<U83E2> \xDB\xAD |0
-<U83E3> \xDB\x6B |0
-<U83E4> \xDB\x64 |0
-<U83E5> \xDB\x6F |0
-<U83E7> \xDB\x63 |0
-<U83E8> \xDB\x61 |0
-<U83E9> \xB5\xD0 |0
-<U83EA> \xDB\xA5 |0
-<U83EB> \xDB\x6A |0
-<U83EC> \xDB\xA8 |0
-<U83EE> \xDB\xA9 |0
-<U83EF> \xB5\xD8 |0
-<U83F0> \xB5\xDD |0
-<U83F1> \xB5\xD9 |0
-<U83F2> \xB5\xE1 |0
-<U83F3> \xDB\x7E |0
-<U83F4> \xB5\xDA |0
-<U83F5> \xDB\x76 |0
-<U83F6> \xDB\x66 |0
-<U83F8> \xB5\xD2 |0
-<U83F9> \xDB\x5E |0
-<U83FA> \xDB\xA2 |0
-<U83FB> \xDB\xAB |0
-<U83FC> \xDB\x65 |0
-<U83FD> \xB5\xE0 |0
-<U83FE> \xDB\xB0 |0
-<U83FF> \xDB\x71 |0
-<U8401> \xDB\x6D |0
-<U8403> \xB5\xD1 |0
-<U8404> \xB5\xE5 |0
-<U8406> \xDB\x7C |0
-<U8407> \xB5\xE7 |0
-<U8409> \xDB\x78 |0
-<U840A> \xB5\xDC |0
-<U840B> \xB5\xD6 |0
-<U840C> \xB5\xDE |0
-<U840D> \xB5\xD3 |0
-<U840E> \xB5\xE4 |0
-<U840F> \xDB\x79 |0
-<U8410> \xDB\x67 |0
-<U8411> \xDB\x7B |0
-<U8412> \xDB\x62 |0
-<U8413> \xDB\xA6 |0
-<U841B> \xDB\xAE |0
-<U8423> \xDB\x5F |0
-<U8429> \xDF\xC7 |0
-<U842B> \xDF\xDD |0
-<U842C> \xB8\x55 |0
-<U842D> \xDF\xCC |0
-<U842F> \xDF\xCA |0
-<U8430> \xDF\xB5 |0
-<U8431> \xB8\xA9 |0
-<U8432> \xDF\xC5 |0
-<U8433> \xDF\xD9 |0
-<U8434> \xDF\xC1 |0
-<U8435> \xB8\xB1 |0
-<U8436> \xDF\xD8 |0
-<U8437> \xDF\xBF |0
-<U8438> \xB5\xE3 |0
-<U8439> \xDF\xCF |0
-<U843A> \xDF\xC0 |0
-<U843B> \xDF\xD6 |0
-<U843C> \xB8\xB0 |0
-<U843D> \xB8\xA8 |0
-<U843F> \xDF\xAA |0
-<U8440> \xDF\xB2 |0
-<U8442> \xDF\xCB |0
-<U8443> \xDF\xC3 |0
-<U8444> \xDF\xDC |0
-<U8445> \xDF\xC6 |0
-<U8446> \xB8\xB6 |0
-<U8447> \xDF\xD7 |0
-<U8449> \xB8\xAD |0
-<U844B> \xDF\xC9 |0
-<U844C> \xDF\xD1 |0
-<U844D> \xDF\xB6 |0
-<U844E> \xDF\xD0 |0
-<U8450> \xDF\xE1 |0
-<U8451> \xDF\xB1 |0
-<U8452> \xDF\xD2 |0
-<U8454> \xDF\xDF |0
-<U8456> \xDF\xAB |0
-<U8457> \xB5\xDB |0
-<U8459> \xDF\xB9 |0
-<U845A> \xDF\xB8 |0
-<U845B> \xB8\xAF |0
-<U845D> \xDF\xBC |0
-<U845E> \xDF\xBE |0
-<U845F> \xDF\xCD |0
-<U8460> \xDF\xDE |0
-<U8461> \xB8\xB2 |0
-<U8463> \xB8\xB3 |0
-<U8465> \xDF\xB0 |0
-<U8466> \xB8\xAB |0
-<U8467> \xDF\xB4 |0
-<U8468> \xDF\xDA |0
-<U8469> \xB8\xB4 |0
-<U846B> \xB8\xAC |0
-<U846C> \xB8\xAE |0
-<U846D> \xB8\xB5 |0
-<U846E> \xDF\xE0 |0
-<U846F> \xDF\xD3 |0
-<U8470> \xDF\xCE |0
-<U8473> \xDF\xBB |0
-<U8474> \xDF\xBA |0
-<U8475> \xB8\xAA |0
-<U8476> \xDF\xAC |0
-<U8477> \xB8\xA7 |0
-<U8478> \xDF\xC4 |0
-<U8479> \xDF\xAD |0
-<U847A> \xDF\xC2 |0
-<U847D> \xDF\xB7 |0
-<U847E> \xDF\xDB |0
-<U8482> \xB8\xA6 |0
-<U8486> \xDF\xB3 |0
-<U848D> \xDF\xAF |0
-<U848E> \xDF\xD5 |0
-<U848F> \xDF\xAE |0
-<U8490> \xBB\x60 |0
-<U8491> \xE3\xD3 |0
-<U8494> \xE3\xC2 |0
-<U8497> \xE3\xAC |0
-<U8498> \xE3\xCA |0
-<U8499> \xBB\x58 |0
-<U849A> \xE3\xBB |0
-<U849B> \xE3\xC5 |0
-<U849C> \xBB\x5B |0
-<U849D> \xE3\xBE |0
-<U849E> \xBB\x59 |0
-<U849F> \xE3\xAF |0
-<U84A0> \xE3\xCD |0
-<U84A1> \xE3\xAE |0
-<U84A2> \xE3\xC1 |0
-<U84A4> \xE3\xAD |0
-<U84A7> \xE3\xBF |0
-<U84A8> \xE3\xC8 |0
-<U84A9> \xE3\xC6 |0
-<U84AA> \xE3\xBA |0
-<U84AB> \xE3\xB5 |0
-<U84AC> \xE3\xB3 |0
-<U84AE> \xE3\xB4 |0
-<U84AF> \xE3\xC7 |0
-<U84B0> \xE3\xD2 |0
-<U84B1> \xE3\xBC |0
-<U84B2> \xBB\x5A |0
-<U84B4> \xE3\xB7 |0
-<U84B6> \xE3\xCB |0
-<U84B8> \xBB\x5D |0
-<U84B9> \xE3\xB6 |0
-<U84BA> \xE3\xB0 |0
-<U84BB> \xE3\xC0 |0
-<U84BC> \xBB\x61 |0
-<U84BF> \xBB\x55 |0
-<U84C0> \xBB\x5E |0
-<U84C1> \xE3\xB8 |0
-<U84C2> \xE3\xB2 |0
-<U84C4> \xBB\x57 |0
-<U84C5> \xDF\xD4 |0
-<U84C6> \xBB\x56 |0
-<U84C7> \xE3\xC3 |0
-<U84C9> \xBB\x54 |0
-<U84CA> \xBB\x63 |0
-<U84CB> \xBB\x5C |0
-<U84CC> \xE3\xC4 |0
-<U84CD> \xE3\xB9 |0
-<U84CE> \xE3\xB1 |0
-<U84CF> \xE3\xCC |0
-<U84D0> \xE3\xBD |0
-<U84D1> \xBB\x62 |0
-<U84D2> \xE3\xD0 |0
-<U84D3> \xBB\x5F |0
-<U84D4> \xE3\xCF |0
-<U84D6> \xE3\xC9 |0
-<U84D7> \xE3\xCE |0
-<U84DB> \xE3\xD1 |0
-<U84E7> \xE7\x73 |0
-<U84E8> \xE7\x74 |0
-<U84E9> \xE7\x67 |0
-<U84EA> \xE7\x66 |0
-<U84EB> \xE7\x62 |0
-<U84EC> \xBD\xB4 |0
-<U84EE> \xBD\xAC |0
-<U84EF> \xE7\x76 |0
-<U84F0> \xE7\x75 |0
-<U84F1> \xDF\xA9 |0
-<U84F2> \xE7\x5F |0
-<U84F3> \xE7\x63 |0
-<U84F4> \xE7\x5D |0
-<U84F6> \xE7\x70 |0
-<U84F7> \xE7\x61 |0
-<U84F9> \xE7\x77 |0
-<U84FA> \xE7\x5A |0
-<U84FB> \xE7\x58 |0
-<U84FC> \xE7\x64 |0
-<U84FD> \xE7\x6E |0
-<U84FE> \xE7\x69 |0
-<U84FF> \xBD\xB6 |0
-<U8500> \xE7\x4F |0
-<U8502> \xE7\x6D |0
-<U8506> \xBD\xB7 |0
-<U8507> \xDF\xBD |0
-<U8508> \xE7\x5B |0
-<U8509> \xE7\x52 |0
-<U850A> \xE7\x55 |0
-<U850B> \xE7\x7B |0
-<U850C> \xE7\x5C |0
-<U850D> \xE7\x53 |0
-<U850E> \xE7\x51 |0
-<U850F> \xE7\x4E |0
-<U8511> \xBD\xB0 |0
-<U8512> \xE7\x65 |0
-<U8513> \xBD\xAF |0
-<U8514> \xBD\xB3 |0
-<U8515> \xE7\x60 |0
-<U8516> \xE7\x68 |0
-<U8517> \xBD\xA9 |0
-<U8518> \xE7\x78 |0
-<U8519> \xE7\x7C |0
-<U851A> \xBD\xAB |0
-<U851C> \xE7\x57 |0
-<U851D> \xE7\x6B |0
-<U851E> \xE7\x6F |0
-<U851F> \xE7\x54 |0
-<U8520> \xE7\x79 |0
-<U8521> \xBD\xB2 |0
-<U8523> \xBD\xB1 |0
-<U8524> \xE7\x4C |0
-<U8525> \xBD\xB5 |0
-<U8526> \xE7\x72 |0
-<U8527> \xE7\x56 |0
-<U8528> \xE7\x6A |0
-<U8529> \xE7\x50 |0
-<U852A> \xE7\x5E |0
-<U852B> \xE7\x59 |0
-<U852C> \xBD\xAD |0
-<U852D> \xBD\xAE |0
-<U852E> \xE7\x6C |0
-<U852F> \xE7\x7D |0
-<U8530> \xE7\x7A |0
-<U8531> \xE7\x71 |0
-<U853B> \xE7\x4D |0
-<U853D> \xBD\xAA |0
-<U853E> \xEB\x49 |0
-<U8540> \xEB\x40 |0
-<U8541> \xEB\x43 |0
-<U8543> \xBF\xBB |0
-<U8544> \xEB\x45 |0
-<U8545> \xEA\xF9 |0
-<U8546> \xEB\x41 |0
-<U8547> \xEB\x47 |0
-<U8548> \xBF\xB8 |0
-<U8549> \xBF\xBC |0
-<U854A> \xBF\xB6 |0
-<U854D> \xEA\xFB |0
-<U854E> \xEB\x4C |0
-<U8551> \xEB\x46 |0
-<U8553> \xEA\xFC |0
-<U8554> \xEB\x55 |0
-<U8555> \xEB\x4F |0
-<U8556> \xEA\xF8 |0
-<U8557> \xEE\x46 |0
-<U8558> \xEA\xFE |0
-<U8559> \xBF\xB7 |0
-<U855B> \xEB\x4A |0
-<U855D> \xEB\x54 |0
-<U855E> \xBF\xBF |0
-<U8560> \xEB\x51 |0
-<U8561> \xEA\xFD |0
-<U8562> \xEB\x44 |0
-<U8563> \xEB\x48 |0
-<U8564> \xEB\x42 |0
-<U8565> \xEB\x56 |0
-<U8566> \xEB\x53 |0
-<U8567> \xEB\x50 |0
-<U8568> \xBF\xB9 |0
-<U8569> \xBF\xBA |0
-<U856A> \xBF\xBE |0
-<U856B> \xEA\xFA |0
-<U856C> \xEB\x57 |0
-<U856D> \xBF\xBD |0
-<U856E> \xEB\x4D |0
-<U8571> \xEB\x4B |0
-<U8575> \xEB\x4E |0
-<U8576> \xEE\x53 |0
-<U8577> \xEE\x40 |0
-<U8578> \xEE\x45 |0
-<U8579> \xEE\x52 |0
-<U857A> \xEE\x44 |0
-<U857B> \xED\xFB |0
-<U857C> \xEE\x41 |0
-<U857E> \xC1\xA2 |0
-<U8580> \xED\xF4 |0
-<U8581> \xEE\x4D |0
-<U8582> \xEE\x4F |0
-<U8583> \xED\xF3 |0
-<U8584> \xC1\xA1 |0
-<U8585> \xEE\x51 |0
-<U8586> \xEE\x49 |0
-<U8587> \xC1\xA8 |0
-<U8588> \xEE\x50 |0
-<U8589> \xEE\x42 |0
-<U858A> \xC1\xAA |0
-<U858B> \xED\xF9 |0
-<U858C> \xEB\x52 |0
-<U858D> \xEE\x4A |0
-<U858E> \xEE\x47 |0
-<U858F> \xED\xF5 |0
-<U8590> \xEE\x55 |0
-<U8591> \xC1\xA4 |0
-<U8594> \xC1\xA5 |0
-<U8595> \xED\xF7 |0
-<U8596> \xEE\x48 |0
-<U8598> \xEE\x54 |0
-<U8599> \xEE\x4B |0
-<U859A> \xED\xFD |0
-<U859B> \xC1\xA7 |0
-<U859C> \xC1\xA3 |0
-<U859D> \xEE\x4C |0
-<U859E> \xED\xFE |0
-<U859F> \xEE\x56 |0
-<U85A0> \xED\xF8 |0
-<U85A1> \xEE\x43 |0
-<U85A2> \xEE\x4E |0
-<U85A3> \xED\xFA |0
-<U85A4> \xED\xFC |0
-<U85A6> \xC2\xCB |0
-<U85A7> \xED\xF6 |0
-<U85A8> \xC1\xA9 |0
-<U85A9> \xC2\xC4 |0
-<U85AA> \xC1\x7E |0
-<U85AF> \xC1\xA6 |0
-<U85B0> \xC2\xC8 |0
-<U85B1> \xF0\xB3 |0
-<U85B3> \xF0\xA9 |0
-<U85B4> \xF0\xA4 |0
-<U85B5> \xF0\xAA |0
-<U85B6> \xF0\xB4 |0
-<U85B7> \xF0\xB8 |0
-<U85B8> \xF0\xB7 |0
-<U85B9> \xC2\xCA |0
-<U85BA> \xC2\xC9 |0
-<U85BD> \xF0\xAB |0
-<U85BE> \xF0\xB9 |0
-<U85BF> \xF0\xAE |0
-<U85C0> \xF0\xA6 |0
-<U85C2> \xF0\xA8 |0
-<U85C3> \xF0\xA7 |0
-<U85C4> \xF0\xAD |0
-<U85C5> \xF0\xB2 |0
-<U85C6> \xF0\xA5 |0
-<U85C7> \xF0\xAC |0
-<U85C8> \xF0\xB1 |0
-<U85C9> \xC2\xC7 |0
-<U85CB> \xF0\xAF |0
-<U85CD> \xC2\xC5 |0
-<U85CE> \xF0\xB0 |0
-<U85CF> \xC2\xC3 |0
-<U85D0> \xC2\xC6 |0
-<U85D1> \xF2\xD5 |0
-<U85D2> \xF0\xB5 |0
-<U85D5> \xC3\xC2 |0
-<U85D7> \xF2\xCD |0
-<U85D8> \xF2\xD1 |0
-<U85D9> \xF2\xC9 |0
-<U85DA> \xF2\xCC |0
-<U85DC> \xF2\xD4 |0
-<U85DD> \xC3\xC0 |0
-<U85DE> \xF2\xD9 |0
-<U85DF> \xF2\xD2 |0
-<U85E1> \xF2\xCA |0
-<U85E2> \xF2\xDA |0
-<U85E3> \xF2\xD3 |0
-<U85E4> \xC3\xC3 |0
-<U85E5> \xC3\xC4 |0
-<U85E6> \xF2\xD7 |0
-<U85E8> \xF2\xCB |0
-<U85E9> \xC3\xBF |0
-<U85EA> \xC3\xC1 |0
-<U85EB> \xF2\xC6 |0
-<U85EC> \xF2\xCE |0
-<U85ED> \xF2\xC8 |0
-<U85EF> \xF2\xD8 |0
-<U85F0> \xF2\xD6 |0
-<U85F1> \xF2\xC7 |0
-<U85F2> \xF2\xCF |0
-<U85F6> \xF4\xBE |0
-<U85F7> \xC3\xC5 |0
-<U85F8> \xF2\xD0 |0
-<U85F9> \xC4\xA7 |0
-<U85FA> \xC4\xA9 |0
-<U85FB> \xC4\xA6 |0
-<U85FD> \xF4\xC3 |0
-<U85FE> \xF4\xBB |0
-<U85FF> \xF4\xB9 |0
-<U8600> \xF4\xBD |0
-<U8601> \xF4\xBA |0
-<U8604> \xF4\xBF |0
-<U8605> \xF4\xC1 |0
-<U8606> \xC4\xAA |0
-<U8607> \xC4\xAC |0
-<U8609> \xF4\xC0 |0
-<U860A> \xC4\xAD |0
-<U860B> \xC4\xAB |0
-<U860C> \xF4\xC2 |0
-<U8611> \xC4\xA8 |0
-<U8617> \xC4\xF4 |0
-<U8618> \xF5\xF1 |0
-<U8619> \xF5\xF7 |0
-<U861A> \xC4\xF6 |0
-<U861B> \xF4\xBC |0
-<U861C> \xF5\xF6 |0
-<U861E> \xF5\xFD |0
-<U861F> \xF5\xF4 |0
-<U8620> \xF5\xFB |0
-<U8621> \xF5\xFA |0
-<U8622> \xF4\xB8 |0
-<U8623> \xF5\xF5 |0
-<U8624> \xF0\xB6 |0
-<U8625> \xF5\xFE |0
-<U8626> \xF5\xF3 |0
-<U8627> \xF5\xF8 |0
-<U8629> \xF5\xFC |0
-<U862A> \xF5\xF2 |0
-<U862C> \xF7\x4A |0
-<U862D> \xC4\xF5 |0
-<U862E> \xF5\xF9 |0
-<U8631> \xF7\xF4 |0
-<U8632> \xF7\x4B |0
-<U8633> \xF7\x49 |0
-<U8634> \xF7\x47 |0
-<U8635> \xF7\x48 |0
-<U8636> \xF7\x4C |0
-<U8638> \xC5\xD9 |0
-<U8639> \xF7\xF2 |0
-<U863A> \xF7\xF0 |0
-<U863B> \xF7\xF5 |0
-<U863C> \xF7\xF3 |0
-<U863E> \xF7\xF6 |0
-<U863F> \xC5\xDA |0
-<U8640> \xF7\xF1 |0
-<U8643> \xF8\xBC |0
-<U8646> \xF9\x45 |0
-<U8647> \xF9\x46 |0
-<U8648> \xF9\x47 |0
-<U864B> \xF9\xC7 |0
-<U864C> \xF9\xBD |0
-<U864D> \xCA\x4F |0
-<U864E> \xAA\xEA |0
-<U8650> \xAD\x68 |0
-<U8652> \xD3\xB8 |0
-<U8653> \xD3\xB7 |0
-<U8654> \xB0\x40 |0
-<U8655> \xB3\x42 |0
-<U8656> \xD7\x7C |0
-<U8659> \xD7\x7B |0
-<U865B> \xB5\xEA |0
-<U865C> \xB8\xB8 |0
-<U865E> \xB8\xB7 |0
-<U865F> \xB8\xB9 |0
-<U8661> \xE3\xD4 |0
-<U8662> \xE7\x7E |0
-<U8663> \xEB\x58 |0
-<U8664> \xEB\x5A |0
-<U8665> \xEB\x59 |0
-<U8667> \xC1\xAB |0
-<U8668> \xEE\x57 |0
-<U8669> \xF0\xBA |0
-<U866A> \xF9\xA5 |0
-<U866B> \xA6\xE4 |0
-<U866D> \xCD\xC9 |0
-<U866E> \xCD\xCA |0
-<U866F> \xCD\xC8 |0
-<U8670> \xCD\xC7 |0
-<U8671> \xAA\xEB |0
-<U8673> \xD0\xA9 |0
-<U8674> \xD0\xA7 |0
-<U8677> \xD0\xA6 |0
-<U8679> \xAD\x69 |0
-<U867A> \xAD\x6B |0
-<U867B> \xAD\x6A |0
-<U867C> \xD0\xA8 |0
-<U8685> \xD3\xC4 |0
-<U8686> \xD3\xC1 |0
-<U8687> \xD3\xBF |0
-<U868A> \xB0\x41 |0
-<U868B> \xD3\xC2 |0
-<U868C> \xB0\x46 |0
-<U868D> \xD3\xBC |0
-<U868E> \xD3\xCB |0
-<U8690> \xD3\xCD |0
-<U8691> \xD3\xBD |0
-<U8693> \xB0\x43 |0
-<U8694> \xD3\xCE |0
-<U8695> \xD3\xC9 |0
-<U8696> \xD3\xBB |0
-<U8697> \xD3\xC0 |0
-<U8698> \xD3\xCA |0
-<U8699> \xD3\xC6 |0
-<U869A> \xD3\xC3 |0
-<U869C> \xB0\x48 |0
-<U869D> \xD3\xCC |0
-<U869E> \xD3\xBE |0
-<U86A1> \xD3\xC7 |0
-<U86A2> \xD3\xB9 |0
-<U86A3> \xB0\x47 |0
-<U86A4> \xB0\x44 |0
-<U86A5> \xD3\xC5 |0
-<U86A7> \xD3\xC8 |0
-<U86A8> \xD3\xBA |0
-<U86A9> \xB0\x45 |0
-<U86AA> \xB0\x42 |0
-<U86AF> \xB3\x4C |0
-<U86B0> \xD7\xA5 |0
-<U86B1> \xB3\x4B |0
-<U86B3> \xD7\xA8 |0
-<U86B4> \xD7\xAB |0
-<U86B5> \xB3\x48 |0
-<U86B6> \xB3\x46 |0
-<U86B7> \xD7\x7E |0
-<U86B8> \xD7\xA9 |0
-<U86B9> \xD7\xA7 |0
-<U86BA> \xD7\xA4 |0
-<U86BB> \xD7\xAC |0
-<U86BC> \xD7\xAD |0
-<U86BD> \xD7\xAF |0
-<U86BE> \xD7\xB0 |0
-<U86BF> \xD7\x7D |0
-<U86C0> \xB3\x45 |0
-<U86C1> \xD7\xA2 |0
-<U86C2> \xD7\xA1 |0
-<U86C3> \xD7\xAE |0
-<U86C4> \xB3\x47 |0
-<U86C5> \xD7\xA3 |0
-<U86C6> \xB3\x49 |0
-<U86C7> \xB3\x44 |0
-<U86C8> \xD7\xA6 |0
-<U86C9> \xB3\x4D |0
-<U86CB> \xB3\x4A |0
-<U86CC> \xD7\xAA |0
-<U86D0> \xB5\xF1 |0
-<U86D1> \xDB\xBF |0
-<U86D3> \xDB\xB4 |0
-<U86D4> \xB5\xEE |0
-<U86D6> \xDF\xE7 |0
-<U86D7> \xDB\xBD |0
-<U86D8> \xDB\xB1 |0
-<U86D9> \xB5\xEC |0
-<U86DA> \xDB\xB6 |0
-<U86DB> \xB5\xEF |0
-<U86DC> \xDB\xBA |0
-<U86DD> \xDB\xB8 |0
-<U86DE> \xB5\xF2 |0
-<U86DF> \xB5\xEB |0
-<U86E2> \xDB\xB2 |0
-<U86E3> \xDB\xB5 |0
-<U86E4> \xB5\xF0 |0
-<U86E6> \xDB\xB3 |0
-<U86E8> \xDB\xBE |0
-<U86E9> \xDB\xBC |0
-<U86EA> \xDB\xB7 |0
-<U86EB> \xDB\xB9 |0
-<U86EC> \xDB\xBB |0
-<U86ED> \xB5\xED |0
-<U86F5> \xDF\xE8 |0
-<U86F6> \xDF\xEE |0
-<U86F7> \xDF\xE4 |0
-<U86F8> \xDF\xEA |0
-<U86F9> \xB8\xBA |0
-<U86FA> \xDF\xE6 |0
-<U86FB> \xB8\xC0 |0
-<U86FE> \xB8\xBF |0
-<U8700> \xB8\xBE |0
-<U8701> \xDF\xED |0
-<U8702> \xB8\xC1 |0
-<U8703> \xB8\xC2 |0
-<U8704> \xDF\xE3 |0
-<U8705> \xDF\xF0 |0
-<U8706> \xB8\xC3 |0
-<U8707> \xB8\xBD |0
-<U8708> \xB8\xBC |0
-<U8709> \xDF\xEC |0
-<U870A> \xB8\xC4 |0
-<U870B> \xDF\xE2 |0
-<U870C> \xDF\xE5 |0
-<U870D> \xDF\xEF |0
-<U870E> \xDF\xEB |0
-<U8711> \xE3\xF4 |0
-<U8712> \xE3\xE9 |0
-<U8713> \xB8\xBB |0
-<U8718> \xBB\x6A |0
-<U8719> \xE3\xDD |0
-<U871A> \xE3\xF2 |0
-<U871B> \xE3\xDE |0
-<U871C> \xBB\x65 |0
-<U871E> \xE3\xDB |0
-<U8720> \xE3\xE4 |0
-<U8721> \xE3\xDC |0
-<U8722> \xBB\x67 |0
-<U8723> \xE3\xD6 |0
-<U8724> \xE3\xF1 |0
-<U8725> \xBB\x68 |0
-<U8726> \xE3\xEE |0
-<U8727> \xE3\xEF |0
-<U8728> \xE3\xD7 |0
-<U8729> \xBB\x6D |0
-<U872A> \xE3\xE6 |0
-<U872C> \xE3\xE0 |0
-<U872D> \xE3\xE7 |0
-<U872E> \xE3\xDA |0
-<U8730> \xE3\xF3 |0
-<U8731> \xE3\xEB |0
-<U8732> \xE3\xE5 |0
-<U8733> \xE3\xD5 |0
-<U8734> \xBB\x69 |0
-<U8735> \xE3\xEC |0
-<U8737> \xBB\x6C |0
-<U8738> \xE3\xF0 |0
-<U873A> \xE3\xEA |0
-<U873B> \xBB\x66 |0
-<U873C> \xE3\xE8 |0
-<U873E> \xE3\xE2 |0
-<U873F> \xBB\x64 |0
-<U8740> \xE3\xD9 |0
-<U8741> \xE3\xE1 |0
-<U8742> \xE3\xED |0
-<U8743> \xE3\xDF |0
-<U8746> \xE3\xE3 |0
-<U874C> \xBD\xC1 |0
-<U874D> \xDF\xE9 |0
-<U874E> \xE7\xB2 |0
-<U874F> \xE7\xBB |0
-<U8750> \xE7\xB1 |0
-<U8751> \xE7\xAD |0
-<U8752> \xE7\xAA |0
-<U8753> \xBD\xC2 |0
-<U8754> \xE7\xA8 |0
-<U8755> \xBB\x6B |0
-<U8756> \xE7\xA1 |0
-<U8757> \xBD\xC0 |0
-<U8758> \xE7\xA7 |0
-<U8759> \xBD\xBF |0
-<U875A> \xE7\xAC |0
-<U875B> \xE7\xA9 |0
-<U875C> \xE7\xB9 |0
-<U875D> \xE7\xB4 |0
-<U875E> \xE7\xAE |0
-<U875F> \xE7\xB3 |0
-<U8760> \xBD\xBB |0
-<U8761> \xE7\xAB |0
-<U8762> \xE7\xBE |0
-<U8763> \xE7\xA2 |0
-<U8764> \xE7\xA3 |0
-<U8765> \xE7\xBA |0
-<U8766> \xBD\xBC |0
-<U8767> \xE7\xBF |0
-<U8768> \xBD\xBE |0
-<U8769> \xE7\xC0 |0
-<U876A> \xE7\xB0 |0
-<U876B> \xE3\xD8 |0
-<U876C> \xE7\xB6 |0
-<U876D> \xE7\xAF |0
-<U876E> \xE7\xB8 |0
-<U876F> \xE7\xB5 |0
-<U8773> \xE7\xA6 |0
-<U8774> \xBD\xB9 |0
-<U8775> \xE7\xBD |0
-<U8776> \xBD\xBA |0
-<U8777> \xE7\xA4 |0
-<U8778> \xBD\xBD |0
-<U8779> \xEB\x64 |0
-<U877A> \xE7\xB7 |0
-<U877B> \xE7\xBC |0
-<U8781> \xEB\x61 |0
-<U8782> \xBD\xB8 |0
-<U8783> \xBF\xC0 |0
-<U8784> \xEB\x6B |0
-<U8785> \xEB\x67 |0
-<U8787> \xEB\x65 |0
-<U8788> \xEB\x60 |0
-<U8789> \xEB\x6F |0
-<U878D> \xBF\xC4 |0
-<U878F> \xEB\x5C |0
-<U8790> \xEB\x68 |0
-<U8791> \xEB\x69 |0
-<U8792> \xEB\x5F |0
-<U8793> \xEB\x5E |0
-<U8794> \xEB\x6C |0
-<U8796> \xEB\x62 |0
-<U8797> \xEB\x5D |0
-<U8798> \xEB\x63 |0
-<U879A> \xEB\x6E |0
-<U879B> \xEB\x5B |0
-<U879C> \xEB\x6D |0
-<U879D> \xEB\x6A |0
-<U879E> \xBF\xC2 |0
-<U879F> \xBF\xC1 |0
-<U87A2> \xBF\xC3 |0
-<U87A3> \xEB\x66 |0
-<U87A4> \xF0\xCB |0
-<U87AA> \xEE\x59 |0
-<U87AB> \xC1\xB1 |0
-<U87AC> \xEE\x5D |0
-<U87AD> \xEE\x5A |0
-<U87AE> \xEE\x61 |0
-<U87AF> \xEE\x67 |0
-<U87B0> \xEE\x5C |0
-<U87B2> \xEE\x70 |0
-<U87B3> \xC1\xAE |0
-<U87B4> \xEE\x6A |0
-<U87B5> \xEE\x5F |0
-<U87B6> \xEE\x6B |0
-<U87B7> \xEE\x66 |0
-<U87B8> \xEE\x6D |0
-<U87B9> \xEE\x5E |0
-<U87BA> \xC1\xB3 |0
-<U87BB> \xC1\xB2 |0
-<U87BC> \xEE\x60 |0
-<U87BD> \xEE\x6E |0
-<U87BE> \xEE\x58 |0
-<U87BF> \xEE\x6C |0
-<U87C0> \xC1\xAC |0
-<U87C2> \xEE\x64 |0
-<U87C3> \xEE\x63 |0
-<U87C4> \xEE\x68 |0
-<U87C5> \xEE\x5B |0
-<U87C6> \xC1\xB0 |0
-<U87C8> \xC1\xB4 |0
-<U87C9> \xEE\x62 |0
-<U87CA> \xEE\x69 |0
-<U87CB> \xC1\xB5 |0
-<U87CC> \xEE\x65 |0
-<U87D1> \xC1\xAD |0
-<U87D2> \xC1\xAF |0
-<U87D3> \xF0\xC7 |0
-<U87D4> \xF0\xC5 |0
-<U87D7> \xF0\xCC |0
-<U87D8> \xF0\xC9 |0
-<U87D9> \xF0\xCD |0
-<U87DB> \xF0\xBE |0
-<U87DC> \xF0\xC6 |0
-<U87DD> \xF0\xD1 |0
-<U87DE> \xEE\x6F |0
-<U87DF> \xF0\xC2 |0
-<U87E0> \xC2\xCF |0
-<U87E1> \xE7\xA5 |0
-<U87E2> \xF0\xBD |0
-<U87E3> \xF0\xCA |0
-<U87E4> \xF0\xC4 |0
-<U87E5> \xF0\xC1 |0
-<U87E6> \xF0\xBC |0
-<U87E7> \xF0\xBB |0
-<U87E8> \xF0\xD0 |0
-<U87EA> \xF0\xC0 |0
-<U87EB> \xF0\xBF |0
-<U87EC> \xC2\xCD |0
-<U87ED> \xF0\xC8 |0
-<U87EF> \xC2\xCC |0
-<U87F2> \xC2\xCE |0
-<U87F3> \xF0\xC3 |0
-<U87F4> \xF0\xCF |0
-<U87F6> \xF2\xDE |0
-<U87F7> \xF2\xDF |0
-<U87F9> \xC3\xC9 |0
-<U87FA> \xF2\xDC |0
-<U87FB> \xC3\xC6 |0
-<U87FC> \xF2\xE4 |0
-<U87FE> \xC3\xCA |0
-<U87FF> \xF2\xE6 |0
-<U8800> \xF2\xDB |0
-<U8801> \xF0\xCE |0
-<U8802> \xF2\xE8 |0
-<U8803> \xF2\xDD |0
-<U8805> \xC3\xC7 |0
-<U8806> \xF2\xE3 |0
-<U8808> \xF2\xE5 |0
-<U8809> \xF2\xE0 |0
-<U880A> \xF2\xE7 |0
-<U880B> \xF2\xE2 |0
-<U880C> \xF2\xE1 |0
-<U880D> \xC3\xC8 |0
-<U8810> \xF4\xC5 |0
-<U8811> \xF4\xC6 |0
-<U8813> \xF4\xC8 |0
-<U8814> \xC4\xAE |0
-<U8815> \xC4\xAF |0
-<U8816> \xF4\xC9 |0
-<U8817> \xF4\xC7 |0
-<U8819> \xF4\xC4 |0
-<U881B> \xF6\x42 |0
-<U881C> \xF6\x45 |0
-<U881D> \xF6\x41 |0
-<U881F> \xC4\xFA |0
-<U8820> \xF6\x43 |0
-<U8821> \xC4\xF9 |0
-<U8822> \xC4\xF8 |0
-<U8823> \xC4\xF7 |0
-<U8824> \xF6\x44 |0
-<U8825> \xF7\x51 |0
-<U8826> \xF7\x4F |0
-<U8828> \xF7\x4E |0
-<U8829> \xF6\x40 |0
-<U882A> \xF7\x50 |0
-<U882B> \xF6\x46 |0
-<U882C> \xF7\x4D |0
-<U882E> \xF7\xF9 |0
-<U882F> \xF7\xD7 |0
-<U8830> \xF7\xF7 |0
-<U8831> \xC5\xDB |0
-<U8832> \xF7\xF8 |0
-<U8833> \xF7\xFA |0
-<U8835> \xF8\xBF |0
-<U8836> \xC5\xFA |0
-<U8837> \xF8\xBE |0
-<U8838> \xF8\xBD |0
-<U8839> \xC5\xFB |0
-<U883B> \xC6\x5A |0
-<U883C> \xF9\x6E |0
-<U883D> \xF9\xA7 |0
-<U883E> \xF9\xA6 |0
-<U883F> \xF9\xA8 |0
-<U8840> \xA6\xE5 |0
-<U8841> \xD0\xAA |0
-<U8843> \xD3\xCF |0
-<U8844> \xD3\xD0 |0
-<U8848> \xDB\xC0 |0
-<U884A> \xF6\x47 |0
-<U884B> \xF8\xC0 |0
-<U884C> \xA6\xE6 |0
-<U884D> \xAD\x6C |0
-<U884E> \xD0\xAB |0
-<U8852> \xD7\xB1 |0
-<U8853> \xB3\x4E |0
-<U8855> \xDB\xC2 |0
-<U8856> \xDB\xC1 |0
-<U8857> \xB5\xF3 |0
-<U8859> \xB8\xC5 |0
-<U885A> \xE7\xC1 |0
-<U885B> \xBD\xC3 |0
-<U885D> \xBD\xC4 |0
-<U8861> \xBF\xC5 |0
-<U8862> \xC5\xFC |0
-<U8863> \xA6\xE7 |0
-<U8867> \xD0\xAC |0
-<U8868> \xAA\xED |0
-<U8869> \xD0\xAE |0
-<U886A> \xD0\xAD |0
-<U886B> \xAD\x6D |0
-<U886D> \xD3\xD1 |0
-<U886F> \xD3\xD8 |0
-<U8870> \xB0\x49 |0
-<U8871> \xD3\xD6 |0
-<U8872> \xD3\xD4 |0
-<U8874> \xD3\xDB |0
-<U8875> \xD3\xD2 |0
-<U8876> \xD3\xD3 |0
-<U8877> \xB0\x4A |0
-<U8879> \xB0\x4E |0
-<U887C> \xD3\xDC |0
-<U887D> \xB0\x4D |0
-<U887E> \xD3\xDA |0
-<U887F> \xD3\xD7 |0
-<U8880> \xD3\xD5 |0
-<U8881> \xB0\x4B |0
-<U8882> \xB0\x4C |0
-<U8883> \xD3\xD9 |0
-<U8888> \xB3\x50 |0
-<U8889> \xD7\xB2 |0
-<U888B> \xB3\x55 |0
-<U888C> \xD7\xC2 |0
-<U888D> \xB3\x54 |0
-<U888E> \xD7\xC4 |0
-<U8891> \xD7\xB8 |0
-<U8892> \xB3\x52 |0
-<U8893> \xD7\xC3 |0
-<U8895> \xD7\xB3 |0
-<U8896> \xB3\x53 |0
-<U8897> \xD7\xBF |0
-<U8898> \xD7\xBB |0
-<U8899> \xD7\xBD |0
-<U889A> \xD7\xB7 |0
-<U889B> \xD7\xBE |0
-<U889E> \xB3\x4F |0
-<U889F> \xD7\xBA |0
-<U88A1> \xD7\xB9 |0
-<U88A2> \xD7\xB5 |0
-<U88A4> \xD7\xC0 |0
-<U88A7> \xD7\xBC |0
-<U88A8> \xD7\xB4 |0
-<U88AA> \xD7\xB6 |0
-<U88AB> \xB3\x51 |0
-<U88AC> \xD7\xC1 |0
-<U88B1> \xB5\xF6 |0
-<U88B2> \xDB\xCD |0
-<U88B6> \xDB\xC9 |0
-<U88B7> \xDB\xCB |0
-<U88B8> \xDB\xC6 |0
-<U88B9> \xDB\xC5 |0
-<U88BA> \xDB\xC3 |0
-<U88BC> \xDB\xCA |0
-<U88BD> \xDB\xCC |0
-<U88BE> \xDB\xC8 |0
-<U88C0> \xDB\xC7 |0
-<U88C1> \xB5\xF4 |0
-<U88C2> \xB5\xF5 |0
-<U88C9> \xDB\xCF |0
-<U88CA> \xB8\xCD |0
-<U88CB> \xDF\xF2 |0
-<U88CC> \xDF\xF8 |0
-<U88CD> \xDF\xF3 |0
-<U88CE> \xDF\xF4 |0
-<U88CF> \xF9\xD8 |0
-<U88D0> \xDF\xF9 |0
-<U88D2> \xB8\xCF |0
-<U88D4> \xB8\xC7 |0
-<U88D5> \xB8\xCE |0
-<U88D6> \xDF\xF1 |0
-<U88D7> \xDB\xC4 |0
-<U88D8> \xB8\xCA |0
-<U88D9> \xB8\xC8 |0
-<U88DA> \xDF\xF7 |0
-<U88DB> \xDF\xF6 |0
-<U88DC> \xB8\xC9 |0
-<U88DD> \xB8\xCB |0
-<U88DE> \xDF\xF5 |0
-<U88DF> \xB8\xC6 |0
-<U88E1> \xB8\xCC |0
-<U88E7> \xE3\xF6 |0
-<U88E8> \xBB\x74 |0
-<U88EB> \xE4\x42 |0
-<U88EC> \xE4\x41 |0
-<U88EE> \xE3\xFB |0
-<U88EF> \xBB\x76 |0
-<U88F0> \xE4\x40 |0
-<U88F1> \xE3\xF7 |0
-<U88F2> \xE3\xF8 |0
-<U88F3> \xBB\x6E |0
-<U88F4> \xBB\x70 |0
-<U88F6> \xE3\xFD |0
-<U88F7> \xE3\xF5 |0
-<U88F8> \xBB\x72 |0
-<U88F9> \xBB\x71 |0
-<U88FA> \xE3\xF9 |0
-<U88FB> \xE3\xFE |0
-<U88FC> \xE3\xFC |0
-<U88FD> \xBB\x73 |0
-<U88FE> \xE3\xFA |0
-<U8901> \xDB\xCE |0
-<U8902> \xBB\x6F |0
-<U8905> \xE7\xC2 |0
-<U8906> \xE7\xC9 |0
-<U8907> \xBD\xC6 |0
-<U8909> \xE7\xCD |0
-<U890A> \xBD\xCA |0
-<U890B> \xE7\xC5 |0
-<U890C> \xE7\xC3 |0
-<U890E> \xE7\xCC |0
-<U8910> \xBD\xC5 |0
-<U8911> \xE7\xCB |0
-<U8912> \xBD\xC7 |0
-<U8913> \xBD\xC8 |0
-<U8914> \xE7\xC4 |0
-<U8915> \xBD\xC9 |0
-<U8916> \xE7\xCA |0
-<U8917> \xE7\xC6 |0
-<U8918> \xE7\xC7 |0
-<U8919> \xE7\xC8 |0
-<U891A> \xBB\x75 |0
-<U891E> \xEB\x70 |0
-<U891F> \xEB\x7C |0
-<U8921> \xBF\xCA |0
-<U8922> \xEB\x77 |0
-<U8923> \xEB\x79 |0
-<U8925> \xBF\xC8 |0
-<U8926> \xEB\x71 |0
-<U8927> \xEB\x75 |0
-<U8929> \xEB\x78 |0
-<U892A> \xBF\xC6 |0
-<U892B> \xBF\xC9 |0
-<U892C> \xEB\x7B |0
-<U892D> \xEB\x73 |0
-<U892E> \xEB\x74 |0
-<U892F> \xEB\x7A |0
-<U8930> \xEB\x72 |0
-<U8931> \xEB\x76 |0
-<U8932> \xBF\xC7 |0
-<U8933> \xEE\x72 |0
-<U8935> \xEE\x71 |0
-<U8936> \xC1\xB7 |0
-<U8937> \xEE\x77 |0
-<U8938> \xC1\xB9 |0
-<U893B> \xC1\xB6 |0
-<U893C> \xEE\x73 |0
-<U893D> \xC1\xBA |0
-<U893E> \xEE\x74 |0
-<U8941> \xEE\x75 |0
-<U8942> \xEE\x78 |0
-<U8944> \xC1\xB8 |0
-<U8946> \xF0\xD6 |0
-<U8949> \xF0\xD9 |0
-<U894B> \xF0\xD3 |0
-<U894C> \xF0\xD5 |0
-<U894F> \xF0\xD4 |0
-<U8950> \xF0\xD7 |0
-<U8951> \xF0\xD8 |0
-<U8952> \xEE\x76 |0
-<U8953> \xF0\xD2 |0
-<U8956> \xC3\xCD |0
-<U8957> \xF2\xEC |0
-<U8958> \xF2\xEF |0
-<U8959> \xF2\xF1 |0
-<U895A> \xF2\xEA |0
-<U895B> \xF2\xEB |0
-<U895C> \xF2\xEE |0
-<U895D> \xF2\xF0 |0
-<U895E> \xC3\xCE |0
-<U895F> \xC3\xCC |0
-<U8960> \xC3\xCB |0
-<U8961> \xF2\xED |0
-<U8962> \xF2\xE9 |0
-<U8963> \xF4\xCA |0
-<U8964> \xC4\xB0 |0
-<U8966> \xF4\xCB |0
-<U8969> \xF6\x49 |0
-<U896A> \xC4\xFB |0
-<U896B> \xF6\x4B |0
-<U896C> \xC4\xFC |0
-<U896D> \xF6\x48 |0
-<U896E> \xF6\x4A |0
-<U896F> \xC5\xA8 |0
-<U8971> \xF7\x52 |0
-<U8972> \xC5\xA7 |0
-<U8973> \xF7\xFD |0
-<U8974> \xF7\xFC |0
-<U8976> \xF7\xFB |0
-<U8979> \xF9\x48 |0
-<U897A> \xF9\x49 |0
-<U897B> \xF9\x4B |0
-<U897C> \xF9\x4A |0
-<U897E> \xCA\x50 |0
-<U897F> \xA6\xE8 |0
-<U8981> \xAD\x6E |0
-<U8982> \xD7\xC5 |0
-<U8983> \xB5\xF7 |0
-<U8985> \xDF\xFA |0
-<U8986> \xC2\xD0 |0
-<U8988> \xF2\xF2 |0
-<U898B> \xA8\xA3 |0
-<U898F> \xB3\x57 |0
-<U8993> \xB3\x56 |0
-<U8995> \xDB\xD0 |0
-<U8996> \xB5\xF8 |0
-<U8997> \xDB\xD2 |0
-<U8998> \xDB\xD1 |0
-<U899B> \xDF\xFB |0
-<U899C> \xB8\xD0 |0
-<U899D> \xE4\x43 |0
-<U899E> \xE4\x46 |0
-<U899F> \xE4\x45 |0
-<U89A1> \xE4\x44 |0
-<U89A2> \xE7\xCE |0
-<U89A3> \xE7\xD0 |0
-<U89A4> \xE7\xCF |0
-<U89A6> \xBF\xCC |0
-<U89AA> \xBF\xCB |0
-<U89AC> \xC1\xBB |0
-<U89AD> \xEE\x79 |0
-<U89AE> \xEE\x7B |0
-<U89AF> \xEE\x7A |0
-<U89B2> \xC2\xD1 |0
-<U89B6> \xF2\xF4 |0
-<U89B7> \xF2\xF3 |0
-<U89B9> \xF4\xCC |0
-<U89BA> \xC4\xB1 |0
-<U89BD> \xC4\xFD |0
-<U89BE> \xF7\x54 |0
-<U89BF> \xF7\x53 |0
-<U89C0> \xC6\x5B |0
-<U89D2> \xA8\xA4 |0
-<U89D3> \xD0\xAF |0
-<U89D4> \xAD\x6F |0
-<U89D5> \xD7\xC8 |0
-<U89D6> \xD7\xC6 |0
-<U89D9> \xD7\xC7 |0
-<U89DA> \xDB\xD4 |0
-<U89DB> \xDB\xD5 |0
-<U89DC> \xE0\x43 |0
-<U89DD> \xDB\xD3 |0
-<U89DF> \xDF\xFC |0
-<U89E0> \xE0\x41 |0
-<U89E1> \xE0\x40 |0
-<U89E2> \xE0\x42 |0
-<U89E3> \xB8\xD1 |0
-<U89E4> \xDF\xFE |0
-<U89E5> \xDF\xFD |0
-<U89E6> \xE0\x44 |0
-<U89E8> \xE4\x49 |0
-<U89E9> \xE4\x47 |0
-<U89EB> \xE4\x48 |0
-<U89EC> \xE7\xD3 |0
-<U89ED> \xE7\xD1 |0
-<U89F0> \xE7\xD2 |0
-<U89F1> \xEB\x7D |0
-<U89F2> \xEE\x7C |0
-<U89F3> \xEE\x7D |0
-<U89F4> \xC2\xD2 |0
-<U89F6> \xF2\xF5 |0
-<U89F7> \xF4\xCD |0
-<U89F8> \xC4\xB2 |0
-<U89FA> \xF6\x4C |0
-<U89FB> \xF7\x55 |0
-<U89FC> \xC5\xA9 |0
-<U89FE> \xF7\xFE |0
-<U89FF> \xF9\x4C |0
-<U8A00> \xA8\xA5 |0
-<U8A02> \xAD\x71 |0
-<U8A03> \xAD\x72 |0
-<U8A04> \xD0\xB0 |0
-<U8A07> \xD0\xB1 |0
-<U8A08> \xAD\x70 |0
-<U8A0A> \xB0\x54 |0
-<U8A0C> \xB0\x52 |0
-<U8A0E> \xB0\x51 |0
-<U8A0F> \xB0\x58 |0
-<U8A10> \xB0\x50 |0
-<U8A11> \xB0\x59 |0
-<U8A12> \xD3\xDD |0
-<U8A13> \xB0\x56 |0
-<U8A15> \xB0\x53 |0
-<U8A16> \xB0\x57 |0
-<U8A17> \xB0\x55 |0
-<U8A18> \xB0\x4F |0
-<U8A1B> \xB3\x5F |0
-<U8A1D> \xB3\x59 |0
-<U8A1E> \xD7\xCC |0
-<U8A1F> \xB3\x5E |0
-<U8A22> \xB3\x60 |0
-<U8A23> \xB3\x5A |0
-<U8A25> \xB3\x5B |0
-<U8A27> \xD7\xCA |0
-<U8A2A> \xB3\x58 |0
-<U8A2C> \xD7\xCB |0
-<U8A2D> \xB3\x5D |0
-<U8A30> \xD7\xC9 |0
-<U8A31> \xB3\x5C |0
-<U8A34> \xB6\x44 |0
-<U8A36> \xB6\x46 |0
-<U8A39> \xDB\xD8 |0
-<U8A3A> \xB6\x45 |0
-<U8A3B> \xB5\xF9 |0
-<U8A3C> \xB5\xFD |0
-<U8A3E> \xB8\xE4 |0
-<U8A3F> \xE0\x49 |0
-<U8A40> \xDB\xDA |0
-<U8A41> \xB5\xFE |0
-<U8A44> \xDB\xDD |0
-<U8A45> \xDB\xDE |0
-<U8A46> \xB6\x43 |0
-<U8A48> \xDB\xE0 |0
-<U8A4A> \xDB\xE2 |0
-<U8A4C> \xDB\xE3 |0
-<U8A4D> \xDB\xD7 |0
-<U8A4E> \xDB\xD6 |0
-<U8A4F> \xDB\xE4 |0
-<U8A50> \xB6\x42 |0
-<U8A51> \xDB\xE1 |0
-<U8A52> \xDB\xDF |0
-<U8A54> \xB6\x40 |0
-<U8A55> \xB5\xFB |0
-<U8A56> \xB6\x47 |0
-<U8A57> \xDB\xDB |0
-<U8A58> \xDB\xDC |0
-<U8A59> \xDB\xD9 |0
-<U8A5B> \xB6\x41 |0
-<U8A5E> \xB5\xFC |0
-<U8A60> \xB5\xFA |0
-<U8A61> \xE0\x48 |0
-<U8A62> \xB8\xDF |0
-<U8A63> \xB8\xDA |0
-<U8A66> \xB8\xD5 |0
-<U8A68> \xB8\xE5 |0
-<U8A69> \xB8\xD6 |0
-<U8A6B> \xB8\xD2 |0
-<U8A6C> \xB8\xE1 |0
-<U8A6D> \xB8\xDE |0
-<U8A6E> \xB8\xE0 |0
-<U8A70> \xB8\xD7 |0
-<U8A71> \xB8\xDC |0
-<U8A72> \xB8\xD3 |0
-<U8A73> \xB8\xD4 |0
-<U8A74> \xE0\x50 |0
-<U8A75> \xE0\x4D |0
-<U8A76> \xE0\x45 |0
-<U8A77> \xE0\x4A |0
-<U8A79> \xB8\xE2 |0
-<U8A7A> \xE0\x51 |0
-<U8A7B> \xB8\xE3 |0
-<U8A7C> \xB8\xD9 |0
-<U8A7F> \xE0\x47 |0
-<U8A81> \xE0\x4F |0
-<U8A82> \xE0\x4B |0
-<U8A83> \xE0\x4E |0
-<U8A84> \xE0\x4C |0
-<U8A85> \xB8\xDD |0
-<U8A86> \xE0\x46 |0
-<U8A87> \xB8\xD8 |0
-<U8A8B> \xE4\x4C |0
-<U8A8C> \xBB\x78 |0
-<U8A8D> \xBB\x7B |0
-<U8A8F> \xE4\x4E |0
-<U8A91> \xBB\xA5 |0
-<U8A92> \xE4\x4D |0
-<U8A93> \xBB\x7D |0
-<U8A95> \xBD\xCF |0
-<U8A96> \xE4\x4F |0
-<U8A98> \xBB\xA4 |0
-<U8A99> \xE4\x4B |0
-<U8A9A> \xBB\xA6 |0
-<U8A9E> \xBB\x79 |0
-<U8AA0> \xB8\xDB |0
-<U8AA1> \xBB\x7C |0
-<U8AA3> \xBB\x7A |0
-<U8AA4> \xBB\x7E |0
-<U8AA5> \xBB\xA2 |0
-<U8AA6> \xBB\x77 |0
-<U8AA7> \xBB\xA7 |0
-<U8AA8> \xBB\xA3 |0
-<U8AAA> \xBB\xA1 |0
-<U8AAB> \xE4\x4A |0
-<U8AB0> \xBD\xD6 |0
-<U8AB2> \xBD\xD2 |0
-<U8AB6> \xBD\xD9 |0
-<U8AB8> \xE7\xD6 |0
-<U8AB9> \xBD\xDA |0
-<U8ABA> \xE7\xE2 |0
-<U8ABB> \xE7\xDB |0
-<U8ABC> \xBD\xCB |0
-<U8ABD> \xE7\xE3 |0
-<U8ABE> \xE7\xDD |0
-<U8ABF> \xBD\xD5 |0
-<U8AC0> \xE7\xDE |0
-<U8AC2> \xBD\xD4 |0
-<U8AC3> \xE7\xE1 |0
-<U8AC4> \xBD\xCE |0
-<U8AC5> \xE7\xDF |0
-<U8AC6> \xE7\xD5 |0
-<U8AC7> \xBD\xCD |0
-<U8AC8> \xEB\xAA |0
-<U8AC9> \xBD\xD3 |0
-<U8ACB> \xBD\xD0 |0
-<U8ACD> \xBD\xD8 |0
-<U8ACF> \xE7\xD4 |0
-<U8AD1> \xE7\xD8 |0
-<U8AD2> \xBD\xCC |0
-<U8AD3> \xE7\xD7 |0
-<U8AD4> \xE7\xD9 |0
-<U8AD5> \xE7\xDA |0
-<U8AD6> \xBD\xD7 |0
-<U8AD7> \xE7\xDC |0
-<U8AD8> \xE7\xE0 |0
-<U8AD9> \xE7\xE4 |0
-<U8ADB> \xBD\xDB |0
-<U8ADC> \xBF\xD2 |0
-<U8ADD> \xEB\xA5 |0
-<U8ADE> \xEB\xAB |0
-<U8ADF> \xEB\xA8 |0
-<U8AE0> \xEB\x7E |0
-<U8AE1> \xEB\xAC |0
-<U8AE2> \xEB\xA1 |0
-<U8AE4> \xEB\xA7 |0
-<U8AE6> \xBF\xCD |0
-<U8AE7> \xBF\xD3 |0
-<U8AE8> \xEB\xAD |0
-<U8AEB> \xBF\xCF |0
-<U8AED> \xBF\xD9 |0
-<U8AEE> \xBF\xD4 |0
-<U8AEF> \xEB\xAF |0
-<U8AF0> \xEB\xA9 |0
-<U8AF1> \xBF\xD0 |0
-<U8AF2> \xEB\xA2 |0
-<U8AF3> \xBF\xDA |0
-<U8AF4> \xEB\xA3 |0
-<U8AF5> \xEB\xA4 |0
-<U8AF6> \xBF\xDB |0
-<U8AF7> \xBF\xD8 |0
-<U8AF8> \xBD\xD1 |0
-<U8AFA> \xBF\xCE |0
-<U8AFB> \xEB\xB0 |0
-<U8AFC> \xBF\xDC |0
-<U8AFE> \xBF\xD5 |0
-<U8AFF> \xEB\xAE |0
-<U8B00> \xBF\xD1 |0
-<U8B01> \xBF\xD6 |0
-<U8B02> \xBF\xD7 |0
-<U8B04> \xC1\xC3 |0
-<U8B05> \xEE\xA4 |0
-<U8B06> \xEE\xAD |0
-<U8B07> \xEE\xAA |0
-<U8B08> \xEE\xAC |0
-<U8B0A> \xC1\xC0 |0
-<U8B0B> \xEE\xA5 |0
-<U8B0D> \xEE\xAB |0
-<U8B0E> \xC1\xBC |0
-<U8B0F> \xEE\xA7 |0
-<U8B10> \xC1\xC4 |0
-<U8B11> \xEE\xA3 |0
-<U8B12> \xEE\xA8 |0
-<U8B13> \xEE\xAF |0
-<U8B14> \xEB\xA6 |0
-<U8B15> \xEE\xA9 |0
-<U8B16> \xEE\xA2 |0
-<U8B17> \xC1\xBD |0
-<U8B18> \xEE\xA1 |0
-<U8B19> \xC1\xBE |0
-<U8B1A> \xEE\xB0 |0
-<U8B1B> \xC1\xBF |0
-<U8B1C> \xEE\xAE |0
-<U8B1D> \xC1\xC2 |0
-<U8B1E> \xEE\x7E |0
-<U8B20> \xC1\xC1 |0
-<U8B22> \xEE\xA6 |0
-<U8B23> \xF0\xDC |0
-<U8B24> \xF0\xEA |0
-<U8B25> \xF0\xE5 |0
-<U8B26> \xF0\xE7 |0
-<U8B27> \xF0\xDB |0
-<U8B28> \xC2\xD3 |0
-<U8B2A> \xF0\xDA |0
-<U8B2B> \xC2\xD6 |0
-<U8B2C> \xC2\xD5 |0
-<U8B2E> \xF0\xE9 |0
-<U8B2F> \xF0\xE1 |0
-<U8B30> \xF0\xDE |0
-<U8B31> \xF0\xE4 |0
-<U8B33> \xF0\xDD |0
-<U8B35> \xF0\xDF |0
-<U8B36> \xF0\xE8 |0
-<U8B37> \xF0\xE6 |0
-<U8B39> \xC2\xD4 |0
-<U8B3A> \xF0\xED |0
-<U8B3B> \xF0\xEB |0
-<U8B3C> \xF0\xE2 |0
-<U8B3D> \xF0\xEC |0
-<U8B3E> \xF0\xE3 |0
-<U8B40> \xF2\xF9 |0
-<U8B41> \xC3\xCF |0
-<U8B42> \xF3\x41 |0
-<U8B45> \xF6\x4F |0
-<U8B46> \xC3\xD6 |0
-<U8B47> \xF0\xE0 |0
-<U8B48> \xF2\xF7 |0
-<U8B49> \xC3\xD2 |0
-<U8B4A> \xF2\xF8 |0
-<U8B4B> \xF2\xFD |0
-<U8B4E> \xC3\xD4 |0
-<U8B4F> \xC3\xD5 |0
-<U8B50> \xF2\xF6 |0
-<U8B51> \xF3\x40 |0
-<U8B52> \xF3\x42 |0
-<U8B53> \xF2\xFA |0
-<U8B54> \xF2\xFC |0
-<U8B55> \xF2\xFE |0
-<U8B56> \xF2\xFB |0
-<U8B57> \xF3\x43 |0
-<U8B58> \xC3\xD1 |0
-<U8B59> \xC3\xD7 |0
-<U8B5A> \xC3\xD3 |0
-<U8B5C> \xC3\xD0 |0
-<U8B5D> \xF4\xD0 |0
-<U8B5F> \xC4\xB7 |0
-<U8B60> \xF4\xCE |0
-<U8B63> \xF4\xD2 |0
-<U8B65> \xF4\xD3 |0
-<U8B66> \xC4\xB5 |0
-<U8B67> \xF4\xD4 |0
-<U8B68> \xF4\xD1 |0
-<U8B6A> \xF4\xCF |0
-<U8B6B> \xC4\xB8 |0
-<U8B6C> \xC4\xB4 |0
-<U8B6D> \xF4\xD5 |0
-<U8B6F> \xC4\xB6 |0
-<U8B70> \xC4\xB3 |0
-<U8B74> \xC4\xFE |0
-<U8B77> \xC5\x40 |0
-<U8B78> \xF6\x4E |0
-<U8B79> \xF6\x4D |0
-<U8B7A> \xF6\x50 |0
-<U8B7B> \xF6\x51 |0
-<U8B7D> \xC5\x41 |0
-<U8B7E> \xF7\x56 |0
-<U8B7F> \xF7\x5B |0
-<U8B80> \xC5\xAA |0
-<U8B82> \xF7\x58 |0
-<U8B84> \xF7\x57 |0
-<U8B85> \xF7\x5A |0
-<U8B86> \xF7\x59 |0
-<U8B88> \xF8\x43 |0
-<U8B8A> \xC5\xDC |0
-<U8B8B> \xF8\x42 |0
-<U8B8C> \xF8\x40 |0
-<U8B8E> \xF8\x41 |0
-<U8B92> \xC5\xFE |0
-<U8B93> \xC5\xFD |0
-<U8B94> \xF8\xC1 |0
-<U8B95> \xF8\xC2 |0
-<U8B96> \xC6\x40 |0
-<U8B98> \xF9\x4D |0
-<U8B99> \xF9\x4E |0
-<U8B9A> \xC6\x67 |0
-<U8B9C> \xC6\x6D |0
-<U8B9E> \xF9\xA9 |0
-<U8B9F> \xF9\xC8 |0
-<U8C37> \xA8\xA6 |0
-<U8C39> \xD7\xCD |0
-<U8C3B> \xD7\xCE |0
-<U8C3C> \xE0\x52 |0
-<U8C3D> \xE4\x50 |0
-<U8C3E> \xE7\xE5 |0
-<U8C3F> \xC1\xC6 |0
-<U8C41> \xC1\xC5 |0
-<U8C42> \xF0\xEE |0
-<U8C43> \xF3\x44 |0
-<U8C45> \xF8\x44 |0
-<U8C46> \xA8\xA7 |0
-<U8C47> \xD3\xDE |0
-<U8C48> \xB0\x5A |0
-<U8C49> \xB3\x61 |0
-<U8C4A> \xE0\x54 |0
-<U8C4B> \xE0\x53 |0
-<U8C4C> \xBD\xDC |0
-<U8C4D> \xE7\xE6 |0
-<U8C4E> \xBD\xDD |0
-<U8C4F> \xEE\xB1 |0
-<U8C50> \xC2\xD7 |0
-<U8C54> \xC6\x76 |0
-<U8C55> \xA8\xA8 |0
-<U8C56> \xCD\xCB |0
-<U8C57> \xD3\xDF |0
-<U8C5A> \xB3\x62 |0
-<U8C5C> \xD7\xCF |0
-<U8C5D> \xD7\xD0 |0
-<U8C5F> \xDB\xE5 |0
-<U8C61> \xB6\x48 |0
-<U8C62> \xB8\xE6 |0
-<U8C64> \xE0\x56 |0
-<U8C65> \xE0\x55 |0
-<U8C66> \xE0\x57 |0
-<U8C68> \xE4\x51 |0
-<U8C69> \xE4\x52 |0
-<U8C6A> \xBB\xA8 |0
-<U8C6B> \xBF\xDD |0
-<U8C6C> \xBD\xDE |0
-<U8C6D> \xBF\xDE |0
-<U8C6F> \xEE\xB5 |0
-<U8C70> \xEE\xB2 |0
-<U8C71> \xEE\xB4 |0
-<U8C72> \xEE\xB3 |0
-<U8C73> \xC1\xC7 |0
-<U8C75> \xF0\xEF |0
-<U8C76> \xF3\x46 |0
-<U8C77> \xF3\x45 |0
-<U8C78> \xCB\xA4 |0
-<U8C79> \xB0\x5C |0
-<U8C7A> \xB0\x5B |0
-<U8C7B> \xD3\xE0 |0
-<U8C7D> \xD7\xD1 |0
-<U8C80> \xDB\xE7 |0
-<U8C81> \xDB\xE6 |0
-<U8C82> \xB6\x49 |0
-<U8C84> \xE0\x59 |0
-<U8C85> \xE0\x5A |0
-<U8C86> \xE0\x58 |0
-<U8C89> \xB8\xE8 |0
-<U8C8A> \xB8\xE7 |0
-<U8C8C> \xBB\xAA |0
-<U8C8D> \xBB\xA9 |0
-<U8C8F> \xE7\xE7 |0
-<U8C90> \xEB\xB3 |0
-<U8C91> \xEB\xB1 |0
-<U8C92> \xEB\xB2 |0
-<U8C93> \xBF\xDF |0
-<U8C94> \xEE\xB7 |0
-<U8C95> \xEE\xB6 |0
-<U8C97> \xF0\xF2 |0
-<U8C98> \xF0\xF1 |0
-<U8C99> \xF0\xF0 |0
-<U8C9A> \xF3\x47 |0
-<U8C9C> \xF9\xAA |0
-<U8C9D> \xA8\xA9 |0
-<U8C9E> \xAD\x73 |0
-<U8CA0> \xAD\x74 |0
-<U8CA1> \xB0\x5D |0
-<U8CA2> \xB0\x5E |0
-<U8CA3> \xD3\xE2 |0
-<U8CA4> \xD3\xE1 |0
-<U8CA5> \xD7\xD2 |0
-<U8CA7> \xB3\x68 |0
-<U8CA8> \xB3\x66 |0
-<U8CA9> \xB3\x63 |0
-<U8CAA> \xB3\x67 |0
-<U8CAB> \xB3\x65 |0
-<U8CAC> \xB3\x64 |0
-<U8CAF> \xB6\x4A |0
-<U8CB0> \xDB\xEA |0
-<U8CB2> \xB8\xED |0
-<U8CB3> \xB6\x4C |0
-<U8CB4> \xB6\x51 |0
-<U8CB5> \xDB\xEC |0
-<U8CB6> \xB6\x53 |0
-<U8CB7> \xB6\x52 |0
-<U8CB8> \xB6\x55 |0
-<U8CB9> \xDB\xEB |0
-<U8CBA> \xDB\xE8 |0
-<U8CBB> \xB6\x4F |0
-<U8CBC> \xB6\x4B |0
-<U8CBD> \xB6\x4D |0
-<U8CBE> \xDB\xE9 |0
-<U8CBF> \xB6\x54 |0
-<U8CC0> \xB6\x50 |0
-<U8CC1> \xB6\x4E |0
-<U8CC2> \xB8\xEF |0
-<U8CC3> \xB8\xEE |0
-<U8CC4> \xB8\xEC |0
-<U8CC5> \xB8\xF0 |0
-<U8CC7> \xB8\xEA |0
-<U8CC8> \xB8\xEB |0
-<U8CCA> \xB8\xE9 |0
-<U8CCC> \xE0\x5B |0
-<U8CCF> \xE4\x54 |0
-<U8CD1> \xBB\xAC |0
-<U8CD2> \xBB\xAD |0
-<U8CD3> \xBB\xAB |0
-<U8CD5> \xE4\x53 |0
-<U8CD7> \xE4\x55 |0
-<U8CD9> \xE7\xEA |0
-<U8CDA> \xE7\xEC |0
-<U8CDC> \xBD\xE7 |0
-<U8CDD> \xE7\xED |0
-<U8CDE> \xBD\xE0 |0
-<U8CDF> \xE7\xE9 |0
-<U8CE0> \xBD\xDF |0
-<U8CE1> \xBD\xE9 |0
-<U8CE2> \xBD\xE5 |0
-<U8CE3> \xBD\xE6 |0
-<U8CE4> \xBD\xE2 |0
-<U8CE5> \xE7\xE8 |0
-<U8CE6> \xBD\xE1 |0
-<U8CE7> \xE7\xEE |0
-<U8CE8> \xE7\xEB |0
-<U8CEA> \xBD\xE8 |0
-<U8CEC> \xBD\xE3 |0
-<U8CED> \xBD\xE4 |0
-<U8CEE> \xEB\xB5 |0
-<U8CF0> \xEB\xB7 |0
-<U8CF1> \xEB\xB6 |0
-<U8CF3> \xEB\xB8 |0
-<U8CF4> \xBF\xE0 |0
-<U8CF5> \xEB\xB4 |0
-<U8CF8> \xC1\xCB |0
-<U8CF9> \xEE\xB8 |0
-<U8CFA> \xC1\xC8 |0
-<U8CFB> \xC1\xCC |0
-<U8CFC> \xC1\xCA |0
-<U8CFD> \xC1\xC9 |0
-<U8CFE> \xF0\xF3 |0
-<U8D00> \xF0\xF6 |0
-<U8D02> \xF0\xF5 |0
-<U8D04> \xF0\xF4 |0
-<U8D05> \xC2\xD8 |0
-<U8D06> \xF3\x48 |0
-<U8D07> \xF3\x49 |0
-<U8D08> \xC3\xD8 |0
-<U8D09> \xF3\x4A |0
-<U8D0A> \xC3\xD9 |0
-<U8D0D> \xC4\xBA |0
-<U8D0F> \xC4\xB9 |0
-<U8D10> \xF6\x52 |0
-<U8D13> \xC5\x42 |0
-<U8D14> \xF6\x53 |0
-<U8D15> \xF7\x5C |0
-<U8D16> \xC5\xAB |0
-<U8D17> \xC5\xAC |0
-<U8D19> \xF8\x45 |0
-<U8D1B> \xC6\x42 |0
-<U8D64> \xA8\xAA |0
-<U8D66> \xB3\x6A |0
-<U8D67> \xB3\x69 |0
-<U8D68> \xE0\x5C |0
-<U8D69> \xE0\x5D |0
-<U8D6B> \xBB\xAE |0
-<U8D6C> \xEB\xB9 |0
-<U8D6D> \xBD\xEA |0
-<U8D6E> \xEB\xBA |0
-<U8D6F> \xEE\xB9 |0
-<U8D70> \xA8\xAB |0
-<U8D72> \xD0\xB2 |0
-<U8D73> \xAD\x76 |0
-<U8D74> \xAD\x75 |0
-<U8D76> \xD3\xE3 |0
-<U8D77> \xB0\x5F |0
-<U8D78> \xD3\xE4 |0
-<U8D79> \xD7\xD5 |0
-<U8D7B> \xD7\xD4 |0
-<U8D7D> \xD7\xD3 |0
-<U8D80> \xDB\xEE |0
-<U8D81> \xB6\x58 |0
-<U8D84> \xDB\xED |0
-<U8D85> \xB6\x57 |0
-<U8D89> \xDB\xEF |0
-<U8D8A> \xB6\x56 |0
-<U8D8C> \xE0\x5F |0
-<U8D8D> \xE0\x62 |0
-<U8D8E> \xE0\x60 |0
-<U8D8F> \xE0\x61 |0
-<U8D90> \xE0\x65 |0
-<U8D91> \xE0\x5E |0
-<U8D92> \xE0\x66 |0
-<U8D93> \xE0\x63 |0
-<U8D94> \xE0\x64 |0
-<U8D95> \xBB\xB0 |0
-<U8D96> \xE4\x56 |0
-<U8D99> \xBB\xAF |0
-<U8D9B> \xE7\xF2 |0
-<U8D9C> \xE7\xF0 |0
-<U8D9F> \xBD\xEB |0
-<U8DA0> \xE7\xEF |0
-<U8DA1> \xE7\xF1 |0
-<U8DA3> \xBD\xEC |0
-<U8DA5> \xEB\xBB |0
-<U8DA7> \xEB\xBC |0
-<U8DA8> \xC1\xCD |0
-<U8DAA> \xF3\x4C |0
-<U8DAB> \xF3\x4E |0
-<U8DAC> \xF3\x4B |0
-<U8DAD> \xF3\x4D |0
-<U8DAE> \xF4\xD6 |0
-<U8DAF> \xF6\x54 |0
-<U8DB2> \xF9\x6F |0
-<U8DB3> \xA8\xAC |0
-<U8DB4> \xAD\x77 |0
-<U8DB5> \xD3\xE5 |0
-<U8DB6> \xD3\xE7 |0
-<U8DB7> \xD3\xE6 |0
-<U8DB9> \xD7\xD8 |0
-<U8DBA> \xB3\x6C |0
-<U8DBC> \xD7\xD6 |0
-<U8DBE> \xB3\x6B |0
-<U8DBF> \xD7\xD9 |0
-<U8DC1> \xD7\xDA |0
-<U8DC2> \xD7\xD7 |0
-<U8DC5> \xDB\xFB |0
-<U8DC6> \xB6\x60 |0
-<U8DC7> \xDB\xF3 |0
-<U8DC8> \xDB\xF9 |0
-<U8DCB> \xB6\x5B |0
-<U8DCC> \xB6\x5E |0
-<U8DCD> \xDB\xF2 |0
-<U8DCE> \xB6\x59 |0
-<U8DCF> \xDB\xF6 |0
-<U8DD0> \xE0\x6C |0
-<U8DD1> \xB6\x5D |0
-<U8DD3> \xDB\xF1 |0
-<U8DD5> \xDB\xF7 |0
-<U8DD6> \xDB\xF4 |0
-<U8DD7> \xDB\xFA |0
-<U8DD8> \xDB\xF0 |0
-<U8DD9> \xDB\xF8 |0
-<U8DDA> \xB6\x5C |0
-<U8DDB> \xB6\x5F |0
-<U8DDC> \xDB\xF5 |0
-<U8DDD> \xB6\x5A |0
-<U8DDF> \xB8\xF2 |0
-<U8DE0> \xE0\x68 |0
-<U8DE1> \xB8\xF1 |0
-<U8DE2> \xE0\x6F |0
-<U8DE3> \xE0\x6E |0
-<U8DE4> \xB8\xF8 |0
-<U8DE6> \xB8\xF9 |0
-<U8DE7> \xE0\x70 |0
-<U8DE8> \xB8\xF3 |0
-<U8DE9> \xE0\x6D |0
-<U8DEA> \xB8\xF7 |0
-<U8DEB> \xE0\x72 |0
-<U8DEC> \xE0\x69 |0
-<U8DEE> \xE0\x6B |0
-<U8DEF> \xB8\xF4 |0
-<U8DF0> \xE0\x67 |0
-<U8DF1> \xE0\x6A |0
-<U8DF2> \xE0\x71 |0
-<U8DF3> \xB8\xF5 |0
-<U8DF4> \xE0\x73 |0
-<U8DFA> \xB8\xF6 |0
-<U8DFC> \xBB\xB1 |0
-<U8DFD> \xE4\x5B |0
-<U8DFE> \xE4\x61 |0
-<U8DFF> \xE4\x59 |0
-<U8E00> \xE4\x62 |0
-<U8E02> \xE4\x58 |0
-<U8E03> \xE4\x5D |0
-<U8E04> \xE4\x63 |0
-<U8E05> \xE4\x60 |0
-<U8E06> \xE4\x5F |0
-<U8E07> \xE4\x5E |0
-<U8E09> \xE4\x57 |0
-<U8E0A> \xE4\x5C |0
-<U8E0D> \xE4\x5A |0
-<U8E0F> \xBD\xF1 |0
-<U8E10> \xBD\xEE |0
-<U8E11> \xE7\xFB |0
-<U8E12> \xE8\x41 |0
-<U8E13> \xE8\x43 |0
-<U8E14> \xE8\x40 |0
-<U8E15> \xE7\xF8 |0
-<U8E16> \xE7\xFA |0
-<U8E17> \xE8\x45 |0
-<U8E18> \xE8\x42 |0
-<U8E19> \xE7\xFC |0
-<U8E1A> \xE8\x46 |0
-<U8E1B> \xE7\xF9 |0
-<U8E1C> \xE8\x44 |0
-<U8E1D> \xBD\xEF |0
-<U8E1E> \xBD\xF5 |0
-<U8E1F> \xBD\xF3 |0
-<U8E20> \xE7\xF3 |0
-<U8E21> \xBD\xF4 |0
-<U8E22> \xBD\xF0 |0
-<U8E23> \xE7\xF4 |0
-<U8E24> \xE7\xF6 |0
-<U8E25> \xE7\xF5 |0
-<U8E26> \xE7\xFD |0
-<U8E27> \xE7\xFE |0
-<U8E29> \xBD\xF2 |0
-<U8E2B> \xBD\xED |0
-<U8E2E> \xE7\xF7 |0
-<U8E30> \xEB\xC6 |0
-<U8E31> \xBF\xE2 |0
-<U8E33> \xEB\xBD |0
-<U8E34> \xBF\xE3 |0
-<U8E35> \xBF\xE6 |0
-<U8E36> \xEB\xC2 |0
-<U8E38> \xEB\xBF |0
-<U8E39> \xBF\xE5 |0
-<U8E3C> \xEB\xC3 |0
-<U8E3D> \xEB\xC4 |0
-<U8E3E> \xEB\xBE |0
-<U8E3F> \xEB\xC7 |0
-<U8E40> \xEB\xC0 |0
-<U8E41> \xEB\xC5 |0
-<U8E42> \xBF\xE4 |0
-<U8E44> \xBF\xE1 |0
-<U8E45> \xEB\xC1 |0
-<U8E47> \xEE\xBF |0
-<U8E48> \xC1\xD0 |0
-<U8E49> \xC1\xCE |0
-<U8E4A> \xC1\xD1 |0
-<U8E4B> \xC1\xCF |0
-<U8E4C> \xEE\xBE |0
-<U8E4D> \xEE\xBB |0
-<U8E4E> \xEE\xBA |0
-<U8E50> \xEE\xBD |0
-<U8E53> \xEE\xBC |0
-<U8E54> \xF1\x45 |0
-<U8E55> \xC2\xDE |0
-<U8E56> \xF0\xFB |0
-<U8E57> \xF0\xFA |0
-<U8E59> \xC2\xD9 |0
-<U8E5A> \xF1\x41 |0
-<U8E5B> \xF1\x40 |0
-<U8E5C> \xF0\xF7 |0
-<U8E5D> \xF1\x43 |0
-<U8E5E> \xF0\xFC |0
-<U8E5F> \xC2\xDD |0
-<U8E60> \xF0\xF9 |0
-<U8E61> \xF1\x42 |0
-<U8E62> \xF0\xF8 |0
-<U8E63> \xC2\xDA |0
-<U8E64> \xC2\xDC |0
-<U8E65> \xF0\xFD |0
-<U8E66> \xC2\xDB |0
-<U8E67> \xF0\xFE |0
-<U8E69> \xF1\x44 |0
-<U8E6A> \xF3\x52 |0
-<U8E6C> \xC3\xDE |0
-<U8E6D> \xF3\x4F |0
-<U8E6F> \xF3\x53 |0
-<U8E72> \xC3\xDB |0
-<U8E73> \xF3\x51 |0
-<U8E74> \xC3\xE0 |0
-<U8E76> \xC3\xDD |0
-<U8E78> \xF3\x50 |0
-<U8E7A> \xC3\xDF |0
-<U8E7B> \xF3\x54 |0
-<U8E7C> \xC3\xDA |0
-<U8E81> \xC4\xBC |0
-<U8E82> \xC4\xBE |0
-<U8E84> \xF4\xD9 |0
-<U8E85> \xC4\xBD |0
-<U8E86> \xF4\xD7 |0
-<U8E87> \xC3\xDC |0
-<U8E88> \xF4\xD8 |0
-<U8E89> \xC4\xBB |0
-<U8E8A> \xC5\x43 |0
-<U8E8B> \xC5\x45 |0
-<U8E8C> \xF6\x56 |0
-<U8E8D> \xC5\x44 |0
-<U8E8E> \xF6\x55 |0
-<U8E90> \xF7\x61 |0
-<U8E91> \xC5\xAD |0
-<U8E92> \xF7\x60 |0
-<U8E93> \xC5\xAE |0
-<U8E94> \xF7\x5E |0
-<U8E95> \xF7\x5D |0
-<U8E96> \xF7\x62 |0
-<U8E97> \xF7\x63 |0
-<U8E98> \xF8\x46 |0
-<U8E9A> \xF7\x5F |0
-<U8E9D> \xF8\xC6 |0
-<U8E9E> \xF8\xC3 |0
-<U8E9F> \xF8\xC4 |0
-<U8EA0> \xF8\xC5 |0
-<U8EA1> \xC6\x5C |0
-<U8EA3> \xF9\x51 |0
-<U8EA4> \xF9\x50 |0
-<U8EA5> \xF9\x4F |0
-<U8EA6> \xF9\x70 |0
-<U8EA8> \xF9\xBE |0
-<U8EA9> \xF9\xAB |0
-<U8EAA> \xC6\x6E |0
-<U8EAB> \xA8\xAD |0
-<U8EAC> \xB0\x60 |0
-<U8EB2> \xB8\xFA |0
-<U8EBA> \xBD\xF6 |0
-<U8EBD> \xEB\xC8 |0
-<U8EC0> \xC2\xDF |0
-<U8EC2> \xF3\x55 |0
-<U8EC9> \xF9\xAC |0
-<U8ECA> \xA8\xAE |0
-<U8ECB> \xAA\xEE |0
-<U8ECC> \xAD\x79 |0
-<U8ECD> \xAD\x78 |0
-<U8ECF> \xB0\x63 |0
-<U8ED1> \xD3\xE8 |0
-<U8ED2> \xB0\x61 |0
-<U8ED3> \xD3\xE9 |0
-<U8ED4> \xB0\x62 |0
-<U8ED7> \xD7\xDF |0
-<U8ED8> \xD7\xDB |0
-<U8EDB> \xB3\x6D |0
-<U8EDC> \xD7\xDE |0
-<U8EDD> \xD7\xDD |0
-<U8EDE> \xD7\xDC |0
-<U8EDF> \xB3\x6E |0
-<U8EE0> \xD7\xE0 |0
-<U8EE1> \xD7\xE1 |0
-<U8EE5> \xDC\x43 |0
-<U8EE6> \xDC\x41 |0
-<U8EE7> \xDC\x45 |0
-<U8EE8> \xDC\x46 |0
-<U8EE9> \xDC\x4C |0
-<U8EEB> \xDC\x48 |0
-<U8EEC> \xDC\x4A |0
-<U8EEE> \xDC\x42 |0
-<U8EEF> \xDB\xFC |0
-<U8EF1> \xDC\x49 |0
-<U8EF4> \xDC\x4B |0
-<U8EF5> \xDC\x44 |0
-<U8EF6> \xDC\x47 |0
-<U8EF7> \xDB\xFD |0
-<U8EF8> \xB6\x62 |0
-<U8EF9> \xDC\x40 |0
-<U8EFA> \xDB\xFE |0
-<U8EFB> \xB6\x61 |0
-<U8EFC> \xB6\x63 |0
-<U8EFE> \xB8\xFD |0
-<U8EFF> \xE0\x75 |0
-<U8F00> \xE0\x77 |0
-<U8F01> \xE0\x76 |0
-<U8F02> \xE0\x7B |0
-<U8F03> \xB8\xFB |0
-<U8F05> \xE0\x78 |0
-<U8F06> \xE0\x74 |0
-<U8F07> \xE0\x79 |0
-<U8F08> \xE0\x7A |0
-<U8F09> \xB8\xFC |0
-<U8F0A> \xB8\xFE |0
-<U8F0B> \xE0\x7C |0
-<U8F0D> \xE4\x67 |0
-<U8F0E> \xE4\x66 |0
-<U8F10> \xE4\x64 |0
-<U8F11> \xE4\x65 |0
-<U8F12> \xBB\xB3 |0
-<U8F13> \xBB\xB5 |0
-<U8F14> \xBB\xB2 |0
-<U8F15> \xBB\xB4 |0
-<U8F16> \xE8\x4D |0
-<U8F17> \xE8\x4E |0
-<U8F18> \xE8\x49 |0
-<U8F1A> \xE8\x4A |0
-<U8F1B> \xBD\xF8 |0
-<U8F1C> \xBD\xFD |0
-<U8F1D> \xBD\xF7 |0
-<U8F1E> \xBD\xFE |0
-<U8F1F> \xBD\xF9 |0
-<U8F20> \xE8\x4B |0
-<U8F23> \xE8\x4C |0
-<U8F24> \xE8\x48 |0
-<U8F25> \xBE\x40 |0
-<U8F26> \xBD\xFB |0
-<U8F29> \xBD\xFA |0
-<U8F2A> \xBD\xFC |0
-<U8F2C> \xE8\x47 |0
-<U8F2E> \xEB\xCA |0
-<U8F2F> \xBF\xE8 |0
-<U8F32> \xEB\xCC |0
-<U8F33> \xBF\xEA |0
-<U8F34> \xEB\xCF |0
-<U8F35> \xEB\xCB |0
-<U8F36> \xEB\xC9 |0
-<U8F37> \xEB\xCE |0
-<U8F38> \xBF\xE9 |0
-<U8F39> \xEB\xCD |0
-<U8F3B> \xBF\xE7 |0
-<U8F3E> \xC1\xD3 |0
-<U8F3F> \xC1\xD6 |0
-<U8F40> \xEE\xC1 |0
-<U8F42> \xC1\xD4 |0
-<U8F43> \xEE\xC0 |0
-<U8F44> \xC1\xD2 |0
-<U8F45> \xC1\xD5 |0
-<U8F46> \xF1\x46 |0
-<U8F47> \xF1\x47 |0
-<U8F48> \xF1\x48 |0
-<U8F49> \xC2\xE0 |0
-<U8F4B> \xF1\x49 |0
-<U8F4D> \xC2\xE1 |0
-<U8F4E> \xC3\xE2 |0
-<U8F4F> \xF3\x58 |0
-<U8F50> \xF3\x59 |0
-<U8F51> \xF3\x57 |0
-<U8F52> \xF3\x56 |0
-<U8F53> \xF3\x5A |0
-<U8F54> \xC3\xE1 |0
-<U8F55> \xF4\xDD |0
-<U8F56> \xF4\xDB |0
-<U8F57> \xF4\xDC |0
-<U8F58> \xF4\xDE |0
-<U8F59> \xF4\xDA |0
-<U8F5A> \xF4\xDF |0
-<U8F5B> \xF6\x58 |0
-<U8F5D> \xF6\x59 |0
-<U8F5E> \xF6\x57 |0
-<U8F5F> \xC5\x46 |0
-<U8F60> \xF7\x64 |0
-<U8F61> \xC5\xAF |0
-<U8F62> \xF7\x65 |0
-<U8F63> \xF8\x48 |0
-<U8F64> \xF8\x47 |0
-<U8F9B> \xA8\xAF |0
-<U8F9C> \xB6\x64 |0
-<U8F9F> \xB9\x40 |0
-<U8FA3> \xBB\xB6 |0
-<U8FA6> \xBF\xEC |0
-<U8FA8> \xBF\xEB |0
-<U8FAD> \xC3\xE3 |0
-<U8FAE> \xC4\x7C |0
-<U8FAF> \xC5\x47 |0
-<U8FB0> \xA8\xB0 |0
-<U8FB1> \xB0\x64 |0
-<U8FB2> \xB9\x41 |0
-<U8FB4> \xF3\x5B |0
-<U8FBF> \xCB\xA6 |0
-<U8FC2> \xA8\xB1 |0
-<U8FC4> \xA8\xB4 |0
-<U8FC5> \xA8\xB3 |0
-<U8FC6> \xA8\xB2 |0
-<U8FC9> \xCB\xA5 |0
-<U8FCB> \xCD\xCD |0
-<U8FCD> \xCD\xCF |0
-<U8FCE> \xAA\xEF |0
-<U8FD1> \xAA\xF1 |0
-<U8FD2> \xCD\xCC |0
-<U8FD3> \xCD\xCE |0
-<U8FD4> \xAA\xF0 |0
-<U8FD5> \xCD\xD1 |0
-<U8FD6> \xCD\xD0 |0
-<U8FD7> \xCD\xD2 |0
-<U8FE0> \xD0\xB6 |0
-<U8FE1> \xD0\xB4 |0
-<U8FE2> \xAD\x7C |0
-<U8FE3> \xD0\xB3 |0
-<U8FE4> \xAD\xA3 |0
-<U8FE5> \xAD\x7E |0
-<U8FE6> \xAD\x7B |0
-<U8FE8> \xAD\xA4 |0
-<U8FEA> \xAD\x7D |0
-<U8FEB> \xAD\xA2 |0
-<U8FED> \xAD\xA1 |0
-<U8FEE> \xD0\xB5 |0
-<U8FF0> \xAD\x7A |0
-<U8FF4> \xB0\x6A |0
-<U8FF5> \xD3\xEB |0
-<U8FF6> \xD3\xF1 |0
-<U8FF7> \xB0\x67 |0
-<U8FF8> \xB0\x6E |0
-<U8FFA> \xB0\x69 |0
-<U8FFB> \xD3\xEE |0
-<U8FFC> \xD3\xF0 |0
-<U8FFD> \xB0\x6C |0
-<U8FFE> \xD3\xEA |0
-<U8FFF> \xD3\xED |0
-<U9000> \xB0\x68 |0
-<U9001> \xB0\x65 |0
-<U9002> \xD3\xEC |0
-<U9003> \xB0\x6B |0
-<U9004> \xD3\xEF |0
-<U9005> \xB0\x6D |0
-<U9006> \xB0\x66 |0
-<U900B> \xD7\xE3 |0
-<U900C> \xD7\xE6 |0
-<U900D> \xB3\x70 |0
-<U900F> \xB3\x7A |0
-<U9010> \xB3\x76 |0
-<U9011> \xD7\xE4 |0
-<U9014> \xB3\x7E |0
-<U9015> \xB3\x77 |0
-<U9016> \xB3\x7C |0
-<U9017> \xB3\x72 |0
-<U9019> \xB3\x6F |0
-<U901A> \xB3\x71 |0
-<U901B> \xB3\x7D |0
-<U901C> \xD7\xE5 |0
-<U901D> \xB3\x75 |0
-<U901E> \xB3\x78 |0
-<U901F> \xB3\x74 |0
-<U9020> \xB3\x79 |0
-<U9021> \xD7\xE7 |0
-<U9022> \xB3\x7B |0
-<U9023> \xB3\x73 |0
-<U9024> \xD7\xE2 |0
-<U902D> \xDC\x4D |0
-<U902E> \xB6\x65 |0
-<U902F> \xDC\x4F |0
-<U9031> \xB6\x67 |0
-<U9032> \xB6\x69 |0
-<U9034> \xDC\x4E |0
-<U9035> \xB6\x66 |0
-<U9036> \xB6\x6A |0
-<U9038> \xB6\x68 |0
-<U903C> \xB9\x47 |0
-<U903D> \xE0\xA3 |0
-<U903E> \xB9\x4F |0
-<U903F> \xE0\x7E |0
-<U9041> \xB9\x50 |0
-<U9042> \xB9\x45 |0
-<U9044> \xE0\xA1 |0
-<U9047> \xB9\x4A |0
-<U9049> \xE0\xA2 |0
-<U904A> \xB9\x43 |0
-<U904B> \xB9\x42 |0
-<U904D> \xB9\x4D |0
-<U904E> \xB9\x4C |0
-<U904F> \xB9\x4B |0
-<U9050> \xB9\x49 |0
-<U9051> \xB9\x4E |0
-<U9052> \xE0\x7D |0
-<U9053> \xB9\x44 |0
-<U9054> \xB9\x46 |0
-<U9055> \xB9\x48 |0
-<U9058> \xBB\xB8 |0
-<U9059> \xBB\xBB |0
-<U905B> \xBB\xBF |0
-<U905C> \xBB\xB9 |0
-<U905D> \xBB\xBE |0
-<U905E> \xBB\xBC |0
-<U9060> \xBB\xB7 |0
-<U9062> \xBB\xBD |0
-<U9063> \xBB\xBA |0
-<U9067> \xE8\x52 |0
-<U9068> \xBE\x43 |0
-<U9069> \xBE\x41 |0
-<U906B> \xE8\x53 |0
-<U906D> \xBE\x44 |0
-<U906E> \xBE\x42 |0
-<U906F> \xE8\x51 |0
-<U9070> \xE8\x50 |0
-<U9072> \xBF\xF0 |0
-<U9073> \xE8\x4F |0
-<U9074> \xBF\xEE |0
-<U9075> \xBF\xED |0
-<U9076> \xEB\xD0 |0
-<U9077> \xBE\x45 |0
-<U9078> \xBF\xEF |0
-<U9079> \xEB\xD1 |0
-<U907A> \xBF\xF2 |0
-<U907B> \xEB\xD2 |0
-<U907C> \xBF\xF1 |0
-<U907D> \xC1\xD8 |0
-<U907E> \xEE\xC3 |0
-<U907F> \xC1\xD7 |0
-<U9080> \xC1\xDC |0
-<U9081> \xC1\xDA |0
-<U9082> \xC1\xDB |0
-<U9083> \xC2\xE3 |0
-<U9084> \xC1\xD9 |0
-<U9085> \xEE\xC2 |0
-<U9086> \xEB\xD3 |0
-<U9087> \xC2\xE2 |0
-<U9088> \xC2\xE4 |0
-<U908A> \xC3\xE4 |0
-<U908B> \xC3\xE5 |0
-<U908D> \xF4\xE0 |0
-<U908F> \xC5\xDE |0
-<U9090> \xC5\xDD |0
-<U9091> \xA8\xB6 |0
-<U9094> \xCA\x55 |0
-<U9095> \xB0\x6F |0
-<U9097> \xCA\x52 |0
-<U9098> \xCA\x53 |0
-<U9099> \xCA\x51 |0
-<U909B> \xCA\x54 |0
-<U909E> \xCB\xAA |0
-<U909F> \xCB\xA7 |0
-<U90A0> \xCB\xAC |0
-<U90A1> \xCB\xA8 |0
-<U90A2> \xA8\xB7 |0
-<U90A3> \xA8\xBA |0
-<U90A5> \xCB\xA9 |0
-<U90A6> \xA8\xB9 |0
-<U90A7> \xCB\xAB |0
-<U90AA> \xA8\xB8 |0
-<U90AF> \xCD\xD5 |0
-<U90B0> \xCD\xD7 |0
-<U90B1> \xAA\xF4 |0
-<U90B2> \xCD\xD3 |0
-<U90B3> \xCD\xD6 |0
-<U90B4> \xCD\xD4 |0
-<U90B5> \xAA\xF2 |0
-<U90B6> \xAA\xF5 |0
-<U90B8> \xAA\xF3 |0
-<U90BD> \xD0\xB8 |0
-<U90BE> \xD0\xBC |0
-<U90BF> \xD0\xB9 |0
-<U90C1> \xAD\xA7 |0
-<U90C3> \xAD\xA8 |0
-<U90C5> \xD0\xBB |0
-<U90C7> \xD0\xBD |0
-<U90C8> \xD0\xBF |0
-<U90CA> \xAD\xA5 |0
-<U90CB> \xD0\xBE |0
-<U90CE> \xAD\xA6 |0
-<U90D4> \xD7\xEE |0
-<U90D5> \xD0\xBA |0
-<U90D6> \xD3\xF2 |0
-<U90D7> \xD3\xFB |0
-<U90D8> \xD3\xF9 |0
-<U90D9> \xD3\xF4 |0
-<U90DA> \xD3\xF5 |0
-<U90DB> \xD3\xFA |0
-<U90DC> \xD3\xFC |0
-<U90DD> \xB0\x71 |0
-<U90DF> \xD3\xF7 |0
-<U90E0> \xD3\xF3 |0
-<U90E1> \xB0\x70 |0
-<U90E2> \xB0\x72 |0
-<U90E3> \xD3\xF6 |0
-<U90E4> \xD3\xFD |0
-<U90E5> \xD3\xF8 |0
-<U90E8> \xB3\xA1 |0
-<U90E9> \xD7\xF1 |0
-<U90EA> \xD7\xE9 |0
-<U90EB> \xD7\xEF |0
-<U90EC> \xD7\xF0 |0
-<U90ED> \xB3\xA2 |0
-<U90EF> \xD7\xE8 |0
-<U90F0> \xD7\xEA |0
-<U90F1> \xD0\xB7 |0
-<U90F2> \xD7\xEC |0
-<U90F3> \xD7\xED |0
-<U90F4> \xD7\xEB |0
-<U90F5> \xB6\x6C |0
-<U90F9> \xDC\x56 |0
-<U90FA> \xEB\xD4 |0
-<U90FB> \xDC\x57 |0
-<U90FC> \xDC\x54 |0
-<U90FD> \xB3\xA3 |0
-<U90FE> \xB6\x6E |0
-<U90FF> \xDC\x53 |0
-<U9100> \xDC\x59 |0
-<U9101> \xDC\x58 |0
-<U9102> \xB6\x6B |0
-<U9103> \xDC\x5C |0
-<U9104> \xDC\x52 |0
-<U9105> \xDC\x5B |0
-<U9106> \xDC\x50 |0
-<U9107> \xDC\x5A |0
-<U9108> \xDC\x55 |0
-<U9109> \xB6\x6D |0
-<U910B> \xE0\xAA |0
-<U910D> \xE0\xA5 |0
-<U910E> \xE0\xAB |0
-<U910F> \xE0\xA6 |0
-<U9110> \xE0\xA4 |0
-<U9111> \xE0\xA7 |0
-<U9112> \xB9\x51 |0
-<U9114> \xE0\xA9 |0
-<U9116> \xE0\xA8 |0
-<U9117> \xB9\x52 |0
-<U9118> \xBB\xC1 |0
-<U9119> \xBB\xC0 |0
-<U911A> \xE4\x6E |0
-<U911B> \xE4\x71 |0
-<U911C> \xE4\x69 |0
-<U911D> \xE4\x6D |0
-<U911E> \xBB\xC2 |0
-<U911F> \xE4\x6C |0
-<U9120> \xE4\x6A |0
-<U9121> \xE4\x70 |0
-<U9122> \xE4\x6B |0
-<U9123> \xE4\x68 |0
-<U9124> \xE4\x6F |0
-<U9126> \xE8\x59 |0
-<U9127> \xBE\x48 |0
-<U9128> \xF1\x4A |0
-<U9129> \xE8\x56 |0
-<U912A> \xE8\x57 |0
-<U912B> \xE8\x55 |0
-<U912C> \xDC\x51 |0
-<U912D> \xBE\x47 |0
-<U912E> \xE8\x5A |0
-<U912F> \xE8\x54 |0
-<U9130> \xBE\x46 |0
-<U9131> \xBE\x49 |0
-<U9132> \xE8\x58 |0
-<U9133> \xEB\xD5 |0
-<U9134> \xBF\xF3 |0
-<U9135> \xEB\xD6 |0
-<U9136> \xEB\xD7 |0
-<U9138> \xEE\xC4 |0
-<U9139> \xC1\xDD |0
-<U913A> \xF1\x4B |0
-<U913B> \xF1\x4C |0
-<U913E> \xF1\x4D |0
-<U913F> \xF3\x5D |0
-<U9140> \xF3\x5C |0
-<U9141> \xF4\xE2 |0
-<U9143> \xF4\xE1 |0
-<U9144> \xF6\x5B |0
-<U9145> \xF6\x5C |0
-<U9146> \xF6\x5A |0
-<U9147> \xF7\x66 |0
-<U9148> \xC5\xB0 |0
-<U9149> \xA8\xBB |0
-<U914A> \xAD\xAA |0
-<U914B> \xAD\xA9 |0
-<U914C> \xB0\x75 |0
-<U914D> \xB0\x74 |0
-<U914E> \xD4\x40 |0
-<U914F> \xD4\x41 |0
-<U9150> \xD3\xFE |0
-<U9152> \xB0\x73 |0
-<U9153> \xD7\xF5 |0
-<U9155> \xD7\xF6 |0
-<U9156> \xD7\xF2 |0
-<U9157> \xB3\xA4 |0
-<U9158> \xD7\xF3 |0
-<U915A> \xD7\xF4 |0
-<U915F> \xDC\x5F |0
-<U9160> \xDC\x61 |0
-<U9161> \xDC\x5D |0
-<U9162> \xDC\x60 |0
-<U9163> \xB6\x6F |0
-<U9164> \xDC\x5E |0
-<U9165> \xB6\x70 |0
-<U9168> \xDD\x73 |0
-<U9169> \xB9\x55 |0
-<U916A> \xB9\x54 |0
-<U916C> \xB9\x53 |0
-<U916E> \xE0\xAC |0
-<U916F> \xE0\xAD |0
-<U9172> \xE4\x73 |0
-<U9173> \xE4\x75 |0
-<U9174> \xBB\xC6 |0
-<U9175> \xBB\xC3 |0
-<U9177> \xBB\xC5 |0
-<U9178> \xBB\xC4 |0
-<U9179> \xE4\x74 |0
-<U917A> \xE4\x72 |0
-<U9180> \xE8\x61 |0
-<U9181> \xE8\x5E |0
-<U9182> \xE8\x5F |0
-<U9183> \xBE\x4D |0
-<U9184> \xE8\x60 |0
-<U9185> \xE8\x5B |0
-<U9186> \xE8\x5C |0
-<U9187> \xBE\x4A |0
-<U9189> \xBE\x4B |0
-<U918A> \xE8\x5D |0
-<U918B> \xBE\x4C |0
-<U918D> \xEB\xDB |0
-<U918F> \xEB\xDC |0
-<U9190> \xEB\xD9 |0
-<U9191> \xEB\xDA |0
-<U9192> \xBF\xF4 |0
-<U9193> \xEB\xD8 |0
-<U9199> \xEE\xC8 |0
-<U919A> \xEE\xC5 |0
-<U919B> \xEE\xC7 |0
-<U919C> \xC1\xE0 |0
-<U919D> \xEE\xCB |0
-<U919E> \xC1\xDF |0
-<U919F> \xEE\xC9 |0
-<U91A0> \xEE\xCC |0
-<U91A1> \xEE\xCA |0
-<U91A2> \xEE\xC6 |0
-<U91A3> \xC1\xDE |0
-<U91A5> \xF1\x4F |0
-<U91A7> \xF1\x50 |0
-<U91A8> \xF1\x4E |0
-<U91AA> \xF1\x52 |0
-<U91AB> \xC2\xE5 |0
-<U91AC> \xC2\xE6 |0
-<U91AD> \xF3\x5F |0
-<U91AE> \xC3\xE7 |0
-<U91AF> \xF1\x51 |0
-<U91B0> \xF3\x5E |0
-<U91B1> \xC3\xE6 |0
-<U91B2> \xF4\xE5 |0
-<U91B3> \xF4\xE6 |0
-<U91B4> \xC4\xBF |0
-<U91B5> \xF4\xE4 |0
-<U91B7> \xF4\xE3 |0
-<U91B9> \xF6\x5D |0
-<U91BA> \xC5\x48 |0
-<U91BC> \xF8\x49 |0
-<U91BD> \xF8\xC8 |0
-<U91BE> \xF8\xC7 |0
-<U91C0> \xC6\x43 |0
-<U91C1> \xC6\x5D |0
-<U91C2> \xF8\xC9 |0
-<U91C3> \xF9\x71 |0
-<U91C5> \xC6\x6F |0
-<U91C6> \xA8\xBC |0
-<U91C7> \xAA\xF6 |0
-<U91C9> \xB9\x56 |0
-<U91CB> \xC4\xC0 |0
-<U91CC> \xA8\xBD |0
-<U91CD> \xAD\xAB |0
-<U91CE> \xB3\xA5 |0
-<U91CF> \xB6\x71 |0
-<U91D0> \xC2\xE7 |0
-<U91D1> \xAA\xF7 |0
-<U91D3> \xD0\xC1 |0
-<U91D4> \xD0\xC0 |0
-<U91D5> \xD4\x42 |0
-<U91D7> \xB0\x78 |0
-<U91D8> \xB0\x76 |0
-<U91D9> \xB0\x7A |0
-<U91DA> \xD4\x44 |0
-<U91DC> \xB0\x79 |0
-<U91DD> \xB0\x77 |0
-<U91E2> \xD4\x43 |0
-<U91E3> \xB3\xA8 |0
-<U91E4> \xD7\xFC |0
-<U91E6> \xB3\xA7 |0
-<U91E7> \xB3\xA9 |0
-<U91E8> \xD8\x42 |0
-<U91E9> \xB3\xAB |0
-<U91EA> \xD7\xFE |0
-<U91EB> \xD8\x40 |0
-<U91EC> \xD7\xF7 |0
-<U91ED> \xB3\xAA |0
-<U91EE> \xD8\x43 |0
-<U91F1> \xD7\xF9 |0
-<U91F3> \xD7\xFA |0
-<U91F4> \xD7\xF8 |0
-<U91F5> \xB3\xA6 |0
-<U91F7> \xD8\x41 |0
-<U91F8> \xD7\xFB |0
-<U91F9> \xD7\xFD |0
-<U91FD> \xDC\x6D |0
-<U91FF> \xDC\x6C |0
-<U9200> \xDC\x6A |0
-<U9201> \xDC\x62 |0
-<U9202> \xDC\x71 |0
-<U9203> \xDC\x65 |0
-<U9204> \xDC\x6F |0
-<U9205> \xDC\x76 |0
-<U9206> \xDC\x6E |0
-<U9207> \xB6\x79 |0
-<U9209> \xB6\x75 |0
-<U920A> \xDC\x63 |0
-<U920C> \xDC\x69 |0
-<U920D> \xB6\x77 |0
-<U920F> \xDC\x68 |0
-<U9210> \xB6\x78 |0
-<U9211> \xB6\x7A |0
-<U9212> \xDC\x6B |0
-<U9214> \xB6\x72 |0
-<U9215> \xB6\x73 |0
-<U9216> \xDC\x77 |0
-<U9217> \xDC\x75 |0
-<U9219> \xDC\x74 |0
-<U921A> \xDC\x66 |0
-<U921C> \xDC\x72 |0
-<U921E> \xB6\x76 |0
-<U9223> \xB6\x74 |0
-<U9224> \xDC\x73 |0
-<U9225> \xDC\x64 |0
-<U9226> \xDC\x67 |0
-<U9227> \xDC\x70 |0
-<U922D> \xE4\xBA |0
-<U922E> \xE0\xB7 |0
-<U9230> \xE0\xB0 |0
-<U9231> \xE0\xC3 |0
-<U9232> \xE0\xCC |0
-<U9233> \xE0\xB3 |0
-<U9234> \xB9\x61 |0
-<U9236> \xE0\xC0 |0
-<U9237> \xB9\x57 |0
-<U9238> \xB9\x59 |0
-<U9239> \xB9\x65 |0
-<U923A> \xE0\xB1 |0
-<U923D> \xB9\x5A |0
-<U923E> \xB9\x5C |0
-<U923F> \xB9\x66 |0
-<U9240> \xB9\x5B |0
-<U9245> \xB9\x64 |0
-<U9246> \xE0\xB9 |0
-<U9248> \xE0\xAE |0
-<U9249> \xB9\x62 |0
-<U924A> \xE0\xB8 |0
-<U924B> \xB9\x5E |0
-<U924C> \xE0\xCA |0
-<U924D> \xB9\x63 |0
-<U924E> \xE0\xC8 |0
-<U924F> \xE0\xBC |0
-<U9250> \xE0\xC6 |0
-<U9251> \xB9\x60 |0
-<U9252> \xE0\xAF |0
-<U9253> \xE0\xC9 |0
-<U9254> \xE0\xC4 |0
-<U9256> \xE0\xCB |0
-<U9257> \xB9\x58 |0
-<U925A> \xB9\x67 |0
-<U925B> \xB9\x5D |0
-<U925E> \xE0\xB5 |0
-<U9260> \xE0\xBD |0
-<U9261> \xE0\xC1 |0
-<U9263> \xE0\xC5 |0
-<U9264> \xB9\x5F |0
-<U9265> \xE0\xB4 |0
-<U9266> \xE0\xB2 |0
-<U9267> \xE0\xBE |0
-<U926C> \xE0\xBB |0
-<U926D> \xE0\xBA |0
-<U926F> \xE0\xBF |0
-<U9270> \xE0\xC2 |0
-<U9272> \xE0\xC7 |0
-<U9276> \xE4\x78 |0
-<U9278> \xBB\xC7 |0
-<U9279> \xE4\xA4 |0
-<U927A> \xE4\x7A |0
-<U927B> \xBB\xCC |0
-<U927C> \xBB\xD0 |0
-<U927D> \xE4\xAD |0
-<U927E> \xE4\xB5 |0
-<U927F> \xE4\xA6 |0
-<U9280> \xBB\xC8 |0
-<U9282> \xE4\xAA |0
-<U9283> \xE0\xB6 |0
-<U9285> \xBB\xC9 |0
-<U9286> \xE4\xB1 |0
-<U9287> \xE4\xB6 |0
-<U9288> \xE4\xAE |0
-<U928A> \xE4\xB0 |0
-<U928B> \xE4\xB9 |0
-<U928C> \xE4\xB2 |0
-<U928D> \xE4\x7E |0
-<U928E> \xE4\xA9 |0
-<U9291> \xBB\xD1 |0
-<U9293> \xBB\xCD |0
-<U9294> \xE4\x7C |0
-<U9295> \xE4\xAB |0
-<U9296> \xBB\xCB |0
-<U9297> \xE4\xA5 |0
-<U9298> \xBB\xCA |0
-<U9299> \xE4\xB3 |0
-<U929A> \xE4\xA2 |0
-<U929B> \xE4\x79 |0
-<U929C> \xBB\xCE |0
-<U929D> \xE4\xB8 |0
-<U92A0> \xE4\x7B |0
-<U92A1> \xE4\xAF |0
-<U92A2> \xE4\xAC |0
-<U92A3> \xE4\xA7 |0
-<U92A4> \xE4\x77 |0
-<U92A5> \xE4\x76 |0
-<U92A6> \xE4\xA1 |0
-<U92A7> \xE4\xB4 |0
-<U92A8> \xBB\xCF |0
-<U92A9> \xE4\xB7 |0
-<U92AA> \xE4\x7D |0
-<U92AB> \xE4\xA3 |0
-<U92AC> \xBE\x52 |0
-<U92B2> \xBE\x5A |0
-<U92B3> \xBE\x55 |0
-<U92B4> \xE8\xA4 |0
-<U92B5> \xE8\xA1 |0
-<U92B6> \xE8\x67 |0
-<U92B7> \xBE\x50 |0
-<U92B9> \xF9\xD7 |0
-<U92BB> \xBE\x4F |0
-<U92BC> \xBE\x56 |0
-<U92C0> \xE8\x65 |0
-<U92C1> \xBE\x54 |0
-<U92C2> \xE8\x71 |0
-<U92C3> \xE8\x63 |0
-<U92C4> \xE8\x64 |0
-<U92C5> \xBE\x4E |0
-<U92C6> \xE8\xA3 |0
-<U92C7> \xBE\x58 |0
-<U92C8> \xE8\x74 |0
-<U92C9> \xE8\x79 |0
-<U92CA> \xE8\x73 |0
-<U92CB> \xEB\xEE |0
-<U92CC> \xE8\x6F |0
-<U92CD> \xE8\x77 |0
-<U92CE> \xE8\x75 |0
-<U92CF> \xE8\x68 |0
-<U92D0> \xE8\x62 |0
-<U92D1> \xE8\x7D |0
-<U92D2> \xBE\x57 |0
-<U92D3> \xE8\x7E |0
-<U92D5> \xE8\x78 |0
-<U92D7> \xE8\x6D |0
-<U92D8> \xE8\x6B |0
-<U92D9> \xE8\x66 |0
-<U92DD> \xE8\x6E |0
-<U92DE> \xE8\x7B |0
-<U92DF> \xE8\x6A |0
-<U92E0> \xE8\x7A |0
-<U92E1> \xE8\xA2 |0
-<U92E4> \xBE\x53 |0
-<U92E6> \xE8\x76 |0
-<U92E7> \xE8\x7C |0
-<U92E8> \xE8\x72 |0
-<U92E9> \xE8\x6C |0
-<U92EA> \xBE\x51 |0
-<U92EE> \xE4\xA8 |0
-<U92EF> \xE8\x70 |0
-<U92F0> \xBE\x59 |0
-<U92F1> \xE8\x69 |0
-<U92F7> \xEB\xF4 |0
-<U92F8> \xBF\xF7 |0
-<U92F9> \xEB\xF3 |0
-<U92FA> \xEB\xF0 |0
-<U92FB> \xEC\x44 |0
-<U92FC> \xBF\xFB |0
-<U92FE> \xEC\x41 |0
-<U92FF> \xEB\xF8 |0
-<U9300> \xEC\x43 |0
-<U9301> \xEB\xE9 |0
-<U9302> \xEB\xF6 |0
-<U9304> \xBF\xFD |0
-<U9306> \xEB\xE1 |0
-<U9308> \xEB\xDF |0
-<U9309> \xEC\x42 |0
-<U930B> \xEC\x40 |0
-<U930C> \xEB\xFE |0
-<U930D> \xEB\xED |0
-<U930E> \xEB\xEC |0
-<U930F> \xEB\xE2 |0
-<U9310> \xC0\x40 |0
-<U9312> \xEB\xE8 |0
-<U9313> \xEB\xF2 |0
-<U9314> \xEB\xFD |0
-<U9315> \xC0\x43 |0
-<U9316> \xEC\x45 |0
-<U9318> \xC1\xE8 |0
-<U9319> \xC0\x45 |0
-<U931A> \xBF\xFE |0
-<U931B> \xEB\xE6 |0
-<U931D> \xEB\xEF |0
-<U931E> \xEB\xDE |0
-<U931F> \xEB\xE0 |0
-<U9320> \xBF\xF5 |0
-<U9321> \xC0\x42 |0
-<U9322> \xBF\xFA |0
-<U9323> \xEB\xE7 |0
-<U9324> \xEB\xF7 |0
-<U9325> \xEB\xF1 |0
-<U9326> \xC0\x41 |0
-<U9327> \xEB\xDD |0
-<U9328> \xC1\xE3 |0
-<U9329> \xEB\xF9 |0
-<U932A> \xEB\xFC |0
-<U932B> \xBF\xFC |0
-<U932D> \xEB\xEB |0
-<U932E> \xC0\x44 |0
-<U932F> \xBF\xF9 |0
-<U9333> \xBF\xF8 |0
-<U9334> \xEB\xF5 |0
-<U9335> \xEB\xFB |0
-<U9336> \xBF\xF6 |0
-<U9338> \xEB\xE4 |0
-<U9339> \xEB\xFA |0
-<U933C> \xEB\xE5 |0
-<U9346> \xEB\xEA |0
-<U9347> \xEE\xD2 |0
-<U9349> \xEE\xD7 |0
-<U934A> \xC1\xE5 |0
-<U934B> \xC1\xE7 |0
-<U934C> \xEE\xDD |0
-<U934D> \xC1\xE1 |0
-<U934E> \xEE\xEC |0
-<U934F> \xEE\xE3 |0
-<U9350> \xEE\xD8 |0
-<U9351> \xEE\xD9 |0
-<U9352> \xEE\xE2 |0
-<U9354> \xC1\xEE |0
-<U9355> \xEE\xE1 |0
-<U9356> \xEE\xD1 |0
-<U9357> \xEE\xE0 |0
-<U9358> \xEE\xD4 |0
-<U9359> \xEE\xED |0
-<U935A> \xC1\xED |0
-<U935B> \xC1\xEB |0
-<U935C> \xEE\xD5 |0
-<U935E> \xEE\xE8 |0
-<U9360> \xEE\xDA |0
-<U9361> \xEE\xE7 |0
-<U9363> \xEE\xE9 |0
-<U9364> \xEE\xD0 |0
-<U9365> \xC1\xE6 |0
-<U9367> \xEE\xEA |0
-<U936A> \xEE\xDE |0
-<U936C> \xC1\xEA |0
-<U936D> \xEE\xDB |0
-<U9370> \xC1\xEC |0
-<U9371> \xEE\xE4 |0
-<U9375> \xC1\xE4 |0
-<U9376> \xEE\xD6 |0
-<U9377> \xEE\xE5 |0
-<U9379> \xEE\xDF |0
-<U937A> \xEB\xE3 |0
-<U937B> \xEE\xE6 |0
-<U937C> \xEE\xD3 |0
-<U937E> \xC1\xE9 |0
-<U9380> \xEE\xEB |0
-<U9382> \xC1\xE2 |0
-<U9383> \xEE\xCE |0
-<U9388> \xF1\x60 |0
-<U9389> \xF1\x59 |0
-<U938A> \xC2\xE9 |0
-<U938C> \xF1\x54 |0
-<U938D> \xF1\x63 |0
-<U938E> \xF1\x5B |0
-<U938F> \xEE\xDC |0
-<U9391> \xF1\x65 |0
-<U9392> \xF1\x55 |0
-<U9394> \xC2\xE8 |0
-<U9395> \xF1\x5F |0
-<U9396> \xC2\xEA |0
-<U9397> \xC2\xF2 |0
-<U9398> \xC2\xF0 |0
-<U9399> \xF1\x61 |0
-<U939A> \xC2\xF1 |0
-<U939B> \xF1\x57 |0
-<U939D> \xF1\x58 |0
-<U939E> \xF1\x5D |0
-<U939F> \xF1\x62 |0
-<U93A1> \xEE\xCD |0
-<U93A2> \xC2\xEB |0
-<U93A3> \xF1\x6A |0
-<U93A4> \xF1\x67 |0
-<U93A5> \xF1\x6B |0
-<U93A6> \xF1\x5E |0
-<U93A7> \xF1\x5A |0
-<U93A8> \xF1\x68 |0
-<U93A9> \xF3\x6A |0
-<U93AA> \xF1\x5C |0
-<U93AC> \xC2\xEE |0
-<U93AE> \xC2\xED |0
-<U93AF> \xEE\xCF |0
-<U93B0> \xC2\xEF |0
-<U93B1> \xF1\x64 |0
-<U93B2> \xF1\x66 |0
-<U93B3> \xC2\xEC |0
-<U93B4> \xF1\x69 |0
-<U93B5> \xF1\x53 |0
-<U93B7> \xF1\x56 |0
-<U93C0> \xF3\x73 |0
-<U93C2> \xF3\x63 |0
-<U93C3> \xC3\xEB |0
-<U93C4> \xF3\x71 |0
-<U93C7> \xF3\x61 |0
-<U93C8> \xC3\xEC |0
-<U93CA> \xF3\x6C |0
-<U93CC> \xF3\x68 |0
-<U93CD> \xC3\xF1 |0
-<U93CE> \xF3\x72 |0
-<U93CF> \xF3\x62 |0
-<U93D0> \xF3\x65 |0
-<U93D1> \xC3\xE9 |0
-<U93D2> \xF3\x74 |0
-<U93D4> \xF3\x6D |0
-<U93D5> \xF3\x70 |0
-<U93D6> \xC3\xEF |0
-<U93D7> \xC3\xF4 |0
-<U93D8> \xC3\xF2 |0
-<U93D9> \xF3\x69 |0
-<U93DA> \xF3\x64 |0
-<U93DC> \xC3\xED |0
-<U93DD> \xC3\xEE |0
-<U93DE> \xF3\x60 |0
-<U93DF> \xC3\xEA |0
-<U93E1> \xC3\xE8 |0
-<U93E2> \xC3\xF0 |0
-<U93E3> \xF3\x6F |0
-<U93E4> \xC3\xF3 |0
-<U93E6> \xF3\x6B |0
-<U93E7> \xF3\x75 |0
-<U93E8> \xC3\xF5 |0
-<U93EC> \xF3\x67 |0
-<U93EE> \xF3\x6E |0
-<U93F5> \xF4\xF3 |0
-<U93F6> \xF5\x42 |0
-<U93F7> \xF4\xF5 |0
-<U93F8> \xF4\xFC |0
-<U93F9> \xF3\x66 |0
-<U93FA> \xF4\xFA |0
-<U93FB> \xF4\xE9 |0
-<U93FC> \xF5\x40 |0
-<U93FD> \xC4\xC3 |0
-<U93FE> \xF4\xED |0
-<U93FF> \xF4\xFE |0
-<U9400> \xF4\xF4 |0
-<U9403> \xC4\xC2 |0
-<U9406> \xF5\x44 |0
-<U9407> \xF4\xF6 |0
-<U9409> \xF4\xFB |0
-<U940A> \xF4\xFD |0
-<U940B> \xF4\xE7 |0
-<U940C> \xF5\x41 |0
-<U940D> \xF4\xF2 |0
-<U940E> \xF4\xF7 |0
-<U940F> \xF4\xEB |0
-<U9410> \xF4\xEF |0
-<U9411> \xF5\x43 |0
-<U9412> \xF4\xF9 |0
-<U9413> \xF4\xE8 |0
-<U9414> \xF4\xEC |0
-<U9415> \xF4\xEE |0
-<U9416> \xF4\xF8 |0
-<U9418> \xC4\xC1 |0
-<U9419> \xF4\xF1 |0
-<U9420> \xF4\xEA |0
-<U9428> \xF4\xF0 |0
-<U9429> \xF6\x61 |0
-<U942A> \xF6\x66 |0
-<U942B> \xC5\x4F |0
-<U942C> \xF6\x68 |0
-<U942E> \xC5\x49 |0
-<U9430> \xF6\x64 |0
-<U9431> \xF6\x6A |0
-<U9432> \xC5\x4E |0
-<U9433> \xC5\x4A |0
-<U9435> \xC5\x4B |0
-<U9436> \xF6\x60 |0
-<U9437> \xF6\x67 |0
-<U9438> \xC5\x4D |0
-<U9439> \xF6\x65 |0
-<U943A> \xC5\x4C |0
-<U943B> \xF6\x5F |0
-<U943C> \xF6\x63 |0
-<U943D> \xF6\x62 |0
-<U943F> \xF6\x5E |0
-<U9440> \xF6\x69 |0
-<U9444> \xC5\xB1 |0
-<U9445> \xF7\x6D |0
-<U9446> \xF7\x70 |0
-<U9447> \xF7\x6C |0
-<U9448> \xF7\x6E |0
-<U9449> \xF7\x6F |0
-<U944A> \xF7\x69 |0
-<U944B> \xF7\x6A |0
-<U944C> \xF7\x67 |0
-<U944F> \xF7\x6B |0
-<U9450> \xF7\x68 |0
-<U9451> \xC5\xB2 |0
-<U9452> \xC5\xB3 |0
-<U9455> \xF8\x4B |0
-<U9457> \xF8\x4D |0
-<U945D> \xF8\x4C |0
-<U945E> \xF8\x4E |0
-<U9460> \xC5\xE0 |0
-<U9462> \xF8\x4A |0
-<U9463> \xC5\xDF |0
-<U9464> \xC5\xE1 |0
-<U9468> \xF8\xCB |0
-<U9469> \xF8\xCC |0
-<U946A> \xC6\x44 |0
-<U946B> \xF8\xCA |0
-<U946D> \xF9\x53 |0
-<U946E> \xF9\x52 |0
-<U946F> \xF9\x54 |0
-<U9470> \xC6\x5F |0
-<U9471> \xF9\x55 |0
-<U9472> \xC6\x5E |0
-<U9473> \xF9\x56 |0
-<U9474> \xF9\x72 |0
-<U9475> \xF9\x75 |0
-<U9476> \xF9\x74 |0
-<U9477> \xC6\x68 |0
-<U9478> \xF9\x73 |0
-<U947C> \xC6\x72 |0
-<U947D> \xC6\x70 |0
-<U947E> \xC6\x71 |0
-<U947F> \xC6\x77 |0
-<U9480> \xF9\xC0 |0
-<U9481> \xF9\xC1 |0
-<U9482> \xF9\xBF |0
-<U9483> \xF9\xC9 |0
-<U9577> \xAA\xF8 |0
-<U957A> \xD8\x44 |0
-<U957B> \xDC\x78 |0
-<U957C> \xE8\xA5 |0
-<U957D> \xF3\x76 |0
-<U9580> \xAA\xF9 |0
-<U9582> \xAD\xAC |0
-<U9583> \xB0\x7B |0
-<U9586> \xD8\x45 |0
-<U9588> \xD8\x46 |0
-<U9589> \xB3\xAC |0
-<U958B> \xB6\x7D |0
-<U958C> \xDC\x7A |0
-<U958D> \xDC\x79 |0
-<U958E> \xB6\xA3 |0
-<U958F> \xB6\x7C |0
-<U9590> \xDC\x7B |0
-<U9591> \xB6\x7E |0
-<U9592> \xB6\xA2 |0
-<U9593> \xB6\xA1 |0
-<U9594> \xB6\x7B |0
-<U9598> \xB9\x68 |0
-<U959B> \xE0\xD0 |0
-<U959C> \xE0\xCE |0
-<U959E> \xE0\xCF |0
-<U959F> \xE0\xCD |0
-<U95A1> \xBB\xD2 |0
-<U95A3> \xBB\xD5 |0
-<U95A4> \xBB\xD7 |0
-<U95A5> \xBB\xD6 |0
-<U95A8> \xBB\xD3 |0
-<U95A9> \xBB\xD4 |0
-<U95AB> \xE8\xA7 |0
-<U95AC> \xE8\xA6 |0
-<U95AD> \xBE\x5B |0
-<U95AE> \xE8\xA8 |0
-<U95B0> \xE8\xA9 |0
-<U95B1> \xBE\x5C |0
-<U95B5> \xEC\x4D |0
-<U95B6> \xEC\x4B |0
-<U95B7> \xEE\xF3 |0
-<U95B9> \xEC\x49 |0
-<U95BA> \xEC\x4A |0
-<U95BB> \xC0\x46 |0
-<U95BC> \xEC\x46 |0
-<U95BD> \xEC\x4E |0
-<U95BE> \xEC\x48 |0
-<U95BF> \xEC\x4C |0
-<U95C0> \xEE\xEF |0
-<U95C3> \xEE\xF1 |0
-<U95C5> \xEE\xF2 |0
-<U95C6> \xC1\xF3 |0
-<U95C7> \xEE\xEE |0
-<U95C8> \xC1\xF2 |0
-<U95C9> \xEE\xF0 |0
-<U95CA> \xC1\xEF |0
-<U95CB> \xC1\xF0 |0
-<U95CC> \xC1\xF1 |0
-<U95CD> \xEC\x47 |0
-<U95D0> \xC2\xF5 |0
-<U95D1> \xF1\x6E |0
-<U95D2> \xF1\x6C |0
-<U95D3> \xF1\x6D |0
-<U95D4> \xC2\xF3 |0
-<U95D5> \xC2\xF6 |0
-<U95D6> \xC2\xF4 |0
-<U95DA> \xF3\x77 |0
-<U95DB> \xF3\x78 |0
-<U95DC> \xC3\xF6 |0
-<U95DE> \xF5\x45 |0
-<U95DF> \xF5\x47 |0
-<U95E0> \xF5\x46 |0
-<U95E1> \xC4\xC4 |0
-<U95E2> \xC5\x50 |0
-<U95E3> \xF6\x6D |0
-<U95E4> \xF6\x6C |0
-<U95E5> \xF6\x6B |0
-<U961C> \xAA\xFA |0
-<U961E> \xC9\xAA |0
-<U9620> \xCA\x58 |0
-<U9621> \xA6\xE9 |0
-<U9622> \xCA\x56 |0
-<U9623> \xCA\x59 |0
-<U9624> \xCA\x57 |0
-<U9628> \xCB\xAE |0
-<U962A> \xA8\xC1 |0
-<U962C> \xA8\xC2 |0
-<U962D> \xCB\xB0 |0
-<U962E> \xA8\xBF |0
-<U962F> \xCB\xAF |0
-<U9630> \xCB\xAD |0
-<U9631> \xA8\xC0 |0
-<U9632> \xA8\xBE |0
-<U9639> \xCD\xD8 |0
-<U963A> \xCD\xDB |0
-<U963B> \xAA\xFD |0
-<U963C> \xCD\xDA |0
-<U963D> \xCD\xD9 |0
-<U963F> \xAA\xFC |0
-<U9640> \xAA\xFB |0
-<U9642> \xAB\x40 |0
-<U9643> \xCD\xDC |0
-<U9644> \xAA\xFE |0
-<U964A> \xD0\xC6 |0
-<U964B> \xAD\xAE |0
-<U964C> \xAD\xAF |0
-<U964D> \xAD\xB0 |0
-<U964E> \xD0\xC7 |0
-<U964F> \xD0\xC3 |0
-<U9650> \xAD\xAD |0
-<U9651> \xD0\xC4 |0
-<U9653> \xD0\xC5 |0
-<U9654> \xD0\xC2 |0
-<U9658> \xB0\xA4 |0
-<U965B> \xB0\xA1 |0
-<U965C> \xD4\x45 |0
-<U965D> \xB0\xA2 |0
-<U965E> \xB0\xA5 |0
-<U965F> \xD4\x46 |0
-<U9661> \xB0\x7E |0
-<U9662> \xB0\x7C |0
-<U9663> \xB0\x7D |0
-<U9664> \xB0\xA3 |0
-<U966A> \xB3\xAD |0
-<U966B> \xD8\x49 |0
-<U966C> \xB3\xB5 |0
-<U966D> \xD8\x48 |0
-<U966F> \xD8\x4B |0
-<U9670> \xB3\xB1 |0
-<U9671> \xD8\x4A |0
-<U9672> \xB6\xAB |0
-<U9673> \xB3\xAF |0
-<U9674> \xB3\xB2 |0
-<U9675> \xB3\xAE |0
-<U9676> \xB3\xB3 |0
-<U9677> \xB3\xB4 |0
-<U9678> \xB3\xB0 |0
-<U967C> \xD8\x47 |0
-<U967D> \xB6\xA7 |0
-<U967E> \xDC\x7D |0
-<U9680> \xDC\xA3 |0
-<U9683> \xDC\xA2 |0
-<U9684> \xB6\xAC |0
-<U9685> \xB6\xA8 |0
-<U9686> \xB6\xA9 |0
-<U9687> \xDC\x7C |0
-<U9688> \xDC\x7E |0
-<U9689> \xDC\xA1 |0
-<U968A> \xB6\xA4 |0
-<U968B> \xB6\xA6 |0
-<U968D> \xB6\xAA |0
-<U968E> \xB6\xA5 |0
-<U9691> \xE0\xD3 |0
-<U9692> \xE0\xD1 |0
-<U9693> \xE0\xD2 |0
-<U9694> \xB9\x6A |0
-<U9695> \xB9\x6B |0
-<U9697> \xE0\xD4 |0
-<U9698> \xB9\x69 |0
-<U9699> \xBB\xD8 |0
-<U969B> \xBB\xDA |0
-<U969C> \xBB\xD9 |0
-<U969E> \xE4\xBB |0
-<U96A1> \xE4\xBC |0
-<U96A2> \xE8\xAB |0
-<U96A4> \xE8\xAA |0
-<U96A7> \xC0\x47 |0
-<U96A8> \xC0\x48 |0
-<U96A9> \xEC\x4F |0
-<U96AA> \xC0\x49 |0
-<U96AC> \xEE\xF6 |0
-<U96AE> \xEE\xF4 |0
-<U96B0> \xEE\xF5 |0
-<U96B1> \xC1\xF4 |0
-<U96B3> \xF1\x6F |0
-<U96B4> \xC3\xF7 |0
-<U96B8> \xC1\xF5 |0
-<U96B9> \xAB\x41 |0
-<U96BB> \xB0\xA6 |0
-<U96BC> \xD4\x47 |0
-<U96BF> \xD8\x4C |0
-<U96C0> \xB3\xB6 |0
-<U96C1> \xB6\xAD |0
-<U96C2> \xDC\xA4 |0
-<U96C3> \xDC\xA6 |0
-<U96C4> \xB6\xAF |0
-<U96C5> \xB6\xAE |0
-<U96C6> \xB6\xB0 |0
-<U96C7> \xB6\xB1 |0
-<U96C8> \xDC\xA5 |0
-<U96C9> \xB9\x6E |0
-<U96CA> \xB9\x6F |0
-<U96CB> \xB9\x6D |0
-<U96CC> \xBB\xDB |0
-<U96CD> \xB9\x6C |0
-<U96CE> \xE0\xD5 |0
-<U96D2> \xBB\xDC |0
-<U96D3> \xE8\xAC |0
-<U96D4> \xEC\x50 |0
-<U96D5> \xC0\x4A |0
-<U96D6> \xC1\xF6 |0
-<U96D7> \xF1\x70 |0
-<U96D8> \xF1\x74 |0
-<U96D9> \xC2\xF9 |0
-<U96DA> \xF1\x71 |0
-<U96DB> \xC2\xFA |0
-<U96DC> \xC2\xF8 |0
-<U96DD> \xF1\x75 |0
-<U96DE> \xC2\xFB |0
-<U96DF> \xF1\x73 |0
-<U96E1> \xF3\x79 |0
-<U96E2> \xC2\xF7 |0
-<U96E3> \xC3\xF8 |0
-<U96E5> \xF8\xCD |0
-<U96E8> \xAB\x42 |0
-<U96E9> \xB3\xB8 |0
-<U96EA> \xB3\xB7 |0
-<U96EF> \xB6\xB2 |0
-<U96F0> \xDC\xA8 |0
-<U96F1> \xDC\xA7 |0
-<U96F2> \xB6\xB3 |0
-<U96F5> \xE0\xD9 |0
-<U96F6> \xB9\x73 |0
-<U96F7> \xB9\x70 |0
-<U96F8> \xE0\xD8 |0
-<U96F9> \xB9\x72 |0
-<U96FA> \xE0\xD6 |0
-<U96FB> \xB9\x71 |0
-<U96FD> \xE0\xD7 |0
-<U96FF> \xE4\xBD |0
-<U9700> \xBB\xDD |0
-<U9702> \xE8\xAF |0
-<U9704> \xBE\x5D |0
-<U9705> \xE8\xAD |0
-<U9706> \xBE\x5E |0
-<U9707> \xBE\x5F |0
-<U9708> \xE8\xAE |0
-<U9709> \xBE\x60 |0
-<U970B> \xEC\x51 |0
-<U970D> \xC0\x4E |0
-<U970E> \xC0\x4B |0
-<U970F> \xC0\x50 |0
-<U9710> \xEC\x53 |0
-<U9711> \xC0\x4C |0
-<U9712> \xEC\x52 |0
-<U9713> \xC0\x4F |0
-<U9716> \xC0\x4D |0
-<U9718> \xEE\xF9 |0
-<U9719> \xEE\xFB |0
-<U971C> \xC1\xF7 |0
-<U971D> \xEE\xFA |0
-<U971E> \xC1\xF8 |0
-<U971F> \xEE\xF8 |0
-<U9720> \xEE\xF7 |0
-<U9722> \xF1\x77 |0
-<U9723> \xF1\x76 |0
-<U9724> \xC2\xFC |0
-<U9725> \xF1\x78 |0
-<U9726> \xF3\x7E |0
-<U9727> \xC3\xFA |0
-<U9728> \xF3\x7D |0
-<U9729> \xF3\x7A |0
-<U972A> \xC3\xF9 |0
-<U972B> \xF3\x7B |0
-<U972C> \xF3\x7C |0
-<U972E> \xF5\x48 |0
-<U972F> \xF5\x49 |0
-<U9730> \xC4\xC5 |0
-<U9732> \xC5\x53 |0
-<U9735> \xF6\x6E |0
-<U9738> \xC5\x51 |0
-<U9739> \xC5\x52 |0
-<U973A> \xF6\x6F |0
-<U973D> \xC5\xB4 |0
-<U973E> \xC5\xB5 |0
-<U973F> \xF7\x71 |0
-<U9742> \xC6\x45 |0
-<U9743> \xF8\xCF |0
-<U9744> \xC6\x47 |0
-<U9746> \xF8\xCE |0
-<U9747> \xF8\xD0 |0
-<U9748> \xC6\x46 |0
-<U9749> \xF9\x57 |0
-<U974B> \xF9\xAD |0
-<U9752> \xAB\x43 |0
-<U9756> \xB9\x74 |0
-<U9758> \xE4\xBE |0
-<U975A> \xE8\xB0 |0
-<U975B> \xC0\x51 |0
-<U975C> \xC0\x52 |0
-<U975E> \xAB\x44 |0
-<U9760> \xBE\x61 |0
-<U9761> \xC3\xFB |0
-<U9762> \xAD\xB1 |0
-<U9766> \xC0\x53 |0
-<U9768> \xC5\xE2 |0
-<U9769> \xAD\xB2 |0
-<U976A> \xD8\x4D |0
-<U976C> \xDC\xA9 |0
-<U976E> \xDC\xAB |0
-<U9770> \xDC\xAA |0
-<U9772> \xE0\xDD |0
-<U9773> \xE0\xDA |0
-<U9774> \xB9\x75 |0
-<U9776> \xB9\x76 |0
-<U9777> \xE0\xDB |0
-<U9778> \xE0\xDC |0
-<U977A> \xE4\xC0 |0
-<U977B> \xE4\xC5 |0
-<U977C> \xBB\xDE |0
-<U977D> \xE4\xBF |0
-<U977E> \xE4\xC1 |0
-<U977F> \xE4\xC8 |0
-<U9780> \xE4\xC3 |0
-<U9781> \xE4\xC7 |0
-<U9782> \xE4\xC4 |0
-<U9783> \xE4\xC2 |0
-<U9784> \xE4\xC6 |0
-<U9785> \xBB\xDF |0
-<U9788> \xE8\xB3 |0
-<U978A> \xE8\xB1 |0
-<U978B> \xBE\x63 |0
-<U978D> \xBE\x62 |0
-<U978E> \xE8\xB2 |0
-<U978F> \xBE\x64 |0
-<U9794> \xEC\x56 |0
-<U9797> \xEC\x55 |0
-<U9798> \xC0\x54 |0
-<U9799> \xEC\x54 |0
-<U979A> \xEE\xFC |0
-<U979C> \xEE\xFE |0
-<U979D> \xEF\x41 |0
-<U979E> \xEF\x40 |0
-<U97A0> \xC1\xF9 |0
-<U97A1> \xEE\xFD |0
-<U97A2> \xF1\xA1 |0
-<U97A3> \xC2\xFD |0
-<U97A4> \xF1\x7D |0
-<U97A5> \xF1\xA2 |0
-<U97A6> \xC2\xFE |0
-<U97A8> \xF1\x7B |0
-<U97AA> \xF1\x7E |0
-<U97AB> \xF1\x7C |0
-<U97AC> \xF1\x79 |0
-<U97AD> \xC3\x40 |0
-<U97AE> \xF1\x7A |0
-<U97B3> \xF3\xA1 |0
-<U97B6> \xF3\xA3 |0
-<U97B7> \xF3\xA2 |0
-<U97B9> \xF5\x4A |0
-<U97BB> \xF5\x4B |0
-<U97BF> \xF6\x70 |0
-<U97C1> \xC5\xB7 |0
-<U97C3> \xC5\xB6 |0
-<U97C4> \xF8\x4F |0
-<U97C5> \xF8\x50 |0
-<U97C6> \xC6\x48 |0
-<U97C7> \xF8\xD1 |0
-<U97C9> \xC6\x69 |0
-<U97CB> \xAD\xB3 |0
-<U97CC> \xB6\xB4 |0
-<U97CD> \xE4\xCA |0
-<U97CE> \xE4\xC9 |0
-<U97CF> \xE8\xB5 |0
-<U97D0> \xE8\xB4 |0
-<U97D3> \xC1\xFA |0
-<U97D4> \xEF\x43 |0
-<U97D5> \xEF\x42 |0
-<U97D6> \xF1\xA5 |0
-<U97D7> \xF1\xA3 |0
-<U97D8> \xF1\xA6 |0
-<U97D9> \xF1\xA4 |0
-<U97DC> \xC3\xFC |0
-<U97DD> \xF3\xA4 |0
-<U97DE> \xF3\xA5 |0
-<U97DF> \xF3\xA6 |0
-<U97E1> \xF6\x71 |0
-<U97E3> \xF7\x72 |0
-<U97E5> \xF8\xD2 |0
-<U97ED> \xAD\xB4 |0
-<U97F0> \xEC\x57 |0
-<U97F1> \xEF\x44 |0
-<U97F3> \xAD\xB5 |0
-<U97F6> \xBB\xE0 |0
-<U97F8> \xEC\x58 |0
-<U97F9> \xC3\x41 |0
-<U97FA> \xF1\xA7 |0
-<U97FB> \xC3\xFD |0
-<U97FD> \xF5\x4C |0
-<U97FE> \xF5\x4D |0
-<U97FF> \xC5\x54 |0
-<U9800> \xF8\x51 |0
-<U9801> \xAD\xB6 |0
-<U9802> \xB3\xBB |0
-<U9803> \xB3\xBC |0
-<U9804> \xD8\x4E |0
-<U9805> \xB6\xB5 |0
-<U9806> \xB6\xB6 |0
-<U9807> \xDC\xAC |0
-<U9808> \xB6\xB7 |0
-<U980A> \xB9\x7A |0
-<U980C> \xB9\x7C |0
-<U980D> \xE0\xDF |0
-<U980E> \xE0\xE0 |0
-<U980F> \xE0\xDE |0
-<U9810> \xB9\x77 |0
-<U9811> \xB9\x78 |0
-<U9812> \xB9\x7B |0
-<U9813> \xB9\x79 |0
-<U9816> \xE4\xCB |0
-<U9817> \xBB\xE1 |0
-<U9818> \xBB\xE2 |0
-<U981B> \xE8\xBC |0
-<U981C> \xBE\x67 |0
-<U981D> \xE8\xB7 |0
-<U981E> \xE8\xB6 |0
-<U9820> \xE8\xBB |0
-<U9821> \xBE\x65 |0
-<U9824> \xC0\x5B |0
-<U9826> \xE8\xB8 |0
-<U9827> \xE8\xBD |0
-<U9828> \xE8\xBA |0
-<U9829> \xE8\xB9 |0
-<U982B> \xBE\x66 |0
-<U982D> \xC0\x59 |0
-<U982F> \xEC\x5A |0
-<U9830> \xC0\x55 |0
-<U9832> \xEC\x5B |0
-<U9835> \xEC\x59 |0
-<U9837> \xC0\x58 |0
-<U9838> \xC0\x56 |0
-<U9839> \xC0\x5A |0
-<U983B> \xC0\x57 |0
-<U9841> \xEF\x45 |0
-<U9843> \xEF\x4A |0
-<U9844> \xEF\x46 |0
-<U9845> \xEF\x49 |0
-<U9846> \xC1\xFB |0
-<U9848> \xED\xD4 |0
-<U9849> \xEF\x48 |0
-<U984A> \xEF\x47 |0
-<U984C> \xC3\x44 |0
-<U984D> \xC3\x42 |0
-<U984E> \xC3\x45 |0
-<U984F> \xC3\x43 |0
-<U9850> \xF1\xA8 |0
-<U9851> \xF1\xA9 |0
-<U9852> \xF1\xAA |0
-<U9853> \xC3\x46 |0
-<U9857> \xF3\xAA |0
-<U9858> \xC4\x40 |0
-<U9859> \xF3\xA8 |0
-<U985B> \xC4\x41 |0
-<U985C> \xF3\xA7 |0
-<U985D> \xF3\xA9 |0
-<U985E> \xC3\xFE |0
-<U985F> \xF5\x51 |0
-<U9860> \xF5\x4E |0
-<U9862> \xF5\x4F |0
-<U9863> \xF5\x50 |0
-<U9864> \xF6\x72 |0
-<U9865> \xC5\x56 |0
-<U9867> \xC5\x55 |0
-<U9869> \xF7\x74 |0
-<U986A> \xF7\x73 |0
-<U986B> \xC5\xB8 |0
-<U986F> \xC5\xE3 |0
-<U9870> \xC6\x49 |0
-<U9871> \xC6\x60 |0
-<U9872> \xF9\x58 |0
-<U9873> \xF9\xAE |0
-<U9874> \xF9\xAF |0
-<U98A8> \xAD\xB7 |0
-<U98A9> \xDC\xAD |0
-<U98AC> \xE0\xE1 |0
-<U98AD> \xE4\xCC |0
-<U98AE> \xE4\xCD |0
-<U98AF> \xBB\xE3 |0
-<U98B1> \xBB\xE4 |0
-<U98B2> \xE8\xBE |0
-<U98B3> \xBE\x68 |0
-<U98B6> \xC1\xFC |0
-<U98B8> \xF1\xAB |0
-<U98BA> \xC3\x47 |0
-<U98BB> \xF3\xAD |0
-<U98BC> \xC4\x42 |0
-<U98BD> \xF3\xAC |0
-<U98BE> \xF3\xAE |0
-<U98BF> \xF3\xAB |0
-<U98C0> \xF6\x75 |0
-<U98C1> \xF5\x52 |0
-<U98C2> \xF5\x53 |0
-<U98C4> \xC4\xC6 |0
-<U98C6> \xF6\x74 |0
-<U98C9> \xF6\x73 |0
-<U98CB> \xF7\x75 |0
-<U98CC> \xF9\xB0 |0
-<U98DB> \xAD\xB8 |0
-<U98DF> \xAD\xB9 |0
-<U98E2> \xB0\xA7 |0
-<U98E3> \xD4\x48 |0
-<U98E5> \xD8\x4F |0
-<U98E7> \xB6\xB8 |0
-<U98E9> \xB6\xBB |0
-<U98EA> \xB6\xB9 |0
-<U98EB> \xDC\xAE |0
-<U98ED> \xB6\xBD |0
-<U98EF> \xB6\xBA |0
-<U98F2> \xB6\xBC |0
-<U98F4> \xB9\x7E |0
-<U98F6> \xE0\xE2 |0
-<U98F9> \xE0\xE3 |0
-<U98FA> \xE8\xC0 |0
-<U98FC> \xB9\x7D |0
-<U98FD> \xB9\xA1 |0
-<U98FE> \xB9\xA2 |0
-<U9900> \xE4\xCF |0
-<U9902> \xE4\xCE |0
-<U9903> \xBB\xE5 |0
-<U9905> \xBB\xE6 |0
-<U9907> \xE4\xD0 |0
-<U9908> \xE8\xBF |0
-<U9909> \xBB\xE8 |0
-<U990A> \xBE\x69 |0
-<U990C> \xBB\xE7 |0
-<U9910> \xC0\x5C |0
-<U9911> \xE8\xC1 |0
-<U9912> \xBE\x6B |0
-<U9913> \xBE\x6A |0
-<U9914> \xE8\xC2 |0
-<U9915> \xE8\xC5 |0
-<U9916> \xE8\xC3 |0
-<U9917> \xE8\xC4 |0
-<U9918> \xBE\x6C |0
-<U991A> \xC0\x61 |0
-<U991B> \xC0\x5F |0
-<U991E> \xC0\x5E |0
-<U991F> \xEC\x5D |0
-<U9921> \xC0\x60 |0
-<U9924> \xEC\x5C |0
-<U9925> \xEF\x4B |0
-<U9927> \xEC\x5E |0
-<U9928> \xC0\x5D |0
-<U9929> \xEC\x5F |0
-<U992A> \xEF\x4E |0
-<U992B> \xEF\x4C |0
-<U992C> \xEF\x4D |0
-<U992D> \xEF\x52 |0
-<U992E> \xC3\x4B |0
-<U992F> \xEF\x51 |0
-<U9930> \xEF\x54 |0
-<U9931> \xEF\x53 |0
-<U9932> \xEF\x50 |0
-<U9933> \xEF\x4F |0
-<U9935> \xC1\xFD |0
-<U993A> \xF1\xAE |0
-<U993C> \xF1\xAD |0
-<U993D> \xC3\x4A |0
-<U993E> \xC3\x48 |0
-<U993F> \xC3\x49 |0
-<U9941> \xF1\xAC |0
-<U9943> \xF3\xB1 |0
-<U9945> \xC4\x43 |0
-<U9947> \xF3\xB0 |0
-<U9948> \xF3\xAF |0
-<U9949> \xC4\x44 |0
-<U994B> \xF5\x58 |0
-<U994C> \xF5\x57 |0
-<U994E> \xF5\x55 |0
-<U9950> \xF5\x54 |0
-<U9951> \xC4\xC8 |0
-<U9952> \xC4\xC7 |0
-<U9953> \xF5\x59 |0
-<U9954> \xF7\x76 |0
-<U9955> \xC5\xB9 |0
-<U9956> \xF6\x77 |0
-<U9957> \xC5\x57 |0
-<U9958> \xF6\x76 |0
-<U9959> \xF5\x56 |0
-<U995B> \xF7\x77 |0
-<U995C> \xC5\xE4 |0
-<U995E> \xC6\x61 |0
-<U995F> \xF9\x59 |0
-<U9961> \xF9\xB1 |0
-<U9996> \xAD\xBA |0
-<U9997> \xD8\x50 |0
-<U9998> \xEF\x55 |0
-<U9999> \xAD\xBB |0
-<U999C> \xE4\xD2 |0
-<U999D> \xE4\xD1 |0
-<U999E> \xEC\x60 |0
-<U99A1> \xEF\x57 |0
-<U99A3> \xEF\x56 |0
-<U99A5> \xC3\x4C |0
-<U99A6> \xF3\xB2 |0
-<U99A7> \xF3\xB3 |0
-<U99A8> \xC4\xC9 |0
-<U99AB> \xF9\xB2 |0
-<U99AC> \xB0\xA8 |0
-<U99AD> \xB6\xBF |0
-<U99AE> \xB6\xBE |0
-<U99AF> \xE0\xE4 |0
-<U99B0> \xE0\xE6 |0
-<U99B1> \xB9\xA4 |0
-<U99B2> \xE0\xE5 |0
-<U99B3> \xB9\xA3 |0
-<U99B4> \xB9\xA5 |0
-<U99B5> \xE0\xE7 |0
-<U99B9> \xE4\xD4 |0
-<U99BA> \xE4\xD6 |0
-<U99BB> \xE4\xD5 |0
-<U99BD> \xE4\xD8 |0
-<U99C1> \xBB\xE9 |0
-<U99C2> \xE4\xD7 |0
-<U99C3> \xE4\xD3 |0
-<U99C7> \xE4\xD9 |0
-<U99C9> \xE8\xCC |0
-<U99CB> \xE8\xCF |0
-<U99CC> \xE8\xD1 |0
-<U99CD> \xE8\xC7 |0
-<U99CE> \xE8\xCB |0
-<U99CF> \xE8\xC8 |0
-<U99D0> \xBE\x6E |0
-<U99D1> \xBE\x71 |0
-<U99D2> \xBE\x73 |0
-<U99D3> \xE8\xC9 |0
-<U99D4> \xE8\xCA |0
-<U99D5> \xBE\x72 |0
-<U99D6> \xE8\xCD |0
-<U99D7> \xE8\xD0 |0
-<U99D8> \xE8\xCE |0
-<U99D9> \xBE\x74 |0
-<U99DB> \xBE\x70 |0
-<U99DC> \xE8\xC6 |0
-<U99DD> \xBE\x6D |0
-<U99DF> \xBE\x6F |0
-<U99E2> \xC0\x63 |0
-<U99E3> \xEC\x66 |0
-<U99E4> \xEC\x64 |0
-<U99E5> \xEC\x63 |0
-<U99E7> \xEC\x69 |0
-<U99E9> \xEC\x68 |0
-<U99EA> \xEC\x67 |0
-<U99EC> \xEC\x62 |0
-<U99ED> \xC0\x62 |0
-<U99EE> \xEC\x61 |0
-<U99F0> \xEC\x65 |0
-<U99F1> \xC0\x64 |0
-<U99F4> \xEF\x5A |0
-<U99F6> \xEF\x5E |0
-<U99F7> \xEF\x5B |0
-<U99F8> \xEF\x5D |0
-<U99F9> \xEF\x5C |0
-<U99FA> \xEF\x59 |0
-<U99FB> \xEF\x5F |0
-<U99FC> \xEF\x62 |0
-<U99FD> \xEF\x60 |0
-<U99FE> \xEF\x61 |0
-<U99FF> \xC2\x40 |0
-<U9A01> \xC1\xFE |0
-<U9A02> \xEF\x58 |0
-<U9A03> \xEF\x63 |0
-<U9A04> \xF1\xB3 |0
-<U9A05> \xF1\xB6 |0
-<U9A06> \xF1\xB8 |0
-<U9A07> \xF1\xB7 |0
-<U9A09> \xF1\xB1 |0
-<U9A0A> \xF1\xB5 |0
-<U9A0B> \xF1\xB0 |0
-<U9A0D> \xF1\xB2 |0
-<U9A0E> \xC3\x4D |0
-<U9A0F> \xF1\xAF |0
-<U9A11> \xF1\xB4 |0
-<U9A14> \xF3\xC0 |0
-<U9A15> \xF3\xB5 |0
-<U9A16> \xC4\x45 |0
-<U9A19> \xC4\x46 |0
-<U9A1A> \xF3\xB4 |0
-<U9A1B> \xF3\xB9 |0
-<U9A1C> \xF3\xBF |0
-<U9A1D> \xF3\xB7 |0
-<U9A1E> \xF3\xBE |0
-<U9A20> \xF3\xBB |0
-<U9A22> \xF3\xBA |0
-<U9A23> \xF3\xBD |0
-<U9A24> \xF3\xB8 |0
-<U9A25> \xF3\xB6 |0
-<U9A27> \xF3\xBC |0
-<U9A29> \xF5\x60 |0
-<U9A2A> \xF5\x5E |0
-<U9A2B> \xC4\xCA |0
-<U9A2C> \xF5\x5D |0
-<U9A2D> \xF5\x63 |0
-<U9A2E> \xF5\x61 |0
-<U9A30> \xC4\xCB |0
-<U9A31> \xF5\x5C |0
-<U9A32> \xF5\x5A |0
-<U9A34> \xF5\x5B |0
-<U9A35> \xC4\xCD |0
-<U9A36> \xF5\x5F |0
-<U9A37> \xC4\xCC |0
-<U9A38> \xF5\x62 |0
-<U9A39> \xF6\x78 |0
-<U9A3A> \xF6\x7E |0
-<U9A3D> \xF6\x79 |0
-<U9A3E> \xC5\x5B |0
-<U9A3F> \xF6\xA1 |0
-<U9A40> \xC5\x5A |0
-<U9A41> \xF6\x7D |0
-<U9A42> \xF6\x7C |0
-<U9A43> \xC5\x59 |0
-<U9A44> \xF6\x7B |0
-<U9A45> \xC5\x58 |0
-<U9A46> \xF6\x7A |0
-<U9A48> \xF7\x7D |0
-<U9A49> \xF7\xA1 |0
-<U9A4A> \xF7\x7E |0
-<U9A4C> \xF7\x7B |0
-<U9A4D> \xC5\xBB |0
-<U9A4E> \xF7\x78 |0
-<U9A4F> \xF7\x7C |0
-<U9A50> \xF7\xA3 |0
-<U9A52> \xF7\xA2 |0
-<U9A53> \xF7\x79 |0
-<U9A54> \xF7\x7A |0
-<U9A55> \xC5\xBA |0
-<U9A56> \xF8\x52 |0
-<U9A57> \xC5\xE7 |0
-<U9A59> \xF8\x53 |0
-<U9A5A> \xC5\xE5 |0
-<U9A5B> \xC5\xE6 |0
-<U9A5E> \xF8\xD3 |0
-<U9A5F> \xC6\x4A |0
-<U9A60> \xF9\x76 |0
-<U9A62> \xC6\x6A |0
-<U9A64> \xF9\xB3 |0
-<U9A65> \xC6\x6B |0
-<U9A66> \xF9\xB4 |0
-<U9A67> \xF9\xB5 |0
-<U9A68> \xF9\xC3 |0
-<U9A69> \xF9\xC2 |0
-<U9A6A> \xC6\x7A |0
-<U9A6B> \xF9\xCD |0
-<U9AA8> \xB0\xA9 |0
-<U9AAB> \xE0\xE9 |0
-<U9AAD> \xE0\xE8 |0
-<U9AAF> \xBB\xEA |0
-<U9AB0> \xBB\xEB |0
-<U9AB1> \xE4\xDA |0
-<U9AB3> \xE8\xD2 |0
-<U9AB4> \xEC\x6C |0
-<U9AB7> \xBE\x75 |0
-<U9AB8> \xC0\x65 |0
-<U9AB9> \xEC\x6A |0
-<U9ABB> \xEC\x6D |0
-<U9ABC> \xC0\x66 |0
-<U9ABE> \xEF\x64 |0
-<U9ABF> \xEC\x6B |0
-<U9AC0> \xF1\xB9 |0
-<U9AC1> \xC3\x4E |0
-<U9AC2> \xF3\xC1 |0
-<U9AC6> \xF5\x66 |0
-<U9AC7> \xF5\x64 |0
-<U9ACA> \xF5\x65 |0
-<U9ACD> \xF6\xA2 |0
-<U9ACF> \xC5\x5C |0
-<U9AD0> \xF7\xA4 |0
-<U9AD1> \xC5\xEA |0
-<U9AD2> \xC5\xBC |0
-<U9AD3> \xC5\xE8 |0
-<U9AD4> \xC5\xE9 |0
-<U9AD5> \xF8\xD4 |0
-<U9AD6> \xC6\x62 |0
-<U9AD8> \xB0\xAA |0
-<U9ADC> \xF1\xBA |0
-<U9ADF> \xD4\x49 |0
-<U9AE1> \xB9\xA6 |0
-<U9AE3> \xE4\xDB |0
-<U9AE6> \xBB\xEC |0
-<U9AE7> \xE4\xDC |0
-<U9AEB> \xE8\xD4 |0
-<U9AEC> \xE8\xD3 |0
-<U9AED> \xC0\x68 |0
-<U9AEE> \xBE\x76 |0
-<U9AEF> \xBE\x77 |0
-<U9AF1> \xE8\xD7 |0
-<U9AF2> \xE8\xD6 |0
-<U9AF3> \xE8\xD5 |0
-<U9AF6> \xEC\x6E |0
-<U9AF7> \xEC\x71 |0
-<U9AF9> \xEC\x70 |0
-<U9AFA> \xEC\x6F |0
-<U9AFB> \xC0\x67 |0
-<U9AFC> \xEF\x68 |0
-<U9AFD> \xEF\x66 |0
-<U9AFE> \xEF\x65 |0
-<U9B01> \xEF\x67 |0
-<U9B03> \xC3\x4F |0
-<U9B04> \xF1\xBC |0
-<U9B05> \xF1\xBD |0
-<U9B06> \xC3\x50 |0
-<U9B08> \xF1\xBB |0
-<U9B0A> \xF3\xC3 |0
-<U9B0B> \xF3\xC2 |0
-<U9B0C> \xF3\xC5 |0
-<U9B0D> \xC4\x47 |0
-<U9B0E> \xF3\xC4 |0
-<U9B10> \xF5\x67 |0
-<U9B11> \xF5\x69 |0
-<U9B12> \xF5\x68 |0
-<U9B15> \xF6\xA3 |0
-<U9B16> \xF6\xA6 |0
-<U9B17> \xF6\xA4 |0
-<U9B18> \xF6\xA5 |0
-<U9B19> \xF7\xA5 |0
-<U9B1A> \xC5\xBD |0
-<U9B1E> \xF8\x54 |0
-<U9B1F> \xF8\x55 |0
-<U9B20> \xF8\x56 |0
-<U9B22> \xC6\x4B |0
-<U9B23> \xC6\x63 |0
-<U9B24> \xF9\xB6 |0
-<U9B25> \xB0\xAB |0
-<U9B27> \xBE\x78 |0
-<U9B28> \xC0\x69 |0
-<U9B29> \xF1\xBE |0
-<U9B2B> \xF7\xA6 |0
-<U9B2E> \xF9\xC4 |0
-<U9B2F> \xD4\x4A |0
-<U9B31> \xC6\x7B |0
-<U9B32> \xB0\xAC |0
-<U9B33> \xEC\x72 |0
-<U9B35> \xF1\xBF |0
-<U9B37> \xF3\xC6 |0
-<U9B3A> \xF6\xA7 |0
-<U9B3B> \xF7\xA7 |0
-<U9B3C> \xB0\xAD |0
-<U9B3E> \xE4\xDD |0
-<U9B3F> \xE4\xDE |0
-<U9B41> \xBB\xED |0
-<U9B42> \xBB\xEE |0
-<U9B43> \xE8\xD9 |0
-<U9B44> \xBE\x7A |0
-<U9B45> \xBE\x79 |0
-<U9B46> \xE8\xD8 |0
-<U9B48> \xEF\x69 |0
-<U9B4A> \xF1\xC0 |0
-<U9B4B> \xF1\xC2 |0
-<U9B4C> \xF1\xC1 |0
-<U9B4D> \xC3\x53 |0
-<U9B4E> \xC3\x52 |0
-<U9B4F> \xC3\x51 |0
-<U9B51> \xC5\x5E |0
-<U9B52> \xF6\xA8 |0
-<U9B54> \xC5\x5D |0
-<U9B55> \xF7\xA9 |0
-<U9B56> \xF7\xA8 |0
-<U9B58> \xC6\x4C |0
-<U9B59> \xF8\xD5 |0
-<U9B5A> \xB3\xBD |0
-<U9B5B> \xE0\xEA |0
-<U9B5F> \xE4\xE1 |0
-<U9B60> \xE4\xDF |0
-<U9B61> \xE4\xE0 |0
-<U9B64> \xE8\xE2 |0
-<U9B66> \xE8\xDD |0
-<U9B67> \xE8\xDA |0
-<U9B68> \xE8\xE1 |0
-<U9B6C> \xE8\xE3 |0
-<U9B6F> \xBE\x7C |0
-<U9B70> \xE8\xE0 |0
-<U9B71> \xE8\xDC |0
-<U9B74> \xE8\xDB |0
-<U9B75> \xE8\xDF |0
-<U9B76> \xE8\xDE |0
-<U9B77> \xBE\x7B |0
-<U9B7A> \xEC\x7D |0
-<U9B7B> \xEC\x78 |0
-<U9B7C> \xEC\x76 |0
-<U9B7D> \xEC\xA1 |0
-<U9B7E> \xEC\x77 |0
-<U9B80> \xEC\x73 |0
-<U9B82> \xEC\x79 |0
-<U9B85> \xEC\x74 |0
-<U9B86> \xEF\x72 |0
-<U9B87> \xEC\x75 |0
-<U9B88> \xEC\xA2 |0
-<U9B90> \xEC\x7C |0
-<U9B91> \xC0\x6A |0
-<U9B92> \xEC\x7B |0
-<U9B93> \xEC\x7A |0
-<U9B95> \xEC\x7E |0
-<U9B9A> \xEF\x6A |0
-<U9B9B> \xEF\x6D |0
-<U9B9E> \xEF\x6C |0
-<U9BA0> \xEF\x74 |0
-<U9BA1> \xEF\x6F |0
-<U9BA2> \xEF\x73 |0
-<U9BA4> \xEF\x71 |0
-<U9BA5> \xEF\x70 |0
-<U9BA6> \xEF\x6E |0
-<U9BA8> \xEF\x6B |0
-<U9BAA> \xC2\x43 |0
-<U9BAB> \xC2\x42 |0
-<U9BAD> \xC2\x44 |0
-<U9BAE> \xC2\x41 |0
-<U9BAF> \xEF\x75 |0
-<U9BB5> \xF1\xC8 |0
-<U9BB6> \xF1\xCB |0
-<U9BB8> \xF1\xC9 |0
-<U9BB9> \xF1\xCD |0
-<U9BBD> \xF1\xCE |0
-<U9BBF> \xF1\xC6 |0
-<U9BC0> \xC3\x58 |0
-<U9BC1> \xF1\xC7 |0
-<U9BC3> \xF1\xC5 |0
-<U9BC4> \xF1\xCC |0
-<U9BC6> \xF1\xC4 |0
-<U9BC7> \xF1\xC3 |0
-<U9BC8> \xC3\x57 |0
-<U9BC9> \xC3\x55 |0
-<U9BCA> \xC3\x54 |0
-<U9BD3> \xF1\xCA |0
-<U9BD4> \xF3\xCF |0
-<U9BD5> \xF3\xD5 |0
-<U9BD6> \xC4\x4A |0
-<U9BD7> \xF3\xD0 |0
-<U9BD9> \xF3\xD3 |0
-<U9BDA> \xF3\xD7 |0
-<U9BDB> \xC4\x4B |0
-<U9BDC> \xF3\xD2 |0
-<U9BDE> \xF3\xCA |0
-<U9BE0> \xF3\xC9 |0
-<U9BE1> \xF3\xD6 |0
-<U9BE2> \xF3\xCD |0
-<U9BE4> \xF3\xCB |0
-<U9BE5> \xF3\xD4 |0
-<U9BE6> \xF3\xCC |0
-<U9BE7> \xC4\x49 |0
-<U9BE8> \xC4\x48 |0
-<U9BEA> \xF3\xC7 |0
-<U9BEB> \xF3\xC8 |0
-<U9BEC> \xF3\xD1 |0
-<U9BF0> \xF3\xCE |0
-<U9BF7> \xF5\x6C |0
-<U9BF8> \xF5\x6F |0
-<U9BFD> \xC3\x56 |0
-<U9C05> \xF5\x6D |0
-<U9C06> \xF5\x73 |0
-<U9C07> \xF5\x71 |0
-<U9C08> \xF5\x6B |0
-<U9C09> \xF5\x76 |0
-<U9C0B> \xF5\x6A |0
-<U9C0D> \xC4\xCF |0
-<U9C0E> \xF5\x72 |0
-<U9C12> \xF5\x6E |0
-<U9C13> \xC4\xCE |0
-<U9C14> \xF5\x75 |0
-<U9C17> \xF5\x74 |0
-<U9C1C> \xF6\xAB |0
-<U9C1D> \xF6\xAA |0
-<U9C21> \xF6\xB1 |0
-<U9C23> \xF6\xAD |0
-<U9C24> \xF6\xB0 |0
-<U9C25> \xC5\x60 |0
-<U9C28> \xF6\xAE |0
-<U9C29> \xF6\xAF |0
-<U9C2B> \xF6\xA9 |0
-<U9C2C> \xF6\xAC |0
-<U9C2D> \xC5\x5F |0
-<U9C31> \xC5\xBF |0
-<U9C32> \xF7\xB4 |0
-<U9C33> \xF7\xAF |0
-<U9C34> \xF7\xB3 |0
-<U9C36> \xF7\xB6 |0
-<U9C37> \xF7\xB2 |0
-<U9C39> \xF7\xAE |0
-<U9C3B> \xC5\xC1 |0
-<U9C3C> \xF7\xB1 |0
-<U9C3D> \xF7\xB5 |0
-<U9C3E> \xC5\xC0 |0
-<U9C3F> \xF7\xAC |0
-<U9C40> \xF5\x70 |0
-<U9C41> \xF7\xB0 |0
-<U9C44> \xF7\xAD |0
-<U9C46> \xF7\xAA |0
-<U9C48> \xF7\xAB |0
-<U9C49> \xC5\xBE |0
-<U9C4A> \xF8\x5A |0
-<U9C4B> \xF8\x5C |0
-<U9C4C> \xF8\x5F |0
-<U9C4D> \xF8\x5B |0
-<U9C4E> \xF8\x60 |0
-<U9C50> \xF8\x59 |0
-<U9C52> \xF8\x57 |0
-<U9C54> \xC5\xEB |0
-<U9C55> \xF8\x5D |0
-<U9C56> \xC5\xED |0
-<U9C57> \xC5\xEC |0
-<U9C58> \xF8\x58 |0
-<U9C59> \xF8\x5E |0
-<U9C5E> \xF8\xDA |0
-<U9C5F> \xC6\x4D |0
-<U9C60> \xF8\xDB |0
-<U9C62> \xF8\xD9 |0
-<U9C63> \xF8\xD6 |0
-<U9C66> \xF8\xD8 |0
-<U9C67> \xF8\xD7 |0
-<U9C68> \xF9\x5A |0
-<U9C6D> \xF9\x5C |0
-<U9C6E> \xF9\x5B |0
-<U9C71> \xF9\x79 |0
-<U9C73> \xF9\x78 |0
-<U9C74> \xF9\x77 |0
-<U9C75> \xF9\x7A |0
-<U9C77> \xC6\x73 |0
-<U9C78> \xC6\x74 |0
-<U9C79> \xF9\xCA |0
-<U9C7A> \xF9\xCE |0
-<U9CE5> \xB3\xBE |0
-<U9CE6> \xDC\xAF |0
-<U9CE7> \xE0\xED |0
-<U9CE9> \xB9\xA7 |0
-<U9CEA> \xE0\xEB |0
-<U9CED> \xE0\xEC |0
-<U9CF1> \xE4\xE2 |0
-<U9CF2> \xE4\xE3 |0
-<U9CF3> \xBB\xF1 |0
-<U9CF4> \xBB\xEF |0
-<U9CF5> \xE4\xE4 |0
-<U9CF6> \xBB\xF0 |0
-<U9CF7> \xE8\xE8 |0
-<U9CF9> \xE8\xEB |0
-<U9CFA> \xE8\xE5 |0
-<U9CFB> \xE8\xEC |0
-<U9CFC> \xE8\xE4 |0
-<U9CFD> \xE8\xE6 |0
-<U9CFF> \xE8\xE7 |0
-<U9D00> \xE8\xEA |0
-<U9D03> \xBE\xA1 |0
-<U9D04> \xE8\xEF |0
-<U9D05> \xE8\xEE |0
-<U9D06> \xBE\x7D |0
-<U9D07> \xE8\xE9 |0
-<U9D08> \xE8\xED |0
-<U9D09> \xBE\x7E |0
-<U9D10> \xEC\xAC |0
-<U9D12> \xC0\x6F |0
-<U9D14> \xEC\xA7 |0
-<U9D15> \xC0\x6B |0
-<U9D17> \xEC\xA4 |0
-<U9D18> \xEC\xAA |0
-<U9D19> \xEC\xAD |0
-<U9D1B> \xC0\x70 |0
-<U9D1D> \xEC\xA9 |0
-<U9D1E> \xEC\xA6 |0
-<U9D1F> \xEC\xAE |0
-<U9D20> \xEC\xA5 |0
-<U9D22> \xEC\xAB |0
-<U9D23> \xC0\x6C |0
-<U9D25> \xEC\xA3 |0
-<U9D26> \xC0\x6D |0
-<U9D28> \xC0\x6E |0
-<U9D29> \xEC\xA8 |0
-<U9D2D> \xEF\xA9 |0
-<U9D2E> \xEF\x7A |0
-<U9D2F> \xEF\x7B |0
-<U9D30> \xEF\x7E |0
-<U9D31> \xEF\x7C |0
-<U9D33> \xEF\x76 |0
-<U9D36> \xEF\x79 |0
-<U9D37> \xEF\xA5 |0
-<U9D38> \xEF\x7D |0
-<U9D3B> \xC2\x45 |0
-<U9D3D> \xEF\xA7 |0
-<U9D3E> \xEF\xA4 |0
-<U9D3F> \xC2\x46 |0
-<U9D40> \xEF\xA6 |0
-<U9D41> \xEF\x77 |0
-<U9D42> \xEF\xA2 |0
-<U9D43> \xEF\xA3 |0
-<U9D45> \xEF\xA1 |0
-<U9D4A> \xF1\xD2 |0
-<U9D4B> \xF1\xD4 |0
-<U9D4C> \xF1\xD7 |0
-<U9D4F> \xF1\xD1 |0
-<U9D51> \xC3\x59 |0
-<U9D52> \xF1\xD9 |0
-<U9D53> \xF1\xD0 |0
-<U9D54> \xF1\xDA |0
-<U9D56> \xF1\xD6 |0
-<U9D57> \xF1\xD8 |0
-<U9D58> \xF1\xDC |0
-<U9D59> \xF1\xD5 |0
-<U9D5A> \xF1\xDD |0
-<U9D5B> \xF1\xD3 |0
-<U9D5C> \xF1\xCF |0
-<U9D5D> \xC3\x5A |0
-<U9D5F> \xF1\xDB |0
-<U9D60> \xC3\x5B |0
-<U9D61> \xC4\x4D |0
-<U9D67> \xEF\x78 |0
-<U9D68> \xF3\xF1 |0
-<U9D69> \xF3\xE8 |0
-<U9D6A> \xC4\x4F |0
-<U9D6B> \xF3\xE4 |0
-<U9D6C> \xC4\x50 |0
-<U9D6F> \xF3\xED |0
-<U9D70> \xF3\xE7 |0
-<U9D71> \xF3\xDD |0
-<U9D72> \xC4\x4E |0
-<U9D73> \xF3\xEA |0
-<U9D74> \xF3\xE5 |0
-<U9D75> \xF3\xE6 |0
-<U9D77> \xF3\xD8 |0
-<U9D78> \xF3\xDF |0
-<U9D79> \xF3\xEE |0
-<U9D7B> \xF3\xEB |0
-<U9D7D> \xF3\xE3 |0
-<U9D7F> \xF3\xEF |0
-<U9D80> \xF3\xDE |0
-<U9D81> \xF3\xD9 |0
-<U9D82> \xF3\xEC |0
-<U9D84> \xF3\xDB |0
-<U9D85> \xF3\xE9 |0
-<U9D86> \xF3\xE0 |0
-<U9D87> \xF3\xF0 |0
-<U9D88> \xF3\xDC |0
-<U9D89> \xC4\x4C |0
-<U9D8A> \xF3\xDA |0
-<U9D8B> \xF3\xE1 |0
-<U9D8C> \xF3\xE2 |0
-<U9D90> \xF5\x7D |0
-<U9D92> \xF5\x7B |0
-<U9D94> \xF5\xA2 |0
-<U9D96> \xF5\xAE |0
-<U9D97> \xF5\xA5 |0
-<U9D98> \xF5\x7C |0
-<U9D99> \xF5\x78 |0
-<U9D9A> \xF5\xA7 |0
-<U9D9B> \xF5\x7E |0
-<U9D9C> \xF5\xA3 |0
-<U9D9D> \xF5\x7A |0
-<U9D9E> \xF5\xAA |0
-<U9D9F> \xF5\x77 |0
-<U9DA0> \xF5\xA1 |0
-<U9DA1> \xF5\xA6 |0
-<U9DA2> \xF5\xA8 |0
-<U9DA3> \xF5\xAB |0
-<U9DA4> \xF5\x79 |0
-<U9DA6> \xF5\xAF |0
-<U9DA7> \xF5\xB0 |0
-<U9DA8> \xF5\xA9 |0
-<U9DA9> \xF5\xAD |0
-<U9DAA> \xF5\xA4 |0
-<U9DAC> \xF6\xC1 |0
-<U9DAD> \xF6\xC4 |0
-<U9DAF> \xC5\x61 |0
-<U9DB1> \xF6\xC3 |0
-<U9DB2> \xF6\xC8 |0
-<U9DB3> \xF6\xC6 |0
-<U9DB4> \xC5\x62 |0
-<U9DB5> \xF6\xBD |0
-<U9DB6> \xF6\xB3 |0
-<U9DB7> \xF6\xB2 |0
-<U9DB8> \xC5\x64 |0
-<U9DB9> \xF6\xBF |0
-<U9DBA> \xF6\xC0 |0
-<U9DBB> \xF6\xBC |0
-<U9DBC> \xF6\xB4 |0
-<U9DBE> \xF6\xB9 |0
-<U9DBF> \xF5\xAC |0
-<U9DC1> \xF6\xB5 |0
-<U9DC2> \xC5\x63 |0
-<U9DC3> \xF6\xBB |0
-<U9DC5> \xF6\xBA |0
-<U9DC7> \xF6\xB6 |0
-<U9DC8> \xF6\xC2 |0
-<U9DCA> \xF6\xB7 |0
-<U9DCB> \xF7\xBB |0
-<U9DCC> \xF6\xC5 |0
-<U9DCD> \xF6\xC7 |0
-<U9DCE> \xF6\xBE |0
-<U9DCF> \xF6\xB8 |0
-<U9DD0> \xF7\xBC |0
-<U9DD1> \xF7\xBE |0
-<U9DD2> \xF7\xB8 |0
-<U9DD3> \xC5\xC2 |0
-<U9DD5> \xF7\xC5 |0
-<U9DD6> \xF7\xC3 |0
-<U9DD7> \xC5\xC3 |0
-<U9DD8> \xF7\xC2 |0
-<U9DD9> \xF7\xC1 |0
-<U9DDA> \xF7\xBA |0
-<U9DDB> \xF7\xB7 |0
-<U9DDC> \xF7\xBD |0
-<U9DDD> \xF7\xC6 |0
-<U9DDE> \xF7\xB9 |0
-<U9DDF> \xF7\xBF |0
-<U9DE1> \xF8\x69 |0
-<U9DE2> \xF8\x6E |0
-<U9DE3> \xF8\x64 |0
-<U9DE4> \xF8\x67 |0
-<U9DE5> \xC5\xEE |0
-<U9DE6> \xF8\x6B |0
-<U9DE8> \xF8\x72 |0
-<U9DE9> \xF7\xC0 |0
-<U9DEB> \xF8\x65 |0
-<U9DEC> \xF8\x6F |0
-<U9DED> \xF8\x73 |0
-<U9DEE> \xF8\x6A |0
-<U9DEF> \xF8\x63 |0
-<U9DF0> \xF8\x6D |0
-<U9DF2> \xF8\x6C |0
-<U9DF3> \xF8\x71 |0
-<U9DF4> \xF8\x70 |0
-<U9DF5> \xF7\xC4 |0
-<U9DF6> \xF8\x68 |0
-<U9DF7> \xF8\x62 |0
-<U9DF8> \xF8\x66 |0
-<U9DF9> \xC6\x4E |0
-<U9DFA> \xC6\x4F |0
-<U9DFB> \xF8\x61 |0
-<U9DFD> \xF8\xE6 |0
-<U9DFE> \xF8\xDD |0
-<U9DFF> \xF8\xE5 |0
-<U9E00> \xF8\xE2 |0
-<U9E01> \xF8\xE3 |0
-<U9E02> \xF8\xDC |0
-<U9E03> \xF8\xDF |0
-<U9E04> \xF8\xE7 |0
-<U9E05> \xF8\xE1 |0
-<U9E06> \xF8\xE0 |0
-<U9E07> \xF8\xDE |0
-<U9E09> \xF8\xE4 |0
-<U9E0B> \xF9\x5D |0
-<U9E0D> \xF9\x5E |0
-<U9E0F> \xF9\x60 |0
-<U9E10> \xF9\x5F |0
-<U9E11> \xF9\x62 |0
-<U9E12> \xF9\x61 |0
-<U9E13> \xF9\x7C |0
-<U9E14> \xF9\x7B |0
-<U9E15> \xF9\xB7 |0
-<U9E17> \xF9\xB8 |0
-<U9E19> \xF9\xC5 |0
-<U9E1A> \xC6\x78 |0
-<U9E1B> \xC6\x7C |0
-<U9E1D> \xF9\xCF |0
-<U9E1E> \xC6\x7D |0
-<U9E75> \xB3\xBF |0
-<U9E79> \xC4\xD0 |0
-<U9E7A> \xF6\xC9 |0
-<U9E7C> \xC6\x50 |0
-<U9E7D> \xC6\x51 |0
-<U9E7F> \xB3\xC0 |0
-<U9E80> \xE0\xEE |0
-<U9E82> \xB9\xA8 |0
-<U9E83> \xE8\xF0 |0
-<U9E86> \xEC\xB0 |0
-<U9E87> \xEC\xB1 |0
-<U9E88> \xEC\xAF |0
-<U9E89> \xEF\xAB |0
-<U9E8A> \xEF\xAA |0
-<U9E8B> \xC2\x47 |0
-<U9E8C> \xF1\xDF |0
-<U9E8D> \xEF\xAC |0
-<U9E8E> \xF1\xDE |0
-<U9E91> \xF3\xF3 |0
-<U9E92> \xC4\x51 |0
-<U9E93> \xC4\x53 |0
-<U9E94> \xF3\xF2 |0
-<U9E97> \xC4\x52 |0
-<U9E99> \xF5\xB1 |0
-<U9E9A> \xF5\xB3 |0
-<U9E9B> \xF5\xB2 |0
-<U9E9C> \xF6\xCA |0
-<U9E9D> \xC5\x65 |0
-<U9E9F> \xC5\xEF |0
-<U9EA0> \xF8\xE8 |0
-<U9EA1> \xF9\x63 |0
-<U9EA4> \xF9\xD2 |0
-<U9EA5> \xB3\xC1 |0
-<U9EA7> \xE4\xE5 |0
-<U9EA9> \xBE\xA2 |0
-<U9EAD> \xEC\xB3 |0
-<U9EAE> \xEC\xB2 |0
-<U9EB0> \xEF\xAD |0
-<U9EB4> \xC4\x54 |0
-<U9EB5> \xC4\xD1 |0
-<U9EB6> \xF7\xC7 |0
-<U9EB7> \xF9\xCB |0
-<U9EBB> \xB3\xC2 |0
-<U9EBC> \xBB\xF2 |0
-<U9EBE> \xBE\xA3 |0
-<U9EC0> \xF3\xF4 |0
-<U9EC2> \xF8\x74 |0
-<U9EC3> \xB6\xC0 |0
-<U9EC8> \xEF\xAE |0
-<U9ECC> \xC6\x64 |0
-<U9ECD> \xB6\xC1 |0
-<U9ECE> \xBE\xA4 |0
-<U9ECF> \xC2\x48 |0
-<U9ED0> \xF8\x75 |0
-<U9ED1> \xB6\xC2 |0
-<U9ED3> \xE8\xF1 |0
-<U9ED4> \xC0\x72 |0
-<U9ED5> \xEC\xB4 |0
-<U9ED6> \xEC\xB5 |0
-<U9ED8> \xC0\x71 |0
-<U9EDA> \xEF\xAF |0
-<U9EDB> \xC2\x4C |0
-<U9EDC> \xC2\x4A |0
-<U9EDD> \xC2\x4B |0
-<U9EDE> \xC2\x49 |0
-<U9EDF> \xF1\xE0 |0
-<U9EE0> \xC3\x5C |0
-<U9EE4> \xF5\xB5 |0
-<U9EE5> \xF5\xB4 |0
-<U9EE6> \xF5\xB7 |0
-<U9EE7> \xF5\xB6 |0
-<U9EE8> \xC4\xD2 |0
-<U9EEB> \xF6\xCB |0
-<U9EED> \xF6\xCD |0
-<U9EEE> \xF6\xCC |0
-<U9EEF> \xC5\x66 |0
-<U9EF0> \xF7\xC8 |0
-<U9EF2> \xF8\x76 |0
-<U9EF3> \xF8\x77 |0
-<U9EF4> \xC5\xF0 |0
-<U9EF5> \xF9\x64 |0
-<U9EF6> \xF9\x7D |0
-<U9EF7> \xC6\x75 |0
-<U9EF9> \xDC\xB0 |0
-<U9EFA> \xEC\xB6 |0
-<U9EFB> \xEF\xB0 |0
-<U9EFC> \xF3\xF5 |0
-<U9EFD> \xE0\xEF |0
-<U9EFF> \xEF\xB1 |0
-<U9F00> \xF1\xE2 |0
-<U9F01> \xF1\xE1 |0
-<U9F06> \xF8\x78 |0
-<U9F07> \xC6\x52 |0
-<U9F09> \xF9\x65 |0
-<U9F0A> \xF9\x7E |0
-<U9F0E> \xB9\xA9 |0
-<U9F0F> \xE8\xF2 |0
-<U9F10> \xE8\xF3 |0
-<U9F12> \xEC\xB7 |0
-<U9F13> \xB9\xAA |0
-<U9F15> \xC3\x5D |0
-<U9F16> \xF1\xE3 |0
-<U9F18> \xF6\xCF |0
-<U9F19> \xC5\x67 |0
-<U9F1A> \xF6\xD0 |0
-<U9F1B> \xF6\xCE |0
-<U9F1C> \xF8\x79 |0
-<U9F1E> \xF8\xE9 |0
-<U9F20> \xB9\xAB |0
-<U9F22> \xEF\xB4 |0
-<U9F23> \xEF\xB3 |0
-<U9F24> \xEF\xB2 |0
-<U9F25> \xF1\xE4 |0
-<U9F28> \xF1\xE8 |0
-<U9F29> \xF1\xE7 |0
-<U9F2A> \xF1\xE6 |0
-<U9F2B> \xF1\xE5 |0
-<U9F2C> \xC3\x5E |0
-<U9F2D> \xF3\xF6 |0
-<U9F2E> \xF5\xB9 |0
-<U9F2F> \xC4\xD3 |0
-<U9F30> \xF5\xB8 |0
-<U9F31> \xF6\xD1 |0
-<U9F32> \xF7\xCB |0
-<U9F33> \xF7\xCA |0
-<U9F34> \xC5\xC4 |0
-<U9F35> \xF7\xC9 |0
-<U9F36> \xF8\x7C |0
-<U9F37> \xF8\x7B |0
-<U9F38> \xF8\x7A |0
-<U9F3B> \xBB\xF3 |0
-<U9F3D> \xEC\xB8 |0
-<U9F3E> \xC2\x4D |0
-<U9F40> \xF3\xF7 |0
-<U9F41> \xF3\xF8 |0
-<U9F42> \xF7\xCC |0
-<U9F43> \xF8\x7D |0
-<U9F46> \xF8\xEA |0
-<U9F47> \xF9\x66 |0
-<U9F48> \xF9\xB9 |0
-<U9F49> \xF9\xD4 |0
-<U9F4A> \xBB\xF4 |0
-<U9F4B> \xC2\x4E |0
-<U9F4C> \xF1\xE9 |0
-<U9F4D> \xF3\xF9 |0
-<U9F4E> \xF6\xD2 |0
-<U9F4F> \xF8\x7E |0
-<U9F52> \xBE\xA6 |0
-<U9F54> \xEF\xB5 |0
-<U9F55> \xF1\xEA |0
-<U9F56> \xF3\xFA |0
-<U9F57> \xF3\xFB |0
-<U9F58> \xF3\xFC |0
-<U9F59> \xF5\xBE |0
-<U9F5B> \xF5\xBA |0
-<U9F5C> \xC5\x68 |0
-<U9F5D> \xF5\xBD |0
-<U9F5E> \xF5\xBC |0
-<U9F5F> \xC4\xD4 |0
-<U9F60> \xF5\xBB |0
-<U9F61> \xC4\xD6 |0
-<U9F63> \xC4\xD5 |0
-<U9F64> \xF6\xD4 |0
-<U9F65> \xF6\xD3 |0
-<U9F66> \xC5\x69 |0
-<U9F67> \xC5\x6A |0
-<U9F6A> \xC5\xC6 |0
-<U9F6B> \xF7\xCD |0
-<U9F6C> \xC5\xC5 |0
-<U9F6E> \xF8\xA3 |0
-<U9F6F> \xF8\xA4 |0
-<U9F70> \xF8\xA2 |0
-<U9F71> \xF8\xA1 |0
-<U9F72> \xC6\x54 |0
-<U9F74> \xF8\xEB |0
-<U9F75> \xF8\xEC |0
-<U9F76> \xF8\xED |0
-<U9F77> \xC6\x53 |0
-<U9F78> \xF9\x67 |0
-<U9F79> \xF9\x6A |0
-<U9F7A> \xF9\x69 |0
-<U9F7B> \xF9\x68 |0
-<U9F7E> \xF9\xD3 |0
-<U9F8D> \xC0\x73 |0
-<U9F90> \xC3\x65 |0
-<U9F91> \xF5\xBF |0
-<U9F92> \xF6\xD5 |0
-<U9F94> \xC5\xC7 |0
-<U9F95> \xF7\xCE |0
-<U9F98> \xF9\xD5 |0
-<U9F9C> \xC0\x74 |0
-<U9FA0> \xEF\xB6 |0
-<U9FA2> \xF7\xCF |0
-<U9FA4> \xF9\xA1 |0
-<UF6EE> \xC6\xDE |0
-<UF6EF> \xC6\xDF |0
-<UF7E5> \xC8\x79 |0
-<UF7EA> \xC8\x7E |0
-<UF7EB> \xC8\xA1 |0
-<UF7ED> \xC8\xA3 |0
-<UF7EF> \xC8\xA5 |0
-<UF7F0> \xC8\xA6 |0
-<UF7F1> \xC8\xA7 |0
-<UF7F2> \xC8\xA8 |0
-<UF7F3> \xC8\xA9 |0
-<UF7F4> \xC8\xAA |0
-<UF7F5> \xC8\xAB |0
-<UF7F6> \xC8\xAC |0
-<UF7F7> \xC8\xAD |0
-<UF7F8> \xC8\xAE |0
-<UF7F9> \xC8\xAF |0
-<UF7FA> \xC8\xB0 |0
-<UF7FB> \xC8\xB1 |0
-<UF7FC> \xC8\xB2 |0
-<UF7FD> \xC8\xB3 |0
-<UF7FE> \xC8\xB4 |0
-<UF7FF> \xC8\xB5 |0
-<UF800> \xC8\xB6 |0
-<UF801> \xC8\xB7 |0
-<UF802> \xC8\xB8 |0
-<UF803> \xC8\xB9 |0
-<UF804> \xC8\xBA |0
-<UF805> \xC8\xBB |0
-<UF806> \xC8\xBC |0
-<UF807> \xC8\xBD |0
-<UF808> \xC8\xBE |0
-<UF809> \xC8\xBF |0
-<UF80A> \xC8\xC0 |0
-<UF80B> \xC8\xC1 |0
-<UF80C> \xC8\xC2 |0
-<UF80D> \xC8\xC3 |0
-<UF80E> \xC8\xC4 |0
-<UF80F> \xC8\xC5 |0
-<UF810> \xC8\xC6 |0
-<UF811> \xC8\xC7 |0
-<UF812> \xC8\xC8 |0
-<UF813> \xC8\xC9 |0
-<UF814> \xC8\xCA |0
-<UF815> \xC8\xCB |0
-<UF816> \xC8\xCC |0
-<UFA0C> \xC9\x4A |0
-<UFA0D> \xDD\xFC |0
-<UFE30> \xA1\x4A |0
-<UFE31> \xA1\x57 |0
-<UFE33> \xA1\x59 |0
-<UFE34> \xA1\x5B |0
-<UFE35> \xA1\x5F |0
-<UFE36> \xA1\x60 |0
-<UFE37> \xA1\x63 |0
-<UFE38> \xA1\x64 |0
-<UFE39> \xA1\x67 |0
-<UFE3A> \xA1\x68 |0
-<UFE3B> \xA1\x6B |0
-<UFE3C> \xA1\x6C |0
-<UFE3D> \xA1\x6F |0
-<UFE3E> \xA1\x70 |0
-<UFE3F> \xA1\x73 |0
-<UFE40> \xA1\x74 |0
-<UFE41> \xA1\x77 |0
-<UFE42> \xA1\x78 |0
-<UFE43> \xA1\x7B |0
-<UFE44> \xA1\x7C |0
-<UFE49> \xA1\xC6 |0
-<UFE4A> \xA1\xC7 |0
-<UFE4B> \xA1\xCA |0
-<UFE4C> \xA1\xCB |0
-<UFE4D> \xA1\xC8 |0
-<UFE4E> \xA1\xC9 |0
-<UFE4F> \xA1\x5C |0
-<UFE50> \xA1\x4D |0
-<UFE51> \xA1\x4E |0
-<UFE52> \xA1\x4F |0
-<UFE54> \xA1\x51 |0
-<UFE55> \xA1\x52 |0
-<UFE56> \xA1\x53 |0
-<UFE57> \xA1\x54 |0
-<UFE59> \xA1\x7D |0
-<UFE5A> \xA1\x7E |0
-<UFE5B> \xA1\xA1 |0
-<UFE5C> \xA1\xA2 |0
-<UFE5D> \xA1\xA3 |0
-<UFE5E> \xA1\xA4 |0
-<UFE5F> \xA1\xCC |0
-<UFE60> \xA1\xCD |0
-<UFE61> \xA1\xCE |0
-<UFE62> \xA1\xDE |0
-<UFE63> \xA1\xDF |0
-<UFE64> \xA1\xE0 |0
-<UFE65> \xA1\xE1 |0
-<UFE66> \xA1\xE2 |0
-<UFE68> \xA2\x42 |0
-<UFE69> \xA2\x4C |0
-<UFE6A> \xA2\x4D |0
-<UFE6B> \xA2\x4E |0
-<UFF01> \xA1\x49 |0
-<UFF02> \xC8\xD0 |0
-<UFF03> \xA1\xAD |0
-<UFF04> \xA2\x43 |0
-<UFF05> \xA2\x48 |0
-<UFF06> \xA1\xAE |0
-<UFF07> \xC8\xCF |0
-<UFF08> \xA1\x5D |0
-<UFF09> \xA1\x5E |0
-<UFF0A> \xA1\xAF |0
-<UFF0B> \xA1\xCF |0
-<UFF0C> \xA1\x41 |0
-<UFF0D> \xA1\xD0 |0
-<UFF0E> \xA1\x44 |0
-<UFF0F> \xA1\xFE |0
-<UFF10> \xA2\xAF |0
-<UFF11> \xA2\xB0 |0
-<UFF12> \xA2\xB1 |0
-<UFF13> \xA2\xB2 |0
-<UFF14> \xA2\xB3 |0
-<UFF15> \xA2\xB4 |0
-<UFF16> \xA2\xB5 |0
-<UFF17> \xA2\xB6 |0
-<UFF18> \xA2\xB7 |0
-<UFF19> \xA2\xB8 |0
-<UFF1A> \xA1\x47 |0
-<UFF1B> \xA1\x46 |0
-<UFF1C> \xA1\xD5 |0
-<UFF1D> \xA1\xD7 |0
-<UFF1E> \xA1\xD6 |0
-<UFF1F> \xA1\x48 |0
-<UFF20> \xA2\x49 |0
-<UFF21> \xA2\xCF |0
-<UFF22> \xA2\xD0 |0
-<UFF23> \xA2\xD1 |0
-<UFF24> \xA2\xD2 |0
-<UFF25> \xA2\xD3 |0
-<UFF26> \xA2\xD4 |0
-<UFF27> \xA2\xD5 |0
-<UFF28> \xA2\xD6 |0
-<UFF29> \xA2\xD7 |0
-<UFF2A> \xA2\xD8 |0
-<UFF2B> \xA2\xD9 |0
-<UFF2C> \xA2\xDA |0
-<UFF2D> \xA2\xDB |0
-<UFF2E> \xA2\xDC |0
-<UFF2F> \xA2\xDD |0
-<UFF30> \xA2\xDE |0
-<UFF31> \xA2\xDF |0
-<UFF32> \xA2\xE0 |0
-<UFF33> \xA2\xE1 |0
-<UFF34> \xA2\xE2 |0
-<UFF35> \xA2\xE3 |0
-<UFF36> \xA2\xE4 |0
-<UFF37> \xA2\xE5 |0
-<UFF38> \xA2\xE6 |0
-<UFF39> \xA2\xE7 |0
-<UFF3A> \xA2\xE8 |0
-<UFF3B> \xC6\xE4 |0
-<UFF3C> \xA2\x40 |0
-<UFF3D> \xC6\xE5 |0
-<UFF3F> \xA1\xC4 |0
-<UFF41> \xA2\xE9 |0
-<UFF42> \xA2\xEA |0
-<UFF43> \xA2\xEB |0
-<UFF44> \xA2\xEC |0
-<UFF45> \xA2\xED |0
-<UFF46> \xA2\xEE |0
-<UFF47> \xA2\xEF |0
-<UFF48> \xA2\xF0 |0
-<UFF49> \xA2\xF1 |0
-<UFF4A> \xA2\xF2 |0
-<UFF4B> \xA2\xF3 |0
-<UFF4C> \xA2\xF4 |0
-<UFF4D> \xA2\xF5 |0
-<UFF4E> \xA2\xF6 |0
-<UFF4F> \xA2\xF7 |0
-<UFF50> \xA2\xF8 |0
-<UFF51> \xA2\xF9 |0
-<UFF52> \xA2\xFA |0
-<UFF53> \xA2\xFB |0
-<UFF54> \xA2\xFC |0
-<UFF55> \xA2\xFD |0
-<UFF56> \xA2\xFE |0
-<UFF57> \xA3\x40 |0
-<UFF58> \xA3\x41 |0
-<UFF59> \xA3\x42 |0
-<UFF5A> \xA3\x43 |0
-<UFF5B> \xA1\x61 |0
-<UFF5C> \xA1\x55 |0
-<UFF5D> \xA1\x62 |0
-<UFF5E> \xA1\xE3 |0
-<UFFE0> \xA2\x46 |0
-<UFFE1> \xA2\x47 |0
-<UFFE2> \xC8\xCD |0
-<UFFE3> \xA1\xC3 |0
-<UFFE4> \xC8\xCE |0
-<UFFE5> \xA2\x44 |0
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/cp1006.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/cp1006.ucm
deleted file mode 100644
index f1f9c5e..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/cp1006.ucm
+++ /dev/null
@@ -1,267 +0,0 @@
-#
-# $Id: cp1006.ucm,v 2.0 2004/05/16 20:55:20 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/VENDORS/MISC/CP1006.TXT
-#
-<code_set_name> "cp1006"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3F
-CHARMAP
-<U0000> \x00 |0 # NULL
-<U0001> \x01 |0 # START OF HEADING
-<U0002> \x02 |0 # START OF TEXT
-<U0003> \x03 |0 # END OF TEXT
-<U0004> \x04 |0 # END OF TRANSMISSION
-<U0005> \x05 |0 # ENQUIRY
-<U0006> \x06 |0 # ACKNOWLEDGE
-<U0007> \x07 |0 # BELL
-<U0008> \x08 |0 # BACKSPACE
-<U0009> \x09 |0 # HORIZONTAL TABULATION
-<U000A> \x0A |0 # LINE FEED
-<U000B> \x0B |0 # VERTICAL TABULATION
-<U000C> \x0C |0 # FORM FEED
-<U000D> \x0D |0 # CARRIAGE RETURN
-<U000E> \x0E |0 # SHIFT OUT
-<U000F> \x0F |0 # SHIFT IN
-<U0010> \x10 |0 # DATA LINK ESCAPE
-<U0011> \x11 |0 # DEVICE CONTROL ONE
-<U0012> \x12 |0 # DEVICE CONTROL TWO
-<U0013> \x13 |0 # DEVICE CONTROL THREE
-<U0014> \x14 |0 # DEVICE CONTROL FOUR
-<U0015> \x15 |0 # NEGATIVE ACKNOWLEDGE
-<U0016> \x16 |0 # SYNCHRONOUS IDLE
-<U0017> \x17 |0 # END OF TRANSMISSION BLOCK
-<U0018> \x18 |0 # CANCEL
-<U0019> \x19 |0 # END OF MEDIUM
-<U001A> \x1A |0 # SUBSTITUTE
-<U001B> \x1B |0 # ESCAPE
-<U001C> \x1C |0 # FILE SEPARATOR
-<U001D> \x1D |0 # GROUP SEPARATOR
-<U001E> \x1E |0 # RECORD SEPARATOR
-<U001F> \x1F |0 # UNIT SEPARATOR
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002A> \x2A |0 # ASTERISK
-<U002B> \x2B |0 # PLUS SIGN
-<U002C> \x2C |0 # COMMA
-<U002D> \x2D |0 # HYPHEN-MINUS
-<U002E> \x2E |0 # FULL STOP
-<U002F> \x2F |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003A> \x3A |0 # COLON
-<U003B> \x3B |0 # SEMICOLON
-<U003C> \x3C |0 # LESS-THAN SIGN
-<U003D> \x3D |0 # EQUALS SIGN
-<U003E> \x3E |0 # GREATER-THAN SIGN
-<U003F> \x3F |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004A> \x4A |0 # LATIN CAPITAL LETTER J
-<U004B> \x4B |0 # LATIN CAPITAL LETTER K
-<U004C> \x4C |0 # LATIN CAPITAL LETTER L
-<U004D> \x4D |0 # LATIN CAPITAL LETTER M
-<U004E> \x4E |0 # LATIN CAPITAL LETTER N
-<U004F> \x4F |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005A> \x5A |0 # LATIN CAPITAL LETTER Z
-<U005B> \x5B |0 # LEFT SQUARE BRACKET
-<U005C> \x5C |0 # REVERSE SOLIDUS
-<U005D> \x5D |0 # RIGHT SQUARE BRACKET
-<U005E> \x5E |0 # CIRCUMFLEX ACCENT
-<U005F> \x5F |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006A> \x6A |0 # LATIN SMALL LETTER J
-<U006B> \x6B |0 # LATIN SMALL LETTER K
-<U006C> \x6C |0 # LATIN SMALL LETTER L
-<U006D> \x6D |0 # LATIN SMALL LETTER M
-<U006E> \x6E |0 # LATIN SMALL LETTER N
-<U006F> \x6F |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007A> \x7A |0 # LATIN SMALL LETTER Z
-<U007B> \x7B |0 # LEFT CURLY BRACKET
-<U007C> \x7C |0 # VERTICAL LINE
-<U007D> \x7D |0 # RIGHT CURLY BRACKET
-<U007E> \x7E |0 # TILDE
-<U007F> \x7F |0 # DELETE
-<U0080> \x80 |0 # <control>
-<U0081> \x81 |0 # <control>
-<U0082> \x82 |0 # <control>
-<U0083> \x83 |0 # <control>
-<U0084> \x84 |0 # <control>
-<U0085> \x85 |0 # <control>
-<U0086> \x86 |0 # <control>
-<U0087> \x87 |0 # <control>
-<U0088> \x88 |0 # <control>
-<U0089> \x89 |0 # <control>
-<U008A> \x8A |0 # <control>
-<U008B> \x8B |0 # <control>
-<U008C> \x8C |0 # <control>
-<U008D> \x8D |0 # <control>
-<U008E> \x8E |0 # <control>
-<U008F> \x8F |0 # <control>
-<U0090> \x90 |0 # <control>
-<U0091> \x91 |0 # <control>
-<U0092> \x92 |0 # <control>
-<U0093> \x93 |0 # <control>
-<U0094> \x94 |0 # <control>
-<U0095> \x95 |0 # <control>
-<U0096> \x96 |0 # <control>
-<U0097> \x97 |0 # <control>
-<U0098> \x98 |0 # <control>
-<U0099> \x99 |0 # <control>
-<U009A> \x9A |0 # <control>
-<U009B> \x9B |0 # <control>
-<U009C> \x9C |0 # <control>
-<U009D> \x9D |0 # <control>
-<U009E> \x9E |0 # <control>
-<U009F> \x9F |0 # <control>
-<U00A0> \xA0 |0 # NO-BREAK SPACE
-<U00AD> \xAD |0 # SOFT HYPHEN
-<U060C> \xAB |0 # ARABIC COMMA
-<U061B> \xAC |0 # ARABIC SEMICOLON
-<U061F> \xAE |0 # ARABIC QUESTION MARK
-<U06F0> \xA1 |0 # EXTENDED ARABIC-INDIC DIGIT ZERO
-<U06F1> \xA2 |0 # EXTENDED ARABIC-INDIC DIGIT ONE
-<U06F2> \xA3 |0 # EXTENDED ARABIC-INDIC DIGIT TWO
-<U06F3> \xA4 |0 # EXTENDED ARABIC-INDIC DIGIT THREE
-<U06F4> \xA5 |0 # EXTENDED ARABIC-INDIC DIGIT FOUR
-<U06F5> \xA6 |0 # EXTENDED ARABIC-INDIC DIGIT FIVE
-<U06F6> \xA7 |0 # EXTENDED ARABIC-INDIC DIGIT SIX
-<U06F7> \xA8 |0 # EXTENDED ARABIC-INDIC DIGIT SEVEN
-<U06F8> \xA9 |0 # EXTENDED ARABIC-INDIC DIGIT EIGHT
-<U06F9> \xAA |0 # EXTENDED ARABIC-INDIC DIGIT NINE
-<UFB56> \xB5 |0 # ARABIC LETTER PEH ISOLATED FORM
-<UFB58> \xB6 |0 # ARABIC LETTER PEH INITIAL FORM
-<UFB66> \xBA |0 # ARABIC LETTER TTEH ISOLATED FORM
-<UFB68> \xBB |0 # ARABIC LETTER TTEH INITIAL FORM
-<UFB7A> \xC0 |0 # ARABIC LETTER TCHEH ISOLATED FORM
-<UFB7C> \xC1 |0 # ARABIC LETTER TCHEH INITIAL FORM
-<UFB84> \xC7 |0 # ARABIC LETTER DAHAL ISOLATED FORMN
-<UFB8A> \xCC |0 # ARABIC LETTER JEH ISOLATED FORM
-<UFB8C> \xCA |0 # ARABIC LETTER RREH ISOLATED FORM
-<UFB92> \xE5 |0 # ARABIC LETTER GAF ISOLATED FORM
-<UFB94> \xE6 |0 # ARABIC LETTER GAF INITIAL FORM
-<UFB9E> \xEC |0 # ARABIC LETTER NOON GHUNNA ISOLATED FORM
-<UFBA6> \xF1 |0 # ARABIC LETTER HEH GOAL ISOLATED FORM
-<UFBA8> \xF2 |0 # ARABIC LETTER HEH GOAL INITIAL FORM
-<UFBA9> \xF3 |0 # ARABIC LETTER HEH GOAL MEDIAL FORM
-<UFBAA> \xF4 |0 # ARABIC LETTER HEH DOACHASHMEE ISOLATED FORM
-<UFBAE> \xFD |0 # ARABIC LETTER YEH BARREE ISOLATED FORM
-<UFBB0> \xFC |0 # ARABIC LETTER YEH BARREE WITH HAMZA ABOVE ISOLATED FORM
-<UFE7C> \xFE |0 # ARABIC SHADDA ISOLATED FORM
-<UFE7D> \xFF |0 # ARABIC SHADDA MEDIAL FORM
-<UFE80> \xF5 |0 # ARABIC LETTER HAMZA ISOLATED FORM
-<UFE81> \xAF |0 # ARABIC LETTER ALEF WITH MADDA ABOVE ISOLATED FORM
-<UFE85> \xEF |0 # ARABIC LETTER WAW WITH HAMZA ABOVE ISOLATED FORM
-<UFE89> \xF6 |0 # ARABIC LETTER YEH WITH HAMZA ABOVE ISOLATED FORM
-<UFE8A> \xF7 |0 # ARABIC LETTER YEH WITH HAMZA ABOVE FINAL FORM
-<UFE8B> \xF8 |0 # ARABIC LETTER YEH WITH HAMZA ABOVE INITIAL FORM
-<UFE8D> \xB0 |0 # ARABIC LETTER ALEF ISOLATED FORM
-<UFE8E> \xB2 |0 # ARABIC LETTER ALEF FINAL FORM
-<UFE8F> \xB3 |0 # ARABIC LETTER BEH ISOLATED FORM
-<UFE91> \xB4 |0 # ARABIC LETTER BEH INITIAL FORM
-<UFE93> \xB7 |0 # ARABIC LETTER TEH MARBUTA ISOLATED FORM
-<UFE95> \xB8 |0 # ARABIC LETTER TEH ISOLATED FORM
-<UFE97> \xB9 |0 # ARABIC LETTER TEH INITIAL FORM
-<UFE99> \xBC |0 # ARABIC LETTER THEH ISOLATED FORM
-<UFE9B> \xBD |0 # ARABIC LETTER THEH INITIAL FORM
-<UFE9D> \xBE |0 # ARABIC LETTER JEEM ISOLATED FORM
-<UFE9F> \xBF |0 # ARABIC LETTER JEEM INITIAL FORM
-<UFEA1> \xC2 |0 # ARABIC LETTER HAH ISOLATED FORM
-<UFEA3> \xC3 |0 # ARABIC LETTER HAH INITIAL FORM
-<UFEA5> \xC4 |0 # ARABIC LETTER KHAH ISOLATED FORM
-<UFEA7> \xC5 |0 # ARABIC LETTER KHAH INITIAL FORM
-<UFEA9> \xC6 |0 # ARABIC LETTER DAL ISOLATED FORM
-<UFEAB> \xC8 |0 # ARABIC LETTER THAL ISOLATED FORM
-<UFEAD> \xC9 |0 # ARABIC LETTER REH ISOLATED FORM
-<UFEAF> \xCB |0 # ARABIC LETTER ZAIN ISOLATED FORM
-<UFEB1> \xCD |0 # ARABIC LETTER SEEN ISOLATED FORM
-<UFEB3> \xCE |0 # ARABIC LETTER SEEN INITIAL FORM
-<UFEB5> \xCF |0 # ARABIC LETTER SHEEN ISOLATED FORM
-<UFEB7> \xD0 |0 # ARABIC LETTER SHEEN INITIAL FORM
-<UFEB9> \xD1 |0 # ARABIC LETTER SAD ISOLATED FORM
-<UFEBB> \xD2 |0 # ARABIC LETTER SAD INITIAL FORM
-<UFEBD> \xD3 |0 # ARABIC LETTER DAD ISOLATED FORM
-<UFEBF> \xD4 |0 # ARABIC LETTER DAD INITIAL FORM
-<UFEC1> \xD5 |0 # ARABIC LETTER TAH ISOLATED FORM
-<UFEC5> \xD6 |0 # ARABIC LETTER ZAH ISOLATED FORM
-<UFEC9> \xD7 |0 # ARABIC LETTER AIN ISOLATED FORM
-<UFECA> \xD8 |0 # ARABIC LETTER AIN FINAL FORM
-<UFECB> \xD9 |0 # ARABIC LETTER AIN INITIAL FORM
-<UFECC> \xDA |0 # ARABIC LETTER AIN MEDIAL FORM
-<UFECD> \xDB |0 # ARABIC LETTER GHAIN ISOLATED FORM
-<UFECE> \xDC |0 # ARABIC LETTER GHAIN FINAL FORM
-<UFECF> \xDD |0 # ARABIC LETTER GHAIN INITIAL FORM
-<UFED0> \xDE |0 # ARABIC LETTER GHAIN MEDIAL FORM
-<UFED1> \xDF |0 # ARABIC LETTER FEH ISOLATED FORM
-<UFED3> \xE0 |0 # ARABIC LETTER FEH INITIAL FORM
-<UFED5> \xE1 |0 # ARABIC LETTER QAF ISOLATED FORM
-<UFED7> \xE2 |0 # ARABIC LETTER QAF INITIAL FORM
-<UFED9> \xE3 |0 # ARABIC LETTER KAF ISOLATED FORM
-<UFEDB> \xE4 |0 # ARABIC LETTER KAF INITIAL FORM
-<UFEDD> \xE7 |0 # ARABIC LETTER LAM ISOLATED FORM
-<UFEDF> \xE8 |0 # ARABIC LETTER LAM INITIAL FORM
-<UFEE0> \xE9 |0 # ARABIC LETTER LAM MEDIAL FORM
-<UFEE1> \xEA |0 # ARABIC LETTER MEEM ISOLATED FORM
-<UFEE3> \xEB |0 # ARABIC LETTER MEEM INITIAL FORM
-<UFEE5> \xED |0 # ARABIC LETTER NOON ISOLATED FORM
-<UFEE7> \xEE |0 # ARABIC LETTER NOON INITIAL FORM
-<UFEED> \xF0 |0 # ARABIC LETTER WAW ISOLATED FORM
-<UFEF1> \xF9 |0 # ARABIC LETTER YEH ISOLATED FORM
-<UFEF2> \xFA |0 # ARABIC LETTER YEH FINAL FORM
-<UFEF3> \xFB |0 # ARABIC LETTER YEH INITIAL FORM
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/cp1251.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/cp1251.ucm
deleted file mode 100644
index 656e0da..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/cp1251.ucm
+++ /dev/null
@@ -1,267 +0,0 @@
-#
-# $Id: cp1251.ucm,v 2.0 2004/05/16 20:55:20 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1251.TXT
-#
-<code_set_name> "cp1251"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3F
-CHARMAP
-<U0000> \x00 |0 # NULL
-<U0001> \x01 |0 # START OF HEADING
-<U0002> \x02 |0 # START OF TEXT
-<U0003> \x03 |0 # END OF TEXT
-<U0004> \x04 |0 # END OF TRANSMISSION
-<U0005> \x05 |0 # ENQUIRY
-<U0006> \x06 |0 # ACKNOWLEDGE
-<U0007> \x07 |0 # BELL
-<U0008> \x08 |0 # BACKSPACE
-<U0009> \x09 |0 # HORIZONTAL TABULATION
-<U000A> \x0A |0 # LINE FEED
-<U000B> \x0B |0 # VERTICAL TABULATION
-<U000C> \x0C |0 # FORM FEED
-<U000D> \x0D |0 # CARRIAGE RETURN
-<U000E> \x0E |0 # SHIFT OUT
-<U000F> \x0F |0 # SHIFT IN
-<U0010> \x10 |0 # DATA LINK ESCAPE
-<U0011> \x11 |0 # DEVICE CONTROL ONE
-<U0012> \x12 |0 # DEVICE CONTROL TWO
-<U0013> \x13 |0 # DEVICE CONTROL THREE
-<U0014> \x14 |0 # DEVICE CONTROL FOUR
-<U0015> \x15 |0 # NEGATIVE ACKNOWLEDGE
-<U0016> \x16 |0 # SYNCHRONOUS IDLE
-<U0017> \x17 |0 # END OF TRANSMISSION BLOCK
-<U0018> \x18 |0 # CANCEL
-<U0019> \x19 |0 # END OF MEDIUM
-<U001A> \x1A |0 # SUBSTITUTE
-<U001B> \x1B |0 # ESCAPE
-<U001C> \x1C |0 # FILE SEPARATOR
-<U001D> \x1D |0 # GROUP SEPARATOR
-<U001E> \x1E |0 # RECORD SEPARATOR
-<U001F> \x1F |0 # UNIT SEPARATOR
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002A> \x2A |0 # ASTERISK
-<U002B> \x2B |0 # PLUS SIGN
-<U002C> \x2C |0 # COMMA
-<U002D> \x2D |0 # HYPHEN-MINUS
-<U002E> \x2E |0 # FULL STOP
-<U002F> \x2F |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003A> \x3A |0 # COLON
-<U003B> \x3B |0 # SEMICOLON
-<U003C> \x3C |0 # LESS-THAN SIGN
-<U003D> \x3D |0 # EQUALS SIGN
-<U003E> \x3E |0 # GREATER-THAN SIGN
-<U003F> \x3F |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004A> \x4A |0 # LATIN CAPITAL LETTER J
-<U004B> \x4B |0 # LATIN CAPITAL LETTER K
-<U004C> \x4C |0 # LATIN CAPITAL LETTER L
-<U004D> \x4D |0 # LATIN CAPITAL LETTER M
-<U004E> \x4E |0 # LATIN CAPITAL LETTER N
-<U004F> \x4F |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005A> \x5A |0 # LATIN CAPITAL LETTER Z
-<U005B> \x5B |0 # LEFT SQUARE BRACKET
-<U005C> \x5C |0 # REVERSE SOLIDUS
-<U005D> \x5D |0 # RIGHT SQUARE BRACKET
-<U005E> \x5E |0 # CIRCUMFLEX ACCENT
-<U005F> \x5F |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006A> \x6A |0 # LATIN SMALL LETTER J
-<U006B> \x6B |0 # LATIN SMALL LETTER K
-<U006C> \x6C |0 # LATIN SMALL LETTER L
-<U006D> \x6D |0 # LATIN SMALL LETTER M
-<U006E> \x6E |0 # LATIN SMALL LETTER N
-<U006F> \x6F |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007A> \x7A |0 # LATIN SMALL LETTER Z
-<U007B> \x7B |0 # LEFT CURLY BRACKET
-<U007C> \x7C |0 # VERTICAL LINE
-<U007D> \x7D |0 # RIGHT CURLY BRACKET
-<U007E> \x7E |0 # TILDE
-<U007F> \x7F |0 # DELETE
-<U00A0> \xA0 |0 # NO-BREAK SPACE
-<U00A4> \xA4 |0 # CURRENCY SIGN
-<U00A6> \xA6 |0 # BROKEN BAR
-<U00A7> \xA7 |0 # SECTION SIGN
-<U00A9> \xA9 |0 # COPYRIGHT SIGN
-<U00AB> \xAB |0 # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00AC> \xAC |0 # NOT SIGN
-<U00AD> \xAD |0 # SOFT HYPHEN
-<U00AE> \xAE |0 # REGISTERED SIGN
-<U00B0> \xB0 |0 # DEGREE SIGN
-<U00B1> \xB1 |0 # PLUS-MINUS SIGN
-<U00B5> \xB5 |0 # MICRO SIGN
-<U00B6> \xB6 |0 # PILCROW SIGN
-<U00B7> \xB7 |0 # MIDDLE DOT
-<U00BB> \xBB |0 # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U0401> \xA8 |0 # CYRILLIC CAPITAL LETTER IO
-<U0402> \x80 |0 # CYRILLIC CAPITAL LETTER DJE
-<U0403> \x81 |0 # CYRILLIC CAPITAL LETTER GJE
-<U0404> \xAA |0 # CYRILLIC CAPITAL LETTER UKRAINIAN IE
-<U0405> \xBD |0 # CYRILLIC CAPITAL LETTER DZE
-<U0406> \xB2 |0 # CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I
-<U0407> \xAF |0 # CYRILLIC CAPITAL LETTER YI
-<U0408> \xA3 |0 # CYRILLIC CAPITAL LETTER JE
-<U0409> \x8A |0 # CYRILLIC CAPITAL LETTER LJE
-<U040A> \x8C |0 # CYRILLIC CAPITAL LETTER NJE
-<U040B> \x8E |0 # CYRILLIC CAPITAL LETTER TSHE
-<U040C> \x8D |0 # CYRILLIC CAPITAL LETTER KJE
-<U040E> \xA1 |0 # CYRILLIC CAPITAL LETTER SHORT U
-<U040F> \x8F |0 # CYRILLIC CAPITAL LETTER DZHE
-<U0410> \xC0 |0 # CYRILLIC CAPITAL LETTER A
-<U0411> \xC1 |0 # CYRILLIC CAPITAL LETTER BE
-<U0412> \xC2 |0 # CYRILLIC CAPITAL LETTER VE
-<U0413> \xC3 |0 # CYRILLIC CAPITAL LETTER GHE
-<U0414> \xC4 |0 # CYRILLIC CAPITAL LETTER DE
-<U0415> \xC5 |0 # CYRILLIC CAPITAL LETTER IE
-<U0416> \xC6 |0 # CYRILLIC CAPITAL LETTER ZHE
-<U0417> \xC7 |0 # CYRILLIC CAPITAL LETTER ZE
-<U0418> \xC8 |0 # CYRILLIC CAPITAL LETTER I
-<U0419> \xC9 |0 # CYRILLIC CAPITAL LETTER SHORT I
-<U041A> \xCA |0 # CYRILLIC CAPITAL LETTER KA
-<U041B> \xCB |0 # CYRILLIC CAPITAL LETTER EL
-<U041C> \xCC |0 # CYRILLIC CAPITAL LETTER EM
-<U041D> \xCD |0 # CYRILLIC CAPITAL LETTER EN
-<U041E> \xCE |0 # CYRILLIC CAPITAL LETTER O
-<U041F> \xCF |0 # CYRILLIC CAPITAL LETTER PE
-<U0420> \xD0 |0 # CYRILLIC CAPITAL LETTER ER
-<U0421> \xD1 |0 # CYRILLIC CAPITAL LETTER ES
-<U0422> \xD2 |0 # CYRILLIC CAPITAL LETTER TE
-<U0423> \xD3 |0 # CYRILLIC CAPITAL LETTER U
-<U0424> \xD4 |0 # CYRILLIC CAPITAL LETTER EF
-<U0425> \xD5 |0 # CYRILLIC CAPITAL LETTER HA
-<U0426> \xD6 |0 # CYRILLIC CAPITAL LETTER TSE
-<U0427> \xD7 |0 # CYRILLIC CAPITAL LETTER CHE
-<U0428> \xD8 |0 # CYRILLIC CAPITAL LETTER SHA
-<U0429> \xD9 |0 # CYRILLIC CAPITAL LETTER SHCHA
-<U042A> \xDA |0 # CYRILLIC CAPITAL LETTER HARD SIGN
-<U042B> \xDB |0 # CYRILLIC CAPITAL LETTER YERU
-<U042C> \xDC |0 # CYRILLIC CAPITAL LETTER SOFT SIGN
-<U042D> \xDD |0 # CYRILLIC CAPITAL LETTER E
-<U042E> \xDE |0 # CYRILLIC CAPITAL LETTER YU
-<U042F> \xDF |0 # CYRILLIC CAPITAL LETTER YA
-<U0430> \xE0 |0 # CYRILLIC SMALL LETTER A
-<U0431> \xE1 |0 # CYRILLIC SMALL LETTER BE
-<U0432> \xE2 |0 # CYRILLIC SMALL LETTER VE
-<U0433> \xE3 |0 # CYRILLIC SMALL LETTER GHE
-<U0434> \xE4 |0 # CYRILLIC SMALL LETTER DE
-<U0435> \xE5 |0 # CYRILLIC SMALL LETTER IE
-<U0436> \xE6 |0 # CYRILLIC SMALL LETTER ZHE
-<U0437> \xE7 |0 # CYRILLIC SMALL LETTER ZE
-<U0438> \xE8 |0 # CYRILLIC SMALL LETTER I
-<U0439> \xE9 |0 # CYRILLIC SMALL LETTER SHORT I
-<U043A> \xEA |0 # CYRILLIC SMALL LETTER KA
-<U043B> \xEB |0 # CYRILLIC SMALL LETTER EL
-<U043C> \xEC |0 # CYRILLIC SMALL LETTER EM
-<U043D> \xED |0 # CYRILLIC SMALL LETTER EN
-<U043E> \xEE |0 # CYRILLIC SMALL LETTER O
-<U043F> \xEF |0 # CYRILLIC SMALL LETTER PE
-<U0440> \xF0 |0 # CYRILLIC SMALL LETTER ER
-<U0441> \xF1 |0 # CYRILLIC SMALL LETTER ES
-<U0442> \xF2 |0 # CYRILLIC SMALL LETTER TE
-<U0443> \xF3 |0 # CYRILLIC SMALL LETTER U
-<U0444> \xF4 |0 # CYRILLIC SMALL LETTER EF
-<U0445> \xF5 |0 # CYRILLIC SMALL LETTER HA
-<U0446> \xF6 |0 # CYRILLIC SMALL LETTER TSE
-<U0447> \xF7 |0 # CYRILLIC SMALL LETTER CHE
-<U0448> \xF8 |0 # CYRILLIC SMALL LETTER SHA
-<U0449> \xF9 |0 # CYRILLIC SMALL LETTER SHCHA
-<U044A> \xFA |0 # CYRILLIC SMALL LETTER HARD SIGN
-<U044B> \xFB |0 # CYRILLIC SMALL LETTER YERU
-<U044C> \xFC |0 # CYRILLIC SMALL LETTER SOFT SIGN
-<U044D> \xFD |0 # CYRILLIC SMALL LETTER E
-<U044E> \xFE |0 # CYRILLIC SMALL LETTER YU
-<U044F> \xFF |0 # CYRILLIC SMALL LETTER YA
-<U0451> \xB8 |0 # CYRILLIC SMALL LETTER IO
-<U0452> \x90 |0 # CYRILLIC SMALL LETTER DJE
-<U0453> \x83 |0 # CYRILLIC SMALL LETTER GJE
-<U0454> \xBA |0 # CYRILLIC SMALL LETTER UKRAINIAN IE
-<U0455> \xBE |0 # CYRILLIC SMALL LETTER DZE
-<U0456> \xB3 |0 # CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I
-<U0457> \xBF |0 # CYRILLIC SMALL LETTER YI
-<U0458> \xBC |0 # CYRILLIC SMALL LETTER JE
-<U0459> \x9A |0 # CYRILLIC SMALL LETTER LJE
-<U045A> \x9C |0 # CYRILLIC SMALL LETTER NJE
-<U045B> \x9E |0 # CYRILLIC SMALL LETTER TSHE
-<U045C> \x9D |0 # CYRILLIC SMALL LETTER KJE
-<U045E> \xA2 |0 # CYRILLIC SMALL LETTER SHORT U
-<U045F> \x9F |0 # CYRILLIC SMALL LETTER DZHE
-<U0490> \xA5 |0 # CYRILLIC CAPITAL LETTER GHE WITH UPTURN
-<U0491> \xB4 |0 # CYRILLIC SMALL LETTER GHE WITH UPTURN
-<U2013> \x96 |0 # EN DASH
-<U2014> \x97 |0 # EM DASH
-<U2018> \x91 |0 # LEFT SINGLE QUOTATION MARK
-<U2019> \x92 |0 # RIGHT SINGLE QUOTATION MARK
-<U201A> \x82 |0 # SINGLE LOW-9 QUOTATION MARK
-<U201C> \x93 |0 # LEFT DOUBLE QUOTATION MARK
-<U201D> \x94 |0 # RIGHT DOUBLE QUOTATION MARK
-<U201E> \x84 |0 # DOUBLE LOW-9 QUOTATION MARK
-<U2020> \x86 |0 # DAGGER
-<U2021> \x87 |0 # DOUBLE DAGGER
-<U2022> \x95 |0 # BULLET
-<U2026> \x85 |0 # HORIZONTAL ELLIPSIS
-<U2030> \x89 |0 # PER MILLE SIGN
-<U2039> \x8B |0 # SINGLE LEFT-POINTING ANGLE QUOTATION MARK
-<U203A> \x9B |0 # SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
-<U20AC> \x88 |0 # EURO SIGN
-<U2116> \xB9 |0 # NUMERO SIGN
-<U2122> \x99 |0 # TRADE MARK SIGN
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/cp1255.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/cp1255.ucm
deleted file mode 100644
index e1f4e40..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/cp1255.ucm
+++ /dev/null
@@ -1,245 +0,0 @@
-#
-# $Id: cp1255.ucm,v 2.0 2004/05/16 20:55:20 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1255.TXT
-#
-<code_set_name> "cp1255"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3F
-CHARMAP
-<U0000> \x00 |0 # NULL
-<U0001> \x01 |0 # START OF HEADING
-<U0002> \x02 |0 # START OF TEXT
-<U0003> \x03 |0 # END OF TEXT
-<U0004> \x04 |0 # END OF TRANSMISSION
-<U0005> \x05 |0 # ENQUIRY
-<U0006> \x06 |0 # ACKNOWLEDGE
-<U0007> \x07 |0 # BELL
-<U0008> \x08 |0 # BACKSPACE
-<U0009> \x09 |0 # HORIZONTAL TABULATION
-<U000A> \x0A |0 # LINE FEED
-<U000B> \x0B |0 # VERTICAL TABULATION
-<U000C> \x0C |0 # FORM FEED
-<U000D> \x0D |0 # CARRIAGE RETURN
-<U000E> \x0E |0 # SHIFT OUT
-<U000F> \x0F |0 # SHIFT IN
-<U0010> \x10 |0 # DATA LINK ESCAPE
-<U0011> \x11 |0 # DEVICE CONTROL ONE
-<U0012> \x12 |0 # DEVICE CONTROL TWO
-<U0013> \x13 |0 # DEVICE CONTROL THREE
-<U0014> \x14 |0 # DEVICE CONTROL FOUR
-<U0015> \x15 |0 # NEGATIVE ACKNOWLEDGE
-<U0016> \x16 |0 # SYNCHRONOUS IDLE
-<U0017> \x17 |0 # END OF TRANSMISSION BLOCK
-<U0018> \x18 |0 # CANCEL
-<U0019> \x19 |0 # END OF MEDIUM
-<U001A> \x1A |0 # SUBSTITUTE
-<U001B> \x1B |0 # ESCAPE
-<U001C> \x1C |0 # FILE SEPARATOR
-<U001D> \x1D |0 # GROUP SEPARATOR
-<U001E> \x1E |0 # RECORD SEPARATOR
-<U001F> \x1F |0 # UNIT SEPARATOR
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002A> \x2A |0 # ASTERISK
-<U002B> \x2B |0 # PLUS SIGN
-<U002C> \x2C |0 # COMMA
-<U002D> \x2D |0 # HYPHEN-MINUS
-<U002E> \x2E |0 # FULL STOP
-<U002F> \x2F |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003A> \x3A |0 # COLON
-<U003B> \x3B |0 # SEMICOLON
-<U003C> \x3C |0 # LESS-THAN SIGN
-<U003D> \x3D |0 # EQUALS SIGN
-<U003E> \x3E |0 # GREATER-THAN SIGN
-<U003F> \x3F |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004A> \x4A |0 # LATIN CAPITAL LETTER J
-<U004B> \x4B |0 # LATIN CAPITAL LETTER K
-<U004C> \x4C |0 # LATIN CAPITAL LETTER L
-<U004D> \x4D |0 # LATIN CAPITAL LETTER M
-<U004E> \x4E |0 # LATIN CAPITAL LETTER N
-<U004F> \x4F |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005A> \x5A |0 # LATIN CAPITAL LETTER Z
-<U005B> \x5B |0 # LEFT SQUARE BRACKET
-<U005C> \x5C |0 # REVERSE SOLIDUS
-<U005D> \x5D |0 # RIGHT SQUARE BRACKET
-<U005E> \x5E |0 # CIRCUMFLEX ACCENT
-<U005F> \x5F |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006A> \x6A |0 # LATIN SMALL LETTER J
-<U006B> \x6B |0 # LATIN SMALL LETTER K
-<U006C> \x6C |0 # LATIN SMALL LETTER L
-<U006D> \x6D |0 # LATIN SMALL LETTER M
-<U006E> \x6E |0 # LATIN SMALL LETTER N
-<U006F> \x6F |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007A> \x7A |0 # LATIN SMALL LETTER Z
-<U007B> \x7B |0 # LEFT CURLY BRACKET
-<U007C> \x7C |0 # VERTICAL LINE
-<U007D> \x7D |0 # RIGHT CURLY BRACKET
-<U007E> \x7E |0 # TILDE
-<U007F> \x7F |0 # DELETE
-<U00A0> \xA0 |0 # NO-BREAK SPACE
-<U00A1> \xA1 |0 # INVERTED EXCLAMATION MARK
-<U00A2> \xA2 |0 # CENT SIGN
-<U00A3> \xA3 |0 # POUND SIGN
-<U00A5> \xA5 |0 # YEN SIGN
-<U00A6> \xA6 |0 # BROKEN BAR
-<U00A7> \xA7 |0 # SECTION SIGN
-<U00A8> \xA8 |0 # DIAERESIS
-<U00A9> \xA9 |0 # COPYRIGHT SIGN
-<U00AB> \xAB |0 # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00AC> \xAC |0 # NOT SIGN
-<U00AD> \xAD |0 # SOFT HYPHEN
-<U00AE> \xAE |0 # REGISTERED SIGN
-<U00AF> \xAF |0 # MACRON
-<U00B0> \xB0 |0 # DEGREE SIGN
-<U00B1> \xB1 |0 # PLUS-MINUS SIGN
-<U00B2> \xB2 |0 # SUPERSCRIPT TWO
-<U00B3> \xB3 |0 # SUPERSCRIPT THREE
-<U00B4> \xB4 |0 # ACUTE ACCENT
-<U00B5> \xB5 |0 # MICRO SIGN
-<U00B6> \xB6 |0 # PILCROW SIGN
-<U00B7> \xB7 |0 # MIDDLE DOT
-<U00B8> \xB8 |0 # CEDILLA
-<U00B9> \xB9 |0 # SUPERSCRIPT ONE
-<U00BB> \xBB |0 # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00BC> \xBC |0 # VULGAR FRACTION ONE QUARTER
-<U00BD> \xBD |0 # VULGAR FRACTION ONE HALF
-<U00BE> \xBE |0 # VULGAR FRACTION THREE QUARTERS
-<U00BF> \xBF |0 # INVERTED QUESTION MARK
-<U00D7> \xAA |0 # MULTIPLICATION SIGN
-<U00F7> \xBA |0 # DIVISION SIGN
-<U0192> \x83 |0 # LATIN SMALL LETTER F WITH HOOK
-<U02C6> \x88 |0 # MODIFIER LETTER CIRCUMFLEX ACCENT
-<U02DC> \x98 |0 # SMALL TILDE
-<U05B0> \xC0 |0 # HEBREW POINT SHEVA
-<U05B1> \xC1 |0 # HEBREW POINT HATAF SEGOL
-<U05B2> \xC2 |0 # HEBREW POINT HATAF PATAH
-<U05B3> \xC3 |0 # HEBREW POINT HATAF QAMATS
-<U05B4> \xC4 |0 # HEBREW POINT HIRIQ
-<U05B5> \xC5 |0 # HEBREW POINT TSERE
-<U05B6> \xC6 |0 # HEBREW POINT SEGOL
-<U05B7> \xC7 |0 # HEBREW POINT PATAH
-<U05B8> \xC8 |0 # HEBREW POINT QAMATS
-<U05B9> \xC9 |0 # HEBREW POINT HOLAM
-<U05BB> \xCB |0 # HEBREW POINT QUBUTS
-<U05BC> \xCC |0 # HEBREW POINT DAGESH OR MAPIQ
-<U05BD> \xCD |0 # HEBREW POINT METEG
-<U05BE> \xCE |0 # HEBREW PUNCTUATION MAQAF
-<U05BF> \xCF |0 # HEBREW POINT RAFE
-<U05C0> \xD0 |0 # HEBREW PUNCTUATION PASEQ
-<U05C1> \xD1 |0 # HEBREW POINT SHIN DOT
-<U05C2> \xD2 |0 # HEBREW POINT SIN DOT
-<U05C3> \xD3 |0 # HEBREW PUNCTUATION SOF PASUQ
-<U05D0> \xE0 |0 # HEBREW LETTER ALEF
-<U05D1> \xE1 |0 # HEBREW LETTER BET
-<U05D2> \xE2 |0 # HEBREW LETTER GIMEL
-<U05D3> \xE3 |0 # HEBREW LETTER DALET
-<U05D4> \xE4 |0 # HEBREW LETTER HE
-<U05D5> \xE5 |0 # HEBREW LETTER VAV
-<U05D6> \xE6 |0 # HEBREW LETTER ZAYIN
-<U05D7> \xE7 |0 # HEBREW LETTER HET
-<U05D8> \xE8 |0 # HEBREW LETTER TET
-<U05D9> \xE9 |0 # HEBREW LETTER YOD
-<U05DA> \xEA |0 # HEBREW LETTER FINAL KAF
-<U05DB> \xEB |0 # HEBREW LETTER KAF
-<U05DC> \xEC |0 # HEBREW LETTER LAMED
-<U05DD> \xED |0 # HEBREW LETTER FINAL MEM
-<U05DE> \xEE |0 # HEBREW LETTER MEM
-<U05DF> \xEF |0 # HEBREW LETTER FINAL NUN
-<U05E0> \xF0 |0 # HEBREW LETTER NUN
-<U05E1> \xF1 |0 # HEBREW LETTER SAMEKH
-<U05E2> \xF2 |0 # HEBREW LETTER AYIN
-<U05E3> \xF3 |0 # HEBREW LETTER FINAL PE
-<U05E4> \xF4 |0 # HEBREW LETTER PE
-<U05E5> \xF5 |0 # HEBREW LETTER FINAL TSADI
-<U05E6> \xF6 |0 # HEBREW LETTER TSADI
-<U05E7> \xF7 |0 # HEBREW LETTER QOF
-<U05E8> \xF8 |0 # HEBREW LETTER RESH
-<U05E9> \xF9 |0 # HEBREW LETTER SHIN
-<U05EA> \xFA |0 # HEBREW LETTER TAV
-<U05F0> \xD4 |0 # HEBREW LIGATURE YIDDISH DOUBLE VAV
-<U05F1> \xD5 |0 # HEBREW LIGATURE YIDDISH VAV YOD
-<U05F2> \xD6 |0 # HEBREW LIGATURE YIDDISH DOUBLE YOD
-<U05F3> \xD7 |0 # HEBREW PUNCTUATION GERESH
-<U05F4> \xD8 |0 # HEBREW PUNCTUATION GERSHAYIM
-<U200E> \xFD |0 # LEFT-TO-RIGHT MARK
-<U200F> \xFE |0 # RIGHT-TO-LEFT MARK
-<U2013> \x96 |0 # EN DASH
-<U2014> \x97 |0 # EM DASH
-<U2018> \x91 |0 # LEFT SINGLE QUOTATION MARK
-<U2019> \x92 |0 # RIGHT SINGLE QUOTATION MARK
-<U201A> \x82 |0 # SINGLE LOW-9 QUOTATION MARK
-<U201C> \x93 |0 # LEFT DOUBLE QUOTATION MARK
-<U201D> \x94 |0 # RIGHT DOUBLE QUOTATION MARK
-<U201E> \x84 |0 # DOUBLE LOW-9 QUOTATION MARK
-<U2020> \x86 |0 # DAGGER
-<U2021> \x87 |0 # DOUBLE DAGGER
-<U2022> \x95 |0 # BULLET
-<U2026> \x85 |0 # HORIZONTAL ELLIPSIS
-<U2030> \x89 |0 # PER MILLE SIGN
-<U2039> \x8B |0 # SINGLE LEFT-POINTING ANGLE QUOTATION MARK
-<U203A> \x9B |0 # SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
-<U20AA> \xA4 |0 # NEW SHEQEL SIGN
-<U20AC> \x80 |0 # EURO SIGN
-<U2122> \x99 |0 # TRADE MARK SIGN
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/cp1258.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/cp1258.ucm
deleted file mode 100644
index f673803..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/cp1258.ucm
+++ /dev/null
@@ -1,259 +0,0 @@
-#
-# $Id: cp1258.ucm,v 2.0 2004/05/16 20:55:20 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1258.TXT
-#
-<code_set_name> "cp1258"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3F
-CHARMAP
-<U0000> \x00 |0 # NULL
-<U0001> \x01 |0 # START OF HEADING
-<U0002> \x02 |0 # START OF TEXT
-<U0003> \x03 |0 # END OF TEXT
-<U0004> \x04 |0 # END OF TRANSMISSION
-<U0005> \x05 |0 # ENQUIRY
-<U0006> \x06 |0 # ACKNOWLEDGE
-<U0007> \x07 |0 # BELL
-<U0008> \x08 |0 # BACKSPACE
-<U0009> \x09 |0 # HORIZONTAL TABULATION
-<U000A> \x0A |0 # LINE FEED
-<U000B> \x0B |0 # VERTICAL TABULATION
-<U000C> \x0C |0 # FORM FEED
-<U000D> \x0D |0 # CARRIAGE RETURN
-<U000E> \x0E |0 # SHIFT OUT
-<U000F> \x0F |0 # SHIFT IN
-<U0010> \x10 |0 # DATA LINK ESCAPE
-<U0011> \x11 |0 # DEVICE CONTROL ONE
-<U0012> \x12 |0 # DEVICE CONTROL TWO
-<U0013> \x13 |0 # DEVICE CONTROL THREE
-<U0014> \x14 |0 # DEVICE CONTROL FOUR
-<U0015> \x15 |0 # NEGATIVE ACKNOWLEDGE
-<U0016> \x16 |0 # SYNCHRONOUS IDLE
-<U0017> \x17 |0 # END OF TRANSMISSION BLOCK
-<U0018> \x18 |0 # CANCEL
-<U0019> \x19 |0 # END OF MEDIUM
-<U001A> \x1A |0 # SUBSTITUTE
-<U001B> \x1B |0 # ESCAPE
-<U001C> \x1C |0 # FILE SEPARATOR
-<U001D> \x1D |0 # GROUP SEPARATOR
-<U001E> \x1E |0 # RECORD SEPARATOR
-<U001F> \x1F |0 # UNIT SEPARATOR
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002A> \x2A |0 # ASTERISK
-<U002B> \x2B |0 # PLUS SIGN
-<U002C> \x2C |0 # COMMA
-<U002D> \x2D |0 # HYPHEN-MINUS
-<U002E> \x2E |0 # FULL STOP
-<U002F> \x2F |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003A> \x3A |0 # COLON
-<U003B> \x3B |0 # SEMICOLON
-<U003C> \x3C |0 # LESS-THAN SIGN
-<U003D> \x3D |0 # EQUALS SIGN
-<U003E> \x3E |0 # GREATER-THAN SIGN
-<U003F> \x3F |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004A> \x4A |0 # LATIN CAPITAL LETTER J
-<U004B> \x4B |0 # LATIN CAPITAL LETTER K
-<U004C> \x4C |0 # LATIN CAPITAL LETTER L
-<U004D> \x4D |0 # LATIN CAPITAL LETTER M
-<U004E> \x4E |0 # LATIN CAPITAL LETTER N
-<U004F> \x4F |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005A> \x5A |0 # LATIN CAPITAL LETTER Z
-<U005B> \x5B |0 # LEFT SQUARE BRACKET
-<U005C> \x5C |0 # REVERSE SOLIDUS
-<U005D> \x5D |0 # RIGHT SQUARE BRACKET
-<U005E> \x5E |0 # CIRCUMFLEX ACCENT
-<U005F> \x5F |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006A> \x6A |0 # LATIN SMALL LETTER J
-<U006B> \x6B |0 # LATIN SMALL LETTER K
-<U006C> \x6C |0 # LATIN SMALL LETTER L
-<U006D> \x6D |0 # LATIN SMALL LETTER M
-<U006E> \x6E |0 # LATIN SMALL LETTER N
-<U006F> \x6F |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007A> \x7A |0 # LATIN SMALL LETTER Z
-<U007B> \x7B |0 # LEFT CURLY BRACKET
-<U007C> \x7C |0 # VERTICAL LINE
-<U007D> \x7D |0 # RIGHT CURLY BRACKET
-<U007E> \x7E |0 # TILDE
-<U007F> \x7F |0 # DELETE
-<U00A0> \xA0 |0 # NO-BREAK SPACE
-<U00A1> \xA1 |0 # INVERTED EXCLAMATION MARK
-<U00A2> \xA2 |0 # CENT SIGN
-<U00A3> \xA3 |0 # POUND SIGN
-<U00A4> \xA4 |0 # CURRENCY SIGN
-<U00A5> \xA5 |0 # YEN SIGN
-<U00A6> \xA6 |0 # BROKEN BAR
-<U00A7> \xA7 |0 # SECTION SIGN
-<U00A8> \xA8 |0 # DIAERESIS
-<U00A9> \xA9 |0 # COPYRIGHT SIGN
-<U00AA> \xAA |0 # FEMININE ORDINAL INDICATOR
-<U00AB> \xAB |0 # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00AC> \xAC |0 # NOT SIGN
-<U00AD> \xAD |0 # SOFT HYPHEN
-<U00AE> \xAE |0 # REGISTERED SIGN
-<U00AF> \xAF |0 # MACRON
-<U00B0> \xB0 |0 # DEGREE SIGN
-<U00B1> \xB1 |0 # PLUS-MINUS SIGN
-<U00B2> \xB2 |0 # SUPERSCRIPT TWO
-<U00B3> \xB3 |0 # SUPERSCRIPT THREE
-<U00B4> \xB4 |0 # ACUTE ACCENT
-<U00B5> \xB5 |0 # MICRO SIGN
-<U00B6> \xB6 |0 # PILCROW SIGN
-<U00B7> \xB7 |0 # MIDDLE DOT
-<U00B8> \xB8 |0 # CEDILLA
-<U00B9> \xB9 |0 # SUPERSCRIPT ONE
-<U00BA> \xBA |0 # MASCULINE ORDINAL INDICATOR
-<U00BB> \xBB |0 # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00BC> \xBC |0 # VULGAR FRACTION ONE QUARTER
-<U00BD> \xBD |0 # VULGAR FRACTION ONE HALF
-<U00BE> \xBE |0 # VULGAR FRACTION THREE QUARTERS
-<U00BF> \xBF |0 # INVERTED QUESTION MARK
-<U00C0> \xC0 |0 # LATIN CAPITAL LETTER A WITH GRAVE
-<U00C1> \xC1 |0 # LATIN CAPITAL LETTER A WITH ACUTE
-<U00C2> \xC2 |0 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
-<U00C4> \xC4 |0 # LATIN CAPITAL LETTER A WITH DIAERESIS
-<U00C5> \xC5 |0 # LATIN CAPITAL LETTER A WITH RING ABOVE
-<U00C6> \xC6 |0 # LATIN CAPITAL LETTER AE
-<U00C7> \xC7 |0 # LATIN CAPITAL LETTER C WITH CEDILLA
-<U00C8> \xC8 |0 # LATIN CAPITAL LETTER E WITH GRAVE
-<U00C9> \xC9 |0 # LATIN CAPITAL LETTER E WITH ACUTE
-<U00CA> \xCA |0 # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
-<U00CB> \xCB |0 # LATIN CAPITAL LETTER E WITH DIAERESIS
-<U00CD> \xCD |0 # LATIN CAPITAL LETTER I WITH ACUTE
-<U00CE> \xCE |0 # LATIN CAPITAL LETTER I WITH CIRCUMFLEX
-<U00CF> \xCF |0 # LATIN CAPITAL LETTER I WITH DIAERESIS
-<U00D1> \xD1 |0 # LATIN CAPITAL LETTER N WITH TILDE
-<U00D3> \xD3 |0 # LATIN CAPITAL LETTER O WITH ACUTE
-<U00D4> \xD4 |0 # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
-<U00D6> \xD6 |0 # LATIN CAPITAL LETTER O WITH DIAERESIS
-<U00D7> \xD7 |0 # MULTIPLICATION SIGN
-<U00D8> \xD8 |0 # LATIN CAPITAL LETTER O WITH STROKE
-<U00D9> \xD9 |0 # LATIN CAPITAL LETTER U WITH GRAVE
-<U00DA> \xDA |0 # LATIN CAPITAL LETTER U WITH ACUTE
-<U00DB> \xDB |0 # LATIN CAPITAL LETTER U WITH CIRCUMFLEX
-<U00DC> \xDC |0 # LATIN CAPITAL LETTER U WITH DIAERESIS
-<U00DF> \xDF |0 # LATIN SMALL LETTER SHARP S
-<U00E0> \xE0 |0 # LATIN SMALL LETTER A WITH GRAVE
-<U00E1> \xE1 |0 # LATIN SMALL LETTER A WITH ACUTE
-<U00E2> \xE2 |0 # LATIN SMALL LETTER A WITH CIRCUMFLEX
-<U00E4> \xE4 |0 # LATIN SMALL LETTER A WITH DIAERESIS
-<U00E5> \xE5 |0 # LATIN SMALL LETTER A WITH RING ABOVE
-<U00E6> \xE6 |0 # LATIN SMALL LETTER AE
-<U00E7> \xE7 |0 # LATIN SMALL LETTER C WITH CEDILLA
-<U00E8> \xE8 |0 # LATIN SMALL LETTER E WITH GRAVE
-<U00E9> \xE9 |0 # LATIN SMALL LETTER E WITH ACUTE
-<U00EA> \xEA |0 # LATIN SMALL LETTER E WITH CIRCUMFLEX
-<U00EB> \xEB |0 # LATIN SMALL LETTER E WITH DIAERESIS
-<U00ED> \xED |0 # LATIN SMALL LETTER I WITH ACUTE
-<U00EE> \xEE |0 # LATIN SMALL LETTER I WITH CIRCUMFLEX
-<U00EF> \xEF |0 # LATIN SMALL LETTER I WITH DIAERESIS
-<U00F1> \xF1 |0 # LATIN SMALL LETTER N WITH TILDE
-<U00F3> \xF3 |0 # LATIN SMALL LETTER O WITH ACUTE
-<U00F4> \xF4 |0 # LATIN SMALL LETTER O WITH CIRCUMFLEX
-<U00F6> \xF6 |0 # LATIN SMALL LETTER O WITH DIAERESIS
-<U00F7> \xF7 |0 # DIVISION SIGN
-<U00F8> \xF8 |0 # LATIN SMALL LETTER O WITH STROKE
-<U00F9> \xF9 |0 # LATIN SMALL LETTER U WITH GRAVE
-<U00FA> \xFA |0 # LATIN SMALL LETTER U WITH ACUTE
-<U00FB> \xFB |0 # LATIN SMALL LETTER U WITH CIRCUMFLEX
-<U00FC> \xFC |0 # LATIN SMALL LETTER U WITH DIAERESIS
-<U00FF> \xFF |0 # LATIN SMALL LETTER Y WITH DIAERESIS
-<U0102> \xC3 |0 # LATIN CAPITAL LETTER A WITH BREVE
-<U0103> \xE3 |0 # LATIN SMALL LETTER A WITH BREVE
-<U0110> \xD0 |0 # LATIN CAPITAL LETTER D WITH STROKE
-<U0111> \xF0 |0 # LATIN SMALL LETTER D WITH STROKE
-<U0152> \x8C |0 # LATIN CAPITAL LIGATURE OE
-<U0153> \x9C |0 # LATIN SMALL LIGATURE OE
-<U0178> \x9F |0 # LATIN CAPITAL LETTER Y WITH DIAERESIS
-<U0192> \x83 |0 # LATIN SMALL LETTER F WITH HOOK
-<U01A0> \xD5 |0 # LATIN CAPITAL LETTER O WITH HORN
-<U01A1> \xF5 |0 # LATIN SMALL LETTER O WITH HORN
-<U01AF> \xDD |0 # LATIN CAPITAL LETTER U WITH HORN
-<U01B0> \xFD |0 # LATIN SMALL LETTER U WITH HORN
-<U02C6> \x88 |0 # MODIFIER LETTER CIRCUMFLEX ACCENT
-<U02DC> \x98 |0 # SMALL TILDE
-<U0300> \xCC |0 # COMBINING GRAVE ACCENT
-<U0301> \xEC |0 # COMBINING ACUTE ACCENT
-<U0303> \xDE |0 # COMBINING TILDE
-<U0309> \xD2 |0 # COMBINING HOOK ABOVE
-<U0323> \xF2 |0 # COMBINING DOT BELOW
-<U2013> \x96 |0 # EN DASH
-<U2014> \x97 |0 # EM DASH
-<U2018> \x91 |0 # LEFT SINGLE QUOTATION MARK
-<U2019> \x92 |0 # RIGHT SINGLE QUOTATION MARK
-<U201A> \x82 |0 # SINGLE LOW-9 QUOTATION MARK
-<U201C> \x93 |0 # LEFT DOUBLE QUOTATION MARK
-<U201D> \x94 |0 # RIGHT DOUBLE QUOTATION MARK
-<U201E> \x84 |0 # DOUBLE LOW-9 QUOTATION MARK
-<U2020> \x86 |0 # DAGGER
-<U2021> \x87 |0 # DOUBLE DAGGER
-<U2022> \x95 |0 # BULLET
-<U2026> \x85 |0 # HORIZONTAL ELLIPSIS
-<U2030> \x89 |0 # PER MILLE SIGN
-<U2039> \x8B |0 # SINGLE LEFT-POINTING ANGLE QUOTATION MARK
-<U203A> \x9B |0 # SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
-<U20AB> \xFE |0 # DONG SIGN
-<U20AC> \x80 |0 # EURO SIGN
-<U2122> \x99 |0 # TRADE MARK SIGN
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/cp737.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/cp737.ucm
deleted file mode 100644
index 19b06df..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/cp737.ucm
+++ /dev/null
@@ -1,280 +0,0 @@
-#
-# $Id: cp737.ucm,v 2.0 2004/05/16 20:55:20 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/PC/CP737.TXT
-#
-<code_set_name> "cp737"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3f
-CHARMAP
-<U0000> \x00 |0 # NULL
-<U0001> \x01 |0 # START OF HEADING
-<U0002> \x02 |0 # START OF TEXT
-<U0003> \x03 |0 # END OF TEXT
-<U0004> \x04 |0 # END OF TRANSMISSION
-<U0005> \x05 |0 # ENQUIRY
-<U0006> \x06 |0 # ACKNOWLEDGE
-<U0007> \x07 |0 # BELL
-<U0008> \x08 |0 # BACKSPACE
-<U0009> \x09 |0 # HORIZONTAL TABULATION
-<U000A> \x0A |0 # <control>
-<U000B> \x0B |0 # <control>
-<U000C> \x0C |0 # <control>
-<U000D> \x0D |0 # <control>
-<U000E> \x0E |0 # <control>
-<U000F> \x0F |0 # <control>
-<U000a> \x0a |0 # LINE FEED
-<U000b> \x0b |0 # VERTICAL TABULATION
-<U000c> \x0c |0 # FORM FEED
-<U000d> \x0d |0 # CARRIAGE RETURN
-<U000e> \x0e |0 # SHIFT OUT
-<U000f> \x0f |0 # SHIFT IN
-<U0010> \x10 |0 # DATA LINK ESCAPE
-<U0011> \x11 |0 # DEVICE CONTROL ONE
-<U0012> \x12 |0 # DEVICE CONTROL TWO
-<U0013> \x13 |0 # DEVICE CONTROL THREE
-<U0014> \x14 |0 # DEVICE CONTROL FOUR
-<U0015> \x15 |0 # NEGATIVE ACKNOWLEDGE
-<U0016> \x16 |0 # SYNCHRONOUS IDLE
-<U0017> \x17 |0 # END OF TRANSMISSION BLOCK
-<U0018> \x18 |0 # CANCEL
-<U0019> \x19 |0 # END OF MEDIUM
-<U001A> \x1A |0 # <control>
-<U001B> \x1B |0 # <control>
-<U001C> \x1C |0 # <control>
-<U001D> \x1D |0 # <control>
-<U001E> \x1E |0 # <control>
-<U001F> \x1F |0 # <control>
-<U001a> \x1a |0 # SUBSTITUTE
-<U001b> \x1b |0 # ESCAPE
-<U001c> \x1c |0 # FILE SEPARATOR
-<U001d> \x1d |0 # GROUP SEPARATOR
-<U001e> \x1e |0 # RECORD SEPARATOR
-<U001f> \x1f |0 # UNIT SEPARATOR
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002a> \x2a |0 # ASTERISK
-<U002b> \x2b |0 # PLUS SIGN
-<U002c> \x2c |0 # COMMA
-<U002d> \x2d |0 # HYPHEN-MINUS
-<U002e> \x2e |0 # FULL STOP
-<U002f> \x2f |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003a> \x3a |0 # COLON
-<U003b> \x3b |0 # SEMICOLON
-<U003c> \x3c |0 # LESS-THAN SIGN
-<U003d> \x3d |0 # EQUALS SIGN
-<U003e> \x3e |0 # GREATER-THAN SIGN
-<U003f> \x3f |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004a> \x4a |0 # LATIN CAPITAL LETTER J
-<U004b> \x4b |0 # LATIN CAPITAL LETTER K
-<U004c> \x4c |0 # LATIN CAPITAL LETTER L
-<U004d> \x4d |0 # LATIN CAPITAL LETTER M
-<U004e> \x4e |0 # LATIN CAPITAL LETTER N
-<U004f> \x4f |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005a> \x5a |0 # LATIN CAPITAL LETTER Z
-<U005b> \x5b |0 # LEFT SQUARE BRACKET
-<U005c> \x5c |0 # REVERSE SOLIDUS
-<U005d> \x5d |0 # RIGHT SQUARE BRACKET
-<U005e> \x5e |0 # CIRCUMFLEX ACCENT
-<U005f> \x5f |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006a> \x6a |0 # LATIN SMALL LETTER J
-<U006b> \x6b |0 # LATIN SMALL LETTER K
-<U006c> \x6c |0 # LATIN SMALL LETTER L
-<U006d> \x6d |0 # LATIN SMALL LETTER M
-<U006e> \x6e |0 # LATIN SMALL LETTER N
-<U006f> \x6f |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007a> \x7a |0 # LATIN SMALL LETTER Z
-<U007b> \x7b |0 # LEFT CURLY BRACKET
-<U007c> \x7c |0 # VERTICAL LINE
-<U007d> \x7d |0 # RIGHT CURLY BRACKET
-<U007e> \x7e |0 # TILDE
-<U007f> \x7f |0 # DELETE
-<U00a0> \xff |0 # NO-BREAK SPACE
-<U00b0> \xf8 |0 # DEGREE SIGN
-<U00b1> \xf1 |0 # PLUS-MINUS SIGN
-<U00b2> \xfd |0 # SUPERSCRIPT TWO
-<U00b7> \xfa |0 # MIDDLE DOT
-<U00f7> \xf6 |0 # DIVISION SIGN
-<U0386> \xea |0 # GREEK CAPITAL LETTER ALPHA WITH TONOS
-<U0388> \xeb |0 # GREEK CAPITAL LETTER EPSILON WITH TONOS
-<U0389> \xec |0 # GREEK CAPITAL LETTER ETA WITH TONOS
-<U038a> \xed |0 # GREEK CAPITAL LETTER IOTA WITH TONOS
-<U038c> \xee |0 # GREEK CAPITAL LETTER OMICRON WITH TONOS
-<U038e> \xef |0 # GREEK CAPITAL LETTER UPSILON WITH TONOS
-<U038f> \xf0 |0 # GREEK CAPITAL LETTER OMEGA WITH TONOS
-<U0391> \x80 |0 # GREEK CAPITAL LETTER ALPHA
-<U0392> \x81 |0 # GREEK CAPITAL LETTER BETA
-<U0393> \x82 |0 # GREEK CAPITAL LETTER GAMMA
-<U0394> \x83 |0 # GREEK CAPITAL LETTER DELTA
-<U0395> \x84 |0 # GREEK CAPITAL LETTER EPSILON
-<U0396> \x85 |0 # GREEK CAPITAL LETTER ZETA
-<U0397> \x86 |0 # GREEK CAPITAL LETTER ETA
-<U0398> \x87 |0 # GREEK CAPITAL LETTER THETA
-<U0399> \x88 |0 # GREEK CAPITAL LETTER IOTA
-<U039a> \x89 |0 # GREEK CAPITAL LETTER KAPPA
-<U039b> \x8a |0 # GREEK CAPITAL LETTER LAMDA
-<U039c> \x8b |0 # GREEK CAPITAL LETTER MU
-<U039d> \x8c |0 # GREEK CAPITAL LETTER NU
-<U039e> \x8d |0 # GREEK CAPITAL LETTER XI
-<U039f> \x8e |0 # GREEK CAPITAL LETTER OMICRON
-<U03a0> \x8f |0 # GREEK CAPITAL LETTER PI
-<U03a1> \x90 |0 # GREEK CAPITAL LETTER RHO
-<U03a3> \x91 |0 # GREEK CAPITAL LETTER SIGMA
-<U03a4> \x92 |0 # GREEK CAPITAL LETTER TAU
-<U03a5> \x93 |0 # GREEK CAPITAL LETTER UPSILON
-<U03a6> \x94 |0 # GREEK CAPITAL LETTER PHI
-<U03a7> \x95 |0 # GREEK CAPITAL LETTER CHI
-<U03a8> \x96 |0 # GREEK CAPITAL LETTER PSI
-<U03a9> \x97 |0 # GREEK CAPITAL LETTER OMEGA
-<U03aa> \xf4 |0 # GREEK CAPITAL LETTER IOTA WITH DIALYTIKA
-<U03ab> \xf5 |0 # GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA
-<U03ac> \xe1 |0 # GREEK SMALL LETTER ALPHA WITH TONOS
-<U03ad> \xe2 |0 # GREEK SMALL LETTER EPSILON WITH TONOS
-<U03ae> \xe3 |0 # GREEK SMALL LETTER ETA WITH TONOS
-<U03af> \xe5 |0 # GREEK SMALL LETTER IOTA WITH TONOS
-<U03b1> \x98 |0 # GREEK SMALL LETTER ALPHA
-<U03b2> \x99 |0 # GREEK SMALL LETTER BETA
-<U03b3> \x9a |0 # GREEK SMALL LETTER GAMMA
-<U03b4> \x9b |0 # GREEK SMALL LETTER DELTA
-<U03b5> \x9c |0 # GREEK SMALL LETTER EPSILON
-<U03b6> \x9d |0 # GREEK SMALL LETTER ZETA
-<U03b7> \x9e |0 # GREEK SMALL LETTER ETA
-<U03b8> \x9f |0 # GREEK SMALL LETTER THETA
-<U03b9> \xa0 |0 # GREEK SMALL LETTER IOTA
-<U03ba> \xa1 |0 # GREEK SMALL LETTER KAPPA
-<U03bb> \xa2 |0 # GREEK SMALL LETTER LAMDA
-<U03bc> \xa3 |0 # GREEK SMALL LETTER MU
-<U03bd> \xa4 |0 # GREEK SMALL LETTER NU
-<U03be> \xa5 |0 # GREEK SMALL LETTER XI
-<U03bf> \xa6 |0 # GREEK SMALL LETTER OMICRON
-<U03c0> \xa7 |0 # GREEK SMALL LETTER PI
-<U03c1> \xa8 |0 # GREEK SMALL LETTER RHO
-<U03c2> \xaa |0 # GREEK SMALL LETTER FINAL SIGMA
-<U03c3> \xa9 |0 # GREEK SMALL LETTER SIGMA
-<U03c4> \xab |0 # GREEK SMALL LETTER TAU
-<U03c5> \xac |0 # GREEK SMALL LETTER UPSILON
-<U03c6> \xad |0 # GREEK SMALL LETTER PHI
-<U03c7> \xae |0 # GREEK SMALL LETTER CHI
-<U03c8> \xaf |0 # GREEK SMALL LETTER PSI
-<U03c9> \xe0 |0 # GREEK SMALL LETTER OMEGA
-<U03ca> \xe4 |0 # GREEK SMALL LETTER IOTA WITH DIALYTIKA
-<U03cb> \xe8 |0 # GREEK SMALL LETTER UPSILON WITH DIALYTIKA
-<U03cc> \xe6 |0 # GREEK SMALL LETTER OMICRON WITH TONOS
-<U03cd> \xe7 |0 # GREEK SMALL LETTER UPSILON WITH TONOS
-<U03ce> \xe9 |0 # GREEK SMALL LETTER OMEGA WITH TONOS
-<U207f> \xfc |0 # SUPERSCRIPT LATIN SMALL LETTER N
-<U2219> \xf9 |0 # BULLET OPERATOR
-<U221a> \xfb |0 # SQUARE ROOT
-<U2248> \xf7 |0 # ALMOST EQUAL TO
-<U2264> \xf3 |0 # LESS-THAN OR EQUAL TO
-<U2265> \xf2 |0 # GREATER-THAN OR EQUAL TO
-<U2500> \xc4 |0 # BOX DRAWINGS LIGHT HORIZONTAL
-<U2502> \xb3 |0 # BOX DRAWINGS LIGHT VERTICAL
-<U250c> \xda |0 # BOX DRAWINGS LIGHT DOWN AND RIGHT
-<U2510> \xbf |0 # BOX DRAWINGS LIGHT DOWN AND LEFT
-<U2514> \xc0 |0 # BOX DRAWINGS LIGHT UP AND RIGHT
-<U2518> \xd9 |0 # BOX DRAWINGS LIGHT UP AND LEFT
-<U251c> \xc3 |0 # BOX DRAWINGS LIGHT VERTICAL AND RIGHT
-<U2524> \xb4 |0 # BOX DRAWINGS LIGHT VERTICAL AND LEFT
-<U252c> \xc2 |0 # BOX DRAWINGS LIGHT DOWN AND HORIZONTAL
-<U2534> \xc1 |0 # BOX DRAWINGS LIGHT UP AND HORIZONTAL
-<U253c> \xc5 |0 # BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
-<U2550> \xcd |0 # BOX DRAWINGS DOUBLE HORIZONTAL
-<U2551> \xba |0 # BOX DRAWINGS DOUBLE VERTICAL
-<U2552> \xd5 |0 # BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE
-<U2553> \xd6 |0 # BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE
-<U2554> \xc9 |0 # BOX DRAWINGS DOUBLE DOWN AND RIGHT
-<U2555> \xb8 |0 # BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE
-<U2556> \xb7 |0 # BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE
-<U2557> \xbb |0 # BOX DRAWINGS DOUBLE DOWN AND LEFT
-<U2558> \xd4 |0 # BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE
-<U2559> \xd3 |0 # BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE
-<U255a> \xc8 |0 # BOX DRAWINGS DOUBLE UP AND RIGHT
-<U255b> \xbe |0 # BOX DRAWINGS UP SINGLE AND LEFT DOUBLE
-<U255c> \xbd |0 # BOX DRAWINGS UP DOUBLE AND LEFT SINGLE
-<U255d> \xbc |0 # BOX DRAWINGS DOUBLE UP AND LEFT
-<U255e> \xc6 |0 # BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE
-<U255f> \xc7 |0 # BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE
-<U2560> \xcc |0 # BOX DRAWINGS DOUBLE VERTICAL AND RIGHT
-<U2561> \xb5 |0 # BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE
-<U2562> \xb6 |0 # BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE
-<U2563> \xb9 |0 # BOX DRAWINGS DOUBLE VERTICAL AND LEFT
-<U2564> \xd1 |0 # BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE
-<U2565> \xd2 |0 # BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE
-<U2566> \xcb |0 # BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL
-<U2567> \xcf |0 # BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE
-<U2568> \xd0 |0 # BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE
-<U2569> \xca |0 # BOX DRAWINGS DOUBLE UP AND HORIZONTAL
-<U256a> \xd8 |0 # BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE
-<U256b> \xd7 |0 # BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE
-<U256c> \xce |0 # BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL
-<U2580> \xdf |0 # UPPER HALF BLOCK
-<U2584> \xdc |0 # LOWER HALF BLOCK
-<U2588> \xdb |0 # FULL BLOCK
-<U258c> \xdd |0 # LEFT HALF BLOCK
-<U2590> \xde |0 # RIGHT HALF BLOCK
-<U2591> \xb0 |0 # LIGHT SHADE
-<U2592> \xb1 |0 # MEDIUM SHADE
-<U2593> \xb2 |0 # DARK SHADE
-<U25a0> \xfe |0 # BLACK SQUARE
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/cp775.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/cp775.ucm
deleted file mode 100644
index 50b9409..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/cp775.ucm
+++ /dev/null
@@ -1,280 +0,0 @@
-#
-# $Id: cp775.ucm,v 2.0 2004/05/16 20:55:21 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/PC/CP775.TXT
-#
-<code_set_name> "cp775"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3f
-CHARMAP
-<U0000> \x00 |0 # NULL
-<U0001> \x01 |0 # START OF HEADING
-<U0002> \x02 |0 # START OF TEXT
-<U0003> \x03 |0 # END OF TEXT
-<U0004> \x04 |0 # END OF TRANSMISSION
-<U0005> \x05 |0 # ENQUIRY
-<U0006> \x06 |0 # ACKNOWLEDGE
-<U0007> \x07 |0 # BELL
-<U0008> \x08 |0 # BACKSPACE
-<U0009> \x09 |0 # HORIZONTAL TABULATION
-<U000A> \x0A |0 # <control>
-<U000B> \x0B |0 # <control>
-<U000C> \x0C |0 # <control>
-<U000D> \x0D |0 # <control>
-<U000E> \x0E |0 # <control>
-<U000F> \x0F |0 # <control>
-<U000a> \x0a |0 # LINE FEED
-<U000b> \x0b |0 # VERTICAL TABULATION
-<U000c> \x0c |0 # FORM FEED
-<U000d> \x0d |0 # CARRIAGE RETURN
-<U000e> \x0e |0 # SHIFT OUT
-<U000f> \x0f |0 # SHIFT IN
-<U0010> \x10 |0 # DATA LINK ESCAPE
-<U0011> \x11 |0 # DEVICE CONTROL ONE
-<U0012> \x12 |0 # DEVICE CONTROL TWO
-<U0013> \x13 |0 # DEVICE CONTROL THREE
-<U0014> \x14 |0 # DEVICE CONTROL FOUR
-<U0015> \x15 |0 # NEGATIVE ACKNOWLEDGE
-<U0016> \x16 |0 # SYNCHRONOUS IDLE
-<U0017> \x17 |0 # END OF TRANSMISSION BLOCK
-<U0018> \x18 |0 # CANCEL
-<U0019> \x19 |0 # END OF MEDIUM
-<U001A> \x1A |0 # <control>
-<U001B> \x1B |0 # <control>
-<U001C> \x1C |0 # <control>
-<U001D> \x1D |0 # <control>
-<U001E> \x1E |0 # <control>
-<U001F> \x1F |0 # <control>
-<U001a> \x1a |0 # SUBSTITUTE
-<U001b> \x1b |0 # ESCAPE
-<U001c> \x1c |0 # FILE SEPARATOR
-<U001d> \x1d |0 # GROUP SEPARATOR
-<U001e> \x1e |0 # RECORD SEPARATOR
-<U001f> \x1f |0 # UNIT SEPARATOR
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002a> \x2a |0 # ASTERISK
-<U002b> \x2b |0 # PLUS SIGN
-<U002c> \x2c |0 # COMMA
-<U002d> \x2d |0 # HYPHEN-MINUS
-<U002e> \x2e |0 # FULL STOP
-<U002f> \x2f |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003a> \x3a |0 # COLON
-<U003b> \x3b |0 # SEMICOLON
-<U003c> \x3c |0 # LESS-THAN SIGN
-<U003d> \x3d |0 # EQUALS SIGN
-<U003e> \x3e |0 # GREATER-THAN SIGN
-<U003f> \x3f |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004a> \x4a |0 # LATIN CAPITAL LETTER J
-<U004b> \x4b |0 # LATIN CAPITAL LETTER K
-<U004c> \x4c |0 # LATIN CAPITAL LETTER L
-<U004d> \x4d |0 # LATIN CAPITAL LETTER M
-<U004e> \x4e |0 # LATIN CAPITAL LETTER N
-<U004f> \x4f |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005a> \x5a |0 # LATIN CAPITAL LETTER Z
-<U005b> \x5b |0 # LEFT SQUARE BRACKET
-<U005c> \x5c |0 # REVERSE SOLIDUS
-<U005d> \x5d |0 # RIGHT SQUARE BRACKET
-<U005e> \x5e |0 # CIRCUMFLEX ACCENT
-<U005f> \x5f |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006a> \x6a |0 # LATIN SMALL LETTER J
-<U006b> \x6b |0 # LATIN SMALL LETTER K
-<U006c> \x6c |0 # LATIN SMALL LETTER L
-<U006d> \x6d |0 # LATIN SMALL LETTER M
-<U006e> \x6e |0 # LATIN SMALL LETTER N
-<U006f> \x6f |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007a> \x7a |0 # LATIN SMALL LETTER Z
-<U007b> \x7b |0 # LEFT CURLY BRACKET
-<U007c> \x7c |0 # VERTICAL LINE
-<U007d> \x7d |0 # RIGHT CURLY BRACKET
-<U007e> \x7e |0 # TILDE
-<U007f> \x7f |0 # DELETE
-<U00a0> \xff |0 # NO-BREAK SPACE
-<U00a2> \x96 |0 # CENT SIGN
-<U00a3> \x9c |0 # POUND SIGN
-<U00a4> \x9f |0 # CURRENCY SIGN
-<U00a6> \xa7 |0 # BROKEN BAR
-<U00a7> \xf5 |0 # SECTION SIGN
-<U00a9> \xa8 |0 # COPYRIGHT SIGN
-<U00ab> \xae |0 # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00ac> \xaa |0 # NOT SIGN
-<U00ad> \xf0 |0 # SOFT HYPHEN
-<U00ae> \xa9 |0 # REGISTERED SIGN
-<U00b0> \xf8 |0 # DEGREE SIGN
-<U00b1> \xf1 |0 # PLUS-MINUS SIGN
-<U00b2> \xfd |0 # SUPERSCRIPT TWO
-<U00b3> \xfc |0 # SUPERSCRIPT THREE
-<U00b5> \xe6 |0 # MICRO SIGN
-<U00b6> \xf4 |0 # PILCROW SIGN
-<U00b7> \xfa |0 # MIDDLE DOT
-<U00b9> \xfb |0 # SUPERSCRIPT ONE
-<U00bb> \xaf |0 # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00bc> \xac |0 # VULGAR FRACTION ONE QUARTER
-<U00bd> \xab |0 # VULGAR FRACTION ONE HALF
-<U00be> \xf3 |0 # VULGAR FRACTION THREE QUARTERS
-<U00c4> \x8e |0 # LATIN CAPITAL LETTER A WITH DIAERESIS
-<U00c5> \x8f |0 # LATIN CAPITAL LETTER A WITH RING ABOVE
-<U00c6> \x92 |0 # LATIN CAPITAL LIGATURE AE
-<U00c9> \x90 |0 # LATIN CAPITAL LETTER E WITH ACUTE
-<U00d3> \xe0 |0 # LATIN CAPITAL LETTER O WITH ACUTE
-<U00d5> \xe5 |0 # LATIN CAPITAL LETTER O WITH TILDE
-<U00d6> \x99 |0 # LATIN CAPITAL LETTER O WITH DIAERESIS
-<U00d7> \x9e |0 # MULTIPLICATION SIGN
-<U00d8> \x9d |0 # LATIN CAPITAL LETTER O WITH STROKE
-<U00dc> \x9a |0 # LATIN CAPITAL LETTER U WITH DIAERESIS
-<U00df> \xe1 |0 # LATIN SMALL LETTER SHARP S (GERMAN)
-<U00e4> \x84 |0 # LATIN SMALL LETTER A WITH DIAERESIS
-<U00e5> \x86 |0 # LATIN SMALL LETTER A WITH RING ABOVE
-<U00e6> \x91 |0 # LATIN SMALL LIGATURE AE
-<U00e9> \x82 |0 # LATIN SMALL LETTER E WITH ACUTE
-<U00f3> \xa2 |0 # LATIN SMALL LETTER O WITH ACUTE
-<U00f5> \xe4 |0 # LATIN SMALL LETTER O WITH TILDE
-<U00f6> \x94 |0 # LATIN SMALL LETTER O WITH DIAERESIS
-<U00f7> \xf6 |0 # DIVISION SIGN
-<U00f8> \x9b |0 # LATIN SMALL LETTER O WITH STROKE
-<U00fc> \x81 |0 # LATIN SMALL LETTER U WITH DIAERESIS
-<U0100> \xa0 |0 # LATIN CAPITAL LETTER A WITH MACRON
-<U0101> \x83 |0 # LATIN SMALL LETTER A WITH MACRON
-<U0104> \xb5 |0 # LATIN CAPITAL LETTER A WITH OGONEK
-<U0105> \xd0 |0 # LATIN SMALL LETTER A WITH OGONEK
-<U0106> \x80 |0 # LATIN CAPITAL LETTER C WITH ACUTE
-<U0107> \x87 |0 # LATIN SMALL LETTER C WITH ACUTE
-<U010c> \xb6 |0 # LATIN CAPITAL LETTER C WITH CARON
-<U010d> \xd1 |0 # LATIN SMALL LETTER C WITH CARON
-<U0112> \xed |0 # LATIN CAPITAL LETTER E WITH MACRON
-<U0113> \x89 |0 # LATIN SMALL LETTER E WITH MACRON
-<U0116> \xb8 |0 # LATIN CAPITAL LETTER E WITH DOT ABOVE
-<U0117> \xd3 |0 # LATIN SMALL LETTER E WITH DOT ABOVE
-<U0118> \xb7 |0 # LATIN CAPITAL LETTER E WITH OGONEK
-<U0119> \xd2 |0 # LATIN SMALL LETTER E WITH OGONEK
-<U0122> \x95 |0 # LATIN CAPITAL LETTER G WITH CEDILLA
-<U0123> \x85 |0 # LATIN SMALL LETTER G WITH CEDILLA
-<U012a> \xa1 |0 # LATIN CAPITAL LETTER I WITH MACRON
-<U012b> \x8c |0 # LATIN SMALL LETTER I WITH MACRON
-<U012e> \xbd |0 # LATIN CAPITAL LETTER I WITH OGONEK
-<U012f> \xd4 |0 # LATIN SMALL LETTER I WITH OGONEK
-<U0136> \xe8 |0 # LATIN CAPITAL LETTER K WITH CEDILLA
-<U0137> \xe9 |0 # LATIN SMALL LETTER K WITH CEDILLA
-<U013b> \xea |0 # LATIN CAPITAL LETTER L WITH CEDILLA
-<U013c> \xeb |0 # LATIN SMALL LETTER L WITH CEDILLA
-<U0141> \xad |0 # LATIN CAPITAL LETTER L WITH STROKE
-<U0142> \x88 |0 # LATIN SMALL LETTER L WITH STROKE
-<U0143> \xe3 |0 # LATIN CAPITAL LETTER N WITH ACUTE
-<U0144> \xe7 |0 # LATIN SMALL LETTER N WITH ACUTE
-<U0145> \xee |0 # LATIN CAPITAL LETTER N WITH CEDILLA
-<U0146> \xec |0 # LATIN SMALL LETTER N WITH CEDILLA
-<U014c> \xe2 |0 # LATIN CAPITAL LETTER O WITH MACRON
-<U014d> \x93 |0 # LATIN SMALL LETTER O WITH MACRON
-<U0156> \x8a |0 # LATIN CAPITAL LETTER R WITH CEDILLA
-<U0157> \x8b |0 # LATIN SMALL LETTER R WITH CEDILLA
-<U015a> \x97 |0 # LATIN CAPITAL LETTER S WITH ACUTE
-<U015b> \x98 |0 # LATIN SMALL LETTER S WITH ACUTE
-<U0160> \xbe |0 # LATIN CAPITAL LETTER S WITH CARON
-<U0161> \xd5 |0 # LATIN SMALL LETTER S WITH CARON
-<U016a> \xc7 |0 # LATIN CAPITAL LETTER U WITH MACRON
-<U016b> \xd7 |0 # LATIN SMALL LETTER U WITH MACRON
-<U0172> \xc6 |0 # LATIN CAPITAL LETTER U WITH OGONEK
-<U0173> \xd6 |0 # LATIN SMALL LETTER U WITH OGONEK
-<U0179> \x8d |0 # LATIN CAPITAL LETTER Z WITH ACUTE
-<U017a> \xa5 |0 # LATIN SMALL LETTER Z WITH ACUTE
-<U017b> \xa3 |0 # LATIN CAPITAL LETTER Z WITH DOT ABOVE
-<U017c> \xa4 |0 # LATIN SMALL LETTER Z WITH DOT ABOVE
-<U017d> \xcf |0 # LATIN CAPITAL LETTER Z WITH CARON
-<U017e> \xd8 |0 # LATIN SMALL LETTER Z WITH CARON
-<U2019> \xef |0 # RIGHT SINGLE QUOTATION MARK
-<U201c> \xf2 |0 # LEFT DOUBLE QUOTATION MARK
-<U201d> \xa6 |0 # RIGHT DOUBLE QUOTATION MARK
-<U201e> \xf7 |0 # DOUBLE LOW-9 QUOTATION MARK
-<U2219> \xf9 |0 # BULLET OPERATOR
-<U2500> \xc4 |0 # BOX DRAWINGS LIGHT HORIZONTAL
-<U2502> \xb3 |0 # BOX DRAWINGS LIGHT VERTICAL
-<U250c> \xda |0 # BOX DRAWINGS LIGHT DOWN AND RIGHT
-<U2510> \xbf |0 # BOX DRAWINGS LIGHT DOWN AND LEFT
-<U2514> \xc0 |0 # BOX DRAWINGS LIGHT UP AND RIGHT
-<U2518> \xd9 |0 # BOX DRAWINGS LIGHT UP AND LEFT
-<U251c> \xc3 |0 # BOX DRAWINGS LIGHT VERTICAL AND RIGHT
-<U2524> \xb4 |0 # BOX DRAWINGS LIGHT VERTICAL AND LEFT
-<U252c> \xc2 |0 # BOX DRAWINGS LIGHT DOWN AND HORIZONTAL
-<U2534> \xc1 |0 # BOX DRAWINGS LIGHT UP AND HORIZONTAL
-<U253c> \xc5 |0 # BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
-<U2550> \xcd |0 # BOX DRAWINGS DOUBLE HORIZONTAL
-<U2551> \xba |0 # BOX DRAWINGS DOUBLE VERTICAL
-<U2554> \xc9 |0 # BOX DRAWINGS DOUBLE DOWN AND RIGHT
-<U2557> \xbb |0 # BOX DRAWINGS DOUBLE DOWN AND LEFT
-<U255a> \xc8 |0 # BOX DRAWINGS DOUBLE UP AND RIGHT
-<U255d> \xbc |0 # BOX DRAWINGS DOUBLE UP AND LEFT
-<U2560> \xcc |0 # BOX DRAWINGS DOUBLE VERTICAL AND RIGHT
-<U2563> \xb9 |0 # BOX DRAWINGS DOUBLE VERTICAL AND LEFT
-<U2566> \xcb |0 # BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL
-<U2569> \xca |0 # BOX DRAWINGS DOUBLE UP AND HORIZONTAL
-<U256c> \xce |0 # BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL
-<U2580> \xdf |0 # UPPER HALF BLOCK
-<U2584> \xdc |0 # LOWER HALF BLOCK
-<U2588> \xdb |0 # FULL BLOCK
-<U258c> \xdd |0 # LEFT HALF BLOCK
-<U2590> \xde |0 # RIGHT HALF BLOCK
-<U2591> \xb0 |0 # LIGHT SHADE
-<U2592> \xb1 |0 # MEDIUM SHADE
-<U2593> \xb2 |0 # DARK SHADE
-<U25a0> \xfe |0 # BLACK SQUARE
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/cp850.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/cp850.ucm
deleted file mode 100644
index 3e3262a..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/cp850.ucm
+++ /dev/null
@@ -1,280 +0,0 @@
-#
-# $Id: cp850.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/PC/CP850.TXT
-#
-<code_set_name> "cp850"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3f
-CHARMAP
-<U0000> \x00 |0 # NULL
-<U0001> \x01 |0 # START OF HEADING
-<U0002> \x02 |0 # START OF TEXT
-<U0003> \x03 |0 # END OF TEXT
-<U0004> \x04 |0 # END OF TRANSMISSION
-<U0005> \x05 |0 # ENQUIRY
-<U0006> \x06 |0 # ACKNOWLEDGE
-<U0007> \x07 |0 # BELL
-<U0008> \x08 |0 # BACKSPACE
-<U0009> \x09 |0 # HORIZONTAL TABULATION
-<U000A> \x0A |0 # <control>
-<U000B> \x0B |0 # <control>
-<U000C> \x0C |0 # <control>
-<U000D> \x0D |0 # <control>
-<U000E> \x0E |0 # <control>
-<U000F> \x0F |0 # <control>
-<U000a> \x0a |0 # LINE FEED
-<U000b> \x0b |0 # VERTICAL TABULATION
-<U000c> \x0c |0 # FORM FEED
-<U000d> \x0d |0 # CARRIAGE RETURN
-<U000e> \x0e |0 # SHIFT OUT
-<U000f> \x0f |0 # SHIFT IN
-<U0010> \x10 |0 # DATA LINK ESCAPE
-<U0011> \x11 |0 # DEVICE CONTROL ONE
-<U0012> \x12 |0 # DEVICE CONTROL TWO
-<U0013> \x13 |0 # DEVICE CONTROL THREE
-<U0014> \x14 |0 # DEVICE CONTROL FOUR
-<U0015> \x15 |0 # NEGATIVE ACKNOWLEDGE
-<U0016> \x16 |0 # SYNCHRONOUS IDLE
-<U0017> \x17 |0 # END OF TRANSMISSION BLOCK
-<U0018> \x18 |0 # CANCEL
-<U0019> \x19 |0 # END OF MEDIUM
-<U001A> \x1A |0 # <control>
-<U001B> \x1B |0 # <control>
-<U001C> \x1C |0 # <control>
-<U001D> \x1D |0 # <control>
-<U001E> \x1E |0 # <control>
-<U001F> \x1F |0 # <control>
-<U001a> \x1a |0 # SUBSTITUTE
-<U001b> \x1b |0 # ESCAPE
-<U001c> \x1c |0 # FILE SEPARATOR
-<U001d> \x1d |0 # GROUP SEPARATOR
-<U001e> \x1e |0 # RECORD SEPARATOR
-<U001f> \x1f |0 # UNIT SEPARATOR
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002a> \x2a |0 # ASTERISK
-<U002b> \x2b |0 # PLUS SIGN
-<U002c> \x2c |0 # COMMA
-<U002d> \x2d |0 # HYPHEN-MINUS
-<U002e> \x2e |0 # FULL STOP
-<U002f> \x2f |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003a> \x3a |0 # COLON
-<U003b> \x3b |0 # SEMICOLON
-<U003c> \x3c |0 # LESS-THAN SIGN
-<U003d> \x3d |0 # EQUALS SIGN
-<U003e> \x3e |0 # GREATER-THAN SIGN
-<U003f> \x3f |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004a> \x4a |0 # LATIN CAPITAL LETTER J
-<U004b> \x4b |0 # LATIN CAPITAL LETTER K
-<U004c> \x4c |0 # LATIN CAPITAL LETTER L
-<U004d> \x4d |0 # LATIN CAPITAL LETTER M
-<U004e> \x4e |0 # LATIN CAPITAL LETTER N
-<U004f> \x4f |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005a> \x5a |0 # LATIN CAPITAL LETTER Z
-<U005b> \x5b |0 # LEFT SQUARE BRACKET
-<U005c> \x5c |0 # REVERSE SOLIDUS
-<U005d> \x5d |0 # RIGHT SQUARE BRACKET
-<U005e> \x5e |0 # CIRCUMFLEX ACCENT
-<U005f> \x5f |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006a> \x6a |0 # LATIN SMALL LETTER J
-<U006b> \x6b |0 # LATIN SMALL LETTER K
-<U006c> \x6c |0 # LATIN SMALL LETTER L
-<U006d> \x6d |0 # LATIN SMALL LETTER M
-<U006e> \x6e |0 # LATIN SMALL LETTER N
-<U006f> \x6f |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007a> \x7a |0 # LATIN SMALL LETTER Z
-<U007b> \x7b |0 # LEFT CURLY BRACKET
-<U007c> \x7c |0 # VERTICAL LINE
-<U007d> \x7d |0 # RIGHT CURLY BRACKET
-<U007e> \x7e |0 # TILDE
-<U007f> \x7f |0 # DELETE
-<U00a0> \xff |0 # NO-BREAK SPACE
-<U00a1> \xad |0 # INVERTED EXCLAMATION MARK
-<U00a2> \xbd |0 # CENT SIGN
-<U00a3> \x9c |0 # POUND SIGN
-<U00a4> \xcf |0 # CURRENCY SIGN
-<U00a5> \xbe |0 # YEN SIGN
-<U00a6> \xdd |0 # BROKEN BAR
-<U00a7> \xf5 |0 # SECTION SIGN
-<U00a8> \xf9 |0 # DIAERESIS
-<U00a9> \xb8 |0 # COPYRIGHT SIGN
-<U00aa> \xa6 |0 # FEMININE ORDINAL INDICATOR
-<U00ab> \xae |0 # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00ac> \xaa |0 # NOT SIGN
-<U00ad> \xf0 |0 # SOFT HYPHEN
-<U00ae> \xa9 |0 # REGISTERED SIGN
-<U00af> \xee |0 # MACRON
-<U00b0> \xf8 |0 # DEGREE SIGN
-<U00b1> \xf1 |0 # PLUS-MINUS SIGN
-<U00b2> \xfd |0 # SUPERSCRIPT TWO
-<U00b3> \xfc |0 # SUPERSCRIPT THREE
-<U00b4> \xef |0 # ACUTE ACCENT
-<U00b5> \xe6 |0 # MICRO SIGN
-<U00b6> \xf4 |0 # PILCROW SIGN
-<U00b7> \xfa |0 # MIDDLE DOT
-<U00b8> \xf7 |0 # CEDILLA
-<U00b9> \xfb |0 # SUPERSCRIPT ONE
-<U00ba> \xa7 |0 # MASCULINE ORDINAL INDICATOR
-<U00bb> \xaf |0 # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00bc> \xac |0 # VULGAR FRACTION ONE QUARTER
-<U00bd> \xab |0 # VULGAR FRACTION ONE HALF
-<U00be> \xf3 |0 # VULGAR FRACTION THREE QUARTERS
-<U00bf> \xa8 |0 # INVERTED QUESTION MARK
-<U00c0> \xb7 |0 # LATIN CAPITAL LETTER A WITH GRAVE
-<U00c1> \xb5 |0 # LATIN CAPITAL LETTER A WITH ACUTE
-<U00c2> \xb6 |0 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
-<U00c3> \xc7 |0 # LATIN CAPITAL LETTER A WITH TILDE
-<U00c4> \x8e |0 # LATIN CAPITAL LETTER A WITH DIAERESIS
-<U00c5> \x8f |0 # LATIN CAPITAL LETTER A WITH RING ABOVE
-<U00c6> \x92 |0 # LATIN CAPITAL LIGATURE AE
-<U00c7> \x80 |0 # LATIN CAPITAL LETTER C WITH CEDILLA
-<U00c8> \xd4 |0 # LATIN CAPITAL LETTER E WITH GRAVE
-<U00c9> \x90 |0 # LATIN CAPITAL LETTER E WITH ACUTE
-<U00ca> \xd2 |0 # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
-<U00cb> \xd3 |0 # LATIN CAPITAL LETTER E WITH DIAERESIS
-<U00cc> \xde |0 # LATIN CAPITAL LETTER I WITH GRAVE
-<U00cd> \xd6 |0 # LATIN CAPITAL LETTER I WITH ACUTE
-<U00ce> \xd7 |0 # LATIN CAPITAL LETTER I WITH CIRCUMFLEX
-<U00cf> \xd8 |0 # LATIN CAPITAL LETTER I WITH DIAERESIS
-<U00d0> \xd1 |0 # LATIN CAPITAL LETTER ETH
-<U00d1> \xa5 |0 # LATIN CAPITAL LETTER N WITH TILDE
-<U00d2> \xe3 |0 # LATIN CAPITAL LETTER O WITH GRAVE
-<U00d3> \xe0 |0 # LATIN CAPITAL LETTER O WITH ACUTE
-<U00d4> \xe2 |0 # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
-<U00d5> \xe5 |0 # LATIN CAPITAL LETTER O WITH TILDE
-<U00d6> \x99 |0 # LATIN CAPITAL LETTER O WITH DIAERESIS
-<U00d7> \x9e |0 # MULTIPLICATION SIGN
-<U00d8> \x9d |0 # LATIN CAPITAL LETTER O WITH STROKE
-<U00d9> \xeb |0 # LATIN CAPITAL LETTER U WITH GRAVE
-<U00da> \xe9 |0 # LATIN CAPITAL LETTER U WITH ACUTE
-<U00db> \xea |0 # LATIN CAPITAL LETTER U WITH CIRCUMFLEX
-<U00dc> \x9a |0 # LATIN CAPITAL LETTER U WITH DIAERESIS
-<U00dd> \xed |0 # LATIN CAPITAL LETTER Y WITH ACUTE
-<U00de> \xe8 |0 # LATIN CAPITAL LETTER THORN
-<U00df> \xe1 |0 # LATIN SMALL LETTER SHARP S
-<U00e0> \x85 |0 # LATIN SMALL LETTER A WITH GRAVE
-<U00e1> \xa0 |0 # LATIN SMALL LETTER A WITH ACUTE
-<U00e2> \x83 |0 # LATIN SMALL LETTER A WITH CIRCUMFLEX
-<U00e3> \xc6 |0 # LATIN SMALL LETTER A WITH TILDE
-<U00e4> \x84 |0 # LATIN SMALL LETTER A WITH DIAERESIS
-<U00e5> \x86 |0 # LATIN SMALL LETTER A WITH RING ABOVE
-<U00e6> \x91 |0 # LATIN SMALL LIGATURE AE
-<U00e7> \x87 |0 # LATIN SMALL LETTER C WITH CEDILLA
-<U00e8> \x8a |0 # LATIN SMALL LETTER E WITH GRAVE
-<U00e9> \x82 |0 # LATIN SMALL LETTER E WITH ACUTE
-<U00ea> \x88 |0 # LATIN SMALL LETTER E WITH CIRCUMFLEX
-<U00eb> \x89 |0 # LATIN SMALL LETTER E WITH DIAERESIS
-<U00ec> \x8d |0 # LATIN SMALL LETTER I WITH GRAVE
-<U00ed> \xa1 |0 # LATIN SMALL LETTER I WITH ACUTE
-<U00ee> \x8c |0 # LATIN SMALL LETTER I WITH CIRCUMFLEX
-<U00ef> \x8b |0 # LATIN SMALL LETTER I WITH DIAERESIS
-<U00f0> \xd0 |0 # LATIN SMALL LETTER ETH
-<U00f1> \xa4 |0 # LATIN SMALL LETTER N WITH TILDE
-<U00f2> \x95 |0 # LATIN SMALL LETTER O WITH GRAVE
-<U00f3> \xa2 |0 # LATIN SMALL LETTER O WITH ACUTE
-<U00f4> \x93 |0 # LATIN SMALL LETTER O WITH CIRCUMFLEX
-<U00f5> \xe4 |0 # LATIN SMALL LETTER O WITH TILDE
-<U00f6> \x94 |0 # LATIN SMALL LETTER O WITH DIAERESIS
-<U00f7> \xf6 |0 # DIVISION SIGN
-<U00f8> \x9b |0 # LATIN SMALL LETTER O WITH STROKE
-<U00f9> \x97 |0 # LATIN SMALL LETTER U WITH GRAVE
-<U00fa> \xa3 |0 # LATIN SMALL LETTER U WITH ACUTE
-<U00fb> \x96 |0 # LATIN SMALL LETTER U WITH CIRCUMFLEX
-<U00fc> \x81 |0 # LATIN SMALL LETTER U WITH DIAERESIS
-<U00fd> \xec |0 # LATIN SMALL LETTER Y WITH ACUTE
-<U00fe> \xe7 |0 # LATIN SMALL LETTER THORN
-<U00ff> \x98 |0 # LATIN SMALL LETTER Y WITH DIAERESIS
-<U0131> \xd5 |0 # LATIN SMALL LETTER DOTLESS I
-<U0192> \x9f |0 # LATIN SMALL LETTER F WITH HOOK
-<U2017> \xf2 |0 # DOUBLE LOW LINE
-<U2500> \xc4 |0 # BOX DRAWINGS LIGHT HORIZONTAL
-<U2502> \xb3 |0 # BOX DRAWINGS LIGHT VERTICAL
-<U250c> \xda |0 # BOX DRAWINGS LIGHT DOWN AND RIGHT
-<U2510> \xbf |0 # BOX DRAWINGS LIGHT DOWN AND LEFT
-<U2514> \xc0 |0 # BOX DRAWINGS LIGHT UP AND RIGHT
-<U2518> \xd9 |0 # BOX DRAWINGS LIGHT UP AND LEFT
-<U251c> \xc3 |0 # BOX DRAWINGS LIGHT VERTICAL AND RIGHT
-<U2524> \xb4 |0 # BOX DRAWINGS LIGHT VERTICAL AND LEFT
-<U252c> \xc2 |0 # BOX DRAWINGS LIGHT DOWN AND HORIZONTAL
-<U2534> \xc1 |0 # BOX DRAWINGS LIGHT UP AND HORIZONTAL
-<U253c> \xc5 |0 # BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
-<U2550> \xcd |0 # BOX DRAWINGS DOUBLE HORIZONTAL
-<U2551> \xba |0 # BOX DRAWINGS DOUBLE VERTICAL
-<U2554> \xc9 |0 # BOX DRAWINGS DOUBLE DOWN AND RIGHT
-<U2557> \xbb |0 # BOX DRAWINGS DOUBLE DOWN AND LEFT
-<U255a> \xc8 |0 # BOX DRAWINGS DOUBLE UP AND RIGHT
-<U255d> \xbc |0 # BOX DRAWINGS DOUBLE UP AND LEFT
-<U2560> \xcc |0 # BOX DRAWINGS DOUBLE VERTICAL AND RIGHT
-<U2563> \xb9 |0 # BOX DRAWINGS DOUBLE VERTICAL AND LEFT
-<U2566> \xcb |0 # BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL
-<U2569> \xca |0 # BOX DRAWINGS DOUBLE UP AND HORIZONTAL
-<U256c> \xce |0 # BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL
-<U2580> \xdf |0 # UPPER HALF BLOCK
-<U2584> \xdc |0 # LOWER HALF BLOCK
-<U2588> \xdb |0 # FULL BLOCK
-<U2591> \xb0 |0 # LIGHT SHADE
-<U2592> \xb1 |0 # MEDIUM SHADE
-<U2593> \xb2 |0 # DARK SHADE
-<U25a0> \xfe |0 # BLACK SQUARE
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/cp856.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/cp856.ucm
deleted file mode 100644
index 6ea7e44..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/cp856.ucm
+++ /dev/null
@@ -1,227 +0,0 @@
-#
-# $Id: cp856.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/VENDORS/MISC/CP856.TXT
-#
-<code_set_name> "cp856"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3F
-CHARMAP
-<U0000> \x00 |0 # NULL
-<U0001> \x01 |0 # START OF HEADING
-<U0002> \x02 |0 # START OF TEXT
-<U0003> \x03 |0 # END OF TEXT
-<U0004> \x04 |0 # END OF TRANSMISSION
-<U0005> \x05 |0 # ENQUIRY
-<U0006> \x06 |0 # ACKNOWLEDGE
-<U0007> \x07 |0 # BELL
-<U0008> \x08 |0 # BACKSPACE
-<U0009> \x09 |0 # HORIZONTAL TABULATION
-<U000A> \x0A |0 # LINE FEED
-<U000B> \x0B |0 # VERTICAL TABULATION
-<U000C> \x0C |0 # FORM FEED
-<U000D> \x0D |0 # CARRIAGE RETURN
-<U000E> \x0E |0 # SHIFT OUT
-<U000F> \x0F |0 # SHIFT IN
-<U0010> \x10 |0 # DATA LINK ESCAPE
-<U0011> \x11 |0 # DEVICE CONTROL ONE
-<U0012> \x12 |0 # DEVICE CONTROL TWO
-<U0013> \x13 |0 # DEVICE CONTROL THREE
-<U0014> \x14 |0 # DEVICE CONTROL FOUR
-<U0015> \x15 |0 # NEGATIVE ACKNOWLEDGE
-<U0016> \x16 |0 # SYNCHRONOUS IDLE
-<U0017> \x17 |0 # END OF TRANSMISSION BLOCK
-<U0018> \x18 |0 # CANCEL
-<U0019> \x19 |0 # END OF MEDIUM
-<U001A> \x1A |0 # SUBSTITUTE
-<U001B> \x1B |0 # ESCAPE
-<U001C> \x1C |0 # FILE SEPARATOR
-<U001D> \x1D |0 # GROUP SEPARATOR
-<U001E> \x1E |0 # RECORD SEPARATOR
-<U001F> \x1F |0 # UNIT SEPARATOR
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002A> \x2A |0 # ASTERISK
-<U002B> \x2B |0 # PLUS SIGN
-<U002C> \x2C |0 # COMMA
-<U002D> \x2D |0 # HYPHEN-MINUS
-<U002E> \x2E |0 # FULL STOP
-<U002F> \x2F |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003A> \x3A |0 # COLON
-<U003B> \x3B |0 # SEMICOLON
-<U003C> \x3C |0 # LESS-THAN SIGN
-<U003D> \x3D |0 # EQUALS SIGN
-<U003E> \x3E |0 # GREATER-THAN SIGN
-<U003F> \x3F |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004A> \x4A |0 # LATIN CAPITAL LETTER J
-<U004B> \x4B |0 # LATIN CAPITAL LETTER K
-<U004C> \x4C |0 # LATIN CAPITAL LETTER L
-<U004D> \x4D |0 # LATIN CAPITAL LETTER M
-<U004E> \x4E |0 # LATIN CAPITAL LETTER N
-<U004F> \x4F |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005A> \x5A |0 # LATIN CAPITAL LETTER Z
-<U005B> \x5B |0 # LEFT SQUARE BRACKET
-<U005C> \x5C |0 # REVERSE SOLIDUS
-<U005D> \x5D |0 # RIGHT SQUARE BRACKET
-<U005E> \x5E |0 # CIRCUMFLEX ACCENT
-<U005F> \x5F |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006A> \x6A |0 # LATIN SMALL LETTER J
-<U006B> \x6B |0 # LATIN SMALL LETTER K
-<U006C> \x6C |0 # LATIN SMALL LETTER L
-<U006D> \x6D |0 # LATIN SMALL LETTER M
-<U006E> \x6E |0 # LATIN SMALL LETTER N
-<U006F> \x6F |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007A> \x7A |0 # LATIN SMALL LETTER Z
-<U007B> \x7B |0 # LEFT CURLY BRACKET
-<U007C> \x7C |0 # VERTICAL LINE
-<U007D> \x7D |0 # RIGHT CURLY BRACKET
-<U007E> \x7E |0 # TILDE
-<U007F> \x7F |0 # DELETE
-<U00A0> \xFF |0 # NO-BREAK SPACE
-<U00A2> \xBD |0 # CENT SIGN
-<U00A3> \x9C |0 # POUND SIGN
-<U00A4> \xCF |0 # CURRENCY SIGN
-<U00A5> \xBE |0 # YEN SIGN
-<U00A6> \xDD |0 # BROKEN BAR
-<U00A7> \xF5 |0 # SECTION SIGN
-<U00A8> \xF9 |0 # DIAERESIS
-<U00A9> \xB8 |0 # COPYRIGHT SIGN
-<U00AB> \xAE |0 # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00AC> \xAA |0 # NOT SIGN
-<U00AD> \xF0 |0 # SOFT HYPHEN
-<U00AE> \xA9 |0 # REGISTERED SIGN
-<U00AF> \xEE |0 # MACRON
-<U00B0> \xF8 |0 # DEGREE SIGN
-<U00B1> \xF1 |0 # PLUS-MINUS SIGN
-<U00B2> \xFD |0 # SUPERSCRIPT TWO
-<U00B3> \xFC |0 # SUPERSCRIPT THREE
-<U00B4> \xEF |0 # ACUTE ACCENT
-<U00B5> \xE6 |0 # MICRO SIGN
-<U00B6> \xF4 |0 # PILCROW SIGN
-<U00B7> \xFA |0 # MIDDLE DOT
-<U00B8> \xF7 |0 # CEDILLA
-<U00B9> \xFB |0 # SUPERSCRIPT ONE
-<U00BB> \xAF |0 # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00BC> \xAC |0 # VULGAR FRACTION ONE QUARTER
-<U00BD> \xAB |0 # VULGAR FRACTION ONE HALF
-<U00BE> \xF3 |0 # VULGAR FRACTION THREE QUARTERS
-<U00D7> \x9E |0 # MULTIPLICATION SIGN
-<U00F7> \xF6 |0 # DIVISION SIGN
-<U05D0> \x80 |0 # HEBREW LETTER ALEF
-<U05D1> \x81 |0 # HEBREW LETTER BET
-<U05D2> \x82 |0 # HEBREW LETTER GIMEL
-<U05D3> \x83 |0 # HEBREW LETTER DALET
-<U05D4> \x84 |0 # HEBREW LETTER HE
-<U05D5> \x85 |0 # HEBREW LETTER VAV
-<U05D6> \x86 |0 # HEBREW LETTER ZAYIN
-<U05D7> \x87 |0 # HEBREW LETTER HET
-<U05D8> \x88 |0 # HEBREW LETTER TET
-<U05D9> \x89 |0 # HEBREW LETTER YOD
-<U05DA> \x8A |0 # HEBREW LETTER FINAL KAF
-<U05DB> \x8B |0 # HEBREW LETTER KAF
-<U05DC> \x8C |0 # HEBREW LETTER LAMED
-<U05DD> \x8D |0 # HEBREW LETTER FINAL MEM
-<U05DE> \x8E |0 # HEBREW LETTER MEM
-<U05DF> \x8F |0 # HEBREW LETTER FINAL NUN
-<U05E0> \x90 |0 # HEBREW LETTER NUN
-<U05E1> \x91 |0 # HEBREW LETTER SAMEKH
-<U05E2> \x92 |0 # HEBREW LETTER AYIN
-<U05E3> \x93 |0 # HEBREW LETTER FINAL PE
-<U05E4> \x94 |0 # HEBREW LETTER PE
-<U05E5> \x95 |0 # HEBREW LETTER FINAL TSADI
-<U05E6> \x96 |0 # HEBREW LETTER TSADI
-<U05E7> \x97 |0 # HEBREW LETTER QOF
-<U05E8> \x98 |0 # HEBREW LETTER RESH
-<U05E9> \x99 |0 # HEBREW LETTER SHIN
-<U05EA> \x9A |0 # HEBREW LETTER TAV
-<U2017> \xF2 |0 # DOUBLE LOW LINE
-<U2500> \xC4 |0 # BOX DRAWINGS LIGHT HORIZONTAL
-<U2502> \xB3 |0 # BOX DRAWINGS LIGHT VERTICAL
-<U250C> \xDA |0 # BOX DRAWINGS LIGHT DOWN AND RIGHT
-<U2510> \xBF |0 # BOX DRAWINGS LIGHT DOWN AND LEFT
-<U2514> \xC0 |0 # BOX DRAWINGS LIGHT UP AND RIGHT
-<U2518> \xD9 |0 # BOX DRAWINGS LIGHT UP AND LEFT
-<U251C> \xC3 |0 # BOX DRAWINGS LIGHT VERTICAL AND RIGHT
-<U2524> \xB4 |0 # BOX DRAWINGS LIGHT VERTICAL AND LEFT
-<U252C> \xC2 |0 # BOX DRAWINGS LIGHT DOWN AND HORIZONTAL
-<U2534> \xC1 |0 # BOX DRAWINGS LIGHT UP AND HORIZONTAL
-<U253C> \xC5 |0 # BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
-<U2550> \xCD |0 # BOX DRAWINGS DOUBLE HORIZONTAL
-<U2551> \xBA |0 # BOX DRAWINGS DOUBLE VERTICAL
-<U2554> \xC9 |0 # BOX DRAWINGS DOUBLE DOWN AND RIGHT
-<U2557> \xBB |0 # BOX DRAWINGS DOUBLE DOWN AND LEFT
-<U255A> \xC8 |0 # BOX DRAWINGS DOUBLE UP AND RIGHT
-<U255D> \xBC |0 # BOX DRAWINGS DOUBLE UP AND LEFT
-<U2560> \xCC |0 # BOX DRAWINGS DOUBLE VERTICAL AND RIGHT
-<U2563> \xB9 |0 # BOX DRAWINGS DOUBLE VERTICAL AND LEFT
-<U2566> \xCB |0 # BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL
-<U2569> \xCA |0 # BOX DRAWINGS DOUBLE UP AND HORIZONTAL
-<U256C> \xCE |0 # BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL
-<U2580> \xDF |0 # UPPER HALF BLOCK
-<U2584> \xDC |0 # LOWER HALF BLOCK
-<U2588> \xDB |0 # FULL BLOCK
-<U2591> \xB0 |0 # LIGHT SHADE
-<U2592> \xB1 |0 # MEDIUM SHADE
-<U2593> \xB2 |0 # DARK SHADE
-<U25A0> \xFE |0 # BLACK SQUARE
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/cp860.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/cp860.ucm
deleted file mode 100644
index 35866c9..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/cp860.ucm
+++ /dev/null
@@ -1,280 +0,0 @@
-#
-# $Id: cp860.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/PC/CP860.TXT
-#
-<code_set_name> "cp860"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3f
-CHARMAP
-<U0000> \x00 |0 # NULL
-<U0001> \x01 |0 # START OF HEADING
-<U0002> \x02 |0 # START OF TEXT
-<U0003> \x03 |0 # END OF TEXT
-<U0004> \x04 |0 # END OF TRANSMISSION
-<U0005> \x05 |0 # ENQUIRY
-<U0006> \x06 |0 # ACKNOWLEDGE
-<U0007> \x07 |0 # BELL
-<U0008> \x08 |0 # BACKSPACE
-<U0009> \x09 |0 # HORIZONTAL TABULATION
-<U000A> \x0A |0 # <control>
-<U000B> \x0B |0 # <control>
-<U000C> \x0C |0 # <control>
-<U000D> \x0D |0 # <control>
-<U000E> \x0E |0 # <control>
-<U000F> \x0F |0 # <control>
-<U000a> \x0a |0 # LINE FEED
-<U000b> \x0b |0 # VERTICAL TABULATION
-<U000c> \x0c |0 # FORM FEED
-<U000d> \x0d |0 # CARRIAGE RETURN
-<U000e> \x0e |0 # SHIFT OUT
-<U000f> \x0f |0 # SHIFT IN
-<U0010> \x10 |0 # DATA LINK ESCAPE
-<U0011> \x11 |0 # DEVICE CONTROL ONE
-<U0012> \x12 |0 # DEVICE CONTROL TWO
-<U0013> \x13 |0 # DEVICE CONTROL THREE
-<U0014> \x14 |0 # DEVICE CONTROL FOUR
-<U0015> \x15 |0 # NEGATIVE ACKNOWLEDGE
-<U0016> \x16 |0 # SYNCHRONOUS IDLE
-<U0017> \x17 |0 # END OF TRANSMISSION BLOCK
-<U0018> \x18 |0 # CANCEL
-<U0019> \x19 |0 # END OF MEDIUM
-<U001A> \x1A |0 # <control>
-<U001B> \x1B |0 # <control>
-<U001C> \x1C |0 # <control>
-<U001D> \x1D |0 # <control>
-<U001E> \x1E |0 # <control>
-<U001F> \x1F |0 # <control>
-<U001a> \x1a |0 # SUBSTITUTE
-<U001b> \x1b |0 # ESCAPE
-<U001c> \x1c |0 # FILE SEPARATOR
-<U001d> \x1d |0 # GROUP SEPARATOR
-<U001e> \x1e |0 # RECORD SEPARATOR
-<U001f> \x1f |0 # UNIT SEPARATOR
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002a> \x2a |0 # ASTERISK
-<U002b> \x2b |0 # PLUS SIGN
-<U002c> \x2c |0 # COMMA
-<U002d> \x2d |0 # HYPHEN-MINUS
-<U002e> \x2e |0 # FULL STOP
-<U002f> \x2f |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003a> \x3a |0 # COLON
-<U003b> \x3b |0 # SEMICOLON
-<U003c> \x3c |0 # LESS-THAN SIGN
-<U003d> \x3d |0 # EQUALS SIGN
-<U003e> \x3e |0 # GREATER-THAN SIGN
-<U003f> \x3f |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004a> \x4a |0 # LATIN CAPITAL LETTER J
-<U004b> \x4b |0 # LATIN CAPITAL LETTER K
-<U004c> \x4c |0 # LATIN CAPITAL LETTER L
-<U004d> \x4d |0 # LATIN CAPITAL LETTER M
-<U004e> \x4e |0 # LATIN CAPITAL LETTER N
-<U004f> \x4f |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005a> \x5a |0 # LATIN CAPITAL LETTER Z
-<U005b> \x5b |0 # LEFT SQUARE BRACKET
-<U005c> \x5c |0 # REVERSE SOLIDUS
-<U005d> \x5d |0 # RIGHT SQUARE BRACKET
-<U005e> \x5e |0 # CIRCUMFLEX ACCENT
-<U005f> \x5f |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006a> \x6a |0 # LATIN SMALL LETTER J
-<U006b> \x6b |0 # LATIN SMALL LETTER K
-<U006c> \x6c |0 # LATIN SMALL LETTER L
-<U006d> \x6d |0 # LATIN SMALL LETTER M
-<U006e> \x6e |0 # LATIN SMALL LETTER N
-<U006f> \x6f |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007a> \x7a |0 # LATIN SMALL LETTER Z
-<U007b> \x7b |0 # LEFT CURLY BRACKET
-<U007c> \x7c |0 # VERTICAL LINE
-<U007d> \x7d |0 # RIGHT CURLY BRACKET
-<U007e> \x7e |0 # TILDE
-<U007f> \x7f |0 # DELETE
-<U00a0> \xff |0 # NO-BREAK SPACE
-<U00a1> \xad |0 # INVERTED EXCLAMATION MARK
-<U00a2> \x9b |0 # CENT SIGN
-<U00a3> \x9c |0 # POUND SIGN
-<U00aa> \xa6 |0 # FEMININE ORDINAL INDICATOR
-<U00ab> \xae |0 # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00ac> \xaa |0 # NOT SIGN
-<U00b0> \xf8 |0 # DEGREE SIGN
-<U00b1> \xf1 |0 # PLUS-MINUS SIGN
-<U00b2> \xfd |0 # SUPERSCRIPT TWO
-<U00b5> \xe6 |0 # MICRO SIGN
-<U00b7> \xfa |0 # MIDDLE DOT
-<U00ba> \xa7 |0 # MASCULINE ORDINAL INDICATOR
-<U00bb> \xaf |0 # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00bc> \xac |0 # VULGAR FRACTION ONE QUARTER
-<U00bd> \xab |0 # VULGAR FRACTION ONE HALF
-<U00bf> \xa8 |0 # INVERTED QUESTION MARK
-<U00c0> \x91 |0 # LATIN CAPITAL LETTER A WITH GRAVE
-<U00c1> \x86 |0 # LATIN CAPITAL LETTER A WITH ACUTE
-<U00c2> \x8f |0 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
-<U00c3> \x8e |0 # LATIN CAPITAL LETTER A WITH TILDE
-<U00c7> \x80 |0 # LATIN CAPITAL LETTER C WITH CEDILLA
-<U00c8> \x92 |0 # LATIN CAPITAL LETTER E WITH GRAVE
-<U00c9> \x90 |0 # LATIN CAPITAL LETTER E WITH ACUTE
-<U00ca> \x89 |0 # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
-<U00cc> \x98 |0 # LATIN CAPITAL LETTER I WITH GRAVE
-<U00cd> \x8b |0 # LATIN CAPITAL LETTER I WITH ACUTE
-<U00d1> \xa5 |0 # LATIN CAPITAL LETTER N WITH TILDE
-<U00d2> \xa9 |0 # LATIN CAPITAL LETTER O WITH GRAVE
-<U00d3> \x9f |0 # LATIN CAPITAL LETTER O WITH ACUTE
-<U00d4> \x8c |0 # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
-<U00d5> \x99 |0 # LATIN CAPITAL LETTER O WITH TILDE
-<U00d9> \x9d |0 # LATIN CAPITAL LETTER U WITH GRAVE
-<U00da> \x96 |0 # LATIN CAPITAL LETTER U WITH ACUTE
-<U00dc> \x9a |0 # LATIN CAPITAL LETTER U WITH DIAERESIS
-<U00df> \xe1 |0 # LATIN SMALL LETTER SHARP S
-<U00e0> \x85 |0 # LATIN SMALL LETTER A WITH GRAVE
-<U00e1> \xa0 |0 # LATIN SMALL LETTER A WITH ACUTE
-<U00e2> \x83 |0 # LATIN SMALL LETTER A WITH CIRCUMFLEX
-<U00e3> \x84 |0 # LATIN SMALL LETTER A WITH TILDE
-<U00e7> \x87 |0 # LATIN SMALL LETTER C WITH CEDILLA
-<U00e8> \x8a |0 # LATIN SMALL LETTER E WITH GRAVE
-<U00e9> \x82 |0 # LATIN SMALL LETTER E WITH ACUTE
-<U00ea> \x88 |0 # LATIN SMALL LETTER E WITH CIRCUMFLEX
-<U00ec> \x8d |0 # LATIN SMALL LETTER I WITH GRAVE
-<U00ed> \xa1 |0 # LATIN SMALL LETTER I WITH ACUTE
-<U00f1> \xa4 |0 # LATIN SMALL LETTER N WITH TILDE
-<U00f2> \x95 |0 # LATIN SMALL LETTER O WITH GRAVE
-<U00f3> \xa2 |0 # LATIN SMALL LETTER O WITH ACUTE
-<U00f4> \x93 |0 # LATIN SMALL LETTER O WITH CIRCUMFLEX
-<U00f5> \x94 |0 # LATIN SMALL LETTER O WITH TILDE
-<U00f7> \xf6 |0 # DIVISION SIGN
-<U00f9> \x97 |0 # LATIN SMALL LETTER U WITH GRAVE
-<U00fa> \xa3 |0 # LATIN SMALL LETTER U WITH ACUTE
-<U00fc> \x81 |0 # LATIN SMALL LETTER U WITH DIAERESIS
-<U0393> \xe2 |0 # GREEK CAPITAL LETTER GAMMA
-<U0398> \xe9 |0 # GREEK CAPITAL LETTER THETA
-<U03a3> \xe4 |0 # GREEK CAPITAL LETTER SIGMA
-<U03a6> \xe8 |0 # GREEK CAPITAL LETTER PHI
-<U03a9> \xea |0 # GREEK CAPITAL LETTER OMEGA
-<U03b1> \xe0 |0 # GREEK SMALL LETTER ALPHA
-<U03b4> \xeb |0 # GREEK SMALL LETTER DELTA
-<U03b5> \xee |0 # GREEK SMALL LETTER EPSILON
-<U03c0> \xe3 |0 # GREEK SMALL LETTER PI
-<U03c3> \xe5 |0 # GREEK SMALL LETTER SIGMA
-<U03c4> \xe7 |0 # GREEK SMALL LETTER TAU
-<U03c6> \xed |0 # GREEK SMALL LETTER PHI
-<U207f> \xfc |0 # SUPERSCRIPT LATIN SMALL LETTER N
-<U20a7> \x9e |0 # PESETA SIGN
-<U2219> \xf9 |0 # BULLET OPERATOR
-<U221a> \xfb |0 # SQUARE ROOT
-<U221e> \xec |0 # INFINITY
-<U2229> \xef |0 # INTERSECTION
-<U2248> \xf7 |0 # ALMOST EQUAL TO
-<U2261> \xf0 |0 # IDENTICAL TO
-<U2264> \xf3 |0 # LESS-THAN OR EQUAL TO
-<U2265> \xf2 |0 # GREATER-THAN OR EQUAL TO
-<U2320> \xf4 |0 # TOP HALF INTEGRAL
-<U2321> \xf5 |0 # BOTTOM HALF INTEGRAL
-<U2500> \xc4 |0 # BOX DRAWINGS LIGHT HORIZONTAL
-<U2502> \xb3 |0 # BOX DRAWINGS LIGHT VERTICAL
-<U250c> \xda |0 # BOX DRAWINGS LIGHT DOWN AND RIGHT
-<U2510> \xbf |0 # BOX DRAWINGS LIGHT DOWN AND LEFT
-<U2514> \xc0 |0 # BOX DRAWINGS LIGHT UP AND RIGHT
-<U2518> \xd9 |0 # BOX DRAWINGS LIGHT UP AND LEFT
-<U251c> \xc3 |0 # BOX DRAWINGS LIGHT VERTICAL AND RIGHT
-<U2524> \xb4 |0 # BOX DRAWINGS LIGHT VERTICAL AND LEFT
-<U252c> \xc2 |0 # BOX DRAWINGS LIGHT DOWN AND HORIZONTAL
-<U2534> \xc1 |0 # BOX DRAWINGS LIGHT UP AND HORIZONTAL
-<U253c> \xc5 |0 # BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
-<U2550> \xcd |0 # BOX DRAWINGS DOUBLE HORIZONTAL
-<U2551> \xba |0 # BOX DRAWINGS DOUBLE VERTICAL
-<U2552> \xd5 |0 # BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE
-<U2553> \xd6 |0 # BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE
-<U2554> \xc9 |0 # BOX DRAWINGS DOUBLE DOWN AND RIGHT
-<U2555> \xb8 |0 # BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE
-<U2556> \xb7 |0 # BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE
-<U2557> \xbb |0 # BOX DRAWINGS DOUBLE DOWN AND LEFT
-<U2558> \xd4 |0 # BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE
-<U2559> \xd3 |0 # BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE
-<U255a> \xc8 |0 # BOX DRAWINGS DOUBLE UP AND RIGHT
-<U255b> \xbe |0 # BOX DRAWINGS UP SINGLE AND LEFT DOUBLE
-<U255c> \xbd |0 # BOX DRAWINGS UP DOUBLE AND LEFT SINGLE
-<U255d> \xbc |0 # BOX DRAWINGS DOUBLE UP AND LEFT
-<U255e> \xc6 |0 # BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE
-<U255f> \xc7 |0 # BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE
-<U2560> \xcc |0 # BOX DRAWINGS DOUBLE VERTICAL AND RIGHT
-<U2561> \xb5 |0 # BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE
-<U2562> \xb6 |0 # BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE
-<U2563> \xb9 |0 # BOX DRAWINGS DOUBLE VERTICAL AND LEFT
-<U2564> \xd1 |0 # BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE
-<U2565> \xd2 |0 # BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE
-<U2566> \xcb |0 # BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL
-<U2567> \xcf |0 # BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE
-<U2568> \xd0 |0 # BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE
-<U2569> \xca |0 # BOX DRAWINGS DOUBLE UP AND HORIZONTAL
-<U256a> \xd8 |0 # BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE
-<U256b> \xd7 |0 # BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE
-<U256c> \xce |0 # BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL
-<U2580> \xdf |0 # UPPER HALF BLOCK
-<U2584> \xdc |0 # LOWER HALF BLOCK
-<U2588> \xdb |0 # FULL BLOCK
-<U258c> \xdd |0 # LEFT HALF BLOCK
-<U2590> \xde |0 # RIGHT HALF BLOCK
-<U2591> \xb0 |0 # LIGHT SHADE
-<U2592> \xb1 |0 # MEDIUM SHADE
-<U2593> \xb2 |0 # DARK SHADE
-<U25a0> \xfe |0 # BLACK SQUARE
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/cp862.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/cp862.ucm
deleted file mode 100644
index 0227136..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/cp862.ucm
+++ /dev/null
@@ -1,280 +0,0 @@
-#
-# $Id: cp862.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/PC/CP862.TXT
-#
-<code_set_name> "cp862"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3f
-CHARMAP
-<U0000> \x00 |0 # NULL
-<U0001> \x01 |0 # START OF HEADING
-<U0002> \x02 |0 # START OF TEXT
-<U0003> \x03 |0 # END OF TEXT
-<U0004> \x04 |0 # END OF TRANSMISSION
-<U0005> \x05 |0 # ENQUIRY
-<U0006> \x06 |0 # ACKNOWLEDGE
-<U0007> \x07 |0 # BELL
-<U0008> \x08 |0 # BACKSPACE
-<U0009> \x09 |0 # HORIZONTAL TABULATION
-<U000A> \x0A |0 # <control>
-<U000B> \x0B |0 # <control>
-<U000C> \x0C |0 # <control>
-<U000D> \x0D |0 # <control>
-<U000E> \x0E |0 # <control>
-<U000F> \x0F |0 # <control>
-<U000a> \x0a |0 # LINE FEED
-<U000b> \x0b |0 # VERTICAL TABULATION
-<U000c> \x0c |0 # FORM FEED
-<U000d> \x0d |0 # CARRIAGE RETURN
-<U000e> \x0e |0 # SHIFT OUT
-<U000f> \x0f |0 # SHIFT IN
-<U0010> \x10 |0 # DATA LINK ESCAPE
-<U0011> \x11 |0 # DEVICE CONTROL ONE
-<U0012> \x12 |0 # DEVICE CONTROL TWO
-<U0013> \x13 |0 # DEVICE CONTROL THREE
-<U0014> \x14 |0 # DEVICE CONTROL FOUR
-<U0015> \x15 |0 # NEGATIVE ACKNOWLEDGE
-<U0016> \x16 |0 # SYNCHRONOUS IDLE
-<U0017> \x17 |0 # END OF TRANSMISSION BLOCK
-<U0018> \x18 |0 # CANCEL
-<U0019> \x19 |0 # END OF MEDIUM
-<U001A> \x1A |0 # <control>
-<U001B> \x1B |0 # <control>
-<U001C> \x1C |0 # <control>
-<U001D> \x1D |0 # <control>
-<U001E> \x1E |0 # <control>
-<U001F> \x1F |0 # <control>
-<U001a> \x1a |0 # SUBSTITUTE
-<U001b> \x1b |0 # ESCAPE
-<U001c> \x1c |0 # FILE SEPARATOR
-<U001d> \x1d |0 # GROUP SEPARATOR
-<U001e> \x1e |0 # RECORD SEPARATOR
-<U001f> \x1f |0 # UNIT SEPARATOR
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002a> \x2a |0 # ASTERISK
-<U002b> \x2b |0 # PLUS SIGN
-<U002c> \x2c |0 # COMMA
-<U002d> \x2d |0 # HYPHEN-MINUS
-<U002e> \x2e |0 # FULL STOP
-<U002f> \x2f |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003a> \x3a |0 # COLON
-<U003b> \x3b |0 # SEMICOLON
-<U003c> \x3c |0 # LESS-THAN SIGN
-<U003d> \x3d |0 # EQUALS SIGN
-<U003e> \x3e |0 # GREATER-THAN SIGN
-<U003f> \x3f |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004a> \x4a |0 # LATIN CAPITAL LETTER J
-<U004b> \x4b |0 # LATIN CAPITAL LETTER K
-<U004c> \x4c |0 # LATIN CAPITAL LETTER L
-<U004d> \x4d |0 # LATIN CAPITAL LETTER M
-<U004e> \x4e |0 # LATIN CAPITAL LETTER N
-<U004f> \x4f |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005a> \x5a |0 # LATIN CAPITAL LETTER Z
-<U005b> \x5b |0 # LEFT SQUARE BRACKET
-<U005c> \x5c |0 # REVERSE SOLIDUS
-<U005d> \x5d |0 # RIGHT SQUARE BRACKET
-<U005e> \x5e |0 # CIRCUMFLEX ACCENT
-<U005f> \x5f |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006a> \x6a |0 # LATIN SMALL LETTER J
-<U006b> \x6b |0 # LATIN SMALL LETTER K
-<U006c> \x6c |0 # LATIN SMALL LETTER L
-<U006d> \x6d |0 # LATIN SMALL LETTER M
-<U006e> \x6e |0 # LATIN SMALL LETTER N
-<U006f> \x6f |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007a> \x7a |0 # LATIN SMALL LETTER Z
-<U007b> \x7b |0 # LEFT CURLY BRACKET
-<U007c> \x7c |0 # VERTICAL LINE
-<U007d> \x7d |0 # RIGHT CURLY BRACKET
-<U007e> \x7e |0 # TILDE
-<U007f> \x7f |0 # DELETE
-<U00a0> \xff |0 # NO-BREAK SPACE
-<U00a1> \xad |0 # INVERTED EXCLAMATION MARK
-<U00a2> \x9b |0 # CENT SIGN
-<U00a3> \x9c |0 # POUND SIGN
-<U00a5> \x9d |0 # YEN SIGN
-<U00aa> \xa6 |0 # FEMININE ORDINAL INDICATOR
-<U00ab> \xae |0 # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00ac> \xaa |0 # NOT SIGN
-<U00b0> \xf8 |0 # DEGREE SIGN
-<U00b1> \xf1 |0 # PLUS-MINUS SIGN
-<U00b2> \xfd |0 # SUPERSCRIPT TWO
-<U00b5> \xe6 |0 # MICRO SIGN
-<U00b7> \xfa |0 # MIDDLE DOT
-<U00ba> \xa7 |0 # MASCULINE ORDINAL INDICATOR
-<U00bb> \xaf |0 # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00bc> \xac |0 # VULGAR FRACTION ONE QUARTER
-<U00bd> \xab |0 # VULGAR FRACTION ONE HALF
-<U00bf> \xa8 |0 # INVERTED QUESTION MARK
-<U00d1> \xa5 |0 # LATIN CAPITAL LETTER N WITH TILDE
-<U00df> \xe1 |0 # LATIN SMALL LETTER SHARP S (GERMAN)
-<U00e1> \xa0 |0 # LATIN SMALL LETTER A WITH ACUTE
-<U00ed> \xa1 |0 # LATIN SMALL LETTER I WITH ACUTE
-<U00f1> \xa4 |0 # LATIN SMALL LETTER N WITH TILDE
-<U00f3> \xa2 |0 # LATIN SMALL LETTER O WITH ACUTE
-<U00f7> \xf6 |0 # DIVISION SIGN
-<U00fa> \xa3 |0 # LATIN SMALL LETTER U WITH ACUTE
-<U0192> \x9f |0 # LATIN SMALL LETTER F WITH HOOK
-<U0393> \xe2 |0 # GREEK CAPITAL LETTER GAMMA
-<U0398> \xe9 |0 # GREEK CAPITAL LETTER THETA
-<U03a3> \xe4 |0 # GREEK CAPITAL LETTER SIGMA
-<U03a6> \xe8 |0 # GREEK CAPITAL LETTER PHI
-<U03a9> \xea |0 # GREEK CAPITAL LETTER OMEGA
-<U03b1> \xe0 |0 # GREEK SMALL LETTER ALPHA
-<U03b4> \xeb |0 # GREEK SMALL LETTER DELTA
-<U03b5> \xee |0 # GREEK SMALL LETTER EPSILON
-<U03c0> \xe3 |0 # GREEK SMALL LETTER PI
-<U03c3> \xe5 |0 # GREEK SMALL LETTER SIGMA
-<U03c4> \xe7 |0 # GREEK SMALL LETTER TAU
-<U03c6> \xed |0 # GREEK SMALL LETTER PHI
-<U05d0> \x80 |0 # HEBREW LETTER ALEF
-<U05d1> \x81 |0 # HEBREW LETTER BET
-<U05d2> \x82 |0 # HEBREW LETTER GIMEL
-<U05d3> \x83 |0 # HEBREW LETTER DALET
-<U05d4> \x84 |0 # HEBREW LETTER HE
-<U05d5> \x85 |0 # HEBREW LETTER VAV
-<U05d6> \x86 |0 # HEBREW LETTER ZAYIN
-<U05d7> \x87 |0 # HEBREW LETTER HET
-<U05d8> \x88 |0 # HEBREW LETTER TET
-<U05d9> \x89 |0 # HEBREW LETTER YOD
-<U05da> \x8a |0 # HEBREW LETTER FINAL KAF
-<U05db> \x8b |0 # HEBREW LETTER KAF
-<U05dc> \x8c |0 # HEBREW LETTER LAMED
-<U05dd> \x8d |0 # HEBREW LETTER FINAL MEM
-<U05de> \x8e |0 # HEBREW LETTER MEM
-<U05df> \x8f |0 # HEBREW LETTER FINAL NUN
-<U05e0> \x90 |0 # HEBREW LETTER NUN
-<U05e1> \x91 |0 # HEBREW LETTER SAMEKH
-<U05e2> \x92 |0 # HEBREW LETTER AYIN
-<U05e3> \x93 |0 # HEBREW LETTER FINAL PE
-<U05e4> \x94 |0 # HEBREW LETTER PE
-<U05e5> \x95 |0 # HEBREW LETTER FINAL TSADI
-<U05e6> \x96 |0 # HEBREW LETTER TSADI
-<U05e7> \x97 |0 # HEBREW LETTER QOF
-<U05e8> \x98 |0 # HEBREW LETTER RESH
-<U05e9> \x99 |0 # HEBREW LETTER SHIN
-<U05ea> \x9a |0 # HEBREW LETTER TAV
-<U207f> \xfc |0 # SUPERSCRIPT LATIN SMALL LETTER N
-<U20a7> \x9e |0 # PESETA SIGN
-<U2219> \xf9 |0 # BULLET OPERATOR
-<U221a> \xfb |0 # SQUARE ROOT
-<U221e> \xec |0 # INFINITY
-<U2229> \xef |0 # INTERSECTION
-<U2248> \xf7 |0 # ALMOST EQUAL TO
-<U2261> \xf0 |0 # IDENTICAL TO
-<U2264> \xf3 |0 # LESS-THAN OR EQUAL TO
-<U2265> \xf2 |0 # GREATER-THAN OR EQUAL TO
-<U2310> \xa9 |0 # REVERSED NOT SIGN
-<U2320> \xf4 |0 # TOP HALF INTEGRAL
-<U2321> \xf5 |0 # BOTTOM HALF INTEGRAL
-<U2500> \xc4 |0 # BOX DRAWINGS LIGHT HORIZONTAL
-<U2502> \xb3 |0 # BOX DRAWINGS LIGHT VERTICAL
-<U250c> \xda |0 # BOX DRAWINGS LIGHT DOWN AND RIGHT
-<U2510> \xbf |0 # BOX DRAWINGS LIGHT DOWN AND LEFT
-<U2514> \xc0 |0 # BOX DRAWINGS LIGHT UP AND RIGHT
-<U2518> \xd9 |0 # BOX DRAWINGS LIGHT UP AND LEFT
-<U251c> \xc3 |0 # BOX DRAWINGS LIGHT VERTICAL AND RIGHT
-<U2524> \xb4 |0 # BOX DRAWINGS LIGHT VERTICAL AND LEFT
-<U252c> \xc2 |0 # BOX DRAWINGS LIGHT DOWN AND HORIZONTAL
-<U2534> \xc1 |0 # BOX DRAWINGS LIGHT UP AND HORIZONTAL
-<U253c> \xc5 |0 # BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
-<U2550> \xcd |0 # BOX DRAWINGS DOUBLE HORIZONTAL
-<U2551> \xba |0 # BOX DRAWINGS DOUBLE VERTICAL
-<U2552> \xd5 |0 # BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE
-<U2553> \xd6 |0 # BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE
-<U2554> \xc9 |0 # BOX DRAWINGS DOUBLE DOWN AND RIGHT
-<U2555> \xb8 |0 # BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE
-<U2556> \xb7 |0 # BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE
-<U2557> \xbb |0 # BOX DRAWINGS DOUBLE DOWN AND LEFT
-<U2558> \xd4 |0 # BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE
-<U2559> \xd3 |0 # BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE
-<U255a> \xc8 |0 # BOX DRAWINGS DOUBLE UP AND RIGHT
-<U255b> \xbe |0 # BOX DRAWINGS UP SINGLE AND LEFT DOUBLE
-<U255c> \xbd |0 # BOX DRAWINGS UP DOUBLE AND LEFT SINGLE
-<U255d> \xbc |0 # BOX DRAWINGS DOUBLE UP AND LEFT
-<U255e> \xc6 |0 # BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE
-<U255f> \xc7 |0 # BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE
-<U2560> \xcc |0 # BOX DRAWINGS DOUBLE VERTICAL AND RIGHT
-<U2561> \xb5 |0 # BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE
-<U2562> \xb6 |0 # BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE
-<U2563> \xb9 |0 # BOX DRAWINGS DOUBLE VERTICAL AND LEFT
-<U2564> \xd1 |0 # BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE
-<U2565> \xd2 |0 # BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE
-<U2566> \xcb |0 # BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL
-<U2567> \xcf |0 # BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE
-<U2568> \xd0 |0 # BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE
-<U2569> \xca |0 # BOX DRAWINGS DOUBLE UP AND HORIZONTAL
-<U256a> \xd8 |0 # BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE
-<U256b> \xd7 |0 # BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE
-<U256c> \xce |0 # BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL
-<U2580> \xdf |0 # UPPER HALF BLOCK
-<U2584> \xdc |0 # LOWER HALF BLOCK
-<U2588> \xdb |0 # FULL BLOCK
-<U258c> \xdd |0 # LEFT HALF BLOCK
-<U2590> \xde |0 # RIGHT HALF BLOCK
-<U2591> \xb0 |0 # LIGHT SHADE
-<U2592> \xb1 |0 # MEDIUM SHADE
-<U2593> \xb2 |0 # DARK SHADE
-<U25a0> \xfe |0 # BLACK SQUARE
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/cp865.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/cp865.ucm
deleted file mode 100644
index 3a61895..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/cp865.ucm
+++ /dev/null
@@ -1,280 +0,0 @@
-#
-# $Id: cp865.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/PC/CP865.TXT
-#
-<code_set_name> "cp865"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3f
-CHARMAP
-<U0000> \x00 |0 # NULL
-<U0001> \x01 |0 # START OF HEADING
-<U0002> \x02 |0 # START OF TEXT
-<U0003> \x03 |0 # END OF TEXT
-<U0004> \x04 |0 # END OF TRANSMISSION
-<U0005> \x05 |0 # ENQUIRY
-<U0006> \x06 |0 # ACKNOWLEDGE
-<U0007> \x07 |0 # BELL
-<U0008> \x08 |0 # BACKSPACE
-<U0009> \x09 |0 # HORIZONTAL TABULATION
-<U000A> \x0A |0 # <control>
-<U000B> \x0B |0 # <control>
-<U000C> \x0C |0 # <control>
-<U000D> \x0D |0 # <control>
-<U000E> \x0E |0 # <control>
-<U000F> \x0F |0 # <control>
-<U000a> \x0a |0 # LINE FEED
-<U000b> \x0b |0 # VERTICAL TABULATION
-<U000c> \x0c |0 # FORM FEED
-<U000d> \x0d |0 # CARRIAGE RETURN
-<U000e> \x0e |0 # SHIFT OUT
-<U000f> \x0f |0 # SHIFT IN
-<U0010> \x10 |0 # DATA LINK ESCAPE
-<U0011> \x11 |0 # DEVICE CONTROL ONE
-<U0012> \x12 |0 # DEVICE CONTROL TWO
-<U0013> \x13 |0 # DEVICE CONTROL THREE
-<U0014> \x14 |0 # DEVICE CONTROL FOUR
-<U0015> \x15 |0 # NEGATIVE ACKNOWLEDGE
-<U0016> \x16 |0 # SYNCHRONOUS IDLE
-<U0017> \x17 |0 # END OF TRANSMISSION BLOCK
-<U0018> \x18 |0 # CANCEL
-<U0019> \x19 |0 # END OF MEDIUM
-<U001A> \x1A |0 # <control>
-<U001B> \x1B |0 # <control>
-<U001C> \x1C |0 # <control>
-<U001D> \x1D |0 # <control>
-<U001E> \x1E |0 # <control>
-<U001F> \x1F |0 # <control>
-<U001a> \x1a |0 # SUBSTITUTE
-<U001b> \x1b |0 # ESCAPE
-<U001c> \x1c |0 # FILE SEPARATOR
-<U001d> \x1d |0 # GROUP SEPARATOR
-<U001e> \x1e |0 # RECORD SEPARATOR
-<U001f> \x1f |0 # UNIT SEPARATOR
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002a> \x2a |0 # ASTERISK
-<U002b> \x2b |0 # PLUS SIGN
-<U002c> \x2c |0 # COMMA
-<U002d> \x2d |0 # HYPHEN-MINUS
-<U002e> \x2e |0 # FULL STOP
-<U002f> \x2f |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003a> \x3a |0 # COLON
-<U003b> \x3b |0 # SEMICOLON
-<U003c> \x3c |0 # LESS-THAN SIGN
-<U003d> \x3d |0 # EQUALS SIGN
-<U003e> \x3e |0 # GREATER-THAN SIGN
-<U003f> \x3f |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004a> \x4a |0 # LATIN CAPITAL LETTER J
-<U004b> \x4b |0 # LATIN CAPITAL LETTER K
-<U004c> \x4c |0 # LATIN CAPITAL LETTER L
-<U004d> \x4d |0 # LATIN CAPITAL LETTER M
-<U004e> \x4e |0 # LATIN CAPITAL LETTER N
-<U004f> \x4f |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005a> \x5a |0 # LATIN CAPITAL LETTER Z
-<U005b> \x5b |0 # LEFT SQUARE BRACKET
-<U005c> \x5c |0 # REVERSE SOLIDUS
-<U005d> \x5d |0 # RIGHT SQUARE BRACKET
-<U005e> \x5e |0 # CIRCUMFLEX ACCENT
-<U005f> \x5f |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006a> \x6a |0 # LATIN SMALL LETTER J
-<U006b> \x6b |0 # LATIN SMALL LETTER K
-<U006c> \x6c |0 # LATIN SMALL LETTER L
-<U006d> \x6d |0 # LATIN SMALL LETTER M
-<U006e> \x6e |0 # LATIN SMALL LETTER N
-<U006f> \x6f |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007a> \x7a |0 # LATIN SMALL LETTER Z
-<U007b> \x7b |0 # LEFT CURLY BRACKET
-<U007c> \x7c |0 # VERTICAL LINE
-<U007d> \x7d |0 # RIGHT CURLY BRACKET
-<U007e> \x7e |0 # TILDE
-<U007f> \x7f |0 # DELETE
-<U00a0> \xff |0 # NO-BREAK SPACE
-<U00a1> \xad |0 # INVERTED EXCLAMATION MARK
-<U00a3> \x9c |0 # POUND SIGN
-<U00a4> \xaf |0 # CURRENCY SIGN
-<U00aa> \xa6 |0 # FEMININE ORDINAL INDICATOR
-<U00ab> \xae |0 # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00ac> \xaa |0 # NOT SIGN
-<U00b0> \xf8 |0 # DEGREE SIGN
-<U00b1> \xf1 |0 # PLUS-MINUS SIGN
-<U00b2> \xfd |0 # SUPERSCRIPT TWO
-<U00b5> \xe6 |0 # MICRO SIGN
-<U00b7> \xfa |0 # MIDDLE DOT
-<U00ba> \xa7 |0 # MASCULINE ORDINAL INDICATOR
-<U00bc> \xac |0 # VULGAR FRACTION ONE QUARTER
-<U00bd> \xab |0 # VULGAR FRACTION ONE HALF
-<U00bf> \xa8 |0 # INVERTED QUESTION MARK
-<U00c4> \x8e |0 # LATIN CAPITAL LETTER A WITH DIAERESIS
-<U00c5> \x8f |0 # LATIN CAPITAL LETTER A WITH RING ABOVE
-<U00c6> \x92 |0 # LATIN CAPITAL LIGATURE AE
-<U00c7> \x80 |0 # LATIN CAPITAL LETTER C WITH CEDILLA
-<U00c9> \x90 |0 # LATIN CAPITAL LETTER E WITH ACUTE
-<U00d1> \xa5 |0 # LATIN CAPITAL LETTER N WITH TILDE
-<U00d6> \x99 |0 # LATIN CAPITAL LETTER O WITH DIAERESIS
-<U00d8> \x9d |0 # LATIN CAPITAL LETTER O WITH STROKE
-<U00dc> \x9a |0 # LATIN CAPITAL LETTER U WITH DIAERESIS
-<U00df> \xe1 |0 # LATIN SMALL LETTER SHARP S
-<U00e0> \x85 |0 # LATIN SMALL LETTER A WITH GRAVE
-<U00e1> \xa0 |0 # LATIN SMALL LETTER A WITH ACUTE
-<U00e2> \x83 |0 # LATIN SMALL LETTER A WITH CIRCUMFLEX
-<U00e4> \x84 |0 # LATIN SMALL LETTER A WITH DIAERESIS
-<U00e5> \x86 |0 # LATIN SMALL LETTER A WITH RING ABOVE
-<U00e6> \x91 |0 # LATIN SMALL LIGATURE AE
-<U00e7> \x87 |0 # LATIN SMALL LETTER C WITH CEDILLA
-<U00e8> \x8a |0 # LATIN SMALL LETTER E WITH GRAVE
-<U00e9> \x82 |0 # LATIN SMALL LETTER E WITH ACUTE
-<U00ea> \x88 |0 # LATIN SMALL LETTER E WITH CIRCUMFLEX
-<U00eb> \x89 |0 # LATIN SMALL LETTER E WITH DIAERESIS
-<U00ec> \x8d |0 # LATIN SMALL LETTER I WITH GRAVE
-<U00ed> \xa1 |0 # LATIN SMALL LETTER I WITH ACUTE
-<U00ee> \x8c |0 # LATIN SMALL LETTER I WITH CIRCUMFLEX
-<U00ef> \x8b |0 # LATIN SMALL LETTER I WITH DIAERESIS
-<U00f1> \xa4 |0 # LATIN SMALL LETTER N WITH TILDE
-<U00f2> \x95 |0 # LATIN SMALL LETTER O WITH GRAVE
-<U00f3> \xa2 |0 # LATIN SMALL LETTER O WITH ACUTE
-<U00f4> \x93 |0 # LATIN SMALL LETTER O WITH CIRCUMFLEX
-<U00f6> \x94 |0 # LATIN SMALL LETTER O WITH DIAERESIS
-<U00f7> \xf6 |0 # DIVISION SIGN
-<U00f8> \x9b |0 # LATIN SMALL LETTER O WITH STROKE
-<U00f9> \x97 |0 # LATIN SMALL LETTER U WITH GRAVE
-<U00fa> \xa3 |0 # LATIN SMALL LETTER U WITH ACUTE
-<U00fb> \x96 |0 # LATIN SMALL LETTER U WITH CIRCUMFLEX
-<U00fc> \x81 |0 # LATIN SMALL LETTER U WITH DIAERESIS
-<U00ff> \x98 |0 # LATIN SMALL LETTER Y WITH DIAERESIS
-<U0192> \x9f |0 # LATIN SMALL LETTER F WITH HOOK
-<U0393> \xe2 |0 # GREEK CAPITAL LETTER GAMMA
-<U0398> \xe9 |0 # GREEK CAPITAL LETTER THETA
-<U03a3> \xe4 |0 # GREEK CAPITAL LETTER SIGMA
-<U03a6> \xe8 |0 # GREEK CAPITAL LETTER PHI
-<U03a9> \xea |0 # GREEK CAPITAL LETTER OMEGA
-<U03b1> \xe0 |0 # GREEK SMALL LETTER ALPHA
-<U03b4> \xeb |0 # GREEK SMALL LETTER DELTA
-<U03b5> \xee |0 # GREEK SMALL LETTER EPSILON
-<U03c0> \xe3 |0 # GREEK SMALL LETTER PI
-<U03c3> \xe5 |0 # GREEK SMALL LETTER SIGMA
-<U03c4> \xe7 |0 # GREEK SMALL LETTER TAU
-<U03c6> \xed |0 # GREEK SMALL LETTER PHI
-<U207f> \xfc |0 # SUPERSCRIPT LATIN SMALL LETTER N
-<U20a7> \x9e |0 # PESETA SIGN
-<U2219> \xf9 |0 # BULLET OPERATOR
-<U221a> \xfb |0 # SQUARE ROOT
-<U221e> \xec |0 # INFINITY
-<U2229> \xef |0 # INTERSECTION
-<U2248> \xf7 |0 # ALMOST EQUAL TO
-<U2261> \xf0 |0 # IDENTICAL TO
-<U2264> \xf3 |0 # LESS-THAN OR EQUAL TO
-<U2265> \xf2 |0 # GREATER-THAN OR EQUAL TO
-<U2310> \xa9 |0 # REVERSED NOT SIGN
-<U2320> \xf4 |0 # TOP HALF INTEGRAL
-<U2321> \xf5 |0 # BOTTOM HALF INTEGRAL
-<U2500> \xc4 |0 # BOX DRAWINGS LIGHT HORIZONTAL
-<U2502> \xb3 |0 # BOX DRAWINGS LIGHT VERTICAL
-<U250c> \xda |0 # BOX DRAWINGS LIGHT DOWN AND RIGHT
-<U2510> \xbf |0 # BOX DRAWINGS LIGHT DOWN AND LEFT
-<U2514> \xc0 |0 # BOX DRAWINGS LIGHT UP AND RIGHT
-<U2518> \xd9 |0 # BOX DRAWINGS LIGHT UP AND LEFT
-<U251c> \xc3 |0 # BOX DRAWINGS LIGHT VERTICAL AND RIGHT
-<U2524> \xb4 |0 # BOX DRAWINGS LIGHT VERTICAL AND LEFT
-<U252c> \xc2 |0 # BOX DRAWINGS LIGHT DOWN AND HORIZONTAL
-<U2534> \xc1 |0 # BOX DRAWINGS LIGHT UP AND HORIZONTAL
-<U253c> \xc5 |0 # BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
-<U2550> \xcd |0 # BOX DRAWINGS DOUBLE HORIZONTAL
-<U2551> \xba |0 # BOX DRAWINGS DOUBLE VERTICAL
-<U2552> \xd5 |0 # BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE
-<U2553> \xd6 |0 # BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE
-<U2554> \xc9 |0 # BOX DRAWINGS DOUBLE DOWN AND RIGHT
-<U2555> \xb8 |0 # BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE
-<U2556> \xb7 |0 # BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE
-<U2557> \xbb |0 # BOX DRAWINGS DOUBLE DOWN AND LEFT
-<U2558> \xd4 |0 # BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE
-<U2559> \xd3 |0 # BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE
-<U255a> \xc8 |0 # BOX DRAWINGS DOUBLE UP AND RIGHT
-<U255b> \xbe |0 # BOX DRAWINGS UP SINGLE AND LEFT DOUBLE
-<U255c> \xbd |0 # BOX DRAWINGS UP DOUBLE AND LEFT SINGLE
-<U255d> \xbc |0 # BOX DRAWINGS DOUBLE UP AND LEFT
-<U255e> \xc6 |0 # BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE
-<U255f> \xc7 |0 # BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE
-<U2560> \xcc |0 # BOX DRAWINGS DOUBLE VERTICAL AND RIGHT
-<U2561> \xb5 |0 # BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE
-<U2562> \xb6 |0 # BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE
-<U2563> \xb9 |0 # BOX DRAWINGS DOUBLE VERTICAL AND LEFT
-<U2564> \xd1 |0 # BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE
-<U2565> \xd2 |0 # BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE
-<U2566> \xcb |0 # BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL
-<U2567> \xcf |0 # BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE
-<U2568> \xd0 |0 # BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE
-<U2569> \xca |0 # BOX DRAWINGS DOUBLE UP AND HORIZONTAL
-<U256a> \xd8 |0 # BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE
-<U256b> \xd7 |0 # BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE
-<U256c> \xce |0 # BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL
-<U2580> \xdf |0 # UPPER HALF BLOCK
-<U2584> \xdc |0 # LOWER HALF BLOCK
-<U2588> \xdb |0 # FULL BLOCK
-<U258c> \xdd |0 # LEFT HALF BLOCK
-<U2590> \xde |0 # RIGHT HALF BLOCK
-<U2591> \xb0 |0 # LIGHT SHADE
-<U2592> \xb1 |0 # MEDIUM SHADE
-<U2593> \xb2 |0 # DARK SHADE
-<U25a0> \xfe |0 # BLACK SQUARE
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/cp875.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/cp875.ucm
deleted file mode 100644
index 6670821..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/cp875.ucm
+++ /dev/null
@@ -1,262 +0,0 @@
-#
-# $Id: cp875.ucm,v 1.1 2008/05/07 20:56:05 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/EBCDIC/CP875.TXT
-#
-<code_set_name> "cp875"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x6F
-CHARMAP
-<U0000> \x00 |0 # NULL
-<U0001> \x01 |0 # START OF HEADING
-<U0002> \x02 |0 # START OF TEXT
-<U0003> \x03 |0 # END OF TEXT
-<U0004> \x37 |0 # END OF TRANSMISSION
-<U0005> \x2D |0 # ENQUIRY
-<U0006> \x2E |0 # ACKNOWLEDGE
-<U0007> \x2F |0 # BELL
-<U0008> \x16 |0 # BACKSPACE
-<U0009> \x05 |0 # HORIZONTAL TABULATION
-<U000A> \x25 |0 # LINE FEED
-<U000B> \x0B |0 # VERTICAL TABULATION
-<U000C> \x0C |0 # FORM FEED
-<U000D> \x0D |0 # CARRIAGE RETURN
-<U000E> \x0E |0 # SHIFT OUT
-<U000F> \x0F |0 # SHIFT IN
-<U0010> \x10 |0 # DATA LINK ESCAPE
-<U0011> \x11 |0 # DEVICE CONTROL ONE
-<U0012> \x12 |0 # DEVICE CONTROL TWO
-<U0013> \x13 |0 # DEVICE CONTROL THREE
-<U0014> \x3C |0 # DEVICE CONTROL FOUR
-<U0015> \x3D |0 # NEGATIVE ACKNOWLEDGE
-<U0016> \x32 |0 # SYNCHRONOUS IDLE
-<U0017> \x26 |0 # END OF TRANSMISSION BLOCK
-<U0018> \x18 |0 # CANCEL
-<U0019> \x19 |0 # END OF MEDIUM
-<U001A> \xFD |0 # SUBSTITUTE
-<U001B> \x27 |0 # ESCAPE
-<U001C> \x1C |0 # FILE SEPARATOR
-<U001D> \x1D |0 # GROUP SEPARATOR
-<U001E> \x1E |0 # RECORD SEPARATOR
-<U001F> \x1F |0 # UNIT SEPARATOR
-<U0020> \x40 |0 # SPACE
-<U0021> \x4F |0 # EXCLAMATION MARK
-<U0022> \x7F |0 # QUOTATION MARK
-<U0023> \x7B |0 # NUMBER SIGN
-<U0024> \x5B |0 # DOLLAR SIGN
-<U0025> \x6C |0 # PERCENT SIGN
-<U0026> \x50 |0 # AMPERSAND
-<U0027> \x7D |0 # APOSTROPHE
-<U0028> \x4D |0 # LEFT PARENTHESIS
-<U0029> \x5D |0 # RIGHT PARENTHESIS
-<U002A> \x5C |0 # ASTERISK
-<U002B> \x4E |0 # PLUS SIGN
-<U002C> \x6B |0 # COMMA
-<U002D> \x60 |0 # HYPHEN-MINUS
-<U002E> \x4B |0 # FULL STOP
-<U002F> \x61 |0 # SOLIDUS
-<U0030> \xF0 |0 # DIGIT ZERO
-<U0031> \xF1 |0 # DIGIT ONE
-<U0032> \xF2 |0 # DIGIT TWO
-<U0033> \xF3 |0 # DIGIT THREE
-<U0034> \xF4 |0 # DIGIT FOUR
-<U0035> \xF5 |0 # DIGIT FIVE
-<U0036> \xF6 |0 # DIGIT SIX
-<U0037> \xF7 |0 # DIGIT SEVEN
-<U0038> \xF8 |0 # DIGIT EIGHT
-<U0039> \xF9 |0 # DIGIT NINE
-<U003A> \x7A |0 # COLON
-<U003B> \x5E |0 # SEMICOLON
-<U003C> \x4C |0 # LESS-THAN SIGN
-<U003D> \x7E |0 # EQUALS SIGN
-<U003E> \x6E |0 # GREATER-THAN SIGN
-<U003F> \x6F |0 # QUESTION MARK
-<U0040> \x7C |0 # COMMERCIAL AT
-<U0041> \xC1 |0 # LATIN CAPITAL LETTER A
-<U0042> \xC2 |0 # LATIN CAPITAL LETTER B
-<U0043> \xC3 |0 # LATIN CAPITAL LETTER C
-<U0044> \xC4 |0 # LATIN CAPITAL LETTER D
-<U0045> \xC5 |0 # LATIN CAPITAL LETTER E
-<U0046> \xC6 |0 # LATIN CAPITAL LETTER F
-<U0047> \xC7 |0 # LATIN CAPITAL LETTER G
-<U0048> \xC8 |0 # LATIN CAPITAL LETTER H
-<U0049> \xC9 |0 # LATIN CAPITAL LETTER I
-<U004A> \xD1 |0 # LATIN CAPITAL LETTER J
-<U004B> \xD2 |0 # LATIN CAPITAL LETTER K
-<U004C> \xD3 |0 # LATIN CAPITAL LETTER L
-<U004D> \xD4 |0 # LATIN CAPITAL LETTER M
-<U004E> \xD5 |0 # LATIN CAPITAL LETTER N
-<U004F> \xD6 |0 # LATIN CAPITAL LETTER O
-<U0050> \xD7 |0 # LATIN CAPITAL LETTER P
-<U0051> \xD8 |0 # LATIN CAPITAL LETTER Q
-<U0052> \xD9 |0 # LATIN CAPITAL LETTER R
-<U0053> \xE2 |0 # LATIN CAPITAL LETTER S
-<U0054> \xE3 |0 # LATIN CAPITAL LETTER T
-<U0055> \xE4 |0 # LATIN CAPITAL LETTER U
-<U0056> \xE5 |0 # LATIN CAPITAL LETTER V
-<U0057> \xE6 |0 # LATIN CAPITAL LETTER W
-<U0058> \xE7 |0 # LATIN CAPITAL LETTER X
-<U0059> \xE8 |0 # LATIN CAPITAL LETTER Y
-<U005A> \xE9 |0 # LATIN CAPITAL LETTER Z
-<U005B> \x4A |0 # LEFT SQUARE BRACKET
-<U005C> \xE0 |0 # REVERSE SOLIDUS
-<U005D> \x5A |0 # RIGHT SQUARE BRACKET
-<U005E> \x5F |0 # CIRCUMFLEX ACCENT
-<U005F> \x6D |0 # LOW LINE
-<U0060> \x79 |0 # GRAVE ACCENT
-<U0061> \x81 |0 # LATIN SMALL LETTER A
-<U0062> \x82 |0 # LATIN SMALL LETTER B
-<U0063> \x83 |0 # LATIN SMALL LETTER C
-<U0064> \x84 |0 # LATIN SMALL LETTER D
-<U0065> \x85 |0 # LATIN SMALL LETTER E
-<U0066> \x86 |0 # LATIN SMALL LETTER F
-<U0067> \x87 |0 # LATIN SMALL LETTER G
-<U0068> \x88 |0 # LATIN SMALL LETTER H
-<U0069> \x89 |0 # LATIN SMALL LETTER I
-<U006A> \x91 |0 # LATIN SMALL LETTER J
-<U006B> \x92 |0 # LATIN SMALL LETTER K
-<U006C> \x93 |0 # LATIN SMALL LETTER L
-<U006D> \x94 |0 # LATIN SMALL LETTER M
-<U006E> \x95 |0 # LATIN SMALL LETTER N
-<U006F> \x96 |0 # LATIN SMALL LETTER O
-<U0070> \x97 |0 # LATIN SMALL LETTER P
-<U0071> \x98 |0 # LATIN SMALL LETTER Q
-<U0072> \x99 |0 # LATIN SMALL LETTER R
-<U0073> \xA2 |0 # LATIN SMALL LETTER S
-<U0074> \xA3 |0 # LATIN SMALL LETTER T
-<U0075> \xA4 |0 # LATIN SMALL LETTER U
-<U0076> \xA5 |0 # LATIN SMALL LETTER V
-<U0077> \xA6 |0 # LATIN SMALL LETTER W
-<U0078> \xA7 |0 # LATIN SMALL LETTER X
-<U0079> \xA8 |0 # LATIN SMALL LETTER Y
-<U007A> \xA9 |0 # LATIN SMALL LETTER Z
-<U007B> \xC0 |0 # LEFT CURLY BRACKET
-<U007C> \x6A |0 # VERTICAL LINE
-<U007D> \xD0 |0 # RIGHT CURLY BRACKET
-<U007E> \xA1 |0 # TILDE
-<U007F> \x07 |0 # DELETE
-<U0080> \x20 |0 # CONTROL
-<U0081> \x21 |0 # CONTROL
-<U0082> \x22 |0 # CONTROL
-<U0083> \x23 |0 # CONTROL
-<U0084> \x24 |0 # CONTROL
-<U0085> \x15 |0 # CONTROL
-<U0086> \x06 |0 # CONTROL
-<U0087> \x17 |0 # CONTROL
-<U0088> \x28 |0 # CONTROL
-<U0089> \x29 |0 # CONTROL
-<U008A> \x2A |0 # CONTROL
-<U008B> \x2B |0 # CONTROL
-<U008C> \x2C |0 # CONTROL
-<U008D> \x09 |0 # CONTROL
-<U008E> \x0A |0 # CONTROL
-<U008F> \x1B |0 # CONTROL
-<U0090> \x30 |0 # CONTROL
-<U0091> \x31 |0 # CONTROL
-<U0092> \x1A |0 # CONTROL
-<U0093> \x33 |0 # CONTROL
-<U0094> \x34 |0 # CONTROL
-<U0095> \x35 |0 # CONTROL
-<U0096> \x36 |0 # CONTROL
-<U0097> \x08 |0 # CONTROL
-<U0098> \x38 |0 # CONTROL
-<U0099> \x39 |0 # CONTROL
-<U009A> \x3A |0 # CONTROL
-<U009B> \x3B |0 # CONTROL
-<U009C> \x04 |0 # CONTROL
-<U009D> \x14 |0 # CONTROL
-<U009E> \x3E |0 # CONTROL
-<U009F> \xFF |0 # CONTROL
-<U00A0> \x74 |0 # NO-BREAK SPACE
-<U00A3> \xB0 |0 # POUND SIGN
-<U00A6> \xDF |0 # BROKEN BAR
-<U00A7> \xEB |0 # SECTION SIGN
-<U00A8> \x70 |0 # DIAERESIS
-<U00A9> \xFB |0 # COPYRIGHT SIGN
-<U00AB> \xEE |0 # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00AC> \xEF |0 # NOT SIGN
-<U00AD> \xCA |0 # SOFT HYPHEN
-<U00B0> \x90 |0 # DEGREE SIGN
-<U00B1> \xDA |0 # PLUS-MINUS SIGN
-<U00B2> \xEA |0 # SUPERSCRIPT TWO
-<U00B3> \xFA |0 # SUPERSCRIPT THREE
-<U00B4> \xA0 |0 # ACUTE ACCENT
-<U00BB> \xFE |0 # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00BD> \xDB |0 # VULGAR FRACTION ONE HALF
-<U0385> \x80 |0 # GREEK DIALYTIKA TONOS
-<U0386> \x71 |0 # GREEK CAPITAL LETTER ALPHA WITH TONOS
-<U0387> \xDD |0 # GREEK ANO TELEIA
-<U0388> \x72 |0 # GREEK CAPITAL LETTER EPSILON WITH TONOS
-<U0389> \x73 |0 # GREEK CAPITAL LETTER ETA WITH TONOS
-<U038A> \x75 |0 # GREEK CAPITAL LETTER IOTA WITH TONOS
-<U038C> \x76 |0 # GREEK CAPITAL LETTER OMICRON WITH TONOS
-<U038E> \x77 |0 # GREEK CAPITAL LETTER UPSILON WITH TONOS
-<U038F> \x78 |0 # GREEK CAPITAL LETTER OMEGA WITH TONOS
-<U0390> \xCC |0 # GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS
-<U0391> \x41 |0 # GREEK CAPITAL LETTER ALPHA
-<U0392> \x42 |0 # GREEK CAPITAL LETTER BETA
-<U0393> \x43 |0 # GREEK CAPITAL LETTER GAMMA
-<U0394> \x44 |0 # GREEK CAPITAL LETTER DELTA
-<U0395> \x45 |0 # GREEK CAPITAL LETTER EPSILON
-<U0396> \x46 |0 # GREEK CAPITAL LETTER ZETA
-<U0397> \x47 |0 # GREEK CAPITAL LETTER ETA
-<U0398> \x48 |0 # GREEK CAPITAL LETTER THETA
-<U0399> \x49 |0 # GREEK CAPITAL LETTER IOTA
-<U039A> \x51 |0 # GREEK CAPITAL LETTER KAPPA
-<U039B> \x52 |0 # GREEK CAPITAL LETTER LAMDA
-<U039C> \x53 |0 # GREEK CAPITAL LETTER MU
-<U039D> \x54 |0 # GREEK CAPITAL LETTER NU
-<U039E> \x55 |0 # GREEK CAPITAL LETTER XI
-<U039F> \x56 |0 # GREEK CAPITAL LETTER OMICRON
-<U03A0> \x57 |0 # GREEK CAPITAL LETTER PI
-<U03A1> \x58 |0 # GREEK CAPITAL LETTER RHO
-<U03A3> \x59 |0 # GREEK CAPITAL LETTER SIGMA
-<U03A4> \x62 |0 # GREEK CAPITAL LETTER TAU
-<U03A5> \x63 |0 # GREEK CAPITAL LETTER UPSILON
-<U03A6> \x64 |0 # GREEK CAPITAL LETTER PHI
-<U03A7> \x65 |0 # GREEK CAPITAL LETTER CHI
-<U03A8> \x66 |0 # GREEK CAPITAL LETTER PSI
-<U03A9> \x67 |0 # GREEK CAPITAL LETTER OMEGA
-<U03AA> \x68 |0 # GREEK CAPITAL LETTER IOTA WITH DIALYTIKA
-<U03AB> \x69 |0 # GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA
-<U03AC> \xB1 |0 # GREEK SMALL LETTER ALPHA WITH TONOS
-<U03AD> \xB2 |0 # GREEK SMALL LETTER EPSILON WITH TONOS
-<U03AE> \xB3 |0 # GREEK SMALL LETTER ETA WITH TONOS
-<U03AF> \xB5 |0 # GREEK SMALL LETTER IOTA WITH TONOS
-<U03B0> \xCD |0 # GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS
-<U03B1> \x8A |0 # GREEK SMALL LETTER ALPHA
-<U03B2> \x8B |0 # GREEK SMALL LETTER BETA
-<U03B3> \x8C |0 # GREEK SMALL LETTER GAMMA
-<U03B4> \x8D |0 # GREEK SMALL LETTER DELTA
-<U03B5> \x8E |0 # GREEK SMALL LETTER EPSILON
-<U03B6> \x8F |0 # GREEK SMALL LETTER ZETA
-<U03B7> \x9A |0 # GREEK SMALL LETTER ETA
-<U03B8> \x9B |0 # GREEK SMALL LETTER THETA
-<U03B9> \x9C |0 # GREEK SMALL LETTER IOTA
-<U03BA> \x9D |0 # GREEK SMALL LETTER KAPPA
-<U03BB> \x9E |0 # GREEK SMALL LETTER LAMDA
-<U03BC> \x9F |0 # GREEK SMALL LETTER MU
-<U03BD> \xAA |0 # GREEK SMALL LETTER NU
-<U03BE> \xAB |0 # GREEK SMALL LETTER XI
-<U03BF> \xAC |0 # GREEK SMALL LETTER OMICRON
-<U03C0> \xAD |0 # GREEK SMALL LETTER PI
-<U03C1> \xAE |0 # GREEK SMALL LETTER RHO
-<U03C2> \xBA |0 # GREEK SMALL LETTER FINAL SIGMA
-<U03C3> \xAF |0 # GREEK SMALL LETTER SIGMA
-<U03C4> \xBB |0 # GREEK SMALL LETTER TAU
-<U03C5> \xBC |0 # GREEK SMALL LETTER UPSILON
-<U03C6> \xBD |0 # GREEK SMALL LETTER PHI
-<U03C7> \xBE |0 # GREEK SMALL LETTER CHI
-<U03C8> \xBF |0 # GREEK SMALL LETTER PSI
-<U03C9> \xCB |0 # GREEK SMALL LETTER OMEGA
-<U03CA> \xB4 |0 # GREEK SMALL LETTER IOTA WITH DIALYTIKA
-<U03CB> \xB8 |0 # GREEK SMALL LETTER UPSILON WITH DIALYTIKA
-<U03CC> \xB6 |0 # GREEK SMALL LETTER OMICRON WITH TONOS
-<U03CD> \xB7 |0 # GREEK SMALL LETTER UPSILON WITH TONOS
-<U03CE> \xB9 |0 # GREEK SMALL LETTER OMEGA WITH TONOS
-<U2015> \xCF |0 # HORIZONTAL BAR
-<U2018> \xCE |0 # LEFT SINGLE QUOTATION MARK
-<U2019> \xDE |0 # RIGHT SINGLE QUOTATION MARK
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/cp949.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/cp949.ucm
deleted file mode 100644
index cb00d11..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/cp949.ucm
+++ /dev/null
@@ -1,17772 +0,0 @@
-#
-# $Id: cp949.ucm,v 2.0 2004/05/16 20:55:22 dankogai Exp $
-#
-# Original table can be obtained at
-# http://oss.software.ibm.com/cvs/icu/charset/data/ucm/windows-949-2000.ucm
-#
-<code_set_name> "cp949"
-<mb_cur_min> 1
-<mb_cur_max> 2
-<subchar> \x3F
-CHARMAP
-<U0000> \x00 |0 # NULL
-<U0001> \x01 |0 # START OF HEADING
-<U0002> \x02 |0 # START OF TEXT
-<U0003> \x03 |0 # END OF TEXT
-<U0004> \x04 |0 # END OF TRANSMISSION
-<U0005> \x05 |0 # ENQUIRY
-<U0006> \x06 |0 # ACKNOWLEDGE
-<U0007> \x07 |0 # BELL
-<U0008> \x08 |0 # BACKSPACE
-<U0009> \x09 |0 # HORIZONTAL TABULATION
-<U000A> \x0A |0 # LINE FEED
-<U000B> \x0B |0 # VERTICAL TABULATION
-<U000C> \x0C |0 # FORM FEED
-<U000D> \x0D |0 # CARRIAGE RETURN
-<U000E> \x0E |0 # SHIFT OUT
-<U000F> \x0F |0 # SHIFT IN
-<U0010> \x10 |0 # DATA LINK ESCAPE
-<U0011> \x11 |0 # DEVICE CONTROL ONE
-<U0012> \x12 |0 # DEVICE CONTROL TWO
-<U0013> \x13 |0 # DEVICE CONTROL THREE
-<U0014> \x14 |0 # DEVICE CONTROL FOUR
-<U0015> \x15 |0 # NEGATIVE ACKNOWLEDGE
-<U0016> \x16 |0 # SYNCHRONOUS IDLE
-<U0017> \x17 |0 # END OF TRANSMISSION BLOCK
-<U0018> \x18 |0 # CANCEL
-<U0019> \x19 |0 # END OF MEDIUM
-<U001A> \x1A |0 # SUBSTITUTE
-<U001B> \x1B |0 # ESCAPE
-<U001C> \x1C |0 # FILE SEPARATOR
-<U001D> \x1D |0 # GROUP SEPARATOR
-<U001E> \x1E |0 # RECORD SEPARATOR
-<U001F> \x1F |0 # UNIT SEPARATOR
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002A> \x2A |0 # ASTERISK
-<U002B> \x2B |0 # PLUS SIGN
-<U002C> \x2C |0 # COMMA
-<U002D> \x2D |0 # HYPHEN-MINUS
-<U002E> \x2E |0 # FULL STOP
-<U002F> \x2F |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003A> \x3A |0 # COLON
-<U003B> \x3B |0 # SEMICOLON
-<U003C> \x3C |0 # LESS-THAN SIGN
-<U003D> \x3D |0 # EQUALS SIGN
-<U003E> \x3E |0 # GREATER-THAN SIGN
-<U003F> \x3F |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004A> \x4A |0 # LATIN CAPITAL LETTER J
-<U004B> \x4B |0 # LATIN CAPITAL LETTER K
-<U004C> \x4C |0 # LATIN CAPITAL LETTER L
-<U004D> \x4D |0 # LATIN CAPITAL LETTER M
-<U004E> \x4E |0 # LATIN CAPITAL LETTER N
-<U004F> \x4F |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005A> \x5A |0 # LATIN CAPITAL LETTER Z
-<U005B> \x5B |0 # LEFT SQUARE BRACKET
-<U005C> \x5C |0 # REVERSE SOLIDUS
-<U005D> \x5D |0 # RIGHT SQUARE BRACKET
-<U005E> \x5E |0 # CIRCUMFLEX ACCENT
-<U005F> \x5F |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006A> \x6A |0 # LATIN SMALL LETTER J
-<U006B> \x6B |0 # LATIN SMALL LETTER K
-<U006C> \x6C |0 # LATIN SMALL LETTER L
-<U006D> \x6D |0 # LATIN SMALL LETTER M
-<U006E> \x6E |0 # LATIN SMALL LETTER N
-<U006F> \x6F |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007A> \x7A |0 # LATIN SMALL LETTER Z
-<U007B> \x7B |0 # LEFT CURLY BRACKET
-<U007C> \x7C |0 # VERTICAL LINE
-<U007D> \x7D |0 # RIGHT CURLY BRACKET
-<U007E> \x7E |0 # TILDE
-<U007F> \x7F |0 # DELETE
-<U0080> \x80 |0 #
-<U00A1> \xA2\xAE |0 # INVERTED EXCLAMATION MARK
-<U00A2> \xA1\xCB |1 # CENT SIGN
-<U00A3> \xA1\xCC |1 # POUND SIGN
-<U00A4> \xA2\xB4 |0 # CURRENCY SIGN
-<U00A5> \xA1\xCD |1 # YEN SIGN
-<U00A6> \x7C |1 # BROKEN BAR
-<U00A7> \xA1\xD7 |0 # SECTION SIGN
-<U00A8> \xA1\xA7 |0 # DIAERESIS
-<U00A9> \xA8\xCF |1 # COPYRIGHT SIGN
-<U00AA> \xA8\xA3 |0 # FEMININE ORDINAL INDICATOR
-<U00AB> \xA1\xEC |1 # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00AC> \xA1\xFE |1 # NOT SIGN
-<U00AD> \xA1\xA9 |0 # SOFT HYPHEN
-<U00AE> \xA2\xE7 |0 # REGISTERED SIGN
-<U00B0> \xA1\xC6 |0 # DEGREE SIGN
-<U00B1> \xA1\xBE |0 # PLUS-MINUS SIGN
-<U00B2> \xA9\xF7 |0 # SUPERSCRIPT TWO
-<U00B3> \xA9\xF8 |0 # SUPERSCRIPT THREE
-<U00B4> \xA2\xA5 |0 # ACUTE ACCENT
-<U00B5> \xA5\xEC |1 # MICRO SIGN
-<U00B6> \xA2\xD2 |0 # PILCROW SIGN
-<U00B7> \xA1\xA4 |0 # MIDDLE DOT
-<U00B8> \xA2\xAC |0 # CEDILLA
-<U00B9> \xA9\xF6 |0 # SUPERSCRIPT ONE
-<U00BA> \xA8\xAC |0 # MASCULINE ORDINAL INDICATOR
-<U00BB> \xA1\xED |1 # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00BC> \xA8\xF9 |0 # VULGAR FRACTION ONE QUARTER
-<U00BD> \xA8\xF6 |0 # VULGAR FRACTION ONE HALF
-<U00BE> \xA8\xFA |0 # VULGAR FRACTION THREE QUARTERS
-<U00BF> \xA2\xAF |0 # INVERTED QUESTION MARK
-<U00C0> \x41 |1 # LATIN CAPITAL LETTER A WITH GRAVE
-<U00C1> \x41 |1 # LATIN CAPITAL LETTER A WITH ACUTE
-<U00C2> \x41 |1 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
-<U00C3> \x41 |1 # LATIN CAPITAL LETTER A WITH TILDE
-<U00C4> \x41 |1 # LATIN CAPITAL LETTER A WITH DIAERESIS
-<U00C5> \x41 |1 # LATIN CAPITAL LETTER A WITH RING ABOVE
-<U00C6> \xA8\xA1 |0 # LATIN CAPITAL LETTER AE
-<U00C7> \x43 |1 # LATIN CAPITAL LETTER C WITH CEDILLA
-<U00C8> \x45 |1 # LATIN CAPITAL LETTER E WITH GRAVE
-<U00C9> \x45 |1 # LATIN CAPITAL LETTER E WITH ACUTE
-<U00CA> \x45 |1 # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
-<U00CB> \x45 |1 # LATIN CAPITAL LETTER E WITH DIAERESIS
-<U00CC> \x49 |1 # LATIN CAPITAL LETTER I WITH GRAVE
-<U00CD> \x49 |1 # LATIN CAPITAL LETTER I WITH ACUTE
-<U00CE> \x49 |1 # LATIN CAPITAL LETTER I WITH CIRCUMFLEX
-<U00CF> \x49 |1 # LATIN CAPITAL LETTER I WITH DIAERESIS
-<U00D0> \xA8\xA2 |0 # LATIN CAPITAL LETTER ETH
-<U00D1> \x4E |1 # LATIN CAPITAL LETTER N WITH TILDE
-<U00D2> \x4F |1 # LATIN CAPITAL LETTER O WITH GRAVE
-<U00D3> \x4F |1 # LATIN CAPITAL LETTER O WITH ACUTE
-<U00D4> \x4F |1 # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
-<U00D5> \x4F |1 # LATIN CAPITAL LETTER O WITH TILDE
-<U00D6> \x4F |1 # LATIN CAPITAL LETTER O WITH DIAERESIS
-<U00D7> \xA1\xBF |0 # MULTIPLICATION SIGN
-<U00D8> \xA8\xAA |0 # LATIN CAPITAL LETTER O WITH STROKE
-<U00D9> \x55 |1 # LATIN CAPITAL LETTER U WITH GRAVE
-<U00DA> \x55 |1 # LATIN CAPITAL LETTER U WITH ACUTE
-<U00DB> \x55 |1 # LATIN CAPITAL LETTER U WITH CIRCUMFLEX
-<U00DC> \x55 |1 # LATIN CAPITAL LETTER U WITH DIAERESIS
-<U00DD> \x59 |1 # LATIN CAPITAL LETTER Y WITH ACUTE
-<U00DE> \xA8\xAD |0 # LATIN CAPITAL LETTER THORN
-<U00DF> \xA9\xAC |0 # LATIN SMALL LETTER SHARP S
-<U00E0> \x61 |1 # LATIN SMALL LETTER A WITH GRAVE
-<U00E1> \x61 |1 # LATIN SMALL LETTER A WITH ACUTE
-<U00E2> \x61 |1 # LATIN SMALL LETTER A WITH CIRCUMFLEX
-<U00E3> \x61 |1 # LATIN SMALL LETTER A WITH TILDE
-<U00E4> \x61 |1 # LATIN SMALL LETTER A WITH DIAERESIS
-<U00E5> \x61 |1 # LATIN SMALL LETTER A WITH RING ABOVE
-<U00E6> \xA9\xA1 |0 # LATIN SMALL LETTER AE
-<U00E7> \x63 |1 # LATIN SMALL LETTER C WITH CEDILLA
-<U00E8> \x65 |1 # LATIN SMALL LETTER E WITH GRAVE
-<U00E9> \x65 |1 # LATIN SMALL LETTER E WITH ACUTE
-<U00EA> \x65 |1 # LATIN SMALL LETTER E WITH CIRCUMFLEX
-<U00EB> \x65 |1 # LATIN SMALL LETTER E WITH DIAERESIS
-<U00EC> \x69 |1 # LATIN SMALL LETTER I WITH GRAVE
-<U00ED> \x69 |1 # LATIN SMALL LETTER I WITH ACUTE
-<U00EE> \x69 |1 # LATIN SMALL LETTER I WITH CIRCUMFLEX
-<U00EF> \x69 |1 # LATIN SMALL LETTER I WITH DIAERESIS
-<U00F0> \xA9\xA3 |0 # LATIN SMALL LETTER ETH
-<U00F1> \x6E |1 # LATIN SMALL LETTER N WITH TILDE
-<U00F2> \x6F |1 # LATIN SMALL LETTER O WITH GRAVE
-<U00F3> \x6F |1 # LATIN SMALL LETTER O WITH ACUTE
-<U00F4> \x6F |1 # LATIN SMALL LETTER O WITH CIRCUMFLEX
-<U00F5> \x6F |1 # LATIN SMALL LETTER O WITH TILDE
-<U00F6> \x6F |1 # LATIN SMALL LETTER O WITH DIAERESIS
-<U00F7> \xA1\xC0 |0 # DIVISION SIGN
-<U00F8> \xA9\xAA |0 # LATIN SMALL LETTER O WITH STROKE
-<U00F9> \x75 |1 # LATIN SMALL LETTER U WITH GRAVE
-<U00FA> \x75 |1 # LATIN SMALL LETTER U WITH ACUTE
-<U00FB> \x75 |1 # LATIN SMALL LETTER U WITH CIRCUMFLEX
-<U00FC> \x75 |1 # LATIN SMALL LETTER U WITH DIAERESIS
-<U00FD> \x79 |1 # LATIN SMALL LETTER Y WITH ACUTE
-<U00FE> \xA9\xAD |0 # LATIN SMALL LETTER THORN
-<U00FF> \x79 |1 # LATIN SMALL LETTER Y WITH DIAERESIS
-<U0110> \xA9\xA2 |1 # LATIN CAPITAL LETTER D WITH STROKE
-<U0111> \xA9\xA2 |0 # LATIN SMALL LETTER D WITH STROKE
-<U0126> \xA8\xA4 |0 # LATIN CAPITAL LETTER H WITH STROKE
-<U0127> \xA9\xA4 |0 # LATIN SMALL LETTER H WITH STROKE
-<U0131> \xA9\xA5 |0 # LATIN SMALL LETTER DOTLESS I
-<U0132> \xA8\xA6 |0 # LATIN CAPITAL LIGATURE IJ
-<U0133> \xA9\xA6 |0 # LATIN SMALL LIGATURE IJ
-<U0138> \xA9\xA7 |0 # LATIN SMALL LETTER KRA
-<U013F> \xA8\xA8 |0 # LATIN CAPITAL LETTER L WITH MIDDLE DOT
-<U0140> \xA9\xA8 |0 # LATIN SMALL LETTER L WITH MIDDLE DOT
-<U0141> \xA8\xA9 |0 # LATIN CAPITAL LETTER L WITH STROKE
-<U0142> \xA9\xA9 |0 # LATIN SMALL LETTER L WITH STROKE
-<U0149> \xA9\xB0 |0 # LATIN SMALL LETTER N PRECEDED BY APOSTROPHE
-<U014A> \xA8\xAF |0 # LATIN CAPITAL LETTER ENG
-<U014B> \xA9\xAF |0 # LATIN SMALL LETTER ENG
-<U0152> \xA8\xAB |0 # LATIN CAPITAL LIGATURE OE
-<U0153> \xA9\xAB |0 # LATIN SMALL LIGATURE OE
-<U0166> \xA8\xAE |0 # LATIN CAPITAL LETTER T WITH STROKE
-<U0167> \xA9\xAE |0 # LATIN SMALL LETTER T WITH STROKE
-<U02C7> \xA2\xA7 |0 # CARON
-<U02D0> \xA2\xB0 |0 # MODIFIER LETTER TRIANGULAR COLON
-<U02D8> \xA2\xA8 |0 # BREVE
-<U02D9> \xA2\xAB |0 # DOT ABOVE
-<U02DA> \xA2\xAA |0 # RING ABOVE
-<U02DB> \xA2\xAD |0 # OGONEK
-<U02DD> \xA2\xA9 |0 # DOUBLE ACUTE ACCENT
-<U0391> \xA5\xC1 |0 # GREEK CAPITAL LETTER ALPHA
-<U0392> \xA5\xC2 |0 # GREEK CAPITAL LETTER BETA
-<U0393> \xA5\xC3 |0 # GREEK CAPITAL LETTER GAMMA
-<U0394> \xA5\xC4 |0 # GREEK CAPITAL LETTER DELTA
-<U0395> \xA5\xC5 |0 # GREEK CAPITAL LETTER EPSILON
-<U0396> \xA5\xC6 |0 # GREEK CAPITAL LETTER ZETA
-<U0397> \xA5\xC7 |0 # GREEK CAPITAL LETTER ETA
-<U0398> \xA5\xC8 |0 # GREEK CAPITAL LETTER THETA
-<U0399> \xA5\xC9 |0 # GREEK CAPITAL LETTER IOTA
-<U039A> \xA5\xCA |0 # GREEK CAPITAL LETTER KAPPA
-<U039B> \xA5\xCB |0 # GREEK CAPITAL LETTER LAMDA
-<U039C> \xA5\xCC |0 # GREEK CAPITAL LETTER MU
-<U039D> \xA5\xCD |0 # GREEK CAPITAL LETTER NU
-<U039E> \xA5\xCE |0 # GREEK CAPITAL LETTER XI
-<U039F> \xA5\xCF |0 # GREEK CAPITAL LETTER OMICRON
-<U03A0> \xA5\xD0 |0 # GREEK CAPITAL LETTER PI
-<U03A1> \xA5\xD1 |0 # GREEK CAPITAL LETTER RHO
-<U03A3> \xA5\xD2 |0 # GREEK CAPITAL LETTER SIGMA
-<U03A4> \xA5\xD3 |0 # GREEK CAPITAL LETTER TAU
-<U03A5> \xA5\xD4 |0 # GREEK CAPITAL LETTER UPSILON
-<U03A6> \xA5\xD5 |0 # GREEK CAPITAL LETTER PHI
-<U03A7> \xA5\xD6 |0 # GREEK CAPITAL LETTER CHI
-<U03A8> \xA5\xD7 |0 # GREEK CAPITAL LETTER PSI
-<U03A9> \xA5\xD8 |0 # GREEK CAPITAL LETTER OMEGA
-<U03B1> \xA5\xE1 |0 # GREEK SMALL LETTER ALPHA
-<U03B2> \xA5\xE2 |0 # GREEK SMALL LETTER BETA
-<U03B3> \xA5\xE3 |0 # GREEK SMALL LETTER GAMMA
-<U03B4> \xA5\xE4 |0 # GREEK SMALL LETTER DELTA
-<U03B5> \xA5\xE5 |0 # GREEK SMALL LETTER EPSILON
-<U03B6> \xA5\xE6 |0 # GREEK SMALL LETTER ZETA
-<U03B7> \xA5\xE7 |0 # GREEK SMALL LETTER ETA
-<U03B8> \xA5\xE8 |0 # GREEK SMALL LETTER THETA
-<U03B9> \xA5\xE9 |0 # GREEK SMALL LETTER IOTA
-<U03BA> \xA5\xEA |0 # GREEK SMALL LETTER KAPPA
-<U03BB> \xA5\xEB |0 # GREEK SMALL LETTER LAMDA
-<U03BC> \xA5\xEC |0 # GREEK SMALL LETTER MU
-<U03BD> \xA5\xED |0 # GREEK SMALL LETTER NU
-<U03BE> \xA5\xEE |0 # GREEK SMALL LETTER XI
-<U03BF> \xA5\xEF |0 # GREEK SMALL LETTER OMICRON
-<U03C0> \xA5\xF0 |0 # GREEK SMALL LETTER PI
-<U03C1> \xA5\xF1 |0 # GREEK SMALL LETTER RHO
-<U03C3> \xA5\xF2 |0 # GREEK SMALL LETTER SIGMA
-<U03C4> \xA5\xF3 |0 # GREEK SMALL LETTER TAU
-<U03C5> \xA5\xF4 |0 # GREEK SMALL LETTER UPSILON
-<U03C6> \xA5\xF5 |0 # GREEK SMALL LETTER PHI
-<U03C7> \xA5\xF6 |0 # GREEK SMALL LETTER CHI
-<U03C8> \xA5\xF7 |0 # GREEK SMALL LETTER PSI
-<U03C9> \xA5\xF8 |0 # GREEK SMALL LETTER OMEGA
-<U0401> \xAC\xA7 |0 # CYRILLIC CAPITAL LETTER IO
-<U0410> \xAC\xA1 |0 # CYRILLIC CAPITAL LETTER A
-<U0411> \xAC\xA2 |0 # CYRILLIC CAPITAL LETTER BE
-<U0412> \xAC\xA3 |0 # CYRILLIC CAPITAL LETTER VE
-<U0413> \xAC\xA4 |0 # CYRILLIC CAPITAL LETTER GHE
-<U0414> \xAC\xA5 |0 # CYRILLIC CAPITAL LETTER DE
-<U0415> \xAC\xA6 |0 # CYRILLIC CAPITAL LETTER IE
-<U0416> \xAC\xA8 |0 # CYRILLIC CAPITAL LETTER ZHE
-<U0417> \xAC\xA9 |0 # CYRILLIC CAPITAL LETTER ZE
-<U0418> \xAC\xAA |0 # CYRILLIC CAPITAL LETTER I
-<U0419> \xAC\xAB |0 # CYRILLIC CAPITAL LETTER SHORT I
-<U041A> \xAC\xAC |0 # CYRILLIC CAPITAL LETTER KA
-<U041B> \xAC\xAD |0 # CYRILLIC CAPITAL LETTER EL
-<U041C> \xAC\xAE |0 # CYRILLIC CAPITAL LETTER EM
-<U041D> \xAC\xAF |0 # CYRILLIC CAPITAL LETTER EN
-<U041E> \xAC\xB0 |0 # CYRILLIC CAPITAL LETTER O
-<U041F> \xAC\xB1 |0 # CYRILLIC CAPITAL LETTER PE
-<U0420> \xAC\xB2 |0 # CYRILLIC CAPITAL LETTER ER
-<U0421> \xAC\xB3 |0 # CYRILLIC CAPITAL LETTER ES
-<U0422> \xAC\xB4 |0 # CYRILLIC CAPITAL LETTER TE
-<U0423> \xAC\xB5 |0 # CYRILLIC CAPITAL LETTER U
-<U0424> \xAC\xB6 |0 # CYRILLIC CAPITAL LETTER EF
-<U0425> \xAC\xB7 |0 # CYRILLIC CAPITAL LETTER HA
-<U0426> \xAC\xB8 |0 # CYRILLIC CAPITAL LETTER TSE
-<U0427> \xAC\xB9 |0 # CYRILLIC CAPITAL LETTER CHE
-<U0428> \xAC\xBA |0 # CYRILLIC CAPITAL LETTER SHA
-<U0429> \xAC\xBB |0 # CYRILLIC CAPITAL LETTER SHCHA
-<U042A> \xAC\xBC |0 # CYRILLIC CAPITAL LETTER HARD SIGN
-<U042B> \xAC\xBD |0 # CYRILLIC CAPITAL LETTER YERU
-<U042C> \xAC\xBE |0 # CYRILLIC CAPITAL LETTER SOFT SIGN
-<U042D> \xAC\xBF |0 # CYRILLIC CAPITAL LETTER E
-<U042E> \xAC\xC0 |0 # CYRILLIC CAPITAL LETTER YU
-<U042F> \xAC\xC1 |0 # CYRILLIC CAPITAL LETTER YA
-<U0430> \xAC\xD1 |0 # CYRILLIC SMALL LETTER A
-<U0431> \xAC\xD2 |0 # CYRILLIC SMALL LETTER BE
-<U0432> \xAC\xD3 |0 # CYRILLIC SMALL LETTER VE
-<U0433> \xAC\xD4 |0 # CYRILLIC SMALL LETTER GHE
-<U0434> \xAC\xD5 |0 # CYRILLIC SMALL LETTER DE
-<U0435> \xAC\xD6 |0 # CYRILLIC SMALL LETTER IE
-<U0436> \xAC\xD8 |0 # CYRILLIC SMALL LETTER ZHE
-<U0437> \xAC\xD9 |0 # CYRILLIC SMALL LETTER ZE
-<U0438> \xAC\xDA |0 # CYRILLIC SMALL LETTER I
-<U0439> \xAC\xDB |0 # CYRILLIC SMALL LETTER SHORT I
-<U043A> \xAC\xDC |0 # CYRILLIC SMALL LETTER KA
-<U043B> \xAC\xDD |0 # CYRILLIC SMALL LETTER EL
-<U043C> \xAC\xDE |0 # CYRILLIC SMALL LETTER EM
-<U043D> \xAC\xDF |0 # CYRILLIC SMALL LETTER EN
-<U043E> \xAC\xE0 |0 # CYRILLIC SMALL LETTER O
-<U043F> \xAC\xE1 |0 # CYRILLIC SMALL LETTER PE
-<U0440> \xAC\xE2 |0 # CYRILLIC SMALL LETTER ER
-<U0441> \xAC\xE3 |0 # CYRILLIC SMALL LETTER ES
-<U0442> \xAC\xE4 |0 # CYRILLIC SMALL LETTER TE
-<U0443> \xAC\xE5 |0 # CYRILLIC SMALL LETTER U
-<U0444> \xAC\xE6 |0 # CYRILLIC SMALL LETTER EF
-<U0445> \xAC\xE7 |0 # CYRILLIC SMALL LETTER HA
-<U0446> \xAC\xE8 |0 # CYRILLIC SMALL LETTER TSE
-<U0447> \xAC\xE9 |0 # CYRILLIC SMALL LETTER CHE
-<U0448> \xAC\xEA |0 # CYRILLIC SMALL LETTER SHA
-<U0449> \xAC\xEB |0 # CYRILLIC SMALL LETTER SHCHA
-<U044A> \xAC\xEC |0 # CYRILLIC SMALL LETTER HARD SIGN
-<U044B> \xAC\xED |0 # CYRILLIC SMALL LETTER YERU
-<U044C> \xAC\xEE |0 # CYRILLIC SMALL LETTER SOFT SIGN
-<U044D> \xAC\xEF |0 # CYRILLIC SMALL LETTER E
-<U044E> \xAC\xF0 |0 # CYRILLIC SMALL LETTER YU
-<U044F> \xAC\xF1 |0 # CYRILLIC SMALL LETTER YA
-<U0451> \xAC\xD7 |0 # CYRILLIC SMALL LETTER IO
-<U1100> \xA4\xA1 |1 # HANGUL CHOSEONG KIYEOK
-<U1101> \xA4\xA2 |1 # HANGUL CHOSEONG SSANGKIYEOK
-<U1102> \xA4\xA4 |1 # HANGUL CHOSEONG NIEUN
-<U1103> \xA4\xA7 |1 # HANGUL CHOSEONG TIKEUT
-<U1104> \xA4\xA8 |1 # HANGUL CHOSEONG SSANGTIKEUT
-<U1105> \xA4\xA9 |1 # HANGUL CHOSEONG RIEUL
-<U1106> \xA4\xB1 |1 # HANGUL CHOSEONG MIEUM
-<U1107> \xA4\xB2 |1 # HANGUL CHOSEONG PIEUP
-<U1108> \xA4\xB3 |1 # HANGUL CHOSEONG SSANGPIEUP
-<U1109> \xA4\xB5 |1 # HANGUL CHOSEONG SIOS
-<U110A> \xA4\xB6 |1 # HANGUL CHOSEONG SSANGSIOS
-<U110B> \xA4\xB7 |1 # HANGUL CHOSEONG IEUNG
-<U110C> \xA4\xB8 |1 # HANGUL CHOSEONG CIEUC
-<U110D> \xA4\xB9 |1 # HANGUL CHOSEONG SSANGCIEUC
-<U110E> \xA4\xBA |1 # HANGUL CHOSEONG CHIEUCH
-<U110F> \xA4\xBB |1 # HANGUL CHOSEONG KHIEUKH
-<U1110> \xA4\xBC |1 # HANGUL CHOSEONG THIEUTH
-<U1111> \xA4\xBD |1 # HANGUL CHOSEONG PHIEUPH
-<U1112> \xA4\xBE |1 # HANGUL CHOSEONG HIEUH
-<U1114> \xA4\xD5 |1 # HANGUL CHOSEONG SSANGNIEUN
-<U1115> \xA4\xD6 |1 # HANGUL CHOSEONG NIEUN-TIKEUT
-<U111A> \xA4\xDD |1 # HANGUL CHOSEONG RIEUL-HIEUH
-<U111C> \xA4\xDE |1 # HANGUL CHOSEONG MIEUM-PIEUP
-<U111D> \xA4\xE1 |1 # HANGUL CHOSEONG KAPYEOUNMIEUM
-<U111E> \xA4\xE2 |1 # HANGUL CHOSEONG PIEUP-KIYEOK
-<U1120> \xA4\xE3 |1 # HANGUL CHOSEONG PIEUP-TIKEUT
-<U1121> \xA4\xB4 |1 # HANGUL CHOSEONG PIEUP-SIOS
-<U1122> \xA4\xE4 |1 # HANGUL CHOSEONG PIEUP-SIOS-KIYEOK
-<U1123> \xA4\xE5 |1 # HANGUL CHOSEONG PIEUP-SIOS-TIKEUT
-<U1127> \xA4\xE6 |1 # HANGUL CHOSEONG PIEUP-CIEUC
-<U1129> \xA4\xE7 |1 # HANGUL CHOSEONG PIEUP-THIEUTH
-<U112B> \xA4\xE8 |1 # HANGUL CHOSEONG KAPYEOUNPIEUP
-<U112C> \xA4\xE9 |1 # HANGUL CHOSEONG KAPYEOUNSSANGPIEUP
-<U112D> \xA4\xEA |1 # HANGUL CHOSEONG SIOS-KIYEOK
-<U112E> \xA4\xEB |1 # HANGUL CHOSEONG SIOS-NIEUN
-<U112F> \xA4\xEC |1 # HANGUL CHOSEONG SIOS-TIKEUT
-<U1132> \xA4\xED |1 # HANGUL CHOSEONG SIOS-PIEUP
-<U1136> \xA4\xEE |1 # HANGUL CHOSEONG SIOS-CIEUC
-<U113C> \xA4\xB5 |1 # HANGUL CHOSEONG CHITUEUMSIOS
-<U113D> \xA4\xB6 |1 # HANGUL CHOSEONG CHITUEUMSSANGSIOS
-<U113E> \xA4\xB5 |1 # HANGUL CHOSEONG CEONGCHIEUMSIOS
-<U113F> \xA4\xB6 |1 # HANGUL CHOSEONG CEONGCHIEUMSSANGSIOS
-<U1140> \xA4\xEF |1 # HANGUL CHOSEONG PANSIOS
-<U1145> \xA4\xF2 |1 # HANGUL CHOSEONG IEUNG-SIOS
-<U1146> \xA4\xF3 |1 # HANGUL CHOSEONG IEUNG-PANSIOS
-<U1147> \xA4\xF0 |1 # HANGUL CHOSEONG SSANGIEUNG
-<U114C> \xA4\xB7 |1 # HANGUL CHOSEONG YESIEUNG
-<U114E> \xA4\xB8 |1 # HANGUL CHOSEONG CHITUEUMCIEUC
-<U114F> \xA4\xB9 |1 # HANGUL CHOSEONG CHITUEUMSSANGCIEUC
-<U1150> \xA4\xB8 |1 # HANGUL CHOSEONG CEONGCHIEUMCIEUC
-<U1151> \xA4\xB9 |1 # HANGUL CHOSEONG CEONGCHIEUMSSANGCIEUC
-<U1154> \xA4\xBA |1 # HANGUL CHOSEONG CHITUEUMCHIEUCH
-<U1155> \xA4\xBA |1 # HANGUL CHOSEONG CEONGCHIEUMCHIEUCH
-<U1157> \xA4\xF4 |1 # HANGUL CHOSEONG KAPYEOUNPHIEUPH
-<U1158> \xA4\xF5 |1 # HANGUL CHOSEONG SSANGHIEUH
-<U1159> \xA4\xF6 |1 # HANGUL CHOSEONG YEORINHIEUH
-<U115F> \xA4\xD4 |1 # HANGUL CHOSEONG FILLER
-<U1161> \xA4\xBF |1 # HANGUL JUNGSEONG A
-<U1162> \xA4\xC0 |1 # HANGUL JUNGSEONG AE
-<U1163> \xA4\xC1 |1 # HANGUL JUNGSEONG YA
-<U1164> \xA4\xC2 |1 # HANGUL JUNGSEONG YAE
-<U1165> \xA4\xC3 |1 # HANGUL JUNGSEONG EO
-<U1166> \xA4\xC4 |1 # HANGUL JUNGSEONG E
-<U1167> \xA4\xC5 |1 # HANGUL JUNGSEONG YEO
-<U1168> \xA4\xC6 |1 # HANGUL JUNGSEONG YE
-<U1169> \xA4\xC7 |1 # HANGUL JUNGSEONG O
-<U116A> \xA4\xC8 |1 # HANGUL JUNGSEONG WA
-<U116B> \xA4\xC9 |1 # HANGUL JUNGSEONG WAE
-<U116C> \xA4\xCA |1 # HANGUL JUNGSEONG OE
-<U116D> \xA4\xCB |1 # HANGUL JUNGSEONG YO
-<U116E> \xA4\xCC |1 # HANGUL JUNGSEONG U
-<U116F> \xA4\xCD |1 # HANGUL JUNGSEONG WEO
-<U1170> \xA4\xCE |1 # HANGUL JUNGSEONG WE
-<U1171> \xA4\xCF |1 # HANGUL JUNGSEONG WI
-<U1172> \xA4\xD0 |1 # HANGUL JUNGSEONG YU
-<U1173> \xA4\xD1 |1 # HANGUL JUNGSEONG EU
-<U1174> \xA4\xD2 |1 # HANGUL JUNGSEONG YI
-<U1175> \xA4\xD3 |1 # HANGUL JUNGSEONG I
-<U1184> \xA4\xF7 |1 # HANGUL JUNGSEONG YO-YA
-<U1185> \xA4\xF8 |1 # HANGUL JUNGSEONG YO-YAE
-<U1188> \xA4\xF9 |1 # HANGUL JUNGSEONG YO-I
-<U1191> \xA4\xFA |1 # HANGUL JUNGSEONG YU-YEO
-<U1192> \xA4\xFB |1 # HANGUL JUNGSEONG YU-YE
-<U1194> \xA4\xFC |1 # HANGUL JUNGSEONG YU-I
-<U119E> \xA4\xFD |1 # HANGUL JUNGSEONG ARAEA
-<U11A1> \xA4\xFE |1 # HANGUL JUNGSEONG ARAEA-I
-<U11A8> \xA4\xA1 |1 # HANGUL JONGSEONG KIYEOK
-<U11A9> \xA4\xA2 |1 # HANGUL JONGSEONG SSANGKIYEOK
-<U11AA> \xA4\xA3 |1 # HANGUL JONGSEONG KIYEOK-SIOS
-<U11AB> \xA4\xA4 |1 # HANGUL JONGSEONG NIEUN
-<U11AC> \xA4\xA5 |1 # HANGUL JONGSEONG NIEUN-CIEUC
-<U11AD> \xA4\xA6 |1 # HANGUL JONGSEONG NIEUN-HIEUH
-<U11AE> \xA4\xA7 |1 # HANGUL JONGSEONG TIKEUT
-<U11AF> \xA4\xA9 |1 # HANGUL JONGSEONG RIEUL
-<U11B0> \xA4\xAA |1 # HANGUL JONGSEONG RIEUL-KIYEOK
-<U11B1> \xA4\xAB |1 # HANGUL JONGSEONG RIEUL-MIEUM
-<U11B2> \xA4\xAC |1 # HANGUL JONGSEONG RIEUL-PIEUP
-<U11B3> \xA4\xAD |1 # HANGUL JONGSEONG RIEUL-SIOS
-<U11B4> \xA4\xAE |1 # HANGUL JONGSEONG RIEUL-THIEUTH
-<U11B5> \xA4\xAF |1 # HANGUL JONGSEONG RIEUL-PHIEUPH
-<U11B6> \xA4\xB0 |1 # HANGUL JONGSEONG RIEUL-HIEUH
-<U11B7> \xA4\xB1 |1 # HANGUL JONGSEONG MIEUM
-<U11B8> \xA4\xB2 |1 # HANGUL JONGSEONG PIEUP
-<U11B9> \xA4\xB4 |1 # HANGUL JONGSEONG PIEUP-SIOS
-<U11BA> \xA4\xB5 |1 # HANGUL JONGSEONG SIOS
-<U11BB> \xA4\xB6 |1 # HANGUL JONGSEONG SSANGSIOS
-<U11BC> \xA4\xB7 |1 # HANGUL JONGSEONG IEUNG
-<U11BD> \xA4\xB8 |1 # HANGUL JONGSEONG CIEUC
-<U11BE> \xA4\xBA |1 # HANGUL JONGSEONG CHIEUCH
-<U11BF> \xA4\xBB |1 # HANGUL JONGSEONG KHIEUKH
-<U11C0> \xA4\xBC |1 # HANGUL JONGSEONG THIEUTH
-<U11C1> \xA4\xBD |1 # HANGUL JONGSEONG PHIEUPH
-<U11C2> \xA4\xBE |1 # HANGUL JONGSEONG HIEUH
-<U11C6> \xA4\xD6 |1 # HANGUL JONGSEONG NIEUN-TIKEUT
-<U11C7> \xA4\xD7 |1 # HANGUL JONGSEONG NIEUN-SIOS
-<U11C8> \xA4\xD8 |1 # HANGUL JONGSEONG NIEUN-PANSIOS
-<U11CC> \xA4\xD9 |1 # HANGUL JONGSEONG RIEUL-KIYEOK-SIOS
-<U11CE> \xA4\xDA |1 # HANGUL JONGSEONG RIEUL-TIKEUT
-<U11D3> \xA4\xDB |1 # HANGUL JONGSEONG RIEUL-PIEUP-SIOS
-<U11D7> \xA4\xDC |1 # HANGUL JONGSEONG RIEUL-PANSIOS
-<U11D9> \xA4\xDD |1 # HANGUL JONGSEONG RIEUL-YEORINHIEUH
-<U11DC> \xA4\xDE |1 # HANGUL JONGSEONG MIEUM-PIEUP
-<U11DD> \xA4\xDF |1 # HANGUL JONGSEONG MIEUM-SIOS
-<U11DF> \xA4\xE0 |1 # HANGUL JONGSEONG MIEUM-PANSIOS
-<U11E6> \xA4\xE8 |1 # HANGUL JONGSEONG KAPYEOUNPIEUP
-<U11E7> \xA4\xEA |1 # HANGUL JONGSEONG SIOS-KIYEOK
-<U11E8> \xA4\xEC |1 # HANGUL JONGSEONG SIOS-TIKEUT
-<U11EA> \xA4\xED |1 # HANGUL JONGSEONG SIOS-PIEUP
-<U11EB> \xA4\xEF |1 # HANGUL JONGSEONG PANSIOS
-<U11EE> \xA4\xF0 |1 # HANGUL JONGSEONG SSANGIEUNG
-<U11F0> \xA4\xB7 |1 # HANGUL JONGSEONG YESIEUNG
-<U11F1> \xA4\xF2 |1 # HANGUL JONGSEONG YESIEUNG-SIOS
-<U11F2> \xA4\xF3 |1 # HANGUL JONGSEONG YESIEUNG-PANSIOS
-<U11F4> \xA4\xF4 |1 # HANGUL JONGSEONG KAPYEOUNPHIEUPH
-<U11F9> \xA4\xF6 |1 # HANGUL JONGSEONG YEORINHIEUH
-<U2015> \xA1\xAA |0 # HORIZONTAL BAR
-<U2018> \xA1\xAE |0 # LEFT SINGLE QUOTATION MARK
-<U2019> \xA1\xAF |0 # RIGHT SINGLE QUOTATION MARK
-<U201C> \xA1\xB0 |0 # LEFT DOUBLE QUOTATION MARK
-<U201D> \xA1\xB1 |0 # RIGHT DOUBLE QUOTATION MARK
-<U2020> \xA2\xD3 |0 # DAGGER
-<U2021> \xA2\xD4 |0 # DOUBLE DAGGER
-<U2025> \xA1\xA5 |0 # TWO DOT LEADER
-<U2026> \xA1\xA6 |0 # HORIZONTAL ELLIPSIS
-<U2030> \xA2\xB6 |0 # PER MILLE SIGN
-<U2032> \xA1\xC7 |0 # PRIME
-<U2033> \xA1\xC8 |0 # DOUBLE PRIME
-<U203B> \xA1\xD8 |0 # REFERENCE MARK
-<U2074> \xA9\xF9 |0 # SUPERSCRIPT FOUR
-<U207F> \xA9\xFA |0 # SUPERSCRIPT LATIN SMALL LETTER N
-<U2081> \xA9\xFB |0 # SUBSCRIPT ONE
-<U2082> \xA9\xFC |0 # SUBSCRIPT TWO
-<U2083> \xA9\xFD |0 # SUBSCRIPT THREE
-<U2084> \xA9\xFE |0 # SUBSCRIPT FOUR
-<U20A9> \x5C |1 # WON SIGN
-<U20AC> \xA2\xE6 |0 # EURO SIGN
-<U2103> \xA1\xC9 |0 # DEGREE CELSIUS
-<U2109> \xA2\xB5 |0 # DEGREE FAHRENHEIT
-<U2113> \xA7\xA4 |0 # SCRIPT SMALL L
-<U2116> \xA2\xE0 |0 # NUMERO SIGN
-<U2121> \xA2\xE5 |0 # TELEPHONE SIGN
-<U2122> \xA2\xE2 |0 # TRADE MARK SIGN
-<U2126> \xA7\xD9 |0 # OHM SIGN
-<U212B> \xA1\xCA |0 # ANGSTROM SIGN
-<U2153> \xA8\xF7 |0 # VULGAR FRACTION ONE THIRD
-<U2154> \xA8\xF8 |0 # VULGAR FRACTION TWO THIRDS
-<U215B> \xA8\xFB |0 # VULGAR FRACTION ONE EIGHTH
-<U215C> \xA8\xFC |0 # VULGAR FRACTION THREE EIGHTHS
-<U215D> \xA8\xFD |0 # VULGAR FRACTION FIVE EIGHTHS
-<U215E> \xA8\xFE |0 # VULGAR FRACTION SEVEN EIGHTHS
-<U2160> \xA5\xB0 |0 # ROMAN NUMERAL ONE
-<U2161> \xA5\xB1 |0 # ROMAN NUMERAL TWO
-<U2162> \xA5\xB2 |0 # ROMAN NUMERAL THREE
-<U2163> \xA5\xB3 |0 # ROMAN NUMERAL FOUR
-<U2164> \xA5\xB4 |0 # ROMAN NUMERAL FIVE
-<U2165> \xA5\xB5 |0 # ROMAN NUMERAL SIX
-<U2166> \xA5\xB6 |0 # ROMAN NUMERAL SEVEN
-<U2167> \xA5\xB7 |0 # ROMAN NUMERAL EIGHT
-<U2168> \xA5\xB8 |0 # ROMAN NUMERAL NINE
-<U2169> \xA5\xB9 |0 # ROMAN NUMERAL TEN
-<U2170> \xA5\xA1 |0 # SMALL ROMAN NUMERAL ONE
-<U2171> \xA5\xA2 |0 # SMALL ROMAN NUMERAL TWO
-<U2172> \xA5\xA3 |0 # SMALL ROMAN NUMERAL THREE
-<U2173> \xA5\xA4 |0 # SMALL ROMAN NUMERAL FOUR
-<U2174> \xA5\xA5 |0 # SMALL ROMAN NUMERAL FIVE
-<U2175> \xA5\xA6 |0 # SMALL ROMAN NUMERAL SIX
-<U2176> \xA5\xA7 |0 # SMALL ROMAN NUMERAL SEVEN
-<U2177> \xA5\xA8 |0 # SMALL ROMAN NUMERAL EIGHT
-<U2178> \xA5\xA9 |0 # SMALL ROMAN NUMERAL NINE
-<U2179> \xA5\xAA |0 # SMALL ROMAN NUMERAL TEN
-<U2190> \xA1\xE7 |0 # LEFTWARDS ARROW
-<U2191> \xA1\xE8 |0 # UPWARDS ARROW
-<U2192> \xA1\xE6 |0 # RIGHTWARDS ARROW
-<U2193> \xA1\xE9 |0 # DOWNWARDS ARROW
-<U2194> \xA1\xEA |0 # LEFT RIGHT ARROW
-<U2195> \xA2\xD5 |0 # UP DOWN ARROW
-<U2196> \xA2\xD8 |0 # NORTH WEST ARROW
-<U2197> \xA2\xD6 |0 # NORTH EAST ARROW
-<U2198> \xA2\xD9 |0 # SOUTH EAST ARROW
-<U2199> \xA2\xD7 |0 # SOUTH WEST ARROW
-<U21D2> \xA2\xA1 |0 # RIGHTWARDS DOUBLE ARROW
-<U21D4> \xA2\xA2 |0 # LEFT RIGHT DOUBLE ARROW
-<U2200> \xA2\xA3 |0 # FOR ALL
-<U2202> \xA1\xD3 |0 # PARTIAL DIFFERENTIAL
-<U2203> \xA2\xA4 |0 # THERE EXISTS
-<U2207> \xA1\xD4 |0 # NABLA
-<U2208> \xA1\xF4 |0 # ELEMENT OF
-<U220B> \xA1\xF5 |0 # CONTAINS AS MEMBER
-<U220F> \xA2\xB3 |0 # N-ARY PRODUCT
-<U2211> \xA2\xB2 |0 # N-ARY SUMMATION
-<U221A> \xA1\xEE |0 # SQUARE ROOT
-<U221D> \xA1\xF0 |0 # PROPORTIONAL TO
-<U221E> \xA1\xC4 |0 # INFINITY
-<U2220> \xA1\xD0 |0 # ANGLE
-<U2225> \xA1\xAB |0 # PARALLEL TO
-<U2227> \xA1\xFC |0 # LOGICAL AND
-<U2228> \xA1\xFD |0 # LOGICAL OR
-<U2229> \xA1\xFB |0 # INTERSECTION
-<U222A> \xA1\xFA |0 # UNION
-<U222B> \xA1\xF2 |0 # INTEGRAL
-<U222C> \xA1\xF3 |0 # DOUBLE INTEGRAL
-<U222E> \xA2\xB1 |0 # CONTOUR INTEGRAL
-<U2234> \xA1\xC5 |0 # THEREFORE
-<U2235> \xA1\xF1 |0 # BECAUSE
-<U223C> \xA1\xAD |0 # TILDE OPERATOR
-<U223D> \xA1\xEF |0 # REVERSED TILDE
-<U2252> \xA1\xD6 |0 # APPROXIMATELY EQUAL TO OR THE IMAGE OF
-<U2260> \xA1\xC1 |0 # NOT EQUAL TO
-<U2261> \xA1\xD5 |0 # IDENTICAL TO
-<U2264> \xA1\xC2 |0 # LESS-THAN OR EQUAL TO
-<U2265> \xA1\xC3 |0 # GREATER-THAN OR EQUAL TO
-<U226A> \xA1\xEC |0 # MUCH LESS-THAN
-<U226B> \xA1\xED |0 # MUCH GREATER-THAN
-<U2282> \xA1\xF8 |0 # SUBSET OF
-<U2283> \xA1\xF9 |0 # SUPERSET OF
-<U2286> \xA1\xF6 |0 # SUBSET OF OR EQUAL TO
-<U2287> \xA1\xF7 |0 # SUPERSET OF OR EQUAL TO
-<U2299> \xA2\xC1 |0 # CIRCLED DOT OPERATOR
-<U22A5> \xA1\xD1 |0 # UP TACK
-<U2312> \xA1\xD2 |0 # ARC
-<U2460> \xA8\xE7 |0 # CIRCLED DIGIT ONE
-<U2461> \xA8\xE8 |0 # CIRCLED DIGIT TWO
-<U2462> \xA8\xE9 |0 # CIRCLED DIGIT THREE
-<U2463> \xA8\xEA |0 # CIRCLED DIGIT FOUR
-<U2464> \xA8\xEB |0 # CIRCLED DIGIT FIVE
-<U2465> \xA8\xEC |0 # CIRCLED DIGIT SIX
-<U2466> \xA8\xED |0 # CIRCLED DIGIT SEVEN
-<U2467> \xA8\xEE |0 # CIRCLED DIGIT EIGHT
-<U2468> \xA8\xEF |0 # CIRCLED DIGIT NINE
-<U2469> \xA8\xF0 |0 # CIRCLED NUMBER TEN
-<U246A> \xA8\xF1 |0 # CIRCLED NUMBER ELEVEN
-<U246B> \xA8\xF2 |0 # CIRCLED NUMBER TWELVE
-<U246C> \xA8\xF3 |0 # CIRCLED NUMBER THIRTEEN
-<U246D> \xA8\xF4 |0 # CIRCLED NUMBER FOURTEEN
-<U246E> \xA8\xF5 |0 # CIRCLED NUMBER FIFTEEN
-<U2474> \xA9\xE7 |0 # PARENTHESIZED DIGIT ONE
-<U2475> \xA9\xE8 |0 # PARENTHESIZED DIGIT TWO
-<U2476> \xA9\xE9 |0 # PARENTHESIZED DIGIT THREE
-<U2477> \xA9\xEA |0 # PARENTHESIZED DIGIT FOUR
-<U2478> \xA9\xEB |0 # PARENTHESIZED DIGIT FIVE
-<U2479> \xA9\xEC |0 # PARENTHESIZED DIGIT SIX
-<U247A> \xA9\xED |0 # PARENTHESIZED DIGIT SEVEN
-<U247B> \xA9\xEE |0 # PARENTHESIZED DIGIT EIGHT
-<U247C> \xA9\xEF |0 # PARENTHESIZED DIGIT NINE
-<U247D> \xA9\xF0 |0 # PARENTHESIZED NUMBER TEN
-<U247E> \xA9\xF1 |0 # PARENTHESIZED NUMBER ELEVEN
-<U247F> \xA9\xF2 |0 # PARENTHESIZED NUMBER TWELVE
-<U2480> \xA9\xF3 |0 # PARENTHESIZED NUMBER THIRTEEN
-<U2481> \xA9\xF4 |0 # PARENTHESIZED NUMBER FOURTEEN
-<U2482> \xA9\xF5 |0 # PARENTHESIZED NUMBER FIFTEEN
-<U249C> \xA9\xCD |0 # PARENTHESIZED LATIN SMALL LETTER A
-<U249D> \xA9\xCE |0 # PARENTHESIZED LATIN SMALL LETTER B
-<U249E> \xA9\xCF |0 # PARENTHESIZED LATIN SMALL LETTER C
-<U249F> \xA9\xD0 |0 # PARENTHESIZED LATIN SMALL LETTER D
-<U24A0> \xA9\xD1 |0 # PARENTHESIZED LATIN SMALL LETTER E
-<U24A1> \xA9\xD2 |0 # PARENTHESIZED LATIN SMALL LETTER F
-<U24A2> \xA9\xD3 |0 # PARENTHESIZED LATIN SMALL LETTER G
-<U24A3> \xA9\xD4 |0 # PARENTHESIZED LATIN SMALL LETTER H
-<U24A4> \xA9\xD5 |0 # PARENTHESIZED LATIN SMALL LETTER I
-<U24A5> \xA9\xD6 |0 # PARENTHESIZED LATIN SMALL LETTER J
-<U24A6> \xA9\xD7 |0 # PARENTHESIZED LATIN SMALL LETTER K
-<U24A7> \xA9\xD8 |0 # PARENTHESIZED LATIN SMALL LETTER L
-<U24A8> \xA9\xD9 |0 # PARENTHESIZED LATIN SMALL LETTER M
-<U24A9> \xA9\xDA |0 # PARENTHESIZED LATIN SMALL LETTER N
-<U24AA> \xA9\xDB |0 # PARENTHESIZED LATIN SMALL LETTER O
-<U24AB> \xA9\xDC |0 # PARENTHESIZED LATIN SMALL LETTER P
-<U24AC> \xA9\xDD |0 # PARENTHESIZED LATIN SMALL LETTER Q
-<U24AD> \xA9\xDE |0 # PARENTHESIZED LATIN SMALL LETTER R
-<U24AE> \xA9\xDF |0 # PARENTHESIZED LATIN SMALL LETTER S
-<U24AF> \xA9\xE0 |0 # PARENTHESIZED LATIN SMALL LETTER T
-<U24B0> \xA9\xE1 |0 # PARENTHESIZED LATIN SMALL LETTER U
-<U24B1> \xA9\xE2 |0 # PARENTHESIZED LATIN SMALL LETTER V
-<U24B2> \xA9\xE3 |0 # PARENTHESIZED LATIN SMALL LETTER W
-<U24B3> \xA9\xE4 |0 # PARENTHESIZED LATIN SMALL LETTER X
-<U24B4> \xA9\xE5 |0 # PARENTHESIZED LATIN SMALL LETTER Y
-<U24B5> \xA9\xE6 |0 # PARENTHESIZED LATIN SMALL LETTER Z
-<U24B6> \xA8\xCD |1 # CIRCLED LATIN CAPITAL LETTER A
-<U24B7> \xA8\xCE |1 # CIRCLED LATIN CAPITAL LETTER B
-<U24B8> \xA8\xCF |1 # CIRCLED LATIN CAPITAL LETTER C
-<U24B9> \xA8\xD0 |1 # CIRCLED LATIN CAPITAL LETTER D
-<U24BA> \xA8\xD1 |1 # CIRCLED LATIN CAPITAL LETTER E
-<U24BB> \xA8\xD2 |1 # CIRCLED LATIN CAPITAL LETTER F
-<U24BC> \xA8\xD3 |1 # CIRCLED LATIN CAPITAL LETTER G
-<U24BD> \xA8\xD4 |1 # CIRCLED LATIN CAPITAL LETTER H
-<U24BE> \xA8\xD5 |1 # CIRCLED LATIN CAPITAL LETTER I
-<U24BF> \xA8\xD6 |1 # CIRCLED LATIN CAPITAL LETTER J
-<U24C0> \xA8\xD7 |1 # CIRCLED LATIN CAPITAL LETTER K
-<U24C1> \xA8\xD8 |1 # CIRCLED LATIN CAPITAL LETTER L
-<U24C2> \xA8\xD9 |1 # CIRCLED LATIN CAPITAL LETTER M
-<U24C3> \xA8\xDA |1 # CIRCLED LATIN CAPITAL LETTER N
-<U24C4> \xA8\xDB |1 # CIRCLED LATIN CAPITAL LETTER O
-<U24C5> \xA8\xDC |1 # CIRCLED LATIN CAPITAL LETTER P
-<U24C6> \xA8\xDD |1 # CIRCLED LATIN CAPITAL LETTER Q
-<U24C7> \xA8\xDE |1 # CIRCLED LATIN CAPITAL LETTER R
-<U24C8> \xA8\xDF |1 # CIRCLED LATIN CAPITAL LETTER S
-<U24C9> \xA8\xE0 |1 # CIRCLED LATIN CAPITAL LETTER T
-<U24CA> \xA8\xE1 |1 # CIRCLED LATIN CAPITAL LETTER U
-<U24CB> \xA8\xE2 |1 # CIRCLED LATIN CAPITAL LETTER V
-<U24CC> \xA8\xE3 |1 # CIRCLED LATIN CAPITAL LETTER W
-<U24CD> \xA8\xE4 |1 # CIRCLED LATIN CAPITAL LETTER X
-<U24CE> \xA8\xE5 |1 # CIRCLED LATIN CAPITAL LETTER Y
-<U24CF> \xA8\xE6 |1 # CIRCLED LATIN CAPITAL LETTER Z
-<U24D0> \xA8\xCD |0 # CIRCLED LATIN SMALL LETTER A
-<U24D1> \xA8\xCE |0 # CIRCLED LATIN SMALL LETTER B
-<U24D2> \xA8\xCF |0 # CIRCLED LATIN SMALL LETTER C
-<U24D3> \xA8\xD0 |0 # CIRCLED LATIN SMALL LETTER D
-<U24D4> \xA8\xD1 |0 # CIRCLED LATIN SMALL LETTER E
-<U24D5> \xA8\xD2 |0 # CIRCLED LATIN SMALL LETTER F
-<U24D6> \xA8\xD3 |0 # CIRCLED LATIN SMALL LETTER G
-<U24D7> \xA8\xD4 |0 # CIRCLED LATIN SMALL LETTER H
-<U24D8> \xA8\xD5 |0 # CIRCLED LATIN SMALL LETTER I
-<U24D9> \xA8\xD6 |0 # CIRCLED LATIN SMALL LETTER J
-<U24DA> \xA8\xD7 |0 # CIRCLED LATIN SMALL LETTER K
-<U24DB> \xA8\xD8 |0 # CIRCLED LATIN SMALL LETTER L
-<U24DC> \xA8\xD9 |0 # CIRCLED LATIN SMALL LETTER M
-<U24DD> \xA8\xDA |0 # CIRCLED LATIN SMALL LETTER N
-<U24DE> \xA8\xDB |0 # CIRCLED LATIN SMALL LETTER O
-<U24DF> \xA8\xDC |0 # CIRCLED LATIN SMALL LETTER P
-<U24E0> \xA8\xDD |0 # CIRCLED LATIN SMALL LETTER Q
-<U24E1> \xA8\xDE |0 # CIRCLED LATIN SMALL LETTER R
-<U24E2> \xA8\xDF |0 # CIRCLED LATIN SMALL LETTER S
-<U24E3> \xA8\xE0 |0 # CIRCLED LATIN SMALL LETTER T
-<U24E4> \xA8\xE1 |0 # CIRCLED LATIN SMALL LETTER U
-<U24E5> \xA8\xE2 |0 # CIRCLED LATIN SMALL LETTER V
-<U24E6> \xA8\xE3 |0 # CIRCLED LATIN SMALL LETTER W
-<U24E7> \xA8\xE4 |0 # CIRCLED LATIN SMALL LETTER X
-<U24E8> \xA8\xE5 |0 # CIRCLED LATIN SMALL LETTER Y
-<U24E9> \xA8\xE6 |0 # CIRCLED LATIN SMALL LETTER Z
-<U2500> \xA6\xA1 |0 # BOX DRAWINGS LIGHT HORIZONTAL
-<U2501> \xA6\xAC |0 # BOX DRAWINGS HEAVY HORIZONTAL
-<U2502> \xA6\xA2 |0 # BOX DRAWINGS LIGHT VERTICAL
-<U2503> \xA6\xAD |0 # BOX DRAWINGS HEAVY VERTICAL
-<U250C> \xA6\xA3 |0 # BOX DRAWINGS LIGHT DOWN AND RIGHT
-<U250D> \xA6\xC8 |0 # BOX DRAWINGS DOWN LIGHT AND RIGHT HEAVY
-<U250E> \xA6\xC7 |0 # BOX DRAWINGS DOWN HEAVY AND RIGHT LIGHT
-<U250F> \xA6\xAE |0 # BOX DRAWINGS HEAVY DOWN AND RIGHT
-<U2510> \xA6\xA4 |0 # BOX DRAWINGS LIGHT DOWN AND LEFT
-<U2511> \xA6\xC2 |0 # BOX DRAWINGS DOWN LIGHT AND LEFT HEAVY
-<U2512> \xA6\xC1 |0 # BOX DRAWINGS DOWN HEAVY AND LEFT LIGHT
-<U2513> \xA6\xAF |0 # BOX DRAWINGS HEAVY DOWN AND LEFT
-<U2514> \xA6\xA6 |0 # BOX DRAWINGS LIGHT UP AND RIGHT
-<U2515> \xA6\xC6 |0 # BOX DRAWINGS UP LIGHT AND RIGHT HEAVY
-<U2516> \xA6\xC5 |0 # BOX DRAWINGS UP HEAVY AND RIGHT LIGHT
-<U2517> \xA6\xB1 |0 # BOX DRAWINGS HEAVY UP AND RIGHT
-<U2518> \xA6\xA5 |0 # BOX DRAWINGS LIGHT UP AND LEFT
-<U2519> \xA6\xC4 |0 # BOX DRAWINGS UP LIGHT AND LEFT HEAVY
-<U251A> \xA6\xC3 |0 # BOX DRAWINGS UP HEAVY AND LEFT LIGHT
-<U251B> \xA6\xB0 |0 # BOX DRAWINGS HEAVY UP AND LEFT
-<U251C> \xA6\xA7 |0 # BOX DRAWINGS LIGHT VERTICAL AND RIGHT
-<U251D> \xA6\xBC |0 # BOX DRAWINGS VERTICAL LIGHT AND RIGHT HEAVY
-<U251E> \xA6\xC9 |0 # BOX DRAWINGS UP HEAVY AND RIGHT DOWN LIGHT
-<U251F> \xA6\xCA |0 # BOX DRAWINGS DOWN HEAVY AND RIGHT UP LIGHT
-<U2520> \xA6\xB7 |0 # BOX DRAWINGS VERTICAL HEAVY AND RIGHT LIGHT
-<U2521> \xA6\xCB |0 # BOX DRAWINGS DOWN LIGHT AND RIGHT UP HEAVY
-<U2522> \xA6\xCC |0 # BOX DRAWINGS UP LIGHT AND RIGHT DOWN HEAVY
-<U2523> \xA6\xB2 |0 # BOX DRAWINGS HEAVY VERTICAL AND RIGHT
-<U2524> \xA6\xA9 |0 # BOX DRAWINGS LIGHT VERTICAL AND LEFT
-<U2525> \xA6\xBE |0 # BOX DRAWINGS VERTICAL LIGHT AND LEFT HEAVY
-<U2526> \xA6\xCD |0 # BOX DRAWINGS UP HEAVY AND LEFT DOWN LIGHT
-<U2527> \xA6\xCE |0 # BOX DRAWINGS DOWN HEAVY AND LEFT UP LIGHT
-<U2528> \xA6\xB9 |0 # BOX DRAWINGS VERTICAL HEAVY AND LEFT LIGHT
-<U2529> \xA6\xCF |0 # BOX DRAWINGS DOWN LIGHT AND LEFT UP HEAVY
-<U252A> \xA6\xD0 |0 # BOX DRAWINGS UP LIGHT AND LEFT DOWN HEAVY
-<U252B> \xA6\xB4 |0 # BOX DRAWINGS HEAVY VERTICAL AND LEFT
-<U252C> \xA6\xA8 |0 # BOX DRAWINGS LIGHT DOWN AND HORIZONTAL
-<U252D> \xA6\xD1 |0 # BOX DRAWINGS LEFT HEAVY AND RIGHT DOWN LIGHT
-<U252E> \xA6\xD2 |0 # BOX DRAWINGS RIGHT HEAVY AND LEFT DOWN LIGHT
-<U252F> \xA6\xB8 |0 # BOX DRAWINGS DOWN LIGHT AND HORIZONTAL HEAVY
-<U2530> \xA6\xBD |0 # BOX DRAWINGS DOWN HEAVY AND HORIZONTAL LIGHT
-<U2531> \xA6\xD3 |0 # BOX DRAWINGS RIGHT LIGHT AND LEFT DOWN HEAVY
-<U2532> \xA6\xD4 |0 # BOX DRAWINGS LEFT LIGHT AND RIGHT DOWN HEAVY
-<U2533> \xA6\xB3 |0 # BOX DRAWINGS HEAVY DOWN AND HORIZONTAL
-<U2534> \xA6\xAA |0 # BOX DRAWINGS LIGHT UP AND HORIZONTAL
-<U2535> \xA6\xD5 |0 # BOX DRAWINGS LEFT HEAVY AND RIGHT UP LIGHT
-<U2536> \xA6\xD6 |0 # BOX DRAWINGS RIGHT HEAVY AND LEFT UP LIGHT
-<U2537> \xA6\xBA |0 # BOX DRAWINGS UP LIGHT AND HORIZONTAL HEAVY
-<U2538> \xA6\xBF |0 # BOX DRAWINGS UP HEAVY AND HORIZONTAL LIGHT
-<U2539> \xA6\xD7 |0 # BOX DRAWINGS RIGHT LIGHT AND LEFT UP HEAVY
-<U253A> \xA6\xD8 |0 # BOX DRAWINGS LEFT LIGHT AND RIGHT UP HEAVY
-<U253B> \xA6\xB5 |0 # BOX DRAWINGS HEAVY UP AND HORIZONTAL
-<U253C> \xA6\xAB |0 # BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
-<U253D> \xA6\xD9 |0 # BOX DRAWINGS LEFT HEAVY AND RIGHT VERTICAL LIGHT
-<U253E> \xA6\xDA |0 # BOX DRAWINGS RIGHT HEAVY AND LEFT VERTICAL LIGHT
-<U253F> \xA6\xBB |0 # BOX DRAWINGS VERTICAL LIGHT AND HORIZONTAL HEAVY
-<U2540> \xA6\xDB |0 # BOX DRAWINGS UP HEAVY AND DOWN HORIZONTAL LIGHT
-<U2541> \xA6\xDC |0 # BOX DRAWINGS DOWN HEAVY AND UP HORIZONTAL LIGHT
-<U2542> \xA6\xC0 |0 # BOX DRAWINGS VERTICAL HEAVY AND HORIZONTAL LIGHT
-<U2543> \xA6\xDD |0 # BOX DRAWINGS LEFT UP HEAVY AND RIGHT DOWN LIGHT
-<U2544> \xA6\xDE |0 # BOX DRAWINGS RIGHT UP HEAVY AND LEFT DOWN LIGHT
-<U2545> \xA6\xDF |0 # BOX DRAWINGS LEFT DOWN HEAVY AND RIGHT UP LIGHT
-<U2546> \xA6\xE0 |0 # BOX DRAWINGS RIGHT DOWN HEAVY AND LEFT UP LIGHT
-<U2547> \xA6\xE1 |0 # BOX DRAWINGS DOWN LIGHT AND UP HORIZONTAL HEAVY
-<U2548> \xA6\xE2 |0 # BOX DRAWINGS UP LIGHT AND DOWN HORIZONTAL HEAVY
-<U2549> \xA6\xE3 |0 # BOX DRAWINGS RIGHT LIGHT AND LEFT VERTICAL HEAVY
-<U254A> \xA6\xE4 |0 # BOX DRAWINGS LEFT LIGHT AND RIGHT VERTICAL HEAVY
-<U254B> \xA6\xB6 |0 # BOX DRAWINGS HEAVY VERTICAL AND HORIZONTAL
-<U2592> \xA2\xC6 |0 # MEDIUM SHADE
-<U25A0> \xA1\xE1 |0 # BLACK SQUARE
-<U25A1> \xA1\xE0 |0 # WHITE SQUARE
-<U25A3> \xA2\xC3 |0 # WHITE SQUARE CONTAINING BLACK SMALL SQUARE
-<U25A4> \xA2\xC7 |0 # SQUARE WITH HORIZONTAL FILL
-<U25A5> \xA2\xC8 |0 # SQUARE WITH VERTICAL FILL
-<U25A6> \xA2\xCB |0 # SQUARE WITH ORTHOGONAL CROSSHATCH FILL
-<U25A7> \xA2\xCA |0 # SQUARE WITH UPPER LEFT TO LOWER RIGHT FILL
-<U25A8> \xA2\xC9 |0 # SQUARE WITH UPPER RIGHT TO LOWER LEFT FILL
-<U25A9> \xA2\xCC |0 # SQUARE WITH DIAGONAL CROSSHATCH FILL
-<U25B2> \xA1\xE3 |0 # BLACK UP-POINTING TRIANGLE
-<U25B3> \xA1\xE2 |0 # WHITE UP-POINTING TRIANGLE
-<U25B6> \xA2\xBA |0 # BLACK RIGHT-POINTING TRIANGLE
-<U25B7> \xA2\xB9 |0 # WHITE RIGHT-POINTING TRIANGLE
-<U25BC> \xA1\xE5 |0 # BLACK DOWN-POINTING TRIANGLE
-<U25BD> \xA1\xE4 |0 # WHITE DOWN-POINTING TRIANGLE
-<U25C0> \xA2\xB8 |0 # BLACK LEFT-POINTING TRIANGLE
-<U25C1> \xA2\xB7 |0 # WHITE LEFT-POINTING TRIANGLE
-<U25C6> \xA1\xDF |0 # BLACK DIAMOND
-<U25C7> \xA1\xDE |0 # WHITE DIAMOND
-<U25C8> \xA2\xC2 |0 # WHITE DIAMOND CONTAINING BLACK SMALL DIAMOND
-<U25CB> \xA1\xDB |0 # WHITE CIRCLE
-<U25CE> \xA1\xDD |0 # BULLSEYE
-<U25CF> \xA1\xDC |0 # BLACK CIRCLE
-<U25D0> \xA2\xC4 |0 # CIRCLE WITH LEFT HALF BLACK
-<U25D1> \xA2\xC5 |0 # CIRCLE WITH RIGHT HALF BLACK
-<U2605> \xA1\xDA |0 # BLACK STAR
-<U2606> \xA1\xD9 |0 # WHITE STAR
-<U260E> \xA2\xCF |0 # BLACK TELEPHONE
-<U260F> \xA2\xCE |0 # WHITE TELEPHONE
-<U261C> \xA2\xD0 |0 # WHITE LEFT POINTING INDEX
-<U261E> \xA2\xD1 |0 # WHITE RIGHT POINTING INDEX
-<U2640> \xA1\xCF |0 # FEMALE SIGN
-<U2642> \xA1\xCE |0 # MALE SIGN
-<U2660> \xA2\xBC |0 # BLACK SPADE SUIT
-<U2661> \xA2\xBD |0 # WHITE HEART SUIT
-<U2663> \xA2\xC0 |0 # BLACK CLUB SUIT
-<U2664> \xA2\xBB |0 # WHITE SPADE SUIT
-<U2665> \xA2\xBE |0 # BLACK HEART SUIT
-<U2667> \xA2\xBF |0 # WHITE CLUB SUIT
-<U2668> \xA2\xCD |0 # HOT SPRINGS
-<U2669> \xA2\xDB |0 # QUARTER NOTE
-<U266A> \xA2\xDC |0 # EIGHTH NOTE
-<U266C> \xA2\xDD |0 # BEAMED SIXTEENTH NOTES
-<U266D> \xA2\xDA |0 # MUSIC FLAT SIGN
-<U3000> \xA1\xA1 |0 # IDEOGRAPHIC SPACE
-<U3001> \xA1\xA2 |0 # IDEOGRAPHIC COMMA
-<U3002> \xA1\xA3 |0 # IDEOGRAPHIC FULL STOP
-<U3003> \xA1\xA8 |0 # DITTO MARK
-<U3008> \xA1\xB4 |0 # LEFT ANGLE BRACKET
-<U3009> \xA1\xB5 |0 # RIGHT ANGLE BRACKET
-<U300A> \xA1\xB6 |0 # LEFT DOUBLE ANGLE BRACKET
-<U300B> \xA1\xB7 |0 # RIGHT DOUBLE ANGLE BRACKET
-<U300C> \xA1\xB8 |0 # LEFT CORNER BRACKET
-<U300D> \xA1\xB9 |0 # RIGHT CORNER BRACKET
-<U300E> \xA1\xBA |0 # LEFT WHITE CORNER BRACKET
-<U300F> \xA1\xBB |0 # RIGHT WHITE CORNER BRACKET
-<U3010> \xA1\xBC |0 # LEFT BLACK LENTICULAR BRACKET
-<U3011> \xA1\xBD |0 # RIGHT BLACK LENTICULAR BRACKET
-<U3013> \xA1\xEB |0 # GETA MARK
-<U3014> \xA1\xB2 |0 # LEFT TORTOISE SHELL BRACKET
-<U3015> \xA1\xB3 |0 # RIGHT TORTOISE SHELL BRACKET
-<U3041> \xAA\xA1 |0 # HIRAGANA LETTER SMALL A
-<U3042> \xAA\xA2 |0 # HIRAGANA LETTER A
-<U3043> \xAA\xA3 |0 # HIRAGANA LETTER SMALL I
-<U3044> \xAA\xA4 |0 # HIRAGANA LETTER I
-<U3045> \xAA\xA5 |0 # HIRAGANA LETTER SMALL U
-<U3046> \xAA\xA6 |0 # HIRAGANA LETTER U
-<U3047> \xAA\xA7 |0 # HIRAGANA LETTER SMALL E
-<U3048> \xAA\xA8 |0 # HIRAGANA LETTER E
-<U3049> \xAA\xA9 |0 # HIRAGANA LETTER SMALL O
-<U304A> \xAA\xAA |0 # HIRAGANA LETTER O
-<U304B> \xAA\xAB |0 # HIRAGANA LETTER KA
-<U304C> \xAA\xAC |0 # HIRAGANA LETTER GA
-<U304D> \xAA\xAD |0 # HIRAGANA LETTER KI
-<U304E> \xAA\xAE |0 # HIRAGANA LETTER GI
-<U304F> \xAA\xAF |0 # HIRAGANA LETTER KU
-<U3050> \xAA\xB0 |0 # HIRAGANA LETTER GU
-<U3051> \xAA\xB1 |0 # HIRAGANA LETTER KE
-<U3052> \xAA\xB2 |0 # HIRAGANA LETTER GE
-<U3053> \xAA\xB3 |0 # HIRAGANA LETTER KO
-<U3054> \xAA\xB4 |0 # HIRAGANA LETTER GO
-<U3055> \xAA\xB5 |0 # HIRAGANA LETTER SA
-<U3056> \xAA\xB6 |0 # HIRAGANA LETTER ZA
-<U3057> \xAA\xB7 |0 # HIRAGANA LETTER SI
-<U3058> \xAA\xB8 |0 # HIRAGANA LETTER ZI
-<U3059> \xAA\xB9 |0 # HIRAGANA LETTER SU
-<U305A> \xAA\xBA |0 # HIRAGANA LETTER ZU
-<U305B> \xAA\xBB |0 # HIRAGANA LETTER SE
-<U305C> \xAA\xBC |0 # HIRAGANA LETTER ZE
-<U305D> \xAA\xBD |0 # HIRAGANA LETTER SO
-<U305E> \xAA\xBE |0 # HIRAGANA LETTER ZO
-<U305F> \xAA\xBF |0 # HIRAGANA LETTER TA
-<U3060> \xAA\xC0 |0 # HIRAGANA LETTER DA
-<U3061> \xAA\xC1 |0 # HIRAGANA LETTER TI
-<U3062> \xAA\xC2 |0 # HIRAGANA LETTER DI
-<U3063> \xAA\xC3 |0 # HIRAGANA LETTER SMALL TU
-<U3064> \xAA\xC4 |0 # HIRAGANA LETTER TU
-<U3065> \xAA\xC5 |0 # HIRAGANA LETTER DU
-<U3066> \xAA\xC6 |0 # HIRAGANA LETTER TE
-<U3067> \xAA\xC7 |0 # HIRAGANA LETTER DE
-<U3068> \xAA\xC8 |0 # HIRAGANA LETTER TO
-<U3069> \xAA\xC9 |0 # HIRAGANA LETTER DO
-<U306A> \xAA\xCA |0 # HIRAGANA LETTER NA
-<U306B> \xAA\xCB |0 # HIRAGANA LETTER NI
-<U306C> \xAA\xCC |0 # HIRAGANA LETTER NU
-<U306D> \xAA\xCD |0 # HIRAGANA LETTER NE
-<U306E> \xAA\xCE |0 # HIRAGANA LETTER NO
-<U306F> \xAA\xCF |0 # HIRAGANA LETTER HA
-<U3070> \xAA\xD0 |0 # HIRAGANA LETTER BA
-<U3071> \xAA\xD1 |0 # HIRAGANA LETTER PA
-<U3072> \xAA\xD2 |0 # HIRAGANA LETTER HI
-<U3073> \xAA\xD3 |0 # HIRAGANA LETTER BI
-<U3074> \xAA\xD4 |0 # HIRAGANA LETTER PI
-<U3075> \xAA\xD5 |0 # HIRAGANA LETTER HU
-<U3076> \xAA\xD6 |0 # HIRAGANA LETTER BU
-<U3077> \xAA\xD7 |0 # HIRAGANA LETTER PU
-<U3078> \xAA\xD8 |0 # HIRAGANA LETTER HE
-<U3079> \xAA\xD9 |0 # HIRAGANA LETTER BE
-<U307A> \xAA\xDA |0 # HIRAGANA LETTER PE
-<U307B> \xAA\xDB |0 # HIRAGANA LETTER HO
-<U307C> \xAA\xDC |0 # HIRAGANA LETTER BO
-<U307D> \xAA\xDD |0 # HIRAGANA LETTER PO
-<U307E> \xAA\xDE |0 # HIRAGANA LETTER MA
-<U307F> \xAA\xDF |0 # HIRAGANA LETTER MI
-<U3080> \xAA\xE0 |0 # HIRAGANA LETTER MU
-<U3081> \xAA\xE1 |0 # HIRAGANA LETTER ME
-<U3082> \xAA\xE2 |0 # HIRAGANA LETTER MO
-<U3083> \xAA\xE3 |0 # HIRAGANA LETTER SMALL YA
-<U3084> \xAA\xE4 |0 # HIRAGANA LETTER YA
-<U3085> \xAA\xE5 |0 # HIRAGANA LETTER SMALL YU
-<U3086> \xAA\xE6 |0 # HIRAGANA LETTER YU
-<U3087> \xAA\xE7 |0 # HIRAGANA LETTER SMALL YO
-<U3088> \xAA\xE8 |0 # HIRAGANA LETTER YO
-<U3089> \xAA\xE9 |0 # HIRAGANA LETTER RA
-<U308A> \xAA\xEA |0 # HIRAGANA LETTER RI
-<U308B> \xAA\xEB |0 # HIRAGANA LETTER RU
-<U308C> \xAA\xEC |0 # HIRAGANA LETTER RE
-<U308D> \xAA\xED |0 # HIRAGANA LETTER RO
-<U308E> \xAA\xEE |0 # HIRAGANA LETTER SMALL WA
-<U308F> \xAA\xEF |0 # HIRAGANA LETTER WA
-<U3090> \xAA\xF0 |0 # HIRAGANA LETTER WI
-<U3091> \xAA\xF1 |0 # HIRAGANA LETTER WE
-<U3092> \xAA\xF2 |0 # HIRAGANA LETTER WO
-<U3093> \xAA\xF3 |0 # HIRAGANA LETTER N
-<U30A1> \xAB\xA1 |0 # KATAKANA LETTER SMALL A
-<U30A2> \xAB\xA2 |0 # KATAKANA LETTER A
-<U30A3> \xAB\xA3 |0 # KATAKANA LETTER SMALL I
-<U30A4> \xAB\xA4 |0 # KATAKANA LETTER I
-<U30A5> \xAB\xA5 |0 # KATAKANA LETTER SMALL U
-<U30A6> \xAB\xA6 |0 # KATAKANA LETTER U
-<U30A7> \xAB\xA7 |0 # KATAKANA LETTER SMALL E
-<U30A8> \xAB\xA8 |0 # KATAKANA LETTER E
-<U30A9> \xAB\xA9 |0 # KATAKANA LETTER SMALL O
-<U30AA> \xAB\xAA |0 # KATAKANA LETTER O
-<U30AB> \xAB\xAB |0 # KATAKANA LETTER KA
-<U30AC> \xAB\xAC |0 # KATAKANA LETTER GA
-<U30AD> \xAB\xAD |0 # KATAKANA LETTER KI
-<U30AE> \xAB\xAE |0 # KATAKANA LETTER GI
-<U30AF> \xAB\xAF |0 # KATAKANA LETTER KU
-<U30B0> \xAB\xB0 |0 # KATAKANA LETTER GU
-<U30B1> \xAB\xB1 |0 # KATAKANA LETTER KE
-<U30B2> \xAB\xB2 |0 # KATAKANA LETTER GE
-<U30B3> \xAB\xB3 |0 # KATAKANA LETTER KO
-<U30B4> \xAB\xB4 |0 # KATAKANA LETTER GO
-<U30B5> \xAB\xB5 |0 # KATAKANA LETTER SA
-<U30B6> \xAB\xB6 |0 # KATAKANA LETTER ZA
-<U30B7> \xAB\xB7 |0 # KATAKANA LETTER SI
-<U30B8> \xAB\xB8 |0 # KATAKANA LETTER ZI
-<U30B9> \xAB\xB9 |0 # KATAKANA LETTER SU
-<U30BA> \xAB\xBA |0 # KATAKANA LETTER ZU
-<U30BB> \xAB\xBB |0 # KATAKANA LETTER SE
-<U30BC> \xAB\xBC |0 # KATAKANA LETTER ZE
-<U30BD> \xAB\xBD |0 # KATAKANA LETTER SO
-<U30BE> \xAB\xBE |0 # KATAKANA LETTER ZO
-<U30BF> \xAB\xBF |0 # KATAKANA LETTER TA
-<U30C0> \xAB\xC0 |0 # KATAKANA LETTER DA
-<U30C1> \xAB\xC1 |0 # KATAKANA LETTER TI
-<U30C2> \xAB\xC2 |0 # KATAKANA LETTER DI
-<U30C3> \xAB\xC3 |0 # KATAKANA LETTER SMALL TU
-<U30C4> \xAB\xC4 |0 # KATAKANA LETTER TU
-<U30C5> \xAB\xC5 |0 # KATAKANA LETTER DU
-<U30C6> \xAB\xC6 |0 # KATAKANA LETTER TE
-<U30C7> \xAB\xC7 |0 # KATAKANA LETTER DE
-<U30C8> \xAB\xC8 |0 # KATAKANA LETTER TO
-<U30C9> \xAB\xC9 |0 # KATAKANA LETTER DO
-<U30CA> \xAB\xCA |0 # KATAKANA LETTER NA
-<U30CB> \xAB\xCB |0 # KATAKANA LETTER NI
-<U30CC> \xAB\xCC |0 # KATAKANA LETTER NU
-<U30CD> \xAB\xCD |0 # KATAKANA LETTER NE
-<U30CE> \xAB\xCE |0 # KATAKANA LETTER NO
-<U30CF> \xAB\xCF |0 # KATAKANA LETTER HA
-<U30D0> \xAB\xD0 |0 # KATAKANA LETTER BA
-<U30D1> \xAB\xD1 |0 # KATAKANA LETTER PA
-<U30D2> \xAB\xD2 |0 # KATAKANA LETTER HI
-<U30D3> \xAB\xD3 |0 # KATAKANA LETTER BI
-<U30D4> \xAB\xD4 |0 # KATAKANA LETTER PI
-<U30D5> \xAB\xD5 |0 # KATAKANA LETTER HU
-<U30D6> \xAB\xD6 |0 # KATAKANA LETTER BU
-<U30D7> \xAB\xD7 |0 # KATAKANA LETTER PU
-<U30D8> \xAB\xD8 |0 # KATAKANA LETTER HE
-<U30D9> \xAB\xD9 |0 # KATAKANA LETTER BE
-<U30DA> \xAB\xDA |0 # KATAKANA LETTER PE
-<U30DB> \xAB\xDB |0 # KATAKANA LETTER HO
-<U30DC> \xAB\xDC |0 # KATAKANA LETTER BO
-<U30DD> \xAB\xDD |0 # KATAKANA LETTER PO
-<U30DE> \xAB\xDE |0 # KATAKANA LETTER MA
-<U30DF> \xAB\xDF |0 # KATAKANA LETTER MI
-<U30E0> \xAB\xE0 |0 # KATAKANA LETTER MU
-<U30E1> \xAB\xE1 |0 # KATAKANA LETTER ME
-<U30E2> \xAB\xE2 |0 # KATAKANA LETTER MO
-<U30E3> \xAB\xE3 |0 # KATAKANA LETTER SMALL YA
-<U30E4> \xAB\xE4 |0 # KATAKANA LETTER YA
-<U30E5> \xAB\xE5 |0 # KATAKANA LETTER SMALL YU
-<U30E6> \xAB\xE6 |0 # KATAKANA LETTER YU
-<U30E7> \xAB\xE7 |0 # KATAKANA LETTER SMALL YO
-<U30E8> \xAB\xE8 |0 # KATAKANA LETTER YO
-<U30E9> \xAB\xE9 |0 # KATAKANA LETTER RA
-<U30EA> \xAB\xEA |0 # KATAKANA LETTER RI
-<U30EB> \xAB\xEB |0 # KATAKANA LETTER RU
-<U30EC> \xAB\xEC |0 # KATAKANA LETTER RE
-<U30ED> \xAB\xED |0 # KATAKANA LETTER RO
-<U30EE> \xAB\xEE |0 # KATAKANA LETTER SMALL WA
-<U30EF> \xAB\xEF |0 # KATAKANA LETTER WA
-<U30F0> \xAB\xF0 |0 # KATAKANA LETTER WI
-<U30F1> \xAB\xF1 |0 # KATAKANA LETTER WE
-<U30F2> \xAB\xF2 |0 # KATAKANA LETTER WO
-<U30F3> \xAB\xF3 |0 # KATAKANA LETTER N
-<U30F4> \xAB\xF4 |0 # KATAKANA LETTER VU
-<U30F5> \xAB\xF5 |0 # KATAKANA LETTER SMALL KA
-<U30F6> \xAB\xF6 |0 # KATAKANA LETTER SMALL KE
-<U3131> \xA4\xA1 |0 # HANGUL LETTER KIYEOK
-<U3132> \xA4\xA2 |0 # HANGUL LETTER SSANGKIYEOK
-<U3133> \xA4\xA3 |0 # HANGUL LETTER KIYEOK-SIOS
-<U3134> \xA4\xA4 |0 # HANGUL LETTER NIEUN
-<U3135> \xA4\xA5 |0 # HANGUL LETTER NIEUN-CIEUC
-<U3136> \xA4\xA6 |0 # HANGUL LETTER NIEUN-HIEUH
-<U3137> \xA4\xA7 |0 # HANGUL LETTER TIKEUT
-<U3138> \xA4\xA8 |0 # HANGUL LETTER SSANGTIKEUT
-<U3139> \xA4\xA9 |0 # HANGUL LETTER RIEUL
-<U313A> \xA4\xAA |0 # HANGUL LETTER RIEUL-KIYEOK
-<U313B> \xA4\xAB |0 # HANGUL LETTER RIEUL-MIEUM
-<U313C> \xA4\xAC |0 # HANGUL LETTER RIEUL-PIEUP
-<U313D> \xA4\xAD |0 # HANGUL LETTER RIEUL-SIOS
-<U313E> \xA4\xAE |0 # HANGUL LETTER RIEUL-THIEUTH
-<U313F> \xA4\xAF |0 # HANGUL LETTER RIEUL-PHIEUPH
-<U3140> \xA4\xB0 |0 # HANGUL LETTER RIEUL-HIEUH
-<U3141> \xA4\xB1 |0 # HANGUL LETTER MIEUM
-<U3142> \xA4\xB2 |0 # HANGUL LETTER PIEUP
-<U3143> \xA4\xB3 |0 # HANGUL LETTER SSANGPIEUP
-<U3144> \xA4\xB4 |0 # HANGUL LETTER PIEUP-SIOS
-<U3145> \xA4\xB5 |0 # HANGUL LETTER SIOS
-<U3146> \xA4\xB6 |0 # HANGUL LETTER SSANGSIOS
-<U3147> \xA4\xB7 |0 # HANGUL LETTER IEUNG
-<U3148> \xA4\xB8 |0 # HANGUL LETTER CIEUC
-<U3149> \xA4\xB9 |0 # HANGUL LETTER SSANGCIEUC
-<U314A> \xA4\xBA |0 # HANGUL LETTER CHIEUCH
-<U314B> \xA4\xBB |0 # HANGUL LETTER KHIEUKH
-<U314C> \xA4\xBC |0 # HANGUL LETTER THIEUTH
-<U314D> \xA4\xBD |0 # HANGUL LETTER PHIEUPH
-<U314E> \xA4\xBE |0 # HANGUL LETTER HIEUH
-<U314F> \xA4\xBF |0 # HANGUL LETTER A
-<U3150> \xA4\xC0 |0 # HANGUL LETTER AE
-<U3151> \xA4\xC1 |0 # HANGUL LETTER YA
-<U3152> \xA4\xC2 |0 # HANGUL LETTER YAE
-<U3153> \xA4\xC3 |0 # HANGUL LETTER EO
-<U3154> \xA4\xC4 |0 # HANGUL LETTER E
-<U3155> \xA4\xC5 |0 # HANGUL LETTER YEO
-<U3156> \xA4\xC6 |0 # HANGUL LETTER YE
-<U3157> \xA4\xC7 |0 # HANGUL LETTER O
-<U3158> \xA4\xC8 |0 # HANGUL LETTER WA
-<U3159> \xA4\xC9 |0 # HANGUL LETTER WAE
-<U315A> \xA4\xCA |0 # HANGUL LETTER OE
-<U315B> \xA4\xCB |0 # HANGUL LETTER YO
-<U315C> \xA4\xCC |0 # HANGUL LETTER U
-<U315D> \xA4\xCD |0 # HANGUL LETTER WEO
-<U315E> \xA4\xCE |0 # HANGUL LETTER WE
-<U315F> \xA4\xCF |0 # HANGUL LETTER WI
-<U3160> \xA4\xD0 |0 # HANGUL LETTER YU
-<U3161> \xA4\xD1 |0 # HANGUL LETTER EU
-<U3162> \xA4\xD2 |0 # HANGUL LETTER YI
-<U3163> \xA4\xD3 |0 # HANGUL LETTER I
-<U3164> \xA4\xD4 |0 # HANGUL FILLER
-<U3165> \xA4\xD5 |0 # HANGUL LETTER SSANGNIEUN
-<U3166> \xA4\xD6 |0 # HANGUL LETTER NIEUN-TIKEUT
-<U3167> \xA4\xD7 |0 # HANGUL LETTER NIEUN-SIOS
-<U3168> \xA4\xD8 |0 # HANGUL LETTER NIEUN-PANSIOS
-<U3169> \xA4\xD9 |0 # HANGUL LETTER RIEUL-KIYEOK-SIOS
-<U316A> \xA4\xDA |0 # HANGUL LETTER RIEUL-TIKEUT
-<U316B> \xA4\xDB |0 # HANGUL LETTER RIEUL-PIEUP-SIOS
-<U316C> \xA4\xDC |0 # HANGUL LETTER RIEUL-PANSIOS
-<U316D> \xA4\xDD |0 # HANGUL LETTER RIEUL-YEORINHIEUH
-<U316E> \xA4\xDE |0 # HANGUL LETTER MIEUM-PIEUP
-<U316F> \xA4\xDF |0 # HANGUL LETTER MIEUM-SIOS
-<U3170> \xA4\xE0 |0 # HANGUL LETTER MIEUM-PANSIOS
-<U3171> \xA4\xE1 |0 # HANGUL LETTER KAPYEOUNMIEUM
-<U3172> \xA4\xE2 |0 # HANGUL LETTER PIEUP-KIYEOK
-<U3173> \xA4\xE3 |0 # HANGUL LETTER PIEUP-TIKEUT
-<U3174> \xA4\xE4 |0 # HANGUL LETTER PIEUP-SIOS-KIYEOK
-<U3175> \xA4\xE5 |0 # HANGUL LETTER PIEUP-SIOS-TIKEUT
-<U3176> \xA4\xE6 |0 # HANGUL LETTER PIEUP-CIEUC
-<U3177> \xA4\xE7 |0 # HANGUL LETTER PIEUP-THIEUTH
-<U3178> \xA4\xE8 |0 # HANGUL LETTER KAPYEOUNPIEUP
-<U3179> \xA4\xE9 |0 # HANGUL LETTER KAPYEOUNSSANGPIEUP
-<U317A> \xA4\xEA |0 # HANGUL LETTER SIOS-KIYEOK
-<U317B> \xA4\xEB |0 # HANGUL LETTER SIOS-NIEUN
-<U317C> \xA4\xEC |0 # HANGUL LETTER SIOS-TIKEUT
-<U317D> \xA4\xED |0 # HANGUL LETTER SIOS-PIEUP
-<U317E> \xA4\xEE |0 # HANGUL LETTER SIOS-CIEUC
-<U317F> \xA4\xEF |0 # HANGUL LETTER PANSIOS
-<U3180> \xA4\xF0 |0 # HANGUL LETTER SSANGIEUNG
-<U3181> \xA4\xF1 |0 # HANGUL LETTER YESIEUNG
-<U3182> \xA4\xF2 |0 # HANGUL LETTER YESIEUNG-SIOS
-<U3183> \xA4\xF3 |0 # HANGUL LETTER YESIEUNG-PANSIOS
-<U3184> \xA4\xF4 |0 # HANGUL LETTER KAPYEOUNPHIEUPH
-<U3185> \xA4\xF5 |0 # HANGUL LETTER SSANGHIEUH
-<U3186> \xA4\xF6 |0 # HANGUL LETTER YEORINHIEUH
-<U3187> \xA4\xF7 |0 # HANGUL LETTER YO-YA
-<U3188> \xA4\xF8 |0 # HANGUL LETTER YO-YAE
-<U3189> \xA4\xF9 |0 # HANGUL LETTER YO-I
-<U318A> \xA4\xFA |0 # HANGUL LETTER YU-YEO
-<U318B> \xA4\xFB |0 # HANGUL LETTER YU-YE
-<U318C> \xA4\xFC |0 # HANGUL LETTER YU-I
-<U318D> \xA4\xFD |0 # HANGUL LETTER ARAEA
-<U318E> \xA4\xFE |0 # HANGUL LETTER ARAEAE
-<U3192> \xEC\xE9 |1 # IDEOGRAPHIC ANNOTATION ONE MARK
-<U3193> \xEC\xA3 |1 # IDEOGRAPHIC ANNOTATION TWO MARK
-<U3194> \xDF\xB2 |1 # IDEOGRAPHIC ANNOTATION THREE MARK
-<U3195> \xDE\xCC |1 # IDEOGRAPHIC ANNOTATION FOUR MARK
-<U3196> \xDF\xBE |1 # IDEOGRAPHIC ANNOTATION TOP MARK
-<U3197> \xF1\xE9 |1 # IDEOGRAPHIC ANNOTATION MIDDLE MARK
-<U3198> \xF9\xBB |1 # IDEOGRAPHIC ANNOTATION BOTTOM MARK
-<U3199> \xCB\xA3 |1 # IDEOGRAPHIC ANNOTATION FIRST MARK
-<U319A> \xEB\xE0 |1 # IDEOGRAPHIC ANNOTATION SECOND MARK
-<U319B> \xDC\xB0 |1 # IDEOGRAPHIC ANNOTATION THIRD MARK
-<U319C> \xEF\xCB |1 # IDEOGRAPHIC ANNOTATION FOURTH MARK
-<U319D> \xF4\xB8 |1 # IDEOGRAPHIC ANNOTATION HEAVEN MARK
-<U319E> \xF2\xA2 |1 # IDEOGRAPHIC ANNOTATION EARTH MARK
-<U319F> \xEC\xD1 |1 # IDEOGRAPHIC ANNOTATION MAN MARK
-<U3200> \xA9\xB1 |0 # PARENTHESIZED HANGUL KIYEOK
-<U3201> \xA9\xB2 |0 # PARENTHESIZED HANGUL NIEUN
-<U3202> \xA9\xB3 |0 # PARENTHESIZED HANGUL TIKEUT
-<U3203> \xA9\xB4 |0 # PARENTHESIZED HANGUL RIEUL
-<U3204> \xA9\xB5 |0 # PARENTHESIZED HANGUL MIEUM
-<U3205> \xA9\xB6 |0 # PARENTHESIZED HANGUL PIEUP
-<U3206> \xA9\xB7 |0 # PARENTHESIZED HANGUL SIOS
-<U3207> \xA9\xB8 |0 # PARENTHESIZED HANGUL IEUNG
-<U3208> \xA9\xB9 |0 # PARENTHESIZED HANGUL CIEUC
-<U3209> \xA9\xBA |0 # PARENTHESIZED HANGUL CHIEUCH
-<U320A> \xA9\xBB |0 # PARENTHESIZED HANGUL KHIEUKH
-<U320B> \xA9\xBC |0 # PARENTHESIZED HANGUL THIEUTH
-<U320C> \xA9\xBD |0 # PARENTHESIZED HANGUL PHIEUPH
-<U320D> \xA9\xBE |0 # PARENTHESIZED HANGUL HIEUH
-<U320E> \xA9\xBF |0 # PARENTHESIZED HANGUL KIYEOK A
-<U320F> \xA9\xC0 |0 # PARENTHESIZED HANGUL NIEUN A
-<U3210> \xA9\xC1 |0 # PARENTHESIZED HANGUL TIKEUT A
-<U3211> \xA9\xC2 |0 # PARENTHESIZED HANGUL RIEUL A
-<U3212> \xA9\xC3 |0 # PARENTHESIZED HANGUL MIEUM A
-<U3213> \xA9\xC4 |0 # PARENTHESIZED HANGUL PIEUP A
-<U3214> \xA9\xC5 |0 # PARENTHESIZED HANGUL SIOS A
-<U3215> \xA9\xC6 |0 # PARENTHESIZED HANGUL IEUNG A
-<U3216> \xA9\xC7 |0 # PARENTHESIZED HANGUL CIEUC A
-<U3217> \xA9\xC8 |0 # PARENTHESIZED HANGUL CHIEUCH A
-<U3218> \xA9\xC9 |0 # PARENTHESIZED HANGUL KHIEUKH A
-<U3219> \xA9\xCA |0 # PARENTHESIZED HANGUL THIEUTH A
-<U321A> \xA9\xCB |0 # PARENTHESIZED HANGUL PHIEUPH A
-<U321B> \xA9\xCC |0 # PARENTHESIZED HANGUL HIEUH A
-<U321C> \xA2\xDF |0 # PARENTHESIZED HANGUL CIEUC U
-<U3220> \xEC\xE9 |1 # PARENTHESIZED IDEOGRAPH ONE
-<U3221> \xEC\xA3 |1 # PARENTHESIZED IDEOGRAPH TWO
-<U3222> \xDF\xB2 |1 # PARENTHESIZED IDEOGRAPH THREE
-<U3223> \xDE\xCC |1 # PARENTHESIZED IDEOGRAPH FOUR
-<U3224> \xE7\xE9 |1 # PARENTHESIZED IDEOGRAPH FIVE
-<U3225> \xD7\xBF |1 # PARENTHESIZED IDEOGRAPH SIX
-<U3226> \xF6\xD2 |1 # PARENTHESIZED IDEOGRAPH SEVEN
-<U3227> \xF8\xA2 |1 # PARENTHESIZED IDEOGRAPH EIGHT
-<U3228> \xCE\xFA |1 # PARENTHESIZED IDEOGRAPH NINE
-<U3229> \xE4\xA8 |1 # PARENTHESIZED IDEOGRAPH TEN
-<U322A> \xEA\xC5 |1 # PARENTHESIZED IDEOGRAPH MOON
-<U322B> \xFB\xFD |1 # PARENTHESIZED IDEOGRAPH FIRE
-<U322C> \xE2\xA9 |1 # PARENTHESIZED IDEOGRAPH WATER
-<U322D> \xD9\xCA |1 # PARENTHESIZED IDEOGRAPH WOOD
-<U322E> \xD1\xD1 |1 # PARENTHESIZED IDEOGRAPH METAL
-<U322F> \xF7\xCF |1 # PARENTHESIZED IDEOGRAPH EARTH
-<U3230> \xEC\xED |1 # PARENTHESIZED IDEOGRAPH SUN
-<U3231> \xF1\xBB |1 # PARENTHESIZED IDEOGRAPH STOCK
-<U3232> \xEA\xF3 |1 # PARENTHESIZED IDEOGRAPH HAVE
-<U3233> \xDE\xE4 |1 # PARENTHESIZED IDEOGRAPH SOCIETY
-<U3234> \xD9\xA3 |1 # PARENTHESIZED IDEOGRAPH NAME
-<U3235> \xF7\xE5 |1 # PARENTHESIZED IDEOGRAPH SPECIAL
-<U3236> \xEE\xAF |1 # PARENTHESIZED IDEOGRAPH FINANCIAL
-<U3237> \xF5\xE6 |1 # PARENTHESIZED IDEOGRAPH CONGRATULATION
-<U3238> \xD6\xCC |1 # PARENTHESIZED IDEOGRAPH LABOR
-<U3239> \xD3\xDB |1 # PARENTHESIZED IDEOGRAPH REPRESENT
-<U323A> \xFB\xBC |1 # PARENTHESIZED IDEOGRAPH CALL
-<U323B> \xF9\xCA |1 # PARENTHESIZED IDEOGRAPH STUDY
-<U323C> \xCA\xF8 |1 # PARENTHESIZED IDEOGRAPH SUPERVISE
-<U323D> \xD0\xEA |1 # PARENTHESIZED IDEOGRAPH ENTERPRISE
-<U323E> \xED\xC0 |1 # PARENTHESIZED IDEOGRAPH RESOURCE
-<U323F> \xFA\xF0 |1 # PARENTHESIZED IDEOGRAPH ALLIANCE
-<U3240> \xF0\xAE |1 # PARENTHESIZED IDEOGRAPH FESTIVAL
-<U3241> \xFD\xCC |1 # PARENTHESIZED IDEOGRAPH REST
-<U3242> \xED\xBB |1 # PARENTHESIZED IDEOGRAPH SELF
-<U3243> \xF2\xB8 |1 # PARENTHESIZED IDEOGRAPH REACH
-<U3260> \xA8\xB1 |0 # CIRCLED HANGUL KIYEOK
-<U3261> \xA8\xB2 |0 # CIRCLED HANGUL NIEUN
-<U3262> \xA8\xB3 |0 # CIRCLED HANGUL TIKEUT
-<U3263> \xA8\xB4 |0 # CIRCLED HANGUL RIEUL
-<U3264> \xA8\xB5 |0 # CIRCLED HANGUL MIEUM
-<U3265> \xA8\xB6 |0 # CIRCLED HANGUL PIEUP
-<U3266> \xA8\xB7 |0 # CIRCLED HANGUL SIOS
-<U3267> \xA8\xB8 |0 # CIRCLED HANGUL IEUNG
-<U3268> \xA8\xB9 |0 # CIRCLED HANGUL CIEUC
-<U3269> \xA8\xBA |0 # CIRCLED HANGUL CHIEUCH
-<U326A> \xA8\xBB |0 # CIRCLED HANGUL KHIEUKH
-<U326B> \xA8\xBC |0 # CIRCLED HANGUL THIEUTH
-<U326C> \xA8\xBD |0 # CIRCLED HANGUL PHIEUPH
-<U326D> \xA8\xBE |0 # CIRCLED HANGUL HIEUH
-<U326E> \xA8\xBF |0 # CIRCLED HANGUL KIYEOK A
-<U326F> \xA8\xC0 |0 # CIRCLED HANGUL NIEUN A
-<U3270> \xA8\xC1 |0 # CIRCLED HANGUL TIKEUT A
-<U3271> \xA8\xC2 |0 # CIRCLED HANGUL RIEUL A
-<U3272> \xA8\xC3 |0 # CIRCLED HANGUL MIEUM A
-<U3273> \xA8\xC4 |0 # CIRCLED HANGUL PIEUP A
-<U3274> \xA8\xC5 |0 # CIRCLED HANGUL SIOS A
-<U3275> \xA8\xC6 |0 # CIRCLED HANGUL IEUNG A
-<U3276> \xA8\xC7 |0 # CIRCLED HANGUL CIEUC A
-<U3277> \xA8\xC8 |0 # CIRCLED HANGUL CHIEUCH A
-<U3278> \xA8\xC9 |0 # CIRCLED HANGUL KHIEUKH A
-<U3279> \xA8\xCA |0 # CIRCLED HANGUL THIEUTH A
-<U327A> \xA8\xCB |0 # CIRCLED HANGUL PHIEUPH A
-<U327B> \xA8\xCC |0 # CIRCLED HANGUL HIEUH A
-<U327F> \xA2\xDE |0 # KOREAN STANDARD SYMBOL
-<U3280> \xEC\xE9 |1 # CIRCLED IDEOGRAPH ONE
-<U3281> \xEC\xA3 |1 # CIRCLED IDEOGRAPH TWO
-<U3282> \xDF\xB2 |1 # CIRCLED IDEOGRAPH THREE
-<U3283> \xDE\xCC |1 # CIRCLED IDEOGRAPH FOUR
-<U3284> \xE7\xE9 |1 # CIRCLED IDEOGRAPH FIVE
-<U3285> \xD7\xBF |1 # CIRCLED IDEOGRAPH SIX
-<U3286> \xF6\xD2 |1 # CIRCLED IDEOGRAPH SEVEN
-<U3287> \xF8\xA2 |1 # CIRCLED IDEOGRAPH EIGHT
-<U3288> \xCE\xFA |1 # CIRCLED IDEOGRAPH NINE
-<U3289> \xE4\xA8 |1 # CIRCLED IDEOGRAPH TEN
-<U328A> \xEA\xC5 |1 # CIRCLED IDEOGRAPH MOON
-<U328B> \xFB\xFD |1 # CIRCLED IDEOGRAPH FIRE
-<U328C> \xE2\xA9 |1 # CIRCLED IDEOGRAPH WATER
-<U328D> \xD9\xCA |1 # CIRCLED IDEOGRAPH WOOD
-<U328E> \xD1\xD1 |1 # CIRCLED IDEOGRAPH METAL
-<U328F> \xF7\xCF |1 # CIRCLED IDEOGRAPH EARTH
-<U3290> \xEC\xED |1 # CIRCLED IDEOGRAPH SUN
-<U3291> \xF1\xBB |1 # CIRCLED IDEOGRAPH STOCK
-<U3292> \xEA\xF3 |1 # CIRCLED IDEOGRAPH HAVE
-<U3293> \xDE\xE4 |1 # CIRCLED IDEOGRAPH SOCIETY
-<U3294> \xD9\xA3 |1 # CIRCLED IDEOGRAPH NAME
-<U3295> \xF7\xE5 |1 # CIRCLED IDEOGRAPH SPECIAL
-<U3296> \xEE\xAF |1 # CIRCLED IDEOGRAPH FINANCIAL
-<U3297> \xF5\xE6 |1 # CIRCLED IDEOGRAPH CONGRATULATION
-<U3298> \xD6\xCC |1 # CIRCLED IDEOGRAPH LABOR
-<U3299> \xDD\xFA |1 # CIRCLED IDEOGRAPH SECRET
-<U329A> \xD1\xFB |1 # CIRCLED IDEOGRAPH MALE
-<U329B> \xD2\xB3 |1 # CIRCLED IDEOGRAPH FEMALE
-<U329C> \xEE\xEA |1 # CIRCLED IDEOGRAPH SUITABLE
-<U329D> \xE9\xD0 |1 # CIRCLED IDEOGRAPH EXCELLENT
-<U329E> \xEC\xD4 |1 # CIRCLED IDEOGRAPH PRINT
-<U329F> \xF1\xBC |1 # CIRCLED IDEOGRAPH ATTENTION
-<U32A0> \xFA\xA3 |1 # CIRCLED IDEOGRAPH ITEM
-<U32A1> \xFD\xCC |1 # CIRCLED IDEOGRAPH REST
-<U32A2> \xDE\xD0 |1 # CIRCLED IDEOGRAPH COPY
-<U32A3> \xEF\xE1 |1 # CIRCLED IDEOGRAPH CORRECT
-<U32A4> \xDF\xBE |1 # CIRCLED IDEOGRAPH HIGH
-<U32A5> \xF1\xE9 |1 # CIRCLED IDEOGRAPH CENTRE
-<U32A6> \xF9\xBB |1 # CIRCLED IDEOGRAPH LOW
-<U32A7> \xF1\xA7 |1 # CIRCLED IDEOGRAPH LEFT
-<U32A8> \xE9\xD3 |1 # CIRCLED IDEOGRAPH RIGHT
-<U32A9> \xEC\xA2 |1 # CIRCLED IDEOGRAPH MEDICINE
-<U32AA> \xF0\xF3 |1 # CIRCLED IDEOGRAPH RELIGION
-<U32AB> \xF9\xCA |1 # CIRCLED IDEOGRAPH STUDY
-<U32AC> \xCA\xF8 |1 # CIRCLED IDEOGRAPH SUPERVISE
-<U32AD> \xD0\xEA |1 # CIRCLED IDEOGRAPH ENTERPRISE
-<U32AE> \xED\xC0 |1 # CIRCLED IDEOGRAPH RESOURCE
-<U32AF> \xFA\xF0 |1 # CIRCLED IDEOGRAPH ALLIANCE
-<U32B0> \xE5\xA8 |1 # CIRCLED IDEOGRAPH NIGHT
-<U3380> \xA7\xC9 |0 # SQUARE PA AMPS
-<U3381> \xA7\xCA |0 # SQUARE NA
-<U3382> \xA7\xCB |0 # SQUARE MU A
-<U3383> \xA7\xCC |0 # SQUARE MA
-<U3384> \xA7\xCD |0 # SQUARE KA
-<U3388> \xA7\xBA |0 # SQUARE CAL
-<U3389> \xA7\xBB |0 # SQUARE KCAL
-<U338A> \xA7\xDC |0 # SQUARE PF
-<U338B> \xA7\xDD |0 # SQUARE NF
-<U338C> \xA7\xDE |0 # SQUARE MU F
-<U338D> \xA7\xB6 |0 # SQUARE MU G
-<U338E> \xA7\xB7 |0 # SQUARE MG
-<U338F> \xA7\xB8 |0 # SQUARE KG
-<U3390> \xA7\xD4 |0 # SQUARE HZ
-<U3391> \xA7\xD5 |0 # SQUARE KHZ
-<U3392> \xA7\xD6 |0 # SQUARE MHZ
-<U3393> \xA7\xD7 |0 # SQUARE GHZ
-<U3394> \xA7\xD8 |0 # SQUARE THZ
-<U3395> \xA7\xA1 |0 # SQUARE MU L
-<U3396> \xA7\xA2 |0 # SQUARE ML
-<U3397> \xA7\xA3 |0 # SQUARE DL
-<U3398> \xA7\xA5 |0 # SQUARE KL
-<U3399> \xA7\xAB |0 # SQUARE FM
-<U339A> \xA7\xAC |0 # SQUARE NM
-<U339B> \xA7\xAD |0 # SQUARE MU M
-<U339C> \xA7\xAE |0 # SQUARE MM
-<U339D> \xA7\xAF |0 # SQUARE CM
-<U339E> \xA7\xB0 |0 # SQUARE KM
-<U339F> \xA7\xB1 |0 # SQUARE MM SQUARED
-<U33A0> \xA7\xB2 |0 # SQUARE CM SQUARED
-<U33A1> \xA7\xB3 |0 # SQUARE M SQUARED
-<U33A2> \xA7\xB4 |0 # SQUARE KM SQUARED
-<U33A3> \xA7\xA7 |0 # SQUARE MM CUBED
-<U33A4> \xA7\xA8 |0 # SQUARE CM CUBED
-<U33A5> \xA7\xA9 |0 # SQUARE M CUBED
-<U33A6> \xA7\xAA |0 # SQUARE KM CUBED
-<U33A7> \xA7\xBD |0 # SQUARE M OVER S
-<U33A8> \xA7\xBE |0 # SQUARE M OVER S SQUARED
-<U33A9> \xA7\xE5 |0 # SQUARE PA
-<U33AA> \xA7\xE6 |0 # SQUARE KPA
-<U33AB> \xA7\xE7 |0 # SQUARE MPA
-<U33AC> \xA7\xE8 |0 # SQUARE GPA
-<U33AD> \xA7\xE1 |0 # SQUARE RAD
-<U33AE> \xA7\xE2 |0 # SQUARE RAD OVER S
-<U33AF> \xA7\xE3 |0 # SQUARE RAD OVER S SQUARED
-<U33B0> \xA7\xBF |0 # SQUARE PS
-<U33B1> \xA7\xC0 |0 # SQUARE NS
-<U33B2> \xA7\xC1 |0 # SQUARE MU S
-<U33B3> \xA7\xC2 |0 # SQUARE MS
-<U33B4> \xA7\xC3 |0 # SQUARE PV
-<U33B5> \xA7\xC4 |0 # SQUARE NV
-<U33B6> \xA7\xC5 |0 # SQUARE MU V
-<U33B7> \xA7\xC6 |0 # SQUARE MV
-<U33B8> \xA7\xC7 |0 # SQUARE KV
-<U33B9> \xA7\xC8 |0 # SQUARE MV MEGA
-<U33BA> \xA7\xCE |0 # SQUARE PW
-<U33BB> \xA7\xCF |0 # SQUARE NW
-<U33BC> \xA7\xD0 |0 # SQUARE MU W
-<U33BD> \xA7\xD1 |0 # SQUARE MW
-<U33BE> \xA7\xD2 |0 # SQUARE KW
-<U33BF> \xA7\xD3 |0 # SQUARE MW MEGA
-<U33C0> \xA7\xDA |0 # SQUARE K OHM
-<U33C1> \xA7\xDB |0 # SQUARE M OHM
-<U33C2> \xA2\xE3 |0 # SQUARE AM
-<U33C3> \xA7\xEC |0 # SQUARE BQ
-<U33C4> \xA7\xA6 |0 # SQUARE CC
-<U33C5> \xA7\xE0 |0 # SQUARE CD
-<U33C6> \xA7\xEF |0 # SQUARE C OVER KG
-<U33C7> \xA2\xE1 |0 # SQUARE CO
-<U33C8> \xA7\xBC |0 # SQUARE DB
-<U33C9> \xA7\xED |0 # SQUARE GY
-<U33CA> \xA7\xB5 |0 # SQUARE HA
-<U33CF> \xA7\xB9 |0 # SQUARE KT
-<U33D0> \xA7\xEA |0 # SQUARE LM
-<U33D3> \xA7\xEB |0 # SQUARE LX
-<U33D6> \xA7\xDF |0 # SQUARE MOL
-<U33D8> \xA2\xE4 |0 # SQUARE PM
-<U33DB> \xA7\xE4 |0 # SQUARE SR
-<U33DC> \xA7\xEE |0 # SQUARE SV
-<U33DD> \xA7\xE9 |0 # SQUARE WB
-<U4E00> \xEC\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U4E01> \xEF\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U4E03> \xF6\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U4E07> \xD8\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U4E08> \xED\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U4E09> \xDF\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U4E0A> \xDF\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U4E0B> \xF9\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U4E0D> \xDC\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U4E11> \xF5\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U4E14> \xF3\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U4E15> \xDD\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U4E16> \xE1\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U4E18> \xCE\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U4E19> \xDC\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U4E1E> \xE3\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U4E2D> \xF1\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U4E32> \xCD\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U4E38> \xFC\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U4E39> \xD3\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U4E3B> \xF1\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U4E42> \xE7\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U4E43> \xD2\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U4E45> \xCE\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U4E4B> \xF1\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U4E4D> \xDE\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U4E4E> \xFB\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U4E4F> \xF9\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U4E56> \xCE\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U4E58> \xE3\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U4E59> \xEB\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U4E5D> \xCE\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U4E5E> \xCB\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U4E5F> \xE5\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U4E6B> \xCA\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U4E6D> \xD4\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U4E73> \xEA\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U4E76> \xDC\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U4E77> \xDF\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U4E7E> \xCB\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U4E82> \xD5\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U4E86> \xD6\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U4E88> \xE5\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U4E8B> \xDE\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U4E8C> \xEC\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U4E8E> \xE9\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U4E90> \xEA\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U4E91> \xE9\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U4E92> \xFB\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U4E94> \xE7\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U4E95> \xEF\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U4E98> \xD0\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U4E9B> \xDE\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U4E9E> \xE4\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U4EA1> \xD8\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U4EA2> \xF9\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U4EA4> \xCE\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U4EA5> \xFA\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U4EA6> \xE6\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U4EA8> \xFA\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U4EAB> \xFA\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U4EAC> \xCC\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U4EAD> \xEF\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U4EAE> \xD5\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U4EB6> \xD3\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U4EBA> \xEC\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U4EC0> \xE4\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U4EC1> \xEC\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U4EC4> \xF6\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U4EC7> \xCE\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U4ECA> \xD0\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U4ECB> \xCB\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U4ECD> \xED\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U4ED4> \xED\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U4ED5> \xDE\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U4ED6> \xF6\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U4ED7> \xED\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U4ED8> \xDC\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U4ED9> \xE0\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U4EDD> \xD4\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U4EDF> \xF4\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U4EE3> \xD3\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U4EE4> \xD6\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U4EE5> \xEC\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U4EF0> \xE4\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U4EF2> \xF1\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U4EF6> \xCB\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U4EF7> \xCB\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U4EFB> \xEC\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U4F01> \xD0\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U4F09> \xF9\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U4F0A> \xEC\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U4F0B> \xD0\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U4F0D> \xE7\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U4F0E> \xD0\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U4F0F> \xDC\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U4F10> \xDB\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U4F11> \xFD\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U4F2F> \xDB\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U4F34> \xDA\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U4F36> \xD6\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U4F38> \xE3\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U4F3A> \xDE\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U4F3C> \xDE\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U4F3D> \xCA\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U4F43> \xEE\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U4F46> \xD3\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U4F47> \xEE\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U4F48> \xF8\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U4F4D> \xEA\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U4F4E> \xEE\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U4F4F> \xF1\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U4F50> \xF1\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U4F51> \xE9\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U4F55> \xF9\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U4F59> \xE5\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U4F5A> \xEC\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U4F5B> \xDD\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U4F5C> \xED\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U4F69> \xF8\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U4F6F> \xE5\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U4F70> \xDB\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U4F73> \xCA\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U4F76> \xD1\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U4F7A> \xEE\xED |0 # CJK UNIFIED IDEOGRAPH
-<U4F7E> \xEC\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U4F7F> \xDE\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U4F81> \xE3\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U4F83> \xCA\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U4F84> \xF2\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U4F86> \xD5\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U4F88> \xF6\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U4F8A> \xCE\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U4F8B> \xD6\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U4F8D> \xE3\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U4F8F> \xF1\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U4F91> \xEA\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U4F96> \xD7\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U4F98> \xF3\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U4F9B> \xCD\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U4F9D> \xEB\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U4FAE> \xD9\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U4FAF> \xFD\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U4FB5> \xF6\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U4FB6> \xD5\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U4FBF> \xF8\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U4FC2> \xCC\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U4FC3> \xF5\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U4FC4> \xE4\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U4FC9> \xE7\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U4FCA> \xF1\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U4FCE> \xF0\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U4FD1> \xE9\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U4FD3> \xCC\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U4FD4> \xFA\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U4FD7> \xE1\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U4FDA> \xD7\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U4FDD> \xDC\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U4FDF> \xDE\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U4FE0> \xFA\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U4FE1> \xE3\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U4FEE> \xE1\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U4FEF> \xDC\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U4FF1> \xCE\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U4FF3> \xDB\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U4FF5> \xF8\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U4FF8> \xDC\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U4FFA> \xE5\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U5002> \xDC\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U5006> \xD5\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U5009> \xF3\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U500B> \xCB\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U500D> \xDB\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U5011> \xD9\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U5012> \xD3\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U5016> \xFA\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U5019> \xFD\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U501A> \xEB\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U501C> \xF4\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U501E> \xCC\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U501F> \xF3\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U5021> \xF3\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U5023> \xDB\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U5024> \xF6\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U5026> \xCF\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U5027> \xF0\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U5028> \xCB\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U502A> \xE7\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U502B> \xD7\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U502C> \xF6\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U502D> \xE8\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U503B> \xE5\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U5043> \xE5\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U5047> \xCA\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U5048> \xCC\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U5049> \xEA\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U504F> \xF8\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U5055> \xFA\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U505A> \xF1\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U505C> \xEF\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U5065> \xCB\xED |0 # CJK UNIFIED IDEOGRAPH
-<U5074> \xF6\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U5075> \xEF\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U5076> \xE9\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U5078> \xF7\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U5080> \xCE\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U5085> \xDC\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U508D> \xDB\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U5091> \xCB\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U5098> \xDF\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U5099> \xDD\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U50AC> \xF5\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U50AD> \xE9\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U50B2> \xE7\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U50B3> \xEE\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U50B5> \xF3\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U50B7> \xDF\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U50BE> \xCC\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U50C5> \xD0\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U50C9> \xF4\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U50CA> \xE0\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U50CF> \xDF\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U50D1> \xCE\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U50D5> \xDC\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U50D6> \xFD\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U50DA> \xD6\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U50DE> \xEA\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U50E5> \xE8\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U50E7> \xE3\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U50ED> \xF3\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U50F9> \xCA\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U50FB> \xDB\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U50FF> \xDE\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U5100> \xEB\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U5101> \xF1\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U5104> \xE5\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U5106> \xCC\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U5109> \xCB\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U5112> \xEA\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U511F> \xDF\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U5121> \xD6\xED |0 # CJK UNIFIED IDEOGRAPH
-<U512A> \xE9\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U5132> \xEE\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U5137> \xD5\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U513A> \xD1\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U513C> \xE5\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U5140> \xE8\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U5141> \xEB\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U5143> \xEA\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U5144> \xFA\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U5145> \xF5\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U5146> \xF0\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U5147> \xFD\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U5148> \xE0\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U5149> \xCE\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U514B> \xD0\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U514C> \xF7\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U514D> \xD8\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U514E> \xF7\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U5152> \xE4\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U515C> \xD4\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U5162> \xD0\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U5165> \xEC\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U5167> \xD2\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U5168> \xEE\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U5169> \xD5\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U516A> \xEA\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U516B> \xF8\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U516C> \xCD\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U516D> \xD7\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U516E> \xFB\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U5171> \xCD\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U5175> \xDC\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U5176> \xD0\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U5177> \xCE\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U5178> \xEE\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U517C> \xCC\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U5180> \xD0\xED |0 # CJK UNIFIED IDEOGRAPH
-<U5186> \xE5\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U518A> \xF3\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U518D> \xEE\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U5192> \xD9\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U5195> \xD8\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U5197> \xE9\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U51A0> \xCE\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U51A5> \xD9\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U51AA> \xD8\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U51AC> \xD4\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U51B6> \xE5\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U51B7> \xD5\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U51BD> \xD6\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U51C4> \xF4\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U51C6> \xF1\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U51C9> \xD5\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U51CB> \xF0\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U51CC> \xD7\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U51CD> \xD4\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U51DC> \xD7\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U51DD> \xEB\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U51DE> \xFD\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U51E1> \xDB\xED |0 # CJK UNIFIED IDEOGRAPH
-<U51F0> \xFC\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U51F1> \xCB\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U51F6> \xFD\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U51F8> \xF4\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U51F9> \xE8\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U51FA> \xF5\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U51FD> \xF9\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U5200> \xD3\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U5203> \xEC\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U5206> \xDD\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U5207> \xEF\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U5208> \xE7\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U520A> \xCA\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U520E> \xD9\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U5211> \xFA\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U5217> \xD6\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U521D> \xF4\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U5224> \xF7\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U5225> \xDC\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U5229> \xD7\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U522A> \xDF\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U522E> \xCE\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U5230> \xD3\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U5236> \xF0\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U5237> \xE1\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U5238> \xCF\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U5239> \xF3\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U523A> \xED\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U523B> \xCA\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U5243> \xF4\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U5247> \xF6\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U524A> \xDE\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U524B> \xD0\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U524C> \xD5\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U524D> \xEE\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U5254> \xF4\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U5256> \xDC\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U525B> \xCB\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U525D> \xDA\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U5261> \xE0\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U5269> \xED\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U526A> \xEE\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U526F> \xDC\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U5272> \xF9\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U5275> \xF3\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U527D> \xF8\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U527F> \xF4\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U5283> \xFC\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U5287> \xD0\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U5288> \xDB\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U5289> \xD7\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U528D> \xCB\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U5291> \xF0\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U5292> \xCB\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U529B> \xD5\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U529F> \xCD\xED |0 # CJK UNIFIED IDEOGRAPH
-<U52A0> \xCA\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U52A3> \xD6\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U52A4> \xD0\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U52A9> \xF0\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U52AA> \xD2\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U52AB> \xCC\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U52BE> \xFA\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U52C1> \xCC\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U52C3> \xDA\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U52C5> \xF6\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U52C7> \xE9\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U52C9> \xD8\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U52CD> \xCC\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U52D2> \xD7\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U52D5> \xD4\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U52D6> \xE9\xED |0 # CJK UNIFIED IDEOGRAPH
-<U52D8> \xCA\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U52D9> \xD9\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U52DB> \xFD\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U52DD> \xE3\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U52DE> \xD6\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U52DF> \xD9\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U52E2> \xE1\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U52E3> \xEE\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U52E4> \xD0\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U52F3> \xFD\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U52F5> \xD5\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U52F8> \xCF\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U52FA> \xED\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U52FB> \xD0\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U52FE> \xCE\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U52FF> \xDA\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U5305> \xF8\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U5308> \xFD\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U530D> \xF8\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U530F> \xF8\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U5310> \xDC\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U5315> \xDD\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U5316> \xFB\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U5317> \xDD\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U5319> \xE3\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U5320> \xED\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U5321> \xCE\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U5323> \xCB\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U532A> \xDD\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U532F> \xFC\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U5339> \xF9\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U533F> \xD2\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U5340> \xCF\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U5341> \xE4\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U5343> \xF4\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U5344> \xEC\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U5347> \xE3\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U5348> \xE7\xED |0 # CJK UNIFIED IDEOGRAPH
-<U5349> \xFD\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U534A> \xDA\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U534D> \xD8\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U5351> \xDD\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U5352> \xF0\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U5353> \xF6\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U5354> \xFA\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U5357> \xD1\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U535A> \xDA\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U535C> \xDC\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U535E> \xDC\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U5360> \xEF\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U5366> \xCE\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U5368> \xE0\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U536F> \xD9\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U5370> \xEC\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U5371> \xEA\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U5374> \xCA\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U5375> \xD5\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U5377> \xCF\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U537D> \xF1\xED |0 # CJK UNIFIED IDEOGRAPH
-<U537F> \xCC\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U5384> \xE4\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U5393> \xE4\xED |0 # CJK UNIFIED IDEOGRAPH
-<U5398> \xD7\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U539A> \xFD\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U539F> \xEA\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U53A0> \xF6\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U53A5> \xCF\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U53A6> \xF9\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U53AD> \xE6\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U53BB> \xCB\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U53C3> \xF3\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U53C8> \xE9\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U53C9> \xF3\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U53CA> \xD0\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U53CB> \xE9\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U53CD> \xDA\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U53D4> \xE2\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U53D6> \xF6\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U53D7> \xE1\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U53DB> \xDA\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U53E1> \xE7\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U53E2> \xF5\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U53E3> \xCF\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U53E4> \xCD\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U53E5> \xCF\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U53E9> \xCD\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U53EA> \xF1\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U53EB> \xD0\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U53EC> \xE1\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U53ED> \xF8\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U53EF> \xCA\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U53F0> \xF7\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U53F1> \xF2\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U53F2> \xDE\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U53F3> \xE9\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U53F8> \xDE\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U5403> \xFD\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U5404> \xCA\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U5408> \xF9\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U5409> \xD1\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U540A> \xEE\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U540C> \xD4\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U540D> \xD9\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U540E> \xFD\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U540F> \xD7\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U5410> \xF7\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U5411> \xFA\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U541B> \xCF\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U541D> \xD7\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U541F> \xEB\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U5420> \xF8\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U5426> \xDC\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U5429> \xDD\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U542B> \xF9\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U5433> \xE7\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U5438> \xFD\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U5439> \xF6\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U543B> \xD9\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U543C> \xFD\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U543E> \xE7\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U5442> \xD5\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U5448> \xEF\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U544A> \xCD\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U5451> \xF7\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U5468> \xF1\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U546A> \xF1\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U5471> \xCD\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U5473> \xDA\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U5475> \xCA\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U547B> \xE3\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U547C> \xFB\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U547D> \xD9\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U5480> \xEE\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U5486> \xF8\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U548C> \xFB\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U548E> \xCF\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U5490> \xDC\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U54A4> \xF6\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U54A8> \xED\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U54AB> \xF2\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U54AC> \xCE\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U54B3> \xFA\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U54B8> \xF9\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U54BD> \xEC\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U54C0> \xE4\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U54C1> \xF9\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U54C4> \xFB\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U54C8> \xF9\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U54C9> \xEE\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U54E1> \xEA\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U54E5> \xCA\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U54E8> \xF4\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U54ED> \xCD\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U54EE> \xFC\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U54F2> \xF4\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U54FA> \xF8\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U5504> \xF8\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U5506> \xDE\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U5507> \xF2\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U550E> \xD7\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U5510> \xD3\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U551C> \xD8\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U552F> \xEA\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U5531> \xF3\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U5535> \xE4\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U553E> \xF6\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U5544> \xF6\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U5546> \xDF\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U554F> \xD9\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U5553> \xCC\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U5556> \xD3\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U555E> \xE4\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U5563> \xF9\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U557C> \xF0\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U5580> \xCB\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U5584> \xE0\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U5586> \xF4\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U5587> \xD4\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U5589> \xFD\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U558A> \xF9\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U5598> \xF4\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U5599> \xFD\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U559A> \xFC\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U559C> \xFD\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U559D> \xCA\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U55A7> \xFD\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U55A9> \xEA\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U55AA> \xDF\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U55AB> \xD1\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U55AC> \xCE\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U55AE> \xD3\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U55C5> \xFD\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U55C7> \xDF\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U55D4> \xF2\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U55DA> \xE7\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U55DC> \xD0\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U55DF> \xF3\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U55E3> \xDE\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U55E4> \xF6\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U55FD> \xE1\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U55FE> \xF1\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U5606> \xF7\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U5609> \xCA\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U5614> \xCF\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U5617> \xDF\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U562F> \xE1\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U5632> \xF0\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U5634> \xF6\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U5636> \xE3\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U5653> \xFA\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U5668> \xD0\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U566B> \xFD\xED |0 # CJK UNIFIED IDEOGRAPH
-<U5674> \xDD\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U5686> \xFC\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U56A5> \xE6\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U56AC> \xDE\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U56AE> \xFA\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U56B4> \xE5\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U56BC> \xED\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U56CA> \xD2\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U56CD> \xFD\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U56D1> \xF5\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U56DA> \xE1\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U56DB> \xDE\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U56DE> \xFC\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U56E0> \xEC\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U56F0> \xCD\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U56F9> \xD6\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U56FA> \xCD\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U5703> \xF8\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U5704> \xE5\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U5708> \xCF\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U570B> \xCF\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U570D> \xEA\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U5712> \xEA\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U5713> \xEA\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U5716> \xD3\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U5718> \xD3\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U571F> \xF7\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U5728> \xEE\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U572D> \xD0\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U5730> \xF2\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U573B> \xD0\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U5740> \xF2\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U5742> \xF7\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U5747> \xD0\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U574A> \xDB\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U574D> \xD3\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U574E> \xCA\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U5750> \xF1\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U5751> \xCB\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U5761> \xF7\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U5764> \xCD\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U5766> \xF7\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U576A> \xF8\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U576E> \xD3\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U5770> \xCC\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U5775> \xCF\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U577C> \xF6\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U5782> \xE1\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U5788> \xD3\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U578B> \xFA\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U5793> \xFA\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U57A0> \xEB\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U57A2> \xCF\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U57A3> \xEA\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U57C3> \xE4\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U57C7> \xE9\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U57C8> \xF1\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U57CB> \xD8\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U57CE> \xE0\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U57DF> \xE6\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U57E0> \xDC\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U57F0> \xF3\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U57F4> \xE3\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U57F7> \xF2\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U57F9> \xDB\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U57FA> \xD0\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U57FC> \xD0\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U5800> \xCF\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U5802> \xD3\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U5805> \xCC\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U5806> \xF7\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U5808> \xCB\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U5809> \xEB\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U580A> \xE4\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U581E> \xF4\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U5821> \xDC\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U5824> \xF0\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U5827> \xE6\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U582A> \xCA\xED |0 # CJK UNIFIED IDEOGRAPH
-<U582F> \xE8\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U5830> \xE5\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U5831> \xDC\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U5834> \xED\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U5835> \xD3\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U583A> \xCC\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U584A> \xCE\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U584B> \xE7\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U584F> \xCB\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U5851> \xE1\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U5854> \xF7\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U5857> \xD3\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U5858> \xD3\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U585A> \xF5\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U585E> \xDF\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U5861> \xEE\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U5862> \xE7\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U5864> \xFD\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U5875> \xF2\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U5879> \xF3\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U587C> \xEE\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U587E> \xE2\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U5883> \xCC\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U5885> \xDF\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U5889> \xE9\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U5893> \xD9\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U589C> \xF5\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U589E> \xF1\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U589F> \xFA\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U58A8> \xD9\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U58A9> \xD4\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U58AE> \xF6\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U58B3> \xDD\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U58BA> \xE7\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U58BB> \xED\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U58BE> \xCA\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U58C1> \xDB\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U58C5> \xE8\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U58C7> \xD3\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U58CE> \xFD\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U58D1> \xF9\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U58D3> \xE4\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U58D5> \xFB\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U58D8> \xD7\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U58D9> \xCE\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U58DE> \xCE\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U58DF> \xD6\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U58E4> \xE5\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U58EB> \xDE\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U58EC> \xEC\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U58EF> \xED\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U58F9> \xEC\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U58FA> \xFB\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U58FB> \xDF\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U58FD> \xE1\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U590F> \xF9\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U5914> \xD0\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U5915> \xE0\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U5916> \xE8\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U5919> \xE2\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U591A> \xD2\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U591C> \xE5\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U5922> \xD9\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U5927> \xD3\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U5929> \xF4\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U592A> \xF7\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U592B> \xDC\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U592D> \xE8\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U592E> \xE4\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U5931> \xE3\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U5937> \xEC\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U593E> \xFA\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U5944> \xE5\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U5947> \xD0\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U5948> \xD2\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U5949> \xDC\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U594E> \xD0\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U594F> \xF1\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U5950> \xFC\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U5951> \xCC\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U5954> \xDD\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U5955> \xFA\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U5957> \xF7\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U595A> \xFA\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U5960> \xEE\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U5962> \xDE\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U5967> \xE7\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U596A> \xF7\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U596B> \xEB\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U596C> \xED\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U596D> \xE0\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U596E> \xDD\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U5973> \xD2\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U5974> \xD2\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U5978> \xCA\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U597D> \xFB\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U5982> \xE5\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U5983> \xDD\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U5984> \xD8\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U598A> \xEC\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U5993> \xD0\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U5996> \xE8\xED |0 # CJK UNIFIED IDEOGRAPH
-<U5997> \xD0\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U5999> \xD9\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U59A5> \xF6\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U59A8> \xDB\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U59AC> \xF7\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U59B9> \xD8\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U59BB> \xF4\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U59BE> \xF4\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U59C3> \xEF\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U59C6> \xD9\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U59C9> \xED\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U59CB> \xE3\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U59D0> \xEE\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U59D1> \xCD\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U59D3> \xE0\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U59D4> \xEA\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U59D9> \xEC\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U59DA> \xE8\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U59DC> \xCB\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U59DD> \xF1\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U59E6> \xCA\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U59E8> \xEC\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U59EA> \xF2\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U59EC> \xFD\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U59EE> \xF9\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U59F8> \xE6\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U59FB> \xEC\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U59FF> \xED\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U5A01> \xEA\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U5A03> \xE8\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U5A11> \xDE\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U5A18> \xD2\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U5A1B> \xE7\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U5A1C> \xD1\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U5A1F> \xE6\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U5A20> \xE3\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U5A25> \xE4\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U5A29> \xD8\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U5A36> \xF6\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U5A3C> \xF3\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U5A41> \xD7\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U5A46> \xF7\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U5A49> \xE8\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U5A5A> \xFB\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U5A62> \xDD\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U5A66> \xDC\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U5A92> \xD8\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U5A9A> \xDA\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U5A9B> \xEA\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U5AA4> \xE3\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U5AC1> \xCA\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U5AC2> \xE1\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U5AC4> \xEA\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U5AC9> \xF2\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U5ACC> \xFA\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U5AE1> \xEE\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U5AE6> \xF9\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U5AE9> \xD2\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U5B05> \xFB\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U5B09> \xFD\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U5B0B> \xE0\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U5B0C> \xCE\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U5B16> \xF8\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U5B2A> \xDE\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U5B40> \xDF\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U5B43> \xE5\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U5B50> \xED\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U5B51> \xFA\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U5B54> \xCD\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U5B55> \xED\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U5B57> \xED\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U5B58> \xF0\xED |0 # CJK UNIFIED IDEOGRAPH
-<U5B5A> \xDD\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U5B5C> \xED\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U5B5D> \xFC\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U5B5F> \xD8\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U5B63> \xCC\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U5B64> \xCD\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U5B69> \xFA\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U5B6B> \xE1\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U5B70> \xE2\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U5B71> \xED\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U5B75> \xDD\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U5B78> \xF9\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U5B7A> \xEA\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U5B7C> \xE5\xED |0 # CJK UNIFIED IDEOGRAPH
-<U5B85> \xD3\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U5B87> \xE9\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U5B88> \xE1\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U5B89> \xE4\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U5B8B> \xE1\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U5B8C> \xE8\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U5B8F> \xCE\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U5B93> \xDC\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U5B95> \xF7\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U5B96> \xFC\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U5B97> \xF0\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U5B98> \xCE\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U5B99> \xF1\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U5B9A> \xEF\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U5B9B> \xE8\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U5B9C> \xEB\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U5BA2> \xCB\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U5BA3> \xE0\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U5BA4> \xE3\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U5BA5> \xEA\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U5BA6> \xFC\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U5BAC> \xE0\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U5BAE> \xCF\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U5BB0> \xEE\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U5BB3> \xFA\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U5BB4> \xE6\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U5BB5> \xE1\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U5BB6> \xCA\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U5BB8> \xE3\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U5BB9> \xE9\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U5BBF> \xE2\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U5BC0> \xF3\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U5BC2> \xEE\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U5BC3> \xEA\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U5BC4> \xD0\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U5BC5> \xEC\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U5BC6> \xDA\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U5BC7> \xCF\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U5BCC> \xDD\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U5BD0> \xD8\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U5BD2> \xF9\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U5BD3> \xE9\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U5BD4> \xE3\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U5BD7> \xD2\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U5BDE> \xD8\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U5BDF> \xF3\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U5BE1> \xCD\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U5BE2> \xF6\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U5BE4> \xE7\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U5BE5> \xE8\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U5BE6> \xE3\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U5BE7> \xD2\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U5BE8> \xF3\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U5BE9> \xE3\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U5BEB> \xDE\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U5BEC> \xCE\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U5BEE> \xD6\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U5BEF> \xF1\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U5BF5> \xF5\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U5BF6> \xDC\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U5BF8> \xF5\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U5BFA> \xDE\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U5C01> \xDC\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U5C04> \xDE\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U5C07> \xED\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U5C08> \xEE\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U5C09> \xEA\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U5C0A> \xF0\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U5C0B> \xE3\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U5C0D> \xD3\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U5C0E> \xD3\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U5C0F> \xE1\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U5C11> \xE1\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U5C16> \xF4\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U5C19> \xDF\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U5C24> \xE9\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U5C28> \xDB\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U5C31> \xF6\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U5C38> \xE3\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U5C39> \xEB\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U5C3A> \xF4\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U5C3B> \xCD\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U5C3C> \xD2\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U5C3E> \xDA\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U5C3F> \xD2\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U5C40> \xCF\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U5C45> \xCB\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U5C46> \xCC\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U5C48> \xCF\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U5C4B> \xE8\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U5C4D> \xE3\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U5C4E> \xE3\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U5C51> \xE0\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U5C55> \xEE\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U5C5B> \xDC\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U5C60> \xD3\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U5C62> \xD7\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U5C64> \xF6\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U5C65> \xD7\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U5C6C> \xE1\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U5C6F> \xD4\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U5C71> \xDF\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U5C79> \xFD\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U5C90> \xD0\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U5C91> \xED\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U5CA1> \xCB\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U5CA9> \xE4\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U5CAB> \xE1\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U5CAC> \xCB\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U5CB1> \xD3\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U5CB3> \xE4\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U5CB5> \xFB\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U5CB7> \xDA\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U5CB8> \xE4\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U5CBA> \xD6\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U5CBE> \xEF\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U5CC0> \xE1\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U5CD9> \xF6\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U5CE0> \xDF\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U5CE8> \xE4\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U5CEF> \xDC\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U5CF0> \xDC\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U5CF4> \xFA\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U5CF6> \xD3\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U5CFB> \xF1\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U5CFD> \xFA\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U5D07> \xE2\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U5D0D> \xD5\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U5D0E> \xD0\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U5D11> \xCD\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U5D14> \xF5\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U5D16> \xE4\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U5D17> \xCB\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U5D19> \xD7\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U5D27> \xE2\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U5D29> \xDD\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U5D4B> \xDA\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U5D4C> \xCA\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U5D50> \xD5\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U5D69> \xE3\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U5D6C> \xE8\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U5D6F> \xF3\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U5D87> \xCF\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U5D8B> \xD3\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U5D9D> \xD4\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U5DA0> \xCE\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U5DA2> \xE8\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U5DAA> \xE5\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U5DB8> \xE7\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U5DBA> \xD6\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U5DBC> \xDF\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U5DBD> \xE4\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U5DCD> \xE8\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U5DD2> \xD8\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U5DD6> \xE4\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U5DDD> \xF4\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U5DDE> \xF1\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U5DE1> \xE2\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U5DE2> \xE1\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U5DE5> \xCD\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U5DE6> \xF1\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U5DE7> \xCE\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U5DE8> \xCB\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U5DEB> \xD9\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U5DEE> \xF3\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U5DF1> \xD0\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U5DF2> \xEC\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U5DF3> \xDE\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U5DF4> \xF7\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U5DF7> \xF9\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U5DFD> \xE1\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U5DFE> \xCB\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U5E02> \xE3\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U5E03> \xF8\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U5E06> \xDB\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U5E0C> \xFD\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U5E11> \xF7\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U5E16> \xF4\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U5E19> \xF2\xED |0 # CJK UNIFIED IDEOGRAPH
-<U5E1B> \xDB\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U5E1D> \xF0\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U5E25> \xE1\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U5E2B> \xDE\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U5E2D> \xE0\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U5E33> \xED\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U5E36> \xD3\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U5E38> \xDF\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U5E3D> \xD9\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U5E3F> \xFD\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U5E40> \xEF\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U5E44> \xE4\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U5E45> \xF8\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U5E47> \xDB\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U5E4C> \xFC\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U5E55> \xD8\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U5E5F> \xF6\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U5E61> \xDB\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U5E62> \xD3\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U5E63> \xF8\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U5E72> \xCA\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U5E73> \xF8\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U5E74> \xD2\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U5E77> \xDC\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U5E78> \xFA\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U5E79> \xCA\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U5E7B> \xFC\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U5E7C> \xEA\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U5E7D> \xEA\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U5E7E> \xD0\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U5E84> \xED\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U5E87> \xDD\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U5E8A> \xDF\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U5E8F> \xDF\xED |0 # CJK UNIFIED IDEOGRAPH
-<U5E95> \xEE\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U5E97> \xEF\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U5E9A> \xCC\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U5E9C> \xDD\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U5EA0> \xDF\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U5EA6> \xD3\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U5EA7> \xF1\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U5EAB> \xCD\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U5EAD> \xEF\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U5EB5> \xE4\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U5EB6> \xDF\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U5EB7> \xCB\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U5EB8> \xE9\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U5EBE> \xEA\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U5EC2> \xDF\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U5EC8> \xF9\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U5EC9> \xD6\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U5ECA> \xD5\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U5ED0> \xCF\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U5ED3> \xCE\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U5ED6> \xD6\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U5EDA> \xF1\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U5EDB> \xEE\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U5EDF> \xD9\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U5EE0> \xF3\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U5EE2> \xF8\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U5EE3> \xCE\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U5EEC> \xD5\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U5EF3> \xF4\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U5EF6> \xE6\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U5EF7> \xEF\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U5EFA> \xCB\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U5EFB> \xFC\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U5F01> \xDC\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U5F04> \xD6\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U5F0A> \xF8\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U5F0F> \xE3\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U5F11> \xE3\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U5F13> \xCF\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U5F14> \xF0\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U5F15> \xEC\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U5F17> \xDD\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U5F18> \xFB\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U5F1B> \xEC\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U5F1F> \xF0\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U5F26> \xFA\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U5F27> \xFB\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U5F29> \xD2\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U5F31> \xE5\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U5F35> \xED\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U5F3A> \xCB\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U5F3C> \xF9\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U5F48> \xF7\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U5F4A> \xCB\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U5F4C> \xDA\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U5F4E> \xD8\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U5F56> \xD3\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U5F57> \xFB\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U5F59> \xFD\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U5F5B> \xEC\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U5F62> \xFB\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U5F66> \xE5\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U5F67> \xE9\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U5F69> \xF3\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U5F6A> \xF8\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U5F6B> \xF0\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U5F6C> \xDE\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U5F6D> \xF8\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U5F70> \xF3\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U5F71> \xE7\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U5F77> \xDB\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U5F79> \xE6\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U5F7C> \xF9\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U5F7F> \xDD\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U5F80> \xE8\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U5F81> \xEF\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U5F85> \xD3\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U5F87> \xE2\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U5F8A> \xFC\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U5F8B> \xD7\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U5F8C> \xFD\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U5F90> \xDF\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U5F91> \xCC\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U5F92> \xD3\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U5F97> \xD4\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U5F98> \xDB\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U5F99> \xDE\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U5F9E> \xF0\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U5FA0> \xD5\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U5FA1> \xE5\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U5FA8> \xFC\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U5FA9> \xDC\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U5FAA> \xE2\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U5FAE> \xDA\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U5FB5> \xF3\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U5FB7> \xD3\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U5FB9> \xF4\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U5FBD> \xFD\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U5FC3> \xE3\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U5FC5> \xF9\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U5FCC> \xD0\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U5FCD> \xEC\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U5FD6> \xF5\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U5FD7> \xF2\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U5FD8> \xD8\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U5FD9> \xD8\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U5FE0> \xF5\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U5FEB> \xF6\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U5FF5> \xD2\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U5FFD> \xFB\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U5FFF> \xDD\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U600F> \xE4\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U6012> \xD2\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U6016> \xF8\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U601C> \xD6\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U601D> \xDE\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U6020> \xF7\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U6021> \xEC\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U6025> \xD0\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U6027> \xE0\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U6028> \xEA\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U602A> \xCE\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U602F> \xCC\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U6041> \xEC\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U6042> \xE2\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U6043> \xE3\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U604D> \xFC\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U6050> \xCD\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U6052> \xF9\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U6055> \xDF\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U6059> \xE5\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U605D> \xCE\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U6062> \xFC\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U6063> \xED\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U6064> \xFD\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U6065> \xF6\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U6068> \xF9\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U6069> \xEB\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U606A> \xCA\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U606C> \xD2\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U606D> \xCD\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U606F> \xE3\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U6070> \xFD\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U6085> \xE6\xED |0 # CJK UNIFIED IDEOGRAPH
-<U6089> \xE3\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U608C> \xF0\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U608D> \xF9\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U6094> \xFC\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U6096> \xF8\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U609A> \xE1\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U609B> \xEE\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U609F> \xE7\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U60A0> \xEA\xED |0 # CJK UNIFIED IDEOGRAPH
-<U60A3> \xFC\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U60A4> \xF5\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U60A7> \xD7\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U60B0> \xF0\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U60B2> \xDD\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U60B3> \xD3\xED |0 # CJK UNIFIED IDEOGRAPH
-<U60B4> \xF5\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U60B6> \xDA\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U60B8> \xCC\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U60BC> \xD3\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U60BD> \xF4\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U60C5> \xEF\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U60C7> \xD4\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U60D1> \xFB\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U60DA> \xFB\xED |0 # CJK UNIFIED IDEOGRAPH
-<U60DC> \xE0\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U60DF> \xEA\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U60E0> \xFB\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U60E1> \xE4\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U60F0> \xF6\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U60F1> \xD2\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U60F3> \xDF\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U60F6> \xFC\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U60F9> \xE5\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U60FA> \xE0\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U60FB> \xF6\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U6101> \xE1\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U6106> \xCB\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U6108> \xEA\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U6109> \xEA\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U610D> \xDA\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U610E> \xF8\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U610F> \xEB\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U6115> \xE4\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U611A> \xE9\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U611B> \xE4\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U611F> \xCA\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U6127> \xCE\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U6130> \xFC\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U6134> \xF3\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U6137> \xCB\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U613C> \xE3\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U613E> \xCB\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U613F> \xEA\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U6142> \xE9\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U6144> \xD7\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U6147> \xEB\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U6148> \xED\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U614A> \xCC\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U614B> \xF7\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U614C> \xFC\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U6153> \xF8\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U6155> \xD9\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U6158> \xF3\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U6159> \xF3\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U615D> \xF7\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U615F> \xF7\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U6162> \xD8\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U6163> \xCE\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U6164> \xCA\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U6167> \xFB\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U6168> \xCB\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U616B> \xF0\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U616E> \xD5\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U6170> \xEA\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U6176> \xCC\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U6177> \xCB\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U617D> \xF4\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U617E> \xE9\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U6181> \xF5\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U6182> \xE9\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U618A> \xDD\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U618E> \xF1\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U6190> \xD5\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U6191> \xDE\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U6194> \xF4\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U6198> \xFD\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U6199> \xFD\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U619A> \xF7\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U61A4> \xDD\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U61A7> \xD4\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U61A9> \xCC\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U61AB> \xDA\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U61AC> \xCC\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U61AE> \xD9\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U61B2> \xFA\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U61B6> \xE5\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U61BA> \xD3\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U61BE> \xCA\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U61C3> \xD0\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U61C7> \xCA\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U61C8> \xFA\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U61C9> \xEB\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U61CA> \xE7\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U61CB> \xD9\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U61E6> \xD1\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U61F2> \xF3\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U61F6> \xD4\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U61F7> \xFC\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U61F8> \xFA\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U61FA> \xF3\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U61FC> \xCF\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U61FF> \xEB\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U6200> \xD5\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U6207> \xD3\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U6208> \xCD\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U620A> \xD9\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U620C> \xE2\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U620D> \xE2\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U620E> \xEB\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U6210> \xE0\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U6211> \xE4\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U6212> \xCC\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U6216> \xFB\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U621A> \xF4\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U621F> \xD0\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U6221> \xCA\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U622A> \xEF\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U622E> \xD7\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U6230> \xEE\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U6231> \xFD\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U6234> \xD3\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U6236> \xFB\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U623E> \xD5\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U623F> \xDB\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U6240> \xE1\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U6241> \xF8\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U6247> \xE0\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U6248> \xFB\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U6249> \xDD\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U624B> \xE2\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U624D> \xEE\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U6253> \xF6\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U6258> \xF6\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U626E> \xDD\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U6271> \xD0\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U6276> \xDD\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U6279> \xDD\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U627C> \xE4\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U627F> \xE3\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U6280> \xD0\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U6284> \xF4\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U6289> \xCC\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U628A> \xF7\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U6291> \xE5\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U6292> \xDF\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U6295> \xF7\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U6297> \xF9\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U6298> \xEF\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U629B> \xF8\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U62AB> \xF9\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U62B1> \xF8\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U62B5> \xEE\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U62B9> \xD8\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U62BC> \xE4\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U62BD> \xF5\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U62C2> \xDD\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U62C7> \xD9\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U62C8> \xD2\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U62C9> \xD5\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U62CC> \xDA\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U62CD> \xDA\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U62CF> \xD1\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U62D0> \xCE\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U62D2> \xCB\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U62D3> \xF4\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U62D4> \xDA\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U62D6> \xF6\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U62D7> \xE8\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U62D8> \xCF\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U62D9> \xF0\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U62DB> \xF4\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U62DC> \xDB\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U62EC> \xCE\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U62ED> \xE3\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U62EE> \xD1\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U62EF> \xF1\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U62F1> \xCD\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U62F3> \xCF\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U62F7> \xCD\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U62FE> \xE3\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U62FF> \xD1\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U6301> \xF2\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U6307> \xF2\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U6309> \xE4\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U6311> \xD3\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U632B> \xF1\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U632F> \xF2\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U633A> \xEF\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U633B> \xE6\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U633D> \xD8\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U633E> \xFA\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U6349> \xF3\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U634C> \xF8\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U634F> \xD1\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U6350> \xE6\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U6355> \xF8\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U6367> \xDC\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U6368> \xDE\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U636E> \xCB\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U6372> \xCF\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U6377> \xF4\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U637A> \xD1\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U637B> \xD2\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U637F> \xDF\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U6383> \xE1\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U6388> \xE2\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U6389> \xD3\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U638C> \xED\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U6392> \xDB\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U6396> \xE4\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U6398> \xCF\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U639B> \xCE\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U63A0> \xD5\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U63A1> \xF3\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U63A2> \xF7\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U63A5> \xEF\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U63A7> \xCD\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U63A8> \xF5\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U63A9> \xE5\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U63AA> \xF0\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U63C0> \xCA\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U63C4> \xEA\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U63C6> \xD0\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U63CF> \xD9\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U63D0> \xF0\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U63D6> \xEB\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U63DA> \xE5\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U63DB> \xFC\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U63E1> \xE4\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U63ED> \xCC\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U63EE> \xFD\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U63F4> \xEA\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U63F6> \xE5\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U63F7> \xDF\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U640D> \xE1\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U640F> \xDA\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U6414> \xE1\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U6416> \xE8\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U6417> \xD3\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U641C> \xE2\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U6422> \xF2\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U642C> \xDA\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U642D> \xF7\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U643A> \xFD\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U643E> \xF3\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U6458> \xEE\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U6460> \xF5\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U6469> \xD8\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U646F> \xF2\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U6478> \xD9\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U6479> \xD9\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U647A> \xEF\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U6488> \xD6\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U6491> \xF7\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U6492> \xDF\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U6493> \xE8\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U649A> \xD2\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U649E> \xD3\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U64A4> \xF4\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U64A5> \xDA\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U64AB> \xD9\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U64AD> \xF7\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U64AE> \xF5\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U64B0> \xF3\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U64B2> \xDA\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U64BB> \xD3\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U64C1> \xE8\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U64C4> \xD6\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U64C5> \xF4\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U64C7> \xF7\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U64CA> \xCC\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U64CD> \xF0\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U64CE> \xCC\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U64D2> \xD0\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U64D4> \xD3\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U64D8> \xDB\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U64DA> \xCB\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U64E1> \xD3\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U64E2> \xF6\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U64E5> \xD5\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U64E6> \xF3\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U64E7> \xCB\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U64EC> \xEB\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U64F2> \xF4\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U64F4> \xFC\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U64FA> \xF7\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U64FE> \xE8\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U6500> \xDA\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U6504> \xF7\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U6518> \xE5\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U651D> \xE0\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U6523> \xD5\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U652A> \xCE\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U652B> \xFC\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U652C> \xD5\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U652F> \xF2\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U6536> \xE2\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U6537> \xCD\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U6538> \xEA\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U6539> \xCB\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U653B> \xCD\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U653E> \xDB\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U653F> \xEF\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U6545> \xCD\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U6548> \xFC\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U654D> \xDF\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U654E> \xCE\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U654F> \xDA\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U6551> \xCF\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U6556> \xE7\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U6557> \xF8\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U655E> \xF3\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U6562> \xCA\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U6563> \xDF\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U6566> \xD4\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U656C> \xCC\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U656D> \xE5\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U6572> \xCD\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U6574> \xEF\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U6575> \xEE\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U6577> \xDD\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U6578> \xE2\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U657E> \xE0\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U6582> \xD6\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U6583> \xF8\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U6585> \xFC\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U6587> \xD9\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U658C> \xDE\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U6590> \xDD\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U6591> \xDA\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U6597> \xD4\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U6599> \xD6\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U659B> \xCD\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U659C> \xDE\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U659F> \xF2\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U65A1> \xE4\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U65A4> \xD0\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U65A5> \xF4\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U65A7> \xDD\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U65AB> \xED\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U65AC> \xF3\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U65AF> \xDE\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U65B0> \xE3\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U65B7> \xD3\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U65B9> \xDB\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U65BC> \xE5\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U65BD> \xE3\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U65C1> \xDB\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U65C5> \xD5\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U65CB> \xE0\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U65CC> \xEF\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U65CF> \xF0\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U65D2> \xD7\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U65D7> \xD0\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U65E0> \xD9\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U65E3> \xD0\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U65E5> \xEC\xED |0 # CJK UNIFIED IDEOGRAPH
-<U65E6> \xD3\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U65E8> \xF2\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U65E9> \xF0\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U65EC> \xE2\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U65ED> \xE9\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U65F1> \xF9\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U65F4> \xE9\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U65FA> \xE8\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U65FB> \xDA\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U65FC> \xDA\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U65FD> \xD4\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U65FF> \xE7\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U6606> \xCD\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U6607> \xE3\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U6609> \xDB\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U660A> \xFB\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U660C> \xF3\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U660E> \xD9\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U660F> \xFB\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U6610> \xDD\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U6611> \xD0\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U6613> \xE6\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U6614> \xE0\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U6615> \xFD\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U661E> \xDC\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U661F> \xE0\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U6620> \xE7\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U6625> \xF5\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U6627> \xD8\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U6628> \xED\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U662D> \xE1\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U662F> \xE3\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U6630> \xF9\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U6631> \xE9\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U6634> \xD9\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U6636> \xF3\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U663A> \xDC\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U663B> \xE4\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U6641> \xF0\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U6642> \xE3\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U6643> \xFC\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U6644> \xFC\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U6649> \xF2\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U664B> \xF2\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U664F> \xE4\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U6659> \xF1\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U665B> \xFA\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U665D> \xF1\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U665E> \xFD\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U665F> \xE0\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U6664> \xE7\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U6665> \xFC\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U6666> \xFC\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U6667> \xFB\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U6668> \xE3\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U6669> \xD8\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U666B> \xF6\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U666E> \xDC\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U666F> \xCC\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U6673> \xE0\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U6674> \xF4\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U6676> \xEF\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U6677> \xCF\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U6678> \xEF\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U667A> \xF2\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U6684> \xFD\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U6687> \xCA\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U6688> \xFD\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U6689> \xFD\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U668E> \xE7\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U6690> \xEA\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U6691> \xDF\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U6696> \xD1\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U6697> \xE4\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U6698> \xE5\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U669D> \xD9\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U66A0> \xCD\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U66A2> \xF3\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U66AB> \xED\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U66AE> \xD9\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U66B2> \xED\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U66B3> \xFB\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U66B4> \xF8\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U66B9> \xE0\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U66BB> \xCC\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U66BE> \xD4\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U66C4> \xE7\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U66C6> \xD5\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U66C7> \xD3\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U66C9> \xFC\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U66D6> \xE4\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U66D9> \xDF\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U66DC> \xE8\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U66DD> \xF8\xED |0 # CJK UNIFIED IDEOGRAPH
-<U66E0> \xCE\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U66E6> \xFD\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U66F0> \xE8\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U66F2> \xCD\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U66F3> \xE7\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U66F4> \xCC\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U66F7> \xCA\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U66F8> \xDF\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U66F9> \xF0\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U66FA> \xF0\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U66FC> \xD8\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U66FE> \xF1\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U66FF> \xF4\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U6700> \xF5\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U6703> \xFC\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U6708> \xEA\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U6709> \xEA\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U670B> \xDD\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U670D> \xDC\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U6714> \xDE\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U6715> \xF2\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U6717> \xD5\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U671B> \xD8\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U671D> \xF0\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U671E> \xD1\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U671F> \xD1\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U6726> \xD9\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U6727> \xD6\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U6728> \xD9\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U672A> \xDA\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U672B> \xD8\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U672C> \xDC\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U672D> \xF3\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U672E> \xF5\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U6731> \xF1\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U6734> \xDA\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U6736> \xF6\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U673A> \xCF\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U673D> \xFD\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U6746> \xCA\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U6749> \xDF\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U674E> \xD7\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U674F> \xFA\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U6750> \xEE\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U6751> \xF5\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U6753> \xF8\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U6756> \xED\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U675C> \xD4\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U675E> \xD1\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U675F> \xE1\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U676D> \xF9\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U676F> \xDB\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U6770> \xCB\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U6771> \xD4\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U6773> \xD9\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U6775> \xEE\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U6777> \xF7\xED |0 # CJK UNIFIED IDEOGRAPH
-<U677B> \xD2\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U677E> \xE1\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U677F> \xF7\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U6787> \xDD\xED |0 # CJK UNIFIED IDEOGRAPH
-<U6789> \xE8\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U678B> \xDB\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U678F> \xD1\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U6790> \xE0\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U6793> \xD4\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U6795> \xF6\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U6797> \xD7\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U679A> \xD8\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U679C> \xCD\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U679D> \xF2\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U67AF> \xCD\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U67B0> \xF8\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U67B3> \xF2\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U67B6> \xCA\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U67B7> \xCA\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U67B8> \xCF\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U67BE> \xE3\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U67C4> \xDC\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U67CF> \xDB\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U67D0> \xD9\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U67D1> \xCA\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U67D2> \xF6\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U67D3> \xE6\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U67D4> \xEA\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U67DA> \xEA\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U67DD> \xF6\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U67E9> \xCF\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U67EC> \xCA\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U67EF> \xCA\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U67F0> \xD2\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U67F1> \xF1\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U67F3> \xD7\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U67F4> \xE3\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U67F5> \xF3\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U67F6> \xDE\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U67FB> \xDE\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U67FE> \xEF\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U6812> \xE2\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U6813> \xEE\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U6816> \xDF\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U6817> \xD7\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U6821> \xCE\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U6822> \xDB\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U682A> \xF1\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U682F> \xE9\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U6838> \xFA\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U6839> \xD0\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U683C> \xCC\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U683D> \xEE\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U6840> \xCB\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U6841> \xF9\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U6842> \xCC\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U6843> \xD3\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U6848> \xE4\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U684E> \xF2\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U6850> \xD4\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U6851> \xDF\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U6853> \xFC\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U6854> \xD1\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U686D> \xF2\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U6876> \xF7\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U687F> \xCA\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U6881> \xD5\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U6885> \xD8\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U688F> \xCD\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U6893> \xEE\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U6894> \xF6\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U6897> \xCC\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U689D> \xF0\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U689F> \xFC\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U68A1> \xE8\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U68A2> \xF4\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U68A7> \xE7\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U68A8> \xD7\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U68AD> \xDE\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U68AF> \xF0\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U68B0> \xCC\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U68B1> \xCD\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U68B3> \xE1\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U68B5> \xDB\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U68B6> \xDA\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U68C4> \xD1\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U68C5> \xDC\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U68C9> \xD8\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U68CB> \xD1\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U68CD> \xCD\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U68D2> \xDC\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U68D5> \xF0\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U68D7> \xF0\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U68D8> \xD0\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U68DA> \xDD\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U68DF> \xD4\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U68E0> \xD3\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U68E7> \xED\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U68E8> \xCD\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U68EE> \xDF\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U68F2> \xDF\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U68F9> \xD4\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U68FA> \xCE\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U6900> \xE8\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U6905> \xEB\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U690D> \xE3\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U690E> \xF5\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U6912> \xF5\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U6927> \xD9\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U6930> \xE5\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U693D> \xE6\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U693F> \xF5\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U694A> \xE5\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U6953> \xF9\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U6954> \xE0\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U6955> \xF6\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U6957> \xCB\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U6959> \xD9\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U695A> \xF5\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U695E> \xD7\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U6960> \xD1\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U6961> \xEA\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U6962> \xEA\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U6963> \xDA\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U6968> \xEF\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U696B> \xF1\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U696D> \xE5\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U696E> \xEE\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U696F> \xE2\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U6975> \xD0\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U6977> \xFA\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U6978> \xF5\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U6979> \xE7\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U6995> \xE9\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U699B> \xF2\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U699C> \xDB\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U69A5> \xFC\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U69A7> \xDD\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U69AE> \xE7\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U69B4> \xD7\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U69BB> \xF7\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U69C1> \xCD\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U69C3> \xDA\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U69CB> \xCF\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U69CC> \xF7\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U69CD> \xF3\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U69D0> \xCE\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U69E8> \xCE\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U69EA> \xCB\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U69FB> \xD0\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U69FD> \xF0\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U69FF> \xD0\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U6A02> \xE4\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U6A0A> \xDB\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U6A11> \xD5\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U6A13> \xD7\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U6A17> \xEE\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U6A19> \xF8\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U6A1E> \xF5\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U6A1F> \xED\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U6A21> \xD9\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U6A23> \xE5\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U6A35> \xF5\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U6A38> \xDA\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U6A39> \xE2\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U6A3A> \xFB\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U6A3D> \xF1\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U6A44> \xCA\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U6A48> \xE8\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U6A4B> \xCE\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U6A52> \xE9\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U6A53> \xE2\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U6A58> \xD0\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U6A59> \xD4\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U6A5F> \xD1\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U6A61> \xDF\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U6A6B> \xFC\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U6A80> \xD3\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U6A84> \xCC\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U6A89> \xEF\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U6A8D> \xE5\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U6A8E> \xD0\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U6A97> \xDB\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U6A9C> \xFC\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U6AA2> \xCB\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U6AA3> \xED\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U6AB3> \xDE\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U6ABB> \xF9\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U6AC2> \xD4\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U6AC3> \xCF\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U6AD3> \xD6\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U6ADA> \xD5\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U6ADB> \xF1\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U6AF6> \xFA\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U6AFB> \xE5\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U6B04> \xD5\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U6B0A> \xCF\xED |0 # CJK UNIFIED IDEOGRAPH
-<U6B0C> \xED\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U6B12> \xD5\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U6B16> \xD5\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U6B20> \xFD\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U6B21> \xF3\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U6B23> \xFD\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U6B32> \xE9\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U6B3A> \xD1\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U6B3D> \xFD\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U6B3E> \xCE\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U6B46> \xFD\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U6B47> \xFA\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U6B4C> \xCA\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U6B4E> \xF7\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U6B50> \xCF\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U6B5F> \xE6\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U6B61> \xFC\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U6B62> \xF2\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U6B63> \xEF\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U6B64> \xF3\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U6B65> \xDC\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U6B66> \xD9\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U6B6A> \xE8\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U6B72> \xE1\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U6B77> \xD5\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U6B78> \xCF\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U6B7B> \xDE\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U6B7F> \xD9\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U6B83> \xE4\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U6B84> \xF2\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U6B86> \xF7\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U6B89> \xE2\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U6B8A> \xE2\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U6B96> \xE3\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U6B98> \xED\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U6B9E> \xE9\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U6BAE> \xD6\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U6BAF> \xDE\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U6BB2> \xE0\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U6BB5> \xD3\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U6BB7> \xEB\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U6BBA> \xDF\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U6BBC> \xCA\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U6BBF> \xEE\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U6BC1> \xFD\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U6BC5> \xEB\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U6BC6> \xCF\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U6BCB> \xD9\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U6BCD> \xD9\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U6BCF> \xD8\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U6BD2> \xD4\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U6BD3> \xEB\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U6BD4> \xDD\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U6BD6> \xDD\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U6BD7> \xDD\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U6BD8> \xDD\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U6BDB> \xD9\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U6BEB> \xFB\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U6BEC> \xCF\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U6C08> \xEE\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U6C0F> \xE4\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U6C11> \xDA\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U6C13> \xD8\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U6C23> \xD1\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U6C34> \xE2\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U6C37> \xDE\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U6C38> \xE7\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U6C3E> \xDB\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U6C40> \xEF\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U6C41> \xF1\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U6C42> \xCF\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U6C4E> \xDB\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U6C50> \xE0\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U6C55> \xDF\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U6C57> \xF9\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U6C5A> \xE7\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U6C5D> \xE6\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U6C5E> \xFB\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U6C5F> \xCB\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U6C60> \xF2\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U6C68> \xCD\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U6C6A> \xE8\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U6C6D> \xE7\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U6C70> \xF7\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U6C72> \xD0\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U6C76> \xDA\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U6C7A> \xCC\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U6C7D> \xD1\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U6C7E> \xDD\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U6C81> \xE3\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U6C82> \xD1\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U6C83> \xE8\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U6C85> \xEA\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U6C86> \xF9\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U6C87> \xE6\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U6C88> \xF6\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U6C8C> \xD4\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U6C90> \xD9\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U6C92> \xD9\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U6C93> \xD3\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U6C94> \xD8\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U6C95> \xDA\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U6C96> \xF5\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U6C99> \xDE\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U6C9A> \xF2\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U6C9B> \xF8\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U6CAB> \xD8\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U6CAE> \xEE\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U6CB3> \xF9\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U6CB8> \xDD\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U6CB9> \xEA\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U6CBB> \xF6\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U6CBC> \xE1\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U6CBD> \xCD\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U6CBE> \xF4\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U6CBF> \xE6\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U6CC1> \xFC\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U6CC2> \xFB\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U6CC4> \xE0\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U6CC9> \xF4\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U6CCA> \xDA\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U6CCC> \xF9\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U6CD3> \xFB\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U6CD5> \xDB\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U6CD7> \xDE\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U6CDB> \xDB\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U6CE1> \xF8\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U6CE2> \xF7\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U6CE3> \xEB\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U6CE5> \xD2\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U6CE8> \xF1\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U6CEB> \xFA\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U6CEE> \xDA\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U6CEF> \xDA\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U6CF0> \xF7\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U6CF3> \xE7\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U6D0B> \xE5\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U6D0C> \xD6\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U6D11> \xDC\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U6D17> \xE1\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U6D19> \xE2\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U6D1B> \xD5\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U6D1E> \xD4\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U6D25> \xF2\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U6D27> \xEA\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U6D29> \xE0\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U6D2A> \xFB\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U6D32> \xF1\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U6D35> \xE2\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U6D36> \xFD\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U6D38> \xCE\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U6D39> \xEA\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U6D3B> \xFC\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U6D3D> \xFD\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U6D3E> \xF7\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U6D41> \xD7\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U6D59> \xEF\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U6D5A> \xF1\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U6D5C> \xDE\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U6D63> \xE8\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U6D66> \xF8\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U6D69> \xFB\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U6D6A> \xD5\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U6D6C> \xD7\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U6D6E> \xDD\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U6D74> \xE9\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U6D77> \xFA\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U6D78> \xF6\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U6D79> \xFA\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U6D7F> \xF8\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U6D85> \xE6\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U6D87> \xCC\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U6D88> \xE1\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U6D89> \xE0\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U6D8C> \xE9\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U6D8D> \xFC\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U6D8E> \xE6\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U6D91> \xE1\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U6D93> \xE6\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U6D95> \xF4\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U6DAF> \xE4\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U6DB2> \xE4\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U6DB5> \xF9\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U6DC0> \xEF\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U6DC3> \xCF\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U6DC4> \xF6\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U6DC5> \xE0\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U6DC6> \xFC\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U6DC7> \xD1\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U6DCB> \xD7\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U6DCF> \xFB\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U6DD1> \xE2\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U6DD8> \xD4\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U6DD9> \xF0\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U6DDA> \xD7\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U6DDE> \xE1\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U6DE1> \xD3\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U6DE8> \xEF\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U6DEA> \xD7\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U6DEB> \xEB\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U6DEE> \xFC\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U6DF1> \xE4\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U6DF3> \xE2\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U6DF5> \xE6\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U6DF7> \xFB\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U6DF8> \xF4\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U6DF9> \xE5\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U6DFA> \xF4\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U6DFB> \xF4\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U6E17> \xDF\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U6E19> \xFC\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U6E1A> \xEE\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U6E1B> \xCA\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U6E1F> \xEF\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U6E20> \xCB\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U6E21> \xD4\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U6E23> \xDE\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U6E24> \xDA\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U6E25> \xE4\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U6E26> \xE8\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U6E2B> \xE0\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U6E2C> \xF6\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U6E2D> \xEA\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U6E2F> \xF9\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U6E32> \xE0\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U6E34> \xCA\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U6E36> \xE7\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U6E38> \xEA\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U6E3A> \xD9\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U6E3C> \xDA\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U6E3D> \xEE\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U6E3E> \xFB\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U6E43> \xDB\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U6E44> \xDA\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U6E4A> \xF1\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U6E4D> \xD3\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U6E56> \xFB\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U6E58> \xDF\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U6E5B> \xD3\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U6E5C> \xE3\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U6E5E> \xEF\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U6E5F> \xFC\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U6E67> \xE9\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U6E6B> \xF5\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U6E6E> \xEC\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U6E6F> \xF7\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U6E72> \xEA\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U6E73> \xD1\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U6E7A> \xDC\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U6E90> \xEA\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U6E96> \xF1\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U6E9C> \xD7\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U6E9D> \xCF\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U6E9F> \xD9\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U6EA2> \xEC\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U6EA5> \xDD\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U6EAA> \xCD\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U6EAB> \xE8\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U6EAF> \xE1\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U6EB1> \xF2\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U6EB6> \xE9\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U6EBA> \xD2\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U6EC2> \xDB\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U6EC4> \xF3\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U6EC5> \xD8\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U6EC9> \xFC\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U6ECB> \xED\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U6ECC> \xF4\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U6ECE> \xFB\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U6ED1> \xFC\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U6ED3> \xEE\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U6ED4> \xD4\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U6EEF> \xF4\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U6EF4> \xEE\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U6EF8> \xFB\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U6EFE> \xCD\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U6EFF> \xD8\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U6F01> \xE5\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U6F02> \xF8\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U6F06> \xF6\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U6F0F> \xD7\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U6F11> \xCB\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U6F14> \xE6\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U6F15> \xF0\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U6F20> \xD8\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U6F22> \xF9\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U6F23> \xD5\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U6F2B> \xD8\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U6F2C> \xF2\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U6F31> \xE2\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U6F32> \xF3\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U6F38> \xEF\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U6F3F> \xED\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U6F41> \xE7\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U6F51> \xDA\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U6F54> \xCC\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U6F57> \xF2\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U6F58> \xDA\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U6F5A> \xE2\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U6F5B> \xED\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U6F5E> \xD6\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U6F5F> \xE0\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U6F62> \xFC\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U6F64> \xEB\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U6F6D> \xD3\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U6F6E> \xF0\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U6F70> \xCF\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U6F7A> \xED\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U6F7C> \xD4\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U6F7D> \xDC\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U6F7E> \xD7\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U6F81> \xDF\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U6F84> \xF3\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U6F88> \xF4\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U6F8D> \xF1\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U6F8E> \xF8\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U6F90> \xE9\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U6F94> \xFB\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U6F97> \xCA\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U6FA3> \xF9\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U6FA4> \xF7\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U6FA7> \xD6\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U6FAE> \xFC\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U6FAF> \xF3\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U6FB1> \xEE\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U6FB3> \xE7\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U6FB9> \xD3\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U6FBE> \xD3\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U6FC0> \xCC\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U6FC1> \xF6\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U6FC2> \xD6\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U6FC3> \xD2\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U6FCA> \xE7\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U6FD5> \xE3\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U6FDA> \xE7\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U6FDF> \xF0\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U6FE0> \xFB\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U6FE1> \xEB\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U6FE4> \xD4\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U6FE9> \xFB\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U6FEB> \xD5\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U6FEC> \xF1\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U6FEF> \xF6\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U6FF1> \xDE\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U6FFE> \xD5\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U7001> \xE5\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U7005> \xFB\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U7006> \xD4\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U7009> \xDE\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U700B> \xE4\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U700F> \xD7\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U7011> \xF8\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U7015> \xDE\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U7018> \xD6\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U701A> \xF9\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U701B> \xE7\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U701C> \xEB\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U701D> \xD5\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U701E> \xEF\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U701F> \xE1\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U7023> \xFA\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U7027> \xD6\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U7028> \xD6\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U702F> \xE7\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U7037> \xEC\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U703E> \xD5\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U704C> \xCE\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U7050> \xFB\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U7051> \xE1\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U7058> \xF7\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U705D> \xFB\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U7063> \xD8\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U706B> \xFB\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U7070> \xFC\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U7078> \xCF\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U707C> \xED\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U707D> \xEE\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U7085> \xCC\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U708A> \xF6\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U708E> \xE6\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U7092> \xF5\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U7098> \xFD\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U7099> \xED\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U709A> \xCE\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U70A1> \xEF\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U70A4> \xE1\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U70AB> \xFA\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U70AC> \xCB\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U70AD> \xF7\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U70AF> \xFB\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U70B3> \xDC\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U70B7> \xF1\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U70B8> \xED\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U70B9> \xEF\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U70C8> \xD6\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U70CB> \xFD\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U70CF> \xE8\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U70D8> \xFB\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U70D9> \xD5\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U70DD> \xF1\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U70DF> \xE6\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U70F1> \xCC\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U70F9> \xF8\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U70FD> \xDC\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U7104> \xFD\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U7109> \xE5\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U710C> \xF1\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U7119> \xDB\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U711A> \xDD\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U711E> \xD4\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U7121> \xD9\xED |0 # CJK UNIFIED IDEOGRAPH
-<U7126> \xF5\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U7130> \xE6\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U7136> \xE6\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U7147> \xFD\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U7149> \xD6\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U714A> \xFD\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U714C> \xFC\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U714E> \xEF\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U7150> \xE7\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U7156> \xD1\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U7159> \xE6\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U715C> \xE9\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U715E> \xDF\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U7164> \xD8\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U7165> \xFC\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U7166> \xFD\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U7167> \xF0\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U7169> \xDB\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U716C> \xE5\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U716E> \xED\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U717D> \xE0\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U7184> \xE3\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U7189> \xE9\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U718A> \xEA\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U718F> \xFD\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U7192> \xFB\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U7194> \xE9\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U7199> \xFD\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U719F> \xE2\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U71A2> \xDC\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U71AC> \xE8\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U71B1> \xE6\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U71B9> \xFD\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U71BA> \xFD\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U71BE> \xF6\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U71C1> \xE7\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U71C3> \xE6\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U71C8> \xD4\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U71C9> \xD4\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U71CE> \xD6\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U71D0> \xD7\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U71D2> \xE1\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U71D4> \xDB\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U71D5> \xE6\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U71DF> \xE7\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U71E5> \xF0\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U71E6> \xF3\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U71E7> \xE2\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U71ED> \xF5\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U71EE> \xE0\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U71FB> \xFD\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U71FC> \xE3\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U71FE> \xD4\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U71FF> \xE8\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U7200> \xFA\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U7206> \xF8\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U7210> \xD6\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U721B> \xD5\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U722A> \xF0\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U722C> \xF7\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U722D> \xEE\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U7230> \xEA\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U7232> \xEA\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U7235> \xED\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U7236> \xDD\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U723A> \xE5\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U723B> \xFD\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U723D> \xDF\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U723E> \xEC\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U7240> \xDF\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U7246> \xED\xED |0 # CJK UNIFIED IDEOGRAPH
-<U7247> \xF8\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U7248> \xF7\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U724C> \xF8\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U7252> \xF4\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U7258> \xD4\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U7259> \xE4\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U725B> \xE9\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U725D> \xDE\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U725F> \xD9\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U7261> \xD9\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U7262> \xD6\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U7267> \xD9\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U7269> \xDA\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U7272> \xDF\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U7279> \xF7\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U727D> \xCC\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U7280> \xDF\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U7281> \xD7\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U72A2> \xD4\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U72A7> \xFD\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U72AC> \xCC\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U72AF> \xDB\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U72C0> \xDF\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U72C2> \xCE\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U72C4> \xEE\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U72CE> \xE4\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U72D0> \xFB\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U72D7> \xCF\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U72D9> \xEE\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U72E1> \xCE\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U72E9> \xE2\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U72F8> \xD7\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U72F9> \xFA\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U72FC> \xD5\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U72FD> \xF8\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U730A> \xE7\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U7316> \xF3\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U731B> \xD8\xED |0 # CJK UNIFIED IDEOGRAPH
-<U731C> \xE3\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U731D> \xF0\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U7325> \xE8\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U7329> \xE0\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U732A> \xEE\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U732B> \xD9\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U7336> \xEB\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U7337> \xEB\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U733E> \xFC\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U733F> \xEA\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U7344> \xE8\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U7345> \xDE\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U7350> \xED\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U7352> \xE8\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U7357> \xCF\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U7368> \xD4\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U736A> \xFC\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U7370> \xE7\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U7372> \xFC\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U7375> \xD6\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U7378> \xE2\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U737A> \xD3\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U737B> \xFA\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U7384> \xFA\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U7386> \xED\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U7387> \xE1\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U7389> \xE8\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U738B> \xE8\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U738E> \xEF\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U7394> \xF4\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U7396> \xCF\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U7397> \xE9\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U7398> \xD1\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U739F> \xDA\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U73A7> \xEB\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U73A9> \xE8\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U73AD> \xDE\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U73B2> \xD6\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U73B3> \xD3\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U73B9> \xFA\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U73C0> \xDA\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U73C2> \xCA\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U73C9> \xDA\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U73CA> \xDF\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U73CC> \xF9\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U73CD> \xF2\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U73CF> \xCA\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U73D6> \xCE\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U73D9> \xCD\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U73DD> \xFD\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U73DE> \xD5\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U73E0> \xF1\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U73E3> \xE2\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U73E4> \xDC\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U73E5> \xEC\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U73E6> \xFA\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U73E9> \xFB\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U73EA> \xD0\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U73ED> \xDA\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U73F7> \xD9\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U73F9> \xE0\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U73FD> \xEF\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U73FE> \xFA\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U7401> \xE0\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U7403> \xCF\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U7405> \xD5\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U7406> \xD7\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U7407> \xE2\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U7409> \xD7\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U7413> \xE8\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U741B> \xF6\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U7420> \xEF\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U7421> \xE2\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U7422> \xF6\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U7425> \xFB\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U7426> \xD1\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U7428> \xCD\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U742A> \xD1\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U742B> \xDC\xED |0 # CJK UNIFIED IDEOGRAPH
-<U742C> \xE8\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U742E> \xF0\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U742F> \xCE\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U7430> \xE6\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U7433> \xD7\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U7434> \xD0\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U7435> \xDD\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U7436> \xF7\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U7438> \xF6\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U743A> \xDB\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U743F> \xFB\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U7440> \xE9\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U7441> \xD9\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U7443> \xF5\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U7444> \xE0\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U744B> \xEA\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U7455> \xF9\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U7457> \xEA\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U7459> \xD2\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U745A> \xFB\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U745B> \xE7\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U745C> \xEB\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U745E> \xDF\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U745F> \xE3\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U7460> \xD7\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U7462> \xE9\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U7464> \xE8\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U7465> \xE8\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U7468> \xF2\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U7469> \xFB\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U746A> \xD8\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U746F> \xD5\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U747E> \xD0\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U7482> \xD1\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U7483> \xD7\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U7487> \xE0\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U7489> \xD6\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U748B> \xED\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U7498> \xD7\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U749C> \xFC\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U749E> \xDA\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U749F> \xCC\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U74A1> \xF2\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U74A3> \xD1\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U74A5> \xCC\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U74A7> \xDB\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U74A8> \xF3\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U74AA> \xF0\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U74B0> \xFC\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U74B2> \xE2\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U74B5> \xE6\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U74B9> \xE2\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U74BD> \xDF\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U74BF> \xE0\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U74C6> \xF2\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U74CA> \xCC\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U74CF> \xD6\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U74D4> \xE7\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U74D8> \xCE\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U74DA> \xF3\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U74DC> \xCD\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U74E0> \xFB\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U74E2> \xF8\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U74E3> \xF7\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U74E6> \xE8\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U74EE> \xE8\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U74F7> \xED\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U7501> \xDC\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U7504> \xCC\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U7511> \xF1\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U7515> \xE8\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U7518> \xCA\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U751A> \xE4\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U751B> \xF4\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U751F> \xDF\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U7523> \xDF\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U7525> \xDF\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U7526> \xE1\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U7528> \xE9\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U752B> \xDC\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U752C> \xE9\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U7530> \xEF\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U7531> \xEB\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U7532> \xCB\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U7533> \xE3\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U7537> \xD1\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U7538> \xEF\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U753A> \xEF\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U7547> \xD0\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U754C> \xCD\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U754F> \xE8\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U7551> \xEF\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U7553> \xD3\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U7554> \xDA\xED |0 # CJK UNIFIED IDEOGRAPH
-<U7559> \xD7\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U755B> \xF2\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U755C> \xF5\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U755D> \xD9\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U7562> \xF9\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U7565> \xD5\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U7566> \xFD\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U756A> \xDB\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U756F> \xF1\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U7570> \xEC\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U7575> \xFB\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U7576> \xD3\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U7578> \xD1\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U757A> \xCB\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U757F> \xD1\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U7586> \xCB\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U7587> \xF1\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U758A> \xF4\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U758B> \xF9\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U758E> \xE1\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U758F> \xE1\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U7591> \xEB\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U759D> \xDF\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U75A5> \xCB\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U75AB> \xE6\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U75B1> \xF8\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U75B2> \xF9\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U75B3> \xCA\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U75B5> \xED\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U75B8> \xD3\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U75B9> \xF2\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U75BC> \xD4\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U75BD> \xEE\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U75BE> \xF2\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U75C2> \xCA\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U75C5> \xDC\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U75C7> \xF1\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U75CD> \xEC\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U75D2> \xE5\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U75D4> \xF6\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U75D5> \xFD\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U75D8> \xD4\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U75D9> \xCC\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U75DB> \xF7\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U75E2> \xD7\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U75F0> \xD3\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U75F2> \xD8\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U75F4> \xF6\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U75FA> \xDD\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U75FC> \xCD\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U7600> \xE5\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U760D> \xE5\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U7619> \xE1\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U761F> \xE8\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U7620> \xF4\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U7621> \xF3\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U7622> \xDA\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U7624> \xD7\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U7626> \xE2\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U763B> \xD7\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U7642> \xD6\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U764C> \xE4\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U764E> \xCA\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U7652> \xEB\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U7656> \xDB\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U7661> \xF6\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U7664> \xEF\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U7669> \xD4\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U766C> \xE0\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U7670> \xE8\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U7672> \xEF\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U7678> \xCD\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U767B> \xD4\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U767C> \xDB\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U767D> \xDB\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U767E> \xDB\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U7684> \xEE\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U7686> \xCB\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U7687> \xFC\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U768E> \xCE\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U7690> \xCD\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U7693> \xFB\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U76AE> \xF9\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U76BA> \xF5\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U76BF> \xD9\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U76C2> \xE9\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U76C3> \xDB\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U76C6> \xDD\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U76C8> \xE7\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U76CA> \xEC\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U76D2> \xF9\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U76D6> \xCB\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U76DB> \xE0\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U76DC> \xD4\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U76DE> \xED\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U76DF> \xD8\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U76E1> \xF2\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U76E3> \xCA\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U76E4> \xDA\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U76E7> \xD6\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U76EE> \xD9\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U76F2> \xD8\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U76F4> \xF2\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U76F8> \xDF\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U76FC> \xDA\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U76FE> \xE2\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U7701> \xE0\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U7704> \xD8\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U7708> \xF7\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U7709> \xDA\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U770B> \xCA\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U771E> \xF2\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U7720> \xD8\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U7729> \xFA\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U7737> \xCF\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U7738> \xD9\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U773A> \xF0\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U773C> \xE4\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U7740> \xF3\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U774D> \xFA\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U775B> \xEF\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U7761> \xE2\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U7763> \xD4\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U7766> \xD9\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U776B> \xF4\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U7779> \xD4\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U777E> \xCD\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U777F> \xE7\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U778B> \xF2\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U7791> \xD9\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U779E> \xD8\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U77A5> \xDC\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U77AC> \xE2\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U77AD> \xD6\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U77B0> \xCA\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U77B3> \xD4\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U77BB> \xF4\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U77BC> \xCC\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U77BF> \xCF\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U77D7> \xF5\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U77DB> \xD9\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U77DC> \xD0\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U77E2> \xE3\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U77E3> \xEB\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U77E5> \xF2\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U77E9> \xCF\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U77ED> \xD3\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U77EE> \xE8\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U77EF> \xCE\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U77F3> \xE0\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U7802> \xDE\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U7812> \xDD\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U7825> \xF2\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U7826> \xF3\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U7827> \xF6\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U782C> \xD7\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U7832> \xF8\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U7834> \xF7\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U7845> \xD0\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U784F> \xE6\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U785D> \xF5\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U786B> \xD7\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U786C> \xCC\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U786F> \xE6\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U787C> \xDD\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U7881> \xD1\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U7887> \xEF\xED |0 # CJK UNIFIED IDEOGRAPH
-<U788C> \xD6\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U788D> \xE4\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U788E> \xE1\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U7891> \xDD\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U7897> \xE8\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U78A3> \xCA\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U78A7> \xDC\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U78A9> \xE0\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U78BA> \xFC\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U78BB> \xFC\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U78BC> \xD8\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U78C1> \xED\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U78C5> \xDB\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U78CA> \xD6\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U78CB> \xF3\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U78CE> \xCD\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U78D0> \xDA\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U78E8> \xD8\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U78EC> \xCC\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U78EF> \xD1\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U78F5> \xCA\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U78FB> \xDA\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U7901> \xF5\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U790E> \xF5\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U7916> \xE6\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U792A> \xD5\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U792B> \xD5\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U792C> \xDA\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U793A> \xE3\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U793E> \xDE\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U7940> \xDE\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U7941> \xD1\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U7947> \xD1\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U7948> \xD1\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U7949> \xF2\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U7950> \xE9\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U7956> \xF0\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U7957> \xF2\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U795A> \xF0\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U795B> \xCB\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U795C> \xFB\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U795D> \xF5\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U795E> \xE3\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U7960> \xDE\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U7965> \xDF\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U7968> \xF8\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U796D> \xF0\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U797A> \xD1\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U797F> \xD6\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U7981> \xD0\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U798D> \xFC\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U798E> \xEF\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U798F> \xDC\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U7991> \xE9\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U79A6> \xE5\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U79A7> \xFD\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U79AA> \xE0\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U79AE> \xD6\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U79B1> \xD4\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U79B3> \xE5\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U79B9> \xE9\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U79BD> \xD0\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U79BE> \xFC\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U79BF> \xD4\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U79C0> \xE2\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U79C1> \xDE\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U79C9> \xDC\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U79CA> \xD2\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U79CB> \xF5\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U79D1> \xCE\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U79D2> \xF5\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U79D5> \xDD\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U79D8> \xDD\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U79DF> \xF0\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U79E4> \xF6\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U79E6> \xF2\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U79E7> \xE4\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U79E9> \xF2\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U79FB> \xEC\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U7A00> \xFD\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U7A05> \xE1\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U7A08> \xCA\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U7A0B> \xEF\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U7A0D> \xF5\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U7A14> \xEC\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U7A17> \xF8\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U7A19> \xF2\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U7A1A> \xF6\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U7A1C> \xD7\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U7A1F> \xF9\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U7A20> \xF0\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U7A2E> \xF0\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U7A31> \xF6\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U7A36> \xE9\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U7A37> \xF2\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U7A3B> \xD4\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U7A3C> \xCA\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U7A3D> \xCD\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U7A3F> \xCD\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U7A40> \xCD\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U7A46> \xD9\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U7A49> \xF6\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U7A4D> \xEE\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U7A4E> \xE7\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U7A57> \xE2\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U7A61> \xDF\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U7A62> \xE7\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U7A69> \xE8\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U7A6B> \xFC\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U7A70> \xE5\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U7A74> \xFA\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U7A76> \xCF\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U7A79> \xCF\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U7A7A> \xCD\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U7A7D> \xEF\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U7A7F> \xF4\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U7A81> \xD4\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U7A84> \xF3\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U7A88> \xE9\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U7A92> \xF2\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U7A93> \xF3\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U7A95> \xF0\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U7A98> \xCF\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U7A9F> \xCF\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U7AA9> \xE8\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U7AAA> \xE8\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U7AAE> \xCF\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U7AAF> \xE9\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U7ABA> \xD0\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U7AC4> \xF3\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U7AC5> \xD0\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U7AC7> \xD4\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U7ACA> \xEF\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U7ACB> \xD8\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U7AD7> \xD9\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U7AD9> \xF3\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U7ADD> \xDC\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U7ADF> \xCC\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U7AE0> \xED\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U7AE3> \xF1\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U7AE5> \xD4\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U7AEA> \xE2\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U7AED> \xCA\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U7AEF> \xD3\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U7AF6> \xCC\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U7AF9> \xF1\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U7AFA> \xF5\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U7AFF> \xCA\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U7B0F> \xFB\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U7B11> \xE1\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U7B19> \xDF\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U7B1B> \xEE\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U7B1E> \xF7\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U7B20> \xD8\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U7B26> \xDD\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U7B2C> \xF0\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U7B2D> \xD6\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U7B39> \xE1\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U7B46> \xF9\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U7B49> \xD4\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U7B4B> \xD0\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U7B4C> \xEF\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U7B4D> \xE2\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U7B4F> \xDB\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U7B50> \xCE\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U7B51> \xF5\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U7B52> \xF7\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U7B54> \xD3\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U7B56> \xF3\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U7B60> \xD0\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U7B6C> \xE0\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U7B6E> \xDF\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U7B75> \xE6\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U7B7D> \xE8\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U7B87> \xCB\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U7B8B> \xEF\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U7B8F> \xEE\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U7B94> \xDA\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U7B95> \xD1\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U7B97> \xDF\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U7B9A> \xF3\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U7B9D> \xCC\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U7BA1> \xCE\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U7BAD> \xEF\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U7BB1> \xDF\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U7BB4> \xED\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U7BB8> \xEE\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U7BC0> \xEF\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U7BC1> \xFC\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U7BC4> \xDB\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U7BC6> \xEF\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U7BC7> \xF8\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U7BC9> \xF5\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U7BD2> \xE3\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U7BE0> \xE1\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U7BE4> \xD4\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U7BE9> \xDE\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U7C07> \xF0\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U7C12> \xF3\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U7C1E> \xD3\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U7C21> \xCA\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U7C27> \xFC\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U7C2A> \xED\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U7C2B> \xE1\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U7C3D> \xF4\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U7C3E> \xD6\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U7C3F> \xDD\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U7C43> \xD5\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U7C4C> \xF1\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U7C4D> \xEE\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U7C60> \xD6\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U7C64> \xF4\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U7C6C> \xD7\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U7C73> \xDA\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U7C83> \xDD\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U7C89> \xDD\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U7C92> \xD8\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U7C95> \xDA\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U7C97> \xF0\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U7C98> \xEF\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U7C9F> \xE1\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U7CA5> \xF1\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U7CA7> \xED\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U7CAE> \xD5\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U7CB1> \xD5\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U7CB2> \xF3\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U7CB3> \xCB\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U7CB9> \xE2\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U7CBE> \xEF\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U7CCA> \xFB\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U7CD6> \xD3\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U7CDE> \xDD\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U7CDF> \xF0\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U7CE0> \xCB\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U7CE7> \xD5\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U7CFB> \xCD\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U7CFE> \xD0\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U7D00> \xD1\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U7D02> \xF1\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U7D04> \xE5\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U7D05> \xFB\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U7D06> \xE9\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U7D07> \xFD\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U7D08> \xFC\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U7D0A> \xDA\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U7D0B> \xDA\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U7D0D> \xD2\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U7D10> \xD2\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U7D14> \xE2\xED |0 # CJK UNIFIED IDEOGRAPH
-<U7D17> \xDE\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U7D18> \xCE\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U7D19> \xF2\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U7D1A> \xD0\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U7D1B> \xDD\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U7D20> \xE1\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U7D21> \xDB\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U7D22> \xDF\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U7D2B> \xED\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U7D2C> \xF1\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U7D2E> \xF3\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U7D2F> \xD7\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U7D30> \xE1\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U7D33> \xE3\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U7D35> \xEE\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U7D39> \xE1\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U7D3A> \xCA\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U7D42> \xF0\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U7D43> \xFA\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U7D44> \xF0\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U7D45> \xCC\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U7D46> \xDA\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U7D50> \xCC\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U7D5E> \xCE\xED |0 # CJK UNIFIED IDEOGRAPH
-<U7D61> \xD5\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U7D62> \xFA\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U7D66> \xD0\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U7D68> \xEB\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U7D6A> \xEC\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U7D6E> \xDF\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U7D71> \xF7\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U7D72> \xDE\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U7D73> \xCB\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U7D76> \xEF\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U7D79> \xCC\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U7D7F> \xCF\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U7D8E> \xEF\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U7D8F> \xE2\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U7D93> \xCC\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U7D9C> \xF0\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U7DA0> \xD6\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U7DA2> \xF1\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U7DAC> \xE2\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U7DAD> \xEB\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U7DB1> \xCB\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U7DB2> \xD8\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U7DB4> \xF4\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U7DB5> \xF3\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U7DB8> \xD7\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U7DBA> \xD1\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U7DBB> \xF7\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U7DBD> \xED\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U7DBE> \xD7\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U7DBF> \xD8\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U7DC7> \xF6\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U7DCA> \xD1\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U7DCB> \xDD\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U7DD6> \xDF\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U7DD8> \xF9\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U7DDA> \xE0\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U7DDD> \xF2\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U7DDE> \xD3\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U7DE0> \xF4\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U7DE1> \xDA\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U7DE3> \xE6\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U7DE8> \xF8\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U7DE9> \xE8\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U7DEC> \xD8\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U7DEF> \xEA\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U7DF4> \xD6\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U7DFB> \xF6\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U7E09> \xF2\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U7E0A> \xE4\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U7E15> \xE8\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U7E1B> \xDA\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U7E1D> \xF2\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U7E1E> \xFB\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U7E1F> \xE9\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U7E21> \xEE\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U7E23> \xFA\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U7E2B> \xDC\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U7E2E> \xF5\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U7E2F> \xE6\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U7E31> \xF0\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U7E37> \xD7\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U7E3D> \xF5\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U7E3E> \xEE\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U7E41> \xDB\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U7E43> \xDD\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U7E46> \xD9\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U7E47> \xE9\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U7E52> \xF1\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U7E54> \xF2\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U7E55> \xE0\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U7E5E> \xE9\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U7E61> \xE2\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U7E69> \xE3\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U7E6A> \xFC\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U7E6B> \xCD\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U7E6D> \xCC\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U7E70> \xF0\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U7E79> \xE6\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U7E7C> \xCD\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U7E82> \xF3\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U7E8C> \xE1\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U7E8F> \xEF\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U7E93> \xE7\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U7E96> \xE0\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U7E98> \xF3\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U7E9B> \xD4\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U7E9C> \xD5\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U7F36> \xDD\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U7F38> \xF9\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U7F3A> \xCC\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U7F4C> \xE5\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U7F50> \xCE\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U7F54> \xD8\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U7F55> \xF9\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U7F6A> \xF1\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U7F6B> \xCE\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U7F6E> \xF6\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U7F70> \xDB\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U7F72> \xDF\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U7F75> \xD8\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U7F77> \xF7\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U7F79> \xD7\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U7F85> \xD4\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U7F88> \xD1\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U7F8A> \xE5\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U7F8C> \xCB\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U7F8E> \xDA\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U7F94> \xCD\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U7F9A> \xD6\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U7F9E> \xE2\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U7FA4> \xCF\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U7FA8> \xE0\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U7FA9> \xEB\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U7FB2> \xFD\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U7FB8> \xD7\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U7FB9> \xCB\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U7FBD> \xE9\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U7FC1> \xE8\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U7FC5> \xE3\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U7FCA> \xEC\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U7FCC> \xEC\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U7FCE> \xD6\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U7FD2> \xE3\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U7FD4> \xDF\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U7FD5> \xFD\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U7FDF> \xEE\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U7FE0> \xF6\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U7FE1> \xDD\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U7FE9> \xF8\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U7FEB> \xE8\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U7FF0> \xF9\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U7FF9> \xCE\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U7FFC> \xEC\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U8000> \xE9\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U8001> \xD6\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U8003> \xCD\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U8005> \xED\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U8006> \xD1\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U8009> \xCF\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U800C> \xEC\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U8010> \xD2\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U8015> \xCC\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U8017> \xD9\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U8018> \xE9\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U802D> \xD1\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U8033> \xEC\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U8036> \xE5\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U803D> \xF7\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U803F> \xCC\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U8043> \xD3\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U8046> \xD6\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U804A> \xD6\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U8056> \xE1\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U8058> \xDE\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U805A> \xF6\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U805E> \xDA\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U806F> \xD6\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U8070> \xF5\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U8072> \xE1\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U8073> \xE9\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U8077> \xF2\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U807D> \xF4\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U807E> \xD6\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U807F> \xEB\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U8084> \xEC\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U8085> \xE2\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U8086> \xDE\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U8087> \xF0\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U8089> \xEB\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U808B> \xD7\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U808C> \xD1\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U8096> \xF5\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U809B> \xF9\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U809D> \xCA\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U80A1> \xCD\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U80A2> \xF2\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U80A5> \xDD\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U80A9> \xCC\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U80AA> \xDB\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U80AF> \xD0\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U80B1> \xCE\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U80B2> \xEB\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U80B4> \xFD\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U80BA> \xF8\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U80C3> \xEA\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U80C4> \xF1\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U80CC> \xDB\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U80CE> \xF7\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U80DA> \xDB\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U80DB> \xCB\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U80DE> \xF8\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U80E1> \xFB\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U80E4> \xEB\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U80E5> \xE0\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U80F1> \xCE\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U80F4> \xD4\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U80F8> \xFD\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U80FD> \xD2\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U8102> \xF2\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U8105> \xFA\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U8106> \xF6\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U8107> \xFA\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U8108> \xD8\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U810A> \xF4\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U8118> \xE8\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U811A> \xCA\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U811B> \xCC\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U8123> \xE2\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U8129> \xE2\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U812B> \xF7\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U812F> \xF8\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U8139> \xF3\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U813E> \xDE\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U814B> \xE4\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U814E> \xE3\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U8150> \xDD\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U8151> \xDD\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U8154> \xCB\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U8155> \xE8\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U8165> \xE1\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U8166> \xD2\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U816B> \xF0\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U8170> \xE9\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U8171> \xCB\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U8178> \xED\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U8179> \xDC\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U817A> \xE0\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U817F> \xF7\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U8180> \xDB\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U8188> \xCC\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U818A> \xDA\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U818F> \xCD\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U819A> \xDD\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U819C> \xD8\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U819D> \xE3\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U81A0> \xCE\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U81A3> \xF2\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U81A8> \xF8\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U81B3> \xE0\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U81B5> \xF5\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U81BA> \xEB\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U81BD> \xD3\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U81BE> \xFC\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U81BF> \xD2\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U81C0> \xD4\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U81C2> \xDE\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U81C6> \xE5\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U81CD> \xF0\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U81D8> \xD5\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U81DF> \xED\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U81E3> \xE3\xED |0 # CJK UNIFIED IDEOGRAPH
-<U81E5> \xE8\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U81E7> \xED\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U81E8> \xD7\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U81EA> \xED\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U81ED> \xF6\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U81F3> \xF2\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U81F4> \xF6\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U81FA> \xD3\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U81FB> \xF2\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U81FC> \xCF\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U81FE> \xEB\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U8205> \xCF\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U8207> \xE6\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U8208> \xFD\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U820A> \xCF\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U820C> \xE0\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U820D> \xDE\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U8212> \xE0\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U821B> \xF4\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U821C> \xE2\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U821E> \xD9\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U821F> \xF1\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U8221> \xCB\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U822A> \xF9\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U822B> \xDB\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U822C> \xDA\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U8235> \xF6\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U8236> \xDA\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U8237> \xFA\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U8239> \xE0\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U8240> \xDD\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U8245> \xE6\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U8247> \xEF\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U8259> \xF3\xED |0 # CJK UNIFIED IDEOGRAPH
-<U8264> \xEB\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U8266> \xF9\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U826E> \xCA\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U826F> \xD5\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U8271> \xCA\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U8272> \xDF\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U8276> \xE6\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U8278> \xF5\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U827E> \xE4\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U828B> \xE9\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U828D> \xED\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U828E> \xCF\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U8292> \xD8\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U8299> \xDD\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U829A> \xD4\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U829D> \xF2\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U829F> \xDF\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U82A5> \xCB\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U82A6> \xFB\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U82A9> \xD0\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U82AC> \xDD\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U82AD> \xF7\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U82AE> \xE7\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U82AF> \xE4\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U82B1> \xFC\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U82B3> \xDB\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U82B7> \xF2\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U82B8> \xE9\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U82B9> \xD0\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U82BB> \xF5\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U82BC> \xD9\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U82BD> \xE4\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U82BF> \xED\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U82D1> \xEA\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U82D2> \xE6\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U82D4> \xF7\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U82D5> \xF5\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U82D7> \xD9\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U82DB> \xCA\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U82DE> \xF8\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U82DF> \xCF\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U82E1> \xEC\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U82E5> \xE5\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U82E6> \xCD\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U82E7> \xEE\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U82F1> \xE7\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U82FD> \xCD\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U82FE> \xF9\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U8301> \xF1\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U8302> \xD9\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U8303> \xDB\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U8304> \xCA\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U8305> \xD9\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U8309> \xD8\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U8317> \xD9\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U8328> \xED\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U832B> \xD8\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U832F> \xDC\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U8331> \xE2\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U8334> \xFC\xED |0 # CJK UNIFIED IDEOGRAPH
-<U8335> \xEC\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U8336> \xD2\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U8338> \xE9\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U8339> \xE6\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U8340> \xE2\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U8347> \xFA\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U8349> \xF5\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U834A> \xFB\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U834F> \xEC\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U8351> \xEC\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U8352> \xFC\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U8373> \xD4\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U8377> \xF9\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U837B> \xEE\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U8389> \xD7\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U838A> \xED\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U838E> \xDE\xED |0 # CJK UNIFIED IDEOGRAPH
-<U8396> \xCC\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U8398> \xE3\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U839E> \xE8\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U83A2> \xFA\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U83A9> \xDD\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U83AA> \xE4\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U83AB> \xD8\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U83BD> \xD8\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U83C1> \xF4\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U83C5> \xCE\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U83C9> \xD6\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U83CA> \xCF\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U83CC> \xD0\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U83D3> \xCE\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U83D6> \xF3\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U83DC> \xF3\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U83E9> \xDC\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U83EB> \xD0\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U83EF> \xFC\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U83F0> \xCD\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U83F1> \xD7\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U83F2> \xDE\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U83F4> \xE4\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U83F9> \xEE\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U83FD> \xE2\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U8403> \xF5\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U8404> \xD4\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U840A> \xD5\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U840C> \xD8\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U840D> \xF8\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U840E> \xEA\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U8429> \xF5\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U842C> \xD8\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U8431> \xFD\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U8438> \xEB\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U843D> \xD5\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U8449> \xE7\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U8457> \xEE\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U845B> \xCA\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U8461> \xF8\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U8463> \xD4\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U8466> \xEA\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U846B> \xFB\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U846C> \xED\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U846F> \xE5\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U8475> \xD0\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U847A> \xF1\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U8490> \xE2\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U8494> \xE3\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U8499> \xD9\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U849C> \xDF\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U84A1> \xDB\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U84B2> \xF8\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U84B8> \xF1\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U84BB> \xE5\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U84BC> \xF3\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U84BF> \xFB\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U84C0> \xE1\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U84C2> \xD9\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U84C4> \xF5\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U84C6> \xE0\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U84C9> \xE9\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U84CB> \xCB\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U84CD> \xE3\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U84D1> \xDE\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U84DA> \xE2\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U84EC> \xDC\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U84EE> \xD6\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U84F4> \xE2\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U84FC> \xD6\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U8511> \xD9\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U8513> \xD8\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U8514> \xDC\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U8517> \xED\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U8518> \xDF\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U851A> \xEA\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U851E> \xD7\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U8521> \xF3\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U8523> \xED\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U8525> \xF5\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U852C> \xE1\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U852D> \xEB\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U852F> \xF2\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U853D> \xF8\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U853F> \xEA\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U8541> \xD3\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U8543> \xDB\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U8549> \xF5\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U854E> \xCE\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U8553> \xE9\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U8559> \xFB\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U8563> \xE2\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U8568> \xCF\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U8569> \xF7\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U856A> \xD9\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U856D> \xE1\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U8584> \xDA\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U8587> \xDA\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U858F> \xEB\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U8591> \xCB\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U8594> \xED\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U859B> \xE0\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U85A6> \xF4\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U85A8> \xFD\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U85A9> \xDF\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U85AA> \xE3\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U85AF> \xE0\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U85B0> \xFD\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U85BA> \xF0\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U85C1> \xCD\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U85C9> \xED\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U85CD> \xD5\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U85CE> \xE3\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U85CF> \xED\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U85D5> \xE9\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U85DC> \xD5\xED |0 # CJK UNIFIED IDEOGRAPH
-<U85DD> \xE7\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U85E4> \xD4\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U85E5> \xE5\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U85E9> \xDB\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U85EA> \xE2\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U85F7> \xEE\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U85FA> \xD7\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U85FB> \xF0\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U85FF> \xCE\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U8602> \xE7\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U8606> \xD6\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U8607> \xE1\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U860A> \xE8\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U8616> \xE5\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U8617> \xDC\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U861A> \xE0\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U862D> \xD5\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U863F> \xD5\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U864E> \xFB\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U8650> \xF9\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U8654> \xCB\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U8655> \xF4\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U865B> \xFA\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U865C> \xD6\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U865E> \xE9\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U865F> \xFB\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U8667> \xFD\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U8679> \xFB\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U868A> \xDA\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U868C> \xDB\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U8693> \xEC\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U86A3> \xCD\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U86A4> \xF0\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U86A9> \xF6\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U86C7> \xDE\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U86CB> \xD3\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U86D4> \xFC\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U86D9> \xE8\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U86DB> \xF1\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U86DF> \xCE\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U86E4> \xF9\xED |0 # CJK UNIFIED IDEOGRAPH
-<U86ED> \xF2\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U86FE> \xE4\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U8700> \xF5\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U8702> \xDC\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U8703> \xE3\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U8708> \xE8\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U8718> \xF2\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U871A> \xDE\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U871C> \xDA\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U874E> \xCA\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U8755> \xE3\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U8757> \xFC\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U875F> \xEA\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U8766> \xF9\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U8768> \xE3\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U8774> \xFB\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U8776> \xEF\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U8778> \xE8\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U8782> \xD5\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U878D> \xEB\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U879F> \xD9\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U87A2> \xFB\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U87B3> \xD3\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U87BA> \xD5\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U87C4> \xF6\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U87E0> \xDA\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U87EC> \xE0\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U87EF> \xE9\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U87F2> \xF5\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U87F9> \xFA\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U87FB> \xEB\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U87FE> \xE0\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U8805> \xE3\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U881F> \xD5\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U8822> \xF1\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U8823> \xD5\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U8831> \xCD\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U8836> \xED\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U883B> \xD8\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U8840> \xFA\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U8846> \xF1\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U884C> \xFA\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U884D> \xE6\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U8852> \xFA\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U8853> \xE2\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U8857> \xCA\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U8859> \xE4\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U885B> \xEA\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U885D> \xF5\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U8861> \xFB\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U8862> \xCF\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U8863> \xEB\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U8868> \xF8\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U886B> \xDF\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U8870> \xE1\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U8872> \xD2\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U8877> \xF5\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U887E> \xD0\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U887F> \xD0\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U8881> \xEA\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U8882> \xD9\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U8888> \xCA\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U888B> \xD3\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U888D> \xF8\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U8892> \xD3\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U8896> \xE2\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U8897> \xF2\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U889E> \xCD\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U88AB> \xF9\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U88B4> \xCD\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U88C1> \xEE\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U88C2> \xD6\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U88CF> \xD7\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U88D4> \xE7\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U88D5> \xEB\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U88D9> \xCF\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U88DC> \xDC\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U88DD> \xED\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U88DF> \xDE\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U88E1> \xD7\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U88E8> \xDE\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U88F3> \xDF\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U88F4> \xDB\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U88F5> \xDB\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U88F8> \xD5\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U88FD> \xF0\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U8907> \xDC\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U8910> \xCA\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U8912> \xF8\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U8913> \xDC\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U8918> \xEA\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U8919> \xDB\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U8925> \xE9\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U892A> \xF7\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U8936> \xE3\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U8938> \xD7\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U893B> \xE0\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U8941> \xCB\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U8944> \xE5\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U895F> \xD0\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U8964> \xD5\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U896A> \xD8\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U8972> \xE3\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U897F> \xE0\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U8981> \xE9\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U8983> \xD3\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U8986> \xDC\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U8987> \xF8\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U898B> \xCC\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U898F> \xD0\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U8993> \xD8\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U8996> \xE3\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U89A1> \xCC\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U89A9> \xD4\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U89AA> \xF6\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U89B2> \xD0\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U89BA> \xCA\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U89BD> \xD5\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U89C0> \xCE\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U89D2> \xCA\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U89E3> \xFA\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U89F4> \xDF\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U89F8> \xF5\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U8A00> \xE5\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U8A02> \xEF\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U8A03> \xDD\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U8A08> \xCD\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U8A0A> \xE3\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U8A0C> \xFB\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U8A0E> \xF7\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U8A13> \xFD\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U8A16> \xFD\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U8A17> \xF6\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U8A18> \xD1\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U8A1B> \xE8\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U8A1D> \xE4\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U8A1F> \xE1\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U8A23> \xCC\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U8A25> \xD2\xED |0 # CJK UNIFIED IDEOGRAPH
-<U8A2A> \xDB\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U8A2D> \xE0\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U8A31> \xFA\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U8A34> \xE1\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U8A36> \xCA\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U8A3A> \xF2\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U8A3B> \xF1\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U8A50> \xDE\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U8A54> \xF0\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U8A55> \xF8\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U8A5B> \xEE\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U8A5E> \xDE\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U8A60> \xE7\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U8A62> \xE2\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U8A63> \xE7\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U8A66> \xE3\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U8A69> \xE3\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U8A6D> \xCF\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U8A6E> \xEF\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U8A70> \xFD\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U8A71> \xFC\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U8A72> \xFA\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U8A73> \xDF\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U8A75> \xE0\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U8A79> \xF4\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U8A85> \xF1\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U8A87> \xCE\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U8A8C> \xF2\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U8A8D> \xEC\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U8A93> \xE0\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U8A95> \xF7\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U8A98> \xEB\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U8A9E> \xE5\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U8AA0> \xE1\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U8AA1> \xCD\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U8AA3> \xD9\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U8AA4> \xE8\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U8AA5> \xCD\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U8AA6> \xE1\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U8AA8> \xFC\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U8AAA> \xE0\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U8AB0> \xE2\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U8AB2> \xCE\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U8AB9> \xDE\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U8ABC> \xEB\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U8ABE> \xEB\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U8ABF> \xF0\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U8AC2> \xF4\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U8AC4> \xE2\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U8AC7> \xD3\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U8ACB> \xF4\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U8ACD> \xEE\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U8ACF> \xF5\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U8AD2> \xD5\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U8AD6> \xD6\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U8ADB> \xEB\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U8ADC> \xF4\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U8AE1> \xE3\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U8AE6> \xF4\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U8AE7> \xFA\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U8AEA> \xEF\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U8AEB> \xCA\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U8AED> \xEB\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U8AEE> \xED\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U8AF1> \xFD\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U8AF6> \xE4\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U8AF7> \xF9\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U8AF8> \xF0\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U8AFA> \xE5\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U8AFE> \xD1\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U8B00> \xD9\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U8B01> \xE4\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U8B02> \xEA\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U8B04> \xD4\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U8B0E> \xDA\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U8B10> \xDA\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U8B14> \xF9\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U8B16> \xE1\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U8B17> \xDB\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U8B19> \xCC\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U8B1A> \xEC\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U8B1B> \xCB\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U8B1D> \xDE\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U8B20> \xE9\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U8B28> \xD9\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U8B2B> \xEE\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U8B2C> \xD7\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U8B33> \xCF\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U8B39> \xD0\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U8B41> \xFC\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U8B49> \xF1\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U8B4E> \xFD\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U8B4F> \xD1\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U8B58> \xE3\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U8B5A> \xD3\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U8B5C> \xDC\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U8B66> \xCC\xED |0 # CJK UNIFIED IDEOGRAPH
-<U8B6C> \xDE\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U8B6F> \xE6\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U8B70> \xEC\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U8B74> \xCC\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U8B77> \xFB\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U8B7D> \xE7\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U8B80> \xD4\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U8B8A> \xDC\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U8B90> \xE2\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U8B92> \xF3\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U8B93> \xE5\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U8B96> \xF3\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U8B9A> \xF3\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U8C37> \xCD\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U8C3F> \xCD\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U8C41> \xFC\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U8C46> \xD4\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U8C48> \xD1\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U8C4A> \xF9\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U8C4C> \xE8\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U8C55> \xE3\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U8C5A> \xD4\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U8C61> \xDF\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U8C6A> \xFB\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U8C6B> \xE7\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U8C79> \xF8\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U8C7A> \xE3\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U8C82> \xF5\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U8C8A> \xD8\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U8C8C> \xD9\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U8C9D> \xF8\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U8C9E> \xEF\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U8CA0> \xDD\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U8CA1> \xEE\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U8CA2> \xCD\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U8CA7> \xDE\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U8CA8> \xFC\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U8CA9> \xF7\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U8CAA> \xF7\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U8CAB> \xCE\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U8CAC> \xF4\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U8CAF> \xEE\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U8CB0> \xE1\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U8CB3> \xEC\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U8CB4> \xCF\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U8CB6> \xF8\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U8CB7> \xD8\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U8CB8> \xD3\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U8CBB> \xDE\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U8CBC> \xF4\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U8CBD> \xEC\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U8CBF> \xD9\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U8CC0> \xF9\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U8CC1> \xDD\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U8CC2> \xD6\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U8CC3> \xEC\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U8CC4> \xFC\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U8CC7> \xED\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U8CC8> \xCA\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U8CCA> \xEE\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U8CD1> \xF2\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U8CD3> \xDE\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U8CDA> \xD6\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U8CDC> \xDE\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U8CDE> \xDF\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U8CE0> \xDB\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U8CE2> \xFA\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U8CE3> \xD8\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U8CE4> \xF4\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U8CE6> \xDD\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U8CEA> \xF2\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U8CED> \xD4\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U8CF4> \xD6\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U8CFB> \xDD\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U8CFC> \xCF\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U8CFD> \xDF\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U8D04> \xF2\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U8D05> \xF6\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U8D07> \xEB\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U8D08> \xF1\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U8D0A> \xF3\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U8D0D> \xE0\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U8D13> \xED\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U8D16> \xE1\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U8D64> \xEE\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U8D66> \xDE\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U8D6B> \xFA\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U8D70> \xF1\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U8D73> \xD0\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U8D74> \xDD\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U8D77> \xD1\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U8D85> \xF5\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U8D8A> \xEA\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U8D99> \xF0\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U8DA3> \xF6\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U8DA8> \xF5\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U8DB3> \xF0\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U8DBA> \xDD\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U8DBE> \xF2\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U8DC6> \xF7\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U8DCB> \xDB\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U8DCC> \xF2\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U8DCF> \xCA\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U8DDB> \xF7\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U8DDD> \xCB\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U8DE1> \xEE\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U8DE3> \xE0\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U8DE8> \xCE\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U8DEF> \xD6\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U8DF3> \xD4\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U8E0A> \xE9\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U8E0F> \xD3\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U8E10> \xF4\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U8E1E> \xCB\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U8E2A> \xF1\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U8E30> \xEB\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U8E35> \xF1\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U8E42> \xEB\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U8E44> \xF0\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U8E47> \xCB\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U8E48> \xD4\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U8E49> \xF3\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U8E4A> \xFB\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U8E59> \xF5\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U8E5F> \xEE\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U8E60> \xF4\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U8E74> \xF5\xED |0 # CJK UNIFIED IDEOGRAPH
-<U8E76> \xCF\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U8E81> \xF0\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U8E87> \xEE\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U8E8A> \xF1\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U8E8D> \xE5\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U8EAA> \xD7\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U8EAB> \xE3\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U8EAC> \xCF\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U8EC0> \xCF\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U8ECA> \xF3\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U8ECB> \xE4\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U8ECC> \xCF\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U8ECD> \xCF\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U8ED2> \xFA\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U8EDF> \xE6\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U8EEB> \xF2\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U8EF8> \xF5\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U8EFB> \xCA\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U8EFE> \xE3\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U8F03> \xCE\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U8F05> \xD6\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U8F09> \xEE\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U8F12> \xF4\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U8F13> \xD8\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U8F14> \xDC\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U8F15> \xCC\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U8F1B> \xD5\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U8F1C> \xF6\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U8F1D> \xFD\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U8F1E> \xD8\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U8F1F> \xF4\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U8F26> \xD6\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U8F27> \xDC\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U8F29> \xDB\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U8F2A> \xD7\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U8F2F> \xF2\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U8F33> \xF1\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U8F38> \xE2\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U8F39> \xDC\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U8F3B> \xDC\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U8F3E> \xEF\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U8F3F> \xE6\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U8F44> \xF9\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U8F45> \xEA\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U8F49> \xEF\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U8F4D> \xF4\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U8F4E> \xCE\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U8F5D> \xE6\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U8F5F> \xCE\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U8F62> \xD5\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U8F9B> \xE3\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U8F9C> \xCD\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U8FA3> \xD5\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U8FA6> \xF7\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U8FA8> \xDC\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U8FAD> \xDE\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U8FAF> \xDC\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U8FB0> \xF2\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U8FB1> \xE9\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U8FB2> \xD2\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U8FC2> \xE9\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U8FC5> \xE3\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U8FCE> \xE7\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U8FD1> \xD0\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U8FD4> \xDA\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U8FE6> \xCA\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U8FEA> \xEE\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U8FEB> \xDA\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U8FED> \xF2\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U8FF0> \xE2\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U8FF2> \xCC\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U8FF7> \xDA\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U8FF9> \xEE\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U8FFD> \xF5\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U9000> \xF7\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U9001> \xE1\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U9002> \xCE\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U9003> \xD4\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U9005> \xFD\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U9006> \xE6\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U9008> \xFB\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U900B> \xF8\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U900D> \xE1\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U900F> \xF7\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U9010> \xF5\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U9011> \xCF\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U9014> \xD4\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U9015> \xCC\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U9017> \xD4\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U9019> \xEE\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U901A> \xF7\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U901D> \xE0\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U901E> \xD6\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U901F> \xE1\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U9020> \xF0\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U9021> \xF1\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U9022> \xDC\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U9023> \xD6\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U902E> \xF4\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U9031> \xF1\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U9032> \xF2\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U9035> \xD0\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U9038> \xEC\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U903C> \xF9\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U903E> \xEB\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U9041> \xD4\xED |0 # CJK UNIFIED IDEOGRAPH
-<U9042> \xE2\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U9047> \xE9\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U904A> \xEB\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U904B> \xEA\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U904D> \xF8\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U904E> \xCE\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U9050> \xF9\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U9051> \xFC\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U9053> \xD4\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U9054> \xD3\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U9055> \xEA\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U9059> \xE9\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U905C> \xE1\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U905D> \xD3\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U905E> \xF4\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U9060> \xEA\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U9061> \xE1\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U9063> \xCC\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U9069> \xEE\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U906D> \xF0\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U906E> \xF3\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U906F> \xD4\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U9072> \xF2\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U9075> \xF1\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U9077> \xF4\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U9078> \xE0\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U907A> \xEB\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U907C> \xD7\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U907D> \xCB\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U907F> \xF9\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U9080> \xE9\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U9081> \xD8\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U9082> \xFA\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U9083> \xE2\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U9084> \xFC\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U9087> \xEC\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U9088> \xD8\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U908A> \xDC\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U908F> \xD5\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U9091> \xEB\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U9095> \xE8\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U9099> \xD8\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U90A2> \xFB\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U90A3> \xD1\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U90A6> \xDB\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U90A8> \xF5\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U90AA> \xDE\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U90AF> \xCA\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U90B0> \xF7\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U90B1> \xCF\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U90B5> \xE1\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U90B8> \xEE\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U90C1> \xE9\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U90CA> \xCE\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U90DE> \xD5\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U90E1> \xCF\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U90E8> \xDD\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U90ED> \xCE\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U90F5> \xE9\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U90FD> \xD4\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U9102> \xE4\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U9112> \xF5\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U9115> \xFA\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U9119> \xDE\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U9127> \xD4\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U912D> \xEF\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U9132> \xD3\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U9149> \xEB\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U914A> \xEF\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U914B> \xF5\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U914C> \xED\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U914D> \xDB\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U914E> \xF1\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U9152> \xF1\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U9162> \xF5\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U9169> \xD9\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U916A> \xD5\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U916C> \xE2\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U9175> \xFD\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U9177> \xFB\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U9178> \xDF\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U9187> \xE2\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U9189> \xF6\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U918B> \xF5\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U918D> \xF0\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U9192> \xE1\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U919C> \xF5\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U91AB> \xEC\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U91AC> \xED\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U91AE> \xF5\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U91AF> \xFB\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U91B1> \xDB\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U91B4> \xD6\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U91B5> \xCB\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U91C0> \xE5\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U91C7> \xF3\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U91C9> \xEB\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U91CB> \xE0\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U91CC> \xD7\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U91CD> \xF1\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U91CE> \xE5\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U91CF> \xD5\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U91D0> \xD7\xED |0 # CJK UNIFIED IDEOGRAPH
-<U91D1> \xD1\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U91D7> \xE1\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U91D8> \xEF\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U91DC> \xDD\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U91DD> \xF6\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U91E3> \xF0\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U91E7> \xF4\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U91EA> \xE9\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U91F5> \xF3\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U920D> \xD4\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U9210> \xCC\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U9211> \xF7\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U9212> \xDF\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U9217> \xEB\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U921E> \xD0\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U9234> \xD6\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U923A> \xE8\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U923F> \xEF\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U9240> \xCB\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U9245> \xCB\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U9249> \xFA\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U9257> \xCC\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U925B> \xE6\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U925E> \xEA\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U9262> \xDB\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U9264> \xCF\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U9265> \xE2\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U9266> \xEF\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U9280> \xEB\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U9283> \xF5\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U9285> \xD4\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U9291> \xE0\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U9293> \xEF\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U9296> \xE2\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U9298> \xD9\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U929C> \xF9\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U92B3> \xE7\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U92B6> \xCF\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U92B7> \xE1\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U92B9> \xE2\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U92CC> \xEF\xFB |0 # CJK UNIFIED IDEOGRAPH
-<U92CF> \xFA\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U92D2> \xDC\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U92E4> \xE0\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U92EA> \xF8\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U92F8> \xCB\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U92FC> \xCB\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U9304> \xD6\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U9310> \xF5\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U9318> \xF5\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U931A> \xEE\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U931E> \xE2\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U931F> \xD3\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U9320> \xEF\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U9321> \xD1\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U9322> \xEF\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U9324> \xD1\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U9326> \xD0\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U9328> \xD9\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U932B> \xE0\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U932E> \xCD\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U932F> \xF3\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U9348> \xE7\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U934A> \xD6\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U934B> \xCE\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U934D> \xD4\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U9354> \xE4\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U935B> \xD3\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U936E> \xEB\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U9375> \xCB\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U937C> \xF6\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U937E> \xF1\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U938C> \xCC\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U9394> \xE9\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U9396> \xE1\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U939A> \xF5\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U93A3> \xFB\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U93A7> \xCB\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U93AC> \xFB\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U93AD> \xF2\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U93B0> \xEC\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U93C3> \xF0\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U93D1> \xEE\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U93DE> \xE9\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U93E1> \xCC\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U93E4> \xD7\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U93F6> \xF3\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U9404> \xFC\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U9418> \xF1\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U9425> \xE0\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U942B> \xEF\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U9435> \xF4\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U9438> \xF7\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U9444> \xF1\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U9451> \xCA\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U9452> \xCA\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U945B> \xCE\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U947D> \xF3\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U947F> \xF3\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U9577> \xED\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U9580> \xDA\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U9583> \xE0\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U9589> \xF8\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U958B> \xCB\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U958F> \xEB\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U9591> \xF9\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U9592> \xF9\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U9593> \xCA\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U9594> \xDA\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U9598> \xCB\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U95A3> \xCA\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U95A4> \xF9\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U95A5> \xDB\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U95A8> \xD0\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U95AD> \xD5\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U95B1> \xE6\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U95BB> \xE7\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U95BC> \xE4\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U95C7> \xE4\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U95CA> \xFC\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U95D4> \xF9\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U95D5> \xCF\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U95D6> \xF7\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U95DC> \xCE\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U95E1> \xF4\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U95E2> \xDC\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U961C> \xDD\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U9621> \xF4\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U962A> \xF8\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U962E> \xE8\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U9632> \xDB\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U963B> \xF0\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U963F> \xE4\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U9640> \xF6\xED |0 # CJK UNIFIED IDEOGRAPH
-<U9642> \xF9\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U9644> \xDD\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U964B> \xD7\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U964C> \xD8\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U964D> \xCB\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U9650> \xF9\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U965B> \xF8\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U965C> \xF9\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U965D> \xE0\xED |0 # CJK UNIFIED IDEOGRAPH
-<U965E> \xE3\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U965F> \xF4\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U9662> \xEA\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U9663> \xF2\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U9664> \xF0\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U966A> \xDB\xD6 |0 # CJK UNIFIED IDEOGRAPH
-<U9670> \xEB\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U9673> \xF2\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U9675> \xD7\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U9676> \xD4\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U9677> \xF9\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U9678> \xD7\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U967D> \xE5\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U9685> \xE9\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U9686> \xD7\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U968A> \xD3\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U968B> \xE2\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U968D> \xFC\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U968E> \xCD\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U9694> \xCC\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U9695> \xEA\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U9698> \xE4\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U9699> \xD0\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U969B> \xF0\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U969C> \xEE\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U96A3> \xD7\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U96A7> \xE2\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U96A8> \xE2\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U96AA> \xFA\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U96B1> \xEB\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U96B7> \xD6\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U96BB> \xF4\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U96C0> \xED\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U96C1> \xE4\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U96C4> \xEA\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U96C5> \xE4\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U96C6> \xF3\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U96C7> \xCD\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U96C9> \xF6\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U96CB> \xF1\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U96CC> \xED\xC1 |0 # CJK UNIFIED IDEOGRAPH
-<U96CD> \xE8\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U96CE> \xEE\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U96D5> \xF0\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U96D6> \xE2\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U96D9> \xE4\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U96DB> \xF5\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U96DC> \xED\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U96E2> \xD7\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U96E3> \xD1\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U96E8> \xE9\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U96E9> \xE9\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U96EA> \xE0\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U96EF> \xDA\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U96F0> \xDD\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U96F2> \xEA\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U96F6> \xD6\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U96F7> \xD6\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U96F9> \xDA\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U96FB> \xEF\xB3 |0 # CJK UNIFIED IDEOGRAPH
-<U9700> \xE2\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U9706> \xEF\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U9707> \xF2\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U9711> \xEF\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U9713> \xE7\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U9716> \xD7\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U9719> \xE7\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U971C> \xDF\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U971E> \xF9\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U9727> \xD9\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U9730> \xDF\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U9732> \xD6\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U9739> \xDC\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U973D> \xF0\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U9742> \xD5\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U9744> \xE4\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U9748> \xD6\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U9751> \xF4\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U9756> \xEF\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U975C> \xF0\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U975E> \xDE\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U9761> \xDA\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U9762> \xD8\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U9769> \xFA\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U976D> \xEC\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U9774> \xFC\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U9777> \xEC\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U977A> \xD8\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U978B> \xFB\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U978D> \xE4\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U978F> \xCD\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U97A0> \xCF\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U97A8> \xCA\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U97AB> \xCF\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U97AD> \xF8\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U97C6> \xF4\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U97CB> \xEA\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U97D3> \xF9\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U97DC> \xD4\xB7 |0 # CJK UNIFIED IDEOGRAPH
-<U97F3> \xEB\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U97F6> \xE1\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U97FB> \xEA\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U97FF> \xFA\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U9800> \xFB\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U9801> \xFA\xED |0 # CJK UNIFIED IDEOGRAPH
-<U9802> \xF0\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U9803> \xCC\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U9805> \xFA\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U9806> \xE2\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U9808> \xE2\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U980A> \xE9\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U980C> \xE1\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U9810> \xE7\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U9811> \xE8\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U9812> \xDA\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U9813> \xD4\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U9817> \xF7\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U9818> \xD6\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U982D> \xD4\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U9830> \xFA\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U9838> \xCC\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U9839> \xF7\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U983B> \xDE\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U9846> \xCE\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U984C> \xF0\xB9 |0 # CJK UNIFIED IDEOGRAPH
-<U984D> \xE4\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U984E> \xE4\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U9854> \xE4\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U9858> \xEA\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U985A> \xEF\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U985E> \xD7\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U9865> \xFB\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U9867> \xCD\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U986B> \xEF\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U986F> \xFA\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U98A8> \xF9\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U98AF> \xDF\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U98B1> \xF7\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U98C4> \xF8\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U98C7> \xF8\xFC |0 # CJK UNIFIED IDEOGRAPH
-<U98DB> \xDE\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U98DC> \xDB\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U98DF> \xE3\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U98E1> \xE1\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U98E2> \xD1\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U98ED> \xF6\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U98EE> \xEB\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U98EF> \xDA\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U98F4> \xEC\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U98FC> \xDE\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U98FD> \xF8\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U98FE> \xE3\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U9903> \xCE\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U9909> \xFA\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U990A> \xE5\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U990C> \xEC\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U9910> \xF3\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U9913> \xE4\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U9918> \xE6\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U991E> \xEF\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U9920> \xDC\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U9928> \xCE\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U9945> \xD8\xC3 |0 # CJK UNIFIED IDEOGRAPH
-<U9949> \xD0\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U994B> \xCF\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U994C> \xF3\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U994D> \xE0\xD7 |0 # CJK UNIFIED IDEOGRAPH
-<U9951> \xD1\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U9952> \xE9\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U9954> \xE8\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U9957> \xFA\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U9996> \xE2\xCF |0 # CJK UNIFIED IDEOGRAPH
-<U9999> \xFA\xC5 |0 # CJK UNIFIED IDEOGRAPH
-<U999D> \xF9\xB8 |0 # CJK UNIFIED IDEOGRAPH
-<U99A5> \xDC\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U99A8> \xFB\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U99AC> \xD8\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U99AD> \xE5\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U99AE> \xF9\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U99B1> \xF6\xEE |0 # CJK UNIFIED IDEOGRAPH
-<U99B3> \xF6\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U99B4> \xE2\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U99B9> \xEC\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U99C1> \xDA\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U99D0> \xF1\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U99D1> \xD2\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U99D2> \xCF\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U99D5> \xCA\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U99D9> \xDD\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U99DD> \xF6\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U99DF> \xDE\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U99ED> \xFA\xB4 |0 # CJK UNIFIED IDEOGRAPH
-<U99F1> \xD5\xAD |0 # CJK UNIFIED IDEOGRAPH
-<U99FF> \xF1\xE7 |0 # CJK UNIFIED IDEOGRAPH
-<U9A01> \xDE\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U9A08> \xDC\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U9A0E> \xD1\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U9A0F> \xD1\xC9 |0 # CJK UNIFIED IDEOGRAPH
-<U9A19> \xF8\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U9A2B> \xCB\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U9A30> \xD4\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U9A36> \xF5\xE2 |0 # CJK UNIFIED IDEOGRAPH
-<U9A37> \xE1\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U9A40> \xD8\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U9A43> \xF8\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U9A45> \xCF\xCC |0 # CJK UNIFIED IDEOGRAPH
-<U9A4D> \xFD\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U9A55> \xCE\xF6 |0 # CJK UNIFIED IDEOGRAPH
-<U9A57> \xFA\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U9A5A> \xCC\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U9A5B> \xE6\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U9A5F> \xF6\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U9A62> \xD5\xF0 |0 # CJK UNIFIED IDEOGRAPH
-<U9A65> \xD1\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U9A69> \xFC\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U9A6A> \xD5\xF1 |0 # CJK UNIFIED IDEOGRAPH
-<U9AA8> \xCD\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U9AB8> \xFA\xB5 |0 # CJK UNIFIED IDEOGRAPH
-<U9AD3> \xE2\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U9AD4> \xF4\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U9AD8> \xCD\xD4 |0 # CJK UNIFIED IDEOGRAPH
-<U9AE5> \xE7\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U9AEE> \xDB\xA5 |0 # CJK UNIFIED IDEOGRAPH
-<U9B1A> \xE2\xD1 |0 # CJK UNIFIED IDEOGRAPH
-<U9B27> \xD7\xA2 |0 # CJK UNIFIED IDEOGRAPH
-<U9B2A> \xF7\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U9B31> \xEA\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U9B3C> \xD0\xA1 |0 # CJK UNIFIED IDEOGRAPH
-<U9B41> \xCE\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U9B42> \xFB\xEB |0 # CJK UNIFIED IDEOGRAPH
-<U9B43> \xDB\xA6 |0 # CJK UNIFIED IDEOGRAPH
-<U9B44> \xDB\xDE |0 # CJK UNIFIED IDEOGRAPH
-<U9B45> \xD8\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U9B4F> \xEA\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U9B54> \xD8\xAA |0 # CJK UNIFIED IDEOGRAPH
-<U9B5A> \xE5\xE0 |0 # CJK UNIFIED IDEOGRAPH
-<U9B6F> \xD6\xDB |0 # CJK UNIFIED IDEOGRAPH
-<U9B8E> \xEF\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U9B91> \xF8\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U9B9F> \xE4\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U9BAB> \xCE\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U9BAE> \xE0\xD8 |0 # CJK UNIFIED IDEOGRAPH
-<U9BC9> \xD7\xEF |0 # CJK UNIFIED IDEOGRAPH
-<U9BD6> \xF4\xED |0 # CJK UNIFIED IDEOGRAPH
-<U9BE4> \xCD\xE6 |0 # CJK UNIFIED IDEOGRAPH
-<U9BE8> \xCC\xF4 |0 # CJK UNIFIED IDEOGRAPH
-<U9C0D> \xF5\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U9C10> \xE4\xCA |0 # CJK UNIFIED IDEOGRAPH
-<U9C12> \xDC\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U9C15> \xF9\xC8 |0 # CJK UNIFIED IDEOGRAPH
-<U9C25> \xFC\xBF |0 # CJK UNIFIED IDEOGRAPH
-<U9C32> \xE8\xA7 |0 # CJK UNIFIED IDEOGRAPH
-<U9C3B> \xD8\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U9C47> \xCB\xBE |0 # CJK UNIFIED IDEOGRAPH
-<U9C49> \xDC\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U9C57> \xD7\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U9CE5> \xF0\xE8 |0 # CJK UNIFIED IDEOGRAPH
-<U9CE7> \xDD\xC0 |0 # CJK UNIFIED IDEOGRAPH
-<U9CE9> \xCF\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U9CF3> \xDC\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U9CF4> \xD9\xB0 |0 # CJK UNIFIED IDEOGRAPH
-<U9CF6> \xE6\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U9D09> \xE4\xBC |0 # CJK UNIFIED IDEOGRAPH
-<U9D1B> \xEA\xC4 |0 # CJK UNIFIED IDEOGRAPH
-<U9D26> \xE4\xEC |0 # CJK UNIFIED IDEOGRAPH
-<U9D28> \xE4\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U9D3B> \xFB\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U9D51> \xCC\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U9D5D> \xE4\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U9D60> \xCD\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U9D61> \xD9\xF7 |0 # CJK UNIFIED IDEOGRAPH
-<U9D6C> \xDD\xDF |0 # CJK UNIFIED IDEOGRAPH
-<U9D72> \xED\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U9DA9> \xD9\xD0 |0 # CJK UNIFIED IDEOGRAPH
-<U9DAF> \xE5\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U9DB4> \xF9\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U9DC4> \xCD\xAE |0 # CJK UNIFIED IDEOGRAPH
-<U9DD7> \xCF\xCE |0 # CJK UNIFIED IDEOGRAPH
-<U9DF2> \xF6\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U9DF8> \xFD\xD3 |0 # CJK UNIFIED IDEOGRAPH
-<U9DF9> \xEB\xED |0 # CJK UNIFIED IDEOGRAPH
-<U9DFA> \xD6\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U9E1A> \xE5\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U9E1E> \xD5\xB6 |0 # CJK UNIFIED IDEOGRAPH
-<U9E75> \xD6\xDD |0 # CJK UNIFIED IDEOGRAPH
-<U9E79> \xF9\xE9 |0 # CJK UNIFIED IDEOGRAPH
-<U9E7D> \xE7\xA4 |0 # CJK UNIFIED IDEOGRAPH
-<U9E7F> \xD6\xE3 |0 # CJK UNIFIED IDEOGRAPH
-<U9E92> \xD1\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U9E93> \xD6\xE4 |0 # CJK UNIFIED IDEOGRAPH
-<U9E97> \xD5\xF2 |0 # CJK UNIFIED IDEOGRAPH
-<U9E9D> \xDE\xFA |0 # CJK UNIFIED IDEOGRAPH
-<U9E9F> \xD7\xF8 |0 # CJK UNIFIED IDEOGRAPH
-<U9EA5> \xD8\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U9EB4> \xCF\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U9EB5> \xD8\xFD |0 # CJK UNIFIED IDEOGRAPH
-<U9EBB> \xD8\xAB |0 # CJK UNIFIED IDEOGRAPH
-<U9EBE> \xFD\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U9EC3> \xFC\xDC |0 # CJK UNIFIED IDEOGRAPH
-<U9ECD> \xE0\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U9ECE> \xD5\xF3 |0 # CJK UNIFIED IDEOGRAPH
-<U9ED1> \xFD\xD9 |0 # CJK UNIFIED IDEOGRAPH
-<U9ED4> \xCC\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U9ED8> \xD9\xF9 |0 # CJK UNIFIED IDEOGRAPH
-<U9EDB> \xD3\xEA |0 # CJK UNIFIED IDEOGRAPH
-<U9EDC> \xF5\xF5 |0 # CJK UNIFIED IDEOGRAPH
-<U9EDE> \xEF\xC7 |0 # CJK UNIFIED IDEOGRAPH
-<U9EE8> \xD3\xDA |0 # CJK UNIFIED IDEOGRAPH
-<U9EF4> \xDA\xBD |0 # CJK UNIFIED IDEOGRAPH
-<U9F07> \xE8\xA8 |0 # CJK UNIFIED IDEOGRAPH
-<U9F08> \xDC\xAF |0 # CJK UNIFIED IDEOGRAPH
-<U9F0E> \xF0\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U9F13> \xCD\xD5 |0 # CJK UNIFIED IDEOGRAPH
-<U9F20> \xE0\xA9 |0 # CJK UNIFIED IDEOGRAPH
-<U9F3B> \xDE\xAC |0 # CJK UNIFIED IDEOGRAPH
-<U9F4A> \xF0\xBA |0 # CJK UNIFIED IDEOGRAPH
-<U9F4B> \xEE\xB1 |0 # CJK UNIFIED IDEOGRAPH
-<U9F4E> \xEE\xB2 |0 # CJK UNIFIED IDEOGRAPH
-<U9F52> \xF6\xCD |0 # CJK UNIFIED IDEOGRAPH
-<U9F5F> \xEE\xD2 |0 # CJK UNIFIED IDEOGRAPH
-<U9F61> \xD6\xC6 |0 # CJK UNIFIED IDEOGRAPH
-<U9F67> \xE0\xE5 |0 # CJK UNIFIED IDEOGRAPH
-<U9F6A> \xF3\xBB |0 # CJK UNIFIED IDEOGRAPH
-<U9F6C> \xE5\xE1 |0 # CJK UNIFIED IDEOGRAPH
-<U9F77> \xE4\xCB |0 # CJK UNIFIED IDEOGRAPH
-<U9F8D> \xD7\xA3 |0 # CJK UNIFIED IDEOGRAPH
-<U9F90> \xDB\xC2 |0 # CJK UNIFIED IDEOGRAPH
-<U9F95> \xCA\xFE |0 # CJK UNIFIED IDEOGRAPH
-<U9F9C> \xCF\xCF |0 # CJK UNIFIED IDEOGRAPH
-<UAC00> \xB0\xA1 |0 # HANGUL SYLLABLE KIYEOK A
-<UAC01> \xB0\xA2 |0 # HANGUL SYLLABLE KIYEOK A KIYEOK
-<UAC02> \x81\x41 |0 # HANGUL SYLLABLE KIYEOK A SSANGKIYEOK
-<UAC03> \x81\x42 |0 # HANGUL SYLLABLE KIYEOK A KIYEOKSIOS
-<UAC04> \xB0\xA3 |0 # HANGUL SYLLABLE KIYEOK A NIEUN
-<UAC05> \x81\x43 |0 # HANGUL SYLLABLE KIYEOK A NIEUNCIEUC
-<UAC06> \x81\x44 |0 # HANGUL SYLLABLE KIYEOK A NIEUNHIEUH
-<UAC07> \xB0\xA4 |0 # HANGUL SYLLABLE KIYEOK A TIKEUT
-<UAC08> \xB0\xA5 |0 # HANGUL SYLLABLE KIYEOK A RIEUL
-<UAC09> \xB0\xA6 |0 # HANGUL SYLLABLE KIYEOK A RIEULKIYEOK
-<UAC0A> \xB0\xA7 |0 # HANGUL SYLLABLE KIYEOK A RIEULMIEUM
-<UAC0B> \x81\x45 |0 # HANGUL SYLLABLE KIYEOK A RIEULPIEUP
-<UAC0C> \x81\x46 |0 # HANGUL SYLLABLE KIYEOK A RIEULSIOS
-<UAC0D> \x81\x47 |0 # HANGUL SYLLABLE KIYEOK A RIEULTHIEUTH
-<UAC0E> \x81\x48 |0 # HANGUL SYLLABLE KIYEOK A RIEULPHIEUPH
-<UAC0F> \x81\x49 |0 # HANGUL SYLLABLE KIYEOK A RIEULHIEUH
-<UAC10> \xB0\xA8 |0 # HANGUL SYLLABLE KIYEOK A MIEUM
-<UAC11> \xB0\xA9 |0 # HANGUL SYLLABLE KIYEOK A PIEUP
-<UAC12> \xB0\xAA |0 # HANGUL SYLLABLE KIYEOK A PIEUPSIOS
-<UAC13> \xB0\xAB |0 # HANGUL SYLLABLE KIYEOK A SIOS
-<UAC14> \xB0\xAC |0 # HANGUL SYLLABLE KIYEOK A SSANGSIOS
-<UAC15> \xB0\xAD |0 # HANGUL SYLLABLE KIYEOK A IEUNG
-<UAC16> \xB0\xAE |0 # HANGUL SYLLABLE KIYEOK A CIEUC
-<UAC17> \xB0\xAF |0 # HANGUL SYLLABLE KIYEOK A CHIEUCH
-<UAC18> \x81\x4A |0 # HANGUL SYLLABLE KIYEOK A KHIEUKH
-<UAC19> \xB0\xB0 |0 # HANGUL SYLLABLE KIYEOK A THIEUTH
-<UAC1A> \xB0\xB1 |0 # HANGUL SYLLABLE KIYEOK A PHIEUPH
-<UAC1B> \xB0\xB2 |0 # HANGUL SYLLABLE KIYEOK A HIEUH
-<UAC1C> \xB0\xB3 |0 # HANGUL SYLLABLE KIYEOK AE
-<UAC1D> \xB0\xB4 |0 # HANGUL SYLLABLE KIYEOK AE KIYEOK
-<UAC1E> \x81\x4B |0 # HANGUL SYLLABLE KIYEOK AE SSANGKIYEOK
-<UAC1F> \x81\x4C |0 # HANGUL SYLLABLE KIYEOK AE KIYEOKSIOS
-<UAC20> \xB0\xB5 |0 # HANGUL SYLLABLE KIYEOK AE NIEUN
-<UAC21> \x81\x4D |0 # HANGUL SYLLABLE KIYEOK AE NIEUNCIEUC
-<UAC22> \x81\x4E |0 # HANGUL SYLLABLE KIYEOK AE NIEUNHIEUH
-<UAC23> \x81\x4F |0 # HANGUL SYLLABLE KIYEOK AE TIKEUT
-<UAC24> \xB0\xB6 |0 # HANGUL SYLLABLE KIYEOK AE RIEUL
-<UAC25> \x81\x50 |0 # HANGUL SYLLABLE KIYEOK AE RIEULKIYEOK
-<UAC26> \x81\x51 |0 # HANGUL SYLLABLE KIYEOK AE RIEULMIEUM
-<UAC27> \x81\x52 |0 # HANGUL SYLLABLE KIYEOK AE RIEULPIEUP
-<UAC28> \x81\x53 |0 # HANGUL SYLLABLE KIYEOK AE RIEULSIOS
-<UAC29> \x81\x54 |0 # HANGUL SYLLABLE KIYEOK AE RIEULTHIEUTH
-<UAC2A> \x81\x55 |0 # HANGUL SYLLABLE KIYEOK AE RIEULPHIEUPH
-<UAC2B> \x81\x56 |0 # HANGUL SYLLABLE KIYEOK AE RIEULHIEUH
-<UAC2C> \xB0\xB7 |0 # HANGUL SYLLABLE KIYEOK AE MIEUM
-<UAC2D> \xB0\xB8 |0 # HANGUL SYLLABLE KIYEOK AE PIEUP
-<UAC2E> \x81\x57 |0 # HANGUL SYLLABLE KIYEOK AE PIEUPSIOS
-<UAC2F> \xB0\xB9 |0 # HANGUL SYLLABLE KIYEOK AE SIOS
-<UAC30> \xB0\xBA |0 # HANGUL SYLLABLE KIYEOK AE SSANGSIOS
-<UAC31> \xB0\xBB |0 # HANGUL SYLLABLE KIYEOK AE IEUNG
-<UAC32> \x81\x58 |0 # HANGUL SYLLABLE KIYEOK AE CIEUC
-<UAC33> \x81\x59 |0 # HANGUL SYLLABLE KIYEOK AE CHIEUCH
-<UAC34> \x81\x5A |0 # HANGUL SYLLABLE KIYEOK AE KHIEUKH
-<UAC35> \x81\x61 |0 # HANGUL SYLLABLE KIYEOK AE THIEUTH
-<UAC36> \x81\x62 |0 # HANGUL SYLLABLE KIYEOK AE PHIEUPH
-<UAC37> \x81\x63 |0 # HANGUL SYLLABLE KIYEOK AE HIEUH
-<UAC38> \xB0\xBC |0 # HANGUL SYLLABLE KIYEOK YA
-<UAC39> \xB0\xBD |0 # HANGUL SYLLABLE KIYEOK YA KIYEOK
-<UAC3A> \x81\x64 |0 # HANGUL SYLLABLE KIYEOK YA SSANGKIYEOK
-<UAC3B> \x81\x65 |0 # HANGUL SYLLABLE KIYEOK YA KIYEOKSIOS
-<UAC3C> \xB0\xBE |0 # HANGUL SYLLABLE KIYEOK YA NIEUN
-<UAC3D> \x81\x66 |0 # HANGUL SYLLABLE KIYEOK YA NIEUNCIEUC
-<UAC3E> \x81\x67 |0 # HANGUL SYLLABLE KIYEOK YA NIEUNHIEUH
-<UAC3F> \x81\x68 |0 # HANGUL SYLLABLE KIYEOK YA TIKEUT
-<UAC40> \xB0\xBF |0 # HANGUL SYLLABLE KIYEOK YA RIEUL
-<UAC41> \x81\x69 |0 # HANGUL SYLLABLE KIYEOK YA RIEULKIYEOK
-<UAC42> \x81\x6A |0 # HANGUL SYLLABLE KIYEOK YA RIEULMIEUM
-<UAC43> \x81\x6B |0 # HANGUL SYLLABLE KIYEOK YA RIEULPIEUP
-<UAC44> \x81\x6C |0 # HANGUL SYLLABLE KIYEOK YA RIEULSIOS
-<UAC45> \x81\x6D |0 # HANGUL SYLLABLE KIYEOK YA RIEULTHIEUTH
-<UAC46> \x81\x6E |0 # HANGUL SYLLABLE KIYEOK YA RIEULPHIEUPH
-<UAC47> \x81\x6F |0 # HANGUL SYLLABLE KIYEOK YA RIEULHIEUH
-<UAC48> \x81\x70 |0 # HANGUL SYLLABLE KIYEOK YA MIEUM
-<UAC49> \x81\x71 |0 # HANGUL SYLLABLE KIYEOK YA PIEUP
-<UAC4A> \x81\x72 |0 # HANGUL SYLLABLE KIYEOK YA PIEUPSIOS
-<UAC4B> \xB0\xC0 |0 # HANGUL SYLLABLE KIYEOK YA SIOS
-<UAC4C> \x81\x73 |0 # HANGUL SYLLABLE KIYEOK YA SSANGSIOS
-<UAC4D> \xB0\xC1 |0 # HANGUL SYLLABLE KIYEOK YA IEUNG
-<UAC4E> \x81\x74 |0 # HANGUL SYLLABLE KIYEOK YA CIEUC
-<UAC4F> \x81\x75 |0 # HANGUL SYLLABLE KIYEOK YA CHIEUCH
-<UAC50> \x81\x76 |0 # HANGUL SYLLABLE KIYEOK YA KHIEUKH
-<UAC51> \x81\x77 |0 # HANGUL SYLLABLE KIYEOK YA THIEUTH
-<UAC52> \x81\x78 |0 # HANGUL SYLLABLE KIYEOK YA PHIEUPH
-<UAC53> \x81\x79 |0 # HANGUL SYLLABLE KIYEOK YA HIEUH
-<UAC54> \xB0\xC2 |0 # HANGUL SYLLABLE KIYEOK YAE
-<UAC55> \x81\x7A |0 # HANGUL SYLLABLE KIYEOK YAE KIYEOK
-<UAC56> \x81\x81 |0 # HANGUL SYLLABLE KIYEOK YAE SSANGKIYEOK
-<UAC57> \x81\x82 |0 # HANGUL SYLLABLE KIYEOK YAE KIYEOKSIOS
-<UAC58> \xB0\xC3 |0 # HANGUL SYLLABLE KIYEOK YAE NIEUN
-<UAC59> \x81\x83 |0 # HANGUL SYLLABLE KIYEOK YAE NIEUNCIEUC
-<UAC5A> \x81\x84 |0 # HANGUL SYLLABLE KIYEOK YAE NIEUNHIEUH
-<UAC5B> \x81\x85 |0 # HANGUL SYLLABLE KIYEOK YAE TIKEUT
-<UAC5C> \xB0\xC4 |0 # HANGUL SYLLABLE KIYEOK YAE RIEUL
-<UAC5D> \x81\x86 |0 # HANGUL SYLLABLE KIYEOK YAE RIEULKIYEOK
-<UAC5E> \x81\x87 |0 # HANGUL SYLLABLE KIYEOK YAE RIEULMIEUM
-<UAC5F> \x81\x88 |0 # HANGUL SYLLABLE KIYEOK YAE RIEULPIEUP
-<UAC60> \x81\x89 |0 # HANGUL SYLLABLE KIYEOK YAE RIEULSIOS
-<UAC61> \x81\x8A |0 # HANGUL SYLLABLE KIYEOK YAE RIEULTHIEUTH
-<UAC62> \x81\x8B |0 # HANGUL SYLLABLE KIYEOK YAE RIEULPHIEUPH
-<UAC63> \x81\x8C |0 # HANGUL SYLLABLE KIYEOK YAE RIEULHIEUH
-<UAC64> \x81\x8D |0 # HANGUL SYLLABLE KIYEOK YAE MIEUM
-<UAC65> \x81\x8E |0 # HANGUL SYLLABLE KIYEOK YAE PIEUP
-<UAC66> \x81\x8F |0 # HANGUL SYLLABLE KIYEOK YAE PIEUPSIOS
-<UAC67> \x81\x90 |0 # HANGUL SYLLABLE KIYEOK YAE SIOS
-<UAC68> \x81\x91 |0 # HANGUL SYLLABLE KIYEOK YAE SSANGSIOS
-<UAC69> \x81\x92 |0 # HANGUL SYLLABLE KIYEOK YAE IEUNG
-<UAC6A> \x81\x93 |0 # HANGUL SYLLABLE KIYEOK YAE CIEUC
-<UAC6B> \x81\x94 |0 # HANGUL SYLLABLE KIYEOK YAE CHIEUCH
-<UAC6C> \x81\x95 |0 # HANGUL SYLLABLE KIYEOK YAE KHIEUKH
-<UAC6D> \x81\x96 |0 # HANGUL SYLLABLE KIYEOK YAE THIEUTH
-<UAC6E> \x81\x97 |0 # HANGUL SYLLABLE KIYEOK YAE PHIEUPH
-<UAC6F> \x81\x98 |0 # HANGUL SYLLABLE KIYEOK YAE HIEUH
-<UAC70> \xB0\xC5 |0 # HANGUL SYLLABLE KIYEOK EO
-<UAC71> \xB0\xC6 |0 # HANGUL SYLLABLE KIYEOK EO KIYEOK
-<UAC72> \x81\x99 |0 # HANGUL SYLLABLE KIYEOK EO SSANGKIYEOK
-<UAC73> \x81\x9A |0 # HANGUL SYLLABLE KIYEOK EO KIYEOKSIOS
-<UAC74> \xB0\xC7 |0 # HANGUL SYLLABLE KIYEOK EO NIEUN
-<UAC75> \x81\x9B |0 # HANGUL SYLLABLE KIYEOK EO NIEUNCIEUC
-<UAC76> \x81\x9C |0 # HANGUL SYLLABLE KIYEOK EO NIEUNHIEUH
-<UAC77> \xB0\xC8 |0 # HANGUL SYLLABLE KIYEOK EO TIKEUT
-<UAC78> \xB0\xC9 |0 # HANGUL SYLLABLE KIYEOK EO RIEUL
-<UAC79> \x81\x9D |0 # HANGUL SYLLABLE KIYEOK EO RIEULKIYEOK
-<UAC7A> \xB0\xCA |0 # HANGUL SYLLABLE KIYEOK EO RIEULMIEUM
-<UAC7B> \x81\x9E |0 # HANGUL SYLLABLE KIYEOK EO RIEULPIEUP
-<UAC7C> \x81\x9F |0 # HANGUL SYLLABLE KIYEOK EO RIEULSIOS
-<UAC7D> \x81\xA0 |0 # HANGUL SYLLABLE KIYEOK EO RIEULTHIEUTH
-<UAC7E> \x81\xA1 |0 # HANGUL SYLLABLE KIYEOK EO RIEULPHIEUPH
-<UAC7F> \x81\xA2 |0 # HANGUL SYLLABLE KIYEOK EO RIEULHIEUH
-<UAC80> \xB0\xCB |0 # HANGUL SYLLABLE KIYEOK EO MIEUM
-<UAC81> \xB0\xCC |0 # HANGUL SYLLABLE KIYEOK EO PIEUP
-<UAC82> \x81\xA3 |0 # HANGUL SYLLABLE KIYEOK EO PIEUPSIOS
-<UAC83> \xB0\xCD |0 # HANGUL SYLLABLE KIYEOK EO SIOS
-<UAC84> \xB0\xCE |0 # HANGUL SYLLABLE KIYEOK EO SSANGSIOS
-<UAC85> \xB0\xCF |0 # HANGUL SYLLABLE KIYEOK EO IEUNG
-<UAC86> \xB0\xD0 |0 # HANGUL SYLLABLE KIYEOK EO CIEUC
-<UAC87> \x81\xA4 |0 # HANGUL SYLLABLE KIYEOK EO CHIEUCH
-<UAC88> \x81\xA5 |0 # HANGUL SYLLABLE KIYEOK EO KHIEUKH
-<UAC89> \xB0\xD1 |0 # HANGUL SYLLABLE KIYEOK EO THIEUTH
-<UAC8A> \xB0\xD2 |0 # HANGUL SYLLABLE KIYEOK EO PHIEUPH
-<UAC8B> \xB0\xD3 |0 # HANGUL SYLLABLE KIYEOK EO HIEUH
-<UAC8C> \xB0\xD4 |0 # HANGUL SYLLABLE KIYEOK E
-<UAC8D> \x81\xA6 |0 # HANGUL SYLLABLE KIYEOK E KIYEOK
-<UAC8E> \x81\xA7 |0 # HANGUL SYLLABLE KIYEOK E SSANGKIYEOK
-<UAC8F> \x81\xA8 |0 # HANGUL SYLLABLE KIYEOK E KIYEOKSIOS
-<UAC90> \xB0\xD5 |0 # HANGUL SYLLABLE KIYEOK E NIEUN
-<UAC91> \x81\xA9 |0 # HANGUL SYLLABLE KIYEOK E NIEUNCIEUC
-<UAC92> \x81\xAA |0 # HANGUL SYLLABLE KIYEOK E NIEUNHIEUH
-<UAC93> \x81\xAB |0 # HANGUL SYLLABLE KIYEOK E TIKEUT
-<UAC94> \xB0\xD6 |0 # HANGUL SYLLABLE KIYEOK E RIEUL
-<UAC95> \x81\xAC |0 # HANGUL SYLLABLE KIYEOK E RIEULKIYEOK
-<UAC96> \x81\xAD |0 # HANGUL SYLLABLE KIYEOK E RIEULMIEUM
-<UAC97> \x81\xAE |0 # HANGUL SYLLABLE KIYEOK E RIEULPIEUP
-<UAC98> \x81\xAF |0 # HANGUL SYLLABLE KIYEOK E RIEULSIOS
-<UAC99> \x81\xB0 |0 # HANGUL SYLLABLE KIYEOK E RIEULTHIEUTH
-<UAC9A> \x81\xB1 |0 # HANGUL SYLLABLE KIYEOK E RIEULPHIEUPH
-<UAC9B> \x81\xB2 |0 # HANGUL SYLLABLE KIYEOK E RIEULHIEUH
-<UAC9C> \xB0\xD7 |0 # HANGUL SYLLABLE KIYEOK E MIEUM
-<UAC9D> \xB0\xD8 |0 # HANGUL SYLLABLE KIYEOK E PIEUP
-<UAC9E> \x81\xB3 |0 # HANGUL SYLLABLE KIYEOK E PIEUPSIOS
-<UAC9F> \xB0\xD9 |0 # HANGUL SYLLABLE KIYEOK E SIOS
-<UACA0> \xB0\xDA |0 # HANGUL SYLLABLE KIYEOK E SSANGSIOS
-<UACA1> \xB0\xDB |0 # HANGUL SYLLABLE KIYEOK E IEUNG
-<UACA2> \x81\xB4 |0 # HANGUL SYLLABLE KIYEOK E CIEUC
-<UACA3> \x81\xB5 |0 # HANGUL SYLLABLE KIYEOK E CHIEUCH
-<UACA4> \x81\xB6 |0 # HANGUL SYLLABLE KIYEOK E KHIEUKH
-<UACA5> \x81\xB7 |0 # HANGUL SYLLABLE KIYEOK E THIEUTH
-<UACA6> \x81\xB8 |0 # HANGUL SYLLABLE KIYEOK E PHIEUPH
-<UACA7> \x81\xB9 |0 # HANGUL SYLLABLE KIYEOK E HIEUH
-<UACA8> \xB0\xDC |0 # HANGUL SYLLABLE KIYEOK YEO
-<UACA9> \xB0\xDD |0 # HANGUL SYLLABLE KIYEOK YEO KIYEOK
-<UACAA> \xB0\xDE |0 # HANGUL SYLLABLE KIYEOK YEO SSANGKIYEOK
-<UACAB> \x81\xBA |0 # HANGUL SYLLABLE KIYEOK YEO KIYEOKSIOS
-<UACAC> \xB0\xDF |0 # HANGUL SYLLABLE KIYEOK YEO NIEUN
-<UACAD> \x81\xBB |0 # HANGUL SYLLABLE KIYEOK YEO NIEUNCIEUC
-<UACAE> \x81\xBC |0 # HANGUL SYLLABLE KIYEOK YEO NIEUNHIEUH
-<UACAF> \xB0\xE0 |0 # HANGUL SYLLABLE KIYEOK YEO TIKEUT
-<UACB0> \xB0\xE1 |0 # HANGUL SYLLABLE KIYEOK YEO RIEUL
-<UACB1> \x81\xBD |0 # HANGUL SYLLABLE KIYEOK YEO RIEULKIYEOK
-<UACB2> \x81\xBE |0 # HANGUL SYLLABLE KIYEOK YEO RIEULMIEUM
-<UACB3> \x81\xBF |0 # HANGUL SYLLABLE KIYEOK YEO RIEULPIEUP
-<UACB4> \x81\xC0 |0 # HANGUL SYLLABLE KIYEOK YEO RIEULSIOS
-<UACB5> \x81\xC1 |0 # HANGUL SYLLABLE KIYEOK YEO RIEULTHIEUTH
-<UACB6> \x81\xC2 |0 # HANGUL SYLLABLE KIYEOK YEO RIEULPHIEUPH
-<UACB7> \x81\xC3 |0 # HANGUL SYLLABLE KIYEOK YEO RIEULHIEUH
-<UACB8> \xB0\xE2 |0 # HANGUL SYLLABLE KIYEOK YEO MIEUM
-<UACB9> \xB0\xE3 |0 # HANGUL SYLLABLE KIYEOK YEO PIEUP
-<UACBA> \x81\xC4 |0 # HANGUL SYLLABLE KIYEOK YEO PIEUPSIOS
-<UACBB> \xB0\xE4 |0 # HANGUL SYLLABLE KIYEOK YEO SIOS
-<UACBC> \xB0\xE5 |0 # HANGUL SYLLABLE KIYEOK YEO SSANGSIOS
-<UACBD> \xB0\xE6 |0 # HANGUL SYLLABLE KIYEOK YEO IEUNG
-<UACBE> \x81\xC5 |0 # HANGUL SYLLABLE KIYEOK YEO CIEUC
-<UACBF> \x81\xC6 |0 # HANGUL SYLLABLE KIYEOK YEO CHIEUCH
-<UACC0> \x81\xC7 |0 # HANGUL SYLLABLE KIYEOK YEO KHIEUKH
-<UACC1> \xB0\xE7 |0 # HANGUL SYLLABLE KIYEOK YEO THIEUTH
-<UACC2> \x81\xC8 |0 # HANGUL SYLLABLE KIYEOK YEO PHIEUPH
-<UACC3> \x81\xC9 |0 # HANGUL SYLLABLE KIYEOK YEO HIEUH
-<UACC4> \xB0\xE8 |0 # HANGUL SYLLABLE KIYEOK YE
-<UACC5> \x81\xCA |0 # HANGUL SYLLABLE KIYEOK YE KIYEOK
-<UACC6> \x81\xCB |0 # HANGUL SYLLABLE KIYEOK YE SSANGKIYEOK
-<UACC7> \x81\xCC |0 # HANGUL SYLLABLE KIYEOK YE KIYEOKSIOS
-<UACC8> \xB0\xE9 |0 # HANGUL SYLLABLE KIYEOK YE NIEUN
-<UACC9> \x81\xCD |0 # HANGUL SYLLABLE KIYEOK YE NIEUNCIEUC
-<UACCA> \x81\xCE |0 # HANGUL SYLLABLE KIYEOK YE NIEUNHIEUH
-<UACCB> \x81\xCF |0 # HANGUL SYLLABLE KIYEOK YE TIKEUT
-<UACCC> \xB0\xEA |0 # HANGUL SYLLABLE KIYEOK YE RIEUL
-<UACCD> \x81\xD0 |0 # HANGUL SYLLABLE KIYEOK YE RIEULKIYEOK
-<UACCE> \x81\xD1 |0 # HANGUL SYLLABLE KIYEOK YE RIEULMIEUM
-<UACCF> \x81\xD2 |0 # HANGUL SYLLABLE KIYEOK YE RIEULPIEUP
-<UACD0> \x81\xD3 |0 # HANGUL SYLLABLE KIYEOK YE RIEULSIOS
-<UACD1> \x81\xD4 |0 # HANGUL SYLLABLE KIYEOK YE RIEULTHIEUTH
-<UACD2> \x81\xD5 |0 # HANGUL SYLLABLE KIYEOK YE RIEULPHIEUPH
-<UACD3> \x81\xD6 |0 # HANGUL SYLLABLE KIYEOK YE RIEULHIEUH
-<UACD4> \x81\xD7 |0 # HANGUL SYLLABLE KIYEOK YE MIEUM
-<UACD5> \xB0\xEB |0 # HANGUL SYLLABLE KIYEOK YE PIEUP
-<UACD6> \x81\xD8 |0 # HANGUL SYLLABLE KIYEOK YE PIEUPSIOS
-<UACD7> \xB0\xEC |0 # HANGUL SYLLABLE KIYEOK YE SIOS
-<UACD8> \x81\xD9 |0 # HANGUL SYLLABLE KIYEOK YE SSANGSIOS
-<UACD9> \x81\xDA |0 # HANGUL SYLLABLE KIYEOK YE IEUNG
-<UACDA> \x81\xDB |0 # HANGUL SYLLABLE KIYEOK YE CIEUC
-<UACDB> \x81\xDC |0 # HANGUL SYLLABLE KIYEOK YE CHIEUCH
-<UACDC> \x81\xDD |0 # HANGUL SYLLABLE KIYEOK YE KHIEUKH
-<UACDD> \x81\xDE |0 # HANGUL SYLLABLE KIYEOK YE THIEUTH
-<UACDE> \x81\xDF |0 # HANGUL SYLLABLE KIYEOK YE PHIEUPH
-<UACDF> \x81\xE0 |0 # HANGUL SYLLABLE KIYEOK YE HIEUH
-<UACE0> \xB0\xED |0 # HANGUL SYLLABLE KIYEOK O
-<UACE1> \xB0\xEE |0 # HANGUL SYLLABLE KIYEOK O KIYEOK
-<UACE2> \x81\xE1 |0 # HANGUL SYLLABLE KIYEOK O SSANGKIYEOK
-<UACE3> \x81\xE2 |0 # HANGUL SYLLABLE KIYEOK O KIYEOKSIOS
-<UACE4> \xB0\xEF |0 # HANGUL SYLLABLE KIYEOK O NIEUN
-<UACE5> \x81\xE3 |0 # HANGUL SYLLABLE KIYEOK O NIEUNCIEUC
-<UACE6> \x81\xE4 |0 # HANGUL SYLLABLE KIYEOK O NIEUNHIEUH
-<UACE7> \xB0\xF0 |0 # HANGUL SYLLABLE KIYEOK O TIKEUT
-<UACE8> \xB0\xF1 |0 # HANGUL SYLLABLE KIYEOK O RIEUL
-<UACE9> \x81\xE5 |0 # HANGUL SYLLABLE KIYEOK O RIEULKIYEOK
-<UACEA> \xB0\xF2 |0 # HANGUL SYLLABLE KIYEOK O RIEULMIEUM
-<UACEB> \x81\xE6 |0 # HANGUL SYLLABLE KIYEOK O RIEULPIEUP
-<UACEC> \xB0\xF3 |0 # HANGUL SYLLABLE KIYEOK O RIEULSIOS
-<UACED> \x81\xE7 |0 # HANGUL SYLLABLE KIYEOK O RIEULTHIEUTH
-<UACEE> \x81\xE8 |0 # HANGUL SYLLABLE KIYEOK O RIEULPHIEUPH
-<UACEF> \xB0\xF4 |0 # HANGUL SYLLABLE KIYEOK O RIEULHIEUH
-<UACF0> \xB0\xF5 |0 # HANGUL SYLLABLE KIYEOK O MIEUM
-<UACF1> \xB0\xF6 |0 # HANGUL SYLLABLE KIYEOK O PIEUP
-<UACF2> \x81\xE9 |0 # HANGUL SYLLABLE KIYEOK O PIEUPSIOS
-<UACF3> \xB0\xF7 |0 # HANGUL SYLLABLE KIYEOK O SIOS
-<UACF4> \x81\xEA |0 # HANGUL SYLLABLE KIYEOK O SSANGSIOS
-<UACF5> \xB0\xF8 |0 # HANGUL SYLLABLE KIYEOK O IEUNG
-<UACF6> \xB0\xF9 |0 # HANGUL SYLLABLE KIYEOK O CIEUC
-<UACF7> \x81\xEB |0 # HANGUL SYLLABLE KIYEOK O CHIEUCH
-<UACF8> \x81\xEC |0 # HANGUL SYLLABLE KIYEOK O KHIEUKH
-<UACF9> \x81\xED |0 # HANGUL SYLLABLE KIYEOK O THIEUTH
-<UACFA> \x81\xEE |0 # HANGUL SYLLABLE KIYEOK O PHIEUPH
-<UACFB> \x81\xEF |0 # HANGUL SYLLABLE KIYEOK O HIEUH
-<UACFC> \xB0\xFA |0 # HANGUL SYLLABLE KIYEOK WA
-<UACFD> \xB0\xFB |0 # HANGUL SYLLABLE KIYEOK WA KIYEOK
-<UACFE> \x81\xF0 |0 # HANGUL SYLLABLE KIYEOK WA SSANGKIYEOK
-<UACFF> \x81\xF1 |0 # HANGUL SYLLABLE KIYEOK WA KIYEOKSIOS
-<UAD00> \xB0\xFC |0 # HANGUL SYLLABLE KIYEOK WA NIEUN
-<UAD01> \x81\xF2 |0 # HANGUL SYLLABLE KIYEOK WA NIEUNCIEUC
-<UAD02> \x81\xF3 |0 # HANGUL SYLLABLE KIYEOK WA NIEUNHIEUH
-<UAD03> \x81\xF4 |0 # HANGUL SYLLABLE KIYEOK WA TIKEUT
-<UAD04> \xB0\xFD |0 # HANGUL SYLLABLE KIYEOK WA RIEUL
-<UAD05> \x81\xF5 |0 # HANGUL SYLLABLE KIYEOK WA RIEULKIYEOK
-<UAD06> \xB0\xFE |0 # HANGUL SYLLABLE KIYEOK WA RIEULMIEUM
-<UAD07> \x81\xF6 |0 # HANGUL SYLLABLE KIYEOK WA RIEULPIEUP
-<UAD08> \x81\xF7 |0 # HANGUL SYLLABLE KIYEOK WA RIEULSIOS
-<UAD09> \x81\xF8 |0 # HANGUL SYLLABLE KIYEOK WA RIEULTHIEUTH
-<UAD0A> \x81\xF9 |0 # HANGUL SYLLABLE KIYEOK WA RIEULPHIEUPH
-<UAD0B> \x81\xFA |0 # HANGUL SYLLABLE KIYEOK WA RIEULHIEUH
-<UAD0C> \xB1\xA1 |0 # HANGUL SYLLABLE KIYEOK WA MIEUM
-<UAD0D> \xB1\xA2 |0 # HANGUL SYLLABLE KIYEOK WA PIEUP
-<UAD0E> \x81\xFB |0 # HANGUL SYLLABLE KIYEOK WA PIEUPSIOS
-<UAD0F> \xB1\xA3 |0 # HANGUL SYLLABLE KIYEOK WA SIOS
-<UAD10> \x81\xFC |0 # HANGUL SYLLABLE KIYEOK WA SSANGSIOS
-<UAD11> \xB1\xA4 |0 # HANGUL SYLLABLE KIYEOK WA IEUNG
-<UAD12> \x81\xFD |0 # HANGUL SYLLABLE KIYEOK WA CIEUC
-<UAD13> \x81\xFE |0 # HANGUL SYLLABLE KIYEOK WA CHIEUCH
-<UAD14> \x82\x41 |0 # HANGUL SYLLABLE KIYEOK WA KHIEUKH
-<UAD15> \x82\x42 |0 # HANGUL SYLLABLE KIYEOK WA THIEUTH
-<UAD16> \x82\x43 |0 # HANGUL SYLLABLE KIYEOK WA PHIEUPH
-<UAD17> \x82\x44 |0 # HANGUL SYLLABLE KIYEOK WA HIEUH
-<UAD18> \xB1\xA5 |0 # HANGUL SYLLABLE KIYEOK WAE
-<UAD19> \x82\x45 |0 # HANGUL SYLLABLE KIYEOK WAE KIYEOK
-<UAD1A> \x82\x46 |0 # HANGUL SYLLABLE KIYEOK WAE SSANGKIYEOK
-<UAD1B> \x82\x47 |0 # HANGUL SYLLABLE KIYEOK WAE KIYEOKSIOS
-<UAD1C> \xB1\xA6 |0 # HANGUL SYLLABLE KIYEOK WAE NIEUN
-<UAD1D> \x82\x48 |0 # HANGUL SYLLABLE KIYEOK WAE NIEUNCIEUC
-<UAD1E> \x82\x49 |0 # HANGUL SYLLABLE KIYEOK WAE NIEUNHIEUH
-<UAD1F> \x82\x4A |0 # HANGUL SYLLABLE KIYEOK WAE TIKEUT
-<UAD20> \xB1\xA7 |0 # HANGUL SYLLABLE KIYEOK WAE RIEUL
-<UAD21> \x82\x4B |0 # HANGUL SYLLABLE KIYEOK WAE RIEULKIYEOK
-<UAD22> \x82\x4C |0 # HANGUL SYLLABLE KIYEOK WAE RIEULMIEUM
-<UAD23> \x82\x4D |0 # HANGUL SYLLABLE KIYEOK WAE RIEULPIEUP
-<UAD24> \x82\x4E |0 # HANGUL SYLLABLE KIYEOK WAE RIEULSIOS
-<UAD25> \x82\x4F |0 # HANGUL SYLLABLE KIYEOK WAE RIEULTHIEUTH
-<UAD26> \x82\x50 |0 # HANGUL SYLLABLE KIYEOK WAE RIEULPHIEUPH
-<UAD27> \x82\x51 |0 # HANGUL SYLLABLE KIYEOK WAE RIEULHIEUH
-<UAD28> \x82\x52 |0 # HANGUL SYLLABLE KIYEOK WAE MIEUM
-<UAD29> \xB1\xA8 |0 # HANGUL SYLLABLE KIYEOK WAE PIEUP
-<UAD2A> \x82\x53 |0 # HANGUL SYLLABLE KIYEOK WAE PIEUPSIOS
-<UAD2B> \x82\x54 |0 # HANGUL SYLLABLE KIYEOK WAE SIOS
-<UAD2C> \xB1\xA9 |0 # HANGUL SYLLABLE KIYEOK WAE SSANGSIOS
-<UAD2D> \xB1\xAA |0 # HANGUL SYLLABLE KIYEOK WAE IEUNG
-<UAD2E> \x82\x55 |0 # HANGUL SYLLABLE KIYEOK WAE CIEUC
-<UAD2F> \x82\x56 |0 # HANGUL SYLLABLE KIYEOK WAE CHIEUCH
-<UAD30> \x82\x57 |0 # HANGUL SYLLABLE KIYEOK WAE KHIEUKH
-<UAD31> \x82\x58 |0 # HANGUL SYLLABLE KIYEOK WAE THIEUTH
-<UAD32> \x82\x59 |0 # HANGUL SYLLABLE KIYEOK WAE PHIEUPH
-<UAD33> \x82\x5A |0 # HANGUL SYLLABLE KIYEOK WAE HIEUH
-<UAD34> \xB1\xAB |0 # HANGUL SYLLABLE KIYEOK OE
-<UAD35> \xB1\xAC |0 # HANGUL SYLLABLE KIYEOK OE KIYEOK
-<UAD36> \x82\x61 |0 # HANGUL SYLLABLE KIYEOK OE SSANGKIYEOK
-<UAD37> \x82\x62 |0 # HANGUL SYLLABLE KIYEOK OE KIYEOKSIOS
-<UAD38> \xB1\xAD |0 # HANGUL SYLLABLE KIYEOK OE NIEUN
-<UAD39> \x82\x63 |0 # HANGUL SYLLABLE KIYEOK OE NIEUNCIEUC
-<UAD3A> \x82\x64 |0 # HANGUL SYLLABLE KIYEOK OE NIEUNHIEUH
-<UAD3B> \x82\x65 |0 # HANGUL SYLLABLE KIYEOK OE TIKEUT
-<UAD3C> \xB1\xAE |0 # HANGUL SYLLABLE KIYEOK OE RIEUL
-<UAD3D> \x82\x66 |0 # HANGUL SYLLABLE KIYEOK OE RIEULKIYEOK
-<UAD3E> \x82\x67 |0 # HANGUL SYLLABLE KIYEOK OE RIEULMIEUM
-<UAD3F> \x82\x68 |0 # HANGUL SYLLABLE KIYEOK OE RIEULPIEUP
-<UAD40> \x82\x69 |0 # HANGUL SYLLABLE KIYEOK OE RIEULSIOS
-<UAD41> \x82\x6A |0 # HANGUL SYLLABLE KIYEOK OE RIEULTHIEUTH
-<UAD42> \x82\x6B |0 # HANGUL SYLLABLE KIYEOK OE RIEULPHIEUPH
-<UAD43> \x82\x6C |0 # HANGUL SYLLABLE KIYEOK OE RIEULHIEUH
-<UAD44> \xB1\xAF |0 # HANGUL SYLLABLE KIYEOK OE MIEUM
-<UAD45> \xB1\xB0 |0 # HANGUL SYLLABLE KIYEOK OE PIEUP
-<UAD46> \x82\x6D |0 # HANGUL SYLLABLE KIYEOK OE PIEUPSIOS
-<UAD47> \xB1\xB1 |0 # HANGUL SYLLABLE KIYEOK OE SIOS
-<UAD48> \x82\x6E |0 # HANGUL SYLLABLE KIYEOK OE SSANGSIOS
-<UAD49> \xB1\xB2 |0 # HANGUL SYLLABLE KIYEOK OE IEUNG
-<UAD4A> \x82\x6F |0 # HANGUL SYLLABLE KIYEOK OE CIEUC
-<UAD4B> \x82\x70 |0 # HANGUL SYLLABLE KIYEOK OE CHIEUCH
-<UAD4C> \x82\x71 |0 # HANGUL SYLLABLE KIYEOK OE KHIEUKH
-<UAD4D> \x82\x72 |0 # HANGUL SYLLABLE KIYEOK OE THIEUTH
-<UAD4E> \x82\x73 |0 # HANGUL SYLLABLE KIYEOK OE PHIEUPH
-<UAD4F> \x82\x74 |0 # HANGUL SYLLABLE KIYEOK OE HIEUH
-<UAD50> \xB1\xB3 |0 # HANGUL SYLLABLE KIYEOK YO
-<UAD51> \x82\x75 |0 # HANGUL SYLLABLE KIYEOK YO KIYEOK
-<UAD52> \x82\x76 |0 # HANGUL SYLLABLE KIYEOK YO SSANGKIYEOK
-<UAD53> \x82\x77 |0 # HANGUL SYLLABLE KIYEOK YO KIYEOKSIOS
-<UAD54> \xB1\xB4 |0 # HANGUL SYLLABLE KIYEOK YO NIEUN
-<UAD55> \x82\x78 |0 # HANGUL SYLLABLE KIYEOK YO NIEUNCIEUC
-<UAD56> \x82\x79 |0 # HANGUL SYLLABLE KIYEOK YO NIEUNHIEUH
-<UAD57> \x82\x7A |0 # HANGUL SYLLABLE KIYEOK YO TIKEUT
-<UAD58> \xB1\xB5 |0 # HANGUL SYLLABLE KIYEOK YO RIEUL
-<UAD59> \x82\x81 |0 # HANGUL SYLLABLE KIYEOK YO RIEULKIYEOK
-<UAD5A> \x82\x82 |0 # HANGUL SYLLABLE KIYEOK YO RIEULMIEUM
-<UAD5B> \x82\x83 |0 # HANGUL SYLLABLE KIYEOK YO RIEULPIEUP
-<UAD5C> \x82\x84 |0 # HANGUL SYLLABLE KIYEOK YO RIEULSIOS
-<UAD5D> \x82\x85 |0 # HANGUL SYLLABLE KIYEOK YO RIEULTHIEUTH
-<UAD5E> \x82\x86 |0 # HANGUL SYLLABLE KIYEOK YO RIEULPHIEUPH
-<UAD5F> \x82\x87 |0 # HANGUL SYLLABLE KIYEOK YO RIEULHIEUH
-<UAD60> \x82\x88 |0 # HANGUL SYLLABLE KIYEOK YO MIEUM
-<UAD61> \xB1\xB6 |0 # HANGUL SYLLABLE KIYEOK YO PIEUP
-<UAD62> \x82\x89 |0 # HANGUL SYLLABLE KIYEOK YO PIEUPSIOS
-<UAD63> \xB1\xB7 |0 # HANGUL SYLLABLE KIYEOK YO SIOS
-<UAD64> \x82\x8A |0 # HANGUL SYLLABLE KIYEOK YO SSANGSIOS
-<UAD65> \x82\x8B |0 # HANGUL SYLLABLE KIYEOK YO IEUNG
-<UAD66> \x82\x8C |0 # HANGUL SYLLABLE KIYEOK YO CIEUC
-<UAD67> \x82\x8D |0 # HANGUL SYLLABLE KIYEOK YO CHIEUCH
-<UAD68> \x82\x8E |0 # HANGUL SYLLABLE KIYEOK YO KHIEUKH
-<UAD69> \x82\x8F |0 # HANGUL SYLLABLE KIYEOK YO THIEUTH
-<UAD6A> \x82\x90 |0 # HANGUL SYLLABLE KIYEOK YO PHIEUPH
-<UAD6B> \x82\x91 |0 # HANGUL SYLLABLE KIYEOK YO HIEUH
-<UAD6C> \xB1\xB8 |0 # HANGUL SYLLABLE KIYEOK U
-<UAD6D> \xB1\xB9 |0 # HANGUL SYLLABLE KIYEOK U KIYEOK
-<UAD6E> \x82\x92 |0 # HANGUL SYLLABLE KIYEOK U SSANGKIYEOK
-<UAD6F> \x82\x93 |0 # HANGUL SYLLABLE KIYEOK U KIYEOKSIOS
-<UAD70> \xB1\xBA |0 # HANGUL SYLLABLE KIYEOK U NIEUN
-<UAD71> \x82\x94 |0 # HANGUL SYLLABLE KIYEOK U NIEUNCIEUC
-<UAD72> \x82\x95 |0 # HANGUL SYLLABLE KIYEOK U NIEUNHIEUH
-<UAD73> \xB1\xBB |0 # HANGUL SYLLABLE KIYEOK U TIKEUT
-<UAD74> \xB1\xBC |0 # HANGUL SYLLABLE KIYEOK U RIEUL
-<UAD75> \xB1\xBD |0 # HANGUL SYLLABLE KIYEOK U RIEULKIYEOK
-<UAD76> \xB1\xBE |0 # HANGUL SYLLABLE KIYEOK U RIEULMIEUM
-<UAD77> \x82\x96 |0 # HANGUL SYLLABLE KIYEOK U RIEULPIEUP
-<UAD78> \x82\x97 |0 # HANGUL SYLLABLE KIYEOK U RIEULSIOS
-<UAD79> \x82\x98 |0 # HANGUL SYLLABLE KIYEOK U RIEULTHIEUTH
-<UAD7A> \x82\x99 |0 # HANGUL SYLLABLE KIYEOK U RIEULPHIEUPH
-<UAD7B> \xB1\xBF |0 # HANGUL SYLLABLE KIYEOK U RIEULHIEUH
-<UAD7C> \xB1\xC0 |0 # HANGUL SYLLABLE KIYEOK U MIEUM
-<UAD7D> \xB1\xC1 |0 # HANGUL SYLLABLE KIYEOK U PIEUP
-<UAD7E> \x82\x9A |0 # HANGUL SYLLABLE KIYEOK U PIEUPSIOS
-<UAD7F> \xB1\xC2 |0 # HANGUL SYLLABLE KIYEOK U SIOS
-<UAD80> \x82\x9B |0 # HANGUL SYLLABLE KIYEOK U SSANGSIOS
-<UAD81> \xB1\xC3 |0 # HANGUL SYLLABLE KIYEOK U IEUNG
-<UAD82> \xB1\xC4 |0 # HANGUL SYLLABLE KIYEOK U CIEUC
-<UAD83> \x82\x9C |0 # HANGUL SYLLABLE KIYEOK U CHIEUCH
-<UAD84> \x82\x9D |0 # HANGUL SYLLABLE KIYEOK U KHIEUKH
-<UAD85> \x82\x9E |0 # HANGUL SYLLABLE KIYEOK U THIEUTH
-<UAD86> \x82\x9F |0 # HANGUL SYLLABLE KIYEOK U PHIEUPH
-<UAD87> \x82\xA0 |0 # HANGUL SYLLABLE KIYEOK U HIEUH
-<UAD88> \xB1\xC5 |0 # HANGUL SYLLABLE KIYEOK WEO
-<UAD89> \xB1\xC6 |0 # HANGUL SYLLABLE KIYEOK WEO KIYEOK
-<UAD8A> \x82\xA1 |0 # HANGUL SYLLABLE KIYEOK WEO SSANGKIYEOK
-<UAD8B> \x82\xA2 |0 # HANGUL SYLLABLE KIYEOK WEO KIYEOKSIOS
-<UAD8C> \xB1\xC7 |0 # HANGUL SYLLABLE KIYEOK WEO NIEUN
-<UAD8D> \x82\xA3 |0 # HANGUL SYLLABLE KIYEOK WEO NIEUNCIEUC
-<UAD8E> \x82\xA4 |0 # HANGUL SYLLABLE KIYEOK WEO NIEUNHIEUH
-<UAD8F> \x82\xA5 |0 # HANGUL SYLLABLE KIYEOK WEO TIKEUT
-<UAD90> \xB1\xC8 |0 # HANGUL SYLLABLE KIYEOK WEO RIEUL
-<UAD91> \x82\xA6 |0 # HANGUL SYLLABLE KIYEOK WEO RIEULKIYEOK
-<UAD92> \x82\xA7 |0 # HANGUL SYLLABLE KIYEOK WEO RIEULMIEUM
-<UAD93> \x82\xA8 |0 # HANGUL SYLLABLE KIYEOK WEO RIEULPIEUP
-<UAD94> \x82\xA9 |0 # HANGUL SYLLABLE KIYEOK WEO RIEULSIOS
-<UAD95> \x82\xAA |0 # HANGUL SYLLABLE KIYEOK WEO RIEULTHIEUTH
-<UAD96> \x82\xAB |0 # HANGUL SYLLABLE KIYEOK WEO RIEULPHIEUPH
-<UAD97> \x82\xAC |0 # HANGUL SYLLABLE KIYEOK WEO RIEULHIEUH
-<UAD98> \x82\xAD |0 # HANGUL SYLLABLE KIYEOK WEO MIEUM
-<UAD99> \x82\xAE |0 # HANGUL SYLLABLE KIYEOK WEO PIEUP
-<UAD9A> \x82\xAF |0 # HANGUL SYLLABLE KIYEOK WEO PIEUPSIOS
-<UAD9B> \x82\xB0 |0 # HANGUL SYLLABLE KIYEOK WEO SIOS
-<UAD9C> \xB1\xC9 |0 # HANGUL SYLLABLE KIYEOK WEO SSANGSIOS
-<UAD9D> \xB1\xCA |0 # HANGUL SYLLABLE KIYEOK WEO IEUNG
-<UAD9E> \x82\xB1 |0 # HANGUL SYLLABLE KIYEOK WEO CIEUC
-<UAD9F> \x82\xB2 |0 # HANGUL SYLLABLE KIYEOK WEO CHIEUCH
-<UADA0> \x82\xB3 |0 # HANGUL SYLLABLE KIYEOK WEO KHIEUKH
-<UADA1> \x82\xB4 |0 # HANGUL SYLLABLE KIYEOK WEO THIEUTH
-<UADA2> \x82\xB5 |0 # HANGUL SYLLABLE KIYEOK WEO PHIEUPH
-<UADA3> \x82\xB6 |0 # HANGUL SYLLABLE KIYEOK WEO HIEUH
-<UADA4> \xB1\xCB |0 # HANGUL SYLLABLE KIYEOK WE
-<UADA5> \x82\xB7 |0 # HANGUL SYLLABLE KIYEOK WE KIYEOK
-<UADA6> \x82\xB8 |0 # HANGUL SYLLABLE KIYEOK WE SSANGKIYEOK
-<UADA7> \x82\xB9 |0 # HANGUL SYLLABLE KIYEOK WE KIYEOKSIOS
-<UADA8> \x82\xBA |0 # HANGUL SYLLABLE KIYEOK WE NIEUN
-<UADA9> \x82\xBB |0 # HANGUL SYLLABLE KIYEOK WE NIEUNCIEUC
-<UADAA> \x82\xBC |0 # HANGUL SYLLABLE KIYEOK WE NIEUNHIEUH
-<UADAB> \x82\xBD |0 # HANGUL SYLLABLE KIYEOK WE TIKEUT
-<UADAC> \x82\xBE |0 # HANGUL SYLLABLE KIYEOK WE RIEUL
-<UADAD> \x82\xBF |0 # HANGUL SYLLABLE KIYEOK WE RIEULKIYEOK
-<UADAE> \x82\xC0 |0 # HANGUL SYLLABLE KIYEOK WE RIEULMIEUM
-<UADAF> \x82\xC1 |0 # HANGUL SYLLABLE KIYEOK WE RIEULPIEUP
-<UADB0> \x82\xC2 |0 # HANGUL SYLLABLE KIYEOK WE RIEULSIOS
-<UADB1> \x82\xC3 |0 # HANGUL SYLLABLE KIYEOK WE RIEULTHIEUTH
-<UADB2> \x82\xC4 |0 # HANGUL SYLLABLE KIYEOK WE RIEULPHIEUPH
-<UADB3> \x82\xC5 |0 # HANGUL SYLLABLE KIYEOK WE RIEULHIEUH
-<UADB4> \x82\xC6 |0 # HANGUL SYLLABLE KIYEOK WE MIEUM
-<UADB5> \x82\xC7 |0 # HANGUL SYLLABLE KIYEOK WE PIEUP
-<UADB6> \x82\xC8 |0 # HANGUL SYLLABLE KIYEOK WE PIEUPSIOS
-<UADB7> \xB1\xCC |0 # HANGUL SYLLABLE KIYEOK WE SIOS
-<UADB8> \x82\xC9 |0 # HANGUL SYLLABLE KIYEOK WE SSANGSIOS
-<UADB9> \x82\xCA |0 # HANGUL SYLLABLE KIYEOK WE IEUNG
-<UADBA> \x82\xCB |0 # HANGUL SYLLABLE KIYEOK WE CIEUC
-<UADBB> \x82\xCC |0 # HANGUL SYLLABLE KIYEOK WE CHIEUCH
-<UADBC> \x82\xCD |0 # HANGUL SYLLABLE KIYEOK WE KHIEUKH
-<UADBD> \x82\xCE |0 # HANGUL SYLLABLE KIYEOK WE THIEUTH
-<UADBE> \x82\xCF |0 # HANGUL SYLLABLE KIYEOK WE PHIEUPH
-<UADBF> \x82\xD0 |0 # HANGUL SYLLABLE KIYEOK WE HIEUH
-<UADC0> \xB1\xCD |0 # HANGUL SYLLABLE KIYEOK WI
-<UADC1> \xB1\xCE |0 # HANGUL SYLLABLE KIYEOK WI KIYEOK
-<UADC2> \x82\xD1 |0 # HANGUL SYLLABLE KIYEOK WI SSANGKIYEOK
-<UADC3> \x82\xD2 |0 # HANGUL SYLLABLE KIYEOK WI KIYEOKSIOS
-<UADC4> \xB1\xCF |0 # HANGUL SYLLABLE KIYEOK WI NIEUN
-<UADC5> \x82\xD3 |0 # HANGUL SYLLABLE KIYEOK WI NIEUNCIEUC
-<UADC6> \x82\xD4 |0 # HANGUL SYLLABLE KIYEOK WI NIEUNHIEUH
-<UADC7> \x82\xD5 |0 # HANGUL SYLLABLE KIYEOK WI TIKEUT
-<UADC8> \xB1\xD0 |0 # HANGUL SYLLABLE KIYEOK WI RIEUL
-<UADC9> \x82\xD6 |0 # HANGUL SYLLABLE KIYEOK WI RIEULKIYEOK
-<UADCA> \x82\xD7 |0 # HANGUL SYLLABLE KIYEOK WI RIEULMIEUM
-<UADCB> \x82\xD8 |0 # HANGUL SYLLABLE KIYEOK WI RIEULPIEUP
-<UADCC> \x82\xD9 |0 # HANGUL SYLLABLE KIYEOK WI RIEULSIOS
-<UADCD> \x82\xDA |0 # HANGUL SYLLABLE KIYEOK WI RIEULTHIEUTH
-<UADCE> \x82\xDB |0 # HANGUL SYLLABLE KIYEOK WI RIEULPHIEUPH
-<UADCF> \x82\xDC |0 # HANGUL SYLLABLE KIYEOK WI RIEULHIEUH
-<UADD0> \xB1\xD1 |0 # HANGUL SYLLABLE KIYEOK WI MIEUM
-<UADD1> \xB1\xD2 |0 # HANGUL SYLLABLE KIYEOK WI PIEUP
-<UADD2> \x82\xDD |0 # HANGUL SYLLABLE KIYEOK WI PIEUPSIOS
-<UADD3> \xB1\xD3 |0 # HANGUL SYLLABLE KIYEOK WI SIOS
-<UADD4> \x82\xDE |0 # HANGUL SYLLABLE KIYEOK WI SSANGSIOS
-<UADD5> \x82\xDF |0 # HANGUL SYLLABLE KIYEOK WI IEUNG
-<UADD6> \x82\xE0 |0 # HANGUL SYLLABLE KIYEOK WI CIEUC
-<UADD7> \x82\xE1 |0 # HANGUL SYLLABLE KIYEOK WI CHIEUCH
-<UADD8> \x82\xE2 |0 # HANGUL SYLLABLE KIYEOK WI KHIEUKH
-<UADD9> \x82\xE3 |0 # HANGUL SYLLABLE KIYEOK WI THIEUTH
-<UADDA> \x82\xE4 |0 # HANGUL SYLLABLE KIYEOK WI PHIEUPH
-<UADDB> \x82\xE5 |0 # HANGUL SYLLABLE KIYEOK WI HIEUH
-<UADDC> \xB1\xD4 |0 # HANGUL SYLLABLE KIYEOK YU
-<UADDD> \x82\xE6 |0 # HANGUL SYLLABLE KIYEOK YU KIYEOK
-<UADDE> \x82\xE7 |0 # HANGUL SYLLABLE KIYEOK YU SSANGKIYEOK
-<UADDF> \x82\xE8 |0 # HANGUL SYLLABLE KIYEOK YU KIYEOKSIOS
-<UADE0> \xB1\xD5 |0 # HANGUL SYLLABLE KIYEOK YU NIEUN
-<UADE1> \x82\xE9 |0 # HANGUL SYLLABLE KIYEOK YU NIEUNCIEUC
-<UADE2> \x82\xEA |0 # HANGUL SYLLABLE KIYEOK YU NIEUNHIEUH
-<UADE3> \x82\xEB |0 # HANGUL SYLLABLE KIYEOK YU TIKEUT
-<UADE4> \xB1\xD6 |0 # HANGUL SYLLABLE KIYEOK YU RIEUL
-<UADE5> \x82\xEC |0 # HANGUL SYLLABLE KIYEOK YU RIEULKIYEOK
-<UADE6> \x82\xED |0 # HANGUL SYLLABLE KIYEOK YU RIEULMIEUM
-<UADE7> \x82\xEE |0 # HANGUL SYLLABLE KIYEOK YU RIEULPIEUP
-<UADE8> \x82\xEF |0 # HANGUL SYLLABLE KIYEOK YU RIEULSIOS
-<UADE9> \x82\xF0 |0 # HANGUL SYLLABLE KIYEOK YU RIEULTHIEUTH
-<UADEA> \x82\xF1 |0 # HANGUL SYLLABLE KIYEOK YU RIEULPHIEUPH
-<UADEB> \x82\xF2 |0 # HANGUL SYLLABLE KIYEOK YU RIEULHIEUH
-<UADEC> \x82\xF3 |0 # HANGUL SYLLABLE KIYEOK YU MIEUM
-<UADED> \x82\xF4 |0 # HANGUL SYLLABLE KIYEOK YU PIEUP
-<UADEE> \x82\xF5 |0 # HANGUL SYLLABLE KIYEOK YU PIEUPSIOS
-<UADEF> \x82\xF6 |0 # HANGUL SYLLABLE KIYEOK YU SIOS
-<UADF0> \x82\xF7 |0 # HANGUL SYLLABLE KIYEOK YU SSANGSIOS
-<UADF1> \x82\xF8 |0 # HANGUL SYLLABLE KIYEOK YU IEUNG
-<UADF2> \x82\xF9 |0 # HANGUL SYLLABLE KIYEOK YU CIEUC
-<UADF3> \x82\xFA |0 # HANGUL SYLLABLE KIYEOK YU CHIEUCH
-<UADF4> \x82\xFB |0 # HANGUL SYLLABLE KIYEOK YU KHIEUKH
-<UADF5> \x82\xFC |0 # HANGUL SYLLABLE KIYEOK YU THIEUTH
-<UADF6> \x82\xFD |0 # HANGUL SYLLABLE KIYEOK YU PHIEUPH
-<UADF7> \x82\xFE |0 # HANGUL SYLLABLE KIYEOK YU HIEUH
-<UADF8> \xB1\xD7 |0 # HANGUL SYLLABLE KIYEOK EU
-<UADF9> \xB1\xD8 |0 # HANGUL SYLLABLE KIYEOK EU KIYEOK
-<UADFA> \x83\x41 |0 # HANGUL SYLLABLE KIYEOK EU SSANGKIYEOK
-<UADFB> \x83\x42 |0 # HANGUL SYLLABLE KIYEOK EU KIYEOKSIOS
-<UADFC> \xB1\xD9 |0 # HANGUL SYLLABLE KIYEOK EU NIEUN
-<UADFD> \x83\x43 |0 # HANGUL SYLLABLE KIYEOK EU NIEUNCIEUC
-<UADFE> \x83\x44 |0 # HANGUL SYLLABLE KIYEOK EU NIEUNHIEUH
-<UADFF> \xB1\xDA |0 # HANGUL SYLLABLE KIYEOK EU TIKEUT
-<UAE00> \xB1\xDB |0 # HANGUL SYLLABLE KIYEOK EU RIEUL
-<UAE01> \xB1\xDC |0 # HANGUL SYLLABLE KIYEOK EU RIEULKIYEOK
-<UAE02> \x83\x45 |0 # HANGUL SYLLABLE KIYEOK EU RIEULMIEUM
-<UAE03> \x83\x46 |0 # HANGUL SYLLABLE KIYEOK EU RIEULPIEUP
-<UAE04> \x83\x47 |0 # HANGUL SYLLABLE KIYEOK EU RIEULSIOS
-<UAE05> \x83\x48 |0 # HANGUL SYLLABLE KIYEOK EU RIEULTHIEUTH
-<UAE06> \x83\x49 |0 # HANGUL SYLLABLE KIYEOK EU RIEULPHIEUPH
-<UAE07> \x83\x4A |0 # HANGUL SYLLABLE KIYEOK EU RIEULHIEUH
-<UAE08> \xB1\xDD |0 # HANGUL SYLLABLE KIYEOK EU MIEUM
-<UAE09> \xB1\xDE |0 # HANGUL SYLLABLE KIYEOK EU PIEUP
-<UAE0A> \x83\x4B |0 # HANGUL SYLLABLE KIYEOK EU PIEUPSIOS
-<UAE0B> \xB1\xDF |0 # HANGUL SYLLABLE KIYEOK EU SIOS
-<UAE0C> \x83\x4C |0 # HANGUL SYLLABLE KIYEOK EU SSANGSIOS
-<UAE0D> \xB1\xE0 |0 # HANGUL SYLLABLE KIYEOK EU IEUNG
-<UAE0E> \x83\x4D |0 # HANGUL SYLLABLE KIYEOK EU CIEUC
-<UAE0F> \x83\x4E |0 # HANGUL SYLLABLE KIYEOK EU CHIEUCH
-<UAE10> \x83\x4F |0 # HANGUL SYLLABLE KIYEOK EU KHIEUKH
-<UAE11> \x83\x50 |0 # HANGUL SYLLABLE KIYEOK EU THIEUTH
-<UAE12> \x83\x51 |0 # HANGUL SYLLABLE KIYEOK EU PHIEUPH
-<UAE13> \x83\x52 |0 # HANGUL SYLLABLE KIYEOK EU HIEUH
-<UAE14> \xB1\xE1 |0 # HANGUL SYLLABLE KIYEOK YI
-<UAE15> \x83\x53 |0 # HANGUL SYLLABLE KIYEOK YI KIYEOK
-<UAE16> \x83\x54 |0 # HANGUL SYLLABLE KIYEOK YI SSANGKIYEOK
-<UAE17> \x83\x55 |0 # HANGUL SYLLABLE KIYEOK YI KIYEOKSIOS
-<UAE18> \x83\x56 |0 # HANGUL SYLLABLE KIYEOK YI NIEUN
-<UAE19> \x83\x57 |0 # HANGUL SYLLABLE KIYEOK YI NIEUNCIEUC
-<UAE1A> \x83\x58 |0 # HANGUL SYLLABLE KIYEOK YI NIEUNHIEUH
-<UAE1B> \x83\x59 |0 # HANGUL SYLLABLE KIYEOK YI TIKEUT
-<UAE1C> \x83\x5A |0 # HANGUL SYLLABLE KIYEOK YI RIEUL
-<UAE1D> \x83\x61 |0 # HANGUL SYLLABLE KIYEOK YI RIEULKIYEOK
-<UAE1E> \x83\x62 |0 # HANGUL SYLLABLE KIYEOK YI RIEULMIEUM
-<UAE1F> \x83\x63 |0 # HANGUL SYLLABLE KIYEOK YI RIEULPIEUP
-<UAE20> \x83\x64 |0 # HANGUL SYLLABLE KIYEOK YI RIEULSIOS
-<UAE21> \x83\x65 |0 # HANGUL SYLLABLE KIYEOK YI RIEULTHIEUTH
-<UAE22> \x83\x66 |0 # HANGUL SYLLABLE KIYEOK YI RIEULPHIEUPH
-<UAE23> \x83\x67 |0 # HANGUL SYLLABLE KIYEOK YI RIEULHIEUH
-<UAE24> \x83\x68 |0 # HANGUL SYLLABLE KIYEOK YI MIEUM
-<UAE25> \x83\x69 |0 # HANGUL SYLLABLE KIYEOK YI PIEUP
-<UAE26> \x83\x6A |0 # HANGUL SYLLABLE KIYEOK YI PIEUPSIOS
-<UAE27> \x83\x6B |0 # HANGUL SYLLABLE KIYEOK YI SIOS
-<UAE28> \x83\x6C |0 # HANGUL SYLLABLE KIYEOK YI SSANGSIOS
-<UAE29> \x83\x6D |0 # HANGUL SYLLABLE KIYEOK YI IEUNG
-<UAE2A> \x83\x6E |0 # HANGUL SYLLABLE KIYEOK YI CIEUC
-<UAE2B> \x83\x6F |0 # HANGUL SYLLABLE KIYEOK YI CHIEUCH
-<UAE2C> \x83\x70 |0 # HANGUL SYLLABLE KIYEOK YI KHIEUKH
-<UAE2D> \x83\x71 |0 # HANGUL SYLLABLE KIYEOK YI THIEUTH
-<UAE2E> \x83\x72 |0 # HANGUL SYLLABLE KIYEOK YI PHIEUPH
-<UAE2F> \x83\x73 |0 # HANGUL SYLLABLE KIYEOK YI HIEUH
-<UAE30> \xB1\xE2 |0 # HANGUL SYLLABLE KIYEOK I
-<UAE31> \xB1\xE3 |0 # HANGUL SYLLABLE KIYEOK I KIYEOK
-<UAE32> \x83\x74 |0 # HANGUL SYLLABLE KIYEOK I SSANGKIYEOK
-<UAE33> \x83\x75 |0 # HANGUL SYLLABLE KIYEOK I KIYEOKSIOS
-<UAE34> \xB1\xE4 |0 # HANGUL SYLLABLE KIYEOK I NIEUN
-<UAE35> \x83\x76 |0 # HANGUL SYLLABLE KIYEOK I NIEUNCIEUC
-<UAE36> \x83\x77 |0 # HANGUL SYLLABLE KIYEOK I NIEUNHIEUH
-<UAE37> \xB1\xE5 |0 # HANGUL SYLLABLE KIYEOK I TIKEUT
-<UAE38> \xB1\xE6 |0 # HANGUL SYLLABLE KIYEOK I RIEUL
-<UAE39> \x83\x78 |0 # HANGUL SYLLABLE KIYEOK I RIEULKIYEOK
-<UAE3A> \xB1\xE7 |0 # HANGUL SYLLABLE KIYEOK I RIEULMIEUM
-<UAE3B> \x83\x79 |0 # HANGUL SYLLABLE KIYEOK I RIEULPIEUP
-<UAE3C> \x83\x7A |0 # HANGUL SYLLABLE KIYEOK I RIEULSIOS
-<UAE3D> \x83\x81 |0 # HANGUL SYLLABLE KIYEOK I RIEULTHIEUTH
-<UAE3E> \x83\x82 |0 # HANGUL SYLLABLE KIYEOK I RIEULPHIEUPH
-<UAE3F> \x83\x83 |0 # HANGUL SYLLABLE KIYEOK I RIEULHIEUH
-<UAE40> \xB1\xE8 |0 # HANGUL SYLLABLE KIYEOK I MIEUM
-<UAE41> \xB1\xE9 |0 # HANGUL SYLLABLE KIYEOK I PIEUP
-<UAE42> \x83\x84 |0 # HANGUL SYLLABLE KIYEOK I PIEUPSIOS
-<UAE43> \xB1\xEA |0 # HANGUL SYLLABLE KIYEOK I SIOS
-<UAE44> \x83\x85 |0 # HANGUL SYLLABLE KIYEOK I SSANGSIOS
-<UAE45> \xB1\xEB |0 # HANGUL SYLLABLE KIYEOK I IEUNG
-<UAE46> \xB1\xEC |0 # HANGUL SYLLABLE KIYEOK I CIEUC
-<UAE47> \x83\x86 |0 # HANGUL SYLLABLE KIYEOK I CHIEUCH
-<UAE48> \x83\x87 |0 # HANGUL SYLLABLE KIYEOK I KHIEUKH
-<UAE49> \x83\x88 |0 # HANGUL SYLLABLE KIYEOK I THIEUTH
-<UAE4A> \xB1\xED |0 # HANGUL SYLLABLE KIYEOK I PHIEUPH
-<UAE4B> \x83\x89 |0 # HANGUL SYLLABLE KIYEOK I HIEUH
-<UAE4C> \xB1\xEE |0 # HANGUL SYLLABLE SSANGKIYEOK A
-<UAE4D> \xB1\xEF |0 # HANGUL SYLLABLE SSANGKIYEOK A KIYEOK
-<UAE4E> \xB1\xF0 |0 # HANGUL SYLLABLE SSANGKIYEOK A SSANGKIYEOK
-<UAE4F> \x83\x8A |0 # HANGUL SYLLABLE SSANGKIYEOK A KIYEOKSIOS
-<UAE50> \xB1\xF1 |0 # HANGUL SYLLABLE SSANGKIYEOK A NIEUN
-<UAE51> \x83\x8B |0 # HANGUL SYLLABLE SSANGKIYEOK A NIEUNCIEUC
-<UAE52> \x83\x8C |0 # HANGUL SYLLABLE SSANGKIYEOK A NIEUNHIEUH
-<UAE53> \x83\x8D |0 # HANGUL SYLLABLE SSANGKIYEOK A TIKEUT
-<UAE54> \xB1\xF2 |0 # HANGUL SYLLABLE SSANGKIYEOK A RIEUL
-<UAE55> \x83\x8E |0 # HANGUL SYLLABLE SSANGKIYEOK A RIEULKIYEOK
-<UAE56> \xB1\xF3 |0 # HANGUL SYLLABLE SSANGKIYEOK A RIEULMIEUM
-<UAE57> \x83\x8F |0 # HANGUL SYLLABLE SSANGKIYEOK A RIEULPIEUP
-<UAE58> \x83\x90 |0 # HANGUL SYLLABLE SSANGKIYEOK A RIEULSIOS
-<UAE59> \x83\x91 |0 # HANGUL SYLLABLE SSANGKIYEOK A RIEULTHIEUTH
-<UAE5A> \x83\x92 |0 # HANGUL SYLLABLE SSANGKIYEOK A RIEULPHIEUPH
-<UAE5B> \x83\x93 |0 # HANGUL SYLLABLE SSANGKIYEOK A RIEULHIEUH
-<UAE5C> \xB1\xF4 |0 # HANGUL SYLLABLE SSANGKIYEOK A MIEUM
-<UAE5D> \xB1\xF5 |0 # HANGUL SYLLABLE SSANGKIYEOK A PIEUP
-<UAE5E> \x83\x94 |0 # HANGUL SYLLABLE SSANGKIYEOK A PIEUPSIOS
-<UAE5F> \xB1\xF6 |0 # HANGUL SYLLABLE SSANGKIYEOK A SIOS
-<UAE60> \xB1\xF7 |0 # HANGUL SYLLABLE SSANGKIYEOK A SSANGSIOS
-<UAE61> \xB1\xF8 |0 # HANGUL SYLLABLE SSANGKIYEOK A IEUNG
-<UAE62> \x83\x95 |0 # HANGUL SYLLABLE SSANGKIYEOK A CIEUC
-<UAE63> \x83\x96 |0 # HANGUL SYLLABLE SSANGKIYEOK A CHIEUCH
-<UAE64> \x83\x97 |0 # HANGUL SYLLABLE SSANGKIYEOK A KHIEUKH
-<UAE65> \xB1\xF9 |0 # HANGUL SYLLABLE SSANGKIYEOK A THIEUTH
-<UAE66> \x83\x98 |0 # HANGUL SYLLABLE SSANGKIYEOK A PHIEUPH
-<UAE67> \x83\x99 |0 # HANGUL SYLLABLE SSANGKIYEOK A HIEUH
-<UAE68> \xB1\xFA |0 # HANGUL SYLLABLE SSANGKIYEOK AE
-<UAE69> \xB1\xFB |0 # HANGUL SYLLABLE SSANGKIYEOK AE KIYEOK
-<UAE6A> \x83\x9A |0 # HANGUL SYLLABLE SSANGKIYEOK AE SSANGKIYEOK
-<UAE6B> \x83\x9B |0 # HANGUL SYLLABLE SSANGKIYEOK AE KIYEOKSIOS
-<UAE6C> \xB1\xFC |0 # HANGUL SYLLABLE SSANGKIYEOK AE NIEUN
-<UAE6D> \x83\x9C |0 # HANGUL SYLLABLE SSANGKIYEOK AE NIEUNCIEUC
-<UAE6E> \x83\x9D |0 # HANGUL SYLLABLE SSANGKIYEOK AE NIEUNHIEUH
-<UAE6F> \x83\x9E |0 # HANGUL SYLLABLE SSANGKIYEOK AE TIKEUT
-<UAE70> \xB1\xFD |0 # HANGUL SYLLABLE SSANGKIYEOK AE RIEUL
-<UAE71> \x83\x9F |0 # HANGUL SYLLABLE SSANGKIYEOK AE RIEULKIYEOK
-<UAE72> \x83\xA0 |0 # HANGUL SYLLABLE SSANGKIYEOK AE RIEULMIEUM
-<UAE73> \x83\xA1 |0 # HANGUL SYLLABLE SSANGKIYEOK AE RIEULPIEUP
-<UAE74> \x83\xA2 |0 # HANGUL SYLLABLE SSANGKIYEOK AE RIEULSIOS
-<UAE75> \x83\xA3 |0 # HANGUL SYLLABLE SSANGKIYEOK AE RIEULTHIEUTH
-<UAE76> \x83\xA4 |0 # HANGUL SYLLABLE SSANGKIYEOK AE RIEULPHIEUPH
-<UAE77> \x83\xA5 |0 # HANGUL SYLLABLE SSANGKIYEOK AE RIEULHIEUH
-<UAE78> \xB1\xFE |0 # HANGUL SYLLABLE SSANGKIYEOK AE MIEUM
-<UAE79> \xB2\xA1 |0 # HANGUL SYLLABLE SSANGKIYEOK AE PIEUP
-<UAE7A> \x83\xA6 |0 # HANGUL SYLLABLE SSANGKIYEOK AE PIEUPSIOS
-<UAE7B> \xB2\xA2 |0 # HANGUL SYLLABLE SSANGKIYEOK AE SIOS
-<UAE7C> \xB2\xA3 |0 # HANGUL SYLLABLE SSANGKIYEOK AE SSANGSIOS
-<UAE7D> \xB2\xA4 |0 # HANGUL SYLLABLE SSANGKIYEOK AE IEUNG
-<UAE7E> \x83\xA7 |0 # HANGUL SYLLABLE SSANGKIYEOK AE CIEUC
-<UAE7F> \x83\xA8 |0 # HANGUL SYLLABLE SSANGKIYEOK AE CHIEUCH
-<UAE80> \x83\xA9 |0 # HANGUL SYLLABLE SSANGKIYEOK AE KHIEUKH
-<UAE81> \x83\xAA |0 # HANGUL SYLLABLE SSANGKIYEOK AE THIEUTH
-<UAE82> \x83\xAB |0 # HANGUL SYLLABLE SSANGKIYEOK AE PHIEUPH
-<UAE83> \x83\xAC |0 # HANGUL SYLLABLE SSANGKIYEOK AE HIEUH
-<UAE84> \xB2\xA5 |0 # HANGUL SYLLABLE SSANGKIYEOK YA
-<UAE85> \xB2\xA6 |0 # HANGUL SYLLABLE SSANGKIYEOK YA KIYEOK
-<UAE86> \x83\xAD |0 # HANGUL SYLLABLE SSANGKIYEOK YA SSANGKIYEOK
-<UAE87> \x83\xAE |0 # HANGUL SYLLABLE SSANGKIYEOK YA KIYEOKSIOS
-<UAE88> \x83\xAF |0 # HANGUL SYLLABLE SSANGKIYEOK YA NIEUN
-<UAE89> \x83\xB0 |0 # HANGUL SYLLABLE SSANGKIYEOK YA NIEUNCIEUC
-<UAE8A> \x83\xB1 |0 # HANGUL SYLLABLE SSANGKIYEOK YA NIEUNHIEUH
-<UAE8B> \x83\xB2 |0 # HANGUL SYLLABLE SSANGKIYEOK YA TIKEUT
-<UAE8C> \xB2\xA7 |0 # HANGUL SYLLABLE SSANGKIYEOK YA RIEUL
-<UAE8D> \x83\xB3 |0 # HANGUL SYLLABLE SSANGKIYEOK YA RIEULKIYEOK
-<UAE8E> \x83\xB4 |0 # HANGUL SYLLABLE SSANGKIYEOK YA RIEULMIEUM
-<UAE8F> \x83\xB5 |0 # HANGUL SYLLABLE SSANGKIYEOK YA RIEULPIEUP
-<UAE90> \x83\xB6 |0 # HANGUL SYLLABLE SSANGKIYEOK YA RIEULSIOS
-<UAE91> \x83\xB7 |0 # HANGUL SYLLABLE SSANGKIYEOK YA RIEULTHIEUTH
-<UAE92> \x83\xB8 |0 # HANGUL SYLLABLE SSANGKIYEOK YA RIEULPHIEUPH
-<UAE93> \x83\xB9 |0 # HANGUL SYLLABLE SSANGKIYEOK YA RIEULHIEUH
-<UAE94> \x83\xBA |0 # HANGUL SYLLABLE SSANGKIYEOK YA MIEUM
-<UAE95> \x83\xBB |0 # HANGUL SYLLABLE SSANGKIYEOK YA PIEUP
-<UAE96> \x83\xBC |0 # HANGUL SYLLABLE SSANGKIYEOK YA PIEUPSIOS
-<UAE97> \x83\xBD |0 # HANGUL SYLLABLE SSANGKIYEOK YA SIOS
-<UAE98> \x83\xBE |0 # HANGUL SYLLABLE SSANGKIYEOK YA SSANGSIOS
-<UAE99> \x83\xBF |0 # HANGUL SYLLABLE SSANGKIYEOK YA IEUNG
-<UAE9A> \x83\xC0 |0 # HANGUL SYLLABLE SSANGKIYEOK YA CIEUC
-<UAE9B> \x83\xC1 |0 # HANGUL SYLLABLE SSANGKIYEOK YA CHIEUCH
-<UAE9C> \x83\xC2 |0 # HANGUL SYLLABLE SSANGKIYEOK YA KHIEUKH
-<UAE9D> \x83\xC3 |0 # HANGUL SYLLABLE SSANGKIYEOK YA THIEUTH
-<UAE9E> \x83\xC4 |0 # HANGUL SYLLABLE SSANGKIYEOK YA PHIEUPH
-<UAE9F> \x83\xC5 |0 # HANGUL SYLLABLE SSANGKIYEOK YA HIEUH
-<UAEA0> \x83\xC6 |0 # HANGUL SYLLABLE SSANGKIYEOK YAE
-<UAEA1> \x83\xC7 |0 # HANGUL SYLLABLE SSANGKIYEOK YAE KIYEOK
-<UAEA2> \x83\xC8 |0 # HANGUL SYLLABLE SSANGKIYEOK YAE SSANGKIYEOK
-<UAEA3> \x83\xC9 |0 # HANGUL SYLLABLE SSANGKIYEOK YAE KIYEOKSIOS
-<UAEA4> \x83\xCA |0 # HANGUL SYLLABLE SSANGKIYEOK YAE NIEUN
-<UAEA5> \x83\xCB |0 # HANGUL SYLLABLE SSANGKIYEOK YAE NIEUNCIEUC
-<UAEA6> \x83\xCC |0 # HANGUL SYLLABLE SSANGKIYEOK YAE NIEUNHIEUH
-<UAEA7> \x83\xCD |0 # HANGUL SYLLABLE SSANGKIYEOK YAE TIKEUT
-<UAEA8> \x83\xCE |0 # HANGUL SYLLABLE SSANGKIYEOK YAE RIEUL
-<UAEA9> \x83\xCF |0 # HANGUL SYLLABLE SSANGKIYEOK YAE RIEULKIYEOK
-<UAEAA> \x83\xD0 |0 # HANGUL SYLLABLE SSANGKIYEOK YAE RIEULMIEUM
-<UAEAB> \x83\xD1 |0 # HANGUL SYLLABLE SSANGKIYEOK YAE RIEULPIEUP
-<UAEAC> \x83\xD2 |0 # HANGUL SYLLABLE SSANGKIYEOK YAE RIEULSIOS
-<UAEAD> \x83\xD3 |0 # HANGUL SYLLABLE SSANGKIYEOK YAE RIEULTHIEUTH
-<UAEAE> \x83\xD4 |0 # HANGUL SYLLABLE SSANGKIYEOK YAE RIEULPHIEUPH
-<UAEAF> \x83\xD5 |0 # HANGUL SYLLABLE SSANGKIYEOK YAE RIEULHIEUH
-<UAEB0> \x83\xD6 |0 # HANGUL SYLLABLE SSANGKIYEOK YAE MIEUM
-<UAEB1> \x83\xD7 |0 # HANGUL SYLLABLE SSANGKIYEOK YAE PIEUP
-<UAEB2> \x83\xD8 |0 # HANGUL SYLLABLE SSANGKIYEOK YAE PIEUPSIOS
-<UAEB3> \x83\xD9 |0 # HANGUL SYLLABLE SSANGKIYEOK YAE SIOS
-<UAEB4> \x83\xDA |0 # HANGUL SYLLABLE SSANGKIYEOK YAE SSANGSIOS
-<UAEB5> \x83\xDB |0 # HANGUL SYLLABLE SSANGKIYEOK YAE IEUNG
-<UAEB6> \x83\xDC |0 # HANGUL SYLLABLE SSANGKIYEOK YAE CIEUC
-<UAEB7> \x83\xDD |0 # HANGUL SYLLABLE SSANGKIYEOK YAE CHIEUCH
-<UAEB8> \x83\xDE |0 # HANGUL SYLLABLE SSANGKIYEOK YAE KHIEUKH
-<UAEB9> \x83\xDF |0 # HANGUL SYLLABLE SSANGKIYEOK YAE THIEUTH
-<UAEBA> \x83\xE0 |0 # HANGUL SYLLABLE SSANGKIYEOK YAE PHIEUPH
-<UAEBB> \x83\xE1 |0 # HANGUL SYLLABLE SSANGKIYEOK YAE HIEUH
-<UAEBC> \xB2\xA8 |0 # HANGUL SYLLABLE SSANGKIYEOK EO
-<UAEBD> \xB2\xA9 |0 # HANGUL SYLLABLE SSANGKIYEOK EO KIYEOK
-<UAEBE> \xB2\xAA |0 # HANGUL SYLLABLE SSANGKIYEOK EO SSANGKIYEOK
-<UAEBF> \x83\xE2 |0 # HANGUL SYLLABLE SSANGKIYEOK EO KIYEOKSIOS
-<UAEC0> \xB2\xAB |0 # HANGUL SYLLABLE SSANGKIYEOK EO NIEUN
-<UAEC1> \x83\xE3 |0 # HANGUL SYLLABLE SSANGKIYEOK EO NIEUNCIEUC
-<UAEC2> \x83\xE4 |0 # HANGUL SYLLABLE SSANGKIYEOK EO NIEUNHIEUH
-<UAEC3> \x83\xE5 |0 # HANGUL SYLLABLE SSANGKIYEOK EO TIKEUT
-<UAEC4> \xB2\xAC |0 # HANGUL SYLLABLE SSANGKIYEOK EO RIEUL
-<UAEC5> \x83\xE6 |0 # HANGUL SYLLABLE SSANGKIYEOK EO RIEULKIYEOK
-<UAEC6> \x83\xE7 |0 # HANGUL SYLLABLE SSANGKIYEOK EO RIEULMIEUM
-<UAEC7> \x83\xE8 |0 # HANGUL SYLLABLE SSANGKIYEOK EO RIEULPIEUP
-<UAEC8> \x83\xE9 |0 # HANGUL SYLLABLE SSANGKIYEOK EO RIEULSIOS
-<UAEC9> \x83\xEA |0 # HANGUL SYLLABLE SSANGKIYEOK EO RIEULTHIEUTH
-<UAECA> \x83\xEB |0 # HANGUL SYLLABLE SSANGKIYEOK EO RIEULPHIEUPH
-<UAECB> \x83\xEC |0 # HANGUL SYLLABLE SSANGKIYEOK EO RIEULHIEUH
-<UAECC> \xB2\xAD |0 # HANGUL SYLLABLE SSANGKIYEOK EO MIEUM
-<UAECD> \xB2\xAE |0 # HANGUL SYLLABLE SSANGKIYEOK EO PIEUP
-<UAECE> \x83\xED |0 # HANGUL SYLLABLE SSANGKIYEOK EO PIEUPSIOS
-<UAECF> \xB2\xAF |0 # HANGUL SYLLABLE SSANGKIYEOK EO SIOS
-<UAED0> \xB2\xB0 |0 # HANGUL SYLLABLE SSANGKIYEOK EO SSANGSIOS
-<UAED1> \xB2\xB1 |0 # HANGUL SYLLABLE SSANGKIYEOK EO IEUNG
-<UAED2> \x83\xEE |0 # HANGUL SYLLABLE SSANGKIYEOK EO CIEUC
-<UAED3> \x83\xEF |0 # HANGUL SYLLABLE SSANGKIYEOK EO CHIEUCH
-<UAED4> \x83\xF0 |0 # HANGUL SYLLABLE SSANGKIYEOK EO KHIEUKH
-<UAED5> \x83\xF1 |0 # HANGUL SYLLABLE SSANGKIYEOK EO THIEUTH
-<UAED6> \x83\xF2 |0 # HANGUL SYLLABLE SSANGKIYEOK EO PHIEUPH
-<UAED7> \x83\xF3 |0 # HANGUL SYLLABLE SSANGKIYEOK EO HIEUH
-<UAED8> \xB2\xB2 |0 # HANGUL SYLLABLE SSANGKIYEOK E
-<UAED9> \xB2\xB3 |0 # HANGUL SYLLABLE SSANGKIYEOK E KIYEOK
-<UAEDA> \x83\xF4 |0 # HANGUL SYLLABLE SSANGKIYEOK E SSANGKIYEOK
-<UAEDB> \x83\xF5 |0 # HANGUL SYLLABLE SSANGKIYEOK E KIYEOKSIOS
-<UAEDC> \xB2\xB4 |0 # HANGUL SYLLABLE SSANGKIYEOK E NIEUN
-<UAEDD> \x83\xF6 |0 # HANGUL SYLLABLE SSANGKIYEOK E NIEUNCIEUC
-<UAEDE> \x83\xF7 |0 # HANGUL SYLLABLE SSANGKIYEOK E NIEUNHIEUH
-<UAEDF> \x83\xF8 |0 # HANGUL SYLLABLE SSANGKIYEOK E TIKEUT
-<UAEE0> \x83\xF9 |0 # HANGUL SYLLABLE SSANGKIYEOK E RIEUL
-<UAEE1> \x83\xFA |0 # HANGUL SYLLABLE SSANGKIYEOK E RIEULKIYEOK
-<UAEE2> \x83\xFB |0 # HANGUL SYLLABLE SSANGKIYEOK E RIEULMIEUM
-<UAEE3> \x83\xFC |0 # HANGUL SYLLABLE SSANGKIYEOK E RIEULPIEUP
-<UAEE4> \x83\xFD |0 # HANGUL SYLLABLE SSANGKIYEOK E RIEULSIOS
-<UAEE5> \x83\xFE |0 # HANGUL SYLLABLE SSANGKIYEOK E RIEULTHIEUTH
-<UAEE6> \x84\x41 |0 # HANGUL SYLLABLE SSANGKIYEOK E RIEULPHIEUPH
-<UAEE7> \x84\x42 |0 # HANGUL SYLLABLE SSANGKIYEOK E RIEULHIEUH
-<UAEE8> \xB2\xB5 |0 # HANGUL SYLLABLE SSANGKIYEOK E MIEUM
-<UAEE9> \x84\x43 |0 # HANGUL SYLLABLE SSANGKIYEOK E PIEUP
-<UAEEA> \x84\x44 |0 # HANGUL SYLLABLE SSANGKIYEOK E PIEUPSIOS
-<UAEEB> \xB2\xB6 |0 # HANGUL SYLLABLE SSANGKIYEOK E SIOS
-<UAEEC> \x84\x45 |0 # HANGUL SYLLABLE SSANGKIYEOK E SSANGSIOS
-<UAEED> \xB2\xB7 |0 # HANGUL SYLLABLE SSANGKIYEOK E IEUNG
-<UAEEE> \x84\x46 |0 # HANGUL SYLLABLE SSANGKIYEOK E CIEUC
-<UAEEF> \x84\x47 |0 # HANGUL SYLLABLE SSANGKIYEOK E CHIEUCH
-<UAEF0> \x84\x48 |0 # HANGUL SYLLABLE SSANGKIYEOK E KHIEUKH
-<UAEF1> \x84\x49 |0 # HANGUL SYLLABLE SSANGKIYEOK E THIEUTH
-<UAEF2> \x84\x4A |0 # HANGUL SYLLABLE SSANGKIYEOK E PHIEUPH
-<UAEF3> \x84\x4B |0 # HANGUL SYLLABLE SSANGKIYEOK E HIEUH
-<UAEF4> \xB2\xB8 |0 # HANGUL SYLLABLE SSANGKIYEOK YEO
-<UAEF5> \x84\x4C |0 # HANGUL SYLLABLE SSANGKIYEOK YEO KIYEOK
-<UAEF6> \x84\x4D |0 # HANGUL SYLLABLE SSANGKIYEOK YEO SSANGKIYEOK
-<UAEF7> \x84\x4E |0 # HANGUL SYLLABLE SSANGKIYEOK YEO KIYEOKSIOS
-<UAEF8> \xB2\xB9 |0 # HANGUL SYLLABLE SSANGKIYEOK YEO NIEUN
-<UAEF9> \x84\x4F |0 # HANGUL SYLLABLE SSANGKIYEOK YEO NIEUNCIEUC
-<UAEFA> \x84\x50 |0 # HANGUL SYLLABLE SSANGKIYEOK YEO NIEUNHIEUH
-<UAEFB> \x84\x51 |0 # HANGUL SYLLABLE SSANGKIYEOK YEO TIKEUT
-<UAEFC> \xB2\xBA |0 # HANGUL SYLLABLE SSANGKIYEOK YEO RIEUL
-<UAEFD> \x84\x52 |0 # HANGUL SYLLABLE SSANGKIYEOK YEO RIEULKIYEOK
-<UAEFE> \x84\x53 |0 # HANGUL SYLLABLE SSANGKIYEOK YEO RIEULMIEUM
-<UAEFF> \x84\x54 |0 # HANGUL SYLLABLE SSANGKIYEOK YEO RIEULPIEUP
-<UAF00> \x84\x55 |0 # HANGUL SYLLABLE SSANGKIYEOK YEO RIEULSIOS
-<UAF01> \x84\x56 |0 # HANGUL SYLLABLE SSANGKIYEOK YEO RIEULTHIEUTH
-<UAF02> \x84\x57 |0 # HANGUL SYLLABLE SSANGKIYEOK YEO RIEULPHIEUPH
-<UAF03> \x84\x58 |0 # HANGUL SYLLABLE SSANGKIYEOK YEO RIEULHIEUH
-<UAF04> \x84\x59 |0 # HANGUL SYLLABLE SSANGKIYEOK YEO MIEUM
-<UAF05> \x84\x5A |0 # HANGUL SYLLABLE SSANGKIYEOK YEO PIEUP
-<UAF06> \x84\x61 |0 # HANGUL SYLLABLE SSANGKIYEOK YEO PIEUPSIOS
-<UAF07> \xB2\xBB |0 # HANGUL SYLLABLE SSANGKIYEOK YEO SIOS
-<UAF08> \xB2\xBC |0 # HANGUL SYLLABLE SSANGKIYEOK YEO SSANGSIOS
-<UAF09> \x84\x62 |0 # HANGUL SYLLABLE SSANGKIYEOK YEO IEUNG
-<UAF0A> \x84\x63 |0 # HANGUL SYLLABLE SSANGKIYEOK YEO CIEUC
-<UAF0B> \x84\x64 |0 # HANGUL SYLLABLE SSANGKIYEOK YEO CHIEUCH
-<UAF0C> \x84\x65 |0 # HANGUL SYLLABLE SSANGKIYEOK YEO KHIEUKH
-<UAF0D> \xB2\xBD |0 # HANGUL SYLLABLE SSANGKIYEOK YEO THIEUTH
-<UAF0E> \x84\x66 |0 # HANGUL SYLLABLE SSANGKIYEOK YEO PHIEUPH
-<UAF0F> \x84\x67 |0 # HANGUL SYLLABLE SSANGKIYEOK YEO HIEUH
-<UAF10> \xB2\xBE |0 # HANGUL SYLLABLE SSANGKIYEOK YE
-<UAF11> \x84\x68 |0 # HANGUL SYLLABLE SSANGKIYEOK YE KIYEOK
-<UAF12> \x84\x69 |0 # HANGUL SYLLABLE SSANGKIYEOK YE SSANGKIYEOK
-<UAF13> \x84\x6A |0 # HANGUL SYLLABLE SSANGKIYEOK YE KIYEOKSIOS
-<UAF14> \x84\x6B |0 # HANGUL SYLLABLE SSANGKIYEOK YE NIEUN
-<UAF15> \x84\x6C |0 # HANGUL SYLLABLE SSANGKIYEOK YE NIEUNCIEUC
-<UAF16> \x84\x6D |0 # HANGUL SYLLABLE SSANGKIYEOK YE NIEUNHIEUH
-<UAF17> \x84\x6E |0 # HANGUL SYLLABLE SSANGKIYEOK YE TIKEUT
-<UAF18> \x84\x6F |0 # HANGUL SYLLABLE SSANGKIYEOK YE RIEUL
-<UAF19> \x84\x70 |0 # HANGUL SYLLABLE SSANGKIYEOK YE RIEULKIYEOK
-<UAF1A> \x84\x71 |0 # HANGUL SYLLABLE SSANGKIYEOK YE RIEULMIEUM
-<UAF1B> \x84\x72 |0 # HANGUL SYLLABLE SSANGKIYEOK YE RIEULPIEUP
-<UAF1C> \x84\x73 |0 # HANGUL SYLLABLE SSANGKIYEOK YE RIEULSIOS
-<UAF1D> \x84\x74 |0 # HANGUL SYLLABLE SSANGKIYEOK YE RIEULTHIEUTH
-<UAF1E> \x84\x75 |0 # HANGUL SYLLABLE SSANGKIYEOK YE RIEULPHIEUPH
-<UAF1F> \x84\x76 |0 # HANGUL SYLLABLE SSANGKIYEOK YE RIEULHIEUH
-<UAF20> \x84\x77 |0 # HANGUL SYLLABLE SSANGKIYEOK YE MIEUM
-<UAF21> \x84\x78 |0 # HANGUL SYLLABLE SSANGKIYEOK YE PIEUP
-<UAF22> \x84\x79 |0 # HANGUL SYLLABLE SSANGKIYEOK YE PIEUPSIOS
-<UAF23> \x84\x7A |0 # HANGUL SYLLABLE SSANGKIYEOK YE SIOS
-<UAF24> \x84\x81 |0 # HANGUL SYLLABLE SSANGKIYEOK YE SSANGSIOS
-<UAF25> \x84\x82 |0 # HANGUL SYLLABLE SSANGKIYEOK YE IEUNG
-<UAF26> \x84\x83 |0 # HANGUL SYLLABLE SSANGKIYEOK YE CIEUC
-<UAF27> \x84\x84 |0 # HANGUL SYLLABLE SSANGKIYEOK YE CHIEUCH
-<UAF28> \x84\x85 |0 # HANGUL SYLLABLE SSANGKIYEOK YE KHIEUKH
-<UAF29> \x84\x86 |0 # HANGUL SYLLABLE SSANGKIYEOK YE THIEUTH
-<UAF2A> \x84\x87 |0 # HANGUL SYLLABLE SSANGKIYEOK YE PHIEUPH
-<UAF2B> \x84\x88 |0 # HANGUL SYLLABLE SSANGKIYEOK YE HIEUH
-<UAF2C> \xB2\xBF |0 # HANGUL SYLLABLE SSANGKIYEOK O
-<UAF2D> \xB2\xC0 |0 # HANGUL SYLLABLE SSANGKIYEOK O KIYEOK
-<UAF2E> \x84\x89 |0 # HANGUL SYLLABLE SSANGKIYEOK O SSANGKIYEOK
-<UAF2F> \x84\x8A |0 # HANGUL SYLLABLE SSANGKIYEOK O KIYEOKSIOS
-<UAF30> \xB2\xC1 |0 # HANGUL SYLLABLE SSANGKIYEOK O NIEUN
-<UAF31> \x84\x8B |0 # HANGUL SYLLABLE SSANGKIYEOK O NIEUNCIEUC
-<UAF32> \xB2\xC2 |0 # HANGUL SYLLABLE SSANGKIYEOK O NIEUNHIEUH
-<UAF33> \x84\x8C |0 # HANGUL SYLLABLE SSANGKIYEOK O TIKEUT
-<UAF34> \xB2\xC3 |0 # HANGUL SYLLABLE SSANGKIYEOK O RIEUL
-<UAF35> \x84\x8D |0 # HANGUL SYLLABLE SSANGKIYEOK O RIEULKIYEOK
-<UAF36> \x84\x8E |0 # HANGUL SYLLABLE SSANGKIYEOK O RIEULMIEUM
-<UAF37> \x84\x8F |0 # HANGUL SYLLABLE SSANGKIYEOK O RIEULPIEUP
-<UAF38> \x84\x90 |0 # HANGUL SYLLABLE SSANGKIYEOK O RIEULSIOS
-<UAF39> \x84\x91 |0 # HANGUL SYLLABLE SSANGKIYEOK O RIEULTHIEUTH
-<UAF3A> \x84\x92 |0 # HANGUL SYLLABLE SSANGKIYEOK O RIEULPHIEUPH
-<UAF3B> \x84\x93 |0 # HANGUL SYLLABLE SSANGKIYEOK O RIEULHIEUH
-<UAF3C> \xB2\xC4 |0 # HANGUL SYLLABLE SSANGKIYEOK O MIEUM
-<UAF3D> \xB2\xC5 |0 # HANGUL SYLLABLE SSANGKIYEOK O PIEUP
-<UAF3E> \x84\x94 |0 # HANGUL SYLLABLE SSANGKIYEOK O PIEUPSIOS
-<UAF3F> \xB2\xC6 |0 # HANGUL SYLLABLE SSANGKIYEOK O SIOS
-<UAF40> \x84\x95 |0 # HANGUL SYLLABLE SSANGKIYEOK O SSANGSIOS
-<UAF41> \xB2\xC7 |0 # HANGUL SYLLABLE SSANGKIYEOK O IEUNG
-<UAF42> \xB2\xC8 |0 # HANGUL SYLLABLE SSANGKIYEOK O CIEUC
-<UAF43> \xB2\xC9 |0 # HANGUL SYLLABLE SSANGKIYEOK O CHIEUCH
-<UAF44> \x84\x96 |0 # HANGUL SYLLABLE SSANGKIYEOK O KHIEUKH
-<UAF45> \x84\x97 |0 # HANGUL SYLLABLE SSANGKIYEOK O THIEUTH
-<UAF46> \x84\x98 |0 # HANGUL SYLLABLE SSANGKIYEOK O PHIEUPH
-<UAF47> \x84\x99 |0 # HANGUL SYLLABLE SSANGKIYEOK O HIEUH
-<UAF48> \xB2\xCA |0 # HANGUL SYLLABLE SSANGKIYEOK WA
-<UAF49> \xB2\xCB |0 # HANGUL SYLLABLE SSANGKIYEOK WA KIYEOK
-<UAF4A> \x84\x9A |0 # HANGUL SYLLABLE SSANGKIYEOK WA SSANGKIYEOK
-<UAF4B> \x84\x9B |0 # HANGUL SYLLABLE SSANGKIYEOK WA KIYEOKSIOS
-<UAF4C> \x84\x9C |0 # HANGUL SYLLABLE SSANGKIYEOK WA NIEUN
-<UAF4D> \x84\x9D |0 # HANGUL SYLLABLE SSANGKIYEOK WA NIEUNCIEUC
-<UAF4E> \x84\x9E |0 # HANGUL SYLLABLE SSANGKIYEOK WA NIEUNHIEUH
-<UAF4F> \x84\x9F |0 # HANGUL SYLLABLE SSANGKIYEOK WA TIKEUT
-<UAF50> \xB2\xCC |0 # HANGUL SYLLABLE SSANGKIYEOK WA RIEUL
-<UAF51> \x84\xA0 |0 # HANGUL SYLLABLE SSANGKIYEOK WA RIEULKIYEOK
-<UAF52> \x84\xA1 |0 # HANGUL SYLLABLE SSANGKIYEOK WA RIEULMIEUM
-<UAF53> \x84\xA2 |0 # HANGUL SYLLABLE SSANGKIYEOK WA RIEULPIEUP
-<UAF54> \x84\xA3 |0 # HANGUL SYLLABLE SSANGKIYEOK WA RIEULSIOS
-<UAF55> \x84\xA4 |0 # HANGUL SYLLABLE SSANGKIYEOK WA RIEULTHIEUTH
-<UAF56> \x84\xA5 |0 # HANGUL SYLLABLE SSANGKIYEOK WA RIEULPHIEUPH
-<UAF57> \x84\xA6 |0 # HANGUL SYLLABLE SSANGKIYEOK WA RIEULHIEUH
-<UAF58> \x84\xA7 |0 # HANGUL SYLLABLE SSANGKIYEOK WA MIEUM
-<UAF59> \x84\xA8 |0 # HANGUL SYLLABLE SSANGKIYEOK WA PIEUP
-<UAF5A> \x84\xA9 |0 # HANGUL SYLLABLE SSANGKIYEOK WA PIEUPSIOS
-<UAF5B> \x84\xAA |0 # HANGUL SYLLABLE SSANGKIYEOK WA SIOS
-<UAF5C> \xB2\xCD |0 # HANGUL SYLLABLE SSANGKIYEOK WA SSANGSIOS
-<UAF5D> \xB2\xCE |0 # HANGUL SYLLABLE SSANGKIYEOK WA IEUNG
-<UAF5E> \x84\xAB |0 # HANGUL SYLLABLE SSANGKIYEOK WA CIEUC
-<UAF5F> \x84\xAC |0 # HANGUL SYLLABLE SSANGKIYEOK WA CHIEUCH
-<UAF60> \x84\xAD |0 # HANGUL SYLLABLE SSANGKIYEOK WA KHIEUKH
-<UAF61> \x84\xAE |0 # HANGUL SYLLABLE SSANGKIYEOK WA THIEUTH
-<UAF62> \x84\xAF |0 # HANGUL SYLLABLE SSANGKIYEOK WA PHIEUPH
-<UAF63> \x84\xB0 |0 # HANGUL SYLLABLE SSANGKIYEOK WA HIEUH
-<UAF64> \xB2\xCF |0 # HANGUL SYLLABLE SSANGKIYEOK WAE
-<UAF65> \xB2\xD0 |0 # HANGUL SYLLABLE SSANGKIYEOK WAE KIYEOK
-<UAF66> \x84\xB1 |0 # HANGUL SYLLABLE SSANGKIYEOK WAE SSANGKIYEOK
-<UAF67> \x84\xB2 |0 # HANGUL SYLLABLE SSANGKIYEOK WAE KIYEOKSIOS
-<UAF68> \x84\xB3 |0 # HANGUL SYLLABLE SSANGKIYEOK WAE NIEUN
-<UAF69> \x84\xB4 |0 # HANGUL SYLLABLE SSANGKIYEOK WAE NIEUNCIEUC
-<UAF6A> \x84\xB5 |0 # HANGUL SYLLABLE SSANGKIYEOK WAE NIEUNHIEUH
-<UAF6B> \x84\xB6 |0 # HANGUL SYLLABLE SSANGKIYEOK WAE TIKEUT
-<UAF6C> \x84\xB7 |0 # HANGUL SYLLABLE SSANGKIYEOK WAE RIEUL
-<UAF6D> \x84\xB8 |0 # HANGUL SYLLABLE SSANGKIYEOK WAE RIEULKIYEOK
-<UAF6E> \x84\xB9 |0 # HANGUL SYLLABLE SSANGKIYEOK WAE RIEULMIEUM
-<UAF6F> \x84\xBA |0 # HANGUL SYLLABLE SSANGKIYEOK WAE RIEULPIEUP
-<UAF70> \x84\xBB |0 # HANGUL SYLLABLE SSANGKIYEOK WAE RIEULSIOS
-<UAF71> \x84\xBC |0 # HANGUL SYLLABLE SSANGKIYEOK WAE RIEULTHIEUTH
-<UAF72> \x84\xBD |0 # HANGUL SYLLABLE SSANGKIYEOK WAE RIEULPHIEUPH
-<UAF73> \x84\xBE |0 # HANGUL SYLLABLE SSANGKIYEOK WAE RIEULHIEUH
-<UAF74> \x84\xBF |0 # HANGUL SYLLABLE SSANGKIYEOK WAE MIEUM
-<UAF75> \x84\xC0 |0 # HANGUL SYLLABLE SSANGKIYEOK WAE PIEUP
-<UAF76> \x84\xC1 |0 # HANGUL SYLLABLE SSANGKIYEOK WAE PIEUPSIOS
-<UAF77> \x84\xC2 |0 # HANGUL SYLLABLE SSANGKIYEOK WAE SIOS
-<UAF78> \x84\xC3 |0 # HANGUL SYLLABLE SSANGKIYEOK WAE SSANGSIOS
-<UAF79> \xB2\xD1 |0 # HANGUL SYLLABLE SSANGKIYEOK WAE IEUNG
-<UAF7A> \x84\xC4 |0 # HANGUL SYLLABLE SSANGKIYEOK WAE CIEUC
-<UAF7B> \x84\xC5 |0 # HANGUL SYLLABLE SSANGKIYEOK WAE CHIEUCH
-<UAF7C> \x84\xC6 |0 # HANGUL SYLLABLE SSANGKIYEOK WAE KHIEUKH
-<UAF7D> \x84\xC7 |0 # HANGUL SYLLABLE SSANGKIYEOK WAE THIEUTH
-<UAF7E> \x84\xC8 |0 # HANGUL SYLLABLE SSANGKIYEOK WAE PHIEUPH
-<UAF7F> \x84\xC9 |0 # HANGUL SYLLABLE SSANGKIYEOK WAE HIEUH
-<UAF80> \xB2\xD2 |0 # HANGUL SYLLABLE SSANGKIYEOK OE
-<UAF81> \x84\xCA |0 # HANGUL SYLLABLE SSANGKIYEOK OE KIYEOK
-<UAF82> \x84\xCB |0 # HANGUL SYLLABLE SSANGKIYEOK OE SSANGKIYEOK
-<UAF83> \x84\xCC |0 # HANGUL SYLLABLE SSANGKIYEOK OE KIYEOKSIOS
-<UAF84> \xB2\xD3 |0 # HANGUL SYLLABLE SSANGKIYEOK OE NIEUN
-<UAF85> \x84\xCD |0 # HANGUL SYLLABLE SSANGKIYEOK OE NIEUNCIEUC
-<UAF86> \x84\xCE |0 # HANGUL SYLLABLE SSANGKIYEOK OE NIEUNHIEUH
-<UAF87> \x84\xCF |0 # HANGUL SYLLABLE SSANGKIYEOK OE TIKEUT
-<UAF88> \xB2\xD4 |0 # HANGUL SYLLABLE SSANGKIYEOK OE RIEUL
-<UAF89> \x84\xD0 |0 # HANGUL SYLLABLE SSANGKIYEOK OE RIEULKIYEOK
-<UAF8A> \x84\xD1 |0 # HANGUL SYLLABLE SSANGKIYEOK OE RIEULMIEUM
-<UAF8B> \x84\xD2 |0 # HANGUL SYLLABLE SSANGKIYEOK OE RIEULPIEUP
-<UAF8C> \x84\xD3 |0 # HANGUL SYLLABLE SSANGKIYEOK OE RIEULSIOS
-<UAF8D> \x84\xD4 |0 # HANGUL SYLLABLE SSANGKIYEOK OE RIEULTHIEUTH
-<UAF8E> \x84\xD5 |0 # HANGUL SYLLABLE SSANGKIYEOK OE RIEULPHIEUPH
-<UAF8F> \x84\xD6 |0 # HANGUL SYLLABLE SSANGKIYEOK OE RIEULHIEUH
-<UAF90> \xB2\xD5 |0 # HANGUL SYLLABLE SSANGKIYEOK OE MIEUM
-<UAF91> \xB2\xD6 |0 # HANGUL SYLLABLE SSANGKIYEOK OE PIEUP
-<UAF92> \x84\xD7 |0 # HANGUL SYLLABLE SSANGKIYEOK OE PIEUPSIOS
-<UAF93> \x84\xD8 |0 # HANGUL SYLLABLE SSANGKIYEOK OE SIOS
-<UAF94> \x84\xD9 |0 # HANGUL SYLLABLE SSANGKIYEOK OE SSANGSIOS
-<UAF95> \xB2\xD7 |0 # HANGUL SYLLABLE SSANGKIYEOK OE IEUNG
-<UAF96> \x84\xDA |0 # HANGUL SYLLABLE SSANGKIYEOK OE CIEUC
-<UAF97> \x84\xDB |0 # HANGUL SYLLABLE SSANGKIYEOK OE CHIEUCH
-<UAF98> \x84\xDC |0 # HANGUL SYLLABLE SSANGKIYEOK OE KHIEUKH
-<UAF99> \x84\xDD |0 # HANGUL SYLLABLE SSANGKIYEOK OE THIEUTH
-<UAF9A> \x84\xDE |0 # HANGUL SYLLABLE SSANGKIYEOK OE PHIEUPH
-<UAF9B> \x84\xDF |0 # HANGUL SYLLABLE SSANGKIYEOK OE HIEUH
-<UAF9C> \xB2\xD8 |0 # HANGUL SYLLABLE SSANGKIYEOK YO
-<UAF9D> \x84\xE0 |0 # HANGUL SYLLABLE SSANGKIYEOK YO KIYEOK
-<UAF9E> \x84\xE1 |0 # HANGUL SYLLABLE SSANGKIYEOK YO SSANGKIYEOK
-<UAF9F> \x84\xE2 |0 # HANGUL SYLLABLE SSANGKIYEOK YO KIYEOKSIOS
-<UAFA0> \x84\xE3 |0 # HANGUL SYLLABLE SSANGKIYEOK YO NIEUN
-<UAFA1> \x84\xE4 |0 # HANGUL SYLLABLE SSANGKIYEOK YO NIEUNCIEUC
-<UAFA2> \x84\xE5 |0 # HANGUL SYLLABLE SSANGKIYEOK YO NIEUNHIEUH
-<UAFA3> \x84\xE6 |0 # HANGUL SYLLABLE SSANGKIYEOK YO TIKEUT
-<UAFA4> \x84\xE7 |0 # HANGUL SYLLABLE SSANGKIYEOK YO RIEUL
-<UAFA5> \x84\xE8 |0 # HANGUL SYLLABLE SSANGKIYEOK YO RIEULKIYEOK
-<UAFA6> \x84\xE9 |0 # HANGUL SYLLABLE SSANGKIYEOK YO RIEULMIEUM
-<UAFA7> \x84\xEA |0 # HANGUL SYLLABLE SSANGKIYEOK YO RIEULPIEUP
-<UAFA8> \x84\xEB |0 # HANGUL SYLLABLE SSANGKIYEOK YO RIEULSIOS
-<UAFA9> \x84\xEC |0 # HANGUL SYLLABLE SSANGKIYEOK YO RIEULTHIEUTH
-<UAFAA> \x84\xED |0 # HANGUL SYLLABLE SSANGKIYEOK YO RIEULPHIEUPH
-<UAFAB> \x84\xEE |0 # HANGUL SYLLABLE SSANGKIYEOK YO RIEULHIEUH
-<UAFAC> \x84\xEF |0 # HANGUL SYLLABLE SSANGKIYEOK YO MIEUM
-<UAFAD> \x84\xF0 |0 # HANGUL SYLLABLE SSANGKIYEOK YO PIEUP
-<UAFAE> \x84\xF1 |0 # HANGUL SYLLABLE SSANGKIYEOK YO PIEUPSIOS
-<UAFAF> \x84\xF2 |0 # HANGUL SYLLABLE SSANGKIYEOK YO SIOS
-<UAFB0> \x84\xF3 |0 # HANGUL SYLLABLE SSANGKIYEOK YO SSANGSIOS
-<UAFB1> \x84\xF4 |0 # HANGUL SYLLABLE SSANGKIYEOK YO IEUNG
-<UAFB2> \x84\xF5 |0 # HANGUL SYLLABLE SSANGKIYEOK YO CIEUC
-<UAFB3> \x84\xF6 |0 # HANGUL SYLLABLE SSANGKIYEOK YO CHIEUCH
-<UAFB4> \x84\xF7 |0 # HANGUL SYLLABLE SSANGKIYEOK YO KHIEUKH
-<UAFB5> \x84\xF8 |0 # HANGUL SYLLABLE SSANGKIYEOK YO THIEUTH
-<UAFB6> \x84\xF9 |0 # HANGUL SYLLABLE SSANGKIYEOK YO PHIEUPH
-<UAFB7> \x84\xFA |0 # HANGUL SYLLABLE SSANGKIYEOK YO HIEUH
-<UAFB8> \xB2\xD9 |0 # HANGUL SYLLABLE SSANGKIYEOK U
-<UAFB9> \xB2\xDA |0 # HANGUL SYLLABLE SSANGKIYEOK U KIYEOK
-<UAFBA> \x84\xFB |0 # HANGUL SYLLABLE SSANGKIYEOK U SSANGKIYEOK
-<UAFBB> \x84\xFC |0 # HANGUL SYLLABLE SSANGKIYEOK U KIYEOKSIOS
-<UAFBC> \xB2\xDB |0 # HANGUL SYLLABLE SSANGKIYEOK U NIEUN
-<UAFBD> \x84\xFD |0 # HANGUL SYLLABLE SSANGKIYEOK U NIEUNCIEUC
-<UAFBE> \x84\xFE |0 # HANGUL SYLLABLE SSANGKIYEOK U NIEUNHIEUH
-<UAFBF> \x85\x41 |0 # HANGUL SYLLABLE SSANGKIYEOK U TIKEUT
-<UAFC0> \xB2\xDC |0 # HANGUL SYLLABLE SSANGKIYEOK U RIEUL
-<UAFC1> \x85\x42 |0 # HANGUL SYLLABLE SSANGKIYEOK U RIEULKIYEOK
-<UAFC2> \x85\x43 |0 # HANGUL SYLLABLE SSANGKIYEOK U RIEULMIEUM
-<UAFC3> \x85\x44 |0 # HANGUL SYLLABLE SSANGKIYEOK U RIEULPIEUP
-<UAFC4> \x85\x45 |0 # HANGUL SYLLABLE SSANGKIYEOK U RIEULSIOS
-<UAFC5> \x85\x46 |0 # HANGUL SYLLABLE SSANGKIYEOK U RIEULTHIEUTH
-<UAFC6> \x85\x47 |0 # HANGUL SYLLABLE SSANGKIYEOK U RIEULPHIEUPH
-<UAFC7> \xB2\xDD |0 # HANGUL SYLLABLE SSANGKIYEOK U RIEULHIEUH
-<UAFC8> \xB2\xDE |0 # HANGUL SYLLABLE SSANGKIYEOK U MIEUM
-<UAFC9> \xB2\xDF |0 # HANGUL SYLLABLE SSANGKIYEOK U PIEUP
-<UAFCA> \x85\x48 |0 # HANGUL SYLLABLE SSANGKIYEOK U PIEUPSIOS
-<UAFCB> \xB2\xE0 |0 # HANGUL SYLLABLE SSANGKIYEOK U SIOS
-<UAFCC> \x85\x49 |0 # HANGUL SYLLABLE SSANGKIYEOK U SSANGSIOS
-<UAFCD> \xB2\xE1 |0 # HANGUL SYLLABLE SSANGKIYEOK U IEUNG
-<UAFCE> \xB2\xE2 |0 # HANGUL SYLLABLE SSANGKIYEOK U CIEUC
-<UAFCF> \x85\x4A |0 # HANGUL SYLLABLE SSANGKIYEOK U CHIEUCH
-<UAFD0> \x85\x4B |0 # HANGUL SYLLABLE SSANGKIYEOK U KHIEUKH
-<UAFD1> \x85\x4C |0 # HANGUL SYLLABLE SSANGKIYEOK U THIEUTH
-<UAFD2> \x85\x4D |0 # HANGUL SYLLABLE SSANGKIYEOK U PHIEUPH
-<UAFD3> \x85\x4E |0 # HANGUL SYLLABLE SSANGKIYEOK U HIEUH
-<UAFD4> \xB2\xE3 |0 # HANGUL SYLLABLE SSANGKIYEOK WEO
-<UAFD5> \x85\x4F |0 # HANGUL SYLLABLE SSANGKIYEOK WEO KIYEOK
-<UAFD6> \x85\x50 |0 # HANGUL SYLLABLE SSANGKIYEOK WEO SSANGKIYEOK
-<UAFD7> \x85\x51 |0 # HANGUL SYLLABLE SSANGKIYEOK WEO KIYEOKSIOS
-<UAFD8> \x85\x52 |0 # HANGUL SYLLABLE SSANGKIYEOK WEO NIEUN
-<UAFD9> \x85\x53 |0 # HANGUL SYLLABLE SSANGKIYEOK WEO NIEUNCIEUC
-<UAFDA> \x85\x54 |0 # HANGUL SYLLABLE SSANGKIYEOK WEO NIEUNHIEUH
-<UAFDB> \x85\x55 |0 # HANGUL SYLLABLE SSANGKIYEOK WEO TIKEUT
-<UAFDC> \xB2\xE4 |0 # HANGUL SYLLABLE SSANGKIYEOK WEO RIEUL
-<UAFDD> \x85\x56 |0 # HANGUL SYLLABLE SSANGKIYEOK WEO RIEULKIYEOK
-<UAFDE> \x85\x57 |0 # HANGUL SYLLABLE SSANGKIYEOK WEO RIEULMIEUM
-<UAFDF> \x85\x58 |0 # HANGUL SYLLABLE SSANGKIYEOK WEO RIEULPIEUP
-<UAFE0> \x85\x59 |0 # HANGUL SYLLABLE SSANGKIYEOK WEO RIEULSIOS
-<UAFE1> \x85\x5A |0 # HANGUL SYLLABLE SSANGKIYEOK WEO RIEULTHIEUTH
-<UAFE2> \x85\x61 |0 # HANGUL SYLLABLE SSANGKIYEOK WEO RIEULPHIEUPH
-<UAFE3> \x85\x62 |0 # HANGUL SYLLABLE SSANGKIYEOK WEO RIEULHIEUH
-<UAFE4> \x85\x63 |0 # HANGUL SYLLABLE SSANGKIYEOK WEO MIEUM
-<UAFE5> \x85\x64 |0 # HANGUL SYLLABLE SSANGKIYEOK WEO PIEUP
-<UAFE6> \x85\x65 |0 # HANGUL SYLLABLE SSANGKIYEOK WEO PIEUPSIOS
-<UAFE7> \x85\x66 |0 # HANGUL SYLLABLE SSANGKIYEOK WEO SIOS
-<UAFE8> \xB2\xE5 |0 # HANGUL SYLLABLE SSANGKIYEOK WEO SSANGSIOS
-<UAFE9> \xB2\xE6 |0 # HANGUL SYLLABLE SSANGKIYEOK WEO IEUNG
-<UAFEA> \x85\x67 |0 # HANGUL SYLLABLE SSANGKIYEOK WEO CIEUC
-<UAFEB> \x85\x68 |0 # HANGUL SYLLABLE SSANGKIYEOK WEO CHIEUCH
-<UAFEC> \x85\x69 |0 # HANGUL SYLLABLE SSANGKIYEOK WEO KHIEUKH
-<UAFED> \x85\x6A |0 # HANGUL SYLLABLE SSANGKIYEOK WEO THIEUTH
-<UAFEE> \x85\x6B |0 # HANGUL SYLLABLE SSANGKIYEOK WEO PHIEUPH
-<UAFEF> \x85\x6C |0 # HANGUL SYLLABLE SSANGKIYEOK WEO HIEUH
-<UAFF0> \xB2\xE7 |0 # HANGUL SYLLABLE SSANGKIYEOK WE
-<UAFF1> \xB2\xE8 |0 # HANGUL SYLLABLE SSANGKIYEOK WE KIYEOK
-<UAFF2> \x85\x6D |0 # HANGUL SYLLABLE SSANGKIYEOK WE SSANGKIYEOK
-<UAFF3> \x85\x6E |0 # HANGUL SYLLABLE SSANGKIYEOK WE KIYEOKSIOS
-<UAFF4> \xB2\xE9 |0 # HANGUL SYLLABLE SSANGKIYEOK WE NIEUN
-<UAFF5> \x85\x6F |0 # HANGUL SYLLABLE SSANGKIYEOK WE NIEUNCIEUC
-<UAFF6> \x85\x70 |0 # HANGUL SYLLABLE SSANGKIYEOK WE NIEUNHIEUH
-<UAFF7> \x85\x71 |0 # HANGUL SYLLABLE SSANGKIYEOK WE TIKEUT
-<UAFF8> \xB2\xEA |0 # HANGUL SYLLABLE SSANGKIYEOK WE RIEUL
-<UAFF9> \x85\x72 |0 # HANGUL SYLLABLE SSANGKIYEOK WE RIEULKIYEOK
-<UAFFA> \x85\x73 |0 # HANGUL SYLLABLE SSANGKIYEOK WE RIEULMIEUM
-<UAFFB> \x85\x74 |0 # HANGUL SYLLABLE SSANGKIYEOK WE RIEULPIEUP
-<UAFFC> \x85\x75 |0 # HANGUL SYLLABLE SSANGKIYEOK WE RIEULSIOS
-<UAFFD> \x85\x76 |0 # HANGUL SYLLABLE SSANGKIYEOK WE RIEULTHIEUTH
-<UAFFE> \x85\x77 |0 # HANGUL SYLLABLE SSANGKIYEOK WE RIEULPHIEUPH
-<UAFFF> \x85\x78 |0 # HANGUL SYLLABLE SSANGKIYEOK WE RIEULHIEUH
-<UB000> \xB2\xEB |0 # HANGUL SYLLABLE SSANGKIYEOK WE MIEUM
-<UB001> \xB2\xEC |0 # HANGUL SYLLABLE SSANGKIYEOK WE PIEUP
-<UB002> \x85\x79 |0 # HANGUL SYLLABLE SSANGKIYEOK WE PIEUPSIOS
-<UB003> \x85\x7A |0 # HANGUL SYLLABLE SSANGKIYEOK WE SIOS
-<UB004> \xB2\xED |0 # HANGUL SYLLABLE SSANGKIYEOK WE SSANGSIOS
-<UB005> \x85\x81 |0 # HANGUL SYLLABLE SSANGKIYEOK WE IEUNG
-<UB006> \x85\x82 |0 # HANGUL SYLLABLE SSANGKIYEOK WE CIEUC
-<UB007> \x85\x83 |0 # HANGUL SYLLABLE SSANGKIYEOK WE CHIEUCH
-<UB008> \x85\x84 |0 # HANGUL SYLLABLE SSANGKIYEOK WE KHIEUKH
-<UB009> \x85\x85 |0 # HANGUL SYLLABLE SSANGKIYEOK WE THIEUTH
-<UB00A> \x85\x86 |0 # HANGUL SYLLABLE SSANGKIYEOK WE PHIEUPH
-<UB00B> \x85\x87 |0 # HANGUL SYLLABLE SSANGKIYEOK WE HIEUH
-<UB00C> \xB2\xEE |0 # HANGUL SYLLABLE SSANGKIYEOK WI
-<UB00D> \x85\x88 |0 # HANGUL SYLLABLE SSANGKIYEOK WI KIYEOK
-<UB00E> \x85\x89 |0 # HANGUL SYLLABLE SSANGKIYEOK WI SSANGKIYEOK
-<UB00F> \x85\x8A |0 # HANGUL SYLLABLE SSANGKIYEOK WI KIYEOKSIOS
-<UB010> \xB2\xEF |0 # HANGUL SYLLABLE SSANGKIYEOK WI NIEUN
-<UB011> \x85\x8B |0 # HANGUL SYLLABLE SSANGKIYEOK WI NIEUNCIEUC
-<UB012> \x85\x8C |0 # HANGUL SYLLABLE SSANGKIYEOK WI NIEUNHIEUH
-<UB013> \x85\x8D |0 # HANGUL SYLLABLE SSANGKIYEOK WI TIKEUT
-<UB014> \xB2\xF0 |0 # HANGUL SYLLABLE SSANGKIYEOK WI RIEUL
-<UB015> \x85\x8E |0 # HANGUL SYLLABLE SSANGKIYEOK WI RIEULKIYEOK
-<UB016> \x85\x8F |0 # HANGUL SYLLABLE SSANGKIYEOK WI RIEULMIEUM
-<UB017> \x85\x90 |0 # HANGUL SYLLABLE SSANGKIYEOK WI RIEULPIEUP
-<UB018> \x85\x91 |0 # HANGUL SYLLABLE SSANGKIYEOK WI RIEULSIOS
-<UB019> \x85\x92 |0 # HANGUL SYLLABLE SSANGKIYEOK WI RIEULTHIEUTH
-<UB01A> \x85\x93 |0 # HANGUL SYLLABLE SSANGKIYEOK WI RIEULPHIEUPH
-<UB01B> \x85\x94 |0 # HANGUL SYLLABLE SSANGKIYEOK WI RIEULHIEUH
-<UB01C> \xB2\xF1 |0 # HANGUL SYLLABLE SSANGKIYEOK WI MIEUM
-<UB01D> \xB2\xF2 |0 # HANGUL SYLLABLE SSANGKIYEOK WI PIEUP
-<UB01E> \x85\x95 |0 # HANGUL SYLLABLE SSANGKIYEOK WI PIEUPSIOS
-<UB01F> \x85\x96 |0 # HANGUL SYLLABLE SSANGKIYEOK WI SIOS
-<UB020> \x85\x97 |0 # HANGUL SYLLABLE SSANGKIYEOK WI SSANGSIOS
-<UB021> \x85\x98 |0 # HANGUL SYLLABLE SSANGKIYEOK WI IEUNG
-<UB022> \x85\x99 |0 # HANGUL SYLLABLE SSANGKIYEOK WI CIEUC
-<UB023> \x85\x9A |0 # HANGUL SYLLABLE SSANGKIYEOK WI CHIEUCH
-<UB024> \x85\x9B |0 # HANGUL SYLLABLE SSANGKIYEOK WI KHIEUKH
-<UB025> \x85\x9C |0 # HANGUL SYLLABLE SSANGKIYEOK WI THIEUTH
-<UB026> \x85\x9D |0 # HANGUL SYLLABLE SSANGKIYEOK WI PHIEUPH
-<UB027> \x85\x9E |0 # HANGUL SYLLABLE SSANGKIYEOK WI HIEUH
-<UB028> \xB2\xF3 |0 # HANGUL SYLLABLE SSANGKIYEOK YU
-<UB029> \x85\x9F |0 # HANGUL SYLLABLE SSANGKIYEOK YU KIYEOK
-<UB02A> \x85\xA0 |0 # HANGUL SYLLABLE SSANGKIYEOK YU SSANGKIYEOK
-<UB02B> \x85\xA1 |0 # HANGUL SYLLABLE SSANGKIYEOK YU KIYEOKSIOS
-<UB02C> \x85\xA2 |0 # HANGUL SYLLABLE SSANGKIYEOK YU NIEUN
-<UB02D> \x85\xA3 |0 # HANGUL SYLLABLE SSANGKIYEOK YU NIEUNCIEUC
-<UB02E> \x85\xA4 |0 # HANGUL SYLLABLE SSANGKIYEOK YU NIEUNHIEUH
-<UB02F> \x85\xA5 |0 # HANGUL SYLLABLE SSANGKIYEOK YU TIKEUT
-<UB030> \x85\xA6 |0 # HANGUL SYLLABLE SSANGKIYEOK YU RIEUL
-<UB031> \x85\xA7 |0 # HANGUL SYLLABLE SSANGKIYEOK YU RIEULKIYEOK
-<UB032> \x85\xA8 |0 # HANGUL SYLLABLE SSANGKIYEOK YU RIEULMIEUM
-<UB033> \x85\xA9 |0 # HANGUL SYLLABLE SSANGKIYEOK YU RIEULPIEUP
-<UB034> \x85\xAA |0 # HANGUL SYLLABLE SSANGKIYEOK YU RIEULSIOS
-<UB035> \x85\xAB |0 # HANGUL SYLLABLE SSANGKIYEOK YU RIEULTHIEUTH
-<UB036> \x85\xAC |0 # HANGUL SYLLABLE SSANGKIYEOK YU RIEULPHIEUPH
-<UB037> \x85\xAD |0 # HANGUL SYLLABLE SSANGKIYEOK YU RIEULHIEUH
-<UB038> \x85\xAE |0 # HANGUL SYLLABLE SSANGKIYEOK YU MIEUM
-<UB039> \x85\xAF |0 # HANGUL SYLLABLE SSANGKIYEOK YU PIEUP
-<UB03A> \x85\xB0 |0 # HANGUL SYLLABLE SSANGKIYEOK YU PIEUPSIOS
-<UB03B> \x85\xB1 |0 # HANGUL SYLLABLE SSANGKIYEOK YU SIOS
-<UB03C> \x85\xB2 |0 # HANGUL SYLLABLE SSANGKIYEOK YU SSANGSIOS
-<UB03D> \x85\xB3 |0 # HANGUL SYLLABLE SSANGKIYEOK YU IEUNG
-<UB03E> \x85\xB4 |0 # HANGUL SYLLABLE SSANGKIYEOK YU CIEUC
-<UB03F> \x85\xB5 |0 # HANGUL SYLLABLE SSANGKIYEOK YU CHIEUCH
-<UB040> \x85\xB6 |0 # HANGUL SYLLABLE SSANGKIYEOK YU KHIEUKH
-<UB041> \x85\xB7 |0 # HANGUL SYLLABLE SSANGKIYEOK YU THIEUTH
-<UB042> \x85\xB8 |0 # HANGUL SYLLABLE SSANGKIYEOK YU PHIEUPH
-<UB043> \x85\xB9 |0 # HANGUL SYLLABLE SSANGKIYEOK YU HIEUH
-<UB044> \xB2\xF4 |0 # HANGUL SYLLABLE SSANGKIYEOK EU
-<UB045> \xB2\xF5 |0 # HANGUL SYLLABLE SSANGKIYEOK EU KIYEOK
-<UB046> \x85\xBA |0 # HANGUL SYLLABLE SSANGKIYEOK EU SSANGKIYEOK
-<UB047> \x85\xBB |0 # HANGUL SYLLABLE SSANGKIYEOK EU KIYEOKSIOS
-<UB048> \xB2\xF6 |0 # HANGUL SYLLABLE SSANGKIYEOK EU NIEUN
-<UB049> \x85\xBC |0 # HANGUL SYLLABLE SSANGKIYEOK EU NIEUNCIEUC
-<UB04A> \xB2\xF7 |0 # HANGUL SYLLABLE SSANGKIYEOK EU NIEUNHIEUH
-<UB04B> \x85\xBD |0 # HANGUL SYLLABLE SSANGKIYEOK EU TIKEUT
-<UB04C> \xB2\xF8 |0 # HANGUL SYLLABLE SSANGKIYEOK EU RIEUL
-<UB04D> \x85\xBE |0 # HANGUL SYLLABLE SSANGKIYEOK EU RIEULKIYEOK
-<UB04E> \xB2\xF9 |0 # HANGUL SYLLABLE SSANGKIYEOK EU RIEULMIEUM
-<UB04F> \x85\xBF |0 # HANGUL SYLLABLE SSANGKIYEOK EU RIEULPIEUP
-<UB050> \x85\xC0 |0 # HANGUL SYLLABLE SSANGKIYEOK EU RIEULSIOS
-<UB051> \x85\xC1 |0 # HANGUL SYLLABLE SSANGKIYEOK EU RIEULTHIEUTH
-<UB052> \x85\xC2 |0 # HANGUL SYLLABLE SSANGKIYEOK EU RIEULPHIEUPH
-<UB053> \xB2\xFA |0 # HANGUL SYLLABLE SSANGKIYEOK EU RIEULHIEUH
-<UB054> \xB2\xFB |0 # HANGUL SYLLABLE SSANGKIYEOK EU MIEUM
-<UB055> \xB2\xFC |0 # HANGUL SYLLABLE SSANGKIYEOK EU PIEUP
-<UB056> \x85\xC3 |0 # HANGUL SYLLABLE SSANGKIYEOK EU PIEUPSIOS
-<UB057> \xB2\xFD |0 # HANGUL SYLLABLE SSANGKIYEOK EU SIOS
-<UB058> \x85\xC4 |0 # HANGUL SYLLABLE SSANGKIYEOK EU SSANGSIOS
-<UB059> \xB2\xFE |0 # HANGUL SYLLABLE SSANGKIYEOK EU IEUNG
-<UB05A> \x85\xC5 |0 # HANGUL SYLLABLE SSANGKIYEOK EU CIEUC
-<UB05B> \x85\xC6 |0 # HANGUL SYLLABLE SSANGKIYEOK EU CHIEUCH
-<UB05C> \x85\xC7 |0 # HANGUL SYLLABLE SSANGKIYEOK EU KHIEUKH
-<UB05D> \xB3\xA1 |0 # HANGUL SYLLABLE SSANGKIYEOK EU THIEUTH
-<UB05E> \x85\xC8 |0 # HANGUL SYLLABLE SSANGKIYEOK EU PHIEUPH
-<UB05F> \x85\xC9 |0 # HANGUL SYLLABLE SSANGKIYEOK EU HIEUH
-<UB060> \x85\xCA |0 # HANGUL SYLLABLE SSANGKIYEOK YI
-<UB061> \x85\xCB |0 # HANGUL SYLLABLE SSANGKIYEOK YI KIYEOK
-<UB062> \x85\xCC |0 # HANGUL SYLLABLE SSANGKIYEOK YI SSANGKIYEOK
-<UB063> \x85\xCD |0 # HANGUL SYLLABLE SSANGKIYEOK YI KIYEOKSIOS
-<UB064> \x85\xCE |0 # HANGUL SYLLABLE SSANGKIYEOK YI NIEUN
-<UB065> \x85\xCF |0 # HANGUL SYLLABLE SSANGKIYEOK YI NIEUNCIEUC
-<UB066> \x85\xD0 |0 # HANGUL SYLLABLE SSANGKIYEOK YI NIEUNHIEUH
-<UB067> \x85\xD1 |0 # HANGUL SYLLABLE SSANGKIYEOK YI TIKEUT
-<UB068> \x85\xD2 |0 # HANGUL SYLLABLE SSANGKIYEOK YI RIEUL
-<UB069> \x85\xD3 |0 # HANGUL SYLLABLE SSANGKIYEOK YI RIEULKIYEOK
-<UB06A> \x85\xD4 |0 # HANGUL SYLLABLE SSANGKIYEOK YI RIEULMIEUM
-<UB06B> \x85\xD5 |0 # HANGUL SYLLABLE SSANGKIYEOK YI RIEULPIEUP
-<UB06C> \x85\xD6 |0 # HANGUL SYLLABLE SSANGKIYEOK YI RIEULSIOS
-<UB06D> \x85\xD7 |0 # HANGUL SYLLABLE SSANGKIYEOK YI RIEULTHIEUTH
-<UB06E> \x85\xD8 |0 # HANGUL SYLLABLE SSANGKIYEOK YI RIEULPHIEUPH
-<UB06F> \x85\xD9 |0 # HANGUL SYLLABLE SSANGKIYEOK YI RIEULHIEUH
-<UB070> \x85\xDA |0 # HANGUL SYLLABLE SSANGKIYEOK YI MIEUM
-<UB071> \x85\xDB |0 # HANGUL SYLLABLE SSANGKIYEOK YI PIEUP
-<UB072> \x85\xDC |0 # HANGUL SYLLABLE SSANGKIYEOK YI PIEUPSIOS
-<UB073> \x85\xDD |0 # HANGUL SYLLABLE SSANGKIYEOK YI SIOS
-<UB074> \x85\xDE |0 # HANGUL SYLLABLE SSANGKIYEOK YI SSANGSIOS
-<UB075> \x85\xDF |0 # HANGUL SYLLABLE SSANGKIYEOK YI IEUNG
-<UB076> \x85\xE0 |0 # HANGUL SYLLABLE SSANGKIYEOK YI CIEUC
-<UB077> \x85\xE1 |0 # HANGUL SYLLABLE SSANGKIYEOK YI CHIEUCH
-<UB078> \x85\xE2 |0 # HANGUL SYLLABLE SSANGKIYEOK YI KHIEUKH
-<UB079> \x85\xE3 |0 # HANGUL SYLLABLE SSANGKIYEOK YI THIEUTH
-<UB07A> \x85\xE4 |0 # HANGUL SYLLABLE SSANGKIYEOK YI PHIEUPH
-<UB07B> \x85\xE5 |0 # HANGUL SYLLABLE SSANGKIYEOK YI HIEUH
-<UB07C> \xB3\xA2 |0 # HANGUL SYLLABLE SSANGKIYEOK I
-<UB07D> \xB3\xA3 |0 # HANGUL SYLLABLE SSANGKIYEOK I KIYEOK
-<UB07E> \x85\xE6 |0 # HANGUL SYLLABLE SSANGKIYEOK I SSANGKIYEOK
-<UB07F> \x85\xE7 |0 # HANGUL SYLLABLE SSANGKIYEOK I KIYEOKSIOS
-<UB080> \xB3\xA4 |0 # HANGUL SYLLABLE SSANGKIYEOK I NIEUN
-<UB081> \x85\xE8 |0 # HANGUL SYLLABLE SSANGKIYEOK I NIEUNCIEUC
-<UB082> \x85\xE9 |0 # HANGUL SYLLABLE SSANGKIYEOK I NIEUNHIEUH
-<UB083> \x85\xEA |0 # HANGUL SYLLABLE SSANGKIYEOK I TIKEUT
-<UB084> \xB3\xA5 |0 # HANGUL SYLLABLE SSANGKIYEOK I RIEUL
-<UB085> \x85\xEB |0 # HANGUL SYLLABLE SSANGKIYEOK I RIEULKIYEOK
-<UB086> \x85\xEC |0 # HANGUL SYLLABLE SSANGKIYEOK I RIEULMIEUM
-<UB087> \x85\xED |0 # HANGUL SYLLABLE SSANGKIYEOK I RIEULPIEUP
-<UB088> \x85\xEE |0 # HANGUL SYLLABLE SSANGKIYEOK I RIEULSIOS
-<UB089> \x85\xEF |0 # HANGUL SYLLABLE SSANGKIYEOK I RIEULTHIEUTH
-<UB08A> \x85\xF0 |0 # HANGUL SYLLABLE SSANGKIYEOK I RIEULPHIEUPH
-<UB08B> \x85\xF1 |0 # HANGUL SYLLABLE SSANGKIYEOK I RIEULHIEUH
-<UB08C> \xB3\xA6 |0 # HANGUL SYLLABLE SSANGKIYEOK I MIEUM
-<UB08D> \xB3\xA7 |0 # HANGUL SYLLABLE SSANGKIYEOK I PIEUP
-<UB08E> \x85\xF2 |0 # HANGUL SYLLABLE SSANGKIYEOK I PIEUPSIOS
-<UB08F> \xB3\xA8 |0 # HANGUL SYLLABLE SSANGKIYEOK I SIOS
-<UB090> \x85\xF3 |0 # HANGUL SYLLABLE SSANGKIYEOK I SSANGSIOS
-<UB091> \xB3\xA9 |0 # HANGUL SYLLABLE SSANGKIYEOK I IEUNG
-<UB092> \x85\xF4 |0 # HANGUL SYLLABLE SSANGKIYEOK I CIEUC
-<UB093> \x85\xF5 |0 # HANGUL SYLLABLE SSANGKIYEOK I CHIEUCH
-<UB094> \x85\xF6 |0 # HANGUL SYLLABLE SSANGKIYEOK I KHIEUKH
-<UB095> \x85\xF7 |0 # HANGUL SYLLABLE SSANGKIYEOK I THIEUTH
-<UB096> \x85\xF8 |0 # HANGUL SYLLABLE SSANGKIYEOK I PHIEUPH
-<UB097> \x85\xF9 |0 # HANGUL SYLLABLE SSANGKIYEOK I HIEUH
-<UB098> \xB3\xAA |0 # HANGUL SYLLABLE NIEUN A
-<UB099> \xB3\xAB |0 # HANGUL SYLLABLE NIEUN A KIYEOK
-<UB09A> \xB3\xAC |0 # HANGUL SYLLABLE NIEUN A SSANGKIYEOK
-<UB09B> \x85\xFA |0 # HANGUL SYLLABLE NIEUN A KIYEOKSIOS
-<UB09C> \xB3\xAD |0 # HANGUL SYLLABLE NIEUN A NIEUN
-<UB09D> \x85\xFB |0 # HANGUL SYLLABLE NIEUN A NIEUNCIEUC
-<UB09E> \x85\xFC |0 # HANGUL SYLLABLE NIEUN A NIEUNHIEUH
-<UB09F> \xB3\xAE |0 # HANGUL SYLLABLE NIEUN A TIKEUT
-<UB0A0> \xB3\xAF |0 # HANGUL SYLLABLE NIEUN A RIEUL
-<UB0A1> \xB3\xB0 |0 # HANGUL SYLLABLE NIEUN A RIEULKIYEOK
-<UB0A2> \xB3\xB1 |0 # HANGUL SYLLABLE NIEUN A RIEULMIEUM
-<UB0A3> \x85\xFD |0 # HANGUL SYLLABLE NIEUN A RIEULPIEUP
-<UB0A4> \x85\xFE |0 # HANGUL SYLLABLE NIEUN A RIEULSIOS
-<UB0A5> \x86\x41 |0 # HANGUL SYLLABLE NIEUN A RIEULTHIEUTH
-<UB0A6> \x86\x42 |0 # HANGUL SYLLABLE NIEUN A RIEULPHIEUPH
-<UB0A7> \x86\x43 |0 # HANGUL SYLLABLE NIEUN A RIEULHIEUH
-<UB0A8> \xB3\xB2 |0 # HANGUL SYLLABLE NIEUN A MIEUM
-<UB0A9> \xB3\xB3 |0 # HANGUL SYLLABLE NIEUN A PIEUP
-<UB0AA> \x86\x44 |0 # HANGUL SYLLABLE NIEUN A PIEUPSIOS
-<UB0AB> \xB3\xB4 |0 # HANGUL SYLLABLE NIEUN A SIOS
-<UB0AC> \xB3\xB5 |0 # HANGUL SYLLABLE NIEUN A SSANGSIOS
-<UB0AD> \xB3\xB6 |0 # HANGUL SYLLABLE NIEUN A IEUNG
-<UB0AE> \xB3\xB7 |0 # HANGUL SYLLABLE NIEUN A CIEUC
-<UB0AF> \xB3\xB8 |0 # HANGUL SYLLABLE NIEUN A CHIEUCH
-<UB0B0> \x86\x45 |0 # HANGUL SYLLABLE NIEUN A KHIEUKH
-<UB0B1> \xB3\xB9 |0 # HANGUL SYLLABLE NIEUN A THIEUTH
-<UB0B2> \x86\x46 |0 # HANGUL SYLLABLE NIEUN A PHIEUPH
-<UB0B3> \xB3\xBA |0 # HANGUL SYLLABLE NIEUN A HIEUH
-<UB0B4> \xB3\xBB |0 # HANGUL SYLLABLE NIEUN AE
-<UB0B5> \xB3\xBC |0 # HANGUL SYLLABLE NIEUN AE KIYEOK
-<UB0B6> \x86\x47 |0 # HANGUL SYLLABLE NIEUN AE SSANGKIYEOK
-<UB0B7> \x86\x48 |0 # HANGUL SYLLABLE NIEUN AE KIYEOKSIOS
-<UB0B8> \xB3\xBD |0 # HANGUL SYLLABLE NIEUN AE NIEUN
-<UB0B9> \x86\x49 |0 # HANGUL SYLLABLE NIEUN AE NIEUNCIEUC
-<UB0BA> \x86\x4A |0 # HANGUL SYLLABLE NIEUN AE NIEUNHIEUH
-<UB0BB> \x86\x4B |0 # HANGUL SYLLABLE NIEUN AE TIKEUT
-<UB0BC> \xB3\xBE |0 # HANGUL SYLLABLE NIEUN AE RIEUL
-<UB0BD> \x86\x4C |0 # HANGUL SYLLABLE NIEUN AE RIEULKIYEOK
-<UB0BE> \x86\x4D |0 # HANGUL SYLLABLE NIEUN AE RIEULMIEUM
-<UB0BF> \x86\x4E |0 # HANGUL SYLLABLE NIEUN AE RIEULPIEUP
-<UB0C0> \x86\x4F |0 # HANGUL SYLLABLE NIEUN AE RIEULSIOS
-<UB0C1> \x86\x50 |0 # HANGUL SYLLABLE NIEUN AE RIEULTHIEUTH
-<UB0C2> \x86\x51 |0 # HANGUL SYLLABLE NIEUN AE RIEULPHIEUPH
-<UB0C3> \x86\x52 |0 # HANGUL SYLLABLE NIEUN AE RIEULHIEUH
-<UB0C4> \xB3\xBF |0 # HANGUL SYLLABLE NIEUN AE MIEUM
-<UB0C5> \xB3\xC0 |0 # HANGUL SYLLABLE NIEUN AE PIEUP
-<UB0C6> \x86\x53 |0 # HANGUL SYLLABLE NIEUN AE PIEUPSIOS
-<UB0C7> \xB3\xC1 |0 # HANGUL SYLLABLE NIEUN AE SIOS
-<UB0C8> \xB3\xC2 |0 # HANGUL SYLLABLE NIEUN AE SSANGSIOS
-<UB0C9> \xB3\xC3 |0 # HANGUL SYLLABLE NIEUN AE IEUNG
-<UB0CA> \x86\x54 |0 # HANGUL SYLLABLE NIEUN AE CIEUC
-<UB0CB> \x86\x55 |0 # HANGUL SYLLABLE NIEUN AE CHIEUCH
-<UB0CC> \x86\x56 |0 # HANGUL SYLLABLE NIEUN AE KHIEUKH
-<UB0CD> \x86\x57 |0 # HANGUL SYLLABLE NIEUN AE THIEUTH
-<UB0CE> \x86\x58 |0 # HANGUL SYLLABLE NIEUN AE PHIEUPH
-<UB0CF> \x86\x59 |0 # HANGUL SYLLABLE NIEUN AE HIEUH
-<UB0D0> \xB3\xC4 |0 # HANGUL SYLLABLE NIEUN YA
-<UB0D1> \xB3\xC5 |0 # HANGUL SYLLABLE NIEUN YA KIYEOK
-<UB0D2> \x86\x5A |0 # HANGUL SYLLABLE NIEUN YA SSANGKIYEOK
-<UB0D3> \x86\x61 |0 # HANGUL SYLLABLE NIEUN YA KIYEOKSIOS
-<UB0D4> \xB3\xC6 |0 # HANGUL SYLLABLE NIEUN YA NIEUN
-<UB0D5> \x86\x62 |0 # HANGUL SYLLABLE NIEUN YA NIEUNCIEUC
-<UB0D6> \x86\x63 |0 # HANGUL SYLLABLE NIEUN YA NIEUNHIEUH
-<UB0D7> \x86\x64 |0 # HANGUL SYLLABLE NIEUN YA TIKEUT
-<UB0D8> \xB3\xC7 |0 # HANGUL SYLLABLE NIEUN YA RIEUL
-<UB0D9> \x86\x65 |0 # HANGUL SYLLABLE NIEUN YA RIEULKIYEOK
-<UB0DA> \x86\x66 |0 # HANGUL SYLLABLE NIEUN YA RIEULMIEUM
-<UB0DB> \x86\x67 |0 # HANGUL SYLLABLE NIEUN YA RIEULPIEUP
-<UB0DC> \x86\x68 |0 # HANGUL SYLLABLE NIEUN YA RIEULSIOS
-<UB0DD> \x86\x69 |0 # HANGUL SYLLABLE NIEUN YA RIEULTHIEUTH
-<UB0DE> \x86\x6A |0 # HANGUL SYLLABLE NIEUN YA RIEULPHIEUPH
-<UB0DF> \x86\x6B |0 # HANGUL SYLLABLE NIEUN YA RIEULHIEUH
-<UB0E0> \xB3\xC8 |0 # HANGUL SYLLABLE NIEUN YA MIEUM
-<UB0E1> \x86\x6C |0 # HANGUL SYLLABLE NIEUN YA PIEUP
-<UB0E2> \x86\x6D |0 # HANGUL SYLLABLE NIEUN YA PIEUPSIOS
-<UB0E3> \x86\x6E |0 # HANGUL SYLLABLE NIEUN YA SIOS
-<UB0E4> \x86\x6F |0 # HANGUL SYLLABLE NIEUN YA SSANGSIOS
-<UB0E5> \xB3\xC9 |0 # HANGUL SYLLABLE NIEUN YA IEUNG
-<UB0E6> \x86\x70 |0 # HANGUL SYLLABLE NIEUN YA CIEUC
-<UB0E7> \x86\x71 |0 # HANGUL SYLLABLE NIEUN YA CHIEUCH
-<UB0E8> \x86\x72 |0 # HANGUL SYLLABLE NIEUN YA KHIEUKH
-<UB0E9> \x86\x73 |0 # HANGUL SYLLABLE NIEUN YA THIEUTH
-<UB0EA> \x86\x74 |0 # HANGUL SYLLABLE NIEUN YA PHIEUPH
-<UB0EB> \x86\x75 |0 # HANGUL SYLLABLE NIEUN YA HIEUH
-<UB0EC> \x86\x76 |0 # HANGUL SYLLABLE NIEUN YAE
-<UB0ED> \x86\x77 |0 # HANGUL SYLLABLE NIEUN YAE KIYEOK
-<UB0EE> \x86\x78 |0 # HANGUL SYLLABLE NIEUN YAE SSANGKIYEOK
-<UB0EF> \x86\x79 |0 # HANGUL SYLLABLE NIEUN YAE KIYEOKSIOS
-<UB0F0> \x86\x7A |0 # HANGUL SYLLABLE NIEUN YAE NIEUN
-<UB0F1> \x86\x81 |0 # HANGUL SYLLABLE NIEUN YAE NIEUNCIEUC
-<UB0F2> \x86\x82 |0 # HANGUL SYLLABLE NIEUN YAE NIEUNHIEUH
-<UB0F3> \x86\x83 |0 # HANGUL SYLLABLE NIEUN YAE TIKEUT
-<UB0F4> \x86\x84 |0 # HANGUL SYLLABLE NIEUN YAE RIEUL
-<UB0F5> \x86\x85 |0 # HANGUL SYLLABLE NIEUN YAE RIEULKIYEOK
-<UB0F6> \x86\x86 |0 # HANGUL SYLLABLE NIEUN YAE RIEULMIEUM
-<UB0F7> \x86\x87 |0 # HANGUL SYLLABLE NIEUN YAE RIEULPIEUP
-<UB0F8> \x86\x88 |0 # HANGUL SYLLABLE NIEUN YAE RIEULSIOS
-<UB0F9> \x86\x89 |0 # HANGUL SYLLABLE NIEUN YAE RIEULTHIEUTH
-<UB0FA> \x86\x8A |0 # HANGUL SYLLABLE NIEUN YAE RIEULPHIEUPH
-<UB0FB> \x86\x8B |0 # HANGUL SYLLABLE NIEUN YAE RIEULHIEUH
-<UB0FC> \x86\x8C |0 # HANGUL SYLLABLE NIEUN YAE MIEUM
-<UB0FD> \x86\x8D |0 # HANGUL SYLLABLE NIEUN YAE PIEUP
-<UB0FE> \x86\x8E |0 # HANGUL SYLLABLE NIEUN YAE PIEUPSIOS
-<UB0FF> \x86\x8F |0 # HANGUL SYLLABLE NIEUN YAE SIOS
-<UB100> \x86\x90 |0 # HANGUL SYLLABLE NIEUN YAE SSANGSIOS
-<UB101> \x86\x91 |0 # HANGUL SYLLABLE NIEUN YAE IEUNG
-<UB102> \x86\x92 |0 # HANGUL SYLLABLE NIEUN YAE CIEUC
-<UB103> \x86\x93 |0 # HANGUL SYLLABLE NIEUN YAE CHIEUCH
-<UB104> \x86\x94 |0 # HANGUL SYLLABLE NIEUN YAE KHIEUKH
-<UB105> \x86\x95 |0 # HANGUL SYLLABLE NIEUN YAE THIEUTH
-<UB106> \x86\x96 |0 # HANGUL SYLLABLE NIEUN YAE PHIEUPH
-<UB107> \x86\x97 |0 # HANGUL SYLLABLE NIEUN YAE HIEUH
-<UB108> \xB3\xCA |0 # HANGUL SYLLABLE NIEUN EO
-<UB109> \xB3\xCB |0 # HANGUL SYLLABLE NIEUN EO KIYEOK
-<UB10A> \x86\x98 |0 # HANGUL SYLLABLE NIEUN EO SSANGKIYEOK
-<UB10B> \xB3\xCC |0 # HANGUL SYLLABLE NIEUN EO KIYEOKSIOS
-<UB10C> \xB3\xCD |0 # HANGUL SYLLABLE NIEUN EO NIEUN
-<UB10D> \x86\x99 |0 # HANGUL SYLLABLE NIEUN EO NIEUNCIEUC
-<UB10E> \x86\x9A |0 # HANGUL SYLLABLE NIEUN EO NIEUNHIEUH
-<UB10F> \x86\x9B |0 # HANGUL SYLLABLE NIEUN EO TIKEUT
-<UB110> \xB3\xCE |0 # HANGUL SYLLABLE NIEUN EO RIEUL
-<UB111> \x86\x9C |0 # HANGUL SYLLABLE NIEUN EO RIEULKIYEOK
-<UB112> \xB3\xCF |0 # HANGUL SYLLABLE NIEUN EO RIEULMIEUM
-<UB113> \xB3\xD0 |0 # HANGUL SYLLABLE NIEUN EO RIEULPIEUP
-<UB114> \x86\x9D |0 # HANGUL SYLLABLE NIEUN EO RIEULSIOS
-<UB115> \x86\x9E |0 # HANGUL SYLLABLE NIEUN EO RIEULTHIEUTH
-<UB116> \x86\x9F |0 # HANGUL SYLLABLE NIEUN EO RIEULPHIEUPH
-<UB117> \x86\xA0 |0 # HANGUL SYLLABLE NIEUN EO RIEULHIEUH
-<UB118> \xB3\xD1 |0 # HANGUL SYLLABLE NIEUN EO MIEUM
-<UB119> \xB3\xD2 |0 # HANGUL SYLLABLE NIEUN EO PIEUP
-<UB11A> \x86\xA1 |0 # HANGUL SYLLABLE NIEUN EO PIEUPSIOS
-<UB11B> \xB3\xD3 |0 # HANGUL SYLLABLE NIEUN EO SIOS
-<UB11C> \xB3\xD4 |0 # HANGUL SYLLABLE NIEUN EO SSANGSIOS
-<UB11D> \xB3\xD5 |0 # HANGUL SYLLABLE NIEUN EO IEUNG
-<UB11E> \x86\xA2 |0 # HANGUL SYLLABLE NIEUN EO CIEUC
-<UB11F> \x86\xA3 |0 # HANGUL SYLLABLE NIEUN EO CHIEUCH
-<UB120> \x86\xA4 |0 # HANGUL SYLLABLE NIEUN EO KHIEUKH
-<UB121> \x86\xA5 |0 # HANGUL SYLLABLE NIEUN EO THIEUTH
-<UB122> \x86\xA6 |0 # HANGUL SYLLABLE NIEUN EO PHIEUPH
-<UB123> \xB3\xD6 |0 # HANGUL SYLLABLE NIEUN EO HIEUH
-<UB124> \xB3\xD7 |0 # HANGUL SYLLABLE NIEUN E
-<UB125> \xB3\xD8 |0 # HANGUL SYLLABLE NIEUN E KIYEOK
-<UB126> \x86\xA7 |0 # HANGUL SYLLABLE NIEUN E SSANGKIYEOK
-<UB127> \x86\xA8 |0 # HANGUL SYLLABLE NIEUN E KIYEOKSIOS
-<UB128> \xB3\xD9 |0 # HANGUL SYLLABLE NIEUN E NIEUN
-<UB129> \x86\xA9 |0 # HANGUL SYLLABLE NIEUN E NIEUNCIEUC
-<UB12A> \x86\xAA |0 # HANGUL SYLLABLE NIEUN E NIEUNHIEUH
-<UB12B> \x86\xAB |0 # HANGUL SYLLABLE NIEUN E TIKEUT
-<UB12C> \xB3\xDA |0 # HANGUL SYLLABLE NIEUN E RIEUL
-<UB12D> \x86\xAC |0 # HANGUL SYLLABLE NIEUN E RIEULKIYEOK
-<UB12E> \x86\xAD |0 # HANGUL SYLLABLE NIEUN E RIEULMIEUM
-<UB12F> \x86\xAE |0 # HANGUL SYLLABLE NIEUN E RIEULPIEUP
-<UB130> \x86\xAF |0 # HANGUL SYLLABLE NIEUN E RIEULSIOS
-<UB131> \x86\xB0 |0 # HANGUL SYLLABLE NIEUN E RIEULTHIEUTH
-<UB132> \x86\xB1 |0 # HANGUL SYLLABLE NIEUN E RIEULPHIEUPH
-<UB133> \x86\xB2 |0 # HANGUL SYLLABLE NIEUN E RIEULHIEUH
-<UB134> \xB3\xDB |0 # HANGUL SYLLABLE NIEUN E MIEUM
-<UB135> \xB3\xDC |0 # HANGUL SYLLABLE NIEUN E PIEUP
-<UB136> \x86\xB3 |0 # HANGUL SYLLABLE NIEUN E PIEUPSIOS
-<UB137> \xB3\xDD |0 # HANGUL SYLLABLE NIEUN E SIOS
-<UB138> \xB3\xDE |0 # HANGUL SYLLABLE NIEUN E SSANGSIOS
-<UB139> \xB3\xDF |0 # HANGUL SYLLABLE NIEUN E IEUNG
-<UB13A> \x86\xB4 |0 # HANGUL SYLLABLE NIEUN E CIEUC
-<UB13B> \x86\xB5 |0 # HANGUL SYLLABLE NIEUN E CHIEUCH
-<UB13C> \x86\xB6 |0 # HANGUL SYLLABLE NIEUN E KHIEUKH
-<UB13D> \x86\xB7 |0 # HANGUL SYLLABLE NIEUN E THIEUTH
-<UB13E> \x86\xB8 |0 # HANGUL SYLLABLE NIEUN E PHIEUPH
-<UB13F> \x86\xB9 |0 # HANGUL SYLLABLE NIEUN E HIEUH
-<UB140> \xB3\xE0 |0 # HANGUL SYLLABLE NIEUN YEO
-<UB141> \xB3\xE1 |0 # HANGUL SYLLABLE NIEUN YEO KIYEOK
-<UB142> \x86\xBA |0 # HANGUL SYLLABLE NIEUN YEO SSANGKIYEOK
-<UB143> \x86\xBB |0 # HANGUL SYLLABLE NIEUN YEO KIYEOKSIOS
-<UB144> \xB3\xE2 |0 # HANGUL SYLLABLE NIEUN YEO NIEUN
-<UB145> \x86\xBC |0 # HANGUL SYLLABLE NIEUN YEO NIEUNCIEUC
-<UB146> \x86\xBD |0 # HANGUL SYLLABLE NIEUN YEO NIEUNHIEUH
-<UB147> \x86\xBE |0 # HANGUL SYLLABLE NIEUN YEO TIKEUT
-<UB148> \xB3\xE3 |0 # HANGUL SYLLABLE NIEUN YEO RIEUL
-<UB149> \x86\xBF |0 # HANGUL SYLLABLE NIEUN YEO RIEULKIYEOK
-<UB14A> \x86\xC0 |0 # HANGUL SYLLABLE NIEUN YEO RIEULMIEUM
-<UB14B> \x86\xC1 |0 # HANGUL SYLLABLE NIEUN YEO RIEULPIEUP
-<UB14C> \x86\xC2 |0 # HANGUL SYLLABLE NIEUN YEO RIEULSIOS
-<UB14D> \x86\xC3 |0 # HANGUL SYLLABLE NIEUN YEO RIEULTHIEUTH
-<UB14E> \x86\xC4 |0 # HANGUL SYLLABLE NIEUN YEO RIEULPHIEUPH
-<UB14F> \x86\xC5 |0 # HANGUL SYLLABLE NIEUN YEO RIEULHIEUH
-<UB150> \xB3\xE4 |0 # HANGUL SYLLABLE NIEUN YEO MIEUM
-<UB151> \xB3\xE5 |0 # HANGUL SYLLABLE NIEUN YEO PIEUP
-<UB152> \x86\xC6 |0 # HANGUL SYLLABLE NIEUN YEO PIEUPSIOS
-<UB153> \x86\xC7 |0 # HANGUL SYLLABLE NIEUN YEO SIOS
-<UB154> \xB3\xE6 |0 # HANGUL SYLLABLE NIEUN YEO SSANGSIOS
-<UB155> \xB3\xE7 |0 # HANGUL SYLLABLE NIEUN YEO IEUNG
-<UB156> \x86\xC8 |0 # HANGUL SYLLABLE NIEUN YEO CIEUC
-<UB157> \x86\xC9 |0 # HANGUL SYLLABLE NIEUN YEO CHIEUCH
-<UB158> \xB3\xE8 |0 # HANGUL SYLLABLE NIEUN YEO KHIEUKH
-<UB159> \x86\xCA |0 # HANGUL SYLLABLE NIEUN YEO THIEUTH
-<UB15A> \x86\xCB |0 # HANGUL SYLLABLE NIEUN YEO PHIEUPH
-<UB15B> \x86\xCC |0 # HANGUL SYLLABLE NIEUN YEO HIEUH
-<UB15C> \xB3\xE9 |0 # HANGUL SYLLABLE NIEUN YE
-<UB15D> \x86\xCD |0 # HANGUL SYLLABLE NIEUN YE KIYEOK
-<UB15E> \x86\xCE |0 # HANGUL SYLLABLE NIEUN YE SSANGKIYEOK
-<UB15F> \x86\xCF |0 # HANGUL SYLLABLE NIEUN YE KIYEOKSIOS
-<UB160> \xB3\xEA |0 # HANGUL SYLLABLE NIEUN YE NIEUN
-<UB161> \x86\xD0 |0 # HANGUL SYLLABLE NIEUN YE NIEUNCIEUC
-<UB162> \x86\xD1 |0 # HANGUL SYLLABLE NIEUN YE NIEUNHIEUH
-<UB163> \x86\xD2 |0 # HANGUL SYLLABLE NIEUN YE TIKEUT
-<UB164> \x86\xD3 |0 # HANGUL SYLLABLE NIEUN YE RIEUL
-<UB165> \x86\xD4 |0 # HANGUL SYLLABLE NIEUN YE RIEULKIYEOK
-<UB166> \x86\xD5 |0 # HANGUL SYLLABLE NIEUN YE RIEULMIEUM
-<UB167> \x86\xD6 |0 # HANGUL SYLLABLE NIEUN YE RIEULPIEUP
-<UB168> \x86\xD7 |0 # HANGUL SYLLABLE NIEUN YE RIEULSIOS
-<UB169> \x86\xD8 |0 # HANGUL SYLLABLE NIEUN YE RIEULTHIEUTH
-<UB16A> \x86\xD9 |0 # HANGUL SYLLABLE NIEUN YE RIEULPHIEUPH
-<UB16B> \x86\xDA |0 # HANGUL SYLLABLE NIEUN YE RIEULHIEUH
-<UB16C> \x86\xDB |0 # HANGUL SYLLABLE NIEUN YE MIEUM
-<UB16D> \x86\xDC |0 # HANGUL SYLLABLE NIEUN YE PIEUP
-<UB16E> \x86\xDD |0 # HANGUL SYLLABLE NIEUN YE PIEUPSIOS
-<UB16F> \x86\xDE |0 # HANGUL SYLLABLE NIEUN YE SIOS
-<UB170> \x86\xDF |0 # HANGUL SYLLABLE NIEUN YE SSANGSIOS
-<UB171> \x86\xE0 |0 # HANGUL SYLLABLE NIEUN YE IEUNG
-<UB172> \x86\xE1 |0 # HANGUL SYLLABLE NIEUN YE CIEUC
-<UB173> \x86\xE2 |0 # HANGUL SYLLABLE NIEUN YE CHIEUCH
-<UB174> \x86\xE3 |0 # HANGUL SYLLABLE NIEUN YE KHIEUKH
-<UB175> \x86\xE4 |0 # HANGUL SYLLABLE NIEUN YE THIEUTH
-<UB176> \x86\xE5 |0 # HANGUL SYLLABLE NIEUN YE PHIEUPH
-<UB177> \x86\xE6 |0 # HANGUL SYLLABLE NIEUN YE HIEUH
-<UB178> \xB3\xEB |0 # HANGUL SYLLABLE NIEUN O
-<UB179> \xB3\xEC |0 # HANGUL SYLLABLE NIEUN O KIYEOK
-<UB17A> \x86\xE7 |0 # HANGUL SYLLABLE NIEUN O SSANGKIYEOK
-<UB17B> \x86\xE8 |0 # HANGUL SYLLABLE NIEUN O KIYEOKSIOS
-<UB17C> \xB3\xED |0 # HANGUL SYLLABLE NIEUN O NIEUN
-<UB17D> \x86\xE9 |0 # HANGUL SYLLABLE NIEUN O NIEUNCIEUC
-<UB17E> \x86\xEA |0 # HANGUL SYLLABLE NIEUN O NIEUNHIEUH
-<UB17F> \x86\xEB |0 # HANGUL SYLLABLE NIEUN O TIKEUT
-<UB180> \xB3\xEE |0 # HANGUL SYLLABLE NIEUN O RIEUL
-<UB181> \x86\xEC |0 # HANGUL SYLLABLE NIEUN O RIEULKIYEOK
-<UB182> \xB3\xEF |0 # HANGUL SYLLABLE NIEUN O RIEULMIEUM
-<UB183> \x86\xED |0 # HANGUL SYLLABLE NIEUN O RIEULPIEUP
-<UB184> \x86\xEE |0 # HANGUL SYLLABLE NIEUN O RIEULSIOS
-<UB185> \x86\xEF |0 # HANGUL SYLLABLE NIEUN O RIEULTHIEUTH
-<UB186> \x86\xF0 |0 # HANGUL SYLLABLE NIEUN O RIEULPHIEUPH
-<UB187> \x86\xF1 |0 # HANGUL SYLLABLE NIEUN O RIEULHIEUH
-<UB188> \xB3\xF0 |0 # HANGUL SYLLABLE NIEUN O MIEUM
-<UB189> \xB3\xF1 |0 # HANGUL SYLLABLE NIEUN O PIEUP
-<UB18A> \x86\xF2 |0 # HANGUL SYLLABLE NIEUN O PIEUPSIOS
-<UB18B> \xB3\xF2 |0 # HANGUL SYLLABLE NIEUN O SIOS
-<UB18C> \x86\xF3 |0 # HANGUL SYLLABLE NIEUN O SSANGSIOS
-<UB18D> \xB3\xF3 |0 # HANGUL SYLLABLE NIEUN O IEUNG
-<UB18E> \x86\xF4 |0 # HANGUL SYLLABLE NIEUN O CIEUC
-<UB18F> \x86\xF5 |0 # HANGUL SYLLABLE NIEUN O CHIEUCH
-<UB190> \x86\xF6 |0 # HANGUL SYLLABLE NIEUN O KHIEUKH
-<UB191> \x86\xF7 |0 # HANGUL SYLLABLE NIEUN O THIEUTH
-<UB192> \xB3\xF4 |0 # HANGUL SYLLABLE NIEUN O PHIEUPH
-<UB193> \xB3\xF5 |0 # HANGUL SYLLABLE NIEUN O HIEUH
-<UB194> \xB3\xF6 |0 # HANGUL SYLLABLE NIEUN WA
-<UB195> \x86\xF8 |0 # HANGUL SYLLABLE NIEUN WA KIYEOK
-<UB196> \x86\xF9 |0 # HANGUL SYLLABLE NIEUN WA SSANGKIYEOK
-<UB197> \x86\xFA |0 # HANGUL SYLLABLE NIEUN WA KIYEOKSIOS
-<UB198> \xB3\xF7 |0 # HANGUL SYLLABLE NIEUN WA NIEUN
-<UB199> \x86\xFB |0 # HANGUL SYLLABLE NIEUN WA NIEUNCIEUC
-<UB19A> \x86\xFC |0 # HANGUL SYLLABLE NIEUN WA NIEUNHIEUH
-<UB19B> \x86\xFD |0 # HANGUL SYLLABLE NIEUN WA TIKEUT
-<UB19C> \xB3\xF8 |0 # HANGUL SYLLABLE NIEUN WA RIEUL
-<UB19D> \x86\xFE |0 # HANGUL SYLLABLE NIEUN WA RIEULKIYEOK
-<UB19E> \x87\x41 |0 # HANGUL SYLLABLE NIEUN WA RIEULMIEUM
-<UB19F> \x87\x42 |0 # HANGUL SYLLABLE NIEUN WA RIEULPIEUP
-<UB1A0> \x87\x43 |0 # HANGUL SYLLABLE NIEUN WA RIEULSIOS
-<UB1A1> \x87\x44 |0 # HANGUL SYLLABLE NIEUN WA RIEULTHIEUTH
-<UB1A2> \x87\x45 |0 # HANGUL SYLLABLE NIEUN WA RIEULPHIEUPH
-<UB1A3> \x87\x46 |0 # HANGUL SYLLABLE NIEUN WA RIEULHIEUH
-<UB1A4> \x87\x47 |0 # HANGUL SYLLABLE NIEUN WA MIEUM
-<UB1A5> \x87\x48 |0 # HANGUL SYLLABLE NIEUN WA PIEUP
-<UB1A6> \x87\x49 |0 # HANGUL SYLLABLE NIEUN WA PIEUPSIOS
-<UB1A7> \x87\x4A |0 # HANGUL SYLLABLE NIEUN WA SIOS
-<UB1A8> \xB3\xF9 |0 # HANGUL SYLLABLE NIEUN WA SSANGSIOS
-<UB1A9> \x87\x4B |0 # HANGUL SYLLABLE NIEUN WA IEUNG
-<UB1AA> \x87\x4C |0 # HANGUL SYLLABLE NIEUN WA CIEUC
-<UB1AB> \x87\x4D |0 # HANGUL SYLLABLE NIEUN WA CHIEUCH
-<UB1AC> \x87\x4E |0 # HANGUL SYLLABLE NIEUN WA KHIEUKH
-<UB1AD> \x87\x4F |0 # HANGUL SYLLABLE NIEUN WA THIEUTH
-<UB1AE> \x87\x50 |0 # HANGUL SYLLABLE NIEUN WA PHIEUPH
-<UB1AF> \x87\x51 |0 # HANGUL SYLLABLE NIEUN WA HIEUH
-<UB1B0> \x87\x52 |0 # HANGUL SYLLABLE NIEUN WAE
-<UB1B1> \x87\x53 |0 # HANGUL SYLLABLE NIEUN WAE KIYEOK
-<UB1B2> \x87\x54 |0 # HANGUL SYLLABLE NIEUN WAE SSANGKIYEOK
-<UB1B3> \x87\x55 |0 # HANGUL SYLLABLE NIEUN WAE KIYEOKSIOS
-<UB1B4> \x87\x56 |0 # HANGUL SYLLABLE NIEUN WAE NIEUN
-<UB1B5> \x87\x57 |0 # HANGUL SYLLABLE NIEUN WAE NIEUNCIEUC
-<UB1B6> \x87\x58 |0 # HANGUL SYLLABLE NIEUN WAE NIEUNHIEUH
-<UB1B7> \x87\x59 |0 # HANGUL SYLLABLE NIEUN WAE TIKEUT
-<UB1B8> \x87\x5A |0 # HANGUL SYLLABLE NIEUN WAE RIEUL
-<UB1B9> \x87\x61 |0 # HANGUL SYLLABLE NIEUN WAE RIEULKIYEOK
-<UB1BA> \x87\x62 |0 # HANGUL SYLLABLE NIEUN WAE RIEULMIEUM
-<UB1BB> \x87\x63 |0 # HANGUL SYLLABLE NIEUN WAE RIEULPIEUP
-<UB1BC> \x87\x64 |0 # HANGUL SYLLABLE NIEUN WAE RIEULSIOS
-<UB1BD> \x87\x65 |0 # HANGUL SYLLABLE NIEUN WAE RIEULTHIEUTH
-<UB1BE> \x87\x66 |0 # HANGUL SYLLABLE NIEUN WAE RIEULPHIEUPH
-<UB1BF> \x87\x67 |0 # HANGUL SYLLABLE NIEUN WAE RIEULHIEUH
-<UB1C0> \x87\x68 |0 # HANGUL SYLLABLE NIEUN WAE MIEUM
-<UB1C1> \x87\x69 |0 # HANGUL SYLLABLE NIEUN WAE PIEUP
-<UB1C2> \x87\x6A |0 # HANGUL SYLLABLE NIEUN WAE PIEUPSIOS
-<UB1C3> \x87\x6B |0 # HANGUL SYLLABLE NIEUN WAE SIOS
-<UB1C4> \x87\x6C |0 # HANGUL SYLLABLE NIEUN WAE SSANGSIOS
-<UB1C5> \x87\x6D |0 # HANGUL SYLLABLE NIEUN WAE IEUNG
-<UB1C6> \x87\x6E |0 # HANGUL SYLLABLE NIEUN WAE CIEUC
-<UB1C7> \x87\x6F |0 # HANGUL SYLLABLE NIEUN WAE CHIEUCH
-<UB1C8> \x87\x70 |0 # HANGUL SYLLABLE NIEUN WAE KHIEUKH
-<UB1C9> \x87\x71 |0 # HANGUL SYLLABLE NIEUN WAE THIEUTH
-<UB1CA> \x87\x72 |0 # HANGUL SYLLABLE NIEUN WAE PHIEUPH
-<UB1CB> \x87\x73 |0 # HANGUL SYLLABLE NIEUN WAE HIEUH
-<UB1CC> \xB3\xFA |0 # HANGUL SYLLABLE NIEUN OE
-<UB1CD> \x87\x74 |0 # HANGUL SYLLABLE NIEUN OE KIYEOK
-<UB1CE> \x87\x75 |0 # HANGUL SYLLABLE NIEUN OE SSANGKIYEOK
-<UB1CF> \x87\x76 |0 # HANGUL SYLLABLE NIEUN OE KIYEOKSIOS
-<UB1D0> \xB3\xFB |0 # HANGUL SYLLABLE NIEUN OE NIEUN
-<UB1D1> \x87\x77 |0 # HANGUL SYLLABLE NIEUN OE NIEUNCIEUC
-<UB1D2> \x87\x78 |0 # HANGUL SYLLABLE NIEUN OE NIEUNHIEUH
-<UB1D3> \x87\x79 |0 # HANGUL SYLLABLE NIEUN OE TIKEUT
-<UB1D4> \xB3\xFC |0 # HANGUL SYLLABLE NIEUN OE RIEUL
-<UB1D5> \x87\x7A |0 # HANGUL SYLLABLE NIEUN OE RIEULKIYEOK
-<UB1D6> \x87\x81 |0 # HANGUL SYLLABLE NIEUN OE RIEULMIEUM
-<UB1D7> \x87\x82 |0 # HANGUL SYLLABLE NIEUN OE RIEULPIEUP
-<UB1D8> \x87\x83 |0 # HANGUL SYLLABLE NIEUN OE RIEULSIOS
-<UB1D9> \x87\x84 |0 # HANGUL SYLLABLE NIEUN OE RIEULTHIEUTH
-<UB1DA> \x87\x85 |0 # HANGUL SYLLABLE NIEUN OE RIEULPHIEUPH
-<UB1DB> \x87\x86 |0 # HANGUL SYLLABLE NIEUN OE RIEULHIEUH
-<UB1DC> \xB3\xFD |0 # HANGUL SYLLABLE NIEUN OE MIEUM
-<UB1DD> \xB3\xFE |0 # HANGUL SYLLABLE NIEUN OE PIEUP
-<UB1DE> \x87\x87 |0 # HANGUL SYLLABLE NIEUN OE PIEUPSIOS
-<UB1DF> \xB4\xA1 |0 # HANGUL SYLLABLE NIEUN OE SIOS
-<UB1E0> \x87\x88 |0 # HANGUL SYLLABLE NIEUN OE SSANGSIOS
-<UB1E1> \x87\x89 |0 # HANGUL SYLLABLE NIEUN OE IEUNG
-<UB1E2> \x87\x8A |0 # HANGUL SYLLABLE NIEUN OE CIEUC
-<UB1E3> \x87\x8B |0 # HANGUL SYLLABLE NIEUN OE CHIEUCH
-<UB1E4> \x87\x8C |0 # HANGUL SYLLABLE NIEUN OE KHIEUKH
-<UB1E5> \x87\x8D |0 # HANGUL SYLLABLE NIEUN OE THIEUTH
-<UB1E6> \x87\x8E |0 # HANGUL SYLLABLE NIEUN OE PHIEUPH
-<UB1E7> \x87\x8F |0 # HANGUL SYLLABLE NIEUN OE HIEUH
-<UB1E8> \xB4\xA2 |0 # HANGUL SYLLABLE NIEUN YO
-<UB1E9> \xB4\xA3 |0 # HANGUL SYLLABLE NIEUN YO KIYEOK
-<UB1EA> \x87\x90 |0 # HANGUL SYLLABLE NIEUN YO SSANGKIYEOK
-<UB1EB> \x87\x91 |0 # HANGUL SYLLABLE NIEUN YO KIYEOKSIOS
-<UB1EC> \xB4\xA4 |0 # HANGUL SYLLABLE NIEUN YO NIEUN
-<UB1ED> \x87\x92 |0 # HANGUL SYLLABLE NIEUN YO NIEUNCIEUC
-<UB1EE> \x87\x93 |0 # HANGUL SYLLABLE NIEUN YO NIEUNHIEUH
-<UB1EF> \x87\x94 |0 # HANGUL SYLLABLE NIEUN YO TIKEUT
-<UB1F0> \xB4\xA5 |0 # HANGUL SYLLABLE NIEUN YO RIEUL
-<UB1F1> \x87\x95 |0 # HANGUL SYLLABLE NIEUN YO RIEULKIYEOK
-<UB1F2> \x87\x96 |0 # HANGUL SYLLABLE NIEUN YO RIEULMIEUM
-<UB1F3> \x87\x97 |0 # HANGUL SYLLABLE NIEUN YO RIEULPIEUP
-<UB1F4> \x87\x98 |0 # HANGUL SYLLABLE NIEUN YO RIEULSIOS
-<UB1F5> \x87\x99 |0 # HANGUL SYLLABLE NIEUN YO RIEULTHIEUTH
-<UB1F6> \x87\x9A |0 # HANGUL SYLLABLE NIEUN YO RIEULPHIEUPH
-<UB1F7> \x87\x9B |0 # HANGUL SYLLABLE NIEUN YO RIEULHIEUH
-<UB1F8> \x87\x9C |0 # HANGUL SYLLABLE NIEUN YO MIEUM
-<UB1F9> \xB4\xA6 |0 # HANGUL SYLLABLE NIEUN YO PIEUP
-<UB1FA> \x87\x9D |0 # HANGUL SYLLABLE NIEUN YO PIEUPSIOS
-<UB1FB> \xB4\xA7 |0 # HANGUL SYLLABLE NIEUN YO SIOS
-<UB1FC> \x87\x9E |0 # HANGUL SYLLABLE NIEUN YO SSANGSIOS
-<UB1FD> \xB4\xA8 |0 # HANGUL SYLLABLE NIEUN YO IEUNG
-<UB1FE> \x87\x9F |0 # HANGUL SYLLABLE NIEUN YO CIEUC
-<UB1FF> \x87\xA0 |0 # HANGUL SYLLABLE NIEUN YO CHIEUCH
-<UB200> \x87\xA1 |0 # HANGUL SYLLABLE NIEUN YO KHIEUKH
-<UB201> \x87\xA2 |0 # HANGUL SYLLABLE NIEUN YO THIEUTH
-<UB202> \x87\xA3 |0 # HANGUL SYLLABLE NIEUN YO PHIEUPH
-<UB203> \x87\xA4 |0 # HANGUL SYLLABLE NIEUN YO HIEUH
-<UB204> \xB4\xA9 |0 # HANGUL SYLLABLE NIEUN U
-<UB205> \xB4\xAA |0 # HANGUL SYLLABLE NIEUN U KIYEOK
-<UB206> \x87\xA5 |0 # HANGUL SYLLABLE NIEUN U SSANGKIYEOK
-<UB207> \x87\xA6 |0 # HANGUL SYLLABLE NIEUN U KIYEOKSIOS
-<UB208> \xB4\xAB |0 # HANGUL SYLLABLE NIEUN U NIEUN
-<UB209> \x87\xA7 |0 # HANGUL SYLLABLE NIEUN U NIEUNCIEUC
-<UB20A> \x87\xA8 |0 # HANGUL SYLLABLE NIEUN U NIEUNHIEUH
-<UB20B> \xB4\xAC |0 # HANGUL SYLLABLE NIEUN U TIKEUT
-<UB20C> \xB4\xAD |0 # HANGUL SYLLABLE NIEUN U RIEUL
-<UB20D> \x87\xA9 |0 # HANGUL SYLLABLE NIEUN U RIEULKIYEOK
-<UB20E> \x87\xAA |0 # HANGUL SYLLABLE NIEUN U RIEULMIEUM
-<UB20F> \x87\xAB |0 # HANGUL SYLLABLE NIEUN U RIEULPIEUP
-<UB210> \x87\xAC |0 # HANGUL SYLLABLE NIEUN U RIEULSIOS
-<UB211> \x87\xAD |0 # HANGUL SYLLABLE NIEUN U RIEULTHIEUTH
-<UB212> \x87\xAE |0 # HANGUL SYLLABLE NIEUN U RIEULPHIEUPH
-<UB213> \x87\xAF |0 # HANGUL SYLLABLE NIEUN U RIEULHIEUH
-<UB214> \xB4\xAE |0 # HANGUL SYLLABLE NIEUN U MIEUM
-<UB215> \xB4\xAF |0 # HANGUL SYLLABLE NIEUN U PIEUP
-<UB216> \x87\xB0 |0 # HANGUL SYLLABLE NIEUN U PIEUPSIOS
-<UB217> \xB4\xB0 |0 # HANGUL SYLLABLE NIEUN U SIOS
-<UB218> \x87\xB1 |0 # HANGUL SYLLABLE NIEUN U SSANGSIOS
-<UB219> \xB4\xB1 |0 # HANGUL SYLLABLE NIEUN U IEUNG
-<UB21A> \x87\xB2 |0 # HANGUL SYLLABLE NIEUN U CIEUC
-<UB21B> \x87\xB3 |0 # HANGUL SYLLABLE NIEUN U CHIEUCH
-<UB21C> \x87\xB4 |0 # HANGUL SYLLABLE NIEUN U KHIEUKH
-<UB21D> \x87\xB5 |0 # HANGUL SYLLABLE NIEUN U THIEUTH
-<UB21E> \x87\xB6 |0 # HANGUL SYLLABLE NIEUN U PHIEUPH
-<UB21F> \x87\xB7 |0 # HANGUL SYLLABLE NIEUN U HIEUH
-<UB220> \xB4\xB2 |0 # HANGUL SYLLABLE NIEUN WEO
-<UB221> \x87\xB8 |0 # HANGUL SYLLABLE NIEUN WEO KIYEOK
-<UB222> \x87\xB9 |0 # HANGUL SYLLABLE NIEUN WEO SSANGKIYEOK
-<UB223> \x87\xBA |0 # HANGUL SYLLABLE NIEUN WEO KIYEOKSIOS
-<UB224> \x87\xBB |0 # HANGUL SYLLABLE NIEUN WEO NIEUN
-<UB225> \x87\xBC |0 # HANGUL SYLLABLE NIEUN WEO NIEUNCIEUC
-<UB226> \x87\xBD |0 # HANGUL SYLLABLE NIEUN WEO NIEUNHIEUH
-<UB227> \x87\xBE |0 # HANGUL SYLLABLE NIEUN WEO TIKEUT
-<UB228> \x87\xBF |0 # HANGUL SYLLABLE NIEUN WEO RIEUL
-<UB229> \x87\xC0 |0 # HANGUL SYLLABLE NIEUN WEO RIEULKIYEOK
-<UB22A> \x87\xC1 |0 # HANGUL SYLLABLE NIEUN WEO RIEULMIEUM
-<UB22B> \x87\xC2 |0 # HANGUL SYLLABLE NIEUN WEO RIEULPIEUP
-<UB22C> \x87\xC3 |0 # HANGUL SYLLABLE NIEUN WEO RIEULSIOS
-<UB22D> \x87\xC4 |0 # HANGUL SYLLABLE NIEUN WEO RIEULTHIEUTH
-<UB22E> \x87\xC5 |0 # HANGUL SYLLABLE NIEUN WEO RIEULPHIEUPH
-<UB22F> \x87\xC6 |0 # HANGUL SYLLABLE NIEUN WEO RIEULHIEUH
-<UB230> \x87\xC7 |0 # HANGUL SYLLABLE NIEUN WEO MIEUM
-<UB231> \x87\xC8 |0 # HANGUL SYLLABLE NIEUN WEO PIEUP
-<UB232> \x87\xC9 |0 # HANGUL SYLLABLE NIEUN WEO PIEUPSIOS
-<UB233> \x87\xCA |0 # HANGUL SYLLABLE NIEUN WEO SIOS
-<UB234> \xB4\xB3 |0 # HANGUL SYLLABLE NIEUN WEO SSANGSIOS
-<UB235> \x87\xCB |0 # HANGUL SYLLABLE NIEUN WEO IEUNG
-<UB236> \x87\xCC |0 # HANGUL SYLLABLE NIEUN WEO CIEUC
-<UB237> \x87\xCD |0 # HANGUL SYLLABLE NIEUN WEO CHIEUCH
-<UB238> \x87\xCE |0 # HANGUL SYLLABLE NIEUN WEO KHIEUKH
-<UB239> \x87\xCF |0 # HANGUL SYLLABLE NIEUN WEO THIEUTH
-<UB23A> \x87\xD0 |0 # HANGUL SYLLABLE NIEUN WEO PHIEUPH
-<UB23B> \x87\xD1 |0 # HANGUL SYLLABLE NIEUN WEO HIEUH
-<UB23C> \xB4\xB4 |0 # HANGUL SYLLABLE NIEUN WE
-<UB23D> \x87\xD2 |0 # HANGUL SYLLABLE NIEUN WE KIYEOK
-<UB23E> \x87\xD3 |0 # HANGUL SYLLABLE NIEUN WE SSANGKIYEOK
-<UB23F> \x87\xD4 |0 # HANGUL SYLLABLE NIEUN WE KIYEOKSIOS
-<UB240> \x87\xD5 |0 # HANGUL SYLLABLE NIEUN WE NIEUN
-<UB241> \x87\xD6 |0 # HANGUL SYLLABLE NIEUN WE NIEUNCIEUC
-<UB242> \x87\xD7 |0 # HANGUL SYLLABLE NIEUN WE NIEUNHIEUH
-<UB243> \x87\xD8 |0 # HANGUL SYLLABLE NIEUN WE TIKEUT
-<UB244> \x87\xD9 |0 # HANGUL SYLLABLE NIEUN WE RIEUL
-<UB245> \x87\xDA |0 # HANGUL SYLLABLE NIEUN WE RIEULKIYEOK
-<UB246> \x87\xDB |0 # HANGUL SYLLABLE NIEUN WE RIEULMIEUM
-<UB247> \x87\xDC |0 # HANGUL SYLLABLE NIEUN WE RIEULPIEUP
-<UB248> \x87\xDD |0 # HANGUL SYLLABLE NIEUN WE RIEULSIOS
-<UB249> \x87\xDE |0 # HANGUL SYLLABLE NIEUN WE RIEULTHIEUTH
-<UB24A> \x87\xDF |0 # HANGUL SYLLABLE NIEUN WE RIEULPHIEUPH
-<UB24B> \x87\xE0 |0 # HANGUL SYLLABLE NIEUN WE RIEULHIEUH
-<UB24C> \x87\xE1 |0 # HANGUL SYLLABLE NIEUN WE MIEUM
-<UB24D> \x87\xE2 |0 # HANGUL SYLLABLE NIEUN WE PIEUP
-<UB24E> \x87\xE3 |0 # HANGUL SYLLABLE NIEUN WE PIEUPSIOS
-<UB24F> \x87\xE4 |0 # HANGUL SYLLABLE NIEUN WE SIOS
-<UB250> \x87\xE5 |0 # HANGUL SYLLABLE NIEUN WE SSANGSIOS
-<UB251> \x87\xE6 |0 # HANGUL SYLLABLE NIEUN WE IEUNG
-<UB252> \x87\xE7 |0 # HANGUL SYLLABLE NIEUN WE CIEUC
-<UB253> \x87\xE8 |0 # HANGUL SYLLABLE NIEUN WE CHIEUCH
-<UB254> \x87\xE9 |0 # HANGUL SYLLABLE NIEUN WE KHIEUKH
-<UB255> \x87\xEA |0 # HANGUL SYLLABLE NIEUN WE THIEUTH
-<UB256> \x87\xEB |0 # HANGUL SYLLABLE NIEUN WE PHIEUPH
-<UB257> \x87\xEC |0 # HANGUL SYLLABLE NIEUN WE HIEUH
-<UB258> \xB4\xB5 |0 # HANGUL SYLLABLE NIEUN WI
-<UB259> \x87\xED |0 # HANGUL SYLLABLE NIEUN WI KIYEOK
-<UB25A> \x87\xEE |0 # HANGUL SYLLABLE NIEUN WI SSANGKIYEOK
-<UB25B> \x87\xEF |0 # HANGUL SYLLABLE NIEUN WI KIYEOKSIOS
-<UB25C> \xB4\xB6 |0 # HANGUL SYLLABLE NIEUN WI NIEUN
-<UB25D> \x87\xF0 |0 # HANGUL SYLLABLE NIEUN WI NIEUNCIEUC
-<UB25E> \x87\xF1 |0 # HANGUL SYLLABLE NIEUN WI NIEUNHIEUH
-<UB25F> \x87\xF2 |0 # HANGUL SYLLABLE NIEUN WI TIKEUT
-<UB260> \xB4\xB7 |0 # HANGUL SYLLABLE NIEUN WI RIEUL
-<UB261> \x87\xF3 |0 # HANGUL SYLLABLE NIEUN WI RIEULKIYEOK
-<UB262> \x87\xF4 |0 # HANGUL SYLLABLE NIEUN WI RIEULMIEUM
-<UB263> \x87\xF5 |0 # HANGUL SYLLABLE NIEUN WI RIEULPIEUP
-<UB264> \x87\xF6 |0 # HANGUL SYLLABLE NIEUN WI RIEULSIOS
-<UB265> \x87\xF7 |0 # HANGUL SYLLABLE NIEUN WI RIEULTHIEUTH
-<UB266> \x87\xF8 |0 # HANGUL SYLLABLE NIEUN WI RIEULPHIEUPH
-<UB267> \x87\xF9 |0 # HANGUL SYLLABLE NIEUN WI RIEULHIEUH
-<UB268> \xB4\xB8 |0 # HANGUL SYLLABLE NIEUN WI MIEUM
-<UB269> \xB4\xB9 |0 # HANGUL SYLLABLE NIEUN WI PIEUP
-<UB26A> \x87\xFA |0 # HANGUL SYLLABLE NIEUN WI PIEUPSIOS
-<UB26B> \x87\xFB |0 # HANGUL SYLLABLE NIEUN WI SIOS
-<UB26C> \x87\xFC |0 # HANGUL SYLLABLE NIEUN WI SSANGSIOS
-<UB26D> \x87\xFD |0 # HANGUL SYLLABLE NIEUN WI IEUNG
-<UB26E> \x87\xFE |0 # HANGUL SYLLABLE NIEUN WI CIEUC
-<UB26F> \x88\x41 |0 # HANGUL SYLLABLE NIEUN WI CHIEUCH
-<UB270> \x88\x42 |0 # HANGUL SYLLABLE NIEUN WI KHIEUKH
-<UB271> \x88\x43 |0 # HANGUL SYLLABLE NIEUN WI THIEUTH
-<UB272> \x88\x44 |0 # HANGUL SYLLABLE NIEUN WI PHIEUPH
-<UB273> \x88\x45 |0 # HANGUL SYLLABLE NIEUN WI HIEUH
-<UB274> \xB4\xBA |0 # HANGUL SYLLABLE NIEUN YU
-<UB275> \xB4\xBB |0 # HANGUL SYLLABLE NIEUN YU KIYEOK
-<UB276> \x88\x46 |0 # HANGUL SYLLABLE NIEUN YU SSANGKIYEOK
-<UB277> \x88\x47 |0 # HANGUL SYLLABLE NIEUN YU KIYEOKSIOS
-<UB278> \x88\x48 |0 # HANGUL SYLLABLE NIEUN YU NIEUN
-<UB279> \x88\x49 |0 # HANGUL SYLLABLE NIEUN YU NIEUNCIEUC
-<UB27A> \x88\x4A |0 # HANGUL SYLLABLE NIEUN YU NIEUNHIEUH
-<UB27B> \x88\x4B |0 # HANGUL SYLLABLE NIEUN YU TIKEUT
-<UB27C> \xB4\xBC |0 # HANGUL SYLLABLE NIEUN YU RIEUL
-<UB27D> \x88\x4C |0 # HANGUL SYLLABLE NIEUN YU RIEULKIYEOK
-<UB27E> \x88\x4D |0 # HANGUL SYLLABLE NIEUN YU RIEULMIEUM
-<UB27F> \x88\x4E |0 # HANGUL SYLLABLE NIEUN YU RIEULPIEUP
-<UB280> \x88\x4F |0 # HANGUL SYLLABLE NIEUN YU RIEULSIOS
-<UB281> \x88\x50 |0 # HANGUL SYLLABLE NIEUN YU RIEULTHIEUTH
-<UB282> \x88\x51 |0 # HANGUL SYLLABLE NIEUN YU RIEULPHIEUPH
-<UB283> \x88\x52 |0 # HANGUL SYLLABLE NIEUN YU RIEULHIEUH
-<UB284> \xB4\xBD |0 # HANGUL SYLLABLE NIEUN YU MIEUM
-<UB285> \xB4\xBE |0 # HANGUL SYLLABLE NIEUN YU PIEUP
-<UB286> \x88\x53 |0 # HANGUL SYLLABLE NIEUN YU PIEUPSIOS
-<UB287> \x88\x54 |0 # HANGUL SYLLABLE NIEUN YU SIOS
-<UB288> \x88\x55 |0 # HANGUL SYLLABLE NIEUN YU SSANGSIOS
-<UB289> \xB4\xBF |0 # HANGUL SYLLABLE NIEUN YU IEUNG
-<UB28A> \x88\x56 |0 # HANGUL SYLLABLE NIEUN YU CIEUC
-<UB28B> \x88\x57 |0 # HANGUL SYLLABLE NIEUN YU CHIEUCH
-<UB28C> \x88\x58 |0 # HANGUL SYLLABLE NIEUN YU KHIEUKH
-<UB28D> \x88\x59 |0 # HANGUL SYLLABLE NIEUN YU THIEUTH
-<UB28E> \x88\x5A |0 # HANGUL SYLLABLE NIEUN YU PHIEUPH
-<UB28F> \x88\x61 |0 # HANGUL SYLLABLE NIEUN YU HIEUH
-<UB290> \xB4\xC0 |0 # HANGUL SYLLABLE NIEUN EU
-<UB291> \xB4\xC1 |0 # HANGUL SYLLABLE NIEUN EU KIYEOK
-<UB292> \x88\x62 |0 # HANGUL SYLLABLE NIEUN EU SSANGKIYEOK
-<UB293> \x88\x63 |0 # HANGUL SYLLABLE NIEUN EU KIYEOKSIOS
-<UB294> \xB4\xC2 |0 # HANGUL SYLLABLE NIEUN EU NIEUN
-<UB295> \x88\x64 |0 # HANGUL SYLLABLE NIEUN EU NIEUNCIEUC
-<UB296> \x88\x65 |0 # HANGUL SYLLABLE NIEUN EU NIEUNHIEUH
-<UB297> \x88\x66 |0 # HANGUL SYLLABLE NIEUN EU TIKEUT
-<UB298> \xB4\xC3 |0 # HANGUL SYLLABLE NIEUN EU RIEUL
-<UB299> \xB4\xC4 |0 # HANGUL SYLLABLE NIEUN EU RIEULKIYEOK
-<UB29A> \xB4\xC5 |0 # HANGUL SYLLABLE NIEUN EU RIEULMIEUM
-<UB29B> \x88\x67 |0 # HANGUL SYLLABLE NIEUN EU RIEULPIEUP
-<UB29C> \x88\x68 |0 # HANGUL SYLLABLE NIEUN EU RIEULSIOS
-<UB29D> \x88\x69 |0 # HANGUL SYLLABLE NIEUN EU RIEULTHIEUTH
-<UB29E> \x88\x6A |0 # HANGUL SYLLABLE NIEUN EU RIEULPHIEUPH
-<UB29F> \x88\x6B |0 # HANGUL SYLLABLE NIEUN EU RIEULHIEUH
-<UB2A0> \xB4\xC6 |0 # HANGUL SYLLABLE NIEUN EU MIEUM
-<UB2A1> \xB4\xC7 |0 # HANGUL SYLLABLE NIEUN EU PIEUP
-<UB2A2> \x88\x6C |0 # HANGUL SYLLABLE NIEUN EU PIEUPSIOS
-<UB2A3> \xB4\xC8 |0 # HANGUL SYLLABLE NIEUN EU SIOS
-<UB2A4> \x88\x6D |0 # HANGUL SYLLABLE NIEUN EU SSANGSIOS
-<UB2A5> \xB4\xC9 |0 # HANGUL SYLLABLE NIEUN EU IEUNG
-<UB2A6> \xB4\xCA |0 # HANGUL SYLLABLE NIEUN EU CIEUC
-<UB2A7> \x88\x6E |0 # HANGUL SYLLABLE NIEUN EU CHIEUCH
-<UB2A8> \x88\x6F |0 # HANGUL SYLLABLE NIEUN EU KHIEUKH
-<UB2A9> \x88\x70 |0 # HANGUL SYLLABLE NIEUN EU THIEUTH
-<UB2AA> \xB4\xCB |0 # HANGUL SYLLABLE NIEUN EU PHIEUPH
-<UB2AB> \x88\x71 |0 # HANGUL SYLLABLE NIEUN EU HIEUH
-<UB2AC> \xB4\xCC |0 # HANGUL SYLLABLE NIEUN YI
-<UB2AD> \x88\x72 |0 # HANGUL SYLLABLE NIEUN YI KIYEOK
-<UB2AE> \x88\x73 |0 # HANGUL SYLLABLE NIEUN YI SSANGKIYEOK
-<UB2AF> \x88\x74 |0 # HANGUL SYLLABLE NIEUN YI KIYEOKSIOS
-<UB2B0> \xB4\xCD |0 # HANGUL SYLLABLE NIEUN YI NIEUN
-<UB2B1> \x88\x75 |0 # HANGUL SYLLABLE NIEUN YI NIEUNCIEUC
-<UB2B2> \x88\x76 |0 # HANGUL SYLLABLE NIEUN YI NIEUNHIEUH
-<UB2B3> \x88\x77 |0 # HANGUL SYLLABLE NIEUN YI TIKEUT
-<UB2B4> \xB4\xCE |0 # HANGUL SYLLABLE NIEUN YI RIEUL
-<UB2B5> \x88\x78 |0 # HANGUL SYLLABLE NIEUN YI RIEULKIYEOK
-<UB2B6> \x88\x79 |0 # HANGUL SYLLABLE NIEUN YI RIEULMIEUM
-<UB2B7> \x88\x7A |0 # HANGUL SYLLABLE NIEUN YI RIEULPIEUP
-<UB2B8> \x88\x81 |0 # HANGUL SYLLABLE NIEUN YI RIEULSIOS
-<UB2B9> \x88\x82 |0 # HANGUL SYLLABLE NIEUN YI RIEULTHIEUTH
-<UB2BA> \x88\x83 |0 # HANGUL SYLLABLE NIEUN YI RIEULPHIEUPH
-<UB2BB> \x88\x84 |0 # HANGUL SYLLABLE NIEUN YI RIEULHIEUH
-<UB2BC> \x88\x85 |0 # HANGUL SYLLABLE NIEUN YI MIEUM
-<UB2BD> \x88\x86 |0 # HANGUL SYLLABLE NIEUN YI PIEUP
-<UB2BE> \x88\x87 |0 # HANGUL SYLLABLE NIEUN YI PIEUPSIOS
-<UB2BF> \x88\x88 |0 # HANGUL SYLLABLE NIEUN YI SIOS
-<UB2C0> \x88\x89 |0 # HANGUL SYLLABLE NIEUN YI SSANGSIOS
-<UB2C1> \x88\x8A |0 # HANGUL SYLLABLE NIEUN YI IEUNG
-<UB2C2> \x88\x8B |0 # HANGUL SYLLABLE NIEUN YI CIEUC
-<UB2C3> \x88\x8C |0 # HANGUL SYLLABLE NIEUN YI CHIEUCH
-<UB2C4> \x88\x8D |0 # HANGUL SYLLABLE NIEUN YI KHIEUKH
-<UB2C5> \x88\x8E |0 # HANGUL SYLLABLE NIEUN YI THIEUTH
-<UB2C6> \x88\x8F |0 # HANGUL SYLLABLE NIEUN YI PHIEUPH
-<UB2C7> \x88\x90 |0 # HANGUL SYLLABLE NIEUN YI HIEUH
-<UB2C8> \xB4\xCF |0 # HANGUL SYLLABLE NIEUN I
-<UB2C9> \xB4\xD0 |0 # HANGUL SYLLABLE NIEUN I KIYEOK
-<UB2CA> \x88\x91 |0 # HANGUL SYLLABLE NIEUN I SSANGKIYEOK
-<UB2CB> \x88\x92 |0 # HANGUL SYLLABLE NIEUN I KIYEOKSIOS
-<UB2CC> \xB4\xD1 |0 # HANGUL SYLLABLE NIEUN I NIEUN
-<UB2CD> \x88\x93 |0 # HANGUL SYLLABLE NIEUN I NIEUNCIEUC
-<UB2CE> \x88\x94 |0 # HANGUL SYLLABLE NIEUN I NIEUNHIEUH
-<UB2CF> \x88\x95 |0 # HANGUL SYLLABLE NIEUN I TIKEUT
-<UB2D0> \xB4\xD2 |0 # HANGUL SYLLABLE NIEUN I RIEUL
-<UB2D1> \x88\x96 |0 # HANGUL SYLLABLE NIEUN I RIEULKIYEOK
-<UB2D2> \xB4\xD3 |0 # HANGUL SYLLABLE NIEUN I RIEULMIEUM
-<UB2D3> \x88\x97 |0 # HANGUL SYLLABLE NIEUN I RIEULPIEUP
-<UB2D4> \x88\x98 |0 # HANGUL SYLLABLE NIEUN I RIEULSIOS
-<UB2D5> \x88\x99 |0 # HANGUL SYLLABLE NIEUN I RIEULTHIEUTH
-<UB2D6> \x88\x9A |0 # HANGUL SYLLABLE NIEUN I RIEULPHIEUPH
-<UB2D7> \x88\x9B |0 # HANGUL SYLLABLE NIEUN I RIEULHIEUH
-<UB2D8> \xB4\xD4 |0 # HANGUL SYLLABLE NIEUN I MIEUM
-<UB2D9> \xB4\xD5 |0 # HANGUL SYLLABLE NIEUN I PIEUP
-<UB2DA> \x88\x9C |0 # HANGUL SYLLABLE NIEUN I PIEUPSIOS
-<UB2DB> \xB4\xD6 |0 # HANGUL SYLLABLE NIEUN I SIOS
-<UB2DC> \x88\x9D |0 # HANGUL SYLLABLE NIEUN I SSANGSIOS
-<UB2DD> \xB4\xD7 |0 # HANGUL SYLLABLE NIEUN I IEUNG
-<UB2DE> \x88\x9E |0 # HANGUL SYLLABLE NIEUN I CIEUC
-<UB2DF> \x88\x9F |0 # HANGUL SYLLABLE NIEUN I CHIEUCH
-<UB2E0> \x88\xA0 |0 # HANGUL SYLLABLE NIEUN I KHIEUKH
-<UB2E1> \x88\xA1 |0 # HANGUL SYLLABLE NIEUN I THIEUTH
-<UB2E2> \xB4\xD8 |0 # HANGUL SYLLABLE NIEUN I PHIEUPH
-<UB2E3> \x88\xA2 |0 # HANGUL SYLLABLE NIEUN I HIEUH
-<UB2E4> \xB4\xD9 |0 # HANGUL SYLLABLE TIKEUT A
-<UB2E5> \xB4\xDA |0 # HANGUL SYLLABLE TIKEUT A KIYEOK
-<UB2E6> \xB4\xDB |0 # HANGUL SYLLABLE TIKEUT A SSANGKIYEOK
-<UB2E7> \x88\xA3 |0 # HANGUL SYLLABLE TIKEUT A KIYEOKSIOS
-<UB2E8> \xB4\xDC |0 # HANGUL SYLLABLE TIKEUT A NIEUN
-<UB2E9> \x88\xA4 |0 # HANGUL SYLLABLE TIKEUT A NIEUNCIEUC
-<UB2EA> \x88\xA5 |0 # HANGUL SYLLABLE TIKEUT A NIEUNHIEUH
-<UB2EB> \xB4\xDD |0 # HANGUL SYLLABLE TIKEUT A TIKEUT
-<UB2EC> \xB4\xDE |0 # HANGUL SYLLABLE TIKEUT A RIEUL
-<UB2ED> \xB4\xDF |0 # HANGUL SYLLABLE TIKEUT A RIEULKIYEOK
-<UB2EE> \xB4\xE0 |0 # HANGUL SYLLABLE TIKEUT A RIEULMIEUM
-<UB2EF> \xB4\xE1 |0 # HANGUL SYLLABLE TIKEUT A RIEULPIEUP
-<UB2F0> \x88\xA6 |0 # HANGUL SYLLABLE TIKEUT A RIEULSIOS
-<UB2F1> \x88\xA7 |0 # HANGUL SYLLABLE TIKEUT A RIEULTHIEUTH
-<UB2F2> \x88\xA8 |0 # HANGUL SYLLABLE TIKEUT A RIEULPHIEUPH
-<UB2F3> \xB4\xE2 |0 # HANGUL SYLLABLE TIKEUT A RIEULHIEUH
-<UB2F4> \xB4\xE3 |0 # HANGUL SYLLABLE TIKEUT A MIEUM
-<UB2F5> \xB4\xE4 |0 # HANGUL SYLLABLE TIKEUT A PIEUP
-<UB2F6> \x88\xA9 |0 # HANGUL SYLLABLE TIKEUT A PIEUPSIOS
-<UB2F7> \xB4\xE5 |0 # HANGUL SYLLABLE TIKEUT A SIOS
-<UB2F8> \xB4\xE6 |0 # HANGUL SYLLABLE TIKEUT A SSANGSIOS
-<UB2F9> \xB4\xE7 |0 # HANGUL SYLLABLE TIKEUT A IEUNG
-<UB2FA> \xB4\xE8 |0 # HANGUL SYLLABLE TIKEUT A CIEUC
-<UB2FB> \xB4\xE9 |0 # HANGUL SYLLABLE TIKEUT A CHIEUCH
-<UB2FC> \x88\xAA |0 # HANGUL SYLLABLE TIKEUT A KHIEUKH
-<UB2FD> \x88\xAB |0 # HANGUL SYLLABLE TIKEUT A THIEUTH
-<UB2FE> \x88\xAC |0 # HANGUL SYLLABLE TIKEUT A PHIEUPH
-<UB2FF> \xB4\xEA |0 # HANGUL SYLLABLE TIKEUT A HIEUH
-<UB300> \xB4\xEB |0 # HANGUL SYLLABLE TIKEUT AE
-<UB301> \xB4\xEC |0 # HANGUL SYLLABLE TIKEUT AE KIYEOK
-<UB302> \x88\xAD |0 # HANGUL SYLLABLE TIKEUT AE SSANGKIYEOK
-<UB303> \x88\xAE |0 # HANGUL SYLLABLE TIKEUT AE KIYEOKSIOS
-<UB304> \xB4\xED |0 # HANGUL SYLLABLE TIKEUT AE NIEUN
-<UB305> \x88\xAF |0 # HANGUL SYLLABLE TIKEUT AE NIEUNCIEUC
-<UB306> \x88\xB0 |0 # HANGUL SYLLABLE TIKEUT AE NIEUNHIEUH
-<UB307> \x88\xB1 |0 # HANGUL SYLLABLE TIKEUT AE TIKEUT
-<UB308> \xB4\xEE |0 # HANGUL SYLLABLE TIKEUT AE RIEUL
-<UB309> \x88\xB2 |0 # HANGUL SYLLABLE TIKEUT AE RIEULKIYEOK
-<UB30A> \x88\xB3 |0 # HANGUL SYLLABLE TIKEUT AE RIEULMIEUM
-<UB30B> \x88\xB4 |0 # HANGUL SYLLABLE TIKEUT AE RIEULPIEUP
-<UB30C> \x88\xB5 |0 # HANGUL SYLLABLE TIKEUT AE RIEULSIOS
-<UB30D> \x88\xB6 |0 # HANGUL SYLLABLE TIKEUT AE RIEULTHIEUTH
-<UB30E> \x88\xB7 |0 # HANGUL SYLLABLE TIKEUT AE RIEULPHIEUPH
-<UB30F> \x88\xB8 |0 # HANGUL SYLLABLE TIKEUT AE RIEULHIEUH
-<UB310> \xB4\xEF |0 # HANGUL SYLLABLE TIKEUT AE MIEUM
-<UB311> \xB4\xF0 |0 # HANGUL SYLLABLE TIKEUT AE PIEUP
-<UB312> \x88\xB9 |0 # HANGUL SYLLABLE TIKEUT AE PIEUPSIOS
-<UB313> \xB4\xF1 |0 # HANGUL SYLLABLE TIKEUT AE SIOS
-<UB314> \xB4\xF2 |0 # HANGUL SYLLABLE TIKEUT AE SSANGSIOS
-<UB315> \xB4\xF3 |0 # HANGUL SYLLABLE TIKEUT AE IEUNG
-<UB316> \x88\xBA |0 # HANGUL SYLLABLE TIKEUT AE CIEUC
-<UB317> \x88\xBB |0 # HANGUL SYLLABLE TIKEUT AE CHIEUCH
-<UB318> \x88\xBC |0 # HANGUL SYLLABLE TIKEUT AE KHIEUKH
-<UB319> \x88\xBD |0 # HANGUL SYLLABLE TIKEUT AE THIEUTH
-<UB31A> \x88\xBE |0 # HANGUL SYLLABLE TIKEUT AE PHIEUPH
-<UB31B> \x88\xBF |0 # HANGUL SYLLABLE TIKEUT AE HIEUH
-<UB31C> \xB4\xF4 |0 # HANGUL SYLLABLE TIKEUT YA
-<UB31D> \x88\xC0 |0 # HANGUL SYLLABLE TIKEUT YA KIYEOK
-<UB31E> \x88\xC1 |0 # HANGUL SYLLABLE TIKEUT YA SSANGKIYEOK
-<UB31F> \x88\xC2 |0 # HANGUL SYLLABLE TIKEUT YA KIYEOKSIOS
-<UB320> \x88\xC3 |0 # HANGUL SYLLABLE TIKEUT YA NIEUN
-<UB321> \x88\xC4 |0 # HANGUL SYLLABLE TIKEUT YA NIEUNCIEUC
-<UB322> \x88\xC5 |0 # HANGUL SYLLABLE TIKEUT YA NIEUNHIEUH
-<UB323> \x88\xC6 |0 # HANGUL SYLLABLE TIKEUT YA TIKEUT
-<UB324> \x88\xC7 |0 # HANGUL SYLLABLE TIKEUT YA RIEUL
-<UB325> \x88\xC8 |0 # HANGUL SYLLABLE TIKEUT YA RIEULKIYEOK
-<UB326> \x88\xC9 |0 # HANGUL SYLLABLE TIKEUT YA RIEULMIEUM
-<UB327> \x88\xCA |0 # HANGUL SYLLABLE TIKEUT YA RIEULPIEUP
-<UB328> \x88\xCB |0 # HANGUL SYLLABLE TIKEUT YA RIEULSIOS
-<UB329> \x88\xCC |0 # HANGUL SYLLABLE TIKEUT YA RIEULTHIEUTH
-<UB32A> \x88\xCD |0 # HANGUL SYLLABLE TIKEUT YA RIEULPHIEUPH
-<UB32B> \x88\xCE |0 # HANGUL SYLLABLE TIKEUT YA RIEULHIEUH
-<UB32C> \x88\xCF |0 # HANGUL SYLLABLE TIKEUT YA MIEUM
-<UB32D> \x88\xD0 |0 # HANGUL SYLLABLE TIKEUT YA PIEUP
-<UB32E> \x88\xD1 |0 # HANGUL SYLLABLE TIKEUT YA PIEUPSIOS
-<UB32F> \x88\xD2 |0 # HANGUL SYLLABLE TIKEUT YA SIOS
-<UB330> \x88\xD3 |0 # HANGUL SYLLABLE TIKEUT YA SSANGSIOS
-<UB331> \x88\xD4 |0 # HANGUL SYLLABLE TIKEUT YA IEUNG
-<UB332> \x88\xD5 |0 # HANGUL SYLLABLE TIKEUT YA CIEUC
-<UB333> \x88\xD6 |0 # HANGUL SYLLABLE TIKEUT YA CHIEUCH
-<UB334> \x88\xD7 |0 # HANGUL SYLLABLE TIKEUT YA KHIEUKH
-<UB335> \x88\xD8 |0 # HANGUL SYLLABLE TIKEUT YA THIEUTH
-<UB336> \x88\xD9 |0 # HANGUL SYLLABLE TIKEUT YA PHIEUPH
-<UB337> \x88\xDA |0 # HANGUL SYLLABLE TIKEUT YA HIEUH
-<UB338> \x88\xDB |0 # HANGUL SYLLABLE TIKEUT YAE
-<UB339> \x88\xDC |0 # HANGUL SYLLABLE TIKEUT YAE KIYEOK
-<UB33A> \x88\xDD |0 # HANGUL SYLLABLE TIKEUT YAE SSANGKIYEOK
-<UB33B> \x88\xDE |0 # HANGUL SYLLABLE TIKEUT YAE KIYEOKSIOS
-<UB33C> \x88\xDF |0 # HANGUL SYLLABLE TIKEUT YAE NIEUN
-<UB33D> \x88\xE0 |0 # HANGUL SYLLABLE TIKEUT YAE NIEUNCIEUC
-<UB33E> \x88\xE1 |0 # HANGUL SYLLABLE TIKEUT YAE NIEUNHIEUH
-<UB33F> \x88\xE2 |0 # HANGUL SYLLABLE TIKEUT YAE TIKEUT
-<UB340> \x88\xE3 |0 # HANGUL SYLLABLE TIKEUT YAE RIEUL
-<UB341> \x88\xE4 |0 # HANGUL SYLLABLE TIKEUT YAE RIEULKIYEOK
-<UB342> \x88\xE5 |0 # HANGUL SYLLABLE TIKEUT YAE RIEULMIEUM
-<UB343> \x88\xE6 |0 # HANGUL SYLLABLE TIKEUT YAE RIEULPIEUP
-<UB344> \x88\xE7 |0 # HANGUL SYLLABLE TIKEUT YAE RIEULSIOS
-<UB345> \x88\xE8 |0 # HANGUL SYLLABLE TIKEUT YAE RIEULTHIEUTH
-<UB346> \x88\xE9 |0 # HANGUL SYLLABLE TIKEUT YAE RIEULPHIEUPH
-<UB347> \x88\xEA |0 # HANGUL SYLLABLE TIKEUT YAE RIEULHIEUH
-<UB348> \x88\xEB |0 # HANGUL SYLLABLE TIKEUT YAE MIEUM
-<UB349> \x88\xEC |0 # HANGUL SYLLABLE TIKEUT YAE PIEUP
-<UB34A> \x88\xED |0 # HANGUL SYLLABLE TIKEUT YAE PIEUPSIOS
-<UB34B> \x88\xEE |0 # HANGUL SYLLABLE TIKEUT YAE SIOS
-<UB34C> \x88\xEF |0 # HANGUL SYLLABLE TIKEUT YAE SSANGSIOS
-<UB34D> \x88\xF0 |0 # HANGUL SYLLABLE TIKEUT YAE IEUNG
-<UB34E> \x88\xF1 |0 # HANGUL SYLLABLE TIKEUT YAE CIEUC
-<UB34F> \x88\xF2 |0 # HANGUL SYLLABLE TIKEUT YAE CHIEUCH
-<UB350> \x88\xF3 |0 # HANGUL SYLLABLE TIKEUT YAE KHIEUKH
-<UB351> \x88\xF4 |0 # HANGUL SYLLABLE TIKEUT YAE THIEUTH
-<UB352> \x88\xF5 |0 # HANGUL SYLLABLE TIKEUT YAE PHIEUPH
-<UB353> \x88\xF6 |0 # HANGUL SYLLABLE TIKEUT YAE HIEUH
-<UB354> \xB4\xF5 |0 # HANGUL SYLLABLE TIKEUT EO
-<UB355> \xB4\xF6 |0 # HANGUL SYLLABLE TIKEUT EO KIYEOK
-<UB356> \xB4\xF7 |0 # HANGUL SYLLABLE TIKEUT EO SSANGKIYEOK
-<UB357> \x88\xF7 |0 # HANGUL SYLLABLE TIKEUT EO KIYEOKSIOS
-<UB358> \xB4\xF8 |0 # HANGUL SYLLABLE TIKEUT EO NIEUN
-<UB359> \x88\xF8 |0 # HANGUL SYLLABLE TIKEUT EO NIEUNCIEUC
-<UB35A> \x88\xF9 |0 # HANGUL SYLLABLE TIKEUT EO NIEUNHIEUH
-<UB35B> \xB4\xF9 |0 # HANGUL SYLLABLE TIKEUT EO TIKEUT
-<UB35C> \xB4\xFA |0 # HANGUL SYLLABLE TIKEUT EO RIEUL
-<UB35D> \x88\xFA |0 # HANGUL SYLLABLE TIKEUT EO RIEULKIYEOK
-<UB35E> \xB4\xFB |0 # HANGUL SYLLABLE TIKEUT EO RIEULMIEUM
-<UB35F> \xB4\xFC |0 # HANGUL SYLLABLE TIKEUT EO RIEULPIEUP
-<UB360> \x88\xFB |0 # HANGUL SYLLABLE TIKEUT EO RIEULSIOS
-<UB361> \x88\xFC |0 # HANGUL SYLLABLE TIKEUT EO RIEULTHIEUTH
-<UB362> \x88\xFD |0 # HANGUL SYLLABLE TIKEUT EO RIEULPHIEUPH
-<UB363> \x88\xFE |0 # HANGUL SYLLABLE TIKEUT EO RIEULHIEUH
-<UB364> \xB4\xFD |0 # HANGUL SYLLABLE TIKEUT EO MIEUM
-<UB365> \xB4\xFE |0 # HANGUL SYLLABLE TIKEUT EO PIEUP
-<UB366> \x89\x41 |0 # HANGUL SYLLABLE TIKEUT EO PIEUPSIOS
-<UB367> \xB5\xA1 |0 # HANGUL SYLLABLE TIKEUT EO SIOS
-<UB368> \x89\x42 |0 # HANGUL SYLLABLE TIKEUT EO SSANGSIOS
-<UB369> \xB5\xA2 |0 # HANGUL SYLLABLE TIKEUT EO IEUNG
-<UB36A> \x89\x43 |0 # HANGUL SYLLABLE TIKEUT EO CIEUC
-<UB36B> \xB5\xA3 |0 # HANGUL SYLLABLE TIKEUT EO CHIEUCH
-<UB36C> \x89\x44 |0 # HANGUL SYLLABLE TIKEUT EO KHIEUKH
-<UB36D> \x89\x45 |0 # HANGUL SYLLABLE TIKEUT EO THIEUTH
-<UB36E> \xB5\xA4 |0 # HANGUL SYLLABLE TIKEUT EO PHIEUPH
-<UB36F> \x89\x46 |0 # HANGUL SYLLABLE TIKEUT EO HIEUH
-<UB370> \xB5\xA5 |0 # HANGUL SYLLABLE TIKEUT E
-<UB371> \xB5\xA6 |0 # HANGUL SYLLABLE TIKEUT E KIYEOK
-<UB372> \x89\x47 |0 # HANGUL SYLLABLE TIKEUT E SSANGKIYEOK
-<UB373> \x89\x48 |0 # HANGUL SYLLABLE TIKEUT E KIYEOKSIOS
-<UB374> \xB5\xA7 |0 # HANGUL SYLLABLE TIKEUT E NIEUN
-<UB375> \x89\x49 |0 # HANGUL SYLLABLE TIKEUT E NIEUNCIEUC
-<UB376> \x89\x4A |0 # HANGUL SYLLABLE TIKEUT E NIEUNHIEUH
-<UB377> \x89\x4B |0 # HANGUL SYLLABLE TIKEUT E TIKEUT
-<UB378> \xB5\xA8 |0 # HANGUL SYLLABLE TIKEUT E RIEUL
-<UB379> \x89\x4C |0 # HANGUL SYLLABLE TIKEUT E RIEULKIYEOK
-<UB37A> \x89\x4D |0 # HANGUL SYLLABLE TIKEUT E RIEULMIEUM
-<UB37B> \x89\x4E |0 # HANGUL SYLLABLE TIKEUT E RIEULPIEUP
-<UB37C> \x89\x4F |0 # HANGUL SYLLABLE TIKEUT E RIEULSIOS
-<UB37D> \x89\x50 |0 # HANGUL SYLLABLE TIKEUT E RIEULTHIEUTH
-<UB37E> \x89\x51 |0 # HANGUL SYLLABLE TIKEUT E RIEULPHIEUPH
-<UB37F> \x89\x52 |0 # HANGUL SYLLABLE TIKEUT E RIEULHIEUH
-<UB380> \xB5\xA9 |0 # HANGUL SYLLABLE TIKEUT E MIEUM
-<UB381> \xB5\xAA |0 # HANGUL SYLLABLE TIKEUT E PIEUP
-<UB382> \x89\x53 |0 # HANGUL SYLLABLE TIKEUT E PIEUPSIOS
-<UB383> \xB5\xAB |0 # HANGUL SYLLABLE TIKEUT E SIOS
-<UB384> \xB5\xAC |0 # HANGUL SYLLABLE TIKEUT E SSANGSIOS
-<UB385> \xB5\xAD |0 # HANGUL SYLLABLE TIKEUT E IEUNG
-<UB386> \x89\x54 |0 # HANGUL SYLLABLE TIKEUT E CIEUC
-<UB387> \x89\x55 |0 # HANGUL SYLLABLE TIKEUT E CHIEUCH
-<UB388> \x89\x56 |0 # HANGUL SYLLABLE TIKEUT E KHIEUKH
-<UB389> \x89\x57 |0 # HANGUL SYLLABLE TIKEUT E THIEUTH
-<UB38A> \x89\x58 |0 # HANGUL SYLLABLE TIKEUT E PHIEUPH
-<UB38B> \x89\x59 |0 # HANGUL SYLLABLE TIKEUT E HIEUH
-<UB38C> \xB5\xAE |0 # HANGUL SYLLABLE TIKEUT YEO
-<UB38D> \x89\x5A |0 # HANGUL SYLLABLE TIKEUT YEO KIYEOK
-<UB38E> \x89\x61 |0 # HANGUL SYLLABLE TIKEUT YEO SSANGKIYEOK
-<UB38F> \x89\x62 |0 # HANGUL SYLLABLE TIKEUT YEO KIYEOKSIOS
-<UB390> \xB5\xAF |0 # HANGUL SYLLABLE TIKEUT YEO NIEUN
-<UB391> \x89\x63 |0 # HANGUL SYLLABLE TIKEUT YEO NIEUNCIEUC
-<UB392> \x89\x64 |0 # HANGUL SYLLABLE TIKEUT YEO NIEUNHIEUH
-<UB393> \x89\x65 |0 # HANGUL SYLLABLE TIKEUT YEO TIKEUT
-<UB394> \xB5\xB0 |0 # HANGUL SYLLABLE TIKEUT YEO RIEUL
-<UB395> \x89\x66 |0 # HANGUL SYLLABLE TIKEUT YEO RIEULKIYEOK
-<UB396> \x89\x67 |0 # HANGUL SYLLABLE TIKEUT YEO RIEULMIEUM
-<UB397> \x89\x68 |0 # HANGUL SYLLABLE TIKEUT YEO RIEULPIEUP
-<UB398> \x89\x69 |0 # HANGUL SYLLABLE TIKEUT YEO RIEULSIOS
-<UB399> \x89\x6A |0 # HANGUL SYLLABLE TIKEUT YEO RIEULTHIEUTH
-<UB39A> \x89\x6B |0 # HANGUL SYLLABLE TIKEUT YEO RIEULPHIEUPH
-<UB39B> \x89\x6C |0 # HANGUL SYLLABLE TIKEUT YEO RIEULHIEUH
-<UB39C> \x89\x6D |0 # HANGUL SYLLABLE TIKEUT YEO MIEUM
-<UB39D> \x89\x6E |0 # HANGUL SYLLABLE TIKEUT YEO PIEUP
-<UB39E> \x89\x6F |0 # HANGUL SYLLABLE TIKEUT YEO PIEUPSIOS
-<UB39F> \x89\x70 |0 # HANGUL SYLLABLE TIKEUT YEO SIOS
-<UB3A0> \xB5\xB1 |0 # HANGUL SYLLABLE TIKEUT YEO SSANGSIOS
-<UB3A1> \xB5\xB2 |0 # HANGUL SYLLABLE TIKEUT YEO IEUNG
-<UB3A2> \x89\x71 |0 # HANGUL SYLLABLE TIKEUT YEO CIEUC
-<UB3A3> \x89\x72 |0 # HANGUL SYLLABLE TIKEUT YEO CHIEUCH
-<UB3A4> \x89\x73 |0 # HANGUL SYLLABLE TIKEUT YEO KHIEUKH
-<UB3A5> \x89\x74 |0 # HANGUL SYLLABLE TIKEUT YEO THIEUTH
-<UB3A6> \x89\x75 |0 # HANGUL SYLLABLE TIKEUT YEO PHIEUPH
-<UB3A7> \x89\x76 |0 # HANGUL SYLLABLE TIKEUT YEO HIEUH
-<UB3A8> \xB5\xB3 |0 # HANGUL SYLLABLE TIKEUT YE
-<UB3A9> \x89\x77 |0 # HANGUL SYLLABLE TIKEUT YE KIYEOK
-<UB3AA> \x89\x78 |0 # HANGUL SYLLABLE TIKEUT YE SSANGKIYEOK
-<UB3AB> \x89\x79 |0 # HANGUL SYLLABLE TIKEUT YE KIYEOKSIOS
-<UB3AC> \xB5\xB4 |0 # HANGUL SYLLABLE TIKEUT YE NIEUN
-<UB3AD> \x89\x7A |0 # HANGUL SYLLABLE TIKEUT YE NIEUNCIEUC
-<UB3AE> \x89\x81 |0 # HANGUL SYLLABLE TIKEUT YE NIEUNHIEUH
-<UB3AF> \x89\x82 |0 # HANGUL SYLLABLE TIKEUT YE TIKEUT
-<UB3B0> \x89\x83 |0 # HANGUL SYLLABLE TIKEUT YE RIEUL
-<UB3B1> \x89\x84 |0 # HANGUL SYLLABLE TIKEUT YE RIEULKIYEOK
-<UB3B2> \x89\x85 |0 # HANGUL SYLLABLE TIKEUT YE RIEULMIEUM
-<UB3B3> \x89\x86 |0 # HANGUL SYLLABLE TIKEUT YE RIEULPIEUP
-<UB3B4> \x89\x87 |0 # HANGUL SYLLABLE TIKEUT YE RIEULSIOS
-<UB3B5> \x89\x88 |0 # HANGUL SYLLABLE TIKEUT YE RIEULTHIEUTH
-<UB3B6> \x89\x89 |0 # HANGUL SYLLABLE TIKEUT YE RIEULPHIEUPH
-<UB3B7> \x89\x8A |0 # HANGUL SYLLABLE TIKEUT YE RIEULHIEUH
-<UB3B8> \x89\x8B |0 # HANGUL SYLLABLE TIKEUT YE MIEUM
-<UB3B9> \x89\x8C |0 # HANGUL SYLLABLE TIKEUT YE PIEUP
-<UB3BA> \x89\x8D |0 # HANGUL SYLLABLE TIKEUT YE PIEUPSIOS
-<UB3BB> \x89\x8E |0 # HANGUL SYLLABLE TIKEUT YE SIOS
-<UB3BC> \x89\x8F |0 # HANGUL SYLLABLE TIKEUT YE SSANGSIOS
-<UB3BD> \x89\x90 |0 # HANGUL SYLLABLE TIKEUT YE IEUNG
-<UB3BE> \x89\x91 |0 # HANGUL SYLLABLE TIKEUT YE CIEUC
-<UB3BF> \x89\x92 |0 # HANGUL SYLLABLE TIKEUT YE CHIEUCH
-<UB3C0> \x89\x93 |0 # HANGUL SYLLABLE TIKEUT YE KHIEUKH
-<UB3C1> \x89\x94 |0 # HANGUL SYLLABLE TIKEUT YE THIEUTH
-<UB3C2> \x89\x95 |0 # HANGUL SYLLABLE TIKEUT YE PHIEUPH
-<UB3C3> \x89\x96 |0 # HANGUL SYLLABLE TIKEUT YE HIEUH
-<UB3C4> \xB5\xB5 |0 # HANGUL SYLLABLE TIKEUT O
-<UB3C5> \xB5\xB6 |0 # HANGUL SYLLABLE TIKEUT O KIYEOK
-<UB3C6> \x89\x97 |0 # HANGUL SYLLABLE TIKEUT O SSANGKIYEOK
-<UB3C7> \x89\x98 |0 # HANGUL SYLLABLE TIKEUT O KIYEOKSIOS
-<UB3C8> \xB5\xB7 |0 # HANGUL SYLLABLE TIKEUT O NIEUN
-<UB3C9> \x89\x99 |0 # HANGUL SYLLABLE TIKEUT O NIEUNCIEUC
-<UB3CA> \x89\x9A |0 # HANGUL SYLLABLE TIKEUT O NIEUNHIEUH
-<UB3CB> \xB5\xB8 |0 # HANGUL SYLLABLE TIKEUT O TIKEUT
-<UB3CC> \xB5\xB9 |0 # HANGUL SYLLABLE TIKEUT O RIEUL
-<UB3CD> \x89\x9B |0 # HANGUL SYLLABLE TIKEUT O RIEULKIYEOK
-<UB3CE> \xB5\xBA |0 # HANGUL SYLLABLE TIKEUT O RIEULMIEUM
-<UB3CF> \x89\x9C |0 # HANGUL SYLLABLE TIKEUT O RIEULPIEUP
-<UB3D0> \xB5\xBB |0 # HANGUL SYLLABLE TIKEUT O RIEULSIOS
-<UB3D1> \x89\x9D |0 # HANGUL SYLLABLE TIKEUT O RIEULTHIEUTH
-<UB3D2> \x89\x9E |0 # HANGUL SYLLABLE TIKEUT O RIEULPHIEUPH
-<UB3D3> \x89\x9F |0 # HANGUL SYLLABLE TIKEUT O RIEULHIEUH
-<UB3D4> \xB5\xBC |0 # HANGUL SYLLABLE TIKEUT O MIEUM
-<UB3D5> \xB5\xBD |0 # HANGUL SYLLABLE TIKEUT O PIEUP
-<UB3D6> \x89\xA0 |0 # HANGUL SYLLABLE TIKEUT O PIEUPSIOS
-<UB3D7> \xB5\xBE |0 # HANGUL SYLLABLE TIKEUT O SIOS
-<UB3D8> \x89\xA1 |0 # HANGUL SYLLABLE TIKEUT O SSANGSIOS
-<UB3D9> \xB5\xBF |0 # HANGUL SYLLABLE TIKEUT O IEUNG
-<UB3DA> \x89\xA2 |0 # HANGUL SYLLABLE TIKEUT O CIEUC
-<UB3DB> \xB5\xC0 |0 # HANGUL SYLLABLE TIKEUT O CHIEUCH
-<UB3DC> \x89\xA3 |0 # HANGUL SYLLABLE TIKEUT O KHIEUKH
-<UB3DD> \xB5\xC1 |0 # HANGUL SYLLABLE TIKEUT O THIEUTH
-<UB3DE> \x89\xA4 |0 # HANGUL SYLLABLE TIKEUT O PHIEUPH
-<UB3DF> \x89\xA5 |0 # HANGUL SYLLABLE TIKEUT O HIEUH
-<UB3E0> \xB5\xC2 |0 # HANGUL SYLLABLE TIKEUT WA
-<UB3E1> \x89\xA6 |0 # HANGUL SYLLABLE TIKEUT WA KIYEOK
-<UB3E2> \x89\xA7 |0 # HANGUL SYLLABLE TIKEUT WA SSANGKIYEOK
-<UB3E3> \x89\xA8 |0 # HANGUL SYLLABLE TIKEUT WA KIYEOKSIOS
-<UB3E4> \xB5\xC3 |0 # HANGUL SYLLABLE TIKEUT WA NIEUN
-<UB3E5> \x89\xA9 |0 # HANGUL SYLLABLE TIKEUT WA NIEUNCIEUC
-<UB3E6> \x89\xAA |0 # HANGUL SYLLABLE TIKEUT WA NIEUNHIEUH
-<UB3E7> \x89\xAB |0 # HANGUL SYLLABLE TIKEUT WA TIKEUT
-<UB3E8> \xB5\xC4 |0 # HANGUL SYLLABLE TIKEUT WA RIEUL
-<UB3E9> \x89\xAC |0 # HANGUL SYLLABLE TIKEUT WA RIEULKIYEOK
-<UB3EA> \x89\xAD |0 # HANGUL SYLLABLE TIKEUT WA RIEULMIEUM
-<UB3EB> \x89\xAE |0 # HANGUL SYLLABLE TIKEUT WA RIEULPIEUP
-<UB3EC> \x89\xAF |0 # HANGUL SYLLABLE TIKEUT WA RIEULSIOS
-<UB3ED> \x89\xB0 |0 # HANGUL SYLLABLE TIKEUT WA RIEULTHIEUTH
-<UB3EE> \x89\xB1 |0 # HANGUL SYLLABLE TIKEUT WA RIEULPHIEUPH
-<UB3EF> \x89\xB2 |0 # HANGUL SYLLABLE TIKEUT WA RIEULHIEUH
-<UB3F0> \x89\xB3 |0 # HANGUL SYLLABLE TIKEUT WA MIEUM
-<UB3F1> \x89\xB4 |0 # HANGUL SYLLABLE TIKEUT WA PIEUP
-<UB3F2> \x89\xB5 |0 # HANGUL SYLLABLE TIKEUT WA PIEUPSIOS
-<UB3F3> \x89\xB6 |0 # HANGUL SYLLABLE TIKEUT WA SIOS
-<UB3F4> \x89\xB7 |0 # HANGUL SYLLABLE TIKEUT WA SSANGSIOS
-<UB3F5> \x89\xB8 |0 # HANGUL SYLLABLE TIKEUT WA IEUNG
-<UB3F6> \x89\xB9 |0 # HANGUL SYLLABLE TIKEUT WA CIEUC
-<UB3F7> \x89\xBA |0 # HANGUL SYLLABLE TIKEUT WA CHIEUCH
-<UB3F8> \x89\xBB |0 # HANGUL SYLLABLE TIKEUT WA KHIEUKH
-<UB3F9> \x89\xBC |0 # HANGUL SYLLABLE TIKEUT WA THIEUTH
-<UB3FA> \x89\xBD |0 # HANGUL SYLLABLE TIKEUT WA PHIEUPH
-<UB3FB> \x89\xBE |0 # HANGUL SYLLABLE TIKEUT WA HIEUH
-<UB3FC> \xB5\xC5 |0 # HANGUL SYLLABLE TIKEUT WAE
-<UB3FD> \x89\xBF |0 # HANGUL SYLLABLE TIKEUT WAE KIYEOK
-<UB3FE> \x89\xC0 |0 # HANGUL SYLLABLE TIKEUT WAE SSANGKIYEOK
-<UB3FF> \x89\xC1 |0 # HANGUL SYLLABLE TIKEUT WAE KIYEOKSIOS
-<UB400> \x89\xC2 |0 # HANGUL SYLLABLE TIKEUT WAE NIEUN
-<UB401> \x89\xC3 |0 # HANGUL SYLLABLE TIKEUT WAE NIEUNCIEUC
-<UB402> \x89\xC4 |0 # HANGUL SYLLABLE TIKEUT WAE NIEUNHIEUH
-<UB403> \x89\xC5 |0 # HANGUL SYLLABLE TIKEUT WAE TIKEUT
-<UB404> \x89\xC6 |0 # HANGUL SYLLABLE TIKEUT WAE RIEUL
-<UB405> \x89\xC7 |0 # HANGUL SYLLABLE TIKEUT WAE RIEULKIYEOK
-<UB406> \x89\xC8 |0 # HANGUL SYLLABLE TIKEUT WAE RIEULMIEUM
-<UB407> \x89\xC9 |0 # HANGUL SYLLABLE TIKEUT WAE RIEULPIEUP
-<UB408> \x89\xCA |0 # HANGUL SYLLABLE TIKEUT WAE RIEULSIOS
-<UB409> \x89\xCB |0 # HANGUL SYLLABLE TIKEUT WAE RIEULTHIEUTH
-<UB40A> \x89\xCC |0 # HANGUL SYLLABLE TIKEUT WAE RIEULPHIEUPH
-<UB40B> \x89\xCD |0 # HANGUL SYLLABLE TIKEUT WAE RIEULHIEUH
-<UB40C> \x89\xCE |0 # HANGUL SYLLABLE TIKEUT WAE MIEUM
-<UB40D> \x89\xCF |0 # HANGUL SYLLABLE TIKEUT WAE PIEUP
-<UB40E> \x89\xD0 |0 # HANGUL SYLLABLE TIKEUT WAE PIEUPSIOS
-<UB40F> \x89\xD1 |0 # HANGUL SYLLABLE TIKEUT WAE SIOS
-<UB410> \xB5\xC6 |0 # HANGUL SYLLABLE TIKEUT WAE SSANGSIOS
-<UB411> \x89\xD2 |0 # HANGUL SYLLABLE TIKEUT WAE IEUNG
-<UB412> \x89\xD3 |0 # HANGUL SYLLABLE TIKEUT WAE CIEUC
-<UB413> \x89\xD4 |0 # HANGUL SYLLABLE TIKEUT WAE CHIEUCH
-<UB414> \x89\xD5 |0 # HANGUL SYLLABLE TIKEUT WAE KHIEUKH
-<UB415> \x89\xD6 |0 # HANGUL SYLLABLE TIKEUT WAE THIEUTH
-<UB416> \x89\xD7 |0 # HANGUL SYLLABLE TIKEUT WAE PHIEUPH
-<UB417> \x89\xD8 |0 # HANGUL SYLLABLE TIKEUT WAE HIEUH
-<UB418> \xB5\xC7 |0 # HANGUL SYLLABLE TIKEUT OE
-<UB419> \x89\xD9 |0 # HANGUL SYLLABLE TIKEUT OE KIYEOK
-<UB41A> \x89\xDA |0 # HANGUL SYLLABLE TIKEUT OE SSANGKIYEOK
-<UB41B> \x89\xDB |0 # HANGUL SYLLABLE TIKEUT OE KIYEOKSIOS
-<UB41C> \xB5\xC8 |0 # HANGUL SYLLABLE TIKEUT OE NIEUN
-<UB41D> \x89\xDC |0 # HANGUL SYLLABLE TIKEUT OE NIEUNCIEUC
-<UB41E> \x89\xDD |0 # HANGUL SYLLABLE TIKEUT OE NIEUNHIEUH
-<UB41F> \x89\xDE |0 # HANGUL SYLLABLE TIKEUT OE TIKEUT
-<UB420> \xB5\xC9 |0 # HANGUL SYLLABLE TIKEUT OE RIEUL
-<UB421> \x89\xDF |0 # HANGUL SYLLABLE TIKEUT OE RIEULKIYEOK
-<UB422> \x89\xE0 |0 # HANGUL SYLLABLE TIKEUT OE RIEULMIEUM
-<UB423> \x89\xE1 |0 # HANGUL SYLLABLE TIKEUT OE RIEULPIEUP
-<UB424> \x89\xE2 |0 # HANGUL SYLLABLE TIKEUT OE RIEULSIOS
-<UB425> \x89\xE3 |0 # HANGUL SYLLABLE TIKEUT OE RIEULTHIEUTH
-<UB426> \x89\xE4 |0 # HANGUL SYLLABLE TIKEUT OE RIEULPHIEUPH
-<UB427> \x89\xE5 |0 # HANGUL SYLLABLE TIKEUT OE RIEULHIEUH
-<UB428> \xB5\xCA |0 # HANGUL SYLLABLE TIKEUT OE MIEUM
-<UB429> \xB5\xCB |0 # HANGUL SYLLABLE TIKEUT OE PIEUP
-<UB42A> \x89\xE6 |0 # HANGUL SYLLABLE TIKEUT OE PIEUPSIOS
-<UB42B> \xB5\xCC |0 # HANGUL SYLLABLE TIKEUT OE SIOS
-<UB42C> \x89\xE7 |0 # HANGUL SYLLABLE TIKEUT OE SSANGSIOS
-<UB42D> \x89\xE8 |0 # HANGUL SYLLABLE TIKEUT OE IEUNG
-<UB42E> \x89\xE9 |0 # HANGUL SYLLABLE TIKEUT OE CIEUC
-<UB42F> \x89\xEA |0 # HANGUL SYLLABLE TIKEUT OE CHIEUCH
-<UB430> \x89\xEB |0 # HANGUL SYLLABLE TIKEUT OE KHIEUKH
-<UB431> \x89\xEC |0 # HANGUL SYLLABLE TIKEUT OE THIEUTH
-<UB432> \x89\xED |0 # HANGUL SYLLABLE TIKEUT OE PHIEUPH
-<UB433> \x89\xEE |0 # HANGUL SYLLABLE TIKEUT OE HIEUH
-<UB434> \xB5\xCD |0 # HANGUL SYLLABLE TIKEUT YO
-<UB435> \x89\xEF |0 # HANGUL SYLLABLE TIKEUT YO KIYEOK
-<UB436> \x89\xF0 |0 # HANGUL SYLLABLE TIKEUT YO SSANGKIYEOK
-<UB437> \x89\xF1 |0 # HANGUL SYLLABLE TIKEUT YO KIYEOKSIOS
-<UB438> \x89\xF2 |0 # HANGUL SYLLABLE TIKEUT YO NIEUN
-<UB439> \x89\xF3 |0 # HANGUL SYLLABLE TIKEUT YO NIEUNCIEUC
-<UB43A> \x89\xF4 |0 # HANGUL SYLLABLE TIKEUT YO NIEUNHIEUH
-<UB43B> \x89\xF5 |0 # HANGUL SYLLABLE TIKEUT YO TIKEUT
-<UB43C> \x89\xF6 |0 # HANGUL SYLLABLE TIKEUT YO RIEUL
-<UB43D> \x89\xF7 |0 # HANGUL SYLLABLE TIKEUT YO RIEULKIYEOK
-<UB43E> \x89\xF8 |0 # HANGUL SYLLABLE TIKEUT YO RIEULMIEUM
-<UB43F> \x89\xF9 |0 # HANGUL SYLLABLE TIKEUT YO RIEULPIEUP
-<UB440> \x89\xFA |0 # HANGUL SYLLABLE TIKEUT YO RIEULSIOS
-<UB441> \x89\xFB |0 # HANGUL SYLLABLE TIKEUT YO RIEULTHIEUTH
-<UB442> \x89\xFC |0 # HANGUL SYLLABLE TIKEUT YO RIEULPHIEUPH
-<UB443> \x89\xFD |0 # HANGUL SYLLABLE TIKEUT YO RIEULHIEUH
-<UB444> \x89\xFE |0 # HANGUL SYLLABLE TIKEUT YO MIEUM
-<UB445> \x8A\x41 |0 # HANGUL SYLLABLE TIKEUT YO PIEUP
-<UB446> \x8A\x42 |0 # HANGUL SYLLABLE TIKEUT YO PIEUPSIOS
-<UB447> \x8A\x43 |0 # HANGUL SYLLABLE TIKEUT YO SIOS
-<UB448> \x8A\x44 |0 # HANGUL SYLLABLE TIKEUT YO SSANGSIOS
-<UB449> \x8A\x45 |0 # HANGUL SYLLABLE TIKEUT YO IEUNG
-<UB44A> \x8A\x46 |0 # HANGUL SYLLABLE TIKEUT YO CIEUC
-<UB44B> \x8A\x47 |0 # HANGUL SYLLABLE TIKEUT YO CHIEUCH
-<UB44C> \x8A\x48 |0 # HANGUL SYLLABLE TIKEUT YO KHIEUKH
-<UB44D> \x8A\x49 |0 # HANGUL SYLLABLE TIKEUT YO THIEUTH
-<UB44E> \x8A\x4A |0 # HANGUL SYLLABLE TIKEUT YO PHIEUPH
-<UB44F> \x8A\x4B |0 # HANGUL SYLLABLE TIKEUT YO HIEUH
-<UB450> \xB5\xCE |0 # HANGUL SYLLABLE TIKEUT U
-<UB451> \xB5\xCF |0 # HANGUL SYLLABLE TIKEUT U KIYEOK
-<UB452> \x8A\x4C |0 # HANGUL SYLLABLE TIKEUT U SSANGKIYEOK
-<UB453> \x8A\x4D |0 # HANGUL SYLLABLE TIKEUT U KIYEOKSIOS
-<UB454> \xB5\xD0 |0 # HANGUL SYLLABLE TIKEUT U NIEUN
-<UB455> \x8A\x4E |0 # HANGUL SYLLABLE TIKEUT U NIEUNCIEUC
-<UB456> \x8A\x4F |0 # HANGUL SYLLABLE TIKEUT U NIEUNHIEUH
-<UB457> \x8A\x50 |0 # HANGUL SYLLABLE TIKEUT U TIKEUT
-<UB458> \xB5\xD1 |0 # HANGUL SYLLABLE TIKEUT U RIEUL
-<UB459> \x8A\x51 |0 # HANGUL SYLLABLE TIKEUT U RIEULKIYEOK
-<UB45A> \x8A\x52 |0 # HANGUL SYLLABLE TIKEUT U RIEULMIEUM
-<UB45B> \x8A\x53 |0 # HANGUL SYLLABLE TIKEUT U RIEULPIEUP
-<UB45C> \x8A\x54 |0 # HANGUL SYLLABLE TIKEUT U RIEULSIOS
-<UB45D> \x8A\x55 |0 # HANGUL SYLLABLE TIKEUT U RIEULTHIEUTH
-<UB45E> \x8A\x56 |0 # HANGUL SYLLABLE TIKEUT U RIEULPHIEUPH
-<UB45F> \x8A\x57 |0 # HANGUL SYLLABLE TIKEUT U RIEULHIEUH
-<UB460> \xB5\xD2 |0 # HANGUL SYLLABLE TIKEUT U MIEUM
-<UB461> \xB5\xD3 |0 # HANGUL SYLLABLE TIKEUT U PIEUP
-<UB462> \x8A\x58 |0 # HANGUL SYLLABLE TIKEUT U PIEUPSIOS
-<UB463> \xB5\xD4 |0 # HANGUL SYLLABLE TIKEUT U SIOS
-<UB464> \x8A\x59 |0 # HANGUL SYLLABLE TIKEUT U SSANGSIOS
-<UB465> \xB5\xD5 |0 # HANGUL SYLLABLE TIKEUT U IEUNG
-<UB466> \x8A\x5A |0 # HANGUL SYLLABLE TIKEUT U CIEUC
-<UB467> \x8A\x61 |0 # HANGUL SYLLABLE TIKEUT U CHIEUCH
-<UB468> \x8A\x62 |0 # HANGUL SYLLABLE TIKEUT U KHIEUKH
-<UB469> \x8A\x63 |0 # HANGUL SYLLABLE TIKEUT U THIEUTH
-<UB46A> \x8A\x64 |0 # HANGUL SYLLABLE TIKEUT U PHIEUPH
-<UB46B> \x8A\x65 |0 # HANGUL SYLLABLE TIKEUT U HIEUH
-<UB46C> \xB5\xD6 |0 # HANGUL SYLLABLE TIKEUT WEO
-<UB46D> \x8A\x66 |0 # HANGUL SYLLABLE TIKEUT WEO KIYEOK
-<UB46E> \x8A\x67 |0 # HANGUL SYLLABLE TIKEUT WEO SSANGKIYEOK
-<UB46F> \x8A\x68 |0 # HANGUL SYLLABLE TIKEUT WEO KIYEOKSIOS
-<UB470> \x8A\x69 |0 # HANGUL SYLLABLE TIKEUT WEO NIEUN
-<UB471> \x8A\x6A |0 # HANGUL SYLLABLE TIKEUT WEO NIEUNCIEUC
-<UB472> \x8A\x6B |0 # HANGUL SYLLABLE TIKEUT WEO NIEUNHIEUH
-<UB473> \x8A\x6C |0 # HANGUL SYLLABLE TIKEUT WEO TIKEUT
-<UB474> \x8A\x6D |0 # HANGUL SYLLABLE TIKEUT WEO RIEUL
-<UB475> \x8A\x6E |0 # HANGUL SYLLABLE TIKEUT WEO RIEULKIYEOK
-<UB476> \x8A\x6F |0 # HANGUL SYLLABLE TIKEUT WEO RIEULMIEUM
-<UB477> \x8A\x70 |0 # HANGUL SYLLABLE TIKEUT WEO RIEULPIEUP
-<UB478> \x8A\x71 |0 # HANGUL SYLLABLE TIKEUT WEO RIEULSIOS
-<UB479> \x8A\x72 |0 # HANGUL SYLLABLE TIKEUT WEO RIEULTHIEUTH
-<UB47A> \x8A\x73 |0 # HANGUL SYLLABLE TIKEUT WEO RIEULPHIEUPH
-<UB47B> \x8A\x74 |0 # HANGUL SYLLABLE TIKEUT WEO RIEULHIEUH
-<UB47C> \x8A\x75 |0 # HANGUL SYLLABLE TIKEUT WEO MIEUM
-<UB47D> \x8A\x76 |0 # HANGUL SYLLABLE TIKEUT WEO PIEUP
-<UB47E> \x8A\x77 |0 # HANGUL SYLLABLE TIKEUT WEO PIEUPSIOS
-<UB47F> \x8A\x78 |0 # HANGUL SYLLABLE TIKEUT WEO SIOS
-<UB480> \xB5\xD7 |0 # HANGUL SYLLABLE TIKEUT WEO SSANGSIOS
-<UB481> \x8A\x79 |0 # HANGUL SYLLABLE TIKEUT WEO IEUNG
-<UB482> \x8A\x7A |0 # HANGUL SYLLABLE TIKEUT WEO CIEUC
-<UB483> \x8A\x81 |0 # HANGUL SYLLABLE TIKEUT WEO CHIEUCH
-<UB484> \x8A\x82 |0 # HANGUL SYLLABLE TIKEUT WEO KHIEUKH
-<UB485> \x8A\x83 |0 # HANGUL SYLLABLE TIKEUT WEO THIEUTH
-<UB486> \x8A\x84 |0 # HANGUL SYLLABLE TIKEUT WEO PHIEUPH
-<UB487> \x8A\x85 |0 # HANGUL SYLLABLE TIKEUT WEO HIEUH
-<UB488> \xB5\xD8 |0 # HANGUL SYLLABLE TIKEUT WE
-<UB489> \x8A\x86 |0 # HANGUL SYLLABLE TIKEUT WE KIYEOK
-<UB48A> \x8A\x87 |0 # HANGUL SYLLABLE TIKEUT WE SSANGKIYEOK
-<UB48B> \x8A\x88 |0 # HANGUL SYLLABLE TIKEUT WE KIYEOKSIOS
-<UB48C> \x8A\x89 |0 # HANGUL SYLLABLE TIKEUT WE NIEUN
-<UB48D> \x8A\x8A |0 # HANGUL SYLLABLE TIKEUT WE NIEUNCIEUC
-<UB48E> \x8A\x8B |0 # HANGUL SYLLABLE TIKEUT WE NIEUNHIEUH
-<UB48F> \x8A\x8C |0 # HANGUL SYLLABLE TIKEUT WE TIKEUT
-<UB490> \x8A\x8D |0 # HANGUL SYLLABLE TIKEUT WE RIEUL
-<UB491> \x8A\x8E |0 # HANGUL SYLLABLE TIKEUT WE RIEULKIYEOK
-<UB492> \x8A\x8F |0 # HANGUL SYLLABLE TIKEUT WE RIEULMIEUM
-<UB493> \x8A\x90 |0 # HANGUL SYLLABLE TIKEUT WE RIEULPIEUP
-<UB494> \x8A\x91 |0 # HANGUL SYLLABLE TIKEUT WE RIEULSIOS
-<UB495> \x8A\x92 |0 # HANGUL SYLLABLE TIKEUT WE RIEULTHIEUTH
-<UB496> \x8A\x93 |0 # HANGUL SYLLABLE TIKEUT WE RIEULPHIEUPH
-<UB497> \x8A\x94 |0 # HANGUL SYLLABLE TIKEUT WE RIEULHIEUH
-<UB498> \x8A\x95 |0 # HANGUL SYLLABLE TIKEUT WE MIEUM
-<UB499> \x8A\x96 |0 # HANGUL SYLLABLE TIKEUT WE PIEUP
-<UB49A> \x8A\x97 |0 # HANGUL SYLLABLE TIKEUT WE PIEUPSIOS
-<UB49B> \x8A\x98 |0 # HANGUL SYLLABLE TIKEUT WE SIOS
-<UB49C> \x8A\x99 |0 # HANGUL SYLLABLE TIKEUT WE SSANGSIOS
-<UB49D> \xB5\xD9 |0 # HANGUL SYLLABLE TIKEUT WE IEUNG
-<UB49E> \x8A\x9A |0 # HANGUL SYLLABLE TIKEUT WE CIEUC
-<UB49F> \x8A\x9B |0 # HANGUL SYLLABLE TIKEUT WE CHIEUCH
-<UB4A0> \x8A\x9C |0 # HANGUL SYLLABLE TIKEUT WE KHIEUKH
-<UB4A1> \x8A\x9D |0 # HANGUL SYLLABLE TIKEUT WE THIEUTH
-<UB4A2> \x8A\x9E |0 # HANGUL SYLLABLE TIKEUT WE PHIEUPH
-<UB4A3> \x8A\x9F |0 # HANGUL SYLLABLE TIKEUT WE HIEUH
-<UB4A4> \xB5\xDA |0 # HANGUL SYLLABLE TIKEUT WI
-<UB4A5> \x8A\xA0 |0 # HANGUL SYLLABLE TIKEUT WI KIYEOK
-<UB4A6> \x8A\xA1 |0 # HANGUL SYLLABLE TIKEUT WI SSANGKIYEOK
-<UB4A7> \x8A\xA2 |0 # HANGUL SYLLABLE TIKEUT WI KIYEOKSIOS
-<UB4A8> \xB5\xDB |0 # HANGUL SYLLABLE TIKEUT WI NIEUN
-<UB4A9> \x8A\xA3 |0 # HANGUL SYLLABLE TIKEUT WI NIEUNCIEUC
-<UB4AA> \x8A\xA4 |0 # HANGUL SYLLABLE TIKEUT WI NIEUNHIEUH
-<UB4AB> \x8A\xA5 |0 # HANGUL SYLLABLE TIKEUT WI TIKEUT
-<UB4AC> \xB5\xDC |0 # HANGUL SYLLABLE TIKEUT WI RIEUL
-<UB4AD> \x8A\xA6 |0 # HANGUL SYLLABLE TIKEUT WI RIEULKIYEOK
-<UB4AE> \x8A\xA7 |0 # HANGUL SYLLABLE TIKEUT WI RIEULMIEUM
-<UB4AF> \x8A\xA8 |0 # HANGUL SYLLABLE TIKEUT WI RIEULPIEUP
-<UB4B0> \x8A\xA9 |0 # HANGUL SYLLABLE TIKEUT WI RIEULSIOS
-<UB4B1> \x8A\xAA |0 # HANGUL SYLLABLE TIKEUT WI RIEULTHIEUTH
-<UB4B2> \x8A\xAB |0 # HANGUL SYLLABLE TIKEUT WI RIEULPHIEUPH
-<UB4B3> \x8A\xAC |0 # HANGUL SYLLABLE TIKEUT WI RIEULHIEUH
-<UB4B4> \x8A\xAD |0 # HANGUL SYLLABLE TIKEUT WI MIEUM
-<UB4B5> \xB5\xDD |0 # HANGUL SYLLABLE TIKEUT WI PIEUP
-<UB4B6> \x8A\xAE |0 # HANGUL SYLLABLE TIKEUT WI PIEUPSIOS
-<UB4B7> \xB5\xDE |0 # HANGUL SYLLABLE TIKEUT WI SIOS
-<UB4B8> \x8A\xAF |0 # HANGUL SYLLABLE TIKEUT WI SSANGSIOS
-<UB4B9> \xB5\xDF |0 # HANGUL SYLLABLE TIKEUT WI IEUNG
-<UB4BA> \x8A\xB0 |0 # HANGUL SYLLABLE TIKEUT WI CIEUC
-<UB4BB> \x8A\xB1 |0 # HANGUL SYLLABLE TIKEUT WI CHIEUCH
-<UB4BC> \x8A\xB2 |0 # HANGUL SYLLABLE TIKEUT WI KHIEUKH
-<UB4BD> \x8A\xB3 |0 # HANGUL SYLLABLE TIKEUT WI THIEUTH
-<UB4BE> \x8A\xB4 |0 # HANGUL SYLLABLE TIKEUT WI PHIEUPH
-<UB4BF> \x8A\xB5 |0 # HANGUL SYLLABLE TIKEUT WI HIEUH
-<UB4C0> \xB5\xE0 |0 # HANGUL SYLLABLE TIKEUT YU
-<UB4C1> \x8A\xB6 |0 # HANGUL SYLLABLE TIKEUT YU KIYEOK
-<UB4C2> \x8A\xB7 |0 # HANGUL SYLLABLE TIKEUT YU SSANGKIYEOK
-<UB4C3> \x8A\xB8 |0 # HANGUL SYLLABLE TIKEUT YU KIYEOKSIOS
-<UB4C4> \xB5\xE1 |0 # HANGUL SYLLABLE TIKEUT YU NIEUN
-<UB4C5> \x8A\xB9 |0 # HANGUL SYLLABLE TIKEUT YU NIEUNCIEUC
-<UB4C6> \x8A\xBA |0 # HANGUL SYLLABLE TIKEUT YU NIEUNHIEUH
-<UB4C7> \x8A\xBB |0 # HANGUL SYLLABLE TIKEUT YU TIKEUT
-<UB4C8> \xB5\xE2 |0 # HANGUL SYLLABLE TIKEUT YU RIEUL
-<UB4C9> \x8A\xBC |0 # HANGUL SYLLABLE TIKEUT YU RIEULKIYEOK
-<UB4CA> \x8A\xBD |0 # HANGUL SYLLABLE TIKEUT YU RIEULMIEUM
-<UB4CB> \x8A\xBE |0 # HANGUL SYLLABLE TIKEUT YU RIEULPIEUP
-<UB4CC> \x8A\xBF |0 # HANGUL SYLLABLE TIKEUT YU RIEULSIOS
-<UB4CD> \x8A\xC0 |0 # HANGUL SYLLABLE TIKEUT YU RIEULTHIEUTH
-<UB4CE> \x8A\xC1 |0 # HANGUL SYLLABLE TIKEUT YU RIEULPHIEUPH
-<UB4CF> \x8A\xC2 |0 # HANGUL SYLLABLE TIKEUT YU RIEULHIEUH
-<UB4D0> \xB5\xE3 |0 # HANGUL SYLLABLE TIKEUT YU MIEUM
-<UB4D1> \x8A\xC3 |0 # HANGUL SYLLABLE TIKEUT YU PIEUP
-<UB4D2> \x8A\xC4 |0 # HANGUL SYLLABLE TIKEUT YU PIEUPSIOS
-<UB4D3> \x8A\xC5 |0 # HANGUL SYLLABLE TIKEUT YU SIOS
-<UB4D4> \x8A\xC6 |0 # HANGUL SYLLABLE TIKEUT YU SSANGSIOS
-<UB4D5> \xB5\xE4 |0 # HANGUL SYLLABLE TIKEUT YU IEUNG
-<UB4D6> \x8A\xC7 |0 # HANGUL SYLLABLE TIKEUT YU CIEUC
-<UB4D7> \x8A\xC8 |0 # HANGUL SYLLABLE TIKEUT YU CHIEUCH
-<UB4D8> \x8A\xC9 |0 # HANGUL SYLLABLE TIKEUT YU KHIEUKH
-<UB4D9> \x8A\xCA |0 # HANGUL SYLLABLE TIKEUT YU THIEUTH
-<UB4DA> \x8A\xCB |0 # HANGUL SYLLABLE TIKEUT YU PHIEUPH
-<UB4DB> \x8A\xCC |0 # HANGUL SYLLABLE TIKEUT YU HIEUH
-<UB4DC> \xB5\xE5 |0 # HANGUL SYLLABLE TIKEUT EU
-<UB4DD> \xB5\xE6 |0 # HANGUL SYLLABLE TIKEUT EU KIYEOK
-<UB4DE> \x8A\xCD |0 # HANGUL SYLLABLE TIKEUT EU SSANGKIYEOK
-<UB4DF> \x8A\xCE |0 # HANGUL SYLLABLE TIKEUT EU KIYEOKSIOS
-<UB4E0> \xB5\xE7 |0 # HANGUL SYLLABLE TIKEUT EU NIEUN
-<UB4E1> \x8A\xCF |0 # HANGUL SYLLABLE TIKEUT EU NIEUNCIEUC
-<UB4E2> \x8A\xD0 |0 # HANGUL SYLLABLE TIKEUT EU NIEUNHIEUH
-<UB4E3> \xB5\xE8 |0 # HANGUL SYLLABLE TIKEUT EU TIKEUT
-<UB4E4> \xB5\xE9 |0 # HANGUL SYLLABLE TIKEUT EU RIEUL
-<UB4E5> \x8A\xD1 |0 # HANGUL SYLLABLE TIKEUT EU RIEULKIYEOK
-<UB4E6> \xB5\xEA |0 # HANGUL SYLLABLE TIKEUT EU RIEULMIEUM
-<UB4E7> \x8A\xD2 |0 # HANGUL SYLLABLE TIKEUT EU RIEULPIEUP
-<UB4E8> \x8A\xD3 |0 # HANGUL SYLLABLE TIKEUT EU RIEULSIOS
-<UB4E9> \x8A\xD4 |0 # HANGUL SYLLABLE TIKEUT EU RIEULTHIEUTH
-<UB4EA> \x8A\xD5 |0 # HANGUL SYLLABLE TIKEUT EU RIEULPHIEUPH
-<UB4EB> \x8A\xD6 |0 # HANGUL SYLLABLE TIKEUT EU RIEULHIEUH
-<UB4EC> \xB5\xEB |0 # HANGUL SYLLABLE TIKEUT EU MIEUM
-<UB4ED> \xB5\xEC |0 # HANGUL SYLLABLE TIKEUT EU PIEUP
-<UB4EE> \x8A\xD7 |0 # HANGUL SYLLABLE TIKEUT EU PIEUPSIOS
-<UB4EF> \xB5\xED |0 # HANGUL SYLLABLE TIKEUT EU SIOS
-<UB4F0> \x8A\xD8 |0 # HANGUL SYLLABLE TIKEUT EU SSANGSIOS
-<UB4F1> \xB5\xEE |0 # HANGUL SYLLABLE TIKEUT EU IEUNG
-<UB4F2> \x8A\xD9 |0 # HANGUL SYLLABLE TIKEUT EU CIEUC
-<UB4F3> \x8A\xDA |0 # HANGUL SYLLABLE TIKEUT EU CHIEUCH
-<UB4F4> \x8A\xDB |0 # HANGUL SYLLABLE TIKEUT EU KHIEUKH
-<UB4F5> \x8A\xDC |0 # HANGUL SYLLABLE TIKEUT EU THIEUTH
-<UB4F6> \x8A\xDD |0 # HANGUL SYLLABLE TIKEUT EU PHIEUPH
-<UB4F7> \x8A\xDE |0 # HANGUL SYLLABLE TIKEUT EU HIEUH
-<UB4F8> \xB5\xEF |0 # HANGUL SYLLABLE TIKEUT YI
-<UB4F9> \x8A\xDF |0 # HANGUL SYLLABLE TIKEUT YI KIYEOK
-<UB4FA> \x8A\xE0 |0 # HANGUL SYLLABLE TIKEUT YI SSANGKIYEOK
-<UB4FB> \x8A\xE1 |0 # HANGUL SYLLABLE TIKEUT YI KIYEOKSIOS
-<UB4FC> \x8A\xE2 |0 # HANGUL SYLLABLE TIKEUT YI NIEUN
-<UB4FD> \x8A\xE3 |0 # HANGUL SYLLABLE TIKEUT YI NIEUNCIEUC
-<UB4FE> \x8A\xE4 |0 # HANGUL SYLLABLE TIKEUT YI NIEUNHIEUH
-<UB4FF> \x8A\xE5 |0 # HANGUL SYLLABLE TIKEUT YI TIKEUT
-<UB500> \x8A\xE6 |0 # HANGUL SYLLABLE TIKEUT YI RIEUL
-<UB501> \x8A\xE7 |0 # HANGUL SYLLABLE TIKEUT YI RIEULKIYEOK
-<UB502> \x8A\xE8 |0 # HANGUL SYLLABLE TIKEUT YI RIEULMIEUM
-<UB503> \x8A\xE9 |0 # HANGUL SYLLABLE TIKEUT YI RIEULPIEUP
-<UB504> \x8A\xEA |0 # HANGUL SYLLABLE TIKEUT YI RIEULSIOS
-<UB505> \x8A\xEB |0 # HANGUL SYLLABLE TIKEUT YI RIEULTHIEUTH
-<UB506> \x8A\xEC |0 # HANGUL SYLLABLE TIKEUT YI RIEULPHIEUPH
-<UB507> \x8A\xED |0 # HANGUL SYLLABLE TIKEUT YI RIEULHIEUH
-<UB508> \x8A\xEE |0 # HANGUL SYLLABLE TIKEUT YI MIEUM
-<UB509> \x8A\xEF |0 # HANGUL SYLLABLE TIKEUT YI PIEUP
-<UB50A> \x8A\xF0 |0 # HANGUL SYLLABLE TIKEUT YI PIEUPSIOS
-<UB50B> \x8A\xF1 |0 # HANGUL SYLLABLE TIKEUT YI SIOS
-<UB50C> \x8A\xF2 |0 # HANGUL SYLLABLE TIKEUT YI SSANGSIOS
-<UB50D> \x8A\xF3 |0 # HANGUL SYLLABLE TIKEUT YI IEUNG
-<UB50E> \x8A\xF4 |0 # HANGUL SYLLABLE TIKEUT YI CIEUC
-<UB50F> \x8A\xF5 |0 # HANGUL SYLLABLE TIKEUT YI CHIEUCH
-<UB510> \x8A\xF6 |0 # HANGUL SYLLABLE TIKEUT YI KHIEUKH
-<UB511> \x8A\xF7 |0 # HANGUL SYLLABLE TIKEUT YI THIEUTH
-<UB512> \x8A\xF8 |0 # HANGUL SYLLABLE TIKEUT YI PHIEUPH
-<UB513> \x8A\xF9 |0 # HANGUL SYLLABLE TIKEUT YI HIEUH
-<UB514> \xB5\xF0 |0 # HANGUL SYLLABLE TIKEUT I
-<UB515> \xB5\xF1 |0 # HANGUL SYLLABLE TIKEUT I KIYEOK
-<UB516> \x8A\xFA |0 # HANGUL SYLLABLE TIKEUT I SSANGKIYEOK
-<UB517> \x8A\xFB |0 # HANGUL SYLLABLE TIKEUT I KIYEOKSIOS
-<UB518> \xB5\xF2 |0 # HANGUL SYLLABLE TIKEUT I NIEUN
-<UB519> \x8A\xFC |0 # HANGUL SYLLABLE TIKEUT I NIEUNCIEUC
-<UB51A> \x8A\xFD |0 # HANGUL SYLLABLE TIKEUT I NIEUNHIEUH
-<UB51B> \xB5\xF3 |0 # HANGUL SYLLABLE TIKEUT I TIKEUT
-<UB51C> \xB5\xF4 |0 # HANGUL SYLLABLE TIKEUT I RIEUL
-<UB51D> \x8A\xFE |0 # HANGUL SYLLABLE TIKEUT I RIEULKIYEOK
-<UB51E> \x8B\x41 |0 # HANGUL SYLLABLE TIKEUT I RIEULMIEUM
-<UB51F> \x8B\x42 |0 # HANGUL SYLLABLE TIKEUT I RIEULPIEUP
-<UB520> \x8B\x43 |0 # HANGUL SYLLABLE TIKEUT I RIEULSIOS
-<UB521> \x8B\x44 |0 # HANGUL SYLLABLE TIKEUT I RIEULTHIEUTH
-<UB522> \x8B\x45 |0 # HANGUL SYLLABLE TIKEUT I RIEULPHIEUPH
-<UB523> \x8B\x46 |0 # HANGUL SYLLABLE TIKEUT I RIEULHIEUH
-<UB524> \xB5\xF5 |0 # HANGUL SYLLABLE TIKEUT I MIEUM
-<UB525> \xB5\xF6 |0 # HANGUL SYLLABLE TIKEUT I PIEUP
-<UB526> \x8B\x47 |0 # HANGUL SYLLABLE TIKEUT I PIEUPSIOS
-<UB527> \xB5\xF7 |0 # HANGUL SYLLABLE TIKEUT I SIOS
-<UB528> \xB5\xF8 |0 # HANGUL SYLLABLE TIKEUT I SSANGSIOS
-<UB529> \xB5\xF9 |0 # HANGUL SYLLABLE TIKEUT I IEUNG
-<UB52A> \xB5\xFA |0 # HANGUL SYLLABLE TIKEUT I CIEUC
-<UB52B> \x8B\x48 |0 # HANGUL SYLLABLE TIKEUT I CHIEUCH
-<UB52C> \x8B\x49 |0 # HANGUL SYLLABLE TIKEUT I KHIEUKH
-<UB52D> \x8B\x4A |0 # HANGUL SYLLABLE TIKEUT I THIEUTH
-<UB52E> \x8B\x4B |0 # HANGUL SYLLABLE TIKEUT I PHIEUPH
-<UB52F> \x8B\x4C |0 # HANGUL SYLLABLE TIKEUT I HIEUH
-<UB530> \xB5\xFB |0 # HANGUL SYLLABLE SSANGTIKEUT A
-<UB531> \xB5\xFC |0 # HANGUL SYLLABLE SSANGTIKEUT A KIYEOK
-<UB532> \x8B\x4D |0 # HANGUL SYLLABLE SSANGTIKEUT A SSANGKIYEOK
-<UB533> \x8B\x4E |0 # HANGUL SYLLABLE SSANGTIKEUT A KIYEOKSIOS
-<UB534> \xB5\xFD |0 # HANGUL SYLLABLE SSANGTIKEUT A NIEUN
-<UB535> \x8B\x4F |0 # HANGUL SYLLABLE SSANGTIKEUT A NIEUNCIEUC
-<UB536> \x8B\x50 |0 # HANGUL SYLLABLE SSANGTIKEUT A NIEUNHIEUH
-<UB537> \x8B\x51 |0 # HANGUL SYLLABLE SSANGTIKEUT A TIKEUT
-<UB538> \xB5\xFE |0 # HANGUL SYLLABLE SSANGTIKEUT A RIEUL
-<UB539> \x8B\x52 |0 # HANGUL SYLLABLE SSANGTIKEUT A RIEULKIYEOK
-<UB53A> \x8B\x53 |0 # HANGUL SYLLABLE SSANGTIKEUT A RIEULMIEUM
-<UB53B> \x8B\x54 |0 # HANGUL SYLLABLE SSANGTIKEUT A RIEULPIEUP
-<UB53C> \x8B\x55 |0 # HANGUL SYLLABLE SSANGTIKEUT A RIEULSIOS
-<UB53D> \x8B\x56 |0 # HANGUL SYLLABLE SSANGTIKEUT A RIEULTHIEUTH
-<UB53E> \x8B\x57 |0 # HANGUL SYLLABLE SSANGTIKEUT A RIEULPHIEUPH
-<UB53F> \x8B\x58 |0 # HANGUL SYLLABLE SSANGTIKEUT A RIEULHIEUH
-<UB540> \xB6\xA1 |0 # HANGUL SYLLABLE SSANGTIKEUT A MIEUM
-<UB541> \xB6\xA2 |0 # HANGUL SYLLABLE SSANGTIKEUT A PIEUP
-<UB542> \x8B\x59 |0 # HANGUL SYLLABLE SSANGTIKEUT A PIEUPSIOS
-<UB543> \xB6\xA3 |0 # HANGUL SYLLABLE SSANGTIKEUT A SIOS
-<UB544> \xB6\xA4 |0 # HANGUL SYLLABLE SSANGTIKEUT A SSANGSIOS
-<UB545> \xB6\xA5 |0 # HANGUL SYLLABLE SSANGTIKEUT A IEUNG
-<UB546> \x8B\x5A |0 # HANGUL SYLLABLE SSANGTIKEUT A CIEUC
-<UB547> \x8B\x61 |0 # HANGUL SYLLABLE SSANGTIKEUT A CHIEUCH
-<UB548> \x8B\x62 |0 # HANGUL SYLLABLE SSANGTIKEUT A KHIEUKH
-<UB549> \x8B\x63 |0 # HANGUL SYLLABLE SSANGTIKEUT A THIEUTH
-<UB54A> \x8B\x64 |0 # HANGUL SYLLABLE SSANGTIKEUT A PHIEUPH
-<UB54B> \xB6\xA6 |0 # HANGUL SYLLABLE SSANGTIKEUT A HIEUH
-<UB54C> \xB6\xA7 |0 # HANGUL SYLLABLE SSANGTIKEUT AE
-<UB54D> \xB6\xA8 |0 # HANGUL SYLLABLE SSANGTIKEUT AE KIYEOK
-<UB54E> \x8B\x65 |0 # HANGUL SYLLABLE SSANGTIKEUT AE SSANGKIYEOK
-<UB54F> \x8B\x66 |0 # HANGUL SYLLABLE SSANGTIKEUT AE KIYEOKSIOS
-<UB550> \xB6\xA9 |0 # HANGUL SYLLABLE SSANGTIKEUT AE NIEUN
-<UB551> \x8B\x67 |0 # HANGUL SYLLABLE SSANGTIKEUT AE NIEUNCIEUC
-<UB552> \x8B\x68 |0 # HANGUL SYLLABLE SSANGTIKEUT AE NIEUNHIEUH
-<UB553> \x8B\x69 |0 # HANGUL SYLLABLE SSANGTIKEUT AE TIKEUT
-<UB554> \xB6\xAA |0 # HANGUL SYLLABLE SSANGTIKEUT AE RIEUL
-<UB555> \x8B\x6A |0 # HANGUL SYLLABLE SSANGTIKEUT AE RIEULKIYEOK
-<UB556> \x8B\x6B |0 # HANGUL SYLLABLE SSANGTIKEUT AE RIEULMIEUM
-<UB557> \x8B\x6C |0 # HANGUL SYLLABLE SSANGTIKEUT AE RIEULPIEUP
-<UB558> \x8B\x6D |0 # HANGUL SYLLABLE SSANGTIKEUT AE RIEULSIOS
-<UB559> \x8B\x6E |0 # HANGUL SYLLABLE SSANGTIKEUT AE RIEULTHIEUTH
-<UB55A> \x8B\x6F |0 # HANGUL SYLLABLE SSANGTIKEUT AE RIEULPHIEUPH
-<UB55B> \x8B\x70 |0 # HANGUL SYLLABLE SSANGTIKEUT AE RIEULHIEUH
-<UB55C> \xB6\xAB |0 # HANGUL SYLLABLE SSANGTIKEUT AE MIEUM
-<UB55D> \xB6\xAC |0 # HANGUL SYLLABLE SSANGTIKEUT AE PIEUP
-<UB55E> \x8B\x71 |0 # HANGUL SYLLABLE SSANGTIKEUT AE PIEUPSIOS
-<UB55F> \xB6\xAD |0 # HANGUL SYLLABLE SSANGTIKEUT AE SIOS
-<UB560> \xB6\xAE |0 # HANGUL SYLLABLE SSANGTIKEUT AE SSANGSIOS
-<UB561> \xB6\xAF |0 # HANGUL SYLLABLE SSANGTIKEUT AE IEUNG
-<UB562> \x8B\x72 |0 # HANGUL SYLLABLE SSANGTIKEUT AE CIEUC
-<UB563> \x8B\x73 |0 # HANGUL SYLLABLE SSANGTIKEUT AE CHIEUCH
-<UB564> \x8B\x74 |0 # HANGUL SYLLABLE SSANGTIKEUT AE KHIEUKH
-<UB565> \x8B\x75 |0 # HANGUL SYLLABLE SSANGTIKEUT AE THIEUTH
-<UB566> \x8B\x76 |0 # HANGUL SYLLABLE SSANGTIKEUT AE PHIEUPH
-<UB567> \x8B\x77 |0 # HANGUL SYLLABLE SSANGTIKEUT AE HIEUH
-<UB568> \x8B\x78 |0 # HANGUL SYLLABLE SSANGTIKEUT YA
-<UB569> \x8B\x79 |0 # HANGUL SYLLABLE SSANGTIKEUT YA KIYEOK
-<UB56A> \x8B\x7A |0 # HANGUL SYLLABLE SSANGTIKEUT YA SSANGKIYEOK
-<UB56B> \x8B\x81 |0 # HANGUL SYLLABLE SSANGTIKEUT YA KIYEOKSIOS
-<UB56C> \x8B\x82 |0 # HANGUL SYLLABLE SSANGTIKEUT YA NIEUN
-<UB56D> \x8B\x83 |0 # HANGUL SYLLABLE SSANGTIKEUT YA NIEUNCIEUC
-<UB56E> \x8B\x84 |0 # HANGUL SYLLABLE SSANGTIKEUT YA NIEUNHIEUH
-<UB56F> \x8B\x85 |0 # HANGUL SYLLABLE SSANGTIKEUT YA TIKEUT
-<UB570> \x8B\x86 |0 # HANGUL SYLLABLE SSANGTIKEUT YA RIEUL
-<UB571> \x8B\x87 |0 # HANGUL SYLLABLE SSANGTIKEUT YA RIEULKIYEOK
-<UB572> \x8B\x88 |0 # HANGUL SYLLABLE SSANGTIKEUT YA RIEULMIEUM
-<UB573> \x8B\x89 |0 # HANGUL SYLLABLE SSANGTIKEUT YA RIEULPIEUP
-<UB574> \x8B\x8A |0 # HANGUL SYLLABLE SSANGTIKEUT YA RIEULSIOS
-<UB575> \x8B\x8B |0 # HANGUL SYLLABLE SSANGTIKEUT YA RIEULTHIEUTH
-<UB576> \x8B\x8C |0 # HANGUL SYLLABLE SSANGTIKEUT YA RIEULPHIEUPH
-<UB577> \x8B\x8D |0 # HANGUL SYLLABLE SSANGTIKEUT YA RIEULHIEUH
-<UB578> \x8B\x8E |0 # HANGUL SYLLABLE SSANGTIKEUT YA MIEUM
-<UB579> \x8B\x8F |0 # HANGUL SYLLABLE SSANGTIKEUT YA PIEUP
-<UB57A> \x8B\x90 |0 # HANGUL SYLLABLE SSANGTIKEUT YA PIEUPSIOS
-<UB57B> \x8B\x91 |0 # HANGUL SYLLABLE SSANGTIKEUT YA SIOS
-<UB57C> \x8B\x92 |0 # HANGUL SYLLABLE SSANGTIKEUT YA SSANGSIOS
-<UB57D> \x8B\x93 |0 # HANGUL SYLLABLE SSANGTIKEUT YA IEUNG
-<UB57E> \x8B\x94 |0 # HANGUL SYLLABLE SSANGTIKEUT YA CIEUC
-<UB57F> \x8B\x95 |0 # HANGUL SYLLABLE SSANGTIKEUT YA CHIEUCH
-<UB580> \x8B\x96 |0 # HANGUL SYLLABLE SSANGTIKEUT YA KHIEUKH
-<UB581> \x8B\x97 |0 # HANGUL SYLLABLE SSANGTIKEUT YA THIEUTH
-<UB582> \x8B\x98 |0 # HANGUL SYLLABLE SSANGTIKEUT YA PHIEUPH
-<UB583> \x8B\x99 |0 # HANGUL SYLLABLE SSANGTIKEUT YA HIEUH
-<UB584> \x8B\x9A |0 # HANGUL SYLLABLE SSANGTIKEUT YAE
-<UB585> \x8B\x9B |0 # HANGUL SYLLABLE SSANGTIKEUT YAE KIYEOK
-<UB586> \x8B\x9C |0 # HANGUL SYLLABLE SSANGTIKEUT YAE SSANGKIYEOK
-<UB587> \x8B\x9D |0 # HANGUL SYLLABLE SSANGTIKEUT YAE KIYEOKSIOS
-<UB588> \x8B\x9E |0 # HANGUL SYLLABLE SSANGTIKEUT YAE NIEUN
-<UB589> \x8B\x9F |0 # HANGUL SYLLABLE SSANGTIKEUT YAE NIEUNCIEUC
-<UB58A> \x8B\xA0 |0 # HANGUL SYLLABLE SSANGTIKEUT YAE NIEUNHIEUH
-<UB58B> \x8B\xA1 |0 # HANGUL SYLLABLE SSANGTIKEUT YAE TIKEUT
-<UB58C> \x8B\xA2 |0 # HANGUL SYLLABLE SSANGTIKEUT YAE RIEUL
-<UB58D> \x8B\xA3 |0 # HANGUL SYLLABLE SSANGTIKEUT YAE RIEULKIYEOK
-<UB58E> \x8B\xA4 |0 # HANGUL SYLLABLE SSANGTIKEUT YAE RIEULMIEUM
-<UB58F> \x8B\xA5 |0 # HANGUL SYLLABLE SSANGTIKEUT YAE RIEULPIEUP
-<UB590> \x8B\xA6 |0 # HANGUL SYLLABLE SSANGTIKEUT YAE RIEULSIOS
-<UB591> \x8B\xA7 |0 # HANGUL SYLLABLE SSANGTIKEUT YAE RIEULTHIEUTH
-<UB592> \x8B\xA8 |0 # HANGUL SYLLABLE SSANGTIKEUT YAE RIEULPHIEUPH
-<UB593> \x8B\xA9 |0 # HANGUL SYLLABLE SSANGTIKEUT YAE RIEULHIEUH
-<UB594> \x8B\xAA |0 # HANGUL SYLLABLE SSANGTIKEUT YAE MIEUM
-<UB595> \x8B\xAB |0 # HANGUL SYLLABLE SSANGTIKEUT YAE PIEUP
-<UB596> \x8B\xAC |0 # HANGUL SYLLABLE SSANGTIKEUT YAE PIEUPSIOS
-<UB597> \x8B\xAD |0 # HANGUL SYLLABLE SSANGTIKEUT YAE SIOS
-<UB598> \x8B\xAE |0 # HANGUL SYLLABLE SSANGTIKEUT YAE SSANGSIOS
-<UB599> \x8B\xAF |0 # HANGUL SYLLABLE SSANGTIKEUT YAE IEUNG
-<UB59A> \x8B\xB0 |0 # HANGUL SYLLABLE SSANGTIKEUT YAE CIEUC
-<UB59B> \x8B\xB1 |0 # HANGUL SYLLABLE SSANGTIKEUT YAE CHIEUCH
-<UB59C> \x8B\xB2 |0 # HANGUL SYLLABLE SSANGTIKEUT YAE KHIEUKH
-<UB59D> \x8B\xB3 |0 # HANGUL SYLLABLE SSANGTIKEUT YAE THIEUTH
-<UB59E> \x8B\xB4 |0 # HANGUL SYLLABLE SSANGTIKEUT YAE PHIEUPH
-<UB59F> \x8B\xB5 |0 # HANGUL SYLLABLE SSANGTIKEUT YAE HIEUH
-<UB5A0> \xB6\xB0 |0 # HANGUL SYLLABLE SSANGTIKEUT EO
-<UB5A1> \xB6\xB1 |0 # HANGUL SYLLABLE SSANGTIKEUT EO KIYEOK
-<UB5A2> \x8B\xB6 |0 # HANGUL SYLLABLE SSANGTIKEUT EO SSANGKIYEOK
-<UB5A3> \x8B\xB7 |0 # HANGUL SYLLABLE SSANGTIKEUT EO KIYEOKSIOS
-<UB5A4> \xB6\xB2 |0 # HANGUL SYLLABLE SSANGTIKEUT EO NIEUN
-<UB5A5> \x8B\xB8 |0 # HANGUL SYLLABLE SSANGTIKEUT EO NIEUNCIEUC
-<UB5A6> \x8B\xB9 |0 # HANGUL SYLLABLE SSANGTIKEUT EO NIEUNHIEUH
-<UB5A7> \x8B\xBA |0 # HANGUL SYLLABLE SSANGTIKEUT EO TIKEUT
-<UB5A8> \xB6\xB3 |0 # HANGUL SYLLABLE SSANGTIKEUT EO RIEUL
-<UB5A9> \x8B\xBB |0 # HANGUL SYLLABLE SSANGTIKEUT EO RIEULKIYEOK
-<UB5AA> \xB6\xB4 |0 # HANGUL SYLLABLE SSANGTIKEUT EO RIEULMIEUM
-<UB5AB> \xB6\xB5 |0 # HANGUL SYLLABLE SSANGTIKEUT EO RIEULPIEUP
-<UB5AC> \x8B\xBC |0 # HANGUL SYLLABLE SSANGTIKEUT EO RIEULSIOS
-<UB5AD> \x8B\xBD |0 # HANGUL SYLLABLE SSANGTIKEUT EO RIEULTHIEUTH
-<UB5AE> \x8B\xBE |0 # HANGUL SYLLABLE SSANGTIKEUT EO RIEULPHIEUPH
-<UB5AF> \x8B\xBF |0 # HANGUL SYLLABLE SSANGTIKEUT EO RIEULHIEUH
-<UB5B0> \xB6\xB6 |0 # HANGUL SYLLABLE SSANGTIKEUT EO MIEUM
-<UB5B1> \xB6\xB7 |0 # HANGUL SYLLABLE SSANGTIKEUT EO PIEUP
-<UB5B2> \x8B\xC0 |0 # HANGUL SYLLABLE SSANGTIKEUT EO PIEUPSIOS
-<UB5B3> \xB6\xB8 |0 # HANGUL SYLLABLE SSANGTIKEUT EO SIOS
-<UB5B4> \xB6\xB9 |0 # HANGUL SYLLABLE SSANGTIKEUT EO SSANGSIOS
-<UB5B5> \xB6\xBA |0 # HANGUL SYLLABLE SSANGTIKEUT EO IEUNG
-<UB5B6> \x8B\xC1 |0 # HANGUL SYLLABLE SSANGTIKEUT EO CIEUC
-<UB5B7> \x8B\xC2 |0 # HANGUL SYLLABLE SSANGTIKEUT EO CHIEUCH
-<UB5B8> \x8B\xC3 |0 # HANGUL SYLLABLE SSANGTIKEUT EO KHIEUKH
-<UB5B9> \x8B\xC4 |0 # HANGUL SYLLABLE SSANGTIKEUT EO THIEUTH
-<UB5BA> \x8B\xC5 |0 # HANGUL SYLLABLE SSANGTIKEUT EO PHIEUPH
-<UB5BB> \xB6\xBB |0 # HANGUL SYLLABLE SSANGTIKEUT EO HIEUH
-<UB5BC> \xB6\xBC |0 # HANGUL SYLLABLE SSANGTIKEUT E
-<UB5BD> \xB6\xBD |0 # HANGUL SYLLABLE SSANGTIKEUT E KIYEOK
-<UB5BE> \x8B\xC6 |0 # HANGUL SYLLABLE SSANGTIKEUT E SSANGKIYEOK
-<UB5BF> \x8B\xC7 |0 # HANGUL SYLLABLE SSANGTIKEUT E KIYEOKSIOS
-<UB5C0> \xB6\xBE |0 # HANGUL SYLLABLE SSANGTIKEUT E NIEUN
-<UB5C1> \x8B\xC8 |0 # HANGUL SYLLABLE SSANGTIKEUT E NIEUNCIEUC
-<UB5C2> \x8B\xC9 |0 # HANGUL SYLLABLE SSANGTIKEUT E NIEUNHIEUH
-<UB5C3> \x8B\xCA |0 # HANGUL SYLLABLE SSANGTIKEUT E TIKEUT
-<UB5C4> \xB6\xBF |0 # HANGUL SYLLABLE SSANGTIKEUT E RIEUL
-<UB5C5> \x8B\xCB |0 # HANGUL SYLLABLE SSANGTIKEUT E RIEULKIYEOK
-<UB5C6> \x8B\xCC |0 # HANGUL SYLLABLE SSANGTIKEUT E RIEULMIEUM
-<UB5C7> \x8B\xCD |0 # HANGUL SYLLABLE SSANGTIKEUT E RIEULPIEUP
-<UB5C8> \x8B\xCE |0 # HANGUL SYLLABLE SSANGTIKEUT E RIEULSIOS
-<UB5C9> \x8B\xCF |0 # HANGUL SYLLABLE SSANGTIKEUT E RIEULTHIEUTH
-<UB5CA> \x8B\xD0 |0 # HANGUL SYLLABLE SSANGTIKEUT E RIEULPHIEUPH
-<UB5CB> \x8B\xD1 |0 # HANGUL SYLLABLE SSANGTIKEUT E RIEULHIEUH
-<UB5CC> \xB6\xC0 |0 # HANGUL SYLLABLE SSANGTIKEUT E MIEUM
-<UB5CD> \xB6\xC1 |0 # HANGUL SYLLABLE SSANGTIKEUT E PIEUP
-<UB5CE> \x8B\xD2 |0 # HANGUL SYLLABLE SSANGTIKEUT E PIEUPSIOS
-<UB5CF> \xB6\xC2 |0 # HANGUL SYLLABLE SSANGTIKEUT E SIOS
-<UB5D0> \xB6\xC3 |0 # HANGUL SYLLABLE SSANGTIKEUT E SSANGSIOS
-<UB5D1> \xB6\xC4 |0 # HANGUL SYLLABLE SSANGTIKEUT E IEUNG
-<UB5D2> \x8B\xD3 |0 # HANGUL SYLLABLE SSANGTIKEUT E CIEUC
-<UB5D3> \x8B\xD4 |0 # HANGUL SYLLABLE SSANGTIKEUT E CHIEUCH
-<UB5D4> \x8B\xD5 |0 # HANGUL SYLLABLE SSANGTIKEUT E KHIEUKH
-<UB5D5> \x8B\xD6 |0 # HANGUL SYLLABLE SSANGTIKEUT E THIEUTH
-<UB5D6> \x8B\xD7 |0 # HANGUL SYLLABLE SSANGTIKEUT E PHIEUPH
-<UB5D7> \x8B\xD8 |0 # HANGUL SYLLABLE SSANGTIKEUT E HIEUH
-<UB5D8> \xB6\xC5 |0 # HANGUL SYLLABLE SSANGTIKEUT YEO
-<UB5D9> \x8B\xD9 |0 # HANGUL SYLLABLE SSANGTIKEUT YEO KIYEOK
-<UB5DA> \x8B\xDA |0 # HANGUL SYLLABLE SSANGTIKEUT YEO SSANGKIYEOK
-<UB5DB> \x8B\xDB |0 # HANGUL SYLLABLE SSANGTIKEUT YEO KIYEOKSIOS
-<UB5DC> \x8B\xDC |0 # HANGUL SYLLABLE SSANGTIKEUT YEO NIEUN
-<UB5DD> \x8B\xDD |0 # HANGUL SYLLABLE SSANGTIKEUT YEO NIEUNCIEUC
-<UB5DE> \x8B\xDE |0 # HANGUL SYLLABLE SSANGTIKEUT YEO NIEUNHIEUH
-<UB5DF> \x8B\xDF |0 # HANGUL SYLLABLE SSANGTIKEUT YEO TIKEUT
-<UB5E0> \x8B\xE0 |0 # HANGUL SYLLABLE SSANGTIKEUT YEO RIEUL
-<UB5E1> \x8B\xE1 |0 # HANGUL SYLLABLE SSANGTIKEUT YEO RIEULKIYEOK
-<UB5E2> \x8B\xE2 |0 # HANGUL SYLLABLE SSANGTIKEUT YEO RIEULMIEUM
-<UB5E3> \x8B\xE3 |0 # HANGUL SYLLABLE SSANGTIKEUT YEO RIEULPIEUP
-<UB5E4> \x8B\xE4 |0 # HANGUL SYLLABLE SSANGTIKEUT YEO RIEULSIOS
-<UB5E5> \x8B\xE5 |0 # HANGUL SYLLABLE SSANGTIKEUT YEO RIEULTHIEUTH
-<UB5E6> \x8B\xE6 |0 # HANGUL SYLLABLE SSANGTIKEUT YEO RIEULPHIEUPH
-<UB5E7> \x8B\xE7 |0 # HANGUL SYLLABLE SSANGTIKEUT YEO RIEULHIEUH
-<UB5E8> \x8B\xE8 |0 # HANGUL SYLLABLE SSANGTIKEUT YEO MIEUM
-<UB5E9> \x8B\xE9 |0 # HANGUL SYLLABLE SSANGTIKEUT YEO PIEUP
-<UB5EA> \x8B\xEA |0 # HANGUL SYLLABLE SSANGTIKEUT YEO PIEUPSIOS
-<UB5EB> \x8B\xEB |0 # HANGUL SYLLABLE SSANGTIKEUT YEO SIOS
-<UB5EC> \xB6\xC6 |0 # HANGUL SYLLABLE SSANGTIKEUT YEO SSANGSIOS
-<UB5ED> \x8B\xEC |0 # HANGUL SYLLABLE SSANGTIKEUT YEO IEUNG
-<UB5EE> \x8B\xED |0 # HANGUL SYLLABLE SSANGTIKEUT YEO CIEUC
-<UB5EF> \x8B\xEE |0 # HANGUL SYLLABLE SSANGTIKEUT YEO CHIEUCH
-<UB5F0> \x8B\xEF |0 # HANGUL SYLLABLE SSANGTIKEUT YEO KHIEUKH
-<UB5F1> \x8B\xF0 |0 # HANGUL SYLLABLE SSANGTIKEUT YEO THIEUTH
-<UB5F2> \x8B\xF1 |0 # HANGUL SYLLABLE SSANGTIKEUT YEO PHIEUPH
-<UB5F3> \x8B\xF2 |0 # HANGUL SYLLABLE SSANGTIKEUT YEO HIEUH
-<UB5F4> \x8B\xF3 |0 # HANGUL SYLLABLE SSANGTIKEUT YE
-<UB5F5> \x8B\xF4 |0 # HANGUL SYLLABLE SSANGTIKEUT YE KIYEOK
-<UB5F6> \x8B\xF5 |0 # HANGUL SYLLABLE SSANGTIKEUT YE SSANGKIYEOK
-<UB5F7> \x8B\xF6 |0 # HANGUL SYLLABLE SSANGTIKEUT YE KIYEOKSIOS
-<UB5F8> \x8B\xF7 |0 # HANGUL SYLLABLE SSANGTIKEUT YE NIEUN
-<UB5F9> \x8B\xF8 |0 # HANGUL SYLLABLE SSANGTIKEUT YE NIEUNCIEUC
-<UB5FA> \x8B\xF9 |0 # HANGUL SYLLABLE SSANGTIKEUT YE NIEUNHIEUH
-<UB5FB> \x8B\xFA |0 # HANGUL SYLLABLE SSANGTIKEUT YE TIKEUT
-<UB5FC> \x8B\xFB |0 # HANGUL SYLLABLE SSANGTIKEUT YE RIEUL
-<UB5FD> \x8B\xFC |0 # HANGUL SYLLABLE SSANGTIKEUT YE RIEULKIYEOK
-<UB5FE> \x8B\xFD |0 # HANGUL SYLLABLE SSANGTIKEUT YE RIEULMIEUM
-<UB5FF> \x8B\xFE |0 # HANGUL SYLLABLE SSANGTIKEUT YE RIEULPIEUP
-<UB600> \x8C\x41 |0 # HANGUL SYLLABLE SSANGTIKEUT YE RIEULSIOS
-<UB601> \x8C\x42 |0 # HANGUL SYLLABLE SSANGTIKEUT YE RIEULTHIEUTH
-<UB602> \x8C\x43 |0 # HANGUL SYLLABLE SSANGTIKEUT YE RIEULPHIEUPH
-<UB603> \x8C\x44 |0 # HANGUL SYLLABLE SSANGTIKEUT YE RIEULHIEUH
-<UB604> \x8C\x45 |0 # HANGUL SYLLABLE SSANGTIKEUT YE MIEUM
-<UB605> \x8C\x46 |0 # HANGUL SYLLABLE SSANGTIKEUT YE PIEUP
-<UB606> \x8C\x47 |0 # HANGUL SYLLABLE SSANGTIKEUT YE PIEUPSIOS
-<UB607> \x8C\x48 |0 # HANGUL SYLLABLE SSANGTIKEUT YE SIOS
-<UB608> \x8C\x49 |0 # HANGUL SYLLABLE SSANGTIKEUT YE SSANGSIOS
-<UB609> \x8C\x4A |0 # HANGUL SYLLABLE SSANGTIKEUT YE IEUNG
-<UB60A> \x8C\x4B |0 # HANGUL SYLLABLE SSANGTIKEUT YE CIEUC
-<UB60B> \x8C\x4C |0 # HANGUL SYLLABLE SSANGTIKEUT YE CHIEUCH
-<UB60C> \x8C\x4D |0 # HANGUL SYLLABLE SSANGTIKEUT YE KHIEUKH
-<UB60D> \x8C\x4E |0 # HANGUL SYLLABLE SSANGTIKEUT YE THIEUTH
-<UB60E> \x8C\x4F |0 # HANGUL SYLLABLE SSANGTIKEUT YE PHIEUPH
-<UB60F> \x8C\x50 |0 # HANGUL SYLLABLE SSANGTIKEUT YE HIEUH
-<UB610> \xB6\xC7 |0 # HANGUL SYLLABLE SSANGTIKEUT O
-<UB611> \xB6\xC8 |0 # HANGUL SYLLABLE SSANGTIKEUT O KIYEOK
-<UB612> \x8C\x51 |0 # HANGUL SYLLABLE SSANGTIKEUT O SSANGKIYEOK
-<UB613> \x8C\x52 |0 # HANGUL SYLLABLE SSANGTIKEUT O KIYEOKSIOS
-<UB614> \xB6\xC9 |0 # HANGUL SYLLABLE SSANGTIKEUT O NIEUN
-<UB615> \x8C\x53 |0 # HANGUL SYLLABLE SSANGTIKEUT O NIEUNCIEUC
-<UB616> \x8C\x54 |0 # HANGUL SYLLABLE SSANGTIKEUT O NIEUNHIEUH
-<UB617> \x8C\x55 |0 # HANGUL SYLLABLE SSANGTIKEUT O TIKEUT
-<UB618> \xB6\xCA |0 # HANGUL SYLLABLE SSANGTIKEUT O RIEUL
-<UB619> \x8C\x56 |0 # HANGUL SYLLABLE SSANGTIKEUT O RIEULKIYEOK
-<UB61A> \x8C\x57 |0 # HANGUL SYLLABLE SSANGTIKEUT O RIEULMIEUM
-<UB61B> \x8C\x58 |0 # HANGUL SYLLABLE SSANGTIKEUT O RIEULPIEUP
-<UB61C> \x8C\x59 |0 # HANGUL SYLLABLE SSANGTIKEUT O RIEULSIOS
-<UB61D> \x8C\x5A |0 # HANGUL SYLLABLE SSANGTIKEUT O RIEULTHIEUTH
-<UB61E> \x8C\x61 |0 # HANGUL SYLLABLE SSANGTIKEUT O RIEULPHIEUPH
-<UB61F> \x8C\x62 |0 # HANGUL SYLLABLE SSANGTIKEUT O RIEULHIEUH
-<UB620> \x8C\x63 |0 # HANGUL SYLLABLE SSANGTIKEUT O MIEUM
-<UB621> \x8C\x64 |0 # HANGUL SYLLABLE SSANGTIKEUT O PIEUP
-<UB622> \x8C\x65 |0 # HANGUL SYLLABLE SSANGTIKEUT O PIEUPSIOS
-<UB623> \x8C\x66 |0 # HANGUL SYLLABLE SSANGTIKEUT O SIOS
-<UB624> \x8C\x67 |0 # HANGUL SYLLABLE SSANGTIKEUT O SSANGSIOS
-<UB625> \xB6\xCB |0 # HANGUL SYLLABLE SSANGTIKEUT O IEUNG
-<UB626> \x8C\x68 |0 # HANGUL SYLLABLE SSANGTIKEUT O CIEUC
-<UB627> \x8C\x69 |0 # HANGUL SYLLABLE SSANGTIKEUT O CHIEUCH
-<UB628> \x8C\x6A |0 # HANGUL SYLLABLE SSANGTIKEUT O KHIEUKH
-<UB629> \x8C\x6B |0 # HANGUL SYLLABLE SSANGTIKEUT O THIEUTH
-<UB62A> \x8C\x6C |0 # HANGUL SYLLABLE SSANGTIKEUT O PHIEUPH
-<UB62B> \x8C\x6D |0 # HANGUL SYLLABLE SSANGTIKEUT O HIEUH
-<UB62C> \xB6\xCC |0 # HANGUL SYLLABLE SSANGTIKEUT WA
-<UB62D> \x8C\x6E |0 # HANGUL SYLLABLE SSANGTIKEUT WA KIYEOK
-<UB62E> \x8C\x6F |0 # HANGUL SYLLABLE SSANGTIKEUT WA SSANGKIYEOK
-<UB62F> \x8C\x70 |0 # HANGUL SYLLABLE SSANGTIKEUT WA KIYEOKSIOS
-<UB630> \x8C\x71 |0 # HANGUL SYLLABLE SSANGTIKEUT WA NIEUN
-<UB631> \x8C\x72 |0 # HANGUL SYLLABLE SSANGTIKEUT WA NIEUNCIEUC
-<UB632> \x8C\x73 |0 # HANGUL SYLLABLE SSANGTIKEUT WA NIEUNHIEUH
-<UB633> \x8C\x74 |0 # HANGUL SYLLABLE SSANGTIKEUT WA TIKEUT
-<UB634> \xB6\xCD |0 # HANGUL SYLLABLE SSANGTIKEUT WA RIEUL
-<UB635> \x8C\x75 |0 # HANGUL SYLLABLE SSANGTIKEUT WA RIEULKIYEOK
-<UB636> \x8C\x76 |0 # HANGUL SYLLABLE SSANGTIKEUT WA RIEULMIEUM
-<UB637> \x8C\x77 |0 # HANGUL SYLLABLE SSANGTIKEUT WA RIEULPIEUP
-<UB638> \x8C\x78 |0 # HANGUL SYLLABLE SSANGTIKEUT WA RIEULSIOS
-<UB639> \x8C\x79 |0 # HANGUL SYLLABLE SSANGTIKEUT WA RIEULTHIEUTH
-<UB63A> \x8C\x7A |0 # HANGUL SYLLABLE SSANGTIKEUT WA RIEULPHIEUPH
-<UB63B> \x8C\x81 |0 # HANGUL SYLLABLE SSANGTIKEUT WA RIEULHIEUH
-<UB63C> \x8C\x82 |0 # HANGUL SYLLABLE SSANGTIKEUT WA MIEUM
-<UB63D> \x8C\x83 |0 # HANGUL SYLLABLE SSANGTIKEUT WA PIEUP
-<UB63E> \x8C\x84 |0 # HANGUL SYLLABLE SSANGTIKEUT WA PIEUPSIOS
-<UB63F> \x8C\x85 |0 # HANGUL SYLLABLE SSANGTIKEUT WA SIOS
-<UB640> \x8C\x86 |0 # HANGUL SYLLABLE SSANGTIKEUT WA SSANGSIOS
-<UB641> \x8C\x87 |0 # HANGUL SYLLABLE SSANGTIKEUT WA IEUNG
-<UB642> \x8C\x88 |0 # HANGUL SYLLABLE SSANGTIKEUT WA CIEUC
-<UB643> \x8C\x89 |0 # HANGUL SYLLABLE SSANGTIKEUT WA CHIEUCH
-<UB644> \x8C\x8A |0 # HANGUL SYLLABLE SSANGTIKEUT WA KHIEUKH
-<UB645> \x8C\x8B |0 # HANGUL SYLLABLE SSANGTIKEUT WA THIEUTH
-<UB646> \x8C\x8C |0 # HANGUL SYLLABLE SSANGTIKEUT WA PHIEUPH
-<UB647> \x8C\x8D |0 # HANGUL SYLLABLE SSANGTIKEUT WA HIEUH
-<UB648> \xB6\xCE |0 # HANGUL SYLLABLE SSANGTIKEUT WAE
-<UB649> \x8C\x8E |0 # HANGUL SYLLABLE SSANGTIKEUT WAE KIYEOK
-<UB64A> \x8C\x8F |0 # HANGUL SYLLABLE SSANGTIKEUT WAE SSANGKIYEOK
-<UB64B> \x8C\x90 |0 # HANGUL SYLLABLE SSANGTIKEUT WAE KIYEOKSIOS
-<UB64C> \x8C\x91 |0 # HANGUL SYLLABLE SSANGTIKEUT WAE NIEUN
-<UB64D> \x8C\x92 |0 # HANGUL SYLLABLE SSANGTIKEUT WAE NIEUNCIEUC
-<UB64E> \x8C\x93 |0 # HANGUL SYLLABLE SSANGTIKEUT WAE NIEUNHIEUH
-<UB64F> \x8C\x94 |0 # HANGUL SYLLABLE SSANGTIKEUT WAE TIKEUT
-<UB650> \x8C\x95 |0 # HANGUL SYLLABLE SSANGTIKEUT WAE RIEUL
-<UB651> \x8C\x96 |0 # HANGUL SYLLABLE SSANGTIKEUT WAE RIEULKIYEOK
-<UB652> \x8C\x97 |0 # HANGUL SYLLABLE SSANGTIKEUT WAE RIEULMIEUM
-<UB653> \x8C\x98 |0 # HANGUL SYLLABLE SSANGTIKEUT WAE RIEULPIEUP
-<UB654> \x8C\x99 |0 # HANGUL SYLLABLE SSANGTIKEUT WAE RIEULSIOS
-<UB655> \x8C\x9A |0 # HANGUL SYLLABLE SSANGTIKEUT WAE RIEULTHIEUTH
-<UB656> \x8C\x9B |0 # HANGUL SYLLABLE SSANGTIKEUT WAE RIEULPHIEUPH
-<UB657> \x8C\x9C |0 # HANGUL SYLLABLE SSANGTIKEUT WAE RIEULHIEUH
-<UB658> \x8C\x9D |0 # HANGUL SYLLABLE SSANGTIKEUT WAE MIEUM
-<UB659> \x8C\x9E |0 # HANGUL SYLLABLE SSANGTIKEUT WAE PIEUP
-<UB65A> \x8C\x9F |0 # HANGUL SYLLABLE SSANGTIKEUT WAE PIEUPSIOS
-<UB65B> \x8C\xA0 |0 # HANGUL SYLLABLE SSANGTIKEUT WAE SIOS
-<UB65C> \x8C\xA1 |0 # HANGUL SYLLABLE SSANGTIKEUT WAE SSANGSIOS
-<UB65D> \x8C\xA2 |0 # HANGUL SYLLABLE SSANGTIKEUT WAE IEUNG
-<UB65E> \x8C\xA3 |0 # HANGUL SYLLABLE SSANGTIKEUT WAE CIEUC
-<UB65F> \x8C\xA4 |0 # HANGUL SYLLABLE SSANGTIKEUT WAE CHIEUCH
-<UB660> \x8C\xA5 |0 # HANGUL SYLLABLE SSANGTIKEUT WAE KHIEUKH
-<UB661> \x8C\xA6 |0 # HANGUL SYLLABLE SSANGTIKEUT WAE THIEUTH
-<UB662> \x8C\xA7 |0 # HANGUL SYLLABLE SSANGTIKEUT WAE PHIEUPH
-<UB663> \x8C\xA8 |0 # HANGUL SYLLABLE SSANGTIKEUT WAE HIEUH
-<UB664> \xB6\xCF |0 # HANGUL SYLLABLE SSANGTIKEUT OE
-<UB665> \x8C\xA9 |0 # HANGUL SYLLABLE SSANGTIKEUT OE KIYEOK
-<UB666> \x8C\xAA |0 # HANGUL SYLLABLE SSANGTIKEUT OE SSANGKIYEOK
-<UB667> \x8C\xAB |0 # HANGUL SYLLABLE SSANGTIKEUT OE KIYEOKSIOS
-<UB668> \xB6\xD0 |0 # HANGUL SYLLABLE SSANGTIKEUT OE NIEUN
-<UB669> \x8C\xAC |0 # HANGUL SYLLABLE SSANGTIKEUT OE NIEUNCIEUC
-<UB66A> \x8C\xAD |0 # HANGUL SYLLABLE SSANGTIKEUT OE NIEUNHIEUH
-<UB66B> \x8C\xAE |0 # HANGUL SYLLABLE SSANGTIKEUT OE TIKEUT
-<UB66C> \x8C\xAF |0 # HANGUL SYLLABLE SSANGTIKEUT OE RIEUL
-<UB66D> \x8C\xB0 |0 # HANGUL SYLLABLE SSANGTIKEUT OE RIEULKIYEOK
-<UB66E> \x8C\xB1 |0 # HANGUL SYLLABLE SSANGTIKEUT OE RIEULMIEUM
-<UB66F> \x8C\xB2 |0 # HANGUL SYLLABLE SSANGTIKEUT OE RIEULPIEUP
-<UB670> \x8C\xB3 |0 # HANGUL SYLLABLE SSANGTIKEUT OE RIEULSIOS
-<UB671> \x8C\xB4 |0 # HANGUL SYLLABLE SSANGTIKEUT OE RIEULTHIEUTH
-<UB672> \x8C\xB5 |0 # HANGUL SYLLABLE SSANGTIKEUT OE RIEULPHIEUPH
-<UB673> \x8C\xB6 |0 # HANGUL SYLLABLE SSANGTIKEUT OE RIEULHIEUH
-<UB674> \x8C\xB7 |0 # HANGUL SYLLABLE SSANGTIKEUT OE MIEUM
-<UB675> \x8C\xB8 |0 # HANGUL SYLLABLE SSANGTIKEUT OE PIEUP
-<UB676> \x8C\xB9 |0 # HANGUL SYLLABLE SSANGTIKEUT OE PIEUPSIOS
-<UB677> \x8C\xBA |0 # HANGUL SYLLABLE SSANGTIKEUT OE SIOS
-<UB678> \x8C\xBB |0 # HANGUL SYLLABLE SSANGTIKEUT OE SSANGSIOS
-<UB679> \x8C\xBC |0 # HANGUL SYLLABLE SSANGTIKEUT OE IEUNG
-<UB67A> \x8C\xBD |0 # HANGUL SYLLABLE SSANGTIKEUT OE CIEUC
-<UB67B> \x8C\xBE |0 # HANGUL SYLLABLE SSANGTIKEUT OE CHIEUCH
-<UB67C> \x8C\xBF |0 # HANGUL SYLLABLE SSANGTIKEUT OE KHIEUKH
-<UB67D> \x8C\xC0 |0 # HANGUL SYLLABLE SSANGTIKEUT OE THIEUTH
-<UB67E> \x8C\xC1 |0 # HANGUL SYLLABLE SSANGTIKEUT OE PHIEUPH
-<UB67F> \x8C\xC2 |0 # HANGUL SYLLABLE SSANGTIKEUT OE HIEUH
-<UB680> \x8C\xC3 |0 # HANGUL SYLLABLE SSANGTIKEUT YO
-<UB681> \x8C\xC4 |0 # HANGUL SYLLABLE SSANGTIKEUT YO KIYEOK
-<UB682> \x8C\xC5 |0 # HANGUL SYLLABLE SSANGTIKEUT YO SSANGKIYEOK
-<UB683> \x8C\xC6 |0 # HANGUL SYLLABLE SSANGTIKEUT YO KIYEOKSIOS
-<UB684> \x8C\xC7 |0 # HANGUL SYLLABLE SSANGTIKEUT YO NIEUN
-<UB685> \x8C\xC8 |0 # HANGUL SYLLABLE SSANGTIKEUT YO NIEUNCIEUC
-<UB686> \x8C\xC9 |0 # HANGUL SYLLABLE SSANGTIKEUT YO NIEUNHIEUH
-<UB687> \x8C\xCA |0 # HANGUL SYLLABLE SSANGTIKEUT YO TIKEUT
-<UB688> \x8C\xCB |0 # HANGUL SYLLABLE SSANGTIKEUT YO RIEUL
-<UB689> \x8C\xCC |0 # HANGUL SYLLABLE SSANGTIKEUT YO RIEULKIYEOK
-<UB68A> \x8C\xCD |0 # HANGUL SYLLABLE SSANGTIKEUT YO RIEULMIEUM
-<UB68B> \x8C\xCE |0 # HANGUL SYLLABLE SSANGTIKEUT YO RIEULPIEUP
-<UB68C> \x8C\xCF |0 # HANGUL SYLLABLE SSANGTIKEUT YO RIEULSIOS
-<UB68D> \x8C\xD0 |0 # HANGUL SYLLABLE SSANGTIKEUT YO RIEULTHIEUTH
-<UB68E> \x8C\xD1 |0 # HANGUL SYLLABLE SSANGTIKEUT YO RIEULPHIEUPH
-<UB68F> \x8C\xD2 |0 # HANGUL SYLLABLE SSANGTIKEUT YO RIEULHIEUH
-<UB690> \x8C\xD3 |0 # HANGUL SYLLABLE SSANGTIKEUT YO MIEUM
-<UB691> \x8C\xD4 |0 # HANGUL SYLLABLE SSANGTIKEUT YO PIEUP
-<UB692> \x8C\xD5 |0 # HANGUL SYLLABLE SSANGTIKEUT YO PIEUPSIOS
-<UB693> \x8C\xD6 |0 # HANGUL SYLLABLE SSANGTIKEUT YO SIOS
-<UB694> \x8C\xD7 |0 # HANGUL SYLLABLE SSANGTIKEUT YO SSANGSIOS
-<UB695> \x8C\xD8 |0 # HANGUL SYLLABLE SSANGTIKEUT YO IEUNG
-<UB696> \x8C\xD9 |0 # HANGUL SYLLABLE SSANGTIKEUT YO CIEUC
-<UB697> \x8C\xDA |0 # HANGUL SYLLABLE SSANGTIKEUT YO CHIEUCH
-<UB698> \x8C\xDB |0 # HANGUL SYLLABLE SSANGTIKEUT YO KHIEUKH
-<UB699> \x8C\xDC |0 # HANGUL SYLLABLE SSANGTIKEUT YO THIEUTH
-<UB69A> \x8C\xDD |0 # HANGUL SYLLABLE SSANGTIKEUT YO PHIEUPH
-<UB69B> \x8C\xDE |0 # HANGUL SYLLABLE SSANGTIKEUT YO HIEUH
-<UB69C> \xB6\xD1 |0 # HANGUL SYLLABLE SSANGTIKEUT U
-<UB69D> \xB6\xD2 |0 # HANGUL SYLLABLE SSANGTIKEUT U KIYEOK
-<UB69E> \x8C\xDF |0 # HANGUL SYLLABLE SSANGTIKEUT U SSANGKIYEOK
-<UB69F> \x8C\xE0 |0 # HANGUL SYLLABLE SSANGTIKEUT U KIYEOKSIOS
-<UB6A0> \xB6\xD3 |0 # HANGUL SYLLABLE SSANGTIKEUT U NIEUN
-<UB6A1> \x8C\xE1 |0 # HANGUL SYLLABLE SSANGTIKEUT U NIEUNCIEUC
-<UB6A2> \x8C\xE2 |0 # HANGUL SYLLABLE SSANGTIKEUT U NIEUNHIEUH
-<UB6A3> \x8C\xE3 |0 # HANGUL SYLLABLE SSANGTIKEUT U TIKEUT
-<UB6A4> \xB6\xD4 |0 # HANGUL SYLLABLE SSANGTIKEUT U RIEUL
-<UB6A5> \x8C\xE4 |0 # HANGUL SYLLABLE SSANGTIKEUT U RIEULKIYEOK
-<UB6A6> \x8C\xE5 |0 # HANGUL SYLLABLE SSANGTIKEUT U RIEULMIEUM
-<UB6A7> \x8C\xE6 |0 # HANGUL SYLLABLE SSANGTIKEUT U RIEULPIEUP
-<UB6A8> \x8C\xE7 |0 # HANGUL SYLLABLE SSANGTIKEUT U RIEULSIOS
-<UB6A9> \x8C\xE8 |0 # HANGUL SYLLABLE SSANGTIKEUT U RIEULTHIEUTH
-<UB6AA> \x8C\xE9 |0 # HANGUL SYLLABLE SSANGTIKEUT U RIEULPHIEUPH
-<UB6AB> \xB6\xD5 |0 # HANGUL SYLLABLE SSANGTIKEUT U RIEULHIEUH
-<UB6AC> \xB6\xD6 |0 # HANGUL SYLLABLE SSANGTIKEUT U MIEUM
-<UB6AD> \x8C\xEA |0 # HANGUL SYLLABLE SSANGTIKEUT U PIEUP
-<UB6AE> \x8C\xEB |0 # HANGUL SYLLABLE SSANGTIKEUT U PIEUPSIOS
-<UB6AF> \x8C\xEC |0 # HANGUL SYLLABLE SSANGTIKEUT U SIOS
-<UB6B0> \x8C\xED |0 # HANGUL SYLLABLE SSANGTIKEUT U SSANGSIOS
-<UB6B1> \xB6\xD7 |0 # HANGUL SYLLABLE SSANGTIKEUT U IEUNG
-<UB6B2> \x8C\xEE |0 # HANGUL SYLLABLE SSANGTIKEUT U CIEUC
-<UB6B3> \x8C\xEF |0 # HANGUL SYLLABLE SSANGTIKEUT U CHIEUCH
-<UB6B4> \x8C\xF0 |0 # HANGUL SYLLABLE SSANGTIKEUT U KHIEUKH
-<UB6B5> \x8C\xF1 |0 # HANGUL SYLLABLE SSANGTIKEUT U THIEUTH
-<UB6B6> \x8C\xF2 |0 # HANGUL SYLLABLE SSANGTIKEUT U PHIEUPH
-<UB6B7> \x8C\xF3 |0 # HANGUL SYLLABLE SSANGTIKEUT U HIEUH
-<UB6B8> \x8C\xF4 |0 # HANGUL SYLLABLE SSANGTIKEUT WEO
-<UB6B9> \x8C\xF5 |0 # HANGUL SYLLABLE SSANGTIKEUT WEO KIYEOK
-<UB6BA> \x8C\xF6 |0 # HANGUL SYLLABLE SSANGTIKEUT WEO SSANGKIYEOK
-<UB6BB> \x8C\xF7 |0 # HANGUL SYLLABLE SSANGTIKEUT WEO KIYEOKSIOS
-<UB6BC> \x8C\xF8 |0 # HANGUL SYLLABLE SSANGTIKEUT WEO NIEUN
-<UB6BD> \x8C\xF9 |0 # HANGUL SYLLABLE SSANGTIKEUT WEO NIEUNCIEUC
-<UB6BE> \x8C\xFA |0 # HANGUL SYLLABLE SSANGTIKEUT WEO NIEUNHIEUH
-<UB6BF> \x8C\xFB |0 # HANGUL SYLLABLE SSANGTIKEUT WEO TIKEUT
-<UB6C0> \x8C\xFC |0 # HANGUL SYLLABLE SSANGTIKEUT WEO RIEUL
-<UB6C1> \x8C\xFD |0 # HANGUL SYLLABLE SSANGTIKEUT WEO RIEULKIYEOK
-<UB6C2> \x8C\xFE |0 # HANGUL SYLLABLE SSANGTIKEUT WEO RIEULMIEUM
-<UB6C3> \x8D\x41 |0 # HANGUL SYLLABLE SSANGTIKEUT WEO RIEULPIEUP
-<UB6C4> \x8D\x42 |0 # HANGUL SYLLABLE SSANGTIKEUT WEO RIEULSIOS
-<UB6C5> \x8D\x43 |0 # HANGUL SYLLABLE SSANGTIKEUT WEO RIEULTHIEUTH
-<UB6C6> \x8D\x44 |0 # HANGUL SYLLABLE SSANGTIKEUT WEO RIEULPHIEUPH
-<UB6C7> \x8D\x45 |0 # HANGUL SYLLABLE SSANGTIKEUT WEO RIEULHIEUH
-<UB6C8> \x8D\x46 |0 # HANGUL SYLLABLE SSANGTIKEUT WEO MIEUM
-<UB6C9> \x8D\x47 |0 # HANGUL SYLLABLE SSANGTIKEUT WEO PIEUP
-<UB6CA> \x8D\x48 |0 # HANGUL SYLLABLE SSANGTIKEUT WEO PIEUPSIOS
-<UB6CB> \x8D\x49 |0 # HANGUL SYLLABLE SSANGTIKEUT WEO SIOS
-<UB6CC> \x8D\x4A |0 # HANGUL SYLLABLE SSANGTIKEUT WEO SSANGSIOS
-<UB6CD> \x8D\x4B |0 # HANGUL SYLLABLE SSANGTIKEUT WEO IEUNG
-<UB6CE> \x8D\x4C |0 # HANGUL SYLLABLE SSANGTIKEUT WEO CIEUC
-<UB6CF> \x8D\x4D |0 # HANGUL SYLLABLE SSANGTIKEUT WEO CHIEUCH
-<UB6D0> \x8D\x4E |0 # HANGUL SYLLABLE SSANGTIKEUT WEO KHIEUKH
-<UB6D1> \x8D\x4F |0 # HANGUL SYLLABLE SSANGTIKEUT WEO THIEUTH
-<UB6D2> \x8D\x50 |0 # HANGUL SYLLABLE SSANGTIKEUT WEO PHIEUPH
-<UB6D3> \x8D\x51 |0 # HANGUL SYLLABLE SSANGTIKEUT WEO HIEUH
-<UB6D4> \xB6\xD8 |0 # HANGUL SYLLABLE SSANGTIKEUT WE
-<UB6D5> \x8D\x52 |0 # HANGUL SYLLABLE SSANGTIKEUT WE KIYEOK
-<UB6D6> \x8D\x53 |0 # HANGUL SYLLABLE SSANGTIKEUT WE SSANGKIYEOK
-<UB6D7> \x8D\x54 |0 # HANGUL SYLLABLE SSANGTIKEUT WE KIYEOKSIOS
-<UB6D8> \x8D\x55 |0 # HANGUL SYLLABLE SSANGTIKEUT WE NIEUN
-<UB6D9> \x8D\x56 |0 # HANGUL SYLLABLE SSANGTIKEUT WE NIEUNCIEUC
-<UB6DA> \x8D\x57 |0 # HANGUL SYLLABLE SSANGTIKEUT WE NIEUNHIEUH
-<UB6DB> \x8D\x58 |0 # HANGUL SYLLABLE SSANGTIKEUT WE TIKEUT
-<UB6DC> \x8D\x59 |0 # HANGUL SYLLABLE SSANGTIKEUT WE RIEUL
-<UB6DD> \x8D\x5A |0 # HANGUL SYLLABLE SSANGTIKEUT WE RIEULKIYEOK
-<UB6DE> \x8D\x61 |0 # HANGUL SYLLABLE SSANGTIKEUT WE RIEULMIEUM
-<UB6DF> \x8D\x62 |0 # HANGUL SYLLABLE SSANGTIKEUT WE RIEULPIEUP
-<UB6E0> \x8D\x63 |0 # HANGUL SYLLABLE SSANGTIKEUT WE RIEULSIOS
-<UB6E1> \x8D\x64 |0 # HANGUL SYLLABLE SSANGTIKEUT WE RIEULTHIEUTH
-<UB6E2> \x8D\x65 |0 # HANGUL SYLLABLE SSANGTIKEUT WE RIEULPHIEUPH
-<UB6E3> \x8D\x66 |0 # HANGUL SYLLABLE SSANGTIKEUT WE RIEULHIEUH
-<UB6E4> \x8D\x67 |0 # HANGUL SYLLABLE SSANGTIKEUT WE MIEUM
-<UB6E5> \x8D\x68 |0 # HANGUL SYLLABLE SSANGTIKEUT WE PIEUP
-<UB6E6> \x8D\x69 |0 # HANGUL SYLLABLE SSANGTIKEUT WE PIEUPSIOS
-<UB6E7> \x8D\x6A |0 # HANGUL SYLLABLE SSANGTIKEUT WE SIOS
-<UB6E8> \x8D\x6B |0 # HANGUL SYLLABLE SSANGTIKEUT WE SSANGSIOS
-<UB6E9> \x8D\x6C |0 # HANGUL SYLLABLE SSANGTIKEUT WE IEUNG
-<UB6EA> \x8D\x6D |0 # HANGUL SYLLABLE SSANGTIKEUT WE CIEUC
-<UB6EB> \x8D\x6E |0 # HANGUL SYLLABLE SSANGTIKEUT WE CHIEUCH
-<UB6EC> \x8D\x6F |0 # HANGUL SYLLABLE SSANGTIKEUT WE KHIEUKH
-<UB6ED> \x8D\x70 |0 # HANGUL SYLLABLE SSANGTIKEUT WE THIEUTH
-<UB6EE> \x8D\x71 |0 # HANGUL SYLLABLE SSANGTIKEUT WE PHIEUPH
-<UB6EF> \x8D\x72 |0 # HANGUL SYLLABLE SSANGTIKEUT WE HIEUH
-<UB6F0> \xB6\xD9 |0 # HANGUL SYLLABLE SSANGTIKEUT WI
-<UB6F1> \x8D\x73 |0 # HANGUL SYLLABLE SSANGTIKEUT WI KIYEOK
-<UB6F2> \x8D\x74 |0 # HANGUL SYLLABLE SSANGTIKEUT WI SSANGKIYEOK
-<UB6F3> \x8D\x75 |0 # HANGUL SYLLABLE SSANGTIKEUT WI KIYEOKSIOS
-<UB6F4> \xB6\xDA |0 # HANGUL SYLLABLE SSANGTIKEUT WI NIEUN
-<UB6F5> \x8D\x76 |0 # HANGUL SYLLABLE SSANGTIKEUT WI NIEUNCIEUC
-<UB6F6> \x8D\x77 |0 # HANGUL SYLLABLE SSANGTIKEUT WI NIEUNHIEUH
-<UB6F7> \x8D\x78 |0 # HANGUL SYLLABLE SSANGTIKEUT WI TIKEUT
-<UB6F8> \xB6\xDB |0 # HANGUL SYLLABLE SSANGTIKEUT WI RIEUL
-<UB6F9> \x8D\x79 |0 # HANGUL SYLLABLE SSANGTIKEUT WI RIEULKIYEOK
-<UB6FA> \x8D\x7A |0 # HANGUL SYLLABLE SSANGTIKEUT WI RIEULMIEUM
-<UB6FB> \x8D\x81 |0 # HANGUL SYLLABLE SSANGTIKEUT WI RIEULPIEUP
-<UB6FC> \x8D\x82 |0 # HANGUL SYLLABLE SSANGTIKEUT WI RIEULSIOS
-<UB6FD> \x8D\x83 |0 # HANGUL SYLLABLE SSANGTIKEUT WI RIEULTHIEUTH
-<UB6FE> \x8D\x84 |0 # HANGUL SYLLABLE SSANGTIKEUT WI RIEULPHIEUPH
-<UB6FF> \x8D\x85 |0 # HANGUL SYLLABLE SSANGTIKEUT WI RIEULHIEUH
-<UB700> \xB6\xDC |0 # HANGUL SYLLABLE SSANGTIKEUT WI MIEUM
-<UB701> \xB6\xDD |0 # HANGUL SYLLABLE SSANGTIKEUT WI PIEUP
-<UB702> \x8D\x86 |0 # HANGUL SYLLABLE SSANGTIKEUT WI PIEUPSIOS
-<UB703> \x8D\x87 |0 # HANGUL SYLLABLE SSANGTIKEUT WI SIOS
-<UB704> \x8D\x88 |0 # HANGUL SYLLABLE SSANGTIKEUT WI SSANGSIOS
-<UB705> \xB6\xDE |0 # HANGUL SYLLABLE SSANGTIKEUT WI IEUNG
-<UB706> \x8D\x89 |0 # HANGUL SYLLABLE SSANGTIKEUT WI CIEUC
-<UB707> \x8D\x8A |0 # HANGUL SYLLABLE SSANGTIKEUT WI CHIEUCH
-<UB708> \x8D\x8B |0 # HANGUL SYLLABLE SSANGTIKEUT WI KHIEUKH
-<UB709> \x8D\x8C |0 # HANGUL SYLLABLE SSANGTIKEUT WI THIEUTH
-<UB70A> \x8D\x8D |0 # HANGUL SYLLABLE SSANGTIKEUT WI PHIEUPH
-<UB70B> \x8D\x8E |0 # HANGUL SYLLABLE SSANGTIKEUT WI HIEUH
-<UB70C> \x8D\x8F |0 # HANGUL SYLLABLE SSANGTIKEUT YU
-<UB70D> \x8D\x90 |0 # HANGUL SYLLABLE SSANGTIKEUT YU KIYEOK
-<UB70E> \x8D\x91 |0 # HANGUL SYLLABLE SSANGTIKEUT YU SSANGKIYEOK
-<UB70F> \x8D\x92 |0 # HANGUL SYLLABLE SSANGTIKEUT YU KIYEOKSIOS
-<UB710> \x8D\x93 |0 # HANGUL SYLLABLE SSANGTIKEUT YU NIEUN
-<UB711> \x8D\x94 |0 # HANGUL SYLLABLE SSANGTIKEUT YU NIEUNCIEUC
-<UB712> \x8D\x95 |0 # HANGUL SYLLABLE SSANGTIKEUT YU NIEUNHIEUH
-<UB713> \x8D\x96 |0 # HANGUL SYLLABLE SSANGTIKEUT YU TIKEUT
-<UB714> \x8D\x97 |0 # HANGUL SYLLABLE SSANGTIKEUT YU RIEUL
-<UB715> \x8D\x98 |0 # HANGUL SYLLABLE SSANGTIKEUT YU RIEULKIYEOK
-<UB716> \x8D\x99 |0 # HANGUL SYLLABLE SSANGTIKEUT YU RIEULMIEUM
-<UB717> \x8D\x9A |0 # HANGUL SYLLABLE SSANGTIKEUT YU RIEULPIEUP
-<UB718> \x8D\x9B |0 # HANGUL SYLLABLE SSANGTIKEUT YU RIEULSIOS
-<UB719> \x8D\x9C |0 # HANGUL SYLLABLE SSANGTIKEUT YU RIEULTHIEUTH
-<UB71A> \x8D\x9D |0 # HANGUL SYLLABLE SSANGTIKEUT YU RIEULPHIEUPH
-<UB71B> \x8D\x9E |0 # HANGUL SYLLABLE SSANGTIKEUT YU RIEULHIEUH
-<UB71C> \x8D\x9F |0 # HANGUL SYLLABLE SSANGTIKEUT YU MIEUM
-<UB71D> \x8D\xA0 |0 # HANGUL SYLLABLE SSANGTIKEUT YU PIEUP
-<UB71E> \x8D\xA1 |0 # HANGUL SYLLABLE SSANGTIKEUT YU PIEUPSIOS
-<UB71F> \x8D\xA2 |0 # HANGUL SYLLABLE SSANGTIKEUT YU SIOS
-<UB720> \x8D\xA3 |0 # HANGUL SYLLABLE SSANGTIKEUT YU SSANGSIOS
-<UB721> \x8D\xA4 |0 # HANGUL SYLLABLE SSANGTIKEUT YU IEUNG
-<UB722> \x8D\xA5 |0 # HANGUL SYLLABLE SSANGTIKEUT YU CIEUC
-<UB723> \x8D\xA6 |0 # HANGUL SYLLABLE SSANGTIKEUT YU CHIEUCH
-<UB724> \x8D\xA7 |0 # HANGUL SYLLABLE SSANGTIKEUT YU KHIEUKH
-<UB725> \x8D\xA8 |0 # HANGUL SYLLABLE SSANGTIKEUT YU THIEUTH
-<UB726> \x8D\xA9 |0 # HANGUL SYLLABLE SSANGTIKEUT YU PHIEUPH
-<UB727> \x8D\xAA |0 # HANGUL SYLLABLE SSANGTIKEUT YU HIEUH
-<UB728> \xB6\xDF |0 # HANGUL SYLLABLE SSANGTIKEUT EU
-<UB729> \xB6\xE0 |0 # HANGUL SYLLABLE SSANGTIKEUT EU KIYEOK
-<UB72A> \x8D\xAB |0 # HANGUL SYLLABLE SSANGTIKEUT EU SSANGKIYEOK
-<UB72B> \x8D\xAC |0 # HANGUL SYLLABLE SSANGTIKEUT EU KIYEOKSIOS
-<UB72C> \xB6\xE1 |0 # HANGUL SYLLABLE SSANGTIKEUT EU NIEUN
-<UB72D> \x8D\xAD |0 # HANGUL SYLLABLE SSANGTIKEUT EU NIEUNCIEUC
-<UB72E> \x8D\xAE |0 # HANGUL SYLLABLE SSANGTIKEUT EU NIEUNHIEUH
-<UB72F> \xB6\xE2 |0 # HANGUL SYLLABLE SSANGTIKEUT EU TIKEUT
-<UB730> \xB6\xE3 |0 # HANGUL SYLLABLE SSANGTIKEUT EU RIEUL
-<UB731> \x8D\xAF |0 # HANGUL SYLLABLE SSANGTIKEUT EU RIEULKIYEOK
-<UB732> \x8D\xB0 |0 # HANGUL SYLLABLE SSANGTIKEUT EU RIEULMIEUM
-<UB733> \x8D\xB1 |0 # HANGUL SYLLABLE SSANGTIKEUT EU RIEULPIEUP
-<UB734> \x8D\xB2 |0 # HANGUL SYLLABLE SSANGTIKEUT EU RIEULSIOS
-<UB735> \x8D\xB3 |0 # HANGUL SYLLABLE SSANGTIKEUT EU RIEULTHIEUTH
-<UB736> \x8D\xB4 |0 # HANGUL SYLLABLE SSANGTIKEUT EU RIEULPHIEUPH
-<UB737> \x8D\xB5 |0 # HANGUL SYLLABLE SSANGTIKEUT EU RIEULHIEUH
-<UB738> \xB6\xE4 |0 # HANGUL SYLLABLE SSANGTIKEUT EU MIEUM
-<UB739> \xB6\xE5 |0 # HANGUL SYLLABLE SSANGTIKEUT EU PIEUP
-<UB73A> \x8D\xB6 |0 # HANGUL SYLLABLE SSANGTIKEUT EU PIEUPSIOS
-<UB73B> \xB6\xE6 |0 # HANGUL SYLLABLE SSANGTIKEUT EU SIOS
-<UB73C> \x8D\xB7 |0 # HANGUL SYLLABLE SSANGTIKEUT EU SSANGSIOS
-<UB73D> \x8D\xB8 |0 # HANGUL SYLLABLE SSANGTIKEUT EU IEUNG
-<UB73E> \x8D\xB9 |0 # HANGUL SYLLABLE SSANGTIKEUT EU CIEUC
-<UB73F> \x8D\xBA |0 # HANGUL SYLLABLE SSANGTIKEUT EU CHIEUCH
-<UB740> \x8D\xBB |0 # HANGUL SYLLABLE SSANGTIKEUT EU KHIEUKH
-<UB741> \x8D\xBC |0 # HANGUL SYLLABLE SSANGTIKEUT EU THIEUTH
-<UB742> \x8D\xBD |0 # HANGUL SYLLABLE SSANGTIKEUT EU PHIEUPH
-<UB743> \x8D\xBE |0 # HANGUL SYLLABLE SSANGTIKEUT EU HIEUH
-<UB744> \xB6\xE7 |0 # HANGUL SYLLABLE SSANGTIKEUT YI
-<UB745> \x8D\xBF |0 # HANGUL SYLLABLE SSANGTIKEUT YI KIYEOK
-<UB746> \x8D\xC0 |0 # HANGUL SYLLABLE SSANGTIKEUT YI SSANGKIYEOK
-<UB747> \x8D\xC1 |0 # HANGUL SYLLABLE SSANGTIKEUT YI KIYEOKSIOS
-<UB748> \xB6\xE8 |0 # HANGUL SYLLABLE SSANGTIKEUT YI NIEUN
-<UB749> \x8D\xC2 |0 # HANGUL SYLLABLE SSANGTIKEUT YI NIEUNCIEUC
-<UB74A> \x8D\xC3 |0 # HANGUL SYLLABLE SSANGTIKEUT YI NIEUNHIEUH
-<UB74B> \x8D\xC4 |0 # HANGUL SYLLABLE SSANGTIKEUT YI TIKEUT
-<UB74C> \xB6\xE9 |0 # HANGUL SYLLABLE SSANGTIKEUT YI RIEUL
-<UB74D> \x8D\xC5 |0 # HANGUL SYLLABLE SSANGTIKEUT YI RIEULKIYEOK
-<UB74E> \x8D\xC6 |0 # HANGUL SYLLABLE SSANGTIKEUT YI RIEULMIEUM
-<UB74F> \x8D\xC7 |0 # HANGUL SYLLABLE SSANGTIKEUT YI RIEULPIEUP
-<UB750> \x8D\xC8 |0 # HANGUL SYLLABLE SSANGTIKEUT YI RIEULSIOS
-<UB751> \x8D\xC9 |0 # HANGUL SYLLABLE SSANGTIKEUT YI RIEULTHIEUTH
-<UB752> \x8D\xCA |0 # HANGUL SYLLABLE SSANGTIKEUT YI RIEULPHIEUPH
-<UB753> \x8D\xCB |0 # HANGUL SYLLABLE SSANGTIKEUT YI RIEULHIEUH
-<UB754> \xB6\xEA |0 # HANGUL SYLLABLE SSANGTIKEUT YI MIEUM
-<UB755> \xB6\xEB |0 # HANGUL SYLLABLE SSANGTIKEUT YI PIEUP
-<UB756> \x8D\xCC |0 # HANGUL SYLLABLE SSANGTIKEUT YI PIEUPSIOS
-<UB757> \x8D\xCD |0 # HANGUL SYLLABLE SSANGTIKEUT YI SIOS
-<UB758> \x8D\xCE |0 # HANGUL SYLLABLE SSANGTIKEUT YI SSANGSIOS
-<UB759> \x8D\xCF |0 # HANGUL SYLLABLE SSANGTIKEUT YI IEUNG
-<UB75A> \x8D\xD0 |0 # HANGUL SYLLABLE SSANGTIKEUT YI CIEUC
-<UB75B> \x8D\xD1 |0 # HANGUL SYLLABLE SSANGTIKEUT YI CHIEUCH
-<UB75C> \x8D\xD2 |0 # HANGUL SYLLABLE SSANGTIKEUT YI KHIEUKH
-<UB75D> \x8D\xD3 |0 # HANGUL SYLLABLE SSANGTIKEUT YI THIEUTH
-<UB75E> \x8D\xD4 |0 # HANGUL SYLLABLE SSANGTIKEUT YI PHIEUPH
-<UB75F> \x8D\xD5 |0 # HANGUL SYLLABLE SSANGTIKEUT YI HIEUH
-<UB760> \xB6\xEC |0 # HANGUL SYLLABLE SSANGTIKEUT I
-<UB761> \x8D\xD6 |0 # HANGUL SYLLABLE SSANGTIKEUT I KIYEOK
-<UB762> \x8D\xD7 |0 # HANGUL SYLLABLE SSANGTIKEUT I SSANGKIYEOK
-<UB763> \x8D\xD8 |0 # HANGUL SYLLABLE SSANGTIKEUT I KIYEOKSIOS
-<UB764> \xB6\xED |0 # HANGUL SYLLABLE SSANGTIKEUT I NIEUN
-<UB765> \x8D\xD9 |0 # HANGUL SYLLABLE SSANGTIKEUT I NIEUNCIEUC
-<UB766> \x8D\xDA |0 # HANGUL SYLLABLE SSANGTIKEUT I NIEUNHIEUH
-<UB767> \x8D\xDB |0 # HANGUL SYLLABLE SSANGTIKEUT I TIKEUT
-<UB768> \xB6\xEE |0 # HANGUL SYLLABLE SSANGTIKEUT I RIEUL
-<UB769> \x8D\xDC |0 # HANGUL SYLLABLE SSANGTIKEUT I RIEULKIYEOK
-<UB76A> \x8D\xDD |0 # HANGUL SYLLABLE SSANGTIKEUT I RIEULMIEUM
-<UB76B> \x8D\xDE |0 # HANGUL SYLLABLE SSANGTIKEUT I RIEULPIEUP
-<UB76C> \x8D\xDF |0 # HANGUL SYLLABLE SSANGTIKEUT I RIEULSIOS
-<UB76D> \x8D\xE0 |0 # HANGUL SYLLABLE SSANGTIKEUT I RIEULTHIEUTH
-<UB76E> \x8D\xE1 |0 # HANGUL SYLLABLE SSANGTIKEUT I RIEULPHIEUPH
-<UB76F> \x8D\xE2 |0 # HANGUL SYLLABLE SSANGTIKEUT I RIEULHIEUH
-<UB770> \xB6\xEF |0 # HANGUL SYLLABLE SSANGTIKEUT I MIEUM
-<UB771> \xB6\xF0 |0 # HANGUL SYLLABLE SSANGTIKEUT I PIEUP
-<UB772> \x8D\xE3 |0 # HANGUL SYLLABLE SSANGTIKEUT I PIEUPSIOS
-<UB773> \xB6\xF1 |0 # HANGUL SYLLABLE SSANGTIKEUT I SIOS
-<UB774> \x8D\xE4 |0 # HANGUL SYLLABLE SSANGTIKEUT I SSANGSIOS
-<UB775> \xB6\xF2 |0 # HANGUL SYLLABLE SSANGTIKEUT I IEUNG
-<UB776> \x8D\xE5 |0 # HANGUL SYLLABLE SSANGTIKEUT I CIEUC
-<UB777> \x8D\xE6 |0 # HANGUL SYLLABLE SSANGTIKEUT I CHIEUCH
-<UB778> \x8D\xE7 |0 # HANGUL SYLLABLE SSANGTIKEUT I KHIEUKH
-<UB779> \x8D\xE8 |0 # HANGUL SYLLABLE SSANGTIKEUT I THIEUTH
-<UB77A> \x8D\xE9 |0 # HANGUL SYLLABLE SSANGTIKEUT I PHIEUPH
-<UB77B> \x8D\xEA |0 # HANGUL SYLLABLE SSANGTIKEUT I HIEUH
-<UB77C> \xB6\xF3 |0 # HANGUL SYLLABLE RIEUL A
-<UB77D> \xB6\xF4 |0 # HANGUL SYLLABLE RIEUL A KIYEOK
-<UB77E> \x8D\xEB |0 # HANGUL SYLLABLE RIEUL A SSANGKIYEOK
-<UB77F> \x8D\xEC |0 # HANGUL SYLLABLE RIEUL A KIYEOKSIOS
-<UB780> \xB6\xF5 |0 # HANGUL SYLLABLE RIEUL A NIEUN
-<UB781> \x8D\xED |0 # HANGUL SYLLABLE RIEUL A NIEUNCIEUC
-<UB782> \x8D\xEE |0 # HANGUL SYLLABLE RIEUL A NIEUNHIEUH
-<UB783> \x8D\xEF |0 # HANGUL SYLLABLE RIEUL A TIKEUT
-<UB784> \xB6\xF6 |0 # HANGUL SYLLABLE RIEUL A RIEUL
-<UB785> \x8D\xF0 |0 # HANGUL SYLLABLE RIEUL A RIEULKIYEOK
-<UB786> \x8D\xF1 |0 # HANGUL SYLLABLE RIEUL A RIEULMIEUM
-<UB787> \x8D\xF2 |0 # HANGUL SYLLABLE RIEUL A RIEULPIEUP
-<UB788> \x8D\xF3 |0 # HANGUL SYLLABLE RIEUL A RIEULSIOS
-<UB789> \x8D\xF4 |0 # HANGUL SYLLABLE RIEUL A RIEULTHIEUTH
-<UB78A> \x8D\xF5 |0 # HANGUL SYLLABLE RIEUL A RIEULPHIEUPH
-<UB78B> \x8D\xF6 |0 # HANGUL SYLLABLE RIEUL A RIEULHIEUH
-<UB78C> \xB6\xF7 |0 # HANGUL SYLLABLE RIEUL A MIEUM
-<UB78D> \xB6\xF8 |0 # HANGUL SYLLABLE RIEUL A PIEUP
-<UB78E> \x8D\xF7 |0 # HANGUL SYLLABLE RIEUL A PIEUPSIOS
-<UB78F> \xB6\xF9 |0 # HANGUL SYLLABLE RIEUL A SIOS
-<UB790> \xB6\xFA |0 # HANGUL SYLLABLE RIEUL A SSANGSIOS
-<UB791> \xB6\xFB |0 # HANGUL SYLLABLE RIEUL A IEUNG
-<UB792> \xB6\xFC |0 # HANGUL SYLLABLE RIEUL A CIEUC
-<UB793> \x8D\xF8 |0 # HANGUL SYLLABLE RIEUL A CHIEUCH
-<UB794> \x8D\xF9 |0 # HANGUL SYLLABLE RIEUL A KHIEUKH
-<UB795> \x8D\xFA |0 # HANGUL SYLLABLE RIEUL A THIEUTH
-<UB796> \xB6\xFD |0 # HANGUL SYLLABLE RIEUL A PHIEUPH
-<UB797> \xB6\xFE |0 # HANGUL SYLLABLE RIEUL A HIEUH
-<UB798> \xB7\xA1 |0 # HANGUL SYLLABLE RIEUL AE
-<UB799> \xB7\xA2 |0 # HANGUL SYLLABLE RIEUL AE KIYEOK
-<UB79A> \x8D\xFB |0 # HANGUL SYLLABLE RIEUL AE SSANGKIYEOK
-<UB79B> \x8D\xFC |0 # HANGUL SYLLABLE RIEUL AE KIYEOKSIOS
-<UB79C> \xB7\xA3 |0 # HANGUL SYLLABLE RIEUL AE NIEUN
-<UB79D> \x8D\xFD |0 # HANGUL SYLLABLE RIEUL AE NIEUNCIEUC
-<UB79E> \x8D\xFE |0 # HANGUL SYLLABLE RIEUL AE NIEUNHIEUH
-<UB79F> \x8E\x41 |0 # HANGUL SYLLABLE RIEUL AE TIKEUT
-<UB7A0> \xB7\xA4 |0 # HANGUL SYLLABLE RIEUL AE RIEUL
-<UB7A1> \x8E\x42 |0 # HANGUL SYLLABLE RIEUL AE RIEULKIYEOK
-<UB7A2> \x8E\x43 |0 # HANGUL SYLLABLE RIEUL AE RIEULMIEUM
-<UB7A3> \x8E\x44 |0 # HANGUL SYLLABLE RIEUL AE RIEULPIEUP
-<UB7A4> \x8E\x45 |0 # HANGUL SYLLABLE RIEUL AE RIEULSIOS
-<UB7A5> \x8E\x46 |0 # HANGUL SYLLABLE RIEUL AE RIEULTHIEUTH
-<UB7A6> \x8E\x47 |0 # HANGUL SYLLABLE RIEUL AE RIEULPHIEUPH
-<UB7A7> \x8E\x48 |0 # HANGUL SYLLABLE RIEUL AE RIEULHIEUH
-<UB7A8> \xB7\xA5 |0 # HANGUL SYLLABLE RIEUL AE MIEUM
-<UB7A9> \xB7\xA6 |0 # HANGUL SYLLABLE RIEUL AE PIEUP
-<UB7AA> \x8E\x49 |0 # HANGUL SYLLABLE RIEUL AE PIEUPSIOS
-<UB7AB> \xB7\xA7 |0 # HANGUL SYLLABLE RIEUL AE SIOS
-<UB7AC> \xB7\xA8 |0 # HANGUL SYLLABLE RIEUL AE SSANGSIOS
-<UB7AD> \xB7\xA9 |0 # HANGUL SYLLABLE RIEUL AE IEUNG
-<UB7AE> \x8E\x4A |0 # HANGUL SYLLABLE RIEUL AE CIEUC
-<UB7AF> \x8E\x4B |0 # HANGUL SYLLABLE RIEUL AE CHIEUCH
-<UB7B0> \x8E\x4C |0 # HANGUL SYLLABLE RIEUL AE KHIEUKH
-<UB7B1> \x8E\x4D |0 # HANGUL SYLLABLE RIEUL AE THIEUTH
-<UB7B2> \x8E\x4E |0 # HANGUL SYLLABLE RIEUL AE PHIEUPH
-<UB7B3> \x8E\x4F |0 # HANGUL SYLLABLE RIEUL AE HIEUH
-<UB7B4> \xB7\xAA |0 # HANGUL SYLLABLE RIEUL YA
-<UB7B5> \xB7\xAB |0 # HANGUL SYLLABLE RIEUL YA KIYEOK
-<UB7B6> \x8E\x50 |0 # HANGUL SYLLABLE RIEUL YA SSANGKIYEOK
-<UB7B7> \x8E\x51 |0 # HANGUL SYLLABLE RIEUL YA KIYEOKSIOS
-<UB7B8> \xB7\xAC |0 # HANGUL SYLLABLE RIEUL YA NIEUN
-<UB7B9> \x8E\x52 |0 # HANGUL SYLLABLE RIEUL YA NIEUNCIEUC
-<UB7BA> \x8E\x53 |0 # HANGUL SYLLABLE RIEUL YA NIEUNHIEUH
-<UB7BB> \x8E\x54 |0 # HANGUL SYLLABLE RIEUL YA TIKEUT
-<UB7BC> \x8E\x55 |0 # HANGUL SYLLABLE RIEUL YA RIEUL
-<UB7BD> \x8E\x56 |0 # HANGUL SYLLABLE RIEUL YA RIEULKIYEOK
-<UB7BE> \x8E\x57 |0 # HANGUL SYLLABLE RIEUL YA RIEULMIEUM
-<UB7BF> \x8E\x58 |0 # HANGUL SYLLABLE RIEUL YA RIEULPIEUP
-<UB7C0> \x8E\x59 |0 # HANGUL SYLLABLE RIEUL YA RIEULSIOS
-<UB7C1> \x8E\x5A |0 # HANGUL SYLLABLE RIEUL YA RIEULTHIEUTH
-<UB7C2> \x8E\x61 |0 # HANGUL SYLLABLE RIEUL YA RIEULPHIEUPH
-<UB7C3> \x8E\x62 |0 # HANGUL SYLLABLE RIEUL YA RIEULHIEUH
-<UB7C4> \x8E\x63 |0 # HANGUL SYLLABLE RIEUL YA MIEUM
-<UB7C5> \x8E\x64 |0 # HANGUL SYLLABLE RIEUL YA PIEUP
-<UB7C6> \x8E\x65 |0 # HANGUL SYLLABLE RIEUL YA PIEUPSIOS
-<UB7C7> \xB7\xAD |0 # HANGUL SYLLABLE RIEUL YA SIOS
-<UB7C8> \x8E\x66 |0 # HANGUL SYLLABLE RIEUL YA SSANGSIOS
-<UB7C9> \xB7\xAE |0 # HANGUL SYLLABLE RIEUL YA IEUNG
-<UB7CA> \x8E\x67 |0 # HANGUL SYLLABLE RIEUL YA CIEUC
-<UB7CB> \x8E\x68 |0 # HANGUL SYLLABLE RIEUL YA CHIEUCH
-<UB7CC> \x8E\x69 |0 # HANGUL SYLLABLE RIEUL YA KHIEUKH
-<UB7CD> \x8E\x6A |0 # HANGUL SYLLABLE RIEUL YA THIEUTH
-<UB7CE> \x8E\x6B |0 # HANGUL SYLLABLE RIEUL YA PHIEUPH
-<UB7CF> \x8E\x6C |0 # HANGUL SYLLABLE RIEUL YA HIEUH
-<UB7D0> \x8E\x6D |0 # HANGUL SYLLABLE RIEUL YAE
-<UB7D1> \x8E\x6E |0 # HANGUL SYLLABLE RIEUL YAE KIYEOK
-<UB7D2> \x8E\x6F |0 # HANGUL SYLLABLE RIEUL YAE SSANGKIYEOK
-<UB7D3> \x8E\x70 |0 # HANGUL SYLLABLE RIEUL YAE KIYEOKSIOS
-<UB7D4> \x8E\x71 |0 # HANGUL SYLLABLE RIEUL YAE NIEUN
-<UB7D5> \x8E\x72 |0 # HANGUL SYLLABLE RIEUL YAE NIEUNCIEUC
-<UB7D6> \x8E\x73 |0 # HANGUL SYLLABLE RIEUL YAE NIEUNHIEUH
-<UB7D7> \x8E\x74 |0 # HANGUL SYLLABLE RIEUL YAE TIKEUT
-<UB7D8> \x8E\x75 |0 # HANGUL SYLLABLE RIEUL YAE RIEUL
-<UB7D9> \x8E\x76 |0 # HANGUL SYLLABLE RIEUL YAE RIEULKIYEOK
-<UB7DA> \x8E\x77 |0 # HANGUL SYLLABLE RIEUL YAE RIEULMIEUM
-<UB7DB> \x8E\x78 |0 # HANGUL SYLLABLE RIEUL YAE RIEULPIEUP
-<UB7DC> \x8E\x79 |0 # HANGUL SYLLABLE RIEUL YAE RIEULSIOS
-<UB7DD> \x8E\x7A |0 # HANGUL SYLLABLE RIEUL YAE RIEULTHIEUTH
-<UB7DE> \x8E\x81 |0 # HANGUL SYLLABLE RIEUL YAE RIEULPHIEUPH
-<UB7DF> \x8E\x82 |0 # HANGUL SYLLABLE RIEUL YAE RIEULHIEUH
-<UB7E0> \x8E\x83 |0 # HANGUL SYLLABLE RIEUL YAE MIEUM
-<UB7E1> \x8E\x84 |0 # HANGUL SYLLABLE RIEUL YAE PIEUP
-<UB7E2> \x8E\x85 |0 # HANGUL SYLLABLE RIEUL YAE PIEUPSIOS
-<UB7E3> \x8E\x86 |0 # HANGUL SYLLABLE RIEUL YAE SIOS
-<UB7E4> \x8E\x87 |0 # HANGUL SYLLABLE RIEUL YAE SSANGSIOS
-<UB7E5> \x8E\x88 |0 # HANGUL SYLLABLE RIEUL YAE IEUNG
-<UB7E6> \x8E\x89 |0 # HANGUL SYLLABLE RIEUL YAE CIEUC
-<UB7E7> \x8E\x8A |0 # HANGUL SYLLABLE RIEUL YAE CHIEUCH
-<UB7E8> \x8E\x8B |0 # HANGUL SYLLABLE RIEUL YAE KHIEUKH
-<UB7E9> \x8E\x8C |0 # HANGUL SYLLABLE RIEUL YAE THIEUTH
-<UB7EA> \x8E\x8D |0 # HANGUL SYLLABLE RIEUL YAE PHIEUPH
-<UB7EB> \x8E\x8E |0 # HANGUL SYLLABLE RIEUL YAE HIEUH
-<UB7EC> \xB7\xAF |0 # HANGUL SYLLABLE RIEUL EO
-<UB7ED> \xB7\xB0 |0 # HANGUL SYLLABLE RIEUL EO KIYEOK
-<UB7EE> \x8E\x8F |0 # HANGUL SYLLABLE RIEUL EO SSANGKIYEOK
-<UB7EF> \x8E\x90 |0 # HANGUL SYLLABLE RIEUL EO KIYEOKSIOS
-<UB7F0> \xB7\xB1 |0 # HANGUL SYLLABLE RIEUL EO NIEUN
-<UB7F1> \x8E\x91 |0 # HANGUL SYLLABLE RIEUL EO NIEUNCIEUC
-<UB7F2> \x8E\x92 |0 # HANGUL SYLLABLE RIEUL EO NIEUNHIEUH
-<UB7F3> \x8E\x93 |0 # HANGUL SYLLABLE RIEUL EO TIKEUT
-<UB7F4> \xB7\xB2 |0 # HANGUL SYLLABLE RIEUL EO RIEUL
-<UB7F5> \x8E\x94 |0 # HANGUL SYLLABLE RIEUL EO RIEULKIYEOK
-<UB7F6> \x8E\x95 |0 # HANGUL SYLLABLE RIEUL EO RIEULMIEUM
-<UB7F7> \x8E\x96 |0 # HANGUL SYLLABLE RIEUL EO RIEULPIEUP
-<UB7F8> \x8E\x97 |0 # HANGUL SYLLABLE RIEUL EO RIEULSIOS
-<UB7F9> \x8E\x98 |0 # HANGUL SYLLABLE RIEUL EO RIEULTHIEUTH
-<UB7FA> \x8E\x99 |0 # HANGUL SYLLABLE RIEUL EO RIEULPHIEUPH
-<UB7FB> \x8E\x9A |0 # HANGUL SYLLABLE RIEUL EO RIEULHIEUH
-<UB7FC> \xB7\xB3 |0 # HANGUL SYLLABLE RIEUL EO MIEUM
-<UB7FD> \xB7\xB4 |0 # HANGUL SYLLABLE RIEUL EO PIEUP
-<UB7FE> \x8E\x9B |0 # HANGUL SYLLABLE RIEUL EO PIEUPSIOS
-<UB7FF> \xB7\xB5 |0 # HANGUL SYLLABLE RIEUL EO SIOS
-<UB800> \xB7\xB6 |0 # HANGUL SYLLABLE RIEUL EO SSANGSIOS
-<UB801> \xB7\xB7 |0 # HANGUL SYLLABLE RIEUL EO IEUNG
-<UB802> \x8E\x9C |0 # HANGUL SYLLABLE RIEUL EO CIEUC
-<UB803> \x8E\x9D |0 # HANGUL SYLLABLE RIEUL EO CHIEUCH
-<UB804> \x8E\x9E |0 # HANGUL SYLLABLE RIEUL EO KHIEUKH
-<UB805> \x8E\x9F |0 # HANGUL SYLLABLE RIEUL EO THIEUTH
-<UB806> \x8E\xA0 |0 # HANGUL SYLLABLE RIEUL EO PHIEUPH
-<UB807> \xB7\xB8 |0 # HANGUL SYLLABLE RIEUL EO HIEUH
-<UB808> \xB7\xB9 |0 # HANGUL SYLLABLE RIEUL E
-<UB809> \xB7\xBA |0 # HANGUL SYLLABLE RIEUL E KIYEOK
-<UB80A> \x8E\xA1 |0 # HANGUL SYLLABLE RIEUL E SSANGKIYEOK
-<UB80B> \x8E\xA2 |0 # HANGUL SYLLABLE RIEUL E KIYEOKSIOS
-<UB80C> \xB7\xBB |0 # HANGUL SYLLABLE RIEUL E NIEUN
-<UB80D> \x8E\xA3 |0 # HANGUL SYLLABLE RIEUL E NIEUNCIEUC
-<UB80E> \x8E\xA4 |0 # HANGUL SYLLABLE RIEUL E NIEUNHIEUH
-<UB80F> \x8E\xA5 |0 # HANGUL SYLLABLE RIEUL E TIKEUT
-<UB810> \xB7\xBC |0 # HANGUL SYLLABLE RIEUL E RIEUL
-<UB811> \x8E\xA6 |0 # HANGUL SYLLABLE RIEUL E RIEULKIYEOK
-<UB812> \x8E\xA7 |0 # HANGUL SYLLABLE RIEUL E RIEULMIEUM
-<UB813> \x8E\xA8 |0 # HANGUL SYLLABLE RIEUL E RIEULPIEUP
-<UB814> \x8E\xA9 |0 # HANGUL SYLLABLE RIEUL E RIEULSIOS
-<UB815> \x8E\xAA |0 # HANGUL SYLLABLE RIEUL E RIEULTHIEUTH
-<UB816> \x8E\xAB |0 # HANGUL SYLLABLE RIEUL E RIEULPHIEUPH
-<UB817> \x8E\xAC |0 # HANGUL SYLLABLE RIEUL E RIEULHIEUH
-<UB818> \xB7\xBD |0 # HANGUL SYLLABLE RIEUL E MIEUM
-<UB819> \xB7\xBE |0 # HANGUL SYLLABLE RIEUL E PIEUP
-<UB81A> \x8E\xAD |0 # HANGUL SYLLABLE RIEUL E PIEUPSIOS
-<UB81B> \xB7\xBF |0 # HANGUL SYLLABLE RIEUL E SIOS
-<UB81C> \x8E\xAE |0 # HANGUL SYLLABLE RIEUL E SSANGSIOS
-<UB81D> \xB7\xC0 |0 # HANGUL SYLLABLE RIEUL E IEUNG
-<UB81E> \x8E\xAF |0 # HANGUL SYLLABLE RIEUL E CIEUC
-<UB81F> \x8E\xB0 |0 # HANGUL SYLLABLE RIEUL E CHIEUCH
-<UB820> \x8E\xB1 |0 # HANGUL SYLLABLE RIEUL E KHIEUKH
-<UB821> \x8E\xB2 |0 # HANGUL SYLLABLE RIEUL E THIEUTH
-<UB822> \x8E\xB3 |0 # HANGUL SYLLABLE RIEUL E PHIEUPH
-<UB823> \x8E\xB4 |0 # HANGUL SYLLABLE RIEUL E HIEUH
-<UB824> \xB7\xC1 |0 # HANGUL SYLLABLE RIEUL YEO
-<UB825> \xB7\xC2 |0 # HANGUL SYLLABLE RIEUL YEO KIYEOK
-<UB826> \x8E\xB5 |0 # HANGUL SYLLABLE RIEUL YEO SSANGKIYEOK
-<UB827> \x8E\xB6 |0 # HANGUL SYLLABLE RIEUL YEO KIYEOKSIOS
-<UB828> \xB7\xC3 |0 # HANGUL SYLLABLE RIEUL YEO NIEUN
-<UB829> \x8E\xB7 |0 # HANGUL SYLLABLE RIEUL YEO NIEUNCIEUC
-<UB82A> \x8E\xB8 |0 # HANGUL SYLLABLE RIEUL YEO NIEUNHIEUH
-<UB82B> \x8E\xB9 |0 # HANGUL SYLLABLE RIEUL YEO TIKEUT
-<UB82C> \xB7\xC4 |0 # HANGUL SYLLABLE RIEUL YEO RIEUL
-<UB82D> \x8E\xBA |0 # HANGUL SYLLABLE RIEUL YEO RIEULKIYEOK
-<UB82E> \x8E\xBB |0 # HANGUL SYLLABLE RIEUL YEO RIEULMIEUM
-<UB82F> \x8E\xBC |0 # HANGUL SYLLABLE RIEUL YEO RIEULPIEUP
-<UB830> \x8E\xBD |0 # HANGUL SYLLABLE RIEUL YEO RIEULSIOS
-<UB831> \x8E\xBE |0 # HANGUL SYLLABLE RIEUL YEO RIEULTHIEUTH
-<UB832> \x8E\xBF |0 # HANGUL SYLLABLE RIEUL YEO RIEULPHIEUPH
-<UB833> \x8E\xC0 |0 # HANGUL SYLLABLE RIEUL YEO RIEULHIEUH
-<UB834> \xB7\xC5 |0 # HANGUL SYLLABLE RIEUL YEO MIEUM
-<UB835> \xB7\xC6 |0 # HANGUL SYLLABLE RIEUL YEO PIEUP
-<UB836> \x8E\xC1 |0 # HANGUL SYLLABLE RIEUL YEO PIEUPSIOS
-<UB837> \xB7\xC7 |0 # HANGUL SYLLABLE RIEUL YEO SIOS
-<UB838> \xB7\xC8 |0 # HANGUL SYLLABLE RIEUL YEO SSANGSIOS
-<UB839> \xB7\xC9 |0 # HANGUL SYLLABLE RIEUL YEO IEUNG
-<UB83A> \x8E\xC2 |0 # HANGUL SYLLABLE RIEUL YEO CIEUC
-<UB83B> \x8E\xC3 |0 # HANGUL SYLLABLE RIEUL YEO CHIEUCH
-<UB83C> \x8E\xC4 |0 # HANGUL SYLLABLE RIEUL YEO KHIEUKH
-<UB83D> \x8E\xC5 |0 # HANGUL SYLLABLE RIEUL YEO THIEUTH
-<UB83E> \x8E\xC6 |0 # HANGUL SYLLABLE RIEUL YEO PHIEUPH
-<UB83F> \x8E\xC7 |0 # HANGUL SYLLABLE RIEUL YEO HIEUH
-<UB840> \xB7\xCA |0 # HANGUL SYLLABLE RIEUL YE
-<UB841> \x8E\xC8 |0 # HANGUL SYLLABLE RIEUL YE KIYEOK
-<UB842> \x8E\xC9 |0 # HANGUL SYLLABLE RIEUL YE SSANGKIYEOK
-<UB843> \x8E\xCA |0 # HANGUL SYLLABLE RIEUL YE KIYEOKSIOS
-<UB844> \xB7\xCB |0 # HANGUL SYLLABLE RIEUL YE NIEUN
-<UB845> \x8E\xCB |0 # HANGUL SYLLABLE RIEUL YE NIEUNCIEUC
-<UB846> \x8E\xCC |0 # HANGUL SYLLABLE RIEUL YE NIEUNHIEUH
-<UB847> \x8E\xCD |0 # HANGUL SYLLABLE RIEUL YE TIKEUT
-<UB848> \x8E\xCE |0 # HANGUL SYLLABLE RIEUL YE RIEUL
-<UB849> \x8E\xCF |0 # HANGUL SYLLABLE RIEUL YE RIEULKIYEOK
-<UB84A> \x8E\xD0 |0 # HANGUL SYLLABLE RIEUL YE RIEULMIEUM
-<UB84B> \x8E\xD1 |0 # HANGUL SYLLABLE RIEUL YE RIEULPIEUP
-<UB84C> \x8E\xD2 |0 # HANGUL SYLLABLE RIEUL YE RIEULSIOS
-<UB84D> \x8E\xD3 |0 # HANGUL SYLLABLE RIEUL YE RIEULTHIEUTH
-<UB84E> \x8E\xD4 |0 # HANGUL SYLLABLE RIEUL YE RIEULPHIEUPH
-<UB84F> \x8E\xD5 |0 # HANGUL SYLLABLE RIEUL YE RIEULHIEUH
-<UB850> \x8E\xD6 |0 # HANGUL SYLLABLE RIEUL YE MIEUM
-<UB851> \xB7\xCC |0 # HANGUL SYLLABLE RIEUL YE PIEUP
-<UB852> \x8E\xD7 |0 # HANGUL SYLLABLE RIEUL YE PIEUPSIOS
-<UB853> \xB7\xCD |0 # HANGUL SYLLABLE RIEUL YE SIOS
-<UB854> \x8E\xD8 |0 # HANGUL SYLLABLE RIEUL YE SSANGSIOS
-<UB855> \x8E\xD9 |0 # HANGUL SYLLABLE RIEUL YE IEUNG
-<UB856> \x8E\xDA |0 # HANGUL SYLLABLE RIEUL YE CIEUC
-<UB857> \x8E\xDB |0 # HANGUL SYLLABLE RIEUL YE CHIEUCH
-<UB858> \x8E\xDC |0 # HANGUL SYLLABLE RIEUL YE KHIEUKH
-<UB859> \x8E\xDD |0 # HANGUL SYLLABLE RIEUL YE THIEUTH
-<UB85A> \x8E\xDE |0 # HANGUL SYLLABLE RIEUL YE PHIEUPH
-<UB85B> \x8E\xDF |0 # HANGUL SYLLABLE RIEUL YE HIEUH
-<UB85C> \xB7\xCE |0 # HANGUL SYLLABLE RIEUL O
-<UB85D> \xB7\xCF |0 # HANGUL SYLLABLE RIEUL O KIYEOK
-<UB85E> \x8E\xE0 |0 # HANGUL SYLLABLE RIEUL O SSANGKIYEOK
-<UB85F> \x8E\xE1 |0 # HANGUL SYLLABLE RIEUL O KIYEOKSIOS
-<UB860> \xB7\xD0 |0 # HANGUL SYLLABLE RIEUL O NIEUN
-<UB861> \x8E\xE2 |0 # HANGUL SYLLABLE RIEUL O NIEUNCIEUC
-<UB862> \x8E\xE3 |0 # HANGUL SYLLABLE RIEUL O NIEUNHIEUH
-<UB863> \x8E\xE4 |0 # HANGUL SYLLABLE RIEUL O TIKEUT
-<UB864> \xB7\xD1 |0 # HANGUL SYLLABLE RIEUL O RIEUL
-<UB865> \x8E\xE5 |0 # HANGUL SYLLABLE RIEUL O RIEULKIYEOK
-<UB866> \x8E\xE6 |0 # HANGUL SYLLABLE RIEUL O RIEULMIEUM
-<UB867> \x8E\xE7 |0 # HANGUL SYLLABLE RIEUL O RIEULPIEUP
-<UB868> \x8E\xE8 |0 # HANGUL SYLLABLE RIEUL O RIEULSIOS
-<UB869> \x8E\xE9 |0 # HANGUL SYLLABLE RIEUL O RIEULTHIEUTH
-<UB86A> \x8E\xEA |0 # HANGUL SYLLABLE RIEUL O RIEULPHIEUPH
-<UB86B> \x8E\xEB |0 # HANGUL SYLLABLE RIEUL O RIEULHIEUH
-<UB86C> \xB7\xD2 |0 # HANGUL SYLLABLE RIEUL O MIEUM
-<UB86D> \xB7\xD3 |0 # HANGUL SYLLABLE RIEUL O PIEUP
-<UB86E> \x8E\xEC |0 # HANGUL SYLLABLE RIEUL O PIEUPSIOS
-<UB86F> \xB7\xD4 |0 # HANGUL SYLLABLE RIEUL O SIOS
-<UB870> \x8E\xED |0 # HANGUL SYLLABLE RIEUL O SSANGSIOS
-<UB871> \xB7\xD5 |0 # HANGUL SYLLABLE RIEUL O IEUNG
-<UB872> \x8E\xEE |0 # HANGUL SYLLABLE RIEUL O CIEUC
-<UB873> \x8E\xEF |0 # HANGUL SYLLABLE RIEUL O CHIEUCH
-<UB874> \x8E\xF0 |0 # HANGUL SYLLABLE RIEUL O KHIEUKH
-<UB875> \x8E\xF1 |0 # HANGUL SYLLABLE RIEUL O THIEUTH
-<UB876> \x8E\xF2 |0 # HANGUL SYLLABLE RIEUL O PHIEUPH
-<UB877> \x8E\xF3 |0 # HANGUL SYLLABLE RIEUL O HIEUH
-<UB878> \xB7\xD6 |0 # HANGUL SYLLABLE RIEUL WA
-<UB879> \x8E\xF4 |0 # HANGUL SYLLABLE RIEUL WA KIYEOK
-<UB87A> \x8E\xF5 |0 # HANGUL SYLLABLE RIEUL WA SSANGKIYEOK
-<UB87B> \x8E\xF6 |0 # HANGUL SYLLABLE RIEUL WA KIYEOKSIOS
-<UB87C> \xB7\xD7 |0 # HANGUL SYLLABLE RIEUL WA NIEUN
-<UB87D> \x8E\xF7 |0 # HANGUL SYLLABLE RIEUL WA NIEUNCIEUC
-<UB87E> \x8E\xF8 |0 # HANGUL SYLLABLE RIEUL WA NIEUNHIEUH
-<UB87F> \x8E\xF9 |0 # HANGUL SYLLABLE RIEUL WA TIKEUT
-<UB880> \x8E\xFA |0 # HANGUL SYLLABLE RIEUL WA RIEUL
-<UB881> \x8E\xFB |0 # HANGUL SYLLABLE RIEUL WA RIEULKIYEOK
-<UB882> \x8E\xFC |0 # HANGUL SYLLABLE RIEUL WA RIEULMIEUM
-<UB883> \x8E\xFD |0 # HANGUL SYLLABLE RIEUL WA RIEULPIEUP
-<UB884> \x8E\xFE |0 # HANGUL SYLLABLE RIEUL WA RIEULSIOS
-<UB885> \x8F\x41 |0 # HANGUL SYLLABLE RIEUL WA RIEULTHIEUTH
-<UB886> \x8F\x42 |0 # HANGUL SYLLABLE RIEUL WA RIEULPHIEUPH
-<UB887> \x8F\x43 |0 # HANGUL SYLLABLE RIEUL WA RIEULHIEUH
-<UB888> \x8F\x44 |0 # HANGUL SYLLABLE RIEUL WA MIEUM
-<UB889> \x8F\x45 |0 # HANGUL SYLLABLE RIEUL WA PIEUP
-<UB88A> \x8F\x46 |0 # HANGUL SYLLABLE RIEUL WA PIEUPSIOS
-<UB88B> \x8F\x47 |0 # HANGUL SYLLABLE RIEUL WA SIOS
-<UB88C> \x8F\x48 |0 # HANGUL SYLLABLE RIEUL WA SSANGSIOS
-<UB88D> \xB7\xD8 |0 # HANGUL SYLLABLE RIEUL WA IEUNG
-<UB88E> \x8F\x49 |0 # HANGUL SYLLABLE RIEUL WA CIEUC
-<UB88F> \x8F\x4A |0 # HANGUL SYLLABLE RIEUL WA CHIEUCH
-<UB890> \x8F\x4B |0 # HANGUL SYLLABLE RIEUL WA KHIEUKH
-<UB891> \x8F\x4C |0 # HANGUL SYLLABLE RIEUL WA THIEUTH
-<UB892> \x8F\x4D |0 # HANGUL SYLLABLE RIEUL WA PHIEUPH
-<UB893> \x8F\x4E |0 # HANGUL SYLLABLE RIEUL WA HIEUH
-<UB894> \x8F\x4F |0 # HANGUL SYLLABLE RIEUL WAE
-<UB895> \x8F\x50 |0 # HANGUL SYLLABLE RIEUL WAE KIYEOK
-<UB896> \x8F\x51 |0 # HANGUL SYLLABLE RIEUL WAE SSANGKIYEOK
-<UB897> \x8F\x52 |0 # HANGUL SYLLABLE RIEUL WAE KIYEOKSIOS
-<UB898> \x8F\x53 |0 # HANGUL SYLLABLE RIEUL WAE NIEUN
-<UB899> \x8F\x54 |0 # HANGUL SYLLABLE RIEUL WAE NIEUNCIEUC
-<UB89A> \x8F\x55 |0 # HANGUL SYLLABLE RIEUL WAE NIEUNHIEUH
-<UB89B> \x8F\x56 |0 # HANGUL SYLLABLE RIEUL WAE TIKEUT
-<UB89C> \x8F\x57 |0 # HANGUL SYLLABLE RIEUL WAE RIEUL
-<UB89D> \x8F\x58 |0 # HANGUL SYLLABLE RIEUL WAE RIEULKIYEOK
-<UB89E> \x8F\x59 |0 # HANGUL SYLLABLE RIEUL WAE RIEULMIEUM
-<UB89F> \x8F\x5A |0 # HANGUL SYLLABLE RIEUL WAE RIEULPIEUP
-<UB8A0> \x8F\x61 |0 # HANGUL SYLLABLE RIEUL WAE RIEULSIOS
-<UB8A1> \x8F\x62 |0 # HANGUL SYLLABLE RIEUL WAE RIEULTHIEUTH
-<UB8A2> \x8F\x63 |0 # HANGUL SYLLABLE RIEUL WAE RIEULPHIEUPH
-<UB8A3> \x8F\x64 |0 # HANGUL SYLLABLE RIEUL WAE RIEULHIEUH
-<UB8A4> \x8F\x65 |0 # HANGUL SYLLABLE RIEUL WAE MIEUM
-<UB8A5> \x8F\x66 |0 # HANGUL SYLLABLE RIEUL WAE PIEUP
-<UB8A6> \x8F\x67 |0 # HANGUL SYLLABLE RIEUL WAE PIEUPSIOS
-<UB8A7> \x8F\x68 |0 # HANGUL SYLLABLE RIEUL WAE SIOS
-<UB8A8> \xB7\xD9 |0 # HANGUL SYLLABLE RIEUL WAE SSANGSIOS
-<UB8A9> \x8F\x69 |0 # HANGUL SYLLABLE RIEUL WAE IEUNG
-<UB8AA> \x8F\x6A |0 # HANGUL SYLLABLE RIEUL WAE CIEUC
-<UB8AB> \x8F\x6B |0 # HANGUL SYLLABLE RIEUL WAE CHIEUCH
-<UB8AC> \x8F\x6C |0 # HANGUL SYLLABLE RIEUL WAE KHIEUKH
-<UB8AD> \x8F\x6D |0 # HANGUL SYLLABLE RIEUL WAE THIEUTH
-<UB8AE> \x8F\x6E |0 # HANGUL SYLLABLE RIEUL WAE PHIEUPH
-<UB8AF> \x8F\x6F |0 # HANGUL SYLLABLE RIEUL WAE HIEUH
-<UB8B0> \xB7\xDA |0 # HANGUL SYLLABLE RIEUL OE
-<UB8B1> \x8F\x70 |0 # HANGUL SYLLABLE RIEUL OE KIYEOK
-<UB8B2> \x8F\x71 |0 # HANGUL SYLLABLE RIEUL OE SSANGKIYEOK
-<UB8B3> \x8F\x72 |0 # HANGUL SYLLABLE RIEUL OE KIYEOKSIOS
-<UB8B4> \xB7\xDB |0 # HANGUL SYLLABLE RIEUL OE NIEUN
-<UB8B5> \x8F\x73 |0 # HANGUL SYLLABLE RIEUL OE NIEUNCIEUC
-<UB8B6> \x8F\x74 |0 # HANGUL SYLLABLE RIEUL OE NIEUNHIEUH
-<UB8B7> \x8F\x75 |0 # HANGUL SYLLABLE RIEUL OE TIKEUT
-<UB8B8> \xB7\xDC |0 # HANGUL SYLLABLE RIEUL OE RIEUL
-<UB8B9> \x8F\x76 |0 # HANGUL SYLLABLE RIEUL OE RIEULKIYEOK
-<UB8BA> \x8F\x77 |0 # HANGUL SYLLABLE RIEUL OE RIEULMIEUM
-<UB8BB> \x8F\x78 |0 # HANGUL SYLLABLE RIEUL OE RIEULPIEUP
-<UB8BC> \x8F\x79 |0 # HANGUL SYLLABLE RIEUL OE RIEULSIOS
-<UB8BD> \x8F\x7A |0 # HANGUL SYLLABLE RIEUL OE RIEULTHIEUTH
-<UB8BE> \x8F\x81 |0 # HANGUL SYLLABLE RIEUL OE RIEULPHIEUPH
-<UB8BF> \x8F\x82 |0 # HANGUL SYLLABLE RIEUL OE RIEULHIEUH
-<UB8C0> \xB7\xDD |0 # HANGUL SYLLABLE RIEUL OE MIEUM
-<UB8C1> \xB7\xDE |0 # HANGUL SYLLABLE RIEUL OE PIEUP
-<UB8C2> \x8F\x83 |0 # HANGUL SYLLABLE RIEUL OE PIEUPSIOS
-<UB8C3> \xB7\xDF |0 # HANGUL SYLLABLE RIEUL OE SIOS
-<UB8C4> \x8F\x84 |0 # HANGUL SYLLABLE RIEUL OE SSANGSIOS
-<UB8C5> \xB7\xE0 |0 # HANGUL SYLLABLE RIEUL OE IEUNG
-<UB8C6> \x8F\x85 |0 # HANGUL SYLLABLE RIEUL OE CIEUC
-<UB8C7> \x8F\x86 |0 # HANGUL SYLLABLE RIEUL OE CHIEUCH
-<UB8C8> \x8F\x87 |0 # HANGUL SYLLABLE RIEUL OE KHIEUKH
-<UB8C9> \x8F\x88 |0 # HANGUL SYLLABLE RIEUL OE THIEUTH
-<UB8CA> \x8F\x89 |0 # HANGUL SYLLABLE RIEUL OE PHIEUPH
-<UB8CB> \x8F\x8A |0 # HANGUL SYLLABLE RIEUL OE HIEUH
-<UB8CC> \xB7\xE1 |0 # HANGUL SYLLABLE RIEUL YO
-<UB8CD> \x8F\x8B |0 # HANGUL SYLLABLE RIEUL YO KIYEOK
-<UB8CE> \x8F\x8C |0 # HANGUL SYLLABLE RIEUL YO SSANGKIYEOK
-<UB8CF> \x8F\x8D |0 # HANGUL SYLLABLE RIEUL YO KIYEOKSIOS
-<UB8D0> \xB7\xE2 |0 # HANGUL SYLLABLE RIEUL YO NIEUN
-<UB8D1> \x8F\x8E |0 # HANGUL SYLLABLE RIEUL YO NIEUNCIEUC
-<UB8D2> \x8F\x8F |0 # HANGUL SYLLABLE RIEUL YO NIEUNHIEUH
-<UB8D3> \x8F\x90 |0 # HANGUL SYLLABLE RIEUL YO TIKEUT
-<UB8D4> \xB7\xE3 |0 # HANGUL SYLLABLE RIEUL YO RIEUL
-<UB8D5> \x8F\x91 |0 # HANGUL SYLLABLE RIEUL YO RIEULKIYEOK
-<UB8D6> \x8F\x92 |0 # HANGUL SYLLABLE RIEUL YO RIEULMIEUM
-<UB8D7> \x8F\x93 |0 # HANGUL SYLLABLE RIEUL YO RIEULPIEUP
-<UB8D8> \x8F\x94 |0 # HANGUL SYLLABLE RIEUL YO RIEULSIOS
-<UB8D9> \x8F\x95 |0 # HANGUL SYLLABLE RIEUL YO RIEULTHIEUTH
-<UB8DA> \x8F\x96 |0 # HANGUL SYLLABLE RIEUL YO RIEULPHIEUPH
-<UB8DB> \x8F\x97 |0 # HANGUL SYLLABLE RIEUL YO RIEULHIEUH
-<UB8DC> \x8F\x98 |0 # HANGUL SYLLABLE RIEUL YO MIEUM
-<UB8DD> \xB7\xE4 |0 # HANGUL SYLLABLE RIEUL YO PIEUP
-<UB8DE> \x8F\x99 |0 # HANGUL SYLLABLE RIEUL YO PIEUPSIOS
-<UB8DF> \xB7\xE5 |0 # HANGUL SYLLABLE RIEUL YO SIOS
-<UB8E0> \x8F\x9A |0 # HANGUL SYLLABLE RIEUL YO SSANGSIOS
-<UB8E1> \xB7\xE6 |0 # HANGUL SYLLABLE RIEUL YO IEUNG
-<UB8E2> \x8F\x9B |0 # HANGUL SYLLABLE RIEUL YO CIEUC
-<UB8E3> \x8F\x9C |0 # HANGUL SYLLABLE RIEUL YO CHIEUCH
-<UB8E4> \x8F\x9D |0 # HANGUL SYLLABLE RIEUL YO KHIEUKH
-<UB8E5> \x8F\x9E |0 # HANGUL SYLLABLE RIEUL YO THIEUTH
-<UB8E6> \x8F\x9F |0 # HANGUL SYLLABLE RIEUL YO PHIEUPH
-<UB8E7> \x8F\xA0 |0 # HANGUL SYLLABLE RIEUL YO HIEUH
-<UB8E8> \xB7\xE7 |0 # HANGUL SYLLABLE RIEUL U
-<UB8E9> \xB7\xE8 |0 # HANGUL SYLLABLE RIEUL U KIYEOK
-<UB8EA> \x8F\xA1 |0 # HANGUL SYLLABLE RIEUL U SSANGKIYEOK
-<UB8EB> \x8F\xA2 |0 # HANGUL SYLLABLE RIEUL U KIYEOKSIOS
-<UB8EC> \xB7\xE9 |0 # HANGUL SYLLABLE RIEUL U NIEUN
-<UB8ED> \x8F\xA3 |0 # HANGUL SYLLABLE RIEUL U NIEUNCIEUC
-<UB8EE> \x8F\xA4 |0 # HANGUL SYLLABLE RIEUL U NIEUNHIEUH
-<UB8EF> \x8F\xA5 |0 # HANGUL SYLLABLE RIEUL U TIKEUT
-<UB8F0> \xB7\xEA |0 # HANGUL SYLLABLE RIEUL U RIEUL
-<UB8F1> \x8F\xA6 |0 # HANGUL SYLLABLE RIEUL U RIEULKIYEOK
-<UB8F2> \x8F\xA7 |0 # HANGUL SYLLABLE RIEUL U RIEULMIEUM
-<UB8F3> \x8F\xA8 |0 # HANGUL SYLLABLE RIEUL U RIEULPIEUP
-<UB8F4> \x8F\xA9 |0 # HANGUL SYLLABLE RIEUL U RIEULSIOS
-<UB8F5> \x8F\xAA |0 # HANGUL SYLLABLE RIEUL U RIEULTHIEUTH
-<UB8F6> \x8F\xAB |0 # HANGUL SYLLABLE RIEUL U RIEULPHIEUPH
-<UB8F7> \x8F\xAC |0 # HANGUL SYLLABLE RIEUL U RIEULHIEUH
-<UB8F8> \xB7\xEB |0 # HANGUL SYLLABLE RIEUL U MIEUM
-<UB8F9> \xB7\xEC |0 # HANGUL SYLLABLE RIEUL U PIEUP
-<UB8FA> \x8F\xAD |0 # HANGUL SYLLABLE RIEUL U PIEUPSIOS
-<UB8FB> \xB7\xED |0 # HANGUL SYLLABLE RIEUL U SIOS
-<UB8FC> \x8F\xAE |0 # HANGUL SYLLABLE RIEUL U SSANGSIOS
-<UB8FD> \xB7\xEE |0 # HANGUL SYLLABLE RIEUL U IEUNG
-<UB8FE> \x8F\xAF |0 # HANGUL SYLLABLE RIEUL U CIEUC
-<UB8FF> \x8F\xB0 |0 # HANGUL SYLLABLE RIEUL U CHIEUCH
-<UB900> \x8F\xB1 |0 # HANGUL SYLLABLE RIEUL U KHIEUKH
-<UB901> \x8F\xB2 |0 # HANGUL SYLLABLE RIEUL U THIEUTH
-<UB902> \x8F\xB3 |0 # HANGUL SYLLABLE RIEUL U PHIEUPH
-<UB903> \x8F\xB4 |0 # HANGUL SYLLABLE RIEUL U HIEUH
-<UB904> \xB7\xEF |0 # HANGUL SYLLABLE RIEUL WEO
-<UB905> \x8F\xB5 |0 # HANGUL SYLLABLE RIEUL WEO KIYEOK
-<UB906> \x8F\xB6 |0 # HANGUL SYLLABLE RIEUL WEO SSANGKIYEOK
-<UB907> \x8F\xB7 |0 # HANGUL SYLLABLE RIEUL WEO KIYEOKSIOS
-<UB908> \x8F\xB8 |0 # HANGUL SYLLABLE RIEUL WEO NIEUN
-<UB909> \x8F\xB9 |0 # HANGUL SYLLABLE RIEUL WEO NIEUNCIEUC
-<UB90A> \x8F\xBA |0 # HANGUL SYLLABLE RIEUL WEO NIEUNHIEUH
-<UB90B> \x8F\xBB |0 # HANGUL SYLLABLE RIEUL WEO TIKEUT
-<UB90C> \x8F\xBC |0 # HANGUL SYLLABLE RIEUL WEO RIEUL
-<UB90D> \x8F\xBD |0 # HANGUL SYLLABLE RIEUL WEO RIEULKIYEOK
-<UB90E> \x8F\xBE |0 # HANGUL SYLLABLE RIEUL WEO RIEULMIEUM
-<UB90F> \x8F\xBF |0 # HANGUL SYLLABLE RIEUL WEO RIEULPIEUP
-<UB910> \x8F\xC0 |0 # HANGUL SYLLABLE RIEUL WEO RIEULSIOS
-<UB911> \x8F\xC1 |0 # HANGUL SYLLABLE RIEUL WEO RIEULTHIEUTH
-<UB912> \x8F\xC2 |0 # HANGUL SYLLABLE RIEUL WEO RIEULPHIEUPH
-<UB913> \x8F\xC3 |0 # HANGUL SYLLABLE RIEUL WEO RIEULHIEUH
-<UB914> \x8F\xC4 |0 # HANGUL SYLLABLE RIEUL WEO MIEUM
-<UB915> \x8F\xC5 |0 # HANGUL SYLLABLE RIEUL WEO PIEUP
-<UB916> \x8F\xC6 |0 # HANGUL SYLLABLE RIEUL WEO PIEUPSIOS
-<UB917> \x8F\xC7 |0 # HANGUL SYLLABLE RIEUL WEO SIOS
-<UB918> \xB7\xF0 |0 # HANGUL SYLLABLE RIEUL WEO SSANGSIOS
-<UB919> \x8F\xC8 |0 # HANGUL SYLLABLE RIEUL WEO IEUNG
-<UB91A> \x8F\xC9 |0 # HANGUL SYLLABLE RIEUL WEO CIEUC
-<UB91B> \x8F\xCA |0 # HANGUL SYLLABLE RIEUL WEO CHIEUCH
-<UB91C> \x8F\xCB |0 # HANGUL SYLLABLE RIEUL WEO KHIEUKH
-<UB91D> \x8F\xCC |0 # HANGUL SYLLABLE RIEUL WEO THIEUTH
-<UB91E> \x8F\xCD |0 # HANGUL SYLLABLE RIEUL WEO PHIEUPH
-<UB91F> \x8F\xCE |0 # HANGUL SYLLABLE RIEUL WEO HIEUH
-<UB920> \xB7\xF1 |0 # HANGUL SYLLABLE RIEUL WE
-<UB921> \x8F\xCF |0 # HANGUL SYLLABLE RIEUL WE KIYEOK
-<UB922> \x8F\xD0 |0 # HANGUL SYLLABLE RIEUL WE SSANGKIYEOK
-<UB923> \x8F\xD1 |0 # HANGUL SYLLABLE RIEUL WE KIYEOKSIOS
-<UB924> \x8F\xD2 |0 # HANGUL SYLLABLE RIEUL WE NIEUN
-<UB925> \x8F\xD3 |0 # HANGUL SYLLABLE RIEUL WE NIEUNCIEUC
-<UB926> \x8F\xD4 |0 # HANGUL SYLLABLE RIEUL WE NIEUNHIEUH
-<UB927> \x8F\xD5 |0 # HANGUL SYLLABLE RIEUL WE TIKEUT
-<UB928> \x8F\xD6 |0 # HANGUL SYLLABLE RIEUL WE RIEUL
-<UB929> \x8F\xD7 |0 # HANGUL SYLLABLE RIEUL WE RIEULKIYEOK
-<UB92A> \x8F\xD8 |0 # HANGUL SYLLABLE RIEUL WE RIEULMIEUM
-<UB92B> \x8F\xD9 |0 # HANGUL SYLLABLE RIEUL WE RIEULPIEUP
-<UB92C> \x8F\xDA |0 # HANGUL SYLLABLE RIEUL WE RIEULSIOS
-<UB92D> \x8F\xDB |0 # HANGUL SYLLABLE RIEUL WE RIEULTHIEUTH
-<UB92E> \x8F\xDC |0 # HANGUL SYLLABLE RIEUL WE RIEULPHIEUPH
-<UB92F> \x8F\xDD |0 # HANGUL SYLLABLE RIEUL WE RIEULHIEUH
-<UB930> \x8F\xDE |0 # HANGUL SYLLABLE RIEUL WE MIEUM
-<UB931> \x8F\xDF |0 # HANGUL SYLLABLE RIEUL WE PIEUP
-<UB932> \x8F\xE0 |0 # HANGUL SYLLABLE RIEUL WE PIEUPSIOS
-<UB933> \x8F\xE1 |0 # HANGUL SYLLABLE RIEUL WE SIOS
-<UB934> \x8F\xE2 |0 # HANGUL SYLLABLE RIEUL WE SSANGSIOS
-<UB935> \x8F\xE3 |0 # HANGUL SYLLABLE RIEUL WE IEUNG
-<UB936> \x8F\xE4 |0 # HANGUL SYLLABLE RIEUL WE CIEUC
-<UB937> \x8F\xE5 |0 # HANGUL SYLLABLE RIEUL WE CHIEUCH
-<UB938> \x8F\xE6 |0 # HANGUL SYLLABLE RIEUL WE KHIEUKH
-<UB939> \x8F\xE7 |0 # HANGUL SYLLABLE RIEUL WE THIEUTH
-<UB93A> \x8F\xE8 |0 # HANGUL SYLLABLE RIEUL WE PHIEUPH
-<UB93B> \x8F\xE9 |0 # HANGUL SYLLABLE RIEUL WE HIEUH
-<UB93C> \xB7\xF2 |0 # HANGUL SYLLABLE RIEUL WI
-<UB93D> \xB7\xF3 |0 # HANGUL SYLLABLE RIEUL WI KIYEOK
-<UB93E> \x8F\xEA |0 # HANGUL SYLLABLE RIEUL WI SSANGKIYEOK
-<UB93F> \x8F\xEB |0 # HANGUL SYLLABLE RIEUL WI KIYEOKSIOS
-<UB940> \xB7\xF4 |0 # HANGUL SYLLABLE RIEUL WI NIEUN
-<UB941> \x8F\xEC |0 # HANGUL SYLLABLE RIEUL WI NIEUNCIEUC
-<UB942> \x8F\xED |0 # HANGUL SYLLABLE RIEUL WI NIEUNHIEUH
-<UB943> \x8F\xEE |0 # HANGUL SYLLABLE RIEUL WI TIKEUT
-<UB944> \xB7\xF5 |0 # HANGUL SYLLABLE RIEUL WI RIEUL
-<UB945> \x8F\xEF |0 # HANGUL SYLLABLE RIEUL WI RIEULKIYEOK
-<UB946> \x8F\xF0 |0 # HANGUL SYLLABLE RIEUL WI RIEULMIEUM
-<UB947> \x8F\xF1 |0 # HANGUL SYLLABLE RIEUL WI RIEULPIEUP
-<UB948> \x8F\xF2 |0 # HANGUL SYLLABLE RIEUL WI RIEULSIOS
-<UB949> \x8F\xF3 |0 # HANGUL SYLLABLE RIEUL WI RIEULTHIEUTH
-<UB94A> \x8F\xF4 |0 # HANGUL SYLLABLE RIEUL WI RIEULPHIEUPH
-<UB94B> \x8F\xF5 |0 # HANGUL SYLLABLE RIEUL WI RIEULHIEUH
-<UB94C> \xB7\xF6 |0 # HANGUL SYLLABLE RIEUL WI MIEUM
-<UB94D> \x8F\xF6 |0 # HANGUL SYLLABLE RIEUL WI PIEUP
-<UB94E> \x8F\xF7 |0 # HANGUL SYLLABLE RIEUL WI PIEUPSIOS
-<UB94F> \xB7\xF7 |0 # HANGUL SYLLABLE RIEUL WI SIOS
-<UB950> \x8F\xF8 |0 # HANGUL SYLLABLE RIEUL WI SSANGSIOS
-<UB951> \xB7\xF8 |0 # HANGUL SYLLABLE RIEUL WI IEUNG
-<UB952> \x8F\xF9 |0 # HANGUL SYLLABLE RIEUL WI CIEUC
-<UB953> \x8F\xFA |0 # HANGUL SYLLABLE RIEUL WI CHIEUCH
-<UB954> \x8F\xFB |0 # HANGUL SYLLABLE RIEUL WI KHIEUKH
-<UB955> \x8F\xFC |0 # HANGUL SYLLABLE RIEUL WI THIEUTH
-<UB956> \x8F\xFD |0 # HANGUL SYLLABLE RIEUL WI PHIEUPH
-<UB957> \x8F\xFE |0 # HANGUL SYLLABLE RIEUL WI HIEUH
-<UB958> \xB7\xF9 |0 # HANGUL SYLLABLE RIEUL YU
-<UB959> \xB7\xFA |0 # HANGUL SYLLABLE RIEUL YU KIYEOK
-<UB95A> \x90\x41 |0 # HANGUL SYLLABLE RIEUL YU SSANGKIYEOK
-<UB95B> \x90\x42 |0 # HANGUL SYLLABLE RIEUL YU KIYEOKSIOS
-<UB95C> \xB7\xFB |0 # HANGUL SYLLABLE RIEUL YU NIEUN
-<UB95D> \x90\x43 |0 # HANGUL SYLLABLE RIEUL YU NIEUNCIEUC
-<UB95E> \x90\x44 |0 # HANGUL SYLLABLE RIEUL YU NIEUNHIEUH
-<UB95F> \x90\x45 |0 # HANGUL SYLLABLE RIEUL YU TIKEUT
-<UB960> \xB7\xFC |0 # HANGUL SYLLABLE RIEUL YU RIEUL
-<UB961> \x90\x46 |0 # HANGUL SYLLABLE RIEUL YU RIEULKIYEOK
-<UB962> \x90\x47 |0 # HANGUL SYLLABLE RIEUL YU RIEULMIEUM
-<UB963> \x90\x48 |0 # HANGUL SYLLABLE RIEUL YU RIEULPIEUP
-<UB964> \x90\x49 |0 # HANGUL SYLLABLE RIEUL YU RIEULSIOS
-<UB965> \x90\x4A |0 # HANGUL SYLLABLE RIEUL YU RIEULTHIEUTH
-<UB966> \x90\x4B |0 # HANGUL SYLLABLE RIEUL YU RIEULPHIEUPH
-<UB967> \x90\x4C |0 # HANGUL SYLLABLE RIEUL YU RIEULHIEUH
-<UB968> \xB7\xFD |0 # HANGUL SYLLABLE RIEUL YU MIEUM
-<UB969> \xB7\xFE |0 # HANGUL SYLLABLE RIEUL YU PIEUP
-<UB96A> \x90\x4D |0 # HANGUL SYLLABLE RIEUL YU PIEUPSIOS
-<UB96B> \xB8\xA1 |0 # HANGUL SYLLABLE RIEUL YU SIOS
-<UB96C> \x90\x4E |0 # HANGUL SYLLABLE RIEUL YU SSANGSIOS
-<UB96D> \xB8\xA2 |0 # HANGUL SYLLABLE RIEUL YU IEUNG
-<UB96E> \x90\x4F |0 # HANGUL SYLLABLE RIEUL YU CIEUC
-<UB96F> \x90\x50 |0 # HANGUL SYLLABLE RIEUL YU CHIEUCH
-<UB970> \x90\x51 |0 # HANGUL SYLLABLE RIEUL YU KHIEUKH
-<UB971> \x90\x52 |0 # HANGUL SYLLABLE RIEUL YU THIEUTH
-<UB972> \x90\x53 |0 # HANGUL SYLLABLE RIEUL YU PHIEUPH
-<UB973> \x90\x54 |0 # HANGUL SYLLABLE RIEUL YU HIEUH
-<UB974> \xB8\xA3 |0 # HANGUL SYLLABLE RIEUL EU
-<UB975> \xB8\xA4 |0 # HANGUL SYLLABLE RIEUL EU KIYEOK
-<UB976> \x90\x55 |0 # HANGUL SYLLABLE RIEUL EU SSANGKIYEOK
-<UB977> \x90\x56 |0 # HANGUL SYLLABLE RIEUL EU KIYEOKSIOS
-<UB978> \xB8\xA5 |0 # HANGUL SYLLABLE RIEUL EU NIEUN
-<UB979> \x90\x57 |0 # HANGUL SYLLABLE RIEUL EU NIEUNCIEUC
-<UB97A> \x90\x58 |0 # HANGUL SYLLABLE RIEUL EU NIEUNHIEUH
-<UB97B> \x90\x59 |0 # HANGUL SYLLABLE RIEUL EU TIKEUT
-<UB97C> \xB8\xA6 |0 # HANGUL SYLLABLE RIEUL EU RIEUL
-<UB97D> \x90\x5A |0 # HANGUL SYLLABLE RIEUL EU RIEULKIYEOK
-<UB97E> \x90\x61 |0 # HANGUL SYLLABLE RIEUL EU RIEULMIEUM
-<UB97F> \x90\x62 |0 # HANGUL SYLLABLE RIEUL EU RIEULPIEUP
-<UB980> \x90\x63 |0 # HANGUL SYLLABLE RIEUL EU RIEULSIOS
-<UB981> \x90\x64 |0 # HANGUL SYLLABLE RIEUL EU RIEULTHIEUTH
-<UB982> \x90\x65 |0 # HANGUL SYLLABLE RIEUL EU RIEULPHIEUPH
-<UB983> \x90\x66 |0 # HANGUL SYLLABLE RIEUL EU RIEULHIEUH
-<UB984> \xB8\xA7 |0 # HANGUL SYLLABLE RIEUL EU MIEUM
-<UB985> \xB8\xA8 |0 # HANGUL SYLLABLE RIEUL EU PIEUP
-<UB986> \x90\x67 |0 # HANGUL SYLLABLE RIEUL EU PIEUPSIOS
-<UB987> \xB8\xA9 |0 # HANGUL SYLLABLE RIEUL EU SIOS
-<UB988> \x90\x68 |0 # HANGUL SYLLABLE RIEUL EU SSANGSIOS
-<UB989> \xB8\xAA |0 # HANGUL SYLLABLE RIEUL EU IEUNG
-<UB98A> \xB8\xAB |0 # HANGUL SYLLABLE RIEUL EU CIEUC
-<UB98B> \x90\x69 |0 # HANGUL SYLLABLE RIEUL EU CHIEUCH
-<UB98C> \x90\x6A |0 # HANGUL SYLLABLE RIEUL EU KHIEUKH
-<UB98D> \xB8\xAC |0 # HANGUL SYLLABLE RIEUL EU THIEUTH
-<UB98E> \xB8\xAD |0 # HANGUL SYLLABLE RIEUL EU PHIEUPH
-<UB98F> \x90\x6B |0 # HANGUL SYLLABLE RIEUL EU HIEUH
-<UB990> \x90\x6C |0 # HANGUL SYLLABLE RIEUL YI
-<UB991> \x90\x6D |0 # HANGUL SYLLABLE RIEUL YI KIYEOK
-<UB992> \x90\x6E |0 # HANGUL SYLLABLE RIEUL YI SSANGKIYEOK
-<UB993> \x90\x6F |0 # HANGUL SYLLABLE RIEUL YI KIYEOKSIOS
-<UB994> \x90\x70 |0 # HANGUL SYLLABLE RIEUL YI NIEUN
-<UB995> \x90\x71 |0 # HANGUL SYLLABLE RIEUL YI NIEUNCIEUC
-<UB996> \x90\x72 |0 # HANGUL SYLLABLE RIEUL YI NIEUNHIEUH
-<UB997> \x90\x73 |0 # HANGUL SYLLABLE RIEUL YI TIKEUT
-<UB998> \x90\x74 |0 # HANGUL SYLLABLE RIEUL YI RIEUL
-<UB999> \x90\x75 |0 # HANGUL SYLLABLE RIEUL YI RIEULKIYEOK
-<UB99A> \x90\x76 |0 # HANGUL SYLLABLE RIEUL YI RIEULMIEUM
-<UB99B> \x90\x77 |0 # HANGUL SYLLABLE RIEUL YI RIEULPIEUP
-<UB99C> \x90\x78 |0 # HANGUL SYLLABLE RIEUL YI RIEULSIOS
-<UB99D> \x90\x79 |0 # HANGUL SYLLABLE RIEUL YI RIEULTHIEUTH
-<UB99E> \x90\x7A |0 # HANGUL SYLLABLE RIEUL YI RIEULPHIEUPH
-<UB99F> \x90\x81 |0 # HANGUL SYLLABLE RIEUL YI RIEULHIEUH
-<UB9A0> \x90\x82 |0 # HANGUL SYLLABLE RIEUL YI MIEUM
-<UB9A1> \x90\x83 |0 # HANGUL SYLLABLE RIEUL YI PIEUP
-<UB9A2> \x90\x84 |0 # HANGUL SYLLABLE RIEUL YI PIEUPSIOS
-<UB9A3> \x90\x85 |0 # HANGUL SYLLABLE RIEUL YI SIOS
-<UB9A4> \x90\x86 |0 # HANGUL SYLLABLE RIEUL YI SSANGSIOS
-<UB9A5> \x90\x87 |0 # HANGUL SYLLABLE RIEUL YI IEUNG
-<UB9A6> \x90\x88 |0 # HANGUL SYLLABLE RIEUL YI CIEUC
-<UB9A7> \x90\x89 |0 # HANGUL SYLLABLE RIEUL YI CHIEUCH
-<UB9A8> \x90\x8A |0 # HANGUL SYLLABLE RIEUL YI KHIEUKH
-<UB9A9> \x90\x8B |0 # HANGUL SYLLABLE RIEUL YI THIEUTH
-<UB9AA> \x90\x8C |0 # HANGUL SYLLABLE RIEUL YI PHIEUPH
-<UB9AB> \x90\x8D |0 # HANGUL SYLLABLE RIEUL YI HIEUH
-<UB9AC> \xB8\xAE |0 # HANGUL SYLLABLE RIEUL I
-<UB9AD> \xB8\xAF |0 # HANGUL SYLLABLE RIEUL I KIYEOK
-<UB9AE> \x90\x8E |0 # HANGUL SYLLABLE RIEUL I SSANGKIYEOK
-<UB9AF> \x90\x8F |0 # HANGUL SYLLABLE RIEUL I KIYEOKSIOS
-<UB9B0> \xB8\xB0 |0 # HANGUL SYLLABLE RIEUL I NIEUN
-<UB9B1> \x90\x90 |0 # HANGUL SYLLABLE RIEUL I NIEUNCIEUC
-<UB9B2> \x90\x91 |0 # HANGUL SYLLABLE RIEUL I NIEUNHIEUH
-<UB9B3> \x90\x92 |0 # HANGUL SYLLABLE RIEUL I TIKEUT
-<UB9B4> \xB8\xB1 |0 # HANGUL SYLLABLE RIEUL I RIEUL
-<UB9B5> \x90\x93 |0 # HANGUL SYLLABLE RIEUL I RIEULKIYEOK
-<UB9B6> \x90\x94 |0 # HANGUL SYLLABLE RIEUL I RIEULMIEUM
-<UB9B7> \x90\x95 |0 # HANGUL SYLLABLE RIEUL I RIEULPIEUP
-<UB9B8> \x90\x96 |0 # HANGUL SYLLABLE RIEUL I RIEULSIOS
-<UB9B9> \x90\x97 |0 # HANGUL SYLLABLE RIEUL I RIEULTHIEUTH
-<UB9BA> \x90\x98 |0 # HANGUL SYLLABLE RIEUL I RIEULPHIEUPH
-<UB9BB> \x90\x99 |0 # HANGUL SYLLABLE RIEUL I RIEULHIEUH
-<UB9BC> \xB8\xB2 |0 # HANGUL SYLLABLE RIEUL I MIEUM
-<UB9BD> \xB8\xB3 |0 # HANGUL SYLLABLE RIEUL I PIEUP
-<UB9BE> \x90\x9A |0 # HANGUL SYLLABLE RIEUL I PIEUPSIOS
-<UB9BF> \xB8\xB4 |0 # HANGUL SYLLABLE RIEUL I SIOS
-<UB9C0> \x90\x9B |0 # HANGUL SYLLABLE RIEUL I SSANGSIOS
-<UB9C1> \xB8\xB5 |0 # HANGUL SYLLABLE RIEUL I IEUNG
-<UB9C2> \x90\x9C |0 # HANGUL SYLLABLE RIEUL I CIEUC
-<UB9C3> \x90\x9D |0 # HANGUL SYLLABLE RIEUL I CHIEUCH
-<UB9C4> \x90\x9E |0 # HANGUL SYLLABLE RIEUL I KHIEUKH
-<UB9C5> \x90\x9F |0 # HANGUL SYLLABLE RIEUL I THIEUTH
-<UB9C6> \x90\xA0 |0 # HANGUL SYLLABLE RIEUL I PHIEUPH
-<UB9C7> \x90\xA1 |0 # HANGUL SYLLABLE RIEUL I HIEUH
-<UB9C8> \xB8\xB6 |0 # HANGUL SYLLABLE MIEUM A
-<UB9C9> \xB8\xB7 |0 # HANGUL SYLLABLE MIEUM A KIYEOK
-<UB9CA> \x90\xA2 |0 # HANGUL SYLLABLE MIEUM A SSANGKIYEOK
-<UB9CB> \x90\xA3 |0 # HANGUL SYLLABLE MIEUM A KIYEOKSIOS
-<UB9CC> \xB8\xB8 |0 # HANGUL SYLLABLE MIEUM A NIEUN
-<UB9CD> \x90\xA4 |0 # HANGUL SYLLABLE MIEUM A NIEUNCIEUC
-<UB9CE> \xB8\xB9 |0 # HANGUL SYLLABLE MIEUM A NIEUNHIEUH
-<UB9CF> \xB8\xBA |0 # HANGUL SYLLABLE MIEUM A TIKEUT
-<UB9D0> \xB8\xBB |0 # HANGUL SYLLABLE MIEUM A RIEUL
-<UB9D1> \xB8\xBC |0 # HANGUL SYLLABLE MIEUM A RIEULKIYEOK
-<UB9D2> \xB8\xBD |0 # HANGUL SYLLABLE MIEUM A RIEULMIEUM
-<UB9D3> \x90\xA5 |0 # HANGUL SYLLABLE MIEUM A RIEULPIEUP
-<UB9D4> \x90\xA6 |0 # HANGUL SYLLABLE MIEUM A RIEULSIOS
-<UB9D5> \x90\xA7 |0 # HANGUL SYLLABLE MIEUM A RIEULTHIEUTH
-<UB9D6> \x90\xA8 |0 # HANGUL SYLLABLE MIEUM A RIEULPHIEUPH
-<UB9D7> \x90\xA9 |0 # HANGUL SYLLABLE MIEUM A RIEULHIEUH
-<UB9D8> \xB8\xBE |0 # HANGUL SYLLABLE MIEUM A MIEUM
-<UB9D9> \xB8\xBF |0 # HANGUL SYLLABLE MIEUM A PIEUP
-<UB9DA> \x90\xAA |0 # HANGUL SYLLABLE MIEUM A PIEUPSIOS
-<UB9DB> \xB8\xC0 |0 # HANGUL SYLLABLE MIEUM A SIOS
-<UB9DC> \x90\xAB |0 # HANGUL SYLLABLE MIEUM A SSANGSIOS
-<UB9DD> \xB8\xC1 |0 # HANGUL SYLLABLE MIEUM A IEUNG
-<UB9DE> \xB8\xC2 |0 # HANGUL SYLLABLE MIEUM A CIEUC
-<UB9DF> \x90\xAC |0 # HANGUL SYLLABLE MIEUM A CHIEUCH
-<UB9E0> \x90\xAD |0 # HANGUL SYLLABLE MIEUM A KHIEUKH
-<UB9E1> \xB8\xC3 |0 # HANGUL SYLLABLE MIEUM A THIEUTH
-<UB9E2> \x90\xAE |0 # HANGUL SYLLABLE MIEUM A PHIEUPH
-<UB9E3> \xB8\xC4 |0 # HANGUL SYLLABLE MIEUM A HIEUH
-<UB9E4> \xB8\xC5 |0 # HANGUL SYLLABLE MIEUM AE
-<UB9E5> \xB8\xC6 |0 # HANGUL SYLLABLE MIEUM AE KIYEOK
-<UB9E6> \x90\xAF |0 # HANGUL SYLLABLE MIEUM AE SSANGKIYEOK
-<UB9E7> \x90\xB0 |0 # HANGUL SYLLABLE MIEUM AE KIYEOKSIOS
-<UB9E8> \xB8\xC7 |0 # HANGUL SYLLABLE MIEUM AE NIEUN
-<UB9E9> \x90\xB1 |0 # HANGUL SYLLABLE MIEUM AE NIEUNCIEUC
-<UB9EA> \x90\xB2 |0 # HANGUL SYLLABLE MIEUM AE NIEUNHIEUH
-<UB9EB> \x90\xB3 |0 # HANGUL SYLLABLE MIEUM AE TIKEUT
-<UB9EC> \xB8\xC8 |0 # HANGUL SYLLABLE MIEUM AE RIEUL
-<UB9ED> \x90\xB4 |0 # HANGUL SYLLABLE MIEUM AE RIEULKIYEOK
-<UB9EE> \x90\xB5 |0 # HANGUL SYLLABLE MIEUM AE RIEULMIEUM
-<UB9EF> \x90\xB6 |0 # HANGUL SYLLABLE MIEUM AE RIEULPIEUP
-<UB9F0> \x90\xB7 |0 # HANGUL SYLLABLE MIEUM AE RIEULSIOS
-<UB9F1> \x90\xB8 |0 # HANGUL SYLLABLE MIEUM AE RIEULTHIEUTH
-<UB9F2> \x90\xB9 |0 # HANGUL SYLLABLE MIEUM AE RIEULPHIEUPH
-<UB9F3> \x90\xBA |0 # HANGUL SYLLABLE MIEUM AE RIEULHIEUH
-<UB9F4> \xB8\xC9 |0 # HANGUL SYLLABLE MIEUM AE MIEUM
-<UB9F5> \xB8\xCA |0 # HANGUL SYLLABLE MIEUM AE PIEUP
-<UB9F6> \x90\xBB |0 # HANGUL SYLLABLE MIEUM AE PIEUPSIOS
-<UB9F7> \xB8\xCB |0 # HANGUL SYLLABLE MIEUM AE SIOS
-<UB9F8> \xB8\xCC |0 # HANGUL SYLLABLE MIEUM AE SSANGSIOS
-<UB9F9> \xB8\xCD |0 # HANGUL SYLLABLE MIEUM AE IEUNG
-<UB9FA> \xB8\xCE |0 # HANGUL SYLLABLE MIEUM AE CIEUC
-<UB9FB> \x90\xBC |0 # HANGUL SYLLABLE MIEUM AE CHIEUCH
-<UB9FC> \x90\xBD |0 # HANGUL SYLLABLE MIEUM AE KHIEUKH
-<UB9FD> \x90\xBE |0 # HANGUL SYLLABLE MIEUM AE THIEUTH
-<UB9FE> \x90\xBF |0 # HANGUL SYLLABLE MIEUM AE PHIEUPH
-<UB9FF> \x90\xC0 |0 # HANGUL SYLLABLE MIEUM AE HIEUH
-<UBA00> \xB8\xCF |0 # HANGUL SYLLABLE MIEUM YA
-<UBA01> \xB8\xD0 |0 # HANGUL SYLLABLE MIEUM YA KIYEOK
-<UBA02> \x90\xC1 |0 # HANGUL SYLLABLE MIEUM YA SSANGKIYEOK
-<UBA03> \x90\xC2 |0 # HANGUL SYLLABLE MIEUM YA KIYEOKSIOS
-<UBA04> \x90\xC3 |0 # HANGUL SYLLABLE MIEUM YA NIEUN
-<UBA05> \x90\xC4 |0 # HANGUL SYLLABLE MIEUM YA NIEUNCIEUC
-<UBA06> \x90\xC5 |0 # HANGUL SYLLABLE MIEUM YA NIEUNHIEUH
-<UBA07> \x90\xC6 |0 # HANGUL SYLLABLE MIEUM YA TIKEUT
-<UBA08> \xB8\xD1 |0 # HANGUL SYLLABLE MIEUM YA RIEUL
-<UBA09> \x90\xC7 |0 # HANGUL SYLLABLE MIEUM YA RIEULKIYEOK
-<UBA0A> \x90\xC8 |0 # HANGUL SYLLABLE MIEUM YA RIEULMIEUM
-<UBA0B> \x90\xC9 |0 # HANGUL SYLLABLE MIEUM YA RIEULPIEUP
-<UBA0C> \x90\xCA |0 # HANGUL SYLLABLE MIEUM YA RIEULSIOS
-<UBA0D> \x90\xCB |0 # HANGUL SYLLABLE MIEUM YA RIEULTHIEUTH
-<UBA0E> \x90\xCC |0 # HANGUL SYLLABLE MIEUM YA RIEULPHIEUPH
-<UBA0F> \x90\xCD |0 # HANGUL SYLLABLE MIEUM YA RIEULHIEUH
-<UBA10> \x90\xCE |0 # HANGUL SYLLABLE MIEUM YA MIEUM
-<UBA11> \x90\xCF |0 # HANGUL SYLLABLE MIEUM YA PIEUP
-<UBA12> \x90\xD0 |0 # HANGUL SYLLABLE MIEUM YA PIEUPSIOS
-<UBA13> \x90\xD1 |0 # HANGUL SYLLABLE MIEUM YA SIOS
-<UBA14> \x90\xD2 |0 # HANGUL SYLLABLE MIEUM YA SSANGSIOS
-<UBA15> \xB8\xD2 |0 # HANGUL SYLLABLE MIEUM YA IEUNG
-<UBA16> \x90\xD3 |0 # HANGUL SYLLABLE MIEUM YA CIEUC
-<UBA17> \x90\xD4 |0 # HANGUL SYLLABLE MIEUM YA CHIEUCH
-<UBA18> \x90\xD5 |0 # HANGUL SYLLABLE MIEUM YA KHIEUKH
-<UBA19> \x90\xD6 |0 # HANGUL SYLLABLE MIEUM YA THIEUTH
-<UBA1A> \x90\xD7 |0 # HANGUL SYLLABLE MIEUM YA PHIEUPH
-<UBA1B> \x90\xD8 |0 # HANGUL SYLLABLE MIEUM YA HIEUH
-<UBA1C> \x90\xD9 |0 # HANGUL SYLLABLE MIEUM YAE
-<UBA1D> \x90\xDA |0 # HANGUL SYLLABLE MIEUM YAE KIYEOK
-<UBA1E> \x90\xDB |0 # HANGUL SYLLABLE MIEUM YAE SSANGKIYEOK
-<UBA1F> \x90\xDC |0 # HANGUL SYLLABLE MIEUM YAE KIYEOKSIOS
-<UBA20> \x90\xDD |0 # HANGUL SYLLABLE MIEUM YAE NIEUN
-<UBA21> \x90\xDE |0 # HANGUL SYLLABLE MIEUM YAE NIEUNCIEUC
-<UBA22> \x90\xDF |0 # HANGUL SYLLABLE MIEUM YAE NIEUNHIEUH
-<UBA23> \x90\xE0 |0 # HANGUL SYLLABLE MIEUM YAE TIKEUT
-<UBA24> \x90\xE1 |0 # HANGUL SYLLABLE MIEUM YAE RIEUL
-<UBA25> \x90\xE2 |0 # HANGUL SYLLABLE MIEUM YAE RIEULKIYEOK
-<UBA26> \x90\xE3 |0 # HANGUL SYLLABLE MIEUM YAE RIEULMIEUM
-<UBA27> \x90\xE4 |0 # HANGUL SYLLABLE MIEUM YAE RIEULPIEUP
-<UBA28> \x90\xE5 |0 # HANGUL SYLLABLE MIEUM YAE RIEULSIOS
-<UBA29> \x90\xE6 |0 # HANGUL SYLLABLE MIEUM YAE RIEULTHIEUTH
-<UBA2A> \x90\xE7 |0 # HANGUL SYLLABLE MIEUM YAE RIEULPHIEUPH
-<UBA2B> \x90\xE8 |0 # HANGUL SYLLABLE MIEUM YAE RIEULHIEUH
-<UBA2C> \x90\xE9 |0 # HANGUL SYLLABLE MIEUM YAE MIEUM
-<UBA2D> \x90\xEA |0 # HANGUL SYLLABLE MIEUM YAE PIEUP
-<UBA2E> \x90\xEB |0 # HANGUL SYLLABLE MIEUM YAE PIEUPSIOS
-<UBA2F> \x90\xEC |0 # HANGUL SYLLABLE MIEUM YAE SIOS
-<UBA30> \x90\xED |0 # HANGUL SYLLABLE MIEUM YAE SSANGSIOS
-<UBA31> \x90\xEE |0 # HANGUL SYLLABLE MIEUM YAE IEUNG
-<UBA32> \x90\xEF |0 # HANGUL SYLLABLE MIEUM YAE CIEUC
-<UBA33> \x90\xF0 |0 # HANGUL SYLLABLE MIEUM YAE CHIEUCH
-<UBA34> \x90\xF1 |0 # HANGUL SYLLABLE MIEUM YAE KHIEUKH
-<UBA35> \x90\xF2 |0 # HANGUL SYLLABLE MIEUM YAE THIEUTH
-<UBA36> \x90\xF3 |0 # HANGUL SYLLABLE MIEUM YAE PHIEUPH
-<UBA37> \x90\xF4 |0 # HANGUL SYLLABLE MIEUM YAE HIEUH
-<UBA38> \xB8\xD3 |0 # HANGUL SYLLABLE MIEUM EO
-<UBA39> \xB8\xD4 |0 # HANGUL SYLLABLE MIEUM EO KIYEOK
-<UBA3A> \x90\xF5 |0 # HANGUL SYLLABLE MIEUM EO SSANGKIYEOK
-<UBA3B> \x90\xF6 |0 # HANGUL SYLLABLE MIEUM EO KIYEOKSIOS
-<UBA3C> \xB8\xD5 |0 # HANGUL SYLLABLE MIEUM EO NIEUN
-<UBA3D> \x90\xF7 |0 # HANGUL SYLLABLE MIEUM EO NIEUNCIEUC
-<UBA3E> \x90\xF8 |0 # HANGUL SYLLABLE MIEUM EO NIEUNHIEUH
-<UBA3F> \x90\xF9 |0 # HANGUL SYLLABLE MIEUM EO TIKEUT
-<UBA40> \xB8\xD6 |0 # HANGUL SYLLABLE MIEUM EO RIEUL
-<UBA41> \x90\xFA |0 # HANGUL SYLLABLE MIEUM EO RIEULKIYEOK
-<UBA42> \xB8\xD7 |0 # HANGUL SYLLABLE MIEUM EO RIEULMIEUM
-<UBA43> \x90\xFB |0 # HANGUL SYLLABLE MIEUM EO RIEULPIEUP
-<UBA44> \x90\xFC |0 # HANGUL SYLLABLE MIEUM EO RIEULSIOS
-<UBA45> \x90\xFD |0 # HANGUL SYLLABLE MIEUM EO RIEULTHIEUTH
-<UBA46> \x90\xFE |0 # HANGUL SYLLABLE MIEUM EO RIEULPHIEUPH
-<UBA47> \x91\x41 |0 # HANGUL SYLLABLE MIEUM EO RIEULHIEUH
-<UBA48> \xB8\xD8 |0 # HANGUL SYLLABLE MIEUM EO MIEUM
-<UBA49> \xB8\xD9 |0 # HANGUL SYLLABLE MIEUM EO PIEUP
-<UBA4A> \x91\x42 |0 # HANGUL SYLLABLE MIEUM EO PIEUPSIOS
-<UBA4B> \xB8\xDA |0 # HANGUL SYLLABLE MIEUM EO SIOS
-<UBA4C> \x91\x43 |0 # HANGUL SYLLABLE MIEUM EO SSANGSIOS
-<UBA4D> \xB8\xDB |0 # HANGUL SYLLABLE MIEUM EO IEUNG
-<UBA4E> \xB8\xDC |0 # HANGUL SYLLABLE MIEUM EO CIEUC
-<UBA4F> \x91\x44 |0 # HANGUL SYLLABLE MIEUM EO CHIEUCH
-<UBA50> \x91\x45 |0 # HANGUL SYLLABLE MIEUM EO KHIEUKH
-<UBA51> \x91\x46 |0 # HANGUL SYLLABLE MIEUM EO THIEUTH
-<UBA52> \x91\x47 |0 # HANGUL SYLLABLE MIEUM EO PHIEUPH
-<UBA53> \xB8\xDD |0 # HANGUL SYLLABLE MIEUM EO HIEUH
-<UBA54> \xB8\xDE |0 # HANGUL SYLLABLE MIEUM E
-<UBA55> \xB8\xDF |0 # HANGUL SYLLABLE MIEUM E KIYEOK
-<UBA56> \x91\x48 |0 # HANGUL SYLLABLE MIEUM E SSANGKIYEOK
-<UBA57> \x91\x49 |0 # HANGUL SYLLABLE MIEUM E KIYEOKSIOS
-<UBA58> \xB8\xE0 |0 # HANGUL SYLLABLE MIEUM E NIEUN
-<UBA59> \x91\x4A |0 # HANGUL SYLLABLE MIEUM E NIEUNCIEUC
-<UBA5A> \x91\x4B |0 # HANGUL SYLLABLE MIEUM E NIEUNHIEUH
-<UBA5B> \x91\x4C |0 # HANGUL SYLLABLE MIEUM E TIKEUT
-<UBA5C> \xB8\xE1 |0 # HANGUL SYLLABLE MIEUM E RIEUL
-<UBA5D> \x91\x4D |0 # HANGUL SYLLABLE MIEUM E RIEULKIYEOK
-<UBA5E> \x91\x4E |0 # HANGUL SYLLABLE MIEUM E RIEULMIEUM
-<UBA5F> \x91\x4F |0 # HANGUL SYLLABLE MIEUM E RIEULPIEUP
-<UBA60> \x91\x50 |0 # HANGUL SYLLABLE MIEUM E RIEULSIOS
-<UBA61> \x91\x51 |0 # HANGUL SYLLABLE MIEUM E RIEULTHIEUTH
-<UBA62> \x91\x52 |0 # HANGUL SYLLABLE MIEUM E RIEULPHIEUPH
-<UBA63> \x91\x53 |0 # HANGUL SYLLABLE MIEUM E RIEULHIEUH
-<UBA64> \xB8\xE2 |0 # HANGUL SYLLABLE MIEUM E MIEUM
-<UBA65> \xB8\xE3 |0 # HANGUL SYLLABLE MIEUM E PIEUP
-<UBA66> \x91\x54 |0 # HANGUL SYLLABLE MIEUM E PIEUPSIOS
-<UBA67> \xB8\xE4 |0 # HANGUL SYLLABLE MIEUM E SIOS
-<UBA68> \xB8\xE5 |0 # HANGUL SYLLABLE MIEUM E SSANGSIOS
-<UBA69> \xB8\xE6 |0 # HANGUL SYLLABLE MIEUM E IEUNG
-<UBA6A> \x91\x55 |0 # HANGUL SYLLABLE MIEUM E CIEUC
-<UBA6B> \x91\x56 |0 # HANGUL SYLLABLE MIEUM E CHIEUCH
-<UBA6C> \x91\x57 |0 # HANGUL SYLLABLE MIEUM E KHIEUKH
-<UBA6D> \x91\x58 |0 # HANGUL SYLLABLE MIEUM E THIEUTH
-<UBA6E> \x91\x59 |0 # HANGUL SYLLABLE MIEUM E PHIEUPH
-<UBA6F> \x91\x5A |0 # HANGUL SYLLABLE MIEUM E HIEUH
-<UBA70> \xB8\xE7 |0 # HANGUL SYLLABLE MIEUM YEO
-<UBA71> \xB8\xE8 |0 # HANGUL SYLLABLE MIEUM YEO KIYEOK
-<UBA72> \x91\x61 |0 # HANGUL SYLLABLE MIEUM YEO SSANGKIYEOK
-<UBA73> \x91\x62 |0 # HANGUL SYLLABLE MIEUM YEO KIYEOKSIOS
-<UBA74> \xB8\xE9 |0 # HANGUL SYLLABLE MIEUM YEO NIEUN
-<UBA75> \x91\x63 |0 # HANGUL SYLLABLE MIEUM YEO NIEUNCIEUC
-<UBA76> \x91\x64 |0 # HANGUL SYLLABLE MIEUM YEO NIEUNHIEUH
-<UBA77> \x91\x65 |0 # HANGUL SYLLABLE MIEUM YEO TIKEUT
-<UBA78> \xB8\xEA |0 # HANGUL SYLLABLE MIEUM YEO RIEUL
-<UBA79> \x91\x66 |0 # HANGUL SYLLABLE MIEUM YEO RIEULKIYEOK
-<UBA7A> \x91\x67 |0 # HANGUL SYLLABLE MIEUM YEO RIEULMIEUM
-<UBA7B> \x91\x68 |0 # HANGUL SYLLABLE MIEUM YEO RIEULPIEUP
-<UBA7C> \x91\x69 |0 # HANGUL SYLLABLE MIEUM YEO RIEULSIOS
-<UBA7D> \x91\x6A |0 # HANGUL SYLLABLE MIEUM YEO RIEULTHIEUTH
-<UBA7E> \x91\x6B |0 # HANGUL SYLLABLE MIEUM YEO RIEULPHIEUPH
-<UBA7F> \x91\x6C |0 # HANGUL SYLLABLE MIEUM YEO RIEULHIEUH
-<UBA80> \x91\x6D |0 # HANGUL SYLLABLE MIEUM YEO MIEUM
-<UBA81> \x91\x6E |0 # HANGUL SYLLABLE MIEUM YEO PIEUP
-<UBA82> \x91\x6F |0 # HANGUL SYLLABLE MIEUM YEO PIEUPSIOS
-<UBA83> \xB8\xEB |0 # HANGUL SYLLABLE MIEUM YEO SIOS
-<UBA84> \xB8\xEC |0 # HANGUL SYLLABLE MIEUM YEO SSANGSIOS
-<UBA85> \xB8\xED |0 # HANGUL SYLLABLE MIEUM YEO IEUNG
-<UBA86> \x91\x70 |0 # HANGUL SYLLABLE MIEUM YEO CIEUC
-<UBA87> \xB8\xEE |0 # HANGUL SYLLABLE MIEUM YEO CHIEUCH
-<UBA88> \x91\x71 |0 # HANGUL SYLLABLE MIEUM YEO KHIEUKH
-<UBA89> \x91\x72 |0 # HANGUL SYLLABLE MIEUM YEO THIEUTH
-<UBA8A> \x91\x73 |0 # HANGUL SYLLABLE MIEUM YEO PHIEUPH
-<UBA8B> \x91\x74 |0 # HANGUL SYLLABLE MIEUM YEO HIEUH
-<UBA8C> \xB8\xEF |0 # HANGUL SYLLABLE MIEUM YE
-<UBA8D> \x91\x75 |0 # HANGUL SYLLABLE MIEUM YE KIYEOK
-<UBA8E> \x91\x76 |0 # HANGUL SYLLABLE MIEUM YE SSANGKIYEOK
-<UBA8F> \x91\x77 |0 # HANGUL SYLLABLE MIEUM YE KIYEOKSIOS
-<UBA90> \x91\x78 |0 # HANGUL SYLLABLE MIEUM YE NIEUN
-<UBA91> \x91\x79 |0 # HANGUL SYLLABLE MIEUM YE NIEUNCIEUC
-<UBA92> \x91\x7A |0 # HANGUL SYLLABLE MIEUM YE NIEUNHIEUH
-<UBA93> \x91\x81 |0 # HANGUL SYLLABLE MIEUM YE TIKEUT
-<UBA94> \x91\x82 |0 # HANGUL SYLLABLE MIEUM YE RIEUL
-<UBA95> \x91\x83 |0 # HANGUL SYLLABLE MIEUM YE RIEULKIYEOK
-<UBA96> \x91\x84 |0 # HANGUL SYLLABLE MIEUM YE RIEULMIEUM
-<UBA97> \x91\x85 |0 # HANGUL SYLLABLE MIEUM YE RIEULPIEUP
-<UBA98> \x91\x86 |0 # HANGUL SYLLABLE MIEUM YE RIEULSIOS
-<UBA99> \x91\x87 |0 # HANGUL SYLLABLE MIEUM YE RIEULTHIEUTH
-<UBA9A> \x91\x88 |0 # HANGUL SYLLABLE MIEUM YE RIEULPHIEUPH
-<UBA9B> \x91\x89 |0 # HANGUL SYLLABLE MIEUM YE RIEULHIEUH
-<UBA9C> \x91\x8A |0 # HANGUL SYLLABLE MIEUM YE MIEUM
-<UBA9D> \x91\x8B |0 # HANGUL SYLLABLE MIEUM YE PIEUP
-<UBA9E> \x91\x8C |0 # HANGUL SYLLABLE MIEUM YE PIEUPSIOS
-<UBA9F> \x91\x8D |0 # HANGUL SYLLABLE MIEUM YE SIOS
-<UBAA0> \x91\x8E |0 # HANGUL SYLLABLE MIEUM YE SSANGSIOS
-<UBAA1> \x91\x8F |0 # HANGUL SYLLABLE MIEUM YE IEUNG
-<UBAA2> \x91\x90 |0 # HANGUL SYLLABLE MIEUM YE CIEUC
-<UBAA3> \x91\x91 |0 # HANGUL SYLLABLE MIEUM YE CHIEUCH
-<UBAA4> \x91\x92 |0 # HANGUL SYLLABLE MIEUM YE KHIEUKH
-<UBAA5> \x91\x93 |0 # HANGUL SYLLABLE MIEUM YE THIEUTH
-<UBAA6> \x91\x94 |0 # HANGUL SYLLABLE MIEUM YE PHIEUPH
-<UBAA7> \x91\x95 |0 # HANGUL SYLLABLE MIEUM YE HIEUH
-<UBAA8> \xB8\xF0 |0 # HANGUL SYLLABLE MIEUM O
-<UBAA9> \xB8\xF1 |0 # HANGUL SYLLABLE MIEUM O KIYEOK
-<UBAAA> \x91\x96 |0 # HANGUL SYLLABLE MIEUM O SSANGKIYEOK
-<UBAAB> \xB8\xF2 |0 # HANGUL SYLLABLE MIEUM O KIYEOKSIOS
-<UBAAC> \xB8\xF3 |0 # HANGUL SYLLABLE MIEUM O NIEUN
-<UBAAD> \x91\x97 |0 # HANGUL SYLLABLE MIEUM O NIEUNCIEUC
-<UBAAE> \x91\x98 |0 # HANGUL SYLLABLE MIEUM O NIEUNHIEUH
-<UBAAF> \x91\x99 |0 # HANGUL SYLLABLE MIEUM O TIKEUT
-<UBAB0> \xB8\xF4 |0 # HANGUL SYLLABLE MIEUM O RIEUL
-<UBAB1> \x91\x9A |0 # HANGUL SYLLABLE MIEUM O RIEULKIYEOK
-<UBAB2> \xB8\xF5 |0 # HANGUL SYLLABLE MIEUM O RIEULMIEUM
-<UBAB3> \x91\x9B |0 # HANGUL SYLLABLE MIEUM O RIEULPIEUP
-<UBAB4> \x91\x9C |0 # HANGUL SYLLABLE MIEUM O RIEULSIOS
-<UBAB5> \x91\x9D |0 # HANGUL SYLLABLE MIEUM O RIEULTHIEUTH
-<UBAB6> \x91\x9E |0 # HANGUL SYLLABLE MIEUM O RIEULPHIEUPH
-<UBAB7> \x91\x9F |0 # HANGUL SYLLABLE MIEUM O RIEULHIEUH
-<UBAB8> \xB8\xF6 |0 # HANGUL SYLLABLE MIEUM O MIEUM
-<UBAB9> \xB8\xF7 |0 # HANGUL SYLLABLE MIEUM O PIEUP
-<UBABA> \x91\xA0 |0 # HANGUL SYLLABLE MIEUM O PIEUPSIOS
-<UBABB> \xB8\xF8 |0 # HANGUL SYLLABLE MIEUM O SIOS
-<UBABC> \x91\xA1 |0 # HANGUL SYLLABLE MIEUM O SSANGSIOS
-<UBABD> \xB8\xF9 |0 # HANGUL SYLLABLE MIEUM O IEUNG
-<UBABE> \x91\xA2 |0 # HANGUL SYLLABLE MIEUM O CIEUC
-<UBABF> \x91\xA3 |0 # HANGUL SYLLABLE MIEUM O CHIEUCH
-<UBAC0> \x91\xA4 |0 # HANGUL SYLLABLE MIEUM O KHIEUKH
-<UBAC1> \x91\xA5 |0 # HANGUL SYLLABLE MIEUM O THIEUTH
-<UBAC2> \x91\xA6 |0 # HANGUL SYLLABLE MIEUM O PHIEUPH
-<UBAC3> \x91\xA7 |0 # HANGUL SYLLABLE MIEUM O HIEUH
-<UBAC4> \xB8\xFA |0 # HANGUL SYLLABLE MIEUM WA
-<UBAC5> \x91\xA8 |0 # HANGUL SYLLABLE MIEUM WA KIYEOK
-<UBAC6> \x91\xA9 |0 # HANGUL SYLLABLE MIEUM WA SSANGKIYEOK
-<UBAC7> \x91\xAA |0 # HANGUL SYLLABLE MIEUM WA KIYEOKSIOS
-<UBAC8> \xB8\xFB |0 # HANGUL SYLLABLE MIEUM WA NIEUN
-<UBAC9> \x91\xAB |0 # HANGUL SYLLABLE MIEUM WA NIEUNCIEUC
-<UBACA> \x91\xAC |0 # HANGUL SYLLABLE MIEUM WA NIEUNHIEUH
-<UBACB> \x91\xAD |0 # HANGUL SYLLABLE MIEUM WA TIKEUT
-<UBACC> \x91\xAE |0 # HANGUL SYLLABLE MIEUM WA RIEUL
-<UBACD> \x91\xAF |0 # HANGUL SYLLABLE MIEUM WA RIEULKIYEOK
-<UBACE> \x91\xB0 |0 # HANGUL SYLLABLE MIEUM WA RIEULMIEUM
-<UBACF> \x91\xB1 |0 # HANGUL SYLLABLE MIEUM WA RIEULPIEUP
-<UBAD0> \x91\xB2 |0 # HANGUL SYLLABLE MIEUM WA RIEULSIOS
-<UBAD1> \x91\xB3 |0 # HANGUL SYLLABLE MIEUM WA RIEULTHIEUTH
-<UBAD2> \x91\xB4 |0 # HANGUL SYLLABLE MIEUM WA RIEULPHIEUPH
-<UBAD3> \x91\xB5 |0 # HANGUL SYLLABLE MIEUM WA RIEULHIEUH
-<UBAD4> \x91\xB6 |0 # HANGUL SYLLABLE MIEUM WA MIEUM
-<UBAD5> \x91\xB7 |0 # HANGUL SYLLABLE MIEUM WA PIEUP
-<UBAD6> \x91\xB8 |0 # HANGUL SYLLABLE MIEUM WA PIEUPSIOS
-<UBAD7> \x91\xB9 |0 # HANGUL SYLLABLE MIEUM WA SIOS
-<UBAD8> \xB8\xFC |0 # HANGUL SYLLABLE MIEUM WA SSANGSIOS
-<UBAD9> \xB8\xFD |0 # HANGUL SYLLABLE MIEUM WA IEUNG
-<UBADA> \x91\xBA |0 # HANGUL SYLLABLE MIEUM WA CIEUC
-<UBADB> \x91\xBB |0 # HANGUL SYLLABLE MIEUM WA CHIEUCH
-<UBADC> \x91\xBC |0 # HANGUL SYLLABLE MIEUM WA KHIEUKH
-<UBADD> \x91\xBD |0 # HANGUL SYLLABLE MIEUM WA THIEUTH
-<UBADE> \x91\xBE |0 # HANGUL SYLLABLE MIEUM WA PHIEUPH
-<UBADF> \x91\xBF |0 # HANGUL SYLLABLE MIEUM WA HIEUH
-<UBAE0> \x91\xC0 |0 # HANGUL SYLLABLE MIEUM WAE
-<UBAE1> \x91\xC1 |0 # HANGUL SYLLABLE MIEUM WAE KIYEOK
-<UBAE2> \x91\xC2 |0 # HANGUL SYLLABLE MIEUM WAE SSANGKIYEOK
-<UBAE3> \x91\xC3 |0 # HANGUL SYLLABLE MIEUM WAE KIYEOKSIOS
-<UBAE4> \x91\xC4 |0 # HANGUL SYLLABLE MIEUM WAE NIEUN
-<UBAE5> \x91\xC5 |0 # HANGUL SYLLABLE MIEUM WAE NIEUNCIEUC
-<UBAE6> \x91\xC6 |0 # HANGUL SYLLABLE MIEUM WAE NIEUNHIEUH
-<UBAE7> \x91\xC7 |0 # HANGUL SYLLABLE MIEUM WAE TIKEUT
-<UBAE8> \x91\xC8 |0 # HANGUL SYLLABLE MIEUM WAE RIEUL
-<UBAE9> \x91\xC9 |0 # HANGUL SYLLABLE MIEUM WAE RIEULKIYEOK
-<UBAEA> \x91\xCA |0 # HANGUL SYLLABLE MIEUM WAE RIEULMIEUM
-<UBAEB> \x91\xCB |0 # HANGUL SYLLABLE MIEUM WAE RIEULPIEUP
-<UBAEC> \x91\xCC |0 # HANGUL SYLLABLE MIEUM WAE RIEULSIOS
-<UBAED> \x91\xCD |0 # HANGUL SYLLABLE MIEUM WAE RIEULTHIEUTH
-<UBAEE> \x91\xCE |0 # HANGUL SYLLABLE MIEUM WAE RIEULPHIEUPH
-<UBAEF> \x91\xCF |0 # HANGUL SYLLABLE MIEUM WAE RIEULHIEUH
-<UBAF0> \x91\xD0 |0 # HANGUL SYLLABLE MIEUM WAE MIEUM
-<UBAF1> \x91\xD1 |0 # HANGUL SYLLABLE MIEUM WAE PIEUP
-<UBAF2> \x91\xD2 |0 # HANGUL SYLLABLE MIEUM WAE PIEUPSIOS
-<UBAF3> \x91\xD3 |0 # HANGUL SYLLABLE MIEUM WAE SIOS
-<UBAF4> \x91\xD4 |0 # HANGUL SYLLABLE MIEUM WAE SSANGSIOS
-<UBAF5> \x91\xD5 |0 # HANGUL SYLLABLE MIEUM WAE IEUNG
-<UBAF6> \x91\xD6 |0 # HANGUL SYLLABLE MIEUM WAE CIEUC
-<UBAF7> \x91\xD7 |0 # HANGUL SYLLABLE MIEUM WAE CHIEUCH
-<UBAF8> \x91\xD8 |0 # HANGUL SYLLABLE MIEUM WAE KHIEUKH
-<UBAF9> \x91\xD9 |0 # HANGUL SYLLABLE MIEUM WAE THIEUTH
-<UBAFA> \x91\xDA |0 # HANGUL SYLLABLE MIEUM WAE PHIEUPH
-<UBAFB> \x91\xDB |0 # HANGUL SYLLABLE MIEUM WAE HIEUH
-<UBAFC> \xB8\xFE |0 # HANGUL SYLLABLE MIEUM OE
-<UBAFD> \x91\xDC |0 # HANGUL SYLLABLE MIEUM OE KIYEOK
-<UBAFE> \x91\xDD |0 # HANGUL SYLLABLE MIEUM OE SSANGKIYEOK
-<UBAFF> \x91\xDE |0 # HANGUL SYLLABLE MIEUM OE KIYEOKSIOS
-<UBB00> \xB9\xA1 |0 # HANGUL SYLLABLE MIEUM OE NIEUN
-<UBB01> \x91\xDF |0 # HANGUL SYLLABLE MIEUM OE NIEUNCIEUC
-<UBB02> \x91\xE0 |0 # HANGUL SYLLABLE MIEUM OE NIEUNHIEUH
-<UBB03> \x91\xE1 |0 # HANGUL SYLLABLE MIEUM OE TIKEUT
-<UBB04> \xB9\xA2 |0 # HANGUL SYLLABLE MIEUM OE RIEUL
-<UBB05> \x91\xE2 |0 # HANGUL SYLLABLE MIEUM OE RIEULKIYEOK
-<UBB06> \x91\xE3 |0 # HANGUL SYLLABLE MIEUM OE RIEULMIEUM
-<UBB07> \x91\xE4 |0 # HANGUL SYLLABLE MIEUM OE RIEULPIEUP
-<UBB08> \x91\xE5 |0 # HANGUL SYLLABLE MIEUM OE RIEULSIOS
-<UBB09> \x91\xE6 |0 # HANGUL SYLLABLE MIEUM OE RIEULTHIEUTH
-<UBB0A> \x91\xE7 |0 # HANGUL SYLLABLE MIEUM OE RIEULPHIEUPH
-<UBB0B> \x91\xE8 |0 # HANGUL SYLLABLE MIEUM OE RIEULHIEUH
-<UBB0C> \x91\xE9 |0 # HANGUL SYLLABLE MIEUM OE MIEUM
-<UBB0D> \xB9\xA3 |0 # HANGUL SYLLABLE MIEUM OE PIEUP
-<UBB0E> \x91\xEA |0 # HANGUL SYLLABLE MIEUM OE PIEUPSIOS
-<UBB0F> \xB9\xA4 |0 # HANGUL SYLLABLE MIEUM OE SIOS
-<UBB10> \x91\xEB |0 # HANGUL SYLLABLE MIEUM OE SSANGSIOS
-<UBB11> \xB9\xA5 |0 # HANGUL SYLLABLE MIEUM OE IEUNG
-<UBB12> \x91\xEC |0 # HANGUL SYLLABLE MIEUM OE CIEUC
-<UBB13> \x91\xED |0 # HANGUL SYLLABLE MIEUM OE CHIEUCH
-<UBB14> \x91\xEE |0 # HANGUL SYLLABLE MIEUM OE KHIEUKH
-<UBB15> \x91\xEF |0 # HANGUL SYLLABLE MIEUM OE THIEUTH
-<UBB16> \x91\xF0 |0 # HANGUL SYLLABLE MIEUM OE PHIEUPH
-<UBB17> \x91\xF1 |0 # HANGUL SYLLABLE MIEUM OE HIEUH
-<UBB18> \xB9\xA6 |0 # HANGUL SYLLABLE MIEUM YO
-<UBB19> \x91\xF2 |0 # HANGUL SYLLABLE MIEUM YO KIYEOK
-<UBB1A> \x91\xF3 |0 # HANGUL SYLLABLE MIEUM YO SSANGKIYEOK
-<UBB1B> \x91\xF4 |0 # HANGUL SYLLABLE MIEUM YO KIYEOKSIOS
-<UBB1C> \xB9\xA7 |0 # HANGUL SYLLABLE MIEUM YO NIEUN
-<UBB1D> \x91\xF5 |0 # HANGUL SYLLABLE MIEUM YO NIEUNCIEUC
-<UBB1E> \x91\xF6 |0 # HANGUL SYLLABLE MIEUM YO NIEUNHIEUH
-<UBB1F> \x91\xF7 |0 # HANGUL SYLLABLE MIEUM YO TIKEUT
-<UBB20> \xB9\xA8 |0 # HANGUL SYLLABLE MIEUM YO RIEUL
-<UBB21> \x91\xF8 |0 # HANGUL SYLLABLE MIEUM YO RIEULKIYEOK
-<UBB22> \x91\xF9 |0 # HANGUL SYLLABLE MIEUM YO RIEULMIEUM
-<UBB23> \x91\xFA |0 # HANGUL SYLLABLE MIEUM YO RIEULPIEUP
-<UBB24> \x91\xFB |0 # HANGUL SYLLABLE MIEUM YO RIEULSIOS
-<UBB25> \x91\xFC |0 # HANGUL SYLLABLE MIEUM YO RIEULTHIEUTH
-<UBB26> \x91\xFD |0 # HANGUL SYLLABLE MIEUM YO RIEULPHIEUPH
-<UBB27> \x91\xFE |0 # HANGUL SYLLABLE MIEUM YO RIEULHIEUH
-<UBB28> \x92\x41 |0 # HANGUL SYLLABLE MIEUM YO MIEUM
-<UBB29> \xB9\xA9 |0 # HANGUL SYLLABLE MIEUM YO PIEUP
-<UBB2A> \x92\x42 |0 # HANGUL SYLLABLE MIEUM YO PIEUPSIOS
-<UBB2B> \xB9\xAA |0 # HANGUL SYLLABLE MIEUM YO SIOS
-<UBB2C> \x92\x43 |0 # HANGUL SYLLABLE MIEUM YO SSANGSIOS
-<UBB2D> \x92\x44 |0 # HANGUL SYLLABLE MIEUM YO IEUNG
-<UBB2E> \x92\x45 |0 # HANGUL SYLLABLE MIEUM YO CIEUC
-<UBB2F> \x92\x46 |0 # HANGUL SYLLABLE MIEUM YO CHIEUCH
-<UBB30> \x92\x47 |0 # HANGUL SYLLABLE MIEUM YO KHIEUKH
-<UBB31> \x92\x48 |0 # HANGUL SYLLABLE MIEUM YO THIEUTH
-<UBB32> \x92\x49 |0 # HANGUL SYLLABLE MIEUM YO PHIEUPH
-<UBB33> \x92\x4A |0 # HANGUL SYLLABLE MIEUM YO HIEUH
-<UBB34> \xB9\xAB |0 # HANGUL SYLLABLE MIEUM U
-<UBB35> \xB9\xAC |0 # HANGUL SYLLABLE MIEUM U KIYEOK
-<UBB36> \xB9\xAD |0 # HANGUL SYLLABLE MIEUM U SSANGKIYEOK
-<UBB37> \x92\x4B |0 # HANGUL SYLLABLE MIEUM U KIYEOKSIOS
-<UBB38> \xB9\xAE |0 # HANGUL SYLLABLE MIEUM U NIEUN
-<UBB39> \x92\x4C |0 # HANGUL SYLLABLE MIEUM U NIEUNCIEUC
-<UBB3A> \x92\x4D |0 # HANGUL SYLLABLE MIEUM U NIEUNHIEUH
-<UBB3B> \xB9\xAF |0 # HANGUL SYLLABLE MIEUM U TIKEUT
-<UBB3C> \xB9\xB0 |0 # HANGUL SYLLABLE MIEUM U RIEUL
-<UBB3D> \xB9\xB1 |0 # HANGUL SYLLABLE MIEUM U RIEULKIYEOK
-<UBB3E> \xB9\xB2 |0 # HANGUL SYLLABLE MIEUM U RIEULMIEUM
-<UBB3F> \x92\x4E |0 # HANGUL SYLLABLE MIEUM U RIEULPIEUP
-<UBB40> \x92\x4F |0 # HANGUL SYLLABLE MIEUM U RIEULSIOS
-<UBB41> \x92\x50 |0 # HANGUL SYLLABLE MIEUM U RIEULTHIEUTH
-<UBB42> \x92\x51 |0 # HANGUL SYLLABLE MIEUM U RIEULPHIEUPH
-<UBB43> \x92\x52 |0 # HANGUL SYLLABLE MIEUM U RIEULHIEUH
-<UBB44> \xB9\xB3 |0 # HANGUL SYLLABLE MIEUM U MIEUM
-<UBB45> \xB9\xB4 |0 # HANGUL SYLLABLE MIEUM U PIEUP
-<UBB46> \x92\x53 |0 # HANGUL SYLLABLE MIEUM U PIEUPSIOS
-<UBB47> \xB9\xB5 |0 # HANGUL SYLLABLE MIEUM U SIOS
-<UBB48> \x92\x54 |0 # HANGUL SYLLABLE MIEUM U SSANGSIOS
-<UBB49> \xB9\xB6 |0 # HANGUL SYLLABLE MIEUM U IEUNG
-<UBB4A> \x92\x55 |0 # HANGUL SYLLABLE MIEUM U CIEUC
-<UBB4B> \x92\x56 |0 # HANGUL SYLLABLE MIEUM U CHIEUCH
-<UBB4C> \x92\x57 |0 # HANGUL SYLLABLE MIEUM U KHIEUKH
-<UBB4D> \xB9\xB7 |0 # HANGUL SYLLABLE MIEUM U THIEUTH
-<UBB4E> \x92\x58 |0 # HANGUL SYLLABLE MIEUM U PHIEUPH
-<UBB4F> \xB9\xB8 |0 # HANGUL SYLLABLE MIEUM U HIEUH
-<UBB50> \xB9\xB9 |0 # HANGUL SYLLABLE MIEUM WEO
-<UBB51> \x92\x59 |0 # HANGUL SYLLABLE MIEUM WEO KIYEOK
-<UBB52> \x92\x5A |0 # HANGUL SYLLABLE MIEUM WEO SSANGKIYEOK
-<UBB53> \x92\x61 |0 # HANGUL SYLLABLE MIEUM WEO KIYEOKSIOS
-<UBB54> \xB9\xBA |0 # HANGUL SYLLABLE MIEUM WEO NIEUN
-<UBB55> \x92\x62 |0 # HANGUL SYLLABLE MIEUM WEO NIEUNCIEUC
-<UBB56> \x92\x63 |0 # HANGUL SYLLABLE MIEUM WEO NIEUNHIEUH
-<UBB57> \x92\x64 |0 # HANGUL SYLLABLE MIEUM WEO TIKEUT
-<UBB58> \xB9\xBB |0 # HANGUL SYLLABLE MIEUM WEO RIEUL
-<UBB59> \x92\x65 |0 # HANGUL SYLLABLE MIEUM WEO RIEULKIYEOK
-<UBB5A> \x92\x66 |0 # HANGUL SYLLABLE MIEUM WEO RIEULMIEUM
-<UBB5B> \x92\x67 |0 # HANGUL SYLLABLE MIEUM WEO RIEULPIEUP
-<UBB5C> \x92\x68 |0 # HANGUL SYLLABLE MIEUM WEO RIEULSIOS
-<UBB5D> \x92\x69 |0 # HANGUL SYLLABLE MIEUM WEO RIEULTHIEUTH
-<UBB5E> \x92\x6A |0 # HANGUL SYLLABLE MIEUM WEO RIEULPHIEUPH
-<UBB5F> \x92\x6B |0 # HANGUL SYLLABLE MIEUM WEO RIEULHIEUH
-<UBB60> \x92\x6C |0 # HANGUL SYLLABLE MIEUM WEO MIEUM
-<UBB61> \xB9\xBC |0 # HANGUL SYLLABLE MIEUM WEO PIEUP
-<UBB62> \x92\x6D |0 # HANGUL SYLLABLE MIEUM WEO PIEUPSIOS
-<UBB63> \xB9\xBD |0 # HANGUL SYLLABLE MIEUM WEO SIOS
-<UBB64> \x92\x6E |0 # HANGUL SYLLABLE MIEUM WEO SSANGSIOS
-<UBB65> \x92\x6F |0 # HANGUL SYLLABLE MIEUM WEO IEUNG
-<UBB66> \x92\x70 |0 # HANGUL SYLLABLE MIEUM WEO CIEUC
-<UBB67> \x92\x71 |0 # HANGUL SYLLABLE MIEUM WEO CHIEUCH
-<UBB68> \x92\x72 |0 # HANGUL SYLLABLE MIEUM WEO KHIEUKH
-<UBB69> \x92\x73 |0 # HANGUL SYLLABLE MIEUM WEO THIEUTH
-<UBB6A> \x92\x74 |0 # HANGUL SYLLABLE MIEUM WEO PHIEUPH
-<UBB6B> \x92\x75 |0 # HANGUL SYLLABLE MIEUM WEO HIEUH
-<UBB6C> \xB9\xBE |0 # HANGUL SYLLABLE MIEUM WE
-<UBB6D> \x92\x76 |0 # HANGUL SYLLABLE MIEUM WE KIYEOK
-<UBB6E> \x92\x77 |0 # HANGUL SYLLABLE MIEUM WE SSANGKIYEOK
-<UBB6F> \x92\x78 |0 # HANGUL SYLLABLE MIEUM WE KIYEOKSIOS
-<UBB70> \x92\x79 |0 # HANGUL SYLLABLE MIEUM WE NIEUN
-<UBB71> \x92\x7A |0 # HANGUL SYLLABLE MIEUM WE NIEUNCIEUC
-<UBB72> \x92\x81 |0 # HANGUL SYLLABLE MIEUM WE NIEUNHIEUH
-<UBB73> \x92\x82 |0 # HANGUL SYLLABLE MIEUM WE TIKEUT
-<UBB74> \x92\x83 |0 # HANGUL SYLLABLE MIEUM WE RIEUL
-<UBB75> \x92\x84 |0 # HANGUL SYLLABLE MIEUM WE RIEULKIYEOK
-<UBB76> \x92\x85 |0 # HANGUL SYLLABLE MIEUM WE RIEULMIEUM
-<UBB77> \x92\x86 |0 # HANGUL SYLLABLE MIEUM WE RIEULPIEUP
-<UBB78> \x92\x87 |0 # HANGUL SYLLABLE MIEUM WE RIEULSIOS
-<UBB79> \x92\x88 |0 # HANGUL SYLLABLE MIEUM WE RIEULTHIEUTH
-<UBB7A> \x92\x89 |0 # HANGUL SYLLABLE MIEUM WE RIEULPHIEUPH
-<UBB7B> \x92\x8A |0 # HANGUL SYLLABLE MIEUM WE RIEULHIEUH
-<UBB7C> \x92\x8B |0 # HANGUL SYLLABLE MIEUM WE MIEUM
-<UBB7D> \x92\x8C |0 # HANGUL SYLLABLE MIEUM WE PIEUP
-<UBB7E> \x92\x8D |0 # HANGUL SYLLABLE MIEUM WE PIEUPSIOS
-<UBB7F> \x92\x8E |0 # HANGUL SYLLABLE MIEUM WE SIOS
-<UBB80> \x92\x8F |0 # HANGUL SYLLABLE MIEUM WE SSANGSIOS
-<UBB81> \x92\x90 |0 # HANGUL SYLLABLE MIEUM WE IEUNG
-<UBB82> \x92\x91 |0 # HANGUL SYLLABLE MIEUM WE CIEUC
-<UBB83> \x92\x92 |0 # HANGUL SYLLABLE MIEUM WE CHIEUCH
-<UBB84> \x92\x93 |0 # HANGUL SYLLABLE MIEUM WE KHIEUKH
-<UBB85> \x92\x94 |0 # HANGUL SYLLABLE MIEUM WE THIEUTH
-<UBB86> \x92\x95 |0 # HANGUL SYLLABLE MIEUM WE PHIEUPH
-<UBB87> \x92\x96 |0 # HANGUL SYLLABLE MIEUM WE HIEUH
-<UBB88> \xB9\xBF |0 # HANGUL SYLLABLE MIEUM WI
-<UBB89> \x92\x97 |0 # HANGUL SYLLABLE MIEUM WI KIYEOK
-<UBB8A> \x92\x98 |0 # HANGUL SYLLABLE MIEUM WI SSANGKIYEOK
-<UBB8B> \x92\x99 |0 # HANGUL SYLLABLE MIEUM WI KIYEOKSIOS
-<UBB8C> \xB9\xC0 |0 # HANGUL SYLLABLE MIEUM WI NIEUN
-<UBB8D> \x92\x9A |0 # HANGUL SYLLABLE MIEUM WI NIEUNCIEUC
-<UBB8E> \x92\x9B |0 # HANGUL SYLLABLE MIEUM WI NIEUNHIEUH
-<UBB8F> \x92\x9C |0 # HANGUL SYLLABLE MIEUM WI TIKEUT
-<UBB90> \xB9\xC1 |0 # HANGUL SYLLABLE MIEUM WI RIEUL
-<UBB91> \x92\x9D |0 # HANGUL SYLLABLE MIEUM WI RIEULKIYEOK
-<UBB92> \x92\x9E |0 # HANGUL SYLLABLE MIEUM WI RIEULMIEUM
-<UBB93> \x92\x9F |0 # HANGUL SYLLABLE MIEUM WI RIEULPIEUP
-<UBB94> \x92\xA0 |0 # HANGUL SYLLABLE MIEUM WI RIEULSIOS
-<UBB95> \x92\xA1 |0 # HANGUL SYLLABLE MIEUM WI RIEULTHIEUTH
-<UBB96> \x92\xA2 |0 # HANGUL SYLLABLE MIEUM WI RIEULPHIEUPH
-<UBB97> \x92\xA3 |0 # HANGUL SYLLABLE MIEUM WI RIEULHIEUH
-<UBB98> \x92\xA4 |0 # HANGUL SYLLABLE MIEUM WI MIEUM
-<UBB99> \x92\xA5 |0 # HANGUL SYLLABLE MIEUM WI PIEUP
-<UBB9A> \x92\xA6 |0 # HANGUL SYLLABLE MIEUM WI PIEUPSIOS
-<UBB9B> \x92\xA7 |0 # HANGUL SYLLABLE MIEUM WI SIOS
-<UBB9C> \x92\xA8 |0 # HANGUL SYLLABLE MIEUM WI SSANGSIOS
-<UBB9D> \x92\xA9 |0 # HANGUL SYLLABLE MIEUM WI IEUNG
-<UBB9E> \x92\xAA |0 # HANGUL SYLLABLE MIEUM WI CIEUC
-<UBB9F> \x92\xAB |0 # HANGUL SYLLABLE MIEUM WI CHIEUCH
-<UBBA0> \x92\xAC |0 # HANGUL SYLLABLE MIEUM WI KHIEUKH
-<UBBA1> \x92\xAD |0 # HANGUL SYLLABLE MIEUM WI THIEUTH
-<UBBA2> \x92\xAE |0 # HANGUL SYLLABLE MIEUM WI PHIEUPH
-<UBBA3> \x92\xAF |0 # HANGUL SYLLABLE MIEUM WI HIEUH
-<UBBA4> \xB9\xC2 |0 # HANGUL SYLLABLE MIEUM YU
-<UBBA5> \x92\xB0 |0 # HANGUL SYLLABLE MIEUM YU KIYEOK
-<UBBA6> \x92\xB1 |0 # HANGUL SYLLABLE MIEUM YU SSANGKIYEOK
-<UBBA7> \x92\xB2 |0 # HANGUL SYLLABLE MIEUM YU KIYEOKSIOS
-<UBBA8> \xB9\xC3 |0 # HANGUL SYLLABLE MIEUM YU NIEUN
-<UBBA9> \x92\xB3 |0 # HANGUL SYLLABLE MIEUM YU NIEUNCIEUC
-<UBBAA> \x92\xB4 |0 # HANGUL SYLLABLE MIEUM YU NIEUNHIEUH
-<UBBAB> \x92\xB5 |0 # HANGUL SYLLABLE MIEUM YU TIKEUT
-<UBBAC> \xB9\xC4 |0 # HANGUL SYLLABLE MIEUM YU RIEUL
-<UBBAD> \x92\xB6 |0 # HANGUL SYLLABLE MIEUM YU RIEULKIYEOK
-<UBBAE> \x92\xB7 |0 # HANGUL SYLLABLE MIEUM YU RIEULMIEUM
-<UBBAF> \x92\xB8 |0 # HANGUL SYLLABLE MIEUM YU RIEULPIEUP
-<UBBB0> \x92\xB9 |0 # HANGUL SYLLABLE MIEUM YU RIEULSIOS
-<UBBB1> \x92\xBA |0 # HANGUL SYLLABLE MIEUM YU RIEULTHIEUTH
-<UBBB2> \x92\xBB |0 # HANGUL SYLLABLE MIEUM YU RIEULPHIEUPH
-<UBBB3> \x92\xBC |0 # HANGUL SYLLABLE MIEUM YU RIEULHIEUH
-<UBBB4> \xB9\xC5 |0 # HANGUL SYLLABLE MIEUM YU MIEUM
-<UBBB5> \x92\xBD |0 # HANGUL SYLLABLE MIEUM YU PIEUP
-<UBBB6> \x92\xBE |0 # HANGUL SYLLABLE MIEUM YU PIEUPSIOS
-<UBBB7> \xB9\xC6 |0 # HANGUL SYLLABLE MIEUM YU SIOS
-<UBBB8> \x92\xBF |0 # HANGUL SYLLABLE MIEUM YU SSANGSIOS
-<UBBB9> \x92\xC0 |0 # HANGUL SYLLABLE MIEUM YU IEUNG
-<UBBBA> \x92\xC1 |0 # HANGUL SYLLABLE MIEUM YU CIEUC
-<UBBBB> \x92\xC2 |0 # HANGUL SYLLABLE MIEUM YU CHIEUCH
-<UBBBC> \x92\xC3 |0 # HANGUL SYLLABLE MIEUM YU KHIEUKH
-<UBBBD> \x92\xC4 |0 # HANGUL SYLLABLE MIEUM YU THIEUTH
-<UBBBE> \x92\xC5 |0 # HANGUL SYLLABLE MIEUM YU PHIEUPH
-<UBBBF> \x92\xC6 |0 # HANGUL SYLLABLE MIEUM YU HIEUH
-<UBBC0> \xB9\xC7 |0 # HANGUL SYLLABLE MIEUM EU
-<UBBC1> \x92\xC7 |0 # HANGUL SYLLABLE MIEUM EU KIYEOK
-<UBBC2> \x92\xC8 |0 # HANGUL SYLLABLE MIEUM EU SSANGKIYEOK
-<UBBC3> \x92\xC9 |0 # HANGUL SYLLABLE MIEUM EU KIYEOKSIOS
-<UBBC4> \xB9\xC8 |0 # HANGUL SYLLABLE MIEUM EU NIEUN
-<UBBC5> \x92\xCA |0 # HANGUL SYLLABLE MIEUM EU NIEUNCIEUC
-<UBBC6> \x92\xCB |0 # HANGUL SYLLABLE MIEUM EU NIEUNHIEUH
-<UBBC7> \x92\xCC |0 # HANGUL SYLLABLE MIEUM EU TIKEUT
-<UBBC8> \xB9\xC9 |0 # HANGUL SYLLABLE MIEUM EU RIEUL
-<UBBC9> \x92\xCD |0 # HANGUL SYLLABLE MIEUM EU RIEULKIYEOK
-<UBBCA> \x92\xCE |0 # HANGUL SYLLABLE MIEUM EU RIEULMIEUM
-<UBBCB> \x92\xCF |0 # HANGUL SYLLABLE MIEUM EU RIEULPIEUP
-<UBBCC> \x92\xD0 |0 # HANGUL SYLLABLE MIEUM EU RIEULSIOS
-<UBBCD> \x92\xD1 |0 # HANGUL SYLLABLE MIEUM EU RIEULTHIEUTH
-<UBBCE> \x92\xD2 |0 # HANGUL SYLLABLE MIEUM EU RIEULPHIEUPH
-<UBBCF> \x92\xD3 |0 # HANGUL SYLLABLE MIEUM EU RIEULHIEUH
-<UBBD0> \xB9\xCA |0 # HANGUL SYLLABLE MIEUM EU MIEUM
-<UBBD1> \x92\xD4 |0 # HANGUL SYLLABLE MIEUM EU PIEUP
-<UBBD2> \x92\xD5 |0 # HANGUL SYLLABLE MIEUM EU PIEUPSIOS
-<UBBD3> \xB9\xCB |0 # HANGUL SYLLABLE MIEUM EU SIOS
-<UBBD4> \x92\xD6 |0 # HANGUL SYLLABLE MIEUM EU SSANGSIOS
-<UBBD5> \x92\xD7 |0 # HANGUL SYLLABLE MIEUM EU IEUNG
-<UBBD6> \x92\xD8 |0 # HANGUL SYLLABLE MIEUM EU CIEUC
-<UBBD7> \x92\xD9 |0 # HANGUL SYLLABLE MIEUM EU CHIEUCH
-<UBBD8> \x92\xDA |0 # HANGUL SYLLABLE MIEUM EU KHIEUKH
-<UBBD9> \x92\xDB |0 # HANGUL SYLLABLE MIEUM EU THIEUTH
-<UBBDA> \x92\xDC |0 # HANGUL SYLLABLE MIEUM EU PHIEUPH
-<UBBDB> \x92\xDD |0 # HANGUL SYLLABLE MIEUM EU HIEUH
-<UBBDC> \x92\xDE |0 # HANGUL SYLLABLE MIEUM YI
-<UBBDD> \x92\xDF |0 # HANGUL SYLLABLE MIEUM YI KIYEOK
-<UBBDE> \x92\xE0 |0 # HANGUL SYLLABLE MIEUM YI SSANGKIYEOK
-<UBBDF> \x92\xE1 |0 # HANGUL SYLLABLE MIEUM YI KIYEOKSIOS
-<UBBE0> \x92\xE2 |0 # HANGUL SYLLABLE MIEUM YI NIEUN
-<UBBE1> \x92\xE3 |0 # HANGUL SYLLABLE MIEUM YI NIEUNCIEUC
-<UBBE2> \x92\xE4 |0 # HANGUL SYLLABLE MIEUM YI NIEUNHIEUH
-<UBBE3> \x92\xE5 |0 # HANGUL SYLLABLE MIEUM YI TIKEUT
-<UBBE4> \x92\xE6 |0 # HANGUL SYLLABLE MIEUM YI RIEUL
-<UBBE5> \x92\xE7 |0 # HANGUL SYLLABLE MIEUM YI RIEULKIYEOK
-<UBBE6> \x92\xE8 |0 # HANGUL SYLLABLE MIEUM YI RIEULMIEUM
-<UBBE7> \x92\xE9 |0 # HANGUL SYLLABLE MIEUM YI RIEULPIEUP
-<UBBE8> \x92\xEA |0 # HANGUL SYLLABLE MIEUM YI RIEULSIOS
-<UBBE9> \x92\xEB |0 # HANGUL SYLLABLE MIEUM YI RIEULTHIEUTH
-<UBBEA> \x92\xEC |0 # HANGUL SYLLABLE MIEUM YI RIEULPHIEUPH
-<UBBEB> \x92\xED |0 # HANGUL SYLLABLE MIEUM YI RIEULHIEUH
-<UBBEC> \x92\xEE |0 # HANGUL SYLLABLE MIEUM YI MIEUM
-<UBBED> \x92\xEF |0 # HANGUL SYLLABLE MIEUM YI PIEUP
-<UBBEE> \x92\xF0 |0 # HANGUL SYLLABLE MIEUM YI PIEUPSIOS
-<UBBEF> \x92\xF1 |0 # HANGUL SYLLABLE MIEUM YI SIOS
-<UBBF0> \x92\xF2 |0 # HANGUL SYLLABLE MIEUM YI SSANGSIOS
-<UBBF1> \x92\xF3 |0 # HANGUL SYLLABLE MIEUM YI IEUNG
-<UBBF2> \x92\xF4 |0 # HANGUL SYLLABLE MIEUM YI CIEUC
-<UBBF3> \x92\xF5 |0 # HANGUL SYLLABLE MIEUM YI CHIEUCH
-<UBBF4> \x92\xF6 |0 # HANGUL SYLLABLE MIEUM YI KHIEUKH
-<UBBF5> \x92\xF7 |0 # HANGUL SYLLABLE MIEUM YI THIEUTH
-<UBBF6> \x92\xF8 |0 # HANGUL SYLLABLE MIEUM YI PHIEUPH
-<UBBF7> \x92\xF9 |0 # HANGUL SYLLABLE MIEUM YI HIEUH
-<UBBF8> \xB9\xCC |0 # HANGUL SYLLABLE MIEUM I
-<UBBF9> \xB9\xCD |0 # HANGUL SYLLABLE MIEUM I KIYEOK
-<UBBFA> \x92\xFA |0 # HANGUL SYLLABLE MIEUM I SSANGKIYEOK
-<UBBFB> \x92\xFB |0 # HANGUL SYLLABLE MIEUM I KIYEOKSIOS
-<UBBFC> \xB9\xCE |0 # HANGUL SYLLABLE MIEUM I NIEUN
-<UBBFD> \x92\xFC |0 # HANGUL SYLLABLE MIEUM I NIEUNCIEUC
-<UBBFE> \x92\xFD |0 # HANGUL SYLLABLE MIEUM I NIEUNHIEUH
-<UBBFF> \xB9\xCF |0 # HANGUL SYLLABLE MIEUM I TIKEUT
-<UBC00> \xB9\xD0 |0 # HANGUL SYLLABLE MIEUM I RIEUL
-<UBC01> \x92\xFE |0 # HANGUL SYLLABLE MIEUM I RIEULKIYEOK
-<UBC02> \xB9\xD1 |0 # HANGUL SYLLABLE MIEUM I RIEULMIEUM
-<UBC03> \x93\x41 |0 # HANGUL SYLLABLE MIEUM I RIEULPIEUP
-<UBC04> \x93\x42 |0 # HANGUL SYLLABLE MIEUM I RIEULSIOS
-<UBC05> \x93\x43 |0 # HANGUL SYLLABLE MIEUM I RIEULTHIEUTH
-<UBC06> \x93\x44 |0 # HANGUL SYLLABLE MIEUM I RIEULPHIEUPH
-<UBC07> \x93\x45 |0 # HANGUL SYLLABLE MIEUM I RIEULHIEUH
-<UBC08> \xB9\xD2 |0 # HANGUL SYLLABLE MIEUM I MIEUM
-<UBC09> \xB9\xD3 |0 # HANGUL SYLLABLE MIEUM I PIEUP
-<UBC0A> \x93\x46 |0 # HANGUL SYLLABLE MIEUM I PIEUPSIOS
-<UBC0B> \xB9\xD4 |0 # HANGUL SYLLABLE MIEUM I SIOS
-<UBC0C> \xB9\xD5 |0 # HANGUL SYLLABLE MIEUM I SSANGSIOS
-<UBC0D> \xB9\xD6 |0 # HANGUL SYLLABLE MIEUM I IEUNG
-<UBC0E> \x93\x47 |0 # HANGUL SYLLABLE MIEUM I CIEUC
-<UBC0F> \xB9\xD7 |0 # HANGUL SYLLABLE MIEUM I CHIEUCH
-<UBC10> \x93\x48 |0 # HANGUL SYLLABLE MIEUM I KHIEUKH
-<UBC11> \xB9\xD8 |0 # HANGUL SYLLABLE MIEUM I THIEUTH
-<UBC12> \x93\x49 |0 # HANGUL SYLLABLE MIEUM I PHIEUPH
-<UBC13> \x93\x4A |0 # HANGUL SYLLABLE MIEUM I HIEUH
-<UBC14> \xB9\xD9 |0 # HANGUL SYLLABLE PIEUP A
-<UBC15> \xB9\xDA |0 # HANGUL SYLLABLE PIEUP A KIYEOK
-<UBC16> \xB9\xDB |0 # HANGUL SYLLABLE PIEUP A SSANGKIYEOK
-<UBC17> \xB9\xDC |0 # HANGUL SYLLABLE PIEUP A KIYEOKSIOS
-<UBC18> \xB9\xDD |0 # HANGUL SYLLABLE PIEUP A NIEUN
-<UBC19> \x93\x4B |0 # HANGUL SYLLABLE PIEUP A NIEUNCIEUC
-<UBC1A> \x93\x4C |0 # HANGUL SYLLABLE PIEUP A NIEUNHIEUH
-<UBC1B> \xB9\xDE |0 # HANGUL SYLLABLE PIEUP A TIKEUT
-<UBC1C> \xB9\xDF |0 # HANGUL SYLLABLE PIEUP A RIEUL
-<UBC1D> \xB9\xE0 |0 # HANGUL SYLLABLE PIEUP A RIEULKIYEOK
-<UBC1E> \xB9\xE1 |0 # HANGUL SYLLABLE PIEUP A RIEULMIEUM
-<UBC1F> \xB9\xE2 |0 # HANGUL SYLLABLE PIEUP A RIEULPIEUP
-<UBC20> \x93\x4D |0 # HANGUL SYLLABLE PIEUP A RIEULSIOS
-<UBC21> \x93\x4E |0 # HANGUL SYLLABLE PIEUP A RIEULTHIEUTH
-<UBC22> \x93\x4F |0 # HANGUL SYLLABLE PIEUP A RIEULPHIEUPH
-<UBC23> \x93\x50 |0 # HANGUL SYLLABLE PIEUP A RIEULHIEUH
-<UBC24> \xB9\xE3 |0 # HANGUL SYLLABLE PIEUP A MIEUM
-<UBC25> \xB9\xE4 |0 # HANGUL SYLLABLE PIEUP A PIEUP
-<UBC26> \x93\x51 |0 # HANGUL SYLLABLE PIEUP A PIEUPSIOS
-<UBC27> \xB9\xE5 |0 # HANGUL SYLLABLE PIEUP A SIOS
-<UBC28> \x93\x52 |0 # HANGUL SYLLABLE PIEUP A SSANGSIOS
-<UBC29> \xB9\xE6 |0 # HANGUL SYLLABLE PIEUP A IEUNG
-<UBC2A> \x93\x53 |0 # HANGUL SYLLABLE PIEUP A CIEUC
-<UBC2B> \x93\x54 |0 # HANGUL SYLLABLE PIEUP A CHIEUCH
-<UBC2C> \x93\x55 |0 # HANGUL SYLLABLE PIEUP A KHIEUKH
-<UBC2D> \xB9\xE7 |0 # HANGUL SYLLABLE PIEUP A THIEUTH
-<UBC2E> \x93\x56 |0 # HANGUL SYLLABLE PIEUP A PHIEUPH
-<UBC2F> \x93\x57 |0 # HANGUL SYLLABLE PIEUP A HIEUH
-<UBC30> \xB9\xE8 |0 # HANGUL SYLLABLE PIEUP AE
-<UBC31> \xB9\xE9 |0 # HANGUL SYLLABLE PIEUP AE KIYEOK
-<UBC32> \x93\x58 |0 # HANGUL SYLLABLE PIEUP AE SSANGKIYEOK
-<UBC33> \x93\x59 |0 # HANGUL SYLLABLE PIEUP AE KIYEOKSIOS
-<UBC34> \xB9\xEA |0 # HANGUL SYLLABLE PIEUP AE NIEUN
-<UBC35> \x93\x5A |0 # HANGUL SYLLABLE PIEUP AE NIEUNCIEUC
-<UBC36> \x93\x61 |0 # HANGUL SYLLABLE PIEUP AE NIEUNHIEUH
-<UBC37> \x93\x62 |0 # HANGUL SYLLABLE PIEUP AE TIKEUT
-<UBC38> \xB9\xEB |0 # HANGUL SYLLABLE PIEUP AE RIEUL
-<UBC39> \x93\x63 |0 # HANGUL SYLLABLE PIEUP AE RIEULKIYEOK
-<UBC3A> \x93\x64 |0 # HANGUL SYLLABLE PIEUP AE RIEULMIEUM
-<UBC3B> \x93\x65 |0 # HANGUL SYLLABLE PIEUP AE RIEULPIEUP
-<UBC3C> \x93\x66 |0 # HANGUL SYLLABLE PIEUP AE RIEULSIOS
-<UBC3D> \x93\x67 |0 # HANGUL SYLLABLE PIEUP AE RIEULTHIEUTH
-<UBC3E> \x93\x68 |0 # HANGUL SYLLABLE PIEUP AE RIEULPHIEUPH
-<UBC3F> \x93\x69 |0 # HANGUL SYLLABLE PIEUP AE RIEULHIEUH
-<UBC40> \xB9\xEC |0 # HANGUL SYLLABLE PIEUP AE MIEUM
-<UBC41> \xB9\xED |0 # HANGUL SYLLABLE PIEUP AE PIEUP
-<UBC42> \x93\x6A |0 # HANGUL SYLLABLE PIEUP AE PIEUPSIOS
-<UBC43> \xB9\xEE |0 # HANGUL SYLLABLE PIEUP AE SIOS
-<UBC44> \xB9\xEF |0 # HANGUL SYLLABLE PIEUP AE SSANGSIOS
-<UBC45> \xB9\xF0 |0 # HANGUL SYLLABLE PIEUP AE IEUNG
-<UBC46> \x93\x6B |0 # HANGUL SYLLABLE PIEUP AE CIEUC
-<UBC47> \x93\x6C |0 # HANGUL SYLLABLE PIEUP AE CHIEUCH
-<UBC48> \x93\x6D |0 # HANGUL SYLLABLE PIEUP AE KHIEUKH
-<UBC49> \xB9\xF1 |0 # HANGUL SYLLABLE PIEUP AE THIEUTH
-<UBC4A> \x93\x6E |0 # HANGUL SYLLABLE PIEUP AE PHIEUPH
-<UBC4B> \x93\x6F |0 # HANGUL SYLLABLE PIEUP AE HIEUH
-<UBC4C> \xB9\xF2 |0 # HANGUL SYLLABLE PIEUP YA
-<UBC4D> \xB9\xF3 |0 # HANGUL SYLLABLE PIEUP YA KIYEOK
-<UBC4E> \x93\x70 |0 # HANGUL SYLLABLE PIEUP YA SSANGKIYEOK
-<UBC4F> \x93\x71 |0 # HANGUL SYLLABLE PIEUP YA KIYEOKSIOS
-<UBC50> \xB9\xF4 |0 # HANGUL SYLLABLE PIEUP YA NIEUN
-<UBC51> \x93\x72 |0 # HANGUL SYLLABLE PIEUP YA NIEUNCIEUC
-<UBC52> \x93\x73 |0 # HANGUL SYLLABLE PIEUP YA NIEUNHIEUH
-<UBC53> \x93\x74 |0 # HANGUL SYLLABLE PIEUP YA TIKEUT
-<UBC54> \x93\x75 |0 # HANGUL SYLLABLE PIEUP YA RIEUL
-<UBC55> \x93\x76 |0 # HANGUL SYLLABLE PIEUP YA RIEULKIYEOK
-<UBC56> \x93\x77 |0 # HANGUL SYLLABLE PIEUP YA RIEULMIEUM
-<UBC57> \x93\x78 |0 # HANGUL SYLLABLE PIEUP YA RIEULPIEUP
-<UBC58> \x93\x79 |0 # HANGUL SYLLABLE PIEUP YA RIEULSIOS
-<UBC59> \x93\x7A |0 # HANGUL SYLLABLE PIEUP YA RIEULTHIEUTH
-<UBC5A> \x93\x81 |0 # HANGUL SYLLABLE PIEUP YA RIEULPHIEUPH
-<UBC5B> \x93\x82 |0 # HANGUL SYLLABLE PIEUP YA RIEULHIEUH
-<UBC5C> \x93\x83 |0 # HANGUL SYLLABLE PIEUP YA MIEUM
-<UBC5D> \xB9\xF5 |0 # HANGUL SYLLABLE PIEUP YA PIEUP
-<UBC5E> \x93\x84 |0 # HANGUL SYLLABLE PIEUP YA PIEUPSIOS
-<UBC5F> \x93\x85 |0 # HANGUL SYLLABLE PIEUP YA SIOS
-<UBC60> \x93\x86 |0 # HANGUL SYLLABLE PIEUP YA SSANGSIOS
-<UBC61> \x93\x87 |0 # HANGUL SYLLABLE PIEUP YA IEUNG
-<UBC62> \x93\x88 |0 # HANGUL SYLLABLE PIEUP YA CIEUC
-<UBC63> \x93\x89 |0 # HANGUL SYLLABLE PIEUP YA CHIEUCH
-<UBC64> \x93\x8A |0 # HANGUL SYLLABLE PIEUP YA KHIEUKH
-<UBC65> \x93\x8B |0 # HANGUL SYLLABLE PIEUP YA THIEUTH
-<UBC66> \x93\x8C |0 # HANGUL SYLLABLE PIEUP YA PHIEUPH
-<UBC67> \x93\x8D |0 # HANGUL SYLLABLE PIEUP YA HIEUH
-<UBC68> \x93\x8E |0 # HANGUL SYLLABLE PIEUP YAE
-<UBC69> \x93\x8F |0 # HANGUL SYLLABLE PIEUP YAE KIYEOK
-<UBC6A> \x93\x90 |0 # HANGUL SYLLABLE PIEUP YAE SSANGKIYEOK
-<UBC6B> \x93\x91 |0 # HANGUL SYLLABLE PIEUP YAE KIYEOKSIOS
-<UBC6C> \x93\x92 |0 # HANGUL SYLLABLE PIEUP YAE NIEUN
-<UBC6D> \x93\x93 |0 # HANGUL SYLLABLE PIEUP YAE NIEUNCIEUC
-<UBC6E> \x93\x94 |0 # HANGUL SYLLABLE PIEUP YAE NIEUNHIEUH
-<UBC6F> \x93\x95 |0 # HANGUL SYLLABLE PIEUP YAE TIKEUT
-<UBC70> \x93\x96 |0 # HANGUL SYLLABLE PIEUP YAE RIEUL
-<UBC71> \x93\x97 |0 # HANGUL SYLLABLE PIEUP YAE RIEULKIYEOK
-<UBC72> \x93\x98 |0 # HANGUL SYLLABLE PIEUP YAE RIEULMIEUM
-<UBC73> \x93\x99 |0 # HANGUL SYLLABLE PIEUP YAE RIEULPIEUP
-<UBC74> \x93\x9A |0 # HANGUL SYLLABLE PIEUP YAE RIEULSIOS
-<UBC75> \x93\x9B |0 # HANGUL SYLLABLE PIEUP YAE RIEULTHIEUTH
-<UBC76> \x93\x9C |0 # HANGUL SYLLABLE PIEUP YAE RIEULPHIEUPH
-<UBC77> \x93\x9D |0 # HANGUL SYLLABLE PIEUP YAE RIEULHIEUH
-<UBC78> \x93\x9E |0 # HANGUL SYLLABLE PIEUP YAE MIEUM
-<UBC79> \x93\x9F |0 # HANGUL SYLLABLE PIEUP YAE PIEUP
-<UBC7A> \x93\xA0 |0 # HANGUL SYLLABLE PIEUP YAE PIEUPSIOS
-<UBC7B> \x93\xA1 |0 # HANGUL SYLLABLE PIEUP YAE SIOS
-<UBC7C> \x93\xA2 |0 # HANGUL SYLLABLE PIEUP YAE SSANGSIOS
-<UBC7D> \x93\xA3 |0 # HANGUL SYLLABLE PIEUP YAE IEUNG
-<UBC7E> \x93\xA4 |0 # HANGUL SYLLABLE PIEUP YAE CIEUC
-<UBC7F> \x93\xA5 |0 # HANGUL SYLLABLE PIEUP YAE CHIEUCH
-<UBC80> \x93\xA6 |0 # HANGUL SYLLABLE PIEUP YAE KHIEUKH
-<UBC81> \x93\xA7 |0 # HANGUL SYLLABLE PIEUP YAE THIEUTH
-<UBC82> \x93\xA8 |0 # HANGUL SYLLABLE PIEUP YAE PHIEUPH
-<UBC83> \x93\xA9 |0 # HANGUL SYLLABLE PIEUP YAE HIEUH
-<UBC84> \xB9\xF6 |0 # HANGUL SYLLABLE PIEUP EO
-<UBC85> \xB9\xF7 |0 # HANGUL SYLLABLE PIEUP EO KIYEOK
-<UBC86> \x93\xAA |0 # HANGUL SYLLABLE PIEUP EO SSANGKIYEOK
-<UBC87> \x93\xAB |0 # HANGUL SYLLABLE PIEUP EO KIYEOKSIOS
-<UBC88> \xB9\xF8 |0 # HANGUL SYLLABLE PIEUP EO NIEUN
-<UBC89> \x93\xAC |0 # HANGUL SYLLABLE PIEUP EO NIEUNCIEUC
-<UBC8A> \x93\xAD |0 # HANGUL SYLLABLE PIEUP EO NIEUNHIEUH
-<UBC8B> \xB9\xF9 |0 # HANGUL SYLLABLE PIEUP EO TIKEUT
-<UBC8C> \xB9\xFA |0 # HANGUL SYLLABLE PIEUP EO RIEUL
-<UBC8D> \x93\xAE |0 # HANGUL SYLLABLE PIEUP EO RIEULKIYEOK
-<UBC8E> \xB9\xFB |0 # HANGUL SYLLABLE PIEUP EO RIEULMIEUM
-<UBC8F> \x93\xAF |0 # HANGUL SYLLABLE PIEUP EO RIEULPIEUP
-<UBC90> \x93\xB0 |0 # HANGUL SYLLABLE PIEUP EO RIEULSIOS
-<UBC91> \x93\xB1 |0 # HANGUL SYLLABLE PIEUP EO RIEULTHIEUTH
-<UBC92> \x93\xB2 |0 # HANGUL SYLLABLE PIEUP EO RIEULPHIEUPH
-<UBC93> \x93\xB3 |0 # HANGUL SYLLABLE PIEUP EO RIEULHIEUH
-<UBC94> \xB9\xFC |0 # HANGUL SYLLABLE PIEUP EO MIEUM
-<UBC95> \xB9\xFD |0 # HANGUL SYLLABLE PIEUP EO PIEUP
-<UBC96> \x93\xB4 |0 # HANGUL SYLLABLE PIEUP EO PIEUPSIOS
-<UBC97> \xB9\xFE |0 # HANGUL SYLLABLE PIEUP EO SIOS
-<UBC98> \x93\xB5 |0 # HANGUL SYLLABLE PIEUP EO SSANGSIOS
-<UBC99> \xBA\xA1 |0 # HANGUL SYLLABLE PIEUP EO IEUNG
-<UBC9A> \xBA\xA2 |0 # HANGUL SYLLABLE PIEUP EO CIEUC
-<UBC9B> \x93\xB6 |0 # HANGUL SYLLABLE PIEUP EO CHIEUCH
-<UBC9C> \x93\xB7 |0 # HANGUL SYLLABLE PIEUP EO KHIEUKH
-<UBC9D> \x93\xB8 |0 # HANGUL SYLLABLE PIEUP EO THIEUTH
-<UBC9E> \x93\xB9 |0 # HANGUL SYLLABLE PIEUP EO PHIEUPH
-<UBC9F> \x93\xBA |0 # HANGUL SYLLABLE PIEUP EO HIEUH
-<UBCA0> \xBA\xA3 |0 # HANGUL SYLLABLE PIEUP E
-<UBCA1> \xBA\xA4 |0 # HANGUL SYLLABLE PIEUP E KIYEOK
-<UBCA2> \x93\xBB |0 # HANGUL SYLLABLE PIEUP E SSANGKIYEOK
-<UBCA3> \x93\xBC |0 # HANGUL SYLLABLE PIEUP E KIYEOKSIOS
-<UBCA4> \xBA\xA5 |0 # HANGUL SYLLABLE PIEUP E NIEUN
-<UBCA5> \x93\xBD |0 # HANGUL SYLLABLE PIEUP E NIEUNCIEUC
-<UBCA6> \x93\xBE |0 # HANGUL SYLLABLE PIEUP E NIEUNHIEUH
-<UBCA7> \xBA\xA6 |0 # HANGUL SYLLABLE PIEUP E TIKEUT
-<UBCA8> \xBA\xA7 |0 # HANGUL SYLLABLE PIEUP E RIEUL
-<UBCA9> \x93\xBF |0 # HANGUL SYLLABLE PIEUP E RIEULKIYEOK
-<UBCAA> \x93\xC0 |0 # HANGUL SYLLABLE PIEUP E RIEULMIEUM
-<UBCAB> \x93\xC1 |0 # HANGUL SYLLABLE PIEUP E RIEULPIEUP
-<UBCAC> \x93\xC2 |0 # HANGUL SYLLABLE PIEUP E RIEULSIOS
-<UBCAD> \x93\xC3 |0 # HANGUL SYLLABLE PIEUP E RIEULTHIEUTH
-<UBCAE> \x93\xC4 |0 # HANGUL SYLLABLE PIEUP E RIEULPHIEUPH
-<UBCAF> \x93\xC5 |0 # HANGUL SYLLABLE PIEUP E RIEULHIEUH
-<UBCB0> \xBA\xA8 |0 # HANGUL SYLLABLE PIEUP E MIEUM
-<UBCB1> \xBA\xA9 |0 # HANGUL SYLLABLE PIEUP E PIEUP
-<UBCB2> \x93\xC6 |0 # HANGUL SYLLABLE PIEUP E PIEUPSIOS
-<UBCB3> \xBA\xAA |0 # HANGUL SYLLABLE PIEUP E SIOS
-<UBCB4> \xBA\xAB |0 # HANGUL SYLLABLE PIEUP E SSANGSIOS
-<UBCB5> \xBA\xAC |0 # HANGUL SYLLABLE PIEUP E IEUNG
-<UBCB6> \x93\xC7 |0 # HANGUL SYLLABLE PIEUP E CIEUC
-<UBCB7> \x93\xC8 |0 # HANGUL SYLLABLE PIEUP E CHIEUCH
-<UBCB8> \x93\xC9 |0 # HANGUL SYLLABLE PIEUP E KHIEUKH
-<UBCB9> \x93\xCA |0 # HANGUL SYLLABLE PIEUP E THIEUTH
-<UBCBA> \x93\xCB |0 # HANGUL SYLLABLE PIEUP E PHIEUPH
-<UBCBB> \x93\xCC |0 # HANGUL SYLLABLE PIEUP E HIEUH
-<UBCBC> \xBA\xAD |0 # HANGUL SYLLABLE PIEUP YEO
-<UBCBD> \xBA\xAE |0 # HANGUL SYLLABLE PIEUP YEO KIYEOK
-<UBCBE> \x93\xCD |0 # HANGUL SYLLABLE PIEUP YEO SSANGKIYEOK
-<UBCBF> \x93\xCE |0 # HANGUL SYLLABLE PIEUP YEO KIYEOKSIOS
-<UBCC0> \xBA\xAF |0 # HANGUL SYLLABLE PIEUP YEO NIEUN
-<UBCC1> \x93\xCF |0 # HANGUL SYLLABLE PIEUP YEO NIEUNCIEUC
-<UBCC2> \x93\xD0 |0 # HANGUL SYLLABLE PIEUP YEO NIEUNHIEUH
-<UBCC3> \x93\xD1 |0 # HANGUL SYLLABLE PIEUP YEO TIKEUT
-<UBCC4> \xBA\xB0 |0 # HANGUL SYLLABLE PIEUP YEO RIEUL
-<UBCC5> \x93\xD2 |0 # HANGUL SYLLABLE PIEUP YEO RIEULKIYEOK
-<UBCC6> \x93\xD3 |0 # HANGUL SYLLABLE PIEUP YEO RIEULMIEUM
-<UBCC7> \x93\xD4 |0 # HANGUL SYLLABLE PIEUP YEO RIEULPIEUP
-<UBCC8> \x93\xD5 |0 # HANGUL SYLLABLE PIEUP YEO RIEULSIOS
-<UBCC9> \x93\xD6 |0 # HANGUL SYLLABLE PIEUP YEO RIEULTHIEUTH
-<UBCCA> \x93\xD7 |0 # HANGUL SYLLABLE PIEUP YEO RIEULPHIEUPH
-<UBCCB> \x93\xD8 |0 # HANGUL SYLLABLE PIEUP YEO RIEULHIEUH
-<UBCCC> \x93\xD9 |0 # HANGUL SYLLABLE PIEUP YEO MIEUM
-<UBCCD> \xBA\xB1 |0 # HANGUL SYLLABLE PIEUP YEO PIEUP
-<UBCCE> \x93\xDA |0 # HANGUL SYLLABLE PIEUP YEO PIEUPSIOS
-<UBCCF> \xBA\xB2 |0 # HANGUL SYLLABLE PIEUP YEO SIOS
-<UBCD0> \xBA\xB3 |0 # HANGUL SYLLABLE PIEUP YEO SSANGSIOS
-<UBCD1> \xBA\xB4 |0 # HANGUL SYLLABLE PIEUP YEO IEUNG
-<UBCD2> \x93\xDB |0 # HANGUL SYLLABLE PIEUP YEO CIEUC
-<UBCD3> \x93\xDC |0 # HANGUL SYLLABLE PIEUP YEO CHIEUCH
-<UBCD4> \x93\xDD |0 # HANGUL SYLLABLE PIEUP YEO KHIEUKH
-<UBCD5> \xBA\xB5 |0 # HANGUL SYLLABLE PIEUP YEO THIEUTH
-<UBCD6> \x93\xDE |0 # HANGUL SYLLABLE PIEUP YEO PHIEUPH
-<UBCD7> \x93\xDF |0 # HANGUL SYLLABLE PIEUP YEO HIEUH
-<UBCD8> \xBA\xB6 |0 # HANGUL SYLLABLE PIEUP YE
-<UBCD9> \x93\xE0 |0 # HANGUL SYLLABLE PIEUP YE KIYEOK
-<UBCDA> \x93\xE1 |0 # HANGUL SYLLABLE PIEUP YE SSANGKIYEOK
-<UBCDB> \x93\xE2 |0 # HANGUL SYLLABLE PIEUP YE KIYEOKSIOS
-<UBCDC> \xBA\xB7 |0 # HANGUL SYLLABLE PIEUP YE NIEUN
-<UBCDD> \x93\xE3 |0 # HANGUL SYLLABLE PIEUP YE NIEUNCIEUC
-<UBCDE> \x93\xE4 |0 # HANGUL SYLLABLE PIEUP YE NIEUNHIEUH
-<UBCDF> \x93\xE5 |0 # HANGUL SYLLABLE PIEUP YE TIKEUT
-<UBCE0> \x93\xE6 |0 # HANGUL SYLLABLE PIEUP YE RIEUL
-<UBCE1> \x93\xE7 |0 # HANGUL SYLLABLE PIEUP YE RIEULKIYEOK
-<UBCE2> \x93\xE8 |0 # HANGUL SYLLABLE PIEUP YE RIEULMIEUM
-<UBCE3> \x93\xE9 |0 # HANGUL SYLLABLE PIEUP YE RIEULPIEUP
-<UBCE4> \x93\xEA |0 # HANGUL SYLLABLE PIEUP YE RIEULSIOS
-<UBCE5> \x93\xEB |0 # HANGUL SYLLABLE PIEUP YE RIEULTHIEUTH
-<UBCE6> \x93\xEC |0 # HANGUL SYLLABLE PIEUP YE RIEULPHIEUPH
-<UBCE7> \x93\xED |0 # HANGUL SYLLABLE PIEUP YE RIEULHIEUH
-<UBCE8> \x93\xEE |0 # HANGUL SYLLABLE PIEUP YE MIEUM
-<UBCE9> \x93\xEF |0 # HANGUL SYLLABLE PIEUP YE PIEUP
-<UBCEA> \x93\xF0 |0 # HANGUL SYLLABLE PIEUP YE PIEUPSIOS
-<UBCEB> \x93\xF1 |0 # HANGUL SYLLABLE PIEUP YE SIOS
-<UBCEC> \x93\xF2 |0 # HANGUL SYLLABLE PIEUP YE SSANGSIOS
-<UBCED> \x93\xF3 |0 # HANGUL SYLLABLE PIEUP YE IEUNG
-<UBCEE> \x93\xF4 |0 # HANGUL SYLLABLE PIEUP YE CIEUC
-<UBCEF> \x93\xF5 |0 # HANGUL SYLLABLE PIEUP YE CHIEUCH
-<UBCF0> \x93\xF6 |0 # HANGUL SYLLABLE PIEUP YE KHIEUKH
-<UBCF1> \x93\xF7 |0 # HANGUL SYLLABLE PIEUP YE THIEUTH
-<UBCF2> \x93\xF8 |0 # HANGUL SYLLABLE PIEUP YE PHIEUPH
-<UBCF3> \x93\xF9 |0 # HANGUL SYLLABLE PIEUP YE HIEUH
-<UBCF4> \xBA\xB8 |0 # HANGUL SYLLABLE PIEUP O
-<UBCF5> \xBA\xB9 |0 # HANGUL SYLLABLE PIEUP O KIYEOK
-<UBCF6> \xBA\xBA |0 # HANGUL SYLLABLE PIEUP O SSANGKIYEOK
-<UBCF7> \x93\xFA |0 # HANGUL SYLLABLE PIEUP O KIYEOKSIOS
-<UBCF8> \xBA\xBB |0 # HANGUL SYLLABLE PIEUP O NIEUN
-<UBCF9> \x93\xFB |0 # HANGUL SYLLABLE PIEUP O NIEUNCIEUC
-<UBCFA> \x93\xFC |0 # HANGUL SYLLABLE PIEUP O NIEUNHIEUH
-<UBCFB> \x93\xFD |0 # HANGUL SYLLABLE PIEUP O TIKEUT
-<UBCFC> \xBA\xBC |0 # HANGUL SYLLABLE PIEUP O RIEUL
-<UBCFD> \x93\xFE |0 # HANGUL SYLLABLE PIEUP O RIEULKIYEOK
-<UBCFE> \x94\x41 |0 # HANGUL SYLLABLE PIEUP O RIEULMIEUM
-<UBCFF> \x94\x42 |0 # HANGUL SYLLABLE PIEUP O RIEULPIEUP
-<UBD00> \x94\x43 |0 # HANGUL SYLLABLE PIEUP O RIEULSIOS
-<UBD01> \x94\x44 |0 # HANGUL SYLLABLE PIEUP O RIEULTHIEUTH
-<UBD02> \x94\x45 |0 # HANGUL SYLLABLE PIEUP O RIEULPHIEUPH
-<UBD03> \x94\x46 |0 # HANGUL SYLLABLE PIEUP O RIEULHIEUH
-<UBD04> \xBA\xBD |0 # HANGUL SYLLABLE PIEUP O MIEUM
-<UBD05> \xBA\xBE |0 # HANGUL SYLLABLE PIEUP O PIEUP
-<UBD06> \x94\x47 |0 # HANGUL SYLLABLE PIEUP O PIEUPSIOS
-<UBD07> \xBA\xBF |0 # HANGUL SYLLABLE PIEUP O SIOS
-<UBD08> \x94\x48 |0 # HANGUL SYLLABLE PIEUP O SSANGSIOS
-<UBD09> \xBA\xC0 |0 # HANGUL SYLLABLE PIEUP O IEUNG
-<UBD0A> \x94\x49 |0 # HANGUL SYLLABLE PIEUP O CIEUC
-<UBD0B> \x94\x4A |0 # HANGUL SYLLABLE PIEUP O CHIEUCH
-<UBD0C> \x94\x4B |0 # HANGUL SYLLABLE PIEUP O KHIEUKH
-<UBD0D> \x94\x4C |0 # HANGUL SYLLABLE PIEUP O THIEUTH
-<UBD0E> \x94\x4D |0 # HANGUL SYLLABLE PIEUP O PHIEUPH
-<UBD0F> \x94\x4E |0 # HANGUL SYLLABLE PIEUP O HIEUH
-<UBD10> \xBA\xC1 |0 # HANGUL SYLLABLE PIEUP WA
-<UBD11> \x94\x4F |0 # HANGUL SYLLABLE PIEUP WA KIYEOK
-<UBD12> \x94\x50 |0 # HANGUL SYLLABLE PIEUP WA SSANGKIYEOK
-<UBD13> \x94\x51 |0 # HANGUL SYLLABLE PIEUP WA KIYEOKSIOS
-<UBD14> \xBA\xC2 |0 # HANGUL SYLLABLE PIEUP WA NIEUN
-<UBD15> \x94\x52 |0 # HANGUL SYLLABLE PIEUP WA NIEUNCIEUC
-<UBD16> \x94\x53 |0 # HANGUL SYLLABLE PIEUP WA NIEUNHIEUH
-<UBD17> \x94\x54 |0 # HANGUL SYLLABLE PIEUP WA TIKEUT
-<UBD18> \x94\x55 |0 # HANGUL SYLLABLE PIEUP WA RIEUL
-<UBD19> \x94\x56 |0 # HANGUL SYLLABLE PIEUP WA RIEULKIYEOK
-<UBD1A> \x94\x57 |0 # HANGUL SYLLABLE PIEUP WA RIEULMIEUM
-<UBD1B> \x94\x58 |0 # HANGUL SYLLABLE PIEUP WA RIEULPIEUP
-<UBD1C> \x94\x59 |0 # HANGUL SYLLABLE PIEUP WA RIEULSIOS
-<UBD1D> \x94\x5A |0 # HANGUL SYLLABLE PIEUP WA RIEULTHIEUTH
-<UBD1E> \x94\x61 |0 # HANGUL SYLLABLE PIEUP WA RIEULPHIEUPH
-<UBD1F> \x94\x62 |0 # HANGUL SYLLABLE PIEUP WA RIEULHIEUH
-<UBD20> \x94\x63 |0 # HANGUL SYLLABLE PIEUP WA MIEUM
-<UBD21> \x94\x64 |0 # HANGUL SYLLABLE PIEUP WA PIEUP
-<UBD22> \x94\x65 |0 # HANGUL SYLLABLE PIEUP WA PIEUPSIOS
-<UBD23> \x94\x66 |0 # HANGUL SYLLABLE PIEUP WA SIOS
-<UBD24> \xBA\xC3 |0 # HANGUL SYLLABLE PIEUP WA SSANGSIOS
-<UBD25> \x94\x67 |0 # HANGUL SYLLABLE PIEUP WA IEUNG
-<UBD26> \x94\x68 |0 # HANGUL SYLLABLE PIEUP WA CIEUC
-<UBD27> \x94\x69 |0 # HANGUL SYLLABLE PIEUP WA CHIEUCH
-<UBD28> \x94\x6A |0 # HANGUL SYLLABLE PIEUP WA KHIEUKH
-<UBD29> \x94\x6B |0 # HANGUL SYLLABLE PIEUP WA THIEUTH
-<UBD2A> \x94\x6C |0 # HANGUL SYLLABLE PIEUP WA PHIEUPH
-<UBD2B> \x94\x6D |0 # HANGUL SYLLABLE PIEUP WA HIEUH
-<UBD2C> \xBA\xC4 |0 # HANGUL SYLLABLE PIEUP WAE
-<UBD2D> \x94\x6E |0 # HANGUL SYLLABLE PIEUP WAE KIYEOK
-<UBD2E> \x94\x6F |0 # HANGUL SYLLABLE PIEUP WAE SSANGKIYEOK
-<UBD2F> \x94\x70 |0 # HANGUL SYLLABLE PIEUP WAE KIYEOKSIOS
-<UBD30> \x94\x71 |0 # HANGUL SYLLABLE PIEUP WAE NIEUN
-<UBD31> \x94\x72 |0 # HANGUL SYLLABLE PIEUP WAE NIEUNCIEUC
-<UBD32> \x94\x73 |0 # HANGUL SYLLABLE PIEUP WAE NIEUNHIEUH
-<UBD33> \x94\x74 |0 # HANGUL SYLLABLE PIEUP WAE TIKEUT
-<UBD34> \x94\x75 |0 # HANGUL SYLLABLE PIEUP WAE RIEUL
-<UBD35> \x94\x76 |0 # HANGUL SYLLABLE PIEUP WAE RIEULKIYEOK
-<UBD36> \x94\x77 |0 # HANGUL SYLLABLE PIEUP WAE RIEULMIEUM
-<UBD37> \x94\x78 |0 # HANGUL SYLLABLE PIEUP WAE RIEULPIEUP
-<UBD38> \x94\x79 |0 # HANGUL SYLLABLE PIEUP WAE RIEULSIOS
-<UBD39> \x94\x7A |0 # HANGUL SYLLABLE PIEUP WAE RIEULTHIEUTH
-<UBD3A> \x94\x81 |0 # HANGUL SYLLABLE PIEUP WAE RIEULPHIEUPH
-<UBD3B> \x94\x82 |0 # HANGUL SYLLABLE PIEUP WAE RIEULHIEUH
-<UBD3C> \x94\x83 |0 # HANGUL SYLLABLE PIEUP WAE MIEUM
-<UBD3D> \x94\x84 |0 # HANGUL SYLLABLE PIEUP WAE PIEUP
-<UBD3E> \x94\x85 |0 # HANGUL SYLLABLE PIEUP WAE PIEUPSIOS
-<UBD3F> \x94\x86 |0 # HANGUL SYLLABLE PIEUP WAE SIOS
-<UBD40> \xBA\xC5 |0 # HANGUL SYLLABLE PIEUP WAE SSANGSIOS
-<UBD41> \x94\x87 |0 # HANGUL SYLLABLE PIEUP WAE IEUNG
-<UBD42> \x94\x88 |0 # HANGUL SYLLABLE PIEUP WAE CIEUC
-<UBD43> \x94\x89 |0 # HANGUL SYLLABLE PIEUP WAE CHIEUCH
-<UBD44> \x94\x8A |0 # HANGUL SYLLABLE PIEUP WAE KHIEUKH
-<UBD45> \x94\x8B |0 # HANGUL SYLLABLE PIEUP WAE THIEUTH
-<UBD46> \x94\x8C |0 # HANGUL SYLLABLE PIEUP WAE PHIEUPH
-<UBD47> \x94\x8D |0 # HANGUL SYLLABLE PIEUP WAE HIEUH
-<UBD48> \xBA\xC6 |0 # HANGUL SYLLABLE PIEUP OE
-<UBD49> \xBA\xC7 |0 # HANGUL SYLLABLE PIEUP OE KIYEOK
-<UBD4A> \x94\x8E |0 # HANGUL SYLLABLE PIEUP OE SSANGKIYEOK
-<UBD4B> \x94\x8F |0 # HANGUL SYLLABLE PIEUP OE KIYEOKSIOS
-<UBD4C> \xBA\xC8 |0 # HANGUL SYLLABLE PIEUP OE NIEUN
-<UBD4D> \x94\x90 |0 # HANGUL SYLLABLE PIEUP OE NIEUNCIEUC
-<UBD4E> \x94\x91 |0 # HANGUL SYLLABLE PIEUP OE NIEUNHIEUH
-<UBD4F> \x94\x92 |0 # HANGUL SYLLABLE PIEUP OE TIKEUT
-<UBD50> \xBA\xC9 |0 # HANGUL SYLLABLE PIEUP OE RIEUL
-<UBD51> \x94\x93 |0 # HANGUL SYLLABLE PIEUP OE RIEULKIYEOK
-<UBD52> \x94\x94 |0 # HANGUL SYLLABLE PIEUP OE RIEULMIEUM
-<UBD53> \x94\x95 |0 # HANGUL SYLLABLE PIEUP OE RIEULPIEUP
-<UBD54> \x94\x96 |0 # HANGUL SYLLABLE PIEUP OE RIEULSIOS
-<UBD55> \x94\x97 |0 # HANGUL SYLLABLE PIEUP OE RIEULTHIEUTH
-<UBD56> \x94\x98 |0 # HANGUL SYLLABLE PIEUP OE RIEULPHIEUPH
-<UBD57> \x94\x99 |0 # HANGUL SYLLABLE PIEUP OE RIEULHIEUH
-<UBD58> \xBA\xCA |0 # HANGUL SYLLABLE PIEUP OE MIEUM
-<UBD59> \xBA\xCB |0 # HANGUL SYLLABLE PIEUP OE PIEUP
-<UBD5A> \x94\x9A |0 # HANGUL SYLLABLE PIEUP OE PIEUPSIOS
-<UBD5B> \x94\x9B |0 # HANGUL SYLLABLE PIEUP OE SIOS
-<UBD5C> \x94\x9C |0 # HANGUL SYLLABLE PIEUP OE SSANGSIOS
-<UBD5D> \x94\x9D |0 # HANGUL SYLLABLE PIEUP OE IEUNG
-<UBD5E> \x94\x9E |0 # HANGUL SYLLABLE PIEUP OE CIEUC
-<UBD5F> \x94\x9F |0 # HANGUL SYLLABLE PIEUP OE CHIEUCH
-<UBD60> \x94\xA0 |0 # HANGUL SYLLABLE PIEUP OE KHIEUKH
-<UBD61> \x94\xA1 |0 # HANGUL SYLLABLE PIEUP OE THIEUTH
-<UBD62> \x94\xA2 |0 # HANGUL SYLLABLE PIEUP OE PHIEUPH
-<UBD63> \x94\xA3 |0 # HANGUL SYLLABLE PIEUP OE HIEUH
-<UBD64> \xBA\xCC |0 # HANGUL SYLLABLE PIEUP YO
-<UBD65> \x94\xA4 |0 # HANGUL SYLLABLE PIEUP YO KIYEOK
-<UBD66> \x94\xA5 |0 # HANGUL SYLLABLE PIEUP YO SSANGKIYEOK
-<UBD67> \x94\xA6 |0 # HANGUL SYLLABLE PIEUP YO KIYEOKSIOS
-<UBD68> \xBA\xCD |0 # HANGUL SYLLABLE PIEUP YO NIEUN
-<UBD69> \x94\xA7 |0 # HANGUL SYLLABLE PIEUP YO NIEUNCIEUC
-<UBD6A> \x94\xA8 |0 # HANGUL SYLLABLE PIEUP YO NIEUNHIEUH
-<UBD6B> \x94\xA9 |0 # HANGUL SYLLABLE PIEUP YO TIKEUT
-<UBD6C> \x94\xAA |0 # HANGUL SYLLABLE PIEUP YO RIEUL
-<UBD6D> \x94\xAB |0 # HANGUL SYLLABLE PIEUP YO RIEULKIYEOK
-<UBD6E> \x94\xAC |0 # HANGUL SYLLABLE PIEUP YO RIEULMIEUM
-<UBD6F> \x94\xAD |0 # HANGUL SYLLABLE PIEUP YO RIEULPIEUP
-<UBD70> \x94\xAE |0 # HANGUL SYLLABLE PIEUP YO RIEULSIOS
-<UBD71> \x94\xAF |0 # HANGUL SYLLABLE PIEUP YO RIEULTHIEUTH
-<UBD72> \x94\xB0 |0 # HANGUL SYLLABLE PIEUP YO RIEULPHIEUPH
-<UBD73> \x94\xB1 |0 # HANGUL SYLLABLE PIEUP YO RIEULHIEUH
-<UBD74> \x94\xB2 |0 # HANGUL SYLLABLE PIEUP YO MIEUM
-<UBD75> \x94\xB3 |0 # HANGUL SYLLABLE PIEUP YO PIEUP
-<UBD76> \x94\xB4 |0 # HANGUL SYLLABLE PIEUP YO PIEUPSIOS
-<UBD77> \x94\xB5 |0 # HANGUL SYLLABLE PIEUP YO SIOS
-<UBD78> \x94\xB6 |0 # HANGUL SYLLABLE PIEUP YO SSANGSIOS
-<UBD79> \x94\xB7 |0 # HANGUL SYLLABLE PIEUP YO IEUNG
-<UBD7A> \x94\xB8 |0 # HANGUL SYLLABLE PIEUP YO CIEUC
-<UBD7B> \x94\xB9 |0 # HANGUL SYLLABLE PIEUP YO CHIEUCH
-<UBD7C> \x94\xBA |0 # HANGUL SYLLABLE PIEUP YO KHIEUKH
-<UBD7D> \x94\xBB |0 # HANGUL SYLLABLE PIEUP YO THIEUTH
-<UBD7E> \x94\xBC |0 # HANGUL SYLLABLE PIEUP YO PHIEUPH
-<UBD7F> \x94\xBD |0 # HANGUL SYLLABLE PIEUP YO HIEUH
-<UBD80> \xBA\xCE |0 # HANGUL SYLLABLE PIEUP U
-<UBD81> \xBA\xCF |0 # HANGUL SYLLABLE PIEUP U KIYEOK
-<UBD82> \x94\xBE |0 # HANGUL SYLLABLE PIEUP U SSANGKIYEOK
-<UBD83> \x94\xBF |0 # HANGUL SYLLABLE PIEUP U KIYEOKSIOS
-<UBD84> \xBA\xD0 |0 # HANGUL SYLLABLE PIEUP U NIEUN
-<UBD85> \x94\xC0 |0 # HANGUL SYLLABLE PIEUP U NIEUNCIEUC
-<UBD86> \x94\xC1 |0 # HANGUL SYLLABLE PIEUP U NIEUNHIEUH
-<UBD87> \xBA\xD1 |0 # HANGUL SYLLABLE PIEUP U TIKEUT
-<UBD88> \xBA\xD2 |0 # HANGUL SYLLABLE PIEUP U RIEUL
-<UBD89> \xBA\xD3 |0 # HANGUL SYLLABLE PIEUP U RIEULKIYEOK
-<UBD8A> \xBA\xD4 |0 # HANGUL SYLLABLE PIEUP U RIEULMIEUM
-<UBD8B> \x94\xC2 |0 # HANGUL SYLLABLE PIEUP U RIEULPIEUP
-<UBD8C> \x94\xC3 |0 # HANGUL SYLLABLE PIEUP U RIEULSIOS
-<UBD8D> \x94\xC4 |0 # HANGUL SYLLABLE PIEUP U RIEULTHIEUTH
-<UBD8E> \x94\xC5 |0 # HANGUL SYLLABLE PIEUP U RIEULPHIEUPH
-<UBD8F> \x94\xC6 |0 # HANGUL SYLLABLE PIEUP U RIEULHIEUH
-<UBD90> \xBA\xD5 |0 # HANGUL SYLLABLE PIEUP U MIEUM
-<UBD91> \xBA\xD6 |0 # HANGUL SYLLABLE PIEUP U PIEUP
-<UBD92> \x94\xC7 |0 # HANGUL SYLLABLE PIEUP U PIEUPSIOS
-<UBD93> \xBA\xD7 |0 # HANGUL SYLLABLE PIEUP U SIOS
-<UBD94> \x94\xC8 |0 # HANGUL SYLLABLE PIEUP U SSANGSIOS
-<UBD95> \xBA\xD8 |0 # HANGUL SYLLABLE PIEUP U IEUNG
-<UBD96> \x94\xC9 |0 # HANGUL SYLLABLE PIEUP U CIEUC
-<UBD97> \x94\xCA |0 # HANGUL SYLLABLE PIEUP U CHIEUCH
-<UBD98> \x94\xCB |0 # HANGUL SYLLABLE PIEUP U KHIEUKH
-<UBD99> \xBA\xD9 |0 # HANGUL SYLLABLE PIEUP U THIEUTH
-<UBD9A> \xBA\xDA |0 # HANGUL SYLLABLE PIEUP U PHIEUPH
-<UBD9B> \x94\xCC |0 # HANGUL SYLLABLE PIEUP U HIEUH
-<UBD9C> \xBA\xDB |0 # HANGUL SYLLABLE PIEUP WEO
-<UBD9D> \x94\xCD |0 # HANGUL SYLLABLE PIEUP WEO KIYEOK
-<UBD9E> \x94\xCE |0 # HANGUL SYLLABLE PIEUP WEO SSANGKIYEOK
-<UBD9F> \x94\xCF |0 # HANGUL SYLLABLE PIEUP WEO KIYEOKSIOS
-<UBDA0> \x94\xD0 |0 # HANGUL SYLLABLE PIEUP WEO NIEUN
-<UBDA1> \x94\xD1 |0 # HANGUL SYLLABLE PIEUP WEO NIEUNCIEUC
-<UBDA2> \x94\xD2 |0 # HANGUL SYLLABLE PIEUP WEO NIEUNHIEUH
-<UBDA3> \x94\xD3 |0 # HANGUL SYLLABLE PIEUP WEO TIKEUT
-<UBDA4> \xBA\xDC |0 # HANGUL SYLLABLE PIEUP WEO RIEUL
-<UBDA5> \x94\xD4 |0 # HANGUL SYLLABLE PIEUP WEO RIEULKIYEOK
-<UBDA6> \x94\xD5 |0 # HANGUL SYLLABLE PIEUP WEO RIEULMIEUM
-<UBDA7> \x94\xD6 |0 # HANGUL SYLLABLE PIEUP WEO RIEULPIEUP
-<UBDA8> \x94\xD7 |0 # HANGUL SYLLABLE PIEUP WEO RIEULSIOS
-<UBDA9> \x94\xD8 |0 # HANGUL SYLLABLE PIEUP WEO RIEULTHIEUTH
-<UBDAA> \x94\xD9 |0 # HANGUL SYLLABLE PIEUP WEO RIEULPHIEUPH
-<UBDAB> \x94\xDA |0 # HANGUL SYLLABLE PIEUP WEO RIEULHIEUH
-<UBDAC> \x94\xDB |0 # HANGUL SYLLABLE PIEUP WEO MIEUM
-<UBDAD> \x94\xDC |0 # HANGUL SYLLABLE PIEUP WEO PIEUP
-<UBDAE> \x94\xDD |0 # HANGUL SYLLABLE PIEUP WEO PIEUPSIOS
-<UBDAF> \x94\xDE |0 # HANGUL SYLLABLE PIEUP WEO SIOS
-<UBDB0> \xBA\xDD |0 # HANGUL SYLLABLE PIEUP WEO SSANGSIOS
-<UBDB1> \x94\xDF |0 # HANGUL SYLLABLE PIEUP WEO IEUNG
-<UBDB2> \x94\xE0 |0 # HANGUL SYLLABLE PIEUP WEO CIEUC
-<UBDB3> \x94\xE1 |0 # HANGUL SYLLABLE PIEUP WEO CHIEUCH
-<UBDB4> \x94\xE2 |0 # HANGUL SYLLABLE PIEUP WEO KHIEUKH
-<UBDB5> \x94\xE3 |0 # HANGUL SYLLABLE PIEUP WEO THIEUTH
-<UBDB6> \x94\xE4 |0 # HANGUL SYLLABLE PIEUP WEO PHIEUPH
-<UBDB7> \x94\xE5 |0 # HANGUL SYLLABLE PIEUP WEO HIEUH
-<UBDB8> \xBA\xDE |0 # HANGUL SYLLABLE PIEUP WE
-<UBDB9> \x94\xE6 |0 # HANGUL SYLLABLE PIEUP WE KIYEOK
-<UBDBA> \x94\xE7 |0 # HANGUL SYLLABLE PIEUP WE SSANGKIYEOK
-<UBDBB> \x94\xE8 |0 # HANGUL SYLLABLE PIEUP WE KIYEOKSIOS
-<UBDBC> \x94\xE9 |0 # HANGUL SYLLABLE PIEUP WE NIEUN
-<UBDBD> \x94\xEA |0 # HANGUL SYLLABLE PIEUP WE NIEUNCIEUC
-<UBDBE> \x94\xEB |0 # HANGUL SYLLABLE PIEUP WE NIEUNHIEUH
-<UBDBF> \x94\xEC |0 # HANGUL SYLLABLE PIEUP WE TIKEUT
-<UBDC0> \x94\xED |0 # HANGUL SYLLABLE PIEUP WE RIEUL
-<UBDC1> \x94\xEE |0 # HANGUL SYLLABLE PIEUP WE RIEULKIYEOK
-<UBDC2> \x94\xEF |0 # HANGUL SYLLABLE PIEUP WE RIEULMIEUM
-<UBDC3> \x94\xF0 |0 # HANGUL SYLLABLE PIEUP WE RIEULPIEUP
-<UBDC4> \x94\xF1 |0 # HANGUL SYLLABLE PIEUP WE RIEULSIOS
-<UBDC5> \x94\xF2 |0 # HANGUL SYLLABLE PIEUP WE RIEULTHIEUTH
-<UBDC6> \x94\xF3 |0 # HANGUL SYLLABLE PIEUP WE RIEULPHIEUPH
-<UBDC7> \x94\xF4 |0 # HANGUL SYLLABLE PIEUP WE RIEULHIEUH
-<UBDC8> \x94\xF5 |0 # HANGUL SYLLABLE PIEUP WE MIEUM
-<UBDC9> \x94\xF6 |0 # HANGUL SYLLABLE PIEUP WE PIEUP
-<UBDCA> \x94\xF7 |0 # HANGUL SYLLABLE PIEUP WE PIEUPSIOS
-<UBDCB> \x94\xF8 |0 # HANGUL SYLLABLE PIEUP WE SIOS
-<UBDCC> \x94\xF9 |0 # HANGUL SYLLABLE PIEUP WE SSANGSIOS
-<UBDCD> \x94\xFA |0 # HANGUL SYLLABLE PIEUP WE IEUNG
-<UBDCE> \x94\xFB |0 # HANGUL SYLLABLE PIEUP WE CIEUC
-<UBDCF> \x94\xFC |0 # HANGUL SYLLABLE PIEUP WE CHIEUCH
-<UBDD0> \x94\xFD |0 # HANGUL SYLLABLE PIEUP WE KHIEUKH
-<UBDD1> \x94\xFE |0 # HANGUL SYLLABLE PIEUP WE THIEUTH
-<UBDD2> \x95\x41 |0 # HANGUL SYLLABLE PIEUP WE PHIEUPH
-<UBDD3> \x95\x42 |0 # HANGUL SYLLABLE PIEUP WE HIEUH
-<UBDD4> \xBA\xDF |0 # HANGUL SYLLABLE PIEUP WI
-<UBDD5> \xBA\xE0 |0 # HANGUL SYLLABLE PIEUP WI KIYEOK
-<UBDD6> \x95\x43 |0 # HANGUL SYLLABLE PIEUP WI SSANGKIYEOK
-<UBDD7> \x95\x44 |0 # HANGUL SYLLABLE PIEUP WI KIYEOKSIOS
-<UBDD8> \xBA\xE1 |0 # HANGUL SYLLABLE PIEUP WI NIEUN
-<UBDD9> \x95\x45 |0 # HANGUL SYLLABLE PIEUP WI NIEUNCIEUC
-<UBDDA> \x95\x46 |0 # HANGUL SYLLABLE PIEUP WI NIEUNHIEUH
-<UBDDB> \x95\x47 |0 # HANGUL SYLLABLE PIEUP WI TIKEUT
-<UBDDC> \xBA\xE2 |0 # HANGUL SYLLABLE PIEUP WI RIEUL
-<UBDDD> \x95\x48 |0 # HANGUL SYLLABLE PIEUP WI RIEULKIYEOK
-<UBDDE> \x95\x49 |0 # HANGUL SYLLABLE PIEUP WI RIEULMIEUM
-<UBDDF> \x95\x4A |0 # HANGUL SYLLABLE PIEUP WI RIEULPIEUP
-<UBDE0> \x95\x4B |0 # HANGUL SYLLABLE PIEUP WI RIEULSIOS
-<UBDE1> \x95\x4C |0 # HANGUL SYLLABLE PIEUP WI RIEULTHIEUTH
-<UBDE2> \x95\x4D |0 # HANGUL SYLLABLE PIEUP WI RIEULPHIEUPH
-<UBDE3> \x95\x4E |0 # HANGUL SYLLABLE PIEUP WI RIEULHIEUH
-<UBDE4> \x95\x4F |0 # HANGUL SYLLABLE PIEUP WI MIEUM
-<UBDE5> \x95\x50 |0 # HANGUL SYLLABLE PIEUP WI PIEUP
-<UBDE6> \x95\x51 |0 # HANGUL SYLLABLE PIEUP WI PIEUPSIOS
-<UBDE7> \x95\x52 |0 # HANGUL SYLLABLE PIEUP WI SIOS
-<UBDE8> \x95\x53 |0 # HANGUL SYLLABLE PIEUP WI SSANGSIOS
-<UBDE9> \xBA\xE3 |0 # HANGUL SYLLABLE PIEUP WI IEUNG
-<UBDEA> \x95\x54 |0 # HANGUL SYLLABLE PIEUP WI CIEUC
-<UBDEB> \x95\x55 |0 # HANGUL SYLLABLE PIEUP WI CHIEUCH
-<UBDEC> \x95\x56 |0 # HANGUL SYLLABLE PIEUP WI KHIEUKH
-<UBDED> \x95\x57 |0 # HANGUL SYLLABLE PIEUP WI THIEUTH
-<UBDEE> \x95\x58 |0 # HANGUL SYLLABLE PIEUP WI PHIEUPH
-<UBDEF> \x95\x59 |0 # HANGUL SYLLABLE PIEUP WI HIEUH
-<UBDF0> \xBA\xE4 |0 # HANGUL SYLLABLE PIEUP YU
-<UBDF1> \x95\x5A |0 # HANGUL SYLLABLE PIEUP YU KIYEOK
-<UBDF2> \x95\x61 |0 # HANGUL SYLLABLE PIEUP YU SSANGKIYEOK
-<UBDF3> \x95\x62 |0 # HANGUL SYLLABLE PIEUP YU KIYEOKSIOS
-<UBDF4> \xBA\xE5 |0 # HANGUL SYLLABLE PIEUP YU NIEUN
-<UBDF5> \x95\x63 |0 # HANGUL SYLLABLE PIEUP YU NIEUNCIEUC
-<UBDF6> \x95\x64 |0 # HANGUL SYLLABLE PIEUP YU NIEUNHIEUH
-<UBDF7> \x95\x65 |0 # HANGUL SYLLABLE PIEUP YU TIKEUT
-<UBDF8> \xBA\xE6 |0 # HANGUL SYLLABLE PIEUP YU RIEUL
-<UBDF9> \x95\x66 |0 # HANGUL SYLLABLE PIEUP YU RIEULKIYEOK
-<UBDFA> \x95\x67 |0 # HANGUL SYLLABLE PIEUP YU RIEULMIEUM
-<UBDFB> \x95\x68 |0 # HANGUL SYLLABLE PIEUP YU RIEULPIEUP
-<UBDFC> \x95\x69 |0 # HANGUL SYLLABLE PIEUP YU RIEULSIOS
-<UBDFD> \x95\x6A |0 # HANGUL SYLLABLE PIEUP YU RIEULTHIEUTH
-<UBDFE> \x95\x6B |0 # HANGUL SYLLABLE PIEUP YU RIEULPHIEUPH
-<UBDFF> \x95\x6C |0 # HANGUL SYLLABLE PIEUP YU RIEULHIEUH
-<UBE00> \xBA\xE7 |0 # HANGUL SYLLABLE PIEUP YU MIEUM
-<UBE01> \x95\x6D |0 # HANGUL SYLLABLE PIEUP YU PIEUP
-<UBE02> \x95\x6E |0 # HANGUL SYLLABLE PIEUP YU PIEUPSIOS
-<UBE03> \xBA\xE8 |0 # HANGUL SYLLABLE PIEUP YU SIOS
-<UBE04> \x95\x6F |0 # HANGUL SYLLABLE PIEUP YU SSANGSIOS
-<UBE05> \xBA\xE9 |0 # HANGUL SYLLABLE PIEUP YU IEUNG
-<UBE06> \x95\x70 |0 # HANGUL SYLLABLE PIEUP YU CIEUC
-<UBE07> \x95\x71 |0 # HANGUL SYLLABLE PIEUP YU CHIEUCH
-<UBE08> \x95\x72 |0 # HANGUL SYLLABLE PIEUP YU KHIEUKH
-<UBE09> \x95\x73 |0 # HANGUL SYLLABLE PIEUP YU THIEUTH
-<UBE0A> \x95\x74 |0 # HANGUL SYLLABLE PIEUP YU PHIEUPH
-<UBE0B> \x95\x75 |0 # HANGUL SYLLABLE PIEUP YU HIEUH
-<UBE0C> \xBA\xEA |0 # HANGUL SYLLABLE PIEUP EU
-<UBE0D> \xBA\xEB |0 # HANGUL SYLLABLE PIEUP EU KIYEOK
-<UBE0E> \x95\x76 |0 # HANGUL SYLLABLE PIEUP EU SSANGKIYEOK
-<UBE0F> \x95\x77 |0 # HANGUL SYLLABLE PIEUP EU KIYEOKSIOS
-<UBE10> \xBA\xEC |0 # HANGUL SYLLABLE PIEUP EU NIEUN
-<UBE11> \x95\x78 |0 # HANGUL SYLLABLE PIEUP EU NIEUNCIEUC
-<UBE12> \x95\x79 |0 # HANGUL SYLLABLE PIEUP EU NIEUNHIEUH
-<UBE13> \x95\x7A |0 # HANGUL SYLLABLE PIEUP EU TIKEUT
-<UBE14> \xBA\xED |0 # HANGUL SYLLABLE PIEUP EU RIEUL
-<UBE15> \x95\x81 |0 # HANGUL SYLLABLE PIEUP EU RIEULKIYEOK
-<UBE16> \x95\x82 |0 # HANGUL SYLLABLE PIEUP EU RIEULMIEUM
-<UBE17> \x95\x83 |0 # HANGUL SYLLABLE PIEUP EU RIEULPIEUP
-<UBE18> \x95\x84 |0 # HANGUL SYLLABLE PIEUP EU RIEULSIOS
-<UBE19> \x95\x85 |0 # HANGUL SYLLABLE PIEUP EU RIEULTHIEUTH
-<UBE1A> \x95\x86 |0 # HANGUL SYLLABLE PIEUP EU RIEULPHIEUPH
-<UBE1B> \x95\x87 |0 # HANGUL SYLLABLE PIEUP EU RIEULHIEUH
-<UBE1C> \xBA\xEE |0 # HANGUL SYLLABLE PIEUP EU MIEUM
-<UBE1D> \xBA\xEF |0 # HANGUL SYLLABLE PIEUP EU PIEUP
-<UBE1E> \x95\x88 |0 # HANGUL SYLLABLE PIEUP EU PIEUPSIOS
-<UBE1F> \xBA\xF0 |0 # HANGUL SYLLABLE PIEUP EU SIOS
-<UBE20> \x95\x89 |0 # HANGUL SYLLABLE PIEUP EU SSANGSIOS
-<UBE21> \x95\x8A |0 # HANGUL SYLLABLE PIEUP EU IEUNG
-<UBE22> \x95\x8B |0 # HANGUL SYLLABLE PIEUP EU CIEUC
-<UBE23> \x95\x8C |0 # HANGUL SYLLABLE PIEUP EU CHIEUCH
-<UBE24> \x95\x8D |0 # HANGUL SYLLABLE PIEUP EU KHIEUKH
-<UBE25> \x95\x8E |0 # HANGUL SYLLABLE PIEUP EU THIEUTH
-<UBE26> \x95\x8F |0 # HANGUL SYLLABLE PIEUP EU PHIEUPH
-<UBE27> \x95\x90 |0 # HANGUL SYLLABLE PIEUP EU HIEUH
-<UBE28> \x95\x91 |0 # HANGUL SYLLABLE PIEUP YI
-<UBE29> \x95\x92 |0 # HANGUL SYLLABLE PIEUP YI KIYEOK
-<UBE2A> \x95\x93 |0 # HANGUL SYLLABLE PIEUP YI SSANGKIYEOK
-<UBE2B> \x95\x94 |0 # HANGUL SYLLABLE PIEUP YI KIYEOKSIOS
-<UBE2C> \x95\x95 |0 # HANGUL SYLLABLE PIEUP YI NIEUN
-<UBE2D> \x95\x96 |0 # HANGUL SYLLABLE PIEUP YI NIEUNCIEUC
-<UBE2E> \x95\x97 |0 # HANGUL SYLLABLE PIEUP YI NIEUNHIEUH
-<UBE2F> \x95\x98 |0 # HANGUL SYLLABLE PIEUP YI TIKEUT
-<UBE30> \x95\x99 |0 # HANGUL SYLLABLE PIEUP YI RIEUL
-<UBE31> \x95\x9A |0 # HANGUL SYLLABLE PIEUP YI RIEULKIYEOK
-<UBE32> \x95\x9B |0 # HANGUL SYLLABLE PIEUP YI RIEULMIEUM
-<UBE33> \x95\x9C |0 # HANGUL SYLLABLE PIEUP YI RIEULPIEUP
-<UBE34> \x95\x9D |0 # HANGUL SYLLABLE PIEUP YI RIEULSIOS
-<UBE35> \x95\x9E |0 # HANGUL SYLLABLE PIEUP YI RIEULTHIEUTH
-<UBE36> \x95\x9F |0 # HANGUL SYLLABLE PIEUP YI RIEULPHIEUPH
-<UBE37> \x95\xA0 |0 # HANGUL SYLLABLE PIEUP YI RIEULHIEUH
-<UBE38> \x95\xA1 |0 # HANGUL SYLLABLE PIEUP YI MIEUM
-<UBE39> \x95\xA2 |0 # HANGUL SYLLABLE PIEUP YI PIEUP
-<UBE3A> \x95\xA3 |0 # HANGUL SYLLABLE PIEUP YI PIEUPSIOS
-<UBE3B> \x95\xA4 |0 # HANGUL SYLLABLE PIEUP YI SIOS
-<UBE3C> \x95\xA5 |0 # HANGUL SYLLABLE PIEUP YI SSANGSIOS
-<UBE3D> \x95\xA6 |0 # HANGUL SYLLABLE PIEUP YI IEUNG
-<UBE3E> \x95\xA7 |0 # HANGUL SYLLABLE PIEUP YI CIEUC
-<UBE3F> \x95\xA8 |0 # HANGUL SYLLABLE PIEUP YI CHIEUCH
-<UBE40> \x95\xA9 |0 # HANGUL SYLLABLE PIEUP YI KHIEUKH
-<UBE41> \x95\xAA |0 # HANGUL SYLLABLE PIEUP YI THIEUTH
-<UBE42> \x95\xAB |0 # HANGUL SYLLABLE PIEUP YI PHIEUPH
-<UBE43> \x95\xAC |0 # HANGUL SYLLABLE PIEUP YI HIEUH
-<UBE44> \xBA\xF1 |0 # HANGUL SYLLABLE PIEUP I
-<UBE45> \xBA\xF2 |0 # HANGUL SYLLABLE PIEUP I KIYEOK
-<UBE46> \x95\xAD |0 # HANGUL SYLLABLE PIEUP I SSANGKIYEOK
-<UBE47> \x95\xAE |0 # HANGUL SYLLABLE PIEUP I KIYEOKSIOS
-<UBE48> \xBA\xF3 |0 # HANGUL SYLLABLE PIEUP I NIEUN
-<UBE49> \x95\xAF |0 # HANGUL SYLLABLE PIEUP I NIEUNCIEUC
-<UBE4A> \x95\xB0 |0 # HANGUL SYLLABLE PIEUP I NIEUNHIEUH
-<UBE4B> \x95\xB1 |0 # HANGUL SYLLABLE PIEUP I TIKEUT
-<UBE4C> \xBA\xF4 |0 # HANGUL SYLLABLE PIEUP I RIEUL
-<UBE4D> \x95\xB2 |0 # HANGUL SYLLABLE PIEUP I RIEULKIYEOK
-<UBE4E> \xBA\xF5 |0 # HANGUL SYLLABLE PIEUP I RIEULMIEUM
-<UBE4F> \x95\xB3 |0 # HANGUL SYLLABLE PIEUP I RIEULPIEUP
-<UBE50> \x95\xB4 |0 # HANGUL SYLLABLE PIEUP I RIEULSIOS
-<UBE51> \x95\xB5 |0 # HANGUL SYLLABLE PIEUP I RIEULTHIEUTH
-<UBE52> \x95\xB6 |0 # HANGUL SYLLABLE PIEUP I RIEULPHIEUPH
-<UBE53> \x95\xB7 |0 # HANGUL SYLLABLE PIEUP I RIEULHIEUH
-<UBE54> \xBA\xF6 |0 # HANGUL SYLLABLE PIEUP I MIEUM
-<UBE55> \xBA\xF7 |0 # HANGUL SYLLABLE PIEUP I PIEUP
-<UBE56> \x95\xB8 |0 # HANGUL SYLLABLE PIEUP I PIEUPSIOS
-<UBE57> \xBA\xF8 |0 # HANGUL SYLLABLE PIEUP I SIOS
-<UBE58> \x95\xB9 |0 # HANGUL SYLLABLE PIEUP I SSANGSIOS
-<UBE59> \xBA\xF9 |0 # HANGUL SYLLABLE PIEUP I IEUNG
-<UBE5A> \xBA\xFA |0 # HANGUL SYLLABLE PIEUP I CIEUC
-<UBE5B> \xBA\xFB |0 # HANGUL SYLLABLE PIEUP I CHIEUCH
-<UBE5C> \x95\xBA |0 # HANGUL SYLLABLE PIEUP I KHIEUKH
-<UBE5D> \x95\xBB |0 # HANGUL SYLLABLE PIEUP I THIEUTH
-<UBE5E> \x95\xBC |0 # HANGUL SYLLABLE PIEUP I PHIEUPH
-<UBE5F> \x95\xBD |0 # HANGUL SYLLABLE PIEUP I HIEUH
-<UBE60> \xBA\xFC |0 # HANGUL SYLLABLE SSANGPIEUP A
-<UBE61> \xBA\xFD |0 # HANGUL SYLLABLE SSANGPIEUP A KIYEOK
-<UBE62> \x95\xBE |0 # HANGUL SYLLABLE SSANGPIEUP A SSANGKIYEOK
-<UBE63> \x95\xBF |0 # HANGUL SYLLABLE SSANGPIEUP A KIYEOKSIOS
-<UBE64> \xBA\xFE |0 # HANGUL SYLLABLE SSANGPIEUP A NIEUN
-<UBE65> \x95\xC0 |0 # HANGUL SYLLABLE SSANGPIEUP A NIEUNCIEUC
-<UBE66> \x95\xC1 |0 # HANGUL SYLLABLE SSANGPIEUP A NIEUNHIEUH
-<UBE67> \x95\xC2 |0 # HANGUL SYLLABLE SSANGPIEUP A TIKEUT
-<UBE68> \xBB\xA1 |0 # HANGUL SYLLABLE SSANGPIEUP A RIEUL
-<UBE69> \x95\xC3 |0 # HANGUL SYLLABLE SSANGPIEUP A RIEULKIYEOK
-<UBE6A> \xBB\xA2 |0 # HANGUL SYLLABLE SSANGPIEUP A RIEULMIEUM
-<UBE6B> \x95\xC4 |0 # HANGUL SYLLABLE SSANGPIEUP A RIEULPIEUP
-<UBE6C> \x95\xC5 |0 # HANGUL SYLLABLE SSANGPIEUP A RIEULSIOS
-<UBE6D> \x95\xC6 |0 # HANGUL SYLLABLE SSANGPIEUP A RIEULTHIEUTH
-<UBE6E> \x95\xC7 |0 # HANGUL SYLLABLE SSANGPIEUP A RIEULPHIEUPH
-<UBE6F> \x95\xC8 |0 # HANGUL SYLLABLE SSANGPIEUP A RIEULHIEUH
-<UBE70> \xBB\xA3 |0 # HANGUL SYLLABLE SSANGPIEUP A MIEUM
-<UBE71> \xBB\xA4 |0 # HANGUL SYLLABLE SSANGPIEUP A PIEUP
-<UBE72> \x95\xC9 |0 # HANGUL SYLLABLE SSANGPIEUP A PIEUPSIOS
-<UBE73> \xBB\xA5 |0 # HANGUL SYLLABLE SSANGPIEUP A SIOS
-<UBE74> \xBB\xA6 |0 # HANGUL SYLLABLE SSANGPIEUP A SSANGSIOS
-<UBE75> \xBB\xA7 |0 # HANGUL SYLLABLE SSANGPIEUP A IEUNG
-<UBE76> \x95\xCA |0 # HANGUL SYLLABLE SSANGPIEUP A CIEUC
-<UBE77> \x95\xCB |0 # HANGUL SYLLABLE SSANGPIEUP A CHIEUCH
-<UBE78> \x95\xCC |0 # HANGUL SYLLABLE SSANGPIEUP A KHIEUKH
-<UBE79> \x95\xCD |0 # HANGUL SYLLABLE SSANGPIEUP A THIEUTH
-<UBE7A> \x95\xCE |0 # HANGUL SYLLABLE SSANGPIEUP A PHIEUPH
-<UBE7B> \xBB\xA8 |0 # HANGUL SYLLABLE SSANGPIEUP A HIEUH
-<UBE7C> \xBB\xA9 |0 # HANGUL SYLLABLE SSANGPIEUP AE
-<UBE7D> \xBB\xAA |0 # HANGUL SYLLABLE SSANGPIEUP AE KIYEOK
-<UBE7E> \x95\xCF |0 # HANGUL SYLLABLE SSANGPIEUP AE SSANGKIYEOK
-<UBE7F> \x95\xD0 |0 # HANGUL SYLLABLE SSANGPIEUP AE KIYEOKSIOS
-<UBE80> \xBB\xAB |0 # HANGUL SYLLABLE SSANGPIEUP AE NIEUN
-<UBE81> \x95\xD1 |0 # HANGUL SYLLABLE SSANGPIEUP AE NIEUNCIEUC
-<UBE82> \x95\xD2 |0 # HANGUL SYLLABLE SSANGPIEUP AE NIEUNHIEUH
-<UBE83> \x95\xD3 |0 # HANGUL SYLLABLE SSANGPIEUP AE TIKEUT
-<UBE84> \xBB\xAC |0 # HANGUL SYLLABLE SSANGPIEUP AE RIEUL
-<UBE85> \x95\xD4 |0 # HANGUL SYLLABLE SSANGPIEUP AE RIEULKIYEOK
-<UBE86> \x95\xD5 |0 # HANGUL SYLLABLE SSANGPIEUP AE RIEULMIEUM
-<UBE87> \x95\xD6 |0 # HANGUL SYLLABLE SSANGPIEUP AE RIEULPIEUP
-<UBE88> \x95\xD7 |0 # HANGUL SYLLABLE SSANGPIEUP AE RIEULSIOS
-<UBE89> \x95\xD8 |0 # HANGUL SYLLABLE SSANGPIEUP AE RIEULTHIEUTH
-<UBE8A> \x95\xD9 |0 # HANGUL SYLLABLE SSANGPIEUP AE RIEULPHIEUPH
-<UBE8B> \x95\xDA |0 # HANGUL SYLLABLE SSANGPIEUP AE RIEULHIEUH
-<UBE8C> \xBB\xAD |0 # HANGUL SYLLABLE SSANGPIEUP AE MIEUM
-<UBE8D> \xBB\xAE |0 # HANGUL SYLLABLE SSANGPIEUP AE PIEUP
-<UBE8E> \x95\xDB |0 # HANGUL SYLLABLE SSANGPIEUP AE PIEUPSIOS
-<UBE8F> \xBB\xAF |0 # HANGUL SYLLABLE SSANGPIEUP AE SIOS
-<UBE90> \xBB\xB0 |0 # HANGUL SYLLABLE SSANGPIEUP AE SSANGSIOS
-<UBE91> \xBB\xB1 |0 # HANGUL SYLLABLE SSANGPIEUP AE IEUNG
-<UBE92> \x95\xDC |0 # HANGUL SYLLABLE SSANGPIEUP AE CIEUC
-<UBE93> \x95\xDD |0 # HANGUL SYLLABLE SSANGPIEUP AE CHIEUCH
-<UBE94> \x95\xDE |0 # HANGUL SYLLABLE SSANGPIEUP AE KHIEUKH
-<UBE95> \x95\xDF |0 # HANGUL SYLLABLE SSANGPIEUP AE THIEUTH
-<UBE96> \x95\xE0 |0 # HANGUL SYLLABLE SSANGPIEUP AE PHIEUPH
-<UBE97> \x95\xE1 |0 # HANGUL SYLLABLE SSANGPIEUP AE HIEUH
-<UBE98> \xBB\xB2 |0 # HANGUL SYLLABLE SSANGPIEUP YA
-<UBE99> \xBB\xB3 |0 # HANGUL SYLLABLE SSANGPIEUP YA KIYEOK
-<UBE9A> \x95\xE2 |0 # HANGUL SYLLABLE SSANGPIEUP YA SSANGKIYEOK
-<UBE9B> \x95\xE3 |0 # HANGUL SYLLABLE SSANGPIEUP YA KIYEOKSIOS
-<UBE9C> \x95\xE4 |0 # HANGUL SYLLABLE SSANGPIEUP YA NIEUN
-<UBE9D> \x95\xE5 |0 # HANGUL SYLLABLE SSANGPIEUP YA NIEUNCIEUC
-<UBE9E> \x95\xE6 |0 # HANGUL SYLLABLE SSANGPIEUP YA NIEUNHIEUH
-<UBE9F> \x95\xE7 |0 # HANGUL SYLLABLE SSANGPIEUP YA TIKEUT
-<UBEA0> \x95\xE8 |0 # HANGUL SYLLABLE SSANGPIEUP YA RIEUL
-<UBEA1> \x95\xE9 |0 # HANGUL SYLLABLE SSANGPIEUP YA RIEULKIYEOK
-<UBEA2> \x95\xEA |0 # HANGUL SYLLABLE SSANGPIEUP YA RIEULMIEUM
-<UBEA3> \x95\xEB |0 # HANGUL SYLLABLE SSANGPIEUP YA RIEULPIEUP
-<UBEA4> \x95\xEC |0 # HANGUL SYLLABLE SSANGPIEUP YA RIEULSIOS
-<UBEA5> \x95\xED |0 # HANGUL SYLLABLE SSANGPIEUP YA RIEULTHIEUTH
-<UBEA6> \x95\xEE |0 # HANGUL SYLLABLE SSANGPIEUP YA RIEULPHIEUPH
-<UBEA7> \x95\xEF |0 # HANGUL SYLLABLE SSANGPIEUP YA RIEULHIEUH
-<UBEA8> \xBB\xB4 |0 # HANGUL SYLLABLE SSANGPIEUP YA MIEUM
-<UBEA9> \x95\xF0 |0 # HANGUL SYLLABLE SSANGPIEUP YA PIEUP
-<UBEAA> \x95\xF1 |0 # HANGUL SYLLABLE SSANGPIEUP YA PIEUPSIOS
-<UBEAB> \x95\xF2 |0 # HANGUL SYLLABLE SSANGPIEUP YA SIOS
-<UBEAC> \x95\xF3 |0 # HANGUL SYLLABLE SSANGPIEUP YA SSANGSIOS
-<UBEAD> \x95\xF4 |0 # HANGUL SYLLABLE SSANGPIEUP YA IEUNG
-<UBEAE> \x95\xF5 |0 # HANGUL SYLLABLE SSANGPIEUP YA CIEUC
-<UBEAF> \x95\xF6 |0 # HANGUL SYLLABLE SSANGPIEUP YA CHIEUCH
-<UBEB0> \x95\xF7 |0 # HANGUL SYLLABLE SSANGPIEUP YA KHIEUKH
-<UBEB1> \x95\xF8 |0 # HANGUL SYLLABLE SSANGPIEUP YA THIEUTH
-<UBEB2> \x95\xF9 |0 # HANGUL SYLLABLE SSANGPIEUP YA PHIEUPH
-<UBEB3> \x95\xFA |0 # HANGUL SYLLABLE SSANGPIEUP YA HIEUH
-<UBEB4> \x95\xFB |0 # HANGUL SYLLABLE SSANGPIEUP YAE
-<UBEB5> \x95\xFC |0 # HANGUL SYLLABLE SSANGPIEUP YAE KIYEOK
-<UBEB6> \x95\xFD |0 # HANGUL SYLLABLE SSANGPIEUP YAE SSANGKIYEOK
-<UBEB7> \x95\xFE |0 # HANGUL SYLLABLE SSANGPIEUP YAE KIYEOKSIOS
-<UBEB8> \x96\x41 |0 # HANGUL SYLLABLE SSANGPIEUP YAE NIEUN
-<UBEB9> \x96\x42 |0 # HANGUL SYLLABLE SSANGPIEUP YAE NIEUNCIEUC
-<UBEBA> \x96\x43 |0 # HANGUL SYLLABLE SSANGPIEUP YAE NIEUNHIEUH
-<UBEBB> \x96\x44 |0 # HANGUL SYLLABLE SSANGPIEUP YAE TIKEUT
-<UBEBC> \x96\x45 |0 # HANGUL SYLLABLE SSANGPIEUP YAE RIEUL
-<UBEBD> \x96\x46 |0 # HANGUL SYLLABLE SSANGPIEUP YAE RIEULKIYEOK
-<UBEBE> \x96\x47 |0 # HANGUL SYLLABLE SSANGPIEUP YAE RIEULMIEUM
-<UBEBF> \x96\x48 |0 # HANGUL SYLLABLE SSANGPIEUP YAE RIEULPIEUP
-<UBEC0> \x96\x49 |0 # HANGUL SYLLABLE SSANGPIEUP YAE RIEULSIOS
-<UBEC1> \x96\x4A |0 # HANGUL SYLLABLE SSANGPIEUP YAE RIEULTHIEUTH
-<UBEC2> \x96\x4B |0 # HANGUL SYLLABLE SSANGPIEUP YAE RIEULPHIEUPH
-<UBEC3> \x96\x4C |0 # HANGUL SYLLABLE SSANGPIEUP YAE RIEULHIEUH
-<UBEC4> \x96\x4D |0 # HANGUL SYLLABLE SSANGPIEUP YAE MIEUM
-<UBEC5> \x96\x4E |0 # HANGUL SYLLABLE SSANGPIEUP YAE PIEUP
-<UBEC6> \x96\x4F |0 # HANGUL SYLLABLE SSANGPIEUP YAE PIEUPSIOS
-<UBEC7> \x96\x50 |0 # HANGUL SYLLABLE SSANGPIEUP YAE SIOS
-<UBEC8> \x96\x51 |0 # HANGUL SYLLABLE SSANGPIEUP YAE SSANGSIOS
-<UBEC9> \x96\x52 |0 # HANGUL SYLLABLE SSANGPIEUP YAE IEUNG
-<UBECA> \x96\x53 |0 # HANGUL SYLLABLE SSANGPIEUP YAE CIEUC
-<UBECB> \x96\x54 |0 # HANGUL SYLLABLE SSANGPIEUP YAE CHIEUCH
-<UBECC> \x96\x55 |0 # HANGUL SYLLABLE SSANGPIEUP YAE KHIEUKH
-<UBECD> \x96\x56 |0 # HANGUL SYLLABLE SSANGPIEUP YAE THIEUTH
-<UBECE> \x96\x57 |0 # HANGUL SYLLABLE SSANGPIEUP YAE PHIEUPH
-<UBECF> \x96\x58 |0 # HANGUL SYLLABLE SSANGPIEUP YAE HIEUH
-<UBED0> \xBB\xB5 |0 # HANGUL SYLLABLE SSANGPIEUP EO
-<UBED1> \xBB\xB6 |0 # HANGUL SYLLABLE SSANGPIEUP EO KIYEOK
-<UBED2> \x96\x59 |0 # HANGUL SYLLABLE SSANGPIEUP EO SSANGKIYEOK
-<UBED3> \x96\x5A |0 # HANGUL SYLLABLE SSANGPIEUP EO KIYEOKSIOS
-<UBED4> \xBB\xB7 |0 # HANGUL SYLLABLE SSANGPIEUP EO NIEUN
-<UBED5> \x96\x61 |0 # HANGUL SYLLABLE SSANGPIEUP EO NIEUNCIEUC
-<UBED6> \x96\x62 |0 # HANGUL SYLLABLE SSANGPIEUP EO NIEUNHIEUH
-<UBED7> \xBB\xB8 |0 # HANGUL SYLLABLE SSANGPIEUP EO TIKEUT
-<UBED8> \xBB\xB9 |0 # HANGUL SYLLABLE SSANGPIEUP EO RIEUL
-<UBED9> \x96\x63 |0 # HANGUL SYLLABLE SSANGPIEUP EO RIEULKIYEOK
-<UBEDA> \x96\x64 |0 # HANGUL SYLLABLE SSANGPIEUP EO RIEULMIEUM
-<UBEDB> \x96\x65 |0 # HANGUL SYLLABLE SSANGPIEUP EO RIEULPIEUP
-<UBEDC> \x96\x66 |0 # HANGUL SYLLABLE SSANGPIEUP EO RIEULSIOS
-<UBEDD> \x96\x67 |0 # HANGUL SYLLABLE SSANGPIEUP EO RIEULTHIEUTH
-<UBEDE> \x96\x68 |0 # HANGUL SYLLABLE SSANGPIEUP EO RIEULPHIEUPH
-<UBEDF> \x96\x69 |0 # HANGUL SYLLABLE SSANGPIEUP EO RIEULHIEUH
-<UBEE0> \xBB\xBA |0 # HANGUL SYLLABLE SSANGPIEUP EO MIEUM
-<UBEE1> \x96\x6A |0 # HANGUL SYLLABLE SSANGPIEUP EO PIEUP
-<UBEE2> \x96\x6B |0 # HANGUL SYLLABLE SSANGPIEUP EO PIEUPSIOS
-<UBEE3> \xBB\xBB |0 # HANGUL SYLLABLE SSANGPIEUP EO SIOS
-<UBEE4> \xBB\xBC |0 # HANGUL SYLLABLE SSANGPIEUP EO SSANGSIOS
-<UBEE5> \xBB\xBD |0 # HANGUL SYLLABLE SSANGPIEUP EO IEUNG
-<UBEE6> \x96\x6C |0 # HANGUL SYLLABLE SSANGPIEUP EO CIEUC
-<UBEE7> \x96\x6D |0 # HANGUL SYLLABLE SSANGPIEUP EO CHIEUCH
-<UBEE8> \x96\x6E |0 # HANGUL SYLLABLE SSANGPIEUP EO KHIEUKH
-<UBEE9> \x96\x6F |0 # HANGUL SYLLABLE SSANGPIEUP EO THIEUTH
-<UBEEA> \x96\x70 |0 # HANGUL SYLLABLE SSANGPIEUP EO PHIEUPH
-<UBEEB> \x96\x71 |0 # HANGUL SYLLABLE SSANGPIEUP EO HIEUH
-<UBEEC> \xBB\xBE |0 # HANGUL SYLLABLE SSANGPIEUP E
-<UBEED> \x96\x72 |0 # HANGUL SYLLABLE SSANGPIEUP E KIYEOK
-<UBEEE> \x96\x73 |0 # HANGUL SYLLABLE SSANGPIEUP E SSANGKIYEOK
-<UBEEF> \x96\x74 |0 # HANGUL SYLLABLE SSANGPIEUP E KIYEOKSIOS
-<UBEF0> \x96\x75 |0 # HANGUL SYLLABLE SSANGPIEUP E NIEUN
-<UBEF1> \x96\x76 |0 # HANGUL SYLLABLE SSANGPIEUP E NIEUNCIEUC
-<UBEF2> \x96\x77 |0 # HANGUL SYLLABLE SSANGPIEUP E NIEUNHIEUH
-<UBEF3> \x96\x78 |0 # HANGUL SYLLABLE SSANGPIEUP E TIKEUT
-<UBEF4> \x96\x79 |0 # HANGUL SYLLABLE SSANGPIEUP E RIEUL
-<UBEF5> \x96\x7A |0 # HANGUL SYLLABLE SSANGPIEUP E RIEULKIYEOK
-<UBEF6> \x96\x81 |0 # HANGUL SYLLABLE SSANGPIEUP E RIEULMIEUM
-<UBEF7> \x96\x82 |0 # HANGUL SYLLABLE SSANGPIEUP E RIEULPIEUP
-<UBEF8> \x96\x83 |0 # HANGUL SYLLABLE SSANGPIEUP E RIEULSIOS
-<UBEF9> \x96\x84 |0 # HANGUL SYLLABLE SSANGPIEUP E RIEULTHIEUTH
-<UBEFA> \x96\x85 |0 # HANGUL SYLLABLE SSANGPIEUP E RIEULPHIEUPH
-<UBEFB> \x96\x86 |0 # HANGUL SYLLABLE SSANGPIEUP E RIEULHIEUH
-<UBEFC> \x96\x87 |0 # HANGUL SYLLABLE SSANGPIEUP E MIEUM
-<UBEFD> \x96\x88 |0 # HANGUL SYLLABLE SSANGPIEUP E PIEUP
-<UBEFE> \x96\x89 |0 # HANGUL SYLLABLE SSANGPIEUP E PIEUPSIOS
-<UBEFF> \x96\x8A |0 # HANGUL SYLLABLE SSANGPIEUP E SIOS
-<UBF00> \x96\x8B |0 # HANGUL SYLLABLE SSANGPIEUP E SSANGSIOS
-<UBF01> \xBB\xBF |0 # HANGUL SYLLABLE SSANGPIEUP E IEUNG
-<UBF02> \x96\x8C |0 # HANGUL SYLLABLE SSANGPIEUP E CIEUC
-<UBF03> \x96\x8D |0 # HANGUL SYLLABLE SSANGPIEUP E CHIEUCH
-<UBF04> \x96\x8E |0 # HANGUL SYLLABLE SSANGPIEUP E KHIEUKH
-<UBF05> \x96\x8F |0 # HANGUL SYLLABLE SSANGPIEUP E THIEUTH
-<UBF06> \x96\x90 |0 # HANGUL SYLLABLE SSANGPIEUP E PHIEUPH
-<UBF07> \x96\x91 |0 # HANGUL SYLLABLE SSANGPIEUP E HIEUH
-<UBF08> \xBB\xC0 |0 # HANGUL SYLLABLE SSANGPIEUP YEO
-<UBF09> \xBB\xC1 |0 # HANGUL SYLLABLE SSANGPIEUP YEO KIYEOK
-<UBF0A> \x96\x92 |0 # HANGUL SYLLABLE SSANGPIEUP YEO SSANGKIYEOK
-<UBF0B> \x96\x93 |0 # HANGUL SYLLABLE SSANGPIEUP YEO KIYEOKSIOS
-<UBF0C> \x96\x94 |0 # HANGUL SYLLABLE SSANGPIEUP YEO NIEUN
-<UBF0D> \x96\x95 |0 # HANGUL SYLLABLE SSANGPIEUP YEO NIEUNCIEUC
-<UBF0E> \x96\x96 |0 # HANGUL SYLLABLE SSANGPIEUP YEO NIEUNHIEUH
-<UBF0F> \x96\x97 |0 # HANGUL SYLLABLE SSANGPIEUP YEO TIKEUT
-<UBF10> \x96\x98 |0 # HANGUL SYLLABLE SSANGPIEUP YEO RIEUL
-<UBF11> \x96\x99 |0 # HANGUL SYLLABLE SSANGPIEUP YEO RIEULKIYEOK
-<UBF12> \x96\x9A |0 # HANGUL SYLLABLE SSANGPIEUP YEO RIEULMIEUM
-<UBF13> \x96\x9B |0 # HANGUL SYLLABLE SSANGPIEUP YEO RIEULPIEUP
-<UBF14> \x96\x9C |0 # HANGUL SYLLABLE SSANGPIEUP YEO RIEULSIOS
-<UBF15> \x96\x9D |0 # HANGUL SYLLABLE SSANGPIEUP YEO RIEULTHIEUTH
-<UBF16> \x96\x9E |0 # HANGUL SYLLABLE SSANGPIEUP YEO RIEULPHIEUPH
-<UBF17> \x96\x9F |0 # HANGUL SYLLABLE SSANGPIEUP YEO RIEULHIEUH
-<UBF18> \xBB\xC2 |0 # HANGUL SYLLABLE SSANGPIEUP YEO MIEUM
-<UBF19> \xBB\xC3 |0 # HANGUL SYLLABLE SSANGPIEUP YEO PIEUP
-<UBF1A> \x96\xA0 |0 # HANGUL SYLLABLE SSANGPIEUP YEO PIEUPSIOS
-<UBF1B> \xBB\xC4 |0 # HANGUL SYLLABLE SSANGPIEUP YEO SIOS
-<UBF1C> \xBB\xC5 |0 # HANGUL SYLLABLE SSANGPIEUP YEO SSANGSIOS
-<UBF1D> \xBB\xC6 |0 # HANGUL SYLLABLE SSANGPIEUP YEO IEUNG
-<UBF1E> \x96\xA1 |0 # HANGUL SYLLABLE SSANGPIEUP YEO CIEUC
-<UBF1F> \x96\xA2 |0 # HANGUL SYLLABLE SSANGPIEUP YEO CHIEUCH
-<UBF20> \x96\xA3 |0 # HANGUL SYLLABLE SSANGPIEUP YEO KHIEUKH
-<UBF21> \x96\xA4 |0 # HANGUL SYLLABLE SSANGPIEUP YEO THIEUTH
-<UBF22> \x96\xA5 |0 # HANGUL SYLLABLE SSANGPIEUP YEO PHIEUPH
-<UBF23> \x96\xA6 |0 # HANGUL SYLLABLE SSANGPIEUP YEO HIEUH
-<UBF24> \x96\xA7 |0 # HANGUL SYLLABLE SSANGPIEUP YE
-<UBF25> \x96\xA8 |0 # HANGUL SYLLABLE SSANGPIEUP YE KIYEOK
-<UBF26> \x96\xA9 |0 # HANGUL SYLLABLE SSANGPIEUP YE SSANGKIYEOK
-<UBF27> \x96\xAA |0 # HANGUL SYLLABLE SSANGPIEUP YE KIYEOKSIOS
-<UBF28> \x96\xAB |0 # HANGUL SYLLABLE SSANGPIEUP YE NIEUN
-<UBF29> \x96\xAC |0 # HANGUL SYLLABLE SSANGPIEUP YE NIEUNCIEUC
-<UBF2A> \x96\xAD |0 # HANGUL SYLLABLE SSANGPIEUP YE NIEUNHIEUH
-<UBF2B> \x96\xAE |0 # HANGUL SYLLABLE SSANGPIEUP YE TIKEUT
-<UBF2C> \x96\xAF |0 # HANGUL SYLLABLE SSANGPIEUP YE RIEUL
-<UBF2D> \x96\xB0 |0 # HANGUL SYLLABLE SSANGPIEUP YE RIEULKIYEOK
-<UBF2E> \x96\xB1 |0 # HANGUL SYLLABLE SSANGPIEUP YE RIEULMIEUM
-<UBF2F> \x96\xB2 |0 # HANGUL SYLLABLE SSANGPIEUP YE RIEULPIEUP
-<UBF30> \x96\xB3 |0 # HANGUL SYLLABLE SSANGPIEUP YE RIEULSIOS
-<UBF31> \x96\xB4 |0 # HANGUL SYLLABLE SSANGPIEUP YE RIEULTHIEUTH
-<UBF32> \x96\xB5 |0 # HANGUL SYLLABLE SSANGPIEUP YE RIEULPHIEUPH
-<UBF33> \x96\xB6 |0 # HANGUL SYLLABLE SSANGPIEUP YE RIEULHIEUH
-<UBF34> \x96\xB7 |0 # HANGUL SYLLABLE SSANGPIEUP YE MIEUM
-<UBF35> \x96\xB8 |0 # HANGUL SYLLABLE SSANGPIEUP YE PIEUP
-<UBF36> \x96\xB9 |0 # HANGUL SYLLABLE SSANGPIEUP YE PIEUPSIOS
-<UBF37> \x96\xBA |0 # HANGUL SYLLABLE SSANGPIEUP YE SIOS
-<UBF38> \x96\xBB |0 # HANGUL SYLLABLE SSANGPIEUP YE SSANGSIOS
-<UBF39> \x96\xBC |0 # HANGUL SYLLABLE SSANGPIEUP YE IEUNG
-<UBF3A> \x96\xBD |0 # HANGUL SYLLABLE SSANGPIEUP YE CIEUC
-<UBF3B> \x96\xBE |0 # HANGUL SYLLABLE SSANGPIEUP YE CHIEUCH
-<UBF3C> \x96\xBF |0 # HANGUL SYLLABLE SSANGPIEUP YE KHIEUKH
-<UBF3D> \x96\xC0 |0 # HANGUL SYLLABLE SSANGPIEUP YE THIEUTH
-<UBF3E> \x96\xC1 |0 # HANGUL SYLLABLE SSANGPIEUP YE PHIEUPH
-<UBF3F> \x96\xC2 |0 # HANGUL SYLLABLE SSANGPIEUP YE HIEUH
-<UBF40> \xBB\xC7 |0 # HANGUL SYLLABLE SSANGPIEUP O
-<UBF41> \xBB\xC8 |0 # HANGUL SYLLABLE SSANGPIEUP O KIYEOK
-<UBF42> \x96\xC3 |0 # HANGUL SYLLABLE SSANGPIEUP O SSANGKIYEOK
-<UBF43> \x96\xC4 |0 # HANGUL SYLLABLE SSANGPIEUP O KIYEOKSIOS
-<UBF44> \xBB\xC9 |0 # HANGUL SYLLABLE SSANGPIEUP O NIEUN
-<UBF45> \x96\xC5 |0 # HANGUL SYLLABLE SSANGPIEUP O NIEUNCIEUC
-<UBF46> \x96\xC6 |0 # HANGUL SYLLABLE SSANGPIEUP O NIEUNHIEUH
-<UBF47> \x96\xC7 |0 # HANGUL SYLLABLE SSANGPIEUP O TIKEUT
-<UBF48> \xBB\xCA |0 # HANGUL SYLLABLE SSANGPIEUP O RIEUL
-<UBF49> \x96\xC8 |0 # HANGUL SYLLABLE SSANGPIEUP O RIEULKIYEOK
-<UBF4A> \x96\xC9 |0 # HANGUL SYLLABLE SSANGPIEUP O RIEULMIEUM
-<UBF4B> \x96\xCA |0 # HANGUL SYLLABLE SSANGPIEUP O RIEULPIEUP
-<UBF4C> \x96\xCB |0 # HANGUL SYLLABLE SSANGPIEUP O RIEULSIOS
-<UBF4D> \x96\xCC |0 # HANGUL SYLLABLE SSANGPIEUP O RIEULTHIEUTH
-<UBF4E> \x96\xCD |0 # HANGUL SYLLABLE SSANGPIEUP O RIEULPHIEUPH
-<UBF4F> \x96\xCE |0 # HANGUL SYLLABLE SSANGPIEUP O RIEULHIEUH
-<UBF50> \xBB\xCB |0 # HANGUL SYLLABLE SSANGPIEUP O MIEUM
-<UBF51> \xBB\xCC |0 # HANGUL SYLLABLE SSANGPIEUP O PIEUP
-<UBF52> \x96\xCF |0 # HANGUL SYLLABLE SSANGPIEUP O PIEUPSIOS
-<UBF53> \x96\xD0 |0 # HANGUL SYLLABLE SSANGPIEUP O SIOS
-<UBF54> \x96\xD1 |0 # HANGUL SYLLABLE SSANGPIEUP O SSANGSIOS
-<UBF55> \xBB\xCD |0 # HANGUL SYLLABLE SSANGPIEUP O IEUNG
-<UBF56> \x96\xD2 |0 # HANGUL SYLLABLE SSANGPIEUP O CIEUC
-<UBF57> \x96\xD3 |0 # HANGUL SYLLABLE SSANGPIEUP O CHIEUCH
-<UBF58> \x96\xD4 |0 # HANGUL SYLLABLE SSANGPIEUP O KHIEUKH
-<UBF59> \x96\xD5 |0 # HANGUL SYLLABLE SSANGPIEUP O THIEUTH
-<UBF5A> \x96\xD6 |0 # HANGUL SYLLABLE SSANGPIEUP O PHIEUPH
-<UBF5B> \x96\xD7 |0 # HANGUL SYLLABLE SSANGPIEUP O HIEUH
-<UBF5C> \x96\xD8 |0 # HANGUL SYLLABLE SSANGPIEUP WA
-<UBF5D> \x96\xD9 |0 # HANGUL SYLLABLE SSANGPIEUP WA KIYEOK
-<UBF5E> \x96\xDA |0 # HANGUL SYLLABLE SSANGPIEUP WA SSANGKIYEOK
-<UBF5F> \x96\xDB |0 # HANGUL SYLLABLE SSANGPIEUP WA KIYEOKSIOS
-<UBF60> \x96\xDC |0 # HANGUL SYLLABLE SSANGPIEUP WA NIEUN
-<UBF61> \x96\xDD |0 # HANGUL SYLLABLE SSANGPIEUP WA NIEUNCIEUC
-<UBF62> \x96\xDE |0 # HANGUL SYLLABLE SSANGPIEUP WA NIEUNHIEUH
-<UBF63> \x96\xDF |0 # HANGUL SYLLABLE SSANGPIEUP WA TIKEUT
-<UBF64> \x96\xE0 |0 # HANGUL SYLLABLE SSANGPIEUP WA RIEUL
-<UBF65> \x96\xE1 |0 # HANGUL SYLLABLE SSANGPIEUP WA RIEULKIYEOK
-<UBF66> \x96\xE2 |0 # HANGUL SYLLABLE SSANGPIEUP WA RIEULMIEUM
-<UBF67> \x96\xE3 |0 # HANGUL SYLLABLE SSANGPIEUP WA RIEULPIEUP
-<UBF68> \x96\xE4 |0 # HANGUL SYLLABLE SSANGPIEUP WA RIEULSIOS
-<UBF69> \x96\xE5 |0 # HANGUL SYLLABLE SSANGPIEUP WA RIEULTHIEUTH
-<UBF6A> \x96\xE6 |0 # HANGUL SYLLABLE SSANGPIEUP WA RIEULPHIEUPH
-<UBF6B> \x96\xE7 |0 # HANGUL SYLLABLE SSANGPIEUP WA RIEULHIEUH
-<UBF6C> \x96\xE8 |0 # HANGUL SYLLABLE SSANGPIEUP WA MIEUM
-<UBF6D> \x96\xE9 |0 # HANGUL SYLLABLE SSANGPIEUP WA PIEUP
-<UBF6E> \x96\xEA |0 # HANGUL SYLLABLE SSANGPIEUP WA PIEUPSIOS
-<UBF6F> \x96\xEB |0 # HANGUL SYLLABLE SSANGPIEUP WA SIOS
-<UBF70> \x96\xEC |0 # HANGUL SYLLABLE SSANGPIEUP WA SSANGSIOS
-<UBF71> \x96\xED |0 # HANGUL SYLLABLE SSANGPIEUP WA IEUNG
-<UBF72> \x96\xEE |0 # HANGUL SYLLABLE SSANGPIEUP WA CIEUC
-<UBF73> \x96\xEF |0 # HANGUL SYLLABLE SSANGPIEUP WA CHIEUCH
-<UBF74> \x96\xF0 |0 # HANGUL SYLLABLE SSANGPIEUP WA KHIEUKH
-<UBF75> \x96\xF1 |0 # HANGUL SYLLABLE SSANGPIEUP WA THIEUTH
-<UBF76> \x96\xF2 |0 # HANGUL SYLLABLE SSANGPIEUP WA PHIEUPH
-<UBF77> \x96\xF3 |0 # HANGUL SYLLABLE SSANGPIEUP WA HIEUH
-<UBF78> \x96\xF4 |0 # HANGUL SYLLABLE SSANGPIEUP WAE
-<UBF79> \x96\xF5 |0 # HANGUL SYLLABLE SSANGPIEUP WAE KIYEOK
-<UBF7A> \x96\xF6 |0 # HANGUL SYLLABLE SSANGPIEUP WAE SSANGKIYEOK
-<UBF7B> \x96\xF7 |0 # HANGUL SYLLABLE SSANGPIEUP WAE KIYEOKSIOS
-<UBF7C> \x96\xF8 |0 # HANGUL SYLLABLE SSANGPIEUP WAE NIEUN
-<UBF7D> \x96\xF9 |0 # HANGUL SYLLABLE SSANGPIEUP WAE NIEUNCIEUC
-<UBF7E> \x96\xFA |0 # HANGUL SYLLABLE SSANGPIEUP WAE NIEUNHIEUH
-<UBF7F> \x96\xFB |0 # HANGUL SYLLABLE SSANGPIEUP WAE TIKEUT
-<UBF80> \x96\xFC |0 # HANGUL SYLLABLE SSANGPIEUP WAE RIEUL
-<UBF81> \x96\xFD |0 # HANGUL SYLLABLE SSANGPIEUP WAE RIEULKIYEOK
-<UBF82> \x96\xFE |0 # HANGUL SYLLABLE SSANGPIEUP WAE RIEULMIEUM
-<UBF83> \x97\x41 |0 # HANGUL SYLLABLE SSANGPIEUP WAE RIEULPIEUP
-<UBF84> \x97\x42 |0 # HANGUL SYLLABLE SSANGPIEUP WAE RIEULSIOS
-<UBF85> \x97\x43 |0 # HANGUL SYLLABLE SSANGPIEUP WAE RIEULTHIEUTH
-<UBF86> \x97\x44 |0 # HANGUL SYLLABLE SSANGPIEUP WAE RIEULPHIEUPH
-<UBF87> \x97\x45 |0 # HANGUL SYLLABLE SSANGPIEUP WAE RIEULHIEUH
-<UBF88> \x97\x46 |0 # HANGUL SYLLABLE SSANGPIEUP WAE MIEUM
-<UBF89> \x97\x47 |0 # HANGUL SYLLABLE SSANGPIEUP WAE PIEUP
-<UBF8A> \x97\x48 |0 # HANGUL SYLLABLE SSANGPIEUP WAE PIEUPSIOS
-<UBF8B> \x97\x49 |0 # HANGUL SYLLABLE SSANGPIEUP WAE SIOS
-<UBF8C> \x97\x4A |0 # HANGUL SYLLABLE SSANGPIEUP WAE SSANGSIOS
-<UBF8D> \x97\x4B |0 # HANGUL SYLLABLE SSANGPIEUP WAE IEUNG
-<UBF8E> \x97\x4C |0 # HANGUL SYLLABLE SSANGPIEUP WAE CIEUC
-<UBF8F> \x97\x4D |0 # HANGUL SYLLABLE SSANGPIEUP WAE CHIEUCH
-<UBF90> \x97\x4E |0 # HANGUL SYLLABLE SSANGPIEUP WAE KHIEUKH
-<UBF91> \x97\x4F |0 # HANGUL SYLLABLE SSANGPIEUP WAE THIEUTH
-<UBF92> \x97\x50 |0 # HANGUL SYLLABLE SSANGPIEUP WAE PHIEUPH
-<UBF93> \x97\x51 |0 # HANGUL SYLLABLE SSANGPIEUP WAE HIEUH
-<UBF94> \xBB\xCE |0 # HANGUL SYLLABLE SSANGPIEUP OE
-<UBF95> \x97\x52 |0 # HANGUL SYLLABLE SSANGPIEUP OE KIYEOK
-<UBF96> \x97\x53 |0 # HANGUL SYLLABLE SSANGPIEUP OE SSANGKIYEOK
-<UBF97> \x97\x54 |0 # HANGUL SYLLABLE SSANGPIEUP OE KIYEOKSIOS
-<UBF98> \x97\x55 |0 # HANGUL SYLLABLE SSANGPIEUP OE NIEUN
-<UBF99> \x97\x56 |0 # HANGUL SYLLABLE SSANGPIEUP OE NIEUNCIEUC
-<UBF9A> \x97\x57 |0 # HANGUL SYLLABLE SSANGPIEUP OE NIEUNHIEUH
-<UBF9B> \x97\x58 |0 # HANGUL SYLLABLE SSANGPIEUP OE TIKEUT
-<UBF9C> \x97\x59 |0 # HANGUL SYLLABLE SSANGPIEUP OE RIEUL
-<UBF9D> \x97\x5A |0 # HANGUL SYLLABLE SSANGPIEUP OE RIEULKIYEOK
-<UBF9E> \x97\x61 |0 # HANGUL SYLLABLE SSANGPIEUP OE RIEULMIEUM
-<UBF9F> \x97\x62 |0 # HANGUL SYLLABLE SSANGPIEUP OE RIEULPIEUP
-<UBFA0> \x97\x63 |0 # HANGUL SYLLABLE SSANGPIEUP OE RIEULSIOS
-<UBFA1> \x97\x64 |0 # HANGUL SYLLABLE SSANGPIEUP OE RIEULTHIEUTH
-<UBFA2> \x97\x65 |0 # HANGUL SYLLABLE SSANGPIEUP OE RIEULPHIEUPH
-<UBFA3> \x97\x66 |0 # HANGUL SYLLABLE SSANGPIEUP OE RIEULHIEUH
-<UBFA4> \x97\x67 |0 # HANGUL SYLLABLE SSANGPIEUP OE MIEUM
-<UBFA5> \x97\x68 |0 # HANGUL SYLLABLE SSANGPIEUP OE PIEUP
-<UBFA6> \x97\x69 |0 # HANGUL SYLLABLE SSANGPIEUP OE PIEUPSIOS
-<UBFA7> \x97\x6A |0 # HANGUL SYLLABLE SSANGPIEUP OE SIOS
-<UBFA8> \x97\x6B |0 # HANGUL SYLLABLE SSANGPIEUP OE SSANGSIOS
-<UBFA9> \x97\x6C |0 # HANGUL SYLLABLE SSANGPIEUP OE IEUNG
-<UBFAA> \x97\x6D |0 # HANGUL SYLLABLE SSANGPIEUP OE CIEUC
-<UBFAB> \x97\x6E |0 # HANGUL SYLLABLE SSANGPIEUP OE CHIEUCH
-<UBFAC> \x97\x6F |0 # HANGUL SYLLABLE SSANGPIEUP OE KHIEUKH
-<UBFAD> \x97\x70 |0 # HANGUL SYLLABLE SSANGPIEUP OE THIEUTH
-<UBFAE> \x97\x71 |0 # HANGUL SYLLABLE SSANGPIEUP OE PHIEUPH
-<UBFAF> \x97\x72 |0 # HANGUL SYLLABLE SSANGPIEUP OE HIEUH
-<UBFB0> \xBB\xCF |0 # HANGUL SYLLABLE SSANGPIEUP YO
-<UBFB1> \x97\x73 |0 # HANGUL SYLLABLE SSANGPIEUP YO KIYEOK
-<UBFB2> \x97\x74 |0 # HANGUL SYLLABLE SSANGPIEUP YO SSANGKIYEOK
-<UBFB3> \x97\x75 |0 # HANGUL SYLLABLE SSANGPIEUP YO KIYEOKSIOS
-<UBFB4> \x97\x76 |0 # HANGUL SYLLABLE SSANGPIEUP YO NIEUN
-<UBFB5> \x97\x77 |0 # HANGUL SYLLABLE SSANGPIEUP YO NIEUNCIEUC
-<UBFB6> \x97\x78 |0 # HANGUL SYLLABLE SSANGPIEUP YO NIEUNHIEUH
-<UBFB7> \x97\x79 |0 # HANGUL SYLLABLE SSANGPIEUP YO TIKEUT
-<UBFB8> \x97\x7A |0 # HANGUL SYLLABLE SSANGPIEUP YO RIEUL
-<UBFB9> \x97\x81 |0 # HANGUL SYLLABLE SSANGPIEUP YO RIEULKIYEOK
-<UBFBA> \x97\x82 |0 # HANGUL SYLLABLE SSANGPIEUP YO RIEULMIEUM
-<UBFBB> \x97\x83 |0 # HANGUL SYLLABLE SSANGPIEUP YO RIEULPIEUP
-<UBFBC> \x97\x84 |0 # HANGUL SYLLABLE SSANGPIEUP YO RIEULSIOS
-<UBFBD> \x97\x85 |0 # HANGUL SYLLABLE SSANGPIEUP YO RIEULTHIEUTH
-<UBFBE> \x97\x86 |0 # HANGUL SYLLABLE SSANGPIEUP YO RIEULPHIEUPH
-<UBFBF> \x97\x87 |0 # HANGUL SYLLABLE SSANGPIEUP YO RIEULHIEUH
-<UBFC0> \x97\x88 |0 # HANGUL SYLLABLE SSANGPIEUP YO MIEUM
-<UBFC1> \x97\x89 |0 # HANGUL SYLLABLE SSANGPIEUP YO PIEUP
-<UBFC2> \x97\x8A |0 # HANGUL SYLLABLE SSANGPIEUP YO PIEUPSIOS
-<UBFC3> \x97\x8B |0 # HANGUL SYLLABLE SSANGPIEUP YO SIOS
-<UBFC4> \x97\x8C |0 # HANGUL SYLLABLE SSANGPIEUP YO SSANGSIOS
-<UBFC5> \xBB\xD0 |0 # HANGUL SYLLABLE SSANGPIEUP YO IEUNG
-<UBFC6> \x97\x8D |0 # HANGUL SYLLABLE SSANGPIEUP YO CIEUC
-<UBFC7> \x97\x8E |0 # HANGUL SYLLABLE SSANGPIEUP YO CHIEUCH
-<UBFC8> \x97\x8F |0 # HANGUL SYLLABLE SSANGPIEUP YO KHIEUKH
-<UBFC9> \x97\x90 |0 # HANGUL SYLLABLE SSANGPIEUP YO THIEUTH
-<UBFCA> \x97\x91 |0 # HANGUL SYLLABLE SSANGPIEUP YO PHIEUPH
-<UBFCB> \x97\x92 |0 # HANGUL SYLLABLE SSANGPIEUP YO HIEUH
-<UBFCC> \xBB\xD1 |0 # HANGUL SYLLABLE SSANGPIEUP U
-<UBFCD> \xBB\xD2 |0 # HANGUL SYLLABLE SSANGPIEUP U KIYEOK
-<UBFCE> \x97\x93 |0 # HANGUL SYLLABLE SSANGPIEUP U SSANGKIYEOK
-<UBFCF> \x97\x94 |0 # HANGUL SYLLABLE SSANGPIEUP U KIYEOKSIOS
-<UBFD0> \xBB\xD3 |0 # HANGUL SYLLABLE SSANGPIEUP U NIEUN
-<UBFD1> \x97\x95 |0 # HANGUL SYLLABLE SSANGPIEUP U NIEUNCIEUC
-<UBFD2> \x97\x96 |0 # HANGUL SYLLABLE SSANGPIEUP U NIEUNHIEUH
-<UBFD3> \x97\x97 |0 # HANGUL SYLLABLE SSANGPIEUP U TIKEUT
-<UBFD4> \xBB\xD4 |0 # HANGUL SYLLABLE SSANGPIEUP U RIEUL
-<UBFD5> \x97\x98 |0 # HANGUL SYLLABLE SSANGPIEUP U RIEULKIYEOK
-<UBFD6> \x97\x99 |0 # HANGUL SYLLABLE SSANGPIEUP U RIEULMIEUM
-<UBFD7> \x97\x9A |0 # HANGUL SYLLABLE SSANGPIEUP U RIEULPIEUP
-<UBFD8> \x97\x9B |0 # HANGUL SYLLABLE SSANGPIEUP U RIEULSIOS
-<UBFD9> \x97\x9C |0 # HANGUL SYLLABLE SSANGPIEUP U RIEULTHIEUTH
-<UBFDA> \x97\x9D |0 # HANGUL SYLLABLE SSANGPIEUP U RIEULPHIEUPH
-<UBFDB> \x97\x9E |0 # HANGUL SYLLABLE SSANGPIEUP U RIEULHIEUH
-<UBFDC> \xBB\xD5 |0 # HANGUL SYLLABLE SSANGPIEUP U MIEUM
-<UBFDD> \x97\x9F |0 # HANGUL SYLLABLE SSANGPIEUP U PIEUP
-<UBFDE> \x97\xA0 |0 # HANGUL SYLLABLE SSANGPIEUP U PIEUPSIOS
-<UBFDF> \xBB\xD6 |0 # HANGUL SYLLABLE SSANGPIEUP U SIOS
-<UBFE0> \x97\xA1 |0 # HANGUL SYLLABLE SSANGPIEUP U SSANGSIOS
-<UBFE1> \xBB\xD7 |0 # HANGUL SYLLABLE SSANGPIEUP U IEUNG
-<UBFE2> \x97\xA2 |0 # HANGUL SYLLABLE SSANGPIEUP U CIEUC
-<UBFE3> \x97\xA3 |0 # HANGUL SYLLABLE SSANGPIEUP U CHIEUCH
-<UBFE4> \x97\xA4 |0 # HANGUL SYLLABLE SSANGPIEUP U KHIEUKH
-<UBFE5> \x97\xA5 |0 # HANGUL SYLLABLE SSANGPIEUP U THIEUTH
-<UBFE6> \x97\xA6 |0 # HANGUL SYLLABLE SSANGPIEUP U PHIEUPH
-<UBFE7> \x97\xA7 |0 # HANGUL SYLLABLE SSANGPIEUP U HIEUH
-<UBFE8> \x97\xA8 |0 # HANGUL SYLLABLE SSANGPIEUP WEO
-<UBFE9> \x97\xA9 |0 # HANGUL SYLLABLE SSANGPIEUP WEO KIYEOK
-<UBFEA> \x97\xAA |0 # HANGUL SYLLABLE SSANGPIEUP WEO SSANGKIYEOK
-<UBFEB> \x97\xAB |0 # HANGUL SYLLABLE SSANGPIEUP WEO KIYEOKSIOS
-<UBFEC> \x97\xAC |0 # HANGUL SYLLABLE SSANGPIEUP WEO NIEUN
-<UBFED> \x97\xAD |0 # HANGUL SYLLABLE SSANGPIEUP WEO NIEUNCIEUC
-<UBFEE> \x97\xAE |0 # HANGUL SYLLABLE SSANGPIEUP WEO NIEUNHIEUH
-<UBFEF> \x97\xAF |0 # HANGUL SYLLABLE SSANGPIEUP WEO TIKEUT
-<UBFF0> \x97\xB0 |0 # HANGUL SYLLABLE SSANGPIEUP WEO RIEUL
-<UBFF1> \x97\xB1 |0 # HANGUL SYLLABLE SSANGPIEUP WEO RIEULKIYEOK
-<UBFF2> \x97\xB2 |0 # HANGUL SYLLABLE SSANGPIEUP WEO RIEULMIEUM
-<UBFF3> \x97\xB3 |0 # HANGUL SYLLABLE SSANGPIEUP WEO RIEULPIEUP
-<UBFF4> \x97\xB4 |0 # HANGUL SYLLABLE SSANGPIEUP WEO RIEULSIOS
-<UBFF5> \x97\xB5 |0 # HANGUL SYLLABLE SSANGPIEUP WEO RIEULTHIEUTH
-<UBFF6> \x97\xB6 |0 # HANGUL SYLLABLE SSANGPIEUP WEO RIEULPHIEUPH
-<UBFF7> \x97\xB7 |0 # HANGUL SYLLABLE SSANGPIEUP WEO RIEULHIEUH
-<UBFF8> \x97\xB8 |0 # HANGUL SYLLABLE SSANGPIEUP WEO MIEUM
-<UBFF9> \x97\xB9 |0 # HANGUL SYLLABLE SSANGPIEUP WEO PIEUP
-<UBFFA> \x97\xBA |0 # HANGUL SYLLABLE SSANGPIEUP WEO PIEUPSIOS
-<UBFFB> \x97\xBB |0 # HANGUL SYLLABLE SSANGPIEUP WEO SIOS
-<UBFFC> \x97\xBC |0 # HANGUL SYLLABLE SSANGPIEUP WEO SSANGSIOS
-<UBFFD> \x97\xBD |0 # HANGUL SYLLABLE SSANGPIEUP WEO IEUNG
-<UBFFE> \x97\xBE |0 # HANGUL SYLLABLE SSANGPIEUP WEO CIEUC
-<UBFFF> \x97\xBF |0 # HANGUL SYLLABLE SSANGPIEUP WEO CHIEUCH
-<UC000> \x97\xC0 |0 # HANGUL SYLLABLE SSANGPIEUP WEO KHIEUKH
-<UC001> \x97\xC1 |0 # HANGUL SYLLABLE SSANGPIEUP WEO THIEUTH
-<UC002> \x97\xC2 |0 # HANGUL SYLLABLE SSANGPIEUP WEO PHIEUPH
-<UC003> \x97\xC3 |0 # HANGUL SYLLABLE SSANGPIEUP WEO HIEUH
-<UC004> \x97\xC4 |0 # HANGUL SYLLABLE SSANGPIEUP WE
-<UC005> \x97\xC5 |0 # HANGUL SYLLABLE SSANGPIEUP WE KIYEOK
-<UC006> \x97\xC6 |0 # HANGUL SYLLABLE SSANGPIEUP WE SSANGKIYEOK
-<UC007> \x97\xC7 |0 # HANGUL SYLLABLE SSANGPIEUP WE KIYEOKSIOS
-<UC008> \x97\xC8 |0 # HANGUL SYLLABLE SSANGPIEUP WE NIEUN
-<UC009> \x97\xC9 |0 # HANGUL SYLLABLE SSANGPIEUP WE NIEUNCIEUC
-<UC00A> \x97\xCA |0 # HANGUL SYLLABLE SSANGPIEUP WE NIEUNHIEUH
-<UC00B> \x97\xCB |0 # HANGUL SYLLABLE SSANGPIEUP WE TIKEUT
-<UC00C> \x97\xCC |0 # HANGUL SYLLABLE SSANGPIEUP WE RIEUL
-<UC00D> \x97\xCD |0 # HANGUL SYLLABLE SSANGPIEUP WE RIEULKIYEOK
-<UC00E> \x97\xCE |0 # HANGUL SYLLABLE SSANGPIEUP WE RIEULMIEUM
-<UC00F> \x97\xCF |0 # HANGUL SYLLABLE SSANGPIEUP WE RIEULPIEUP
-<UC010> \x97\xD0 |0 # HANGUL SYLLABLE SSANGPIEUP WE RIEULSIOS
-<UC011> \x97\xD1 |0 # HANGUL SYLLABLE SSANGPIEUP WE RIEULTHIEUTH
-<UC012> \x97\xD2 |0 # HANGUL SYLLABLE SSANGPIEUP WE RIEULPHIEUPH
-<UC013> \x97\xD3 |0 # HANGUL SYLLABLE SSANGPIEUP WE RIEULHIEUH
-<UC014> \x97\xD4 |0 # HANGUL SYLLABLE SSANGPIEUP WE MIEUM
-<UC015> \x97\xD5 |0 # HANGUL SYLLABLE SSANGPIEUP WE PIEUP
-<UC016> \x97\xD6 |0 # HANGUL SYLLABLE SSANGPIEUP WE PIEUPSIOS
-<UC017> \x97\xD7 |0 # HANGUL SYLLABLE SSANGPIEUP WE SIOS
-<UC018> \x97\xD8 |0 # HANGUL SYLLABLE SSANGPIEUP WE SSANGSIOS
-<UC019> \x97\xD9 |0 # HANGUL SYLLABLE SSANGPIEUP WE IEUNG
-<UC01A> \x97\xDA |0 # HANGUL SYLLABLE SSANGPIEUP WE CIEUC
-<UC01B> \x97\xDB |0 # HANGUL SYLLABLE SSANGPIEUP WE CHIEUCH
-<UC01C> \x97\xDC |0 # HANGUL SYLLABLE SSANGPIEUP WE KHIEUKH
-<UC01D> \x97\xDD |0 # HANGUL SYLLABLE SSANGPIEUP WE THIEUTH
-<UC01E> \x97\xDE |0 # HANGUL SYLLABLE SSANGPIEUP WE PHIEUPH
-<UC01F> \x97\xDF |0 # HANGUL SYLLABLE SSANGPIEUP WE HIEUH
-<UC020> \x97\xE0 |0 # HANGUL SYLLABLE SSANGPIEUP WI
-<UC021> \x97\xE1 |0 # HANGUL SYLLABLE SSANGPIEUP WI KIYEOK
-<UC022> \x97\xE2 |0 # HANGUL SYLLABLE SSANGPIEUP WI SSANGKIYEOK
-<UC023> \x97\xE3 |0 # HANGUL SYLLABLE SSANGPIEUP WI KIYEOKSIOS
-<UC024> \x97\xE4 |0 # HANGUL SYLLABLE SSANGPIEUP WI NIEUN
-<UC025> \x97\xE5 |0 # HANGUL SYLLABLE SSANGPIEUP WI NIEUNCIEUC
-<UC026> \x97\xE6 |0 # HANGUL SYLLABLE SSANGPIEUP WI NIEUNHIEUH
-<UC027> \x97\xE7 |0 # HANGUL SYLLABLE SSANGPIEUP WI TIKEUT
-<UC028> \x97\xE8 |0 # HANGUL SYLLABLE SSANGPIEUP WI RIEUL
-<UC029> \x97\xE9 |0 # HANGUL SYLLABLE SSANGPIEUP WI RIEULKIYEOK
-<UC02A> \x97\xEA |0 # HANGUL SYLLABLE SSANGPIEUP WI RIEULMIEUM
-<UC02B> \x97\xEB |0 # HANGUL SYLLABLE SSANGPIEUP WI RIEULPIEUP
-<UC02C> \x97\xEC |0 # HANGUL SYLLABLE SSANGPIEUP WI RIEULSIOS
-<UC02D> \x97\xED |0 # HANGUL SYLLABLE SSANGPIEUP WI RIEULTHIEUTH
-<UC02E> \x97\xEE |0 # HANGUL SYLLABLE SSANGPIEUP WI RIEULPHIEUPH
-<UC02F> \x97\xEF |0 # HANGUL SYLLABLE SSANGPIEUP WI RIEULHIEUH
-<UC030> \x97\xF0 |0 # HANGUL SYLLABLE SSANGPIEUP WI MIEUM
-<UC031> \x97\xF1 |0 # HANGUL SYLLABLE SSANGPIEUP WI PIEUP
-<UC032> \x97\xF2 |0 # HANGUL SYLLABLE SSANGPIEUP WI PIEUPSIOS
-<UC033> \x97\xF3 |0 # HANGUL SYLLABLE SSANGPIEUP WI SIOS
-<UC034> \x97\xF4 |0 # HANGUL SYLLABLE SSANGPIEUP WI SSANGSIOS
-<UC035> \x97\xF5 |0 # HANGUL SYLLABLE SSANGPIEUP WI IEUNG
-<UC036> \x97\xF6 |0 # HANGUL SYLLABLE SSANGPIEUP WI CIEUC
-<UC037> \x97\xF7 |0 # HANGUL SYLLABLE SSANGPIEUP WI CHIEUCH
-<UC038> \x97\xF8 |0 # HANGUL SYLLABLE SSANGPIEUP WI KHIEUKH
-<UC039> \x97\xF9 |0 # HANGUL SYLLABLE SSANGPIEUP WI THIEUTH
-<UC03A> \x97\xFA |0 # HANGUL SYLLABLE SSANGPIEUP WI PHIEUPH
-<UC03B> \x97\xFB |0 # HANGUL SYLLABLE SSANGPIEUP WI HIEUH
-<UC03C> \xBB\xD8 |0 # HANGUL SYLLABLE SSANGPIEUP YU
-<UC03D> \x97\xFC |0 # HANGUL SYLLABLE SSANGPIEUP YU KIYEOK
-<UC03E> \x97\xFD |0 # HANGUL SYLLABLE SSANGPIEUP YU SSANGKIYEOK
-<UC03F> \x97\xFE |0 # HANGUL SYLLABLE SSANGPIEUP YU KIYEOKSIOS
-<UC040> \x98\x41 |0 # HANGUL SYLLABLE SSANGPIEUP YU NIEUN
-<UC041> \x98\x42 |0 # HANGUL SYLLABLE SSANGPIEUP YU NIEUNCIEUC
-<UC042> \x98\x43 |0 # HANGUL SYLLABLE SSANGPIEUP YU NIEUNHIEUH
-<UC043> \x98\x44 |0 # HANGUL SYLLABLE SSANGPIEUP YU TIKEUT
-<UC044> \x98\x45 |0 # HANGUL SYLLABLE SSANGPIEUP YU RIEUL
-<UC045> \x98\x46 |0 # HANGUL SYLLABLE SSANGPIEUP YU RIEULKIYEOK
-<UC046> \x98\x47 |0 # HANGUL SYLLABLE SSANGPIEUP YU RIEULMIEUM
-<UC047> \x98\x48 |0 # HANGUL SYLLABLE SSANGPIEUP YU RIEULPIEUP
-<UC048> \x98\x49 |0 # HANGUL SYLLABLE SSANGPIEUP YU RIEULSIOS
-<UC049> \x98\x4A |0 # HANGUL SYLLABLE SSANGPIEUP YU RIEULTHIEUTH
-<UC04A> \x98\x4B |0 # HANGUL SYLLABLE SSANGPIEUP YU RIEULPHIEUPH
-<UC04B> \x98\x4C |0 # HANGUL SYLLABLE SSANGPIEUP YU RIEULHIEUH
-<UC04C> \x98\x4D |0 # HANGUL SYLLABLE SSANGPIEUP YU MIEUM
-<UC04D> \x98\x4E |0 # HANGUL SYLLABLE SSANGPIEUP YU PIEUP
-<UC04E> \x98\x4F |0 # HANGUL SYLLABLE SSANGPIEUP YU PIEUPSIOS
-<UC04F> \x98\x50 |0 # HANGUL SYLLABLE SSANGPIEUP YU SIOS
-<UC050> \x98\x51 |0 # HANGUL SYLLABLE SSANGPIEUP YU SSANGSIOS
-<UC051> \xBB\xD9 |0 # HANGUL SYLLABLE SSANGPIEUP YU IEUNG
-<UC052> \x98\x52 |0 # HANGUL SYLLABLE SSANGPIEUP YU CIEUC
-<UC053> \x98\x53 |0 # HANGUL SYLLABLE SSANGPIEUP YU CHIEUCH
-<UC054> \x98\x54 |0 # HANGUL SYLLABLE SSANGPIEUP YU KHIEUKH
-<UC055> \x98\x55 |0 # HANGUL SYLLABLE SSANGPIEUP YU THIEUTH
-<UC056> \x98\x56 |0 # HANGUL SYLLABLE SSANGPIEUP YU PHIEUPH
-<UC057> \x98\x57 |0 # HANGUL SYLLABLE SSANGPIEUP YU HIEUH
-<UC058> \xBB\xDA |0 # HANGUL SYLLABLE SSANGPIEUP EU
-<UC059> \x98\x58 |0 # HANGUL SYLLABLE SSANGPIEUP EU KIYEOK
-<UC05A> \x98\x59 |0 # HANGUL SYLLABLE SSANGPIEUP EU SSANGKIYEOK
-<UC05B> \x98\x5A |0 # HANGUL SYLLABLE SSANGPIEUP EU KIYEOKSIOS
-<UC05C> \xBB\xDB |0 # HANGUL SYLLABLE SSANGPIEUP EU NIEUN
-<UC05D> \x98\x61 |0 # HANGUL SYLLABLE SSANGPIEUP EU NIEUNCIEUC
-<UC05E> \x98\x62 |0 # HANGUL SYLLABLE SSANGPIEUP EU NIEUNHIEUH
-<UC05F> \x98\x63 |0 # HANGUL SYLLABLE SSANGPIEUP EU TIKEUT
-<UC060> \xBB\xDC |0 # HANGUL SYLLABLE SSANGPIEUP EU RIEUL
-<UC061> \x98\x64 |0 # HANGUL SYLLABLE SSANGPIEUP EU RIEULKIYEOK
-<UC062> \x98\x65 |0 # HANGUL SYLLABLE SSANGPIEUP EU RIEULMIEUM
-<UC063> \x98\x66 |0 # HANGUL SYLLABLE SSANGPIEUP EU RIEULPIEUP
-<UC064> \x98\x67 |0 # HANGUL SYLLABLE SSANGPIEUP EU RIEULSIOS
-<UC065> \x98\x68 |0 # HANGUL SYLLABLE SSANGPIEUP EU RIEULTHIEUTH
-<UC066> \x98\x69 |0 # HANGUL SYLLABLE SSANGPIEUP EU RIEULPHIEUPH
-<UC067> \x98\x6A |0 # HANGUL SYLLABLE SSANGPIEUP EU RIEULHIEUH
-<UC068> \xBB\xDD |0 # HANGUL SYLLABLE SSANGPIEUP EU MIEUM
-<UC069> \xBB\xDE |0 # HANGUL SYLLABLE SSANGPIEUP EU PIEUP
-<UC06A> \x98\x6B |0 # HANGUL SYLLABLE SSANGPIEUP EU PIEUPSIOS
-<UC06B> \x98\x6C |0 # HANGUL SYLLABLE SSANGPIEUP EU SIOS
-<UC06C> \x98\x6D |0 # HANGUL SYLLABLE SSANGPIEUP EU SSANGSIOS
-<UC06D> \x98\x6E |0 # HANGUL SYLLABLE SSANGPIEUP EU IEUNG
-<UC06E> \x98\x6F |0 # HANGUL SYLLABLE SSANGPIEUP EU CIEUC
-<UC06F> \x98\x70 |0 # HANGUL SYLLABLE SSANGPIEUP EU CHIEUCH
-<UC070> \x98\x71 |0 # HANGUL SYLLABLE SSANGPIEUP EU KHIEUKH
-<UC071> \x98\x72 |0 # HANGUL SYLLABLE SSANGPIEUP EU THIEUTH
-<UC072> \x98\x73 |0 # HANGUL SYLLABLE SSANGPIEUP EU PHIEUPH
-<UC073> \x98\x74 |0 # HANGUL SYLLABLE SSANGPIEUP EU HIEUH
-<UC074> \x98\x75 |0 # HANGUL SYLLABLE SSANGPIEUP YI
-<UC075> \x98\x76 |0 # HANGUL SYLLABLE SSANGPIEUP YI KIYEOK
-<UC076> \x98\x77 |0 # HANGUL SYLLABLE SSANGPIEUP YI SSANGKIYEOK
-<UC077> \x98\x78 |0 # HANGUL SYLLABLE SSANGPIEUP YI KIYEOKSIOS
-<UC078> \x98\x79 |0 # HANGUL SYLLABLE SSANGPIEUP YI NIEUN
-<UC079> \x98\x7A |0 # HANGUL SYLLABLE SSANGPIEUP YI NIEUNCIEUC
-<UC07A> \x98\x81 |0 # HANGUL SYLLABLE SSANGPIEUP YI NIEUNHIEUH
-<UC07B> \x98\x82 |0 # HANGUL SYLLABLE SSANGPIEUP YI TIKEUT
-<UC07C> \x98\x83 |0 # HANGUL SYLLABLE SSANGPIEUP YI RIEUL
-<UC07D> \x98\x84 |0 # HANGUL SYLLABLE SSANGPIEUP YI RIEULKIYEOK
-<UC07E> \x98\x85 |0 # HANGUL SYLLABLE SSANGPIEUP YI RIEULMIEUM
-<UC07F> \x98\x86 |0 # HANGUL SYLLABLE SSANGPIEUP YI RIEULPIEUP
-<UC080> \x98\x87 |0 # HANGUL SYLLABLE SSANGPIEUP YI RIEULSIOS
-<UC081> \x98\x88 |0 # HANGUL SYLLABLE SSANGPIEUP YI RIEULTHIEUTH
-<UC082> \x98\x89 |0 # HANGUL SYLLABLE SSANGPIEUP YI RIEULPHIEUPH
-<UC083> \x98\x8A |0 # HANGUL SYLLABLE SSANGPIEUP YI RIEULHIEUH
-<UC084> \x98\x8B |0 # HANGUL SYLLABLE SSANGPIEUP YI MIEUM
-<UC085> \x98\x8C |0 # HANGUL SYLLABLE SSANGPIEUP YI PIEUP
-<UC086> \x98\x8D |0 # HANGUL SYLLABLE SSANGPIEUP YI PIEUPSIOS
-<UC087> \x98\x8E |0 # HANGUL SYLLABLE SSANGPIEUP YI SIOS
-<UC088> \x98\x8F |0 # HANGUL SYLLABLE SSANGPIEUP YI SSANGSIOS
-<UC089> \x98\x90 |0 # HANGUL SYLLABLE SSANGPIEUP YI IEUNG
-<UC08A> \x98\x91 |0 # HANGUL SYLLABLE SSANGPIEUP YI CIEUC
-<UC08B> \x98\x92 |0 # HANGUL SYLLABLE SSANGPIEUP YI CHIEUCH
-<UC08C> \x98\x93 |0 # HANGUL SYLLABLE SSANGPIEUP YI KHIEUKH
-<UC08D> \x98\x94 |0 # HANGUL SYLLABLE SSANGPIEUP YI THIEUTH
-<UC08E> \x98\x95 |0 # HANGUL SYLLABLE SSANGPIEUP YI PHIEUPH
-<UC08F> \x98\x96 |0 # HANGUL SYLLABLE SSANGPIEUP YI HIEUH
-<UC090> \xBB\xDF |0 # HANGUL SYLLABLE SSANGPIEUP I
-<UC091> \xBB\xE0 |0 # HANGUL SYLLABLE SSANGPIEUP I KIYEOK
-<UC092> \x98\x97 |0 # HANGUL SYLLABLE SSANGPIEUP I SSANGKIYEOK
-<UC093> \x98\x98 |0 # HANGUL SYLLABLE SSANGPIEUP I KIYEOKSIOS
-<UC094> \xBB\xE1 |0 # HANGUL SYLLABLE SSANGPIEUP I NIEUN
-<UC095> \x98\x99 |0 # HANGUL SYLLABLE SSANGPIEUP I NIEUNCIEUC
-<UC096> \x98\x9A |0 # HANGUL SYLLABLE SSANGPIEUP I NIEUNHIEUH
-<UC097> \x98\x9B |0 # HANGUL SYLLABLE SSANGPIEUP I TIKEUT
-<UC098> \xBB\xE2 |0 # HANGUL SYLLABLE SSANGPIEUP I RIEUL
-<UC099> \x98\x9C |0 # HANGUL SYLLABLE SSANGPIEUP I RIEULKIYEOK
-<UC09A> \x98\x9D |0 # HANGUL SYLLABLE SSANGPIEUP I RIEULMIEUM
-<UC09B> \x98\x9E |0 # HANGUL SYLLABLE SSANGPIEUP I RIEULPIEUP
-<UC09C> \x98\x9F |0 # HANGUL SYLLABLE SSANGPIEUP I RIEULSIOS
-<UC09D> \x98\xA0 |0 # HANGUL SYLLABLE SSANGPIEUP I RIEULTHIEUTH
-<UC09E> \x98\xA1 |0 # HANGUL SYLLABLE SSANGPIEUP I RIEULPHIEUPH
-<UC09F> \x98\xA2 |0 # HANGUL SYLLABLE SSANGPIEUP I RIEULHIEUH
-<UC0A0> \xBB\xE3 |0 # HANGUL SYLLABLE SSANGPIEUP I MIEUM
-<UC0A1> \xBB\xE4 |0 # HANGUL SYLLABLE SSANGPIEUP I PIEUP
-<UC0A2> \x98\xA3 |0 # HANGUL SYLLABLE SSANGPIEUP I PIEUPSIOS
-<UC0A3> \xBB\xE5 |0 # HANGUL SYLLABLE SSANGPIEUP I SIOS
-<UC0A4> \x98\xA4 |0 # HANGUL SYLLABLE SSANGPIEUP I SSANGSIOS
-<UC0A5> \xBB\xE6 |0 # HANGUL SYLLABLE SSANGPIEUP I IEUNG
-<UC0A6> \x98\xA5 |0 # HANGUL SYLLABLE SSANGPIEUP I CIEUC
-<UC0A7> \x98\xA6 |0 # HANGUL SYLLABLE SSANGPIEUP I CHIEUCH
-<UC0A8> \x98\xA7 |0 # HANGUL SYLLABLE SSANGPIEUP I KHIEUKH
-<UC0A9> \x98\xA8 |0 # HANGUL SYLLABLE SSANGPIEUP I THIEUTH
-<UC0AA> \x98\xA9 |0 # HANGUL SYLLABLE SSANGPIEUP I PHIEUPH
-<UC0AB> \x98\xAA |0 # HANGUL SYLLABLE SSANGPIEUP I HIEUH
-<UC0AC> \xBB\xE7 |0 # HANGUL SYLLABLE SIOS A
-<UC0AD> \xBB\xE8 |0 # HANGUL SYLLABLE SIOS A KIYEOK
-<UC0AE> \x98\xAB |0 # HANGUL SYLLABLE SIOS A SSANGKIYEOK
-<UC0AF> \xBB\xE9 |0 # HANGUL SYLLABLE SIOS A KIYEOKSIOS
-<UC0B0> \xBB\xEA |0 # HANGUL SYLLABLE SIOS A NIEUN
-<UC0B1> \x98\xAC |0 # HANGUL SYLLABLE SIOS A NIEUNCIEUC
-<UC0B2> \x98\xAD |0 # HANGUL SYLLABLE SIOS A NIEUNHIEUH
-<UC0B3> \xBB\xEB |0 # HANGUL SYLLABLE SIOS A TIKEUT
-<UC0B4> \xBB\xEC |0 # HANGUL SYLLABLE SIOS A RIEUL
-<UC0B5> \xBB\xED |0 # HANGUL SYLLABLE SIOS A RIEULKIYEOK
-<UC0B6> \xBB\xEE |0 # HANGUL SYLLABLE SIOS A RIEULMIEUM
-<UC0B7> \x98\xAE |0 # HANGUL SYLLABLE SIOS A RIEULPIEUP
-<UC0B8> \x98\xAF |0 # HANGUL SYLLABLE SIOS A RIEULSIOS
-<UC0B9> \x98\xB0 |0 # HANGUL SYLLABLE SIOS A RIEULTHIEUTH
-<UC0BA> \x98\xB1 |0 # HANGUL SYLLABLE SIOS A RIEULPHIEUPH
-<UC0BB> \x98\xB2 |0 # HANGUL SYLLABLE SIOS A RIEULHIEUH
-<UC0BC> \xBB\xEF |0 # HANGUL SYLLABLE SIOS A MIEUM
-<UC0BD> \xBB\xF0 |0 # HANGUL SYLLABLE SIOS A PIEUP
-<UC0BE> \x98\xB3 |0 # HANGUL SYLLABLE SIOS A PIEUPSIOS
-<UC0BF> \xBB\xF1 |0 # HANGUL SYLLABLE SIOS A SIOS
-<UC0C0> \xBB\xF2 |0 # HANGUL SYLLABLE SIOS A SSANGSIOS
-<UC0C1> \xBB\xF3 |0 # HANGUL SYLLABLE SIOS A IEUNG
-<UC0C2> \x98\xB4 |0 # HANGUL SYLLABLE SIOS A CIEUC
-<UC0C3> \x98\xB5 |0 # HANGUL SYLLABLE SIOS A CHIEUCH
-<UC0C4> \x98\xB6 |0 # HANGUL SYLLABLE SIOS A KHIEUKH
-<UC0C5> \xBB\xF4 |0 # HANGUL SYLLABLE SIOS A THIEUTH
-<UC0C6> \x98\xB7 |0 # HANGUL SYLLABLE SIOS A PHIEUPH
-<UC0C7> \x98\xB8 |0 # HANGUL SYLLABLE SIOS A HIEUH
-<UC0C8> \xBB\xF5 |0 # HANGUL SYLLABLE SIOS AE
-<UC0C9> \xBB\xF6 |0 # HANGUL SYLLABLE SIOS AE KIYEOK
-<UC0CA> \x98\xB9 |0 # HANGUL SYLLABLE SIOS AE SSANGKIYEOK
-<UC0CB> \x98\xBA |0 # HANGUL SYLLABLE SIOS AE KIYEOKSIOS
-<UC0CC> \xBB\xF7 |0 # HANGUL SYLLABLE SIOS AE NIEUN
-<UC0CD> \x98\xBB |0 # HANGUL SYLLABLE SIOS AE NIEUNCIEUC
-<UC0CE> \x98\xBC |0 # HANGUL SYLLABLE SIOS AE NIEUNHIEUH
-<UC0CF> \x98\xBD |0 # HANGUL SYLLABLE SIOS AE TIKEUT
-<UC0D0> \xBB\xF8 |0 # HANGUL SYLLABLE SIOS AE RIEUL
-<UC0D1> \x98\xBE |0 # HANGUL SYLLABLE SIOS AE RIEULKIYEOK
-<UC0D2> \x98\xBF |0 # HANGUL SYLLABLE SIOS AE RIEULMIEUM
-<UC0D3> \x98\xC0 |0 # HANGUL SYLLABLE SIOS AE RIEULPIEUP
-<UC0D4> \x98\xC1 |0 # HANGUL SYLLABLE SIOS AE RIEULSIOS
-<UC0D5> \x98\xC2 |0 # HANGUL SYLLABLE SIOS AE RIEULTHIEUTH
-<UC0D6> \x98\xC3 |0 # HANGUL SYLLABLE SIOS AE RIEULPHIEUPH
-<UC0D7> \x98\xC4 |0 # HANGUL SYLLABLE SIOS AE RIEULHIEUH
-<UC0D8> \xBB\xF9 |0 # HANGUL SYLLABLE SIOS AE MIEUM
-<UC0D9> \xBB\xFA |0 # HANGUL SYLLABLE SIOS AE PIEUP
-<UC0DA> \x98\xC5 |0 # HANGUL SYLLABLE SIOS AE PIEUPSIOS
-<UC0DB> \xBB\xFB |0 # HANGUL SYLLABLE SIOS AE SIOS
-<UC0DC> \xBB\xFC |0 # HANGUL SYLLABLE SIOS AE SSANGSIOS
-<UC0DD> \xBB\xFD |0 # HANGUL SYLLABLE SIOS AE IEUNG
-<UC0DE> \x98\xC6 |0 # HANGUL SYLLABLE SIOS AE CIEUC
-<UC0DF> \x98\xC7 |0 # HANGUL SYLLABLE SIOS AE CHIEUCH
-<UC0E0> \x98\xC8 |0 # HANGUL SYLLABLE SIOS AE KHIEUKH
-<UC0E1> \x98\xC9 |0 # HANGUL SYLLABLE SIOS AE THIEUTH
-<UC0E2> \x98\xCA |0 # HANGUL SYLLABLE SIOS AE PHIEUPH
-<UC0E3> \x98\xCB |0 # HANGUL SYLLABLE SIOS AE HIEUH
-<UC0E4> \xBB\xFE |0 # HANGUL SYLLABLE SIOS YA
-<UC0E5> \xBC\xA1 |0 # HANGUL SYLLABLE SIOS YA KIYEOK
-<UC0E6> \x98\xCC |0 # HANGUL SYLLABLE SIOS YA SSANGKIYEOK
-<UC0E7> \x98\xCD |0 # HANGUL SYLLABLE SIOS YA KIYEOKSIOS
-<UC0E8> \xBC\xA2 |0 # HANGUL SYLLABLE SIOS YA NIEUN
-<UC0E9> \x98\xCE |0 # HANGUL SYLLABLE SIOS YA NIEUNCIEUC
-<UC0EA> \x98\xCF |0 # HANGUL SYLLABLE SIOS YA NIEUNHIEUH
-<UC0EB> \x98\xD0 |0 # HANGUL SYLLABLE SIOS YA TIKEUT
-<UC0EC> \xBC\xA3 |0 # HANGUL SYLLABLE SIOS YA RIEUL
-<UC0ED> \x98\xD1 |0 # HANGUL SYLLABLE SIOS YA RIEULKIYEOK
-<UC0EE> \x98\xD2 |0 # HANGUL SYLLABLE SIOS YA RIEULMIEUM
-<UC0EF> \x98\xD3 |0 # HANGUL SYLLABLE SIOS YA RIEULPIEUP
-<UC0F0> \x98\xD4 |0 # HANGUL SYLLABLE SIOS YA RIEULSIOS
-<UC0F1> \x98\xD5 |0 # HANGUL SYLLABLE SIOS YA RIEULTHIEUTH
-<UC0F2> \x98\xD6 |0 # HANGUL SYLLABLE SIOS YA RIEULPHIEUPH
-<UC0F3> \x98\xD7 |0 # HANGUL SYLLABLE SIOS YA RIEULHIEUH
-<UC0F4> \xBC\xA4 |0 # HANGUL SYLLABLE SIOS YA MIEUM
-<UC0F5> \xBC\xA5 |0 # HANGUL SYLLABLE SIOS YA PIEUP
-<UC0F6> \x98\xD8 |0 # HANGUL SYLLABLE SIOS YA PIEUPSIOS
-<UC0F7> \xBC\xA6 |0 # HANGUL SYLLABLE SIOS YA SIOS
-<UC0F8> \x98\xD9 |0 # HANGUL SYLLABLE SIOS YA SSANGSIOS
-<UC0F9> \xBC\xA7 |0 # HANGUL SYLLABLE SIOS YA IEUNG
-<UC0FA> \x98\xDA |0 # HANGUL SYLLABLE SIOS YA CIEUC
-<UC0FB> \x98\xDB |0 # HANGUL SYLLABLE SIOS YA CHIEUCH
-<UC0FC> \x98\xDC |0 # HANGUL SYLLABLE SIOS YA KHIEUKH
-<UC0FD> \x98\xDD |0 # HANGUL SYLLABLE SIOS YA THIEUTH
-<UC0FE> \x98\xDE |0 # HANGUL SYLLABLE SIOS YA PHIEUPH
-<UC0FF> \x98\xDF |0 # HANGUL SYLLABLE SIOS YA HIEUH
-<UC100> \xBC\xA8 |0 # HANGUL SYLLABLE SIOS YAE
-<UC101> \x98\xE0 |0 # HANGUL SYLLABLE SIOS YAE KIYEOK
-<UC102> \x98\xE1 |0 # HANGUL SYLLABLE SIOS YAE SSANGKIYEOK
-<UC103> \x98\xE2 |0 # HANGUL SYLLABLE SIOS YAE KIYEOKSIOS
-<UC104> \xBC\xA9 |0 # HANGUL SYLLABLE SIOS YAE NIEUN
-<UC105> \x98\xE3 |0 # HANGUL SYLLABLE SIOS YAE NIEUNCIEUC
-<UC106> \x98\xE4 |0 # HANGUL SYLLABLE SIOS YAE NIEUNHIEUH
-<UC107> \x98\xE5 |0 # HANGUL SYLLABLE SIOS YAE TIKEUT
-<UC108> \xBC\xAA |0 # HANGUL SYLLABLE SIOS YAE RIEUL
-<UC109> \x98\xE6 |0 # HANGUL SYLLABLE SIOS YAE RIEULKIYEOK
-<UC10A> \x98\xE7 |0 # HANGUL SYLLABLE SIOS YAE RIEULMIEUM
-<UC10B> \x98\xE8 |0 # HANGUL SYLLABLE SIOS YAE RIEULPIEUP
-<UC10C> \x98\xE9 |0 # HANGUL SYLLABLE SIOS YAE RIEULSIOS
-<UC10D> \x98\xEA |0 # HANGUL SYLLABLE SIOS YAE RIEULTHIEUTH
-<UC10E> \x98\xEB |0 # HANGUL SYLLABLE SIOS YAE RIEULPHIEUPH
-<UC10F> \x98\xEC |0 # HANGUL SYLLABLE SIOS YAE RIEULHIEUH
-<UC110> \xBC\xAB |0 # HANGUL SYLLABLE SIOS YAE MIEUM
-<UC111> \x98\xED |0 # HANGUL SYLLABLE SIOS YAE PIEUP
-<UC112> \x98\xEE |0 # HANGUL SYLLABLE SIOS YAE PIEUPSIOS
-<UC113> \x98\xEF |0 # HANGUL SYLLABLE SIOS YAE SIOS
-<UC114> \x98\xF0 |0 # HANGUL SYLLABLE SIOS YAE SSANGSIOS
-<UC115> \xBC\xAC |0 # HANGUL SYLLABLE SIOS YAE IEUNG
-<UC116> \x98\xF1 |0 # HANGUL SYLLABLE SIOS YAE CIEUC
-<UC117> \x98\xF2 |0 # HANGUL SYLLABLE SIOS YAE CHIEUCH
-<UC118> \x98\xF3 |0 # HANGUL SYLLABLE SIOS YAE KHIEUKH
-<UC119> \x98\xF4 |0 # HANGUL SYLLABLE SIOS YAE THIEUTH
-<UC11A> \x98\xF5 |0 # HANGUL SYLLABLE SIOS YAE PHIEUPH
-<UC11B> \x98\xF6 |0 # HANGUL SYLLABLE SIOS YAE HIEUH
-<UC11C> \xBC\xAD |0 # HANGUL SYLLABLE SIOS EO
-<UC11D> \xBC\xAE |0 # HANGUL SYLLABLE SIOS EO KIYEOK
-<UC11E> \xBC\xAF |0 # HANGUL SYLLABLE SIOS EO SSANGKIYEOK
-<UC11F> \xBC\xB0 |0 # HANGUL SYLLABLE SIOS EO KIYEOKSIOS
-<UC120> \xBC\xB1 |0 # HANGUL SYLLABLE SIOS EO NIEUN
-<UC121> \x98\xF7 |0 # HANGUL SYLLABLE SIOS EO NIEUNCIEUC
-<UC122> \x98\xF8 |0 # HANGUL SYLLABLE SIOS EO NIEUNHIEUH
-<UC123> \xBC\xB2 |0 # HANGUL SYLLABLE SIOS EO TIKEUT
-<UC124> \xBC\xB3 |0 # HANGUL SYLLABLE SIOS EO RIEUL
-<UC125> \x98\xF9 |0 # HANGUL SYLLABLE SIOS EO RIEULKIYEOK
-<UC126> \xBC\xB4 |0 # HANGUL SYLLABLE SIOS EO RIEULMIEUM
-<UC127> \xBC\xB5 |0 # HANGUL SYLLABLE SIOS EO RIEULPIEUP
-<UC128> \x98\xFA |0 # HANGUL SYLLABLE SIOS EO RIEULSIOS
-<UC129> \x98\xFB |0 # HANGUL SYLLABLE SIOS EO RIEULTHIEUTH
-<UC12A> \x98\xFC |0 # HANGUL SYLLABLE SIOS EO RIEULPHIEUPH
-<UC12B> \x98\xFD |0 # HANGUL SYLLABLE SIOS EO RIEULHIEUH
-<UC12C> \xBC\xB6 |0 # HANGUL SYLLABLE SIOS EO MIEUM
-<UC12D> \xBC\xB7 |0 # HANGUL SYLLABLE SIOS EO PIEUP
-<UC12E> \x98\xFE |0 # HANGUL SYLLABLE SIOS EO PIEUPSIOS
-<UC12F> \xBC\xB8 |0 # HANGUL SYLLABLE SIOS EO SIOS
-<UC130> \xBC\xB9 |0 # HANGUL SYLLABLE SIOS EO SSANGSIOS
-<UC131> \xBC\xBA |0 # HANGUL SYLLABLE SIOS EO IEUNG
-<UC132> \x99\x41 |0 # HANGUL SYLLABLE SIOS EO CIEUC
-<UC133> \x99\x42 |0 # HANGUL SYLLABLE SIOS EO CHIEUCH
-<UC134> \x99\x43 |0 # HANGUL SYLLABLE SIOS EO KHIEUKH
-<UC135> \x99\x44 |0 # HANGUL SYLLABLE SIOS EO THIEUTH
-<UC136> \xBC\xBB |0 # HANGUL SYLLABLE SIOS EO PHIEUPH
-<UC137> \x99\x45 |0 # HANGUL SYLLABLE SIOS EO HIEUH
-<UC138> \xBC\xBC |0 # HANGUL SYLLABLE SIOS E
-<UC139> \xBC\xBD |0 # HANGUL SYLLABLE SIOS E KIYEOK
-<UC13A> \x99\x46 |0 # HANGUL SYLLABLE SIOS E SSANGKIYEOK
-<UC13B> \x99\x47 |0 # HANGUL SYLLABLE SIOS E KIYEOKSIOS
-<UC13C> \xBC\xBE |0 # HANGUL SYLLABLE SIOS E NIEUN
-<UC13D> \x99\x48 |0 # HANGUL SYLLABLE SIOS E NIEUNCIEUC
-<UC13E> \x99\x49 |0 # HANGUL SYLLABLE SIOS E NIEUNHIEUH
-<UC13F> \x99\x4A |0 # HANGUL SYLLABLE SIOS E TIKEUT
-<UC140> \xBC\xBF |0 # HANGUL SYLLABLE SIOS E RIEUL
-<UC141> \x99\x4B |0 # HANGUL SYLLABLE SIOS E RIEULKIYEOK
-<UC142> \x99\x4C |0 # HANGUL SYLLABLE SIOS E RIEULMIEUM
-<UC143> \x99\x4D |0 # HANGUL SYLLABLE SIOS E RIEULPIEUP
-<UC144> \x99\x4E |0 # HANGUL SYLLABLE SIOS E RIEULSIOS
-<UC145> \x99\x4F |0 # HANGUL SYLLABLE SIOS E RIEULTHIEUTH
-<UC146> \x99\x50 |0 # HANGUL SYLLABLE SIOS E RIEULPHIEUPH
-<UC147> \x99\x51 |0 # HANGUL SYLLABLE SIOS E RIEULHIEUH
-<UC148> \xBC\xC0 |0 # HANGUL SYLLABLE SIOS E MIEUM
-<UC149> \xBC\xC1 |0 # HANGUL SYLLABLE SIOS E PIEUP
-<UC14A> \x99\x52 |0 # HANGUL SYLLABLE SIOS E PIEUPSIOS
-<UC14B> \xBC\xC2 |0 # HANGUL SYLLABLE SIOS E SIOS
-<UC14C> \xBC\xC3 |0 # HANGUL SYLLABLE SIOS E SSANGSIOS
-<UC14D> \xBC\xC4 |0 # HANGUL SYLLABLE SIOS E IEUNG
-<UC14E> \x99\x53 |0 # HANGUL SYLLABLE SIOS E CIEUC
-<UC14F> \x99\x54 |0 # HANGUL SYLLABLE SIOS E CHIEUCH
-<UC150> \x99\x55 |0 # HANGUL SYLLABLE SIOS E KHIEUKH
-<UC151> \x99\x56 |0 # HANGUL SYLLABLE SIOS E THIEUTH
-<UC152> \x99\x57 |0 # HANGUL SYLLABLE SIOS E PHIEUPH
-<UC153> \x99\x58 |0 # HANGUL SYLLABLE SIOS E HIEUH
-<UC154> \xBC\xC5 |0 # HANGUL SYLLABLE SIOS YEO
-<UC155> \xBC\xC6 |0 # HANGUL SYLLABLE SIOS YEO KIYEOK
-<UC156> \x99\x59 |0 # HANGUL SYLLABLE SIOS YEO SSANGKIYEOK
-<UC157> \x99\x5A |0 # HANGUL SYLLABLE SIOS YEO KIYEOKSIOS
-<UC158> \xBC\xC7 |0 # HANGUL SYLLABLE SIOS YEO NIEUN
-<UC159> \x99\x61 |0 # HANGUL SYLLABLE SIOS YEO NIEUNCIEUC
-<UC15A> \x99\x62 |0 # HANGUL SYLLABLE SIOS YEO NIEUNHIEUH
-<UC15B> \x99\x63 |0 # HANGUL SYLLABLE SIOS YEO TIKEUT
-<UC15C> \xBC\xC8 |0 # HANGUL SYLLABLE SIOS YEO RIEUL
-<UC15D> \x99\x64 |0 # HANGUL SYLLABLE SIOS YEO RIEULKIYEOK
-<UC15E> \x99\x65 |0 # HANGUL SYLLABLE SIOS YEO RIEULMIEUM
-<UC15F> \x99\x66 |0 # HANGUL SYLLABLE SIOS YEO RIEULPIEUP
-<UC160> \x99\x67 |0 # HANGUL SYLLABLE SIOS YEO RIEULSIOS
-<UC161> \x99\x68 |0 # HANGUL SYLLABLE SIOS YEO RIEULTHIEUTH
-<UC162> \x99\x69 |0 # HANGUL SYLLABLE SIOS YEO RIEULPHIEUPH
-<UC163> \x99\x6A |0 # HANGUL SYLLABLE SIOS YEO RIEULHIEUH
-<UC164> \xBC\xC9 |0 # HANGUL SYLLABLE SIOS YEO MIEUM
-<UC165> \xBC\xCA |0 # HANGUL SYLLABLE SIOS YEO PIEUP
-<UC166> \x99\x6B |0 # HANGUL SYLLABLE SIOS YEO PIEUPSIOS
-<UC167> \xBC\xCB |0 # HANGUL SYLLABLE SIOS YEO SIOS
-<UC168> \xBC\xCC |0 # HANGUL SYLLABLE SIOS YEO SSANGSIOS
-<UC169> \xBC\xCD |0 # HANGUL SYLLABLE SIOS YEO IEUNG
-<UC16A> \x99\x6C |0 # HANGUL SYLLABLE SIOS YEO CIEUC
-<UC16B> \x99\x6D |0 # HANGUL SYLLABLE SIOS YEO CHIEUCH
-<UC16C> \x99\x6E |0 # HANGUL SYLLABLE SIOS YEO KHIEUKH
-<UC16D> \x99\x6F |0 # HANGUL SYLLABLE SIOS YEO THIEUTH
-<UC16E> \x99\x70 |0 # HANGUL SYLLABLE SIOS YEO PHIEUPH
-<UC16F> \x99\x71 |0 # HANGUL SYLLABLE SIOS YEO HIEUH
-<UC170> \xBC\xCE |0 # HANGUL SYLLABLE SIOS YE
-<UC171> \x99\x72 |0 # HANGUL SYLLABLE SIOS YE KIYEOK
-<UC172> \x99\x73 |0 # HANGUL SYLLABLE SIOS YE SSANGKIYEOK
-<UC173> \x99\x74 |0 # HANGUL SYLLABLE SIOS YE KIYEOKSIOS
-<UC174> \xBC\xCF |0 # HANGUL SYLLABLE SIOS YE NIEUN
-<UC175> \x99\x75 |0 # HANGUL SYLLABLE SIOS YE NIEUNCIEUC
-<UC176> \x99\x76 |0 # HANGUL SYLLABLE SIOS YE NIEUNHIEUH
-<UC177> \x99\x77 |0 # HANGUL SYLLABLE SIOS YE TIKEUT
-<UC178> \xBC\xD0 |0 # HANGUL SYLLABLE SIOS YE RIEUL
-<UC179> \x99\x78 |0 # HANGUL SYLLABLE SIOS YE RIEULKIYEOK
-<UC17A> \x99\x79 |0 # HANGUL SYLLABLE SIOS YE RIEULMIEUM
-<UC17B> \x99\x7A |0 # HANGUL SYLLABLE SIOS YE RIEULPIEUP
-<UC17C> \x99\x81 |0 # HANGUL SYLLABLE SIOS YE RIEULSIOS
-<UC17D> \x99\x82 |0 # HANGUL SYLLABLE SIOS YE RIEULTHIEUTH
-<UC17E> \x99\x83 |0 # HANGUL SYLLABLE SIOS YE RIEULPHIEUPH
-<UC17F> \x99\x84 |0 # HANGUL SYLLABLE SIOS YE RIEULHIEUH
-<UC180> \x99\x85 |0 # HANGUL SYLLABLE SIOS YE MIEUM
-<UC181> \x99\x86 |0 # HANGUL SYLLABLE SIOS YE PIEUP
-<UC182> \x99\x87 |0 # HANGUL SYLLABLE SIOS YE PIEUPSIOS
-<UC183> \x99\x88 |0 # HANGUL SYLLABLE SIOS YE SIOS
-<UC184> \x99\x89 |0 # HANGUL SYLLABLE SIOS YE SSANGSIOS
-<UC185> \xBC\xD1 |0 # HANGUL SYLLABLE SIOS YE IEUNG
-<UC186> \x99\x8A |0 # HANGUL SYLLABLE SIOS YE CIEUC
-<UC187> \x99\x8B |0 # HANGUL SYLLABLE SIOS YE CHIEUCH
-<UC188> \x99\x8C |0 # HANGUL SYLLABLE SIOS YE KHIEUKH
-<UC189> \x99\x8D |0 # HANGUL SYLLABLE SIOS YE THIEUTH
-<UC18A> \x99\x8E |0 # HANGUL SYLLABLE SIOS YE PHIEUPH
-<UC18B> \x99\x8F |0 # HANGUL SYLLABLE SIOS YE HIEUH
-<UC18C> \xBC\xD2 |0 # HANGUL SYLLABLE SIOS O
-<UC18D> \xBC\xD3 |0 # HANGUL SYLLABLE SIOS O KIYEOK
-<UC18E> \xBC\xD4 |0 # HANGUL SYLLABLE SIOS O SSANGKIYEOK
-<UC18F> \x99\x90 |0 # HANGUL SYLLABLE SIOS O KIYEOKSIOS
-<UC190> \xBC\xD5 |0 # HANGUL SYLLABLE SIOS O NIEUN
-<UC191> \x99\x91 |0 # HANGUL SYLLABLE SIOS O NIEUNCIEUC
-<UC192> \x99\x92 |0 # HANGUL SYLLABLE SIOS O NIEUNHIEUH
-<UC193> \x99\x93 |0 # HANGUL SYLLABLE SIOS O TIKEUT
-<UC194> \xBC\xD6 |0 # HANGUL SYLLABLE SIOS O RIEUL
-<UC195> \x99\x94 |0 # HANGUL SYLLABLE SIOS O RIEULKIYEOK
-<UC196> \xBC\xD7 |0 # HANGUL SYLLABLE SIOS O RIEULMIEUM
-<UC197> \x99\x95 |0 # HANGUL SYLLABLE SIOS O RIEULPIEUP
-<UC198> \x99\x96 |0 # HANGUL SYLLABLE SIOS O RIEULSIOS
-<UC199> \x99\x97 |0 # HANGUL SYLLABLE SIOS O RIEULTHIEUTH
-<UC19A> \x99\x98 |0 # HANGUL SYLLABLE SIOS O RIEULPHIEUPH
-<UC19B> \x99\x99 |0 # HANGUL SYLLABLE SIOS O RIEULHIEUH
-<UC19C> \xBC\xD8 |0 # HANGUL SYLLABLE SIOS O MIEUM
-<UC19D> \xBC\xD9 |0 # HANGUL SYLLABLE SIOS O PIEUP
-<UC19E> \x99\x9A |0 # HANGUL SYLLABLE SIOS O PIEUPSIOS
-<UC19F> \xBC\xDA |0 # HANGUL SYLLABLE SIOS O SIOS
-<UC1A0> \x99\x9B |0 # HANGUL SYLLABLE SIOS O SSANGSIOS
-<UC1A1> \xBC\xDB |0 # HANGUL SYLLABLE SIOS O IEUNG
-<UC1A2> \x99\x9C |0 # HANGUL SYLLABLE SIOS O CIEUC
-<UC1A3> \x99\x9D |0 # HANGUL SYLLABLE SIOS O CHIEUCH
-<UC1A4> \x99\x9E |0 # HANGUL SYLLABLE SIOS O KHIEUKH
-<UC1A5> \xBC\xDC |0 # HANGUL SYLLABLE SIOS O THIEUTH
-<UC1A6> \x99\x9F |0 # HANGUL SYLLABLE SIOS O PHIEUPH
-<UC1A7> \x99\xA0 |0 # HANGUL SYLLABLE SIOS O HIEUH
-<UC1A8> \xBC\xDD |0 # HANGUL SYLLABLE SIOS WA
-<UC1A9> \xBC\xDE |0 # HANGUL SYLLABLE SIOS WA KIYEOK
-<UC1AA> \x99\xA1 |0 # HANGUL SYLLABLE SIOS WA SSANGKIYEOK
-<UC1AB> \x99\xA2 |0 # HANGUL SYLLABLE SIOS WA KIYEOKSIOS
-<UC1AC> \xBC\xDF |0 # HANGUL SYLLABLE SIOS WA NIEUN
-<UC1AD> \x99\xA3 |0 # HANGUL SYLLABLE SIOS WA NIEUNCIEUC
-<UC1AE> \x99\xA4 |0 # HANGUL SYLLABLE SIOS WA NIEUNHIEUH
-<UC1AF> \x99\xA5 |0 # HANGUL SYLLABLE SIOS WA TIKEUT
-<UC1B0> \xBC\xE0 |0 # HANGUL SYLLABLE SIOS WA RIEUL
-<UC1B1> \x99\xA6 |0 # HANGUL SYLLABLE SIOS WA RIEULKIYEOK
-<UC1B2> \x99\xA7 |0 # HANGUL SYLLABLE SIOS WA RIEULMIEUM
-<UC1B3> \x99\xA8 |0 # HANGUL SYLLABLE SIOS WA RIEULPIEUP
-<UC1B4> \x99\xA9 |0 # HANGUL SYLLABLE SIOS WA RIEULSIOS
-<UC1B5> \x99\xAA |0 # HANGUL SYLLABLE SIOS WA RIEULTHIEUTH
-<UC1B6> \x99\xAB |0 # HANGUL SYLLABLE SIOS WA RIEULPHIEUPH
-<UC1B7> \x99\xAC |0 # HANGUL SYLLABLE SIOS WA RIEULHIEUH
-<UC1B8> \x99\xAD |0 # HANGUL SYLLABLE SIOS WA MIEUM
-<UC1B9> \x99\xAE |0 # HANGUL SYLLABLE SIOS WA PIEUP
-<UC1BA> \x99\xAF |0 # HANGUL SYLLABLE SIOS WA PIEUPSIOS
-<UC1BB> \x99\xB0 |0 # HANGUL SYLLABLE SIOS WA SIOS
-<UC1BC> \x99\xB1 |0 # HANGUL SYLLABLE SIOS WA SSANGSIOS
-<UC1BD> \xBC\xE1 |0 # HANGUL SYLLABLE SIOS WA IEUNG
-<UC1BE> \x99\xB2 |0 # HANGUL SYLLABLE SIOS WA CIEUC
-<UC1BF> \x99\xB3 |0 # HANGUL SYLLABLE SIOS WA CHIEUCH
-<UC1C0> \x99\xB4 |0 # HANGUL SYLLABLE SIOS WA KHIEUKH
-<UC1C1> \x99\xB5 |0 # HANGUL SYLLABLE SIOS WA THIEUTH
-<UC1C2> \x99\xB6 |0 # HANGUL SYLLABLE SIOS WA PHIEUPH
-<UC1C3> \x99\xB7 |0 # HANGUL SYLLABLE SIOS WA HIEUH
-<UC1C4> \xBC\xE2 |0 # HANGUL SYLLABLE SIOS WAE
-<UC1C5> \x99\xB8 |0 # HANGUL SYLLABLE SIOS WAE KIYEOK
-<UC1C6> \x99\xB9 |0 # HANGUL SYLLABLE SIOS WAE SSANGKIYEOK
-<UC1C7> \x99\xBA |0 # HANGUL SYLLABLE SIOS WAE KIYEOKSIOS
-<UC1C8> \xBC\xE3 |0 # HANGUL SYLLABLE SIOS WAE NIEUN
-<UC1C9> \x99\xBB |0 # HANGUL SYLLABLE SIOS WAE NIEUNCIEUC
-<UC1CA> \x99\xBC |0 # HANGUL SYLLABLE SIOS WAE NIEUNHIEUH
-<UC1CB> \x99\xBD |0 # HANGUL SYLLABLE SIOS WAE TIKEUT
-<UC1CC> \xBC\xE4 |0 # HANGUL SYLLABLE SIOS WAE RIEUL
-<UC1CD> \x99\xBE |0 # HANGUL SYLLABLE SIOS WAE RIEULKIYEOK
-<UC1CE> \x99\xBF |0 # HANGUL SYLLABLE SIOS WAE RIEULMIEUM
-<UC1CF> \x99\xC0 |0 # HANGUL SYLLABLE SIOS WAE RIEULPIEUP
-<UC1D0> \x99\xC1 |0 # HANGUL SYLLABLE SIOS WAE RIEULSIOS
-<UC1D1> \x99\xC2 |0 # HANGUL SYLLABLE SIOS WAE RIEULTHIEUTH
-<UC1D2> \x99\xC3 |0 # HANGUL SYLLABLE SIOS WAE RIEULPHIEUPH
-<UC1D3> \x99\xC4 |0 # HANGUL SYLLABLE SIOS WAE RIEULHIEUH
-<UC1D4> \xBC\xE5 |0 # HANGUL SYLLABLE SIOS WAE MIEUM
-<UC1D5> \x99\xC5 |0 # HANGUL SYLLABLE SIOS WAE PIEUP
-<UC1D6> \x99\xC6 |0 # HANGUL SYLLABLE SIOS WAE PIEUPSIOS
-<UC1D7> \xBC\xE6 |0 # HANGUL SYLLABLE SIOS WAE SIOS
-<UC1D8> \xBC\xE7 |0 # HANGUL SYLLABLE SIOS WAE SSANGSIOS
-<UC1D9> \x99\xC7 |0 # HANGUL SYLLABLE SIOS WAE IEUNG
-<UC1DA> \x99\xC8 |0 # HANGUL SYLLABLE SIOS WAE CIEUC
-<UC1DB> \x99\xC9 |0 # HANGUL SYLLABLE SIOS WAE CHIEUCH
-<UC1DC> \x99\xCA |0 # HANGUL SYLLABLE SIOS WAE KHIEUKH
-<UC1DD> \x99\xCB |0 # HANGUL SYLLABLE SIOS WAE THIEUTH
-<UC1DE> \x99\xCC |0 # HANGUL SYLLABLE SIOS WAE PHIEUPH
-<UC1DF> \x99\xCD |0 # HANGUL SYLLABLE SIOS WAE HIEUH
-<UC1E0> \xBC\xE8 |0 # HANGUL SYLLABLE SIOS OE
-<UC1E1> \x99\xCE |0 # HANGUL SYLLABLE SIOS OE KIYEOK
-<UC1E2> \x99\xCF |0 # HANGUL SYLLABLE SIOS OE SSANGKIYEOK
-<UC1E3> \x99\xD0 |0 # HANGUL SYLLABLE SIOS OE KIYEOKSIOS
-<UC1E4> \xBC\xE9 |0 # HANGUL SYLLABLE SIOS OE NIEUN
-<UC1E5> \x99\xD1 |0 # HANGUL SYLLABLE SIOS OE NIEUNCIEUC
-<UC1E6> \x99\xD2 |0 # HANGUL SYLLABLE SIOS OE NIEUNHIEUH
-<UC1E7> \x99\xD3 |0 # HANGUL SYLLABLE SIOS OE TIKEUT
-<UC1E8> \xBC\xEA |0 # HANGUL SYLLABLE SIOS OE RIEUL
-<UC1E9> \x99\xD4 |0 # HANGUL SYLLABLE SIOS OE RIEULKIYEOK
-<UC1EA> \x99\xD5 |0 # HANGUL SYLLABLE SIOS OE RIEULMIEUM
-<UC1EB> \x99\xD6 |0 # HANGUL SYLLABLE SIOS OE RIEULPIEUP
-<UC1EC> \x99\xD7 |0 # HANGUL SYLLABLE SIOS OE RIEULSIOS
-<UC1ED> \x99\xD8 |0 # HANGUL SYLLABLE SIOS OE RIEULTHIEUTH
-<UC1EE> \x99\xD9 |0 # HANGUL SYLLABLE SIOS OE RIEULPHIEUPH
-<UC1EF> \x99\xDA |0 # HANGUL SYLLABLE SIOS OE RIEULHIEUH
-<UC1F0> \xBC\xEB |0 # HANGUL SYLLABLE SIOS OE MIEUM
-<UC1F1> \xBC\xEC |0 # HANGUL SYLLABLE SIOS OE PIEUP
-<UC1F2> \x99\xDB |0 # HANGUL SYLLABLE SIOS OE PIEUPSIOS
-<UC1F3> \xBC\xED |0 # HANGUL SYLLABLE SIOS OE SIOS
-<UC1F4> \x99\xDC |0 # HANGUL SYLLABLE SIOS OE SSANGSIOS
-<UC1F5> \x99\xDD |0 # HANGUL SYLLABLE SIOS OE IEUNG
-<UC1F6> \x99\xDE |0 # HANGUL SYLLABLE SIOS OE CIEUC
-<UC1F7> \x99\xDF |0 # HANGUL SYLLABLE SIOS OE CHIEUCH
-<UC1F8> \x99\xE0 |0 # HANGUL SYLLABLE SIOS OE KHIEUKH
-<UC1F9> \x99\xE1 |0 # HANGUL SYLLABLE SIOS OE THIEUTH
-<UC1FA> \x99\xE2 |0 # HANGUL SYLLABLE SIOS OE PHIEUPH
-<UC1FB> \x99\xE3 |0 # HANGUL SYLLABLE SIOS OE HIEUH
-<UC1FC> \xBC\xEE |0 # HANGUL SYLLABLE SIOS YO
-<UC1FD> \xBC\xEF |0 # HANGUL SYLLABLE SIOS YO KIYEOK
-<UC1FE> \x99\xE4 |0 # HANGUL SYLLABLE SIOS YO SSANGKIYEOK
-<UC1FF> \x99\xE5 |0 # HANGUL SYLLABLE SIOS YO KIYEOKSIOS
-<UC200> \xBC\xF0 |0 # HANGUL SYLLABLE SIOS YO NIEUN
-<UC201> \x99\xE6 |0 # HANGUL SYLLABLE SIOS YO NIEUNCIEUC
-<UC202> \x99\xE7 |0 # HANGUL SYLLABLE SIOS YO NIEUNHIEUH
-<UC203> \x99\xE8 |0 # HANGUL SYLLABLE SIOS YO TIKEUT
-<UC204> \xBC\xF1 |0 # HANGUL SYLLABLE SIOS YO RIEUL
-<UC205> \x99\xE9 |0 # HANGUL SYLLABLE SIOS YO RIEULKIYEOK
-<UC206> \x99\xEA |0 # HANGUL SYLLABLE SIOS YO RIEULMIEUM
-<UC207> \x99\xEB |0 # HANGUL SYLLABLE SIOS YO RIEULPIEUP
-<UC208> \x99\xEC |0 # HANGUL SYLLABLE SIOS YO RIEULSIOS
-<UC209> \x99\xED |0 # HANGUL SYLLABLE SIOS YO RIEULTHIEUTH
-<UC20A> \x99\xEE |0 # HANGUL SYLLABLE SIOS YO RIEULPHIEUPH
-<UC20B> \x99\xEF |0 # HANGUL SYLLABLE SIOS YO RIEULHIEUH
-<UC20C> \xBC\xF2 |0 # HANGUL SYLLABLE SIOS YO MIEUM
-<UC20D> \xBC\xF3 |0 # HANGUL SYLLABLE SIOS YO PIEUP
-<UC20E> \x99\xF0 |0 # HANGUL SYLLABLE SIOS YO PIEUPSIOS
-<UC20F> \xBC\xF4 |0 # HANGUL SYLLABLE SIOS YO SIOS
-<UC210> \x99\xF1 |0 # HANGUL SYLLABLE SIOS YO SSANGSIOS
-<UC211> \xBC\xF5 |0 # HANGUL SYLLABLE SIOS YO IEUNG
-<UC212> \x99\xF2 |0 # HANGUL SYLLABLE SIOS YO CIEUC
-<UC213> \x99\xF3 |0 # HANGUL SYLLABLE SIOS YO CHIEUCH
-<UC214> \x99\xF4 |0 # HANGUL SYLLABLE SIOS YO KHIEUKH
-<UC215> \x99\xF5 |0 # HANGUL SYLLABLE SIOS YO THIEUTH
-<UC216> \x99\xF6 |0 # HANGUL SYLLABLE SIOS YO PHIEUPH
-<UC217> \x99\xF7 |0 # HANGUL SYLLABLE SIOS YO HIEUH
-<UC218> \xBC\xF6 |0 # HANGUL SYLLABLE SIOS U
-<UC219> \xBC\xF7 |0 # HANGUL SYLLABLE SIOS U KIYEOK
-<UC21A> \x99\xF8 |0 # HANGUL SYLLABLE SIOS U SSANGKIYEOK
-<UC21B> \x99\xF9 |0 # HANGUL SYLLABLE SIOS U KIYEOKSIOS
-<UC21C> \xBC\xF8 |0 # HANGUL SYLLABLE SIOS U NIEUN
-<UC21D> \x99\xFA |0 # HANGUL SYLLABLE SIOS U NIEUNCIEUC
-<UC21E> \x99\xFB |0 # HANGUL SYLLABLE SIOS U NIEUNHIEUH
-<UC21F> \xBC\xF9 |0 # HANGUL SYLLABLE SIOS U TIKEUT
-<UC220> \xBC\xFA |0 # HANGUL SYLLABLE SIOS U RIEUL
-<UC221> \x99\xFC |0 # HANGUL SYLLABLE SIOS U RIEULKIYEOK
-<UC222> \x99\xFD |0 # HANGUL SYLLABLE SIOS U RIEULMIEUM
-<UC223> \x99\xFE |0 # HANGUL SYLLABLE SIOS U RIEULPIEUP
-<UC224> \x9A\x41 |0 # HANGUL SYLLABLE SIOS U RIEULSIOS
-<UC225> \x9A\x42 |0 # HANGUL SYLLABLE SIOS U RIEULTHIEUTH
-<UC226> \x9A\x43 |0 # HANGUL SYLLABLE SIOS U RIEULPHIEUPH
-<UC227> \x9A\x44 |0 # HANGUL SYLLABLE SIOS U RIEULHIEUH
-<UC228> \xBC\xFB |0 # HANGUL SYLLABLE SIOS U MIEUM
-<UC229> \xBC\xFC |0 # HANGUL SYLLABLE SIOS U PIEUP
-<UC22A> \x9A\x45 |0 # HANGUL SYLLABLE SIOS U PIEUPSIOS
-<UC22B> \xBC\xFD |0 # HANGUL SYLLABLE SIOS U SIOS
-<UC22C> \x9A\x46 |0 # HANGUL SYLLABLE SIOS U SSANGSIOS
-<UC22D> \xBC\xFE |0 # HANGUL SYLLABLE SIOS U IEUNG
-<UC22E> \x9A\x47 |0 # HANGUL SYLLABLE SIOS U CIEUC
-<UC22F> \xBD\xA1 |0 # HANGUL SYLLABLE SIOS U CHIEUCH
-<UC230> \x9A\x48 |0 # HANGUL SYLLABLE SIOS U KHIEUKH
-<UC231> \xBD\xA2 |0 # HANGUL SYLLABLE SIOS U THIEUTH
-<UC232> \xBD\xA3 |0 # HANGUL SYLLABLE SIOS U PHIEUPH
-<UC233> \x9A\x49 |0 # HANGUL SYLLABLE SIOS U HIEUH
-<UC234> \xBD\xA4 |0 # HANGUL SYLLABLE SIOS WEO
-<UC235> \x9A\x4A |0 # HANGUL SYLLABLE SIOS WEO KIYEOK
-<UC236> \x9A\x4B |0 # HANGUL SYLLABLE SIOS WEO SSANGKIYEOK
-<UC237> \x9A\x4C |0 # HANGUL SYLLABLE SIOS WEO KIYEOKSIOS
-<UC238> \x9A\x4D |0 # HANGUL SYLLABLE SIOS WEO NIEUN
-<UC239> \x9A\x4E |0 # HANGUL SYLLABLE SIOS WEO NIEUNCIEUC
-<UC23A> \x9A\x4F |0 # HANGUL SYLLABLE SIOS WEO NIEUNHIEUH
-<UC23B> \x9A\x50 |0 # HANGUL SYLLABLE SIOS WEO TIKEUT
-<UC23C> \x9A\x51 |0 # HANGUL SYLLABLE SIOS WEO RIEUL
-<UC23D> \x9A\x52 |0 # HANGUL SYLLABLE SIOS WEO RIEULKIYEOK
-<UC23E> \x9A\x53 |0 # HANGUL SYLLABLE SIOS WEO RIEULMIEUM
-<UC23F> \x9A\x54 |0 # HANGUL SYLLABLE SIOS WEO RIEULPIEUP
-<UC240> \x9A\x55 |0 # HANGUL SYLLABLE SIOS WEO RIEULSIOS
-<UC241> \x9A\x56 |0 # HANGUL SYLLABLE SIOS WEO RIEULTHIEUTH
-<UC242> \x9A\x57 |0 # HANGUL SYLLABLE SIOS WEO RIEULPHIEUPH
-<UC243> \x9A\x58 |0 # HANGUL SYLLABLE SIOS WEO RIEULHIEUH
-<UC244> \x9A\x59 |0 # HANGUL SYLLABLE SIOS WEO MIEUM
-<UC245> \x9A\x5A |0 # HANGUL SYLLABLE SIOS WEO PIEUP
-<UC246> \x9A\x61 |0 # HANGUL SYLLABLE SIOS WEO PIEUPSIOS
-<UC247> \x9A\x62 |0 # HANGUL SYLLABLE SIOS WEO SIOS
-<UC248> \xBD\xA5 |0 # HANGUL SYLLABLE SIOS WEO SSANGSIOS
-<UC249> \x9A\x63 |0 # HANGUL SYLLABLE SIOS WEO IEUNG
-<UC24A> \x9A\x64 |0 # HANGUL SYLLABLE SIOS WEO CIEUC
-<UC24B> \x9A\x65 |0 # HANGUL SYLLABLE SIOS WEO CHIEUCH
-<UC24C> \x9A\x66 |0 # HANGUL SYLLABLE SIOS WEO KHIEUKH
-<UC24D> \x9A\x67 |0 # HANGUL SYLLABLE SIOS WEO THIEUTH
-<UC24E> \x9A\x68 |0 # HANGUL SYLLABLE SIOS WEO PHIEUPH
-<UC24F> \x9A\x69 |0 # HANGUL SYLLABLE SIOS WEO HIEUH
-<UC250> \xBD\xA6 |0 # HANGUL SYLLABLE SIOS WE
-<UC251> \xBD\xA7 |0 # HANGUL SYLLABLE SIOS WE KIYEOK
-<UC252> \x9A\x6A |0 # HANGUL SYLLABLE SIOS WE SSANGKIYEOK
-<UC253> \x9A\x6B |0 # HANGUL SYLLABLE SIOS WE KIYEOKSIOS
-<UC254> \xBD\xA8 |0 # HANGUL SYLLABLE SIOS WE NIEUN
-<UC255> \x9A\x6C |0 # HANGUL SYLLABLE SIOS WE NIEUNCIEUC
-<UC256> \x9A\x6D |0 # HANGUL SYLLABLE SIOS WE NIEUNHIEUH
-<UC257> \x9A\x6E |0 # HANGUL SYLLABLE SIOS WE TIKEUT
-<UC258> \xBD\xA9 |0 # HANGUL SYLLABLE SIOS WE RIEUL
-<UC259> \x9A\x6F |0 # HANGUL SYLLABLE SIOS WE RIEULKIYEOK
-<UC25A> \x9A\x70 |0 # HANGUL SYLLABLE SIOS WE RIEULMIEUM
-<UC25B> \x9A\x71 |0 # HANGUL SYLLABLE SIOS WE RIEULPIEUP
-<UC25C> \x9A\x72 |0 # HANGUL SYLLABLE SIOS WE RIEULSIOS
-<UC25D> \x9A\x73 |0 # HANGUL SYLLABLE SIOS WE RIEULTHIEUTH
-<UC25E> \x9A\x74 |0 # HANGUL SYLLABLE SIOS WE RIEULPHIEUPH
-<UC25F> \x9A\x75 |0 # HANGUL SYLLABLE SIOS WE RIEULHIEUH
-<UC260> \xBD\xAA |0 # HANGUL SYLLABLE SIOS WE MIEUM
-<UC261> \x9A\x76 |0 # HANGUL SYLLABLE SIOS WE PIEUP
-<UC262> \x9A\x77 |0 # HANGUL SYLLABLE SIOS WE PIEUPSIOS
-<UC263> \x9A\x78 |0 # HANGUL SYLLABLE SIOS WE SIOS
-<UC264> \x9A\x79 |0 # HANGUL SYLLABLE SIOS WE SSANGSIOS
-<UC265> \xBD\xAB |0 # HANGUL SYLLABLE SIOS WE IEUNG
-<UC266> \x9A\x7A |0 # HANGUL SYLLABLE SIOS WE CIEUC
-<UC267> \x9A\x81 |0 # HANGUL SYLLABLE SIOS WE CHIEUCH
-<UC268> \x9A\x82 |0 # HANGUL SYLLABLE SIOS WE KHIEUKH
-<UC269> \x9A\x83 |0 # HANGUL SYLLABLE SIOS WE THIEUTH
-<UC26A> \x9A\x84 |0 # HANGUL SYLLABLE SIOS WE PHIEUPH
-<UC26B> \x9A\x85 |0 # HANGUL SYLLABLE SIOS WE HIEUH
-<UC26C> \xBD\xAC |0 # HANGUL SYLLABLE SIOS WI
-<UC26D> \xBD\xAD |0 # HANGUL SYLLABLE SIOS WI KIYEOK
-<UC26E> \x9A\x86 |0 # HANGUL SYLLABLE SIOS WI SSANGKIYEOK
-<UC26F> \x9A\x87 |0 # HANGUL SYLLABLE SIOS WI KIYEOKSIOS
-<UC270> \xBD\xAE |0 # HANGUL SYLLABLE SIOS WI NIEUN
-<UC271> \x9A\x88 |0 # HANGUL SYLLABLE SIOS WI NIEUNCIEUC
-<UC272> \x9A\x89 |0 # HANGUL SYLLABLE SIOS WI NIEUNHIEUH
-<UC273> \x9A\x8A |0 # HANGUL SYLLABLE SIOS WI TIKEUT
-<UC274> \xBD\xAF |0 # HANGUL SYLLABLE SIOS WI RIEUL
-<UC275> \x9A\x8B |0 # HANGUL SYLLABLE SIOS WI RIEULKIYEOK
-<UC276> \x9A\x8C |0 # HANGUL SYLLABLE SIOS WI RIEULMIEUM
-<UC277> \x9A\x8D |0 # HANGUL SYLLABLE SIOS WI RIEULPIEUP
-<UC278> \x9A\x8E |0 # HANGUL SYLLABLE SIOS WI RIEULSIOS
-<UC279> \x9A\x8F |0 # HANGUL SYLLABLE SIOS WI RIEULTHIEUTH
-<UC27A> \x9A\x90 |0 # HANGUL SYLLABLE SIOS WI RIEULPHIEUPH
-<UC27B> \x9A\x91 |0 # HANGUL SYLLABLE SIOS WI RIEULHIEUH
-<UC27C> \xBD\xB0 |0 # HANGUL SYLLABLE SIOS WI MIEUM
-<UC27D> \xBD\xB1 |0 # HANGUL SYLLABLE SIOS WI PIEUP
-<UC27E> \x9A\x92 |0 # HANGUL SYLLABLE SIOS WI PIEUPSIOS
-<UC27F> \xBD\xB2 |0 # HANGUL SYLLABLE SIOS WI SIOS
-<UC280> \x9A\x93 |0 # HANGUL SYLLABLE SIOS WI SSANGSIOS
-<UC281> \xBD\xB3 |0 # HANGUL SYLLABLE SIOS WI IEUNG
-<UC282> \x9A\x94 |0 # HANGUL SYLLABLE SIOS WI CIEUC
-<UC283> \x9A\x95 |0 # HANGUL SYLLABLE SIOS WI CHIEUCH
-<UC284> \x9A\x96 |0 # HANGUL SYLLABLE SIOS WI KHIEUKH
-<UC285> \x9A\x97 |0 # HANGUL SYLLABLE SIOS WI THIEUTH
-<UC286> \x9A\x98 |0 # HANGUL SYLLABLE SIOS WI PHIEUPH
-<UC287> \x9A\x99 |0 # HANGUL SYLLABLE SIOS WI HIEUH
-<UC288> \xBD\xB4 |0 # HANGUL SYLLABLE SIOS YU
-<UC289> \xBD\xB5 |0 # HANGUL SYLLABLE SIOS YU KIYEOK
-<UC28A> \x9A\x9A |0 # HANGUL SYLLABLE SIOS YU SSANGKIYEOK
-<UC28B> \x9A\x9B |0 # HANGUL SYLLABLE SIOS YU KIYEOKSIOS
-<UC28C> \x9A\x9C |0 # HANGUL SYLLABLE SIOS YU NIEUN
-<UC28D> \x9A\x9D |0 # HANGUL SYLLABLE SIOS YU NIEUNCIEUC
-<UC28E> \x9A\x9E |0 # HANGUL SYLLABLE SIOS YU NIEUNHIEUH
-<UC28F> \x9A\x9F |0 # HANGUL SYLLABLE SIOS YU TIKEUT
-<UC290> \xBD\xB6 |0 # HANGUL SYLLABLE SIOS YU RIEUL
-<UC291> \x9A\xA0 |0 # HANGUL SYLLABLE SIOS YU RIEULKIYEOK
-<UC292> \x9A\xA1 |0 # HANGUL SYLLABLE SIOS YU RIEULMIEUM
-<UC293> \x9A\xA2 |0 # HANGUL SYLLABLE SIOS YU RIEULPIEUP
-<UC294> \x9A\xA3 |0 # HANGUL SYLLABLE SIOS YU RIEULSIOS
-<UC295> \x9A\xA4 |0 # HANGUL SYLLABLE SIOS YU RIEULTHIEUTH
-<UC296> \x9A\xA5 |0 # HANGUL SYLLABLE SIOS YU RIEULPHIEUPH
-<UC297> \x9A\xA6 |0 # HANGUL SYLLABLE SIOS YU RIEULHIEUH
-<UC298> \xBD\xB7 |0 # HANGUL SYLLABLE SIOS YU MIEUM
-<UC299> \x9A\xA7 |0 # HANGUL SYLLABLE SIOS YU PIEUP
-<UC29A> \x9A\xA8 |0 # HANGUL SYLLABLE SIOS YU PIEUPSIOS
-<UC29B> \xBD\xB8 |0 # HANGUL SYLLABLE SIOS YU SIOS
-<UC29C> \x9A\xA9 |0 # HANGUL SYLLABLE SIOS YU SSANGSIOS
-<UC29D> \xBD\xB9 |0 # HANGUL SYLLABLE SIOS YU IEUNG
-<UC29E> \x9A\xAA |0 # HANGUL SYLLABLE SIOS YU CIEUC
-<UC29F> \x9A\xAB |0 # HANGUL SYLLABLE SIOS YU CHIEUCH
-<UC2A0> \x9A\xAC |0 # HANGUL SYLLABLE SIOS YU KHIEUKH
-<UC2A1> \x9A\xAD |0 # HANGUL SYLLABLE SIOS YU THIEUTH
-<UC2A2> \x9A\xAE |0 # HANGUL SYLLABLE SIOS YU PHIEUPH
-<UC2A3> \x9A\xAF |0 # HANGUL SYLLABLE SIOS YU HIEUH
-<UC2A4> \xBD\xBA |0 # HANGUL SYLLABLE SIOS EU
-<UC2A5> \xBD\xBB |0 # HANGUL SYLLABLE SIOS EU KIYEOK
-<UC2A6> \x9A\xB0 |0 # HANGUL SYLLABLE SIOS EU SSANGKIYEOK
-<UC2A7> \x9A\xB1 |0 # HANGUL SYLLABLE SIOS EU KIYEOKSIOS
-<UC2A8> \xBD\xBC |0 # HANGUL SYLLABLE SIOS EU NIEUN
-<UC2A9> \x9A\xB2 |0 # HANGUL SYLLABLE SIOS EU NIEUNCIEUC
-<UC2AA> \x9A\xB3 |0 # HANGUL SYLLABLE SIOS EU NIEUNHIEUH
-<UC2AB> \x9A\xB4 |0 # HANGUL SYLLABLE SIOS EU TIKEUT
-<UC2AC> \xBD\xBD |0 # HANGUL SYLLABLE SIOS EU RIEUL
-<UC2AD> \xBD\xBE |0 # HANGUL SYLLABLE SIOS EU RIEULKIYEOK
-<UC2AE> \x9A\xB5 |0 # HANGUL SYLLABLE SIOS EU RIEULMIEUM
-<UC2AF> \x9A\xB6 |0 # HANGUL SYLLABLE SIOS EU RIEULPIEUP
-<UC2B0> \x9A\xB7 |0 # HANGUL SYLLABLE SIOS EU RIEULSIOS
-<UC2B1> \x9A\xB8 |0 # HANGUL SYLLABLE SIOS EU RIEULTHIEUTH
-<UC2B2> \x9A\xB9 |0 # HANGUL SYLLABLE SIOS EU RIEULPHIEUPH
-<UC2B3> \x9A\xBA |0 # HANGUL SYLLABLE SIOS EU RIEULHIEUH
-<UC2B4> \xBD\xBF |0 # HANGUL SYLLABLE SIOS EU MIEUM
-<UC2B5> \xBD\xC0 |0 # HANGUL SYLLABLE SIOS EU PIEUP
-<UC2B6> \x9A\xBB |0 # HANGUL SYLLABLE SIOS EU PIEUPSIOS
-<UC2B7> \xBD\xC1 |0 # HANGUL SYLLABLE SIOS EU SIOS
-<UC2B8> \x9A\xBC |0 # HANGUL SYLLABLE SIOS EU SSANGSIOS
-<UC2B9> \xBD\xC2 |0 # HANGUL SYLLABLE SIOS EU IEUNG
-<UC2BA> \x9A\xBD |0 # HANGUL SYLLABLE SIOS EU CIEUC
-<UC2BB> \x9A\xBE |0 # HANGUL SYLLABLE SIOS EU CHIEUCH
-<UC2BC> \x9A\xBF |0 # HANGUL SYLLABLE SIOS EU KHIEUKH
-<UC2BD> \x9A\xC0 |0 # HANGUL SYLLABLE SIOS EU THIEUTH
-<UC2BE> \x9A\xC1 |0 # HANGUL SYLLABLE SIOS EU PHIEUPH
-<UC2BF> \x9A\xC2 |0 # HANGUL SYLLABLE SIOS EU HIEUH
-<UC2C0> \x9A\xC3 |0 # HANGUL SYLLABLE SIOS YI
-<UC2C1> \x9A\xC4 |0 # HANGUL SYLLABLE SIOS YI KIYEOK
-<UC2C2> \x9A\xC5 |0 # HANGUL SYLLABLE SIOS YI SSANGKIYEOK
-<UC2C3> \x9A\xC6 |0 # HANGUL SYLLABLE SIOS YI KIYEOKSIOS
-<UC2C4> \x9A\xC7 |0 # HANGUL SYLLABLE SIOS YI NIEUN
-<UC2C5> \x9A\xC8 |0 # HANGUL SYLLABLE SIOS YI NIEUNCIEUC
-<UC2C6> \x9A\xC9 |0 # HANGUL SYLLABLE SIOS YI NIEUNHIEUH
-<UC2C7> \x9A\xCA |0 # HANGUL SYLLABLE SIOS YI TIKEUT
-<UC2C8> \x9A\xCB |0 # HANGUL SYLLABLE SIOS YI RIEUL
-<UC2C9> \x9A\xCC |0 # HANGUL SYLLABLE SIOS YI RIEULKIYEOK
-<UC2CA> \x9A\xCD |0 # HANGUL SYLLABLE SIOS YI RIEULMIEUM
-<UC2CB> \x9A\xCE |0 # HANGUL SYLLABLE SIOS YI RIEULPIEUP
-<UC2CC> \x9A\xCF |0 # HANGUL SYLLABLE SIOS YI RIEULSIOS
-<UC2CD> \x9A\xD0 |0 # HANGUL SYLLABLE SIOS YI RIEULTHIEUTH
-<UC2CE> \x9A\xD1 |0 # HANGUL SYLLABLE SIOS YI RIEULPHIEUPH
-<UC2CF> \x9A\xD2 |0 # HANGUL SYLLABLE SIOS YI RIEULHIEUH
-<UC2D0> \x9A\xD3 |0 # HANGUL SYLLABLE SIOS YI MIEUM
-<UC2D1> \x9A\xD4 |0 # HANGUL SYLLABLE SIOS YI PIEUP
-<UC2D2> \x9A\xD5 |0 # HANGUL SYLLABLE SIOS YI PIEUPSIOS
-<UC2D3> \x9A\xD6 |0 # HANGUL SYLLABLE SIOS YI SIOS
-<UC2D4> \x9A\xD7 |0 # HANGUL SYLLABLE SIOS YI SSANGSIOS
-<UC2D5> \x9A\xD8 |0 # HANGUL SYLLABLE SIOS YI IEUNG
-<UC2D6> \x9A\xD9 |0 # HANGUL SYLLABLE SIOS YI CIEUC
-<UC2D7> \x9A\xDA |0 # HANGUL SYLLABLE SIOS YI CHIEUCH
-<UC2D8> \x9A\xDB |0 # HANGUL SYLLABLE SIOS YI KHIEUKH
-<UC2D9> \x9A\xDC |0 # HANGUL SYLLABLE SIOS YI THIEUTH
-<UC2DA> \x9A\xDD |0 # HANGUL SYLLABLE SIOS YI PHIEUPH
-<UC2DB> \x9A\xDE |0 # HANGUL SYLLABLE SIOS YI HIEUH
-<UC2DC> \xBD\xC3 |0 # HANGUL SYLLABLE SIOS I
-<UC2DD> \xBD\xC4 |0 # HANGUL SYLLABLE SIOS I KIYEOK
-<UC2DE> \x9A\xDF |0 # HANGUL SYLLABLE SIOS I SSANGKIYEOK
-<UC2DF> \x9A\xE0 |0 # HANGUL SYLLABLE SIOS I KIYEOKSIOS
-<UC2E0> \xBD\xC5 |0 # HANGUL SYLLABLE SIOS I NIEUN
-<UC2E1> \x9A\xE1 |0 # HANGUL SYLLABLE SIOS I NIEUNCIEUC
-<UC2E2> \x9A\xE2 |0 # HANGUL SYLLABLE SIOS I NIEUNHIEUH
-<UC2E3> \xBD\xC6 |0 # HANGUL SYLLABLE SIOS I TIKEUT
-<UC2E4> \xBD\xC7 |0 # HANGUL SYLLABLE SIOS I RIEUL
-<UC2E5> \x9A\xE3 |0 # HANGUL SYLLABLE SIOS I RIEULKIYEOK
-<UC2E6> \x9A\xE4 |0 # HANGUL SYLLABLE SIOS I RIEULMIEUM
-<UC2E7> \x9A\xE5 |0 # HANGUL SYLLABLE SIOS I RIEULPIEUP
-<UC2E8> \x9A\xE6 |0 # HANGUL SYLLABLE SIOS I RIEULSIOS
-<UC2E9> \x9A\xE7 |0 # HANGUL SYLLABLE SIOS I RIEULTHIEUTH
-<UC2EA> \x9A\xE8 |0 # HANGUL SYLLABLE SIOS I RIEULPHIEUPH
-<UC2EB> \xBD\xC8 |0 # HANGUL SYLLABLE SIOS I RIEULHIEUH
-<UC2EC> \xBD\xC9 |0 # HANGUL SYLLABLE SIOS I MIEUM
-<UC2ED> \xBD\xCA |0 # HANGUL SYLLABLE SIOS I PIEUP
-<UC2EE> \x9A\xE9 |0 # HANGUL SYLLABLE SIOS I PIEUPSIOS
-<UC2EF> \xBD\xCB |0 # HANGUL SYLLABLE SIOS I SIOS
-<UC2F0> \x9A\xEA |0 # HANGUL SYLLABLE SIOS I SSANGSIOS
-<UC2F1> \xBD\xCC |0 # HANGUL SYLLABLE SIOS I IEUNG
-<UC2F2> \x9A\xEB |0 # HANGUL SYLLABLE SIOS I CIEUC
-<UC2F3> \x9A\xEC |0 # HANGUL SYLLABLE SIOS I CHIEUCH
-<UC2F4> \x9A\xED |0 # HANGUL SYLLABLE SIOS I KHIEUKH
-<UC2F5> \x9A\xEE |0 # HANGUL SYLLABLE SIOS I THIEUTH
-<UC2F6> \xBD\xCD |0 # HANGUL SYLLABLE SIOS I PHIEUPH
-<UC2F7> \x9A\xEF |0 # HANGUL SYLLABLE SIOS I HIEUH
-<UC2F8> \xBD\xCE |0 # HANGUL SYLLABLE SSANGSIOS A
-<UC2F9> \xBD\xCF |0 # HANGUL SYLLABLE SSANGSIOS A KIYEOK
-<UC2FA> \x9A\xF0 |0 # HANGUL SYLLABLE SSANGSIOS A SSANGKIYEOK
-<UC2FB> \xBD\xD0 |0 # HANGUL SYLLABLE SSANGSIOS A KIYEOKSIOS
-<UC2FC> \xBD\xD1 |0 # HANGUL SYLLABLE SSANGSIOS A NIEUN
-<UC2FD> \x9A\xF1 |0 # HANGUL SYLLABLE SSANGSIOS A NIEUNCIEUC
-<UC2FE> \x9A\xF2 |0 # HANGUL SYLLABLE SSANGSIOS A NIEUNHIEUH
-<UC2FF> \x9A\xF3 |0 # HANGUL SYLLABLE SSANGSIOS A TIKEUT
-<UC300> \xBD\xD2 |0 # HANGUL SYLLABLE SSANGSIOS A RIEUL
-<UC301> \x9A\xF4 |0 # HANGUL SYLLABLE SSANGSIOS A RIEULKIYEOK
-<UC302> \x9A\xF5 |0 # HANGUL SYLLABLE SSANGSIOS A RIEULMIEUM
-<UC303> \x9A\xF6 |0 # HANGUL SYLLABLE SSANGSIOS A RIEULPIEUP
-<UC304> \x9A\xF7 |0 # HANGUL SYLLABLE SSANGSIOS A RIEULSIOS
-<UC305> \x9A\xF8 |0 # HANGUL SYLLABLE SSANGSIOS A RIEULTHIEUTH
-<UC306> \x9A\xF9 |0 # HANGUL SYLLABLE SSANGSIOS A RIEULPHIEUPH
-<UC307> \x9A\xFA |0 # HANGUL SYLLABLE SSANGSIOS A RIEULHIEUH
-<UC308> \xBD\xD3 |0 # HANGUL SYLLABLE SSANGSIOS A MIEUM
-<UC309> \xBD\xD4 |0 # HANGUL SYLLABLE SSANGSIOS A PIEUP
-<UC30A> \x9A\xFB |0 # HANGUL SYLLABLE SSANGSIOS A PIEUPSIOS
-<UC30B> \x9A\xFC |0 # HANGUL SYLLABLE SSANGSIOS A SIOS
-<UC30C> \xBD\xD5 |0 # HANGUL SYLLABLE SSANGSIOS A SSANGSIOS
-<UC30D> \xBD\xD6 |0 # HANGUL SYLLABLE SSANGSIOS A IEUNG
-<UC30E> \x9A\xFD |0 # HANGUL SYLLABLE SSANGSIOS A CIEUC
-<UC30F> \x9A\xFE |0 # HANGUL SYLLABLE SSANGSIOS A CHIEUCH
-<UC310> \x9B\x41 |0 # HANGUL SYLLABLE SSANGSIOS A KHIEUKH
-<UC311> \x9B\x42 |0 # HANGUL SYLLABLE SSANGSIOS A THIEUTH
-<UC312> \x9B\x43 |0 # HANGUL SYLLABLE SSANGSIOS A PHIEUPH
-<UC313> \xBD\xD7 |0 # HANGUL SYLLABLE SSANGSIOS A HIEUH
-<UC314> \xBD\xD8 |0 # HANGUL SYLLABLE SSANGSIOS AE
-<UC315> \xBD\xD9 |0 # HANGUL SYLLABLE SSANGSIOS AE KIYEOK
-<UC316> \x9B\x44 |0 # HANGUL SYLLABLE SSANGSIOS AE SSANGKIYEOK
-<UC317> \x9B\x45 |0 # HANGUL SYLLABLE SSANGSIOS AE KIYEOKSIOS
-<UC318> \xBD\xDA |0 # HANGUL SYLLABLE SSANGSIOS AE NIEUN
-<UC319> \x9B\x46 |0 # HANGUL SYLLABLE SSANGSIOS AE NIEUNCIEUC
-<UC31A> \x9B\x47 |0 # HANGUL SYLLABLE SSANGSIOS AE NIEUNHIEUH
-<UC31B> \x9B\x48 |0 # HANGUL SYLLABLE SSANGSIOS AE TIKEUT
-<UC31C> \xBD\xDB |0 # HANGUL SYLLABLE SSANGSIOS AE RIEUL
-<UC31D> \x9B\x49 |0 # HANGUL SYLLABLE SSANGSIOS AE RIEULKIYEOK
-<UC31E> \x9B\x4A |0 # HANGUL SYLLABLE SSANGSIOS AE RIEULMIEUM
-<UC31F> \x9B\x4B |0 # HANGUL SYLLABLE SSANGSIOS AE RIEULPIEUP
-<UC320> \x9B\x4C |0 # HANGUL SYLLABLE SSANGSIOS AE RIEULSIOS
-<UC321> \x9B\x4D |0 # HANGUL SYLLABLE SSANGSIOS AE RIEULTHIEUTH
-<UC322> \x9B\x4E |0 # HANGUL SYLLABLE SSANGSIOS AE RIEULPHIEUPH
-<UC323> \x9B\x4F |0 # HANGUL SYLLABLE SSANGSIOS AE RIEULHIEUH
-<UC324> \xBD\xDC |0 # HANGUL SYLLABLE SSANGSIOS AE MIEUM
-<UC325> \xBD\xDD |0 # HANGUL SYLLABLE SSANGSIOS AE PIEUP
-<UC326> \x9B\x50 |0 # HANGUL SYLLABLE SSANGSIOS AE PIEUPSIOS
-<UC327> \x9B\x51 |0 # HANGUL SYLLABLE SSANGSIOS AE SIOS
-<UC328> \xBD\xDE |0 # HANGUL SYLLABLE SSANGSIOS AE SSANGSIOS
-<UC329> \xBD\xDF |0 # HANGUL SYLLABLE SSANGSIOS AE IEUNG
-<UC32A> \x9B\x52 |0 # HANGUL SYLLABLE SSANGSIOS AE CIEUC
-<UC32B> \x9B\x53 |0 # HANGUL SYLLABLE SSANGSIOS AE CHIEUCH
-<UC32C> \x9B\x54 |0 # HANGUL SYLLABLE SSANGSIOS AE KHIEUKH
-<UC32D> \x9B\x55 |0 # HANGUL SYLLABLE SSANGSIOS AE THIEUTH
-<UC32E> \x9B\x56 |0 # HANGUL SYLLABLE SSANGSIOS AE PHIEUPH
-<UC32F> \x9B\x57 |0 # HANGUL SYLLABLE SSANGSIOS AE HIEUH
-<UC330> \x9B\x58 |0 # HANGUL SYLLABLE SSANGSIOS YA
-<UC331> \x9B\x59 |0 # HANGUL SYLLABLE SSANGSIOS YA KIYEOK
-<UC332> \x9B\x5A |0 # HANGUL SYLLABLE SSANGSIOS YA SSANGKIYEOK
-<UC333> \x9B\x61 |0 # HANGUL SYLLABLE SSANGSIOS YA KIYEOKSIOS
-<UC334> \x9B\x62 |0 # HANGUL SYLLABLE SSANGSIOS YA NIEUN
-<UC335> \x9B\x63 |0 # HANGUL SYLLABLE SSANGSIOS YA NIEUNCIEUC
-<UC336> \x9B\x64 |0 # HANGUL SYLLABLE SSANGSIOS YA NIEUNHIEUH
-<UC337> \x9B\x65 |0 # HANGUL SYLLABLE SSANGSIOS YA TIKEUT
-<UC338> \x9B\x66 |0 # HANGUL SYLLABLE SSANGSIOS YA RIEUL
-<UC339> \x9B\x67 |0 # HANGUL SYLLABLE SSANGSIOS YA RIEULKIYEOK
-<UC33A> \x9B\x68 |0 # HANGUL SYLLABLE SSANGSIOS YA RIEULMIEUM
-<UC33B> \x9B\x69 |0 # HANGUL SYLLABLE SSANGSIOS YA RIEULPIEUP
-<UC33C> \x9B\x6A |0 # HANGUL SYLLABLE SSANGSIOS YA RIEULSIOS
-<UC33D> \x9B\x6B |0 # HANGUL SYLLABLE SSANGSIOS YA RIEULTHIEUTH
-<UC33E> \x9B\x6C |0 # HANGUL SYLLABLE SSANGSIOS YA RIEULPHIEUPH
-<UC33F> \x9B\x6D |0 # HANGUL SYLLABLE SSANGSIOS YA RIEULHIEUH
-<UC340> \x9B\x6E |0 # HANGUL SYLLABLE SSANGSIOS YA MIEUM
-<UC341> \x9B\x6F |0 # HANGUL SYLLABLE SSANGSIOS YA PIEUP
-<UC342> \x9B\x70 |0 # HANGUL SYLLABLE SSANGSIOS YA PIEUPSIOS
-<UC343> \x9B\x71 |0 # HANGUL SYLLABLE SSANGSIOS YA SIOS
-<UC344> \x9B\x72 |0 # HANGUL SYLLABLE SSANGSIOS YA SSANGSIOS
-<UC345> \xBD\xE0 |0 # HANGUL SYLLABLE SSANGSIOS YA IEUNG
-<UC346> \x9B\x73 |0 # HANGUL SYLLABLE SSANGSIOS YA CIEUC
-<UC347> \x9B\x74 |0 # HANGUL SYLLABLE SSANGSIOS YA CHIEUCH
-<UC348> \x9B\x75 |0 # HANGUL SYLLABLE SSANGSIOS YA KHIEUKH
-<UC349> \x9B\x76 |0 # HANGUL SYLLABLE SSANGSIOS YA THIEUTH
-<UC34A> \x9B\x77 |0 # HANGUL SYLLABLE SSANGSIOS YA PHIEUPH
-<UC34B> \x9B\x78 |0 # HANGUL SYLLABLE SSANGSIOS YA HIEUH
-<UC34C> \x9B\x79 |0 # HANGUL SYLLABLE SSANGSIOS YAE
-<UC34D> \x9B\x7A |0 # HANGUL SYLLABLE SSANGSIOS YAE KIYEOK
-<UC34E> \x9B\x81 |0 # HANGUL SYLLABLE SSANGSIOS YAE SSANGKIYEOK
-<UC34F> \x9B\x82 |0 # HANGUL SYLLABLE SSANGSIOS YAE KIYEOKSIOS
-<UC350> \x9B\x83 |0 # HANGUL SYLLABLE SSANGSIOS YAE NIEUN
-<UC351> \x9B\x84 |0 # HANGUL SYLLABLE SSANGSIOS YAE NIEUNCIEUC
-<UC352> \x9B\x85 |0 # HANGUL SYLLABLE SSANGSIOS YAE NIEUNHIEUH
-<UC353> \x9B\x86 |0 # HANGUL SYLLABLE SSANGSIOS YAE TIKEUT
-<UC354> \x9B\x87 |0 # HANGUL SYLLABLE SSANGSIOS YAE RIEUL
-<UC355> \x9B\x88 |0 # HANGUL SYLLABLE SSANGSIOS YAE RIEULKIYEOK
-<UC356> \x9B\x89 |0 # HANGUL SYLLABLE SSANGSIOS YAE RIEULMIEUM
-<UC357> \x9B\x8A |0 # HANGUL SYLLABLE SSANGSIOS YAE RIEULPIEUP
-<UC358> \x9B\x8B |0 # HANGUL SYLLABLE SSANGSIOS YAE RIEULSIOS
-<UC359> \x9B\x8C |0 # HANGUL SYLLABLE SSANGSIOS YAE RIEULTHIEUTH
-<UC35A> \x9B\x8D |0 # HANGUL SYLLABLE SSANGSIOS YAE RIEULPHIEUPH
-<UC35B> \x9B\x8E |0 # HANGUL SYLLABLE SSANGSIOS YAE RIEULHIEUH
-<UC35C> \x9B\x8F |0 # HANGUL SYLLABLE SSANGSIOS YAE MIEUM
-<UC35D> \x9B\x90 |0 # HANGUL SYLLABLE SSANGSIOS YAE PIEUP
-<UC35E> \x9B\x91 |0 # HANGUL SYLLABLE SSANGSIOS YAE PIEUPSIOS
-<UC35F> \x9B\x92 |0 # HANGUL SYLLABLE SSANGSIOS YAE SIOS
-<UC360> \x9B\x93 |0 # HANGUL SYLLABLE SSANGSIOS YAE SSANGSIOS
-<UC361> \x9B\x94 |0 # HANGUL SYLLABLE SSANGSIOS YAE IEUNG
-<UC362> \x9B\x95 |0 # HANGUL SYLLABLE SSANGSIOS YAE CIEUC
-<UC363> \x9B\x96 |0 # HANGUL SYLLABLE SSANGSIOS YAE CHIEUCH
-<UC364> \x9B\x97 |0 # HANGUL SYLLABLE SSANGSIOS YAE KHIEUKH
-<UC365> \x9B\x98 |0 # HANGUL SYLLABLE SSANGSIOS YAE THIEUTH
-<UC366> \x9B\x99 |0 # HANGUL SYLLABLE SSANGSIOS YAE PHIEUPH
-<UC367> \x9B\x9A |0 # HANGUL SYLLABLE SSANGSIOS YAE HIEUH
-<UC368> \xBD\xE1 |0 # HANGUL SYLLABLE SSANGSIOS EO
-<UC369> \xBD\xE2 |0 # HANGUL SYLLABLE SSANGSIOS EO KIYEOK
-<UC36A> \x9B\x9B |0 # HANGUL SYLLABLE SSANGSIOS EO SSANGKIYEOK
-<UC36B> \x9B\x9C |0 # HANGUL SYLLABLE SSANGSIOS EO KIYEOKSIOS
-<UC36C> \xBD\xE3 |0 # HANGUL SYLLABLE SSANGSIOS EO NIEUN
-<UC36D> \x9B\x9D |0 # HANGUL SYLLABLE SSANGSIOS EO NIEUNCIEUC
-<UC36E> \x9B\x9E |0 # HANGUL SYLLABLE SSANGSIOS EO NIEUNHIEUH
-<UC36F> \x9B\x9F |0 # HANGUL SYLLABLE SSANGSIOS EO TIKEUT
-<UC370> \xBD\xE4 |0 # HANGUL SYLLABLE SSANGSIOS EO RIEUL
-<UC371> \x9B\xA0 |0 # HANGUL SYLLABLE SSANGSIOS EO RIEULKIYEOK
-<UC372> \xBD\xE5 |0 # HANGUL SYLLABLE SSANGSIOS EO RIEULMIEUM
-<UC373> \x9B\xA1 |0 # HANGUL SYLLABLE SSANGSIOS EO RIEULPIEUP
-<UC374> \x9B\xA2 |0 # HANGUL SYLLABLE SSANGSIOS EO RIEULSIOS
-<UC375> \x9B\xA3 |0 # HANGUL SYLLABLE SSANGSIOS EO RIEULTHIEUTH
-<UC376> \x9B\xA4 |0 # HANGUL SYLLABLE SSANGSIOS EO RIEULPHIEUPH
-<UC377> \x9B\xA5 |0 # HANGUL SYLLABLE SSANGSIOS EO RIEULHIEUH
-<UC378> \xBD\xE6 |0 # HANGUL SYLLABLE SSANGSIOS EO MIEUM
-<UC379> \xBD\xE7 |0 # HANGUL SYLLABLE SSANGSIOS EO PIEUP
-<UC37A> \x9B\xA6 |0 # HANGUL SYLLABLE SSANGSIOS EO PIEUPSIOS
-<UC37B> \x9B\xA7 |0 # HANGUL SYLLABLE SSANGSIOS EO SIOS
-<UC37C> \xBD\xE8 |0 # HANGUL SYLLABLE SSANGSIOS EO SSANGSIOS
-<UC37D> \xBD\xE9 |0 # HANGUL SYLLABLE SSANGSIOS EO IEUNG
-<UC37E> \x9B\xA8 |0 # HANGUL SYLLABLE SSANGSIOS EO CIEUC
-<UC37F> \x9B\xA9 |0 # HANGUL SYLLABLE SSANGSIOS EO CHIEUCH
-<UC380> \x9B\xAA |0 # HANGUL SYLLABLE SSANGSIOS EO KHIEUKH
-<UC381> \x9B\xAB |0 # HANGUL SYLLABLE SSANGSIOS EO THIEUTH
-<UC382> \x9B\xAC |0 # HANGUL SYLLABLE SSANGSIOS EO PHIEUPH
-<UC383> \x9B\xAD |0 # HANGUL SYLLABLE SSANGSIOS EO HIEUH
-<UC384> \xBD\xEA |0 # HANGUL SYLLABLE SSANGSIOS E
-<UC385> \x9B\xAE |0 # HANGUL SYLLABLE SSANGSIOS E KIYEOK
-<UC386> \x9B\xAF |0 # HANGUL SYLLABLE SSANGSIOS E SSANGKIYEOK
-<UC387> \x9B\xB0 |0 # HANGUL SYLLABLE SSANGSIOS E KIYEOKSIOS
-<UC388> \xBD\xEB |0 # HANGUL SYLLABLE SSANGSIOS E NIEUN
-<UC389> \x9B\xB1 |0 # HANGUL SYLLABLE SSANGSIOS E NIEUNCIEUC
-<UC38A> \x9B\xB2 |0 # HANGUL SYLLABLE SSANGSIOS E NIEUNHIEUH
-<UC38B> \x9B\xB3 |0 # HANGUL SYLLABLE SSANGSIOS E TIKEUT
-<UC38C> \xBD\xEC |0 # HANGUL SYLLABLE SSANGSIOS E RIEUL
-<UC38D> \x9B\xB4 |0 # HANGUL SYLLABLE SSANGSIOS E RIEULKIYEOK
-<UC38E> \x9B\xB5 |0 # HANGUL SYLLABLE SSANGSIOS E RIEULMIEUM
-<UC38F> \x9B\xB6 |0 # HANGUL SYLLABLE SSANGSIOS E RIEULPIEUP
-<UC390> \x9B\xB7 |0 # HANGUL SYLLABLE SSANGSIOS E RIEULSIOS
-<UC391> \x9B\xB8 |0 # HANGUL SYLLABLE SSANGSIOS E RIEULTHIEUTH
-<UC392> \x9B\xB9 |0 # HANGUL SYLLABLE SSANGSIOS E RIEULPHIEUPH
-<UC393> \x9B\xBA |0 # HANGUL SYLLABLE SSANGSIOS E RIEULHIEUH
-<UC394> \x9B\xBB |0 # HANGUL SYLLABLE SSANGSIOS E MIEUM
-<UC395> \x9B\xBC |0 # HANGUL SYLLABLE SSANGSIOS E PIEUP
-<UC396> \x9B\xBD |0 # HANGUL SYLLABLE SSANGSIOS E PIEUPSIOS
-<UC397> \x9B\xBE |0 # HANGUL SYLLABLE SSANGSIOS E SIOS
-<UC398> \x9B\xBF |0 # HANGUL SYLLABLE SSANGSIOS E SSANGSIOS
-<UC399> \x9B\xC0 |0 # HANGUL SYLLABLE SSANGSIOS E IEUNG
-<UC39A> \x9B\xC1 |0 # HANGUL SYLLABLE SSANGSIOS E CIEUC
-<UC39B> \x9B\xC2 |0 # HANGUL SYLLABLE SSANGSIOS E CHIEUCH
-<UC39C> \x9B\xC3 |0 # HANGUL SYLLABLE SSANGSIOS E KHIEUKH
-<UC39D> \x9B\xC4 |0 # HANGUL SYLLABLE SSANGSIOS E THIEUTH
-<UC39E> \x9B\xC5 |0 # HANGUL SYLLABLE SSANGSIOS E PHIEUPH
-<UC39F> \x9B\xC6 |0 # HANGUL SYLLABLE SSANGSIOS E HIEUH
-<UC3A0> \x9B\xC7 |0 # HANGUL SYLLABLE SSANGSIOS YEO
-<UC3A1> \x9B\xC8 |0 # HANGUL SYLLABLE SSANGSIOS YEO KIYEOK
-<UC3A2> \x9B\xC9 |0 # HANGUL SYLLABLE SSANGSIOS YEO SSANGKIYEOK
-<UC3A3> \x9B\xCA |0 # HANGUL SYLLABLE SSANGSIOS YEO KIYEOKSIOS
-<UC3A4> \x9B\xCB |0 # HANGUL SYLLABLE SSANGSIOS YEO NIEUN
-<UC3A5> \x9B\xCC |0 # HANGUL SYLLABLE SSANGSIOS YEO NIEUNCIEUC
-<UC3A6> \x9B\xCD |0 # HANGUL SYLLABLE SSANGSIOS YEO NIEUNHIEUH
-<UC3A7> \x9B\xCE |0 # HANGUL SYLLABLE SSANGSIOS YEO TIKEUT
-<UC3A8> \x9B\xCF |0 # HANGUL SYLLABLE SSANGSIOS YEO RIEUL
-<UC3A9> \x9B\xD0 |0 # HANGUL SYLLABLE SSANGSIOS YEO RIEULKIYEOK
-<UC3AA> \x9B\xD1 |0 # HANGUL SYLLABLE SSANGSIOS YEO RIEULMIEUM
-<UC3AB> \x9B\xD2 |0 # HANGUL SYLLABLE SSANGSIOS YEO RIEULPIEUP
-<UC3AC> \x9B\xD3 |0 # HANGUL SYLLABLE SSANGSIOS YEO RIEULSIOS
-<UC3AD> \x9B\xD4 |0 # HANGUL SYLLABLE SSANGSIOS YEO RIEULTHIEUTH
-<UC3AE> \x9B\xD5 |0 # HANGUL SYLLABLE SSANGSIOS YEO RIEULPHIEUPH
-<UC3AF> \x9B\xD6 |0 # HANGUL SYLLABLE SSANGSIOS YEO RIEULHIEUH
-<UC3B0> \x9B\xD7 |0 # HANGUL SYLLABLE SSANGSIOS YEO MIEUM
-<UC3B1> \x9B\xD8 |0 # HANGUL SYLLABLE SSANGSIOS YEO PIEUP
-<UC3B2> \x9B\xD9 |0 # HANGUL SYLLABLE SSANGSIOS YEO PIEUPSIOS
-<UC3B3> \x9B\xDA |0 # HANGUL SYLLABLE SSANGSIOS YEO SIOS
-<UC3B4> \x9B\xDB |0 # HANGUL SYLLABLE SSANGSIOS YEO SSANGSIOS
-<UC3B5> \x9B\xDC |0 # HANGUL SYLLABLE SSANGSIOS YEO IEUNG
-<UC3B6> \x9B\xDD |0 # HANGUL SYLLABLE SSANGSIOS YEO CIEUC
-<UC3B7> \x9B\xDE |0 # HANGUL SYLLABLE SSANGSIOS YEO CHIEUCH
-<UC3B8> \x9B\xDF |0 # HANGUL SYLLABLE SSANGSIOS YEO KHIEUKH
-<UC3B9> \x9B\xE0 |0 # HANGUL SYLLABLE SSANGSIOS YEO THIEUTH
-<UC3BA> \x9B\xE1 |0 # HANGUL SYLLABLE SSANGSIOS YEO PHIEUPH
-<UC3BB> \x9B\xE2 |0 # HANGUL SYLLABLE SSANGSIOS YEO HIEUH
-<UC3BC> \x9B\xE3 |0 # HANGUL SYLLABLE SSANGSIOS YE
-<UC3BD> \x9B\xE4 |0 # HANGUL SYLLABLE SSANGSIOS YE KIYEOK
-<UC3BE> \x9B\xE5 |0 # HANGUL SYLLABLE SSANGSIOS YE SSANGKIYEOK
-<UC3BF> \x9B\xE6 |0 # HANGUL SYLLABLE SSANGSIOS YE KIYEOKSIOS
-<UC3C0> \xBD\xED |0 # HANGUL SYLLABLE SSANGSIOS YE NIEUN
-<UC3C1> \x9B\xE7 |0 # HANGUL SYLLABLE SSANGSIOS YE NIEUNCIEUC
-<UC3C2> \x9B\xE8 |0 # HANGUL SYLLABLE SSANGSIOS YE NIEUNHIEUH
-<UC3C3> \x9B\xE9 |0 # HANGUL SYLLABLE SSANGSIOS YE TIKEUT
-<UC3C4> \x9B\xEA |0 # HANGUL SYLLABLE SSANGSIOS YE RIEUL
-<UC3C5> \x9B\xEB |0 # HANGUL SYLLABLE SSANGSIOS YE RIEULKIYEOK
-<UC3C6> \x9B\xEC |0 # HANGUL SYLLABLE SSANGSIOS YE RIEULMIEUM
-<UC3C7> \x9B\xED |0 # HANGUL SYLLABLE SSANGSIOS YE RIEULPIEUP
-<UC3C8> \x9B\xEE |0 # HANGUL SYLLABLE SSANGSIOS YE RIEULSIOS
-<UC3C9> \x9B\xEF |0 # HANGUL SYLLABLE SSANGSIOS YE RIEULTHIEUTH
-<UC3CA> \x9B\xF0 |0 # HANGUL SYLLABLE SSANGSIOS YE RIEULPHIEUPH
-<UC3CB> \x9B\xF1 |0 # HANGUL SYLLABLE SSANGSIOS YE RIEULHIEUH
-<UC3CC> \x9B\xF2 |0 # HANGUL SYLLABLE SSANGSIOS YE MIEUM
-<UC3CD> \x9B\xF3 |0 # HANGUL SYLLABLE SSANGSIOS YE PIEUP
-<UC3CE> \x9B\xF4 |0 # HANGUL SYLLABLE SSANGSIOS YE PIEUPSIOS
-<UC3CF> \x9B\xF5 |0 # HANGUL SYLLABLE SSANGSIOS YE SIOS
-<UC3D0> \x9B\xF6 |0 # HANGUL SYLLABLE SSANGSIOS YE SSANGSIOS
-<UC3D1> \x9B\xF7 |0 # HANGUL SYLLABLE SSANGSIOS YE IEUNG
-<UC3D2> \x9B\xF8 |0 # HANGUL SYLLABLE SSANGSIOS YE CIEUC
-<UC3D3> \x9B\xF9 |0 # HANGUL SYLLABLE SSANGSIOS YE CHIEUCH
-<UC3D4> \x9B\xFA |0 # HANGUL SYLLABLE SSANGSIOS YE KHIEUKH
-<UC3D5> \x9B\xFB |0 # HANGUL SYLLABLE SSANGSIOS YE THIEUTH
-<UC3D6> \x9B\xFC |0 # HANGUL SYLLABLE SSANGSIOS YE PHIEUPH
-<UC3D7> \x9B\xFD |0 # HANGUL SYLLABLE SSANGSIOS YE HIEUH
-<UC3D8> \xBD\xEE |0 # HANGUL SYLLABLE SSANGSIOS O
-<UC3D9> \xBD\xEF |0 # HANGUL SYLLABLE SSANGSIOS O KIYEOK
-<UC3DA> \x9B\xFE |0 # HANGUL SYLLABLE SSANGSIOS O SSANGKIYEOK
-<UC3DB> \x9C\x41 |0 # HANGUL SYLLABLE SSANGSIOS O KIYEOKSIOS
-<UC3DC> \xBD\xF0 |0 # HANGUL SYLLABLE SSANGSIOS O NIEUN
-<UC3DD> \x9C\x42 |0 # HANGUL SYLLABLE SSANGSIOS O NIEUNCIEUC
-<UC3DE> \x9C\x43 |0 # HANGUL SYLLABLE SSANGSIOS O NIEUNHIEUH
-<UC3DF> \xBD\xF1 |0 # HANGUL SYLLABLE SSANGSIOS O TIKEUT
-<UC3E0> \xBD\xF2 |0 # HANGUL SYLLABLE SSANGSIOS O RIEUL
-<UC3E1> \x9C\x44 |0 # HANGUL SYLLABLE SSANGSIOS O RIEULKIYEOK
-<UC3E2> \xBD\xF3 |0 # HANGUL SYLLABLE SSANGSIOS O RIEULMIEUM
-<UC3E3> \x9C\x45 |0 # HANGUL SYLLABLE SSANGSIOS O RIEULPIEUP
-<UC3E4> \x9C\x46 |0 # HANGUL SYLLABLE SSANGSIOS O RIEULSIOS
-<UC3E5> \x9C\x47 |0 # HANGUL SYLLABLE SSANGSIOS O RIEULTHIEUTH
-<UC3E6> \x9C\x48 |0 # HANGUL SYLLABLE SSANGSIOS O RIEULPHIEUPH
-<UC3E7> \x9C\x49 |0 # HANGUL SYLLABLE SSANGSIOS O RIEULHIEUH
-<UC3E8> \xBD\xF4 |0 # HANGUL SYLLABLE SSANGSIOS O MIEUM
-<UC3E9> \xBD\xF5 |0 # HANGUL SYLLABLE SSANGSIOS O PIEUP
-<UC3EA> \x9C\x4A |0 # HANGUL SYLLABLE SSANGSIOS O PIEUPSIOS
-<UC3EB> \x9C\x4B |0 # HANGUL SYLLABLE SSANGSIOS O SIOS
-<UC3EC> \x9C\x4C |0 # HANGUL SYLLABLE SSANGSIOS O SSANGSIOS
-<UC3ED> \xBD\xF6 |0 # HANGUL SYLLABLE SSANGSIOS O IEUNG
-<UC3EE> \x9C\x4D |0 # HANGUL SYLLABLE SSANGSIOS O CIEUC
-<UC3EF> \x9C\x4E |0 # HANGUL SYLLABLE SSANGSIOS O CHIEUCH
-<UC3F0> \x9C\x4F |0 # HANGUL SYLLABLE SSANGSIOS O KHIEUKH
-<UC3F1> \x9C\x50 |0 # HANGUL SYLLABLE SSANGSIOS O THIEUTH
-<UC3F2> \x9C\x51 |0 # HANGUL SYLLABLE SSANGSIOS O PHIEUPH
-<UC3F3> \x9C\x52 |0 # HANGUL SYLLABLE SSANGSIOS O HIEUH
-<UC3F4> \xBD\xF7 |0 # HANGUL SYLLABLE SSANGSIOS WA
-<UC3F5> \xBD\xF8 |0 # HANGUL SYLLABLE SSANGSIOS WA KIYEOK
-<UC3F6> \x9C\x53 |0 # HANGUL SYLLABLE SSANGSIOS WA SSANGKIYEOK
-<UC3F7> \x9C\x54 |0 # HANGUL SYLLABLE SSANGSIOS WA KIYEOKSIOS
-<UC3F8> \xBD\xF9 |0 # HANGUL SYLLABLE SSANGSIOS WA NIEUN
-<UC3F9> \x9C\x55 |0 # HANGUL SYLLABLE SSANGSIOS WA NIEUNCIEUC
-<UC3FA> \x9C\x56 |0 # HANGUL SYLLABLE SSANGSIOS WA NIEUNHIEUH
-<UC3FB> \x9C\x57 |0 # HANGUL SYLLABLE SSANGSIOS WA TIKEUT
-<UC3FC> \x9C\x58 |0 # HANGUL SYLLABLE SSANGSIOS WA RIEUL
-<UC3FD> \x9C\x59 |0 # HANGUL SYLLABLE SSANGSIOS WA RIEULKIYEOK
-<UC3FE> \x9C\x5A |0 # HANGUL SYLLABLE SSANGSIOS WA RIEULMIEUM
-<UC3FF> \x9C\x61 |0 # HANGUL SYLLABLE SSANGSIOS WA RIEULPIEUP
-<UC400> \x9C\x62 |0 # HANGUL SYLLABLE SSANGSIOS WA RIEULSIOS
-<UC401> \x9C\x63 |0 # HANGUL SYLLABLE SSANGSIOS WA RIEULTHIEUTH
-<UC402> \x9C\x64 |0 # HANGUL SYLLABLE SSANGSIOS WA RIEULPHIEUPH
-<UC403> \x9C\x65 |0 # HANGUL SYLLABLE SSANGSIOS WA RIEULHIEUH
-<UC404> \x9C\x66 |0 # HANGUL SYLLABLE SSANGSIOS WA MIEUM
-<UC405> \x9C\x67 |0 # HANGUL SYLLABLE SSANGSIOS WA PIEUP
-<UC406> \x9C\x68 |0 # HANGUL SYLLABLE SSANGSIOS WA PIEUPSIOS
-<UC407> \x9C\x69 |0 # HANGUL SYLLABLE SSANGSIOS WA SIOS
-<UC408> \xBD\xFA |0 # HANGUL SYLLABLE SSANGSIOS WA SSANGSIOS
-<UC409> \x9C\x6A |0 # HANGUL SYLLABLE SSANGSIOS WA IEUNG
-<UC40A> \x9C\x6B |0 # HANGUL SYLLABLE SSANGSIOS WA CIEUC
-<UC40B> \x9C\x6C |0 # HANGUL SYLLABLE SSANGSIOS WA CHIEUCH
-<UC40C> \x9C\x6D |0 # HANGUL SYLLABLE SSANGSIOS WA KHIEUKH
-<UC40D> \x9C\x6E |0 # HANGUL SYLLABLE SSANGSIOS WA THIEUTH
-<UC40E> \x9C\x6F |0 # HANGUL SYLLABLE SSANGSIOS WA PHIEUPH
-<UC40F> \x9C\x70 |0 # HANGUL SYLLABLE SSANGSIOS WA HIEUH
-<UC410> \xBD\xFB |0 # HANGUL SYLLABLE SSANGSIOS WAE
-<UC411> \x9C\x71 |0 # HANGUL SYLLABLE SSANGSIOS WAE KIYEOK
-<UC412> \x9C\x72 |0 # HANGUL SYLLABLE SSANGSIOS WAE SSANGKIYEOK
-<UC413> \x9C\x73 |0 # HANGUL SYLLABLE SSANGSIOS WAE KIYEOKSIOS
-<UC414> \x9C\x74 |0 # HANGUL SYLLABLE SSANGSIOS WAE NIEUN
-<UC415> \x9C\x75 |0 # HANGUL SYLLABLE SSANGSIOS WAE NIEUNCIEUC
-<UC416> \x9C\x76 |0 # HANGUL SYLLABLE SSANGSIOS WAE NIEUNHIEUH
-<UC417> \x9C\x77 |0 # HANGUL SYLLABLE SSANGSIOS WAE TIKEUT
-<UC418> \x9C\x78 |0 # HANGUL SYLLABLE SSANGSIOS WAE RIEUL
-<UC419> \x9C\x79 |0 # HANGUL SYLLABLE SSANGSIOS WAE RIEULKIYEOK
-<UC41A> \x9C\x7A |0 # HANGUL SYLLABLE SSANGSIOS WAE RIEULMIEUM
-<UC41B> \x9C\x81 |0 # HANGUL SYLLABLE SSANGSIOS WAE RIEULPIEUP
-<UC41C> \x9C\x82 |0 # HANGUL SYLLABLE SSANGSIOS WAE RIEULSIOS
-<UC41D> \x9C\x83 |0 # HANGUL SYLLABLE SSANGSIOS WAE RIEULTHIEUTH
-<UC41E> \x9C\x84 |0 # HANGUL SYLLABLE SSANGSIOS WAE RIEULPHIEUPH
-<UC41F> \x9C\x85 |0 # HANGUL SYLLABLE SSANGSIOS WAE RIEULHIEUH
-<UC420> \x9C\x86 |0 # HANGUL SYLLABLE SSANGSIOS WAE MIEUM
-<UC421> \x9C\x87 |0 # HANGUL SYLLABLE SSANGSIOS WAE PIEUP
-<UC422> \x9C\x88 |0 # HANGUL SYLLABLE SSANGSIOS WAE PIEUPSIOS
-<UC423> \x9C\x89 |0 # HANGUL SYLLABLE SSANGSIOS WAE SIOS
-<UC424> \xBD\xFC |0 # HANGUL SYLLABLE SSANGSIOS WAE SSANGSIOS
-<UC425> \x9C\x8A |0 # HANGUL SYLLABLE SSANGSIOS WAE IEUNG
-<UC426> \x9C\x8B |0 # HANGUL SYLLABLE SSANGSIOS WAE CIEUC
-<UC427> \x9C\x8C |0 # HANGUL SYLLABLE SSANGSIOS WAE CHIEUCH
-<UC428> \x9C\x8D |0 # HANGUL SYLLABLE SSANGSIOS WAE KHIEUKH
-<UC429> \x9C\x8E |0 # HANGUL SYLLABLE SSANGSIOS WAE THIEUTH
-<UC42A> \x9C\x8F |0 # HANGUL SYLLABLE SSANGSIOS WAE PHIEUPH
-<UC42B> \x9C\x90 |0 # HANGUL SYLLABLE SSANGSIOS WAE HIEUH
-<UC42C> \xBD\xFD |0 # HANGUL SYLLABLE SSANGSIOS OE
-<UC42D> \x9C\x91 |0 # HANGUL SYLLABLE SSANGSIOS OE KIYEOK
-<UC42E> \x9C\x92 |0 # HANGUL SYLLABLE SSANGSIOS OE SSANGKIYEOK
-<UC42F> \x9C\x93 |0 # HANGUL SYLLABLE SSANGSIOS OE KIYEOKSIOS
-<UC430> \xBD\xFE |0 # HANGUL SYLLABLE SSANGSIOS OE NIEUN
-<UC431> \x9C\x94 |0 # HANGUL SYLLABLE SSANGSIOS OE NIEUNCIEUC
-<UC432> \x9C\x95 |0 # HANGUL SYLLABLE SSANGSIOS OE NIEUNHIEUH
-<UC433> \x9C\x96 |0 # HANGUL SYLLABLE SSANGSIOS OE TIKEUT
-<UC434> \xBE\xA1 |0 # HANGUL SYLLABLE SSANGSIOS OE RIEUL
-<UC435> \x9C\x97 |0 # HANGUL SYLLABLE SSANGSIOS OE RIEULKIYEOK
-<UC436> \x9C\x98 |0 # HANGUL SYLLABLE SSANGSIOS OE RIEULMIEUM
-<UC437> \x9C\x99 |0 # HANGUL SYLLABLE SSANGSIOS OE RIEULPIEUP
-<UC438> \x9C\x9A |0 # HANGUL SYLLABLE SSANGSIOS OE RIEULSIOS
-<UC439> \x9C\x9B |0 # HANGUL SYLLABLE SSANGSIOS OE RIEULTHIEUTH
-<UC43A> \x9C\x9C |0 # HANGUL SYLLABLE SSANGSIOS OE RIEULPHIEUPH
-<UC43B> \x9C\x9D |0 # HANGUL SYLLABLE SSANGSIOS OE RIEULHIEUH
-<UC43C> \xBE\xA2 |0 # HANGUL SYLLABLE SSANGSIOS OE MIEUM
-<UC43D> \xBE\xA3 |0 # HANGUL SYLLABLE SSANGSIOS OE PIEUP
-<UC43E> \x9C\x9E |0 # HANGUL SYLLABLE SSANGSIOS OE PIEUPSIOS
-<UC43F> \x9C\x9F |0 # HANGUL SYLLABLE SSANGSIOS OE SIOS
-<UC440> \x9C\xA0 |0 # HANGUL SYLLABLE SSANGSIOS OE SSANGSIOS
-<UC441> \x9C\xA1 |0 # HANGUL SYLLABLE SSANGSIOS OE IEUNG
-<UC442> \x9C\xA2 |0 # HANGUL SYLLABLE SSANGSIOS OE CIEUC
-<UC443> \x9C\xA3 |0 # HANGUL SYLLABLE SSANGSIOS OE CHIEUCH
-<UC444> \x9C\xA4 |0 # HANGUL SYLLABLE SSANGSIOS OE KHIEUKH
-<UC445> \x9C\xA5 |0 # HANGUL SYLLABLE SSANGSIOS OE THIEUTH
-<UC446> \x9C\xA6 |0 # HANGUL SYLLABLE SSANGSIOS OE PHIEUPH
-<UC447> \x9C\xA7 |0 # HANGUL SYLLABLE SSANGSIOS OE HIEUH
-<UC448> \xBE\xA4 |0 # HANGUL SYLLABLE SSANGSIOS YO
-<UC449> \x9C\xA8 |0 # HANGUL SYLLABLE SSANGSIOS YO KIYEOK
-<UC44A> \x9C\xA9 |0 # HANGUL SYLLABLE SSANGSIOS YO SSANGKIYEOK
-<UC44B> \x9C\xAA |0 # HANGUL SYLLABLE SSANGSIOS YO KIYEOKSIOS
-<UC44C> \x9C\xAB |0 # HANGUL SYLLABLE SSANGSIOS YO NIEUN
-<UC44D> \x9C\xAC |0 # HANGUL SYLLABLE SSANGSIOS YO NIEUNCIEUC
-<UC44E> \x9C\xAD |0 # HANGUL SYLLABLE SSANGSIOS YO NIEUNHIEUH
-<UC44F> \x9C\xAE |0 # HANGUL SYLLABLE SSANGSIOS YO TIKEUT
-<UC450> \x9C\xAF |0 # HANGUL SYLLABLE SSANGSIOS YO RIEUL
-<UC451> \x9C\xB0 |0 # HANGUL SYLLABLE SSANGSIOS YO RIEULKIYEOK
-<UC452> \x9C\xB1 |0 # HANGUL SYLLABLE SSANGSIOS YO RIEULMIEUM
-<UC453> \x9C\xB2 |0 # HANGUL SYLLABLE SSANGSIOS YO RIEULPIEUP
-<UC454> \x9C\xB3 |0 # HANGUL SYLLABLE SSANGSIOS YO RIEULSIOS
-<UC455> \x9C\xB4 |0 # HANGUL SYLLABLE SSANGSIOS YO RIEULTHIEUTH
-<UC456> \x9C\xB5 |0 # HANGUL SYLLABLE SSANGSIOS YO RIEULPHIEUPH
-<UC457> \x9C\xB6 |0 # HANGUL SYLLABLE SSANGSIOS YO RIEULHIEUH
-<UC458> \x9C\xB7 |0 # HANGUL SYLLABLE SSANGSIOS YO MIEUM
-<UC459> \x9C\xB8 |0 # HANGUL SYLLABLE SSANGSIOS YO PIEUP
-<UC45A> \x9C\xB9 |0 # HANGUL SYLLABLE SSANGSIOS YO PIEUPSIOS
-<UC45B> \x9C\xBA |0 # HANGUL SYLLABLE SSANGSIOS YO SIOS
-<UC45C> \x9C\xBB |0 # HANGUL SYLLABLE SSANGSIOS YO SSANGSIOS
-<UC45D> \x9C\xBC |0 # HANGUL SYLLABLE SSANGSIOS YO IEUNG
-<UC45E> \x9C\xBD |0 # HANGUL SYLLABLE SSANGSIOS YO CIEUC
-<UC45F> \x9C\xBE |0 # HANGUL SYLLABLE SSANGSIOS YO CHIEUCH
-<UC460> \x9C\xBF |0 # HANGUL SYLLABLE SSANGSIOS YO KHIEUKH
-<UC461> \x9C\xC0 |0 # HANGUL SYLLABLE SSANGSIOS YO THIEUTH
-<UC462> \x9C\xC1 |0 # HANGUL SYLLABLE SSANGSIOS YO PHIEUPH
-<UC463> \x9C\xC2 |0 # HANGUL SYLLABLE SSANGSIOS YO HIEUH
-<UC464> \xBE\xA5 |0 # HANGUL SYLLABLE SSANGSIOS U
-<UC465> \xBE\xA6 |0 # HANGUL SYLLABLE SSANGSIOS U KIYEOK
-<UC466> \x9C\xC3 |0 # HANGUL SYLLABLE SSANGSIOS U SSANGKIYEOK
-<UC467> \x9C\xC4 |0 # HANGUL SYLLABLE SSANGSIOS U KIYEOKSIOS
-<UC468> \xBE\xA7 |0 # HANGUL SYLLABLE SSANGSIOS U NIEUN
-<UC469> \x9C\xC5 |0 # HANGUL SYLLABLE SSANGSIOS U NIEUNCIEUC
-<UC46A> \x9C\xC6 |0 # HANGUL SYLLABLE SSANGSIOS U NIEUNHIEUH
-<UC46B> \x9C\xC7 |0 # HANGUL SYLLABLE SSANGSIOS U TIKEUT
-<UC46C> \xBE\xA8 |0 # HANGUL SYLLABLE SSANGSIOS U RIEUL
-<UC46D> \x9C\xC8 |0 # HANGUL SYLLABLE SSANGSIOS U RIEULKIYEOK
-<UC46E> \x9C\xC9 |0 # HANGUL SYLLABLE SSANGSIOS U RIEULMIEUM
-<UC46F> \x9C\xCA |0 # HANGUL SYLLABLE SSANGSIOS U RIEULPIEUP
-<UC470> \x9C\xCB |0 # HANGUL SYLLABLE SSANGSIOS U RIEULSIOS
-<UC471> \x9C\xCC |0 # HANGUL SYLLABLE SSANGSIOS U RIEULTHIEUTH
-<UC472> \x9C\xCD |0 # HANGUL SYLLABLE SSANGSIOS U RIEULPHIEUPH
-<UC473> \x9C\xCE |0 # HANGUL SYLLABLE SSANGSIOS U RIEULHIEUH
-<UC474> \xBE\xA9 |0 # HANGUL SYLLABLE SSANGSIOS U MIEUM
-<UC475> \xBE\xAA |0 # HANGUL SYLLABLE SSANGSIOS U PIEUP
-<UC476> \x9C\xCF |0 # HANGUL SYLLABLE SSANGSIOS U PIEUPSIOS
-<UC477> \x9C\xD0 |0 # HANGUL SYLLABLE SSANGSIOS U SIOS
-<UC478> \x9C\xD1 |0 # HANGUL SYLLABLE SSANGSIOS U SSANGSIOS
-<UC479> \xBE\xAB |0 # HANGUL SYLLABLE SSANGSIOS U IEUNG
-<UC47A> \x9C\xD2 |0 # HANGUL SYLLABLE SSANGSIOS U CIEUC
-<UC47B> \x9C\xD3 |0 # HANGUL SYLLABLE SSANGSIOS U CHIEUCH
-<UC47C> \x9C\xD4 |0 # HANGUL SYLLABLE SSANGSIOS U KHIEUKH
-<UC47D> \x9C\xD5 |0 # HANGUL SYLLABLE SSANGSIOS U THIEUTH
-<UC47E> \x9C\xD6 |0 # HANGUL SYLLABLE SSANGSIOS U PHIEUPH
-<UC47F> \x9C\xD7 |0 # HANGUL SYLLABLE SSANGSIOS U HIEUH
-<UC480> \xBE\xAC |0 # HANGUL SYLLABLE SSANGSIOS WEO
-<UC481> \x9C\xD8 |0 # HANGUL SYLLABLE SSANGSIOS WEO KIYEOK
-<UC482> \x9C\xD9 |0 # HANGUL SYLLABLE SSANGSIOS WEO SSANGKIYEOK
-<UC483> \x9C\xDA |0 # HANGUL SYLLABLE SSANGSIOS WEO KIYEOKSIOS
-<UC484> \x9C\xDB |0 # HANGUL SYLLABLE SSANGSIOS WEO NIEUN
-<UC485> \x9C\xDC |0 # HANGUL SYLLABLE SSANGSIOS WEO NIEUNCIEUC
-<UC486> \x9C\xDD |0 # HANGUL SYLLABLE SSANGSIOS WEO NIEUNHIEUH
-<UC487> \x9C\xDE |0 # HANGUL SYLLABLE SSANGSIOS WEO TIKEUT
-<UC488> \x9C\xDF |0 # HANGUL SYLLABLE SSANGSIOS WEO RIEUL
-<UC489> \x9C\xE0 |0 # HANGUL SYLLABLE SSANGSIOS WEO RIEULKIYEOK
-<UC48A> \x9C\xE1 |0 # HANGUL SYLLABLE SSANGSIOS WEO RIEULMIEUM
-<UC48B> \x9C\xE2 |0 # HANGUL SYLLABLE SSANGSIOS WEO RIEULPIEUP
-<UC48C> \x9C\xE3 |0 # HANGUL SYLLABLE SSANGSIOS WEO RIEULSIOS
-<UC48D> \x9C\xE4 |0 # HANGUL SYLLABLE SSANGSIOS WEO RIEULTHIEUTH
-<UC48E> \x9C\xE5 |0 # HANGUL SYLLABLE SSANGSIOS WEO RIEULPHIEUPH
-<UC48F> \x9C\xE6 |0 # HANGUL SYLLABLE SSANGSIOS WEO RIEULHIEUH
-<UC490> \x9C\xE7 |0 # HANGUL SYLLABLE SSANGSIOS WEO MIEUM
-<UC491> \x9C\xE8 |0 # HANGUL SYLLABLE SSANGSIOS WEO PIEUP
-<UC492> \x9C\xE9 |0 # HANGUL SYLLABLE SSANGSIOS WEO PIEUPSIOS
-<UC493> \x9C\xEA |0 # HANGUL SYLLABLE SSANGSIOS WEO SIOS
-<UC494> \xBE\xAD |0 # HANGUL SYLLABLE SSANGSIOS WEO SSANGSIOS
-<UC495> \x9C\xEB |0 # HANGUL SYLLABLE SSANGSIOS WEO IEUNG
-<UC496> \x9C\xEC |0 # HANGUL SYLLABLE SSANGSIOS WEO CIEUC
-<UC497> \x9C\xED |0 # HANGUL SYLLABLE SSANGSIOS WEO CHIEUCH
-<UC498> \x9C\xEE |0 # HANGUL SYLLABLE SSANGSIOS WEO KHIEUKH
-<UC499> \x9C\xEF |0 # HANGUL SYLLABLE SSANGSIOS WEO THIEUTH
-<UC49A> \x9C\xF0 |0 # HANGUL SYLLABLE SSANGSIOS WEO PHIEUPH
-<UC49B> \x9C\xF1 |0 # HANGUL SYLLABLE SSANGSIOS WEO HIEUH
-<UC49C> \xBE\xAE |0 # HANGUL SYLLABLE SSANGSIOS WE
-<UC49D> \x9C\xF2 |0 # HANGUL SYLLABLE SSANGSIOS WE KIYEOK
-<UC49E> \x9C\xF3 |0 # HANGUL SYLLABLE SSANGSIOS WE SSANGKIYEOK
-<UC49F> \x9C\xF4 |0 # HANGUL SYLLABLE SSANGSIOS WE KIYEOKSIOS
-<UC4A0> \x9C\xF5 |0 # HANGUL SYLLABLE SSANGSIOS WE NIEUN
-<UC4A1> \x9C\xF6 |0 # HANGUL SYLLABLE SSANGSIOS WE NIEUNCIEUC
-<UC4A2> \x9C\xF7 |0 # HANGUL SYLLABLE SSANGSIOS WE NIEUNHIEUH
-<UC4A3> \x9C\xF8 |0 # HANGUL SYLLABLE SSANGSIOS WE TIKEUT
-<UC4A4> \x9C\xF9 |0 # HANGUL SYLLABLE SSANGSIOS WE RIEUL
-<UC4A5> \x9C\xFA |0 # HANGUL SYLLABLE SSANGSIOS WE RIEULKIYEOK
-<UC4A6> \x9C\xFB |0 # HANGUL SYLLABLE SSANGSIOS WE RIEULMIEUM
-<UC4A7> \x9C\xFC |0 # HANGUL SYLLABLE SSANGSIOS WE RIEULPIEUP
-<UC4A8> \x9C\xFD |0 # HANGUL SYLLABLE SSANGSIOS WE RIEULSIOS
-<UC4A9> \x9C\xFE |0 # HANGUL SYLLABLE SSANGSIOS WE RIEULTHIEUTH
-<UC4AA> \x9D\x41 |0 # HANGUL SYLLABLE SSANGSIOS WE RIEULPHIEUPH
-<UC4AB> \x9D\x42 |0 # HANGUL SYLLABLE SSANGSIOS WE RIEULHIEUH
-<UC4AC> \x9D\x43 |0 # HANGUL SYLLABLE SSANGSIOS WE MIEUM
-<UC4AD> \x9D\x44 |0 # HANGUL SYLLABLE SSANGSIOS WE PIEUP
-<UC4AE> \x9D\x45 |0 # HANGUL SYLLABLE SSANGSIOS WE PIEUPSIOS
-<UC4AF> \x9D\x46 |0 # HANGUL SYLLABLE SSANGSIOS WE SIOS
-<UC4B0> \x9D\x47 |0 # HANGUL SYLLABLE SSANGSIOS WE SSANGSIOS
-<UC4B1> \x9D\x48 |0 # HANGUL SYLLABLE SSANGSIOS WE IEUNG
-<UC4B2> \x9D\x49 |0 # HANGUL SYLLABLE SSANGSIOS WE CIEUC
-<UC4B3> \x9D\x4A |0 # HANGUL SYLLABLE SSANGSIOS WE CHIEUCH
-<UC4B4> \x9D\x4B |0 # HANGUL SYLLABLE SSANGSIOS WE KHIEUKH
-<UC4B5> \x9D\x4C |0 # HANGUL SYLLABLE SSANGSIOS WE THIEUTH
-<UC4B6> \x9D\x4D |0 # HANGUL SYLLABLE SSANGSIOS WE PHIEUPH
-<UC4B7> \x9D\x4E |0 # HANGUL SYLLABLE SSANGSIOS WE HIEUH
-<UC4B8> \xBE\xAF |0 # HANGUL SYLLABLE SSANGSIOS WI
-<UC4B9> \x9D\x4F |0 # HANGUL SYLLABLE SSANGSIOS WI KIYEOK
-<UC4BA> \x9D\x50 |0 # HANGUL SYLLABLE SSANGSIOS WI SSANGKIYEOK
-<UC4BB> \x9D\x51 |0 # HANGUL SYLLABLE SSANGSIOS WI KIYEOKSIOS
-<UC4BC> \xBE\xB0 |0 # HANGUL SYLLABLE SSANGSIOS WI NIEUN
-<UC4BD> \x9D\x52 |0 # HANGUL SYLLABLE SSANGSIOS WI NIEUNCIEUC
-<UC4BE> \x9D\x53 |0 # HANGUL SYLLABLE SSANGSIOS WI NIEUNHIEUH
-<UC4BF> \x9D\x54 |0 # HANGUL SYLLABLE SSANGSIOS WI TIKEUT
-<UC4C0> \x9D\x55 |0 # HANGUL SYLLABLE SSANGSIOS WI RIEUL
-<UC4C1> \x9D\x56 |0 # HANGUL SYLLABLE SSANGSIOS WI RIEULKIYEOK
-<UC4C2> \x9D\x57 |0 # HANGUL SYLLABLE SSANGSIOS WI RIEULMIEUM
-<UC4C3> \x9D\x58 |0 # HANGUL SYLLABLE SSANGSIOS WI RIEULPIEUP
-<UC4C4> \x9D\x59 |0 # HANGUL SYLLABLE SSANGSIOS WI RIEULSIOS
-<UC4C5> \x9D\x5A |0 # HANGUL SYLLABLE SSANGSIOS WI RIEULTHIEUTH
-<UC4C6> \x9D\x61 |0 # HANGUL SYLLABLE SSANGSIOS WI RIEULPHIEUPH
-<UC4C7> \x9D\x62 |0 # HANGUL SYLLABLE SSANGSIOS WI RIEULHIEUH
-<UC4C8> \x9D\x63 |0 # HANGUL SYLLABLE SSANGSIOS WI MIEUM
-<UC4C9> \x9D\x64 |0 # HANGUL SYLLABLE SSANGSIOS WI PIEUP
-<UC4CA> \x9D\x65 |0 # HANGUL SYLLABLE SSANGSIOS WI PIEUPSIOS
-<UC4CB> \x9D\x66 |0 # HANGUL SYLLABLE SSANGSIOS WI SIOS
-<UC4CC> \x9D\x67 |0 # HANGUL SYLLABLE SSANGSIOS WI SSANGSIOS
-<UC4CD> \x9D\x68 |0 # HANGUL SYLLABLE SSANGSIOS WI IEUNG
-<UC4CE> \x9D\x69 |0 # HANGUL SYLLABLE SSANGSIOS WI CIEUC
-<UC4CF> \x9D\x6A |0 # HANGUL SYLLABLE SSANGSIOS WI CHIEUCH
-<UC4D0> \x9D\x6B |0 # HANGUL SYLLABLE SSANGSIOS WI KHIEUKH
-<UC4D1> \x9D\x6C |0 # HANGUL SYLLABLE SSANGSIOS WI THIEUTH
-<UC4D2> \x9D\x6D |0 # HANGUL SYLLABLE SSANGSIOS WI PHIEUPH
-<UC4D3> \x9D\x6E |0 # HANGUL SYLLABLE SSANGSIOS WI HIEUH
-<UC4D4> \x9D\x6F |0 # HANGUL SYLLABLE SSANGSIOS YU
-<UC4D5> \x9D\x70 |0 # HANGUL SYLLABLE SSANGSIOS YU KIYEOK
-<UC4D6> \x9D\x71 |0 # HANGUL SYLLABLE SSANGSIOS YU SSANGKIYEOK
-<UC4D7> \x9D\x72 |0 # HANGUL SYLLABLE SSANGSIOS YU KIYEOKSIOS
-<UC4D8> \x9D\x73 |0 # HANGUL SYLLABLE SSANGSIOS YU NIEUN
-<UC4D9> \x9D\x74 |0 # HANGUL SYLLABLE SSANGSIOS YU NIEUNCIEUC
-<UC4DA> \x9D\x75 |0 # HANGUL SYLLABLE SSANGSIOS YU NIEUNHIEUH
-<UC4DB> \x9D\x76 |0 # HANGUL SYLLABLE SSANGSIOS YU TIKEUT
-<UC4DC> \x9D\x77 |0 # HANGUL SYLLABLE SSANGSIOS YU RIEUL
-<UC4DD> \x9D\x78 |0 # HANGUL SYLLABLE SSANGSIOS YU RIEULKIYEOK
-<UC4DE> \x9D\x79 |0 # HANGUL SYLLABLE SSANGSIOS YU RIEULMIEUM
-<UC4DF> \x9D\x7A |0 # HANGUL SYLLABLE SSANGSIOS YU RIEULPIEUP
-<UC4E0> \x9D\x81 |0 # HANGUL SYLLABLE SSANGSIOS YU RIEULSIOS
-<UC4E1> \x9D\x82 |0 # HANGUL SYLLABLE SSANGSIOS YU RIEULTHIEUTH
-<UC4E2> \x9D\x83 |0 # HANGUL SYLLABLE SSANGSIOS YU RIEULPHIEUPH
-<UC4E3> \x9D\x84 |0 # HANGUL SYLLABLE SSANGSIOS YU RIEULHIEUH
-<UC4E4> \x9D\x85 |0 # HANGUL SYLLABLE SSANGSIOS YU MIEUM
-<UC4E5> \x9D\x86 |0 # HANGUL SYLLABLE SSANGSIOS YU PIEUP
-<UC4E6> \x9D\x87 |0 # HANGUL SYLLABLE SSANGSIOS YU PIEUPSIOS
-<UC4E7> \x9D\x88 |0 # HANGUL SYLLABLE SSANGSIOS YU SIOS
-<UC4E8> \x9D\x89 |0 # HANGUL SYLLABLE SSANGSIOS YU SSANGSIOS
-<UC4E9> \xBE\xB1 |0 # HANGUL SYLLABLE SSANGSIOS YU IEUNG
-<UC4EA> \x9D\x8A |0 # HANGUL SYLLABLE SSANGSIOS YU CIEUC
-<UC4EB> \x9D\x8B |0 # HANGUL SYLLABLE SSANGSIOS YU CHIEUCH
-<UC4EC> \x9D\x8C |0 # HANGUL SYLLABLE SSANGSIOS YU KHIEUKH
-<UC4ED> \x9D\x8D |0 # HANGUL SYLLABLE SSANGSIOS YU THIEUTH
-<UC4EE> \x9D\x8E |0 # HANGUL SYLLABLE SSANGSIOS YU PHIEUPH
-<UC4EF> \x9D\x8F |0 # HANGUL SYLLABLE SSANGSIOS YU HIEUH
-<UC4F0> \xBE\xB2 |0 # HANGUL SYLLABLE SSANGSIOS EU
-<UC4F1> \xBE\xB3 |0 # HANGUL SYLLABLE SSANGSIOS EU KIYEOK
-<UC4F2> \x9D\x90 |0 # HANGUL SYLLABLE SSANGSIOS EU SSANGKIYEOK
-<UC4F3> \x9D\x91 |0 # HANGUL SYLLABLE SSANGSIOS EU KIYEOKSIOS
-<UC4F4> \xBE\xB4 |0 # HANGUL SYLLABLE SSANGSIOS EU NIEUN
-<UC4F5> \x9D\x92 |0 # HANGUL SYLLABLE SSANGSIOS EU NIEUNCIEUC
-<UC4F6> \x9D\x93 |0 # HANGUL SYLLABLE SSANGSIOS EU NIEUNHIEUH
-<UC4F7> \x9D\x94 |0 # HANGUL SYLLABLE SSANGSIOS EU TIKEUT
-<UC4F8> \xBE\xB5 |0 # HANGUL SYLLABLE SSANGSIOS EU RIEUL
-<UC4F9> \x9D\x95 |0 # HANGUL SYLLABLE SSANGSIOS EU RIEULKIYEOK
-<UC4FA> \xBE\xB6 |0 # HANGUL SYLLABLE SSANGSIOS EU RIEULMIEUM
-<UC4FB> \x9D\x96 |0 # HANGUL SYLLABLE SSANGSIOS EU RIEULPIEUP
-<UC4FC> \x9D\x97 |0 # HANGUL SYLLABLE SSANGSIOS EU RIEULSIOS
-<UC4FD> \x9D\x98 |0 # HANGUL SYLLABLE SSANGSIOS EU RIEULTHIEUTH
-<UC4FE> \x9D\x99 |0 # HANGUL SYLLABLE SSANGSIOS EU RIEULPHIEUPH
-<UC4FF> \xBE\xB7 |0 # HANGUL SYLLABLE SSANGSIOS EU RIEULHIEUH
-<UC500> \xBE\xB8 |0 # HANGUL SYLLABLE SSANGSIOS EU MIEUM
-<UC501> \xBE\xB9 |0 # HANGUL SYLLABLE SSANGSIOS EU PIEUP
-<UC502> \x9D\x9A |0 # HANGUL SYLLABLE SSANGSIOS EU PIEUPSIOS
-<UC503> \x9D\x9B |0 # HANGUL SYLLABLE SSANGSIOS EU SIOS
-<UC504> \x9D\x9C |0 # HANGUL SYLLABLE SSANGSIOS EU SSANGSIOS
-<UC505> \x9D\x9D |0 # HANGUL SYLLABLE SSANGSIOS EU IEUNG
-<UC506> \x9D\x9E |0 # HANGUL SYLLABLE SSANGSIOS EU CIEUC
-<UC507> \x9D\x9F |0 # HANGUL SYLLABLE SSANGSIOS EU CHIEUCH
-<UC508> \x9D\xA0 |0 # HANGUL SYLLABLE SSANGSIOS EU KHIEUKH
-<UC509> \x9D\xA1 |0 # HANGUL SYLLABLE SSANGSIOS EU THIEUTH
-<UC50A> \x9D\xA2 |0 # HANGUL SYLLABLE SSANGSIOS EU PHIEUPH
-<UC50B> \x9D\xA3 |0 # HANGUL SYLLABLE SSANGSIOS EU HIEUH
-<UC50C> \xBE\xBA |0 # HANGUL SYLLABLE SSANGSIOS YI
-<UC50D> \x9D\xA4 |0 # HANGUL SYLLABLE SSANGSIOS YI KIYEOK
-<UC50E> \x9D\xA5 |0 # HANGUL SYLLABLE SSANGSIOS YI SSANGKIYEOK
-<UC50F> \x9D\xA6 |0 # HANGUL SYLLABLE SSANGSIOS YI KIYEOKSIOS
-<UC510> \xBE\xBB |0 # HANGUL SYLLABLE SSANGSIOS YI NIEUN
-<UC511> \x9D\xA7 |0 # HANGUL SYLLABLE SSANGSIOS YI NIEUNCIEUC
-<UC512> \x9D\xA8 |0 # HANGUL SYLLABLE SSANGSIOS YI NIEUNHIEUH
-<UC513> \x9D\xA9 |0 # HANGUL SYLLABLE SSANGSIOS YI TIKEUT
-<UC514> \xBE\xBC |0 # HANGUL SYLLABLE SSANGSIOS YI RIEUL
-<UC515> \x9D\xAA |0 # HANGUL SYLLABLE SSANGSIOS YI RIEULKIYEOK
-<UC516> \x9D\xAB |0 # HANGUL SYLLABLE SSANGSIOS YI RIEULMIEUM
-<UC517> \x9D\xAC |0 # HANGUL SYLLABLE SSANGSIOS YI RIEULPIEUP
-<UC518> \x9D\xAD |0 # HANGUL SYLLABLE SSANGSIOS YI RIEULSIOS
-<UC519> \x9D\xAE |0 # HANGUL SYLLABLE SSANGSIOS YI RIEULTHIEUTH
-<UC51A> \x9D\xAF |0 # HANGUL SYLLABLE SSANGSIOS YI RIEULPHIEUPH
-<UC51B> \x9D\xB0 |0 # HANGUL SYLLABLE SSANGSIOS YI RIEULHIEUH
-<UC51C> \xBE\xBD |0 # HANGUL SYLLABLE SSANGSIOS YI MIEUM
-<UC51D> \x9D\xB1 |0 # HANGUL SYLLABLE SSANGSIOS YI PIEUP
-<UC51E> \x9D\xB2 |0 # HANGUL SYLLABLE SSANGSIOS YI PIEUPSIOS
-<UC51F> \x9D\xB3 |0 # HANGUL SYLLABLE SSANGSIOS YI SIOS
-<UC520> \x9D\xB4 |0 # HANGUL SYLLABLE SSANGSIOS YI SSANGSIOS
-<UC521> \x9D\xB5 |0 # HANGUL SYLLABLE SSANGSIOS YI IEUNG
-<UC522> \x9D\xB6 |0 # HANGUL SYLLABLE SSANGSIOS YI CIEUC
-<UC523> \x9D\xB7 |0 # HANGUL SYLLABLE SSANGSIOS YI CHIEUCH
-<UC524> \x9D\xB8 |0 # HANGUL SYLLABLE SSANGSIOS YI KHIEUKH
-<UC525> \x9D\xB9 |0 # HANGUL SYLLABLE SSANGSIOS YI THIEUTH
-<UC526> \x9D\xBA |0 # HANGUL SYLLABLE SSANGSIOS YI PHIEUPH
-<UC527> \x9D\xBB |0 # HANGUL SYLLABLE SSANGSIOS YI HIEUH
-<UC528> \xBE\xBE |0 # HANGUL SYLLABLE SSANGSIOS I
-<UC529> \xBE\xBF |0 # HANGUL SYLLABLE SSANGSIOS I KIYEOK
-<UC52A> \x9D\xBC |0 # HANGUL SYLLABLE SSANGSIOS I SSANGKIYEOK
-<UC52B> \x9D\xBD |0 # HANGUL SYLLABLE SSANGSIOS I KIYEOKSIOS
-<UC52C> \xBE\xC0 |0 # HANGUL SYLLABLE SSANGSIOS I NIEUN
-<UC52D> \x9D\xBE |0 # HANGUL SYLLABLE SSANGSIOS I NIEUNCIEUC
-<UC52E> \x9D\xBF |0 # HANGUL SYLLABLE SSANGSIOS I NIEUNHIEUH
-<UC52F> \x9D\xC0 |0 # HANGUL SYLLABLE SSANGSIOS I TIKEUT
-<UC530> \xBE\xC1 |0 # HANGUL SYLLABLE SSANGSIOS I RIEUL
-<UC531> \x9D\xC1 |0 # HANGUL SYLLABLE SSANGSIOS I RIEULKIYEOK
-<UC532> \x9D\xC2 |0 # HANGUL SYLLABLE SSANGSIOS I RIEULMIEUM
-<UC533> \x9D\xC3 |0 # HANGUL SYLLABLE SSANGSIOS I RIEULPIEUP
-<UC534> \x9D\xC4 |0 # HANGUL SYLLABLE SSANGSIOS I RIEULSIOS
-<UC535> \x9D\xC5 |0 # HANGUL SYLLABLE SSANGSIOS I RIEULTHIEUTH
-<UC536> \x9D\xC6 |0 # HANGUL SYLLABLE SSANGSIOS I RIEULPHIEUPH
-<UC537> \x9D\xC7 |0 # HANGUL SYLLABLE SSANGSIOS I RIEULHIEUH
-<UC538> \xBE\xC2 |0 # HANGUL SYLLABLE SSANGSIOS I MIEUM
-<UC539> \xBE\xC3 |0 # HANGUL SYLLABLE SSANGSIOS I PIEUP
-<UC53A> \x9D\xC8 |0 # HANGUL SYLLABLE SSANGSIOS I PIEUPSIOS
-<UC53B> \xBE\xC4 |0 # HANGUL SYLLABLE SSANGSIOS I SIOS
-<UC53C> \x9D\xC9 |0 # HANGUL SYLLABLE SSANGSIOS I SSANGSIOS
-<UC53D> \xBE\xC5 |0 # HANGUL SYLLABLE SSANGSIOS I IEUNG
-<UC53E> \x9D\xCA |0 # HANGUL SYLLABLE SSANGSIOS I CIEUC
-<UC53F> \x9D\xCB |0 # HANGUL SYLLABLE SSANGSIOS I CHIEUCH
-<UC540> \x9D\xCC |0 # HANGUL SYLLABLE SSANGSIOS I KHIEUKH
-<UC541> \x9D\xCD |0 # HANGUL SYLLABLE SSANGSIOS I THIEUTH
-<UC542> \x9D\xCE |0 # HANGUL SYLLABLE SSANGSIOS I PHIEUPH
-<UC543> \x9D\xCF |0 # HANGUL SYLLABLE SSANGSIOS I HIEUH
-<UC544> \xBE\xC6 |0 # HANGUL SYLLABLE IEUNG A
-<UC545> \xBE\xC7 |0 # HANGUL SYLLABLE IEUNG A KIYEOK
-<UC546> \x9D\xD0 |0 # HANGUL SYLLABLE IEUNG A SSANGKIYEOK
-<UC547> \x9D\xD1 |0 # HANGUL SYLLABLE IEUNG A KIYEOKSIOS
-<UC548> \xBE\xC8 |0 # HANGUL SYLLABLE IEUNG A NIEUN
-<UC549> \xBE\xC9 |0 # HANGUL SYLLABLE IEUNG A NIEUNCIEUC
-<UC54A> \xBE\xCA |0 # HANGUL SYLLABLE IEUNG A NIEUNHIEUH
-<UC54B> \x9D\xD2 |0 # HANGUL SYLLABLE IEUNG A TIKEUT
-<UC54C> \xBE\xCB |0 # HANGUL SYLLABLE IEUNG A RIEUL
-<UC54D> \xBE\xCC |0 # HANGUL SYLLABLE IEUNG A RIEULKIYEOK
-<UC54E> \xBE\xCD |0 # HANGUL SYLLABLE IEUNG A RIEULMIEUM
-<UC54F> \x9D\xD3 |0 # HANGUL SYLLABLE IEUNG A RIEULPIEUP
-<UC550> \x9D\xD4 |0 # HANGUL SYLLABLE IEUNG A RIEULSIOS
-<UC551> \x9D\xD5 |0 # HANGUL SYLLABLE IEUNG A RIEULTHIEUTH
-<UC552> \x9D\xD6 |0 # HANGUL SYLLABLE IEUNG A RIEULPHIEUPH
-<UC553> \xBE\xCE |0 # HANGUL SYLLABLE IEUNG A RIEULHIEUH
-<UC554> \xBE\xCF |0 # HANGUL SYLLABLE IEUNG A MIEUM
-<UC555> \xBE\xD0 |0 # HANGUL SYLLABLE IEUNG A PIEUP
-<UC556> \x9D\xD7 |0 # HANGUL SYLLABLE IEUNG A PIEUPSIOS
-<UC557> \xBE\xD1 |0 # HANGUL SYLLABLE IEUNG A SIOS
-<UC558> \xBE\xD2 |0 # HANGUL SYLLABLE IEUNG A SSANGSIOS
-<UC559> \xBE\xD3 |0 # HANGUL SYLLABLE IEUNG A IEUNG
-<UC55A> \x9D\xD8 |0 # HANGUL SYLLABLE IEUNG A CIEUC
-<UC55B> \x9D\xD9 |0 # HANGUL SYLLABLE IEUNG A CHIEUCH
-<UC55C> \x9D\xDA |0 # HANGUL SYLLABLE IEUNG A KHIEUKH
-<UC55D> \xBE\xD4 |0 # HANGUL SYLLABLE IEUNG A THIEUTH
-<UC55E> \xBE\xD5 |0 # HANGUL SYLLABLE IEUNG A PHIEUPH
-<UC55F> \x9D\xDB |0 # HANGUL SYLLABLE IEUNG A HIEUH
-<UC560> \xBE\xD6 |0 # HANGUL SYLLABLE IEUNG AE
-<UC561> \xBE\xD7 |0 # HANGUL SYLLABLE IEUNG AE KIYEOK
-<UC562> \x9D\xDC |0 # HANGUL SYLLABLE IEUNG AE SSANGKIYEOK
-<UC563> \x9D\xDD |0 # HANGUL SYLLABLE IEUNG AE KIYEOKSIOS
-<UC564> \xBE\xD8 |0 # HANGUL SYLLABLE IEUNG AE NIEUN
-<UC565> \x9D\xDE |0 # HANGUL SYLLABLE IEUNG AE NIEUNCIEUC
-<UC566> \x9D\xDF |0 # HANGUL SYLLABLE IEUNG AE NIEUNHIEUH
-<UC567> \x9D\xE0 |0 # HANGUL SYLLABLE IEUNG AE TIKEUT
-<UC568> \xBE\xD9 |0 # HANGUL SYLLABLE IEUNG AE RIEUL
-<UC569> \x9D\xE1 |0 # HANGUL SYLLABLE IEUNG AE RIEULKIYEOK
-<UC56A> \x9D\xE2 |0 # HANGUL SYLLABLE IEUNG AE RIEULMIEUM
-<UC56B> \x9D\xE3 |0 # HANGUL SYLLABLE IEUNG AE RIEULPIEUP
-<UC56C> \x9D\xE4 |0 # HANGUL SYLLABLE IEUNG AE RIEULSIOS
-<UC56D> \x9D\xE5 |0 # HANGUL SYLLABLE IEUNG AE RIEULTHIEUTH
-<UC56E> \x9D\xE6 |0 # HANGUL SYLLABLE IEUNG AE RIEULPHIEUPH
-<UC56F> \x9D\xE7 |0 # HANGUL SYLLABLE IEUNG AE RIEULHIEUH
-<UC570> \xBE\xDA |0 # HANGUL SYLLABLE IEUNG AE MIEUM
-<UC571> \xBE\xDB |0 # HANGUL SYLLABLE IEUNG AE PIEUP
-<UC572> \x9D\xE8 |0 # HANGUL SYLLABLE IEUNG AE PIEUPSIOS
-<UC573> \xBE\xDC |0 # HANGUL SYLLABLE IEUNG AE SIOS
-<UC574> \xBE\xDD |0 # HANGUL SYLLABLE IEUNG AE SSANGSIOS
-<UC575> \xBE\xDE |0 # HANGUL SYLLABLE IEUNG AE IEUNG
-<UC576> \x9D\xE9 |0 # HANGUL SYLLABLE IEUNG AE CIEUC
-<UC577> \x9D\xEA |0 # HANGUL SYLLABLE IEUNG AE CHIEUCH
-<UC578> \x9D\xEB |0 # HANGUL SYLLABLE IEUNG AE KHIEUKH
-<UC579> \x9D\xEC |0 # HANGUL SYLLABLE IEUNG AE THIEUTH
-<UC57A> \x9D\xED |0 # HANGUL SYLLABLE IEUNG AE PHIEUPH
-<UC57B> \x9D\xEE |0 # HANGUL SYLLABLE IEUNG AE HIEUH
-<UC57C> \xBE\xDF |0 # HANGUL SYLLABLE IEUNG YA
-<UC57D> \xBE\xE0 |0 # HANGUL SYLLABLE IEUNG YA KIYEOK
-<UC57E> \x9D\xEF |0 # HANGUL SYLLABLE IEUNG YA SSANGKIYEOK
-<UC57F> \x9D\xF0 |0 # HANGUL SYLLABLE IEUNG YA KIYEOKSIOS
-<UC580> \xBE\xE1 |0 # HANGUL SYLLABLE IEUNG YA NIEUN
-<UC581> \x9D\xF1 |0 # HANGUL SYLLABLE IEUNG YA NIEUNCIEUC
-<UC582> \x9D\xF2 |0 # HANGUL SYLLABLE IEUNG YA NIEUNHIEUH
-<UC583> \x9D\xF3 |0 # HANGUL SYLLABLE IEUNG YA TIKEUT
-<UC584> \xBE\xE2 |0 # HANGUL SYLLABLE IEUNG YA RIEUL
-<UC585> \x9D\xF4 |0 # HANGUL SYLLABLE IEUNG YA RIEULKIYEOK
-<UC586> \x9D\xF5 |0 # HANGUL SYLLABLE IEUNG YA RIEULMIEUM
-<UC587> \xBE\xE3 |0 # HANGUL SYLLABLE IEUNG YA RIEULPIEUP
-<UC588> \x9D\xF6 |0 # HANGUL SYLLABLE IEUNG YA RIEULSIOS
-<UC589> \x9D\xF7 |0 # HANGUL SYLLABLE IEUNG YA RIEULTHIEUTH
-<UC58A> \x9D\xF8 |0 # HANGUL SYLLABLE IEUNG YA RIEULPHIEUPH
-<UC58B> \x9D\xF9 |0 # HANGUL SYLLABLE IEUNG YA RIEULHIEUH
-<UC58C> \xBE\xE4 |0 # HANGUL SYLLABLE IEUNG YA MIEUM
-<UC58D> \xBE\xE5 |0 # HANGUL SYLLABLE IEUNG YA PIEUP
-<UC58E> \x9D\xFA |0 # HANGUL SYLLABLE IEUNG YA PIEUPSIOS
-<UC58F> \xBE\xE6 |0 # HANGUL SYLLABLE IEUNG YA SIOS
-<UC590> \x9D\xFB |0 # HANGUL SYLLABLE IEUNG YA SSANGSIOS
-<UC591> \xBE\xE7 |0 # HANGUL SYLLABLE IEUNG YA IEUNG
-<UC592> \x9D\xFC |0 # HANGUL SYLLABLE IEUNG YA CIEUC
-<UC593> \x9D\xFD |0 # HANGUL SYLLABLE IEUNG YA CHIEUCH
-<UC594> \x9D\xFE |0 # HANGUL SYLLABLE IEUNG YA KHIEUKH
-<UC595> \xBE\xE8 |0 # HANGUL SYLLABLE IEUNG YA THIEUTH
-<UC596> \x9E\x41 |0 # HANGUL SYLLABLE IEUNG YA PHIEUPH
-<UC597> \xBE\xE9 |0 # HANGUL SYLLABLE IEUNG YA HIEUH
-<UC598> \xBE\xEA |0 # HANGUL SYLLABLE IEUNG YAE
-<UC599> \x9E\x42 |0 # HANGUL SYLLABLE IEUNG YAE KIYEOK
-<UC59A> \x9E\x43 |0 # HANGUL SYLLABLE IEUNG YAE SSANGKIYEOK
-<UC59B> \x9E\x44 |0 # HANGUL SYLLABLE IEUNG YAE KIYEOKSIOS
-<UC59C> \xBE\xEB |0 # HANGUL SYLLABLE IEUNG YAE NIEUN
-<UC59D> \x9E\x45 |0 # HANGUL SYLLABLE IEUNG YAE NIEUNCIEUC
-<UC59E> \x9E\x46 |0 # HANGUL SYLLABLE IEUNG YAE NIEUNHIEUH
-<UC59F> \x9E\x47 |0 # HANGUL SYLLABLE IEUNG YAE TIKEUT
-<UC5A0> \xBE\xEC |0 # HANGUL SYLLABLE IEUNG YAE RIEUL
-<UC5A1> \x9E\x48 |0 # HANGUL SYLLABLE IEUNG YAE RIEULKIYEOK
-<UC5A2> \x9E\x49 |0 # HANGUL SYLLABLE IEUNG YAE RIEULMIEUM
-<UC5A3> \x9E\x4A |0 # HANGUL SYLLABLE IEUNG YAE RIEULPIEUP
-<UC5A4> \x9E\x4B |0 # HANGUL SYLLABLE IEUNG YAE RIEULSIOS
-<UC5A5> \x9E\x4C |0 # HANGUL SYLLABLE IEUNG YAE RIEULTHIEUTH
-<UC5A6> \x9E\x4D |0 # HANGUL SYLLABLE IEUNG YAE RIEULPHIEUPH
-<UC5A7> \x9E\x4E |0 # HANGUL SYLLABLE IEUNG YAE RIEULHIEUH
-<UC5A8> \x9E\x4F |0 # HANGUL SYLLABLE IEUNG YAE MIEUM
-<UC5A9> \xBE\xED |0 # HANGUL SYLLABLE IEUNG YAE PIEUP
-<UC5AA> \x9E\x50 |0 # HANGUL SYLLABLE IEUNG YAE PIEUPSIOS
-<UC5AB> \x9E\x51 |0 # HANGUL SYLLABLE IEUNG YAE SIOS
-<UC5AC> \x9E\x52 |0 # HANGUL SYLLABLE IEUNG YAE SSANGSIOS
-<UC5AD> \x9E\x53 |0 # HANGUL SYLLABLE IEUNG YAE IEUNG
-<UC5AE> \x9E\x54 |0 # HANGUL SYLLABLE IEUNG YAE CIEUC
-<UC5AF> \x9E\x55 |0 # HANGUL SYLLABLE IEUNG YAE CHIEUCH
-<UC5B0> \x9E\x56 |0 # HANGUL SYLLABLE IEUNG YAE KHIEUKH
-<UC5B1> \x9E\x57 |0 # HANGUL SYLLABLE IEUNG YAE THIEUTH
-<UC5B2> \x9E\x58 |0 # HANGUL SYLLABLE IEUNG YAE PHIEUPH
-<UC5B3> \x9E\x59 |0 # HANGUL SYLLABLE IEUNG YAE HIEUH
-<UC5B4> \xBE\xEE |0 # HANGUL SYLLABLE IEUNG EO
-<UC5B5> \xBE\xEF |0 # HANGUL SYLLABLE IEUNG EO KIYEOK
-<UC5B6> \x9E\x5A |0 # HANGUL SYLLABLE IEUNG EO SSANGKIYEOK
-<UC5B7> \x9E\x61 |0 # HANGUL SYLLABLE IEUNG EO KIYEOKSIOS
-<UC5B8> \xBE\xF0 |0 # HANGUL SYLLABLE IEUNG EO NIEUN
-<UC5B9> \xBE\xF1 |0 # HANGUL SYLLABLE IEUNG EO NIEUNCIEUC
-<UC5BA> \x9E\x62 |0 # HANGUL SYLLABLE IEUNG EO NIEUNHIEUH
-<UC5BB> \xBE\xF2 |0 # HANGUL SYLLABLE IEUNG EO TIKEUT
-<UC5BC> \xBE\xF3 |0 # HANGUL SYLLABLE IEUNG EO RIEUL
-<UC5BD> \xBE\xF4 |0 # HANGUL SYLLABLE IEUNG EO RIEULKIYEOK
-<UC5BE> \xBE\xF5 |0 # HANGUL SYLLABLE IEUNG EO RIEULMIEUM
-<UC5BF> \x9E\x63 |0 # HANGUL SYLLABLE IEUNG EO RIEULPIEUP
-<UC5C0> \x9E\x64 |0 # HANGUL SYLLABLE IEUNG EO RIEULSIOS
-<UC5C1> \x9E\x65 |0 # HANGUL SYLLABLE IEUNG EO RIEULTHIEUTH
-<UC5C2> \x9E\x66 |0 # HANGUL SYLLABLE IEUNG EO RIEULPHIEUPH
-<UC5C3> \x9E\x67 |0 # HANGUL SYLLABLE IEUNG EO RIEULHIEUH
-<UC5C4> \xBE\xF6 |0 # HANGUL SYLLABLE IEUNG EO MIEUM
-<UC5C5> \xBE\xF7 |0 # HANGUL SYLLABLE IEUNG EO PIEUP
-<UC5C6> \xBE\xF8 |0 # HANGUL SYLLABLE IEUNG EO PIEUPSIOS
-<UC5C7> \xBE\xF9 |0 # HANGUL SYLLABLE IEUNG EO SIOS
-<UC5C8> \xBE\xFA |0 # HANGUL SYLLABLE IEUNG EO SSANGSIOS
-<UC5C9> \xBE\xFB |0 # HANGUL SYLLABLE IEUNG EO IEUNG
-<UC5CA> \xBE\xFC |0 # HANGUL SYLLABLE IEUNG EO CIEUC
-<UC5CB> \x9E\x68 |0 # HANGUL SYLLABLE IEUNG EO CHIEUCH
-<UC5CC> \xBE\xFD |0 # HANGUL SYLLABLE IEUNG EO KHIEUKH
-<UC5CD> \x9E\x69 |0 # HANGUL SYLLABLE IEUNG EO THIEUTH
-<UC5CE> \xBE\xFE |0 # HANGUL SYLLABLE IEUNG EO PHIEUPH
-<UC5CF> \x9E\x6A |0 # HANGUL SYLLABLE IEUNG EO HIEUH
-<UC5D0> \xBF\xA1 |0 # HANGUL SYLLABLE IEUNG E
-<UC5D1> \xBF\xA2 |0 # HANGUL SYLLABLE IEUNG E KIYEOK
-<UC5D2> \x9E\x6B |0 # HANGUL SYLLABLE IEUNG E SSANGKIYEOK
-<UC5D3> \x9E\x6C |0 # HANGUL SYLLABLE IEUNG E KIYEOKSIOS
-<UC5D4> \xBF\xA3 |0 # HANGUL SYLLABLE IEUNG E NIEUN
-<UC5D5> \x9E\x6D |0 # HANGUL SYLLABLE IEUNG E NIEUNCIEUC
-<UC5D6> \x9E\x6E |0 # HANGUL SYLLABLE IEUNG E NIEUNHIEUH
-<UC5D7> \x9E\x6F |0 # HANGUL SYLLABLE IEUNG E TIKEUT
-<UC5D8> \xBF\xA4 |0 # HANGUL SYLLABLE IEUNG E RIEUL
-<UC5D9> \x9E\x70 |0 # HANGUL SYLLABLE IEUNG E RIEULKIYEOK
-<UC5DA> \x9E\x71 |0 # HANGUL SYLLABLE IEUNG E RIEULMIEUM
-<UC5DB> \x9E\x72 |0 # HANGUL SYLLABLE IEUNG E RIEULPIEUP
-<UC5DC> \x9E\x73 |0 # HANGUL SYLLABLE IEUNG E RIEULSIOS
-<UC5DD> \x9E\x74 |0 # HANGUL SYLLABLE IEUNG E RIEULTHIEUTH
-<UC5DE> \x9E\x75 |0 # HANGUL SYLLABLE IEUNG E RIEULPHIEUPH
-<UC5DF> \x9E\x76 |0 # HANGUL SYLLABLE IEUNG E RIEULHIEUH
-<UC5E0> \xBF\xA5 |0 # HANGUL SYLLABLE IEUNG E MIEUM
-<UC5E1> \xBF\xA6 |0 # HANGUL SYLLABLE IEUNG E PIEUP
-<UC5E2> \x9E\x77 |0 # HANGUL SYLLABLE IEUNG E PIEUPSIOS
-<UC5E3> \xBF\xA7 |0 # HANGUL SYLLABLE IEUNG E SIOS
-<UC5E4> \x9E\x78 |0 # HANGUL SYLLABLE IEUNG E SSANGSIOS
-<UC5E5> \xBF\xA8 |0 # HANGUL SYLLABLE IEUNG E IEUNG
-<UC5E6> \x9E\x79 |0 # HANGUL SYLLABLE IEUNG E CIEUC
-<UC5E7> \x9E\x7A |0 # HANGUL SYLLABLE IEUNG E CHIEUCH
-<UC5E8> \x9E\x81 |0 # HANGUL SYLLABLE IEUNG E KHIEUKH
-<UC5E9> \x9E\x82 |0 # HANGUL SYLLABLE IEUNG E THIEUTH
-<UC5EA> \x9E\x83 |0 # HANGUL SYLLABLE IEUNG E PHIEUPH
-<UC5EB> \x9E\x84 |0 # HANGUL SYLLABLE IEUNG E HIEUH
-<UC5EC> \xBF\xA9 |0 # HANGUL SYLLABLE IEUNG YEO
-<UC5ED> \xBF\xAA |0 # HANGUL SYLLABLE IEUNG YEO KIYEOK
-<UC5EE> \xBF\xAB |0 # HANGUL SYLLABLE IEUNG YEO SSANGKIYEOK
-<UC5EF> \x9E\x85 |0 # HANGUL SYLLABLE IEUNG YEO KIYEOKSIOS
-<UC5F0> \xBF\xAC |0 # HANGUL SYLLABLE IEUNG YEO NIEUN
-<UC5F1> \x9E\x86 |0 # HANGUL SYLLABLE IEUNG YEO NIEUNCIEUC
-<UC5F2> \x9E\x87 |0 # HANGUL SYLLABLE IEUNG YEO NIEUNHIEUH
-<UC5F3> \x9E\x88 |0 # HANGUL SYLLABLE IEUNG YEO TIKEUT
-<UC5F4> \xBF\xAD |0 # HANGUL SYLLABLE IEUNG YEO RIEUL
-<UC5F5> \x9E\x89 |0 # HANGUL SYLLABLE IEUNG YEO RIEULKIYEOK
-<UC5F6> \xBF\xAE |0 # HANGUL SYLLABLE IEUNG YEO RIEULMIEUM
-<UC5F7> \xBF\xAF |0 # HANGUL SYLLABLE IEUNG YEO RIEULPIEUP
-<UC5F8> \x9E\x8A |0 # HANGUL SYLLABLE IEUNG YEO RIEULSIOS
-<UC5F9> \x9E\x8B |0 # HANGUL SYLLABLE IEUNG YEO RIEULTHIEUTH
-<UC5FA> \x9E\x8C |0 # HANGUL SYLLABLE IEUNG YEO RIEULPHIEUPH
-<UC5FB> \x9E\x8D |0 # HANGUL SYLLABLE IEUNG YEO RIEULHIEUH
-<UC5FC> \xBF\xB0 |0 # HANGUL SYLLABLE IEUNG YEO MIEUM
-<UC5FD> \xBF\xB1 |0 # HANGUL SYLLABLE IEUNG YEO PIEUP
-<UC5FE> \xBF\xB2 |0 # HANGUL SYLLABLE IEUNG YEO PIEUPSIOS
-<UC5FF> \xBF\xB3 |0 # HANGUL SYLLABLE IEUNG YEO SIOS
-<UC600> \xBF\xB4 |0 # HANGUL SYLLABLE IEUNG YEO SSANGSIOS
-<UC601> \xBF\xB5 |0 # HANGUL SYLLABLE IEUNG YEO IEUNG
-<UC602> \x9E\x8E |0 # HANGUL SYLLABLE IEUNG YEO CIEUC
-<UC603> \x9E\x8F |0 # HANGUL SYLLABLE IEUNG YEO CHIEUCH
-<UC604> \x9E\x90 |0 # HANGUL SYLLABLE IEUNG YEO KHIEUKH
-<UC605> \xBF\xB6 |0 # HANGUL SYLLABLE IEUNG YEO THIEUTH
-<UC606> \xBF\xB7 |0 # HANGUL SYLLABLE IEUNG YEO PHIEUPH
-<UC607> \xBF\xB8 |0 # HANGUL SYLLABLE IEUNG YEO HIEUH
-<UC608> \xBF\xB9 |0 # HANGUL SYLLABLE IEUNG YE
-<UC609> \x9E\x91 |0 # HANGUL SYLLABLE IEUNG YE KIYEOK
-<UC60A> \x9E\x92 |0 # HANGUL SYLLABLE IEUNG YE SSANGKIYEOK
-<UC60B> \x9E\x93 |0 # HANGUL SYLLABLE IEUNG YE KIYEOKSIOS
-<UC60C> \xBF\xBA |0 # HANGUL SYLLABLE IEUNG YE NIEUN
-<UC60D> \x9E\x94 |0 # HANGUL SYLLABLE IEUNG YE NIEUNCIEUC
-<UC60E> \x9E\x95 |0 # HANGUL SYLLABLE IEUNG YE NIEUNHIEUH
-<UC60F> \x9E\x96 |0 # HANGUL SYLLABLE IEUNG YE TIKEUT
-<UC610> \xBF\xBB |0 # HANGUL SYLLABLE IEUNG YE RIEUL
-<UC611> \x9E\x97 |0 # HANGUL SYLLABLE IEUNG YE RIEULKIYEOK
-<UC612> \x9E\x98 |0 # HANGUL SYLLABLE IEUNG YE RIEULMIEUM
-<UC613> \x9E\x99 |0 # HANGUL SYLLABLE IEUNG YE RIEULPIEUP
-<UC614> \x9E\x9A |0 # HANGUL SYLLABLE IEUNG YE RIEULSIOS
-<UC615> \x9E\x9B |0 # HANGUL SYLLABLE IEUNG YE RIEULTHIEUTH
-<UC616> \x9E\x9C |0 # HANGUL SYLLABLE IEUNG YE RIEULPHIEUPH
-<UC617> \x9E\x9D |0 # HANGUL SYLLABLE IEUNG YE RIEULHIEUH
-<UC618> \xBF\xBC |0 # HANGUL SYLLABLE IEUNG YE MIEUM
-<UC619> \xBF\xBD |0 # HANGUL SYLLABLE IEUNG YE PIEUP
-<UC61A> \x9E\x9E |0 # HANGUL SYLLABLE IEUNG YE PIEUPSIOS
-<UC61B> \xBF\xBE |0 # HANGUL SYLLABLE IEUNG YE SIOS
-<UC61C> \xBF\xBF |0 # HANGUL SYLLABLE IEUNG YE SSANGSIOS
-<UC61D> \x9E\x9F |0 # HANGUL SYLLABLE IEUNG YE IEUNG
-<UC61E> \x9E\xA0 |0 # HANGUL SYLLABLE IEUNG YE CIEUC
-<UC61F> \x9E\xA1 |0 # HANGUL SYLLABLE IEUNG YE CHIEUCH
-<UC620> \x9E\xA2 |0 # HANGUL SYLLABLE IEUNG YE KHIEUKH
-<UC621> \x9E\xA3 |0 # HANGUL SYLLABLE IEUNG YE THIEUTH
-<UC622> \x9E\xA4 |0 # HANGUL SYLLABLE IEUNG YE PHIEUPH
-<UC623> \x9E\xA5 |0 # HANGUL SYLLABLE IEUNG YE HIEUH
-<UC624> \xBF\xC0 |0 # HANGUL SYLLABLE IEUNG O
-<UC625> \xBF\xC1 |0 # HANGUL SYLLABLE IEUNG O KIYEOK
-<UC626> \x9E\xA6 |0 # HANGUL SYLLABLE IEUNG O SSANGKIYEOK
-<UC627> \x9E\xA7 |0 # HANGUL SYLLABLE IEUNG O KIYEOKSIOS
-<UC628> \xBF\xC2 |0 # HANGUL SYLLABLE IEUNG O NIEUN
-<UC629> \x9E\xA8 |0 # HANGUL SYLLABLE IEUNG O NIEUNCIEUC
-<UC62A> \x9E\xA9 |0 # HANGUL SYLLABLE IEUNG O NIEUNHIEUH
-<UC62B> \x9E\xAA |0 # HANGUL SYLLABLE IEUNG O TIKEUT
-<UC62C> \xBF\xC3 |0 # HANGUL SYLLABLE IEUNG O RIEUL
-<UC62D> \xBF\xC4 |0 # HANGUL SYLLABLE IEUNG O RIEULKIYEOK
-<UC62E> \xBF\xC5 |0 # HANGUL SYLLABLE IEUNG O RIEULMIEUM
-<UC62F> \x9E\xAB |0 # HANGUL SYLLABLE IEUNG O RIEULPIEUP
-<UC630> \xBF\xC6 |0 # HANGUL SYLLABLE IEUNG O RIEULSIOS
-<UC631> \x9E\xAC |0 # HANGUL SYLLABLE IEUNG O RIEULTHIEUTH
-<UC632> \x9E\xAD |0 # HANGUL SYLLABLE IEUNG O RIEULPHIEUPH
-<UC633> \xBF\xC7 |0 # HANGUL SYLLABLE IEUNG O RIEULHIEUH
-<UC634> \xBF\xC8 |0 # HANGUL SYLLABLE IEUNG O MIEUM
-<UC635> \xBF\xC9 |0 # HANGUL SYLLABLE IEUNG O PIEUP
-<UC636> \x9E\xAE |0 # HANGUL SYLLABLE IEUNG O PIEUPSIOS
-<UC637> \xBF\xCA |0 # HANGUL SYLLABLE IEUNG O SIOS
-<UC638> \x9E\xAF |0 # HANGUL SYLLABLE IEUNG O SSANGSIOS
-<UC639> \xBF\xCB |0 # HANGUL SYLLABLE IEUNG O IEUNG
-<UC63A> \x9E\xB0 |0 # HANGUL SYLLABLE IEUNG O CIEUC
-<UC63B> \xBF\xCC |0 # HANGUL SYLLABLE IEUNG O CHIEUCH
-<UC63C> \x9E\xB1 |0 # HANGUL SYLLABLE IEUNG O KHIEUKH
-<UC63D> \x9E\xB2 |0 # HANGUL SYLLABLE IEUNG O THIEUTH
-<UC63E> \x9E\xB3 |0 # HANGUL SYLLABLE IEUNG O PHIEUPH
-<UC63F> \x9E\xB4 |0 # HANGUL SYLLABLE IEUNG O HIEUH
-<UC640> \xBF\xCD |0 # HANGUL SYLLABLE IEUNG WA
-<UC641> \xBF\xCE |0 # HANGUL SYLLABLE IEUNG WA KIYEOK
-<UC642> \x9E\xB5 |0 # HANGUL SYLLABLE IEUNG WA SSANGKIYEOK
-<UC643> \x9E\xB6 |0 # HANGUL SYLLABLE IEUNG WA KIYEOKSIOS
-<UC644> \xBF\xCF |0 # HANGUL SYLLABLE IEUNG WA NIEUN
-<UC645> \x9E\xB7 |0 # HANGUL SYLLABLE IEUNG WA NIEUNCIEUC
-<UC646> \x9E\xB8 |0 # HANGUL SYLLABLE IEUNG WA NIEUNHIEUH
-<UC647> \x9E\xB9 |0 # HANGUL SYLLABLE IEUNG WA TIKEUT
-<UC648> \xBF\xD0 |0 # HANGUL SYLLABLE IEUNG WA RIEUL
-<UC649> \x9E\xBA |0 # HANGUL SYLLABLE IEUNG WA RIEULKIYEOK
-<UC64A> \x9E\xBB |0 # HANGUL SYLLABLE IEUNG WA RIEULMIEUM
-<UC64B> \x9E\xBC |0 # HANGUL SYLLABLE IEUNG WA RIEULPIEUP
-<UC64C> \x9E\xBD |0 # HANGUL SYLLABLE IEUNG WA RIEULSIOS
-<UC64D> \x9E\xBE |0 # HANGUL SYLLABLE IEUNG WA RIEULTHIEUTH
-<UC64E> \x9E\xBF |0 # HANGUL SYLLABLE IEUNG WA RIEULPHIEUPH
-<UC64F> \x9E\xC0 |0 # HANGUL SYLLABLE IEUNG WA RIEULHIEUH
-<UC650> \xBF\xD1 |0 # HANGUL SYLLABLE IEUNG WA MIEUM
-<UC651> \xBF\xD2 |0 # HANGUL SYLLABLE IEUNG WA PIEUP
-<UC652> \x9E\xC1 |0 # HANGUL SYLLABLE IEUNG WA PIEUPSIOS
-<UC653> \xBF\xD3 |0 # HANGUL SYLLABLE IEUNG WA SIOS
-<UC654> \xBF\xD4 |0 # HANGUL SYLLABLE IEUNG WA SSANGSIOS
-<UC655> \xBF\xD5 |0 # HANGUL SYLLABLE IEUNG WA IEUNG
-<UC656> \x9E\xC2 |0 # HANGUL SYLLABLE IEUNG WA CIEUC
-<UC657> \x9E\xC3 |0 # HANGUL SYLLABLE IEUNG WA CHIEUCH
-<UC658> \x9E\xC4 |0 # HANGUL SYLLABLE IEUNG WA KHIEUKH
-<UC659> \x9E\xC5 |0 # HANGUL SYLLABLE IEUNG WA THIEUTH
-<UC65A> \x9E\xC6 |0 # HANGUL SYLLABLE IEUNG WA PHIEUPH
-<UC65B> \x9E\xC7 |0 # HANGUL SYLLABLE IEUNG WA HIEUH
-<UC65C> \xBF\xD6 |0 # HANGUL SYLLABLE IEUNG WAE
-<UC65D> \xBF\xD7 |0 # HANGUL SYLLABLE IEUNG WAE KIYEOK
-<UC65E> \x9E\xC8 |0 # HANGUL SYLLABLE IEUNG WAE SSANGKIYEOK
-<UC65F> \x9E\xC9 |0 # HANGUL SYLLABLE IEUNG WAE KIYEOKSIOS
-<UC660> \xBF\xD8 |0 # HANGUL SYLLABLE IEUNG WAE NIEUN
-<UC661> \x9E\xCA |0 # HANGUL SYLLABLE IEUNG WAE NIEUNCIEUC
-<UC662> \x9E\xCB |0 # HANGUL SYLLABLE IEUNG WAE NIEUNHIEUH
-<UC663> \x9E\xCC |0 # HANGUL SYLLABLE IEUNG WAE TIKEUT
-<UC664> \x9E\xCD |0 # HANGUL SYLLABLE IEUNG WAE RIEUL
-<UC665> \x9E\xCE |0 # HANGUL SYLLABLE IEUNG WAE RIEULKIYEOK
-<UC666> \x9E\xCF |0 # HANGUL SYLLABLE IEUNG WAE RIEULMIEUM
-<UC667> \x9E\xD0 |0 # HANGUL SYLLABLE IEUNG WAE RIEULPIEUP
-<UC668> \x9E\xD1 |0 # HANGUL SYLLABLE IEUNG WAE RIEULSIOS
-<UC669> \x9E\xD2 |0 # HANGUL SYLLABLE IEUNG WAE RIEULTHIEUTH
-<UC66A> \x9E\xD3 |0 # HANGUL SYLLABLE IEUNG WAE RIEULPHIEUPH
-<UC66B> \x9E\xD4 |0 # HANGUL SYLLABLE IEUNG WAE RIEULHIEUH
-<UC66C> \xBF\xD9 |0 # HANGUL SYLLABLE IEUNG WAE MIEUM
-<UC66D> \x9E\xD5 |0 # HANGUL SYLLABLE IEUNG WAE PIEUP
-<UC66E> \x9E\xD6 |0 # HANGUL SYLLABLE IEUNG WAE PIEUPSIOS
-<UC66F> \xBF\xDA |0 # HANGUL SYLLABLE IEUNG WAE SIOS
-<UC670> \x9E\xD7 |0 # HANGUL SYLLABLE IEUNG WAE SSANGSIOS
-<UC671> \xBF\xDB |0 # HANGUL SYLLABLE IEUNG WAE IEUNG
-<UC672> \x9E\xD8 |0 # HANGUL SYLLABLE IEUNG WAE CIEUC
-<UC673> \x9E\xD9 |0 # HANGUL SYLLABLE IEUNG WAE CHIEUCH
-<UC674> \x9E\xDA |0 # HANGUL SYLLABLE IEUNG WAE KHIEUKH
-<UC675> \x9E\xDB |0 # HANGUL SYLLABLE IEUNG WAE THIEUTH
-<UC676> \x9E\xDC |0 # HANGUL SYLLABLE IEUNG WAE PHIEUPH
-<UC677> \x9E\xDD |0 # HANGUL SYLLABLE IEUNG WAE HIEUH
-<UC678> \xBF\xDC |0 # HANGUL SYLLABLE IEUNG OE
-<UC679> \xBF\xDD |0 # HANGUL SYLLABLE IEUNG OE KIYEOK
-<UC67A> \x9E\xDE |0 # HANGUL SYLLABLE IEUNG OE SSANGKIYEOK
-<UC67B> \x9E\xDF |0 # HANGUL SYLLABLE IEUNG OE KIYEOKSIOS
-<UC67C> \xBF\xDE |0 # HANGUL SYLLABLE IEUNG OE NIEUN
-<UC67D> \x9E\xE0 |0 # HANGUL SYLLABLE IEUNG OE NIEUNCIEUC
-<UC67E> \x9E\xE1 |0 # HANGUL SYLLABLE IEUNG OE NIEUNHIEUH
-<UC67F> \x9E\xE2 |0 # HANGUL SYLLABLE IEUNG OE TIKEUT
-<UC680> \xBF\xDF |0 # HANGUL SYLLABLE IEUNG OE RIEUL
-<UC681> \x9E\xE3 |0 # HANGUL SYLLABLE IEUNG OE RIEULKIYEOK
-<UC682> \x9E\xE4 |0 # HANGUL SYLLABLE IEUNG OE RIEULMIEUM
-<UC683> \x9E\xE5 |0 # HANGUL SYLLABLE IEUNG OE RIEULPIEUP
-<UC684> \x9E\xE6 |0 # HANGUL SYLLABLE IEUNG OE RIEULSIOS
-<UC685> \x9E\xE7 |0 # HANGUL SYLLABLE IEUNG OE RIEULTHIEUTH
-<UC686> \x9E\xE8 |0 # HANGUL SYLLABLE IEUNG OE RIEULPHIEUPH
-<UC687> \x9E\xE9 |0 # HANGUL SYLLABLE IEUNG OE RIEULHIEUH
-<UC688> \xBF\xE0 |0 # HANGUL SYLLABLE IEUNG OE MIEUM
-<UC689> \xBF\xE1 |0 # HANGUL SYLLABLE IEUNG OE PIEUP
-<UC68A> \x9E\xEA |0 # HANGUL SYLLABLE IEUNG OE PIEUPSIOS
-<UC68B> \xBF\xE2 |0 # HANGUL SYLLABLE IEUNG OE SIOS
-<UC68C> \x9E\xEB |0 # HANGUL SYLLABLE IEUNG OE SSANGSIOS
-<UC68D> \xBF\xE3 |0 # HANGUL SYLLABLE IEUNG OE IEUNG
-<UC68E> \x9E\xEC |0 # HANGUL SYLLABLE IEUNG OE CIEUC
-<UC68F> \x9E\xED |0 # HANGUL SYLLABLE IEUNG OE CHIEUCH
-<UC690> \x9E\xEE |0 # HANGUL SYLLABLE IEUNG OE KHIEUKH
-<UC691> \x9E\xEF |0 # HANGUL SYLLABLE IEUNG OE THIEUTH
-<UC692> \x9E\xF0 |0 # HANGUL SYLLABLE IEUNG OE PHIEUPH
-<UC693> \x9E\xF1 |0 # HANGUL SYLLABLE IEUNG OE HIEUH
-<UC694> \xBF\xE4 |0 # HANGUL SYLLABLE IEUNG YO
-<UC695> \xBF\xE5 |0 # HANGUL SYLLABLE IEUNG YO KIYEOK
-<UC696> \x9E\xF2 |0 # HANGUL SYLLABLE IEUNG YO SSANGKIYEOK
-<UC697> \x9E\xF3 |0 # HANGUL SYLLABLE IEUNG YO KIYEOKSIOS
-<UC698> \xBF\xE6 |0 # HANGUL SYLLABLE IEUNG YO NIEUN
-<UC699> \x9E\xF4 |0 # HANGUL SYLLABLE IEUNG YO NIEUNCIEUC
-<UC69A> \x9E\xF5 |0 # HANGUL SYLLABLE IEUNG YO NIEUNHIEUH
-<UC69B> \x9E\xF6 |0 # HANGUL SYLLABLE IEUNG YO TIKEUT
-<UC69C> \xBF\xE7 |0 # HANGUL SYLLABLE IEUNG YO RIEUL
-<UC69D> \x9E\xF7 |0 # HANGUL SYLLABLE IEUNG YO RIEULKIYEOK
-<UC69E> \x9E\xF8 |0 # HANGUL SYLLABLE IEUNG YO RIEULMIEUM
-<UC69F> \x9E\xF9 |0 # HANGUL SYLLABLE IEUNG YO RIEULPIEUP
-<UC6A0> \x9E\xFA |0 # HANGUL SYLLABLE IEUNG YO RIEULSIOS
-<UC6A1> \x9E\xFB |0 # HANGUL SYLLABLE IEUNG YO RIEULTHIEUTH
-<UC6A2> \x9E\xFC |0 # HANGUL SYLLABLE IEUNG YO RIEULPHIEUPH
-<UC6A3> \x9E\xFD |0 # HANGUL SYLLABLE IEUNG YO RIEULHIEUH
-<UC6A4> \xBF\xE8 |0 # HANGUL SYLLABLE IEUNG YO MIEUM
-<UC6A5> \xBF\xE9 |0 # HANGUL SYLLABLE IEUNG YO PIEUP
-<UC6A6> \x9E\xFE |0 # HANGUL SYLLABLE IEUNG YO PIEUPSIOS
-<UC6A7> \xBF\xEA |0 # HANGUL SYLLABLE IEUNG YO SIOS
-<UC6A8> \x9F\x41 |0 # HANGUL SYLLABLE IEUNG YO SSANGSIOS
-<UC6A9> \xBF\xEB |0 # HANGUL SYLLABLE IEUNG YO IEUNG
-<UC6AA> \x9F\x42 |0 # HANGUL SYLLABLE IEUNG YO CIEUC
-<UC6AB> \x9F\x43 |0 # HANGUL SYLLABLE IEUNG YO CHIEUCH
-<UC6AC> \x9F\x44 |0 # HANGUL SYLLABLE IEUNG YO KHIEUKH
-<UC6AD> \x9F\x45 |0 # HANGUL SYLLABLE IEUNG YO THIEUTH
-<UC6AE> \x9F\x46 |0 # HANGUL SYLLABLE IEUNG YO PHIEUPH
-<UC6AF> \x9F\x47 |0 # HANGUL SYLLABLE IEUNG YO HIEUH
-<UC6B0> \xBF\xEC |0 # HANGUL SYLLABLE IEUNG U
-<UC6B1> \xBF\xED |0 # HANGUL SYLLABLE IEUNG U KIYEOK
-<UC6B2> \x9F\x48 |0 # HANGUL SYLLABLE IEUNG U SSANGKIYEOK
-<UC6B3> \x9F\x49 |0 # HANGUL SYLLABLE IEUNG U KIYEOKSIOS
-<UC6B4> \xBF\xEE |0 # HANGUL SYLLABLE IEUNG U NIEUN
-<UC6B5> \x9F\x4A |0 # HANGUL SYLLABLE IEUNG U NIEUNCIEUC
-<UC6B6> \x9F\x4B |0 # HANGUL SYLLABLE IEUNG U NIEUNHIEUH
-<UC6B7> \x9F\x4C |0 # HANGUL SYLLABLE IEUNG U TIKEUT
-<UC6B8> \xBF\xEF |0 # HANGUL SYLLABLE IEUNG U RIEUL
-<UC6B9> \xBF\xF0 |0 # HANGUL SYLLABLE IEUNG U RIEULKIYEOK
-<UC6BA> \xBF\xF1 |0 # HANGUL SYLLABLE IEUNG U RIEULMIEUM
-<UC6BB> \x9F\x4D |0 # HANGUL SYLLABLE IEUNG U RIEULPIEUP
-<UC6BC> \x9F\x4E |0 # HANGUL SYLLABLE IEUNG U RIEULSIOS
-<UC6BD> \x9F\x4F |0 # HANGUL SYLLABLE IEUNG U RIEULTHIEUTH
-<UC6BE> \x9F\x50 |0 # HANGUL SYLLABLE IEUNG U RIEULPHIEUPH
-<UC6BF> \x9F\x51 |0 # HANGUL SYLLABLE IEUNG U RIEULHIEUH
-<UC6C0> \xBF\xF2 |0 # HANGUL SYLLABLE IEUNG U MIEUM
-<UC6C1> \xBF\xF3 |0 # HANGUL SYLLABLE IEUNG U PIEUP
-<UC6C2> \x9F\x52 |0 # HANGUL SYLLABLE IEUNG U PIEUPSIOS
-<UC6C3> \xBF\xF4 |0 # HANGUL SYLLABLE IEUNG U SIOS
-<UC6C4> \x9F\x53 |0 # HANGUL SYLLABLE IEUNG U SSANGSIOS
-<UC6C5> \xBF\xF5 |0 # HANGUL SYLLABLE IEUNG U IEUNG
-<UC6C6> \x9F\x54 |0 # HANGUL SYLLABLE IEUNG U CIEUC
-<UC6C7> \x9F\x55 |0 # HANGUL SYLLABLE IEUNG U CHIEUCH
-<UC6C8> \x9F\x56 |0 # HANGUL SYLLABLE IEUNG U KHIEUKH
-<UC6C9> \x9F\x57 |0 # HANGUL SYLLABLE IEUNG U THIEUTH
-<UC6CA> \x9F\x58 |0 # HANGUL SYLLABLE IEUNG U PHIEUPH
-<UC6CB> \x9F\x59 |0 # HANGUL SYLLABLE IEUNG U HIEUH
-<UC6CC> \xBF\xF6 |0 # HANGUL SYLLABLE IEUNG WEO
-<UC6CD> \xBF\xF7 |0 # HANGUL SYLLABLE IEUNG WEO KIYEOK
-<UC6CE> \x9F\x5A |0 # HANGUL SYLLABLE IEUNG WEO SSANGKIYEOK
-<UC6CF> \x9F\x61 |0 # HANGUL SYLLABLE IEUNG WEO KIYEOKSIOS
-<UC6D0> \xBF\xF8 |0 # HANGUL SYLLABLE IEUNG WEO NIEUN
-<UC6D1> \x9F\x62 |0 # HANGUL SYLLABLE IEUNG WEO NIEUNCIEUC
-<UC6D2> \x9F\x63 |0 # HANGUL SYLLABLE IEUNG WEO NIEUNHIEUH
-<UC6D3> \x9F\x64 |0 # HANGUL SYLLABLE IEUNG WEO TIKEUT
-<UC6D4> \xBF\xF9 |0 # HANGUL SYLLABLE IEUNG WEO RIEUL
-<UC6D5> \x9F\x65 |0 # HANGUL SYLLABLE IEUNG WEO RIEULKIYEOK
-<UC6D6> \x9F\x66 |0 # HANGUL SYLLABLE IEUNG WEO RIEULMIEUM
-<UC6D7> \x9F\x67 |0 # HANGUL SYLLABLE IEUNG WEO RIEULPIEUP
-<UC6D8> \x9F\x68 |0 # HANGUL SYLLABLE IEUNG WEO RIEULSIOS
-<UC6D9> \x9F\x69 |0 # HANGUL SYLLABLE IEUNG WEO RIEULTHIEUTH
-<UC6DA> \x9F\x6A |0 # HANGUL SYLLABLE IEUNG WEO RIEULPHIEUPH
-<UC6DB> \x9F\x6B |0 # HANGUL SYLLABLE IEUNG WEO RIEULHIEUH
-<UC6DC> \xBF\xFA |0 # HANGUL SYLLABLE IEUNG WEO MIEUM
-<UC6DD> \xBF\xFB |0 # HANGUL SYLLABLE IEUNG WEO PIEUP
-<UC6DE> \x9F\x6C |0 # HANGUL SYLLABLE IEUNG WEO PIEUPSIOS
-<UC6DF> \x9F\x6D |0 # HANGUL SYLLABLE IEUNG WEO SIOS
-<UC6E0> \xBF\xFC |0 # HANGUL SYLLABLE IEUNG WEO SSANGSIOS
-<UC6E1> \xBF\xFD |0 # HANGUL SYLLABLE IEUNG WEO IEUNG
-<UC6E2> \x9F\x6E |0 # HANGUL SYLLABLE IEUNG WEO CIEUC
-<UC6E3> \x9F\x6F |0 # HANGUL SYLLABLE IEUNG WEO CHIEUCH
-<UC6E4> \x9F\x70 |0 # HANGUL SYLLABLE IEUNG WEO KHIEUKH
-<UC6E5> \x9F\x71 |0 # HANGUL SYLLABLE IEUNG WEO THIEUTH
-<UC6E6> \x9F\x72 |0 # HANGUL SYLLABLE IEUNG WEO PHIEUPH
-<UC6E7> \x9F\x73 |0 # HANGUL SYLLABLE IEUNG WEO HIEUH
-<UC6E8> \xBF\xFE |0 # HANGUL SYLLABLE IEUNG WE
-<UC6E9> \xC0\xA1 |0 # HANGUL SYLLABLE IEUNG WE KIYEOK
-<UC6EA> \x9F\x74 |0 # HANGUL SYLLABLE IEUNG WE SSANGKIYEOK
-<UC6EB> \x9F\x75 |0 # HANGUL SYLLABLE IEUNG WE KIYEOKSIOS
-<UC6EC> \xC0\xA2 |0 # HANGUL SYLLABLE IEUNG WE NIEUN
-<UC6ED> \x9F\x76 |0 # HANGUL SYLLABLE IEUNG WE NIEUNCIEUC
-<UC6EE> \x9F\x77 |0 # HANGUL SYLLABLE IEUNG WE NIEUNHIEUH
-<UC6EF> \x9F\x78 |0 # HANGUL SYLLABLE IEUNG WE TIKEUT
-<UC6F0> \xC0\xA3 |0 # HANGUL SYLLABLE IEUNG WE RIEUL
-<UC6F1> \x9F\x79 |0 # HANGUL SYLLABLE IEUNG WE RIEULKIYEOK
-<UC6F2> \x9F\x7A |0 # HANGUL SYLLABLE IEUNG WE RIEULMIEUM
-<UC6F3> \x9F\x81 |0 # HANGUL SYLLABLE IEUNG WE RIEULPIEUP
-<UC6F4> \x9F\x82 |0 # HANGUL SYLLABLE IEUNG WE RIEULSIOS
-<UC6F5> \x9F\x83 |0 # HANGUL SYLLABLE IEUNG WE RIEULTHIEUTH
-<UC6F6> \x9F\x84 |0 # HANGUL SYLLABLE IEUNG WE RIEULPHIEUPH
-<UC6F7> \x9F\x85 |0 # HANGUL SYLLABLE IEUNG WE RIEULHIEUH
-<UC6F8> \xC0\xA4 |0 # HANGUL SYLLABLE IEUNG WE MIEUM
-<UC6F9> \xC0\xA5 |0 # HANGUL SYLLABLE IEUNG WE PIEUP
-<UC6FA> \x9F\x86 |0 # HANGUL SYLLABLE IEUNG WE PIEUPSIOS
-<UC6FB> \x9F\x87 |0 # HANGUL SYLLABLE IEUNG WE SIOS
-<UC6FC> \x9F\x88 |0 # HANGUL SYLLABLE IEUNG WE SSANGSIOS
-<UC6FD> \xC0\xA6 |0 # HANGUL SYLLABLE IEUNG WE IEUNG
-<UC6FE> \x9F\x89 |0 # HANGUL SYLLABLE IEUNG WE CIEUC
-<UC6FF> \x9F\x8A |0 # HANGUL SYLLABLE IEUNG WE CHIEUCH
-<UC700> \x9F\x8B |0 # HANGUL SYLLABLE IEUNG WE KHIEUKH
-<UC701> \x9F\x8C |0 # HANGUL SYLLABLE IEUNG WE THIEUTH
-<UC702> \x9F\x8D |0 # HANGUL SYLLABLE IEUNG WE PHIEUPH
-<UC703> \x9F\x8E |0 # HANGUL SYLLABLE IEUNG WE HIEUH
-<UC704> \xC0\xA7 |0 # HANGUL SYLLABLE IEUNG WI
-<UC705> \xC0\xA8 |0 # HANGUL SYLLABLE IEUNG WI KIYEOK
-<UC706> \x9F\x8F |0 # HANGUL SYLLABLE IEUNG WI SSANGKIYEOK
-<UC707> \x9F\x90 |0 # HANGUL SYLLABLE IEUNG WI KIYEOKSIOS
-<UC708> \xC0\xA9 |0 # HANGUL SYLLABLE IEUNG WI NIEUN
-<UC709> \x9F\x91 |0 # HANGUL SYLLABLE IEUNG WI NIEUNCIEUC
-<UC70A> \x9F\x92 |0 # HANGUL SYLLABLE IEUNG WI NIEUNHIEUH
-<UC70B> \x9F\x93 |0 # HANGUL SYLLABLE IEUNG WI TIKEUT
-<UC70C> \xC0\xAA |0 # HANGUL SYLLABLE IEUNG WI RIEUL
-<UC70D> \x9F\x94 |0 # HANGUL SYLLABLE IEUNG WI RIEULKIYEOK
-<UC70E> \x9F\x95 |0 # HANGUL SYLLABLE IEUNG WI RIEULMIEUM
-<UC70F> \x9F\x96 |0 # HANGUL SYLLABLE IEUNG WI RIEULPIEUP
-<UC710> \x9F\x97 |0 # HANGUL SYLLABLE IEUNG WI RIEULSIOS
-<UC711> \x9F\x98 |0 # HANGUL SYLLABLE IEUNG WI RIEULTHIEUTH
-<UC712> \x9F\x99 |0 # HANGUL SYLLABLE IEUNG WI RIEULPHIEUPH
-<UC713> \x9F\x9A |0 # HANGUL SYLLABLE IEUNG WI RIEULHIEUH
-<UC714> \xC0\xAB |0 # HANGUL SYLLABLE IEUNG WI MIEUM
-<UC715> \xC0\xAC |0 # HANGUL SYLLABLE IEUNG WI PIEUP
-<UC716> \x9F\x9B |0 # HANGUL SYLLABLE IEUNG WI PIEUPSIOS
-<UC717> \xC0\xAD |0 # HANGUL SYLLABLE IEUNG WI SIOS
-<UC718> \x9F\x9C |0 # HANGUL SYLLABLE IEUNG WI SSANGSIOS
-<UC719> \xC0\xAE |0 # HANGUL SYLLABLE IEUNG WI IEUNG
-<UC71A> \x9F\x9D |0 # HANGUL SYLLABLE IEUNG WI CIEUC
-<UC71B> \x9F\x9E |0 # HANGUL SYLLABLE IEUNG WI CHIEUCH
-<UC71C> \x9F\x9F |0 # HANGUL SYLLABLE IEUNG WI KHIEUKH
-<UC71D> \x9F\xA0 |0 # HANGUL SYLLABLE IEUNG WI THIEUTH
-<UC71E> \x9F\xA1 |0 # HANGUL SYLLABLE IEUNG WI PHIEUPH
-<UC71F> \x9F\xA2 |0 # HANGUL SYLLABLE IEUNG WI HIEUH
-<UC720> \xC0\xAF |0 # HANGUL SYLLABLE IEUNG YU
-<UC721> \xC0\xB0 |0 # HANGUL SYLLABLE IEUNG YU KIYEOK
-<UC722> \x9F\xA3 |0 # HANGUL SYLLABLE IEUNG YU SSANGKIYEOK
-<UC723> \x9F\xA4 |0 # HANGUL SYLLABLE IEUNG YU KIYEOKSIOS
-<UC724> \xC0\xB1 |0 # HANGUL SYLLABLE IEUNG YU NIEUN
-<UC725> \x9F\xA5 |0 # HANGUL SYLLABLE IEUNG YU NIEUNCIEUC
-<UC726> \x9F\xA6 |0 # HANGUL SYLLABLE IEUNG YU NIEUNHIEUH
-<UC727> \x9F\xA7 |0 # HANGUL SYLLABLE IEUNG YU TIKEUT
-<UC728> \xC0\xB2 |0 # HANGUL SYLLABLE IEUNG YU RIEUL
-<UC729> \x9F\xA8 |0 # HANGUL SYLLABLE IEUNG YU RIEULKIYEOK
-<UC72A> \x9F\xA9 |0 # HANGUL SYLLABLE IEUNG YU RIEULMIEUM
-<UC72B> \x9F\xAA |0 # HANGUL SYLLABLE IEUNG YU RIEULPIEUP
-<UC72C> \x9F\xAB |0 # HANGUL SYLLABLE IEUNG YU RIEULSIOS
-<UC72D> \x9F\xAC |0 # HANGUL SYLLABLE IEUNG YU RIEULTHIEUTH
-<UC72E> \x9F\xAD |0 # HANGUL SYLLABLE IEUNG YU RIEULPHIEUPH
-<UC72F> \x9F\xAE |0 # HANGUL SYLLABLE IEUNG YU RIEULHIEUH
-<UC730> \xC0\xB3 |0 # HANGUL SYLLABLE IEUNG YU MIEUM
-<UC731> \xC0\xB4 |0 # HANGUL SYLLABLE IEUNG YU PIEUP
-<UC732> \x9F\xAF |0 # HANGUL SYLLABLE IEUNG YU PIEUPSIOS
-<UC733> \xC0\xB5 |0 # HANGUL SYLLABLE IEUNG YU SIOS
-<UC734> \x9F\xB0 |0 # HANGUL SYLLABLE IEUNG YU SSANGSIOS
-<UC735> \xC0\xB6 |0 # HANGUL SYLLABLE IEUNG YU IEUNG
-<UC736> \x9F\xB1 |0 # HANGUL SYLLABLE IEUNG YU CIEUC
-<UC737> \xC0\xB7 |0 # HANGUL SYLLABLE IEUNG YU CHIEUCH
-<UC738> \x9F\xB2 |0 # HANGUL SYLLABLE IEUNG YU KHIEUKH
-<UC739> \x9F\xB3 |0 # HANGUL SYLLABLE IEUNG YU THIEUTH
-<UC73A> \x9F\xB4 |0 # HANGUL SYLLABLE IEUNG YU PHIEUPH
-<UC73B> \x9F\xB5 |0 # HANGUL SYLLABLE IEUNG YU HIEUH
-<UC73C> \xC0\xB8 |0 # HANGUL SYLLABLE IEUNG EU
-<UC73D> \xC0\xB9 |0 # HANGUL SYLLABLE IEUNG EU KIYEOK
-<UC73E> \x9F\xB6 |0 # HANGUL SYLLABLE IEUNG EU SSANGKIYEOK
-<UC73F> \x9F\xB7 |0 # HANGUL SYLLABLE IEUNG EU KIYEOKSIOS
-<UC740> \xC0\xBA |0 # HANGUL SYLLABLE IEUNG EU NIEUN
-<UC741> \x9F\xB8 |0 # HANGUL SYLLABLE IEUNG EU NIEUNCIEUC
-<UC742> \x9F\xB9 |0 # HANGUL SYLLABLE IEUNG EU NIEUNHIEUH
-<UC743> \x9F\xBA |0 # HANGUL SYLLABLE IEUNG EU TIKEUT
-<UC744> \xC0\xBB |0 # HANGUL SYLLABLE IEUNG EU RIEUL
-<UC745> \x9F\xBB |0 # HANGUL SYLLABLE IEUNG EU RIEULKIYEOK
-<UC746> \x9F\xBC |0 # HANGUL SYLLABLE IEUNG EU RIEULMIEUM
-<UC747> \x9F\xBD |0 # HANGUL SYLLABLE IEUNG EU RIEULPIEUP
-<UC748> \x9F\xBE |0 # HANGUL SYLLABLE IEUNG EU RIEULSIOS
-<UC749> \x9F\xBF |0 # HANGUL SYLLABLE IEUNG EU RIEULTHIEUTH
-<UC74A> \xC0\xBC |0 # HANGUL SYLLABLE IEUNG EU RIEULPHIEUPH
-<UC74B> \x9F\xC0 |0 # HANGUL SYLLABLE IEUNG EU RIEULHIEUH
-<UC74C> \xC0\xBD |0 # HANGUL SYLLABLE IEUNG EU MIEUM
-<UC74D> \xC0\xBE |0 # HANGUL SYLLABLE IEUNG EU PIEUP
-<UC74E> \x9F\xC1 |0 # HANGUL SYLLABLE IEUNG EU PIEUPSIOS
-<UC74F> \xC0\xBF |0 # HANGUL SYLLABLE IEUNG EU SIOS
-<UC750> \x9F\xC2 |0 # HANGUL SYLLABLE IEUNG EU SSANGSIOS
-<UC751> \xC0\xC0 |0 # HANGUL SYLLABLE IEUNG EU IEUNG
-<UC752> \xC0\xC1 |0 # HANGUL SYLLABLE IEUNG EU CIEUC
-<UC753> \xC0\xC2 |0 # HANGUL SYLLABLE IEUNG EU CHIEUCH
-<UC754> \xC0\xC3 |0 # HANGUL SYLLABLE IEUNG EU KHIEUKH
-<UC755> \xC0\xC4 |0 # HANGUL SYLLABLE IEUNG EU THIEUTH
-<UC756> \xC0\xC5 |0 # HANGUL SYLLABLE IEUNG EU PHIEUPH
-<UC757> \xC0\xC6 |0 # HANGUL SYLLABLE IEUNG EU HIEUH
-<UC758> \xC0\xC7 |0 # HANGUL SYLLABLE IEUNG YI
-<UC759> \x9F\xC3 |0 # HANGUL SYLLABLE IEUNG YI KIYEOK
-<UC75A> \x9F\xC4 |0 # HANGUL SYLLABLE IEUNG YI SSANGKIYEOK
-<UC75B> \x9F\xC5 |0 # HANGUL SYLLABLE IEUNG YI KIYEOKSIOS
-<UC75C> \xC0\xC8 |0 # HANGUL SYLLABLE IEUNG YI NIEUN
-<UC75D> \x9F\xC6 |0 # HANGUL SYLLABLE IEUNG YI NIEUNCIEUC
-<UC75E> \x9F\xC7 |0 # HANGUL SYLLABLE IEUNG YI NIEUNHIEUH
-<UC75F> \x9F\xC8 |0 # HANGUL SYLLABLE IEUNG YI TIKEUT
-<UC760> \xC0\xC9 |0 # HANGUL SYLLABLE IEUNG YI RIEUL
-<UC761> \x9F\xC9 |0 # HANGUL SYLLABLE IEUNG YI RIEULKIYEOK
-<UC762> \x9F\xCA |0 # HANGUL SYLLABLE IEUNG YI RIEULMIEUM
-<UC763> \x9F\xCB |0 # HANGUL SYLLABLE IEUNG YI RIEULPIEUP
-<UC764> \x9F\xCC |0 # HANGUL SYLLABLE IEUNG YI RIEULSIOS
-<UC765> \x9F\xCD |0 # HANGUL SYLLABLE IEUNG YI RIEULTHIEUTH
-<UC766> \x9F\xCE |0 # HANGUL SYLLABLE IEUNG YI RIEULPHIEUPH
-<UC767> \x9F\xCF |0 # HANGUL SYLLABLE IEUNG YI RIEULHIEUH
-<UC768> \xC0\xCA |0 # HANGUL SYLLABLE IEUNG YI MIEUM
-<UC769> \x9F\xD0 |0 # HANGUL SYLLABLE IEUNG YI PIEUP
-<UC76A> \x9F\xD1 |0 # HANGUL SYLLABLE IEUNG YI PIEUPSIOS
-<UC76B> \xC0\xCB |0 # HANGUL SYLLABLE IEUNG YI SIOS
-<UC76C> \x9F\xD2 |0 # HANGUL SYLLABLE IEUNG YI SSANGSIOS
-<UC76D> \x9F\xD3 |0 # HANGUL SYLLABLE IEUNG YI IEUNG
-<UC76E> \x9F\xD4 |0 # HANGUL SYLLABLE IEUNG YI CIEUC
-<UC76F> \x9F\xD5 |0 # HANGUL SYLLABLE IEUNG YI CHIEUCH
-<UC770> \x9F\xD6 |0 # HANGUL SYLLABLE IEUNG YI KHIEUKH
-<UC771> \x9F\xD7 |0 # HANGUL SYLLABLE IEUNG YI THIEUTH
-<UC772> \x9F\xD8 |0 # HANGUL SYLLABLE IEUNG YI PHIEUPH
-<UC773> \x9F\xD9 |0 # HANGUL SYLLABLE IEUNG YI HIEUH
-<UC774> \xC0\xCC |0 # HANGUL SYLLABLE IEUNG I
-<UC775> \xC0\xCD |0 # HANGUL SYLLABLE IEUNG I KIYEOK
-<UC776> \x9F\xDA |0 # HANGUL SYLLABLE IEUNG I SSANGKIYEOK
-<UC777> \x9F\xDB |0 # HANGUL SYLLABLE IEUNG I KIYEOKSIOS
-<UC778> \xC0\xCE |0 # HANGUL SYLLABLE IEUNG I NIEUN
-<UC779> \x9F\xDC |0 # HANGUL SYLLABLE IEUNG I NIEUNCIEUC
-<UC77A> \x9F\xDD |0 # HANGUL SYLLABLE IEUNG I NIEUNHIEUH
-<UC77B> \x9F\xDE |0 # HANGUL SYLLABLE IEUNG I TIKEUT
-<UC77C> \xC0\xCF |0 # HANGUL SYLLABLE IEUNG I RIEUL
-<UC77D> \xC0\xD0 |0 # HANGUL SYLLABLE IEUNG I RIEULKIYEOK
-<UC77E> \xC0\xD1 |0 # HANGUL SYLLABLE IEUNG I RIEULMIEUM
-<UC77F> \x9F\xDF |0 # HANGUL SYLLABLE IEUNG I RIEULPIEUP
-<UC780> \x9F\xE0 |0 # HANGUL SYLLABLE IEUNG I RIEULSIOS
-<UC781> \x9F\xE1 |0 # HANGUL SYLLABLE IEUNG I RIEULTHIEUTH
-<UC782> \x9F\xE2 |0 # HANGUL SYLLABLE IEUNG I RIEULPHIEUPH
-<UC783> \xC0\xD2 |0 # HANGUL SYLLABLE IEUNG I RIEULHIEUH
-<UC784> \xC0\xD3 |0 # HANGUL SYLLABLE IEUNG I MIEUM
-<UC785> \xC0\xD4 |0 # HANGUL SYLLABLE IEUNG I PIEUP
-<UC786> \x9F\xE3 |0 # HANGUL SYLLABLE IEUNG I PIEUPSIOS
-<UC787> \xC0\xD5 |0 # HANGUL SYLLABLE IEUNG I SIOS
-<UC788> \xC0\xD6 |0 # HANGUL SYLLABLE IEUNG I SSANGSIOS
-<UC789> \xC0\xD7 |0 # HANGUL SYLLABLE IEUNG I IEUNG
-<UC78A> \xC0\xD8 |0 # HANGUL SYLLABLE IEUNG I CIEUC
-<UC78B> \x9F\xE4 |0 # HANGUL SYLLABLE IEUNG I CHIEUCH
-<UC78C> \x9F\xE5 |0 # HANGUL SYLLABLE IEUNG I KHIEUKH
-<UC78D> \x9F\xE6 |0 # HANGUL SYLLABLE IEUNG I THIEUTH
-<UC78E> \xC0\xD9 |0 # HANGUL SYLLABLE IEUNG I PHIEUPH
-<UC78F> \x9F\xE7 |0 # HANGUL SYLLABLE IEUNG I HIEUH
-<UC790> \xC0\xDA |0 # HANGUL SYLLABLE CIEUC A
-<UC791> \xC0\xDB |0 # HANGUL SYLLABLE CIEUC A KIYEOK
-<UC792> \x9F\xE8 |0 # HANGUL SYLLABLE CIEUC A SSANGKIYEOK
-<UC793> \x9F\xE9 |0 # HANGUL SYLLABLE CIEUC A KIYEOKSIOS
-<UC794> \xC0\xDC |0 # HANGUL SYLLABLE CIEUC A NIEUN
-<UC795> \x9F\xEA |0 # HANGUL SYLLABLE CIEUC A NIEUNCIEUC
-<UC796> \xC0\xDD |0 # HANGUL SYLLABLE CIEUC A NIEUNHIEUH
-<UC797> \xC0\xDE |0 # HANGUL SYLLABLE CIEUC A TIKEUT
-<UC798> \xC0\xDF |0 # HANGUL SYLLABLE CIEUC A RIEUL
-<UC799> \x9F\xEB |0 # HANGUL SYLLABLE CIEUC A RIEULKIYEOK
-<UC79A> \xC0\xE0 |0 # HANGUL SYLLABLE CIEUC A RIEULMIEUM
-<UC79B> \x9F\xEC |0 # HANGUL SYLLABLE CIEUC A RIEULPIEUP
-<UC79C> \x9F\xED |0 # HANGUL SYLLABLE CIEUC A RIEULSIOS
-<UC79D> \x9F\xEE |0 # HANGUL SYLLABLE CIEUC A RIEULTHIEUTH
-<UC79E> \x9F\xEF |0 # HANGUL SYLLABLE CIEUC A RIEULPHIEUPH
-<UC79F> \x9F\xF0 |0 # HANGUL SYLLABLE CIEUC A RIEULHIEUH
-<UC7A0> \xC0\xE1 |0 # HANGUL SYLLABLE CIEUC A MIEUM
-<UC7A1> \xC0\xE2 |0 # HANGUL SYLLABLE CIEUC A PIEUP
-<UC7A2> \x9F\xF1 |0 # HANGUL SYLLABLE CIEUC A PIEUPSIOS
-<UC7A3> \xC0\xE3 |0 # HANGUL SYLLABLE CIEUC A SIOS
-<UC7A4> \xC0\xE4 |0 # HANGUL SYLLABLE CIEUC A SSANGSIOS
-<UC7A5> \xC0\xE5 |0 # HANGUL SYLLABLE CIEUC A IEUNG
-<UC7A6> \xC0\xE6 |0 # HANGUL SYLLABLE CIEUC A CIEUC
-<UC7A7> \x9F\xF2 |0 # HANGUL SYLLABLE CIEUC A CHIEUCH
-<UC7A8> \x9F\xF3 |0 # HANGUL SYLLABLE CIEUC A KHIEUKH
-<UC7A9> \x9F\xF4 |0 # HANGUL SYLLABLE CIEUC A THIEUTH
-<UC7AA> \x9F\xF5 |0 # HANGUL SYLLABLE CIEUC A PHIEUPH
-<UC7AB> \x9F\xF6 |0 # HANGUL SYLLABLE CIEUC A HIEUH
-<UC7AC> \xC0\xE7 |0 # HANGUL SYLLABLE CIEUC AE
-<UC7AD> \xC0\xE8 |0 # HANGUL SYLLABLE CIEUC AE KIYEOK
-<UC7AE> \x9F\xF7 |0 # HANGUL SYLLABLE CIEUC AE SSANGKIYEOK
-<UC7AF> \x9F\xF8 |0 # HANGUL SYLLABLE CIEUC AE KIYEOKSIOS
-<UC7B0> \xC0\xE9 |0 # HANGUL SYLLABLE CIEUC AE NIEUN
-<UC7B1> \x9F\xF9 |0 # HANGUL SYLLABLE CIEUC AE NIEUNCIEUC
-<UC7B2> \x9F\xFA |0 # HANGUL SYLLABLE CIEUC AE NIEUNHIEUH
-<UC7B3> \x9F\xFB |0 # HANGUL SYLLABLE CIEUC AE TIKEUT
-<UC7B4> \xC0\xEA |0 # HANGUL SYLLABLE CIEUC AE RIEUL
-<UC7B5> \x9F\xFC |0 # HANGUL SYLLABLE CIEUC AE RIEULKIYEOK
-<UC7B6> \x9F\xFD |0 # HANGUL SYLLABLE CIEUC AE RIEULMIEUM
-<UC7B7> \x9F\xFE |0 # HANGUL SYLLABLE CIEUC AE RIEULPIEUP
-<UC7B8> \xA0\x41 |0 # HANGUL SYLLABLE CIEUC AE RIEULSIOS
-<UC7B9> \xA0\x42 |0 # HANGUL SYLLABLE CIEUC AE RIEULTHIEUTH
-<UC7BA> \xA0\x43 |0 # HANGUL SYLLABLE CIEUC AE RIEULPHIEUPH
-<UC7BB> \xA0\x44 |0 # HANGUL SYLLABLE CIEUC AE RIEULHIEUH
-<UC7BC> \xC0\xEB |0 # HANGUL SYLLABLE CIEUC AE MIEUM
-<UC7BD> \xC0\xEC |0 # HANGUL SYLLABLE CIEUC AE PIEUP
-<UC7BE> \xA0\x45 |0 # HANGUL SYLLABLE CIEUC AE PIEUPSIOS
-<UC7BF> \xC0\xED |0 # HANGUL SYLLABLE CIEUC AE SIOS
-<UC7C0> \xC0\xEE |0 # HANGUL SYLLABLE CIEUC AE SSANGSIOS
-<UC7C1> \xC0\xEF |0 # HANGUL SYLLABLE CIEUC AE IEUNG
-<UC7C2> \xA0\x46 |0 # HANGUL SYLLABLE CIEUC AE CIEUC
-<UC7C3> \xA0\x47 |0 # HANGUL SYLLABLE CIEUC AE CHIEUCH
-<UC7C4> \xA0\x48 |0 # HANGUL SYLLABLE CIEUC AE KHIEUKH
-<UC7C5> \xA0\x49 |0 # HANGUL SYLLABLE CIEUC AE THIEUTH
-<UC7C6> \xA0\x4A |0 # HANGUL SYLLABLE CIEUC AE PHIEUPH
-<UC7C7> \xA0\x4B |0 # HANGUL SYLLABLE CIEUC AE HIEUH
-<UC7C8> \xC0\xF0 |0 # HANGUL SYLLABLE CIEUC YA
-<UC7C9> \xC0\xF1 |0 # HANGUL SYLLABLE CIEUC YA KIYEOK
-<UC7CA> \xA0\x4C |0 # HANGUL SYLLABLE CIEUC YA SSANGKIYEOK
-<UC7CB> \xA0\x4D |0 # HANGUL SYLLABLE CIEUC YA KIYEOKSIOS
-<UC7CC> \xC0\xF2 |0 # HANGUL SYLLABLE CIEUC YA NIEUN
-<UC7CD> \xA0\x4E |0 # HANGUL SYLLABLE CIEUC YA NIEUNCIEUC
-<UC7CE> \xC0\xF3 |0 # HANGUL SYLLABLE CIEUC YA NIEUNHIEUH
-<UC7CF> \xA0\x4F |0 # HANGUL SYLLABLE CIEUC YA TIKEUT
-<UC7D0> \xC0\xF4 |0 # HANGUL SYLLABLE CIEUC YA RIEUL
-<UC7D1> \xA0\x50 |0 # HANGUL SYLLABLE CIEUC YA RIEULKIYEOK
-<UC7D2> \xA0\x51 |0 # HANGUL SYLLABLE CIEUC YA RIEULMIEUM
-<UC7D3> \xA0\x52 |0 # HANGUL SYLLABLE CIEUC YA RIEULPIEUP
-<UC7D4> \xA0\x53 |0 # HANGUL SYLLABLE CIEUC YA RIEULSIOS
-<UC7D5> \xA0\x54 |0 # HANGUL SYLLABLE CIEUC YA RIEULTHIEUTH
-<UC7D6> \xA0\x55 |0 # HANGUL SYLLABLE CIEUC YA RIEULPHIEUPH
-<UC7D7> \xA0\x56 |0 # HANGUL SYLLABLE CIEUC YA RIEULHIEUH
-<UC7D8> \xC0\xF5 |0 # HANGUL SYLLABLE CIEUC YA MIEUM
-<UC7D9> \xA0\x57 |0 # HANGUL SYLLABLE CIEUC YA PIEUP
-<UC7DA> \xA0\x58 |0 # HANGUL SYLLABLE CIEUC YA PIEUPSIOS
-<UC7DB> \xA0\x59 |0 # HANGUL SYLLABLE CIEUC YA SIOS
-<UC7DC> \xA0\x5A |0 # HANGUL SYLLABLE CIEUC YA SSANGSIOS
-<UC7DD> \xC0\xF6 |0 # HANGUL SYLLABLE CIEUC YA IEUNG
-<UC7DE> \xA0\x61 |0 # HANGUL SYLLABLE CIEUC YA CIEUC
-<UC7DF> \xA0\x62 |0 # HANGUL SYLLABLE CIEUC YA CHIEUCH
-<UC7E0> \xA0\x63 |0 # HANGUL SYLLABLE CIEUC YA KHIEUKH
-<UC7E1> \xA0\x64 |0 # HANGUL SYLLABLE CIEUC YA THIEUTH
-<UC7E2> \xA0\x65 |0 # HANGUL SYLLABLE CIEUC YA PHIEUPH
-<UC7E3> \xA0\x66 |0 # HANGUL SYLLABLE CIEUC YA HIEUH
-<UC7E4> \xC0\xF7 |0 # HANGUL SYLLABLE CIEUC YAE
-<UC7E5> \xA0\x67 |0 # HANGUL SYLLABLE CIEUC YAE KIYEOK
-<UC7E6> \xA0\x68 |0 # HANGUL SYLLABLE CIEUC YAE SSANGKIYEOK
-<UC7E7> \xA0\x69 |0 # HANGUL SYLLABLE CIEUC YAE KIYEOKSIOS
-<UC7E8> \xC0\xF8 |0 # HANGUL SYLLABLE CIEUC YAE NIEUN
-<UC7E9> \xA0\x6A |0 # HANGUL SYLLABLE CIEUC YAE NIEUNCIEUC
-<UC7EA> \xA0\x6B |0 # HANGUL SYLLABLE CIEUC YAE NIEUNHIEUH
-<UC7EB> \xA0\x6C |0 # HANGUL SYLLABLE CIEUC YAE TIKEUT
-<UC7EC> \xC0\xF9 |0 # HANGUL SYLLABLE CIEUC YAE RIEUL
-<UC7ED> \xA0\x6D |0 # HANGUL SYLLABLE CIEUC YAE RIEULKIYEOK
-<UC7EE> \xA0\x6E |0 # HANGUL SYLLABLE CIEUC YAE RIEULMIEUM
-<UC7EF> \xA0\x6F |0 # HANGUL SYLLABLE CIEUC YAE RIEULPIEUP
-<UC7F0> \xA0\x70 |0 # HANGUL SYLLABLE CIEUC YAE RIEULSIOS
-<UC7F1> \xA0\x71 |0 # HANGUL SYLLABLE CIEUC YAE RIEULTHIEUTH
-<UC7F2> \xA0\x72 |0 # HANGUL SYLLABLE CIEUC YAE RIEULPHIEUPH
-<UC7F3> \xA0\x73 |0 # HANGUL SYLLABLE CIEUC YAE RIEULHIEUH
-<UC7F4> \xA0\x74 |0 # HANGUL SYLLABLE CIEUC YAE MIEUM
-<UC7F5> \xA0\x75 |0 # HANGUL SYLLABLE CIEUC YAE PIEUP
-<UC7F6> \xA0\x76 |0 # HANGUL SYLLABLE CIEUC YAE PIEUPSIOS
-<UC7F7> \xA0\x77 |0 # HANGUL SYLLABLE CIEUC YAE SIOS
-<UC7F8> \xA0\x78 |0 # HANGUL SYLLABLE CIEUC YAE SSANGSIOS
-<UC7F9> \xA0\x79 |0 # HANGUL SYLLABLE CIEUC YAE IEUNG
-<UC7FA> \xA0\x7A |0 # HANGUL SYLLABLE CIEUC YAE CIEUC
-<UC7FB> \xA0\x81 |0 # HANGUL SYLLABLE CIEUC YAE CHIEUCH
-<UC7FC> \xA0\x82 |0 # HANGUL SYLLABLE CIEUC YAE KHIEUKH
-<UC7FD> \xA0\x83 |0 # HANGUL SYLLABLE CIEUC YAE THIEUTH
-<UC7FE> \xA0\x84 |0 # HANGUL SYLLABLE CIEUC YAE PHIEUPH
-<UC7FF> \xA0\x85 |0 # HANGUL SYLLABLE CIEUC YAE HIEUH
-<UC800> \xC0\xFA |0 # HANGUL SYLLABLE CIEUC EO
-<UC801> \xC0\xFB |0 # HANGUL SYLLABLE CIEUC EO KIYEOK
-<UC802> \xA0\x86 |0 # HANGUL SYLLABLE CIEUC EO SSANGKIYEOK
-<UC803> \xA0\x87 |0 # HANGUL SYLLABLE CIEUC EO KIYEOKSIOS
-<UC804> \xC0\xFC |0 # HANGUL SYLLABLE CIEUC EO NIEUN
-<UC805> \xA0\x88 |0 # HANGUL SYLLABLE CIEUC EO NIEUNCIEUC
-<UC806> \xA0\x89 |0 # HANGUL SYLLABLE CIEUC EO NIEUNHIEUH
-<UC807> \xA0\x8A |0 # HANGUL SYLLABLE CIEUC EO TIKEUT
-<UC808> \xC0\xFD |0 # HANGUL SYLLABLE CIEUC EO RIEUL
-<UC809> \xA0\x8B |0 # HANGUL SYLLABLE CIEUC EO RIEULKIYEOK
-<UC80A> \xC0\xFE |0 # HANGUL SYLLABLE CIEUC EO RIEULMIEUM
-<UC80B> \xA0\x8C |0 # HANGUL SYLLABLE CIEUC EO RIEULPIEUP
-<UC80C> \xA0\x8D |0 # HANGUL SYLLABLE CIEUC EO RIEULSIOS
-<UC80D> \xA0\x8E |0 # HANGUL SYLLABLE CIEUC EO RIEULTHIEUTH
-<UC80E> \xA0\x8F |0 # HANGUL SYLLABLE CIEUC EO RIEULPHIEUPH
-<UC80F> \xA0\x90 |0 # HANGUL SYLLABLE CIEUC EO RIEULHIEUH
-<UC810> \xC1\xA1 |0 # HANGUL SYLLABLE CIEUC EO MIEUM
-<UC811> \xC1\xA2 |0 # HANGUL SYLLABLE CIEUC EO PIEUP
-<UC812> \xA0\x91 |0 # HANGUL SYLLABLE CIEUC EO PIEUPSIOS
-<UC813> \xC1\xA3 |0 # HANGUL SYLLABLE CIEUC EO SIOS
-<UC814> \xA0\x92 |0 # HANGUL SYLLABLE CIEUC EO SSANGSIOS
-<UC815> \xC1\xA4 |0 # HANGUL SYLLABLE CIEUC EO IEUNG
-<UC816> \xC1\xA5 |0 # HANGUL SYLLABLE CIEUC EO CIEUC
-<UC817> \xA0\x93 |0 # HANGUL SYLLABLE CIEUC EO CHIEUCH
-<UC818> \xA0\x94 |0 # HANGUL SYLLABLE CIEUC EO KHIEUKH
-<UC819> \xA0\x95 |0 # HANGUL SYLLABLE CIEUC EO THIEUTH
-<UC81A> \xA0\x96 |0 # HANGUL SYLLABLE CIEUC EO PHIEUPH
-<UC81B> \xA0\x97 |0 # HANGUL SYLLABLE CIEUC EO HIEUH
-<UC81C> \xC1\xA6 |0 # HANGUL SYLLABLE CIEUC E
-<UC81D> \xC1\xA7 |0 # HANGUL SYLLABLE CIEUC E KIYEOK
-<UC81E> \xA0\x98 |0 # HANGUL SYLLABLE CIEUC E SSANGKIYEOK
-<UC81F> \xA0\x99 |0 # HANGUL SYLLABLE CIEUC E KIYEOKSIOS
-<UC820> \xC1\xA8 |0 # HANGUL SYLLABLE CIEUC E NIEUN
-<UC821> \xA0\x9A |0 # HANGUL SYLLABLE CIEUC E NIEUNCIEUC
-<UC822> \xA0\x9B |0 # HANGUL SYLLABLE CIEUC E NIEUNHIEUH
-<UC823> \xA0\x9C |0 # HANGUL SYLLABLE CIEUC E TIKEUT
-<UC824> \xC1\xA9 |0 # HANGUL SYLLABLE CIEUC E RIEUL
-<UC825> \xA0\x9D |0 # HANGUL SYLLABLE CIEUC E RIEULKIYEOK
-<UC826> \xA0\x9E |0 # HANGUL SYLLABLE CIEUC E RIEULMIEUM
-<UC827> \xA0\x9F |0 # HANGUL SYLLABLE CIEUC E RIEULPIEUP
-<UC828> \xA0\xA0 |0 # HANGUL SYLLABLE CIEUC E RIEULSIOS
-<UC829> \xA0\xA1 |0 # HANGUL SYLLABLE CIEUC E RIEULTHIEUTH
-<UC82A> \xA0\xA2 |0 # HANGUL SYLLABLE CIEUC E RIEULPHIEUPH
-<UC82B> \xA0\xA3 |0 # HANGUL SYLLABLE CIEUC E RIEULHIEUH
-<UC82C> \xC1\xAA |0 # HANGUL SYLLABLE CIEUC E MIEUM
-<UC82D> \xC1\xAB |0 # HANGUL SYLLABLE CIEUC E PIEUP
-<UC82E> \xA0\xA4 |0 # HANGUL SYLLABLE CIEUC E PIEUPSIOS
-<UC82F> \xC1\xAC |0 # HANGUL SYLLABLE CIEUC E SIOS
-<UC830> \xA0\xA5 |0 # HANGUL SYLLABLE CIEUC E SSANGSIOS
-<UC831> \xC1\xAD |0 # HANGUL SYLLABLE CIEUC E IEUNG
-<UC832> \xA0\xA6 |0 # HANGUL SYLLABLE CIEUC E CIEUC
-<UC833> \xA0\xA7 |0 # HANGUL SYLLABLE CIEUC E CHIEUCH
-<UC834> \xA0\xA8 |0 # HANGUL SYLLABLE CIEUC E KHIEUKH
-<UC835> \xA0\xA9 |0 # HANGUL SYLLABLE CIEUC E THIEUTH
-<UC836> \xA0\xAA |0 # HANGUL SYLLABLE CIEUC E PHIEUPH
-<UC837> \xA0\xAB |0 # HANGUL SYLLABLE CIEUC E HIEUH
-<UC838> \xC1\xAE |0 # HANGUL SYLLABLE CIEUC YEO
-<UC839> \xA0\xAC |0 # HANGUL SYLLABLE CIEUC YEO KIYEOK
-<UC83A> \xA0\xAD |0 # HANGUL SYLLABLE CIEUC YEO SSANGKIYEOK
-<UC83B> \xA0\xAE |0 # HANGUL SYLLABLE CIEUC YEO KIYEOKSIOS
-<UC83C> \xC1\xAF |0 # HANGUL SYLLABLE CIEUC YEO NIEUN
-<UC83D> \xA0\xAF |0 # HANGUL SYLLABLE CIEUC YEO NIEUNCIEUC
-<UC83E> \xA0\xB0 |0 # HANGUL SYLLABLE CIEUC YEO NIEUNHIEUH
-<UC83F> \xA0\xB1 |0 # HANGUL SYLLABLE CIEUC YEO TIKEUT
-<UC840> \xC1\xB0 |0 # HANGUL SYLLABLE CIEUC YEO RIEUL
-<UC841> \xA0\xB2 |0 # HANGUL SYLLABLE CIEUC YEO RIEULKIYEOK
-<UC842> \xA0\xB3 |0 # HANGUL SYLLABLE CIEUC YEO RIEULMIEUM
-<UC843> \xA0\xB4 |0 # HANGUL SYLLABLE CIEUC YEO RIEULPIEUP
-<UC844> \xA0\xB5 |0 # HANGUL SYLLABLE CIEUC YEO RIEULSIOS
-<UC845> \xA0\xB6 |0 # HANGUL SYLLABLE CIEUC YEO RIEULTHIEUTH
-<UC846> \xA0\xB7 |0 # HANGUL SYLLABLE CIEUC YEO RIEULPHIEUPH
-<UC847> \xA0\xB8 |0 # HANGUL SYLLABLE CIEUC YEO RIEULHIEUH
-<UC848> \xC1\xB1 |0 # HANGUL SYLLABLE CIEUC YEO MIEUM
-<UC849> \xC1\xB2 |0 # HANGUL SYLLABLE CIEUC YEO PIEUP
-<UC84A> \xA0\xB9 |0 # HANGUL SYLLABLE CIEUC YEO PIEUPSIOS
-<UC84B> \xA0\xBA |0 # HANGUL SYLLABLE CIEUC YEO SIOS
-<UC84C> \xC1\xB3 |0 # HANGUL SYLLABLE CIEUC YEO SSANGSIOS
-<UC84D> \xC1\xB4 |0 # HANGUL SYLLABLE CIEUC YEO IEUNG
-<UC84E> \xA0\xBB |0 # HANGUL SYLLABLE CIEUC YEO CIEUC
-<UC84F> \xA0\xBC |0 # HANGUL SYLLABLE CIEUC YEO CHIEUCH
-<UC850> \xA0\xBD |0 # HANGUL SYLLABLE CIEUC YEO KHIEUKH
-<UC851> \xA0\xBE |0 # HANGUL SYLLABLE CIEUC YEO THIEUTH
-<UC852> \xA0\xBF |0 # HANGUL SYLLABLE CIEUC YEO PHIEUPH
-<UC853> \xA0\xC0 |0 # HANGUL SYLLABLE CIEUC YEO HIEUH
-<UC854> \xC1\xB5 |0 # HANGUL SYLLABLE CIEUC YE
-<UC855> \xA0\xC1 |0 # HANGUL SYLLABLE CIEUC YE KIYEOK
-<UC856> \xA0\xC2 |0 # HANGUL SYLLABLE CIEUC YE SSANGKIYEOK
-<UC857> \xA0\xC3 |0 # HANGUL SYLLABLE CIEUC YE KIYEOKSIOS
-<UC858> \xA0\xC4 |0 # HANGUL SYLLABLE CIEUC YE NIEUN
-<UC859> \xA0\xC5 |0 # HANGUL SYLLABLE CIEUC YE NIEUNCIEUC
-<UC85A> \xA0\xC6 |0 # HANGUL SYLLABLE CIEUC YE NIEUNHIEUH
-<UC85B> \xA0\xC7 |0 # HANGUL SYLLABLE CIEUC YE TIKEUT
-<UC85C> \xA0\xC8 |0 # HANGUL SYLLABLE CIEUC YE RIEUL
-<UC85D> \xA0\xC9 |0 # HANGUL SYLLABLE CIEUC YE RIEULKIYEOK
-<UC85E> \xA0\xCA |0 # HANGUL SYLLABLE CIEUC YE RIEULMIEUM
-<UC85F> \xA0\xCB |0 # HANGUL SYLLABLE CIEUC YE RIEULPIEUP
-<UC860> \xA0\xCC |0 # HANGUL SYLLABLE CIEUC YE RIEULSIOS
-<UC861> \xA0\xCD |0 # HANGUL SYLLABLE CIEUC YE RIEULTHIEUTH
-<UC862> \xA0\xCE |0 # HANGUL SYLLABLE CIEUC YE RIEULPHIEUPH
-<UC863> \xA0\xCF |0 # HANGUL SYLLABLE CIEUC YE RIEULHIEUH
-<UC864> \xA0\xD0 |0 # HANGUL SYLLABLE CIEUC YE MIEUM
-<UC865> \xA0\xD1 |0 # HANGUL SYLLABLE CIEUC YE PIEUP
-<UC866> \xA0\xD2 |0 # HANGUL SYLLABLE CIEUC YE PIEUPSIOS
-<UC867> \xA0\xD3 |0 # HANGUL SYLLABLE CIEUC YE SIOS
-<UC868> \xA0\xD4 |0 # HANGUL SYLLABLE CIEUC YE SSANGSIOS
-<UC869> \xA0\xD5 |0 # HANGUL SYLLABLE CIEUC YE IEUNG
-<UC86A> \xA0\xD6 |0 # HANGUL SYLLABLE CIEUC YE CIEUC
-<UC86B> \xA0\xD7 |0 # HANGUL SYLLABLE CIEUC YE CHIEUCH
-<UC86C> \xA0\xD8 |0 # HANGUL SYLLABLE CIEUC YE KHIEUKH
-<UC86D> \xA0\xD9 |0 # HANGUL SYLLABLE CIEUC YE THIEUTH
-<UC86E> \xA0\xDA |0 # HANGUL SYLLABLE CIEUC YE PHIEUPH
-<UC86F> \xA0\xDB |0 # HANGUL SYLLABLE CIEUC YE HIEUH
-<UC870> \xC1\xB6 |0 # HANGUL SYLLABLE CIEUC O
-<UC871> \xC1\xB7 |0 # HANGUL SYLLABLE CIEUC O KIYEOK
-<UC872> \xA0\xDC |0 # HANGUL SYLLABLE CIEUC O SSANGKIYEOK
-<UC873> \xA0\xDD |0 # HANGUL SYLLABLE CIEUC O KIYEOKSIOS
-<UC874> \xC1\xB8 |0 # HANGUL SYLLABLE CIEUC O NIEUN
-<UC875> \xA0\xDE |0 # HANGUL SYLLABLE CIEUC O NIEUNCIEUC
-<UC876> \xA0\xDF |0 # HANGUL SYLLABLE CIEUC O NIEUNHIEUH
-<UC877> \xA0\xE0 |0 # HANGUL SYLLABLE CIEUC O TIKEUT
-<UC878> \xC1\xB9 |0 # HANGUL SYLLABLE CIEUC O RIEUL
-<UC879> \xA0\xE1 |0 # HANGUL SYLLABLE CIEUC O RIEULKIYEOK
-<UC87A> \xC1\xBA |0 # HANGUL SYLLABLE CIEUC O RIEULMIEUM
-<UC87B> \xA0\xE2 |0 # HANGUL SYLLABLE CIEUC O RIEULPIEUP
-<UC87C> \xA0\xE3 |0 # HANGUL SYLLABLE CIEUC O RIEULSIOS
-<UC87D> \xA0\xE4 |0 # HANGUL SYLLABLE CIEUC O RIEULTHIEUTH
-<UC87E> \xA0\xE5 |0 # HANGUL SYLLABLE CIEUC O RIEULPHIEUPH
-<UC87F> \xA0\xE6 |0 # HANGUL SYLLABLE CIEUC O RIEULHIEUH
-<UC880> \xC1\xBB |0 # HANGUL SYLLABLE CIEUC O MIEUM
-<UC881> \xC1\xBC |0 # HANGUL SYLLABLE CIEUC O PIEUP
-<UC882> \xA0\xE7 |0 # HANGUL SYLLABLE CIEUC O PIEUPSIOS
-<UC883> \xC1\xBD |0 # HANGUL SYLLABLE CIEUC O SIOS
-<UC884> \xA0\xE8 |0 # HANGUL SYLLABLE CIEUC O SSANGSIOS
-<UC885> \xC1\xBE |0 # HANGUL SYLLABLE CIEUC O IEUNG
-<UC886> \xC1\xBF |0 # HANGUL SYLLABLE CIEUC O CIEUC
-<UC887> \xC1\xC0 |0 # HANGUL SYLLABLE CIEUC O CHIEUCH
-<UC888> \xA0\xE9 |0 # HANGUL SYLLABLE CIEUC O KHIEUKH
-<UC889> \xA0\xEA |0 # HANGUL SYLLABLE CIEUC O THIEUTH
-<UC88A> \xA0\xEB |0 # HANGUL SYLLABLE CIEUC O PHIEUPH
-<UC88B> \xC1\xC1 |0 # HANGUL SYLLABLE CIEUC O HIEUH
-<UC88C> \xC1\xC2 |0 # HANGUL SYLLABLE CIEUC WA
-<UC88D> \xC1\xC3 |0 # HANGUL SYLLABLE CIEUC WA KIYEOK
-<UC88E> \xA0\xEC |0 # HANGUL SYLLABLE CIEUC WA SSANGKIYEOK
-<UC88F> \xA0\xED |0 # HANGUL SYLLABLE CIEUC WA KIYEOKSIOS
-<UC890> \xA0\xEE |0 # HANGUL SYLLABLE CIEUC WA NIEUN
-<UC891> \xA0\xEF |0 # HANGUL SYLLABLE CIEUC WA NIEUNCIEUC
-<UC892> \xA0\xF0 |0 # HANGUL SYLLABLE CIEUC WA NIEUNHIEUH
-<UC893> \xA0\xF1 |0 # HANGUL SYLLABLE CIEUC WA TIKEUT
-<UC894> \xC1\xC4 |0 # HANGUL SYLLABLE CIEUC WA RIEUL
-<UC895> \xA0\xF2 |0 # HANGUL SYLLABLE CIEUC WA RIEULKIYEOK
-<UC896> \xA0\xF3 |0 # HANGUL SYLLABLE CIEUC WA RIEULMIEUM
-<UC897> \xA0\xF4 |0 # HANGUL SYLLABLE CIEUC WA RIEULPIEUP
-<UC898> \xA0\xF5 |0 # HANGUL SYLLABLE CIEUC WA RIEULSIOS
-<UC899> \xA0\xF6 |0 # HANGUL SYLLABLE CIEUC WA RIEULTHIEUTH
-<UC89A> \xA0\xF7 |0 # HANGUL SYLLABLE CIEUC WA RIEULPHIEUPH
-<UC89B> \xA0\xF8 |0 # HANGUL SYLLABLE CIEUC WA RIEULHIEUH
-<UC89C> \xA0\xF9 |0 # HANGUL SYLLABLE CIEUC WA MIEUM
-<UC89D> \xC1\xC5 |0 # HANGUL SYLLABLE CIEUC WA PIEUP
-<UC89E> \xA0\xFA |0 # HANGUL SYLLABLE CIEUC WA PIEUPSIOS
-<UC89F> \xC1\xC6 |0 # HANGUL SYLLABLE CIEUC WA SIOS
-<UC8A0> \xA0\xFB |0 # HANGUL SYLLABLE CIEUC WA SSANGSIOS
-<UC8A1> \xC1\xC7 |0 # HANGUL SYLLABLE CIEUC WA IEUNG
-<UC8A2> \xA0\xFC |0 # HANGUL SYLLABLE CIEUC WA CIEUC
-<UC8A3> \xA0\xFD |0 # HANGUL SYLLABLE CIEUC WA CHIEUCH
-<UC8A4> \xA0\xFE |0 # HANGUL SYLLABLE CIEUC WA KHIEUKH
-<UC8A5> \xA1\x41 |0 # HANGUL SYLLABLE CIEUC WA THIEUTH
-<UC8A6> \xA1\x42 |0 # HANGUL SYLLABLE CIEUC WA PHIEUPH
-<UC8A7> \xA1\x43 |0 # HANGUL SYLLABLE CIEUC WA HIEUH
-<UC8A8> \xC1\xC8 |0 # HANGUL SYLLABLE CIEUC WAE
-<UC8A9> \xA1\x44 |0 # HANGUL SYLLABLE CIEUC WAE KIYEOK
-<UC8AA> \xA1\x45 |0 # HANGUL SYLLABLE CIEUC WAE SSANGKIYEOK
-<UC8AB> \xA1\x46 |0 # HANGUL SYLLABLE CIEUC WAE KIYEOKSIOS
-<UC8AC> \xA1\x47 |0 # HANGUL SYLLABLE CIEUC WAE NIEUN
-<UC8AD> \xA1\x48 |0 # HANGUL SYLLABLE CIEUC WAE NIEUNCIEUC
-<UC8AE> \xA1\x49 |0 # HANGUL SYLLABLE CIEUC WAE NIEUNHIEUH
-<UC8AF> \xA1\x4A |0 # HANGUL SYLLABLE CIEUC WAE TIKEUT
-<UC8B0> \xA1\x4B |0 # HANGUL SYLLABLE CIEUC WAE RIEUL
-<UC8B1> \xA1\x4C |0 # HANGUL SYLLABLE CIEUC WAE RIEULKIYEOK
-<UC8B2> \xA1\x4D |0 # HANGUL SYLLABLE CIEUC WAE RIEULMIEUM
-<UC8B3> \xA1\x4E |0 # HANGUL SYLLABLE CIEUC WAE RIEULPIEUP
-<UC8B4> \xA1\x4F |0 # HANGUL SYLLABLE CIEUC WAE RIEULSIOS
-<UC8B5> \xA1\x50 |0 # HANGUL SYLLABLE CIEUC WAE RIEULTHIEUTH
-<UC8B6> \xA1\x51 |0 # HANGUL SYLLABLE CIEUC WAE RIEULPHIEUPH
-<UC8B7> \xA1\x52 |0 # HANGUL SYLLABLE CIEUC WAE RIEULHIEUH
-<UC8B8> \xA1\x53 |0 # HANGUL SYLLABLE CIEUC WAE MIEUM
-<UC8B9> \xA1\x54 |0 # HANGUL SYLLABLE CIEUC WAE PIEUP
-<UC8BA> \xA1\x55 |0 # HANGUL SYLLABLE CIEUC WAE PIEUPSIOS
-<UC8BB> \xA1\x56 |0 # HANGUL SYLLABLE CIEUC WAE SIOS
-<UC8BC> \xC1\xC9 |0 # HANGUL SYLLABLE CIEUC WAE SSANGSIOS
-<UC8BD> \xC1\xCA |0 # HANGUL SYLLABLE CIEUC WAE IEUNG
-<UC8BE> \xA1\x57 |0 # HANGUL SYLLABLE CIEUC WAE CIEUC
-<UC8BF> \xA1\x58 |0 # HANGUL SYLLABLE CIEUC WAE CHIEUCH
-<UC8C0> \xA1\x59 |0 # HANGUL SYLLABLE CIEUC WAE KHIEUKH
-<UC8C1> \xA1\x5A |0 # HANGUL SYLLABLE CIEUC WAE THIEUTH
-<UC8C2> \xA1\x61 |0 # HANGUL SYLLABLE CIEUC WAE PHIEUPH
-<UC8C3> \xA1\x62 |0 # HANGUL SYLLABLE CIEUC WAE HIEUH
-<UC8C4> \xC1\xCB |0 # HANGUL SYLLABLE CIEUC OE
-<UC8C5> \xA1\x63 |0 # HANGUL SYLLABLE CIEUC OE KIYEOK
-<UC8C6> \xA1\x64 |0 # HANGUL SYLLABLE CIEUC OE SSANGKIYEOK
-<UC8C7> \xA1\x65 |0 # HANGUL SYLLABLE CIEUC OE KIYEOKSIOS
-<UC8C8> \xC1\xCC |0 # HANGUL SYLLABLE CIEUC OE NIEUN
-<UC8C9> \xA1\x66 |0 # HANGUL SYLLABLE CIEUC OE NIEUNCIEUC
-<UC8CA> \xA1\x67 |0 # HANGUL SYLLABLE CIEUC OE NIEUNHIEUH
-<UC8CB> \xA1\x68 |0 # HANGUL SYLLABLE CIEUC OE TIKEUT
-<UC8CC> \xC1\xCD |0 # HANGUL SYLLABLE CIEUC OE RIEUL
-<UC8CD> \xA1\x69 |0 # HANGUL SYLLABLE CIEUC OE RIEULKIYEOK
-<UC8CE> \xA1\x6A |0 # HANGUL SYLLABLE CIEUC OE RIEULMIEUM
-<UC8CF> \xA1\x6B |0 # HANGUL SYLLABLE CIEUC OE RIEULPIEUP
-<UC8D0> \xA1\x6C |0 # HANGUL SYLLABLE CIEUC OE RIEULSIOS
-<UC8D1> \xA1\x6D |0 # HANGUL SYLLABLE CIEUC OE RIEULTHIEUTH
-<UC8D2> \xA1\x6E |0 # HANGUL SYLLABLE CIEUC OE RIEULPHIEUPH
-<UC8D3> \xA1\x6F |0 # HANGUL SYLLABLE CIEUC OE RIEULHIEUH
-<UC8D4> \xC1\xCE |0 # HANGUL SYLLABLE CIEUC OE MIEUM
-<UC8D5> \xC1\xCF |0 # HANGUL SYLLABLE CIEUC OE PIEUP
-<UC8D6> \xA1\x70 |0 # HANGUL SYLLABLE CIEUC OE PIEUPSIOS
-<UC8D7> \xC1\xD0 |0 # HANGUL SYLLABLE CIEUC OE SIOS
-<UC8D8> \xA1\x71 |0 # HANGUL SYLLABLE CIEUC OE SSANGSIOS
-<UC8D9> \xC1\xD1 |0 # HANGUL SYLLABLE CIEUC OE IEUNG
-<UC8DA> \xA1\x72 |0 # HANGUL SYLLABLE CIEUC OE CIEUC
-<UC8DB> \xA1\x73 |0 # HANGUL SYLLABLE CIEUC OE CHIEUCH
-<UC8DC> \xA1\x74 |0 # HANGUL SYLLABLE CIEUC OE KHIEUKH
-<UC8DD> \xA1\x75 |0 # HANGUL SYLLABLE CIEUC OE THIEUTH
-<UC8DE> \xA1\x76 |0 # HANGUL SYLLABLE CIEUC OE PHIEUPH
-<UC8DF> \xA1\x77 |0 # HANGUL SYLLABLE CIEUC OE HIEUH
-<UC8E0> \xC1\xD2 |0 # HANGUL SYLLABLE CIEUC YO
-<UC8E1> \xC1\xD3 |0 # HANGUL SYLLABLE CIEUC YO KIYEOK
-<UC8E2> \xA1\x78 |0 # HANGUL SYLLABLE CIEUC YO SSANGKIYEOK
-<UC8E3> \xA1\x79 |0 # HANGUL SYLLABLE CIEUC YO KIYEOKSIOS
-<UC8E4> \xC1\xD4 |0 # HANGUL SYLLABLE CIEUC YO NIEUN
-<UC8E5> \xA1\x7A |0 # HANGUL SYLLABLE CIEUC YO NIEUNCIEUC
-<UC8E6> \xA1\x81 |0 # HANGUL SYLLABLE CIEUC YO NIEUNHIEUH
-<UC8E7> \xA1\x82 |0 # HANGUL SYLLABLE CIEUC YO TIKEUT
-<UC8E8> \xA1\x83 |0 # HANGUL SYLLABLE CIEUC YO RIEUL
-<UC8E9> \xA1\x84 |0 # HANGUL SYLLABLE CIEUC YO RIEULKIYEOK
-<UC8EA> \xA1\x85 |0 # HANGUL SYLLABLE CIEUC YO RIEULMIEUM
-<UC8EB> \xA1\x86 |0 # HANGUL SYLLABLE CIEUC YO RIEULPIEUP
-<UC8EC> \xA1\x87 |0 # HANGUL SYLLABLE CIEUC YO RIEULSIOS
-<UC8ED> \xA1\x88 |0 # HANGUL SYLLABLE CIEUC YO RIEULTHIEUTH
-<UC8EE> \xA1\x89 |0 # HANGUL SYLLABLE CIEUC YO RIEULPHIEUPH
-<UC8EF> \xA1\x8A |0 # HANGUL SYLLABLE CIEUC YO RIEULHIEUH
-<UC8F0> \xA1\x8B |0 # HANGUL SYLLABLE CIEUC YO MIEUM
-<UC8F1> \xA1\x8C |0 # HANGUL SYLLABLE CIEUC YO PIEUP
-<UC8F2> \xA1\x8D |0 # HANGUL SYLLABLE CIEUC YO PIEUPSIOS
-<UC8F3> \xA1\x8E |0 # HANGUL SYLLABLE CIEUC YO SIOS
-<UC8F4> \xA1\x8F |0 # HANGUL SYLLABLE CIEUC YO SSANGSIOS
-<UC8F5> \xC1\xD5 |0 # HANGUL SYLLABLE CIEUC YO IEUNG
-<UC8F6> \xA1\x90 |0 # HANGUL SYLLABLE CIEUC YO CIEUC
-<UC8F7> \xA1\x91 |0 # HANGUL SYLLABLE CIEUC YO CHIEUCH
-<UC8F8> \xA1\x92 |0 # HANGUL SYLLABLE CIEUC YO KHIEUKH
-<UC8F9> \xA1\x93 |0 # HANGUL SYLLABLE CIEUC YO THIEUTH
-<UC8FA> \xA1\x94 |0 # HANGUL SYLLABLE CIEUC YO PHIEUPH
-<UC8FB> \xA1\x95 |0 # HANGUL SYLLABLE CIEUC YO HIEUH
-<UC8FC> \xC1\xD6 |0 # HANGUL SYLLABLE CIEUC U
-<UC8FD> \xC1\xD7 |0 # HANGUL SYLLABLE CIEUC U KIYEOK
-<UC8FE> \xA1\x96 |0 # HANGUL SYLLABLE CIEUC U SSANGKIYEOK
-<UC8FF> \xA1\x97 |0 # HANGUL SYLLABLE CIEUC U KIYEOKSIOS
-<UC900> \xC1\xD8 |0 # HANGUL SYLLABLE CIEUC U NIEUN
-<UC901> \xA1\x98 |0 # HANGUL SYLLABLE CIEUC U NIEUNCIEUC
-<UC902> \xA1\x99 |0 # HANGUL SYLLABLE CIEUC U NIEUNHIEUH
-<UC903> \xA1\x9A |0 # HANGUL SYLLABLE CIEUC U TIKEUT
-<UC904> \xC1\xD9 |0 # HANGUL SYLLABLE CIEUC U RIEUL
-<UC905> \xC1\xDA |0 # HANGUL SYLLABLE CIEUC U RIEULKIYEOK
-<UC906> \xC1\xDB |0 # HANGUL SYLLABLE CIEUC U RIEULMIEUM
-<UC907> \xA1\x9B |0 # HANGUL SYLLABLE CIEUC U RIEULPIEUP
-<UC908> \xA1\x9C |0 # HANGUL SYLLABLE CIEUC U RIEULSIOS
-<UC909> \xA1\x9D |0 # HANGUL SYLLABLE CIEUC U RIEULTHIEUTH
-<UC90A> \xA1\x9E |0 # HANGUL SYLLABLE CIEUC U RIEULPHIEUPH
-<UC90B> \xA1\x9F |0 # HANGUL SYLLABLE CIEUC U RIEULHIEUH
-<UC90C> \xC1\xDC |0 # HANGUL SYLLABLE CIEUC U MIEUM
-<UC90D> \xC1\xDD |0 # HANGUL SYLLABLE CIEUC U PIEUP
-<UC90E> \xA1\xA0 |0 # HANGUL SYLLABLE CIEUC U PIEUPSIOS
-<UC90F> \xC1\xDE |0 # HANGUL SYLLABLE CIEUC U SIOS
-<UC910> \xA2\x41 |0 # HANGUL SYLLABLE CIEUC U SSANGSIOS
-<UC911> \xC1\xDF |0 # HANGUL SYLLABLE CIEUC U IEUNG
-<UC912> \xA2\x42 |0 # HANGUL SYLLABLE CIEUC U CIEUC
-<UC913> \xA2\x43 |0 # HANGUL SYLLABLE CIEUC U CHIEUCH
-<UC914> \xA2\x44 |0 # HANGUL SYLLABLE CIEUC U KHIEUKH
-<UC915> \xA2\x45 |0 # HANGUL SYLLABLE CIEUC U THIEUTH
-<UC916> \xA2\x46 |0 # HANGUL SYLLABLE CIEUC U PHIEUPH
-<UC917> \xA2\x47 |0 # HANGUL SYLLABLE CIEUC U HIEUH
-<UC918> \xC1\xE0 |0 # HANGUL SYLLABLE CIEUC WEO
-<UC919> \xA2\x48 |0 # HANGUL SYLLABLE CIEUC WEO KIYEOK
-<UC91A> \xA2\x49 |0 # HANGUL SYLLABLE CIEUC WEO SSANGKIYEOK
-<UC91B> \xA2\x4A |0 # HANGUL SYLLABLE CIEUC WEO KIYEOKSIOS
-<UC91C> \xA2\x4B |0 # HANGUL SYLLABLE CIEUC WEO NIEUN
-<UC91D> \xA2\x4C |0 # HANGUL SYLLABLE CIEUC WEO NIEUNCIEUC
-<UC91E> \xA2\x4D |0 # HANGUL SYLLABLE CIEUC WEO NIEUNHIEUH
-<UC91F> \xA2\x4E |0 # HANGUL SYLLABLE CIEUC WEO TIKEUT
-<UC920> \xA2\x4F |0 # HANGUL SYLLABLE CIEUC WEO RIEUL
-<UC921> \xA2\x50 |0 # HANGUL SYLLABLE CIEUC WEO RIEULKIYEOK
-<UC922> \xA2\x51 |0 # HANGUL SYLLABLE CIEUC WEO RIEULMIEUM
-<UC923> \xA2\x52 |0 # HANGUL SYLLABLE CIEUC WEO RIEULPIEUP
-<UC924> \xA2\x53 |0 # HANGUL SYLLABLE CIEUC WEO RIEULSIOS
-<UC925> \xA2\x54 |0 # HANGUL SYLLABLE CIEUC WEO RIEULTHIEUTH
-<UC926> \xA2\x55 |0 # HANGUL SYLLABLE CIEUC WEO RIEULPHIEUPH
-<UC927> \xA2\x56 |0 # HANGUL SYLLABLE CIEUC WEO RIEULHIEUH
-<UC928> \xA2\x57 |0 # HANGUL SYLLABLE CIEUC WEO MIEUM
-<UC929> \xA2\x58 |0 # HANGUL SYLLABLE CIEUC WEO PIEUP
-<UC92A> \xA2\x59 |0 # HANGUL SYLLABLE CIEUC WEO PIEUPSIOS
-<UC92B> \xA2\x5A |0 # HANGUL SYLLABLE CIEUC WEO SIOS
-<UC92C> \xC1\xE1 |0 # HANGUL SYLLABLE CIEUC WEO SSANGSIOS
-<UC92D> \xA2\x61 |0 # HANGUL SYLLABLE CIEUC WEO IEUNG
-<UC92E> \xA2\x62 |0 # HANGUL SYLLABLE CIEUC WEO CIEUC
-<UC92F> \xA2\x63 |0 # HANGUL SYLLABLE CIEUC WEO CHIEUCH
-<UC930> \xA2\x64 |0 # HANGUL SYLLABLE CIEUC WEO KHIEUKH
-<UC931> \xA2\x65 |0 # HANGUL SYLLABLE CIEUC WEO THIEUTH
-<UC932> \xA2\x66 |0 # HANGUL SYLLABLE CIEUC WEO PHIEUPH
-<UC933> \xA2\x67 |0 # HANGUL SYLLABLE CIEUC WEO HIEUH
-<UC934> \xC1\xE2 |0 # HANGUL SYLLABLE CIEUC WE
-<UC935> \xA2\x68 |0 # HANGUL SYLLABLE CIEUC WE KIYEOK
-<UC936> \xA2\x69 |0 # HANGUL SYLLABLE CIEUC WE SSANGKIYEOK
-<UC937> \xA2\x6A |0 # HANGUL SYLLABLE CIEUC WE KIYEOKSIOS
-<UC938> \xA2\x6B |0 # HANGUL SYLLABLE CIEUC WE NIEUN
-<UC939> \xA2\x6C |0 # HANGUL SYLLABLE CIEUC WE NIEUNCIEUC
-<UC93A> \xA2\x6D |0 # HANGUL SYLLABLE CIEUC WE NIEUNHIEUH
-<UC93B> \xA2\x6E |0 # HANGUL SYLLABLE CIEUC WE TIKEUT
-<UC93C> \xA2\x6F |0 # HANGUL SYLLABLE CIEUC WE RIEUL
-<UC93D> \xA2\x70 |0 # HANGUL SYLLABLE CIEUC WE RIEULKIYEOK
-<UC93E> \xA2\x71 |0 # HANGUL SYLLABLE CIEUC WE RIEULMIEUM
-<UC93F> \xA2\x72 |0 # HANGUL SYLLABLE CIEUC WE RIEULPIEUP
-<UC940> \xA2\x73 |0 # HANGUL SYLLABLE CIEUC WE RIEULSIOS
-<UC941> \xA2\x74 |0 # HANGUL SYLLABLE CIEUC WE RIEULTHIEUTH
-<UC942> \xA2\x75 |0 # HANGUL SYLLABLE CIEUC WE RIEULPHIEUPH
-<UC943> \xA2\x76 |0 # HANGUL SYLLABLE CIEUC WE RIEULHIEUH
-<UC944> \xA2\x77 |0 # HANGUL SYLLABLE CIEUC WE MIEUM
-<UC945> \xA2\x78 |0 # HANGUL SYLLABLE CIEUC WE PIEUP
-<UC946> \xA2\x79 |0 # HANGUL SYLLABLE CIEUC WE PIEUPSIOS
-<UC947> \xA2\x7A |0 # HANGUL SYLLABLE CIEUC WE SIOS
-<UC948> \xA2\x81 |0 # HANGUL SYLLABLE CIEUC WE SSANGSIOS
-<UC949> \xA2\x82 |0 # HANGUL SYLLABLE CIEUC WE IEUNG
-<UC94A> \xA2\x83 |0 # HANGUL SYLLABLE CIEUC WE CIEUC
-<UC94B> \xA2\x84 |0 # HANGUL SYLLABLE CIEUC WE CHIEUCH
-<UC94C> \xA2\x85 |0 # HANGUL SYLLABLE CIEUC WE KHIEUKH
-<UC94D> \xA2\x86 |0 # HANGUL SYLLABLE CIEUC WE THIEUTH
-<UC94E> \xA2\x87 |0 # HANGUL SYLLABLE CIEUC WE PHIEUPH
-<UC94F> \xA2\x88 |0 # HANGUL SYLLABLE CIEUC WE HIEUH
-<UC950> \xC1\xE3 |0 # HANGUL SYLLABLE CIEUC WI
-<UC951> \xC1\xE4 |0 # HANGUL SYLLABLE CIEUC WI KIYEOK
-<UC952> \xA2\x89 |0 # HANGUL SYLLABLE CIEUC WI SSANGKIYEOK
-<UC953> \xA2\x8A |0 # HANGUL SYLLABLE CIEUC WI KIYEOKSIOS
-<UC954> \xC1\xE5 |0 # HANGUL SYLLABLE CIEUC WI NIEUN
-<UC955> \xA2\x8B |0 # HANGUL SYLLABLE CIEUC WI NIEUNCIEUC
-<UC956> \xA2\x8C |0 # HANGUL SYLLABLE CIEUC WI NIEUNHIEUH
-<UC957> \xA2\x8D |0 # HANGUL SYLLABLE CIEUC WI TIKEUT
-<UC958> \xC1\xE6 |0 # HANGUL SYLLABLE CIEUC WI RIEUL
-<UC959> \xA2\x8E |0 # HANGUL SYLLABLE CIEUC WI RIEULKIYEOK
-<UC95A> \xA2\x8F |0 # HANGUL SYLLABLE CIEUC WI RIEULMIEUM
-<UC95B> \xA2\x90 |0 # HANGUL SYLLABLE CIEUC WI RIEULPIEUP
-<UC95C> \xA2\x91 |0 # HANGUL SYLLABLE CIEUC WI RIEULSIOS
-<UC95D> \xA2\x92 |0 # HANGUL SYLLABLE CIEUC WI RIEULTHIEUTH
-<UC95E> \xA2\x93 |0 # HANGUL SYLLABLE CIEUC WI RIEULPHIEUPH
-<UC95F> \xA2\x94 |0 # HANGUL SYLLABLE CIEUC WI RIEULHIEUH
-<UC960> \xC1\xE7 |0 # HANGUL SYLLABLE CIEUC WI MIEUM
-<UC961> \xC1\xE8 |0 # HANGUL SYLLABLE CIEUC WI PIEUP
-<UC962> \xA2\x95 |0 # HANGUL SYLLABLE CIEUC WI PIEUPSIOS
-<UC963> \xC1\xE9 |0 # HANGUL SYLLABLE CIEUC WI SIOS
-<UC964> \xA2\x96 |0 # HANGUL SYLLABLE CIEUC WI SSANGSIOS
-<UC965> \xA2\x97 |0 # HANGUL SYLLABLE CIEUC WI IEUNG
-<UC966> \xA2\x98 |0 # HANGUL SYLLABLE CIEUC WI CIEUC
-<UC967> \xA2\x99 |0 # HANGUL SYLLABLE CIEUC WI CHIEUCH
-<UC968> \xA2\x9A |0 # HANGUL SYLLABLE CIEUC WI KHIEUKH
-<UC969> \xA2\x9B |0 # HANGUL SYLLABLE CIEUC WI THIEUTH
-<UC96A> \xA2\x9C |0 # HANGUL SYLLABLE CIEUC WI PHIEUPH
-<UC96B> \xA2\x9D |0 # HANGUL SYLLABLE CIEUC WI HIEUH
-<UC96C> \xC1\xEA |0 # HANGUL SYLLABLE CIEUC YU
-<UC96D> \xA2\x9E |0 # HANGUL SYLLABLE CIEUC YU KIYEOK
-<UC96E> \xA2\x9F |0 # HANGUL SYLLABLE CIEUC YU SSANGKIYEOK
-<UC96F> \xA2\xA0 |0 # HANGUL SYLLABLE CIEUC YU KIYEOKSIOS
-<UC970> \xC1\xEB |0 # HANGUL SYLLABLE CIEUC YU NIEUN
-<UC971> \xA3\x41 |0 # HANGUL SYLLABLE CIEUC YU NIEUNCIEUC
-<UC972> \xA3\x42 |0 # HANGUL SYLLABLE CIEUC YU NIEUNHIEUH
-<UC973> \xA3\x43 |0 # HANGUL SYLLABLE CIEUC YU TIKEUT
-<UC974> \xC1\xEC |0 # HANGUL SYLLABLE CIEUC YU RIEUL
-<UC975> \xA3\x44 |0 # HANGUL SYLLABLE CIEUC YU RIEULKIYEOK
-<UC976> \xA3\x45 |0 # HANGUL SYLLABLE CIEUC YU RIEULMIEUM
-<UC977> \xA3\x46 |0 # HANGUL SYLLABLE CIEUC YU RIEULPIEUP
-<UC978> \xA3\x47 |0 # HANGUL SYLLABLE CIEUC YU RIEULSIOS
-<UC979> \xA3\x48 |0 # HANGUL SYLLABLE CIEUC YU RIEULTHIEUTH
-<UC97A> \xA3\x49 |0 # HANGUL SYLLABLE CIEUC YU RIEULPHIEUPH
-<UC97B> \xA3\x4A |0 # HANGUL SYLLABLE CIEUC YU RIEULHIEUH
-<UC97C> \xC1\xED |0 # HANGUL SYLLABLE CIEUC YU MIEUM
-<UC97D> \xA3\x4B |0 # HANGUL SYLLABLE CIEUC YU PIEUP
-<UC97E> \xA3\x4C |0 # HANGUL SYLLABLE CIEUC YU PIEUPSIOS
-<UC97F> \xA3\x4D |0 # HANGUL SYLLABLE CIEUC YU SIOS
-<UC980> \xA3\x4E |0 # HANGUL SYLLABLE CIEUC YU SSANGSIOS
-<UC981> \xA3\x4F |0 # HANGUL SYLLABLE CIEUC YU IEUNG
-<UC982> \xA3\x50 |0 # HANGUL SYLLABLE CIEUC YU CIEUC
-<UC983> \xA3\x51 |0 # HANGUL SYLLABLE CIEUC YU CHIEUCH
-<UC984> \xA3\x52 |0 # HANGUL SYLLABLE CIEUC YU KHIEUKH
-<UC985> \xA3\x53 |0 # HANGUL SYLLABLE CIEUC YU THIEUTH
-<UC986> \xA3\x54 |0 # HANGUL SYLLABLE CIEUC YU PHIEUPH
-<UC987> \xA3\x55 |0 # HANGUL SYLLABLE CIEUC YU HIEUH
-<UC988> \xC1\xEE |0 # HANGUL SYLLABLE CIEUC EU
-<UC989> \xC1\xEF |0 # HANGUL SYLLABLE CIEUC EU KIYEOK
-<UC98A> \xA3\x56 |0 # HANGUL SYLLABLE CIEUC EU SSANGKIYEOK
-<UC98B> \xA3\x57 |0 # HANGUL SYLLABLE CIEUC EU KIYEOKSIOS
-<UC98C> \xC1\xF0 |0 # HANGUL SYLLABLE CIEUC EU NIEUN
-<UC98D> \xA3\x58 |0 # HANGUL SYLLABLE CIEUC EU NIEUNCIEUC
-<UC98E> \xA3\x59 |0 # HANGUL SYLLABLE CIEUC EU NIEUNHIEUH
-<UC98F> \xA3\x5A |0 # HANGUL SYLLABLE CIEUC EU TIKEUT
-<UC990> \xC1\xF1 |0 # HANGUL SYLLABLE CIEUC EU RIEUL
-<UC991> \xA3\x61 |0 # HANGUL SYLLABLE CIEUC EU RIEULKIYEOK
-<UC992> \xA3\x62 |0 # HANGUL SYLLABLE CIEUC EU RIEULMIEUM
-<UC993> \xA3\x63 |0 # HANGUL SYLLABLE CIEUC EU RIEULPIEUP
-<UC994> \xA3\x64 |0 # HANGUL SYLLABLE CIEUC EU RIEULSIOS
-<UC995> \xA3\x65 |0 # HANGUL SYLLABLE CIEUC EU RIEULTHIEUTH
-<UC996> \xA3\x66 |0 # HANGUL SYLLABLE CIEUC EU RIEULPHIEUPH
-<UC997> \xA3\x67 |0 # HANGUL SYLLABLE CIEUC EU RIEULHIEUH
-<UC998> \xC1\xF2 |0 # HANGUL SYLLABLE CIEUC EU MIEUM
-<UC999> \xC1\xF3 |0 # HANGUL SYLLABLE CIEUC EU PIEUP
-<UC99A> \xA3\x68 |0 # HANGUL SYLLABLE CIEUC EU PIEUPSIOS
-<UC99B> \xC1\xF4 |0 # HANGUL SYLLABLE CIEUC EU SIOS
-<UC99C> \xA3\x69 |0 # HANGUL SYLLABLE CIEUC EU SSANGSIOS
-<UC99D> \xC1\xF5 |0 # HANGUL SYLLABLE CIEUC EU IEUNG
-<UC99E> \xA3\x6A |0 # HANGUL SYLLABLE CIEUC EU CIEUC
-<UC99F> \xA3\x6B |0 # HANGUL SYLLABLE CIEUC EU CHIEUCH
-<UC9A0> \xA3\x6C |0 # HANGUL SYLLABLE CIEUC EU KHIEUKH
-<UC9A1> \xA3\x6D |0 # HANGUL SYLLABLE CIEUC EU THIEUTH
-<UC9A2> \xA3\x6E |0 # HANGUL SYLLABLE CIEUC EU PHIEUPH
-<UC9A3> \xA3\x6F |0 # HANGUL SYLLABLE CIEUC EU HIEUH
-<UC9A4> \xA3\x70 |0 # HANGUL SYLLABLE CIEUC YI
-<UC9A5> \xA3\x71 |0 # HANGUL SYLLABLE CIEUC YI KIYEOK
-<UC9A6> \xA3\x72 |0 # HANGUL SYLLABLE CIEUC YI SSANGKIYEOK
-<UC9A7> \xA3\x73 |0 # HANGUL SYLLABLE CIEUC YI KIYEOKSIOS
-<UC9A8> \xA3\x74 |0 # HANGUL SYLLABLE CIEUC YI NIEUN
-<UC9A9> \xA3\x75 |0 # HANGUL SYLLABLE CIEUC YI NIEUNCIEUC
-<UC9AA> \xA3\x76 |0 # HANGUL SYLLABLE CIEUC YI NIEUNHIEUH
-<UC9AB> \xA3\x77 |0 # HANGUL SYLLABLE CIEUC YI TIKEUT
-<UC9AC> \xA3\x78 |0 # HANGUL SYLLABLE CIEUC YI RIEUL
-<UC9AD> \xA3\x79 |0 # HANGUL SYLLABLE CIEUC YI RIEULKIYEOK
-<UC9AE> \xA3\x7A |0 # HANGUL SYLLABLE CIEUC YI RIEULMIEUM
-<UC9AF> \xA3\x81 |0 # HANGUL SYLLABLE CIEUC YI RIEULPIEUP
-<UC9B0> \xA3\x82 |0 # HANGUL SYLLABLE CIEUC YI RIEULSIOS
-<UC9B1> \xA3\x83 |0 # HANGUL SYLLABLE CIEUC YI RIEULTHIEUTH
-<UC9B2> \xA3\x84 |0 # HANGUL SYLLABLE CIEUC YI RIEULPHIEUPH
-<UC9B3> \xA3\x85 |0 # HANGUL SYLLABLE CIEUC YI RIEULHIEUH
-<UC9B4> \xA3\x86 |0 # HANGUL SYLLABLE CIEUC YI MIEUM
-<UC9B5> \xA3\x87 |0 # HANGUL SYLLABLE CIEUC YI PIEUP
-<UC9B6> \xA3\x88 |0 # HANGUL SYLLABLE CIEUC YI PIEUPSIOS
-<UC9B7> \xA3\x89 |0 # HANGUL SYLLABLE CIEUC YI SIOS
-<UC9B8> \xA3\x8A |0 # HANGUL SYLLABLE CIEUC YI SSANGSIOS
-<UC9B9> \xA3\x8B |0 # HANGUL SYLLABLE CIEUC YI IEUNG
-<UC9BA> \xA3\x8C |0 # HANGUL SYLLABLE CIEUC YI CIEUC
-<UC9BB> \xA3\x8D |0 # HANGUL SYLLABLE CIEUC YI CHIEUCH
-<UC9BC> \xA3\x8E |0 # HANGUL SYLLABLE CIEUC YI KHIEUKH
-<UC9BD> \xA3\x8F |0 # HANGUL SYLLABLE CIEUC YI THIEUTH
-<UC9BE> \xA3\x90 |0 # HANGUL SYLLABLE CIEUC YI PHIEUPH
-<UC9BF> \xA3\x91 |0 # HANGUL SYLLABLE CIEUC YI HIEUH
-<UC9C0> \xC1\xF6 |0 # HANGUL SYLLABLE CIEUC I
-<UC9C1> \xC1\xF7 |0 # HANGUL SYLLABLE CIEUC I KIYEOK
-<UC9C2> \xA3\x92 |0 # HANGUL SYLLABLE CIEUC I SSANGKIYEOK
-<UC9C3> \xA3\x93 |0 # HANGUL SYLLABLE CIEUC I KIYEOKSIOS
-<UC9C4> \xC1\xF8 |0 # HANGUL SYLLABLE CIEUC I NIEUN
-<UC9C5> \xA3\x94 |0 # HANGUL SYLLABLE CIEUC I NIEUNCIEUC
-<UC9C6> \xA3\x95 |0 # HANGUL SYLLABLE CIEUC I NIEUNHIEUH
-<UC9C7> \xC1\xF9 |0 # HANGUL SYLLABLE CIEUC I TIKEUT
-<UC9C8> \xC1\xFA |0 # HANGUL SYLLABLE CIEUC I RIEUL
-<UC9C9> \xA3\x96 |0 # HANGUL SYLLABLE CIEUC I RIEULKIYEOK
-<UC9CA> \xC1\xFB |0 # HANGUL SYLLABLE CIEUC I RIEULMIEUM
-<UC9CB> \xA3\x97 |0 # HANGUL SYLLABLE CIEUC I RIEULPIEUP
-<UC9CC> \xA3\x98 |0 # HANGUL SYLLABLE CIEUC I RIEULSIOS
-<UC9CD> \xA3\x99 |0 # HANGUL SYLLABLE CIEUC I RIEULTHIEUTH
-<UC9CE> \xA3\x9A |0 # HANGUL SYLLABLE CIEUC I RIEULPHIEUPH
-<UC9CF> \xA3\x9B |0 # HANGUL SYLLABLE CIEUC I RIEULHIEUH
-<UC9D0> \xC1\xFC |0 # HANGUL SYLLABLE CIEUC I MIEUM
-<UC9D1> \xC1\xFD |0 # HANGUL SYLLABLE CIEUC I PIEUP
-<UC9D2> \xA3\x9C |0 # HANGUL SYLLABLE CIEUC I PIEUPSIOS
-<UC9D3> \xC1\xFE |0 # HANGUL SYLLABLE CIEUC I SIOS
-<UC9D4> \xA3\x9D |0 # HANGUL SYLLABLE CIEUC I SSANGSIOS
-<UC9D5> \xC2\xA1 |0 # HANGUL SYLLABLE CIEUC I IEUNG
-<UC9D6> \xC2\xA2 |0 # HANGUL SYLLABLE CIEUC I CIEUC
-<UC9D7> \xA3\x9E |0 # HANGUL SYLLABLE CIEUC I CHIEUCH
-<UC9D8> \xA3\x9F |0 # HANGUL SYLLABLE CIEUC I KHIEUKH
-<UC9D9> \xC2\xA3 |0 # HANGUL SYLLABLE CIEUC I THIEUTH
-<UC9DA> \xC2\xA4 |0 # HANGUL SYLLABLE CIEUC I PHIEUPH
-<UC9DB> \xA3\xA0 |0 # HANGUL SYLLABLE CIEUC I HIEUH
-<UC9DC> \xC2\xA5 |0 # HANGUL SYLLABLE SSANGCIEUC A
-<UC9DD> \xC2\xA6 |0 # HANGUL SYLLABLE SSANGCIEUC A KIYEOK
-<UC9DE> \xA4\x41 |0 # HANGUL SYLLABLE SSANGCIEUC A SSANGKIYEOK
-<UC9DF> \xA4\x42 |0 # HANGUL SYLLABLE SSANGCIEUC A KIYEOKSIOS
-<UC9E0> \xC2\xA7 |0 # HANGUL SYLLABLE SSANGCIEUC A NIEUN
-<UC9E1> \xA4\x43 |0 # HANGUL SYLLABLE SSANGCIEUC A NIEUNCIEUC
-<UC9E2> \xC2\xA8 |0 # HANGUL SYLLABLE SSANGCIEUC A NIEUNHIEUH
-<UC9E3> \xA4\x44 |0 # HANGUL SYLLABLE SSANGCIEUC A TIKEUT
-<UC9E4> \xC2\xA9 |0 # HANGUL SYLLABLE SSANGCIEUC A RIEUL
-<UC9E5> \xA4\x45 |0 # HANGUL SYLLABLE SSANGCIEUC A RIEULKIYEOK
-<UC9E6> \xA4\x46 |0 # HANGUL SYLLABLE SSANGCIEUC A RIEULMIEUM
-<UC9E7> \xC2\xAA |0 # HANGUL SYLLABLE SSANGCIEUC A RIEULPIEUP
-<UC9E8> \xA4\x47 |0 # HANGUL SYLLABLE SSANGCIEUC A RIEULSIOS
-<UC9E9> \xA4\x48 |0 # HANGUL SYLLABLE SSANGCIEUC A RIEULTHIEUTH
-<UC9EA> \xA4\x49 |0 # HANGUL SYLLABLE SSANGCIEUC A RIEULPHIEUPH
-<UC9EB> \xA4\x4A |0 # HANGUL SYLLABLE SSANGCIEUC A RIEULHIEUH
-<UC9EC> \xC2\xAB |0 # HANGUL SYLLABLE SSANGCIEUC A MIEUM
-<UC9ED> \xC2\xAC |0 # HANGUL SYLLABLE SSANGCIEUC A PIEUP
-<UC9EE> \xA4\x4B |0 # HANGUL SYLLABLE SSANGCIEUC A PIEUPSIOS
-<UC9EF> \xC2\xAD |0 # HANGUL SYLLABLE SSANGCIEUC A SIOS
-<UC9F0> \xC2\xAE |0 # HANGUL SYLLABLE SSANGCIEUC A SSANGSIOS
-<UC9F1> \xC2\xAF |0 # HANGUL SYLLABLE SSANGCIEUC A IEUNG
-<UC9F2> \xA4\x4C |0 # HANGUL SYLLABLE SSANGCIEUC A CIEUC
-<UC9F3> \xA4\x4D |0 # HANGUL SYLLABLE SSANGCIEUC A CHIEUCH
-<UC9F4> \xA4\x4E |0 # HANGUL SYLLABLE SSANGCIEUC A KHIEUKH
-<UC9F5> \xA4\x4F |0 # HANGUL SYLLABLE SSANGCIEUC A THIEUTH
-<UC9F6> \xA4\x50 |0 # HANGUL SYLLABLE SSANGCIEUC A PHIEUPH
-<UC9F7> \xA4\x51 |0 # HANGUL SYLLABLE SSANGCIEUC A HIEUH
-<UC9F8> \xC2\xB0 |0 # HANGUL SYLLABLE SSANGCIEUC AE
-<UC9F9> \xC2\xB1 |0 # HANGUL SYLLABLE SSANGCIEUC AE KIYEOK
-<UC9FA> \xA4\x52 |0 # HANGUL SYLLABLE SSANGCIEUC AE SSANGKIYEOK
-<UC9FB> \xA4\x53 |0 # HANGUL SYLLABLE SSANGCIEUC AE KIYEOKSIOS
-<UC9FC> \xC2\xB2 |0 # HANGUL SYLLABLE SSANGCIEUC AE NIEUN
-<UC9FD> \xA4\x54 |0 # HANGUL SYLLABLE SSANGCIEUC AE NIEUNCIEUC
-<UC9FE> \xA4\x55 |0 # HANGUL SYLLABLE SSANGCIEUC AE NIEUNHIEUH
-<UC9FF> \xA4\x56 |0 # HANGUL SYLLABLE SSANGCIEUC AE TIKEUT
-<UCA00> \xC2\xB3 |0 # HANGUL SYLLABLE SSANGCIEUC AE RIEUL
-<UCA01> \xA4\x57 |0 # HANGUL SYLLABLE SSANGCIEUC AE RIEULKIYEOK
-<UCA02> \xA4\x58 |0 # HANGUL SYLLABLE SSANGCIEUC AE RIEULMIEUM
-<UCA03> \xA4\x59 |0 # HANGUL SYLLABLE SSANGCIEUC AE RIEULPIEUP
-<UCA04> \xA4\x5A |0 # HANGUL SYLLABLE SSANGCIEUC AE RIEULSIOS
-<UCA05> \xA4\x61 |0 # HANGUL SYLLABLE SSANGCIEUC AE RIEULTHIEUTH
-<UCA06> \xA4\x62 |0 # HANGUL SYLLABLE SSANGCIEUC AE RIEULPHIEUPH
-<UCA07> \xA4\x63 |0 # HANGUL SYLLABLE SSANGCIEUC AE RIEULHIEUH
-<UCA08> \xC2\xB4 |0 # HANGUL SYLLABLE SSANGCIEUC AE MIEUM
-<UCA09> \xC2\xB5 |0 # HANGUL SYLLABLE SSANGCIEUC AE PIEUP
-<UCA0A> \xA4\x64 |0 # HANGUL SYLLABLE SSANGCIEUC AE PIEUPSIOS
-<UCA0B> \xC2\xB6 |0 # HANGUL SYLLABLE SSANGCIEUC AE SIOS
-<UCA0C> \xC2\xB7 |0 # HANGUL SYLLABLE SSANGCIEUC AE SSANGSIOS
-<UCA0D> \xC2\xB8 |0 # HANGUL SYLLABLE SSANGCIEUC AE IEUNG
-<UCA0E> \xA4\x65 |0 # HANGUL SYLLABLE SSANGCIEUC AE CIEUC
-<UCA0F> \xA4\x66 |0 # HANGUL SYLLABLE SSANGCIEUC AE CHIEUCH
-<UCA10> \xA4\x67 |0 # HANGUL SYLLABLE SSANGCIEUC AE KHIEUKH
-<UCA11> \xA4\x68 |0 # HANGUL SYLLABLE SSANGCIEUC AE THIEUTH
-<UCA12> \xA4\x69 |0 # HANGUL SYLLABLE SSANGCIEUC AE PHIEUPH
-<UCA13> \xA4\x6A |0 # HANGUL SYLLABLE SSANGCIEUC AE HIEUH
-<UCA14> \xC2\xB9 |0 # HANGUL SYLLABLE SSANGCIEUC YA
-<UCA15> \xA4\x6B |0 # HANGUL SYLLABLE SSANGCIEUC YA KIYEOK
-<UCA16> \xA4\x6C |0 # HANGUL SYLLABLE SSANGCIEUC YA SSANGKIYEOK
-<UCA17> \xA4\x6D |0 # HANGUL SYLLABLE SSANGCIEUC YA KIYEOKSIOS
-<UCA18> \xC2\xBA |0 # HANGUL SYLLABLE SSANGCIEUC YA NIEUN
-<UCA19> \xA4\x6E |0 # HANGUL SYLLABLE SSANGCIEUC YA NIEUNCIEUC
-<UCA1A> \xA4\x6F |0 # HANGUL SYLLABLE SSANGCIEUC YA NIEUNHIEUH
-<UCA1B> \xA4\x70 |0 # HANGUL SYLLABLE SSANGCIEUC YA TIKEUT
-<UCA1C> \xA4\x71 |0 # HANGUL SYLLABLE SSANGCIEUC YA RIEUL
-<UCA1D> \xA4\x72 |0 # HANGUL SYLLABLE SSANGCIEUC YA RIEULKIYEOK
-<UCA1E> \xA4\x73 |0 # HANGUL SYLLABLE SSANGCIEUC YA RIEULMIEUM
-<UCA1F> \xA4\x74 |0 # HANGUL SYLLABLE SSANGCIEUC YA RIEULPIEUP
-<UCA20> \xA4\x75 |0 # HANGUL SYLLABLE SSANGCIEUC YA RIEULSIOS
-<UCA21> \xA4\x76 |0 # HANGUL SYLLABLE SSANGCIEUC YA RIEULTHIEUTH
-<UCA22> \xA4\x77 |0 # HANGUL SYLLABLE SSANGCIEUC YA RIEULPHIEUPH
-<UCA23> \xA4\x78 |0 # HANGUL SYLLABLE SSANGCIEUC YA RIEULHIEUH
-<UCA24> \xA4\x79 |0 # HANGUL SYLLABLE SSANGCIEUC YA MIEUM
-<UCA25> \xA4\x7A |0 # HANGUL SYLLABLE SSANGCIEUC YA PIEUP
-<UCA26> \xA4\x81 |0 # HANGUL SYLLABLE SSANGCIEUC YA PIEUPSIOS
-<UCA27> \xA4\x82 |0 # HANGUL SYLLABLE SSANGCIEUC YA SIOS
-<UCA28> \xA4\x83 |0 # HANGUL SYLLABLE SSANGCIEUC YA SSANGSIOS
-<UCA29> \xC2\xBB |0 # HANGUL SYLLABLE SSANGCIEUC YA IEUNG
-<UCA2A> \xA4\x84 |0 # HANGUL SYLLABLE SSANGCIEUC YA CIEUC
-<UCA2B> \xA4\x85 |0 # HANGUL SYLLABLE SSANGCIEUC YA CHIEUCH
-<UCA2C> \xA4\x86 |0 # HANGUL SYLLABLE SSANGCIEUC YA KHIEUKH
-<UCA2D> \xA4\x87 |0 # HANGUL SYLLABLE SSANGCIEUC YA THIEUTH
-<UCA2E> \xA4\x88 |0 # HANGUL SYLLABLE SSANGCIEUC YA PHIEUPH
-<UCA2F> \xA4\x89 |0 # HANGUL SYLLABLE SSANGCIEUC YA HIEUH
-<UCA30> \xA4\x8A |0 # HANGUL SYLLABLE SSANGCIEUC YAE
-<UCA31> \xA4\x8B |0 # HANGUL SYLLABLE SSANGCIEUC YAE KIYEOK
-<UCA32> \xA4\x8C |0 # HANGUL SYLLABLE SSANGCIEUC YAE SSANGKIYEOK
-<UCA33> \xA4\x8D |0 # HANGUL SYLLABLE SSANGCIEUC YAE KIYEOKSIOS
-<UCA34> \xA4\x8E |0 # HANGUL SYLLABLE SSANGCIEUC YAE NIEUN
-<UCA35> \xA4\x8F |0 # HANGUL SYLLABLE SSANGCIEUC YAE NIEUNCIEUC
-<UCA36> \xA4\x90 |0 # HANGUL SYLLABLE SSANGCIEUC YAE NIEUNHIEUH
-<UCA37> \xA4\x91 |0 # HANGUL SYLLABLE SSANGCIEUC YAE TIKEUT
-<UCA38> \xA4\x92 |0 # HANGUL SYLLABLE SSANGCIEUC YAE RIEUL
-<UCA39> \xA4\x93 |0 # HANGUL SYLLABLE SSANGCIEUC YAE RIEULKIYEOK
-<UCA3A> \xA4\x94 |0 # HANGUL SYLLABLE SSANGCIEUC YAE RIEULMIEUM
-<UCA3B> \xA4\x95 |0 # HANGUL SYLLABLE SSANGCIEUC YAE RIEULPIEUP
-<UCA3C> \xA4\x96 |0 # HANGUL SYLLABLE SSANGCIEUC YAE RIEULSIOS
-<UCA3D> \xA4\x97 |0 # HANGUL SYLLABLE SSANGCIEUC YAE RIEULTHIEUTH
-<UCA3E> \xA4\x98 |0 # HANGUL SYLLABLE SSANGCIEUC YAE RIEULPHIEUPH
-<UCA3F> \xA4\x99 |0 # HANGUL SYLLABLE SSANGCIEUC YAE RIEULHIEUH
-<UCA40> \xA4\x9A |0 # HANGUL SYLLABLE SSANGCIEUC YAE MIEUM
-<UCA41> \xA4\x9B |0 # HANGUL SYLLABLE SSANGCIEUC YAE PIEUP
-<UCA42> \xA4\x9C |0 # HANGUL SYLLABLE SSANGCIEUC YAE PIEUPSIOS
-<UCA43> \xA4\x9D |0 # HANGUL SYLLABLE SSANGCIEUC YAE SIOS
-<UCA44> \xA4\x9E |0 # HANGUL SYLLABLE SSANGCIEUC YAE SSANGSIOS
-<UCA45> \xA4\x9F |0 # HANGUL SYLLABLE SSANGCIEUC YAE IEUNG
-<UCA46> \xA4\xA0 |0 # HANGUL SYLLABLE SSANGCIEUC YAE CIEUC
-<UCA47> \xA5\x41 |0 # HANGUL SYLLABLE SSANGCIEUC YAE CHIEUCH
-<UCA48> \xA5\x42 |0 # HANGUL SYLLABLE SSANGCIEUC YAE KHIEUKH
-<UCA49> \xA5\x43 |0 # HANGUL SYLLABLE SSANGCIEUC YAE THIEUTH
-<UCA4A> \xA5\x44 |0 # HANGUL SYLLABLE SSANGCIEUC YAE PHIEUPH
-<UCA4B> \xA5\x45 |0 # HANGUL SYLLABLE SSANGCIEUC YAE HIEUH
-<UCA4C> \xC2\xBC |0 # HANGUL SYLLABLE SSANGCIEUC EO
-<UCA4D> \xC2\xBD |0 # HANGUL SYLLABLE SSANGCIEUC EO KIYEOK
-<UCA4E> \xA5\x46 |0 # HANGUL SYLLABLE SSANGCIEUC EO SSANGKIYEOK
-<UCA4F> \xA5\x47 |0 # HANGUL SYLLABLE SSANGCIEUC EO KIYEOKSIOS
-<UCA50> \xC2\xBE |0 # HANGUL SYLLABLE SSANGCIEUC EO NIEUN
-<UCA51> \xA5\x48 |0 # HANGUL SYLLABLE SSANGCIEUC EO NIEUNCIEUC
-<UCA52> \xA5\x49 |0 # HANGUL SYLLABLE SSANGCIEUC EO NIEUNHIEUH
-<UCA53> \xA5\x4A |0 # HANGUL SYLLABLE SSANGCIEUC EO TIKEUT
-<UCA54> \xC2\xBF |0 # HANGUL SYLLABLE SSANGCIEUC EO RIEUL
-<UCA55> \xA5\x4B |0 # HANGUL SYLLABLE SSANGCIEUC EO RIEULKIYEOK
-<UCA56> \xA5\x4C |0 # HANGUL SYLLABLE SSANGCIEUC EO RIEULMIEUM
-<UCA57> \xA5\x4D |0 # HANGUL SYLLABLE SSANGCIEUC EO RIEULPIEUP
-<UCA58> \xA5\x4E |0 # HANGUL SYLLABLE SSANGCIEUC EO RIEULSIOS
-<UCA59> \xA5\x4F |0 # HANGUL SYLLABLE SSANGCIEUC EO RIEULTHIEUTH
-<UCA5A> \xA5\x50 |0 # HANGUL SYLLABLE SSANGCIEUC EO RIEULPHIEUPH
-<UCA5B> \xA5\x51 |0 # HANGUL SYLLABLE SSANGCIEUC EO RIEULHIEUH
-<UCA5C> \xC2\xC0 |0 # HANGUL SYLLABLE SSANGCIEUC EO MIEUM
-<UCA5D> \xC2\xC1 |0 # HANGUL SYLLABLE SSANGCIEUC EO PIEUP
-<UCA5E> \xA5\x52 |0 # HANGUL SYLLABLE SSANGCIEUC EO PIEUPSIOS
-<UCA5F> \xC2\xC2 |0 # HANGUL SYLLABLE SSANGCIEUC EO SIOS
-<UCA60> \xC2\xC3 |0 # HANGUL SYLLABLE SSANGCIEUC EO SSANGSIOS
-<UCA61> \xC2\xC4 |0 # HANGUL SYLLABLE SSANGCIEUC EO IEUNG
-<UCA62> \xA5\x53 |0 # HANGUL SYLLABLE SSANGCIEUC EO CIEUC
-<UCA63> \xA5\x54 |0 # HANGUL SYLLABLE SSANGCIEUC EO CHIEUCH
-<UCA64> \xA5\x55 |0 # HANGUL SYLLABLE SSANGCIEUC EO KHIEUKH
-<UCA65> \xA5\x56 |0 # HANGUL SYLLABLE SSANGCIEUC EO THIEUTH
-<UCA66> \xA5\x57 |0 # HANGUL SYLLABLE SSANGCIEUC EO PHIEUPH
-<UCA67> \xA5\x58 |0 # HANGUL SYLLABLE SSANGCIEUC EO HIEUH
-<UCA68> \xC2\xC5 |0 # HANGUL SYLLABLE SSANGCIEUC E
-<UCA69> \xA5\x59 |0 # HANGUL SYLLABLE SSANGCIEUC E KIYEOK
-<UCA6A> \xA5\x5A |0 # HANGUL SYLLABLE SSANGCIEUC E SSANGKIYEOK
-<UCA6B> \xA5\x61 |0 # HANGUL SYLLABLE SSANGCIEUC E KIYEOKSIOS
-<UCA6C> \xA5\x62 |0 # HANGUL SYLLABLE SSANGCIEUC E NIEUN
-<UCA6D> \xA5\x63 |0 # HANGUL SYLLABLE SSANGCIEUC E NIEUNCIEUC
-<UCA6E> \xA5\x64 |0 # HANGUL SYLLABLE SSANGCIEUC E NIEUNHIEUH
-<UCA6F> \xA5\x65 |0 # HANGUL SYLLABLE SSANGCIEUC E TIKEUT
-<UCA70> \xA5\x66 |0 # HANGUL SYLLABLE SSANGCIEUC E RIEUL
-<UCA71> \xA5\x67 |0 # HANGUL SYLLABLE SSANGCIEUC E RIEULKIYEOK
-<UCA72> \xA5\x68 |0 # HANGUL SYLLABLE SSANGCIEUC E RIEULMIEUM
-<UCA73> \xA5\x69 |0 # HANGUL SYLLABLE SSANGCIEUC E RIEULPIEUP
-<UCA74> \xA5\x6A |0 # HANGUL SYLLABLE SSANGCIEUC E RIEULSIOS
-<UCA75> \xA5\x6B |0 # HANGUL SYLLABLE SSANGCIEUC E RIEULTHIEUTH
-<UCA76> \xA5\x6C |0 # HANGUL SYLLABLE SSANGCIEUC E RIEULPHIEUPH
-<UCA77> \xA5\x6D |0 # HANGUL SYLLABLE SSANGCIEUC E RIEULHIEUH
-<UCA78> \xA5\x6E |0 # HANGUL SYLLABLE SSANGCIEUC E MIEUM
-<UCA79> \xA5\x6F |0 # HANGUL SYLLABLE SSANGCIEUC E PIEUP
-<UCA7A> \xA5\x70 |0 # HANGUL SYLLABLE SSANGCIEUC E PIEUPSIOS
-<UCA7B> \xA5\x71 |0 # HANGUL SYLLABLE SSANGCIEUC E SIOS
-<UCA7C> \xA5\x72 |0 # HANGUL SYLLABLE SSANGCIEUC E SSANGSIOS
-<UCA7D> \xC2\xC6 |0 # HANGUL SYLLABLE SSANGCIEUC E IEUNG
-<UCA7E> \xA5\x73 |0 # HANGUL SYLLABLE SSANGCIEUC E CIEUC
-<UCA7F> \xA5\x74 |0 # HANGUL SYLLABLE SSANGCIEUC E CHIEUCH
-<UCA80> \xA5\x75 |0 # HANGUL SYLLABLE SSANGCIEUC E KHIEUKH
-<UCA81> \xA5\x76 |0 # HANGUL SYLLABLE SSANGCIEUC E THIEUTH
-<UCA82> \xA5\x77 |0 # HANGUL SYLLABLE SSANGCIEUC E PHIEUPH
-<UCA83> \xA5\x78 |0 # HANGUL SYLLABLE SSANGCIEUC E HIEUH
-<UCA84> \xC2\xC7 |0 # HANGUL SYLLABLE SSANGCIEUC YEO
-<UCA85> \xA5\x79 |0 # HANGUL SYLLABLE SSANGCIEUC YEO KIYEOK
-<UCA86> \xA5\x7A |0 # HANGUL SYLLABLE SSANGCIEUC YEO SSANGKIYEOK
-<UCA87> \xA5\x81 |0 # HANGUL SYLLABLE SSANGCIEUC YEO KIYEOKSIOS
-<UCA88> \xA5\x82 |0 # HANGUL SYLLABLE SSANGCIEUC YEO NIEUN
-<UCA89> \xA5\x83 |0 # HANGUL SYLLABLE SSANGCIEUC YEO NIEUNCIEUC
-<UCA8A> \xA5\x84 |0 # HANGUL SYLLABLE SSANGCIEUC YEO NIEUNHIEUH
-<UCA8B> \xA5\x85 |0 # HANGUL SYLLABLE SSANGCIEUC YEO TIKEUT
-<UCA8C> \xA5\x86 |0 # HANGUL SYLLABLE SSANGCIEUC YEO RIEUL
-<UCA8D> \xA5\x87 |0 # HANGUL SYLLABLE SSANGCIEUC YEO RIEULKIYEOK
-<UCA8E> \xA5\x88 |0 # HANGUL SYLLABLE SSANGCIEUC YEO RIEULMIEUM
-<UCA8F> \xA5\x89 |0 # HANGUL SYLLABLE SSANGCIEUC YEO RIEULPIEUP
-<UCA90> \xA5\x8A |0 # HANGUL SYLLABLE SSANGCIEUC YEO RIEULSIOS
-<UCA91> \xA5\x8B |0 # HANGUL SYLLABLE SSANGCIEUC YEO RIEULTHIEUTH
-<UCA92> \xA5\x8C |0 # HANGUL SYLLABLE SSANGCIEUC YEO RIEULPHIEUPH
-<UCA93> \xA5\x8D |0 # HANGUL SYLLABLE SSANGCIEUC YEO RIEULHIEUH
-<UCA94> \xA5\x8E |0 # HANGUL SYLLABLE SSANGCIEUC YEO MIEUM
-<UCA95> \xA5\x8F |0 # HANGUL SYLLABLE SSANGCIEUC YEO PIEUP
-<UCA96> \xA5\x90 |0 # HANGUL SYLLABLE SSANGCIEUC YEO PIEUPSIOS
-<UCA97> \xA5\x91 |0 # HANGUL SYLLABLE SSANGCIEUC YEO SIOS
-<UCA98> \xC2\xC8 |0 # HANGUL SYLLABLE SSANGCIEUC YEO SSANGSIOS
-<UCA99> \xA5\x92 |0 # HANGUL SYLLABLE SSANGCIEUC YEO IEUNG
-<UCA9A> \xA5\x93 |0 # HANGUL SYLLABLE SSANGCIEUC YEO CIEUC
-<UCA9B> \xA5\x94 |0 # HANGUL SYLLABLE SSANGCIEUC YEO CHIEUCH
-<UCA9C> \xA5\x95 |0 # HANGUL SYLLABLE SSANGCIEUC YEO KHIEUKH
-<UCA9D> \xA5\x96 |0 # HANGUL SYLLABLE SSANGCIEUC YEO THIEUTH
-<UCA9E> \xA5\x97 |0 # HANGUL SYLLABLE SSANGCIEUC YEO PHIEUPH
-<UCA9F> \xA5\x98 |0 # HANGUL SYLLABLE SSANGCIEUC YEO HIEUH
-<UCAA0> \xA5\x99 |0 # HANGUL SYLLABLE SSANGCIEUC YE
-<UCAA1> \xA5\x9A |0 # HANGUL SYLLABLE SSANGCIEUC YE KIYEOK
-<UCAA2> \xA5\x9B |0 # HANGUL SYLLABLE SSANGCIEUC YE SSANGKIYEOK
-<UCAA3> \xA5\x9C |0 # HANGUL SYLLABLE SSANGCIEUC YE KIYEOKSIOS
-<UCAA4> \xA5\x9D |0 # HANGUL SYLLABLE SSANGCIEUC YE NIEUN
-<UCAA5> \xA5\x9E |0 # HANGUL SYLLABLE SSANGCIEUC YE NIEUNCIEUC
-<UCAA6> \xA5\x9F |0 # HANGUL SYLLABLE SSANGCIEUC YE NIEUNHIEUH
-<UCAA7> \xA5\xA0 |0 # HANGUL SYLLABLE SSANGCIEUC YE TIKEUT
-<UCAA8> \xA6\x41 |0 # HANGUL SYLLABLE SSANGCIEUC YE RIEUL
-<UCAA9> \xA6\x42 |0 # HANGUL SYLLABLE SSANGCIEUC YE RIEULKIYEOK
-<UCAAA> \xA6\x43 |0 # HANGUL SYLLABLE SSANGCIEUC YE RIEULMIEUM
-<UCAAB> \xA6\x44 |0 # HANGUL SYLLABLE SSANGCIEUC YE RIEULPIEUP
-<UCAAC> \xA6\x45 |0 # HANGUL SYLLABLE SSANGCIEUC YE RIEULSIOS
-<UCAAD> \xA6\x46 |0 # HANGUL SYLLABLE SSANGCIEUC YE RIEULTHIEUTH
-<UCAAE> \xA6\x47 |0 # HANGUL SYLLABLE SSANGCIEUC YE RIEULPHIEUPH
-<UCAAF> \xA6\x48 |0 # HANGUL SYLLABLE SSANGCIEUC YE RIEULHIEUH
-<UCAB0> \xA6\x49 |0 # HANGUL SYLLABLE SSANGCIEUC YE MIEUM
-<UCAB1> \xA6\x4A |0 # HANGUL SYLLABLE SSANGCIEUC YE PIEUP
-<UCAB2> \xA6\x4B |0 # HANGUL SYLLABLE SSANGCIEUC YE PIEUPSIOS
-<UCAB3> \xA6\x4C |0 # HANGUL SYLLABLE SSANGCIEUC YE SIOS
-<UCAB4> \xA6\x4D |0 # HANGUL SYLLABLE SSANGCIEUC YE SSANGSIOS
-<UCAB5> \xA6\x4E |0 # HANGUL SYLLABLE SSANGCIEUC YE IEUNG
-<UCAB6> \xA6\x4F |0 # HANGUL SYLLABLE SSANGCIEUC YE CIEUC
-<UCAB7> \xA6\x50 |0 # HANGUL SYLLABLE SSANGCIEUC YE CHIEUCH
-<UCAB8> \xA6\x51 |0 # HANGUL SYLLABLE SSANGCIEUC YE KHIEUKH
-<UCAB9> \xA6\x52 |0 # HANGUL SYLLABLE SSANGCIEUC YE THIEUTH
-<UCABA> \xA6\x53 |0 # HANGUL SYLLABLE SSANGCIEUC YE PHIEUPH
-<UCABB> \xA6\x54 |0 # HANGUL SYLLABLE SSANGCIEUC YE HIEUH
-<UCABC> \xC2\xC9 |0 # HANGUL SYLLABLE SSANGCIEUC O
-<UCABD> \xC2\xCA |0 # HANGUL SYLLABLE SSANGCIEUC O KIYEOK
-<UCABE> \xA6\x55 |0 # HANGUL SYLLABLE SSANGCIEUC O SSANGKIYEOK
-<UCABF> \xA6\x56 |0 # HANGUL SYLLABLE SSANGCIEUC O KIYEOKSIOS
-<UCAC0> \xC2\xCB |0 # HANGUL SYLLABLE SSANGCIEUC O NIEUN
-<UCAC1> \xA6\x57 |0 # HANGUL SYLLABLE SSANGCIEUC O NIEUNCIEUC
-<UCAC2> \xA6\x58 |0 # HANGUL SYLLABLE SSANGCIEUC O NIEUNHIEUH
-<UCAC3> \xA6\x59 |0 # HANGUL SYLLABLE SSANGCIEUC O TIKEUT
-<UCAC4> \xC2\xCC |0 # HANGUL SYLLABLE SSANGCIEUC O RIEUL
-<UCAC5> \xA6\x5A |0 # HANGUL SYLLABLE SSANGCIEUC O RIEULKIYEOK
-<UCAC6> \xA6\x61 |0 # HANGUL SYLLABLE SSANGCIEUC O RIEULMIEUM
-<UCAC7> \xA6\x62 |0 # HANGUL SYLLABLE SSANGCIEUC O RIEULPIEUP
-<UCAC8> \xA6\x63 |0 # HANGUL SYLLABLE SSANGCIEUC O RIEULSIOS
-<UCAC9> \xA6\x64 |0 # HANGUL SYLLABLE SSANGCIEUC O RIEULTHIEUTH
-<UCACA> \xA6\x65 |0 # HANGUL SYLLABLE SSANGCIEUC O RIEULPHIEUPH
-<UCACB> \xA6\x66 |0 # HANGUL SYLLABLE SSANGCIEUC O RIEULHIEUH
-<UCACC> \xC2\xCD |0 # HANGUL SYLLABLE SSANGCIEUC O MIEUM
-<UCACD> \xC2\xCE |0 # HANGUL SYLLABLE SSANGCIEUC O PIEUP
-<UCACE> \xA6\x67 |0 # HANGUL SYLLABLE SSANGCIEUC O PIEUPSIOS
-<UCACF> \xC2\xCF |0 # HANGUL SYLLABLE SSANGCIEUC O SIOS
-<UCAD0> \xA6\x68 |0 # HANGUL SYLLABLE SSANGCIEUC O SSANGSIOS
-<UCAD1> \xC2\xD0 |0 # HANGUL SYLLABLE SSANGCIEUC O IEUNG
-<UCAD2> \xA6\x69 |0 # HANGUL SYLLABLE SSANGCIEUC O CIEUC
-<UCAD3> \xC2\xD1 |0 # HANGUL SYLLABLE SSANGCIEUC O CHIEUCH
-<UCAD4> \xA6\x6A |0 # HANGUL SYLLABLE SSANGCIEUC O KHIEUKH
-<UCAD5> \xA6\x6B |0 # HANGUL SYLLABLE SSANGCIEUC O THIEUTH
-<UCAD6> \xA6\x6C |0 # HANGUL SYLLABLE SSANGCIEUC O PHIEUPH
-<UCAD7> \xA6\x6D |0 # HANGUL SYLLABLE SSANGCIEUC O HIEUH
-<UCAD8> \xC2\xD2 |0 # HANGUL SYLLABLE SSANGCIEUC WA
-<UCAD9> \xC2\xD3 |0 # HANGUL SYLLABLE SSANGCIEUC WA KIYEOK
-<UCADA> \xA6\x6E |0 # HANGUL SYLLABLE SSANGCIEUC WA SSANGKIYEOK
-<UCADB> \xA6\x6F |0 # HANGUL SYLLABLE SSANGCIEUC WA KIYEOKSIOS
-<UCADC> \xA6\x70 |0 # HANGUL SYLLABLE SSANGCIEUC WA NIEUN
-<UCADD> \xA6\x71 |0 # HANGUL SYLLABLE SSANGCIEUC WA NIEUNCIEUC
-<UCADE> \xA6\x72 |0 # HANGUL SYLLABLE SSANGCIEUC WA NIEUNHIEUH
-<UCADF> \xA6\x73 |0 # HANGUL SYLLABLE SSANGCIEUC WA TIKEUT
-<UCAE0> \xC2\xD4 |0 # HANGUL SYLLABLE SSANGCIEUC WA RIEUL
-<UCAE1> \xA6\x74 |0 # HANGUL SYLLABLE SSANGCIEUC WA RIEULKIYEOK
-<UCAE2> \xA6\x75 |0 # HANGUL SYLLABLE SSANGCIEUC WA RIEULMIEUM
-<UCAE3> \xA6\x76 |0 # HANGUL SYLLABLE SSANGCIEUC WA RIEULPIEUP
-<UCAE4> \xA6\x77 |0 # HANGUL SYLLABLE SSANGCIEUC WA RIEULSIOS
-<UCAE5> \xA6\x78 |0 # HANGUL SYLLABLE SSANGCIEUC WA RIEULTHIEUTH
-<UCAE6> \xA6\x79 |0 # HANGUL SYLLABLE SSANGCIEUC WA RIEULPHIEUPH
-<UCAE7> \xA6\x7A |0 # HANGUL SYLLABLE SSANGCIEUC WA RIEULHIEUH
-<UCAE8> \xA6\x81 |0 # HANGUL SYLLABLE SSANGCIEUC WA MIEUM
-<UCAE9> \xA6\x82 |0 # HANGUL SYLLABLE SSANGCIEUC WA PIEUP
-<UCAEA> \xA6\x83 |0 # HANGUL SYLLABLE SSANGCIEUC WA PIEUPSIOS
-<UCAEB> \xA6\x84 |0 # HANGUL SYLLABLE SSANGCIEUC WA SIOS
-<UCAEC> \xC2\xD5 |0 # HANGUL SYLLABLE SSANGCIEUC WA SSANGSIOS
-<UCAED> \xA6\x85 |0 # HANGUL SYLLABLE SSANGCIEUC WA IEUNG
-<UCAEE> \xA6\x86 |0 # HANGUL SYLLABLE SSANGCIEUC WA CIEUC
-<UCAEF> \xA6\x87 |0 # HANGUL SYLLABLE SSANGCIEUC WA CHIEUCH
-<UCAF0> \xA6\x88 |0 # HANGUL SYLLABLE SSANGCIEUC WA KHIEUKH
-<UCAF1> \xA6\x89 |0 # HANGUL SYLLABLE SSANGCIEUC WA THIEUTH
-<UCAF2> \xA6\x8A |0 # HANGUL SYLLABLE SSANGCIEUC WA PHIEUPH
-<UCAF3> \xA6\x8B |0 # HANGUL SYLLABLE SSANGCIEUC WA HIEUH
-<UCAF4> \xC2\xD6 |0 # HANGUL SYLLABLE SSANGCIEUC WAE
-<UCAF5> \xA6\x8C |0 # HANGUL SYLLABLE SSANGCIEUC WAE KIYEOK
-<UCAF6> \xA6\x8D |0 # HANGUL SYLLABLE SSANGCIEUC WAE SSANGKIYEOK
-<UCAF7> \xA6\x8E |0 # HANGUL SYLLABLE SSANGCIEUC WAE KIYEOKSIOS
-<UCAF8> \xA6\x8F |0 # HANGUL SYLLABLE SSANGCIEUC WAE NIEUN
-<UCAF9> \xA6\x90 |0 # HANGUL SYLLABLE SSANGCIEUC WAE NIEUNCIEUC
-<UCAFA> \xA6\x91 |0 # HANGUL SYLLABLE SSANGCIEUC WAE NIEUNHIEUH
-<UCAFB> \xA6\x92 |0 # HANGUL SYLLABLE SSANGCIEUC WAE TIKEUT
-<UCAFC> \xA6\x93 |0 # HANGUL SYLLABLE SSANGCIEUC WAE RIEUL
-<UCAFD> \xA6\x94 |0 # HANGUL SYLLABLE SSANGCIEUC WAE RIEULKIYEOK
-<UCAFE> \xA6\x95 |0 # HANGUL SYLLABLE SSANGCIEUC WAE RIEULMIEUM
-<UCAFF> \xA6\x96 |0 # HANGUL SYLLABLE SSANGCIEUC WAE RIEULPIEUP
-<UCB00> \xA6\x97 |0 # HANGUL SYLLABLE SSANGCIEUC WAE RIEULSIOS
-<UCB01> \xA6\x98 |0 # HANGUL SYLLABLE SSANGCIEUC WAE RIEULTHIEUTH
-<UCB02> \xA6\x99 |0 # HANGUL SYLLABLE SSANGCIEUC WAE RIEULPHIEUPH
-<UCB03> \xA6\x9A |0 # HANGUL SYLLABLE SSANGCIEUC WAE RIEULHIEUH
-<UCB04> \xA6\x9B |0 # HANGUL SYLLABLE SSANGCIEUC WAE MIEUM
-<UCB05> \xA6\x9C |0 # HANGUL SYLLABLE SSANGCIEUC WAE PIEUP
-<UCB06> \xA6\x9D |0 # HANGUL SYLLABLE SSANGCIEUC WAE PIEUPSIOS
-<UCB07> \xA6\x9E |0 # HANGUL SYLLABLE SSANGCIEUC WAE SIOS
-<UCB08> \xC2\xD7 |0 # HANGUL SYLLABLE SSANGCIEUC WAE SSANGSIOS
-<UCB09> \xA6\x9F |0 # HANGUL SYLLABLE SSANGCIEUC WAE IEUNG
-<UCB0A> \xA6\xA0 |0 # HANGUL SYLLABLE SSANGCIEUC WAE CIEUC
-<UCB0B> \xA7\x41 |0 # HANGUL SYLLABLE SSANGCIEUC WAE CHIEUCH
-<UCB0C> \xA7\x42 |0 # HANGUL SYLLABLE SSANGCIEUC WAE KHIEUKH
-<UCB0D> \xA7\x43 |0 # HANGUL SYLLABLE SSANGCIEUC WAE THIEUTH
-<UCB0E> \xA7\x44 |0 # HANGUL SYLLABLE SSANGCIEUC WAE PHIEUPH
-<UCB0F> \xA7\x45 |0 # HANGUL SYLLABLE SSANGCIEUC WAE HIEUH
-<UCB10> \xC2\xD8 |0 # HANGUL SYLLABLE SSANGCIEUC OE
-<UCB11> \xA7\x46 |0 # HANGUL SYLLABLE SSANGCIEUC OE KIYEOK
-<UCB12> \xA7\x47 |0 # HANGUL SYLLABLE SSANGCIEUC OE SSANGKIYEOK
-<UCB13> \xA7\x48 |0 # HANGUL SYLLABLE SSANGCIEUC OE KIYEOKSIOS
-<UCB14> \xC2\xD9 |0 # HANGUL SYLLABLE SSANGCIEUC OE NIEUN
-<UCB15> \xA7\x49 |0 # HANGUL SYLLABLE SSANGCIEUC OE NIEUNCIEUC
-<UCB16> \xA7\x4A |0 # HANGUL SYLLABLE SSANGCIEUC OE NIEUNHIEUH
-<UCB17> \xA7\x4B |0 # HANGUL SYLLABLE SSANGCIEUC OE TIKEUT
-<UCB18> \xC2\xDA |0 # HANGUL SYLLABLE SSANGCIEUC OE RIEUL
-<UCB19> \xA7\x4C |0 # HANGUL SYLLABLE SSANGCIEUC OE RIEULKIYEOK
-<UCB1A> \xA7\x4D |0 # HANGUL SYLLABLE SSANGCIEUC OE RIEULMIEUM
-<UCB1B> \xA7\x4E |0 # HANGUL SYLLABLE SSANGCIEUC OE RIEULPIEUP
-<UCB1C> \xA7\x4F |0 # HANGUL SYLLABLE SSANGCIEUC OE RIEULSIOS
-<UCB1D> \xA7\x50 |0 # HANGUL SYLLABLE SSANGCIEUC OE RIEULTHIEUTH
-<UCB1E> \xA7\x51 |0 # HANGUL SYLLABLE SSANGCIEUC OE RIEULPHIEUPH
-<UCB1F> \xA7\x52 |0 # HANGUL SYLLABLE SSANGCIEUC OE RIEULHIEUH
-<UCB20> \xC2\xDB |0 # HANGUL SYLLABLE SSANGCIEUC OE MIEUM
-<UCB21> \xC2\xDC |0 # HANGUL SYLLABLE SSANGCIEUC OE PIEUP
-<UCB22> \xA7\x53 |0 # HANGUL SYLLABLE SSANGCIEUC OE PIEUPSIOS
-<UCB23> \xA7\x54 |0 # HANGUL SYLLABLE SSANGCIEUC OE SIOS
-<UCB24> \xA7\x55 |0 # HANGUL SYLLABLE SSANGCIEUC OE SSANGSIOS
-<UCB25> \xA7\x56 |0 # HANGUL SYLLABLE SSANGCIEUC OE IEUNG
-<UCB26> \xA7\x57 |0 # HANGUL SYLLABLE SSANGCIEUC OE CIEUC
-<UCB27> \xA7\x58 |0 # HANGUL SYLLABLE SSANGCIEUC OE CHIEUCH
-<UCB28> \xA7\x59 |0 # HANGUL SYLLABLE SSANGCIEUC OE KHIEUKH
-<UCB29> \xA7\x5A |0 # HANGUL SYLLABLE SSANGCIEUC OE THIEUTH
-<UCB2A> \xA7\x61 |0 # HANGUL SYLLABLE SSANGCIEUC OE PHIEUPH
-<UCB2B> \xA7\x62 |0 # HANGUL SYLLABLE SSANGCIEUC OE HIEUH
-<UCB2C> \xA7\x63 |0 # HANGUL SYLLABLE SSANGCIEUC YO
-<UCB2D> \xA7\x64 |0 # HANGUL SYLLABLE SSANGCIEUC YO KIYEOK
-<UCB2E> \xA7\x65 |0 # HANGUL SYLLABLE SSANGCIEUC YO SSANGKIYEOK
-<UCB2F> \xA7\x66 |0 # HANGUL SYLLABLE SSANGCIEUC YO KIYEOKSIOS
-<UCB30> \xA7\x67 |0 # HANGUL SYLLABLE SSANGCIEUC YO NIEUN
-<UCB31> \xA7\x68 |0 # HANGUL SYLLABLE SSANGCIEUC YO NIEUNCIEUC
-<UCB32> \xA7\x69 |0 # HANGUL SYLLABLE SSANGCIEUC YO NIEUNHIEUH
-<UCB33> \xA7\x6A |0 # HANGUL SYLLABLE SSANGCIEUC YO TIKEUT
-<UCB34> \xA7\x6B |0 # HANGUL SYLLABLE SSANGCIEUC YO RIEUL
-<UCB35> \xA7\x6C |0 # HANGUL SYLLABLE SSANGCIEUC YO RIEULKIYEOK
-<UCB36> \xA7\x6D |0 # HANGUL SYLLABLE SSANGCIEUC YO RIEULMIEUM
-<UCB37> \xA7\x6E |0 # HANGUL SYLLABLE SSANGCIEUC YO RIEULPIEUP
-<UCB38> \xA7\x6F |0 # HANGUL SYLLABLE SSANGCIEUC YO RIEULSIOS
-<UCB39> \xA7\x70 |0 # HANGUL SYLLABLE SSANGCIEUC YO RIEULTHIEUTH
-<UCB3A> \xA7\x71 |0 # HANGUL SYLLABLE SSANGCIEUC YO RIEULPHIEUPH
-<UCB3B> \xA7\x72 |0 # HANGUL SYLLABLE SSANGCIEUC YO RIEULHIEUH
-<UCB3C> \xA7\x73 |0 # HANGUL SYLLABLE SSANGCIEUC YO MIEUM
-<UCB3D> \xA7\x74 |0 # HANGUL SYLLABLE SSANGCIEUC YO PIEUP
-<UCB3E> \xA7\x75 |0 # HANGUL SYLLABLE SSANGCIEUC YO PIEUPSIOS
-<UCB3F> \xA7\x76 |0 # HANGUL SYLLABLE SSANGCIEUC YO SIOS
-<UCB40> \xA7\x77 |0 # HANGUL SYLLABLE SSANGCIEUC YO SSANGSIOS
-<UCB41> \xC2\xDD |0 # HANGUL SYLLABLE SSANGCIEUC YO IEUNG
-<UCB42> \xA7\x78 |0 # HANGUL SYLLABLE SSANGCIEUC YO CIEUC
-<UCB43> \xA7\x79 |0 # HANGUL SYLLABLE SSANGCIEUC YO CHIEUCH
-<UCB44> \xA7\x7A |0 # HANGUL SYLLABLE SSANGCIEUC YO KHIEUKH
-<UCB45> \xA7\x81 |0 # HANGUL SYLLABLE SSANGCIEUC YO THIEUTH
-<UCB46> \xA7\x82 |0 # HANGUL SYLLABLE SSANGCIEUC YO PHIEUPH
-<UCB47> \xA7\x83 |0 # HANGUL SYLLABLE SSANGCIEUC YO HIEUH
-<UCB48> \xC2\xDE |0 # HANGUL SYLLABLE SSANGCIEUC U
-<UCB49> \xC2\xDF |0 # HANGUL SYLLABLE SSANGCIEUC U KIYEOK
-<UCB4A> \xA7\x84 |0 # HANGUL SYLLABLE SSANGCIEUC U SSANGKIYEOK
-<UCB4B> \xA7\x85 |0 # HANGUL SYLLABLE SSANGCIEUC U KIYEOKSIOS
-<UCB4C> \xC2\xE0 |0 # HANGUL SYLLABLE SSANGCIEUC U NIEUN
-<UCB4D> \xA7\x86 |0 # HANGUL SYLLABLE SSANGCIEUC U NIEUNCIEUC
-<UCB4E> \xA7\x87 |0 # HANGUL SYLLABLE SSANGCIEUC U NIEUNHIEUH
-<UCB4F> \xA7\x88 |0 # HANGUL SYLLABLE SSANGCIEUC U TIKEUT
-<UCB50> \xC2\xE1 |0 # HANGUL SYLLABLE SSANGCIEUC U RIEUL
-<UCB51> \xA7\x89 |0 # HANGUL SYLLABLE SSANGCIEUC U RIEULKIYEOK
-<UCB52> \xA7\x8A |0 # HANGUL SYLLABLE SSANGCIEUC U RIEULMIEUM
-<UCB53> \xA7\x8B |0 # HANGUL SYLLABLE SSANGCIEUC U RIEULPIEUP
-<UCB54> \xA7\x8C |0 # HANGUL SYLLABLE SSANGCIEUC U RIEULSIOS
-<UCB55> \xA7\x8D |0 # HANGUL SYLLABLE SSANGCIEUC U RIEULTHIEUTH
-<UCB56> \xA7\x8E |0 # HANGUL SYLLABLE SSANGCIEUC U RIEULPHIEUPH
-<UCB57> \xA7\x8F |0 # HANGUL SYLLABLE SSANGCIEUC U RIEULHIEUH
-<UCB58> \xC2\xE2 |0 # HANGUL SYLLABLE SSANGCIEUC U MIEUM
-<UCB59> \xC2\xE3 |0 # HANGUL SYLLABLE SSANGCIEUC U PIEUP
-<UCB5A> \xA7\x90 |0 # HANGUL SYLLABLE SSANGCIEUC U PIEUPSIOS
-<UCB5B> \xA7\x91 |0 # HANGUL SYLLABLE SSANGCIEUC U SIOS
-<UCB5C> \xA7\x92 |0 # HANGUL SYLLABLE SSANGCIEUC U SSANGSIOS
-<UCB5D> \xC2\xE4 |0 # HANGUL SYLLABLE SSANGCIEUC U IEUNG
-<UCB5E> \xA7\x93 |0 # HANGUL SYLLABLE SSANGCIEUC U CIEUC
-<UCB5F> \xA7\x94 |0 # HANGUL SYLLABLE SSANGCIEUC U CHIEUCH
-<UCB60> \xA7\x95 |0 # HANGUL SYLLABLE SSANGCIEUC U KHIEUKH
-<UCB61> \xA7\x96 |0 # HANGUL SYLLABLE SSANGCIEUC U THIEUTH
-<UCB62> \xA7\x97 |0 # HANGUL SYLLABLE SSANGCIEUC U PHIEUPH
-<UCB63> \xA7\x98 |0 # HANGUL SYLLABLE SSANGCIEUC U HIEUH
-<UCB64> \xC2\xE5 |0 # HANGUL SYLLABLE SSANGCIEUC WEO
-<UCB65> \xA7\x99 |0 # HANGUL SYLLABLE SSANGCIEUC WEO KIYEOK
-<UCB66> \xA7\x9A |0 # HANGUL SYLLABLE SSANGCIEUC WEO SSANGKIYEOK
-<UCB67> \xA7\x9B |0 # HANGUL SYLLABLE SSANGCIEUC WEO KIYEOKSIOS
-<UCB68> \xA7\x9C |0 # HANGUL SYLLABLE SSANGCIEUC WEO NIEUN
-<UCB69> \xA7\x9D |0 # HANGUL SYLLABLE SSANGCIEUC WEO NIEUNCIEUC
-<UCB6A> \xA7\x9E |0 # HANGUL SYLLABLE SSANGCIEUC WEO NIEUNHIEUH
-<UCB6B> \xA7\x9F |0 # HANGUL SYLLABLE SSANGCIEUC WEO TIKEUT
-<UCB6C> \xA7\xA0 |0 # HANGUL SYLLABLE SSANGCIEUC WEO RIEUL
-<UCB6D> \xA8\x41 |0 # HANGUL SYLLABLE SSANGCIEUC WEO RIEULKIYEOK
-<UCB6E> \xA8\x42 |0 # HANGUL SYLLABLE SSANGCIEUC WEO RIEULMIEUM
-<UCB6F> \xA8\x43 |0 # HANGUL SYLLABLE SSANGCIEUC WEO RIEULPIEUP
-<UCB70> \xA8\x44 |0 # HANGUL SYLLABLE SSANGCIEUC WEO RIEULSIOS
-<UCB71> \xA8\x45 |0 # HANGUL SYLLABLE SSANGCIEUC WEO RIEULTHIEUTH
-<UCB72> \xA8\x46 |0 # HANGUL SYLLABLE SSANGCIEUC WEO RIEULPHIEUPH
-<UCB73> \xA8\x47 |0 # HANGUL SYLLABLE SSANGCIEUC WEO RIEULHIEUH
-<UCB74> \xA8\x48 |0 # HANGUL SYLLABLE SSANGCIEUC WEO MIEUM
-<UCB75> \xA8\x49 |0 # HANGUL SYLLABLE SSANGCIEUC WEO PIEUP
-<UCB76> \xA8\x4A |0 # HANGUL SYLLABLE SSANGCIEUC WEO PIEUPSIOS
-<UCB77> \xA8\x4B |0 # HANGUL SYLLABLE SSANGCIEUC WEO SIOS
-<UCB78> \xC2\xE6 |0 # HANGUL SYLLABLE SSANGCIEUC WEO SSANGSIOS
-<UCB79> \xC2\xE7 |0 # HANGUL SYLLABLE SSANGCIEUC WEO IEUNG
-<UCB7A> \xA8\x4C |0 # HANGUL SYLLABLE SSANGCIEUC WEO CIEUC
-<UCB7B> \xA8\x4D |0 # HANGUL SYLLABLE SSANGCIEUC WEO CHIEUCH
-<UCB7C> \xA8\x4E |0 # HANGUL SYLLABLE SSANGCIEUC WEO KHIEUKH
-<UCB7D> \xA8\x4F |0 # HANGUL SYLLABLE SSANGCIEUC WEO THIEUTH
-<UCB7E> \xA8\x50 |0 # HANGUL SYLLABLE SSANGCIEUC WEO PHIEUPH
-<UCB7F> \xA8\x51 |0 # HANGUL SYLLABLE SSANGCIEUC WEO HIEUH
-<UCB80> \xA8\x52 |0 # HANGUL SYLLABLE SSANGCIEUC WE
-<UCB81> \xA8\x53 |0 # HANGUL SYLLABLE SSANGCIEUC WE KIYEOK
-<UCB82> \xA8\x54 |0 # HANGUL SYLLABLE SSANGCIEUC WE SSANGKIYEOK
-<UCB83> \xA8\x55 |0 # HANGUL SYLLABLE SSANGCIEUC WE KIYEOKSIOS
-<UCB84> \xA8\x56 |0 # HANGUL SYLLABLE SSANGCIEUC WE NIEUN
-<UCB85> \xA8\x57 |0 # HANGUL SYLLABLE SSANGCIEUC WE NIEUNCIEUC
-<UCB86> \xA8\x58 |0 # HANGUL SYLLABLE SSANGCIEUC WE NIEUNHIEUH
-<UCB87> \xA8\x59 |0 # HANGUL SYLLABLE SSANGCIEUC WE TIKEUT
-<UCB88> \xA8\x5A |0 # HANGUL SYLLABLE SSANGCIEUC WE RIEUL
-<UCB89> \xA8\x61 |0 # HANGUL SYLLABLE SSANGCIEUC WE RIEULKIYEOK
-<UCB8A> \xA8\x62 |0 # HANGUL SYLLABLE SSANGCIEUC WE RIEULMIEUM
-<UCB8B> \xA8\x63 |0 # HANGUL SYLLABLE SSANGCIEUC WE RIEULPIEUP
-<UCB8C> \xA8\x64 |0 # HANGUL SYLLABLE SSANGCIEUC WE RIEULSIOS
-<UCB8D> \xA8\x65 |0 # HANGUL SYLLABLE SSANGCIEUC WE RIEULTHIEUTH
-<UCB8E> \xA8\x66 |0 # HANGUL SYLLABLE SSANGCIEUC WE RIEULPHIEUPH
-<UCB8F> \xA8\x67 |0 # HANGUL SYLLABLE SSANGCIEUC WE RIEULHIEUH
-<UCB90> \xA8\x68 |0 # HANGUL SYLLABLE SSANGCIEUC WE MIEUM
-<UCB91> \xA8\x69 |0 # HANGUL SYLLABLE SSANGCIEUC WE PIEUP
-<UCB92> \xA8\x6A |0 # HANGUL SYLLABLE SSANGCIEUC WE PIEUPSIOS
-<UCB93> \xA8\x6B |0 # HANGUL SYLLABLE SSANGCIEUC WE SIOS
-<UCB94> \xA8\x6C |0 # HANGUL SYLLABLE SSANGCIEUC WE SSANGSIOS
-<UCB95> \xA8\x6D |0 # HANGUL SYLLABLE SSANGCIEUC WE IEUNG
-<UCB96> \xA8\x6E |0 # HANGUL SYLLABLE SSANGCIEUC WE CIEUC
-<UCB97> \xA8\x6F |0 # HANGUL SYLLABLE SSANGCIEUC WE CHIEUCH
-<UCB98> \xA8\x70 |0 # HANGUL SYLLABLE SSANGCIEUC WE KHIEUKH
-<UCB99> \xA8\x71 |0 # HANGUL SYLLABLE SSANGCIEUC WE THIEUTH
-<UCB9A> \xA8\x72 |0 # HANGUL SYLLABLE SSANGCIEUC WE PHIEUPH
-<UCB9B> \xA8\x73 |0 # HANGUL SYLLABLE SSANGCIEUC WE HIEUH
-<UCB9C> \xC2\xE8 |0 # HANGUL SYLLABLE SSANGCIEUC WI
-<UCB9D> \xA8\x74 |0 # HANGUL SYLLABLE SSANGCIEUC WI KIYEOK
-<UCB9E> \xA8\x75 |0 # HANGUL SYLLABLE SSANGCIEUC WI SSANGKIYEOK
-<UCB9F> \xA8\x76 |0 # HANGUL SYLLABLE SSANGCIEUC WI KIYEOKSIOS
-<UCBA0> \xA8\x77 |0 # HANGUL SYLLABLE SSANGCIEUC WI NIEUN
-<UCBA1> \xA8\x78 |0 # HANGUL SYLLABLE SSANGCIEUC WI NIEUNCIEUC
-<UCBA2> \xA8\x79 |0 # HANGUL SYLLABLE SSANGCIEUC WI NIEUNHIEUH
-<UCBA3> \xA8\x7A |0 # HANGUL SYLLABLE SSANGCIEUC WI TIKEUT
-<UCBA4> \xA8\x81 |0 # HANGUL SYLLABLE SSANGCIEUC WI RIEUL
-<UCBA5> \xA8\x82 |0 # HANGUL SYLLABLE SSANGCIEUC WI RIEULKIYEOK
-<UCBA6> \xA8\x83 |0 # HANGUL SYLLABLE SSANGCIEUC WI RIEULMIEUM
-<UCBA7> \xA8\x84 |0 # HANGUL SYLLABLE SSANGCIEUC WI RIEULPIEUP
-<UCBA8> \xA8\x85 |0 # HANGUL SYLLABLE SSANGCIEUC WI RIEULSIOS
-<UCBA9> \xA8\x86 |0 # HANGUL SYLLABLE SSANGCIEUC WI RIEULTHIEUTH
-<UCBAA> \xA8\x87 |0 # HANGUL SYLLABLE SSANGCIEUC WI RIEULPHIEUPH
-<UCBAB> \xA8\x88 |0 # HANGUL SYLLABLE SSANGCIEUC WI RIEULHIEUH
-<UCBAC> \xA8\x89 |0 # HANGUL SYLLABLE SSANGCIEUC WI MIEUM
-<UCBAD> \xA8\x8A |0 # HANGUL SYLLABLE SSANGCIEUC WI PIEUP
-<UCBAE> \xA8\x8B |0 # HANGUL SYLLABLE SSANGCIEUC WI PIEUPSIOS
-<UCBAF> \xA8\x8C |0 # HANGUL SYLLABLE SSANGCIEUC WI SIOS
-<UCBB0> \xA8\x8D |0 # HANGUL SYLLABLE SSANGCIEUC WI SSANGSIOS
-<UCBB1> \xA8\x8E |0 # HANGUL SYLLABLE SSANGCIEUC WI IEUNG
-<UCBB2> \xA8\x8F |0 # HANGUL SYLLABLE SSANGCIEUC WI CIEUC
-<UCBB3> \xA8\x90 |0 # HANGUL SYLLABLE SSANGCIEUC WI CHIEUCH
-<UCBB4> \xA8\x91 |0 # HANGUL SYLLABLE SSANGCIEUC WI KHIEUKH
-<UCBB5> \xA8\x92 |0 # HANGUL SYLLABLE SSANGCIEUC WI THIEUTH
-<UCBB6> \xA8\x93 |0 # HANGUL SYLLABLE SSANGCIEUC WI PHIEUPH
-<UCBB7> \xA8\x94 |0 # HANGUL SYLLABLE SSANGCIEUC WI HIEUH
-<UCBB8> \xC2\xE9 |0 # HANGUL SYLLABLE SSANGCIEUC YU
-<UCBB9> \xA8\x95 |0 # HANGUL SYLLABLE SSANGCIEUC YU KIYEOK
-<UCBBA> \xA8\x96 |0 # HANGUL SYLLABLE SSANGCIEUC YU SSANGKIYEOK
-<UCBBB> \xA8\x97 |0 # HANGUL SYLLABLE SSANGCIEUC YU KIYEOKSIOS
-<UCBBC> \xA8\x98 |0 # HANGUL SYLLABLE SSANGCIEUC YU NIEUN
-<UCBBD> \xA8\x99 |0 # HANGUL SYLLABLE SSANGCIEUC YU NIEUNCIEUC
-<UCBBE> \xA8\x9A |0 # HANGUL SYLLABLE SSANGCIEUC YU NIEUNHIEUH
-<UCBBF> \xA8\x9B |0 # HANGUL SYLLABLE SSANGCIEUC YU TIKEUT
-<UCBC0> \xA8\x9C |0 # HANGUL SYLLABLE SSANGCIEUC YU RIEUL
-<UCBC1> \xA8\x9D |0 # HANGUL SYLLABLE SSANGCIEUC YU RIEULKIYEOK
-<UCBC2> \xA8\x9E |0 # HANGUL SYLLABLE SSANGCIEUC YU RIEULMIEUM
-<UCBC3> \xA8\x9F |0 # HANGUL SYLLABLE SSANGCIEUC YU RIEULPIEUP
-<UCBC4> \xA8\xA0 |0 # HANGUL SYLLABLE SSANGCIEUC YU RIEULSIOS
-<UCBC5> \xA9\x41 |0 # HANGUL SYLLABLE SSANGCIEUC YU RIEULTHIEUTH
-<UCBC6> \xA9\x42 |0 # HANGUL SYLLABLE SSANGCIEUC YU RIEULPHIEUPH
-<UCBC7> \xA9\x43 |0 # HANGUL SYLLABLE SSANGCIEUC YU RIEULHIEUH
-<UCBC8> \xA9\x44 |0 # HANGUL SYLLABLE SSANGCIEUC YU MIEUM
-<UCBC9> \xA9\x45 |0 # HANGUL SYLLABLE SSANGCIEUC YU PIEUP
-<UCBCA> \xA9\x46 |0 # HANGUL SYLLABLE SSANGCIEUC YU PIEUPSIOS
-<UCBCB> \xA9\x47 |0 # HANGUL SYLLABLE SSANGCIEUC YU SIOS
-<UCBCC> \xA9\x48 |0 # HANGUL SYLLABLE SSANGCIEUC YU SSANGSIOS
-<UCBCD> \xA9\x49 |0 # HANGUL SYLLABLE SSANGCIEUC YU IEUNG
-<UCBCE> \xA9\x4A |0 # HANGUL SYLLABLE SSANGCIEUC YU CIEUC
-<UCBCF> \xA9\x4B |0 # HANGUL SYLLABLE SSANGCIEUC YU CHIEUCH
-<UCBD0> \xA9\x4C |0 # HANGUL SYLLABLE SSANGCIEUC YU KHIEUKH
-<UCBD1> \xA9\x4D |0 # HANGUL SYLLABLE SSANGCIEUC YU THIEUTH
-<UCBD2> \xA9\x4E |0 # HANGUL SYLLABLE SSANGCIEUC YU PHIEUPH
-<UCBD3> \xA9\x4F |0 # HANGUL SYLLABLE SSANGCIEUC YU HIEUH
-<UCBD4> \xC2\xEA |0 # HANGUL SYLLABLE SSANGCIEUC EU
-<UCBD5> \xA9\x50 |0 # HANGUL SYLLABLE SSANGCIEUC EU KIYEOK
-<UCBD6> \xA9\x51 |0 # HANGUL SYLLABLE SSANGCIEUC EU SSANGKIYEOK
-<UCBD7> \xA9\x52 |0 # HANGUL SYLLABLE SSANGCIEUC EU KIYEOKSIOS
-<UCBD8> \xA9\x53 |0 # HANGUL SYLLABLE SSANGCIEUC EU NIEUN
-<UCBD9> \xA9\x54 |0 # HANGUL SYLLABLE SSANGCIEUC EU NIEUNCIEUC
-<UCBDA> \xA9\x55 |0 # HANGUL SYLLABLE SSANGCIEUC EU NIEUNHIEUH
-<UCBDB> \xA9\x56 |0 # HANGUL SYLLABLE SSANGCIEUC EU TIKEUT
-<UCBDC> \xA9\x57 |0 # HANGUL SYLLABLE SSANGCIEUC EU RIEUL
-<UCBDD> \xA9\x58 |0 # HANGUL SYLLABLE SSANGCIEUC EU RIEULKIYEOK
-<UCBDE> \xA9\x59 |0 # HANGUL SYLLABLE SSANGCIEUC EU RIEULMIEUM
-<UCBDF> \xA9\x5A |0 # HANGUL SYLLABLE SSANGCIEUC EU RIEULPIEUP
-<UCBE0> \xA9\x61 |0 # HANGUL SYLLABLE SSANGCIEUC EU RIEULSIOS
-<UCBE1> \xA9\x62 |0 # HANGUL SYLLABLE SSANGCIEUC EU RIEULTHIEUTH
-<UCBE2> \xA9\x63 |0 # HANGUL SYLLABLE SSANGCIEUC EU RIEULPHIEUPH
-<UCBE3> \xA9\x64 |0 # HANGUL SYLLABLE SSANGCIEUC EU RIEULHIEUH
-<UCBE4> \xC2\xEB |0 # HANGUL SYLLABLE SSANGCIEUC EU MIEUM
-<UCBE5> \xA9\x65 |0 # HANGUL SYLLABLE SSANGCIEUC EU PIEUP
-<UCBE6> \xA9\x66 |0 # HANGUL SYLLABLE SSANGCIEUC EU PIEUPSIOS
-<UCBE7> \xC2\xEC |0 # HANGUL SYLLABLE SSANGCIEUC EU SIOS
-<UCBE8> \xA9\x67 |0 # HANGUL SYLLABLE SSANGCIEUC EU SSANGSIOS
-<UCBE9> \xC2\xED |0 # HANGUL SYLLABLE SSANGCIEUC EU IEUNG
-<UCBEA> \xA9\x68 |0 # HANGUL SYLLABLE SSANGCIEUC EU CIEUC
-<UCBEB> \xA9\x69 |0 # HANGUL SYLLABLE SSANGCIEUC EU CHIEUCH
-<UCBEC> \xA9\x6A |0 # HANGUL SYLLABLE SSANGCIEUC EU KHIEUKH
-<UCBED> \xA9\x6B |0 # HANGUL SYLLABLE SSANGCIEUC EU THIEUTH
-<UCBEE> \xA9\x6C |0 # HANGUL SYLLABLE SSANGCIEUC EU PHIEUPH
-<UCBEF> \xA9\x6D |0 # HANGUL SYLLABLE SSANGCIEUC EU HIEUH
-<UCBF0> \xA9\x6E |0 # HANGUL SYLLABLE SSANGCIEUC YI
-<UCBF1> \xA9\x6F |0 # HANGUL SYLLABLE SSANGCIEUC YI KIYEOK
-<UCBF2> \xA9\x70 |0 # HANGUL SYLLABLE SSANGCIEUC YI SSANGKIYEOK
-<UCBF3> \xA9\x71 |0 # HANGUL SYLLABLE SSANGCIEUC YI KIYEOKSIOS
-<UCBF4> \xA9\x72 |0 # HANGUL SYLLABLE SSANGCIEUC YI NIEUN
-<UCBF5> \xA9\x73 |0 # HANGUL SYLLABLE SSANGCIEUC YI NIEUNCIEUC
-<UCBF6> \xA9\x74 |0 # HANGUL SYLLABLE SSANGCIEUC YI NIEUNHIEUH
-<UCBF7> \xA9\x75 |0 # HANGUL SYLLABLE SSANGCIEUC YI TIKEUT
-<UCBF8> \xA9\x76 |0 # HANGUL SYLLABLE SSANGCIEUC YI RIEUL
-<UCBF9> \xA9\x77 |0 # HANGUL SYLLABLE SSANGCIEUC YI RIEULKIYEOK
-<UCBFA> \xA9\x78 |0 # HANGUL SYLLABLE SSANGCIEUC YI RIEULMIEUM
-<UCBFB> \xA9\x79 |0 # HANGUL SYLLABLE SSANGCIEUC YI RIEULPIEUP
-<UCBFC> \xA9\x7A |0 # HANGUL SYLLABLE SSANGCIEUC YI RIEULSIOS
-<UCBFD> \xA9\x81 |0 # HANGUL SYLLABLE SSANGCIEUC YI RIEULTHIEUTH
-<UCBFE> \xA9\x82 |0 # HANGUL SYLLABLE SSANGCIEUC YI RIEULPHIEUPH
-<UCBFF> \xA9\x83 |0 # HANGUL SYLLABLE SSANGCIEUC YI RIEULHIEUH
-<UCC00> \xA9\x84 |0 # HANGUL SYLLABLE SSANGCIEUC YI MIEUM
-<UCC01> \xA9\x85 |0 # HANGUL SYLLABLE SSANGCIEUC YI PIEUP
-<UCC02> \xA9\x86 |0 # HANGUL SYLLABLE SSANGCIEUC YI PIEUPSIOS
-<UCC03> \xA9\x87 |0 # HANGUL SYLLABLE SSANGCIEUC YI SIOS
-<UCC04> \xA9\x88 |0 # HANGUL SYLLABLE SSANGCIEUC YI SSANGSIOS
-<UCC05> \xA9\x89 |0 # HANGUL SYLLABLE SSANGCIEUC YI IEUNG
-<UCC06> \xA9\x8A |0 # HANGUL SYLLABLE SSANGCIEUC YI CIEUC
-<UCC07> \xA9\x8B |0 # HANGUL SYLLABLE SSANGCIEUC YI CHIEUCH
-<UCC08> \xA9\x8C |0 # HANGUL SYLLABLE SSANGCIEUC YI KHIEUKH
-<UCC09> \xA9\x8D |0 # HANGUL SYLLABLE SSANGCIEUC YI THIEUTH
-<UCC0A> \xA9\x8E |0 # HANGUL SYLLABLE SSANGCIEUC YI PHIEUPH
-<UCC0B> \xA9\x8F |0 # HANGUL SYLLABLE SSANGCIEUC YI HIEUH
-<UCC0C> \xC2\xEE |0 # HANGUL SYLLABLE SSANGCIEUC I
-<UCC0D> \xC2\xEF |0 # HANGUL SYLLABLE SSANGCIEUC I KIYEOK
-<UCC0E> \xA9\x90 |0 # HANGUL SYLLABLE SSANGCIEUC I SSANGKIYEOK
-<UCC0F> \xA9\x91 |0 # HANGUL SYLLABLE SSANGCIEUC I KIYEOKSIOS
-<UCC10> \xC2\xF0 |0 # HANGUL SYLLABLE SSANGCIEUC I NIEUN
-<UCC11> \xA9\x92 |0 # HANGUL SYLLABLE SSANGCIEUC I NIEUNCIEUC
-<UCC12> \xA9\x93 |0 # HANGUL SYLLABLE SSANGCIEUC I NIEUNHIEUH
-<UCC13> \xA9\x94 |0 # HANGUL SYLLABLE SSANGCIEUC I TIKEUT
-<UCC14> \xC2\xF1 |0 # HANGUL SYLLABLE SSANGCIEUC I RIEUL
-<UCC15> \xA9\x95 |0 # HANGUL SYLLABLE SSANGCIEUC I RIEULKIYEOK
-<UCC16> \xA9\x96 |0 # HANGUL SYLLABLE SSANGCIEUC I RIEULMIEUM
-<UCC17> \xA9\x97 |0 # HANGUL SYLLABLE SSANGCIEUC I RIEULPIEUP
-<UCC18> \xA9\x98 |0 # HANGUL SYLLABLE SSANGCIEUC I RIEULSIOS
-<UCC19> \xA9\x99 |0 # HANGUL SYLLABLE SSANGCIEUC I RIEULTHIEUTH
-<UCC1A> \xA9\x9A |0 # HANGUL SYLLABLE SSANGCIEUC I RIEULPHIEUPH
-<UCC1B> \xA9\x9B |0 # HANGUL SYLLABLE SSANGCIEUC I RIEULHIEUH
-<UCC1C> \xC2\xF2 |0 # HANGUL SYLLABLE SSANGCIEUC I MIEUM
-<UCC1D> \xC2\xF3 |0 # HANGUL SYLLABLE SSANGCIEUC I PIEUP
-<UCC1E> \xA9\x9C |0 # HANGUL SYLLABLE SSANGCIEUC I PIEUPSIOS
-<UCC1F> \xA9\x9D |0 # HANGUL SYLLABLE SSANGCIEUC I SIOS
-<UCC20> \xA9\x9E |0 # HANGUL SYLLABLE SSANGCIEUC I SSANGSIOS
-<UCC21> \xC2\xF4 |0 # HANGUL SYLLABLE SSANGCIEUC I IEUNG
-<UCC22> \xC2\xF5 |0 # HANGUL SYLLABLE SSANGCIEUC I CIEUC
-<UCC23> \xA9\x9F |0 # HANGUL SYLLABLE SSANGCIEUC I CHIEUCH
-<UCC24> \xA9\xA0 |0 # HANGUL SYLLABLE SSANGCIEUC I KHIEUKH
-<UCC25> \xAA\x41 |0 # HANGUL SYLLABLE SSANGCIEUC I THIEUTH
-<UCC26> \xAA\x42 |0 # HANGUL SYLLABLE SSANGCIEUC I PHIEUPH
-<UCC27> \xC2\xF6 |0 # HANGUL SYLLABLE SSANGCIEUC I HIEUH
-<UCC28> \xC2\xF7 |0 # HANGUL SYLLABLE CHIEUCH A
-<UCC29> \xC2\xF8 |0 # HANGUL SYLLABLE CHIEUCH A KIYEOK
-<UCC2A> \xAA\x43 |0 # HANGUL SYLLABLE CHIEUCH A SSANGKIYEOK
-<UCC2B> \xAA\x44 |0 # HANGUL SYLLABLE CHIEUCH A KIYEOKSIOS
-<UCC2C> \xC2\xF9 |0 # HANGUL SYLLABLE CHIEUCH A NIEUN
-<UCC2D> \xAA\x45 |0 # HANGUL SYLLABLE CHIEUCH A NIEUNCIEUC
-<UCC2E> \xC2\xFA |0 # HANGUL SYLLABLE CHIEUCH A NIEUNHIEUH
-<UCC2F> \xAA\x46 |0 # HANGUL SYLLABLE CHIEUCH A TIKEUT
-<UCC30> \xC2\xFB |0 # HANGUL SYLLABLE CHIEUCH A RIEUL
-<UCC31> \xAA\x47 |0 # HANGUL SYLLABLE CHIEUCH A RIEULKIYEOK
-<UCC32> \xAA\x48 |0 # HANGUL SYLLABLE CHIEUCH A RIEULMIEUM
-<UCC33> \xAA\x49 |0 # HANGUL SYLLABLE CHIEUCH A RIEULPIEUP
-<UCC34> \xAA\x4A |0 # HANGUL SYLLABLE CHIEUCH A RIEULSIOS
-<UCC35> \xAA\x4B |0 # HANGUL SYLLABLE CHIEUCH A RIEULTHIEUTH
-<UCC36> \xAA\x4C |0 # HANGUL SYLLABLE CHIEUCH A RIEULPHIEUPH
-<UCC37> \xAA\x4D |0 # HANGUL SYLLABLE CHIEUCH A RIEULHIEUH
-<UCC38> \xC2\xFC |0 # HANGUL SYLLABLE CHIEUCH A MIEUM
-<UCC39> \xC2\xFD |0 # HANGUL SYLLABLE CHIEUCH A PIEUP
-<UCC3A> \xAA\x4E |0 # HANGUL SYLLABLE CHIEUCH A PIEUPSIOS
-<UCC3B> \xC2\xFE |0 # HANGUL SYLLABLE CHIEUCH A SIOS
-<UCC3C> \xC3\xA1 |0 # HANGUL SYLLABLE CHIEUCH A SSANGSIOS
-<UCC3D> \xC3\xA2 |0 # HANGUL SYLLABLE CHIEUCH A IEUNG
-<UCC3E> \xC3\xA3 |0 # HANGUL SYLLABLE CHIEUCH A CIEUC
-<UCC3F> \xAA\x4F |0 # HANGUL SYLLABLE CHIEUCH A CHIEUCH
-<UCC40> \xAA\x50 |0 # HANGUL SYLLABLE CHIEUCH A KHIEUKH
-<UCC41> \xAA\x51 |0 # HANGUL SYLLABLE CHIEUCH A THIEUTH
-<UCC42> \xAA\x52 |0 # HANGUL SYLLABLE CHIEUCH A PHIEUPH
-<UCC43> \xAA\x53 |0 # HANGUL SYLLABLE CHIEUCH A HIEUH
-<UCC44> \xC3\xA4 |0 # HANGUL SYLLABLE CHIEUCH AE
-<UCC45> \xC3\xA5 |0 # HANGUL SYLLABLE CHIEUCH AE KIYEOK
-<UCC46> \xAA\x54 |0 # HANGUL SYLLABLE CHIEUCH AE SSANGKIYEOK
-<UCC47> \xAA\x55 |0 # HANGUL SYLLABLE CHIEUCH AE KIYEOKSIOS
-<UCC48> \xC3\xA6 |0 # HANGUL SYLLABLE CHIEUCH AE NIEUN
-<UCC49> \xAA\x56 |0 # HANGUL SYLLABLE CHIEUCH AE NIEUNCIEUC
-<UCC4A> \xAA\x57 |0 # HANGUL SYLLABLE CHIEUCH AE NIEUNHIEUH
-<UCC4B> \xAA\x58 |0 # HANGUL SYLLABLE CHIEUCH AE TIKEUT
-<UCC4C> \xC3\xA7 |0 # HANGUL SYLLABLE CHIEUCH AE RIEUL
-<UCC4D> \xAA\x59 |0 # HANGUL SYLLABLE CHIEUCH AE RIEULKIYEOK
-<UCC4E> \xAA\x5A |0 # HANGUL SYLLABLE CHIEUCH AE RIEULMIEUM
-<UCC4F> \xAA\x61 |0 # HANGUL SYLLABLE CHIEUCH AE RIEULPIEUP
-<UCC50> \xAA\x62 |0 # HANGUL SYLLABLE CHIEUCH AE RIEULSIOS
-<UCC51> \xAA\x63 |0 # HANGUL SYLLABLE CHIEUCH AE RIEULTHIEUTH
-<UCC52> \xAA\x64 |0 # HANGUL SYLLABLE CHIEUCH AE RIEULPHIEUPH
-<UCC53> \xAA\x65 |0 # HANGUL SYLLABLE CHIEUCH AE RIEULHIEUH
-<UCC54> \xC3\xA8 |0 # HANGUL SYLLABLE CHIEUCH AE MIEUM
-<UCC55> \xC3\xA9 |0 # HANGUL SYLLABLE CHIEUCH AE PIEUP
-<UCC56> \xAA\x66 |0 # HANGUL SYLLABLE CHIEUCH AE PIEUPSIOS
-<UCC57> \xC3\xAA |0 # HANGUL SYLLABLE CHIEUCH AE SIOS
-<UCC58> \xC3\xAB |0 # HANGUL SYLLABLE CHIEUCH AE SSANGSIOS
-<UCC59> \xC3\xAC |0 # HANGUL SYLLABLE CHIEUCH AE IEUNG
-<UCC5A> \xAA\x67 |0 # HANGUL SYLLABLE CHIEUCH AE CIEUC
-<UCC5B> \xAA\x68 |0 # HANGUL SYLLABLE CHIEUCH AE CHIEUCH
-<UCC5C> \xAA\x69 |0 # HANGUL SYLLABLE CHIEUCH AE KHIEUKH
-<UCC5D> \xAA\x6A |0 # HANGUL SYLLABLE CHIEUCH AE THIEUTH
-<UCC5E> \xAA\x6B |0 # HANGUL SYLLABLE CHIEUCH AE PHIEUPH
-<UCC5F> \xAA\x6C |0 # HANGUL SYLLABLE CHIEUCH AE HIEUH
-<UCC60> \xC3\xAD |0 # HANGUL SYLLABLE CHIEUCH YA
-<UCC61> \xAA\x6D |0 # HANGUL SYLLABLE CHIEUCH YA KIYEOK
-<UCC62> \xAA\x6E |0 # HANGUL SYLLABLE CHIEUCH YA SSANGKIYEOK
-<UCC63> \xAA\x6F |0 # HANGUL SYLLABLE CHIEUCH YA KIYEOKSIOS
-<UCC64> \xC3\xAE |0 # HANGUL SYLLABLE CHIEUCH YA NIEUN
-<UCC65> \xAA\x70 |0 # HANGUL SYLLABLE CHIEUCH YA NIEUNCIEUC
-<UCC66> \xC3\xAF |0 # HANGUL SYLLABLE CHIEUCH YA NIEUNHIEUH
-<UCC67> \xAA\x71 |0 # HANGUL SYLLABLE CHIEUCH YA TIKEUT
-<UCC68> \xC3\xB0 |0 # HANGUL SYLLABLE CHIEUCH YA RIEUL
-<UCC69> \xAA\x72 |0 # HANGUL SYLLABLE CHIEUCH YA RIEULKIYEOK
-<UCC6A> \xAA\x73 |0 # HANGUL SYLLABLE CHIEUCH YA RIEULMIEUM
-<UCC6B> \xAA\x74 |0 # HANGUL SYLLABLE CHIEUCH YA RIEULPIEUP
-<UCC6C> \xAA\x75 |0 # HANGUL SYLLABLE CHIEUCH YA RIEULSIOS
-<UCC6D> \xAA\x76 |0 # HANGUL SYLLABLE CHIEUCH YA RIEULTHIEUTH
-<UCC6E> \xAA\x77 |0 # HANGUL SYLLABLE CHIEUCH YA RIEULPHIEUPH
-<UCC6F> \xAA\x78 |0 # HANGUL SYLLABLE CHIEUCH YA RIEULHIEUH
-<UCC70> \xC3\xB1 |0 # HANGUL SYLLABLE CHIEUCH YA MIEUM
-<UCC71> \xAA\x79 |0 # HANGUL SYLLABLE CHIEUCH YA PIEUP
-<UCC72> \xAA\x7A |0 # HANGUL SYLLABLE CHIEUCH YA PIEUPSIOS
-<UCC73> \xAA\x81 |0 # HANGUL SYLLABLE CHIEUCH YA SIOS
-<UCC74> \xAA\x82 |0 # HANGUL SYLLABLE CHIEUCH YA SSANGSIOS
-<UCC75> \xC3\xB2 |0 # HANGUL SYLLABLE CHIEUCH YA IEUNG
-<UCC76> \xAA\x83 |0 # HANGUL SYLLABLE CHIEUCH YA CIEUC
-<UCC77> \xAA\x84 |0 # HANGUL SYLLABLE CHIEUCH YA CHIEUCH
-<UCC78> \xAA\x85 |0 # HANGUL SYLLABLE CHIEUCH YA KHIEUKH
-<UCC79> \xAA\x86 |0 # HANGUL SYLLABLE CHIEUCH YA THIEUTH
-<UCC7A> \xAA\x87 |0 # HANGUL SYLLABLE CHIEUCH YA PHIEUPH
-<UCC7B> \xAA\x88 |0 # HANGUL SYLLABLE CHIEUCH YA HIEUH
-<UCC7C> \xAA\x89 |0 # HANGUL SYLLABLE CHIEUCH YAE
-<UCC7D> \xAA\x8A |0 # HANGUL SYLLABLE CHIEUCH YAE KIYEOK
-<UCC7E> \xAA\x8B |0 # HANGUL SYLLABLE CHIEUCH YAE SSANGKIYEOK
-<UCC7F> \xAA\x8C |0 # HANGUL SYLLABLE CHIEUCH YAE KIYEOKSIOS
-<UCC80> \xAA\x8D |0 # HANGUL SYLLABLE CHIEUCH YAE NIEUN
-<UCC81> \xAA\x8E |0 # HANGUL SYLLABLE CHIEUCH YAE NIEUNCIEUC
-<UCC82> \xAA\x8F |0 # HANGUL SYLLABLE CHIEUCH YAE NIEUNHIEUH
-<UCC83> \xAA\x90 |0 # HANGUL SYLLABLE CHIEUCH YAE TIKEUT
-<UCC84> \xAA\x91 |0 # HANGUL SYLLABLE CHIEUCH YAE RIEUL
-<UCC85> \xAA\x92 |0 # HANGUL SYLLABLE CHIEUCH YAE RIEULKIYEOK
-<UCC86> \xAA\x93 |0 # HANGUL SYLLABLE CHIEUCH YAE RIEULMIEUM
-<UCC87> \xAA\x94 |0 # HANGUL SYLLABLE CHIEUCH YAE RIEULPIEUP
-<UCC88> \xAA\x95 |0 # HANGUL SYLLABLE CHIEUCH YAE RIEULSIOS
-<UCC89> \xAA\x96 |0 # HANGUL SYLLABLE CHIEUCH YAE RIEULTHIEUTH
-<UCC8A> \xAA\x97 |0 # HANGUL SYLLABLE CHIEUCH YAE RIEULPHIEUPH
-<UCC8B> \xAA\x98 |0 # HANGUL SYLLABLE CHIEUCH YAE RIEULHIEUH
-<UCC8C> \xAA\x99 |0 # HANGUL SYLLABLE CHIEUCH YAE MIEUM
-<UCC8D> \xAA\x9A |0 # HANGUL SYLLABLE CHIEUCH YAE PIEUP
-<UCC8E> \xAA\x9B |0 # HANGUL SYLLABLE CHIEUCH YAE PIEUPSIOS
-<UCC8F> \xAA\x9C |0 # HANGUL SYLLABLE CHIEUCH YAE SIOS
-<UCC90> \xAA\x9D |0 # HANGUL SYLLABLE CHIEUCH YAE SSANGSIOS
-<UCC91> \xAA\x9E |0 # HANGUL SYLLABLE CHIEUCH YAE IEUNG
-<UCC92> \xAA\x9F |0 # HANGUL SYLLABLE CHIEUCH YAE CIEUC
-<UCC93> \xAA\xA0 |0 # HANGUL SYLLABLE CHIEUCH YAE CHIEUCH
-<UCC94> \xAB\x41 |0 # HANGUL SYLLABLE CHIEUCH YAE KHIEUKH
-<UCC95> \xAB\x42 |0 # HANGUL SYLLABLE CHIEUCH YAE THIEUTH
-<UCC96> \xAB\x43 |0 # HANGUL SYLLABLE CHIEUCH YAE PHIEUPH
-<UCC97> \xAB\x44 |0 # HANGUL SYLLABLE CHIEUCH YAE HIEUH
-<UCC98> \xC3\xB3 |0 # HANGUL SYLLABLE CHIEUCH EO
-<UCC99> \xC3\xB4 |0 # HANGUL SYLLABLE CHIEUCH EO KIYEOK
-<UCC9A> \xAB\x45 |0 # HANGUL SYLLABLE CHIEUCH EO SSANGKIYEOK
-<UCC9B> \xAB\x46 |0 # HANGUL SYLLABLE CHIEUCH EO KIYEOKSIOS
-<UCC9C> \xC3\xB5 |0 # HANGUL SYLLABLE CHIEUCH EO NIEUN
-<UCC9D> \xAB\x47 |0 # HANGUL SYLLABLE CHIEUCH EO NIEUNCIEUC
-<UCC9E> \xAB\x48 |0 # HANGUL SYLLABLE CHIEUCH EO NIEUNHIEUH
-<UCC9F> \xAB\x49 |0 # HANGUL SYLLABLE CHIEUCH EO TIKEUT
-<UCCA0> \xC3\xB6 |0 # HANGUL SYLLABLE CHIEUCH EO RIEUL
-<UCCA1> \xAB\x4A |0 # HANGUL SYLLABLE CHIEUCH EO RIEULKIYEOK
-<UCCA2> \xAB\x4B |0 # HANGUL SYLLABLE CHIEUCH EO RIEULMIEUM
-<UCCA3> \xAB\x4C |0 # HANGUL SYLLABLE CHIEUCH EO RIEULPIEUP
-<UCCA4> \xAB\x4D |0 # HANGUL SYLLABLE CHIEUCH EO RIEULSIOS
-<UCCA5> \xAB\x4E |0 # HANGUL SYLLABLE CHIEUCH EO RIEULTHIEUTH
-<UCCA6> \xAB\x4F |0 # HANGUL SYLLABLE CHIEUCH EO RIEULPHIEUPH
-<UCCA7> \xAB\x50 |0 # HANGUL SYLLABLE CHIEUCH EO RIEULHIEUH
-<UCCA8> \xC3\xB7 |0 # HANGUL SYLLABLE CHIEUCH EO MIEUM
-<UCCA9> \xC3\xB8 |0 # HANGUL SYLLABLE CHIEUCH EO PIEUP
-<UCCAA> \xAB\x51 |0 # HANGUL SYLLABLE CHIEUCH EO PIEUPSIOS
-<UCCAB> \xC3\xB9 |0 # HANGUL SYLLABLE CHIEUCH EO SIOS
-<UCCAC> \xC3\xBA |0 # HANGUL SYLLABLE CHIEUCH EO SSANGSIOS
-<UCCAD> \xC3\xBB |0 # HANGUL SYLLABLE CHIEUCH EO IEUNG
-<UCCAE> \xAB\x52 |0 # HANGUL SYLLABLE CHIEUCH EO CIEUC
-<UCCAF> \xAB\x53 |0 # HANGUL SYLLABLE CHIEUCH EO CHIEUCH
-<UCCB0> \xAB\x54 |0 # HANGUL SYLLABLE CHIEUCH EO KHIEUKH
-<UCCB1> \xAB\x55 |0 # HANGUL SYLLABLE CHIEUCH EO THIEUTH
-<UCCB2> \xAB\x56 |0 # HANGUL SYLLABLE CHIEUCH EO PHIEUPH
-<UCCB3> \xAB\x57 |0 # HANGUL SYLLABLE CHIEUCH EO HIEUH
-<UCCB4> \xC3\xBC |0 # HANGUL SYLLABLE CHIEUCH E
-<UCCB5> \xC3\xBD |0 # HANGUL SYLLABLE CHIEUCH E KIYEOK
-<UCCB6> \xAB\x58 |0 # HANGUL SYLLABLE CHIEUCH E SSANGKIYEOK
-<UCCB7> \xAB\x59 |0 # HANGUL SYLLABLE CHIEUCH E KIYEOKSIOS
-<UCCB8> \xC3\xBE |0 # HANGUL SYLLABLE CHIEUCH E NIEUN
-<UCCB9> \xAB\x5A |0 # HANGUL SYLLABLE CHIEUCH E NIEUNCIEUC
-<UCCBA> \xAB\x61 |0 # HANGUL SYLLABLE CHIEUCH E NIEUNHIEUH
-<UCCBB> \xAB\x62 |0 # HANGUL SYLLABLE CHIEUCH E TIKEUT
-<UCCBC> \xC3\xBF |0 # HANGUL SYLLABLE CHIEUCH E RIEUL
-<UCCBD> \xAB\x63 |0 # HANGUL SYLLABLE CHIEUCH E RIEULKIYEOK
-<UCCBE> \xAB\x64 |0 # HANGUL SYLLABLE CHIEUCH E RIEULMIEUM
-<UCCBF> \xAB\x65 |0 # HANGUL SYLLABLE CHIEUCH E RIEULPIEUP
-<UCCC0> \xAB\x66 |0 # HANGUL SYLLABLE CHIEUCH E RIEULSIOS
-<UCCC1> \xAB\x67 |0 # HANGUL SYLLABLE CHIEUCH E RIEULTHIEUTH
-<UCCC2> \xAB\x68 |0 # HANGUL SYLLABLE CHIEUCH E RIEULPHIEUPH
-<UCCC3> \xAB\x69 |0 # HANGUL SYLLABLE CHIEUCH E RIEULHIEUH
-<UCCC4> \xC3\xC0 |0 # HANGUL SYLLABLE CHIEUCH E MIEUM
-<UCCC5> \xC3\xC1 |0 # HANGUL SYLLABLE CHIEUCH E PIEUP
-<UCCC6> \xAB\x6A |0 # HANGUL SYLLABLE CHIEUCH E PIEUPSIOS
-<UCCC7> \xC3\xC2 |0 # HANGUL SYLLABLE CHIEUCH E SIOS
-<UCCC8> \xAB\x6B |0 # HANGUL SYLLABLE CHIEUCH E SSANGSIOS
-<UCCC9> \xC3\xC3 |0 # HANGUL SYLLABLE CHIEUCH E IEUNG
-<UCCCA> \xAB\x6C |0 # HANGUL SYLLABLE CHIEUCH E CIEUC
-<UCCCB> \xAB\x6D |0 # HANGUL SYLLABLE CHIEUCH E CHIEUCH
-<UCCCC> \xAB\x6E |0 # HANGUL SYLLABLE CHIEUCH E KHIEUKH
-<UCCCD> \xAB\x6F |0 # HANGUL SYLLABLE CHIEUCH E THIEUTH
-<UCCCE> \xAB\x70 |0 # HANGUL SYLLABLE CHIEUCH E PHIEUPH
-<UCCCF> \xAB\x71 |0 # HANGUL SYLLABLE CHIEUCH E HIEUH
-<UCCD0> \xC3\xC4 |0 # HANGUL SYLLABLE CHIEUCH YEO
-<UCCD1> \xAB\x72 |0 # HANGUL SYLLABLE CHIEUCH YEO KIYEOK
-<UCCD2> \xAB\x73 |0 # HANGUL SYLLABLE CHIEUCH YEO SSANGKIYEOK
-<UCCD3> \xAB\x74 |0 # HANGUL SYLLABLE CHIEUCH YEO KIYEOKSIOS
-<UCCD4> \xC3\xC5 |0 # HANGUL SYLLABLE CHIEUCH YEO NIEUN
-<UCCD5> \xAB\x75 |0 # HANGUL SYLLABLE CHIEUCH YEO NIEUNCIEUC
-<UCCD6> \xAB\x76 |0 # HANGUL SYLLABLE CHIEUCH YEO NIEUNHIEUH
-<UCCD7> \xAB\x77 |0 # HANGUL SYLLABLE CHIEUCH YEO TIKEUT
-<UCCD8> \xAB\x78 |0 # HANGUL SYLLABLE CHIEUCH YEO RIEUL
-<UCCD9> \xAB\x79 |0 # HANGUL SYLLABLE CHIEUCH YEO RIEULKIYEOK
-<UCCDA> \xAB\x7A |0 # HANGUL SYLLABLE CHIEUCH YEO RIEULMIEUM
-<UCCDB> \xAB\x81 |0 # HANGUL SYLLABLE CHIEUCH YEO RIEULPIEUP
-<UCCDC> \xAB\x82 |0 # HANGUL SYLLABLE CHIEUCH YEO RIEULSIOS
-<UCCDD> \xAB\x83 |0 # HANGUL SYLLABLE CHIEUCH YEO RIEULTHIEUTH
-<UCCDE> \xAB\x84 |0 # HANGUL SYLLABLE CHIEUCH YEO RIEULPHIEUPH
-<UCCDF> \xAB\x85 |0 # HANGUL SYLLABLE CHIEUCH YEO RIEULHIEUH
-<UCCE0> \xAB\x86 |0 # HANGUL SYLLABLE CHIEUCH YEO MIEUM
-<UCCE1> \xAB\x87 |0 # HANGUL SYLLABLE CHIEUCH YEO PIEUP
-<UCCE2> \xAB\x88 |0 # HANGUL SYLLABLE CHIEUCH YEO PIEUPSIOS
-<UCCE3> \xAB\x89 |0 # HANGUL SYLLABLE CHIEUCH YEO SIOS
-<UCCE4> \xC3\xC6 |0 # HANGUL SYLLABLE CHIEUCH YEO SSANGSIOS
-<UCCE5> \xAB\x8A |0 # HANGUL SYLLABLE CHIEUCH YEO IEUNG
-<UCCE6> \xAB\x8B |0 # HANGUL SYLLABLE CHIEUCH YEO CIEUC
-<UCCE7> \xAB\x8C |0 # HANGUL SYLLABLE CHIEUCH YEO CHIEUCH
-<UCCE8> \xAB\x8D |0 # HANGUL SYLLABLE CHIEUCH YEO KHIEUKH
-<UCCE9> \xAB\x8E |0 # HANGUL SYLLABLE CHIEUCH YEO THIEUTH
-<UCCEA> \xAB\x8F |0 # HANGUL SYLLABLE CHIEUCH YEO PHIEUPH
-<UCCEB> \xAB\x90 |0 # HANGUL SYLLABLE CHIEUCH YEO HIEUH
-<UCCEC> \xC3\xC7 |0 # HANGUL SYLLABLE CHIEUCH YE
-<UCCED> \xAB\x91 |0 # HANGUL SYLLABLE CHIEUCH YE KIYEOK
-<UCCEE> \xAB\x92 |0 # HANGUL SYLLABLE CHIEUCH YE SSANGKIYEOK
-<UCCEF> \xAB\x93 |0 # HANGUL SYLLABLE CHIEUCH YE KIYEOKSIOS
-<UCCF0> \xC3\xC8 |0 # HANGUL SYLLABLE CHIEUCH YE NIEUN
-<UCCF1> \xAB\x94 |0 # HANGUL SYLLABLE CHIEUCH YE NIEUNCIEUC
-<UCCF2> \xAB\x95 |0 # HANGUL SYLLABLE CHIEUCH YE NIEUNHIEUH
-<UCCF3> \xAB\x96 |0 # HANGUL SYLLABLE CHIEUCH YE TIKEUT
-<UCCF4> \xAB\x97 |0 # HANGUL SYLLABLE CHIEUCH YE RIEUL
-<UCCF5> \xAB\x98 |0 # HANGUL SYLLABLE CHIEUCH YE RIEULKIYEOK
-<UCCF6> \xAB\x99 |0 # HANGUL SYLLABLE CHIEUCH YE RIEULMIEUM
-<UCCF7> \xAB\x9A |0 # HANGUL SYLLABLE CHIEUCH YE RIEULPIEUP
-<UCCF8> \xAB\x9B |0 # HANGUL SYLLABLE CHIEUCH YE RIEULSIOS
-<UCCF9> \xAB\x9C |0 # HANGUL SYLLABLE CHIEUCH YE RIEULTHIEUTH
-<UCCFA> \xAB\x9D |0 # HANGUL SYLLABLE CHIEUCH YE RIEULPHIEUPH
-<UCCFB> \xAB\x9E |0 # HANGUL SYLLABLE CHIEUCH YE RIEULHIEUH
-<UCCFC> \xAB\x9F |0 # HANGUL SYLLABLE CHIEUCH YE MIEUM
-<UCCFD> \xAB\xA0 |0 # HANGUL SYLLABLE CHIEUCH YE PIEUP
-<UCCFE> \xAC\x41 |0 # HANGUL SYLLABLE CHIEUCH YE PIEUPSIOS
-<UCCFF> \xAC\x42 |0 # HANGUL SYLLABLE CHIEUCH YE SIOS
-<UCD00> \xAC\x43 |0 # HANGUL SYLLABLE CHIEUCH YE SSANGSIOS
-<UCD01> \xC3\xC9 |0 # HANGUL SYLLABLE CHIEUCH YE IEUNG
-<UCD02> \xAC\x44 |0 # HANGUL SYLLABLE CHIEUCH YE CIEUC
-<UCD03> \xAC\x45 |0 # HANGUL SYLLABLE CHIEUCH YE CHIEUCH
-<UCD04> \xAC\x46 |0 # HANGUL SYLLABLE CHIEUCH YE KHIEUKH
-<UCD05> \xAC\x47 |0 # HANGUL SYLLABLE CHIEUCH YE THIEUTH
-<UCD06> \xAC\x48 |0 # HANGUL SYLLABLE CHIEUCH YE PHIEUPH
-<UCD07> \xAC\x49 |0 # HANGUL SYLLABLE CHIEUCH YE HIEUH
-<UCD08> \xC3\xCA |0 # HANGUL SYLLABLE CHIEUCH O
-<UCD09> \xC3\xCB |0 # HANGUL SYLLABLE CHIEUCH O KIYEOK
-<UCD0A> \xAC\x4A |0 # HANGUL SYLLABLE CHIEUCH O SSANGKIYEOK
-<UCD0B> \xAC\x4B |0 # HANGUL SYLLABLE CHIEUCH O KIYEOKSIOS
-<UCD0C> \xC3\xCC |0 # HANGUL SYLLABLE CHIEUCH O NIEUN
-<UCD0D> \xAC\x4C |0 # HANGUL SYLLABLE CHIEUCH O NIEUNCIEUC
-<UCD0E> \xAC\x4D |0 # HANGUL SYLLABLE CHIEUCH O NIEUNHIEUH
-<UCD0F> \xAC\x4E |0 # HANGUL SYLLABLE CHIEUCH O TIKEUT
-<UCD10> \xC3\xCD |0 # HANGUL SYLLABLE CHIEUCH O RIEUL
-<UCD11> \xAC\x4F |0 # HANGUL SYLLABLE CHIEUCH O RIEULKIYEOK
-<UCD12> \xAC\x50 |0 # HANGUL SYLLABLE CHIEUCH O RIEULMIEUM
-<UCD13> \xAC\x51 |0 # HANGUL SYLLABLE CHIEUCH O RIEULPIEUP
-<UCD14> \xAC\x52 |0 # HANGUL SYLLABLE CHIEUCH O RIEULSIOS
-<UCD15> \xAC\x53 |0 # HANGUL SYLLABLE CHIEUCH O RIEULTHIEUTH
-<UCD16> \xAC\x54 |0 # HANGUL SYLLABLE CHIEUCH O RIEULPHIEUPH
-<UCD17> \xAC\x55 |0 # HANGUL SYLLABLE CHIEUCH O RIEULHIEUH
-<UCD18> \xC3\xCE |0 # HANGUL SYLLABLE CHIEUCH O MIEUM
-<UCD19> \xC3\xCF |0 # HANGUL SYLLABLE CHIEUCH O PIEUP
-<UCD1A> \xAC\x56 |0 # HANGUL SYLLABLE CHIEUCH O PIEUPSIOS
-<UCD1B> \xC3\xD0 |0 # HANGUL SYLLABLE CHIEUCH O SIOS
-<UCD1C> \xAC\x57 |0 # HANGUL SYLLABLE CHIEUCH O SSANGSIOS
-<UCD1D> \xC3\xD1 |0 # HANGUL SYLLABLE CHIEUCH O IEUNG
-<UCD1E> \xAC\x58 |0 # HANGUL SYLLABLE CHIEUCH O CIEUC
-<UCD1F> \xAC\x59 |0 # HANGUL SYLLABLE CHIEUCH O CHIEUCH
-<UCD20> \xAC\x5A |0 # HANGUL SYLLABLE CHIEUCH O KHIEUKH
-<UCD21> \xAC\x61 |0 # HANGUL SYLLABLE CHIEUCH O THIEUTH
-<UCD22> \xAC\x62 |0 # HANGUL SYLLABLE CHIEUCH O PHIEUPH
-<UCD23> \xAC\x63 |0 # HANGUL SYLLABLE CHIEUCH O HIEUH
-<UCD24> \xC3\xD2 |0 # HANGUL SYLLABLE CHIEUCH WA
-<UCD25> \xAC\x64 |0 # HANGUL SYLLABLE CHIEUCH WA KIYEOK
-<UCD26> \xAC\x65 |0 # HANGUL SYLLABLE CHIEUCH WA SSANGKIYEOK
-<UCD27> \xAC\x66 |0 # HANGUL SYLLABLE CHIEUCH WA KIYEOKSIOS
-<UCD28> \xC3\xD3 |0 # HANGUL SYLLABLE CHIEUCH WA NIEUN
-<UCD29> \xAC\x67 |0 # HANGUL SYLLABLE CHIEUCH WA NIEUNCIEUC
-<UCD2A> \xAC\x68 |0 # HANGUL SYLLABLE CHIEUCH WA NIEUNHIEUH
-<UCD2B> \xAC\x69 |0 # HANGUL SYLLABLE CHIEUCH WA TIKEUT
-<UCD2C> \xC3\xD4 |0 # HANGUL SYLLABLE CHIEUCH WA RIEUL
-<UCD2D> \xAC\x6A |0 # HANGUL SYLLABLE CHIEUCH WA RIEULKIYEOK
-<UCD2E> \xAC\x6B |0 # HANGUL SYLLABLE CHIEUCH WA RIEULMIEUM
-<UCD2F> \xAC\x6C |0 # HANGUL SYLLABLE CHIEUCH WA RIEULPIEUP
-<UCD30> \xAC\x6D |0 # HANGUL SYLLABLE CHIEUCH WA RIEULSIOS
-<UCD31> \xAC\x6E |0 # HANGUL SYLLABLE CHIEUCH WA RIEULTHIEUTH
-<UCD32> \xAC\x6F |0 # HANGUL SYLLABLE CHIEUCH WA RIEULPHIEUPH
-<UCD33> \xAC\x70 |0 # HANGUL SYLLABLE CHIEUCH WA RIEULHIEUH
-<UCD34> \xAC\x71 |0 # HANGUL SYLLABLE CHIEUCH WA MIEUM
-<UCD35> \xAC\x72 |0 # HANGUL SYLLABLE CHIEUCH WA PIEUP
-<UCD36> \xAC\x73 |0 # HANGUL SYLLABLE CHIEUCH WA PIEUPSIOS
-<UCD37> \xAC\x74 |0 # HANGUL SYLLABLE CHIEUCH WA SIOS
-<UCD38> \xAC\x75 |0 # HANGUL SYLLABLE CHIEUCH WA SSANGSIOS
-<UCD39> \xC3\xD5 |0 # HANGUL SYLLABLE CHIEUCH WA IEUNG
-<UCD3A> \xAC\x76 |0 # HANGUL SYLLABLE CHIEUCH WA CIEUC
-<UCD3B> \xAC\x77 |0 # HANGUL SYLLABLE CHIEUCH WA CHIEUCH
-<UCD3C> \xAC\x78 |0 # HANGUL SYLLABLE CHIEUCH WA KHIEUKH
-<UCD3D> \xAC\x79 |0 # HANGUL SYLLABLE CHIEUCH WA THIEUTH
-<UCD3E> \xAC\x7A |0 # HANGUL SYLLABLE CHIEUCH WA PHIEUPH
-<UCD3F> \xAC\x81 |0 # HANGUL SYLLABLE CHIEUCH WA HIEUH
-<UCD40> \xAC\x82 |0 # HANGUL SYLLABLE CHIEUCH WAE
-<UCD41> \xAC\x83 |0 # HANGUL SYLLABLE CHIEUCH WAE KIYEOK
-<UCD42> \xAC\x84 |0 # HANGUL SYLLABLE CHIEUCH WAE SSANGKIYEOK
-<UCD43> \xAC\x85 |0 # HANGUL SYLLABLE CHIEUCH WAE KIYEOKSIOS
-<UCD44> \xAC\x86 |0 # HANGUL SYLLABLE CHIEUCH WAE NIEUN
-<UCD45> \xAC\x87 |0 # HANGUL SYLLABLE CHIEUCH WAE NIEUNCIEUC
-<UCD46> \xAC\x88 |0 # HANGUL SYLLABLE CHIEUCH WAE NIEUNHIEUH
-<UCD47> \xAC\x89 |0 # HANGUL SYLLABLE CHIEUCH WAE TIKEUT
-<UCD48> \xAC\x8A |0 # HANGUL SYLLABLE CHIEUCH WAE RIEUL
-<UCD49> \xAC\x8B |0 # HANGUL SYLLABLE CHIEUCH WAE RIEULKIYEOK
-<UCD4A> \xAC\x8C |0 # HANGUL SYLLABLE CHIEUCH WAE RIEULMIEUM
-<UCD4B> \xAC\x8D |0 # HANGUL SYLLABLE CHIEUCH WAE RIEULPIEUP
-<UCD4C> \xAC\x8E |0 # HANGUL SYLLABLE CHIEUCH WAE RIEULSIOS
-<UCD4D> \xAC\x8F |0 # HANGUL SYLLABLE CHIEUCH WAE RIEULTHIEUTH
-<UCD4E> \xAC\x90 |0 # HANGUL SYLLABLE CHIEUCH WAE RIEULPHIEUPH
-<UCD4F> \xAC\x91 |0 # HANGUL SYLLABLE CHIEUCH WAE RIEULHIEUH
-<UCD50> \xAC\x92 |0 # HANGUL SYLLABLE CHIEUCH WAE MIEUM
-<UCD51> \xAC\x93 |0 # HANGUL SYLLABLE CHIEUCH WAE PIEUP
-<UCD52> \xAC\x94 |0 # HANGUL SYLLABLE CHIEUCH WAE PIEUPSIOS
-<UCD53> \xAC\x95 |0 # HANGUL SYLLABLE CHIEUCH WAE SIOS
-<UCD54> \xAC\x96 |0 # HANGUL SYLLABLE CHIEUCH WAE SSANGSIOS
-<UCD55> \xAC\x97 |0 # HANGUL SYLLABLE CHIEUCH WAE IEUNG
-<UCD56> \xAC\x98 |0 # HANGUL SYLLABLE CHIEUCH WAE CIEUC
-<UCD57> \xAC\x99 |0 # HANGUL SYLLABLE CHIEUCH WAE CHIEUCH
-<UCD58> \xAC\x9A |0 # HANGUL SYLLABLE CHIEUCH WAE KHIEUKH
-<UCD59> \xAC\x9B |0 # HANGUL SYLLABLE CHIEUCH WAE THIEUTH
-<UCD5A> \xAC\x9C |0 # HANGUL SYLLABLE CHIEUCH WAE PHIEUPH
-<UCD5B> \xAC\x9D |0 # HANGUL SYLLABLE CHIEUCH WAE HIEUH
-<UCD5C> \xC3\xD6 |0 # HANGUL SYLLABLE CHIEUCH OE
-<UCD5D> \xAC\x9E |0 # HANGUL SYLLABLE CHIEUCH OE KIYEOK
-<UCD5E> \xAC\x9F |0 # HANGUL SYLLABLE CHIEUCH OE SSANGKIYEOK
-<UCD5F> \xAC\xA0 |0 # HANGUL SYLLABLE CHIEUCH OE KIYEOKSIOS
-<UCD60> \xC3\xD7 |0 # HANGUL SYLLABLE CHIEUCH OE NIEUN
-<UCD61> \xAD\x41 |0 # HANGUL SYLLABLE CHIEUCH OE NIEUNCIEUC
-<UCD62> \xAD\x42 |0 # HANGUL SYLLABLE CHIEUCH OE NIEUNHIEUH
-<UCD63> \xAD\x43 |0 # HANGUL SYLLABLE CHIEUCH OE TIKEUT
-<UCD64> \xC3\xD8 |0 # HANGUL SYLLABLE CHIEUCH OE RIEUL
-<UCD65> \xAD\x44 |0 # HANGUL SYLLABLE CHIEUCH OE RIEULKIYEOK
-<UCD66> \xAD\x45 |0 # HANGUL SYLLABLE CHIEUCH OE RIEULMIEUM
-<UCD67> \xAD\x46 |0 # HANGUL SYLLABLE CHIEUCH OE RIEULPIEUP
-<UCD68> \xAD\x47 |0 # HANGUL SYLLABLE CHIEUCH OE RIEULSIOS
-<UCD69> \xAD\x48 |0 # HANGUL SYLLABLE CHIEUCH OE RIEULTHIEUTH
-<UCD6A> \xAD\x49 |0 # HANGUL SYLLABLE CHIEUCH OE RIEULPHIEUPH
-<UCD6B> \xAD\x4A |0 # HANGUL SYLLABLE CHIEUCH OE RIEULHIEUH
-<UCD6C> \xC3\xD9 |0 # HANGUL SYLLABLE CHIEUCH OE MIEUM
-<UCD6D> \xC3\xDA |0 # HANGUL SYLLABLE CHIEUCH OE PIEUP
-<UCD6E> \xAD\x4B |0 # HANGUL SYLLABLE CHIEUCH OE PIEUPSIOS
-<UCD6F> \xC3\xDB |0 # HANGUL SYLLABLE CHIEUCH OE SIOS
-<UCD70> \xAD\x4C |0 # HANGUL SYLLABLE CHIEUCH OE SSANGSIOS
-<UCD71> \xC3\xDC |0 # HANGUL SYLLABLE CHIEUCH OE IEUNG
-<UCD72> \xAD\x4D |0 # HANGUL SYLLABLE CHIEUCH OE CIEUC
-<UCD73> \xAD\x4E |0 # HANGUL SYLLABLE CHIEUCH OE CHIEUCH
-<UCD74> \xAD\x4F |0 # HANGUL SYLLABLE CHIEUCH OE KHIEUKH
-<UCD75> \xAD\x50 |0 # HANGUL SYLLABLE CHIEUCH OE THIEUTH
-<UCD76> \xAD\x51 |0 # HANGUL SYLLABLE CHIEUCH OE PHIEUPH
-<UCD77> \xAD\x52 |0 # HANGUL SYLLABLE CHIEUCH OE HIEUH
-<UCD78> \xC3\xDD |0 # HANGUL SYLLABLE CHIEUCH YO
-<UCD79> \xAD\x53 |0 # HANGUL SYLLABLE CHIEUCH YO KIYEOK
-<UCD7A> \xAD\x54 |0 # HANGUL SYLLABLE CHIEUCH YO SSANGKIYEOK
-<UCD7B> \xAD\x55 |0 # HANGUL SYLLABLE CHIEUCH YO KIYEOKSIOS
-<UCD7C> \xAD\x56 |0 # HANGUL SYLLABLE CHIEUCH YO NIEUN
-<UCD7D> \xAD\x57 |0 # HANGUL SYLLABLE CHIEUCH YO NIEUNCIEUC
-<UCD7E> \xAD\x58 |0 # HANGUL SYLLABLE CHIEUCH YO NIEUNHIEUH
-<UCD7F> \xAD\x59 |0 # HANGUL SYLLABLE CHIEUCH YO TIKEUT
-<UCD80> \xAD\x5A |0 # HANGUL SYLLABLE CHIEUCH YO RIEUL
-<UCD81> \xAD\x61 |0 # HANGUL SYLLABLE CHIEUCH YO RIEULKIYEOK
-<UCD82> \xAD\x62 |0 # HANGUL SYLLABLE CHIEUCH YO RIEULMIEUM
-<UCD83> \xAD\x63 |0 # HANGUL SYLLABLE CHIEUCH YO RIEULPIEUP
-<UCD84> \xAD\x64 |0 # HANGUL SYLLABLE CHIEUCH YO RIEULSIOS
-<UCD85> \xAD\x65 |0 # HANGUL SYLLABLE CHIEUCH YO RIEULTHIEUTH
-<UCD86> \xAD\x66 |0 # HANGUL SYLLABLE CHIEUCH YO RIEULPHIEUPH
-<UCD87> \xAD\x67 |0 # HANGUL SYLLABLE CHIEUCH YO RIEULHIEUH
-<UCD88> \xC3\xDE |0 # HANGUL SYLLABLE CHIEUCH YO MIEUM
-<UCD89> \xAD\x68 |0 # HANGUL SYLLABLE CHIEUCH YO PIEUP
-<UCD8A> \xAD\x69 |0 # HANGUL SYLLABLE CHIEUCH YO PIEUPSIOS
-<UCD8B> \xAD\x6A |0 # HANGUL SYLLABLE CHIEUCH YO SIOS
-<UCD8C> \xAD\x6B |0 # HANGUL SYLLABLE CHIEUCH YO SSANGSIOS
-<UCD8D> \xAD\x6C |0 # HANGUL SYLLABLE CHIEUCH YO IEUNG
-<UCD8E> \xAD\x6D |0 # HANGUL SYLLABLE CHIEUCH YO CIEUC
-<UCD8F> \xAD\x6E |0 # HANGUL SYLLABLE CHIEUCH YO CHIEUCH
-<UCD90> \xAD\x6F |0 # HANGUL SYLLABLE CHIEUCH YO KHIEUKH
-<UCD91> \xAD\x70 |0 # HANGUL SYLLABLE CHIEUCH YO THIEUTH
-<UCD92> \xAD\x71 |0 # HANGUL SYLLABLE CHIEUCH YO PHIEUPH
-<UCD93> \xAD\x72 |0 # HANGUL SYLLABLE CHIEUCH YO HIEUH
-<UCD94> \xC3\xDF |0 # HANGUL SYLLABLE CHIEUCH U
-<UCD95> \xC3\xE0 |0 # HANGUL SYLLABLE CHIEUCH U KIYEOK
-<UCD96> \xAD\x73 |0 # HANGUL SYLLABLE CHIEUCH U SSANGKIYEOK
-<UCD97> \xAD\x74 |0 # HANGUL SYLLABLE CHIEUCH U KIYEOKSIOS
-<UCD98> \xC3\xE1 |0 # HANGUL SYLLABLE CHIEUCH U NIEUN
-<UCD99> \xAD\x75 |0 # HANGUL SYLLABLE CHIEUCH U NIEUNCIEUC
-<UCD9A> \xAD\x76 |0 # HANGUL SYLLABLE CHIEUCH U NIEUNHIEUH
-<UCD9B> \xAD\x77 |0 # HANGUL SYLLABLE CHIEUCH U TIKEUT
-<UCD9C> \xC3\xE2 |0 # HANGUL SYLLABLE CHIEUCH U RIEUL
-<UCD9D> \xAD\x78 |0 # HANGUL SYLLABLE CHIEUCH U RIEULKIYEOK
-<UCD9E> \xAD\x79 |0 # HANGUL SYLLABLE CHIEUCH U RIEULMIEUM
-<UCD9F> \xAD\x7A |0 # HANGUL SYLLABLE CHIEUCH U RIEULPIEUP
-<UCDA0> \xAD\x81 |0 # HANGUL SYLLABLE CHIEUCH U RIEULSIOS
-<UCDA1> \xAD\x82 |0 # HANGUL SYLLABLE CHIEUCH U RIEULTHIEUTH
-<UCDA2> \xAD\x83 |0 # HANGUL SYLLABLE CHIEUCH U RIEULPHIEUPH
-<UCDA3> \xAD\x84 |0 # HANGUL SYLLABLE CHIEUCH U RIEULHIEUH
-<UCDA4> \xC3\xE3 |0 # HANGUL SYLLABLE CHIEUCH U MIEUM
-<UCDA5> \xC3\xE4 |0 # HANGUL SYLLABLE CHIEUCH U PIEUP
-<UCDA6> \xAD\x85 |0 # HANGUL SYLLABLE CHIEUCH U PIEUPSIOS
-<UCDA7> \xC3\xE5 |0 # HANGUL SYLLABLE CHIEUCH U SIOS
-<UCDA8> \xAD\x86 |0 # HANGUL SYLLABLE CHIEUCH U SSANGSIOS
-<UCDA9> \xC3\xE6 |0 # HANGUL SYLLABLE CHIEUCH U IEUNG
-<UCDAA> \xAD\x87 |0 # HANGUL SYLLABLE CHIEUCH U CIEUC
-<UCDAB> \xAD\x88 |0 # HANGUL SYLLABLE CHIEUCH U CHIEUCH
-<UCDAC> \xAD\x89 |0 # HANGUL SYLLABLE CHIEUCH U KHIEUKH
-<UCDAD> \xAD\x8A |0 # HANGUL SYLLABLE CHIEUCH U THIEUTH
-<UCDAE> \xAD\x8B |0 # HANGUL SYLLABLE CHIEUCH U PHIEUPH
-<UCDAF> \xAD\x8C |0 # HANGUL SYLLABLE CHIEUCH U HIEUH
-<UCDB0> \xC3\xE7 |0 # HANGUL SYLLABLE CHIEUCH WEO
-<UCDB1> \xAD\x8D |0 # HANGUL SYLLABLE CHIEUCH WEO KIYEOK
-<UCDB2> \xAD\x8E |0 # HANGUL SYLLABLE CHIEUCH WEO SSANGKIYEOK
-<UCDB3> \xAD\x8F |0 # HANGUL SYLLABLE CHIEUCH WEO KIYEOKSIOS
-<UCDB4> \xAD\x90 |0 # HANGUL SYLLABLE CHIEUCH WEO NIEUN
-<UCDB5> \xAD\x91 |0 # HANGUL SYLLABLE CHIEUCH WEO NIEUNCIEUC
-<UCDB6> \xAD\x92 |0 # HANGUL SYLLABLE CHIEUCH WEO NIEUNHIEUH
-<UCDB7> \xAD\x93 |0 # HANGUL SYLLABLE CHIEUCH WEO TIKEUT
-<UCDB8> \xAD\x94 |0 # HANGUL SYLLABLE CHIEUCH WEO RIEUL
-<UCDB9> \xAD\x95 |0 # HANGUL SYLLABLE CHIEUCH WEO RIEULKIYEOK
-<UCDBA> \xAD\x96 |0 # HANGUL SYLLABLE CHIEUCH WEO RIEULMIEUM
-<UCDBB> \xAD\x97 |0 # HANGUL SYLLABLE CHIEUCH WEO RIEULPIEUP
-<UCDBC> \xAD\x98 |0 # HANGUL SYLLABLE CHIEUCH WEO RIEULSIOS
-<UCDBD> \xAD\x99 |0 # HANGUL SYLLABLE CHIEUCH WEO RIEULTHIEUTH
-<UCDBE> \xAD\x9A |0 # HANGUL SYLLABLE CHIEUCH WEO RIEULPHIEUPH
-<UCDBF> \xAD\x9B |0 # HANGUL SYLLABLE CHIEUCH WEO RIEULHIEUH
-<UCDC0> \xAD\x9C |0 # HANGUL SYLLABLE CHIEUCH WEO MIEUM
-<UCDC1> \xAD\x9D |0 # HANGUL SYLLABLE CHIEUCH WEO PIEUP
-<UCDC2> \xAD\x9E |0 # HANGUL SYLLABLE CHIEUCH WEO PIEUPSIOS
-<UCDC3> \xAD\x9F |0 # HANGUL SYLLABLE CHIEUCH WEO SIOS
-<UCDC4> \xC3\xE8 |0 # HANGUL SYLLABLE CHIEUCH WEO SSANGSIOS
-<UCDC5> \xAD\xA0 |0 # HANGUL SYLLABLE CHIEUCH WEO IEUNG
-<UCDC6> \xAE\x41 |0 # HANGUL SYLLABLE CHIEUCH WEO CIEUC
-<UCDC7> \xAE\x42 |0 # HANGUL SYLLABLE CHIEUCH WEO CHIEUCH
-<UCDC8> \xAE\x43 |0 # HANGUL SYLLABLE CHIEUCH WEO KHIEUKH
-<UCDC9> \xAE\x44 |0 # HANGUL SYLLABLE CHIEUCH WEO THIEUTH
-<UCDCA> \xAE\x45 |0 # HANGUL SYLLABLE CHIEUCH WEO PHIEUPH
-<UCDCB> \xAE\x46 |0 # HANGUL SYLLABLE CHIEUCH WEO HIEUH
-<UCDCC> \xC3\xE9 |0 # HANGUL SYLLABLE CHIEUCH WE
-<UCDCD> \xAE\x47 |0 # HANGUL SYLLABLE CHIEUCH WE KIYEOK
-<UCDCE> \xAE\x48 |0 # HANGUL SYLLABLE CHIEUCH WE SSANGKIYEOK
-<UCDCF> \xAE\x49 |0 # HANGUL SYLLABLE CHIEUCH WE KIYEOKSIOS
-<UCDD0> \xC3\xEA |0 # HANGUL SYLLABLE CHIEUCH WE NIEUN
-<UCDD1> \xAE\x4A |0 # HANGUL SYLLABLE CHIEUCH WE NIEUNCIEUC
-<UCDD2> \xAE\x4B |0 # HANGUL SYLLABLE CHIEUCH WE NIEUNHIEUH
-<UCDD3> \xAE\x4C |0 # HANGUL SYLLABLE CHIEUCH WE TIKEUT
-<UCDD4> \xAE\x4D |0 # HANGUL SYLLABLE CHIEUCH WE RIEUL
-<UCDD5> \xAE\x4E |0 # HANGUL SYLLABLE CHIEUCH WE RIEULKIYEOK
-<UCDD6> \xAE\x4F |0 # HANGUL SYLLABLE CHIEUCH WE RIEULMIEUM
-<UCDD7> \xAE\x50 |0 # HANGUL SYLLABLE CHIEUCH WE RIEULPIEUP
-<UCDD8> \xAE\x51 |0 # HANGUL SYLLABLE CHIEUCH WE RIEULSIOS
-<UCDD9> \xAE\x52 |0 # HANGUL SYLLABLE CHIEUCH WE RIEULTHIEUTH
-<UCDDA> \xAE\x53 |0 # HANGUL SYLLABLE CHIEUCH WE RIEULPHIEUPH
-<UCDDB> \xAE\x54 |0 # HANGUL SYLLABLE CHIEUCH WE RIEULHIEUH
-<UCDDC> \xAE\x55 |0 # HANGUL SYLLABLE CHIEUCH WE MIEUM
-<UCDDD> \xAE\x56 |0 # HANGUL SYLLABLE CHIEUCH WE PIEUP
-<UCDDE> \xAE\x57 |0 # HANGUL SYLLABLE CHIEUCH WE PIEUPSIOS
-<UCDDF> \xAE\x58 |0 # HANGUL SYLLABLE CHIEUCH WE SIOS
-<UCDE0> \xAE\x59 |0 # HANGUL SYLLABLE CHIEUCH WE SSANGSIOS
-<UCDE1> \xAE\x5A |0 # HANGUL SYLLABLE CHIEUCH WE IEUNG
-<UCDE2> \xAE\x61 |0 # HANGUL SYLLABLE CHIEUCH WE CIEUC
-<UCDE3> \xAE\x62 |0 # HANGUL SYLLABLE CHIEUCH WE CHIEUCH
-<UCDE4> \xAE\x63 |0 # HANGUL SYLLABLE CHIEUCH WE KHIEUKH
-<UCDE5> \xAE\x64 |0 # HANGUL SYLLABLE CHIEUCH WE THIEUTH
-<UCDE6> \xAE\x65 |0 # HANGUL SYLLABLE CHIEUCH WE PHIEUPH
-<UCDE7> \xAE\x66 |0 # HANGUL SYLLABLE CHIEUCH WE HIEUH
-<UCDE8> \xC3\xEB |0 # HANGUL SYLLABLE CHIEUCH WI
-<UCDE9> \xAE\x67 |0 # HANGUL SYLLABLE CHIEUCH WI KIYEOK
-<UCDEA> \xAE\x68 |0 # HANGUL SYLLABLE CHIEUCH WI SSANGKIYEOK
-<UCDEB> \xAE\x69 |0 # HANGUL SYLLABLE CHIEUCH WI KIYEOKSIOS
-<UCDEC> \xC3\xEC |0 # HANGUL SYLLABLE CHIEUCH WI NIEUN
-<UCDED> \xAE\x6A |0 # HANGUL SYLLABLE CHIEUCH WI NIEUNCIEUC
-<UCDEE> \xAE\x6B |0 # HANGUL SYLLABLE CHIEUCH WI NIEUNHIEUH
-<UCDEF> \xAE\x6C |0 # HANGUL SYLLABLE CHIEUCH WI TIKEUT
-<UCDF0> \xC3\xED |0 # HANGUL SYLLABLE CHIEUCH WI RIEUL
-<UCDF1> \xAE\x6D |0 # HANGUL SYLLABLE CHIEUCH WI RIEULKIYEOK
-<UCDF2> \xAE\x6E |0 # HANGUL SYLLABLE CHIEUCH WI RIEULMIEUM
-<UCDF3> \xAE\x6F |0 # HANGUL SYLLABLE CHIEUCH WI RIEULPIEUP
-<UCDF4> \xAE\x70 |0 # HANGUL SYLLABLE CHIEUCH WI RIEULSIOS
-<UCDF5> \xAE\x71 |0 # HANGUL SYLLABLE CHIEUCH WI RIEULTHIEUTH
-<UCDF6> \xAE\x72 |0 # HANGUL SYLLABLE CHIEUCH WI RIEULPHIEUPH
-<UCDF7> \xAE\x73 |0 # HANGUL SYLLABLE CHIEUCH WI RIEULHIEUH
-<UCDF8> \xC3\xEE |0 # HANGUL SYLLABLE CHIEUCH WI MIEUM
-<UCDF9> \xC3\xEF |0 # HANGUL SYLLABLE CHIEUCH WI PIEUP
-<UCDFA> \xAE\x74 |0 # HANGUL SYLLABLE CHIEUCH WI PIEUPSIOS
-<UCDFB> \xC3\xF0 |0 # HANGUL SYLLABLE CHIEUCH WI SIOS
-<UCDFC> \xAE\x75 |0 # HANGUL SYLLABLE CHIEUCH WI SSANGSIOS
-<UCDFD> \xC3\xF1 |0 # HANGUL SYLLABLE CHIEUCH WI IEUNG
-<UCDFE> \xAE\x76 |0 # HANGUL SYLLABLE CHIEUCH WI CIEUC
-<UCDFF> \xAE\x77 |0 # HANGUL SYLLABLE CHIEUCH WI CHIEUCH
-<UCE00> \xAE\x78 |0 # HANGUL SYLLABLE CHIEUCH WI KHIEUKH
-<UCE01> \xAE\x79 |0 # HANGUL SYLLABLE CHIEUCH WI THIEUTH
-<UCE02> \xAE\x7A |0 # HANGUL SYLLABLE CHIEUCH WI PHIEUPH
-<UCE03> \xAE\x81 |0 # HANGUL SYLLABLE CHIEUCH WI HIEUH
-<UCE04> \xC3\xF2 |0 # HANGUL SYLLABLE CHIEUCH YU
-<UCE05> \xAE\x82 |0 # HANGUL SYLLABLE CHIEUCH YU KIYEOK
-<UCE06> \xAE\x83 |0 # HANGUL SYLLABLE CHIEUCH YU SSANGKIYEOK
-<UCE07> \xAE\x84 |0 # HANGUL SYLLABLE CHIEUCH YU KIYEOKSIOS
-<UCE08> \xC3\xF3 |0 # HANGUL SYLLABLE CHIEUCH YU NIEUN
-<UCE09> \xAE\x85 |0 # HANGUL SYLLABLE CHIEUCH YU NIEUNCIEUC
-<UCE0A> \xAE\x86 |0 # HANGUL SYLLABLE CHIEUCH YU NIEUNHIEUH
-<UCE0B> \xAE\x87 |0 # HANGUL SYLLABLE CHIEUCH YU TIKEUT
-<UCE0C> \xC3\xF4 |0 # HANGUL SYLLABLE CHIEUCH YU RIEUL
-<UCE0D> \xAE\x88 |0 # HANGUL SYLLABLE CHIEUCH YU RIEULKIYEOK
-<UCE0E> \xAE\x89 |0 # HANGUL SYLLABLE CHIEUCH YU RIEULMIEUM
-<UCE0F> \xAE\x8A |0 # HANGUL SYLLABLE CHIEUCH YU RIEULPIEUP
-<UCE10> \xAE\x8B |0 # HANGUL SYLLABLE CHIEUCH YU RIEULSIOS
-<UCE11> \xAE\x8C |0 # HANGUL SYLLABLE CHIEUCH YU RIEULTHIEUTH
-<UCE12> \xAE\x8D |0 # HANGUL SYLLABLE CHIEUCH YU RIEULPHIEUPH
-<UCE13> \xAE\x8E |0 # HANGUL SYLLABLE CHIEUCH YU RIEULHIEUH
-<UCE14> \xC3\xF5 |0 # HANGUL SYLLABLE CHIEUCH YU MIEUM
-<UCE15> \xAE\x8F |0 # HANGUL SYLLABLE CHIEUCH YU PIEUP
-<UCE16> \xAE\x90 |0 # HANGUL SYLLABLE CHIEUCH YU PIEUPSIOS
-<UCE17> \xAE\x91 |0 # HANGUL SYLLABLE CHIEUCH YU SIOS
-<UCE18> \xAE\x92 |0 # HANGUL SYLLABLE CHIEUCH YU SSANGSIOS
-<UCE19> \xC3\xF6 |0 # HANGUL SYLLABLE CHIEUCH YU IEUNG
-<UCE1A> \xAE\x93 |0 # HANGUL SYLLABLE CHIEUCH YU CIEUC
-<UCE1B> \xAE\x94 |0 # HANGUL SYLLABLE CHIEUCH YU CHIEUCH
-<UCE1C> \xAE\x95 |0 # HANGUL SYLLABLE CHIEUCH YU KHIEUKH
-<UCE1D> \xAE\x96 |0 # HANGUL SYLLABLE CHIEUCH YU THIEUTH
-<UCE1E> \xAE\x97 |0 # HANGUL SYLLABLE CHIEUCH YU PHIEUPH
-<UCE1F> \xAE\x98 |0 # HANGUL SYLLABLE CHIEUCH YU HIEUH
-<UCE20> \xC3\xF7 |0 # HANGUL SYLLABLE CHIEUCH EU
-<UCE21> \xC3\xF8 |0 # HANGUL SYLLABLE CHIEUCH EU KIYEOK
-<UCE22> \xAE\x99 |0 # HANGUL SYLLABLE CHIEUCH EU SSANGKIYEOK
-<UCE23> \xAE\x9A |0 # HANGUL SYLLABLE CHIEUCH EU KIYEOKSIOS
-<UCE24> \xC3\xF9 |0 # HANGUL SYLLABLE CHIEUCH EU NIEUN
-<UCE25> \xAE\x9B |0 # HANGUL SYLLABLE CHIEUCH EU NIEUNCIEUC
-<UCE26> \xAE\x9C |0 # HANGUL SYLLABLE CHIEUCH EU NIEUNHIEUH
-<UCE27> \xAE\x9D |0 # HANGUL SYLLABLE CHIEUCH EU TIKEUT
-<UCE28> \xC3\xFA |0 # HANGUL SYLLABLE CHIEUCH EU RIEUL
-<UCE29> \xAE\x9E |0 # HANGUL SYLLABLE CHIEUCH EU RIEULKIYEOK
-<UCE2A> \xAE\x9F |0 # HANGUL SYLLABLE CHIEUCH EU RIEULMIEUM
-<UCE2B> \xAE\xA0 |0 # HANGUL SYLLABLE CHIEUCH EU RIEULPIEUP
-<UCE2C> \xAF\x41 |0 # HANGUL SYLLABLE CHIEUCH EU RIEULSIOS
-<UCE2D> \xAF\x42 |0 # HANGUL SYLLABLE CHIEUCH EU RIEULTHIEUTH
-<UCE2E> \xAF\x43 |0 # HANGUL SYLLABLE CHIEUCH EU RIEULPHIEUPH
-<UCE2F> \xAF\x44 |0 # HANGUL SYLLABLE CHIEUCH EU RIEULHIEUH
-<UCE30> \xC3\xFB |0 # HANGUL SYLLABLE CHIEUCH EU MIEUM
-<UCE31> \xC3\xFC |0 # HANGUL SYLLABLE CHIEUCH EU PIEUP
-<UCE32> \xAF\x45 |0 # HANGUL SYLLABLE CHIEUCH EU PIEUPSIOS
-<UCE33> \xC3\xFD |0 # HANGUL SYLLABLE CHIEUCH EU SIOS
-<UCE34> \xAF\x46 |0 # HANGUL SYLLABLE CHIEUCH EU SSANGSIOS
-<UCE35> \xC3\xFE |0 # HANGUL SYLLABLE CHIEUCH EU IEUNG
-<UCE36> \xAF\x47 |0 # HANGUL SYLLABLE CHIEUCH EU CIEUC
-<UCE37> \xAF\x48 |0 # HANGUL SYLLABLE CHIEUCH EU CHIEUCH
-<UCE38> \xAF\x49 |0 # HANGUL SYLLABLE CHIEUCH EU KHIEUKH
-<UCE39> \xAF\x4A |0 # HANGUL SYLLABLE CHIEUCH EU THIEUTH
-<UCE3A> \xAF\x4B |0 # HANGUL SYLLABLE CHIEUCH EU PHIEUPH
-<UCE3B> \xAF\x4C |0 # HANGUL SYLLABLE CHIEUCH EU HIEUH
-<UCE3C> \xAF\x4D |0 # HANGUL SYLLABLE CHIEUCH YI
-<UCE3D> \xAF\x4E |0 # HANGUL SYLLABLE CHIEUCH YI KIYEOK
-<UCE3E> \xAF\x4F |0 # HANGUL SYLLABLE CHIEUCH YI SSANGKIYEOK
-<UCE3F> \xAF\x50 |0 # HANGUL SYLLABLE CHIEUCH YI KIYEOKSIOS
-<UCE40> \xAF\x51 |0 # HANGUL SYLLABLE CHIEUCH YI NIEUN
-<UCE41> \xAF\x52 |0 # HANGUL SYLLABLE CHIEUCH YI NIEUNCIEUC
-<UCE42> \xAF\x53 |0 # HANGUL SYLLABLE CHIEUCH YI NIEUNHIEUH
-<UCE43> \xAF\x54 |0 # HANGUL SYLLABLE CHIEUCH YI TIKEUT
-<UCE44> \xAF\x55 |0 # HANGUL SYLLABLE CHIEUCH YI RIEUL
-<UCE45> \xAF\x56 |0 # HANGUL SYLLABLE CHIEUCH YI RIEULKIYEOK
-<UCE46> \xAF\x57 |0 # HANGUL SYLLABLE CHIEUCH YI RIEULMIEUM
-<UCE47> \xAF\x58 |0 # HANGUL SYLLABLE CHIEUCH YI RIEULPIEUP
-<UCE48> \xAF\x59 |0 # HANGUL SYLLABLE CHIEUCH YI RIEULSIOS
-<UCE49> \xAF\x5A |0 # HANGUL SYLLABLE CHIEUCH YI RIEULTHIEUTH
-<UCE4A> \xAF\x61 |0 # HANGUL SYLLABLE CHIEUCH YI RIEULPHIEUPH
-<UCE4B> \xAF\x62 |0 # HANGUL SYLLABLE CHIEUCH YI RIEULHIEUH
-<UCE4C> \xAF\x63 |0 # HANGUL SYLLABLE CHIEUCH YI MIEUM
-<UCE4D> \xAF\x64 |0 # HANGUL SYLLABLE CHIEUCH YI PIEUP
-<UCE4E> \xAF\x65 |0 # HANGUL SYLLABLE CHIEUCH YI PIEUPSIOS
-<UCE4F> \xAF\x66 |0 # HANGUL SYLLABLE CHIEUCH YI SIOS
-<UCE50> \xAF\x67 |0 # HANGUL SYLLABLE CHIEUCH YI SSANGSIOS
-<UCE51> \xAF\x68 |0 # HANGUL SYLLABLE CHIEUCH YI IEUNG
-<UCE52> \xAF\x69 |0 # HANGUL SYLLABLE CHIEUCH YI CIEUC
-<UCE53> \xAF\x6A |0 # HANGUL SYLLABLE CHIEUCH YI CHIEUCH
-<UCE54> \xAF\x6B |0 # HANGUL SYLLABLE CHIEUCH YI KHIEUKH
-<UCE55> \xAF\x6C |0 # HANGUL SYLLABLE CHIEUCH YI THIEUTH
-<UCE56> \xAF\x6D |0 # HANGUL SYLLABLE CHIEUCH YI PHIEUPH
-<UCE57> \xAF\x6E |0 # HANGUL SYLLABLE CHIEUCH YI HIEUH
-<UCE58> \xC4\xA1 |0 # HANGUL SYLLABLE CHIEUCH I
-<UCE59> \xC4\xA2 |0 # HANGUL SYLLABLE CHIEUCH I KIYEOK
-<UCE5A> \xAF\x6F |0 # HANGUL SYLLABLE CHIEUCH I SSANGKIYEOK
-<UCE5B> \xAF\x70 |0 # HANGUL SYLLABLE CHIEUCH I KIYEOKSIOS
-<UCE5C> \xC4\xA3 |0 # HANGUL SYLLABLE CHIEUCH I NIEUN
-<UCE5D> \xAF\x71 |0 # HANGUL SYLLABLE CHIEUCH I NIEUNCIEUC
-<UCE5E> \xAF\x72 |0 # HANGUL SYLLABLE CHIEUCH I NIEUNHIEUH
-<UCE5F> \xC4\xA4 |0 # HANGUL SYLLABLE CHIEUCH I TIKEUT
-<UCE60> \xC4\xA5 |0 # HANGUL SYLLABLE CHIEUCH I RIEUL
-<UCE61> \xC4\xA6 |0 # HANGUL SYLLABLE CHIEUCH I RIEULKIYEOK
-<UCE62> \xAF\x73 |0 # HANGUL SYLLABLE CHIEUCH I RIEULMIEUM
-<UCE63> \xAF\x74 |0 # HANGUL SYLLABLE CHIEUCH I RIEULPIEUP
-<UCE64> \xAF\x75 |0 # HANGUL SYLLABLE CHIEUCH I RIEULSIOS
-<UCE65> \xAF\x76 |0 # HANGUL SYLLABLE CHIEUCH I RIEULTHIEUTH
-<UCE66> \xAF\x77 |0 # HANGUL SYLLABLE CHIEUCH I RIEULPHIEUPH
-<UCE67> \xAF\x78 |0 # HANGUL SYLLABLE CHIEUCH I RIEULHIEUH
-<UCE68> \xC4\xA7 |0 # HANGUL SYLLABLE CHIEUCH I MIEUM
-<UCE69> \xC4\xA8 |0 # HANGUL SYLLABLE CHIEUCH I PIEUP
-<UCE6A> \xAF\x79 |0 # HANGUL SYLLABLE CHIEUCH I PIEUPSIOS
-<UCE6B> \xC4\xA9 |0 # HANGUL SYLLABLE CHIEUCH I SIOS
-<UCE6C> \xAF\x7A |0 # HANGUL SYLLABLE CHIEUCH I SSANGSIOS
-<UCE6D> \xC4\xAA |0 # HANGUL SYLLABLE CHIEUCH I IEUNG
-<UCE6E> \xAF\x81 |0 # HANGUL SYLLABLE CHIEUCH I CIEUC
-<UCE6F> \xAF\x82 |0 # HANGUL SYLLABLE CHIEUCH I CHIEUCH
-<UCE70> \xAF\x83 |0 # HANGUL SYLLABLE CHIEUCH I KHIEUKH
-<UCE71> \xAF\x84 |0 # HANGUL SYLLABLE CHIEUCH I THIEUTH
-<UCE72> \xAF\x85 |0 # HANGUL SYLLABLE CHIEUCH I PHIEUPH
-<UCE73> \xAF\x86 |0 # HANGUL SYLLABLE CHIEUCH I HIEUH
-<UCE74> \xC4\xAB |0 # HANGUL SYLLABLE KHIEUKH A
-<UCE75> \xC4\xAC |0 # HANGUL SYLLABLE KHIEUKH A KIYEOK
-<UCE76> \xAF\x87 |0 # HANGUL SYLLABLE KHIEUKH A SSANGKIYEOK
-<UCE77> \xAF\x88 |0 # HANGUL SYLLABLE KHIEUKH A KIYEOKSIOS
-<UCE78> \xC4\xAD |0 # HANGUL SYLLABLE KHIEUKH A NIEUN
-<UCE79> \xAF\x89 |0 # HANGUL SYLLABLE KHIEUKH A NIEUNCIEUC
-<UCE7A> \xAF\x8A |0 # HANGUL SYLLABLE KHIEUKH A NIEUNHIEUH
-<UCE7B> \xAF\x8B |0 # HANGUL SYLLABLE KHIEUKH A TIKEUT
-<UCE7C> \xC4\xAE |0 # HANGUL SYLLABLE KHIEUKH A RIEUL
-<UCE7D> \xAF\x8C |0 # HANGUL SYLLABLE KHIEUKH A RIEULKIYEOK
-<UCE7E> \xAF\x8D |0 # HANGUL SYLLABLE KHIEUKH A RIEULMIEUM
-<UCE7F> \xAF\x8E |0 # HANGUL SYLLABLE KHIEUKH A RIEULPIEUP
-<UCE80> \xAF\x8F |0 # HANGUL SYLLABLE KHIEUKH A RIEULSIOS
-<UCE81> \xAF\x90 |0 # HANGUL SYLLABLE KHIEUKH A RIEULTHIEUTH
-<UCE82> \xAF\x91 |0 # HANGUL SYLLABLE KHIEUKH A RIEULPHIEUPH
-<UCE83> \xAF\x92 |0 # HANGUL SYLLABLE KHIEUKH A RIEULHIEUH
-<UCE84> \xC4\xAF |0 # HANGUL SYLLABLE KHIEUKH A MIEUM
-<UCE85> \xC4\xB0 |0 # HANGUL SYLLABLE KHIEUKH A PIEUP
-<UCE86> \xAF\x93 |0 # HANGUL SYLLABLE KHIEUKH A PIEUPSIOS
-<UCE87> \xC4\xB1 |0 # HANGUL SYLLABLE KHIEUKH A SIOS
-<UCE88> \xAF\x94 |0 # HANGUL SYLLABLE KHIEUKH A SSANGSIOS
-<UCE89> \xC4\xB2 |0 # HANGUL SYLLABLE KHIEUKH A IEUNG
-<UCE8A> \xAF\x95 |0 # HANGUL SYLLABLE KHIEUKH A CIEUC
-<UCE8B> \xAF\x96 |0 # HANGUL SYLLABLE KHIEUKH A CHIEUCH
-<UCE8C> \xAF\x97 |0 # HANGUL SYLLABLE KHIEUKH A KHIEUKH
-<UCE8D> \xAF\x98 |0 # HANGUL SYLLABLE KHIEUKH A THIEUTH
-<UCE8E> \xAF\x99 |0 # HANGUL SYLLABLE KHIEUKH A PHIEUPH
-<UCE8F> \xAF\x9A |0 # HANGUL SYLLABLE KHIEUKH A HIEUH
-<UCE90> \xC4\xB3 |0 # HANGUL SYLLABLE KHIEUKH AE
-<UCE91> \xC4\xB4 |0 # HANGUL SYLLABLE KHIEUKH AE KIYEOK
-<UCE92> \xAF\x9B |0 # HANGUL SYLLABLE KHIEUKH AE SSANGKIYEOK
-<UCE93> \xAF\x9C |0 # HANGUL SYLLABLE KHIEUKH AE KIYEOKSIOS
-<UCE94> \xC4\xB5 |0 # HANGUL SYLLABLE KHIEUKH AE NIEUN
-<UCE95> \xAF\x9D |0 # HANGUL SYLLABLE KHIEUKH AE NIEUNCIEUC
-<UCE96> \xAF\x9E |0 # HANGUL SYLLABLE KHIEUKH AE NIEUNHIEUH
-<UCE97> \xAF\x9F |0 # HANGUL SYLLABLE KHIEUKH AE TIKEUT
-<UCE98> \xC4\xB6 |0 # HANGUL SYLLABLE KHIEUKH AE RIEUL
-<UCE99> \xAF\xA0 |0 # HANGUL SYLLABLE KHIEUKH AE RIEULKIYEOK
-<UCE9A> \xB0\x41 |0 # HANGUL SYLLABLE KHIEUKH AE RIEULMIEUM
-<UCE9B> \xB0\x42 |0 # HANGUL SYLLABLE KHIEUKH AE RIEULPIEUP
-<UCE9C> \xB0\x43 |0 # HANGUL SYLLABLE KHIEUKH AE RIEULSIOS
-<UCE9D> \xB0\x44 |0 # HANGUL SYLLABLE KHIEUKH AE RIEULTHIEUTH
-<UCE9E> \xB0\x45 |0 # HANGUL SYLLABLE KHIEUKH AE RIEULPHIEUPH
-<UCE9F> \xB0\x46 |0 # HANGUL SYLLABLE KHIEUKH AE RIEULHIEUH
-<UCEA0> \xC4\xB7 |0 # HANGUL SYLLABLE KHIEUKH AE MIEUM
-<UCEA1> \xC4\xB8 |0 # HANGUL SYLLABLE KHIEUKH AE PIEUP
-<UCEA2> \xB0\x47 |0 # HANGUL SYLLABLE KHIEUKH AE PIEUPSIOS
-<UCEA3> \xC4\xB9 |0 # HANGUL SYLLABLE KHIEUKH AE SIOS
-<UCEA4> \xC4\xBA |0 # HANGUL SYLLABLE KHIEUKH AE SSANGSIOS
-<UCEA5> \xC4\xBB |0 # HANGUL SYLLABLE KHIEUKH AE IEUNG
-<UCEA6> \xB0\x48 |0 # HANGUL SYLLABLE KHIEUKH AE CIEUC
-<UCEA7> \xB0\x49 |0 # HANGUL SYLLABLE KHIEUKH AE CHIEUCH
-<UCEA8> \xB0\x4A |0 # HANGUL SYLLABLE KHIEUKH AE KHIEUKH
-<UCEA9> \xB0\x4B |0 # HANGUL SYLLABLE KHIEUKH AE THIEUTH
-<UCEAA> \xB0\x4C |0 # HANGUL SYLLABLE KHIEUKH AE PHIEUPH
-<UCEAB> \xB0\x4D |0 # HANGUL SYLLABLE KHIEUKH AE HIEUH
-<UCEAC> \xC4\xBC |0 # HANGUL SYLLABLE KHIEUKH YA
-<UCEAD> \xC4\xBD |0 # HANGUL SYLLABLE KHIEUKH YA KIYEOK
-<UCEAE> \xB0\x4E |0 # HANGUL SYLLABLE KHIEUKH YA SSANGKIYEOK
-<UCEAF> \xB0\x4F |0 # HANGUL SYLLABLE KHIEUKH YA KIYEOKSIOS
-<UCEB0> \xB0\x50 |0 # HANGUL SYLLABLE KHIEUKH YA NIEUN
-<UCEB1> \xB0\x51 |0 # HANGUL SYLLABLE KHIEUKH YA NIEUNCIEUC
-<UCEB2> \xB0\x52 |0 # HANGUL SYLLABLE KHIEUKH YA NIEUNHIEUH
-<UCEB3> \xB0\x53 |0 # HANGUL SYLLABLE KHIEUKH YA TIKEUT
-<UCEB4> \xB0\x54 |0 # HANGUL SYLLABLE KHIEUKH YA RIEUL
-<UCEB5> \xB0\x55 |0 # HANGUL SYLLABLE KHIEUKH YA RIEULKIYEOK
-<UCEB6> \xB0\x56 |0 # HANGUL SYLLABLE KHIEUKH YA RIEULMIEUM
-<UCEB7> \xB0\x57 |0 # HANGUL SYLLABLE KHIEUKH YA RIEULPIEUP
-<UCEB8> \xB0\x58 |0 # HANGUL SYLLABLE KHIEUKH YA RIEULSIOS
-<UCEB9> \xB0\x59 |0 # HANGUL SYLLABLE KHIEUKH YA RIEULTHIEUTH
-<UCEBA> \xB0\x5A |0 # HANGUL SYLLABLE KHIEUKH YA RIEULPHIEUPH
-<UCEBB> \xB0\x61 |0 # HANGUL SYLLABLE KHIEUKH YA RIEULHIEUH
-<UCEBC> \xB0\x62 |0 # HANGUL SYLLABLE KHIEUKH YA MIEUM
-<UCEBD> \xB0\x63 |0 # HANGUL SYLLABLE KHIEUKH YA PIEUP
-<UCEBE> \xB0\x64 |0 # HANGUL SYLLABLE KHIEUKH YA PIEUPSIOS
-<UCEBF> \xB0\x65 |0 # HANGUL SYLLABLE KHIEUKH YA SIOS
-<UCEC0> \xB0\x66 |0 # HANGUL SYLLABLE KHIEUKH YA SSANGSIOS
-<UCEC1> \xC4\xBE |0 # HANGUL SYLLABLE KHIEUKH YA IEUNG
-<UCEC2> \xB0\x67 |0 # HANGUL SYLLABLE KHIEUKH YA CIEUC
-<UCEC3> \xB0\x68 |0 # HANGUL SYLLABLE KHIEUKH YA CHIEUCH
-<UCEC4> \xB0\x69 |0 # HANGUL SYLLABLE KHIEUKH YA KHIEUKH
-<UCEC5> \xB0\x6A |0 # HANGUL SYLLABLE KHIEUKH YA THIEUTH
-<UCEC6> \xB0\x6B |0 # HANGUL SYLLABLE KHIEUKH YA PHIEUPH
-<UCEC7> \xB0\x6C |0 # HANGUL SYLLABLE KHIEUKH YA HIEUH
-<UCEC8> \xB0\x6D |0 # HANGUL SYLLABLE KHIEUKH YAE
-<UCEC9> \xB0\x6E |0 # HANGUL SYLLABLE KHIEUKH YAE KIYEOK
-<UCECA> \xB0\x6F |0 # HANGUL SYLLABLE KHIEUKH YAE SSANGKIYEOK
-<UCECB> \xB0\x70 |0 # HANGUL SYLLABLE KHIEUKH YAE KIYEOKSIOS
-<UCECC> \xB0\x71 |0 # HANGUL SYLLABLE KHIEUKH YAE NIEUN
-<UCECD> \xB0\x72 |0 # HANGUL SYLLABLE KHIEUKH YAE NIEUNCIEUC
-<UCECE> \xB0\x73 |0 # HANGUL SYLLABLE KHIEUKH YAE NIEUNHIEUH
-<UCECF> \xB0\x74 |0 # HANGUL SYLLABLE KHIEUKH YAE TIKEUT
-<UCED0> \xB0\x75 |0 # HANGUL SYLLABLE KHIEUKH YAE RIEUL
-<UCED1> \xB0\x76 |0 # HANGUL SYLLABLE KHIEUKH YAE RIEULKIYEOK
-<UCED2> \xB0\x77 |0 # HANGUL SYLLABLE KHIEUKH YAE RIEULMIEUM
-<UCED3> \xB0\x78 |0 # HANGUL SYLLABLE KHIEUKH YAE RIEULPIEUP
-<UCED4> \xB0\x79 |0 # HANGUL SYLLABLE KHIEUKH YAE RIEULSIOS
-<UCED5> \xB0\x7A |0 # HANGUL SYLLABLE KHIEUKH YAE RIEULTHIEUTH
-<UCED6> \xB0\x81 |0 # HANGUL SYLLABLE KHIEUKH YAE RIEULPHIEUPH
-<UCED7> \xB0\x82 |0 # HANGUL SYLLABLE KHIEUKH YAE RIEULHIEUH
-<UCED8> \xB0\x83 |0 # HANGUL SYLLABLE KHIEUKH YAE MIEUM
-<UCED9> \xB0\x84 |0 # HANGUL SYLLABLE KHIEUKH YAE PIEUP
-<UCEDA> \xB0\x85 |0 # HANGUL SYLLABLE KHIEUKH YAE PIEUPSIOS
-<UCEDB> \xB0\x86 |0 # HANGUL SYLLABLE KHIEUKH YAE SIOS
-<UCEDC> \xB0\x87 |0 # HANGUL SYLLABLE KHIEUKH YAE SSANGSIOS
-<UCEDD> \xB0\x88 |0 # HANGUL SYLLABLE KHIEUKH YAE IEUNG
-<UCEDE> \xB0\x89 |0 # HANGUL SYLLABLE KHIEUKH YAE CIEUC
-<UCEDF> \xB0\x8A |0 # HANGUL SYLLABLE KHIEUKH YAE CHIEUCH
-<UCEE0> \xB0\x8B |0 # HANGUL SYLLABLE KHIEUKH YAE KHIEUKH
-<UCEE1> \xB0\x8C |0 # HANGUL SYLLABLE KHIEUKH YAE THIEUTH
-<UCEE2> \xB0\x8D |0 # HANGUL SYLLABLE KHIEUKH YAE PHIEUPH
-<UCEE3> \xB0\x8E |0 # HANGUL SYLLABLE KHIEUKH YAE HIEUH
-<UCEE4> \xC4\xBF |0 # HANGUL SYLLABLE KHIEUKH EO
-<UCEE5> \xC4\xC0 |0 # HANGUL SYLLABLE KHIEUKH EO KIYEOK
-<UCEE6> \xB0\x8F |0 # HANGUL SYLLABLE KHIEUKH EO SSANGKIYEOK
-<UCEE7> \xB0\x90 |0 # HANGUL SYLLABLE KHIEUKH EO KIYEOKSIOS
-<UCEE8> \xC4\xC1 |0 # HANGUL SYLLABLE KHIEUKH EO NIEUN
-<UCEE9> \xB0\x91 |0 # HANGUL SYLLABLE KHIEUKH EO NIEUNCIEUC
-<UCEEA> \xB0\x92 |0 # HANGUL SYLLABLE KHIEUKH EO NIEUNHIEUH
-<UCEEB> \xC4\xC2 |0 # HANGUL SYLLABLE KHIEUKH EO TIKEUT
-<UCEEC> \xC4\xC3 |0 # HANGUL SYLLABLE KHIEUKH EO RIEUL
-<UCEED> \xB0\x93 |0 # HANGUL SYLLABLE KHIEUKH EO RIEULKIYEOK
-<UCEEE> \xB0\x94 |0 # HANGUL SYLLABLE KHIEUKH EO RIEULMIEUM
-<UCEEF> \xB0\x95 |0 # HANGUL SYLLABLE KHIEUKH EO RIEULPIEUP
-<UCEF0> \xB0\x96 |0 # HANGUL SYLLABLE KHIEUKH EO RIEULSIOS
-<UCEF1> \xB0\x97 |0 # HANGUL SYLLABLE KHIEUKH EO RIEULTHIEUTH
-<UCEF2> \xB0\x98 |0 # HANGUL SYLLABLE KHIEUKH EO RIEULPHIEUPH
-<UCEF3> \xB0\x99 |0 # HANGUL SYLLABLE KHIEUKH EO RIEULHIEUH
-<UCEF4> \xC4\xC4 |0 # HANGUL SYLLABLE KHIEUKH EO MIEUM
-<UCEF5> \xC4\xC5 |0 # HANGUL SYLLABLE KHIEUKH EO PIEUP
-<UCEF6> \xB0\x9A |0 # HANGUL SYLLABLE KHIEUKH EO PIEUPSIOS
-<UCEF7> \xC4\xC6 |0 # HANGUL SYLLABLE KHIEUKH EO SIOS
-<UCEF8> \xC4\xC7 |0 # HANGUL SYLLABLE KHIEUKH EO SSANGSIOS
-<UCEF9> \xC4\xC8 |0 # HANGUL SYLLABLE KHIEUKH EO IEUNG
-<UCEFA> \xB0\x9B |0 # HANGUL SYLLABLE KHIEUKH EO CIEUC
-<UCEFB> \xB0\x9C |0 # HANGUL SYLLABLE KHIEUKH EO CHIEUCH
-<UCEFC> \xB0\x9D |0 # HANGUL SYLLABLE KHIEUKH EO KHIEUKH
-<UCEFD> \xB0\x9E |0 # HANGUL SYLLABLE KHIEUKH EO THIEUTH
-<UCEFE> \xB0\x9F |0 # HANGUL SYLLABLE KHIEUKH EO PHIEUPH
-<UCEFF> \xB0\xA0 |0 # HANGUL SYLLABLE KHIEUKH EO HIEUH
-<UCF00> \xC4\xC9 |0 # HANGUL SYLLABLE KHIEUKH E
-<UCF01> \xC4\xCA |0 # HANGUL SYLLABLE KHIEUKH E KIYEOK
-<UCF02> \xB1\x41 |0 # HANGUL SYLLABLE KHIEUKH E SSANGKIYEOK
-<UCF03> \xB1\x42 |0 # HANGUL SYLLABLE KHIEUKH E KIYEOKSIOS
-<UCF04> \xC4\xCB |0 # HANGUL SYLLABLE KHIEUKH E NIEUN
-<UCF05> \xB1\x43 |0 # HANGUL SYLLABLE KHIEUKH E NIEUNCIEUC
-<UCF06> \xB1\x44 |0 # HANGUL SYLLABLE KHIEUKH E NIEUNHIEUH
-<UCF07> \xB1\x45 |0 # HANGUL SYLLABLE KHIEUKH E TIKEUT
-<UCF08> \xC4\xCC |0 # HANGUL SYLLABLE KHIEUKH E RIEUL
-<UCF09> \xB1\x46 |0 # HANGUL SYLLABLE KHIEUKH E RIEULKIYEOK
-<UCF0A> \xB1\x47 |0 # HANGUL SYLLABLE KHIEUKH E RIEULMIEUM
-<UCF0B> \xB1\x48 |0 # HANGUL SYLLABLE KHIEUKH E RIEULPIEUP
-<UCF0C> \xB1\x49 |0 # HANGUL SYLLABLE KHIEUKH E RIEULSIOS
-<UCF0D> \xB1\x4A |0 # HANGUL SYLLABLE KHIEUKH E RIEULTHIEUTH
-<UCF0E> \xB1\x4B |0 # HANGUL SYLLABLE KHIEUKH E RIEULPHIEUPH
-<UCF0F> \xB1\x4C |0 # HANGUL SYLLABLE KHIEUKH E RIEULHIEUH
-<UCF10> \xC4\xCD |0 # HANGUL SYLLABLE KHIEUKH E MIEUM
-<UCF11> \xC4\xCE |0 # HANGUL SYLLABLE KHIEUKH E PIEUP
-<UCF12> \xB1\x4D |0 # HANGUL SYLLABLE KHIEUKH E PIEUPSIOS
-<UCF13> \xC4\xCF |0 # HANGUL SYLLABLE KHIEUKH E SIOS
-<UCF14> \xB1\x4E |0 # HANGUL SYLLABLE KHIEUKH E SSANGSIOS
-<UCF15> \xC4\xD0 |0 # HANGUL SYLLABLE KHIEUKH E IEUNG
-<UCF16> \xB1\x4F |0 # HANGUL SYLLABLE KHIEUKH E CIEUC
-<UCF17> \xB1\x50 |0 # HANGUL SYLLABLE KHIEUKH E CHIEUCH
-<UCF18> \xB1\x51 |0 # HANGUL SYLLABLE KHIEUKH E KHIEUKH
-<UCF19> \xB1\x52 |0 # HANGUL SYLLABLE KHIEUKH E THIEUTH
-<UCF1A> \xB1\x53 |0 # HANGUL SYLLABLE KHIEUKH E PHIEUPH
-<UCF1B> \xB1\x54 |0 # HANGUL SYLLABLE KHIEUKH E HIEUH
-<UCF1C> \xC4\xD1 |0 # HANGUL SYLLABLE KHIEUKH YEO
-<UCF1D> \xB1\x55 |0 # HANGUL SYLLABLE KHIEUKH YEO KIYEOK
-<UCF1E> \xB1\x56 |0 # HANGUL SYLLABLE KHIEUKH YEO SSANGKIYEOK
-<UCF1F> \xB1\x57 |0 # HANGUL SYLLABLE KHIEUKH YEO KIYEOKSIOS
-<UCF20> \xC4\xD2 |0 # HANGUL SYLLABLE KHIEUKH YEO NIEUN
-<UCF21> \xB1\x58 |0 # HANGUL SYLLABLE KHIEUKH YEO NIEUNCIEUC
-<UCF22> \xB1\x59 |0 # HANGUL SYLLABLE KHIEUKH YEO NIEUNHIEUH
-<UCF23> \xB1\x5A |0 # HANGUL SYLLABLE KHIEUKH YEO TIKEUT
-<UCF24> \xC4\xD3 |0 # HANGUL SYLLABLE KHIEUKH YEO RIEUL
-<UCF25> \xB1\x61 |0 # HANGUL SYLLABLE KHIEUKH YEO RIEULKIYEOK
-<UCF26> \xB1\x62 |0 # HANGUL SYLLABLE KHIEUKH YEO RIEULMIEUM
-<UCF27> \xB1\x63 |0 # HANGUL SYLLABLE KHIEUKH YEO RIEULPIEUP
-<UCF28> \xB1\x64 |0 # HANGUL SYLLABLE KHIEUKH YEO RIEULSIOS
-<UCF29> \xB1\x65 |0 # HANGUL SYLLABLE KHIEUKH YEO RIEULTHIEUTH
-<UCF2A> \xB1\x66 |0 # HANGUL SYLLABLE KHIEUKH YEO RIEULPHIEUPH
-<UCF2B> \xB1\x67 |0 # HANGUL SYLLABLE KHIEUKH YEO RIEULHIEUH
-<UCF2C> \xC4\xD4 |0 # HANGUL SYLLABLE KHIEUKH YEO MIEUM
-<UCF2D> \xC4\xD5 |0 # HANGUL SYLLABLE KHIEUKH YEO PIEUP
-<UCF2E> \xB1\x68 |0 # HANGUL SYLLABLE KHIEUKH YEO PIEUPSIOS
-<UCF2F> \xC4\xD6 |0 # HANGUL SYLLABLE KHIEUKH YEO SIOS
-<UCF30> \xC4\xD7 |0 # HANGUL SYLLABLE KHIEUKH YEO SSANGSIOS
-<UCF31> \xC4\xD8 |0 # HANGUL SYLLABLE KHIEUKH YEO IEUNG
-<UCF32> \xB1\x69 |0 # HANGUL SYLLABLE KHIEUKH YEO CIEUC
-<UCF33> \xB1\x6A |0 # HANGUL SYLLABLE KHIEUKH YEO CHIEUCH
-<UCF34> \xB1\x6B |0 # HANGUL SYLLABLE KHIEUKH YEO KHIEUKH
-<UCF35> \xB1\x6C |0 # HANGUL SYLLABLE KHIEUKH YEO THIEUTH
-<UCF36> \xB1\x6D |0 # HANGUL SYLLABLE KHIEUKH YEO PHIEUPH
-<UCF37> \xB1\x6E |0 # HANGUL SYLLABLE KHIEUKH YEO HIEUH
-<UCF38> \xC4\xD9 |0 # HANGUL SYLLABLE KHIEUKH YE
-<UCF39> \xB1\x6F |0 # HANGUL SYLLABLE KHIEUKH YE KIYEOK
-<UCF3A> \xB1\x70 |0 # HANGUL SYLLABLE KHIEUKH YE SSANGKIYEOK
-<UCF3B> \xB1\x71 |0 # HANGUL SYLLABLE KHIEUKH YE KIYEOKSIOS
-<UCF3C> \xB1\x72 |0 # HANGUL SYLLABLE KHIEUKH YE NIEUN
-<UCF3D> \xB1\x73 |0 # HANGUL SYLLABLE KHIEUKH YE NIEUNCIEUC
-<UCF3E> \xB1\x74 |0 # HANGUL SYLLABLE KHIEUKH YE NIEUNHIEUH
-<UCF3F> \xB1\x75 |0 # HANGUL SYLLABLE KHIEUKH YE TIKEUT
-<UCF40> \xB1\x76 |0 # HANGUL SYLLABLE KHIEUKH YE RIEUL
-<UCF41> \xB1\x77 |0 # HANGUL SYLLABLE KHIEUKH YE RIEULKIYEOK
-<UCF42> \xB1\x78 |0 # HANGUL SYLLABLE KHIEUKH YE RIEULMIEUM
-<UCF43> \xB1\x79 |0 # HANGUL SYLLABLE KHIEUKH YE RIEULPIEUP
-<UCF44> \xB1\x7A |0 # HANGUL SYLLABLE KHIEUKH YE RIEULSIOS
-<UCF45> \xB1\x81 |0 # HANGUL SYLLABLE KHIEUKH YE RIEULTHIEUTH
-<UCF46> \xB1\x82 |0 # HANGUL SYLLABLE KHIEUKH YE RIEULPHIEUPH
-<UCF47> \xB1\x83 |0 # HANGUL SYLLABLE KHIEUKH YE RIEULHIEUH
-<UCF48> \xB1\x84 |0 # HANGUL SYLLABLE KHIEUKH YE MIEUM
-<UCF49> \xB1\x85 |0 # HANGUL SYLLABLE KHIEUKH YE PIEUP
-<UCF4A> \xB1\x86 |0 # HANGUL SYLLABLE KHIEUKH YE PIEUPSIOS
-<UCF4B> \xB1\x87 |0 # HANGUL SYLLABLE KHIEUKH YE SIOS
-<UCF4C> \xB1\x88 |0 # HANGUL SYLLABLE KHIEUKH YE SSANGSIOS
-<UCF4D> \xB1\x89 |0 # HANGUL SYLLABLE KHIEUKH YE IEUNG
-<UCF4E> \xB1\x8A |0 # HANGUL SYLLABLE KHIEUKH YE CIEUC
-<UCF4F> \xB1\x8B |0 # HANGUL SYLLABLE KHIEUKH YE CHIEUCH
-<UCF50> \xB1\x8C |0 # HANGUL SYLLABLE KHIEUKH YE KHIEUKH
-<UCF51> \xB1\x8D |0 # HANGUL SYLLABLE KHIEUKH YE THIEUTH
-<UCF52> \xB1\x8E |0 # HANGUL SYLLABLE KHIEUKH YE PHIEUPH
-<UCF53> \xB1\x8F |0 # HANGUL SYLLABLE KHIEUKH YE HIEUH
-<UCF54> \xC4\xDA |0 # HANGUL SYLLABLE KHIEUKH O
-<UCF55> \xC4\xDB |0 # HANGUL SYLLABLE KHIEUKH O KIYEOK
-<UCF56> \xB1\x90 |0 # HANGUL SYLLABLE KHIEUKH O SSANGKIYEOK
-<UCF57> \xB1\x91 |0 # HANGUL SYLLABLE KHIEUKH O KIYEOKSIOS
-<UCF58> \xC4\xDC |0 # HANGUL SYLLABLE KHIEUKH O NIEUN
-<UCF59> \xB1\x92 |0 # HANGUL SYLLABLE KHIEUKH O NIEUNCIEUC
-<UCF5A> \xB1\x93 |0 # HANGUL SYLLABLE KHIEUKH O NIEUNHIEUH
-<UCF5B> \xB1\x94 |0 # HANGUL SYLLABLE KHIEUKH O TIKEUT
-<UCF5C> \xC4\xDD |0 # HANGUL SYLLABLE KHIEUKH O RIEUL
-<UCF5D> \xB1\x95 |0 # HANGUL SYLLABLE KHIEUKH O RIEULKIYEOK
-<UCF5E> \xB1\x96 |0 # HANGUL SYLLABLE KHIEUKH O RIEULMIEUM
-<UCF5F> \xB1\x97 |0 # HANGUL SYLLABLE KHIEUKH O RIEULPIEUP
-<UCF60> \xB1\x98 |0 # HANGUL SYLLABLE KHIEUKH O RIEULSIOS
-<UCF61> \xB1\x99 |0 # HANGUL SYLLABLE KHIEUKH O RIEULTHIEUTH
-<UCF62> \xB1\x9A |0 # HANGUL SYLLABLE KHIEUKH O RIEULPHIEUPH
-<UCF63> \xB1\x9B |0 # HANGUL SYLLABLE KHIEUKH O RIEULHIEUH
-<UCF64> \xC4\xDE |0 # HANGUL SYLLABLE KHIEUKH O MIEUM
-<UCF65> \xC4\xDF |0 # HANGUL SYLLABLE KHIEUKH O PIEUP
-<UCF66> \xB1\x9C |0 # HANGUL SYLLABLE KHIEUKH O PIEUPSIOS
-<UCF67> \xC4\xE0 |0 # HANGUL SYLLABLE KHIEUKH O SIOS
-<UCF68> \xB1\x9D |0 # HANGUL SYLLABLE KHIEUKH O SSANGSIOS
-<UCF69> \xC4\xE1 |0 # HANGUL SYLLABLE KHIEUKH O IEUNG
-<UCF6A> \xB1\x9E |0 # HANGUL SYLLABLE KHIEUKH O CIEUC
-<UCF6B> \xB1\x9F |0 # HANGUL SYLLABLE KHIEUKH O CHIEUCH
-<UCF6C> \xB1\xA0 |0 # HANGUL SYLLABLE KHIEUKH O KHIEUKH
-<UCF6D> \xB2\x41 |0 # HANGUL SYLLABLE KHIEUKH O THIEUTH
-<UCF6E> \xB2\x42 |0 # HANGUL SYLLABLE KHIEUKH O PHIEUPH
-<UCF6F> \xB2\x43 |0 # HANGUL SYLLABLE KHIEUKH O HIEUH
-<UCF70> \xC4\xE2 |0 # HANGUL SYLLABLE KHIEUKH WA
-<UCF71> \xC4\xE3 |0 # HANGUL SYLLABLE KHIEUKH WA KIYEOK
-<UCF72> \xB2\x44 |0 # HANGUL SYLLABLE KHIEUKH WA SSANGKIYEOK
-<UCF73> \xB2\x45 |0 # HANGUL SYLLABLE KHIEUKH WA KIYEOKSIOS
-<UCF74> \xC4\xE4 |0 # HANGUL SYLLABLE KHIEUKH WA NIEUN
-<UCF75> \xB2\x46 |0 # HANGUL SYLLABLE KHIEUKH WA NIEUNCIEUC
-<UCF76> \xB2\x47 |0 # HANGUL SYLLABLE KHIEUKH WA NIEUNHIEUH
-<UCF77> \xB2\x48 |0 # HANGUL SYLLABLE KHIEUKH WA TIKEUT
-<UCF78> \xC4\xE5 |0 # HANGUL SYLLABLE KHIEUKH WA RIEUL
-<UCF79> \xB2\x49 |0 # HANGUL SYLLABLE KHIEUKH WA RIEULKIYEOK
-<UCF7A> \xB2\x4A |0 # HANGUL SYLLABLE KHIEUKH WA RIEULMIEUM
-<UCF7B> \xB2\x4B |0 # HANGUL SYLLABLE KHIEUKH WA RIEULPIEUP
-<UCF7C> \xB2\x4C |0 # HANGUL SYLLABLE KHIEUKH WA RIEULSIOS
-<UCF7D> \xB2\x4D |0 # HANGUL SYLLABLE KHIEUKH WA RIEULTHIEUTH
-<UCF7E> \xB2\x4E |0 # HANGUL SYLLABLE KHIEUKH WA RIEULPHIEUPH
-<UCF7F> \xB2\x4F |0 # HANGUL SYLLABLE KHIEUKH WA RIEULHIEUH
-<UCF80> \xC4\xE6 |0 # HANGUL SYLLABLE KHIEUKH WA MIEUM
-<UCF81> \xB2\x50 |0 # HANGUL SYLLABLE KHIEUKH WA PIEUP
-<UCF82> \xB2\x51 |0 # HANGUL SYLLABLE KHIEUKH WA PIEUPSIOS
-<UCF83> \xB2\x52 |0 # HANGUL SYLLABLE KHIEUKH WA SIOS
-<UCF84> \xB2\x53 |0 # HANGUL SYLLABLE KHIEUKH WA SSANGSIOS
-<UCF85> \xC4\xE7 |0 # HANGUL SYLLABLE KHIEUKH WA IEUNG
-<UCF86> \xB2\x54 |0 # HANGUL SYLLABLE KHIEUKH WA CIEUC
-<UCF87> \xB2\x55 |0 # HANGUL SYLLABLE KHIEUKH WA CHIEUCH
-<UCF88> \xB2\x56 |0 # HANGUL SYLLABLE KHIEUKH WA KHIEUKH
-<UCF89> \xB2\x57 |0 # HANGUL SYLLABLE KHIEUKH WA THIEUTH
-<UCF8A> \xB2\x58 |0 # HANGUL SYLLABLE KHIEUKH WA PHIEUPH
-<UCF8B> \xB2\x59 |0 # HANGUL SYLLABLE KHIEUKH WA HIEUH
-<UCF8C> \xC4\xE8 |0 # HANGUL SYLLABLE KHIEUKH WAE
-<UCF8D> \xB2\x5A |0 # HANGUL SYLLABLE KHIEUKH WAE KIYEOK
-<UCF8E> \xB2\x61 |0 # HANGUL SYLLABLE KHIEUKH WAE SSANGKIYEOK
-<UCF8F> \xB2\x62 |0 # HANGUL SYLLABLE KHIEUKH WAE KIYEOKSIOS
-<UCF90> \xB2\x63 |0 # HANGUL SYLLABLE KHIEUKH WAE NIEUN
-<UCF91> \xB2\x64 |0 # HANGUL SYLLABLE KHIEUKH WAE NIEUNCIEUC
-<UCF92> \xB2\x65 |0 # HANGUL SYLLABLE KHIEUKH WAE NIEUNHIEUH
-<UCF93> \xB2\x66 |0 # HANGUL SYLLABLE KHIEUKH WAE TIKEUT
-<UCF94> \xB2\x67 |0 # HANGUL SYLLABLE KHIEUKH WAE RIEUL
-<UCF95> \xB2\x68 |0 # HANGUL SYLLABLE KHIEUKH WAE RIEULKIYEOK
-<UCF96> \xB2\x69 |0 # HANGUL SYLLABLE KHIEUKH WAE RIEULMIEUM
-<UCF97> \xB2\x6A |0 # HANGUL SYLLABLE KHIEUKH WAE RIEULPIEUP
-<UCF98> \xB2\x6B |0 # HANGUL SYLLABLE KHIEUKH WAE RIEULSIOS
-<UCF99> \xB2\x6C |0 # HANGUL SYLLABLE KHIEUKH WAE RIEULTHIEUTH
-<UCF9A> \xB2\x6D |0 # HANGUL SYLLABLE KHIEUKH WAE RIEULPHIEUPH
-<UCF9B> \xB2\x6E |0 # HANGUL SYLLABLE KHIEUKH WAE RIEULHIEUH
-<UCF9C> \xB2\x6F |0 # HANGUL SYLLABLE KHIEUKH WAE MIEUM
-<UCF9D> \xB2\x70 |0 # HANGUL SYLLABLE KHIEUKH WAE PIEUP
-<UCF9E> \xB2\x71 |0 # HANGUL SYLLABLE KHIEUKH WAE PIEUPSIOS
-<UCF9F> \xB2\x72 |0 # HANGUL SYLLABLE KHIEUKH WAE SIOS
-<UCFA0> \xB2\x73 |0 # HANGUL SYLLABLE KHIEUKH WAE SSANGSIOS
-<UCFA1> \xC4\xE9 |0 # HANGUL SYLLABLE KHIEUKH WAE IEUNG
-<UCFA2> \xB2\x74 |0 # HANGUL SYLLABLE KHIEUKH WAE CIEUC
-<UCFA3> \xB2\x75 |0 # HANGUL SYLLABLE KHIEUKH WAE CHIEUCH
-<UCFA4> \xB2\x76 |0 # HANGUL SYLLABLE KHIEUKH WAE KHIEUKH
-<UCFA5> \xB2\x77 |0 # HANGUL SYLLABLE KHIEUKH WAE THIEUTH
-<UCFA6> \xB2\x78 |0 # HANGUL SYLLABLE KHIEUKH WAE PHIEUPH
-<UCFA7> \xB2\x79 |0 # HANGUL SYLLABLE KHIEUKH WAE HIEUH
-<UCFA8> \xC4\xEA |0 # HANGUL SYLLABLE KHIEUKH OE
-<UCFA9> \xB2\x7A |0 # HANGUL SYLLABLE KHIEUKH OE KIYEOK
-<UCFAA> \xB2\x81 |0 # HANGUL SYLLABLE KHIEUKH OE SSANGKIYEOK
-<UCFAB> \xB2\x82 |0 # HANGUL SYLLABLE KHIEUKH OE KIYEOKSIOS
-<UCFAC> \xB2\x83 |0 # HANGUL SYLLABLE KHIEUKH OE NIEUN
-<UCFAD> \xB2\x84 |0 # HANGUL SYLLABLE KHIEUKH OE NIEUNCIEUC
-<UCFAE> \xB2\x85 |0 # HANGUL SYLLABLE KHIEUKH OE NIEUNHIEUH
-<UCFAF> \xB2\x86 |0 # HANGUL SYLLABLE KHIEUKH OE TIKEUT
-<UCFB0> \xC4\xEB |0 # HANGUL SYLLABLE KHIEUKH OE RIEUL
-<UCFB1> \xB2\x87 |0 # HANGUL SYLLABLE KHIEUKH OE RIEULKIYEOK
-<UCFB2> \xB2\x88 |0 # HANGUL SYLLABLE KHIEUKH OE RIEULMIEUM
-<UCFB3> \xB2\x89 |0 # HANGUL SYLLABLE KHIEUKH OE RIEULPIEUP
-<UCFB4> \xB2\x8A |0 # HANGUL SYLLABLE KHIEUKH OE RIEULSIOS
-<UCFB5> \xB2\x8B |0 # HANGUL SYLLABLE KHIEUKH OE RIEULTHIEUTH
-<UCFB6> \xB2\x8C |0 # HANGUL SYLLABLE KHIEUKH OE RIEULPHIEUPH
-<UCFB7> \xB2\x8D |0 # HANGUL SYLLABLE KHIEUKH OE RIEULHIEUH
-<UCFB8> \xB2\x8E |0 # HANGUL SYLLABLE KHIEUKH OE MIEUM
-<UCFB9> \xB2\x8F |0 # HANGUL SYLLABLE KHIEUKH OE PIEUP
-<UCFBA> \xB2\x90 |0 # HANGUL SYLLABLE KHIEUKH OE PIEUPSIOS
-<UCFBB> \xB2\x91 |0 # HANGUL SYLLABLE KHIEUKH OE SIOS
-<UCFBC> \xB2\x92 |0 # HANGUL SYLLABLE KHIEUKH OE SSANGSIOS
-<UCFBD> \xB2\x93 |0 # HANGUL SYLLABLE KHIEUKH OE IEUNG
-<UCFBE> \xB2\x94 |0 # HANGUL SYLLABLE KHIEUKH OE CIEUC
-<UCFBF> \xB2\x95 |0 # HANGUL SYLLABLE KHIEUKH OE CHIEUCH
-<UCFC0> \xB2\x96 |0 # HANGUL SYLLABLE KHIEUKH OE KHIEUKH
-<UCFC1> \xB2\x97 |0 # HANGUL SYLLABLE KHIEUKH OE THIEUTH
-<UCFC2> \xB2\x98 |0 # HANGUL SYLLABLE KHIEUKH OE PHIEUPH
-<UCFC3> \xB2\x99 |0 # HANGUL SYLLABLE KHIEUKH OE HIEUH
-<UCFC4> \xC4\xEC |0 # HANGUL SYLLABLE KHIEUKH YO
-<UCFC5> \xB2\x9A |0 # HANGUL SYLLABLE KHIEUKH YO KIYEOK
-<UCFC6> \xB2\x9B |0 # HANGUL SYLLABLE KHIEUKH YO SSANGKIYEOK
-<UCFC7> \xB2\x9C |0 # HANGUL SYLLABLE KHIEUKH YO KIYEOKSIOS
-<UCFC8> \xB2\x9D |0 # HANGUL SYLLABLE KHIEUKH YO NIEUN
-<UCFC9> \xB2\x9E |0 # HANGUL SYLLABLE KHIEUKH YO NIEUNCIEUC
-<UCFCA> \xB2\x9F |0 # HANGUL SYLLABLE KHIEUKH YO NIEUNHIEUH
-<UCFCB> \xB2\xA0 |0 # HANGUL SYLLABLE KHIEUKH YO TIKEUT
-<UCFCC> \xB3\x41 |0 # HANGUL SYLLABLE KHIEUKH YO RIEUL
-<UCFCD> \xB3\x42 |0 # HANGUL SYLLABLE KHIEUKH YO RIEULKIYEOK
-<UCFCE> \xB3\x43 |0 # HANGUL SYLLABLE KHIEUKH YO RIEULMIEUM
-<UCFCF> \xB3\x44 |0 # HANGUL SYLLABLE KHIEUKH YO RIEULPIEUP
-<UCFD0> \xB3\x45 |0 # HANGUL SYLLABLE KHIEUKH YO RIEULSIOS
-<UCFD1> \xB3\x46 |0 # HANGUL SYLLABLE KHIEUKH YO RIEULTHIEUTH
-<UCFD2> \xB3\x47 |0 # HANGUL SYLLABLE KHIEUKH YO RIEULPHIEUPH
-<UCFD3> \xB3\x48 |0 # HANGUL SYLLABLE KHIEUKH YO RIEULHIEUH
-<UCFD4> \xB3\x49 |0 # HANGUL SYLLABLE KHIEUKH YO MIEUM
-<UCFD5> \xB3\x4A |0 # HANGUL SYLLABLE KHIEUKH YO PIEUP
-<UCFD6> \xB3\x4B |0 # HANGUL SYLLABLE KHIEUKH YO PIEUPSIOS
-<UCFD7> \xB3\x4C |0 # HANGUL SYLLABLE KHIEUKH YO SIOS
-<UCFD8> \xB3\x4D |0 # HANGUL SYLLABLE KHIEUKH YO SSANGSIOS
-<UCFD9> \xB3\x4E |0 # HANGUL SYLLABLE KHIEUKH YO IEUNG
-<UCFDA> \xB3\x4F |0 # HANGUL SYLLABLE KHIEUKH YO CIEUC
-<UCFDB> \xB3\x50 |0 # HANGUL SYLLABLE KHIEUKH YO CHIEUCH
-<UCFDC> \xB3\x51 |0 # HANGUL SYLLABLE KHIEUKH YO KHIEUKH
-<UCFDD> \xB3\x52 |0 # HANGUL SYLLABLE KHIEUKH YO THIEUTH
-<UCFDE> \xB3\x53 |0 # HANGUL SYLLABLE KHIEUKH YO PHIEUPH
-<UCFDF> \xB3\x54 |0 # HANGUL SYLLABLE KHIEUKH YO HIEUH
-<UCFE0> \xC4\xED |0 # HANGUL SYLLABLE KHIEUKH U
-<UCFE1> \xC4\xEE |0 # HANGUL SYLLABLE KHIEUKH U KIYEOK
-<UCFE2> \xB3\x55 |0 # HANGUL SYLLABLE KHIEUKH U SSANGKIYEOK
-<UCFE3> \xB3\x56 |0 # HANGUL SYLLABLE KHIEUKH U KIYEOKSIOS
-<UCFE4> \xC4\xEF |0 # HANGUL SYLLABLE KHIEUKH U NIEUN
-<UCFE5> \xB3\x57 |0 # HANGUL SYLLABLE KHIEUKH U NIEUNCIEUC
-<UCFE6> \xB3\x58 |0 # HANGUL SYLLABLE KHIEUKH U NIEUNHIEUH
-<UCFE7> \xB3\x59 |0 # HANGUL SYLLABLE KHIEUKH U TIKEUT
-<UCFE8> \xC4\xF0 |0 # HANGUL SYLLABLE KHIEUKH U RIEUL
-<UCFE9> \xB3\x5A |0 # HANGUL SYLLABLE KHIEUKH U RIEULKIYEOK
-<UCFEA> \xB3\x61 |0 # HANGUL SYLLABLE KHIEUKH U RIEULMIEUM
-<UCFEB> \xB3\x62 |0 # HANGUL SYLLABLE KHIEUKH U RIEULPIEUP
-<UCFEC> \xB3\x63 |0 # HANGUL SYLLABLE KHIEUKH U RIEULSIOS
-<UCFED> \xB3\x64 |0 # HANGUL SYLLABLE KHIEUKH U RIEULTHIEUTH
-<UCFEE> \xB3\x65 |0 # HANGUL SYLLABLE KHIEUKH U RIEULPHIEUPH
-<UCFEF> \xB3\x66 |0 # HANGUL SYLLABLE KHIEUKH U RIEULHIEUH
-<UCFF0> \xC4\xF1 |0 # HANGUL SYLLABLE KHIEUKH U MIEUM
-<UCFF1> \xC4\xF2 |0 # HANGUL SYLLABLE KHIEUKH U PIEUP
-<UCFF2> \xB3\x67 |0 # HANGUL SYLLABLE KHIEUKH U PIEUPSIOS
-<UCFF3> \xC4\xF3 |0 # HANGUL SYLLABLE KHIEUKH U SIOS
-<UCFF4> \xB3\x68 |0 # HANGUL SYLLABLE KHIEUKH U SSANGSIOS
-<UCFF5> \xC4\xF4 |0 # HANGUL SYLLABLE KHIEUKH U IEUNG
-<UCFF6> \xB3\x69 |0 # HANGUL SYLLABLE KHIEUKH U CIEUC
-<UCFF7> \xB3\x6A |0 # HANGUL SYLLABLE KHIEUKH U CHIEUCH
-<UCFF8> \xB3\x6B |0 # HANGUL SYLLABLE KHIEUKH U KHIEUKH
-<UCFF9> \xB3\x6C |0 # HANGUL SYLLABLE KHIEUKH U THIEUTH
-<UCFFA> \xB3\x6D |0 # HANGUL SYLLABLE KHIEUKH U PHIEUPH
-<UCFFB> \xB3\x6E |0 # HANGUL SYLLABLE KHIEUKH U HIEUH
-<UCFFC> \xC4\xF5 |0 # HANGUL SYLLABLE KHIEUKH WEO
-<UCFFD> \xB3\x6F |0 # HANGUL SYLLABLE KHIEUKH WEO KIYEOK
-<UCFFE> \xB3\x70 |0 # HANGUL SYLLABLE KHIEUKH WEO SSANGKIYEOK
-<UCFFF> \xB3\x71 |0 # HANGUL SYLLABLE KHIEUKH WEO KIYEOKSIOS
-<UD000> \xC4\xF6 |0 # HANGUL SYLLABLE KHIEUKH WEO NIEUN
-<UD001> \xB3\x72 |0 # HANGUL SYLLABLE KHIEUKH WEO NIEUNCIEUC
-<UD002> \xB3\x73 |0 # HANGUL SYLLABLE KHIEUKH WEO NIEUNHIEUH
-<UD003> \xB3\x74 |0 # HANGUL SYLLABLE KHIEUKH WEO TIKEUT
-<UD004> \xC4\xF7 |0 # HANGUL SYLLABLE KHIEUKH WEO RIEUL
-<UD005> \xB3\x75 |0 # HANGUL SYLLABLE KHIEUKH WEO RIEULKIYEOK
-<UD006> \xB3\x76 |0 # HANGUL SYLLABLE KHIEUKH WEO RIEULMIEUM
-<UD007> \xB3\x77 |0 # HANGUL SYLLABLE KHIEUKH WEO RIEULPIEUP
-<UD008> \xB3\x78 |0 # HANGUL SYLLABLE KHIEUKH WEO RIEULSIOS
-<UD009> \xB3\x79 |0 # HANGUL SYLLABLE KHIEUKH WEO RIEULTHIEUTH
-<UD00A> \xB3\x7A |0 # HANGUL SYLLABLE KHIEUKH WEO RIEULPHIEUPH
-<UD00B> \xB3\x81 |0 # HANGUL SYLLABLE KHIEUKH WEO RIEULHIEUH
-<UD00C> \xB3\x82 |0 # HANGUL SYLLABLE KHIEUKH WEO MIEUM
-<UD00D> \xB3\x83 |0 # HANGUL SYLLABLE KHIEUKH WEO PIEUP
-<UD00E> \xB3\x84 |0 # HANGUL SYLLABLE KHIEUKH WEO PIEUPSIOS
-<UD00F> \xB3\x85 |0 # HANGUL SYLLABLE KHIEUKH WEO SIOS
-<UD010> \xB3\x86 |0 # HANGUL SYLLABLE KHIEUKH WEO SSANGSIOS
-<UD011> \xC4\xF8 |0 # HANGUL SYLLABLE KHIEUKH WEO IEUNG
-<UD012> \xB3\x87 |0 # HANGUL SYLLABLE KHIEUKH WEO CIEUC
-<UD013> \xB3\x88 |0 # HANGUL SYLLABLE KHIEUKH WEO CHIEUCH
-<UD014> \xB3\x89 |0 # HANGUL SYLLABLE KHIEUKH WEO KHIEUKH
-<UD015> \xB3\x8A |0 # HANGUL SYLLABLE KHIEUKH WEO THIEUTH
-<UD016> \xB3\x8B |0 # HANGUL SYLLABLE KHIEUKH WEO PHIEUPH
-<UD017> \xB3\x8C |0 # HANGUL SYLLABLE KHIEUKH WEO HIEUH
-<UD018> \xC4\xF9 |0 # HANGUL SYLLABLE KHIEUKH WE
-<UD019> \xB3\x8D |0 # HANGUL SYLLABLE KHIEUKH WE KIYEOK
-<UD01A> \xB3\x8E |0 # HANGUL SYLLABLE KHIEUKH WE SSANGKIYEOK
-<UD01B> \xB3\x8F |0 # HANGUL SYLLABLE KHIEUKH WE KIYEOKSIOS
-<UD01C> \xB3\x90 |0 # HANGUL SYLLABLE KHIEUKH WE NIEUN
-<UD01D> \xB3\x91 |0 # HANGUL SYLLABLE KHIEUKH WE NIEUNCIEUC
-<UD01E> \xB3\x92 |0 # HANGUL SYLLABLE KHIEUKH WE NIEUNHIEUH
-<UD01F> \xB3\x93 |0 # HANGUL SYLLABLE KHIEUKH WE TIKEUT
-<UD020> \xB3\x94 |0 # HANGUL SYLLABLE KHIEUKH WE RIEUL
-<UD021> \xB3\x95 |0 # HANGUL SYLLABLE KHIEUKH WE RIEULKIYEOK
-<UD022> \xB3\x96 |0 # HANGUL SYLLABLE KHIEUKH WE RIEULMIEUM
-<UD023> \xB3\x97 |0 # HANGUL SYLLABLE KHIEUKH WE RIEULPIEUP
-<UD024> \xB3\x98 |0 # HANGUL SYLLABLE KHIEUKH WE RIEULSIOS
-<UD025> \xB3\x99 |0 # HANGUL SYLLABLE KHIEUKH WE RIEULTHIEUTH
-<UD026> \xB3\x9A |0 # HANGUL SYLLABLE KHIEUKH WE RIEULPHIEUPH
-<UD027> \xB3\x9B |0 # HANGUL SYLLABLE KHIEUKH WE RIEULHIEUH
-<UD028> \xB3\x9C |0 # HANGUL SYLLABLE KHIEUKH WE MIEUM
-<UD029> \xB3\x9D |0 # HANGUL SYLLABLE KHIEUKH WE PIEUP
-<UD02A> \xB3\x9E |0 # HANGUL SYLLABLE KHIEUKH WE PIEUPSIOS
-<UD02B> \xB3\x9F |0 # HANGUL SYLLABLE KHIEUKH WE SIOS
-<UD02C> \xB3\xA0 |0 # HANGUL SYLLABLE KHIEUKH WE SSANGSIOS
-<UD02D> \xC4\xFA |0 # HANGUL SYLLABLE KHIEUKH WE IEUNG
-<UD02E> \xB4\x41 |0 # HANGUL SYLLABLE KHIEUKH WE CIEUC
-<UD02F> \xB4\x42 |0 # HANGUL SYLLABLE KHIEUKH WE CHIEUCH
-<UD030> \xB4\x43 |0 # HANGUL SYLLABLE KHIEUKH WE KHIEUKH
-<UD031> \xB4\x44 |0 # HANGUL SYLLABLE KHIEUKH WE THIEUTH
-<UD032> \xB4\x45 |0 # HANGUL SYLLABLE KHIEUKH WE PHIEUPH
-<UD033> \xB4\x46 |0 # HANGUL SYLLABLE KHIEUKH WE HIEUH
-<UD034> \xC4\xFB |0 # HANGUL SYLLABLE KHIEUKH WI
-<UD035> \xC4\xFC |0 # HANGUL SYLLABLE KHIEUKH WI KIYEOK
-<UD036> \xB4\x47 |0 # HANGUL SYLLABLE KHIEUKH WI SSANGKIYEOK
-<UD037> \xB4\x48 |0 # HANGUL SYLLABLE KHIEUKH WI KIYEOKSIOS
-<UD038> \xC4\xFD |0 # HANGUL SYLLABLE KHIEUKH WI NIEUN
-<UD039> \xB4\x49 |0 # HANGUL SYLLABLE KHIEUKH WI NIEUNCIEUC
-<UD03A> \xB4\x4A |0 # HANGUL SYLLABLE KHIEUKH WI NIEUNHIEUH
-<UD03B> \xB4\x4B |0 # HANGUL SYLLABLE KHIEUKH WI TIKEUT
-<UD03C> \xC4\xFE |0 # HANGUL SYLLABLE KHIEUKH WI RIEUL
-<UD03D> \xB4\x4C |0 # HANGUL SYLLABLE KHIEUKH WI RIEULKIYEOK
-<UD03E> \xB4\x4D |0 # HANGUL SYLLABLE KHIEUKH WI RIEULMIEUM
-<UD03F> \xB4\x4E |0 # HANGUL SYLLABLE KHIEUKH WI RIEULPIEUP
-<UD040> \xB4\x4F |0 # HANGUL SYLLABLE KHIEUKH WI RIEULSIOS
-<UD041> \xB4\x50 |0 # HANGUL SYLLABLE KHIEUKH WI RIEULTHIEUTH
-<UD042> \xB4\x51 |0 # HANGUL SYLLABLE KHIEUKH WI RIEULPHIEUPH
-<UD043> \xB4\x52 |0 # HANGUL SYLLABLE KHIEUKH WI RIEULHIEUH
-<UD044> \xC5\xA1 |0 # HANGUL SYLLABLE KHIEUKH WI MIEUM
-<UD045> \xC5\xA2 |0 # HANGUL SYLLABLE KHIEUKH WI PIEUP
-<UD046> \xB4\x53 |0 # HANGUL SYLLABLE KHIEUKH WI PIEUPSIOS
-<UD047> \xC5\xA3 |0 # HANGUL SYLLABLE KHIEUKH WI SIOS
-<UD048> \xB4\x54 |0 # HANGUL SYLLABLE KHIEUKH WI SSANGSIOS
-<UD049> \xC5\xA4 |0 # HANGUL SYLLABLE KHIEUKH WI IEUNG
-<UD04A> \xB4\x55 |0 # HANGUL SYLLABLE KHIEUKH WI CIEUC
-<UD04B> \xB4\x56 |0 # HANGUL SYLLABLE KHIEUKH WI CHIEUCH
-<UD04C> \xB4\x57 |0 # HANGUL SYLLABLE KHIEUKH WI KHIEUKH
-<UD04D> \xB4\x58 |0 # HANGUL SYLLABLE KHIEUKH WI THIEUTH
-<UD04E> \xB4\x59 |0 # HANGUL SYLLABLE KHIEUKH WI PHIEUPH
-<UD04F> \xB4\x5A |0 # HANGUL SYLLABLE KHIEUKH WI HIEUH
-<UD050> \xC5\xA5 |0 # HANGUL SYLLABLE KHIEUKH YU
-<UD051> \xB4\x61 |0 # HANGUL SYLLABLE KHIEUKH YU KIYEOK
-<UD052> \xB4\x62 |0 # HANGUL SYLLABLE KHIEUKH YU SSANGKIYEOK
-<UD053> \xB4\x63 |0 # HANGUL SYLLABLE KHIEUKH YU KIYEOKSIOS
-<UD054> \xC5\xA6 |0 # HANGUL SYLLABLE KHIEUKH YU NIEUN
-<UD055> \xB4\x64 |0 # HANGUL SYLLABLE KHIEUKH YU NIEUNCIEUC
-<UD056> \xB4\x65 |0 # HANGUL SYLLABLE KHIEUKH YU NIEUNHIEUH
-<UD057> \xB4\x66 |0 # HANGUL SYLLABLE KHIEUKH YU TIKEUT
-<UD058> \xC5\xA7 |0 # HANGUL SYLLABLE KHIEUKH YU RIEUL
-<UD059> \xB4\x67 |0 # HANGUL SYLLABLE KHIEUKH YU RIEULKIYEOK
-<UD05A> \xB4\x68 |0 # HANGUL SYLLABLE KHIEUKH YU RIEULMIEUM
-<UD05B> \xB4\x69 |0 # HANGUL SYLLABLE KHIEUKH YU RIEULPIEUP
-<UD05C> \xB4\x6A |0 # HANGUL SYLLABLE KHIEUKH YU RIEULSIOS
-<UD05D> \xB4\x6B |0 # HANGUL SYLLABLE KHIEUKH YU RIEULTHIEUTH
-<UD05E> \xB4\x6C |0 # HANGUL SYLLABLE KHIEUKH YU RIEULPHIEUPH
-<UD05F> \xB4\x6D |0 # HANGUL SYLLABLE KHIEUKH YU RIEULHIEUH
-<UD060> \xC5\xA8 |0 # HANGUL SYLLABLE KHIEUKH YU MIEUM
-<UD061> \xB4\x6E |0 # HANGUL SYLLABLE KHIEUKH YU PIEUP
-<UD062> \xB4\x6F |0 # HANGUL SYLLABLE KHIEUKH YU PIEUPSIOS
-<UD063> \xB4\x70 |0 # HANGUL SYLLABLE KHIEUKH YU SIOS
-<UD064> \xB4\x71 |0 # HANGUL SYLLABLE KHIEUKH YU SSANGSIOS
-<UD065> \xB4\x72 |0 # HANGUL SYLLABLE KHIEUKH YU IEUNG
-<UD066> \xB4\x73 |0 # HANGUL SYLLABLE KHIEUKH YU CIEUC
-<UD067> \xB4\x74 |0 # HANGUL SYLLABLE KHIEUKH YU CHIEUCH
-<UD068> \xB4\x75 |0 # HANGUL SYLLABLE KHIEUKH YU KHIEUKH
-<UD069> \xB4\x76 |0 # HANGUL SYLLABLE KHIEUKH YU THIEUTH
-<UD06A> \xB4\x77 |0 # HANGUL SYLLABLE KHIEUKH YU PHIEUPH
-<UD06B> \xB4\x78 |0 # HANGUL SYLLABLE KHIEUKH YU HIEUH
-<UD06C> \xC5\xA9 |0 # HANGUL SYLLABLE KHIEUKH EU
-<UD06D> \xC5\xAA |0 # HANGUL SYLLABLE KHIEUKH EU KIYEOK
-<UD06E> \xB4\x79 |0 # HANGUL SYLLABLE KHIEUKH EU SSANGKIYEOK
-<UD06F> \xB4\x7A |0 # HANGUL SYLLABLE KHIEUKH EU KIYEOKSIOS
-<UD070> \xC5\xAB |0 # HANGUL SYLLABLE KHIEUKH EU NIEUN
-<UD071> \xB4\x81 |0 # HANGUL SYLLABLE KHIEUKH EU NIEUNCIEUC
-<UD072> \xB4\x82 |0 # HANGUL SYLLABLE KHIEUKH EU NIEUNHIEUH
-<UD073> \xB4\x83 |0 # HANGUL SYLLABLE KHIEUKH EU TIKEUT
-<UD074> \xC5\xAC |0 # HANGUL SYLLABLE KHIEUKH EU RIEUL
-<UD075> \xB4\x84 |0 # HANGUL SYLLABLE KHIEUKH EU RIEULKIYEOK
-<UD076> \xB4\x85 |0 # HANGUL SYLLABLE KHIEUKH EU RIEULMIEUM
-<UD077> \xB4\x86 |0 # HANGUL SYLLABLE KHIEUKH EU RIEULPIEUP
-<UD078> \xB4\x87 |0 # HANGUL SYLLABLE KHIEUKH EU RIEULSIOS
-<UD079> \xB4\x88 |0 # HANGUL SYLLABLE KHIEUKH EU RIEULTHIEUTH
-<UD07A> \xB4\x89 |0 # HANGUL SYLLABLE KHIEUKH EU RIEULPHIEUPH
-<UD07B> \xB4\x8A |0 # HANGUL SYLLABLE KHIEUKH EU RIEULHIEUH
-<UD07C> \xC5\xAD |0 # HANGUL SYLLABLE KHIEUKH EU MIEUM
-<UD07D> \xC5\xAE |0 # HANGUL SYLLABLE KHIEUKH EU PIEUP
-<UD07E> \xB4\x8B |0 # HANGUL SYLLABLE KHIEUKH EU PIEUPSIOS
-<UD07F> \xB4\x8C |0 # HANGUL SYLLABLE KHIEUKH EU SIOS
-<UD080> \xB4\x8D |0 # HANGUL SYLLABLE KHIEUKH EU SSANGSIOS
-<UD081> \xC5\xAF |0 # HANGUL SYLLABLE KHIEUKH EU IEUNG
-<UD082> \xB4\x8E |0 # HANGUL SYLLABLE KHIEUKH EU CIEUC
-<UD083> \xB4\x8F |0 # HANGUL SYLLABLE KHIEUKH EU CHIEUCH
-<UD084> \xB4\x90 |0 # HANGUL SYLLABLE KHIEUKH EU KHIEUKH
-<UD085> \xB4\x91 |0 # HANGUL SYLLABLE KHIEUKH EU THIEUTH
-<UD086> \xB4\x92 |0 # HANGUL SYLLABLE KHIEUKH EU PHIEUPH
-<UD087> \xB4\x93 |0 # HANGUL SYLLABLE KHIEUKH EU HIEUH
-<UD088> \xB4\x94 |0 # HANGUL SYLLABLE KHIEUKH YI
-<UD089> \xB4\x95 |0 # HANGUL SYLLABLE KHIEUKH YI KIYEOK
-<UD08A> \xB4\x96 |0 # HANGUL SYLLABLE KHIEUKH YI SSANGKIYEOK
-<UD08B> \xB4\x97 |0 # HANGUL SYLLABLE KHIEUKH YI KIYEOKSIOS
-<UD08C> \xB4\x98 |0 # HANGUL SYLLABLE KHIEUKH YI NIEUN
-<UD08D> \xB4\x99 |0 # HANGUL SYLLABLE KHIEUKH YI NIEUNCIEUC
-<UD08E> \xB4\x9A |0 # HANGUL SYLLABLE KHIEUKH YI NIEUNHIEUH
-<UD08F> \xB4\x9B |0 # HANGUL SYLLABLE KHIEUKH YI TIKEUT
-<UD090> \xB4\x9C |0 # HANGUL SYLLABLE KHIEUKH YI RIEUL
-<UD091> \xB4\x9D |0 # HANGUL SYLLABLE KHIEUKH YI RIEULKIYEOK
-<UD092> \xB4\x9E |0 # HANGUL SYLLABLE KHIEUKH YI RIEULMIEUM
-<UD093> \xB4\x9F |0 # HANGUL SYLLABLE KHIEUKH YI RIEULPIEUP
-<UD094> \xB4\xA0 |0 # HANGUL SYLLABLE KHIEUKH YI RIEULSIOS
-<UD095> \xB5\x41 |0 # HANGUL SYLLABLE KHIEUKH YI RIEULTHIEUTH
-<UD096> \xB5\x42 |0 # HANGUL SYLLABLE KHIEUKH YI RIEULPHIEUPH
-<UD097> \xB5\x43 |0 # HANGUL SYLLABLE KHIEUKH YI RIEULHIEUH
-<UD098> \xB5\x44 |0 # HANGUL SYLLABLE KHIEUKH YI MIEUM
-<UD099> \xB5\x45 |0 # HANGUL SYLLABLE KHIEUKH YI PIEUP
-<UD09A> \xB5\x46 |0 # HANGUL SYLLABLE KHIEUKH YI PIEUPSIOS
-<UD09B> \xB5\x47 |0 # HANGUL SYLLABLE KHIEUKH YI SIOS
-<UD09C> \xB5\x48 |0 # HANGUL SYLLABLE KHIEUKH YI SSANGSIOS
-<UD09D> \xB5\x49 |0 # HANGUL SYLLABLE KHIEUKH YI IEUNG
-<UD09E> \xB5\x4A |0 # HANGUL SYLLABLE KHIEUKH YI CIEUC
-<UD09F> \xB5\x4B |0 # HANGUL SYLLABLE KHIEUKH YI CHIEUCH
-<UD0A0> \xB5\x4C |0 # HANGUL SYLLABLE KHIEUKH YI KHIEUKH
-<UD0A1> \xB5\x4D |0 # HANGUL SYLLABLE KHIEUKH YI THIEUTH
-<UD0A2> \xB5\x4E |0 # HANGUL SYLLABLE KHIEUKH YI PHIEUPH
-<UD0A3> \xB5\x4F |0 # HANGUL SYLLABLE KHIEUKH YI HIEUH
-<UD0A4> \xC5\xB0 |0 # HANGUL SYLLABLE KHIEUKH I
-<UD0A5> \xC5\xB1 |0 # HANGUL SYLLABLE KHIEUKH I KIYEOK
-<UD0A6> \xB5\x50 |0 # HANGUL SYLLABLE KHIEUKH I SSANGKIYEOK
-<UD0A7> \xB5\x51 |0 # HANGUL SYLLABLE KHIEUKH I KIYEOKSIOS
-<UD0A8> \xC5\xB2 |0 # HANGUL SYLLABLE KHIEUKH I NIEUN
-<UD0A9> \xB5\x52 |0 # HANGUL SYLLABLE KHIEUKH I NIEUNCIEUC
-<UD0AA> \xB5\x53 |0 # HANGUL SYLLABLE KHIEUKH I NIEUNHIEUH
-<UD0AB> \xB5\x54 |0 # HANGUL SYLLABLE KHIEUKH I TIKEUT
-<UD0AC> \xC5\xB3 |0 # HANGUL SYLLABLE KHIEUKH I RIEUL
-<UD0AD> \xB5\x55 |0 # HANGUL SYLLABLE KHIEUKH I RIEULKIYEOK
-<UD0AE> \xB5\x56 |0 # HANGUL SYLLABLE KHIEUKH I RIEULMIEUM
-<UD0AF> \xB5\x57 |0 # HANGUL SYLLABLE KHIEUKH I RIEULPIEUP
-<UD0B0> \xB5\x58 |0 # HANGUL SYLLABLE KHIEUKH I RIEULSIOS
-<UD0B1> \xB5\x59 |0 # HANGUL SYLLABLE KHIEUKH I RIEULTHIEUTH
-<UD0B2> \xB5\x5A |0 # HANGUL SYLLABLE KHIEUKH I RIEULPHIEUPH
-<UD0B3> \xB5\x61 |0 # HANGUL SYLLABLE KHIEUKH I RIEULHIEUH
-<UD0B4> \xC5\xB4 |0 # HANGUL SYLLABLE KHIEUKH I MIEUM
-<UD0B5> \xC5\xB5 |0 # HANGUL SYLLABLE KHIEUKH I PIEUP
-<UD0B6> \xB5\x62 |0 # HANGUL SYLLABLE KHIEUKH I PIEUPSIOS
-<UD0B7> \xC5\xB6 |0 # HANGUL SYLLABLE KHIEUKH I SIOS
-<UD0B8> \xB5\x63 |0 # HANGUL SYLLABLE KHIEUKH I SSANGSIOS
-<UD0B9> \xC5\xB7 |0 # HANGUL SYLLABLE KHIEUKH I IEUNG
-<UD0BA> \xB5\x64 |0 # HANGUL SYLLABLE KHIEUKH I CIEUC
-<UD0BB> \xB5\x65 |0 # HANGUL SYLLABLE KHIEUKH I CHIEUCH
-<UD0BC> \xB5\x66 |0 # HANGUL SYLLABLE KHIEUKH I KHIEUKH
-<UD0BD> \xB5\x67 |0 # HANGUL SYLLABLE KHIEUKH I THIEUTH
-<UD0BE> \xB5\x68 |0 # HANGUL SYLLABLE KHIEUKH I PHIEUPH
-<UD0BF> \xB5\x69 |0 # HANGUL SYLLABLE KHIEUKH I HIEUH
-<UD0C0> \xC5\xB8 |0 # HANGUL SYLLABLE THIEUTH A
-<UD0C1> \xC5\xB9 |0 # HANGUL SYLLABLE THIEUTH A KIYEOK
-<UD0C2> \xB5\x6A |0 # HANGUL SYLLABLE THIEUTH A SSANGKIYEOK
-<UD0C3> \xB5\x6B |0 # HANGUL SYLLABLE THIEUTH A KIYEOKSIOS
-<UD0C4> \xC5\xBA |0 # HANGUL SYLLABLE THIEUTH A NIEUN
-<UD0C5> \xB5\x6C |0 # HANGUL SYLLABLE THIEUTH A NIEUNCIEUC
-<UD0C6> \xB5\x6D |0 # HANGUL SYLLABLE THIEUTH A NIEUNHIEUH
-<UD0C7> \xB5\x6E |0 # HANGUL SYLLABLE THIEUTH A TIKEUT
-<UD0C8> \xC5\xBB |0 # HANGUL SYLLABLE THIEUTH A RIEUL
-<UD0C9> \xC5\xBC |0 # HANGUL SYLLABLE THIEUTH A RIEULKIYEOK
-<UD0CA> \xB5\x6F |0 # HANGUL SYLLABLE THIEUTH A RIEULMIEUM
-<UD0CB> \xB5\x70 |0 # HANGUL SYLLABLE THIEUTH A RIEULPIEUP
-<UD0CC> \xB5\x71 |0 # HANGUL SYLLABLE THIEUTH A RIEULSIOS
-<UD0CD> \xB5\x72 |0 # HANGUL SYLLABLE THIEUTH A RIEULTHIEUTH
-<UD0CE> \xB5\x73 |0 # HANGUL SYLLABLE THIEUTH A RIEULPHIEUPH
-<UD0CF> \xB5\x74 |0 # HANGUL SYLLABLE THIEUTH A RIEULHIEUH
-<UD0D0> \xC5\xBD |0 # HANGUL SYLLABLE THIEUTH A MIEUM
-<UD0D1> \xC5\xBE |0 # HANGUL SYLLABLE THIEUTH A PIEUP
-<UD0D2> \xB5\x75 |0 # HANGUL SYLLABLE THIEUTH A PIEUPSIOS
-<UD0D3> \xC5\xBF |0 # HANGUL SYLLABLE THIEUTH A SIOS
-<UD0D4> \xC5\xC0 |0 # HANGUL SYLLABLE THIEUTH A SSANGSIOS
-<UD0D5> \xC5\xC1 |0 # HANGUL SYLLABLE THIEUTH A IEUNG
-<UD0D6> \xB5\x76 |0 # HANGUL SYLLABLE THIEUTH A CIEUC
-<UD0D7> \xB5\x77 |0 # HANGUL SYLLABLE THIEUTH A CHIEUCH
-<UD0D8> \xB5\x78 |0 # HANGUL SYLLABLE THIEUTH A KHIEUKH
-<UD0D9> \xB5\x79 |0 # HANGUL SYLLABLE THIEUTH A THIEUTH
-<UD0DA> \xB5\x7A |0 # HANGUL SYLLABLE THIEUTH A PHIEUPH
-<UD0DB> \xB5\x81 |0 # HANGUL SYLLABLE THIEUTH A HIEUH
-<UD0DC> \xC5\xC2 |0 # HANGUL SYLLABLE THIEUTH AE
-<UD0DD> \xC5\xC3 |0 # HANGUL SYLLABLE THIEUTH AE KIYEOK
-<UD0DE> \xB5\x82 |0 # HANGUL SYLLABLE THIEUTH AE SSANGKIYEOK
-<UD0DF> \xB5\x83 |0 # HANGUL SYLLABLE THIEUTH AE KIYEOKSIOS
-<UD0E0> \xC5\xC4 |0 # HANGUL SYLLABLE THIEUTH AE NIEUN
-<UD0E1> \xB5\x84 |0 # HANGUL SYLLABLE THIEUTH AE NIEUNCIEUC
-<UD0E2> \xB5\x85 |0 # HANGUL SYLLABLE THIEUTH AE NIEUNHIEUH
-<UD0E3> \xB5\x86 |0 # HANGUL SYLLABLE THIEUTH AE TIKEUT
-<UD0E4> \xC5\xC5 |0 # HANGUL SYLLABLE THIEUTH AE RIEUL
-<UD0E5> \xB5\x87 |0 # HANGUL SYLLABLE THIEUTH AE RIEULKIYEOK
-<UD0E6> \xB5\x88 |0 # HANGUL SYLLABLE THIEUTH AE RIEULMIEUM
-<UD0E7> \xB5\x89 |0 # HANGUL SYLLABLE THIEUTH AE RIEULPIEUP
-<UD0E8> \xB5\x8A |0 # HANGUL SYLLABLE THIEUTH AE RIEULSIOS
-<UD0E9> \xB5\x8B |0 # HANGUL SYLLABLE THIEUTH AE RIEULTHIEUTH
-<UD0EA> \xB5\x8C |0 # HANGUL SYLLABLE THIEUTH AE RIEULPHIEUPH
-<UD0EB> \xB5\x8D |0 # HANGUL SYLLABLE THIEUTH AE RIEULHIEUH
-<UD0EC> \xC5\xC6 |0 # HANGUL SYLLABLE THIEUTH AE MIEUM
-<UD0ED> \xC5\xC7 |0 # HANGUL SYLLABLE THIEUTH AE PIEUP
-<UD0EE> \xB5\x8E |0 # HANGUL SYLLABLE THIEUTH AE PIEUPSIOS
-<UD0EF> \xC5\xC8 |0 # HANGUL SYLLABLE THIEUTH AE SIOS
-<UD0F0> \xC5\xC9 |0 # HANGUL SYLLABLE THIEUTH AE SSANGSIOS
-<UD0F1> \xC5\xCA |0 # HANGUL SYLLABLE THIEUTH AE IEUNG
-<UD0F2> \xB5\x8F |0 # HANGUL SYLLABLE THIEUTH AE CIEUC
-<UD0F3> \xB5\x90 |0 # HANGUL SYLLABLE THIEUTH AE CHIEUCH
-<UD0F4> \xB5\x91 |0 # HANGUL SYLLABLE THIEUTH AE KHIEUKH
-<UD0F5> \xB5\x92 |0 # HANGUL SYLLABLE THIEUTH AE THIEUTH
-<UD0F6> \xB5\x93 |0 # HANGUL SYLLABLE THIEUTH AE PHIEUPH
-<UD0F7> \xB5\x94 |0 # HANGUL SYLLABLE THIEUTH AE HIEUH
-<UD0F8> \xC5\xCB |0 # HANGUL SYLLABLE THIEUTH YA
-<UD0F9> \xB5\x95 |0 # HANGUL SYLLABLE THIEUTH YA KIYEOK
-<UD0FA> \xB5\x96 |0 # HANGUL SYLLABLE THIEUTH YA SSANGKIYEOK
-<UD0FB> \xB5\x97 |0 # HANGUL SYLLABLE THIEUTH YA KIYEOKSIOS
-<UD0FC> \xB5\x98 |0 # HANGUL SYLLABLE THIEUTH YA NIEUN
-<UD0FD> \xB5\x99 |0 # HANGUL SYLLABLE THIEUTH YA NIEUNCIEUC
-<UD0FE> \xB5\x9A |0 # HANGUL SYLLABLE THIEUTH YA NIEUNHIEUH
-<UD0FF> \xB5\x9B |0 # HANGUL SYLLABLE THIEUTH YA TIKEUT
-<UD100> \xB5\x9C |0 # HANGUL SYLLABLE THIEUTH YA RIEUL
-<UD101> \xB5\x9D |0 # HANGUL SYLLABLE THIEUTH YA RIEULKIYEOK
-<UD102> \xB5\x9E |0 # HANGUL SYLLABLE THIEUTH YA RIEULMIEUM
-<UD103> \xB5\x9F |0 # HANGUL SYLLABLE THIEUTH YA RIEULPIEUP
-<UD104> \xB5\xA0 |0 # HANGUL SYLLABLE THIEUTH YA RIEULSIOS
-<UD105> \xB6\x41 |0 # HANGUL SYLLABLE THIEUTH YA RIEULTHIEUTH
-<UD106> \xB6\x42 |0 # HANGUL SYLLABLE THIEUTH YA RIEULPHIEUPH
-<UD107> \xB6\x43 |0 # HANGUL SYLLABLE THIEUTH YA RIEULHIEUH
-<UD108> \xB6\x44 |0 # HANGUL SYLLABLE THIEUTH YA MIEUM
-<UD109> \xB6\x45 |0 # HANGUL SYLLABLE THIEUTH YA PIEUP
-<UD10A> \xB6\x46 |0 # HANGUL SYLLABLE THIEUTH YA PIEUPSIOS
-<UD10B> \xB6\x47 |0 # HANGUL SYLLABLE THIEUTH YA SIOS
-<UD10C> \xB6\x48 |0 # HANGUL SYLLABLE THIEUTH YA SSANGSIOS
-<UD10D> \xC5\xCC |0 # HANGUL SYLLABLE THIEUTH YA IEUNG
-<UD10E> \xB6\x49 |0 # HANGUL SYLLABLE THIEUTH YA CIEUC
-<UD10F> \xB6\x4A |0 # HANGUL SYLLABLE THIEUTH YA CHIEUCH
-<UD110> \xB6\x4B |0 # HANGUL SYLLABLE THIEUTH YA KHIEUKH
-<UD111> \xB6\x4C |0 # HANGUL SYLLABLE THIEUTH YA THIEUTH
-<UD112> \xB6\x4D |0 # HANGUL SYLLABLE THIEUTH YA PHIEUPH
-<UD113> \xB6\x4E |0 # HANGUL SYLLABLE THIEUTH YA HIEUH
-<UD114> \xB6\x4F |0 # HANGUL SYLLABLE THIEUTH YAE
-<UD115> \xB6\x50 |0 # HANGUL SYLLABLE THIEUTH YAE KIYEOK
-<UD116> \xB6\x51 |0 # HANGUL SYLLABLE THIEUTH YAE SSANGKIYEOK
-<UD117> \xB6\x52 |0 # HANGUL SYLLABLE THIEUTH YAE KIYEOKSIOS
-<UD118> \xB6\x53 |0 # HANGUL SYLLABLE THIEUTH YAE NIEUN
-<UD119> \xB6\x54 |0 # HANGUL SYLLABLE THIEUTH YAE NIEUNCIEUC
-<UD11A> \xB6\x55 |0 # HANGUL SYLLABLE THIEUTH YAE NIEUNHIEUH
-<UD11B> \xB6\x56 |0 # HANGUL SYLLABLE THIEUTH YAE TIKEUT
-<UD11C> \xB6\x57 |0 # HANGUL SYLLABLE THIEUTH YAE RIEUL
-<UD11D> \xB6\x58 |0 # HANGUL SYLLABLE THIEUTH YAE RIEULKIYEOK
-<UD11E> \xB6\x59 |0 # HANGUL SYLLABLE THIEUTH YAE RIEULMIEUM
-<UD11F> \xB6\x5A |0 # HANGUL SYLLABLE THIEUTH YAE RIEULPIEUP
-<UD120> \xB6\x61 |0 # HANGUL SYLLABLE THIEUTH YAE RIEULSIOS
-<UD121> \xB6\x62 |0 # HANGUL SYLLABLE THIEUTH YAE RIEULTHIEUTH
-<UD122> \xB6\x63 |0 # HANGUL SYLLABLE THIEUTH YAE RIEULPHIEUPH
-<UD123> \xB6\x64 |0 # HANGUL SYLLABLE THIEUTH YAE RIEULHIEUH
-<UD124> \xB6\x65 |0 # HANGUL SYLLABLE THIEUTH YAE MIEUM
-<UD125> \xB6\x66 |0 # HANGUL SYLLABLE THIEUTH YAE PIEUP
-<UD126> \xB6\x67 |0 # HANGUL SYLLABLE THIEUTH YAE PIEUPSIOS
-<UD127> \xB6\x68 |0 # HANGUL SYLLABLE THIEUTH YAE SIOS
-<UD128> \xB6\x69 |0 # HANGUL SYLLABLE THIEUTH YAE SSANGSIOS
-<UD129> \xB6\x6A |0 # HANGUL SYLLABLE THIEUTH YAE IEUNG
-<UD12A> \xB6\x6B |0 # HANGUL SYLLABLE THIEUTH YAE CIEUC
-<UD12B> \xB6\x6C |0 # HANGUL SYLLABLE THIEUTH YAE CHIEUCH
-<UD12C> \xB6\x6D |0 # HANGUL SYLLABLE THIEUTH YAE KHIEUKH
-<UD12D> \xB6\x6E |0 # HANGUL SYLLABLE THIEUTH YAE THIEUTH
-<UD12E> \xB6\x6F |0 # HANGUL SYLLABLE THIEUTH YAE PHIEUPH
-<UD12F> \xB6\x70 |0 # HANGUL SYLLABLE THIEUTH YAE HIEUH
-<UD130> \xC5\xCD |0 # HANGUL SYLLABLE THIEUTH EO
-<UD131> \xC5\xCE |0 # HANGUL SYLLABLE THIEUTH EO KIYEOK
-<UD132> \xB6\x71 |0 # HANGUL SYLLABLE THIEUTH EO SSANGKIYEOK
-<UD133> \xB6\x72 |0 # HANGUL SYLLABLE THIEUTH EO KIYEOKSIOS
-<UD134> \xC5\xCF |0 # HANGUL SYLLABLE THIEUTH EO NIEUN
-<UD135> \xB6\x73 |0 # HANGUL SYLLABLE THIEUTH EO NIEUNCIEUC
-<UD136> \xB6\x74 |0 # HANGUL SYLLABLE THIEUTH EO NIEUNHIEUH
-<UD137> \xB6\x75 |0 # HANGUL SYLLABLE THIEUTH EO TIKEUT
-<UD138> \xC5\xD0 |0 # HANGUL SYLLABLE THIEUTH EO RIEUL
-<UD139> \xB6\x76 |0 # HANGUL SYLLABLE THIEUTH EO RIEULKIYEOK
-<UD13A> \xC5\xD1 |0 # HANGUL SYLLABLE THIEUTH EO RIEULMIEUM
-<UD13B> \xB6\x77 |0 # HANGUL SYLLABLE THIEUTH EO RIEULPIEUP
-<UD13C> \xB6\x78 |0 # HANGUL SYLLABLE THIEUTH EO RIEULSIOS
-<UD13D> \xB6\x79 |0 # HANGUL SYLLABLE THIEUTH EO RIEULTHIEUTH
-<UD13E> \xB6\x7A |0 # HANGUL SYLLABLE THIEUTH EO RIEULPHIEUPH
-<UD13F> \xB6\x81 |0 # HANGUL SYLLABLE THIEUTH EO RIEULHIEUH
-<UD140> \xC5\xD2 |0 # HANGUL SYLLABLE THIEUTH EO MIEUM
-<UD141> \xC5\xD3 |0 # HANGUL SYLLABLE THIEUTH EO PIEUP
-<UD142> \xB6\x82 |0 # HANGUL SYLLABLE THIEUTH EO PIEUPSIOS
-<UD143> \xC5\xD4 |0 # HANGUL SYLLABLE THIEUTH EO SIOS
-<UD144> \xC5\xD5 |0 # HANGUL SYLLABLE THIEUTH EO SSANGSIOS
-<UD145> \xC5\xD6 |0 # HANGUL SYLLABLE THIEUTH EO IEUNG
-<UD146> \xB6\x83 |0 # HANGUL SYLLABLE THIEUTH EO CIEUC
-<UD147> \xB6\x84 |0 # HANGUL SYLLABLE THIEUTH EO CHIEUCH
-<UD148> \xB6\x85 |0 # HANGUL SYLLABLE THIEUTH EO KHIEUKH
-<UD149> \xB6\x86 |0 # HANGUL SYLLABLE THIEUTH EO THIEUTH
-<UD14A> \xB6\x87 |0 # HANGUL SYLLABLE THIEUTH EO PHIEUPH
-<UD14B> \xB6\x88 |0 # HANGUL SYLLABLE THIEUTH EO HIEUH
-<UD14C> \xC5\xD7 |0 # HANGUL SYLLABLE THIEUTH E
-<UD14D> \xC5\xD8 |0 # HANGUL SYLLABLE THIEUTH E KIYEOK
-<UD14E> \xB6\x89 |0 # HANGUL SYLLABLE THIEUTH E SSANGKIYEOK
-<UD14F> \xB6\x8A |0 # HANGUL SYLLABLE THIEUTH E KIYEOKSIOS
-<UD150> \xC5\xD9 |0 # HANGUL SYLLABLE THIEUTH E NIEUN
-<UD151> \xB6\x8B |0 # HANGUL SYLLABLE THIEUTH E NIEUNCIEUC
-<UD152> \xB6\x8C |0 # HANGUL SYLLABLE THIEUTH E NIEUNHIEUH
-<UD153> \xB6\x8D |0 # HANGUL SYLLABLE THIEUTH E TIKEUT
-<UD154> \xC5\xDA |0 # HANGUL SYLLABLE THIEUTH E RIEUL
-<UD155> \xB6\x8E |0 # HANGUL SYLLABLE THIEUTH E RIEULKIYEOK
-<UD156> \xB6\x8F |0 # HANGUL SYLLABLE THIEUTH E RIEULMIEUM
-<UD157> \xB6\x90 |0 # HANGUL SYLLABLE THIEUTH E RIEULPIEUP
-<UD158> \xB6\x91 |0 # HANGUL SYLLABLE THIEUTH E RIEULSIOS
-<UD159> \xB6\x92 |0 # HANGUL SYLLABLE THIEUTH E RIEULTHIEUTH
-<UD15A> \xB6\x93 |0 # HANGUL SYLLABLE THIEUTH E RIEULPHIEUPH
-<UD15B> \xB6\x94 |0 # HANGUL SYLLABLE THIEUTH E RIEULHIEUH
-<UD15C> \xC5\xDB |0 # HANGUL SYLLABLE THIEUTH E MIEUM
-<UD15D> \xC5\xDC |0 # HANGUL SYLLABLE THIEUTH E PIEUP
-<UD15E> \xB6\x95 |0 # HANGUL SYLLABLE THIEUTH E PIEUPSIOS
-<UD15F> \xC5\xDD |0 # HANGUL SYLLABLE THIEUTH E SIOS
-<UD160> \xB6\x96 |0 # HANGUL SYLLABLE THIEUTH E SSANGSIOS
-<UD161> \xC5\xDE |0 # HANGUL SYLLABLE THIEUTH E IEUNG
-<UD162> \xB6\x97 |0 # HANGUL SYLLABLE THIEUTH E CIEUC
-<UD163> \xB6\x98 |0 # HANGUL SYLLABLE THIEUTH E CHIEUCH
-<UD164> \xB6\x99 |0 # HANGUL SYLLABLE THIEUTH E KHIEUKH
-<UD165> \xB6\x9A |0 # HANGUL SYLLABLE THIEUTH E THIEUTH
-<UD166> \xB6\x9B |0 # HANGUL SYLLABLE THIEUTH E PHIEUPH
-<UD167> \xB6\x9C |0 # HANGUL SYLLABLE THIEUTH E HIEUH
-<UD168> \xC5\xDF |0 # HANGUL SYLLABLE THIEUTH YEO
-<UD169> \xB6\x9D |0 # HANGUL SYLLABLE THIEUTH YEO KIYEOK
-<UD16A> \xB6\x9E |0 # HANGUL SYLLABLE THIEUTH YEO SSANGKIYEOK
-<UD16B> \xB6\x9F |0 # HANGUL SYLLABLE THIEUTH YEO KIYEOKSIOS
-<UD16C> \xC5\xE0 |0 # HANGUL SYLLABLE THIEUTH YEO NIEUN
-<UD16D> \xB6\xA0 |0 # HANGUL SYLLABLE THIEUTH YEO NIEUNCIEUC
-<UD16E> \xB7\x41 |0 # HANGUL SYLLABLE THIEUTH YEO NIEUNHIEUH
-<UD16F> \xB7\x42 |0 # HANGUL SYLLABLE THIEUTH YEO TIKEUT
-<UD170> \xB7\x43 |0 # HANGUL SYLLABLE THIEUTH YEO RIEUL
-<UD171> \xB7\x44 |0 # HANGUL SYLLABLE THIEUTH YEO RIEULKIYEOK
-<UD172> \xB7\x45 |0 # HANGUL SYLLABLE THIEUTH YEO RIEULMIEUM
-<UD173> \xB7\x46 |0 # HANGUL SYLLABLE THIEUTH YEO RIEULPIEUP
-<UD174> \xB7\x47 |0 # HANGUL SYLLABLE THIEUTH YEO RIEULSIOS
-<UD175> \xB7\x48 |0 # HANGUL SYLLABLE THIEUTH YEO RIEULTHIEUTH
-<UD176> \xB7\x49 |0 # HANGUL SYLLABLE THIEUTH YEO RIEULPHIEUPH
-<UD177> \xB7\x4A |0 # HANGUL SYLLABLE THIEUTH YEO RIEULHIEUH
-<UD178> \xB7\x4B |0 # HANGUL SYLLABLE THIEUTH YEO MIEUM
-<UD179> \xB7\x4C |0 # HANGUL SYLLABLE THIEUTH YEO PIEUP
-<UD17A> \xB7\x4D |0 # HANGUL SYLLABLE THIEUTH YEO PIEUPSIOS
-<UD17B> \xB7\x4E |0 # HANGUL SYLLABLE THIEUTH YEO SIOS
-<UD17C> \xC5\xE1 |0 # HANGUL SYLLABLE THIEUTH YEO SSANGSIOS
-<UD17D> \xB7\x4F |0 # HANGUL SYLLABLE THIEUTH YEO IEUNG
-<UD17E> \xB7\x50 |0 # HANGUL SYLLABLE THIEUTH YEO CIEUC
-<UD17F> \xB7\x51 |0 # HANGUL SYLLABLE THIEUTH YEO CHIEUCH
-<UD180> \xB7\x52 |0 # HANGUL SYLLABLE THIEUTH YEO KHIEUKH
-<UD181> \xB7\x53 |0 # HANGUL SYLLABLE THIEUTH YEO THIEUTH
-<UD182> \xB7\x54 |0 # HANGUL SYLLABLE THIEUTH YEO PHIEUPH
-<UD183> \xB7\x55 |0 # HANGUL SYLLABLE THIEUTH YEO HIEUH
-<UD184> \xC5\xE2 |0 # HANGUL SYLLABLE THIEUTH YE
-<UD185> \xB7\x56 |0 # HANGUL SYLLABLE THIEUTH YE KIYEOK
-<UD186> \xB7\x57 |0 # HANGUL SYLLABLE THIEUTH YE SSANGKIYEOK
-<UD187> \xB7\x58 |0 # HANGUL SYLLABLE THIEUTH YE KIYEOKSIOS
-<UD188> \xC5\xE3 |0 # HANGUL SYLLABLE THIEUTH YE NIEUN
-<UD189> \xB7\x59 |0 # HANGUL SYLLABLE THIEUTH YE NIEUNCIEUC
-<UD18A> \xB7\x5A |0 # HANGUL SYLLABLE THIEUTH YE NIEUNHIEUH
-<UD18B> \xB7\x61 |0 # HANGUL SYLLABLE THIEUTH YE TIKEUT
-<UD18C> \xB7\x62 |0 # HANGUL SYLLABLE THIEUTH YE RIEUL
-<UD18D> \xB7\x63 |0 # HANGUL SYLLABLE THIEUTH YE RIEULKIYEOK
-<UD18E> \xB7\x64 |0 # HANGUL SYLLABLE THIEUTH YE RIEULMIEUM
-<UD18F> \xB7\x65 |0 # HANGUL SYLLABLE THIEUTH YE RIEULPIEUP
-<UD190> \xB7\x66 |0 # HANGUL SYLLABLE THIEUTH YE RIEULSIOS
-<UD191> \xB7\x67 |0 # HANGUL SYLLABLE THIEUTH YE RIEULTHIEUTH
-<UD192> \xB7\x68 |0 # HANGUL SYLLABLE THIEUTH YE RIEULPHIEUPH
-<UD193> \xB7\x69 |0 # HANGUL SYLLABLE THIEUTH YE RIEULHIEUH
-<UD194> \xB7\x6A |0 # HANGUL SYLLABLE THIEUTH YE MIEUM
-<UD195> \xB7\x6B |0 # HANGUL SYLLABLE THIEUTH YE PIEUP
-<UD196> \xB7\x6C |0 # HANGUL SYLLABLE THIEUTH YE PIEUPSIOS
-<UD197> \xB7\x6D |0 # HANGUL SYLLABLE THIEUTH YE SIOS
-<UD198> \xB7\x6E |0 # HANGUL SYLLABLE THIEUTH YE SSANGSIOS
-<UD199> \xB7\x6F |0 # HANGUL SYLLABLE THIEUTH YE IEUNG
-<UD19A> \xB7\x70 |0 # HANGUL SYLLABLE THIEUTH YE CIEUC
-<UD19B> \xB7\x71 |0 # HANGUL SYLLABLE THIEUTH YE CHIEUCH
-<UD19C> \xB7\x72 |0 # HANGUL SYLLABLE THIEUTH YE KHIEUKH
-<UD19D> \xB7\x73 |0 # HANGUL SYLLABLE THIEUTH YE THIEUTH
-<UD19E> \xB7\x74 |0 # HANGUL SYLLABLE THIEUTH YE PHIEUPH
-<UD19F> \xB7\x75 |0 # HANGUL SYLLABLE THIEUTH YE HIEUH
-<UD1A0> \xC5\xE4 |0 # HANGUL SYLLABLE THIEUTH O
-<UD1A1> \xC5\xE5 |0 # HANGUL SYLLABLE THIEUTH O KIYEOK
-<UD1A2> \xB7\x76 |0 # HANGUL SYLLABLE THIEUTH O SSANGKIYEOK
-<UD1A3> \xB7\x77 |0 # HANGUL SYLLABLE THIEUTH O KIYEOKSIOS
-<UD1A4> \xC5\xE6 |0 # HANGUL SYLLABLE THIEUTH O NIEUN
-<UD1A5> \xB7\x78 |0 # HANGUL SYLLABLE THIEUTH O NIEUNCIEUC
-<UD1A6> \xB7\x79 |0 # HANGUL SYLLABLE THIEUTH O NIEUNHIEUH
-<UD1A7> \xB7\x7A |0 # HANGUL SYLLABLE THIEUTH O TIKEUT
-<UD1A8> \xC5\xE7 |0 # HANGUL SYLLABLE THIEUTH O RIEUL
-<UD1A9> \xB7\x81 |0 # HANGUL SYLLABLE THIEUTH O RIEULKIYEOK
-<UD1AA> \xB7\x82 |0 # HANGUL SYLLABLE THIEUTH O RIEULMIEUM
-<UD1AB> \xB7\x83 |0 # HANGUL SYLLABLE THIEUTH O RIEULPIEUP
-<UD1AC> \xB7\x84 |0 # HANGUL SYLLABLE THIEUTH O RIEULSIOS
-<UD1AD> \xB7\x85 |0 # HANGUL SYLLABLE THIEUTH O RIEULTHIEUTH
-<UD1AE> \xB7\x86 |0 # HANGUL SYLLABLE THIEUTH O RIEULPHIEUPH
-<UD1AF> \xB7\x87 |0 # HANGUL SYLLABLE THIEUTH O RIEULHIEUH
-<UD1B0> \xC5\xE8 |0 # HANGUL SYLLABLE THIEUTH O MIEUM
-<UD1B1> \xC5\xE9 |0 # HANGUL SYLLABLE THIEUTH O PIEUP
-<UD1B2> \xB7\x88 |0 # HANGUL SYLLABLE THIEUTH O PIEUPSIOS
-<UD1B3> \xC5\xEA |0 # HANGUL SYLLABLE THIEUTH O SIOS
-<UD1B4> \xB7\x89 |0 # HANGUL SYLLABLE THIEUTH O SSANGSIOS
-<UD1B5> \xC5\xEB |0 # HANGUL SYLLABLE THIEUTH O IEUNG
-<UD1B6> \xB7\x8A |0 # HANGUL SYLLABLE THIEUTH O CIEUC
-<UD1B7> \xB7\x8B |0 # HANGUL SYLLABLE THIEUTH O CHIEUCH
-<UD1B8> \xB7\x8C |0 # HANGUL SYLLABLE THIEUTH O KHIEUKH
-<UD1B9> \xB7\x8D |0 # HANGUL SYLLABLE THIEUTH O THIEUTH
-<UD1BA> \xC5\xEC |0 # HANGUL SYLLABLE THIEUTH O PHIEUPH
-<UD1BB> \xB7\x8E |0 # HANGUL SYLLABLE THIEUTH O HIEUH
-<UD1BC> \xC5\xED |0 # HANGUL SYLLABLE THIEUTH WA
-<UD1BD> \xB7\x8F |0 # HANGUL SYLLABLE THIEUTH WA KIYEOK
-<UD1BE> \xB7\x90 |0 # HANGUL SYLLABLE THIEUTH WA SSANGKIYEOK
-<UD1BF> \xB7\x91 |0 # HANGUL SYLLABLE THIEUTH WA KIYEOKSIOS
-<UD1C0> \xC5\xEE |0 # HANGUL SYLLABLE THIEUTH WA NIEUN
-<UD1C1> \xB7\x92 |0 # HANGUL SYLLABLE THIEUTH WA NIEUNCIEUC
-<UD1C2> \xB7\x93 |0 # HANGUL SYLLABLE THIEUTH WA NIEUNHIEUH
-<UD1C3> \xB7\x94 |0 # HANGUL SYLLABLE THIEUTH WA TIKEUT
-<UD1C4> \xB7\x95 |0 # HANGUL SYLLABLE THIEUTH WA RIEUL
-<UD1C5> \xB7\x96 |0 # HANGUL SYLLABLE THIEUTH WA RIEULKIYEOK
-<UD1C6> \xB7\x97 |0 # HANGUL SYLLABLE THIEUTH WA RIEULMIEUM
-<UD1C7> \xB7\x98 |0 # HANGUL SYLLABLE THIEUTH WA RIEULPIEUP
-<UD1C8> \xB7\x99 |0 # HANGUL SYLLABLE THIEUTH WA RIEULSIOS
-<UD1C9> \xB7\x9A |0 # HANGUL SYLLABLE THIEUTH WA RIEULTHIEUTH
-<UD1CA> \xB7\x9B |0 # HANGUL SYLLABLE THIEUTH WA RIEULPHIEUPH
-<UD1CB> \xB7\x9C |0 # HANGUL SYLLABLE THIEUTH WA RIEULHIEUH
-<UD1CC> \xB7\x9D |0 # HANGUL SYLLABLE THIEUTH WA MIEUM
-<UD1CD> \xB7\x9E |0 # HANGUL SYLLABLE THIEUTH WA PIEUP
-<UD1CE> \xB7\x9F |0 # HANGUL SYLLABLE THIEUTH WA PIEUPSIOS
-<UD1CF> \xB7\xA0 |0 # HANGUL SYLLABLE THIEUTH WA SIOS
-<UD1D0> \xB8\x41 |0 # HANGUL SYLLABLE THIEUTH WA SSANGSIOS
-<UD1D1> \xB8\x42 |0 # HANGUL SYLLABLE THIEUTH WA IEUNG
-<UD1D2> \xB8\x43 |0 # HANGUL SYLLABLE THIEUTH WA CIEUC
-<UD1D3> \xB8\x44 |0 # HANGUL SYLLABLE THIEUTH WA CHIEUCH
-<UD1D4> \xB8\x45 |0 # HANGUL SYLLABLE THIEUTH WA KHIEUKH
-<UD1D5> \xB8\x46 |0 # HANGUL SYLLABLE THIEUTH WA THIEUTH
-<UD1D6> \xB8\x47 |0 # HANGUL SYLLABLE THIEUTH WA PHIEUPH
-<UD1D7> \xB8\x48 |0 # HANGUL SYLLABLE THIEUTH WA HIEUH
-<UD1D8> \xC5\xEF |0 # HANGUL SYLLABLE THIEUTH WAE
-<UD1D9> \xB8\x49 |0 # HANGUL SYLLABLE THIEUTH WAE KIYEOK
-<UD1DA> \xB8\x4A |0 # HANGUL SYLLABLE THIEUTH WAE SSANGKIYEOK
-<UD1DB> \xB8\x4B |0 # HANGUL SYLLABLE THIEUTH WAE KIYEOKSIOS
-<UD1DC> \xB8\x4C |0 # HANGUL SYLLABLE THIEUTH WAE NIEUN
-<UD1DD> \xB8\x4D |0 # HANGUL SYLLABLE THIEUTH WAE NIEUNCIEUC
-<UD1DE> \xB8\x4E |0 # HANGUL SYLLABLE THIEUTH WAE NIEUNHIEUH
-<UD1DF> \xB8\x4F |0 # HANGUL SYLLABLE THIEUTH WAE TIKEUT
-<UD1E0> \xB8\x50 |0 # HANGUL SYLLABLE THIEUTH WAE RIEUL
-<UD1E1> \xB8\x51 |0 # HANGUL SYLLABLE THIEUTH WAE RIEULKIYEOK
-<UD1E2> \xB8\x52 |0 # HANGUL SYLLABLE THIEUTH WAE RIEULMIEUM
-<UD1E3> \xB8\x53 |0 # HANGUL SYLLABLE THIEUTH WAE RIEULPIEUP
-<UD1E4> \xB8\x54 |0 # HANGUL SYLLABLE THIEUTH WAE RIEULSIOS
-<UD1E5> \xB8\x55 |0 # HANGUL SYLLABLE THIEUTH WAE RIEULTHIEUTH
-<UD1E6> \xB8\x56 |0 # HANGUL SYLLABLE THIEUTH WAE RIEULPHIEUPH
-<UD1E7> \xB8\x57 |0 # HANGUL SYLLABLE THIEUTH WAE RIEULHIEUH
-<UD1E8> \xB8\x58 |0 # HANGUL SYLLABLE THIEUTH WAE MIEUM
-<UD1E9> \xB8\x59 |0 # HANGUL SYLLABLE THIEUTH WAE PIEUP
-<UD1EA> \xB8\x5A |0 # HANGUL SYLLABLE THIEUTH WAE PIEUPSIOS
-<UD1EB> \xB8\x61 |0 # HANGUL SYLLABLE THIEUTH WAE SIOS
-<UD1EC> \xB8\x62 |0 # HANGUL SYLLABLE THIEUTH WAE SSANGSIOS
-<UD1ED> \xB8\x63 |0 # HANGUL SYLLABLE THIEUTH WAE IEUNG
-<UD1EE> \xB8\x64 |0 # HANGUL SYLLABLE THIEUTH WAE CIEUC
-<UD1EF> \xB8\x65 |0 # HANGUL SYLLABLE THIEUTH WAE CHIEUCH
-<UD1F0> \xB8\x66 |0 # HANGUL SYLLABLE THIEUTH WAE KHIEUKH
-<UD1F1> \xB8\x67 |0 # HANGUL SYLLABLE THIEUTH WAE THIEUTH
-<UD1F2> \xB8\x68 |0 # HANGUL SYLLABLE THIEUTH WAE PHIEUPH
-<UD1F3> \xB8\x69 |0 # HANGUL SYLLABLE THIEUTH WAE HIEUH
-<UD1F4> \xC5\xF0 |0 # HANGUL SYLLABLE THIEUTH OE
-<UD1F5> \xB8\x6A |0 # HANGUL SYLLABLE THIEUTH OE KIYEOK
-<UD1F6> \xB8\x6B |0 # HANGUL SYLLABLE THIEUTH OE SSANGKIYEOK
-<UD1F7> \xB8\x6C |0 # HANGUL SYLLABLE THIEUTH OE KIYEOKSIOS
-<UD1F8> \xC5\xF1 |0 # HANGUL SYLLABLE THIEUTH OE NIEUN
-<UD1F9> \xB8\x6D |0 # HANGUL SYLLABLE THIEUTH OE NIEUNCIEUC
-<UD1FA> \xB8\x6E |0 # HANGUL SYLLABLE THIEUTH OE NIEUNHIEUH
-<UD1FB> \xB8\x6F |0 # HANGUL SYLLABLE THIEUTH OE TIKEUT
-<UD1FC> \xB8\x70 |0 # HANGUL SYLLABLE THIEUTH OE RIEUL
-<UD1FD> \xB8\x71 |0 # HANGUL SYLLABLE THIEUTH OE RIEULKIYEOK
-<UD1FE> \xB8\x72 |0 # HANGUL SYLLABLE THIEUTH OE RIEULMIEUM
-<UD1FF> \xB8\x73 |0 # HANGUL SYLLABLE THIEUTH OE RIEULPIEUP
-<UD200> \xB8\x74 |0 # HANGUL SYLLABLE THIEUTH OE RIEULSIOS
-<UD201> \xB8\x75 |0 # HANGUL SYLLABLE THIEUTH OE RIEULTHIEUTH
-<UD202> \xB8\x76 |0 # HANGUL SYLLABLE THIEUTH OE RIEULPHIEUPH
-<UD203> \xB8\x77 |0 # HANGUL SYLLABLE THIEUTH OE RIEULHIEUH
-<UD204> \xB8\x78 |0 # HANGUL SYLLABLE THIEUTH OE MIEUM
-<UD205> \xB8\x79 |0 # HANGUL SYLLABLE THIEUTH OE PIEUP
-<UD206> \xB8\x7A |0 # HANGUL SYLLABLE THIEUTH OE PIEUPSIOS
-<UD207> \xC5\xF2 |0 # HANGUL SYLLABLE THIEUTH OE SIOS
-<UD208> \xB8\x81 |0 # HANGUL SYLLABLE THIEUTH OE SSANGSIOS
-<UD209> \xC5\xF3 |0 # HANGUL SYLLABLE THIEUTH OE IEUNG
-<UD20A> \xB8\x82 |0 # HANGUL SYLLABLE THIEUTH OE CIEUC
-<UD20B> \xB8\x83 |0 # HANGUL SYLLABLE THIEUTH OE CHIEUCH
-<UD20C> \xB8\x84 |0 # HANGUL SYLLABLE THIEUTH OE KHIEUKH
-<UD20D> \xB8\x85 |0 # HANGUL SYLLABLE THIEUTH OE THIEUTH
-<UD20E> \xB8\x86 |0 # HANGUL SYLLABLE THIEUTH OE PHIEUPH
-<UD20F> \xB8\x87 |0 # HANGUL SYLLABLE THIEUTH OE HIEUH
-<UD210> \xC5\xF4 |0 # HANGUL SYLLABLE THIEUTH YO
-<UD211> \xB8\x88 |0 # HANGUL SYLLABLE THIEUTH YO KIYEOK
-<UD212> \xB8\x89 |0 # HANGUL SYLLABLE THIEUTH YO SSANGKIYEOK
-<UD213> \xB8\x8A |0 # HANGUL SYLLABLE THIEUTH YO KIYEOKSIOS
-<UD214> \xB8\x8B |0 # HANGUL SYLLABLE THIEUTH YO NIEUN
-<UD215> \xB8\x8C |0 # HANGUL SYLLABLE THIEUTH YO NIEUNCIEUC
-<UD216> \xB8\x8D |0 # HANGUL SYLLABLE THIEUTH YO NIEUNHIEUH
-<UD217> \xB8\x8E |0 # HANGUL SYLLABLE THIEUTH YO TIKEUT
-<UD218> \xB8\x8F |0 # HANGUL SYLLABLE THIEUTH YO RIEUL
-<UD219> \xB8\x90 |0 # HANGUL SYLLABLE THIEUTH YO RIEULKIYEOK
-<UD21A> \xB8\x91 |0 # HANGUL SYLLABLE THIEUTH YO RIEULMIEUM
-<UD21B> \xB8\x92 |0 # HANGUL SYLLABLE THIEUTH YO RIEULPIEUP
-<UD21C> \xB8\x93 |0 # HANGUL SYLLABLE THIEUTH YO RIEULSIOS
-<UD21D> \xB8\x94 |0 # HANGUL SYLLABLE THIEUTH YO RIEULTHIEUTH
-<UD21E> \xB8\x95 |0 # HANGUL SYLLABLE THIEUTH YO RIEULPHIEUPH
-<UD21F> \xB8\x96 |0 # HANGUL SYLLABLE THIEUTH YO RIEULHIEUH
-<UD220> \xB8\x97 |0 # HANGUL SYLLABLE THIEUTH YO MIEUM
-<UD221> \xB8\x98 |0 # HANGUL SYLLABLE THIEUTH YO PIEUP
-<UD222> \xB8\x99 |0 # HANGUL SYLLABLE THIEUTH YO PIEUPSIOS
-<UD223> \xB8\x9A |0 # HANGUL SYLLABLE THIEUTH YO SIOS
-<UD224> \xB8\x9B |0 # HANGUL SYLLABLE THIEUTH YO SSANGSIOS
-<UD225> \xB8\x9C |0 # HANGUL SYLLABLE THIEUTH YO IEUNG
-<UD226> \xB8\x9D |0 # HANGUL SYLLABLE THIEUTH YO CIEUC
-<UD227> \xB8\x9E |0 # HANGUL SYLLABLE THIEUTH YO CHIEUCH
-<UD228> \xB8\x9F |0 # HANGUL SYLLABLE THIEUTH YO KHIEUKH
-<UD229> \xB8\xA0 |0 # HANGUL SYLLABLE THIEUTH YO THIEUTH
-<UD22A> \xB9\x41 |0 # HANGUL SYLLABLE THIEUTH YO PHIEUPH
-<UD22B> \xB9\x42 |0 # HANGUL SYLLABLE THIEUTH YO HIEUH
-<UD22C> \xC5\xF5 |0 # HANGUL SYLLABLE THIEUTH U
-<UD22D> \xC5\xF6 |0 # HANGUL SYLLABLE THIEUTH U KIYEOK
-<UD22E> \xB9\x43 |0 # HANGUL SYLLABLE THIEUTH U SSANGKIYEOK
-<UD22F> \xB9\x44 |0 # HANGUL SYLLABLE THIEUTH U KIYEOKSIOS
-<UD230> \xC5\xF7 |0 # HANGUL SYLLABLE THIEUTH U NIEUN
-<UD231> \xB9\x45 |0 # HANGUL SYLLABLE THIEUTH U NIEUNCIEUC
-<UD232> \xB9\x46 |0 # HANGUL SYLLABLE THIEUTH U NIEUNHIEUH
-<UD233> \xB9\x47 |0 # HANGUL SYLLABLE THIEUTH U TIKEUT
-<UD234> \xC5\xF8 |0 # HANGUL SYLLABLE THIEUTH U RIEUL
-<UD235> \xB9\x48 |0 # HANGUL SYLLABLE THIEUTH U RIEULKIYEOK
-<UD236> \xB9\x49 |0 # HANGUL SYLLABLE THIEUTH U RIEULMIEUM
-<UD237> \xB9\x4A |0 # HANGUL SYLLABLE THIEUTH U RIEULPIEUP
-<UD238> \xB9\x4B |0 # HANGUL SYLLABLE THIEUTH U RIEULSIOS
-<UD239> \xB9\x4C |0 # HANGUL SYLLABLE THIEUTH U RIEULTHIEUTH
-<UD23A> \xB9\x4D |0 # HANGUL SYLLABLE THIEUTH U RIEULPHIEUPH
-<UD23B> \xB9\x4E |0 # HANGUL SYLLABLE THIEUTH U RIEULHIEUH
-<UD23C> \xC5\xF9 |0 # HANGUL SYLLABLE THIEUTH U MIEUM
-<UD23D> \xC5\xFA |0 # HANGUL SYLLABLE THIEUTH U PIEUP
-<UD23E> \xB9\x4F |0 # HANGUL SYLLABLE THIEUTH U PIEUPSIOS
-<UD23F> \xC5\xFB |0 # HANGUL SYLLABLE THIEUTH U SIOS
-<UD240> \xB9\x50 |0 # HANGUL SYLLABLE THIEUTH U SSANGSIOS
-<UD241> \xC5\xFC |0 # HANGUL SYLLABLE THIEUTH U IEUNG
-<UD242> \xB9\x51 |0 # HANGUL SYLLABLE THIEUTH U CIEUC
-<UD243> \xB9\x52 |0 # HANGUL SYLLABLE THIEUTH U CHIEUCH
-<UD244> \xB9\x53 |0 # HANGUL SYLLABLE THIEUTH U KHIEUKH
-<UD245> \xB9\x54 |0 # HANGUL SYLLABLE THIEUTH U THIEUTH
-<UD246> \xB9\x55 |0 # HANGUL SYLLABLE THIEUTH U PHIEUPH
-<UD247> \xB9\x56 |0 # HANGUL SYLLABLE THIEUTH U HIEUH
-<UD248> \xC5\xFD |0 # HANGUL SYLLABLE THIEUTH WEO
-<UD249> \xB9\x57 |0 # HANGUL SYLLABLE THIEUTH WEO KIYEOK
-<UD24A> \xB9\x58 |0 # HANGUL SYLLABLE THIEUTH WEO SSANGKIYEOK
-<UD24B> \xB9\x59 |0 # HANGUL SYLLABLE THIEUTH WEO KIYEOKSIOS
-<UD24C> \xB9\x5A |0 # HANGUL SYLLABLE THIEUTH WEO NIEUN
-<UD24D> \xB9\x61 |0 # HANGUL SYLLABLE THIEUTH WEO NIEUNCIEUC
-<UD24E> \xB9\x62 |0 # HANGUL SYLLABLE THIEUTH WEO NIEUNHIEUH
-<UD24F> \xB9\x63 |0 # HANGUL SYLLABLE THIEUTH WEO TIKEUT
-<UD250> \xB9\x64 |0 # HANGUL SYLLABLE THIEUTH WEO RIEUL
-<UD251> \xB9\x65 |0 # HANGUL SYLLABLE THIEUTH WEO RIEULKIYEOK
-<UD252> \xB9\x66 |0 # HANGUL SYLLABLE THIEUTH WEO RIEULMIEUM
-<UD253> \xB9\x67 |0 # HANGUL SYLLABLE THIEUTH WEO RIEULPIEUP
-<UD254> \xB9\x68 |0 # HANGUL SYLLABLE THIEUTH WEO RIEULSIOS
-<UD255> \xB9\x69 |0 # HANGUL SYLLABLE THIEUTH WEO RIEULTHIEUTH
-<UD256> \xB9\x6A |0 # HANGUL SYLLABLE THIEUTH WEO RIEULPHIEUPH
-<UD257> \xB9\x6B |0 # HANGUL SYLLABLE THIEUTH WEO RIEULHIEUH
-<UD258> \xB9\x6C |0 # HANGUL SYLLABLE THIEUTH WEO MIEUM
-<UD259> \xB9\x6D |0 # HANGUL SYLLABLE THIEUTH WEO PIEUP
-<UD25A> \xB9\x6E |0 # HANGUL SYLLABLE THIEUTH WEO PIEUPSIOS
-<UD25B> \xB9\x6F |0 # HANGUL SYLLABLE THIEUTH WEO SIOS
-<UD25C> \xC5\xFE |0 # HANGUL SYLLABLE THIEUTH WEO SSANGSIOS
-<UD25D> \xB9\x70 |0 # HANGUL SYLLABLE THIEUTH WEO IEUNG
-<UD25E> \xB9\x71 |0 # HANGUL SYLLABLE THIEUTH WEO CIEUC
-<UD25F> \xB9\x72 |0 # HANGUL SYLLABLE THIEUTH WEO CHIEUCH
-<UD260> \xB9\x73 |0 # HANGUL SYLLABLE THIEUTH WEO KHIEUKH
-<UD261> \xB9\x74 |0 # HANGUL SYLLABLE THIEUTH WEO THIEUTH
-<UD262> \xB9\x75 |0 # HANGUL SYLLABLE THIEUTH WEO PHIEUPH
-<UD263> \xB9\x76 |0 # HANGUL SYLLABLE THIEUTH WEO HIEUH
-<UD264> \xC6\xA1 |0 # HANGUL SYLLABLE THIEUTH WE
-<UD265> \xB9\x77 |0 # HANGUL SYLLABLE THIEUTH WE KIYEOK
-<UD266> \xB9\x78 |0 # HANGUL SYLLABLE THIEUTH WE SSANGKIYEOK
-<UD267> \xB9\x79 |0 # HANGUL SYLLABLE THIEUTH WE KIYEOKSIOS
-<UD268> \xB9\x7A |0 # HANGUL SYLLABLE THIEUTH WE NIEUN
-<UD269> \xB9\x81 |0 # HANGUL SYLLABLE THIEUTH WE NIEUNCIEUC
-<UD26A> \xB9\x82 |0 # HANGUL SYLLABLE THIEUTH WE NIEUNHIEUH
-<UD26B> \xB9\x83 |0 # HANGUL SYLLABLE THIEUTH WE TIKEUT
-<UD26C> \xB9\x84 |0 # HANGUL SYLLABLE THIEUTH WE RIEUL
-<UD26D> \xB9\x85 |0 # HANGUL SYLLABLE THIEUTH WE RIEULKIYEOK
-<UD26E> \xB9\x86 |0 # HANGUL SYLLABLE THIEUTH WE RIEULMIEUM
-<UD26F> \xB9\x87 |0 # HANGUL SYLLABLE THIEUTH WE RIEULPIEUP
-<UD270> \xB9\x88 |0 # HANGUL SYLLABLE THIEUTH WE RIEULSIOS
-<UD271> \xB9\x89 |0 # HANGUL SYLLABLE THIEUTH WE RIEULTHIEUTH
-<UD272> \xB9\x8A |0 # HANGUL SYLLABLE THIEUTH WE RIEULPHIEUPH
-<UD273> \xB9\x8B |0 # HANGUL SYLLABLE THIEUTH WE RIEULHIEUH
-<UD274> \xB9\x8C |0 # HANGUL SYLLABLE THIEUTH WE MIEUM
-<UD275> \xB9\x8D |0 # HANGUL SYLLABLE THIEUTH WE PIEUP
-<UD276> \xB9\x8E |0 # HANGUL SYLLABLE THIEUTH WE PIEUPSIOS
-<UD277> \xB9\x8F |0 # HANGUL SYLLABLE THIEUTH WE SIOS
-<UD278> \xB9\x90 |0 # HANGUL SYLLABLE THIEUTH WE SSANGSIOS
-<UD279> \xB9\x91 |0 # HANGUL SYLLABLE THIEUTH WE IEUNG
-<UD27A> \xB9\x92 |0 # HANGUL SYLLABLE THIEUTH WE CIEUC
-<UD27B> \xB9\x93 |0 # HANGUL SYLLABLE THIEUTH WE CHIEUCH
-<UD27C> \xB9\x94 |0 # HANGUL SYLLABLE THIEUTH WE KHIEUKH
-<UD27D> \xB9\x95 |0 # HANGUL SYLLABLE THIEUTH WE THIEUTH
-<UD27E> \xB9\x96 |0 # HANGUL SYLLABLE THIEUTH WE PHIEUPH
-<UD27F> \xB9\x97 |0 # HANGUL SYLLABLE THIEUTH WE HIEUH
-<UD280> \xC6\xA2 |0 # HANGUL SYLLABLE THIEUTH WI
-<UD281> \xC6\xA3 |0 # HANGUL SYLLABLE THIEUTH WI KIYEOK
-<UD282> \xB9\x98 |0 # HANGUL SYLLABLE THIEUTH WI SSANGKIYEOK
-<UD283> \xB9\x99 |0 # HANGUL SYLLABLE THIEUTH WI KIYEOKSIOS
-<UD284> \xC6\xA4 |0 # HANGUL SYLLABLE THIEUTH WI NIEUN
-<UD285> \xB9\x9A |0 # HANGUL SYLLABLE THIEUTH WI NIEUNCIEUC
-<UD286> \xB9\x9B |0 # HANGUL SYLLABLE THIEUTH WI NIEUNHIEUH
-<UD287> \xB9\x9C |0 # HANGUL SYLLABLE THIEUTH WI TIKEUT
-<UD288> \xC6\xA5 |0 # HANGUL SYLLABLE THIEUTH WI RIEUL
-<UD289> \xB9\x9D |0 # HANGUL SYLLABLE THIEUTH WI RIEULKIYEOK
-<UD28A> \xB9\x9E |0 # HANGUL SYLLABLE THIEUTH WI RIEULMIEUM
-<UD28B> \xB9\x9F |0 # HANGUL SYLLABLE THIEUTH WI RIEULPIEUP
-<UD28C> \xB9\xA0 |0 # HANGUL SYLLABLE THIEUTH WI RIEULSIOS
-<UD28D> \xBA\x41 |0 # HANGUL SYLLABLE THIEUTH WI RIEULTHIEUTH
-<UD28E> \xBA\x42 |0 # HANGUL SYLLABLE THIEUTH WI RIEULPHIEUPH
-<UD28F> \xBA\x43 |0 # HANGUL SYLLABLE THIEUTH WI RIEULHIEUH
-<UD290> \xC6\xA6 |0 # HANGUL SYLLABLE THIEUTH WI MIEUM
-<UD291> \xC6\xA7 |0 # HANGUL SYLLABLE THIEUTH WI PIEUP
-<UD292> \xBA\x44 |0 # HANGUL SYLLABLE THIEUTH WI PIEUPSIOS
-<UD293> \xBA\x45 |0 # HANGUL SYLLABLE THIEUTH WI SIOS
-<UD294> \xBA\x46 |0 # HANGUL SYLLABLE THIEUTH WI SSANGSIOS
-<UD295> \xC6\xA8 |0 # HANGUL SYLLABLE THIEUTH WI IEUNG
-<UD296> \xBA\x47 |0 # HANGUL SYLLABLE THIEUTH WI CIEUC
-<UD297> \xBA\x48 |0 # HANGUL SYLLABLE THIEUTH WI CHIEUCH
-<UD298> \xBA\x49 |0 # HANGUL SYLLABLE THIEUTH WI KHIEUKH
-<UD299> \xBA\x4A |0 # HANGUL SYLLABLE THIEUTH WI THIEUTH
-<UD29A> \xBA\x4B |0 # HANGUL SYLLABLE THIEUTH WI PHIEUPH
-<UD29B> \xBA\x4C |0 # HANGUL SYLLABLE THIEUTH WI HIEUH
-<UD29C> \xC6\xA9 |0 # HANGUL SYLLABLE THIEUTH YU
-<UD29D> \xBA\x4D |0 # HANGUL SYLLABLE THIEUTH YU KIYEOK
-<UD29E> \xBA\x4E |0 # HANGUL SYLLABLE THIEUTH YU SSANGKIYEOK
-<UD29F> \xBA\x4F |0 # HANGUL SYLLABLE THIEUTH YU KIYEOKSIOS
-<UD2A0> \xC6\xAA |0 # HANGUL SYLLABLE THIEUTH YU NIEUN
-<UD2A1> \xBA\x50 |0 # HANGUL SYLLABLE THIEUTH YU NIEUNCIEUC
-<UD2A2> \xBA\x51 |0 # HANGUL SYLLABLE THIEUTH YU NIEUNHIEUH
-<UD2A3> \xBA\x52 |0 # HANGUL SYLLABLE THIEUTH YU TIKEUT
-<UD2A4> \xC6\xAB |0 # HANGUL SYLLABLE THIEUTH YU RIEUL
-<UD2A5> \xBA\x53 |0 # HANGUL SYLLABLE THIEUTH YU RIEULKIYEOK
-<UD2A6> \xBA\x54 |0 # HANGUL SYLLABLE THIEUTH YU RIEULMIEUM
-<UD2A7> \xBA\x55 |0 # HANGUL SYLLABLE THIEUTH YU RIEULPIEUP
-<UD2A8> \xBA\x56 |0 # HANGUL SYLLABLE THIEUTH YU RIEULSIOS
-<UD2A9> \xBA\x57 |0 # HANGUL SYLLABLE THIEUTH YU RIEULTHIEUTH
-<UD2AA> \xBA\x58 |0 # HANGUL SYLLABLE THIEUTH YU RIEULPHIEUPH
-<UD2AB> \xBA\x59 |0 # HANGUL SYLLABLE THIEUTH YU RIEULHIEUH
-<UD2AC> \xC6\xAC |0 # HANGUL SYLLABLE THIEUTH YU MIEUM
-<UD2AD> \xBA\x5A |0 # HANGUL SYLLABLE THIEUTH YU PIEUP
-<UD2AE> \xBA\x61 |0 # HANGUL SYLLABLE THIEUTH YU PIEUPSIOS
-<UD2AF> \xBA\x62 |0 # HANGUL SYLLABLE THIEUTH YU SIOS
-<UD2B0> \xBA\x63 |0 # HANGUL SYLLABLE THIEUTH YU SSANGSIOS
-<UD2B1> \xC6\xAD |0 # HANGUL SYLLABLE THIEUTH YU IEUNG
-<UD2B2> \xBA\x64 |0 # HANGUL SYLLABLE THIEUTH YU CIEUC
-<UD2B3> \xBA\x65 |0 # HANGUL SYLLABLE THIEUTH YU CHIEUCH
-<UD2B4> \xBA\x66 |0 # HANGUL SYLLABLE THIEUTH YU KHIEUKH
-<UD2B5> \xBA\x67 |0 # HANGUL SYLLABLE THIEUTH YU THIEUTH
-<UD2B6> \xBA\x68 |0 # HANGUL SYLLABLE THIEUTH YU PHIEUPH
-<UD2B7> \xBA\x69 |0 # HANGUL SYLLABLE THIEUTH YU HIEUH
-<UD2B8> \xC6\xAE |0 # HANGUL SYLLABLE THIEUTH EU
-<UD2B9> \xC6\xAF |0 # HANGUL SYLLABLE THIEUTH EU KIYEOK
-<UD2BA> \xBA\x6A |0 # HANGUL SYLLABLE THIEUTH EU SSANGKIYEOK
-<UD2BB> \xBA\x6B |0 # HANGUL SYLLABLE THIEUTH EU KIYEOKSIOS
-<UD2BC> \xC6\xB0 |0 # HANGUL SYLLABLE THIEUTH EU NIEUN
-<UD2BD> \xBA\x6C |0 # HANGUL SYLLABLE THIEUTH EU NIEUNCIEUC
-<UD2BE> \xBA\x6D |0 # HANGUL SYLLABLE THIEUTH EU NIEUNHIEUH
-<UD2BF> \xC6\xB1 |0 # HANGUL SYLLABLE THIEUTH EU TIKEUT
-<UD2C0> \xC6\xB2 |0 # HANGUL SYLLABLE THIEUTH EU RIEUL
-<UD2C1> \xBA\x6E |0 # HANGUL SYLLABLE THIEUTH EU RIEULKIYEOK
-<UD2C2> \xC6\xB3 |0 # HANGUL SYLLABLE THIEUTH EU RIEULMIEUM
-<UD2C3> \xBA\x6F |0 # HANGUL SYLLABLE THIEUTH EU RIEULPIEUP
-<UD2C4> \xBA\x70 |0 # HANGUL SYLLABLE THIEUTH EU RIEULSIOS
-<UD2C5> \xBA\x71 |0 # HANGUL SYLLABLE THIEUTH EU RIEULTHIEUTH
-<UD2C6> \xBA\x72 |0 # HANGUL SYLLABLE THIEUTH EU RIEULPHIEUPH
-<UD2C7> \xBA\x73 |0 # HANGUL SYLLABLE THIEUTH EU RIEULHIEUH
-<UD2C8> \xC6\xB4 |0 # HANGUL SYLLABLE THIEUTH EU MIEUM
-<UD2C9> \xC6\xB5 |0 # HANGUL SYLLABLE THIEUTH EU PIEUP
-<UD2CA> \xBA\x74 |0 # HANGUL SYLLABLE THIEUTH EU PIEUPSIOS
-<UD2CB> \xC6\xB6 |0 # HANGUL SYLLABLE THIEUTH EU SIOS
-<UD2CC> \xBA\x75 |0 # HANGUL SYLLABLE THIEUTH EU SSANGSIOS
-<UD2CD> \xBA\x76 |0 # HANGUL SYLLABLE THIEUTH EU IEUNG
-<UD2CE> \xBA\x77 |0 # HANGUL SYLLABLE THIEUTH EU CIEUC
-<UD2CF> \xBA\x78 |0 # HANGUL SYLLABLE THIEUTH EU CHIEUCH
-<UD2D0> \xBA\x79 |0 # HANGUL SYLLABLE THIEUTH EU KHIEUKH
-<UD2D1> \xBA\x7A |0 # HANGUL SYLLABLE THIEUTH EU THIEUTH
-<UD2D2> \xBA\x81 |0 # HANGUL SYLLABLE THIEUTH EU PHIEUPH
-<UD2D3> \xBA\x82 |0 # HANGUL SYLLABLE THIEUTH EU HIEUH
-<UD2D4> \xC6\xB7 |0 # HANGUL SYLLABLE THIEUTH YI
-<UD2D5> \xBA\x83 |0 # HANGUL SYLLABLE THIEUTH YI KIYEOK
-<UD2D6> \xBA\x84 |0 # HANGUL SYLLABLE THIEUTH YI SSANGKIYEOK
-<UD2D7> \xBA\x85 |0 # HANGUL SYLLABLE THIEUTH YI KIYEOKSIOS
-<UD2D8> \xC6\xB8 |0 # HANGUL SYLLABLE THIEUTH YI NIEUN
-<UD2D9> \xBA\x86 |0 # HANGUL SYLLABLE THIEUTH YI NIEUNCIEUC
-<UD2DA> \xBA\x87 |0 # HANGUL SYLLABLE THIEUTH YI NIEUNHIEUH
-<UD2DB> \xBA\x88 |0 # HANGUL SYLLABLE THIEUTH YI TIKEUT
-<UD2DC> \xC6\xB9 |0 # HANGUL SYLLABLE THIEUTH YI RIEUL
-<UD2DD> \xBA\x89 |0 # HANGUL SYLLABLE THIEUTH YI RIEULKIYEOK
-<UD2DE> \xBA\x8A |0 # HANGUL SYLLABLE THIEUTH YI RIEULMIEUM
-<UD2DF> \xBA\x8B |0 # HANGUL SYLLABLE THIEUTH YI RIEULPIEUP
-<UD2E0> \xBA\x8C |0 # HANGUL SYLLABLE THIEUTH YI RIEULSIOS
-<UD2E1> \xBA\x8D |0 # HANGUL SYLLABLE THIEUTH YI RIEULTHIEUTH
-<UD2E2> \xBA\x8E |0 # HANGUL SYLLABLE THIEUTH YI RIEULPHIEUPH
-<UD2E3> \xBA\x8F |0 # HANGUL SYLLABLE THIEUTH YI RIEULHIEUH
-<UD2E4> \xC6\xBA |0 # HANGUL SYLLABLE THIEUTH YI MIEUM
-<UD2E5> \xC6\xBB |0 # HANGUL SYLLABLE THIEUTH YI PIEUP
-<UD2E6> \xBA\x90 |0 # HANGUL SYLLABLE THIEUTH YI PIEUPSIOS
-<UD2E7> \xBA\x91 |0 # HANGUL SYLLABLE THIEUTH YI SIOS
-<UD2E8> \xBA\x92 |0 # HANGUL SYLLABLE THIEUTH YI SSANGSIOS
-<UD2E9> \xBA\x93 |0 # HANGUL SYLLABLE THIEUTH YI IEUNG
-<UD2EA> \xBA\x94 |0 # HANGUL SYLLABLE THIEUTH YI CIEUC
-<UD2EB> \xBA\x95 |0 # HANGUL SYLLABLE THIEUTH YI CHIEUCH
-<UD2EC> \xBA\x96 |0 # HANGUL SYLLABLE THIEUTH YI KHIEUKH
-<UD2ED> \xBA\x97 |0 # HANGUL SYLLABLE THIEUTH YI THIEUTH
-<UD2EE> \xBA\x98 |0 # HANGUL SYLLABLE THIEUTH YI PHIEUPH
-<UD2EF> \xBA\x99 |0 # HANGUL SYLLABLE THIEUTH YI HIEUH
-<UD2F0> \xC6\xBC |0 # HANGUL SYLLABLE THIEUTH I
-<UD2F1> \xC6\xBD |0 # HANGUL SYLLABLE THIEUTH I KIYEOK
-<UD2F2> \xBA\x9A |0 # HANGUL SYLLABLE THIEUTH I SSANGKIYEOK
-<UD2F3> \xBA\x9B |0 # HANGUL SYLLABLE THIEUTH I KIYEOKSIOS
-<UD2F4> \xC6\xBE |0 # HANGUL SYLLABLE THIEUTH I NIEUN
-<UD2F5> \xBA\x9C |0 # HANGUL SYLLABLE THIEUTH I NIEUNCIEUC
-<UD2F6> \xBA\x9D |0 # HANGUL SYLLABLE THIEUTH I NIEUNHIEUH
-<UD2F7> \xBA\x9E |0 # HANGUL SYLLABLE THIEUTH I TIKEUT
-<UD2F8> \xC6\xBF |0 # HANGUL SYLLABLE THIEUTH I RIEUL
-<UD2F9> \xBA\x9F |0 # HANGUL SYLLABLE THIEUTH I RIEULKIYEOK
-<UD2FA> \xBA\xA0 |0 # HANGUL SYLLABLE THIEUTH I RIEULMIEUM
-<UD2FB> \xBB\x41 |0 # HANGUL SYLLABLE THIEUTH I RIEULPIEUP
-<UD2FC> \xBB\x42 |0 # HANGUL SYLLABLE THIEUTH I RIEULSIOS
-<UD2FD> \xBB\x43 |0 # HANGUL SYLLABLE THIEUTH I RIEULTHIEUTH
-<UD2FE> \xBB\x44 |0 # HANGUL SYLLABLE THIEUTH I RIEULPHIEUPH
-<UD2FF> \xBB\x45 |0 # HANGUL SYLLABLE THIEUTH I RIEULHIEUH
-<UD300> \xC6\xC0 |0 # HANGUL SYLLABLE THIEUTH I MIEUM
-<UD301> \xC6\xC1 |0 # HANGUL SYLLABLE THIEUTH I PIEUP
-<UD302> \xBB\x46 |0 # HANGUL SYLLABLE THIEUTH I PIEUPSIOS
-<UD303> \xC6\xC2 |0 # HANGUL SYLLABLE THIEUTH I SIOS
-<UD304> \xBB\x47 |0 # HANGUL SYLLABLE THIEUTH I SSANGSIOS
-<UD305> \xC6\xC3 |0 # HANGUL SYLLABLE THIEUTH I IEUNG
-<UD306> \xBB\x48 |0 # HANGUL SYLLABLE THIEUTH I CIEUC
-<UD307> \xBB\x49 |0 # HANGUL SYLLABLE THIEUTH I CHIEUCH
-<UD308> \xBB\x4A |0 # HANGUL SYLLABLE THIEUTH I KHIEUKH
-<UD309> \xBB\x4B |0 # HANGUL SYLLABLE THIEUTH I THIEUTH
-<UD30A> \xBB\x4C |0 # HANGUL SYLLABLE THIEUTH I PHIEUPH
-<UD30B> \xBB\x4D |0 # HANGUL SYLLABLE THIEUTH I HIEUH
-<UD30C> \xC6\xC4 |0 # HANGUL SYLLABLE PHIEUPH A
-<UD30D> \xC6\xC5 |0 # HANGUL SYLLABLE PHIEUPH A KIYEOK
-<UD30E> \xC6\xC6 |0 # HANGUL SYLLABLE PHIEUPH A SSANGKIYEOK
-<UD30F> \xBB\x4E |0 # HANGUL SYLLABLE PHIEUPH A KIYEOKSIOS
-<UD310> \xC6\xC7 |0 # HANGUL SYLLABLE PHIEUPH A NIEUN
-<UD311> \xBB\x4F |0 # HANGUL SYLLABLE PHIEUPH A NIEUNCIEUC
-<UD312> \xBB\x50 |0 # HANGUL SYLLABLE PHIEUPH A NIEUNHIEUH
-<UD313> \xBB\x51 |0 # HANGUL SYLLABLE PHIEUPH A TIKEUT
-<UD314> \xC6\xC8 |0 # HANGUL SYLLABLE PHIEUPH A RIEUL
-<UD315> \xBB\x52 |0 # HANGUL SYLLABLE PHIEUPH A RIEULKIYEOK
-<UD316> \xC6\xC9 |0 # HANGUL SYLLABLE PHIEUPH A RIEULMIEUM
-<UD317> \xBB\x53 |0 # HANGUL SYLLABLE PHIEUPH A RIEULPIEUP
-<UD318> \xBB\x54 |0 # HANGUL SYLLABLE PHIEUPH A RIEULSIOS
-<UD319> \xBB\x55 |0 # HANGUL SYLLABLE PHIEUPH A RIEULTHIEUTH
-<UD31A> \xBB\x56 |0 # HANGUL SYLLABLE PHIEUPH A RIEULPHIEUPH
-<UD31B> \xBB\x57 |0 # HANGUL SYLLABLE PHIEUPH A RIEULHIEUH
-<UD31C> \xC6\xCA |0 # HANGUL SYLLABLE PHIEUPH A MIEUM
-<UD31D> \xC6\xCB |0 # HANGUL SYLLABLE PHIEUPH A PIEUP
-<UD31E> \xBB\x58 |0 # HANGUL SYLLABLE PHIEUPH A PIEUPSIOS
-<UD31F> \xC6\xCC |0 # HANGUL SYLLABLE PHIEUPH A SIOS
-<UD320> \xC6\xCD |0 # HANGUL SYLLABLE PHIEUPH A SSANGSIOS
-<UD321> \xC6\xCE |0 # HANGUL SYLLABLE PHIEUPH A IEUNG
-<UD322> \xBB\x59 |0 # HANGUL SYLLABLE PHIEUPH A CIEUC
-<UD323> \xBB\x5A |0 # HANGUL SYLLABLE PHIEUPH A CHIEUCH
-<UD324> \xBB\x61 |0 # HANGUL SYLLABLE PHIEUPH A KHIEUKH
-<UD325> \xC6\xCF |0 # HANGUL SYLLABLE PHIEUPH A THIEUTH
-<UD326> \xBB\x62 |0 # HANGUL SYLLABLE PHIEUPH A PHIEUPH
-<UD327> \xBB\x63 |0 # HANGUL SYLLABLE PHIEUPH A HIEUH
-<UD328> \xC6\xD0 |0 # HANGUL SYLLABLE PHIEUPH AE
-<UD329> \xC6\xD1 |0 # HANGUL SYLLABLE PHIEUPH AE KIYEOK
-<UD32A> \xBB\x64 |0 # HANGUL SYLLABLE PHIEUPH AE SSANGKIYEOK
-<UD32B> \xBB\x65 |0 # HANGUL SYLLABLE PHIEUPH AE KIYEOKSIOS
-<UD32C> \xC6\xD2 |0 # HANGUL SYLLABLE PHIEUPH AE NIEUN
-<UD32D> \xBB\x66 |0 # HANGUL SYLLABLE PHIEUPH AE NIEUNCIEUC
-<UD32E> \xBB\x67 |0 # HANGUL SYLLABLE PHIEUPH AE NIEUNHIEUH
-<UD32F> \xBB\x68 |0 # HANGUL SYLLABLE PHIEUPH AE TIKEUT
-<UD330> \xC6\xD3 |0 # HANGUL SYLLABLE PHIEUPH AE RIEUL
-<UD331> \xBB\x69 |0 # HANGUL SYLLABLE PHIEUPH AE RIEULKIYEOK
-<UD332> \xBB\x6A |0 # HANGUL SYLLABLE PHIEUPH AE RIEULMIEUM
-<UD333> \xBB\x6B |0 # HANGUL SYLLABLE PHIEUPH AE RIEULPIEUP
-<UD334> \xBB\x6C |0 # HANGUL SYLLABLE PHIEUPH AE RIEULSIOS
-<UD335> \xBB\x6D |0 # HANGUL SYLLABLE PHIEUPH AE RIEULTHIEUTH
-<UD336> \xBB\x6E |0 # HANGUL SYLLABLE PHIEUPH AE RIEULPHIEUPH
-<UD337> \xBB\x6F |0 # HANGUL SYLLABLE PHIEUPH AE RIEULHIEUH
-<UD338> \xC6\xD4 |0 # HANGUL SYLLABLE PHIEUPH AE MIEUM
-<UD339> \xC6\xD5 |0 # HANGUL SYLLABLE PHIEUPH AE PIEUP
-<UD33A> \xBB\x70 |0 # HANGUL SYLLABLE PHIEUPH AE PIEUPSIOS
-<UD33B> \xC6\xD6 |0 # HANGUL SYLLABLE PHIEUPH AE SIOS
-<UD33C> \xC6\xD7 |0 # HANGUL SYLLABLE PHIEUPH AE SSANGSIOS
-<UD33D> \xC6\xD8 |0 # HANGUL SYLLABLE PHIEUPH AE IEUNG
-<UD33E> \xBB\x71 |0 # HANGUL SYLLABLE PHIEUPH AE CIEUC
-<UD33F> \xBB\x72 |0 # HANGUL SYLLABLE PHIEUPH AE CHIEUCH
-<UD340> \xBB\x73 |0 # HANGUL SYLLABLE PHIEUPH AE KHIEUKH
-<UD341> \xBB\x74 |0 # HANGUL SYLLABLE PHIEUPH AE THIEUTH
-<UD342> \xBB\x75 |0 # HANGUL SYLLABLE PHIEUPH AE PHIEUPH
-<UD343> \xBB\x76 |0 # HANGUL SYLLABLE PHIEUPH AE HIEUH
-<UD344> \xC6\xD9 |0 # HANGUL SYLLABLE PHIEUPH YA
-<UD345> \xC6\xDA |0 # HANGUL SYLLABLE PHIEUPH YA KIYEOK
-<UD346> \xBB\x77 |0 # HANGUL SYLLABLE PHIEUPH YA SSANGKIYEOK
-<UD347> \xBB\x78 |0 # HANGUL SYLLABLE PHIEUPH YA KIYEOKSIOS
-<UD348> \xBB\x79 |0 # HANGUL SYLLABLE PHIEUPH YA NIEUN
-<UD349> \xBB\x7A |0 # HANGUL SYLLABLE PHIEUPH YA NIEUNCIEUC
-<UD34A> \xBB\x81 |0 # HANGUL SYLLABLE PHIEUPH YA NIEUNHIEUH
-<UD34B> \xBB\x82 |0 # HANGUL SYLLABLE PHIEUPH YA TIKEUT
-<UD34C> \xBB\x83 |0 # HANGUL SYLLABLE PHIEUPH YA RIEUL
-<UD34D> \xBB\x84 |0 # HANGUL SYLLABLE PHIEUPH YA RIEULKIYEOK
-<UD34E> \xBB\x85 |0 # HANGUL SYLLABLE PHIEUPH YA RIEULMIEUM
-<UD34F> \xBB\x86 |0 # HANGUL SYLLABLE PHIEUPH YA RIEULPIEUP
-<UD350> \xBB\x87 |0 # HANGUL SYLLABLE PHIEUPH YA RIEULSIOS
-<UD351> \xBB\x88 |0 # HANGUL SYLLABLE PHIEUPH YA RIEULTHIEUTH
-<UD352> \xBB\x89 |0 # HANGUL SYLLABLE PHIEUPH YA RIEULPHIEUPH
-<UD353> \xBB\x8A |0 # HANGUL SYLLABLE PHIEUPH YA RIEULHIEUH
-<UD354> \xBB\x8B |0 # HANGUL SYLLABLE PHIEUPH YA MIEUM
-<UD355> \xBB\x8C |0 # HANGUL SYLLABLE PHIEUPH YA PIEUP
-<UD356> \xBB\x8D |0 # HANGUL SYLLABLE PHIEUPH YA PIEUPSIOS
-<UD357> \xBB\x8E |0 # HANGUL SYLLABLE PHIEUPH YA SIOS
-<UD358> \xBB\x8F |0 # HANGUL SYLLABLE PHIEUPH YA SSANGSIOS
-<UD359> \xBB\x90 |0 # HANGUL SYLLABLE PHIEUPH YA IEUNG
-<UD35A> \xBB\x91 |0 # HANGUL SYLLABLE PHIEUPH YA CIEUC
-<UD35B> \xBB\x92 |0 # HANGUL SYLLABLE PHIEUPH YA CHIEUCH
-<UD35C> \xBB\x93 |0 # HANGUL SYLLABLE PHIEUPH YA KHIEUKH
-<UD35D> \xBB\x94 |0 # HANGUL SYLLABLE PHIEUPH YA THIEUTH
-<UD35E> \xBB\x95 |0 # HANGUL SYLLABLE PHIEUPH YA PHIEUPH
-<UD35F> \xBB\x96 |0 # HANGUL SYLLABLE PHIEUPH YA HIEUH
-<UD360> \xBB\x97 |0 # HANGUL SYLLABLE PHIEUPH YAE
-<UD361> \xBB\x98 |0 # HANGUL SYLLABLE PHIEUPH YAE KIYEOK
-<UD362> \xBB\x99 |0 # HANGUL SYLLABLE PHIEUPH YAE SSANGKIYEOK
-<UD363> \xBB\x9A |0 # HANGUL SYLLABLE PHIEUPH YAE KIYEOKSIOS
-<UD364> \xBB\x9B |0 # HANGUL SYLLABLE PHIEUPH YAE NIEUN
-<UD365> \xBB\x9C |0 # HANGUL SYLLABLE PHIEUPH YAE NIEUNCIEUC
-<UD366> \xBB\x9D |0 # HANGUL SYLLABLE PHIEUPH YAE NIEUNHIEUH
-<UD367> \xBB\x9E |0 # HANGUL SYLLABLE PHIEUPH YAE TIKEUT
-<UD368> \xBB\x9F |0 # HANGUL SYLLABLE PHIEUPH YAE RIEUL
-<UD369> \xBB\xA0 |0 # HANGUL SYLLABLE PHIEUPH YAE RIEULKIYEOK
-<UD36A> \xBC\x41 |0 # HANGUL SYLLABLE PHIEUPH YAE RIEULMIEUM
-<UD36B> \xBC\x42 |0 # HANGUL SYLLABLE PHIEUPH YAE RIEULPIEUP
-<UD36C> \xBC\x43 |0 # HANGUL SYLLABLE PHIEUPH YAE RIEULSIOS
-<UD36D> \xBC\x44 |0 # HANGUL SYLLABLE PHIEUPH YAE RIEULTHIEUTH
-<UD36E> \xBC\x45 |0 # HANGUL SYLLABLE PHIEUPH YAE RIEULPHIEUPH
-<UD36F> \xBC\x46 |0 # HANGUL SYLLABLE PHIEUPH YAE RIEULHIEUH
-<UD370> \xBC\x47 |0 # HANGUL SYLLABLE PHIEUPH YAE MIEUM
-<UD371> \xBC\x48 |0 # HANGUL SYLLABLE PHIEUPH YAE PIEUP
-<UD372> \xBC\x49 |0 # HANGUL SYLLABLE PHIEUPH YAE PIEUPSIOS
-<UD373> \xBC\x4A |0 # HANGUL SYLLABLE PHIEUPH YAE SIOS
-<UD374> \xBC\x4B |0 # HANGUL SYLLABLE PHIEUPH YAE SSANGSIOS
-<UD375> \xBC\x4C |0 # HANGUL SYLLABLE PHIEUPH YAE IEUNG
-<UD376> \xBC\x4D |0 # HANGUL SYLLABLE PHIEUPH YAE CIEUC
-<UD377> \xBC\x4E |0 # HANGUL SYLLABLE PHIEUPH YAE CHIEUCH
-<UD378> \xBC\x4F |0 # HANGUL SYLLABLE PHIEUPH YAE KHIEUKH
-<UD379> \xBC\x50 |0 # HANGUL SYLLABLE PHIEUPH YAE THIEUTH
-<UD37A> \xBC\x51 |0 # HANGUL SYLLABLE PHIEUPH YAE PHIEUPH
-<UD37B> \xBC\x52 |0 # HANGUL SYLLABLE PHIEUPH YAE HIEUH
-<UD37C> \xC6\xDB |0 # HANGUL SYLLABLE PHIEUPH EO
-<UD37D> \xC6\xDC |0 # HANGUL SYLLABLE PHIEUPH EO KIYEOK
-<UD37E> \xBC\x53 |0 # HANGUL SYLLABLE PHIEUPH EO SSANGKIYEOK
-<UD37F> \xBC\x54 |0 # HANGUL SYLLABLE PHIEUPH EO KIYEOKSIOS
-<UD380> \xC6\xDD |0 # HANGUL SYLLABLE PHIEUPH EO NIEUN
-<UD381> \xBC\x55 |0 # HANGUL SYLLABLE PHIEUPH EO NIEUNCIEUC
-<UD382> \xBC\x56 |0 # HANGUL SYLLABLE PHIEUPH EO NIEUNHIEUH
-<UD383> \xBC\x57 |0 # HANGUL SYLLABLE PHIEUPH EO TIKEUT
-<UD384> \xC6\xDE |0 # HANGUL SYLLABLE PHIEUPH EO RIEUL
-<UD385> \xBC\x58 |0 # HANGUL SYLLABLE PHIEUPH EO RIEULKIYEOK
-<UD386> \xBC\x59 |0 # HANGUL SYLLABLE PHIEUPH EO RIEULMIEUM
-<UD387> \xBC\x5A |0 # HANGUL SYLLABLE PHIEUPH EO RIEULPIEUP
-<UD388> \xBC\x61 |0 # HANGUL SYLLABLE PHIEUPH EO RIEULSIOS
-<UD389> \xBC\x62 |0 # HANGUL SYLLABLE PHIEUPH EO RIEULTHIEUTH
-<UD38A> \xBC\x63 |0 # HANGUL SYLLABLE PHIEUPH EO RIEULPHIEUPH
-<UD38B> \xBC\x64 |0 # HANGUL SYLLABLE PHIEUPH EO RIEULHIEUH
-<UD38C> \xC6\xDF |0 # HANGUL SYLLABLE PHIEUPH EO MIEUM
-<UD38D> \xC6\xE0 |0 # HANGUL SYLLABLE PHIEUPH EO PIEUP
-<UD38E> \xBC\x65 |0 # HANGUL SYLLABLE PHIEUPH EO PIEUPSIOS
-<UD38F> \xC6\xE1 |0 # HANGUL SYLLABLE PHIEUPH EO SIOS
-<UD390> \xC6\xE2 |0 # HANGUL SYLLABLE PHIEUPH EO SSANGSIOS
-<UD391> \xC6\xE3 |0 # HANGUL SYLLABLE PHIEUPH EO IEUNG
-<UD392> \xBC\x66 |0 # HANGUL SYLLABLE PHIEUPH EO CIEUC
-<UD393> \xBC\x67 |0 # HANGUL SYLLABLE PHIEUPH EO CHIEUCH
-<UD394> \xBC\x68 |0 # HANGUL SYLLABLE PHIEUPH EO KHIEUKH
-<UD395> \xBC\x69 |0 # HANGUL SYLLABLE PHIEUPH EO THIEUTH
-<UD396> \xBC\x6A |0 # HANGUL SYLLABLE PHIEUPH EO PHIEUPH
-<UD397> \xBC\x6B |0 # HANGUL SYLLABLE PHIEUPH EO HIEUH
-<UD398> \xC6\xE4 |0 # HANGUL SYLLABLE PHIEUPH E
-<UD399> \xC6\xE5 |0 # HANGUL SYLLABLE PHIEUPH E KIYEOK
-<UD39A> \xBC\x6C |0 # HANGUL SYLLABLE PHIEUPH E SSANGKIYEOK
-<UD39B> \xBC\x6D |0 # HANGUL SYLLABLE PHIEUPH E KIYEOKSIOS
-<UD39C> \xC6\xE6 |0 # HANGUL SYLLABLE PHIEUPH E NIEUN
-<UD39D> \xBC\x6E |0 # HANGUL SYLLABLE PHIEUPH E NIEUNCIEUC
-<UD39E> \xBC\x6F |0 # HANGUL SYLLABLE PHIEUPH E NIEUNHIEUH
-<UD39F> \xBC\x70 |0 # HANGUL SYLLABLE PHIEUPH E TIKEUT
-<UD3A0> \xC6\xE7 |0 # HANGUL SYLLABLE PHIEUPH E RIEUL
-<UD3A1> \xBC\x71 |0 # HANGUL SYLLABLE PHIEUPH E RIEULKIYEOK
-<UD3A2> \xBC\x72 |0 # HANGUL SYLLABLE PHIEUPH E RIEULMIEUM
-<UD3A3> \xBC\x73 |0 # HANGUL SYLLABLE PHIEUPH E RIEULPIEUP
-<UD3A4> \xBC\x74 |0 # HANGUL SYLLABLE PHIEUPH E RIEULSIOS
-<UD3A5> \xBC\x75 |0 # HANGUL SYLLABLE PHIEUPH E RIEULTHIEUTH
-<UD3A6> \xBC\x76 |0 # HANGUL SYLLABLE PHIEUPH E RIEULPHIEUPH
-<UD3A7> \xBC\x77 |0 # HANGUL SYLLABLE PHIEUPH E RIEULHIEUH
-<UD3A8> \xC6\xE8 |0 # HANGUL SYLLABLE PHIEUPH E MIEUM
-<UD3A9> \xC6\xE9 |0 # HANGUL SYLLABLE PHIEUPH E PIEUP
-<UD3AA> \xBC\x78 |0 # HANGUL SYLLABLE PHIEUPH E PIEUPSIOS
-<UD3AB> \xC6\xEA |0 # HANGUL SYLLABLE PHIEUPH E SIOS
-<UD3AC> \xBC\x79 |0 # HANGUL SYLLABLE PHIEUPH E SSANGSIOS
-<UD3AD> \xC6\xEB |0 # HANGUL SYLLABLE PHIEUPH E IEUNG
-<UD3AE> \xBC\x7A |0 # HANGUL SYLLABLE PHIEUPH E CIEUC
-<UD3AF> \xBC\x81 |0 # HANGUL SYLLABLE PHIEUPH E CHIEUCH
-<UD3B0> \xBC\x82 |0 # HANGUL SYLLABLE PHIEUPH E KHIEUKH
-<UD3B1> \xBC\x83 |0 # HANGUL SYLLABLE PHIEUPH E THIEUTH
-<UD3B2> \xBC\x84 |0 # HANGUL SYLLABLE PHIEUPH E PHIEUPH
-<UD3B3> \xBC\x85 |0 # HANGUL SYLLABLE PHIEUPH E HIEUH
-<UD3B4> \xC6\xEC |0 # HANGUL SYLLABLE PHIEUPH YEO
-<UD3B5> \xBC\x86 |0 # HANGUL SYLLABLE PHIEUPH YEO KIYEOK
-<UD3B6> \xBC\x87 |0 # HANGUL SYLLABLE PHIEUPH YEO SSANGKIYEOK
-<UD3B7> \xBC\x88 |0 # HANGUL SYLLABLE PHIEUPH YEO KIYEOKSIOS
-<UD3B8> \xC6\xED |0 # HANGUL SYLLABLE PHIEUPH YEO NIEUN
-<UD3B9> \xBC\x89 |0 # HANGUL SYLLABLE PHIEUPH YEO NIEUNCIEUC
-<UD3BA> \xBC\x8A |0 # HANGUL SYLLABLE PHIEUPH YEO NIEUNHIEUH
-<UD3BB> \xBC\x8B |0 # HANGUL SYLLABLE PHIEUPH YEO TIKEUT
-<UD3BC> \xC6\xEE |0 # HANGUL SYLLABLE PHIEUPH YEO RIEUL
-<UD3BD> \xBC\x8C |0 # HANGUL SYLLABLE PHIEUPH YEO RIEULKIYEOK
-<UD3BE> \xBC\x8D |0 # HANGUL SYLLABLE PHIEUPH YEO RIEULMIEUM
-<UD3BF> \xBC\x8E |0 # HANGUL SYLLABLE PHIEUPH YEO RIEULPIEUP
-<UD3C0> \xBC\x8F |0 # HANGUL SYLLABLE PHIEUPH YEO RIEULSIOS
-<UD3C1> \xBC\x90 |0 # HANGUL SYLLABLE PHIEUPH YEO RIEULTHIEUTH
-<UD3C2> \xBC\x91 |0 # HANGUL SYLLABLE PHIEUPH YEO RIEULPHIEUPH
-<UD3C3> \xBC\x92 |0 # HANGUL SYLLABLE PHIEUPH YEO RIEULHIEUH
-<UD3C4> \xC6\xEF |0 # HANGUL SYLLABLE PHIEUPH YEO MIEUM
-<UD3C5> \xC6\xF0 |0 # HANGUL SYLLABLE PHIEUPH YEO PIEUP
-<UD3C6> \xBC\x93 |0 # HANGUL SYLLABLE PHIEUPH YEO PIEUPSIOS
-<UD3C7> \xBC\x94 |0 # HANGUL SYLLABLE PHIEUPH YEO SIOS
-<UD3C8> \xC6\xF1 |0 # HANGUL SYLLABLE PHIEUPH YEO SSANGSIOS
-<UD3C9> \xC6\xF2 |0 # HANGUL SYLLABLE PHIEUPH YEO IEUNG
-<UD3CA> \xBC\x95 |0 # HANGUL SYLLABLE PHIEUPH YEO CIEUC
-<UD3CB> \xBC\x96 |0 # HANGUL SYLLABLE PHIEUPH YEO CHIEUCH
-<UD3CC> \xBC\x97 |0 # HANGUL SYLLABLE PHIEUPH YEO KHIEUKH
-<UD3CD> \xBC\x98 |0 # HANGUL SYLLABLE PHIEUPH YEO THIEUTH
-<UD3CE> \xBC\x99 |0 # HANGUL SYLLABLE PHIEUPH YEO PHIEUPH
-<UD3CF> \xBC\x9A |0 # HANGUL SYLLABLE PHIEUPH YEO HIEUH
-<UD3D0> \xC6\xF3 |0 # HANGUL SYLLABLE PHIEUPH YE
-<UD3D1> \xBC\x9B |0 # HANGUL SYLLABLE PHIEUPH YE KIYEOK
-<UD3D2> \xBC\x9C |0 # HANGUL SYLLABLE PHIEUPH YE SSANGKIYEOK
-<UD3D3> \xBC\x9D |0 # HANGUL SYLLABLE PHIEUPH YE KIYEOKSIOS
-<UD3D4> \xBC\x9E |0 # HANGUL SYLLABLE PHIEUPH YE NIEUN
-<UD3D5> \xBC\x9F |0 # HANGUL SYLLABLE PHIEUPH YE NIEUNCIEUC
-<UD3D6> \xBC\xA0 |0 # HANGUL SYLLABLE PHIEUPH YE NIEUNHIEUH
-<UD3D7> \xBD\x41 |0 # HANGUL SYLLABLE PHIEUPH YE TIKEUT
-<UD3D8> \xC6\xF4 |0 # HANGUL SYLLABLE PHIEUPH YE RIEUL
-<UD3D9> \xBD\x42 |0 # HANGUL SYLLABLE PHIEUPH YE RIEULKIYEOK
-<UD3DA> \xBD\x43 |0 # HANGUL SYLLABLE PHIEUPH YE RIEULMIEUM
-<UD3DB> \xBD\x44 |0 # HANGUL SYLLABLE PHIEUPH YE RIEULPIEUP
-<UD3DC> \xBD\x45 |0 # HANGUL SYLLABLE PHIEUPH YE RIEULSIOS
-<UD3DD> \xBD\x46 |0 # HANGUL SYLLABLE PHIEUPH YE RIEULTHIEUTH
-<UD3DE> \xBD\x47 |0 # HANGUL SYLLABLE PHIEUPH YE RIEULPHIEUPH
-<UD3DF> \xBD\x48 |0 # HANGUL SYLLABLE PHIEUPH YE RIEULHIEUH
-<UD3E0> \xBD\x49 |0 # HANGUL SYLLABLE PHIEUPH YE MIEUM
-<UD3E1> \xC6\xF5 |0 # HANGUL SYLLABLE PHIEUPH YE PIEUP
-<UD3E2> \xBD\x4A |0 # HANGUL SYLLABLE PHIEUPH YE PIEUPSIOS
-<UD3E3> \xC6\xF6 |0 # HANGUL SYLLABLE PHIEUPH YE SIOS
-<UD3E4> \xBD\x4B |0 # HANGUL SYLLABLE PHIEUPH YE SSANGSIOS
-<UD3E5> \xBD\x4C |0 # HANGUL SYLLABLE PHIEUPH YE IEUNG
-<UD3E6> \xBD\x4D |0 # HANGUL SYLLABLE PHIEUPH YE CIEUC
-<UD3E7> \xBD\x4E |0 # HANGUL SYLLABLE PHIEUPH YE CHIEUCH
-<UD3E8> \xBD\x4F |0 # HANGUL SYLLABLE PHIEUPH YE KHIEUKH
-<UD3E9> \xBD\x50 |0 # HANGUL SYLLABLE PHIEUPH YE THIEUTH
-<UD3EA> \xBD\x51 |0 # HANGUL SYLLABLE PHIEUPH YE PHIEUPH
-<UD3EB> \xBD\x52 |0 # HANGUL SYLLABLE PHIEUPH YE HIEUH
-<UD3EC> \xC6\xF7 |0 # HANGUL SYLLABLE PHIEUPH O
-<UD3ED> \xC6\xF8 |0 # HANGUL SYLLABLE PHIEUPH O KIYEOK
-<UD3EE> \xBD\x53 |0 # HANGUL SYLLABLE PHIEUPH O SSANGKIYEOK
-<UD3EF> \xBD\x54 |0 # HANGUL SYLLABLE PHIEUPH O KIYEOKSIOS
-<UD3F0> \xC6\xF9 |0 # HANGUL SYLLABLE PHIEUPH O NIEUN
-<UD3F1> \xBD\x55 |0 # HANGUL SYLLABLE PHIEUPH O NIEUNCIEUC
-<UD3F2> \xBD\x56 |0 # HANGUL SYLLABLE PHIEUPH O NIEUNHIEUH
-<UD3F3> \xBD\x57 |0 # HANGUL SYLLABLE PHIEUPH O TIKEUT
-<UD3F4> \xC6\xFA |0 # HANGUL SYLLABLE PHIEUPH O RIEUL
-<UD3F5> \xBD\x58 |0 # HANGUL SYLLABLE PHIEUPH O RIEULKIYEOK
-<UD3F6> \xBD\x59 |0 # HANGUL SYLLABLE PHIEUPH O RIEULMIEUM
-<UD3F7> \xBD\x5A |0 # HANGUL SYLLABLE PHIEUPH O RIEULPIEUP
-<UD3F8> \xBD\x61 |0 # HANGUL SYLLABLE PHIEUPH O RIEULSIOS
-<UD3F9> \xBD\x62 |0 # HANGUL SYLLABLE PHIEUPH O RIEULTHIEUTH
-<UD3FA> \xBD\x63 |0 # HANGUL SYLLABLE PHIEUPH O RIEULPHIEUPH
-<UD3FB> \xBD\x64 |0 # HANGUL SYLLABLE PHIEUPH O RIEULHIEUH
-<UD3FC> \xC6\xFB |0 # HANGUL SYLLABLE PHIEUPH O MIEUM
-<UD3FD> \xC6\xFC |0 # HANGUL SYLLABLE PHIEUPH O PIEUP
-<UD3FE> \xBD\x65 |0 # HANGUL SYLLABLE PHIEUPH O PIEUPSIOS
-<UD3FF> \xC6\xFD |0 # HANGUL SYLLABLE PHIEUPH O SIOS
-<UD400> \xBD\x66 |0 # HANGUL SYLLABLE PHIEUPH O SSANGSIOS
-<UD401> \xC6\xFE |0 # HANGUL SYLLABLE PHIEUPH O IEUNG
-<UD402> \xBD\x67 |0 # HANGUL SYLLABLE PHIEUPH O CIEUC
-<UD403> \xBD\x68 |0 # HANGUL SYLLABLE PHIEUPH O CHIEUCH
-<UD404> \xBD\x69 |0 # HANGUL SYLLABLE PHIEUPH O KHIEUKH
-<UD405> \xBD\x6A |0 # HANGUL SYLLABLE PHIEUPH O THIEUTH
-<UD406> \xBD\x6B |0 # HANGUL SYLLABLE PHIEUPH O PHIEUPH
-<UD407> \xBD\x6C |0 # HANGUL SYLLABLE PHIEUPH O HIEUH
-<UD408> \xC7\xA1 |0 # HANGUL SYLLABLE PHIEUPH WA
-<UD409> \xBD\x6D |0 # HANGUL SYLLABLE PHIEUPH WA KIYEOK
-<UD40A> \xBD\x6E |0 # HANGUL SYLLABLE PHIEUPH WA SSANGKIYEOK
-<UD40B> \xBD\x6F |0 # HANGUL SYLLABLE PHIEUPH WA KIYEOKSIOS
-<UD40C> \xBD\x70 |0 # HANGUL SYLLABLE PHIEUPH WA NIEUN
-<UD40D> \xBD\x71 |0 # HANGUL SYLLABLE PHIEUPH WA NIEUNCIEUC
-<UD40E> \xBD\x72 |0 # HANGUL SYLLABLE PHIEUPH WA NIEUNHIEUH
-<UD40F> \xBD\x73 |0 # HANGUL SYLLABLE PHIEUPH WA TIKEUT
-<UD410> \xBD\x74 |0 # HANGUL SYLLABLE PHIEUPH WA RIEUL
-<UD411> \xBD\x75 |0 # HANGUL SYLLABLE PHIEUPH WA RIEULKIYEOK
-<UD412> \xBD\x76 |0 # HANGUL SYLLABLE PHIEUPH WA RIEULMIEUM
-<UD413> \xBD\x77 |0 # HANGUL SYLLABLE PHIEUPH WA RIEULPIEUP
-<UD414> \xBD\x78 |0 # HANGUL SYLLABLE PHIEUPH WA RIEULSIOS
-<UD415> \xBD\x79 |0 # HANGUL SYLLABLE PHIEUPH WA RIEULTHIEUTH
-<UD416> \xBD\x7A |0 # HANGUL SYLLABLE PHIEUPH WA RIEULPHIEUPH
-<UD417> \xBD\x81 |0 # HANGUL SYLLABLE PHIEUPH WA RIEULHIEUH
-<UD418> \xBD\x82 |0 # HANGUL SYLLABLE PHIEUPH WA MIEUM
-<UD419> \xBD\x83 |0 # HANGUL SYLLABLE PHIEUPH WA PIEUP
-<UD41A> \xBD\x84 |0 # HANGUL SYLLABLE PHIEUPH WA PIEUPSIOS
-<UD41B> \xBD\x85 |0 # HANGUL SYLLABLE PHIEUPH WA SIOS
-<UD41C> \xBD\x86 |0 # HANGUL SYLLABLE PHIEUPH WA SSANGSIOS
-<UD41D> \xC7\xA2 |0 # HANGUL SYLLABLE PHIEUPH WA IEUNG
-<UD41E> \xBD\x87 |0 # HANGUL SYLLABLE PHIEUPH WA CIEUC
-<UD41F> \xBD\x88 |0 # HANGUL SYLLABLE PHIEUPH WA CHIEUCH
-<UD420> \xBD\x89 |0 # HANGUL SYLLABLE PHIEUPH WA KHIEUKH
-<UD421> \xBD\x8A |0 # HANGUL SYLLABLE PHIEUPH WA THIEUTH
-<UD422> \xBD\x8B |0 # HANGUL SYLLABLE PHIEUPH WA PHIEUPH
-<UD423> \xBD\x8C |0 # HANGUL SYLLABLE PHIEUPH WA HIEUH
-<UD424> \xBD\x8D |0 # HANGUL SYLLABLE PHIEUPH WAE
-<UD425> \xBD\x8E |0 # HANGUL SYLLABLE PHIEUPH WAE KIYEOK
-<UD426> \xBD\x8F |0 # HANGUL SYLLABLE PHIEUPH WAE SSANGKIYEOK
-<UD427> \xBD\x90 |0 # HANGUL SYLLABLE PHIEUPH WAE KIYEOKSIOS
-<UD428> \xBD\x91 |0 # HANGUL SYLLABLE PHIEUPH WAE NIEUN
-<UD429> \xBD\x92 |0 # HANGUL SYLLABLE PHIEUPH WAE NIEUNCIEUC
-<UD42A> \xBD\x93 |0 # HANGUL SYLLABLE PHIEUPH WAE NIEUNHIEUH
-<UD42B> \xBD\x94 |0 # HANGUL SYLLABLE PHIEUPH WAE TIKEUT
-<UD42C> \xBD\x95 |0 # HANGUL SYLLABLE PHIEUPH WAE RIEUL
-<UD42D> \xBD\x96 |0 # HANGUL SYLLABLE PHIEUPH WAE RIEULKIYEOK
-<UD42E> \xBD\x97 |0 # HANGUL SYLLABLE PHIEUPH WAE RIEULMIEUM
-<UD42F> \xBD\x98 |0 # HANGUL SYLLABLE PHIEUPH WAE RIEULPIEUP
-<UD430> \xBD\x99 |0 # HANGUL SYLLABLE PHIEUPH WAE RIEULSIOS
-<UD431> \xBD\x9A |0 # HANGUL SYLLABLE PHIEUPH WAE RIEULTHIEUTH
-<UD432> \xBD\x9B |0 # HANGUL SYLLABLE PHIEUPH WAE RIEULPHIEUPH
-<UD433> \xBD\x9C |0 # HANGUL SYLLABLE PHIEUPH WAE RIEULHIEUH
-<UD434> \xBD\x9D |0 # HANGUL SYLLABLE PHIEUPH WAE MIEUM
-<UD435> \xBD\x9E |0 # HANGUL SYLLABLE PHIEUPH WAE PIEUP
-<UD436> \xBD\x9F |0 # HANGUL SYLLABLE PHIEUPH WAE PIEUPSIOS
-<UD437> \xBD\xA0 |0 # HANGUL SYLLABLE PHIEUPH WAE SIOS
-<UD438> \xBE\x41 |0 # HANGUL SYLLABLE PHIEUPH WAE SSANGSIOS
-<UD439> \xBE\x42 |0 # HANGUL SYLLABLE PHIEUPH WAE IEUNG
-<UD43A> \xBE\x43 |0 # HANGUL SYLLABLE PHIEUPH WAE CIEUC
-<UD43B> \xBE\x44 |0 # HANGUL SYLLABLE PHIEUPH WAE CHIEUCH
-<UD43C> \xBE\x45 |0 # HANGUL SYLLABLE PHIEUPH WAE KHIEUKH
-<UD43D> \xBE\x46 |0 # HANGUL SYLLABLE PHIEUPH WAE THIEUTH
-<UD43E> \xBE\x47 |0 # HANGUL SYLLABLE PHIEUPH WAE PHIEUPH
-<UD43F> \xBE\x48 |0 # HANGUL SYLLABLE PHIEUPH WAE HIEUH
-<UD440> \xC7\xA3 |0 # HANGUL SYLLABLE PHIEUPH OE
-<UD441> \xBE\x49 |0 # HANGUL SYLLABLE PHIEUPH OE KIYEOK
-<UD442> \xBE\x4A |0 # HANGUL SYLLABLE PHIEUPH OE SSANGKIYEOK
-<UD443> \xBE\x4B |0 # HANGUL SYLLABLE PHIEUPH OE KIYEOKSIOS
-<UD444> \xC7\xA4 |0 # HANGUL SYLLABLE PHIEUPH OE NIEUN
-<UD445> \xBE\x4C |0 # HANGUL SYLLABLE PHIEUPH OE NIEUNCIEUC
-<UD446> \xBE\x4D |0 # HANGUL SYLLABLE PHIEUPH OE NIEUNHIEUH
-<UD447> \xBE\x4E |0 # HANGUL SYLLABLE PHIEUPH OE TIKEUT
-<UD448> \xBE\x4F |0 # HANGUL SYLLABLE PHIEUPH OE RIEUL
-<UD449> \xBE\x50 |0 # HANGUL SYLLABLE PHIEUPH OE RIEULKIYEOK
-<UD44A> \xBE\x51 |0 # HANGUL SYLLABLE PHIEUPH OE RIEULMIEUM
-<UD44B> \xBE\x52 |0 # HANGUL SYLLABLE PHIEUPH OE RIEULPIEUP
-<UD44C> \xBE\x53 |0 # HANGUL SYLLABLE PHIEUPH OE RIEULSIOS
-<UD44D> \xBE\x54 |0 # HANGUL SYLLABLE PHIEUPH OE RIEULTHIEUTH
-<UD44E> \xBE\x55 |0 # HANGUL SYLLABLE PHIEUPH OE RIEULPHIEUPH
-<UD44F> \xBE\x56 |0 # HANGUL SYLLABLE PHIEUPH OE RIEULHIEUH
-<UD450> \xBE\x57 |0 # HANGUL SYLLABLE PHIEUPH OE MIEUM
-<UD451> \xBE\x58 |0 # HANGUL SYLLABLE PHIEUPH OE PIEUP
-<UD452> \xBE\x59 |0 # HANGUL SYLLABLE PHIEUPH OE PIEUPSIOS
-<UD453> \xBE\x5A |0 # HANGUL SYLLABLE PHIEUPH OE SIOS
-<UD454> \xBE\x61 |0 # HANGUL SYLLABLE PHIEUPH OE SSANGSIOS
-<UD455> \xBE\x62 |0 # HANGUL SYLLABLE PHIEUPH OE IEUNG
-<UD456> \xBE\x63 |0 # HANGUL SYLLABLE PHIEUPH OE CIEUC
-<UD457> \xBE\x64 |0 # HANGUL SYLLABLE PHIEUPH OE CHIEUCH
-<UD458> \xBE\x65 |0 # HANGUL SYLLABLE PHIEUPH OE KHIEUKH
-<UD459> \xBE\x66 |0 # HANGUL SYLLABLE PHIEUPH OE THIEUTH
-<UD45A> \xBE\x67 |0 # HANGUL SYLLABLE PHIEUPH OE PHIEUPH
-<UD45B> \xBE\x68 |0 # HANGUL SYLLABLE PHIEUPH OE HIEUH
-<UD45C> \xC7\xA5 |0 # HANGUL SYLLABLE PHIEUPH YO
-<UD45D> \xBE\x69 |0 # HANGUL SYLLABLE PHIEUPH YO KIYEOK
-<UD45E> \xBE\x6A |0 # HANGUL SYLLABLE PHIEUPH YO SSANGKIYEOK
-<UD45F> \xBE\x6B |0 # HANGUL SYLLABLE PHIEUPH YO KIYEOKSIOS
-<UD460> \xC7\xA6 |0 # HANGUL SYLLABLE PHIEUPH YO NIEUN
-<UD461> \xBE\x6C |0 # HANGUL SYLLABLE PHIEUPH YO NIEUNCIEUC
-<UD462> \xBE\x6D |0 # HANGUL SYLLABLE PHIEUPH YO NIEUNHIEUH
-<UD463> \xBE\x6E |0 # HANGUL SYLLABLE PHIEUPH YO TIKEUT
-<UD464> \xC7\xA7 |0 # HANGUL SYLLABLE PHIEUPH YO RIEUL
-<UD465> \xBE\x6F |0 # HANGUL SYLLABLE PHIEUPH YO RIEULKIYEOK
-<UD466> \xBE\x70 |0 # HANGUL SYLLABLE PHIEUPH YO RIEULMIEUM
-<UD467> \xBE\x71 |0 # HANGUL SYLLABLE PHIEUPH YO RIEULPIEUP
-<UD468> \xBE\x72 |0 # HANGUL SYLLABLE PHIEUPH YO RIEULSIOS
-<UD469> \xBE\x73 |0 # HANGUL SYLLABLE PHIEUPH YO RIEULTHIEUTH
-<UD46A> \xBE\x74 |0 # HANGUL SYLLABLE PHIEUPH YO RIEULPHIEUPH
-<UD46B> \xBE\x75 |0 # HANGUL SYLLABLE PHIEUPH YO RIEULHIEUH
-<UD46C> \xBE\x76 |0 # HANGUL SYLLABLE PHIEUPH YO MIEUM
-<UD46D> \xC7\xA8 |0 # HANGUL SYLLABLE PHIEUPH YO PIEUP
-<UD46E> \xBE\x77 |0 # HANGUL SYLLABLE PHIEUPH YO PIEUPSIOS
-<UD46F> \xC7\xA9 |0 # HANGUL SYLLABLE PHIEUPH YO SIOS
-<UD470> \xBE\x78 |0 # HANGUL SYLLABLE PHIEUPH YO SSANGSIOS
-<UD471> \xBE\x79 |0 # HANGUL SYLLABLE PHIEUPH YO IEUNG
-<UD472> \xBE\x7A |0 # HANGUL SYLLABLE PHIEUPH YO CIEUC
-<UD473> \xBE\x81 |0 # HANGUL SYLLABLE PHIEUPH YO CHIEUCH
-<UD474> \xBE\x82 |0 # HANGUL SYLLABLE PHIEUPH YO KHIEUKH
-<UD475> \xBE\x83 |0 # HANGUL SYLLABLE PHIEUPH YO THIEUTH
-<UD476> \xBE\x84 |0 # HANGUL SYLLABLE PHIEUPH YO PHIEUPH
-<UD477> \xBE\x85 |0 # HANGUL SYLLABLE PHIEUPH YO HIEUH
-<UD478> \xC7\xAA |0 # HANGUL SYLLABLE PHIEUPH U
-<UD479> \xC7\xAB |0 # HANGUL SYLLABLE PHIEUPH U KIYEOK
-<UD47A> \xBE\x86 |0 # HANGUL SYLLABLE PHIEUPH U SSANGKIYEOK
-<UD47B> \xBE\x87 |0 # HANGUL SYLLABLE PHIEUPH U KIYEOKSIOS
-<UD47C> \xC7\xAC |0 # HANGUL SYLLABLE PHIEUPH U NIEUN
-<UD47D> \xBE\x88 |0 # HANGUL SYLLABLE PHIEUPH U NIEUNCIEUC
-<UD47E> \xBE\x89 |0 # HANGUL SYLLABLE PHIEUPH U NIEUNHIEUH
-<UD47F> \xC7\xAD |0 # HANGUL SYLLABLE PHIEUPH U TIKEUT
-<UD480> \xC7\xAE |0 # HANGUL SYLLABLE PHIEUPH U RIEUL
-<UD481> \xBE\x8A |0 # HANGUL SYLLABLE PHIEUPH U RIEULKIYEOK
-<UD482> \xC7\xAF |0 # HANGUL SYLLABLE PHIEUPH U RIEULMIEUM
-<UD483> \xBE\x8B |0 # HANGUL SYLLABLE PHIEUPH U RIEULPIEUP
-<UD484> \xBE\x8C |0 # HANGUL SYLLABLE PHIEUPH U RIEULSIOS
-<UD485> \xBE\x8D |0 # HANGUL SYLLABLE PHIEUPH U RIEULTHIEUTH
-<UD486> \xBE\x8E |0 # HANGUL SYLLABLE PHIEUPH U RIEULPHIEUPH
-<UD487> \xBE\x8F |0 # HANGUL SYLLABLE PHIEUPH U RIEULHIEUH
-<UD488> \xC7\xB0 |0 # HANGUL SYLLABLE PHIEUPH U MIEUM
-<UD489> \xC7\xB1 |0 # HANGUL SYLLABLE PHIEUPH U PIEUP
-<UD48A> \xBE\x90 |0 # HANGUL SYLLABLE PHIEUPH U PIEUPSIOS
-<UD48B> \xC7\xB2 |0 # HANGUL SYLLABLE PHIEUPH U SIOS
-<UD48C> \xBE\x91 |0 # HANGUL SYLLABLE PHIEUPH U SSANGSIOS
-<UD48D> \xC7\xB3 |0 # HANGUL SYLLABLE PHIEUPH U IEUNG
-<UD48E> \xBE\x92 |0 # HANGUL SYLLABLE PHIEUPH U CIEUC
-<UD48F> \xBE\x93 |0 # HANGUL SYLLABLE PHIEUPH U CHIEUCH
-<UD490> \xBE\x94 |0 # HANGUL SYLLABLE PHIEUPH U KHIEUKH
-<UD491> \xBE\x95 |0 # HANGUL SYLLABLE PHIEUPH U THIEUTH
-<UD492> \xBE\x96 |0 # HANGUL SYLLABLE PHIEUPH U PHIEUPH
-<UD493> \xBE\x97 |0 # HANGUL SYLLABLE PHIEUPH U HIEUH
-<UD494> \xC7\xB4 |0 # HANGUL SYLLABLE PHIEUPH WEO
-<UD495> \xBE\x98 |0 # HANGUL SYLLABLE PHIEUPH WEO KIYEOK
-<UD496> \xBE\x99 |0 # HANGUL SYLLABLE PHIEUPH WEO SSANGKIYEOK
-<UD497> \xBE\x9A |0 # HANGUL SYLLABLE PHIEUPH WEO KIYEOKSIOS
-<UD498> \xBE\x9B |0 # HANGUL SYLLABLE PHIEUPH WEO NIEUN
-<UD499> \xBE\x9C |0 # HANGUL SYLLABLE PHIEUPH WEO NIEUNCIEUC
-<UD49A> \xBE\x9D |0 # HANGUL SYLLABLE PHIEUPH WEO NIEUNHIEUH
-<UD49B> \xBE\x9E |0 # HANGUL SYLLABLE PHIEUPH WEO TIKEUT
-<UD49C> \xBE\x9F |0 # HANGUL SYLLABLE PHIEUPH WEO RIEUL
-<UD49D> \xBE\xA0 |0 # HANGUL SYLLABLE PHIEUPH WEO RIEULKIYEOK
-<UD49E> \xBF\x41 |0 # HANGUL SYLLABLE PHIEUPH WEO RIEULMIEUM
-<UD49F> \xBF\x42 |0 # HANGUL SYLLABLE PHIEUPH WEO RIEULPIEUP
-<UD4A0> \xBF\x43 |0 # HANGUL SYLLABLE PHIEUPH WEO RIEULSIOS
-<UD4A1> \xBF\x44 |0 # HANGUL SYLLABLE PHIEUPH WEO RIEULTHIEUTH
-<UD4A2> \xBF\x45 |0 # HANGUL SYLLABLE PHIEUPH WEO RIEULPHIEUPH
-<UD4A3> \xBF\x46 |0 # HANGUL SYLLABLE PHIEUPH WEO RIEULHIEUH
-<UD4A4> \xBF\x47 |0 # HANGUL SYLLABLE PHIEUPH WEO MIEUM
-<UD4A5> \xBF\x48 |0 # HANGUL SYLLABLE PHIEUPH WEO PIEUP
-<UD4A6> \xBF\x49 |0 # HANGUL SYLLABLE PHIEUPH WEO PIEUPSIOS
-<UD4A7> \xBF\x4A |0 # HANGUL SYLLABLE PHIEUPH WEO SIOS
-<UD4A8> \xBF\x4B |0 # HANGUL SYLLABLE PHIEUPH WEO SSANGSIOS
-<UD4A9> \xC7\xB5 |0 # HANGUL SYLLABLE PHIEUPH WEO IEUNG
-<UD4AA> \xBF\x4C |0 # HANGUL SYLLABLE PHIEUPH WEO CIEUC
-<UD4AB> \xBF\x4D |0 # HANGUL SYLLABLE PHIEUPH WEO CHIEUCH
-<UD4AC> \xBF\x4E |0 # HANGUL SYLLABLE PHIEUPH WEO KHIEUKH
-<UD4AD> \xBF\x4F |0 # HANGUL SYLLABLE PHIEUPH WEO THIEUTH
-<UD4AE> \xBF\x50 |0 # HANGUL SYLLABLE PHIEUPH WEO PHIEUPH
-<UD4AF> \xBF\x51 |0 # HANGUL SYLLABLE PHIEUPH WEO HIEUH
-<UD4B0> \xBF\x52 |0 # HANGUL SYLLABLE PHIEUPH WE
-<UD4B1> \xBF\x53 |0 # HANGUL SYLLABLE PHIEUPH WE KIYEOK
-<UD4B2> \xBF\x54 |0 # HANGUL SYLLABLE PHIEUPH WE SSANGKIYEOK
-<UD4B3> \xBF\x55 |0 # HANGUL SYLLABLE PHIEUPH WE KIYEOKSIOS
-<UD4B4> \xBF\x56 |0 # HANGUL SYLLABLE PHIEUPH WE NIEUN
-<UD4B5> \xBF\x57 |0 # HANGUL SYLLABLE PHIEUPH WE NIEUNCIEUC
-<UD4B6> \xBF\x58 |0 # HANGUL SYLLABLE PHIEUPH WE NIEUNHIEUH
-<UD4B7> \xBF\x59 |0 # HANGUL SYLLABLE PHIEUPH WE TIKEUT
-<UD4B8> \xBF\x5A |0 # HANGUL SYLLABLE PHIEUPH WE RIEUL
-<UD4B9> \xBF\x61 |0 # HANGUL SYLLABLE PHIEUPH WE RIEULKIYEOK
-<UD4BA> \xBF\x62 |0 # HANGUL SYLLABLE PHIEUPH WE RIEULMIEUM
-<UD4BB> \xBF\x63 |0 # HANGUL SYLLABLE PHIEUPH WE RIEULPIEUP
-<UD4BC> \xBF\x64 |0 # HANGUL SYLLABLE PHIEUPH WE RIEULSIOS
-<UD4BD> \xBF\x65 |0 # HANGUL SYLLABLE PHIEUPH WE RIEULTHIEUTH
-<UD4BE> \xBF\x66 |0 # HANGUL SYLLABLE PHIEUPH WE RIEULPHIEUPH
-<UD4BF> \xBF\x67 |0 # HANGUL SYLLABLE PHIEUPH WE RIEULHIEUH
-<UD4C0> \xBF\x68 |0 # HANGUL SYLLABLE PHIEUPH WE MIEUM
-<UD4C1> \xBF\x69 |0 # HANGUL SYLLABLE PHIEUPH WE PIEUP
-<UD4C2> \xBF\x6A |0 # HANGUL SYLLABLE PHIEUPH WE PIEUPSIOS
-<UD4C3> \xBF\x6B |0 # HANGUL SYLLABLE PHIEUPH WE SIOS
-<UD4C4> \xBF\x6C |0 # HANGUL SYLLABLE PHIEUPH WE SSANGSIOS
-<UD4C5> \xBF\x6D |0 # HANGUL SYLLABLE PHIEUPH WE IEUNG
-<UD4C6> \xBF\x6E |0 # HANGUL SYLLABLE PHIEUPH WE CIEUC
-<UD4C7> \xBF\x6F |0 # HANGUL SYLLABLE PHIEUPH WE CHIEUCH
-<UD4C8> \xBF\x70 |0 # HANGUL SYLLABLE PHIEUPH WE KHIEUKH
-<UD4C9> \xBF\x71 |0 # HANGUL SYLLABLE PHIEUPH WE THIEUTH
-<UD4CA> \xBF\x72 |0 # HANGUL SYLLABLE PHIEUPH WE PHIEUPH
-<UD4CB> \xBF\x73 |0 # HANGUL SYLLABLE PHIEUPH WE HIEUH
-<UD4CC> \xC7\xB6 |0 # HANGUL SYLLABLE PHIEUPH WI
-<UD4CD> \xBF\x74 |0 # HANGUL SYLLABLE PHIEUPH WI KIYEOK
-<UD4CE> \xBF\x75 |0 # HANGUL SYLLABLE PHIEUPH WI SSANGKIYEOK
-<UD4CF> \xBF\x76 |0 # HANGUL SYLLABLE PHIEUPH WI KIYEOKSIOS
-<UD4D0> \xC7\xB7 |0 # HANGUL SYLLABLE PHIEUPH WI NIEUN
-<UD4D1> \xBF\x77 |0 # HANGUL SYLLABLE PHIEUPH WI NIEUNCIEUC
-<UD4D2> \xBF\x78 |0 # HANGUL SYLLABLE PHIEUPH WI NIEUNHIEUH
-<UD4D3> \xBF\x79 |0 # HANGUL SYLLABLE PHIEUPH WI TIKEUT
-<UD4D4> \xC7\xB8 |0 # HANGUL SYLLABLE PHIEUPH WI RIEUL
-<UD4D5> \xBF\x7A |0 # HANGUL SYLLABLE PHIEUPH WI RIEULKIYEOK
-<UD4D6> \xBF\x81 |0 # HANGUL SYLLABLE PHIEUPH WI RIEULMIEUM
-<UD4D7> \xBF\x82 |0 # HANGUL SYLLABLE PHIEUPH WI RIEULPIEUP
-<UD4D8> \xBF\x83 |0 # HANGUL SYLLABLE PHIEUPH WI RIEULSIOS
-<UD4D9> \xBF\x84 |0 # HANGUL SYLLABLE PHIEUPH WI RIEULTHIEUTH
-<UD4DA> \xBF\x85 |0 # HANGUL SYLLABLE PHIEUPH WI RIEULPHIEUPH
-<UD4DB> \xBF\x86 |0 # HANGUL SYLLABLE PHIEUPH WI RIEULHIEUH
-<UD4DC> \xC7\xB9 |0 # HANGUL SYLLABLE PHIEUPH WI MIEUM
-<UD4DD> \xBF\x87 |0 # HANGUL SYLLABLE PHIEUPH WI PIEUP
-<UD4DE> \xBF\x88 |0 # HANGUL SYLLABLE PHIEUPH WI PIEUPSIOS
-<UD4DF> \xC7\xBA |0 # HANGUL SYLLABLE PHIEUPH WI SIOS
-<UD4E0> \xBF\x89 |0 # HANGUL SYLLABLE PHIEUPH WI SSANGSIOS
-<UD4E1> \xBF\x8A |0 # HANGUL SYLLABLE PHIEUPH WI IEUNG
-<UD4E2> \xBF\x8B |0 # HANGUL SYLLABLE PHIEUPH WI CIEUC
-<UD4E3> \xBF\x8C |0 # HANGUL SYLLABLE PHIEUPH WI CHIEUCH
-<UD4E4> \xBF\x8D |0 # HANGUL SYLLABLE PHIEUPH WI KHIEUKH
-<UD4E5> \xBF\x8E |0 # HANGUL SYLLABLE PHIEUPH WI THIEUTH
-<UD4E6> \xBF\x8F |0 # HANGUL SYLLABLE PHIEUPH WI PHIEUPH
-<UD4E7> \xBF\x90 |0 # HANGUL SYLLABLE PHIEUPH WI HIEUH
-<UD4E8> \xC7\xBB |0 # HANGUL SYLLABLE PHIEUPH YU
-<UD4E9> \xBF\x91 |0 # HANGUL SYLLABLE PHIEUPH YU KIYEOK
-<UD4EA> \xBF\x92 |0 # HANGUL SYLLABLE PHIEUPH YU SSANGKIYEOK
-<UD4EB> \xBF\x93 |0 # HANGUL SYLLABLE PHIEUPH YU KIYEOKSIOS
-<UD4EC> \xC7\xBC |0 # HANGUL SYLLABLE PHIEUPH YU NIEUN
-<UD4ED> \xBF\x94 |0 # HANGUL SYLLABLE PHIEUPH YU NIEUNCIEUC
-<UD4EE> \xBF\x95 |0 # HANGUL SYLLABLE PHIEUPH YU NIEUNHIEUH
-<UD4EF> \xBF\x96 |0 # HANGUL SYLLABLE PHIEUPH YU TIKEUT
-<UD4F0> \xC7\xBD |0 # HANGUL SYLLABLE PHIEUPH YU RIEUL
-<UD4F1> \xBF\x97 |0 # HANGUL SYLLABLE PHIEUPH YU RIEULKIYEOK
-<UD4F2> \xBF\x98 |0 # HANGUL SYLLABLE PHIEUPH YU RIEULMIEUM
-<UD4F3> \xBF\x99 |0 # HANGUL SYLLABLE PHIEUPH YU RIEULPIEUP
-<UD4F4> \xBF\x9A |0 # HANGUL SYLLABLE PHIEUPH YU RIEULSIOS
-<UD4F5> \xBF\x9B |0 # HANGUL SYLLABLE PHIEUPH YU RIEULTHIEUTH
-<UD4F6> \xBF\x9C |0 # HANGUL SYLLABLE PHIEUPH YU RIEULPHIEUPH
-<UD4F7> \xBF\x9D |0 # HANGUL SYLLABLE PHIEUPH YU RIEULHIEUH
-<UD4F8> \xC7\xBE |0 # HANGUL SYLLABLE PHIEUPH YU MIEUM
-<UD4F9> \xBF\x9E |0 # HANGUL SYLLABLE PHIEUPH YU PIEUP
-<UD4FA> \xBF\x9F |0 # HANGUL SYLLABLE PHIEUPH YU PIEUPSIOS
-<UD4FB> \xC7\xBF |0 # HANGUL SYLLABLE PHIEUPH YU SIOS
-<UD4FC> \xBF\xA0 |0 # HANGUL SYLLABLE PHIEUPH YU SSANGSIOS
-<UD4FD> \xC7\xC0 |0 # HANGUL SYLLABLE PHIEUPH YU IEUNG
-<UD4FE> \xC0\x41 |0 # HANGUL SYLLABLE PHIEUPH YU CIEUC
-<UD4FF> \xC0\x42 |0 # HANGUL SYLLABLE PHIEUPH YU CHIEUCH
-<UD500> \xC0\x43 |0 # HANGUL SYLLABLE PHIEUPH YU KHIEUKH
-<UD501> \xC0\x44 |0 # HANGUL SYLLABLE PHIEUPH YU THIEUTH
-<UD502> \xC0\x45 |0 # HANGUL SYLLABLE PHIEUPH YU PHIEUPH
-<UD503> \xC0\x46 |0 # HANGUL SYLLABLE PHIEUPH YU HIEUH
-<UD504> \xC7\xC1 |0 # HANGUL SYLLABLE PHIEUPH EU
-<UD505> \xC0\x47 |0 # HANGUL SYLLABLE PHIEUPH EU KIYEOK
-<UD506> \xC0\x48 |0 # HANGUL SYLLABLE PHIEUPH EU SSANGKIYEOK
-<UD507> \xC0\x49 |0 # HANGUL SYLLABLE PHIEUPH EU KIYEOKSIOS
-<UD508> \xC7\xC2 |0 # HANGUL SYLLABLE PHIEUPH EU NIEUN
-<UD509> \xC0\x4A |0 # HANGUL SYLLABLE PHIEUPH EU NIEUNCIEUC
-<UD50A> \xC0\x4B |0 # HANGUL SYLLABLE PHIEUPH EU NIEUNHIEUH
-<UD50B> \xC0\x4C |0 # HANGUL SYLLABLE PHIEUPH EU TIKEUT
-<UD50C> \xC7\xC3 |0 # HANGUL SYLLABLE PHIEUPH EU RIEUL
-<UD50D> \xC0\x4D |0 # HANGUL SYLLABLE PHIEUPH EU RIEULKIYEOK
-<UD50E> \xC0\x4E |0 # HANGUL SYLLABLE PHIEUPH EU RIEULMIEUM
-<UD50F> \xC0\x4F |0 # HANGUL SYLLABLE PHIEUPH EU RIEULPIEUP
-<UD510> \xC0\x50 |0 # HANGUL SYLLABLE PHIEUPH EU RIEULSIOS
-<UD511> \xC0\x51 |0 # HANGUL SYLLABLE PHIEUPH EU RIEULTHIEUTH
-<UD512> \xC0\x52 |0 # HANGUL SYLLABLE PHIEUPH EU RIEULPHIEUPH
-<UD513> \xC0\x53 |0 # HANGUL SYLLABLE PHIEUPH EU RIEULHIEUH
-<UD514> \xC7\xC4 |0 # HANGUL SYLLABLE PHIEUPH EU MIEUM
-<UD515> \xC7\xC5 |0 # HANGUL SYLLABLE PHIEUPH EU PIEUP
-<UD516> \xC0\x54 |0 # HANGUL SYLLABLE PHIEUPH EU PIEUPSIOS
-<UD517> \xC7\xC6 |0 # HANGUL SYLLABLE PHIEUPH EU SIOS
-<UD518> \xC0\x55 |0 # HANGUL SYLLABLE PHIEUPH EU SSANGSIOS
-<UD519> \xC0\x56 |0 # HANGUL SYLLABLE PHIEUPH EU IEUNG
-<UD51A> \xC0\x57 |0 # HANGUL SYLLABLE PHIEUPH EU CIEUC
-<UD51B> \xC0\x58 |0 # HANGUL SYLLABLE PHIEUPH EU CHIEUCH
-<UD51C> \xC0\x59 |0 # HANGUL SYLLABLE PHIEUPH EU KHIEUKH
-<UD51D> \xC0\x5A |0 # HANGUL SYLLABLE PHIEUPH EU THIEUTH
-<UD51E> \xC0\x61 |0 # HANGUL SYLLABLE PHIEUPH EU PHIEUPH
-<UD51F> \xC0\x62 |0 # HANGUL SYLLABLE PHIEUPH EU HIEUH
-<UD520> \xC0\x63 |0 # HANGUL SYLLABLE PHIEUPH YI
-<UD521> \xC0\x64 |0 # HANGUL SYLLABLE PHIEUPH YI KIYEOK
-<UD522> \xC0\x65 |0 # HANGUL SYLLABLE PHIEUPH YI SSANGKIYEOK
-<UD523> \xC0\x66 |0 # HANGUL SYLLABLE PHIEUPH YI KIYEOKSIOS
-<UD524> \xC0\x67 |0 # HANGUL SYLLABLE PHIEUPH YI NIEUN
-<UD525> \xC0\x68 |0 # HANGUL SYLLABLE PHIEUPH YI NIEUNCIEUC
-<UD526> \xC0\x69 |0 # HANGUL SYLLABLE PHIEUPH YI NIEUNHIEUH
-<UD527> \xC0\x6A |0 # HANGUL SYLLABLE PHIEUPH YI TIKEUT
-<UD528> \xC0\x6B |0 # HANGUL SYLLABLE PHIEUPH YI RIEUL
-<UD529> \xC0\x6C |0 # HANGUL SYLLABLE PHIEUPH YI RIEULKIYEOK
-<UD52A> \xC0\x6D |0 # HANGUL SYLLABLE PHIEUPH YI RIEULMIEUM
-<UD52B> \xC0\x6E |0 # HANGUL SYLLABLE PHIEUPH YI RIEULPIEUP
-<UD52C> \xC0\x6F |0 # HANGUL SYLLABLE PHIEUPH YI RIEULSIOS
-<UD52D> \xC0\x70 |0 # HANGUL SYLLABLE PHIEUPH YI RIEULTHIEUTH
-<UD52E> \xC0\x71 |0 # HANGUL SYLLABLE PHIEUPH YI RIEULPHIEUPH
-<UD52F> \xC0\x72 |0 # HANGUL SYLLABLE PHIEUPH YI RIEULHIEUH
-<UD530> \xC0\x73 |0 # HANGUL SYLLABLE PHIEUPH YI MIEUM
-<UD531> \xC0\x74 |0 # HANGUL SYLLABLE PHIEUPH YI PIEUP
-<UD532> \xC0\x75 |0 # HANGUL SYLLABLE PHIEUPH YI PIEUPSIOS
-<UD533> \xC0\x76 |0 # HANGUL SYLLABLE PHIEUPH YI SIOS
-<UD534> \xC0\x77 |0 # HANGUL SYLLABLE PHIEUPH YI SSANGSIOS
-<UD535> \xC0\x78 |0 # HANGUL SYLLABLE PHIEUPH YI IEUNG
-<UD536> \xC0\x79 |0 # HANGUL SYLLABLE PHIEUPH YI CIEUC
-<UD537> \xC0\x7A |0 # HANGUL SYLLABLE PHIEUPH YI CHIEUCH
-<UD538> \xC0\x81 |0 # HANGUL SYLLABLE PHIEUPH YI KHIEUKH
-<UD539> \xC0\x82 |0 # HANGUL SYLLABLE PHIEUPH YI THIEUTH
-<UD53A> \xC0\x83 |0 # HANGUL SYLLABLE PHIEUPH YI PHIEUPH
-<UD53B> \xC0\x84 |0 # HANGUL SYLLABLE PHIEUPH YI HIEUH
-<UD53C> \xC7\xC7 |0 # HANGUL SYLLABLE PHIEUPH I
-<UD53D> \xC7\xC8 |0 # HANGUL SYLLABLE PHIEUPH I KIYEOK
-<UD53E> \xC0\x85 |0 # HANGUL SYLLABLE PHIEUPH I SSANGKIYEOK
-<UD53F> \xC0\x86 |0 # HANGUL SYLLABLE PHIEUPH I KIYEOKSIOS
-<UD540> \xC7\xC9 |0 # HANGUL SYLLABLE PHIEUPH I NIEUN
-<UD541> \xC0\x87 |0 # HANGUL SYLLABLE PHIEUPH I NIEUNCIEUC
-<UD542> \xC0\x88 |0 # HANGUL SYLLABLE PHIEUPH I NIEUNHIEUH
-<UD543> \xC0\x89 |0 # HANGUL SYLLABLE PHIEUPH I TIKEUT
-<UD544> \xC7\xCA |0 # HANGUL SYLLABLE PHIEUPH I RIEUL
-<UD545> \xC0\x8A |0 # HANGUL SYLLABLE PHIEUPH I RIEULKIYEOK
-<UD546> \xC0\x8B |0 # HANGUL SYLLABLE PHIEUPH I RIEULMIEUM
-<UD547> \xC0\x8C |0 # HANGUL SYLLABLE PHIEUPH I RIEULPIEUP
-<UD548> \xC0\x8D |0 # HANGUL SYLLABLE PHIEUPH I RIEULSIOS
-<UD549> \xC0\x8E |0 # HANGUL SYLLABLE PHIEUPH I RIEULTHIEUTH
-<UD54A> \xC0\x8F |0 # HANGUL SYLLABLE PHIEUPH I RIEULPHIEUPH
-<UD54B> \xC0\x90 |0 # HANGUL SYLLABLE PHIEUPH I RIEULHIEUH
-<UD54C> \xC7\xCB |0 # HANGUL SYLLABLE PHIEUPH I MIEUM
-<UD54D> \xC7\xCC |0 # HANGUL SYLLABLE PHIEUPH I PIEUP
-<UD54E> \xC0\x91 |0 # HANGUL SYLLABLE PHIEUPH I PIEUPSIOS
-<UD54F> \xC7\xCD |0 # HANGUL SYLLABLE PHIEUPH I SIOS
-<UD550> \xC0\x92 |0 # HANGUL SYLLABLE PHIEUPH I SSANGSIOS
-<UD551> \xC7\xCE |0 # HANGUL SYLLABLE PHIEUPH I IEUNG
-<UD552> \xC0\x93 |0 # HANGUL SYLLABLE PHIEUPH I CIEUC
-<UD553> \xC0\x94 |0 # HANGUL SYLLABLE PHIEUPH I CHIEUCH
-<UD554> \xC0\x95 |0 # HANGUL SYLLABLE PHIEUPH I KHIEUKH
-<UD555> \xC0\x96 |0 # HANGUL SYLLABLE PHIEUPH I THIEUTH
-<UD556> \xC0\x97 |0 # HANGUL SYLLABLE PHIEUPH I PHIEUPH
-<UD557> \xC0\x98 |0 # HANGUL SYLLABLE PHIEUPH I HIEUH
-<UD558> \xC7\xCF |0 # HANGUL SYLLABLE HIEUH A
-<UD559> \xC7\xD0 |0 # HANGUL SYLLABLE HIEUH A KIYEOK
-<UD55A> \xC0\x99 |0 # HANGUL SYLLABLE HIEUH A SSANGKIYEOK
-<UD55B> \xC0\x9A |0 # HANGUL SYLLABLE HIEUH A KIYEOKSIOS
-<UD55C> \xC7\xD1 |0 # HANGUL SYLLABLE HIEUH A NIEUN
-<UD55D> \xC0\x9B |0 # HANGUL SYLLABLE HIEUH A NIEUNCIEUC
-<UD55E> \xC0\x9C |0 # HANGUL SYLLABLE HIEUH A NIEUNHIEUH
-<UD55F> \xC0\x9D |0 # HANGUL SYLLABLE HIEUH A TIKEUT
-<UD560> \xC7\xD2 |0 # HANGUL SYLLABLE HIEUH A RIEUL
-<UD561> \xC0\x9E |0 # HANGUL SYLLABLE HIEUH A RIEULKIYEOK
-<UD562> \xC0\x9F |0 # HANGUL SYLLABLE HIEUH A RIEULMIEUM
-<UD563> \xC0\xA0 |0 # HANGUL SYLLABLE HIEUH A RIEULPIEUP
-<UD564> \xC1\x41 |0 # HANGUL SYLLABLE HIEUH A RIEULSIOS
-<UD565> \xC7\xD3 |0 # HANGUL SYLLABLE HIEUH A RIEULTHIEUTH
-<UD566> \xC1\x42 |0 # HANGUL SYLLABLE HIEUH A RIEULPHIEUPH
-<UD567> \xC1\x43 |0 # HANGUL SYLLABLE HIEUH A RIEULHIEUH
-<UD568> \xC7\xD4 |0 # HANGUL SYLLABLE HIEUH A MIEUM
-<UD569> \xC7\xD5 |0 # HANGUL SYLLABLE HIEUH A PIEUP
-<UD56A> \xC1\x44 |0 # HANGUL SYLLABLE HIEUH A PIEUPSIOS
-<UD56B> \xC7\xD6 |0 # HANGUL SYLLABLE HIEUH A SIOS
-<UD56C> \xC1\x45 |0 # HANGUL SYLLABLE HIEUH A SSANGSIOS
-<UD56D> \xC7\xD7 |0 # HANGUL SYLLABLE HIEUH A IEUNG
-<UD56E> \xC1\x46 |0 # HANGUL SYLLABLE HIEUH A CIEUC
-<UD56F> \xC1\x47 |0 # HANGUL SYLLABLE HIEUH A CHIEUCH
-<UD570> \xC1\x48 |0 # HANGUL SYLLABLE HIEUH A KHIEUKH
-<UD571> \xC1\x49 |0 # HANGUL SYLLABLE HIEUH A THIEUTH
-<UD572> \xC1\x4A |0 # HANGUL SYLLABLE HIEUH A PHIEUPH
-<UD573> \xC1\x4B |0 # HANGUL SYLLABLE HIEUH A HIEUH
-<UD574> \xC7\xD8 |0 # HANGUL SYLLABLE HIEUH AE
-<UD575> \xC7\xD9 |0 # HANGUL SYLLABLE HIEUH AE KIYEOK
-<UD576> \xC1\x4C |0 # HANGUL SYLLABLE HIEUH AE SSANGKIYEOK
-<UD577> \xC1\x4D |0 # HANGUL SYLLABLE HIEUH AE KIYEOKSIOS
-<UD578> \xC7\xDA |0 # HANGUL SYLLABLE HIEUH AE NIEUN
-<UD579> \xC1\x4E |0 # HANGUL SYLLABLE HIEUH AE NIEUNCIEUC
-<UD57A> \xC1\x4F |0 # HANGUL SYLLABLE HIEUH AE NIEUNHIEUH
-<UD57B> \xC1\x50 |0 # HANGUL SYLLABLE HIEUH AE TIKEUT
-<UD57C> \xC7\xDB |0 # HANGUL SYLLABLE HIEUH AE RIEUL
-<UD57D> \xC1\x51 |0 # HANGUL SYLLABLE HIEUH AE RIEULKIYEOK
-<UD57E> \xC1\x52 |0 # HANGUL SYLLABLE HIEUH AE RIEULMIEUM
-<UD57F> \xC1\x53 |0 # HANGUL SYLLABLE HIEUH AE RIEULPIEUP
-<UD580> \xC1\x54 |0 # HANGUL SYLLABLE HIEUH AE RIEULSIOS
-<UD581> \xC1\x55 |0 # HANGUL SYLLABLE HIEUH AE RIEULTHIEUTH
-<UD582> \xC1\x56 |0 # HANGUL SYLLABLE HIEUH AE RIEULPHIEUPH
-<UD583> \xC1\x57 |0 # HANGUL SYLLABLE HIEUH AE RIEULHIEUH
-<UD584> \xC7\xDC |0 # HANGUL SYLLABLE HIEUH AE MIEUM
-<UD585> \xC7\xDD |0 # HANGUL SYLLABLE HIEUH AE PIEUP
-<UD586> \xC1\x58 |0 # HANGUL SYLLABLE HIEUH AE PIEUPSIOS
-<UD587> \xC7\xDE |0 # HANGUL SYLLABLE HIEUH AE SIOS
-<UD588> \xC7\xDF |0 # HANGUL SYLLABLE HIEUH AE SSANGSIOS
-<UD589> \xC7\xE0 |0 # HANGUL SYLLABLE HIEUH AE IEUNG
-<UD58A> \xC1\x59 |0 # HANGUL SYLLABLE HIEUH AE CIEUC
-<UD58B> \xC1\x5A |0 # HANGUL SYLLABLE HIEUH AE CHIEUCH
-<UD58C> \xC1\x61 |0 # HANGUL SYLLABLE HIEUH AE KHIEUKH
-<UD58D> \xC1\x62 |0 # HANGUL SYLLABLE HIEUH AE THIEUTH
-<UD58E> \xC1\x63 |0 # HANGUL SYLLABLE HIEUH AE PHIEUPH
-<UD58F> \xC1\x64 |0 # HANGUL SYLLABLE HIEUH AE HIEUH
-<UD590> \xC7\xE1 |0 # HANGUL SYLLABLE HIEUH YA
-<UD591> \xC1\x65 |0 # HANGUL SYLLABLE HIEUH YA KIYEOK
-<UD592> \xC1\x66 |0 # HANGUL SYLLABLE HIEUH YA SSANGKIYEOK
-<UD593> \xC1\x67 |0 # HANGUL SYLLABLE HIEUH YA KIYEOKSIOS
-<UD594> \xC1\x68 |0 # HANGUL SYLLABLE HIEUH YA NIEUN
-<UD595> \xC1\x69 |0 # HANGUL SYLLABLE HIEUH YA NIEUNCIEUC
-<UD596> \xC1\x6A |0 # HANGUL SYLLABLE HIEUH YA NIEUNHIEUH
-<UD597> \xC1\x6B |0 # HANGUL SYLLABLE HIEUH YA TIKEUT
-<UD598> \xC1\x6C |0 # HANGUL SYLLABLE HIEUH YA RIEUL
-<UD599> \xC1\x6D |0 # HANGUL SYLLABLE HIEUH YA RIEULKIYEOK
-<UD59A> \xC1\x6E |0 # HANGUL SYLLABLE HIEUH YA RIEULMIEUM
-<UD59B> \xC1\x6F |0 # HANGUL SYLLABLE HIEUH YA RIEULPIEUP
-<UD59C> \xC1\x70 |0 # HANGUL SYLLABLE HIEUH YA RIEULSIOS
-<UD59D> \xC1\x71 |0 # HANGUL SYLLABLE HIEUH YA RIEULTHIEUTH
-<UD59E> \xC1\x72 |0 # HANGUL SYLLABLE HIEUH YA RIEULPHIEUPH
-<UD59F> \xC1\x73 |0 # HANGUL SYLLABLE HIEUH YA RIEULHIEUH
-<UD5A0> \xC1\x74 |0 # HANGUL SYLLABLE HIEUH YA MIEUM
-<UD5A1> \xC1\x75 |0 # HANGUL SYLLABLE HIEUH YA PIEUP
-<UD5A2> \xC1\x76 |0 # HANGUL SYLLABLE HIEUH YA PIEUPSIOS
-<UD5A3> \xC1\x77 |0 # HANGUL SYLLABLE HIEUH YA SIOS
-<UD5A4> \xC1\x78 |0 # HANGUL SYLLABLE HIEUH YA SSANGSIOS
-<UD5A5> \xC7\xE2 |0 # HANGUL SYLLABLE HIEUH YA IEUNG
-<UD5A6> \xC1\x79 |0 # HANGUL SYLLABLE HIEUH YA CIEUC
-<UD5A7> \xC1\x7A |0 # HANGUL SYLLABLE HIEUH YA CHIEUCH
-<UD5A8> \xC1\x81 |0 # HANGUL SYLLABLE HIEUH YA KHIEUKH
-<UD5A9> \xC1\x82 |0 # HANGUL SYLLABLE HIEUH YA THIEUTH
-<UD5AA> \xC1\x83 |0 # HANGUL SYLLABLE HIEUH YA PHIEUPH
-<UD5AB> \xC1\x84 |0 # HANGUL SYLLABLE HIEUH YA HIEUH
-<UD5AC> \xC1\x85 |0 # HANGUL SYLLABLE HIEUH YAE
-<UD5AD> \xC1\x86 |0 # HANGUL SYLLABLE HIEUH YAE KIYEOK
-<UD5AE> \xC1\x87 |0 # HANGUL SYLLABLE HIEUH YAE SSANGKIYEOK
-<UD5AF> \xC1\x88 |0 # HANGUL SYLLABLE HIEUH YAE KIYEOKSIOS
-<UD5B0> \xC1\x89 |0 # HANGUL SYLLABLE HIEUH YAE NIEUN
-<UD5B1> \xC1\x8A |0 # HANGUL SYLLABLE HIEUH YAE NIEUNCIEUC
-<UD5B2> \xC1\x8B |0 # HANGUL SYLLABLE HIEUH YAE NIEUNHIEUH
-<UD5B3> \xC1\x8C |0 # HANGUL SYLLABLE HIEUH YAE TIKEUT
-<UD5B4> \xC1\x8D |0 # HANGUL SYLLABLE HIEUH YAE RIEUL
-<UD5B5> \xC1\x8E |0 # HANGUL SYLLABLE HIEUH YAE RIEULKIYEOK
-<UD5B6> \xC1\x8F |0 # HANGUL SYLLABLE HIEUH YAE RIEULMIEUM
-<UD5B7> \xC1\x90 |0 # HANGUL SYLLABLE HIEUH YAE RIEULPIEUP
-<UD5B8> \xC1\x91 |0 # HANGUL SYLLABLE HIEUH YAE RIEULSIOS
-<UD5B9> \xC1\x92 |0 # HANGUL SYLLABLE HIEUH YAE RIEULTHIEUTH
-<UD5BA> \xC1\x93 |0 # HANGUL SYLLABLE HIEUH YAE RIEULPHIEUPH
-<UD5BB> \xC1\x94 |0 # HANGUL SYLLABLE HIEUH YAE RIEULHIEUH
-<UD5BC> \xC1\x95 |0 # HANGUL SYLLABLE HIEUH YAE MIEUM
-<UD5BD> \xC1\x96 |0 # HANGUL SYLLABLE HIEUH YAE PIEUP
-<UD5BE> \xC1\x97 |0 # HANGUL SYLLABLE HIEUH YAE PIEUPSIOS
-<UD5BF> \xC1\x98 |0 # HANGUL SYLLABLE HIEUH YAE SIOS
-<UD5C0> \xC1\x99 |0 # HANGUL SYLLABLE HIEUH YAE SSANGSIOS
-<UD5C1> \xC1\x9A |0 # HANGUL SYLLABLE HIEUH YAE IEUNG
-<UD5C2> \xC1\x9B |0 # HANGUL SYLLABLE HIEUH YAE CIEUC
-<UD5C3> \xC1\x9C |0 # HANGUL SYLLABLE HIEUH YAE CHIEUCH
-<UD5C4> \xC1\x9D |0 # HANGUL SYLLABLE HIEUH YAE KHIEUKH
-<UD5C5> \xC1\x9E |0 # HANGUL SYLLABLE HIEUH YAE THIEUTH
-<UD5C6> \xC1\x9F |0 # HANGUL SYLLABLE HIEUH YAE PHIEUPH
-<UD5C7> \xC1\xA0 |0 # HANGUL SYLLABLE HIEUH YAE HIEUH
-<UD5C8> \xC7\xE3 |0 # HANGUL SYLLABLE HIEUH EO
-<UD5C9> \xC7\xE4 |0 # HANGUL SYLLABLE HIEUH EO KIYEOK
-<UD5CA> \xC2\x41 |0 # HANGUL SYLLABLE HIEUH EO SSANGKIYEOK
-<UD5CB> \xC2\x42 |0 # HANGUL SYLLABLE HIEUH EO KIYEOKSIOS
-<UD5CC> \xC7\xE5 |0 # HANGUL SYLLABLE HIEUH EO NIEUN
-<UD5CD> \xC2\x43 |0 # HANGUL SYLLABLE HIEUH EO NIEUNCIEUC
-<UD5CE> \xC2\x44 |0 # HANGUL SYLLABLE HIEUH EO NIEUNHIEUH
-<UD5CF> \xC2\x45 |0 # HANGUL SYLLABLE HIEUH EO TIKEUT
-<UD5D0> \xC7\xE6 |0 # HANGUL SYLLABLE HIEUH EO RIEUL
-<UD5D1> \xC2\x46 |0 # HANGUL SYLLABLE HIEUH EO RIEULKIYEOK
-<UD5D2> \xC7\xE7 |0 # HANGUL SYLLABLE HIEUH EO RIEULMIEUM
-<UD5D3> \xC2\x47 |0 # HANGUL SYLLABLE HIEUH EO RIEULPIEUP
-<UD5D4> \xC2\x48 |0 # HANGUL SYLLABLE HIEUH EO RIEULSIOS
-<UD5D5> \xC2\x49 |0 # HANGUL SYLLABLE HIEUH EO RIEULTHIEUTH
-<UD5D6> \xC2\x4A |0 # HANGUL SYLLABLE HIEUH EO RIEULPHIEUPH
-<UD5D7> \xC2\x4B |0 # HANGUL SYLLABLE HIEUH EO RIEULHIEUH
-<UD5D8> \xC7\xE8 |0 # HANGUL SYLLABLE HIEUH EO MIEUM
-<UD5D9> \xC7\xE9 |0 # HANGUL SYLLABLE HIEUH EO PIEUP
-<UD5DA> \xC2\x4C |0 # HANGUL SYLLABLE HIEUH EO PIEUPSIOS
-<UD5DB> \xC7\xEA |0 # HANGUL SYLLABLE HIEUH EO SIOS
-<UD5DC> \xC2\x4D |0 # HANGUL SYLLABLE HIEUH EO SSANGSIOS
-<UD5DD> \xC7\xEB |0 # HANGUL SYLLABLE HIEUH EO IEUNG
-<UD5DE> \xC2\x4E |0 # HANGUL SYLLABLE HIEUH EO CIEUC
-<UD5DF> \xC2\x4F |0 # HANGUL SYLLABLE HIEUH EO CHIEUCH
-<UD5E0> \xC2\x50 |0 # HANGUL SYLLABLE HIEUH EO KHIEUKH
-<UD5E1> \xC2\x51 |0 # HANGUL SYLLABLE HIEUH EO THIEUTH
-<UD5E2> \xC2\x52 |0 # HANGUL SYLLABLE HIEUH EO PHIEUPH
-<UD5E3> \xC2\x53 |0 # HANGUL SYLLABLE HIEUH EO HIEUH
-<UD5E4> \xC7\xEC |0 # HANGUL SYLLABLE HIEUH E
-<UD5E5> \xC7\xED |0 # HANGUL SYLLABLE HIEUH E KIYEOK
-<UD5E6> \xC2\x54 |0 # HANGUL SYLLABLE HIEUH E SSANGKIYEOK
-<UD5E7> \xC2\x55 |0 # HANGUL SYLLABLE HIEUH E KIYEOKSIOS
-<UD5E8> \xC7\xEE |0 # HANGUL SYLLABLE HIEUH E NIEUN
-<UD5E9> \xC2\x56 |0 # HANGUL SYLLABLE HIEUH E NIEUNCIEUC
-<UD5EA> \xC2\x57 |0 # HANGUL SYLLABLE HIEUH E NIEUNHIEUH
-<UD5EB> \xC2\x58 |0 # HANGUL SYLLABLE HIEUH E TIKEUT
-<UD5EC> \xC7\xEF |0 # HANGUL SYLLABLE HIEUH E RIEUL
-<UD5ED> \xC2\x59 |0 # HANGUL SYLLABLE HIEUH E RIEULKIYEOK
-<UD5EE> \xC2\x5A |0 # HANGUL SYLLABLE HIEUH E RIEULMIEUM
-<UD5EF> \xC2\x61 |0 # HANGUL SYLLABLE HIEUH E RIEULPIEUP
-<UD5F0> \xC2\x62 |0 # HANGUL SYLLABLE HIEUH E RIEULSIOS
-<UD5F1> \xC2\x63 |0 # HANGUL SYLLABLE HIEUH E RIEULTHIEUTH
-<UD5F2> \xC2\x64 |0 # HANGUL SYLLABLE HIEUH E RIEULPHIEUPH
-<UD5F3> \xC2\x65 |0 # HANGUL SYLLABLE HIEUH E RIEULHIEUH
-<UD5F4> \xC7\xF0 |0 # HANGUL SYLLABLE HIEUH E MIEUM
-<UD5F5> \xC7\xF1 |0 # HANGUL SYLLABLE HIEUH E PIEUP
-<UD5F6> \xC2\x66 |0 # HANGUL SYLLABLE HIEUH E PIEUPSIOS
-<UD5F7> \xC7\xF2 |0 # HANGUL SYLLABLE HIEUH E SIOS
-<UD5F8> \xC2\x67 |0 # HANGUL SYLLABLE HIEUH E SSANGSIOS
-<UD5F9> \xC7\xF3 |0 # HANGUL SYLLABLE HIEUH E IEUNG
-<UD5FA> \xC2\x68 |0 # HANGUL SYLLABLE HIEUH E CIEUC
-<UD5FB> \xC2\x69 |0 # HANGUL SYLLABLE HIEUH E CHIEUCH
-<UD5FC> \xC2\x6A |0 # HANGUL SYLLABLE HIEUH E KHIEUKH
-<UD5FD> \xC2\x6B |0 # HANGUL SYLLABLE HIEUH E THIEUTH
-<UD5FE> \xC2\x6C |0 # HANGUL SYLLABLE HIEUH E PHIEUPH
-<UD5FF> \xC2\x6D |0 # HANGUL SYLLABLE HIEUH E HIEUH
-<UD600> \xC7\xF4 |0 # HANGUL SYLLABLE HIEUH YEO
-<UD601> \xC7\xF5 |0 # HANGUL SYLLABLE HIEUH YEO KIYEOK
-<UD602> \xC2\x6E |0 # HANGUL SYLLABLE HIEUH YEO SSANGKIYEOK
-<UD603> \xC2\x6F |0 # HANGUL SYLLABLE HIEUH YEO KIYEOKSIOS
-<UD604> \xC7\xF6 |0 # HANGUL SYLLABLE HIEUH YEO NIEUN
-<UD605> \xC2\x70 |0 # HANGUL SYLLABLE HIEUH YEO NIEUNCIEUC
-<UD606> \xC2\x71 |0 # HANGUL SYLLABLE HIEUH YEO NIEUNHIEUH
-<UD607> \xC2\x72 |0 # HANGUL SYLLABLE HIEUH YEO TIKEUT
-<UD608> \xC7\xF7 |0 # HANGUL SYLLABLE HIEUH YEO RIEUL
-<UD609> \xC2\x73 |0 # HANGUL SYLLABLE HIEUH YEO RIEULKIYEOK
-<UD60A> \xC2\x74 |0 # HANGUL SYLLABLE HIEUH YEO RIEULMIEUM
-<UD60B> \xC2\x75 |0 # HANGUL SYLLABLE HIEUH YEO RIEULPIEUP
-<UD60C> \xC2\x76 |0 # HANGUL SYLLABLE HIEUH YEO RIEULSIOS
-<UD60D> \xC2\x77 |0 # HANGUL SYLLABLE HIEUH YEO RIEULTHIEUTH
-<UD60E> \xC2\x78 |0 # HANGUL SYLLABLE HIEUH YEO RIEULPHIEUPH
-<UD60F> \xC2\x79 |0 # HANGUL SYLLABLE HIEUH YEO RIEULHIEUH
-<UD610> \xC7\xF8 |0 # HANGUL SYLLABLE HIEUH YEO MIEUM
-<UD611> \xC7\xF9 |0 # HANGUL SYLLABLE HIEUH YEO PIEUP
-<UD612> \xC2\x7A |0 # HANGUL SYLLABLE HIEUH YEO PIEUPSIOS
-<UD613> \xC7\xFA |0 # HANGUL SYLLABLE HIEUH YEO SIOS
-<UD614> \xC7\xFB |0 # HANGUL SYLLABLE HIEUH YEO SSANGSIOS
-<UD615> \xC7\xFC |0 # HANGUL SYLLABLE HIEUH YEO IEUNG
-<UD616> \xC2\x81 |0 # HANGUL SYLLABLE HIEUH YEO CIEUC
-<UD617> \xC2\x82 |0 # HANGUL SYLLABLE HIEUH YEO CHIEUCH
-<UD618> \xC2\x83 |0 # HANGUL SYLLABLE HIEUH YEO KHIEUKH
-<UD619> \xC2\x84 |0 # HANGUL SYLLABLE HIEUH YEO THIEUTH
-<UD61A> \xC2\x85 |0 # HANGUL SYLLABLE HIEUH YEO PHIEUPH
-<UD61B> \xC2\x86 |0 # HANGUL SYLLABLE HIEUH YEO HIEUH
-<UD61C> \xC7\xFD |0 # HANGUL SYLLABLE HIEUH YE
-<UD61D> \xC2\x87 |0 # HANGUL SYLLABLE HIEUH YE KIYEOK
-<UD61E> \xC2\x88 |0 # HANGUL SYLLABLE HIEUH YE SSANGKIYEOK
-<UD61F> \xC2\x89 |0 # HANGUL SYLLABLE HIEUH YE KIYEOKSIOS
-<UD620> \xC7\xFE |0 # HANGUL SYLLABLE HIEUH YE NIEUN
-<UD621> \xC2\x8A |0 # HANGUL SYLLABLE HIEUH YE NIEUNCIEUC
-<UD622> \xC2\x8B |0 # HANGUL SYLLABLE HIEUH YE NIEUNHIEUH
-<UD623> \xC2\x8C |0 # HANGUL SYLLABLE HIEUH YE TIKEUT
-<UD624> \xC8\xA1 |0 # HANGUL SYLLABLE HIEUH YE RIEUL
-<UD625> \xC2\x8D |0 # HANGUL SYLLABLE HIEUH YE RIEULKIYEOK
-<UD626> \xC2\x8E |0 # HANGUL SYLLABLE HIEUH YE RIEULMIEUM
-<UD627> \xC2\x8F |0 # HANGUL SYLLABLE HIEUH YE RIEULPIEUP
-<UD628> \xC2\x90 |0 # HANGUL SYLLABLE HIEUH YE RIEULSIOS
-<UD629> \xC2\x91 |0 # HANGUL SYLLABLE HIEUH YE RIEULTHIEUTH
-<UD62A> \xC2\x92 |0 # HANGUL SYLLABLE HIEUH YE RIEULPHIEUPH
-<UD62B> \xC2\x93 |0 # HANGUL SYLLABLE HIEUH YE RIEULHIEUH
-<UD62C> \xC2\x94 |0 # HANGUL SYLLABLE HIEUH YE MIEUM
-<UD62D> \xC8\xA2 |0 # HANGUL SYLLABLE HIEUH YE PIEUP
-<UD62E> \xC2\x95 |0 # HANGUL SYLLABLE HIEUH YE PIEUPSIOS
-<UD62F> \xC2\x96 |0 # HANGUL SYLLABLE HIEUH YE SIOS
-<UD630> \xC2\x97 |0 # HANGUL SYLLABLE HIEUH YE SSANGSIOS
-<UD631> \xC2\x98 |0 # HANGUL SYLLABLE HIEUH YE IEUNG
-<UD632> \xC2\x99 |0 # HANGUL SYLLABLE HIEUH YE CIEUC
-<UD633> \xC2\x9A |0 # HANGUL SYLLABLE HIEUH YE CHIEUCH
-<UD634> \xC2\x9B |0 # HANGUL SYLLABLE HIEUH YE KHIEUKH
-<UD635> \xC2\x9C |0 # HANGUL SYLLABLE HIEUH YE THIEUTH
-<UD636> \xC2\x9D |0 # HANGUL SYLLABLE HIEUH YE PHIEUPH
-<UD637> \xC2\x9E |0 # HANGUL SYLLABLE HIEUH YE HIEUH
-<UD638> \xC8\xA3 |0 # HANGUL SYLLABLE HIEUH O
-<UD639> \xC8\xA4 |0 # HANGUL SYLLABLE HIEUH O KIYEOK
-<UD63A> \xC2\x9F |0 # HANGUL SYLLABLE HIEUH O SSANGKIYEOK
-<UD63B> \xC2\xA0 |0 # HANGUL SYLLABLE HIEUH O KIYEOKSIOS
-<UD63C> \xC8\xA5 |0 # HANGUL SYLLABLE HIEUH O NIEUN
-<UD63D> \xC3\x41 |0 # HANGUL SYLLABLE HIEUH O NIEUNCIEUC
-<UD63E> \xC3\x42 |0 # HANGUL SYLLABLE HIEUH O NIEUNHIEUH
-<UD63F> \xC3\x43 |0 # HANGUL SYLLABLE HIEUH O TIKEUT
-<UD640> \xC8\xA6 |0 # HANGUL SYLLABLE HIEUH O RIEUL
-<UD641> \xC3\x44 |0 # HANGUL SYLLABLE HIEUH O RIEULKIYEOK
-<UD642> \xC3\x45 |0 # HANGUL SYLLABLE HIEUH O RIEULMIEUM
-<UD643> \xC3\x46 |0 # HANGUL SYLLABLE HIEUH O RIEULPIEUP
-<UD644> \xC3\x47 |0 # HANGUL SYLLABLE HIEUH O RIEULSIOS
-<UD645> \xC8\xA7 |0 # HANGUL SYLLABLE HIEUH O RIEULTHIEUTH
-<UD646> \xC3\x48 |0 # HANGUL SYLLABLE HIEUH O RIEULPHIEUPH
-<UD647> \xC3\x49 |0 # HANGUL SYLLABLE HIEUH O RIEULHIEUH
-<UD648> \xC8\xA8 |0 # HANGUL SYLLABLE HIEUH O MIEUM
-<UD649> \xC8\xA9 |0 # HANGUL SYLLABLE HIEUH O PIEUP
-<UD64A> \xC3\x4A |0 # HANGUL SYLLABLE HIEUH O PIEUPSIOS
-<UD64B> \xC8\xAA |0 # HANGUL SYLLABLE HIEUH O SIOS
-<UD64C> \xC3\x4B |0 # HANGUL SYLLABLE HIEUH O SSANGSIOS
-<UD64D> \xC8\xAB |0 # HANGUL SYLLABLE HIEUH O IEUNG
-<UD64E> \xC3\x4C |0 # HANGUL SYLLABLE HIEUH O CIEUC
-<UD64F> \xC3\x4D |0 # HANGUL SYLLABLE HIEUH O CHIEUCH
-<UD650> \xC3\x4E |0 # HANGUL SYLLABLE HIEUH O KHIEUKH
-<UD651> \xC8\xAC |0 # HANGUL SYLLABLE HIEUH O THIEUTH
-<UD652> \xC3\x4F |0 # HANGUL SYLLABLE HIEUH O PHIEUPH
-<UD653> \xC3\x50 |0 # HANGUL SYLLABLE HIEUH O HIEUH
-<UD654> \xC8\xAD |0 # HANGUL SYLLABLE HIEUH WA
-<UD655> \xC8\xAE |0 # HANGUL SYLLABLE HIEUH WA KIYEOK
-<UD656> \xC3\x51 |0 # HANGUL SYLLABLE HIEUH WA SSANGKIYEOK
-<UD657> \xC3\x52 |0 # HANGUL SYLLABLE HIEUH WA KIYEOKSIOS
-<UD658> \xC8\xAF |0 # HANGUL SYLLABLE HIEUH WA NIEUN
-<UD659> \xC3\x53 |0 # HANGUL SYLLABLE HIEUH WA NIEUNCIEUC
-<UD65A> \xC3\x54 |0 # HANGUL SYLLABLE HIEUH WA NIEUNHIEUH
-<UD65B> \xC3\x55 |0 # HANGUL SYLLABLE HIEUH WA TIKEUT
-<UD65C> \xC8\xB0 |0 # HANGUL SYLLABLE HIEUH WA RIEUL
-<UD65D> \xC3\x56 |0 # HANGUL SYLLABLE HIEUH WA RIEULKIYEOK
-<UD65E> \xC3\x57 |0 # HANGUL SYLLABLE HIEUH WA RIEULMIEUM
-<UD65F> \xC3\x58 |0 # HANGUL SYLLABLE HIEUH WA RIEULPIEUP
-<UD660> \xC3\x59 |0 # HANGUL SYLLABLE HIEUH WA RIEULSIOS
-<UD661> \xC3\x5A |0 # HANGUL SYLLABLE HIEUH WA RIEULTHIEUTH
-<UD662> \xC3\x61 |0 # HANGUL SYLLABLE HIEUH WA RIEULPHIEUPH
-<UD663> \xC3\x62 |0 # HANGUL SYLLABLE HIEUH WA RIEULHIEUH
-<UD664> \xC3\x63 |0 # HANGUL SYLLABLE HIEUH WA MIEUM
-<UD665> \xC3\x64 |0 # HANGUL SYLLABLE HIEUH WA PIEUP
-<UD666> \xC3\x65 |0 # HANGUL SYLLABLE HIEUH WA PIEUPSIOS
-<UD667> \xC8\xB1 |0 # HANGUL SYLLABLE HIEUH WA SIOS
-<UD668> \xC3\x66 |0 # HANGUL SYLLABLE HIEUH WA SSANGSIOS
-<UD669> \xC8\xB2 |0 # HANGUL SYLLABLE HIEUH WA IEUNG
-<UD66A> \xC3\x67 |0 # HANGUL SYLLABLE HIEUH WA CIEUC
-<UD66B> \xC3\x68 |0 # HANGUL SYLLABLE HIEUH WA CHIEUCH
-<UD66C> \xC3\x69 |0 # HANGUL SYLLABLE HIEUH WA KHIEUKH
-<UD66D> \xC3\x6A |0 # HANGUL SYLLABLE HIEUH WA THIEUTH
-<UD66E> \xC3\x6B |0 # HANGUL SYLLABLE HIEUH WA PHIEUPH
-<UD66F> \xC3\x6C |0 # HANGUL SYLLABLE HIEUH WA HIEUH
-<UD670> \xC8\xB3 |0 # HANGUL SYLLABLE HIEUH WAE
-<UD671> \xC8\xB4 |0 # HANGUL SYLLABLE HIEUH WAE KIYEOK
-<UD672> \xC3\x6D |0 # HANGUL SYLLABLE HIEUH WAE SSANGKIYEOK
-<UD673> \xC3\x6E |0 # HANGUL SYLLABLE HIEUH WAE KIYEOKSIOS
-<UD674> \xC8\xB5 |0 # HANGUL SYLLABLE HIEUH WAE NIEUN
-<UD675> \xC3\x6F |0 # HANGUL SYLLABLE HIEUH WAE NIEUNCIEUC
-<UD676> \xC3\x70 |0 # HANGUL SYLLABLE HIEUH WAE NIEUNHIEUH
-<UD677> \xC3\x71 |0 # HANGUL SYLLABLE HIEUH WAE TIKEUT
-<UD678> \xC3\x72 |0 # HANGUL SYLLABLE HIEUH WAE RIEUL
-<UD679> \xC3\x73 |0 # HANGUL SYLLABLE HIEUH WAE RIEULKIYEOK
-<UD67A> \xC3\x74 |0 # HANGUL SYLLABLE HIEUH WAE RIEULMIEUM
-<UD67B> \xC3\x75 |0 # HANGUL SYLLABLE HIEUH WAE RIEULPIEUP
-<UD67C> \xC3\x76 |0 # HANGUL SYLLABLE HIEUH WAE RIEULSIOS
-<UD67D> \xC3\x77 |0 # HANGUL SYLLABLE HIEUH WAE RIEULTHIEUTH
-<UD67E> \xC3\x78 |0 # HANGUL SYLLABLE HIEUH WAE RIEULPHIEUPH
-<UD67F> \xC3\x79 |0 # HANGUL SYLLABLE HIEUH WAE RIEULHIEUH
-<UD680> \xC3\x7A |0 # HANGUL SYLLABLE HIEUH WAE MIEUM
-<UD681> \xC3\x81 |0 # HANGUL SYLLABLE HIEUH WAE PIEUP
-<UD682> \xC3\x82 |0 # HANGUL SYLLABLE HIEUH WAE PIEUPSIOS
-<UD683> \xC8\xB6 |0 # HANGUL SYLLABLE HIEUH WAE SIOS
-<UD684> \xC3\x83 |0 # HANGUL SYLLABLE HIEUH WAE SSANGSIOS
-<UD685> \xC8\xB7 |0 # HANGUL SYLLABLE HIEUH WAE IEUNG
-<UD686> \xC3\x84 |0 # HANGUL SYLLABLE HIEUH WAE CIEUC
-<UD687> \xC3\x85 |0 # HANGUL SYLLABLE HIEUH WAE CHIEUCH
-<UD688> \xC3\x86 |0 # HANGUL SYLLABLE HIEUH WAE KHIEUKH
-<UD689> \xC3\x87 |0 # HANGUL SYLLABLE HIEUH WAE THIEUTH
-<UD68A> \xC3\x88 |0 # HANGUL SYLLABLE HIEUH WAE PHIEUPH
-<UD68B> \xC3\x89 |0 # HANGUL SYLLABLE HIEUH WAE HIEUH
-<UD68C> \xC8\xB8 |0 # HANGUL SYLLABLE HIEUH OE
-<UD68D> \xC8\xB9 |0 # HANGUL SYLLABLE HIEUH OE KIYEOK
-<UD68E> \xC3\x8A |0 # HANGUL SYLLABLE HIEUH OE SSANGKIYEOK
-<UD68F> \xC3\x8B |0 # HANGUL SYLLABLE HIEUH OE KIYEOKSIOS
-<UD690> \xC8\xBA |0 # HANGUL SYLLABLE HIEUH OE NIEUN
-<UD691> \xC3\x8C |0 # HANGUL SYLLABLE HIEUH OE NIEUNCIEUC
-<UD692> \xC3\x8D |0 # HANGUL SYLLABLE HIEUH OE NIEUNHIEUH
-<UD693> \xC3\x8E |0 # HANGUL SYLLABLE HIEUH OE TIKEUT
-<UD694> \xC8\xBB |0 # HANGUL SYLLABLE HIEUH OE RIEUL
-<UD695> \xC3\x8F |0 # HANGUL SYLLABLE HIEUH OE RIEULKIYEOK
-<UD696> \xC3\x90 |0 # HANGUL SYLLABLE HIEUH OE RIEULMIEUM
-<UD697> \xC3\x91 |0 # HANGUL SYLLABLE HIEUH OE RIEULPIEUP
-<UD698> \xC3\x92 |0 # HANGUL SYLLABLE HIEUH OE RIEULSIOS
-<UD699> \xC3\x93 |0 # HANGUL SYLLABLE HIEUH OE RIEULTHIEUTH
-<UD69A> \xC3\x94 |0 # HANGUL SYLLABLE HIEUH OE RIEULPHIEUPH
-<UD69B> \xC3\x95 |0 # HANGUL SYLLABLE HIEUH OE RIEULHIEUH
-<UD69C> \xC3\x96 |0 # HANGUL SYLLABLE HIEUH OE MIEUM
-<UD69D> \xC8\xBC |0 # HANGUL SYLLABLE HIEUH OE PIEUP
-<UD69E> \xC3\x97 |0 # HANGUL SYLLABLE HIEUH OE PIEUPSIOS
-<UD69F> \xC8\xBD |0 # HANGUL SYLLABLE HIEUH OE SIOS
-<UD6A0> \xC3\x98 |0 # HANGUL SYLLABLE HIEUH OE SSANGSIOS
-<UD6A1> \xC8\xBE |0 # HANGUL SYLLABLE HIEUH OE IEUNG
-<UD6A2> \xC3\x99 |0 # HANGUL SYLLABLE HIEUH OE CIEUC
-<UD6A3> \xC3\x9A |0 # HANGUL SYLLABLE HIEUH OE CHIEUCH
-<UD6A4> \xC3\x9B |0 # HANGUL SYLLABLE HIEUH OE KHIEUKH
-<UD6A5> \xC3\x9C |0 # HANGUL SYLLABLE HIEUH OE THIEUTH
-<UD6A6> \xC3\x9D |0 # HANGUL SYLLABLE HIEUH OE PHIEUPH
-<UD6A7> \xC3\x9E |0 # HANGUL SYLLABLE HIEUH OE HIEUH
-<UD6A8> \xC8\xBF |0 # HANGUL SYLLABLE HIEUH YO
-<UD6A9> \xC3\x9F |0 # HANGUL SYLLABLE HIEUH YO KIYEOK
-<UD6AA> \xC3\xA0 |0 # HANGUL SYLLABLE HIEUH YO SSANGKIYEOK
-<UD6AB> \xC4\x41 |0 # HANGUL SYLLABLE HIEUH YO KIYEOKSIOS
-<UD6AC> \xC8\xC0 |0 # HANGUL SYLLABLE HIEUH YO NIEUN
-<UD6AD> \xC4\x42 |0 # HANGUL SYLLABLE HIEUH YO NIEUNCIEUC
-<UD6AE> \xC4\x43 |0 # HANGUL SYLLABLE HIEUH YO NIEUNHIEUH
-<UD6AF> \xC4\x44 |0 # HANGUL SYLLABLE HIEUH YO TIKEUT
-<UD6B0> \xC8\xC1 |0 # HANGUL SYLLABLE HIEUH YO RIEUL
-<UD6B1> \xC4\x45 |0 # HANGUL SYLLABLE HIEUH YO RIEULKIYEOK
-<UD6B2> \xC4\x46 |0 # HANGUL SYLLABLE HIEUH YO RIEULMIEUM
-<UD6B3> \xC4\x47 |0 # HANGUL SYLLABLE HIEUH YO RIEULPIEUP
-<UD6B4> \xC4\x48 |0 # HANGUL SYLLABLE HIEUH YO RIEULSIOS
-<UD6B5> \xC4\x49 |0 # HANGUL SYLLABLE HIEUH YO RIEULTHIEUTH
-<UD6B6> \xC4\x4A |0 # HANGUL SYLLABLE HIEUH YO RIEULPHIEUPH
-<UD6B7> \xC4\x4B |0 # HANGUL SYLLABLE HIEUH YO RIEULHIEUH
-<UD6B8> \xC4\x4C |0 # HANGUL SYLLABLE HIEUH YO MIEUM
-<UD6B9> \xC8\xC2 |0 # HANGUL SYLLABLE HIEUH YO PIEUP
-<UD6BA> \xC4\x4D |0 # HANGUL SYLLABLE HIEUH YO PIEUPSIOS
-<UD6BB> \xC8\xC3 |0 # HANGUL SYLLABLE HIEUH YO SIOS
-<UD6BC> \xC4\x4E |0 # HANGUL SYLLABLE HIEUH YO SSANGSIOS
-<UD6BD> \xC4\x4F |0 # HANGUL SYLLABLE HIEUH YO IEUNG
-<UD6BE> \xC4\x50 |0 # HANGUL SYLLABLE HIEUH YO CIEUC
-<UD6BF> \xC4\x51 |0 # HANGUL SYLLABLE HIEUH YO CHIEUCH
-<UD6C0> \xC4\x52 |0 # HANGUL SYLLABLE HIEUH YO KHIEUKH
-<UD6C1> \xC4\x53 |0 # HANGUL SYLLABLE HIEUH YO THIEUTH
-<UD6C2> \xC4\x54 |0 # HANGUL SYLLABLE HIEUH YO PHIEUPH
-<UD6C3> \xC4\x55 |0 # HANGUL SYLLABLE HIEUH YO HIEUH
-<UD6C4> \xC8\xC4 |0 # HANGUL SYLLABLE HIEUH U
-<UD6C5> \xC8\xC5 |0 # HANGUL SYLLABLE HIEUH U KIYEOK
-<UD6C6> \xC4\x56 |0 # HANGUL SYLLABLE HIEUH U SSANGKIYEOK
-<UD6C7> \xC4\x57 |0 # HANGUL SYLLABLE HIEUH U KIYEOKSIOS
-<UD6C8> \xC8\xC6 |0 # HANGUL SYLLABLE HIEUH U NIEUN
-<UD6C9> \xC4\x58 |0 # HANGUL SYLLABLE HIEUH U NIEUNCIEUC
-<UD6CA> \xC4\x59 |0 # HANGUL SYLLABLE HIEUH U NIEUNHIEUH
-<UD6CB> \xC4\x5A |0 # HANGUL SYLLABLE HIEUH U TIKEUT
-<UD6CC> \xC8\xC7 |0 # HANGUL SYLLABLE HIEUH U RIEUL
-<UD6CD> \xC4\x61 |0 # HANGUL SYLLABLE HIEUH U RIEULKIYEOK
-<UD6CE> \xC4\x62 |0 # HANGUL SYLLABLE HIEUH U RIEULMIEUM
-<UD6CF> \xC4\x63 |0 # HANGUL SYLLABLE HIEUH U RIEULPIEUP
-<UD6D0> \xC4\x64 |0 # HANGUL SYLLABLE HIEUH U RIEULSIOS
-<UD6D1> \xC8\xC8 |0 # HANGUL SYLLABLE HIEUH U RIEULTHIEUTH
-<UD6D2> \xC4\x65 |0 # HANGUL SYLLABLE HIEUH U RIEULPHIEUPH
-<UD6D3> \xC4\x66 |0 # HANGUL SYLLABLE HIEUH U RIEULHIEUH
-<UD6D4> \xC8\xC9 |0 # HANGUL SYLLABLE HIEUH U MIEUM
-<UD6D5> \xC4\x67 |0 # HANGUL SYLLABLE HIEUH U PIEUP
-<UD6D6> \xC4\x68 |0 # HANGUL SYLLABLE HIEUH U PIEUPSIOS
-<UD6D7> \xC8\xCA |0 # HANGUL SYLLABLE HIEUH U SIOS
-<UD6D8> \xC4\x69 |0 # HANGUL SYLLABLE HIEUH U SSANGSIOS
-<UD6D9> \xC8\xCB |0 # HANGUL SYLLABLE HIEUH U IEUNG
-<UD6DA> \xC4\x6A |0 # HANGUL SYLLABLE HIEUH U CIEUC
-<UD6DB> \xC4\x6B |0 # HANGUL SYLLABLE HIEUH U CHIEUCH
-<UD6DC> \xC4\x6C |0 # HANGUL SYLLABLE HIEUH U KHIEUKH
-<UD6DD> \xC4\x6D |0 # HANGUL SYLLABLE HIEUH U THIEUTH
-<UD6DE> \xC4\x6E |0 # HANGUL SYLLABLE HIEUH U PHIEUPH
-<UD6DF> \xC4\x6F |0 # HANGUL SYLLABLE HIEUH U HIEUH
-<UD6E0> \xC8\xCC |0 # HANGUL SYLLABLE HIEUH WEO
-<UD6E1> \xC4\x70 |0 # HANGUL SYLLABLE HIEUH WEO KIYEOK
-<UD6E2> \xC4\x71 |0 # HANGUL SYLLABLE HIEUH WEO SSANGKIYEOK
-<UD6E3> \xC4\x72 |0 # HANGUL SYLLABLE HIEUH WEO KIYEOKSIOS
-<UD6E4> \xC8\xCD |0 # HANGUL SYLLABLE HIEUH WEO NIEUN
-<UD6E5> \xC4\x73 |0 # HANGUL SYLLABLE HIEUH WEO NIEUNCIEUC
-<UD6E6> \xC4\x74 |0 # HANGUL SYLLABLE HIEUH WEO NIEUNHIEUH
-<UD6E7> \xC4\x75 |0 # HANGUL SYLLABLE HIEUH WEO TIKEUT
-<UD6E8> \xC8\xCE |0 # HANGUL SYLLABLE HIEUH WEO RIEUL
-<UD6E9> \xC4\x76 |0 # HANGUL SYLLABLE HIEUH WEO RIEULKIYEOK
-<UD6EA> \xC4\x77 |0 # HANGUL SYLLABLE HIEUH WEO RIEULMIEUM
-<UD6EB> \xC4\x78 |0 # HANGUL SYLLABLE HIEUH WEO RIEULPIEUP
-<UD6EC> \xC4\x79 |0 # HANGUL SYLLABLE HIEUH WEO RIEULSIOS
-<UD6ED> \xC4\x7A |0 # HANGUL SYLLABLE HIEUH WEO RIEULTHIEUTH
-<UD6EE> \xC4\x81 |0 # HANGUL SYLLABLE HIEUH WEO RIEULPHIEUPH
-<UD6EF> \xC4\x82 |0 # HANGUL SYLLABLE HIEUH WEO RIEULHIEUH
-<UD6F0> \xC8\xCF |0 # HANGUL SYLLABLE HIEUH WEO MIEUM
-<UD6F1> \xC4\x83 |0 # HANGUL SYLLABLE HIEUH WEO PIEUP
-<UD6F2> \xC4\x84 |0 # HANGUL SYLLABLE HIEUH WEO PIEUPSIOS
-<UD6F3> \xC4\x85 |0 # HANGUL SYLLABLE HIEUH WEO SIOS
-<UD6F4> \xC4\x86 |0 # HANGUL SYLLABLE HIEUH WEO SSANGSIOS
-<UD6F5> \xC8\xD0 |0 # HANGUL SYLLABLE HIEUH WEO IEUNG
-<UD6F6> \xC4\x87 |0 # HANGUL SYLLABLE HIEUH WEO CIEUC
-<UD6F7> \xC4\x88 |0 # HANGUL SYLLABLE HIEUH WEO CHIEUCH
-<UD6F8> \xC4\x89 |0 # HANGUL SYLLABLE HIEUH WEO KHIEUKH
-<UD6F9> \xC4\x8A |0 # HANGUL SYLLABLE HIEUH WEO THIEUTH
-<UD6FA> \xC4\x8B |0 # HANGUL SYLLABLE HIEUH WEO PHIEUPH
-<UD6FB> \xC4\x8C |0 # HANGUL SYLLABLE HIEUH WEO HIEUH
-<UD6FC> \xC8\xD1 |0 # HANGUL SYLLABLE HIEUH WE
-<UD6FD> \xC8\xD2 |0 # HANGUL SYLLABLE HIEUH WE KIYEOK
-<UD6FE> \xC4\x8D |0 # HANGUL SYLLABLE HIEUH WE SSANGKIYEOK
-<UD6FF> \xC4\x8E |0 # HANGUL SYLLABLE HIEUH WE KIYEOKSIOS
-<UD700> \xC8\xD3 |0 # HANGUL SYLLABLE HIEUH WE NIEUN
-<UD701> \xC4\x8F |0 # HANGUL SYLLABLE HIEUH WE NIEUNCIEUC
-<UD702> \xC4\x90 |0 # HANGUL SYLLABLE HIEUH WE NIEUNHIEUH
-<UD703> \xC4\x91 |0 # HANGUL SYLLABLE HIEUH WE TIKEUT
-<UD704> \xC8\xD4 |0 # HANGUL SYLLABLE HIEUH WE RIEUL
-<UD705> \xC4\x92 |0 # HANGUL SYLLABLE HIEUH WE RIEULKIYEOK
-<UD706> \xC4\x93 |0 # HANGUL SYLLABLE HIEUH WE RIEULMIEUM
-<UD707> \xC4\x94 |0 # HANGUL SYLLABLE HIEUH WE RIEULPIEUP
-<UD708> \xC4\x95 |0 # HANGUL SYLLABLE HIEUH WE RIEULSIOS
-<UD709> \xC4\x96 |0 # HANGUL SYLLABLE HIEUH WE RIEULTHIEUTH
-<UD70A> \xC4\x97 |0 # HANGUL SYLLABLE HIEUH WE RIEULPHIEUPH
-<UD70B> \xC4\x98 |0 # HANGUL SYLLABLE HIEUH WE RIEULHIEUH
-<UD70C> \xC4\x99 |0 # HANGUL SYLLABLE HIEUH WE MIEUM
-<UD70D> \xC4\x9A |0 # HANGUL SYLLABLE HIEUH WE PIEUP
-<UD70E> \xC4\x9B |0 # HANGUL SYLLABLE HIEUH WE PIEUPSIOS
-<UD70F> \xC4\x9C |0 # HANGUL SYLLABLE HIEUH WE SIOS
-<UD710> \xC4\x9D |0 # HANGUL SYLLABLE HIEUH WE SSANGSIOS
-<UD711> \xC8\xD5 |0 # HANGUL SYLLABLE HIEUH WE IEUNG
-<UD712> \xC4\x9E |0 # HANGUL SYLLABLE HIEUH WE CIEUC
-<UD713> \xC4\x9F |0 # HANGUL SYLLABLE HIEUH WE CHIEUCH
-<UD714> \xC4\xA0 |0 # HANGUL SYLLABLE HIEUH WE KHIEUKH
-<UD715> \xC5\x41 |0 # HANGUL SYLLABLE HIEUH WE THIEUTH
-<UD716> \xC5\x42 |0 # HANGUL SYLLABLE HIEUH WE PHIEUPH
-<UD717> \xC5\x43 |0 # HANGUL SYLLABLE HIEUH WE HIEUH
-<UD718> \xC8\xD6 |0 # HANGUL SYLLABLE HIEUH WI
-<UD719> \xC8\xD7 |0 # HANGUL SYLLABLE HIEUH WI KIYEOK
-<UD71A> \xC5\x44 |0 # HANGUL SYLLABLE HIEUH WI SSANGKIYEOK
-<UD71B> \xC5\x45 |0 # HANGUL SYLLABLE HIEUH WI KIYEOKSIOS
-<UD71C> \xC8\xD8 |0 # HANGUL SYLLABLE HIEUH WI NIEUN
-<UD71D> \xC5\x46 |0 # HANGUL SYLLABLE HIEUH WI NIEUNCIEUC
-<UD71E> \xC5\x47 |0 # HANGUL SYLLABLE HIEUH WI NIEUNHIEUH
-<UD71F> \xC5\x48 |0 # HANGUL SYLLABLE HIEUH WI TIKEUT
-<UD720> \xC8\xD9 |0 # HANGUL SYLLABLE HIEUH WI RIEUL
-<UD721> \xC5\x49 |0 # HANGUL SYLLABLE HIEUH WI RIEULKIYEOK
-<UD722> \xC5\x4A |0 # HANGUL SYLLABLE HIEUH WI RIEULMIEUM
-<UD723> \xC5\x4B |0 # HANGUL SYLLABLE HIEUH WI RIEULPIEUP
-<UD724> \xC5\x4C |0 # HANGUL SYLLABLE HIEUH WI RIEULSIOS
-<UD725> \xC5\x4D |0 # HANGUL SYLLABLE HIEUH WI RIEULTHIEUTH
-<UD726> \xC5\x4E |0 # HANGUL SYLLABLE HIEUH WI RIEULPHIEUPH
-<UD727> \xC5\x4F |0 # HANGUL SYLLABLE HIEUH WI RIEULHIEUH
-<UD728> \xC8\xDA |0 # HANGUL SYLLABLE HIEUH WI MIEUM
-<UD729> \xC8\xDB |0 # HANGUL SYLLABLE HIEUH WI PIEUP
-<UD72A> \xC5\x50 |0 # HANGUL SYLLABLE HIEUH WI PIEUPSIOS
-<UD72B> \xC8\xDC |0 # HANGUL SYLLABLE HIEUH WI SIOS
-<UD72C> \xC5\x51 |0 # HANGUL SYLLABLE HIEUH WI SSANGSIOS
-<UD72D> \xC8\xDD |0 # HANGUL SYLLABLE HIEUH WI IEUNG
-<UD72E> \xC5\x52 |0 # HANGUL SYLLABLE HIEUH WI CIEUC
-<UD72F> \xC5\x53 |0 # HANGUL SYLLABLE HIEUH WI CHIEUCH
-<UD730> \xC5\x54 |0 # HANGUL SYLLABLE HIEUH WI KHIEUKH
-<UD731> \xC5\x55 |0 # HANGUL SYLLABLE HIEUH WI THIEUTH
-<UD732> \xC5\x56 |0 # HANGUL SYLLABLE HIEUH WI PHIEUPH
-<UD733> \xC5\x57 |0 # HANGUL SYLLABLE HIEUH WI HIEUH
-<UD734> \xC8\xDE |0 # HANGUL SYLLABLE HIEUH YU
-<UD735> \xC8\xDF |0 # HANGUL SYLLABLE HIEUH YU KIYEOK
-<UD736> \xC5\x58 |0 # HANGUL SYLLABLE HIEUH YU SSANGKIYEOK
-<UD737> \xC5\x59 |0 # HANGUL SYLLABLE HIEUH YU KIYEOKSIOS
-<UD738> \xC8\xE0 |0 # HANGUL SYLLABLE HIEUH YU NIEUN
-<UD739> \xC5\x5A |0 # HANGUL SYLLABLE HIEUH YU NIEUNCIEUC
-<UD73A> \xC5\x61 |0 # HANGUL SYLLABLE HIEUH YU NIEUNHIEUH
-<UD73B> \xC5\x62 |0 # HANGUL SYLLABLE HIEUH YU TIKEUT
-<UD73C> \xC8\xE1 |0 # HANGUL SYLLABLE HIEUH YU RIEUL
-<UD73D> \xC5\x63 |0 # HANGUL SYLLABLE HIEUH YU RIEULKIYEOK
-<UD73E> \xC5\x64 |0 # HANGUL SYLLABLE HIEUH YU RIEULMIEUM
-<UD73F> \xC5\x65 |0 # HANGUL SYLLABLE HIEUH YU RIEULPIEUP
-<UD740> \xC5\x66 |0 # HANGUL SYLLABLE HIEUH YU RIEULSIOS
-<UD741> \xC5\x67 |0 # HANGUL SYLLABLE HIEUH YU RIEULTHIEUTH
-<UD742> \xC5\x68 |0 # HANGUL SYLLABLE HIEUH YU RIEULPHIEUPH
-<UD743> \xC5\x69 |0 # HANGUL SYLLABLE HIEUH YU RIEULHIEUH
-<UD744> \xC8\xE2 |0 # HANGUL SYLLABLE HIEUH YU MIEUM
-<UD745> \xC5\x6A |0 # HANGUL SYLLABLE HIEUH YU PIEUP
-<UD746> \xC5\x6B |0 # HANGUL SYLLABLE HIEUH YU PIEUPSIOS
-<UD747> \xC8\xE3 |0 # HANGUL SYLLABLE HIEUH YU SIOS
-<UD748> \xC5\x6C |0 # HANGUL SYLLABLE HIEUH YU SSANGSIOS
-<UD749> \xC8\xE4 |0 # HANGUL SYLLABLE HIEUH YU IEUNG
-<UD74A> \xC5\x6D |0 # HANGUL SYLLABLE HIEUH YU CIEUC
-<UD74B> \xC5\x6E |0 # HANGUL SYLLABLE HIEUH YU CHIEUCH
-<UD74C> \xC5\x6F |0 # HANGUL SYLLABLE HIEUH YU KHIEUKH
-<UD74D> \xC5\x70 |0 # HANGUL SYLLABLE HIEUH YU THIEUTH
-<UD74E> \xC5\x71 |0 # HANGUL SYLLABLE HIEUH YU PHIEUPH
-<UD74F> \xC5\x72 |0 # HANGUL SYLLABLE HIEUH YU HIEUH
-<UD750> \xC8\xE5 |0 # HANGUL SYLLABLE HIEUH EU
-<UD751> \xC8\xE6 |0 # HANGUL SYLLABLE HIEUH EU KIYEOK
-<UD752> \xC5\x73 |0 # HANGUL SYLLABLE HIEUH EU SSANGKIYEOK
-<UD753> \xC5\x74 |0 # HANGUL SYLLABLE HIEUH EU KIYEOKSIOS
-<UD754> \xC8\xE7 |0 # HANGUL SYLLABLE HIEUH EU NIEUN
-<UD755> \xC5\x75 |0 # HANGUL SYLLABLE HIEUH EU NIEUNCIEUC
-<UD756> \xC8\xE8 |0 # HANGUL SYLLABLE HIEUH EU NIEUNHIEUH
-<UD757> \xC8\xE9 |0 # HANGUL SYLLABLE HIEUH EU TIKEUT
-<UD758> \xC8\xEA |0 # HANGUL SYLLABLE HIEUH EU RIEUL
-<UD759> \xC8\xEB |0 # HANGUL SYLLABLE HIEUH EU RIEULKIYEOK
-<UD75A> \xC5\x76 |0 # HANGUL SYLLABLE HIEUH EU RIEULMIEUM
-<UD75B> \xC5\x77 |0 # HANGUL SYLLABLE HIEUH EU RIEULPIEUP
-<UD75C> \xC5\x78 |0 # HANGUL SYLLABLE HIEUH EU RIEULSIOS
-<UD75D> \xC5\x79 |0 # HANGUL SYLLABLE HIEUH EU RIEULTHIEUTH
-<UD75E> \xC5\x7A |0 # HANGUL SYLLABLE HIEUH EU RIEULPHIEUPH
-<UD75F> \xC5\x81 |0 # HANGUL SYLLABLE HIEUH EU RIEULHIEUH
-<UD760> \xC8\xEC |0 # HANGUL SYLLABLE HIEUH EU MIEUM
-<UD761> \xC8\xED |0 # HANGUL SYLLABLE HIEUH EU PIEUP
-<UD762> \xC5\x82 |0 # HANGUL SYLLABLE HIEUH EU PIEUPSIOS
-<UD763> \xC8\xEE |0 # HANGUL SYLLABLE HIEUH EU SIOS
-<UD764> \xC5\x83 |0 # HANGUL SYLLABLE HIEUH EU SSANGSIOS
-<UD765> \xC8\xEF |0 # HANGUL SYLLABLE HIEUH EU IEUNG
-<UD766> \xC5\x84 |0 # HANGUL SYLLABLE HIEUH EU CIEUC
-<UD767> \xC5\x85 |0 # HANGUL SYLLABLE HIEUH EU CHIEUCH
-<UD768> \xC5\x86 |0 # HANGUL SYLLABLE HIEUH EU KHIEUKH
-<UD769> \xC8\xF0 |0 # HANGUL SYLLABLE HIEUH EU THIEUTH
-<UD76A> \xC5\x87 |0 # HANGUL SYLLABLE HIEUH EU PHIEUPH
-<UD76B> \xC5\x88 |0 # HANGUL SYLLABLE HIEUH EU HIEUH
-<UD76C> \xC8\xF1 |0 # HANGUL SYLLABLE HIEUH YI
-<UD76D> \xC5\x89 |0 # HANGUL SYLLABLE HIEUH YI KIYEOK
-<UD76E> \xC5\x8A |0 # HANGUL SYLLABLE HIEUH YI SSANGKIYEOK
-<UD76F> \xC5\x8B |0 # HANGUL SYLLABLE HIEUH YI KIYEOKSIOS
-<UD770> \xC8\xF2 |0 # HANGUL SYLLABLE HIEUH YI NIEUN
-<UD771> \xC5\x8C |0 # HANGUL SYLLABLE HIEUH YI NIEUNCIEUC
-<UD772> \xC5\x8D |0 # HANGUL SYLLABLE HIEUH YI NIEUNHIEUH
-<UD773> \xC5\x8E |0 # HANGUL SYLLABLE HIEUH YI TIKEUT
-<UD774> \xC8\xF3 |0 # HANGUL SYLLABLE HIEUH YI RIEUL
-<UD775> \xC5\x8F |0 # HANGUL SYLLABLE HIEUH YI RIEULKIYEOK
-<UD776> \xC5\x90 |0 # HANGUL SYLLABLE HIEUH YI RIEULMIEUM
-<UD777> \xC5\x91 |0 # HANGUL SYLLABLE HIEUH YI RIEULPIEUP
-<UD778> \xC5\x92 |0 # HANGUL SYLLABLE HIEUH YI RIEULSIOS
-<UD779> \xC5\x93 |0 # HANGUL SYLLABLE HIEUH YI RIEULTHIEUTH
-<UD77A> \xC5\x94 |0 # HANGUL SYLLABLE HIEUH YI RIEULPHIEUPH
-<UD77B> \xC5\x95 |0 # HANGUL SYLLABLE HIEUH YI RIEULHIEUH
-<UD77C> \xC8\xF4 |0 # HANGUL SYLLABLE HIEUH YI MIEUM
-<UD77D> \xC8\xF5 |0 # HANGUL SYLLABLE HIEUH YI PIEUP
-<UD77E> \xC5\x96 |0 # HANGUL SYLLABLE HIEUH YI PIEUPSIOS
-<UD77F> \xC5\x97 |0 # HANGUL SYLLABLE HIEUH YI SIOS
-<UD780> \xC5\x98 |0 # HANGUL SYLLABLE HIEUH YI SSANGSIOS
-<UD781> \xC8\xF6 |0 # HANGUL SYLLABLE HIEUH YI IEUNG
-<UD782> \xC5\x99 |0 # HANGUL SYLLABLE HIEUH YI CIEUC
-<UD783> \xC5\x9A |0 # HANGUL SYLLABLE HIEUH YI CHIEUCH
-<UD784> \xC5\x9B |0 # HANGUL SYLLABLE HIEUH YI KHIEUKH
-<UD785> \xC5\x9C |0 # HANGUL SYLLABLE HIEUH YI THIEUTH
-<UD786> \xC5\x9D |0 # HANGUL SYLLABLE HIEUH YI PHIEUPH
-<UD787> \xC5\x9E |0 # HANGUL SYLLABLE HIEUH YI HIEUH
-<UD788> \xC8\xF7 |0 # HANGUL SYLLABLE HIEUH I
-<UD789> \xC8\xF8 |0 # HANGUL SYLLABLE HIEUH I KIYEOK
-<UD78A> \xC5\x9F |0 # HANGUL SYLLABLE HIEUH I SSANGKIYEOK
-<UD78B> \xC5\xA0 |0 # HANGUL SYLLABLE HIEUH I KIYEOKSIOS
-<UD78C> \xC8\xF9 |0 # HANGUL SYLLABLE HIEUH I NIEUN
-<UD78D> \xC6\x41 |0 # HANGUL SYLLABLE HIEUH I NIEUNCIEUC
-<UD78E> \xC6\x42 |0 # HANGUL SYLLABLE HIEUH I NIEUNHIEUH
-<UD78F> \xC6\x43 |0 # HANGUL SYLLABLE HIEUH I TIKEUT
-<UD790> \xC8\xFA |0 # HANGUL SYLLABLE HIEUH I RIEUL
-<UD791> \xC6\x44 |0 # HANGUL SYLLABLE HIEUH I RIEULKIYEOK
-<UD792> \xC6\x45 |0 # HANGUL SYLLABLE HIEUH I RIEULMIEUM
-<UD793> \xC6\x46 |0 # HANGUL SYLLABLE HIEUH I RIEULPIEUP
-<UD794> \xC6\x47 |0 # HANGUL SYLLABLE HIEUH I RIEULSIOS
-<UD795> \xC6\x48 |0 # HANGUL SYLLABLE HIEUH I RIEULTHIEUTH
-<UD796> \xC6\x49 |0 # HANGUL SYLLABLE HIEUH I RIEULPHIEUPH
-<UD797> \xC6\x4A |0 # HANGUL SYLLABLE HIEUH I RIEULHIEUH
-<UD798> \xC8\xFB |0 # HANGUL SYLLABLE HIEUH I MIEUM
-<UD799> \xC8\xFC |0 # HANGUL SYLLABLE HIEUH I PIEUP
-<UD79A> \xC6\x4B |0 # HANGUL SYLLABLE HIEUH I PIEUPSIOS
-<UD79B> \xC8\xFD |0 # HANGUL SYLLABLE HIEUH I SIOS
-<UD79C> \xC6\x4C |0 # HANGUL SYLLABLE HIEUH I SSANGSIOS
-<UD79D> \xC8\xFE |0 # HANGUL SYLLABLE HIEUH I IEUNG
-<UD79E> \xC6\x4D |0 # HANGUL SYLLABLE HIEUH I CIEUC
-<UD79F> \xC6\x4E |0 # HANGUL SYLLABLE HIEUH I CHIEUCH
-<UD7A0> \xC6\x4F |0 # HANGUL SYLLABLE HIEUH I KHIEUKH
-<UD7A1> \xC6\x50 |0 # HANGUL SYLLABLE HIEUH I THIEUTH
-<UD7A2> \xC6\x51 |0 # HANGUL SYLLABLE HIEUH I PHIEUPH
-<UD7A3> \xC6\x52 |0 # HANGUL SYLLABLE HIEUH I HIEUH
-<UE000> \xC9\xA1 |0 #
-<UE001> \xC9\xA2 |0 #
-<UE002> \xC9\xA3 |0 #
-<UE003> \xC9\xA4 |0 #
-<UE004> \xC9\xA5 |0 #
-<UE005> \xC9\xA6 |0 #
-<UE006> \xC9\xA7 |0 #
-<UE007> \xC9\xA8 |0 #
-<UE008> \xC9\xA9 |0 #
-<UE009> \xC9\xAA |0 #
-<UE00A> \xC9\xAB |0 #
-<UE00B> \xC9\xAC |0 #
-<UE00C> \xC9\xAD |0 #
-<UE00D> \xC9\xAE |0 #
-<UE00E> \xC9\xAF |0 #
-<UE00F> \xC9\xB0 |0 #
-<UE010> \xC9\xB1 |0 #
-<UE011> \xC9\xB2 |0 #
-<UE012> \xC9\xB3 |0 #
-<UE013> \xC9\xB4 |0 #
-<UE014> \xC9\xB5 |0 #
-<UE015> \xC9\xB6 |0 #
-<UE016> \xC9\xB7 |0 #
-<UE017> \xC9\xB8 |0 #
-<UE018> \xC9\xB9 |0 #
-<UE019> \xC9\xBA |0 #
-<UE01A> \xC9\xBB |0 #
-<UE01B> \xC9\xBC |0 #
-<UE01C> \xC9\xBD |0 #
-<UE01D> \xC9\xBE |0 #
-<UE01E> \xC9\xBF |0 #
-<UE01F> \xC9\xC0 |0 #
-<UE020> \xC9\xC1 |0 #
-<UE021> \xC9\xC2 |0 #
-<UE022> \xC9\xC3 |0 #
-<UE023> \xC9\xC4 |0 #
-<UE024> \xC9\xC5 |0 #
-<UE025> \xC9\xC6 |0 #
-<UE026> \xC9\xC7 |0 #
-<UE027> \xC9\xC8 |0 #
-<UE028> \xC9\xC9 |0 #
-<UE029> \xC9\xCA |0 #
-<UE02A> \xC9\xCB |0 #
-<UE02B> \xC9\xCC |0 #
-<UE02C> \xC9\xCD |0 #
-<UE02D> \xC9\xCE |0 #
-<UE02E> \xC9\xCF |0 #
-<UE02F> \xC9\xD0 |0 #
-<UE030> \xC9\xD1 |0 #
-<UE031> \xC9\xD2 |0 #
-<UE032> \xC9\xD3 |0 #
-<UE033> \xC9\xD4 |0 #
-<UE034> \xC9\xD5 |0 #
-<UE035> \xC9\xD6 |0 #
-<UE036> \xC9\xD7 |0 #
-<UE037> \xC9\xD8 |0 #
-<UE038> \xC9\xD9 |0 #
-<UE039> \xC9\xDA |0 #
-<UE03A> \xC9\xDB |0 #
-<UE03B> \xC9\xDC |0 #
-<UE03C> \xC9\xDD |0 #
-<UE03D> \xC9\xDE |0 #
-<UE03E> \xC9\xDF |0 #
-<UE03F> \xC9\xE0 |0 #
-<UE040> \xC9\xE1 |0 #
-<UE041> \xC9\xE2 |0 #
-<UE042> \xC9\xE3 |0 #
-<UE043> \xC9\xE4 |0 #
-<UE044> \xC9\xE5 |0 #
-<UE045> \xC9\xE6 |0 #
-<UE046> \xC9\xE7 |0 #
-<UE047> \xC9\xE8 |0 #
-<UE048> \xC9\xE9 |0 #
-<UE049> \xC9\xEA |0 #
-<UE04A> \xC9\xEB |0 #
-<UE04B> \xC9\xEC |0 #
-<UE04C> \xC9\xED |0 #
-<UE04D> \xC9\xEE |0 #
-<UE04E> \xC9\xEF |0 #
-<UE04F> \xC9\xF0 |0 #
-<UE050> \xC9\xF1 |0 #
-<UE051> \xC9\xF2 |0 #
-<UE052> \xC9\xF3 |0 #
-<UE053> \xC9\xF4 |0 #
-<UE054> \xC9\xF5 |0 #
-<UE055> \xC9\xF6 |0 #
-<UE056> \xC9\xF7 |0 #
-<UE057> \xC9\xF8 |0 #
-<UE058> \xC9\xF9 |0 #
-<UE059> \xC9\xFA |0 #
-<UE05A> \xC9\xFB |0 #
-<UE05B> \xC9\xFC |0 #
-<UE05C> \xC9\xFD |0 #
-<UE05D> \xC9\xFE |0 #
-<UE05E> \xFE\xA1 |0 #
-<UE05F> \xFE\xA2 |0 #
-<UE060> \xFE\xA3 |0 #
-<UE061> \xFE\xA4 |0 #
-<UE062> \xFE\xA5 |0 #
-<UE063> \xFE\xA6 |0 #
-<UE064> \xFE\xA7 |0 #
-<UE065> \xFE\xA8 |0 #
-<UE066> \xFE\xA9 |0 #
-<UE067> \xFE\xAA |0 #
-<UE068> \xFE\xAB |0 #
-<UE069> \xFE\xAC |0 #
-<UE06A> \xFE\xAD |0 #
-<UE06B> \xFE\xAE |0 #
-<UE06C> \xFE\xAF |0 #
-<UE06D> \xFE\xB0 |0 #
-<UE06E> \xFE\xB1 |0 #
-<UE06F> \xFE\xB2 |0 #
-<UE070> \xFE\xB3 |0 #
-<UE071> \xFE\xB4 |0 #
-<UE072> \xFE\xB5 |0 #
-<UE073> \xFE\xB6 |0 #
-<UE074> \xFE\xB7 |0 #
-<UE075> \xFE\xB8 |0 #
-<UE076> \xFE\xB9 |0 #
-<UE077> \xFE\xBA |0 #
-<UE078> \xFE\xBB |0 #
-<UE079> \xFE\xBC |0 #
-<UE07A> \xFE\xBD |0 #
-<UE07B> \xFE\xBE |0 #
-<UE07C> \xFE\xBF |0 #
-<UE07D> \xFE\xC0 |0 #
-<UE07E> \xFE\xC1 |0 #
-<UE07F> \xFE\xC2 |0 #
-<UE080> \xFE\xC3 |0 #
-<UE081> \xFE\xC4 |0 #
-<UE082> \xFE\xC5 |0 #
-<UE083> \xFE\xC6 |0 #
-<UE084> \xFE\xC7 |0 #
-<UE085> \xFE\xC8 |0 #
-<UE086> \xFE\xC9 |0 #
-<UE087> \xFE\xCA |0 #
-<UE088> \xFE\xCB |0 #
-<UE089> \xFE\xCC |0 #
-<UE08A> \xFE\xCD |0 #
-<UE08B> \xFE\xCE |0 #
-<UE08C> \xFE\xCF |0 #
-<UE08D> \xFE\xD0 |0 #
-<UE08E> \xFE\xD1 |0 #
-<UE08F> \xFE\xD2 |0 #
-<UE090> \xFE\xD3 |0 #
-<UE091> \xFE\xD4 |0 #
-<UE092> \xFE\xD5 |0 #
-<UE093> \xFE\xD6 |0 #
-<UE094> \xFE\xD7 |0 #
-<UE095> \xFE\xD8 |0 #
-<UE096> \xFE\xD9 |0 #
-<UE097> \xFE\xDA |0 #
-<UE098> \xFE\xDB |0 #
-<UE099> \xFE\xDC |0 #
-<UE09A> \xFE\xDD |0 #
-<UE09B> \xFE\xDE |0 #
-<UE09C> \xFE\xDF |0 #
-<UE09D> \xFE\xE0 |0 #
-<UE09E> \xFE\xE1 |0 #
-<UE09F> \xFE\xE2 |0 #
-<UE0A0> \xFE\xE3 |0 #
-<UE0A1> \xFE\xE4 |0 #
-<UE0A2> \xFE\xE5 |0 #
-<UE0A3> \xFE\xE6 |0 #
-<UE0A4> \xFE\xE7 |0 #
-<UE0A5> \xFE\xE8 |0 #
-<UE0A6> \xFE\xE9 |0 #
-<UE0A7> \xFE\xEA |0 #
-<UE0A8> \xFE\xEB |0 #
-<UE0A9> \xFE\xEC |0 #
-<UE0AA> \xFE\xED |0 #
-<UE0AB> \xFE\xEE |0 #
-<UE0AC> \xFE\xEF |0 #
-<UE0AD> \xFE\xF0 |0 #
-<UE0AE> \xFE\xF1 |0 #
-<UE0AF> \xFE\xF2 |0 #
-<UE0B0> \xFE\xF3 |0 #
-<UE0B1> \xFE\xF4 |0 #
-<UE0B2> \xFE\xF5 |0 #
-<UE0B3> \xFE\xF6 |0 #
-<UE0B4> \xFE\xF7 |0 #
-<UE0B5> \xFE\xF8 |0 #
-<UE0B6> \xFE\xF9 |0 #
-<UE0B7> \xFE\xFA |0 #
-<UE0B8> \xFE\xFB |0 #
-<UE0B9> \xFE\xFC |0 #
-<UE0BA> \xFE\xFD |0 #
-<UE0BB> \xFE\xFE |0 #
-<UF8F7> \xFF |0 #
-<UF900> \xCB\xD0 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF901> \xCB\xD6 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF902> \xCB\xE7 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF903> \xCD\xCF |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF904> \xCD\xE8 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF905> \xCE\xAD |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF906> \xCF\xFB |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF907> \xD0\xA2 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF908> \xD0\xB8 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF909> \xD0\xD0 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF90A> \xD0\xDD |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF90B> \xD1\xD4 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF90C> \xD1\xD5 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF90D> \xD1\xD8 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF90E> \xD1\xDB |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF90F> \xD1\xDC |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF910> \xD1\xDD |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF911> \xD1\xDE |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF912> \xD1\xDF |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF913> \xD1\xE0 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF914> \xD1\xE2 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF915> \xD1\xE3 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF916> \xD1\xE4 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF917> \xD1\xE5 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF918> \xD1\xE6 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF919> \xD1\xE8 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF91A> \xD1\xE9 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF91B> \xD1\xEA |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF91C> \xD1\xEB |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF91D> \xD1\xED |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF91E> \xD1\xEF |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF91F> \xD1\xF0 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF920> \xD1\xF2 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF921> \xD1\xF6 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF922> \xD1\xFA |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF923> \xD1\xFC |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF924> \xD1\xFD |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF925> \xD1\xFE |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF926> \xD2\xA2 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF927> \xD2\xA3 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF928> \xD2\xA7 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF929> \xD2\xA8 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF92A> \xD2\xA9 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF92B> \xD2\xAA |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF92C> \xD2\xAB |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF92D> \xD2\xAD |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF92E> \xD2\xB2 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF92F> \xD2\xBE |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF930> \xD2\xC2 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF931> \xD2\xC3 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF932> \xD2\xC4 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF933> \xD2\xC6 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF934> \xD2\xC7 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF935> \xD2\xC8 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF936> \xD2\xC9 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF937> \xD2\xCA |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF938> \xD2\xCB |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF939> \xD2\xCD |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF93A> \xD2\xCE |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF93B> \xD2\xCF |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF93C> \xD2\xD0 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF93D> \xD2\xD1 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF93E> \xD2\xD2 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF93F> \xD2\xD3 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF940> \xD2\xD4 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF941> \xD2\xD5 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF942> \xD2\xD6 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF943> \xD2\xD7 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF944> \xD2\xD9 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF945> \xD2\xDA |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF946> \xD2\xDE |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF947> \xD2\xDF |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF948> \xD2\xE1 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF949> \xD2\xE2 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF94A> \xD2\xE4 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF94B> \xD2\xE5 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF94C> \xD2\xE6 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF94D> \xD2\xE7 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF94E> \xD2\xE8 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF94F> \xD2\xE9 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF950> \xD2\xEA |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF951> \xD2\xEB |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF952> \xD2\xF0 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF953> \xD2\xF1 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF954> \xD2\xF2 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF955> \xD2\xF3 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF956> \xD2\xF4 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF957> \xD2\xF5 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF958> \xD2\xF7 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF959> \xD2\xF8 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF95A> \xD4\xE6 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF95B> \xD4\xFC |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF95C> \xD5\xA5 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF95D> \xD5\xAB |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF95E> \xD5\xAE |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF95F> \xD6\xB8 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF960> \xD6\xCD |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF961> \xD7\xCB |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF962> \xD7\xE4 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF963> \xDB\xC5 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF964> \xDB\xE4 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF965> \xDC\xA5 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF966> \xDD\xA5 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF967> \xDD\xD5 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF968> \xDD\xF4 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF969> \xDE\xFC |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF96A> \xDE\xFE |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF96B> \xDF\xB3 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF96C> \xDF\xE1 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF96D> \xDF\xE8 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF96E> \xE0\xF1 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF96F> \xE1\xAD |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF970> \xE1\xED |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF971> \xE3\xF5 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF972> \xE4\xA1 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF973> \xE4\xA9 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF974> \xE5\xAE |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF975> \xE5\xB1 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF976> \xE5\xB2 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF977> \xE5\xB9 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF978> \xE5\xBB |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF979> \xE5\xBC |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF97A> \xE5\xC4 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF97B> \xE5\xCE |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF97C> \xE5\xD0 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF97D> \xE5\xD2 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF97E> \xE5\xD6 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF97F> \xE5\xFA |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF980> \xE5\xFB |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF981> \xE5\xFC |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF982> \xE5\xFE |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF983> \xE6\xA1 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF984> \xE6\xA4 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF985> \xE6\xA7 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF986> \xE6\xAD |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF987> \xE6\xAF |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF988> \xE6\xB0 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF989> \xE6\xB1 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF98A> \xE6\xB3 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF98B> \xE6\xB7 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF98C> \xE6\xB8 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF98D> \xE6\xBC |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF98E> \xE6\xC4 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF98F> \xE6\xC6 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF990> \xE6\xC7 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF991> \xE6\xCA |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF992> \xE6\xD2 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF993> \xE6\xD6 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF994> \xE6\xD9 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF995> \xE6\xDC |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF996> \xE6\xDF |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF997> \xE6\xE1 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF998> \xE6\xE4 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF999> \xE6\xE5 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF99A> \xE6\xE6 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF99B> \xE6\xE8 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF99C> \xE6\xEA |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF99D> \xE6\xEB |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF99E> \xE6\xEC |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF99F> \xE6\xEF |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9A0> \xE6\xF1 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9A1> \xE6\xF2 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9A2> \xE6\xF5 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9A3> \xE6\xF6 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9A4> \xE6\xF7 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9A5> \xE6\xF9 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9A6> \xE7\xA1 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9A7> \xE7\xA6 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9A8> \xE7\xA9 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9A9> \xE7\xAA |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9AA> \xE7\xAC |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9AB> \xE7\xAD |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9AC> \xE7\xB0 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9AD> \xE7\xBF |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9AE> \xE7\xC1 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9AF> \xE7\xC6 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9B0> \xE7\xC7 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9B1> \xE7\xCB |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9B2> \xE7\xCD |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9B3> \xE7\xCF |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9B4> \xE7\xD0 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9B5> \xE7\xD3 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9B6> \xE7\xDF |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9B7> \xE7\xE4 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9B8> \xE7\xE6 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9B9> \xE7\xF7 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9BA> \xE8\xE7 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9BB> \xE8\xE8 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9BC> \xE8\xF0 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9BD> \xE8\xF1 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9BE> \xE8\xF7 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9BF> \xE8\xF9 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9C0> \xE8\xFB |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9C1> \xE8\xFE |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9C2> \xE9\xA7 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9C3> \xE9\xAC |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9C4> \xE9\xCC |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9C5> \xE9\xF7 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9C6> \xEA\xC1 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9C7> \xEA\xE5 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9C8> \xEA\xF4 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9C9> \xEA\xF7 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9CA> \xEA\xFC |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9CB> \xEA\xFE |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9CC> \xEB\xA4 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9CD> \xEB\xA7 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9CE> \xEB\xA9 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9CF> \xEB\xAA |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9D0> \xEB\xBA |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9D1> \xEB\xBB |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9D2> \xEB\xBD |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9D3> \xEB\xC1 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9D4> \xEB\xC2 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9D5> \xEB\xC6 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9D6> \xEB\xC7 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9D7> \xEB\xCC |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9D8> \xEB\xCF |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9D9> \xEB\xD0 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9DA> \xEB\xD1 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9DB> \xEB\xD2 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9DC> \xEB\xD8 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9DD> \xEC\xA6 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9DE> \xEC\xA7 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9DF> \xEC\xAA |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9E0> \xEC\xAF |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9E1> \xEC\xB0 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9E2> \xEC\xB1 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9E3> \xEC\xB2 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9E4> \xEC\xB5 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9E5> \xEC\xB8 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9E6> \xEC\xBA |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9E7> \xEC\xC0 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9E8> \xEC\xC1 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9E9> \xEC\xC5 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9EA> \xEC\xC6 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9EB> \xEC\xC9 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9EC> \xEC\xCA |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9ED> \xEC\xD5 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9EE> \xEC\xDD |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9EF> \xEC\xDE |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9F0> \xEC\xE1 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9F1> \xEC\xE4 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9F2> \xEC\xE7 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9F3> \xEC\xE8 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9F4> \xEC\xF7 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9F5> \xEC\xF8 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9F6> \xEC\xFA |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9F7> \xED\xA1 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9F8> \xED\xA2 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9F9> \xED\xA3 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9FA> \xED\xEE |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9FB> \xEE\xDB |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9FC> \xF2\xBD |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9FD> \xF2\xFA |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9FE> \xF3\xB1 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UF9FF> \xF4\xA7 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UFA00> \xF4\xEE |0 # CJK COMPATIBILITY IDEOGRAPH
-<UFA01> \xF6\xF4 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UFA02> \xF6\xF6 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UFA03> \xF7\xB8 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UFA04> \xF7\xC8 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UFA05> \xF7\xD3 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UFA06> \xF8\xDB |0 # CJK COMPATIBILITY IDEOGRAPH
-<UFA07> \xF8\xF0 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UFA08> \xFA\xA1 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UFA09> \xFA\xA2 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UFA0A> \xFA\xE6 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UFA0B> \xFC\xA9 |0 # CJK COMPATIBILITY IDEOGRAPH
-<UFA0C> \xE8\xB4 |1 # CJK COMPATIBILITY IDEOGRAPH-FA0C
-<UFA10> \xF5\xC0 |1 # CJK COMPATIBILITY IDEOGRAPH-FA10
-<UFA12> \xF4\xE7 |1 # CJK COMPATIBILITY IDEOGRAPH-FA12
-<UFA15> \xFD\xEB |1 # CJK COMPATIBILITY IDEOGRAPH-FA15
-<UFA17> \xEC\xCC |1 # CJK COMPATIBILITY IDEOGRAPH-FA17
-<UFA19> \xE3\xEA |1 # CJK COMPATIBILITY IDEOGRAPH-FA19
-<UFA1A> \xDF\xD4 |1 # CJK COMPATIBILITY IDEOGRAPH-FA1A
-<UFA1B> \xDC\xD8 |1 # CJK COMPATIBILITY IDEOGRAPH-FA1B
-<UFA1C> \xEF\xFE |1 # CJK COMPATIBILITY IDEOGRAPH-FA1C
-<UFA1D> \xEF\xF1 |1 # CJK COMPATIBILITY IDEOGRAPH-FA1D
-<UFA1E> \xE9\xE2 |1 # CJK COMPATIBILITY IDEOGRAPH-FA1E
-<UFA22> \xF0\xB3 |1 # CJK COMPATIBILITY IDEOGRAPH-FA22
-<UFA25> \xEC\xEF |1 # CJK COMPATIBILITY IDEOGRAPH-FA25
-<UFA26> \xD4\xB4 |1 # CJK COMPATIBILITY IDEOGRAPH-FA26
-<UFA2A> \xDA\xF9 |1 # CJK COMPATIBILITY IDEOGRAPH-FA2A
-<UFA2B> \xDE\xF8 |1 # CJK COMPATIBILITY IDEOGRAPH-FA2B
-<UFA2C> \xCE\xBD |1 # CJK COMPATIBILITY IDEOGRAPH-FA2C
-<UFA2D> \xF9\xCD |1 # CJK COMPATIBILITY IDEOGRAPH-FA2D
-<UFF01> \xA3\xA1 |0 # FULLWIDTH EXCLAMATION MARK
-<UFF02> \xA3\xA2 |0 # FULLWIDTH QUOTATION MARK
-<UFF03> \xA3\xA3 |0 # FULLWIDTH NUMBER SIGN
-<UFF04> \xA3\xA4 |0 # FULLWIDTH DOLLAR SIGN
-<UFF05> \xA3\xA5 |0 # FULLWIDTH PERCENT SIGN
-<UFF06> \xA3\xA6 |0 # FULLWIDTH AMPERSAND
-<UFF07> \xA3\xA7 |0 # FULLWIDTH APOSTROPHE
-<UFF08> \xA3\xA8 |0 # FULLWIDTH LEFT PARENTHESIS
-<UFF09> \xA3\xA9 |0 # FULLWIDTH RIGHT PARENTHESIS
-<UFF0A> \xA3\xAA |0 # FULLWIDTH ASTERISK
-<UFF0B> \xA3\xAB |0 # FULLWIDTH PLUS SIGN
-<UFF0C> \xA3\xAC |0 # FULLWIDTH COMMA
-<UFF0D> \xA3\xAD |0 # FULLWIDTH HYPHEN-MINUS
-<UFF0E> \xA3\xAE |0 # FULLWIDTH FULL STOP
-<UFF0F> \xA3\xAF |0 # FULLWIDTH SOLIDUS
-<UFF10> \xA3\xB0 |0 # FULLWIDTH DIGIT ZERO
-<UFF11> \xA3\xB1 |0 # FULLWIDTH DIGIT ONE
-<UFF12> \xA3\xB2 |0 # FULLWIDTH DIGIT TWO
-<UFF13> \xA3\xB3 |0 # FULLWIDTH DIGIT THREE
-<UFF14> \xA3\xB4 |0 # FULLWIDTH DIGIT FOUR
-<UFF15> \xA3\xB5 |0 # FULLWIDTH DIGIT FIVE
-<UFF16> \xA3\xB6 |0 # FULLWIDTH DIGIT SIX
-<UFF17> \xA3\xB7 |0 # FULLWIDTH DIGIT SEVEN
-<UFF18> \xA3\xB8 |0 # FULLWIDTH DIGIT EIGHT
-<UFF19> \xA3\xB9 |0 # FULLWIDTH DIGIT NINE
-<UFF1A> \xA3\xBA |0 # FULLWIDTH COLON
-<UFF1B> \xA3\xBB |0 # FULLWIDTH SEMICOLON
-<UFF1C> \xA3\xBC |0 # FULLWIDTH LESS-THAN SIGN
-<UFF1D> \xA3\xBD |0 # FULLWIDTH EQUALS SIGN
-<UFF1E> \xA3\xBE |0 # FULLWIDTH GREATER-THAN SIGN
-<UFF1F> \xA3\xBF |0 # FULLWIDTH QUESTION MARK
-<UFF20> \xA3\xC0 |0 # FULLWIDTH COMMERCIAL AT
-<UFF21> \xA3\xC1 |0 # FULLWIDTH LATIN CAPITAL LETTER A
-<UFF22> \xA3\xC2 |0 # FULLWIDTH LATIN CAPITAL LETTER B
-<UFF23> \xA3\xC3 |0 # FULLWIDTH LATIN CAPITAL LETTER C
-<UFF24> \xA3\xC4 |0 # FULLWIDTH LATIN CAPITAL LETTER D
-<UFF25> \xA3\xC5 |0 # FULLWIDTH LATIN CAPITAL LETTER E
-<UFF26> \xA3\xC6 |0 # FULLWIDTH LATIN CAPITAL LETTER F
-<UFF27> \xA3\xC7 |0 # FULLWIDTH LATIN CAPITAL LETTER G
-<UFF28> \xA3\xC8 |0 # FULLWIDTH LATIN CAPITAL LETTER H
-<UFF29> \xA3\xC9 |0 # FULLWIDTH LATIN CAPITAL LETTER I
-<UFF2A> \xA3\xCA |0 # FULLWIDTH LATIN CAPITAL LETTER J
-<UFF2B> \xA3\xCB |0 # FULLWIDTH LATIN CAPITAL LETTER K
-<UFF2C> \xA3\xCC |0 # FULLWIDTH LATIN CAPITAL LETTER L
-<UFF2D> \xA3\xCD |0 # FULLWIDTH LATIN CAPITAL LETTER M
-<UFF2E> \xA3\xCE |0 # FULLWIDTH LATIN CAPITAL LETTER N
-<UFF2F> \xA3\xCF |0 # FULLWIDTH LATIN CAPITAL LETTER O
-<UFF30> \xA3\xD0 |0 # FULLWIDTH LATIN CAPITAL LETTER P
-<UFF31> \xA3\xD1 |0 # FULLWIDTH LATIN CAPITAL LETTER Q
-<UFF32> \xA3\xD2 |0 # FULLWIDTH LATIN CAPITAL LETTER R
-<UFF33> \xA3\xD3 |0 # FULLWIDTH LATIN CAPITAL LETTER S
-<UFF34> \xA3\xD4 |0 # FULLWIDTH LATIN CAPITAL LETTER T
-<UFF35> \xA3\xD5 |0 # FULLWIDTH LATIN CAPITAL LETTER U
-<UFF36> \xA3\xD6 |0 # FULLWIDTH LATIN CAPITAL LETTER V
-<UFF37> \xA3\xD7 |0 # FULLWIDTH LATIN CAPITAL LETTER W
-<UFF38> \xA3\xD8 |0 # FULLWIDTH LATIN CAPITAL LETTER X
-<UFF39> \xA3\xD9 |0 # FULLWIDTH LATIN CAPITAL LETTER Y
-<UFF3A> \xA3\xDA |0 # FULLWIDTH LATIN CAPITAL LETTER Z
-<UFF3B> \xA3\xDB |0 # FULLWIDTH LEFT SQUARE BRACKET
-<UFF3C> \xA1\xAC |0 # FULLWIDTH REVERSE SOLIDUS
-<UFF3D> \xA3\xDD |0 # FULLWIDTH RIGHT SQUARE BRACKET
-<UFF3E> \xA3\xDE |0 # FULLWIDTH CIRCUMFLEX ACCENT
-<UFF3F> \xA3\xDF |0 # FULLWIDTH LOW LINE
-<UFF40> \xA3\xE0 |0 # FULLWIDTH GRAVE ACCENT
-<UFF41> \xA3\xE1 |0 # FULLWIDTH LATIN SMALL LETTER A
-<UFF42> \xA3\xE2 |0 # FULLWIDTH LATIN SMALL LETTER B
-<UFF43> \xA3\xE3 |0 # FULLWIDTH LATIN SMALL LETTER C
-<UFF44> \xA3\xE4 |0 # FULLWIDTH LATIN SMALL LETTER D
-<UFF45> \xA3\xE5 |0 # FULLWIDTH LATIN SMALL LETTER E
-<UFF46> \xA3\xE6 |0 # FULLWIDTH LATIN SMALL LETTER F
-<UFF47> \xA3\xE7 |0 # FULLWIDTH LATIN SMALL LETTER G
-<UFF48> \xA3\xE8 |0 # FULLWIDTH LATIN SMALL LETTER H
-<UFF49> \xA3\xE9 |0 # FULLWIDTH LATIN SMALL LETTER I
-<UFF4A> \xA3\xEA |0 # FULLWIDTH LATIN SMALL LETTER J
-<UFF4B> \xA3\xEB |0 # FULLWIDTH LATIN SMALL LETTER K
-<UFF4C> \xA3\xEC |0 # FULLWIDTH LATIN SMALL LETTER L
-<UFF4D> \xA3\xED |0 # FULLWIDTH LATIN SMALL LETTER M
-<UFF4E> \xA3\xEE |0 # FULLWIDTH LATIN SMALL LETTER N
-<UFF4F> \xA3\xEF |0 # FULLWIDTH LATIN SMALL LETTER O
-<UFF50> \xA3\xF0 |0 # FULLWIDTH LATIN SMALL LETTER P
-<UFF51> \xA3\xF1 |0 # FULLWIDTH LATIN SMALL LETTER Q
-<UFF52> \xA3\xF2 |0 # FULLWIDTH LATIN SMALL LETTER R
-<UFF53> \xA3\xF3 |0 # FULLWIDTH LATIN SMALL LETTER S
-<UFF54> \xA3\xF4 |0 # FULLWIDTH LATIN SMALL LETTER T
-<UFF55> \xA3\xF5 |0 # FULLWIDTH LATIN SMALL LETTER U
-<UFF56> \xA3\xF6 |0 # FULLWIDTH LATIN SMALL LETTER V
-<UFF57> \xA3\xF7 |0 # FULLWIDTH LATIN SMALL LETTER W
-<UFF58> \xA3\xF8 |0 # FULLWIDTH LATIN SMALL LETTER X
-<UFF59> \xA3\xF9 |0 # FULLWIDTH LATIN SMALL LETTER Y
-<UFF5A> \xA3\xFA |0 # FULLWIDTH LATIN SMALL LETTER Z
-<UFF5B> \xA3\xFB |0 # FULLWIDTH LEFT CURLY BRACKET
-<UFF5C> \xA3\xFC |0 # FULLWIDTH VERTICAL LINE
-<UFF5D> \xA3\xFD |0 # FULLWIDTH RIGHT CURLY BRACKET
-<UFF5E> \xA2\xA6 |0 # FULLWIDTH TILDE
-<UFFA0> \xA4\xD4 |1 # HALFWIDTH HANGUL FILLER
-<UFFA1> \xA4\xA1 |1 # HALFWIDTH HANGUL LETTER KIYEOK
-<UFFA2> \xA4\xA2 |1 # HALFWIDTH HANGUL LETTER SSANGKIYEOK
-<UFFA3> \xA4\xA3 |1 # HALFWIDTH HANGUL LETTER KIYEOK-SIOS
-<UFFA4> \xA4\xA4 |1 # HALFWIDTH HANGUL LETTER NIEUN
-<UFFA5> \xA4\xA5 |1 # HALFWIDTH HANGUL LETTER NIEUN-CIEUC
-<UFFA6> \xA4\xA6 |1 # HALFWIDTH HANGUL LETTER NIEUN-HIEUH
-<UFFA7> \xA4\xA7 |1 # HALFWIDTH HANGUL LETTER TIKEUT
-<UFFA8> \xA4\xA8 |1 # HALFWIDTH HANGUL LETTER SSANGTIKEUT
-<UFFA9> \xA4\xA9 |1 # HALFWIDTH HANGUL LETTER RIEUL
-<UFFAA> \xA4\xAA |1 # HALFWIDTH HANGUL LETTER RIEUL-KIYEOK
-<UFFAB> \xA4\xAB |1 # HALFWIDTH HANGUL LETTER RIEUL-MIEUM
-<UFFAC> \xA4\xAC |1 # HALFWIDTH HANGUL LETTER RIEUL-PIEUP
-<UFFAD> \xA4\xAD |1 # HALFWIDTH HANGUL LETTER RIEUL-SIOS
-<UFFAE> \xA4\xAE |1 # HALFWIDTH HANGUL LETTER RIEUL-THIEUTH
-<UFFAF> \xA4\xAF |1 # HALFWIDTH HANGUL LETTER RIEUL-PHIEUPH
-<UFFB0> \xA4\xB0 |1 # HALFWIDTH HANGUL LETTER RIEUL-HIEUH
-<UFFB1> \xA4\xB1 |1 # HALFWIDTH HANGUL LETTER MIEUM
-<UFFB2> \xA4\xB2 |1 # HALFWIDTH HANGUL LETTER PIEUP
-<UFFB3> \xA4\xB3 |1 # HALFWIDTH HANGUL LETTER SSANGPIEUP
-<UFFB4> \xA4\xB4 |1 # HALFWIDTH HANGUL LETTER PIEUP-SIOS
-<UFFB5> \xA4\xB5 |1 # HALFWIDTH HANGUL LETTER SIOS
-<UFFB6> \xA4\xB6 |1 # HALFWIDTH HANGUL LETTER SSANGSIOS
-<UFFB7> \xA4\xB7 |1 # HALFWIDTH HANGUL LETTER IEUNG
-<UFFB8> \xA4\xB8 |1 # HALFWIDTH HANGUL LETTER CIEUC
-<UFFB9> \xA4\xB9 |1 # HALFWIDTH HANGUL LETTER SSANGCIEUC
-<UFFBA> \xA4\xBA |1 # HALFWIDTH HANGUL LETTER CHIEUCH
-<UFFBB> \xA4\xBB |1 # HALFWIDTH HANGUL LETTER KHIEUKH
-<UFFBC> \xA4\xBC |1 # HALFWIDTH HANGUL LETTER THIEUTH
-<UFFBD> \xA4\xBD |1 # HALFWIDTH HANGUL LETTER PHIEUPH
-<UFFBE> \xA4\xBE |1 # HALFWIDTH HANGUL LETTER HIEUH
-<UFFC2> \xA4\xBF |1 # HALFWIDTH HANGUL LETTER A
-<UFFC3> \xA4\xC0 |1 # HALFWIDTH HANGUL LETTER AE
-<UFFC4> \xA4\xC1 |1 # HALFWIDTH HANGUL LETTER YA
-<UFFC5> \xA4\xC2 |1 # HALFWIDTH HANGUL LETTER YAE
-<UFFC6> \xA4\xC3 |1 # HALFWIDTH HANGUL LETTER EO
-<UFFC7> \xA4\xC4 |1 # HALFWIDTH HANGUL LETTER E
-<UFFCA> \xA4\xC5 |1 # HALFWIDTH HANGUL LETTER YEO
-<UFFCB> \xA4\xC6 |1 # HALFWIDTH HANGUL LETTER YE
-<UFFCC> \xA4\xC7 |1 # HALFWIDTH HANGUL LETTER O
-<UFFCD> \xA4\xC8 |1 # HALFWIDTH HANGUL LETTER WA
-<UFFCE> \xA4\xC9 |1 # HALFWIDTH HANGUL LETTER WAE
-<UFFCF> \xA4\xCA |1 # HALFWIDTH HANGUL LETTER OE
-<UFFD2> \xA4\xCB |1 # HALFWIDTH HANGUL LETTER YO
-<UFFD3> \xA4\xCC |1 # HALFWIDTH HANGUL LETTER U
-<UFFD4> \xA4\xCD |1 # HALFWIDTH HANGUL LETTER WEO
-<UFFD5> \xA4\xCE |1 # HALFWIDTH HANGUL LETTER WE
-<UFFD6> \xA4\xCF |1 # HALFWIDTH HANGUL LETTER WI
-<UFFD7> \xA4\xD0 |1 # HALFWIDTH HANGUL LETTER YU
-<UFFDA> \xA4\xD1 |1 # HALFWIDTH HANGUL LETTER EU
-<UFFDB> \xA4\xD2 |1 # HALFWIDTH HANGUL LETTER YI
-<UFFDC> \xA4\xD3 |1 # HALFWIDTH HANGUL LETTER I
-<UFFE0> \xA1\xCB |0 # FULLWIDTH CENT SIGN
-<UFFE1> \xA1\xCC |0 # FULLWIDTH POUND SIGN
-<UFFE2> \xA1\xFE |0 # FULLWIDTH NOT SIGN
-<UFFE3> \xA3\xFE |0 # FULLWIDTH MACRON
-<UFFE5> \xA1\xCD |0 # FULLWIDTH YEN SIGN
-<UFFE6> \xA3\xDC |0 # FULLWIDTH WON SIGN
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/euc-jp.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/euc-jp.ucm
deleted file mode 100644
index b12db47..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/euc-jp.ucm
+++ /dev/null
@@ -1,17481 +0,0 @@
-#
-# $Id: euc-jp.ucm,v 2.0 2004/05/16 20:55:23 dankogai Exp $
-#
-<code_set_name> "euc-jp"
-<mb_cur_min> 1
-<mb_cur_max> 3
-<subchar> \x3F
-#
-CHARMAP
-#
-# ASCII
-#
-<U0000> \x00 |0 # NULL
-<U0001> \x01 |0 # START OF HEADING
-<U0002> \x02 |0 # START OF TEXT
-<U0003> \x03 |0 # END OF TEXT
-<U0004> \x04 |0 # END OF TRANSMISSION
-<U0005> \x05 |0 # ENQUIRY
-<U0006> \x06 |0 # ACKNOWLEDGE
-<U0007> \x07 |0 # BELL
-<U0008> \x08 |0 # BACKSPACE
-<U0009> \x09 |0 # CHARACTER TABULATION
-<U000A> \x0A |0 # LINE FEED (LF)
-<U000B> \x0B |0 # LINE TABULATION
-<U000C> \x0C |0 # FORM FEED (FF)
-<U000D> \x0D |0 # CARRIAGE RETURN (CR)
-<U000E> \x0E |0 # SHIFT OUT
-<U000F> \x0F |0 # SHIFT IN
-<U0010> \x10 |0 # DATA LINK ESCAPE
-<U0011> \x11 |0 # DEVICE CONTROL ONE
-<U0012> \x12 |0 # DEVICE CONTROL TWO
-<U0013> \x13 |0 # DEVICE CONTROL THREE
-<U0014> \x14 |0 # DEVICE CONTROL FOUR
-<U0015> \x15 |0 # NEGATIVE ACKNOWLEDGE
-<U0016> \x16 |0 # SYNCHRONOUS IDLE
-<U0017> \x17 |0 # END OF TRANSMISSION BLOCK
-<U0018> \x18 |0 # CANCEL
-<U0019> \x19 |0 # END OF MEDIUM
-<U001A> \x1A |0 # SUBSTITUTE
-<U001B> \x1B |0 # ESCAPE
-<U001C> \x1C |0 # INFORMATION SEPARATOR FOUR
-<U001D> \x1D |0 # INFORMATION SEPARATOR THREE
-<U001E> \x1E |0 # INFORMATION SEPARATOR TWO
-<U001F> \x1F |0 # INFORMATION SEPARATOR ONE
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002A> \x2A |0 # ASTERISK
-<U002B> \x2B |0 # PLUS SIGN
-<U002C> \x2C |0 # COMMA
-<U002D> \x2D |0 # HYPHEN-MINUS
-<U002E> \x2E |0 # FULL STOP
-<U002F> \x2F |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003A> \x3A |0 # COLON
-<U003B> \x3B |0 # SEMICOLON
-<U003C> \x3C |0 # LESS-THAN SIGN
-<U003D> \x3D |0 # EQUALS SIGN
-<U003E> \x3E |0 # GREATER-THAN SIGN
-<U003F> \x3F |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004A> \x4A |0 # LATIN CAPITAL LETTER J
-<U004B> \x4B |0 # LATIN CAPITAL LETTER K
-<U004C> \x4C |0 # LATIN CAPITAL LETTER L
-<U004D> \x4D |0 # LATIN CAPITAL LETTER M
-<U004E> \x4E |0 # LATIN CAPITAL LETTER N
-<U004F> \x4F |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005A> \x5A |0 # LATIN CAPITAL LETTER Z
-<U005B> \x5B |0 # LEFT SQUARE BRACKET
-<U005C> \x5C |0 # REVERSE SOLIDUS
-<U005D> \x5D |0 # RIGHT SQUARE BRACKET
-<U005E> \x5E |0 # CIRCUMFLEX ACCENT
-<U005F> \x5F |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006A> \x6A |0 # LATIN SMALL LETTER J
-<U006B> \x6B |0 # LATIN SMALL LETTER K
-<U006C> \x6C |0 # LATIN SMALL LETTER L
-<U006D> \x6D |0 # LATIN SMALL LETTER M
-<U006E> \x6E |0 # LATIN SMALL LETTER N
-<U006F> \x6F |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007A> \x7A |0 # LATIN SMALL LETTER Z
-<U007B> \x7B |0 # LEFT CURLY BRACKET
-<U007C> \x7C |0 # VERTICAL LINE
-<U007D> \x7D |0 # RIGHT CURLY BRACKET
-<U007E> \x7E |0 # TILDE
-<U007F> \x7F |0 # DELETE
-#
-# JIS X 0201 Kana
-#
-<UFF61> \x8E\xA1 |0 # HALFWIDTH IDEOGRAPHIC FULL STOP
-<UFF62> \x8E\xA2 |0 # HALFWIDTH LEFT CORNER BRACKET
-<UFF63> \x8E\xA3 |0 # HALFWIDTH RIGHT CORNER BRACKET
-<UFF64> \x8E\xA4 |0 # HALFWIDTH IDEOGRAPHIC COMMA
-<UFF65> \x8E\xA5 |0 # HALFWIDTH KATAKANA MIDDLE DOT
-<UFF66> \x8E\xA6 |0 # HALFWIDTH KATAKANA LETTER WO
-<UFF67> \x8E\xA7 |0 # HALFWIDTH KATAKANA LETTER SMALL A
-<UFF68> \x8E\xA8 |0 # HALFWIDTH KATAKANA LETTER SMALL I
-<UFF69> \x8E\xA9 |0 # HALFWIDTH KATAKANA LETTER SMALL U
-<UFF6A> \x8E\xAA |0 # HALFWIDTH KATAKANA LETTER SMALL E
-<UFF6B> \x8E\xAB |0 # HALFWIDTH KATAKANA LETTER SMALL O
-<UFF6C> \x8E\xAC |0 # HALFWIDTH KATAKANA LETTER SMALL YA
-<UFF6D> \x8E\xAD |0 # HALFWIDTH KATAKANA LETTER SMALL YU
-<UFF6E> \x8E\xAE |0 # HALFWIDTH KATAKANA LETTER SMALL YO
-<UFF6F> \x8E\xAF |0 # HALFWIDTH KATAKANA LETTER SMALL TU
-<UFF70> \x8E\xB0 |0 # HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK
-<UFF71> \x8E\xB1 |0 # HALFWIDTH KATAKANA LETTER A
-<UFF72> \x8E\xB2 |0 # HALFWIDTH KATAKANA LETTER I
-<UFF73> \x8E\xB3 |0 # HALFWIDTH KATAKANA LETTER U
-<UFF74> \x8E\xB4 |0 # HALFWIDTH KATAKANA LETTER E
-<UFF75> \x8E\xB5 |0 # HALFWIDTH KATAKANA LETTER O
-<UFF76> \x8E\xB6 |0 # HALFWIDTH KATAKANA LETTER KA
-<UFF77> \x8E\xB7 |0 # HALFWIDTH KATAKANA LETTER KI
-<UFF78> \x8E\xB8 |0 # HALFWIDTH KATAKANA LETTER KU
-<UFF79> \x8E\xB9 |0 # HALFWIDTH KATAKANA LETTER KE
-<UFF7A> \x8E\xBA |0 # HALFWIDTH KATAKANA LETTER KO
-<UFF7B> \x8E\xBB |0 # HALFWIDTH KATAKANA LETTER SA
-<UFF7C> \x8E\xBC |0 # HALFWIDTH KATAKANA LETTER SI
-<UFF7D> \x8E\xBD |0 # HALFWIDTH KATAKANA LETTER SU
-<UFF7E> \x8E\xBE |0 # HALFWIDTH KATAKANA LETTER SE
-<UFF7F> \x8E\xBF |0 # HALFWIDTH KATAKANA LETTER SO
-<UFF80> \x8E\xC0 |0 # HALFWIDTH KATAKANA LETTER TA
-<UFF81> \x8E\xC1 |0 # HALFWIDTH KATAKANA LETTER TI
-<UFF82> \x8E\xC2 |0 # HALFWIDTH KATAKANA LETTER TU
-<UFF83> \x8E\xC3 |0 # HALFWIDTH KATAKANA LETTER TE
-<UFF84> \x8E\xC4 |0 # HALFWIDTH KATAKANA LETTER TO
-<UFF85> \x8E\xC5 |0 # HALFWIDTH KATAKANA LETTER NA
-<UFF86> \x8E\xC6 |0 # HALFWIDTH KATAKANA LETTER NI
-<UFF87> \x8E\xC7 |0 # HALFWIDTH KATAKANA LETTER NU
-<UFF88> \x8E\xC8 |0 # HALFWIDTH KATAKANA LETTER NE
-<UFF89> \x8E\xC9 |0 # HALFWIDTH KATAKANA LETTER NO
-<UFF8A> \x8E\xCA |0 # HALFWIDTH KATAKANA LETTER HA
-<UFF8B> \x8E\xCB |0 # HALFWIDTH KATAKANA LETTER HI
-<UFF8C> \x8E\xCC |0 # HALFWIDTH KATAKANA LETTER HU
-<UFF8D> \x8E\xCD |0 # HALFWIDTH KATAKANA LETTER HE
-<UFF8E> \x8E\xCE |0 # HALFWIDTH KATAKANA LETTER HO
-<UFF8F> \x8E\xCF |0 # HALFWIDTH KATAKANA LETTER MA
-<UFF90> \x8E\xD0 |0 # HALFWIDTH KATAKANA LETTER MI
-<UFF91> \x8E\xD1 |0 # HALFWIDTH KATAKANA LETTER MU
-<UFF92> \x8E\xD2 |0 # HALFWIDTH KATAKANA LETTER ME
-<UFF93> \x8E\xD3 |0 # HALFWIDTH KATAKANA LETTER MO
-<UFF94> \x8E\xD4 |0 # HALFWIDTH KATAKANA LETTER YA
-<UFF95> \x8E\xD5 |0 # HALFWIDTH KATAKANA LETTER YU
-<UFF96> \x8E\xD6 |0 # HALFWIDTH KATAKANA LETTER YO
-<UFF97> \x8E\xD7 |0 # HALFWIDTH KATAKANA LETTER RA
-<UFF98> \x8E\xD8 |0 # HALFWIDTH KATAKANA LETTER RI
-<UFF99> \x8E\xD9 |0 # HALFWIDTH KATAKANA LETTER RU
-<UFF9A> \x8E\xDA |0 # HALFWIDTH KATAKANA LETTER RE
-<UFF9B> \x8E\xDB |0 # HALFWIDTH KATAKANA LETTER RO
-<UFF9C> \x8E\xDC |0 # HALFWIDTH KATAKANA LETTER WA
-<UFF9D> \x8E\xDD |0 # HALFWIDTH KATAKANA LETTER N
-<UFF9E> \x8E\xDE |0 # HALFWIDTH KATAKANA VOICED SOUND MARK
-<UFF9F> \x8E\xDF |0 # HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK
-#
-# JIS X 0208:1990
-#
-<U3000> \xA1\xA1 |0 # IDEOGRAPHIC SPACE
-<U3001> \xA1\xA2 |0 # IDEOGRAPHIC COMMA
-<U3002> \xA1\xA3 |0 # IDEOGRAPHIC FULL STOP
-<UFF0C> \xA1\xA4 |0 # FULLWIDTH COMMA
-<UFF0E> \xA1\xA5 |0 # FULLWIDTH FULL STOP
-<U30FB> \xA1\xA6 |0 # KATAKANA MIDDLE DOT
-<UFF1A> \xA1\xA7 |0 # FULLWIDTH COLON
-<UFF1B> \xA1\xA8 |0 # FULLWIDTH SEMICOLON
-<UFF1F> \xA1\xA9 |0 # FULLWIDTH QUESTION MARK
-<UFF01> \xA1\xAA |0 # FULLWIDTH EXCLAMATION MARK
-<U309B> \xA1\xAB |0 # KATAKANA-HIRAGANA VOICED SOUND MARK
-<U309C> \xA1\xAC |0 # KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK
-<U00B4> \xA1\xAD |0 # ACUTE ACCENT
-<UFF40> \xA1\xAE |0 # FULLWIDTH GRAVE ACCENT
-<U00A8> \xA1\xAF |0 # DIAERESIS
-<UFF3E> \xA1\xB0 |0 # FULLWIDTH CIRCUMFLEX ACCENT
-<UFFE3> \xA1\xB1 |0 # FULLWIDTH MACRON
-<UFF3F> \xA1\xB2 |0 # FULLWIDTH LOW LINE
-<U30FD> \xA1\xB3 |0 # KATAKANA ITERATION MARK
-<U30FE> \xA1\xB4 |0 # KATAKANA VOICED ITERATION MARK
-<U309D> \xA1\xB5 |0 # HIRAGANA ITERATION MARK
-<U309E> \xA1\xB6 |0 # HIRAGANA VOICED ITERATION MARK
-<U3003> \xA1\xB7 |0 # DITTO MARK
-<U4EDD> \xA1\xB8 |0 # CJK Ideograph
-<U3005> \xA1\xB9 |0 # IDEOGRAPHIC ITERATION MARK
-<U3006> \xA1\xBA |0 # IDEOGRAPHIC CLOSING MARK
-<U3007> \xA1\xBB |0 # IDEOGRAPHIC NUMBER ZERO
-<U30FC> \xA1\xBC |0 # KATAKANA-HIRAGANA PROLONGED SOUND MARK
-<U2015> \xA1\xBD |0 # HORIZONTAL BAR
-<U2010> \xA1\xBE |0 # HYPHEN
-<UFF0F> \xA1\xBF |0 # FULLWIDTH SOLIDUS
-<UFF3C> \xA1\xC0 |0 # FULLWIDTH REVERSE SOLIDUS
-<U301C> \xA1\xC1 |0 # WAVE DASH
-<U2016> \xA1\xC2 |0 # DOUBLE VERTICAL LINE
-<UFF5C> \xA1\xC3 |0 # FULLWIDTH VERTICAL LINE
-<U2026> \xA1\xC4 |0 # HORIZONTAL ELLIPSIS
-<U2025> \xA1\xC5 |0 # TWO DOT LEADER
-<U2018> \xA1\xC6 |0 # LEFT SINGLE QUOTATION MARK
-<U2019> \xA1\xC7 |0 # RIGHT SINGLE QUOTATION MARK
-<U201C> \xA1\xC8 |0 # LEFT DOUBLE QUOTATION MARK
-<U201D> \xA1\xC9 |0 # RIGHT DOUBLE QUOTATION MARK
-<UFF08> \xA1\xCA |0 # FULLWIDTH LEFT PARENTHESIS
-<UFF09> \xA1\xCB |0 # FULLWIDTH RIGHT PARENTHESIS
-<U3014> \xA1\xCC |0 # LEFT TORTOISE SHELL BRACKET
-<U3015> \xA1\xCD |0 # RIGHT TORTOISE SHELL BRACKET
-<UFF3B> \xA1\xCE |0 # FULLWIDTH LEFT SQUARE BRACKET
-<UFF3D> \xA1\xCF |0 # FULLWIDTH RIGHT SQUARE BRACKET
-<UFF5B> \xA1\xD0 |0 # FULLWIDTH LEFT CURLY BRACKET
-<UFF5D> \xA1\xD1 |0 # FULLWIDTH RIGHT CURLY BRACKET
-<U3008> \xA1\xD2 |0 # LEFT ANGLE BRACKET
-<U3009> \xA1\xD3 |0 # RIGHT ANGLE BRACKET
-<U300A> \xA1\xD4 |0 # LEFT DOUBLE ANGLE BRACKET
-<U300B> \xA1\xD5 |0 # RIGHT DOUBLE ANGLE BRACKET
-<U300C> \xA1\xD6 |0 # LEFT CORNER BRACKET
-<U300D> \xA1\xD7 |0 # RIGHT CORNER BRACKET
-<U300E> \xA1\xD8 |0 # LEFT WHITE CORNER BRACKET
-<U300F> \xA1\xD9 |0 # RIGHT WHITE CORNER BRACKET
-<U3010> \xA1\xDA |0 # LEFT BLACK LENTICULAR BRACKET
-<U3011> \xA1\xDB |0 # RIGHT BLACK LENTICULAR BRACKET
-<UFF0B> \xA1\xDC |0 # FULLWIDTH PLUS SIGN
-<U2212> \xA1\xDD |0 # MINUS SIGN
-<U00B1> \xA1\xDE |0 # PLUS-MINUS SIGN
-<U00D7> \xA1\xDF |0 # MULTIPLICATION SIGN
-<U00F7> \xA1\xE0 |0 # DIVISION SIGN
-<UFF1D> \xA1\xE1 |0 # FULLWIDTH EQUALS SIGN
-<U2260> \xA1\xE2 |0 # NOT EQUAL TO
-<UFF1C> \xA1\xE3 |0 # FULLWIDTH LESS-THAN SIGN
-<UFF1E> \xA1\xE4 |0 # FULLWIDTH GREATER-THAN SIGN
-<U2266> \xA1\xE5 |0 # LESS-THAN OVER EQUAL TO
-<U2267> \xA1\xE6 |0 # GREATER-THAN OVER EQUAL TO
-<U221E> \xA1\xE7 |0 # INFINITY
-<U2234> \xA1\xE8 |0 # THEREFORE
-<U2642> \xA1\xE9 |0 # MALE SIGN
-<U2640> \xA1\xEA |0 # FEMALE SIGN
-<U00B0> \xA1\xEB |0 # DEGREE SIGN
-<U2032> \xA1\xEC |0 # PRIME
-<U2033> \xA1\xED |0 # DOUBLE PRIME
-<U2103> \xA1\xEE |0 # DEGREE CELSIUS
-<UFFE5> \xA1\xEF |0 # FULLWIDTH YEN SIGN
-<UFF04> \xA1\xF0 |0 # FULLWIDTH DOLLAR SIGN
-<U00A2> \xA1\xF1 |0 # CENT SIGN
-<U00A3> \xA1\xF2 |0 # POUND SIGN
-<UFF05> \xA1\xF3 |0 # FULLWIDTH PERCENT SIGN
-<UFF03> \xA1\xF4 |0 # FULLWIDTH NUMBER SIGN
-<UFF06> \xA1\xF5 |0 # FULLWIDTH AMPERSAND
-<UFF0A> \xA1\xF6 |0 # FULLWIDTH ASTERISK
-<UFF20> \xA1\xF7 |0 # FULLWIDTH COMMERCIAL AT
-<U00A7> \xA1\xF8 |0 # SECTION SIGN
-<U2606> \xA1\xF9 |0 # WHITE STAR
-<U2605> \xA1\xFA |0 # BLACK STAR
-<U25CB> \xA1\xFB |0 # WHITE CIRCLE
-<U25CF> \xA1\xFC |0 # BLACK CIRCLE
-<U25CE> \xA1\xFD |0 # BULLSEYE
-<U25C7> \xA1\xFE |0 # WHITE DIAMOND
-<U25C6> \xA2\xA1 |0 # BLACK DIAMOND
-<U25A1> \xA2\xA2 |0 # WHITE SQUARE
-<U25A0> \xA2\xA3 |0 # BLACK SQUARE
-<U25B3> \xA2\xA4 |0 # WHITE UP-POINTING TRIANGLE
-<U25B2> \xA2\xA5 |0 # BLACK UP-POINTING TRIANGLE
-<U25BD> \xA2\xA6 |0 # WHITE DOWN-POINTING TRIANGLE
-<U25BC> \xA2\xA7 |0 # BLACK DOWN-POINTING TRIANGLE
-<U203B> \xA2\xA8 |0 # REFERENCE MARK
-<U3012> \xA2\xA9 |0 # POSTAL MARK
-<U2192> \xA2\xAA |0 # RIGHTWARDS ARROW
-<U2190> \xA2\xAB |0 # LEFTWARDS ARROW
-<U2191> \xA2\xAC |0 # UPWARDS ARROW
-<U2193> \xA2\xAD |0 # DOWNWARDS ARROW
-<U3013> \xA2\xAE |0 # GETA MARK
-<U2208> \xA2\xBA |0 # ELEMENT OF
-<U220B> \xA2\xBB |0 # CONTAINS AS MEMBER
-<U2286> \xA2\xBC |0 # SUBSET OF OR EQUAL TO
-<U2287> \xA2\xBD |0 # SUPERSET OF OR EQUAL TO
-<U2282> \xA2\xBE |0 # SUBSET OF
-<U2283> \xA2\xBF |0 # SUPERSET OF
-<U222A> \xA2\xC0 |0 # UNION
-<U2229> \xA2\xC1 |0 # INTERSECTION
-<U2227> \xA2\xCA |0 # LOGICAL AND
-<U2228> \xA2\xCB |0 # LOGICAL OR
-<U00AC> \xA2\xCC |0 # NOT SIGN
-<U21D2> \xA2\xCD |0 # RIGHTWARDS DOUBLE ARROW
-<U21D4> \xA2\xCE |0 # LEFT RIGHT DOUBLE ARROW
-<U2200> \xA2\xCF |0 # FOR ALL
-<U2203> \xA2\xD0 |0 # THERE EXISTS
-<U2220> \xA2\xDC |0 # ANGLE
-<U22A5> \xA2\xDD |0 # UP TACK
-<U2312> \xA2\xDE |0 # ARC
-<U2202> \xA2\xDF |0 # PARTIAL DIFFERENTIAL
-<U2207> \xA2\xE0 |0 # NABLA
-<U2261> \xA2\xE1 |0 # IDENTICAL TO
-<U2252> \xA2\xE2 |0 # APPROXIMATELY EQUAL TO OR THE IMAGE OF
-<U226A> \xA2\xE3 |0 # MUCH LESS-THAN
-<U226B> \xA2\xE4 |0 # MUCH GREATER-THAN
-<U221A> \xA2\xE5 |0 # SQUARE ROOT
-<U223D> \xA2\xE6 |0 # REVERSED TILDE
-<U221D> \xA2\xE7 |0 # PROPORTIONAL TO
-<U2235> \xA2\xE8 |0 # BECAUSE
-<U222B> \xA2\xE9 |0 # INTEGRAL
-<U222C> \xA2\xEA |0 # DOUBLE INTEGRAL
-<U212B> \xA2\xF2 |0 # ANGSTROM SIGN
-<U2030> \xA2\xF3 |0 # PER MILLE SIGN
-<U266F> \xA2\xF4 |0 # MUSIC SHARP SIGN
-<U266D> \xA2\xF5 |0 # MUSIC FLAT SIGN
-<U266A> \xA2\xF6 |0 # EIGHTH NOTE
-<U2020> \xA2\xF7 |0 # DAGGER
-<U2021> \xA2\xF8 |0 # DOUBLE DAGGER
-<U00B6> \xA2\xF9 |0 # PILCROW SIGN
-<U25EF> \xA2\xFE |0 # LARGE CIRCLE
-<UFF10> \xA3\xB0 |0 # FULLWIDTH DIGIT ZERO
-<UFF11> \xA3\xB1 |0 # FULLWIDTH DIGIT ONE
-<UFF12> \xA3\xB2 |0 # FULLWIDTH DIGIT TWO
-<UFF13> \xA3\xB3 |0 # FULLWIDTH DIGIT THREE
-<UFF14> \xA3\xB4 |0 # FULLWIDTH DIGIT FOUR
-<UFF15> \xA3\xB5 |0 # FULLWIDTH DIGIT FIVE
-<UFF16> \xA3\xB6 |0 # FULLWIDTH DIGIT SIX
-<UFF17> \xA3\xB7 |0 # FULLWIDTH DIGIT SEVEN
-<UFF18> \xA3\xB8 |0 # FULLWIDTH DIGIT EIGHT
-<UFF19> \xA3\xB9 |0 # FULLWIDTH DIGIT NINE
-<UFF21> \xA3\xC1 |0 # FULLWIDTH LATIN CAPITAL LETTER A
-<UFF22> \xA3\xC2 |0 # FULLWIDTH LATIN CAPITAL LETTER B
-<UFF23> \xA3\xC3 |0 # FULLWIDTH LATIN CAPITAL LETTER C
-<UFF24> \xA3\xC4 |0 # FULLWIDTH LATIN CAPITAL LETTER D
-<UFF25> \xA3\xC5 |0 # FULLWIDTH LATIN CAPITAL LETTER E
-<UFF26> \xA3\xC6 |0 # FULLWIDTH LATIN CAPITAL LETTER F
-<UFF27> \xA3\xC7 |0 # FULLWIDTH LATIN CAPITAL LETTER G
-<UFF28> \xA3\xC8 |0 # FULLWIDTH LATIN CAPITAL LETTER H
-<UFF29> \xA3\xC9 |0 # FULLWIDTH LATIN CAPITAL LETTER I
-<UFF2A> \xA3\xCA |0 # FULLWIDTH LATIN CAPITAL LETTER J
-<UFF2B> \xA3\xCB |0 # FULLWIDTH LATIN CAPITAL LETTER K
-<UFF2C> \xA3\xCC |0 # FULLWIDTH LATIN CAPITAL LETTER L
-<UFF2D> \xA3\xCD |0 # FULLWIDTH LATIN CAPITAL LETTER M
-<UFF2E> \xA3\xCE |0 # FULLWIDTH LATIN CAPITAL LETTER N
-<UFF2F> \xA3\xCF |0 # FULLWIDTH LATIN CAPITAL LETTER O
-<UFF30> \xA3\xD0 |0 # FULLWIDTH LATIN CAPITAL LETTER P
-<UFF31> \xA3\xD1 |0 # FULLWIDTH LATIN CAPITAL LETTER Q
-<UFF32> \xA3\xD2 |0 # FULLWIDTH LATIN CAPITAL LETTER R
-<UFF33> \xA3\xD3 |0 # FULLWIDTH LATIN CAPITAL LETTER S
-<UFF34> \xA3\xD4 |0 # FULLWIDTH LATIN CAPITAL LETTER T
-<UFF35> \xA3\xD5 |0 # FULLWIDTH LATIN CAPITAL LETTER U
-<UFF36> \xA3\xD6 |0 # FULLWIDTH LATIN CAPITAL LETTER V
-<UFF37> \xA3\xD7 |0 # FULLWIDTH LATIN CAPITAL LETTER W
-<UFF38> \xA3\xD8 |0 # FULLWIDTH LATIN CAPITAL LETTER X
-<UFF39> \xA3\xD9 |0 # FULLWIDTH LATIN CAPITAL LETTER Y
-<UFF3A> \xA3\xDA |0 # FULLWIDTH LATIN CAPITAL LETTER Z
-<UFF41> \xA3\xE1 |0 # FULLWIDTH LATIN SMALL LETTER A
-<UFF42> \xA3\xE2 |0 # FULLWIDTH LATIN SMALL LETTER B
-<UFF43> \xA3\xE3 |0 # FULLWIDTH LATIN SMALL LETTER C
-<UFF44> \xA3\xE4 |0 # FULLWIDTH LATIN SMALL LETTER D
-<UFF45> \xA3\xE5 |0 # FULLWIDTH LATIN SMALL LETTER E
-<UFF46> \xA3\xE6 |0 # FULLWIDTH LATIN SMALL LETTER F
-<UFF47> \xA3\xE7 |0 # FULLWIDTH LATIN SMALL LETTER G
-<UFF48> \xA3\xE8 |0 # FULLWIDTH LATIN SMALL LETTER H
-<UFF49> \xA3\xE9 |0 # FULLWIDTH LATIN SMALL LETTER I
-<UFF4A> \xA3\xEA |0 # FULLWIDTH LATIN SMALL LETTER J
-<UFF4B> \xA3\xEB |0 # FULLWIDTH LATIN SMALL LETTER K
-<UFF4C> \xA3\xEC |0 # FULLWIDTH LATIN SMALL LETTER L
-<UFF4D> \xA3\xED |0 # FULLWIDTH LATIN SMALL LETTER M
-<UFF4E> \xA3\xEE |0 # FULLWIDTH LATIN SMALL LETTER N
-<UFF4F> \xA3\xEF |0 # FULLWIDTH LATIN SMALL LETTER O
-<UFF50> \xA3\xF0 |0 # FULLWIDTH LATIN SMALL LETTER P
-<UFF51> \xA3\xF1 |0 # FULLWIDTH LATIN SMALL LETTER Q
-<UFF52> \xA3\xF2 |0 # FULLWIDTH LATIN SMALL LETTER R
-<UFF53> \xA3\xF3 |0 # FULLWIDTH LATIN SMALL LETTER S
-<UFF54> \xA3\xF4 |0 # FULLWIDTH LATIN SMALL LETTER T
-<UFF55> \xA3\xF5 |0 # FULLWIDTH LATIN SMALL LETTER U
-<UFF56> \xA3\xF6 |0 # FULLWIDTH LATIN SMALL LETTER V
-<UFF57> \xA3\xF7 |0 # FULLWIDTH LATIN SMALL LETTER W
-<UFF58> \xA3\xF8 |0 # FULLWIDTH LATIN SMALL LETTER X
-<UFF59> \xA3\xF9 |0 # FULLWIDTH LATIN SMALL LETTER Y
-<UFF5A> \xA3\xFA |0 # FULLWIDTH LATIN SMALL LETTER Z
-<U3041> \xA4\xA1 |0 # HIRAGANA LETTER SMALL A
-<U3042> \xA4\xA2 |0 # HIRAGANA LETTER A
-<U3043> \xA4\xA3 |0 # HIRAGANA LETTER SMALL I
-<U3044> \xA4\xA4 |0 # HIRAGANA LETTER I
-<U3045> \xA4\xA5 |0 # HIRAGANA LETTER SMALL U
-<U3046> \xA4\xA6 |0 # HIRAGANA LETTER U
-<U3047> \xA4\xA7 |0 # HIRAGANA LETTER SMALL E
-<U3048> \xA4\xA8 |0 # HIRAGANA LETTER E
-<U3049> \xA4\xA9 |0 # HIRAGANA LETTER SMALL O
-<U304A> \xA4\xAA |0 # HIRAGANA LETTER O
-<U304B> \xA4\xAB |0 # HIRAGANA LETTER KA
-<U304C> \xA4\xAC |0 # HIRAGANA LETTER GA
-<U304D> \xA4\xAD |0 # HIRAGANA LETTER KI
-<U304E> \xA4\xAE |0 # HIRAGANA LETTER GI
-<U304F> \xA4\xAF |0 # HIRAGANA LETTER KU
-<U3050> \xA4\xB0 |0 # HIRAGANA LETTER GU
-<U3051> \xA4\xB1 |0 # HIRAGANA LETTER KE
-<U3052> \xA4\xB2 |0 # HIRAGANA LETTER GE
-<U3053> \xA4\xB3 |0 # HIRAGANA LETTER KO
-<U3054> \xA4\xB4 |0 # HIRAGANA LETTER GO
-<U3055> \xA4\xB5 |0 # HIRAGANA LETTER SA
-<U3056> \xA4\xB6 |0 # HIRAGANA LETTER ZA
-<U3057> \xA4\xB7 |0 # HIRAGANA LETTER SI
-<U3058> \xA4\xB8 |0 # HIRAGANA LETTER ZI
-<U3059> \xA4\xB9 |0 # HIRAGANA LETTER SU
-<U305A> \xA4\xBA |0 # HIRAGANA LETTER ZU
-<U305B> \xA4\xBB |0 # HIRAGANA LETTER SE
-<U305C> \xA4\xBC |0 # HIRAGANA LETTER ZE
-<U305D> \xA4\xBD |0 # HIRAGANA LETTER SO
-<U305E> \xA4\xBE |0 # HIRAGANA LETTER ZO
-<U305F> \xA4\xBF |0 # HIRAGANA LETTER TA
-<U3060> \xA4\xC0 |0 # HIRAGANA LETTER DA
-<U3061> \xA4\xC1 |0 # HIRAGANA LETTER TI
-<U3062> \xA4\xC2 |0 # HIRAGANA LETTER DI
-<U3063> \xA4\xC3 |0 # HIRAGANA LETTER SMALL TU
-<U3064> \xA4\xC4 |0 # HIRAGANA LETTER TU
-<U3065> \xA4\xC5 |0 # HIRAGANA LETTER DU
-<U3066> \xA4\xC6 |0 # HIRAGANA LETTER TE
-<U3067> \xA4\xC7 |0 # HIRAGANA LETTER DE
-<U3068> \xA4\xC8 |0 # HIRAGANA LETTER TO
-<U3069> \xA4\xC9 |0 # HIRAGANA LETTER DO
-<U306A> \xA4\xCA |0 # HIRAGANA LETTER NA
-<U306B> \xA4\xCB |0 # HIRAGANA LETTER NI
-<U306C> \xA4\xCC |0 # HIRAGANA LETTER NU
-<U306D> \xA4\xCD |0 # HIRAGANA LETTER NE
-<U306E> \xA4\xCE |0 # HIRAGANA LETTER NO
-<U306F> \xA4\xCF |0 # HIRAGANA LETTER HA
-<U3070> \xA4\xD0 |0 # HIRAGANA LETTER BA
-<U3071> \xA4\xD1 |0 # HIRAGANA LETTER PA
-<U3072> \xA4\xD2 |0 # HIRAGANA LETTER HI
-<U3073> \xA4\xD3 |0 # HIRAGANA LETTER BI
-<U3074> \xA4\xD4 |0 # HIRAGANA LETTER PI
-<U3075> \xA4\xD5 |0 # HIRAGANA LETTER HU
-<U3076> \xA4\xD6 |0 # HIRAGANA LETTER BU
-<U3077> \xA4\xD7 |0 # HIRAGANA LETTER PU
-<U3078> \xA4\xD8 |0 # HIRAGANA LETTER HE
-<U3079> \xA4\xD9 |0 # HIRAGANA LETTER BE
-<U307A> \xA4\xDA |0 # HIRAGANA LETTER PE
-<U307B> \xA4\xDB |0 # HIRAGANA LETTER HO
-<U307C> \xA4\xDC |0 # HIRAGANA LETTER BO
-<U307D> \xA4\xDD |0 # HIRAGANA LETTER PO
-<U307E> \xA4\xDE |0 # HIRAGANA LETTER MA
-<U307F> \xA4\xDF |0 # HIRAGANA LETTER MI
-<U3080> \xA4\xE0 |0 # HIRAGANA LETTER MU
-<U3081> \xA4\xE1 |0 # HIRAGANA LETTER ME
-<U3082> \xA4\xE2 |0 # HIRAGANA LETTER MO
-<U3083> \xA4\xE3 |0 # HIRAGANA LETTER SMALL YA
-<U3084> \xA4\xE4 |0 # HIRAGANA LETTER YA
-<U3085> \xA4\xE5 |0 # HIRAGANA LETTER SMALL YU
-<U3086> \xA4\xE6 |0 # HIRAGANA LETTER YU
-<U3087> \xA4\xE7 |0 # HIRAGANA LETTER SMALL YO
-<U3088> \xA4\xE8 |0 # HIRAGANA LETTER YO
-<U3089> \xA4\xE9 |0 # HIRAGANA LETTER RA
-<U308A> \xA4\xEA |0 # HIRAGANA LETTER RI
-<U308B> \xA4\xEB |0 # HIRAGANA LETTER RU
-<U308C> \xA4\xEC |0 # HIRAGANA LETTER RE
-<U308D> \xA4\xED |0 # HIRAGANA LETTER RO
-<U308E> \xA4\xEE |0 # HIRAGANA LETTER SMALL WA
-<U308F> \xA4\xEF |0 # HIRAGANA LETTER WA
-<U3090> \xA4\xF0 |0 # HIRAGANA LETTER WI
-<U3091> \xA4\xF1 |0 # HIRAGANA LETTER WE
-<U3092> \xA4\xF2 |0 # HIRAGANA LETTER WO
-<U3093> \xA4\xF3 |0 # HIRAGANA LETTER N
-<U30A1> \xA5\xA1 |0 # KATAKANA LETTER SMALL A
-<U30A2> \xA5\xA2 |0 # KATAKANA LETTER A
-<U30A3> \xA5\xA3 |0 # KATAKANA LETTER SMALL I
-<U30A4> \xA5\xA4 |0 # KATAKANA LETTER I
-<U30A5> \xA5\xA5 |0 # KATAKANA LETTER SMALL U
-<U30A6> \xA5\xA6 |0 # KATAKANA LETTER U
-<U30A7> \xA5\xA7 |0 # KATAKANA LETTER SMALL E
-<U30A8> \xA5\xA8 |0 # KATAKANA LETTER E
-<U30A9> \xA5\xA9 |0 # KATAKANA LETTER SMALL O
-<U30AA> \xA5\xAA |0 # KATAKANA LETTER O
-<U30AB> \xA5\xAB |0 # KATAKANA LETTER KA
-<U30AC> \xA5\xAC |0 # KATAKANA LETTER GA
-<U30AD> \xA5\xAD |0 # KATAKANA LETTER KI
-<U30AE> \xA5\xAE |0 # KATAKANA LETTER GI
-<U30AF> \xA5\xAF |0 # KATAKANA LETTER KU
-<U30B0> \xA5\xB0 |0 # KATAKANA LETTER GU
-<U30B1> \xA5\xB1 |0 # KATAKANA LETTER KE
-<U30B2> \xA5\xB2 |0 # KATAKANA LETTER GE
-<U30B3> \xA5\xB3 |0 # KATAKANA LETTER KO
-<U30B4> \xA5\xB4 |0 # KATAKANA LETTER GO
-<U30B5> \xA5\xB5 |0 # KATAKANA LETTER SA
-<U30B6> \xA5\xB6 |0 # KATAKANA LETTER ZA
-<U30B7> \xA5\xB7 |0 # KATAKANA LETTER SI
-<U30B8> \xA5\xB8 |0 # KATAKANA LETTER ZI
-<U30B9> \xA5\xB9 |0 # KATAKANA LETTER SU
-<U30BA> \xA5\xBA |0 # KATAKANA LETTER ZU
-<U30BB> \xA5\xBB |0 # KATAKANA LETTER SE
-<U30BC> \xA5\xBC |0 # KATAKANA LETTER ZE
-<U30BD> \xA5\xBD |0 # KATAKANA LETTER SO
-<U30BE> \xA5\xBE |0 # KATAKANA LETTER ZO
-<U30BF> \xA5\xBF |0 # KATAKANA LETTER TA
-<U30C0> \xA5\xC0 |0 # KATAKANA LETTER DA
-<U30C1> \xA5\xC1 |0 # KATAKANA LETTER TI
-<U30C2> \xA5\xC2 |0 # KATAKANA LETTER DI
-<U30C3> \xA5\xC3 |0 # KATAKANA LETTER SMALL TU
-<U30C4> \xA5\xC4 |0 # KATAKANA LETTER TU
-<U30C5> \xA5\xC5 |0 # KATAKANA LETTER DU
-<U30C6> \xA5\xC6 |0 # KATAKANA LETTER TE
-<U30C7> \xA5\xC7 |0 # KATAKANA LETTER DE
-<U30C8> \xA5\xC8 |0 # KATAKANA LETTER TO
-<U30C9> \xA5\xC9 |0 # KATAKANA LETTER DO
-<U30CA> \xA5\xCA |0 # KATAKANA LETTER NA
-<U30CB> \xA5\xCB |0 # KATAKANA LETTER NI
-<U30CC> \xA5\xCC |0 # KATAKANA LETTER NU
-<U30CD> \xA5\xCD |0 # KATAKANA LETTER NE
-<U30CE> \xA5\xCE |0 # KATAKANA LETTER NO
-<U30CF> \xA5\xCF |0 # KATAKANA LETTER HA
-<U30D0> \xA5\xD0 |0 # KATAKANA LETTER BA
-<U30D1> \xA5\xD1 |0 # KATAKANA LETTER PA
-<U30D2> \xA5\xD2 |0 # KATAKANA LETTER HI
-<U30D3> \xA5\xD3 |0 # KATAKANA LETTER BI
-<U30D4> \xA5\xD4 |0 # KATAKANA LETTER PI
-<U30D5> \xA5\xD5 |0 # KATAKANA LETTER HU
-<U30D6> \xA5\xD6 |0 # KATAKANA LETTER BU
-<U30D7> \xA5\xD7 |0 # KATAKANA LETTER PU
-<U30D8> \xA5\xD8 |0 # KATAKANA LETTER HE
-<U30D9> \xA5\xD9 |0 # KATAKANA LETTER BE
-<U30DA> \xA5\xDA |0 # KATAKANA LETTER PE
-<U30DB> \xA5\xDB |0 # KATAKANA LETTER HO
-<U30DC> \xA5\xDC |0 # KATAKANA LETTER BO
-<U30DD> \xA5\xDD |0 # KATAKANA LETTER PO
-<U30DE> \xA5\xDE |0 # KATAKANA LETTER MA
-<U30DF> \xA5\xDF |0 # KATAKANA LETTER MI
-<U30E0> \xA5\xE0 |0 # KATAKANA LETTER MU
-<U30E1> \xA5\xE1 |0 # KATAKANA LETTER ME
-<U30E2> \xA5\xE2 |0 # KATAKANA LETTER MO
-<U30E3> \xA5\xE3 |0 # KATAKANA LETTER SMALL YA
-<U30E4> \xA5\xE4 |0 # KATAKANA LETTER YA
-<U30E5> \xA5\xE5 |0 # KATAKANA LETTER SMALL YU
-<U30E6> \xA5\xE6 |0 # KATAKANA LETTER YU
-<U30E7> \xA5\xE7 |0 # KATAKANA LETTER SMALL YO
-<U30E8> \xA5\xE8 |0 # KATAKANA LETTER YO
-<U30E9> \xA5\xE9 |0 # KATAKANA LETTER RA
-<U30EA> \xA5\xEA |0 # KATAKANA LETTER RI
-<U30EB> \xA5\xEB |0 # KATAKANA LETTER RU
-<U30EC> \xA5\xEC |0 # KATAKANA LETTER RE
-<U30ED> \xA5\xED |0 # KATAKANA LETTER RO
-<U30EE> \xA5\xEE |0 # KATAKANA LETTER SMALL WA
-<U30EF> \xA5\xEF |0 # KATAKANA LETTER WA
-<U30F0> \xA5\xF0 |0 # KATAKANA LETTER WI
-<U30F1> \xA5\xF1 |0 # KATAKANA LETTER WE
-<U30F2> \xA5\xF2 |0 # KATAKANA LETTER WO
-<U30F3> \xA5\xF3 |0 # KATAKANA LETTER N
-<U30F4> \xA5\xF4 |0 # KATAKANA LETTER VU
-<U30F5> \xA5\xF5 |0 # KATAKANA LETTER SMALL KA
-<U30F6> \xA5\xF6 |0 # KATAKANA LETTER SMALL KE
-<U0391> \xA6\xA1 |0 # GREEK CAPITAL LETTER ALPHA
-<U0392> \xA6\xA2 |0 # GREEK CAPITAL LETTER BETA
-<U0393> \xA6\xA3 |0 # GREEK CAPITAL LETTER GAMMA
-<U0394> \xA6\xA4 |0 # GREEK CAPITAL LETTER DELTA
-<U0395> \xA6\xA5 |0 # GREEK CAPITAL LETTER EPSILON
-<U0396> \xA6\xA6 |0 # GREEK CAPITAL LETTER ZETA
-<U0397> \xA6\xA7 |0 # GREEK CAPITAL LETTER ETA
-<U0398> \xA6\xA8 |0 # GREEK CAPITAL LETTER THETA
-<U0399> \xA6\xA9 |0 # GREEK CAPITAL LETTER IOTA
-<U039A> \xA6\xAA |0 # GREEK CAPITAL LETTER KAPPA
-<U039B> \xA6\xAB |0 # GREEK CAPITAL LETTER LAMDA
-<U039C> \xA6\xAC |0 # GREEK CAPITAL LETTER MU
-<U039D> \xA6\xAD |0 # GREEK CAPITAL LETTER NU
-<U039E> \xA6\xAE |0 # GREEK CAPITAL LETTER XI
-<U039F> \xA6\xAF |0 # GREEK CAPITAL LETTER OMICRON
-<U03A0> \xA6\xB0 |0 # GREEK CAPITAL LETTER PI
-<U03A1> \xA6\xB1 |0 # GREEK CAPITAL LETTER RHO
-<U03A3> \xA6\xB2 |0 # GREEK CAPITAL LETTER SIGMA
-<U03A4> \xA6\xB3 |0 # GREEK CAPITAL LETTER TAU
-<U03A5> \xA6\xB4 |0 # GREEK CAPITAL LETTER UPSILON
-<U03A6> \xA6\xB5 |0 # GREEK CAPITAL LETTER PHI
-<U03A7> \xA6\xB6 |0 # GREEK CAPITAL LETTER CHI
-<U03A8> \xA6\xB7 |0 # GREEK CAPITAL LETTER PSI
-<U03A9> \xA6\xB8 |0 # GREEK CAPITAL LETTER OMEGA
-<U03B1> \xA6\xC1 |0 # GREEK SMALL LETTER ALPHA
-<U03B2> \xA6\xC2 |0 # GREEK SMALL LETTER BETA
-<U03B3> \xA6\xC3 |0 # GREEK SMALL LETTER GAMMA
-<U03B4> \xA6\xC4 |0 # GREEK SMALL LETTER DELTA
-<U03B5> \xA6\xC5 |0 # GREEK SMALL LETTER EPSILON
-<U03B6> \xA6\xC6 |0 # GREEK SMALL LETTER ZETA
-<U03B7> \xA6\xC7 |0 # GREEK SMALL LETTER ETA
-<U03B8> \xA6\xC8 |0 # GREEK SMALL LETTER THETA
-<U03B9> \xA6\xC9 |0 # GREEK SMALL LETTER IOTA
-<U03BA> \xA6\xCA |0 # GREEK SMALL LETTER KAPPA
-<U03BB> \xA6\xCB |0 # GREEK SMALL LETTER LAMDA
-<U03BC> \xA6\xCC |0 # GREEK SMALL LETTER MU
-<U03BD> \xA6\xCD |0 # GREEK SMALL LETTER NU
-<U03BE> \xA6\xCE |0 # GREEK SMALL LETTER XI
-<U03BF> \xA6\xCF |0 # GREEK SMALL LETTER OMICRON
-<U03C0> \xA6\xD0 |0 # GREEK SMALL LETTER PI
-<U03C1> \xA6\xD1 |0 # GREEK SMALL LETTER RHO
-<U03C3> \xA6\xD2 |0 # GREEK SMALL LETTER SIGMA
-<U03C4> \xA6\xD3 |0 # GREEK SMALL LETTER TAU
-<U03C5> \xA6\xD4 |0 # GREEK SMALL LETTER UPSILON
-<U03C6> \xA6\xD5 |0 # GREEK SMALL LETTER PHI
-<U03C7> \xA6\xD6 |0 # GREEK SMALL LETTER CHI
-<U03C8> \xA6\xD7 |0 # GREEK SMALL LETTER PSI
-<U03C9> \xA6\xD8 |0 # GREEK SMALL LETTER OMEGA
-<U0410> \xA7\xA1 |0 # CYRILLIC CAPITAL LETTER A
-<U0411> \xA7\xA2 |0 # CYRILLIC CAPITAL LETTER BE
-<U0412> \xA7\xA3 |0 # CYRILLIC CAPITAL LETTER VE
-<U0413> \xA7\xA4 |0 # CYRILLIC CAPITAL LETTER GHE
-<U0414> \xA7\xA5 |0 # CYRILLIC CAPITAL LETTER DE
-<U0415> \xA7\xA6 |0 # CYRILLIC CAPITAL LETTER IE
-<U0401> \xA7\xA7 |0 # CYRILLIC CAPITAL LETTER IO
-<U0416> \xA7\xA8 |0 # CYRILLIC CAPITAL LETTER ZHE
-<U0417> \xA7\xA9 |0 # CYRILLIC CAPITAL LETTER ZE
-<U0418> \xA7\xAA |0 # CYRILLIC CAPITAL LETTER I
-<U0419> \xA7\xAB |0 # CYRILLIC CAPITAL LETTER SHORT I
-<U041A> \xA7\xAC |0 # CYRILLIC CAPITAL LETTER KA
-<U041B> \xA7\xAD |0 # CYRILLIC CAPITAL LETTER EL
-<U041C> \xA7\xAE |0 # CYRILLIC CAPITAL LETTER EM
-<U041D> \xA7\xAF |0 # CYRILLIC CAPITAL LETTER EN
-<U041E> \xA7\xB0 |0 # CYRILLIC CAPITAL LETTER O
-<U041F> \xA7\xB1 |0 # CYRILLIC CAPITAL LETTER PE
-<U0420> \xA7\xB2 |0 # CYRILLIC CAPITAL LETTER ER
-<U0421> \xA7\xB3 |0 # CYRILLIC CAPITAL LETTER ES
-<U0422> \xA7\xB4 |0 # CYRILLIC CAPITAL LETTER TE
-<U0423> \xA7\xB5 |0 # CYRILLIC CAPITAL LETTER U
-<U0424> \xA7\xB6 |0 # CYRILLIC CAPITAL LETTER EF
-<U0425> \xA7\xB7 |0 # CYRILLIC CAPITAL LETTER HA
-<U0426> \xA7\xB8 |0 # CYRILLIC CAPITAL LETTER TSE
-<U0427> \xA7\xB9 |0 # CYRILLIC CAPITAL LETTER CHE
-<U0428> \xA7\xBA |0 # CYRILLIC CAPITAL LETTER SHA
-<U0429> \xA7\xBB |0 # CYRILLIC CAPITAL LETTER SHCHA
-<U042A> \xA7\xBC |0 # CYRILLIC CAPITAL LETTER HARD SIGN
-<U042B> \xA7\xBD |0 # CYRILLIC CAPITAL LETTER YERU
-<U042C> \xA7\xBE |0 # CYRILLIC CAPITAL LETTER SOFT SIGN
-<U042D> \xA7\xBF |0 # CYRILLIC CAPITAL LETTER E
-<U042E> \xA7\xC0 |0 # CYRILLIC CAPITAL LETTER YU
-<U042F> \xA7\xC1 |0 # CYRILLIC CAPITAL LETTER YA
-<U0430> \xA7\xD1 |0 # CYRILLIC SMALL LETTER A
-<U0431> \xA7\xD2 |0 # CYRILLIC SMALL LETTER BE
-<U0432> \xA7\xD3 |0 # CYRILLIC SMALL LETTER VE
-<U0433> \xA7\xD4 |0 # CYRILLIC SMALL LETTER GHE
-<U0434> \xA7\xD5 |0 # CYRILLIC SMALL LETTER DE
-<U0435> \xA7\xD6 |0 # CYRILLIC SMALL LETTER IE
-<U0451> \xA7\xD7 |0 # CYRILLIC SMALL LETTER IO
-<U0436> \xA7\xD8 |0 # CYRILLIC SMALL LETTER ZHE
-<U0437> \xA7\xD9 |0 # CYRILLIC SMALL LETTER ZE
-<U0438> \xA7\xDA |0 # CYRILLIC SMALL LETTER I
-<U0439> \xA7\xDB |0 # CYRILLIC SMALL LETTER SHORT I
-<U043A> \xA7\xDC |0 # CYRILLIC SMALL LETTER KA
-<U043B> \xA7\xDD |0 # CYRILLIC SMALL LETTER EL
-<U043C> \xA7\xDE |0 # CYRILLIC SMALL LETTER EM
-<U043D> \xA7\xDF |0 # CYRILLIC SMALL LETTER EN
-<U043E> \xA7\xE0 |0 # CYRILLIC SMALL LETTER O
-<U043F> \xA7\xE1 |0 # CYRILLIC SMALL LETTER PE
-<U0440> \xA7\xE2 |0 # CYRILLIC SMALL LETTER ER
-<U0441> \xA7\xE3 |0 # CYRILLIC SMALL LETTER ES
-<U0442> \xA7\xE4 |0 # CYRILLIC SMALL LETTER TE
-<U0443> \xA7\xE5 |0 # CYRILLIC SMALL LETTER U
-<U0444> \xA7\xE6 |0 # CYRILLIC SMALL LETTER EF
-<U0445> \xA7\xE7 |0 # CYRILLIC SMALL LETTER HA
-<U0446> \xA7\xE8 |0 # CYRILLIC SMALL LETTER TSE
-<U0447> \xA7\xE9 |0 # CYRILLIC SMALL LETTER CHE
-<U0448> \xA7\xEA |0 # CYRILLIC SMALL LETTER SHA
-<U0449> \xA7\xEB |0 # CYRILLIC SMALL LETTER SHCHA
-<U044A> \xA7\xEC |0 # CYRILLIC SMALL LETTER HARD SIGN
-<U044B> \xA7\xED |0 # CYRILLIC SMALL LETTER YERU
-<U044C> \xA7\xEE |0 # CYRILLIC SMALL LETTER SOFT SIGN
-<U044D> \xA7\xEF |0 # CYRILLIC SMALL LETTER E
-<U044E> \xA7\xF0 |0 # CYRILLIC SMALL LETTER YU
-<U044F> \xA7\xF1 |0 # CYRILLIC SMALL LETTER YA
-<U2500> \xA8\xA1 |0 # BOX DRAWINGS LIGHT HORIZONTAL
-<U2502> \xA8\xA2 |0 # BOX DRAWINGS LIGHT VERTICAL
-<U250C> \xA8\xA3 |0 # BOX DRAWINGS LIGHT DOWN AND RIGHT
-<U2510> \xA8\xA4 |0 # BOX DRAWINGS LIGHT DOWN AND LEFT
-<U2518> \xA8\xA5 |0 # BOX DRAWINGS LIGHT UP AND LEFT
-<U2514> \xA8\xA6 |0 # BOX DRAWINGS LIGHT UP AND RIGHT
-<U251C> \xA8\xA7 |0 # BOX DRAWINGS LIGHT VERTICAL AND RIGHT
-<U252C> \xA8\xA8 |0 # BOX DRAWINGS LIGHT DOWN AND HORIZONTAL
-<U2524> \xA8\xA9 |0 # BOX DRAWINGS LIGHT VERTICAL AND LEFT
-<U2534> \xA8\xAA |0 # BOX DRAWINGS LIGHT UP AND HORIZONTAL
-<U253C> \xA8\xAB |0 # BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
-<U2501> \xA8\xAC |0 # BOX DRAWINGS HEAVY HORIZONTAL
-<U2503> \xA8\xAD |0 # BOX DRAWINGS HEAVY VERTICAL
-<U250F> \xA8\xAE |0 # BOX DRAWINGS HEAVY DOWN AND RIGHT
-<U2513> \xA8\xAF |0 # BOX DRAWINGS HEAVY DOWN AND LEFT
-<U251B> \xA8\xB0 |0 # BOX DRAWINGS HEAVY UP AND LEFT
-<U2517> \xA8\xB1 |0 # BOX DRAWINGS HEAVY UP AND RIGHT
-<U2523> \xA8\xB2 |0 # BOX DRAWINGS HEAVY VERTICAL AND RIGHT
-<U2533> \xA8\xB3 |0 # BOX DRAWINGS HEAVY DOWN AND HORIZONTAL
-<U252B> \xA8\xB4 |0 # BOX DRAWINGS HEAVY VERTICAL AND LEFT
-<U253B> \xA8\xB5 |0 # BOX DRAWINGS HEAVY UP AND HORIZONTAL
-<U254B> \xA8\xB6 |0 # BOX DRAWINGS HEAVY VERTICAL AND HORIZONTAL
-<U2520> \xA8\xB7 |0 # BOX DRAWINGS VERTICAL HEAVY AND RIGHT LIGHT
-<U252F> \xA8\xB8 |0 # BOX DRAWINGS DOWN LIGHT AND HORIZONTAL HEAVY
-<U2528> \xA8\xB9 |0 # BOX DRAWINGS VERTICAL HEAVY AND LEFT LIGHT
-<U2537> \xA8\xBA |0 # BOX DRAWINGS UP LIGHT AND HORIZONTAL HEAVY
-<U253F> \xA8\xBB |0 # BOX DRAWINGS VERTICAL LIGHT AND HORIZONTAL HEAVY
-<U251D> \xA8\xBC |0 # BOX DRAWINGS VERTICAL LIGHT AND RIGHT HEAVY
-<U2530> \xA8\xBD |0 # BOX DRAWINGS DOWN HEAVY AND HORIZONTAL LIGHT
-<U2525> \xA8\xBE |0 # BOX DRAWINGS VERTICAL LIGHT AND LEFT HEAVY
-<U2538> \xA8\xBF |0 # BOX DRAWINGS UP HEAVY AND HORIZONTAL LIGHT
-<U2542> \xA8\xC0 |0 # BOX DRAWINGS VERTICAL HEAVY AND HORIZONTAL LIGHT
-<U4E9C> \xB0\xA1 |0 # CJK Ideograph
-<U5516> \xB0\xA2 |0 # CJK Ideograph
-<U5A03> \xB0\xA3 |0 # CJK Ideograph
-<U963F> \xB0\xA4 |0 # CJK Ideograph
-<U54C0> \xB0\xA5 |0 # CJK Ideograph
-<U611B> \xB0\xA6 |0 # CJK Ideograph
-<U6328> \xB0\xA7 |0 # CJK Ideograph
-<U59F6> \xB0\xA8 |0 # CJK Ideograph
-<U9022> \xB0\xA9 |0 # CJK Ideograph
-<U8475> \xB0\xAA |0 # CJK Ideograph
-<U831C> \xB0\xAB |0 # CJK Ideograph
-<U7A50> \xB0\xAC |0 # CJK Ideograph
-<U60AA> \xB0\xAD |0 # CJK Ideograph
-<U63E1> \xB0\xAE |0 # CJK Ideograph
-<U6E25> \xB0\xAF |0 # CJK Ideograph
-<U65ED> \xB0\xB0 |0 # CJK Ideograph
-<U8466> \xB0\xB1 |0 # CJK Ideograph
-<U82A6> \xB0\xB2 |0 # CJK Ideograph
-<U9BF5> \xB0\xB3 |0 # CJK Ideograph
-<U6893> \xB0\xB4 |0 # CJK Ideograph
-<U5727> \xB0\xB5 |0 # CJK Ideograph
-<U65A1> \xB0\xB6 |0 # CJK Ideograph
-<U6271> \xB0\xB7 |0 # CJK Ideograph
-<U5B9B> \xB0\xB8 |0 # CJK Ideograph
-<U59D0> \xB0\xB9 |0 # CJK Ideograph
-<U867B> \xB0\xBA |0 # CJK Ideograph
-<U98F4> \xB0\xBB |0 # CJK Ideograph
-<U7D62> \xB0\xBC |0 # CJK Ideograph
-<U7DBE> \xB0\xBD |0 # CJK Ideograph
-<U9B8E> \xB0\xBE |0 # CJK Ideograph
-<U6216> \xB0\xBF |0 # CJK Ideograph
-<U7C9F> \xB0\xC0 |0 # CJK Ideograph
-<U88B7> \xB0\xC1 |0 # CJK Ideograph
-<U5B89> \xB0\xC2 |0 # CJK Ideograph
-<U5EB5> \xB0\xC3 |0 # CJK Ideograph
-<U6309> \xB0\xC4 |0 # CJK Ideograph
-<U6697> \xB0\xC5 |0 # CJK Ideograph
-<U6848> \xB0\xC6 |0 # CJK Ideograph
-<U95C7> \xB0\xC7 |0 # CJK Ideograph
-<U978D> \xB0\xC8 |0 # CJK Ideograph
-<U674F> \xB0\xC9 |0 # CJK Ideograph
-<U4EE5> \xB0\xCA |0 # CJK Ideograph
-<U4F0A> \xB0\xCB |0 # CJK Ideograph
-<U4F4D> \xB0\xCC |0 # CJK Ideograph
-<U4F9D> \xB0\xCD |0 # CJK Ideograph
-<U5049> \xB0\xCE |0 # CJK Ideograph
-<U56F2> \xB0\xCF |0 # CJK Ideograph
-<U5937> \xB0\xD0 |0 # CJK Ideograph
-<U59D4> \xB0\xD1 |0 # CJK Ideograph
-<U5A01> \xB0\xD2 |0 # CJK Ideograph
-<U5C09> \xB0\xD3 |0 # CJK Ideograph
-<U60DF> \xB0\xD4 |0 # CJK Ideograph
-<U610F> \xB0\xD5 |0 # CJK Ideograph
-<U6170> \xB0\xD6 |0 # CJK Ideograph
-<U6613> \xB0\xD7 |0 # CJK Ideograph
-<U6905> \xB0\xD8 |0 # CJK Ideograph
-<U70BA> \xB0\xD9 |0 # CJK Ideograph
-<U754F> \xB0\xDA |0 # CJK Ideograph
-<U7570> \xB0\xDB |0 # CJK Ideograph
-<U79FB> \xB0\xDC |0 # CJK Ideograph
-<U7DAD> \xB0\xDD |0 # CJK Ideograph
-<U7DEF> \xB0\xDE |0 # CJK Ideograph
-<U80C3> \xB0\xDF |0 # CJK Ideograph
-<U840E> \xB0\xE0 |0 # CJK Ideograph
-<U8863> \xB0\xE1 |0 # CJK Ideograph
-<U8B02> \xB0\xE2 |0 # CJK Ideograph
-<U9055> \xB0\xE3 |0 # CJK Ideograph
-<U907A> \xB0\xE4 |0 # CJK Ideograph
-<U533B> \xB0\xE5 |0 # CJK Ideograph
-<U4E95> \xB0\xE6 |0 # CJK Ideograph
-<U4EA5> \xB0\xE7 |0 # CJK Ideograph
-<U57DF> \xB0\xE8 |0 # CJK Ideograph
-<U80B2> \xB0\xE9 |0 # CJK Ideograph
-<U90C1> \xB0\xEA |0 # CJK Ideograph
-<U78EF> \xB0\xEB |0 # CJK Ideograph
-<U4E00> \xB0\xEC |0 # CJK Ideograph
-<U58F1> \xB0\xED |0 # CJK Ideograph
-<U6EA2> \xB0\xEE |0 # CJK Ideograph
-<U9038> \xB0\xEF |0 # CJK Ideograph
-<U7A32> \xB0\xF0 |0 # CJK Ideograph
-<U8328> \xB0\xF1 |0 # CJK Ideograph
-<U828B> \xB0\xF2 |0 # CJK Ideograph
-<U9C2F> \xB0\xF3 |0 # CJK Ideograph
-<U5141> \xB0\xF4 |0 # CJK Ideograph
-<U5370> \xB0\xF5 |0 # CJK Ideograph
-<U54BD> \xB0\xF6 |0 # CJK Ideograph
-<U54E1> \xB0\xF7 |0 # CJK Ideograph
-<U56E0> \xB0\xF8 |0 # CJK Ideograph
-<U59FB> \xB0\xF9 |0 # CJK Ideograph
-<U5F15> \xB0\xFA |0 # CJK Ideograph
-<U98F2> \xB0\xFB |0 # CJK Ideograph
-<U6DEB> \xB0\xFC |0 # CJK Ideograph
-<U80E4> \xB0\xFD |0 # CJK Ideograph
-<U852D> \xB0\xFE |0 # CJK Ideograph
-<U9662> \xB1\xA1 |0 # CJK Ideograph
-<U9670> \xB1\xA2 |0 # CJK Ideograph
-<U96A0> \xB1\xA3 |0 # CJK Ideograph
-<U97FB> \xB1\xA4 |0 # CJK Ideograph
-<U540B> \xB1\xA5 |0 # CJK Ideograph
-<U53F3> \xB1\xA6 |0 # CJK Ideograph
-<U5B87> \xB1\xA7 |0 # CJK Ideograph
-<U70CF> \xB1\xA8 |0 # CJK Ideograph
-<U7FBD> \xB1\xA9 |0 # CJK Ideograph
-<U8FC2> \xB1\xAA |0 # CJK Ideograph
-<U96E8> \xB1\xAB |0 # CJK Ideograph
-<U536F> \xB1\xAC |0 # CJK Ideograph
-<U9D5C> \xB1\xAD |0 # CJK Ideograph
-<U7ABA> \xB1\xAE |0 # CJK Ideograph
-<U4E11> \xB1\xAF |0 # CJK Ideograph
-<U7893> \xB1\xB0 |0 # CJK Ideograph
-<U81FC> \xB1\xB1 |0 # CJK Ideograph
-<U6E26> \xB1\xB2 |0 # CJK Ideograph
-<U5618> \xB1\xB3 |0 # CJK Ideograph
-<U5504> \xB1\xB4 |0 # CJK Ideograph
-<U6B1D> \xB1\xB5 |0 # CJK Ideograph
-<U851A> \xB1\xB6 |0 # CJK Ideograph
-<U9C3B> \xB1\xB7 |0 # CJK Ideograph
-<U59E5> \xB1\xB8 |0 # CJK Ideograph
-<U53A9> \xB1\xB9 |0 # CJK Ideograph
-<U6D66> \xB1\xBA |0 # CJK Ideograph
-<U74DC> \xB1\xBB |0 # CJK Ideograph
-<U958F> \xB1\xBC |0 # CJK Ideograph
-<U5642> \xB1\xBD |0 # CJK Ideograph
-<U4E91> \xB1\xBE |0 # CJK Ideograph
-<U904B> \xB1\xBF |0 # CJK Ideograph
-<U96F2> \xB1\xC0 |0 # CJK Ideograph
-<U834F> \xB1\xC1 |0 # CJK Ideograph
-<U990C> \xB1\xC2 |0 # CJK Ideograph
-<U53E1> \xB1\xC3 |0 # CJK Ideograph
-<U55B6> \xB1\xC4 |0 # CJK Ideograph
-<U5B30> \xB1\xC5 |0 # CJK Ideograph
-<U5F71> \xB1\xC6 |0 # CJK Ideograph
-<U6620> \xB1\xC7 |0 # CJK Ideograph
-<U66F3> \xB1\xC8 |0 # CJK Ideograph
-<U6804> \xB1\xC9 |0 # CJK Ideograph
-<U6C38> \xB1\xCA |0 # CJK Ideograph
-<U6CF3> \xB1\xCB |0 # CJK Ideograph
-<U6D29> \xB1\xCC |0 # CJK Ideograph
-<U745B> \xB1\xCD |0 # CJK Ideograph
-<U76C8> \xB1\xCE |0 # CJK Ideograph
-<U7A4E> \xB1\xCF |0 # CJK Ideograph
-<U9834> \xB1\xD0 |0 # CJK Ideograph
-<U82F1> \xB1\xD1 |0 # CJK Ideograph
-<U885B> \xB1\xD2 |0 # CJK Ideograph
-<U8A60> \xB1\xD3 |0 # CJK Ideograph
-<U92ED> \xB1\xD4 |0 # CJK Ideograph
-<U6DB2> \xB1\xD5 |0 # CJK Ideograph
-<U75AB> \xB1\xD6 |0 # CJK Ideograph
-<U76CA> \xB1\xD7 |0 # CJK Ideograph
-<U99C5> \xB1\xD8 |0 # CJK Ideograph
-<U60A6> \xB1\xD9 |0 # CJK Ideograph
-<U8B01> \xB1\xDA |0 # CJK Ideograph
-<U8D8A> \xB1\xDB |0 # CJK Ideograph
-<U95B2> \xB1\xDC |0 # CJK Ideograph
-<U698E> \xB1\xDD |0 # CJK Ideograph
-<U53AD> \xB1\xDE |0 # CJK Ideograph
-<U5186> \xB1\xDF |0 # CJK Ideograph
-<U5712> \xB1\xE0 |0 # CJK Ideograph
-<U5830> \xB1\xE1 |0 # CJK Ideograph
-<U5944> \xB1\xE2 |0 # CJK Ideograph
-<U5BB4> \xB1\xE3 |0 # CJK Ideograph
-<U5EF6> \xB1\xE4 |0 # CJK Ideograph
-<U6028> \xB1\xE5 |0 # CJK Ideograph
-<U63A9> \xB1\xE6 |0 # CJK Ideograph
-<U63F4> \xB1\xE7 |0 # CJK Ideograph
-<U6CBF> \xB1\xE8 |0 # CJK Ideograph
-<U6F14> \xB1\xE9 |0 # CJK Ideograph
-<U708E> \xB1\xEA |0 # CJK Ideograph
-<U7114> \xB1\xEB |0 # CJK Ideograph
-<U7159> \xB1\xEC |0 # CJK Ideograph
-<U71D5> \xB1\xED |0 # CJK Ideograph
-<U733F> \xB1\xEE |0 # CJK Ideograph
-<U7E01> \xB1\xEF |0 # CJK Ideograph
-<U8276> \xB1\xF0 |0 # CJK Ideograph
-<U82D1> \xB1\xF1 |0 # CJK Ideograph
-<U8597> \xB1\xF2 |0 # CJK Ideograph
-<U9060> \xB1\xF3 |0 # CJK Ideograph
-<U925B> \xB1\xF4 |0 # CJK Ideograph
-<U9D1B> \xB1\xF5 |0 # CJK Ideograph
-<U5869> \xB1\xF6 |0 # CJK Ideograph
-<U65BC> \xB1\xF7 |0 # CJK Ideograph
-<U6C5A> \xB1\xF8 |0 # CJK Ideograph
-<U7525> \xB1\xF9 |0 # CJK Ideograph
-<U51F9> \xB1\xFA |0 # CJK Ideograph
-<U592E> \xB1\xFB |0 # CJK Ideograph
-<U5965> \xB1\xFC |0 # CJK Ideograph
-<U5F80> \xB1\xFD |0 # CJK Ideograph
-<U5FDC> \xB1\xFE |0 # CJK Ideograph
-<U62BC> \xB2\xA1 |0 # CJK Ideograph
-<U65FA> \xB2\xA2 |0 # CJK Ideograph
-<U6A2A> \xB2\xA3 |0 # CJK Ideograph
-<U6B27> \xB2\xA4 |0 # CJK Ideograph
-<U6BB4> \xB2\xA5 |0 # CJK Ideograph
-<U738B> \xB2\xA6 |0 # CJK Ideograph
-<U7FC1> \xB2\xA7 |0 # CJK Ideograph
-<U8956> \xB2\xA8 |0 # CJK Ideograph
-<U9D2C> \xB2\xA9 |0 # CJK Ideograph
-<U9D0E> \xB2\xAA |0 # CJK Ideograph
-<U9EC4> \xB2\xAB |0 # CJK Ideograph
-<U5CA1> \xB2\xAC |0 # CJK Ideograph
-<U6C96> \xB2\xAD |0 # CJK Ideograph
-<U837B> \xB2\xAE |0 # CJK Ideograph
-<U5104> \xB2\xAF |0 # CJK Ideograph
-<U5C4B> \xB2\xB0 |0 # CJK Ideograph
-<U61B6> \xB2\xB1 |0 # CJK Ideograph
-<U81C6> \xB2\xB2 |0 # CJK Ideograph
-<U6876> \xB2\xB3 |0 # CJK Ideograph
-<U7261> \xB2\xB4 |0 # CJK Ideograph
-<U4E59> \xB2\xB5 |0 # CJK Ideograph
-<U4FFA> \xB2\xB6 |0 # CJK Ideograph
-<U5378> \xB2\xB7 |0 # CJK Ideograph
-<U6069> \xB2\xB8 |0 # CJK Ideograph
-<U6E29> \xB2\xB9 |0 # CJK Ideograph
-<U7A4F> \xB2\xBA |0 # CJK Ideograph
-<U97F3> \xB2\xBB |0 # CJK Ideograph
-<U4E0B> \xB2\xBC |0 # CJK Ideograph
-<U5316> \xB2\xBD |0 # CJK Ideograph
-<U4EEE> \xB2\xBE |0 # CJK Ideograph
-<U4F55> \xB2\xBF |0 # CJK Ideograph
-<U4F3D> \xB2\xC0 |0 # CJK Ideograph
-<U4FA1> \xB2\xC1 |0 # CJK Ideograph
-<U4F73> \xB2\xC2 |0 # CJK Ideograph
-<U52A0> \xB2\xC3 |0 # CJK Ideograph
-<U53EF> \xB2\xC4 |0 # CJK Ideograph
-<U5609> \xB2\xC5 |0 # CJK Ideograph
-<U590F> \xB2\xC6 |0 # CJK Ideograph
-<U5AC1> \xB2\xC7 |0 # CJK Ideograph
-<U5BB6> \xB2\xC8 |0 # CJK Ideograph
-<U5BE1> \xB2\xC9 |0 # CJK Ideograph
-<U79D1> \xB2\xCA |0 # CJK Ideograph
-<U6687> \xB2\xCB |0 # CJK Ideograph
-<U679C> \xB2\xCC |0 # CJK Ideograph
-<U67B6> \xB2\xCD |0 # CJK Ideograph
-<U6B4C> \xB2\xCE |0 # CJK Ideograph
-<U6CB3> \xB2\xCF |0 # CJK Ideograph
-<U706B> \xB2\xD0 |0 # CJK Ideograph
-<U73C2> \xB2\xD1 |0 # CJK Ideograph
-<U798D> \xB2\xD2 |0 # CJK Ideograph
-<U79BE> \xB2\xD3 |0 # CJK Ideograph
-<U7A3C> \xB2\xD4 |0 # CJK Ideograph
-<U7B87> \xB2\xD5 |0 # CJK Ideograph
-<U82B1> \xB2\xD6 |0 # CJK Ideograph
-<U82DB> \xB2\xD7 |0 # CJK Ideograph
-<U8304> \xB2\xD8 |0 # CJK Ideograph
-<U8377> \xB2\xD9 |0 # CJK Ideograph
-<U83EF> \xB2\xDA |0 # CJK Ideograph
-<U83D3> \xB2\xDB |0 # CJK Ideograph
-<U8766> \xB2\xDC |0 # CJK Ideograph
-<U8AB2> \xB2\xDD |0 # CJK Ideograph
-<U5629> \xB2\xDE |0 # CJK Ideograph
-<U8CA8> \xB2\xDF |0 # CJK Ideograph
-<U8FE6> \xB2\xE0 |0 # CJK Ideograph
-<U904E> \xB2\xE1 |0 # CJK Ideograph
-<U971E> \xB2\xE2 |0 # CJK Ideograph
-<U868A> \xB2\xE3 |0 # CJK Ideograph
-<U4FC4> \xB2\xE4 |0 # CJK Ideograph
-<U5CE8> \xB2\xE5 |0 # CJK Ideograph
-<U6211> \xB2\xE6 |0 # CJK Ideograph
-<U7259> \xB2\xE7 |0 # CJK Ideograph
-<U753B> \xB2\xE8 |0 # CJK Ideograph
-<U81E5> \xB2\xE9 |0 # CJK Ideograph
-<U82BD> \xB2\xEA |0 # CJK Ideograph
-<U86FE> \xB2\xEB |0 # CJK Ideograph
-<U8CC0> \xB2\xEC |0 # CJK Ideograph
-<U96C5> \xB2\xED |0 # CJK Ideograph
-<U9913> \xB2\xEE |0 # CJK Ideograph
-<U99D5> \xB2\xEF |0 # CJK Ideograph
-<U4ECB> \xB2\xF0 |0 # CJK Ideograph
-<U4F1A> \xB2\xF1 |0 # CJK Ideograph
-<U89E3> \xB2\xF2 |0 # CJK Ideograph
-<U56DE> \xB2\xF3 |0 # CJK Ideograph
-<U584A> \xB2\xF4 |0 # CJK Ideograph
-<U58CA> \xB2\xF5 |0 # CJK Ideograph
-<U5EFB> \xB2\xF6 |0 # CJK Ideograph
-<U5FEB> \xB2\xF7 |0 # CJK Ideograph
-<U602A> \xB2\xF8 |0 # CJK Ideograph
-<U6094> \xB2\xF9 |0 # CJK Ideograph
-<U6062> \xB2\xFA |0 # CJK Ideograph
-<U61D0> \xB2\xFB |0 # CJK Ideograph
-<U6212> \xB2\xFC |0 # CJK Ideograph
-<U62D0> \xB2\xFD |0 # CJK Ideograph
-<U6539> \xB2\xFE |0 # CJK Ideograph
-<U9B41> \xB3\xA1 |0 # CJK Ideograph
-<U6666> \xB3\xA2 |0 # CJK Ideograph
-<U68B0> \xB3\xA3 |0 # CJK Ideograph
-<U6D77> \xB3\xA4 |0 # CJK Ideograph
-<U7070> \xB3\xA5 |0 # CJK Ideograph
-<U754C> \xB3\xA6 |0 # CJK Ideograph
-<U7686> \xB3\xA7 |0 # CJK Ideograph
-<U7D75> \xB3\xA8 |0 # CJK Ideograph
-<U82A5> \xB3\xA9 |0 # CJK Ideograph
-<U87F9> \xB3\xAA |0 # CJK Ideograph
-<U958B> \xB3\xAB |0 # CJK Ideograph
-<U968E> \xB3\xAC |0 # CJK Ideograph
-<U8C9D> \xB3\xAD |0 # CJK Ideograph
-<U51F1> \xB3\xAE |0 # CJK Ideograph
-<U52BE> \xB3\xAF |0 # CJK Ideograph
-<U5916> \xB3\xB0 |0 # CJK Ideograph
-<U54B3> \xB3\xB1 |0 # CJK Ideograph
-<U5BB3> \xB3\xB2 |0 # CJK Ideograph
-<U5D16> \xB3\xB3 |0 # CJK Ideograph
-<U6168> \xB3\xB4 |0 # CJK Ideograph
-<U6982> \xB3\xB5 |0 # CJK Ideograph
-<U6DAF> \xB3\xB6 |0 # CJK Ideograph
-<U788D> \xB3\xB7 |0 # CJK Ideograph
-<U84CB> \xB3\xB8 |0 # CJK Ideograph
-<U8857> \xB3\xB9 |0 # CJK Ideograph
-<U8A72> \xB3\xBA |0 # CJK Ideograph
-<U93A7> \xB3\xBB |0 # CJK Ideograph
-<U9AB8> \xB3\xBC |0 # CJK Ideograph
-<U6D6C> \xB3\xBD |0 # CJK Ideograph
-<U99A8> \xB3\xBE |0 # CJK Ideograph
-<U86D9> \xB3\xBF |0 # CJK Ideograph
-<U57A3> \xB3\xC0 |0 # CJK Ideograph
-<U67FF> \xB3\xC1 |0 # CJK Ideograph
-<U86CE> \xB3\xC2 |0 # CJK Ideograph
-<U920E> \xB3\xC3 |0 # CJK Ideograph
-<U5283> \xB3\xC4 |0 # CJK Ideograph
-<U5687> \xB3\xC5 |0 # CJK Ideograph
-<U5404> \xB3\xC6 |0 # CJK Ideograph
-<U5ED3> \xB3\xC7 |0 # CJK Ideograph
-<U62E1> \xB3\xC8 |0 # CJK Ideograph
-<U64B9> \xB3\xC9 |0 # CJK Ideograph
-<U683C> \xB3\xCA |0 # CJK Ideograph
-<U6838> \xB3\xCB |0 # CJK Ideograph
-<U6BBB> \xB3\xCC |0 # CJK Ideograph
-<U7372> \xB3\xCD |0 # CJK Ideograph
-<U78BA> \xB3\xCE |0 # CJK Ideograph
-<U7A6B> \xB3\xCF |0 # CJK Ideograph
-<U899A> \xB3\xD0 |0 # CJK Ideograph
-<U89D2> \xB3\xD1 |0 # CJK Ideograph
-<U8D6B> \xB3\xD2 |0 # CJK Ideograph
-<U8F03> \xB3\xD3 |0 # CJK Ideograph
-<U90ED> \xB3\xD4 |0 # CJK Ideograph
-<U95A3> \xB3\xD5 |0 # CJK Ideograph
-<U9694> \xB3\xD6 |0 # CJK Ideograph
-<U9769> \xB3\xD7 |0 # CJK Ideograph
-<U5B66> \xB3\xD8 |0 # CJK Ideograph
-<U5CB3> \xB3\xD9 |0 # CJK Ideograph
-<U697D> \xB3\xDA |0 # CJK Ideograph
-<U984D> \xB3\xDB |0 # CJK Ideograph
-<U984E> \xB3\xDC |0 # CJK Ideograph
-<U639B> \xB3\xDD |0 # CJK Ideograph
-<U7B20> \xB3\xDE |0 # CJK Ideograph
-<U6A2B> \xB3\xDF |0 # CJK Ideograph
-<U6A7F> \xB3\xE0 |0 # CJK Ideograph
-<U68B6> \xB3\xE1 |0 # CJK Ideograph
-<U9C0D> \xB3\xE2 |0 # CJK Ideograph
-<U6F5F> \xB3\xE3 |0 # CJK Ideograph
-<U5272> \xB3\xE4 |0 # CJK Ideograph
-<U559D> \xB3\xE5 |0 # CJK Ideograph
-<U6070> \xB3\xE6 |0 # CJK Ideograph
-<U62EC> \xB3\xE7 |0 # CJK Ideograph
-<U6D3B> \xB3\xE8 |0 # CJK Ideograph
-<U6E07> \xB3\xE9 |0 # CJK Ideograph
-<U6ED1> \xB3\xEA |0 # CJK Ideograph
-<U845B> \xB3\xEB |0 # CJK Ideograph
-<U8910> \xB3\xEC |0 # CJK Ideograph
-<U8F44> \xB3\xED |0 # CJK Ideograph
-<U4E14> \xB3\xEE |0 # CJK Ideograph
-<U9C39> \xB3\xEF |0 # CJK Ideograph
-<U53F6> \xB3\xF0 |0 # CJK Ideograph
-<U691B> \xB3\xF1 |0 # CJK Ideograph
-<U6A3A> \xB3\xF2 |0 # CJK Ideograph
-<U9784> \xB3\xF3 |0 # CJK Ideograph
-<U682A> \xB3\xF4 |0 # CJK Ideograph
-<U515C> \xB3\xF5 |0 # CJK Ideograph
-<U7AC3> \xB3\xF6 |0 # CJK Ideograph
-<U84B2> \xB3\xF7 |0 # CJK Ideograph
-<U91DC> \xB3\xF8 |0 # CJK Ideograph
-<U938C> \xB3\xF9 |0 # CJK Ideograph
-<U565B> \xB3\xFA |0 # CJK Ideograph
-<U9D28> \xB3\xFB |0 # CJK Ideograph
-<U6822> \xB3\xFC |0 # CJK Ideograph
-<U8305> \xB3\xFD |0 # CJK Ideograph
-<U8431> \xB3\xFE |0 # CJK Ideograph
-<U7CA5> \xB4\xA1 |0 # CJK Ideograph
-<U5208> \xB4\xA2 |0 # CJK Ideograph
-<U82C5> \xB4\xA3 |0 # CJK Ideograph
-<U74E6> \xB4\xA4 |0 # CJK Ideograph
-<U4E7E> \xB4\xA5 |0 # CJK Ideograph
-<U4F83> \xB4\xA6 |0 # CJK Ideograph
-<U51A0> \xB4\xA7 |0 # CJK Ideograph
-<U5BD2> \xB4\xA8 |0 # CJK Ideograph
-<U520A> \xB4\xA9 |0 # CJK Ideograph
-<U52D8> \xB4\xAA |0 # CJK Ideograph
-<U52E7> \xB4\xAB |0 # CJK Ideograph
-<U5DFB> \xB4\xAC |0 # CJK Ideograph
-<U559A> \xB4\xAD |0 # CJK Ideograph
-<U582A> \xB4\xAE |0 # CJK Ideograph
-<U59E6> \xB4\xAF |0 # CJK Ideograph
-<U5B8C> \xB4\xB0 |0 # CJK Ideograph
-<U5B98> \xB4\xB1 |0 # CJK Ideograph
-<U5BDB> \xB4\xB2 |0 # CJK Ideograph
-<U5E72> \xB4\xB3 |0 # CJK Ideograph
-<U5E79> \xB4\xB4 |0 # CJK Ideograph
-<U60A3> \xB4\xB5 |0 # CJK Ideograph
-<U611F> \xB4\xB6 |0 # CJK Ideograph
-<U6163> \xB4\xB7 |0 # CJK Ideograph
-<U61BE> \xB4\xB8 |0 # CJK Ideograph
-<U63DB> \xB4\xB9 |0 # CJK Ideograph
-<U6562> \xB4\xBA |0 # CJK Ideograph
-<U67D1> \xB4\xBB |0 # CJK Ideograph
-<U6853> \xB4\xBC |0 # CJK Ideograph
-<U68FA> \xB4\xBD |0 # CJK Ideograph
-<U6B3E> \xB4\xBE |0 # CJK Ideograph
-<U6B53> \xB4\xBF |0 # CJK Ideograph
-<U6C57> \xB4\xC0 |0 # CJK Ideograph
-<U6F22> \xB4\xC1 |0 # CJK Ideograph
-<U6F97> \xB4\xC2 |0 # CJK Ideograph
-<U6F45> \xB4\xC3 |0 # CJK Ideograph
-<U74B0> \xB4\xC4 |0 # CJK Ideograph
-<U7518> \xB4\xC5 |0 # CJK Ideograph
-<U76E3> \xB4\xC6 |0 # CJK Ideograph
-<U770B> \xB4\xC7 |0 # CJK Ideograph
-<U7AFF> \xB4\xC8 |0 # CJK Ideograph
-<U7BA1> \xB4\xC9 |0 # CJK Ideograph
-<U7C21> \xB4\xCA |0 # CJK Ideograph
-<U7DE9> \xB4\xCB |0 # CJK Ideograph
-<U7F36> \xB4\xCC |0 # CJK Ideograph
-<U7FF0> \xB4\xCD |0 # CJK Ideograph
-<U809D> \xB4\xCE |0 # CJK Ideograph
-<U8266> \xB4\xCF |0 # CJK Ideograph
-<U839E> \xB4\xD0 |0 # CJK Ideograph
-<U89B3> \xB4\xD1 |0 # CJK Ideograph
-<U8ACC> \xB4\xD2 |0 # CJK Ideograph
-<U8CAB> \xB4\xD3 |0 # CJK Ideograph
-<U9084> \xB4\xD4 |0 # CJK Ideograph
-<U9451> \xB4\xD5 |0 # CJK Ideograph
-<U9593> \xB4\xD6 |0 # CJK Ideograph
-<U9591> \xB4\xD7 |0 # CJK Ideograph
-<U95A2> \xB4\xD8 |0 # CJK Ideograph
-<U9665> \xB4\xD9 |0 # CJK Ideograph
-<U97D3> \xB4\xDA |0 # CJK Ideograph
-<U9928> \xB4\xDB |0 # CJK Ideograph
-<U8218> \xB4\xDC |0 # CJK Ideograph
-<U4E38> \xB4\xDD |0 # CJK Ideograph
-<U542B> \xB4\xDE |0 # CJK Ideograph
-<U5CB8> \xB4\xDF |0 # CJK Ideograph
-<U5DCC> \xB4\xE0 |0 # CJK Ideograph
-<U73A9> \xB4\xE1 |0 # CJK Ideograph
-<U764C> \xB4\xE2 |0 # CJK Ideograph
-<U773C> \xB4\xE3 |0 # CJK Ideograph
-<U5CA9> \xB4\xE4 |0 # CJK Ideograph
-<U7FEB> \xB4\xE5 |0 # CJK Ideograph
-<U8D0B> \xB4\xE6 |0 # CJK Ideograph
-<U96C1> \xB4\xE7 |0 # CJK Ideograph
-<U9811> \xB4\xE8 |0 # CJK Ideograph
-<U9854> \xB4\xE9 |0 # CJK Ideograph
-<U9858> \xB4\xEA |0 # CJK Ideograph
-<U4F01> \xB4\xEB |0 # CJK Ideograph
-<U4F0E> \xB4\xEC |0 # CJK Ideograph
-<U5371> \xB4\xED |0 # CJK Ideograph
-<U559C> \xB4\xEE |0 # CJK Ideograph
-<U5668> \xB4\xEF |0 # CJK Ideograph
-<U57FA> \xB4\xF0 |0 # CJK Ideograph
-<U5947> \xB4\xF1 |0 # CJK Ideograph
-<U5B09> \xB4\xF2 |0 # CJK Ideograph
-<U5BC4> \xB4\xF3 |0 # CJK Ideograph
-<U5C90> \xB4\xF4 |0 # CJK Ideograph
-<U5E0C> \xB4\xF5 |0 # CJK Ideograph
-<U5E7E> \xB4\xF6 |0 # CJK Ideograph
-<U5FCC> \xB4\xF7 |0 # CJK Ideograph
-<U63EE> \xB4\xF8 |0 # CJK Ideograph
-<U673A> \xB4\xF9 |0 # CJK Ideograph
-<U65D7> \xB4\xFA |0 # CJK Ideograph
-<U65E2> \xB4\xFB |0 # CJK Ideograph
-<U671F> \xB4\xFC |0 # CJK Ideograph
-<U68CB> \xB4\xFD |0 # CJK Ideograph
-<U68C4> \xB4\xFE |0 # CJK Ideograph
-<U6A5F> \xB5\xA1 |0 # CJK Ideograph
-<U5E30> \xB5\xA2 |0 # CJK Ideograph
-<U6BC5> \xB5\xA3 |0 # CJK Ideograph
-<U6C17> \xB5\xA4 |0 # CJK Ideograph
-<U6C7D> \xB5\xA5 |0 # CJK Ideograph
-<U757F> \xB5\xA6 |0 # CJK Ideograph
-<U7948> \xB5\xA7 |0 # CJK Ideograph
-<U5B63> \xB5\xA8 |0 # CJK Ideograph
-<U7A00> \xB5\xA9 |0 # CJK Ideograph
-<U7D00> \xB5\xAA |0 # CJK Ideograph
-<U5FBD> \xB5\xAB |0 # CJK Ideograph
-<U898F> \xB5\xAC |0 # CJK Ideograph
-<U8A18> \xB5\xAD |0 # CJK Ideograph
-<U8CB4> \xB5\xAE |0 # CJK Ideograph
-<U8D77> \xB5\xAF |0 # CJK Ideograph
-<U8ECC> \xB5\xB0 |0 # CJK Ideograph
-<U8F1D> \xB5\xB1 |0 # CJK Ideograph
-<U98E2> \xB5\xB2 |0 # CJK Ideograph
-<U9A0E> \xB5\xB3 |0 # CJK Ideograph
-<U9B3C> \xB5\xB4 |0 # CJK Ideograph
-<U4E80> \xB5\xB5 |0 # CJK Ideograph
-<U507D> \xB5\xB6 |0 # CJK Ideograph
-<U5100> \xB5\xB7 |0 # CJK Ideograph
-<U5993> \xB5\xB8 |0 # CJK Ideograph
-<U5B9C> \xB5\xB9 |0 # CJK Ideograph
-<U622F> \xB5\xBA |0 # CJK Ideograph
-<U6280> \xB5\xBB |0 # CJK Ideograph
-<U64EC> \xB5\xBC |0 # CJK Ideograph
-<U6B3A> \xB5\xBD |0 # CJK Ideograph
-<U72A0> \xB5\xBE |0 # CJK Ideograph
-<U7591> \xB5\xBF |0 # CJK Ideograph
-<U7947> \xB5\xC0 |0 # CJK Ideograph
-<U7FA9> \xB5\xC1 |0 # CJK Ideograph
-<U87FB> \xB5\xC2 |0 # CJK Ideograph
-<U8ABC> \xB5\xC3 |0 # CJK Ideograph
-<U8B70> \xB5\xC4 |0 # CJK Ideograph
-<U63AC> \xB5\xC5 |0 # CJK Ideograph
-<U83CA> \xB5\xC6 |0 # CJK Ideograph
-<U97A0> \xB5\xC7 |0 # CJK Ideograph
-<U5409> \xB5\xC8 |0 # CJK Ideograph
-<U5403> \xB5\xC9 |0 # CJK Ideograph
-<U55AB> \xB5\xCA |0 # CJK Ideograph
-<U6854> \xB5\xCB |0 # CJK Ideograph
-<U6A58> \xB5\xCC |0 # CJK Ideograph
-<U8A70> \xB5\xCD |0 # CJK Ideograph
-<U7827> \xB5\xCE |0 # CJK Ideograph
-<U6775> \xB5\xCF |0 # CJK Ideograph
-<U9ECD> \xB5\xD0 |0 # CJK Ideograph
-<U5374> \xB5\xD1 |0 # CJK Ideograph
-<U5BA2> \xB5\xD2 |0 # CJK Ideograph
-<U811A> \xB5\xD3 |0 # CJK Ideograph
-<U8650> \xB5\xD4 |0 # CJK Ideograph
-<U9006> \xB5\xD5 |0 # CJK Ideograph
-<U4E18> \xB5\xD6 |0 # CJK Ideograph
-<U4E45> \xB5\xD7 |0 # CJK Ideograph
-<U4EC7> \xB5\xD8 |0 # CJK Ideograph
-<U4F11> \xB5\xD9 |0 # CJK Ideograph
-<U53CA> \xB5\xDA |0 # CJK Ideograph
-<U5438> \xB5\xDB |0 # CJK Ideograph
-<U5BAE> \xB5\xDC |0 # CJK Ideograph
-<U5F13> \xB5\xDD |0 # CJK Ideograph
-<U6025> \xB5\xDE |0 # CJK Ideograph
-<U6551> \xB5\xDF |0 # CJK Ideograph
-<U673D> \xB5\xE0 |0 # CJK Ideograph
-<U6C42> \xB5\xE1 |0 # CJK Ideograph
-<U6C72> \xB5\xE2 |0 # CJK Ideograph
-<U6CE3> \xB5\xE3 |0 # CJK Ideograph
-<U7078> \xB5\xE4 |0 # CJK Ideograph
-<U7403> \xB5\xE5 |0 # CJK Ideograph
-<U7A76> \xB5\xE6 |0 # CJK Ideograph
-<U7AAE> \xB5\xE7 |0 # CJK Ideograph
-<U7B08> \xB5\xE8 |0 # CJK Ideograph
-<U7D1A> \xB5\xE9 |0 # CJK Ideograph
-<U7CFE> \xB5\xEA |0 # CJK Ideograph
-<U7D66> \xB5\xEB |0 # CJK Ideograph
-<U65E7> \xB5\xEC |0 # CJK Ideograph
-<U725B> \xB5\xED |0 # CJK Ideograph
-<U53BB> \xB5\xEE |0 # CJK Ideograph
-<U5C45> \xB5\xEF |0 # CJK Ideograph
-<U5DE8> \xB5\xF0 |0 # CJK Ideograph
-<U62D2> \xB5\xF1 |0 # CJK Ideograph
-<U62E0> \xB5\xF2 |0 # CJK Ideograph
-<U6319> \xB5\xF3 |0 # CJK Ideograph
-<U6E20> \xB5\xF4 |0 # CJK Ideograph
-<U865A> \xB5\xF5 |0 # CJK Ideograph
-<U8A31> \xB5\xF6 |0 # CJK Ideograph
-<U8DDD> \xB5\xF7 |0 # CJK Ideograph
-<U92F8> \xB5\xF8 |0 # CJK Ideograph
-<U6F01> \xB5\xF9 |0 # CJK Ideograph
-<U79A6> \xB5\xFA |0 # CJK Ideograph
-<U9B5A> \xB5\xFB |0 # CJK Ideograph
-<U4EA8> \xB5\xFC |0 # CJK Ideograph
-<U4EAB> \xB5\xFD |0 # CJK Ideograph
-<U4EAC> \xB5\xFE |0 # CJK Ideograph
-<U4F9B> \xB6\xA1 |0 # CJK Ideograph
-<U4FA0> \xB6\xA2 |0 # CJK Ideograph
-<U50D1> \xB6\xA3 |0 # CJK Ideograph
-<U5147> \xB6\xA4 |0 # CJK Ideograph
-<U7AF6> \xB6\xA5 |0 # CJK Ideograph
-<U5171> \xB6\xA6 |0 # CJK Ideograph
-<U51F6> \xB6\xA7 |0 # CJK Ideograph
-<U5354> \xB6\xA8 |0 # CJK Ideograph
-<U5321> \xB6\xA9 |0 # CJK Ideograph
-<U537F> \xB6\xAA |0 # CJK Ideograph
-<U53EB> \xB6\xAB |0 # CJK Ideograph
-<U55AC> \xB6\xAC |0 # CJK Ideograph
-<U5883> \xB6\xAD |0 # CJK Ideograph
-<U5CE1> \xB6\xAE |0 # CJK Ideograph
-<U5F37> \xB6\xAF |0 # CJK Ideograph
-<U5F4A> \xB6\xB0 |0 # CJK Ideograph
-<U602F> \xB6\xB1 |0 # CJK Ideograph
-<U6050> \xB6\xB2 |0 # CJK Ideograph
-<U606D> \xB6\xB3 |0 # CJK Ideograph
-<U631F> \xB6\xB4 |0 # CJK Ideograph
-<U6559> \xB6\xB5 |0 # CJK Ideograph
-<U6A4B> \xB6\xB6 |0 # CJK Ideograph
-<U6CC1> \xB6\xB7 |0 # CJK Ideograph
-<U72C2> \xB6\xB8 |0 # CJK Ideograph
-<U72ED> \xB6\xB9 |0 # CJK Ideograph
-<U77EF> \xB6\xBA |0 # CJK Ideograph
-<U80F8> \xB6\xBB |0 # CJK Ideograph
-<U8105> \xB6\xBC |0 # CJK Ideograph
-<U8208> \xB6\xBD |0 # CJK Ideograph
-<U854E> \xB6\xBE |0 # CJK Ideograph
-<U90F7> \xB6\xBF |0 # CJK Ideograph
-<U93E1> \xB6\xC0 |0 # CJK Ideograph
-<U97FF> \xB6\xC1 |0 # CJK Ideograph
-<U9957> \xB6\xC2 |0 # CJK Ideograph
-<U9A5A> \xB6\xC3 |0 # CJK Ideograph
-<U4EF0> \xB6\xC4 |0 # CJK Ideograph
-<U51DD> \xB6\xC5 |0 # CJK Ideograph
-<U5C2D> \xB6\xC6 |0 # CJK Ideograph
-<U6681> \xB6\xC7 |0 # CJK Ideograph
-<U696D> \xB6\xC8 |0 # CJK Ideograph
-<U5C40> \xB6\xC9 |0 # CJK Ideograph
-<U66F2> \xB6\xCA |0 # CJK Ideograph
-<U6975> \xB6\xCB |0 # CJK Ideograph
-<U7389> \xB6\xCC |0 # CJK Ideograph
-<U6850> \xB6\xCD |0 # CJK Ideograph
-<U7C81> \xB6\xCE |0 # CJK Ideograph
-<U50C5> \xB6\xCF |0 # CJK Ideograph
-<U52E4> \xB6\xD0 |0 # CJK Ideograph
-<U5747> \xB6\xD1 |0 # CJK Ideograph
-<U5DFE> \xB6\xD2 |0 # CJK Ideograph
-<U9326> \xB6\xD3 |0 # CJK Ideograph
-<U65A4> \xB6\xD4 |0 # CJK Ideograph
-<U6B23> \xB6\xD5 |0 # CJK Ideograph
-<U6B3D> \xB6\xD6 |0 # CJK Ideograph
-<U7434> \xB6\xD7 |0 # CJK Ideograph
-<U7981> \xB6\xD8 |0 # CJK Ideograph
-<U79BD> \xB6\xD9 |0 # CJK Ideograph
-<U7B4B> \xB6\xDA |0 # CJK Ideograph
-<U7DCA> \xB6\xDB |0 # CJK Ideograph
-<U82B9> \xB6\xDC |0 # CJK Ideograph
-<U83CC> \xB6\xDD |0 # CJK Ideograph
-<U887F> \xB6\xDE |0 # CJK Ideograph
-<U895F> \xB6\xDF |0 # CJK Ideograph
-<U8B39> \xB6\xE0 |0 # CJK Ideograph
-<U8FD1> \xB6\xE1 |0 # CJK Ideograph
-<U91D1> \xB6\xE2 |0 # CJK Ideograph
-<U541F> \xB6\xE3 |0 # CJK Ideograph
-<U9280> \xB6\xE4 |0 # CJK Ideograph
-<U4E5D> \xB6\xE5 |0 # CJK Ideograph
-<U5036> \xB6\xE6 |0 # CJK Ideograph
-<U53E5> \xB6\xE7 |0 # CJK Ideograph
-<U533A> \xB6\xE8 |0 # CJK Ideograph
-<U72D7> \xB6\xE9 |0 # CJK Ideograph
-<U7396> \xB6\xEA |0 # CJK Ideograph
-<U77E9> \xB6\xEB |0 # CJK Ideograph
-<U82E6> \xB6\xEC |0 # CJK Ideograph
-<U8EAF> \xB6\xED |0 # CJK Ideograph
-<U99C6> \xB6\xEE |0 # CJK Ideograph
-<U99C8> \xB6\xEF |0 # CJK Ideograph
-<U99D2> \xB6\xF0 |0 # CJK Ideograph
-<U5177> \xB6\xF1 |0 # CJK Ideograph
-<U611A> \xB6\xF2 |0 # CJK Ideograph
-<U865E> \xB6\xF3 |0 # CJK Ideograph
-<U55B0> \xB6\xF4 |0 # CJK Ideograph
-<U7A7A> \xB6\xF5 |0 # CJK Ideograph
-<U5076> \xB6\xF6 |0 # CJK Ideograph
-<U5BD3> \xB6\xF7 |0 # CJK Ideograph
-<U9047> \xB6\xF8 |0 # CJK Ideograph
-<U9685> \xB6\xF9 |0 # CJK Ideograph
-<U4E32> \xB6\xFA |0 # CJK Ideograph
-<U6ADB> \xB6\xFB |0 # CJK Ideograph
-<U91E7> \xB6\xFC |0 # CJK Ideograph
-<U5C51> \xB6\xFD |0 # CJK Ideograph
-<U5C48> \xB6\xFE |0 # CJK Ideograph
-<U6398> \xB7\xA1 |0 # CJK Ideograph
-<U7A9F> \xB7\xA2 |0 # CJK Ideograph
-<U6C93> \xB7\xA3 |0 # CJK Ideograph
-<U9774> \xB7\xA4 |0 # CJK Ideograph
-<U8F61> \xB7\xA5 |0 # CJK Ideograph
-<U7AAA> \xB7\xA6 |0 # CJK Ideograph
-<U718A> \xB7\xA7 |0 # CJK Ideograph
-<U9688> \xB7\xA8 |0 # CJK Ideograph
-<U7C82> \xB7\xA9 |0 # CJK Ideograph
-<U6817> \xB7\xAA |0 # CJK Ideograph
-<U7E70> \xB7\xAB |0 # CJK Ideograph
-<U6851> \xB7\xAC |0 # CJK Ideograph
-<U936C> \xB7\xAD |0 # CJK Ideograph
-<U52F2> \xB7\xAE |0 # CJK Ideograph
-<U541B> \xB7\xAF |0 # CJK Ideograph
-<U85AB> \xB7\xB0 |0 # CJK Ideograph
-<U8A13> \xB7\xB1 |0 # CJK Ideograph
-<U7FA4> \xB7\xB2 |0 # CJK Ideograph
-<U8ECD> \xB7\xB3 |0 # CJK Ideograph
-<U90E1> \xB7\xB4 |0 # CJK Ideograph
-<U5366> \xB7\xB5 |0 # CJK Ideograph
-<U8888> \xB7\xB6 |0 # CJK Ideograph
-<U7941> \xB7\xB7 |0 # CJK Ideograph
-<U4FC2> \xB7\xB8 |0 # CJK Ideograph
-<U50BE> \xB7\xB9 |0 # CJK Ideograph
-<U5211> \xB7\xBA |0 # CJK Ideograph
-<U5144> \xB7\xBB |0 # CJK Ideograph
-<U5553> \xB7\xBC |0 # CJK Ideograph
-<U572D> \xB7\xBD |0 # CJK Ideograph
-<U73EA> \xB7\xBE |0 # CJK Ideograph
-<U578B> \xB7\xBF |0 # CJK Ideograph
-<U5951> \xB7\xC0 |0 # CJK Ideograph
-<U5F62> \xB7\xC1 |0 # CJK Ideograph
-<U5F84> \xB7\xC2 |0 # CJK Ideograph
-<U6075> \xB7\xC3 |0 # CJK Ideograph
-<U6176> \xB7\xC4 |0 # CJK Ideograph
-<U6167> \xB7\xC5 |0 # CJK Ideograph
-<U61A9> \xB7\xC6 |0 # CJK Ideograph
-<U63B2> \xB7\xC7 |0 # CJK Ideograph
-<U643A> \xB7\xC8 |0 # CJK Ideograph
-<U656C> \xB7\xC9 |0 # CJK Ideograph
-<U666F> \xB7\xCA |0 # CJK Ideograph
-<U6842> \xB7\xCB |0 # CJK Ideograph
-<U6E13> \xB7\xCC |0 # CJK Ideograph
-<U7566> \xB7\xCD |0 # CJK Ideograph
-<U7A3D> \xB7\xCE |0 # CJK Ideograph
-<U7CFB> \xB7\xCF |0 # CJK Ideograph
-<U7D4C> \xB7\xD0 |0 # CJK Ideograph
-<U7D99> \xB7\xD1 |0 # CJK Ideograph
-<U7E4B> \xB7\xD2 |0 # CJK Ideograph
-<U7F6B> \xB7\xD3 |0 # CJK Ideograph
-<U830E> \xB7\xD4 |0 # CJK Ideograph
-<U834A> \xB7\xD5 |0 # CJK Ideograph
-<U86CD> \xB7\xD6 |0 # CJK Ideograph
-<U8A08> \xB7\xD7 |0 # CJK Ideograph
-<U8A63> \xB7\xD8 |0 # CJK Ideograph
-<U8B66> \xB7\xD9 |0 # CJK Ideograph
-<U8EFD> \xB7\xDA |0 # CJK Ideograph
-<U981A> \xB7\xDB |0 # CJK Ideograph
-<U9D8F> \xB7\xDC |0 # CJK Ideograph
-<U82B8> \xB7\xDD |0 # CJK Ideograph
-<U8FCE> \xB7\xDE |0 # CJK Ideograph
-<U9BE8> \xB7\xDF |0 # CJK Ideograph
-<U5287> \xB7\xE0 |0 # CJK Ideograph
-<U621F> \xB7\xE1 |0 # CJK Ideograph
-<U6483> \xB7\xE2 |0 # CJK Ideograph
-<U6FC0> \xB7\xE3 |0 # CJK Ideograph
-<U9699> \xB7\xE4 |0 # CJK Ideograph
-<U6841> \xB7\xE5 |0 # CJK Ideograph
-<U5091> \xB7\xE6 |0 # CJK Ideograph
-<U6B20> \xB7\xE7 |0 # CJK Ideograph
-<U6C7A> \xB7\xE8 |0 # CJK Ideograph
-<U6F54> \xB7\xE9 |0 # CJK Ideograph
-<U7A74> \xB7\xEA |0 # CJK Ideograph
-<U7D50> \xB7\xEB |0 # CJK Ideograph
-<U8840> \xB7\xEC |0 # CJK Ideograph
-<U8A23> \xB7\xED |0 # CJK Ideograph
-<U6708> \xB7\xEE |0 # CJK Ideograph
-<U4EF6> \xB7\xEF |0 # CJK Ideograph
-<U5039> \xB7\xF0 |0 # CJK Ideograph
-<U5026> \xB7\xF1 |0 # CJK Ideograph
-<U5065> \xB7\xF2 |0 # CJK Ideograph
-<U517C> \xB7\xF3 |0 # CJK Ideograph
-<U5238> \xB7\xF4 |0 # CJK Ideograph
-<U5263> \xB7\xF5 |0 # CJK Ideograph
-<U55A7> \xB7\xF6 |0 # CJK Ideograph
-<U570F> \xB7\xF7 |0 # CJK Ideograph
-<U5805> \xB7\xF8 |0 # CJK Ideograph
-<U5ACC> \xB7\xF9 |0 # CJK Ideograph
-<U5EFA> \xB7\xFA |0 # CJK Ideograph
-<U61B2> \xB7\xFB |0 # CJK Ideograph
-<U61F8> \xB7\xFC |0 # CJK Ideograph
-<U62F3> \xB7\xFD |0 # CJK Ideograph
-<U6372> \xB7\xFE |0 # CJK Ideograph
-<U691C> \xB8\xA1 |0 # CJK Ideograph
-<U6A29> \xB8\xA2 |0 # CJK Ideograph
-<U727D> \xB8\xA3 |0 # CJK Ideograph
-<U72AC> \xB8\xA4 |0 # CJK Ideograph
-<U732E> \xB8\xA5 |0 # CJK Ideograph
-<U7814> \xB8\xA6 |0 # CJK Ideograph
-<U786F> \xB8\xA7 |0 # CJK Ideograph
-<U7D79> \xB8\xA8 |0 # CJK Ideograph
-<U770C> \xB8\xA9 |0 # CJK Ideograph
-<U80A9> \xB8\xAA |0 # CJK Ideograph
-<U898B> \xB8\xAB |0 # CJK Ideograph
-<U8B19> \xB8\xAC |0 # CJK Ideograph
-<U8CE2> \xB8\xAD |0 # CJK Ideograph
-<U8ED2> \xB8\xAE |0 # CJK Ideograph
-<U9063> \xB8\xAF |0 # CJK Ideograph
-<U9375> \xB8\xB0 |0 # CJK Ideograph
-<U967A> \xB8\xB1 |0 # CJK Ideograph
-<U9855> \xB8\xB2 |0 # CJK Ideograph
-<U9A13> \xB8\xB3 |0 # CJK Ideograph
-<U9E78> \xB8\xB4 |0 # CJK Ideograph
-<U5143> \xB8\xB5 |0 # CJK Ideograph
-<U539F> \xB8\xB6 |0 # CJK Ideograph
-<U53B3> \xB8\xB7 |0 # CJK Ideograph
-<U5E7B> \xB8\xB8 |0 # CJK Ideograph
-<U5F26> \xB8\xB9 |0 # CJK Ideograph
-<U6E1B> \xB8\xBA |0 # CJK Ideograph
-<U6E90> \xB8\xBB |0 # CJK Ideograph
-<U7384> \xB8\xBC |0 # CJK Ideograph
-<U73FE> \xB8\xBD |0 # CJK Ideograph
-<U7D43> \xB8\xBE |0 # CJK Ideograph
-<U8237> \xB8\xBF |0 # CJK Ideograph
-<U8A00> \xB8\xC0 |0 # CJK Ideograph
-<U8AFA> \xB8\xC1 |0 # CJK Ideograph
-<U9650> \xB8\xC2 |0 # CJK Ideograph
-<U4E4E> \xB8\xC3 |0 # CJK Ideograph
-<U500B> \xB8\xC4 |0 # CJK Ideograph
-<U53E4> \xB8\xC5 |0 # CJK Ideograph
-<U547C> \xB8\xC6 |0 # CJK Ideograph
-<U56FA> \xB8\xC7 |0 # CJK Ideograph
-<U59D1> \xB8\xC8 |0 # CJK Ideograph
-<U5B64> \xB8\xC9 |0 # CJK Ideograph
-<U5DF1> \xB8\xCA |0 # CJK Ideograph
-<U5EAB> \xB8\xCB |0 # CJK Ideograph
-<U5F27> \xB8\xCC |0 # CJK Ideograph
-<U6238> \xB8\xCD |0 # CJK Ideograph
-<U6545> \xB8\xCE |0 # CJK Ideograph
-<U67AF> \xB8\xCF |0 # CJK Ideograph
-<U6E56> \xB8\xD0 |0 # CJK Ideograph
-<U72D0> \xB8\xD1 |0 # CJK Ideograph
-<U7CCA> \xB8\xD2 |0 # CJK Ideograph
-<U88B4> \xB8\xD3 |0 # CJK Ideograph
-<U80A1> \xB8\xD4 |0 # CJK Ideograph
-<U80E1> \xB8\xD5 |0 # CJK Ideograph
-<U83F0> \xB8\xD6 |0 # CJK Ideograph
-<U864E> \xB8\xD7 |0 # CJK Ideograph
-<U8A87> \xB8\xD8 |0 # CJK Ideograph
-<U8DE8> \xB8\xD9 |0 # CJK Ideograph
-<U9237> \xB8\xDA |0 # CJK Ideograph
-<U96C7> \xB8\xDB |0 # CJK Ideograph
-<U9867> \xB8\xDC |0 # CJK Ideograph
-<U9F13> \xB8\xDD |0 # CJK Ideograph
-<U4E94> \xB8\xDE |0 # CJK Ideograph
-<U4E92> \xB8\xDF |0 # CJK Ideograph
-<U4F0D> \xB8\xE0 |0 # CJK Ideograph
-<U5348> \xB8\xE1 |0 # CJK Ideograph
-<U5449> \xB8\xE2 |0 # CJK Ideograph
-<U543E> \xB8\xE3 |0 # CJK Ideograph
-<U5A2F> \xB8\xE4 |0 # CJK Ideograph
-<U5F8C> \xB8\xE5 |0 # CJK Ideograph
-<U5FA1> \xB8\xE6 |0 # CJK Ideograph
-<U609F> \xB8\xE7 |0 # CJK Ideograph
-<U68A7> \xB8\xE8 |0 # CJK Ideograph
-<U6A8E> \xB8\xE9 |0 # CJK Ideograph
-<U745A> \xB8\xEA |0 # CJK Ideograph
-<U7881> \xB8\xEB |0 # CJK Ideograph
-<U8A9E> \xB8\xEC |0 # CJK Ideograph
-<U8AA4> \xB8\xED |0 # CJK Ideograph
-<U8B77> \xB8\xEE |0 # CJK Ideograph
-<U9190> \xB8\xEF |0 # CJK Ideograph
-<U4E5E> \xB8\xF0 |0 # CJK Ideograph
-<U9BC9> \xB8\xF1 |0 # CJK Ideograph
-<U4EA4> \xB8\xF2 |0 # CJK Ideograph
-<U4F7C> \xB8\xF3 |0 # CJK Ideograph
-<U4FAF> \xB8\xF4 |0 # CJK Ideograph
-<U5019> \xB8\xF5 |0 # CJK Ideograph
-<U5016> \xB8\xF6 |0 # CJK Ideograph
-<U5149> \xB8\xF7 |0 # CJK Ideograph
-<U516C> \xB8\xF8 |0 # CJK Ideograph
-<U529F> \xB8\xF9 |0 # CJK Ideograph
-<U52B9> \xB8\xFA |0 # CJK Ideograph
-<U52FE> \xB8\xFB |0 # CJK Ideograph
-<U539A> \xB8\xFC |0 # CJK Ideograph
-<U53E3> \xB8\xFD |0 # CJK Ideograph
-<U5411> \xB8\xFE |0 # CJK Ideograph
-<U540E> \xB9\xA1 |0 # CJK Ideograph
-<U5589> \xB9\xA2 |0 # CJK Ideograph
-<U5751> \xB9\xA3 |0 # CJK Ideograph
-<U57A2> \xB9\xA4 |0 # CJK Ideograph
-<U597D> \xB9\xA5 |0 # CJK Ideograph
-<U5B54> \xB9\xA6 |0 # CJK Ideograph
-<U5B5D> \xB9\xA7 |0 # CJK Ideograph
-<U5B8F> \xB9\xA8 |0 # CJK Ideograph
-<U5DE5> \xB9\xA9 |0 # CJK Ideograph
-<U5DE7> \xB9\xAA |0 # CJK Ideograph
-<U5DF7> \xB9\xAB |0 # CJK Ideograph
-<U5E78> \xB9\xAC |0 # CJK Ideograph
-<U5E83> \xB9\xAD |0 # CJK Ideograph
-<U5E9A> \xB9\xAE |0 # CJK Ideograph
-<U5EB7> \xB9\xAF |0 # CJK Ideograph
-<U5F18> \xB9\xB0 |0 # CJK Ideograph
-<U6052> \xB9\xB1 |0 # CJK Ideograph
-<U614C> \xB9\xB2 |0 # CJK Ideograph
-<U6297> \xB9\xB3 |0 # CJK Ideograph
-<U62D8> \xB9\xB4 |0 # CJK Ideograph
-<U63A7> \xB9\xB5 |0 # CJK Ideograph
-<U653B> \xB9\xB6 |0 # CJK Ideograph
-<U6602> \xB9\xB7 |0 # CJK Ideograph
-<U6643> \xB9\xB8 |0 # CJK Ideograph
-<U66F4> \xB9\xB9 |0 # CJK Ideograph
-<U676D> \xB9\xBA |0 # CJK Ideograph
-<U6821> \xB9\xBB |0 # CJK Ideograph
-<U6897> \xB9\xBC |0 # CJK Ideograph
-<U69CB> \xB9\xBD |0 # CJK Ideograph
-<U6C5F> \xB9\xBE |0 # CJK Ideograph
-<U6D2A> \xB9\xBF |0 # CJK Ideograph
-<U6D69> \xB9\xC0 |0 # CJK Ideograph
-<U6E2F> \xB9\xC1 |0 # CJK Ideograph
-<U6E9D> \xB9\xC2 |0 # CJK Ideograph
-<U7532> \xB9\xC3 |0 # CJK Ideograph
-<U7687> \xB9\xC4 |0 # CJK Ideograph
-<U786C> \xB9\xC5 |0 # CJK Ideograph
-<U7A3F> \xB9\xC6 |0 # CJK Ideograph
-<U7CE0> \xB9\xC7 |0 # CJK Ideograph
-<U7D05> \xB9\xC8 |0 # CJK Ideograph
-<U7D18> \xB9\xC9 |0 # CJK Ideograph
-<U7D5E> \xB9\xCA |0 # CJK Ideograph
-<U7DB1> \xB9\xCB |0 # CJK Ideograph
-<U8015> \xB9\xCC |0 # CJK Ideograph
-<U8003> \xB9\xCD |0 # CJK Ideograph
-<U80AF> \xB9\xCE |0 # CJK Ideograph
-<U80B1> \xB9\xCF |0 # CJK Ideograph
-<U8154> \xB9\xD0 |0 # CJK Ideograph
-<U818F> \xB9\xD1 |0 # CJK Ideograph
-<U822A> \xB9\xD2 |0 # CJK Ideograph
-<U8352> \xB9\xD3 |0 # CJK Ideograph
-<U884C> \xB9\xD4 |0 # CJK Ideograph
-<U8861> \xB9\xD5 |0 # CJK Ideograph
-<U8B1B> \xB9\xD6 |0 # CJK Ideograph
-<U8CA2> \xB9\xD7 |0 # CJK Ideograph
-<U8CFC> \xB9\xD8 |0 # CJK Ideograph
-<U90CA> \xB9\xD9 |0 # CJK Ideograph
-<U9175> \xB9\xDA |0 # CJK Ideograph
-<U9271> \xB9\xDB |0 # CJK Ideograph
-<U783F> \xB9\xDC |0 # CJK Ideograph
-<U92FC> \xB9\xDD |0 # CJK Ideograph
-<U95A4> \xB9\xDE |0 # CJK Ideograph
-<U964D> \xB9\xDF |0 # CJK Ideograph
-<U9805> \xB9\xE0 |0 # CJK Ideograph
-<U9999> \xB9\xE1 |0 # CJK Ideograph
-<U9AD8> \xB9\xE2 |0 # CJK Ideograph
-<U9D3B> \xB9\xE3 |0 # CJK Ideograph
-<U525B> \xB9\xE4 |0 # CJK Ideograph
-<U52AB> \xB9\xE5 |0 # CJK Ideograph
-<U53F7> \xB9\xE6 |0 # CJK Ideograph
-<U5408> \xB9\xE7 |0 # CJK Ideograph
-<U58D5> \xB9\xE8 |0 # CJK Ideograph
-<U62F7> \xB9\xE9 |0 # CJK Ideograph
-<U6FE0> \xB9\xEA |0 # CJK Ideograph
-<U8C6A> \xB9\xEB |0 # CJK Ideograph
-<U8F5F> \xB9\xEC |0 # CJK Ideograph
-<U9EB9> \xB9\xED |0 # CJK Ideograph
-<U514B> \xB9\xEE |0 # CJK Ideograph
-<U523B> \xB9\xEF |0 # CJK Ideograph
-<U544A> \xB9\xF0 |0 # CJK Ideograph
-<U56FD> \xB9\xF1 |0 # CJK Ideograph
-<U7A40> \xB9\xF2 |0 # CJK Ideograph
-<U9177> \xB9\xF3 |0 # CJK Ideograph
-<U9D60> \xB9\xF4 |0 # CJK Ideograph
-<U9ED2> \xB9\xF5 |0 # CJK Ideograph
-<U7344> \xB9\xF6 |0 # CJK Ideograph
-<U6F09> \xB9\xF7 |0 # CJK Ideograph
-<U8170> \xB9\xF8 |0 # CJK Ideograph
-<U7511> \xB9\xF9 |0 # CJK Ideograph
-<U5FFD> \xB9\xFA |0 # CJK Ideograph
-<U60DA> \xB9\xFB |0 # CJK Ideograph
-<U9AA8> \xB9\xFC |0 # CJK Ideograph
-<U72DB> \xB9\xFD |0 # CJK Ideograph
-<U8FBC> \xB9\xFE |0 # CJK Ideograph
-<U6B64> \xBA\xA1 |0 # CJK Ideograph
-<U9803> \xBA\xA2 |0 # CJK Ideograph
-<U4ECA> \xBA\xA3 |0 # CJK Ideograph
-<U56F0> \xBA\xA4 |0 # CJK Ideograph
-<U5764> \xBA\xA5 |0 # CJK Ideograph
-<U58BE> \xBA\xA6 |0 # CJK Ideograph
-<U5A5A> \xBA\xA7 |0 # CJK Ideograph
-<U6068> \xBA\xA8 |0 # CJK Ideograph
-<U61C7> \xBA\xA9 |0 # CJK Ideograph
-<U660F> \xBA\xAA |0 # CJK Ideograph
-<U6606> \xBA\xAB |0 # CJK Ideograph
-<U6839> \xBA\xAC |0 # CJK Ideograph
-<U68B1> \xBA\xAD |0 # CJK Ideograph
-<U6DF7> \xBA\xAE |0 # CJK Ideograph
-<U75D5> \xBA\xAF |0 # CJK Ideograph
-<U7D3A> \xBA\xB0 |0 # CJK Ideograph
-<U826E> \xBA\xB1 |0 # CJK Ideograph
-<U9B42> \xBA\xB2 |0 # CJK Ideograph
-<U4E9B> \xBA\xB3 |0 # CJK Ideograph
-<U4F50> \xBA\xB4 |0 # CJK Ideograph
-<U53C9> \xBA\xB5 |0 # CJK Ideograph
-<U5506> \xBA\xB6 |0 # CJK Ideograph
-<U5D6F> \xBA\xB7 |0 # CJK Ideograph
-<U5DE6> \xBA\xB8 |0 # CJK Ideograph
-<U5DEE> \xBA\xB9 |0 # CJK Ideograph
-<U67FB> \xBA\xBA |0 # CJK Ideograph
-<U6C99> \xBA\xBB |0 # CJK Ideograph
-<U7473> \xBA\xBC |0 # CJK Ideograph
-<U7802> \xBA\xBD |0 # CJK Ideograph
-<U8A50> \xBA\xBE |0 # CJK Ideograph
-<U9396> \xBA\xBF |0 # CJK Ideograph
-<U88DF> \xBA\xC0 |0 # CJK Ideograph
-<U5750> \xBA\xC1 |0 # CJK Ideograph
-<U5EA7> \xBA\xC2 |0 # CJK Ideograph
-<U632B> \xBA\xC3 |0 # CJK Ideograph
-<U50B5> \xBA\xC4 |0 # CJK Ideograph
-<U50AC> \xBA\xC5 |0 # CJK Ideograph
-<U518D> \xBA\xC6 |0 # CJK Ideograph
-<U6700> \xBA\xC7 |0 # CJK Ideograph
-<U54C9> \xBA\xC8 |0 # CJK Ideograph
-<U585E> \xBA\xC9 |0 # CJK Ideograph
-<U59BB> \xBA\xCA |0 # CJK Ideograph
-<U5BB0> \xBA\xCB |0 # CJK Ideograph
-<U5F69> \xBA\xCC |0 # CJK Ideograph
-<U624D> \xBA\xCD |0 # CJK Ideograph
-<U63A1> \xBA\xCE |0 # CJK Ideograph
-<U683D> \xBA\xCF |0 # CJK Ideograph
-<U6B73> \xBA\xD0 |0 # CJK Ideograph
-<U6E08> \xBA\xD1 |0 # CJK Ideograph
-<U707D> \xBA\xD2 |0 # CJK Ideograph
-<U91C7> \xBA\xD3 |0 # CJK Ideograph
-<U7280> \xBA\xD4 |0 # CJK Ideograph
-<U7815> \xBA\xD5 |0 # CJK Ideograph
-<U7826> \xBA\xD6 |0 # CJK Ideograph
-<U796D> \xBA\xD7 |0 # CJK Ideograph
-<U658E> \xBA\xD8 |0 # CJK Ideograph
-<U7D30> \xBA\xD9 |0 # CJK Ideograph
-<U83DC> \xBA\xDA |0 # CJK Ideograph
-<U88C1> \xBA\xDB |0 # CJK Ideograph
-<U8F09> \xBA\xDC |0 # CJK Ideograph
-<U969B> \xBA\xDD |0 # CJK Ideograph
-<U5264> \xBA\xDE |0 # CJK Ideograph
-<U5728> \xBA\xDF |0 # CJK Ideograph
-<U6750> \xBA\xE0 |0 # CJK Ideograph
-<U7F6A> \xBA\xE1 |0 # CJK Ideograph
-<U8CA1> \xBA\xE2 |0 # CJK Ideograph
-<U51B4> \xBA\xE3 |0 # CJK Ideograph
-<U5742> \xBA\xE4 |0 # CJK Ideograph
-<U962A> \xBA\xE5 |0 # CJK Ideograph
-<U583A> \xBA\xE6 |0 # CJK Ideograph
-<U698A> \xBA\xE7 |0 # CJK Ideograph
-<U80B4> \xBA\xE8 |0 # CJK Ideograph
-<U54B2> \xBA\xE9 |0 # CJK Ideograph
-<U5D0E> \xBA\xEA |0 # CJK Ideograph
-<U57FC> \xBA\xEB |0 # CJK Ideograph
-<U7895> \xBA\xEC |0 # CJK Ideograph
-<U9DFA> \xBA\xED |0 # CJK Ideograph
-<U4F5C> \xBA\xEE |0 # CJK Ideograph
-<U524A> \xBA\xEF |0 # CJK Ideograph
-<U548B> \xBA\xF0 |0 # CJK Ideograph
-<U643E> \xBA\xF1 |0 # CJK Ideograph
-<U6628> \xBA\xF2 |0 # CJK Ideograph
-<U6714> \xBA\xF3 |0 # CJK Ideograph
-<U67F5> \xBA\xF4 |0 # CJK Ideograph
-<U7A84> \xBA\xF5 |0 # CJK Ideograph
-<U7B56> \xBA\xF6 |0 # CJK Ideograph
-<U7D22> \xBA\xF7 |0 # CJK Ideograph
-<U932F> \xBA\xF8 |0 # CJK Ideograph
-<U685C> \xBA\xF9 |0 # CJK Ideograph
-<U9BAD> \xBA\xFA |0 # CJK Ideograph
-<U7B39> \xBA\xFB |0 # CJK Ideograph
-<U5319> \xBA\xFC |0 # CJK Ideograph
-<U518A> \xBA\xFD |0 # CJK Ideograph
-<U5237> \xBA\xFE |0 # CJK Ideograph
-<U5BDF> \xBB\xA1 |0 # CJK Ideograph
-<U62F6> \xBB\xA2 |0 # CJK Ideograph
-<U64AE> \xBB\xA3 |0 # CJK Ideograph
-<U64E6> \xBB\xA4 |0 # CJK Ideograph
-<U672D> \xBB\xA5 |0 # CJK Ideograph
-<U6BBA> \xBB\xA6 |0 # CJK Ideograph
-<U85A9> \xBB\xA7 |0 # CJK Ideograph
-<U96D1> \xBB\xA8 |0 # CJK Ideograph
-<U7690> \xBB\xA9 |0 # CJK Ideograph
-<U9BD6> \xBB\xAA |0 # CJK Ideograph
-<U634C> \xBB\xAB |0 # CJK Ideograph
-<U9306> \xBB\xAC |0 # CJK Ideograph
-<U9BAB> \xBB\xAD |0 # CJK Ideograph
-<U76BF> \xBB\xAE |0 # CJK Ideograph
-<U6652> \xBB\xAF |0 # CJK Ideograph
-<U4E09> \xBB\xB0 |0 # CJK Ideograph
-<U5098> \xBB\xB1 |0 # CJK Ideograph
-<U53C2> \xBB\xB2 |0 # CJK Ideograph
-<U5C71> \xBB\xB3 |0 # CJK Ideograph
-<U60E8> \xBB\xB4 |0 # CJK Ideograph
-<U6492> \xBB\xB5 |0 # CJK Ideograph
-<U6563> \xBB\xB6 |0 # CJK Ideograph
-<U685F> \xBB\xB7 |0 # CJK Ideograph
-<U71E6> \xBB\xB8 |0 # CJK Ideograph
-<U73CA> \xBB\xB9 |0 # CJK Ideograph
-<U7523> \xBB\xBA |0 # CJK Ideograph
-<U7B97> \xBB\xBB |0 # CJK Ideograph
-<U7E82> \xBB\xBC |0 # CJK Ideograph
-<U8695> \xBB\xBD |0 # CJK Ideograph
-<U8B83> \xBB\xBE |0 # CJK Ideograph
-<U8CDB> \xBB\xBF |0 # CJK Ideograph
-<U9178> \xBB\xC0 |0 # CJK Ideograph
-<U9910> \xBB\xC1 |0 # CJK Ideograph
-<U65AC> \xBB\xC2 |0 # CJK Ideograph
-<U66AB> \xBB\xC3 |0 # CJK Ideograph
-<U6B8B> \xBB\xC4 |0 # CJK Ideograph
-<U4ED5> \xBB\xC5 |0 # CJK Ideograph
-<U4ED4> \xBB\xC6 |0 # CJK Ideograph
-<U4F3A> \xBB\xC7 |0 # CJK Ideograph
-<U4F7F> \xBB\xC8 |0 # CJK Ideograph
-<U523A> \xBB\xC9 |0 # CJK Ideograph
-<U53F8> \xBB\xCA |0 # CJK Ideograph
-<U53F2> \xBB\xCB |0 # CJK Ideograph
-<U55E3> \xBB\xCC |0 # CJK Ideograph
-<U56DB> \xBB\xCD |0 # CJK Ideograph
-<U58EB> \xBB\xCE |0 # CJK Ideograph
-<U59CB> \xBB\xCF |0 # CJK Ideograph
-<U59C9> \xBB\xD0 |0 # CJK Ideograph
-<U59FF> \xBB\xD1 |0 # CJK Ideograph
-<U5B50> \xBB\xD2 |0 # CJK Ideograph
-<U5C4D> \xBB\xD3 |0 # CJK Ideograph
-<U5E02> \xBB\xD4 |0 # CJK Ideograph
-<U5E2B> \xBB\xD5 |0 # CJK Ideograph
-<U5FD7> \xBB\xD6 |0 # CJK Ideograph
-<U601D> \xBB\xD7 |0 # CJK Ideograph
-<U6307> \xBB\xD8 |0 # CJK Ideograph
-<U652F> \xBB\xD9 |0 # CJK Ideograph
-<U5B5C> \xBB\xDA |0 # CJK Ideograph
-<U65AF> \xBB\xDB |0 # CJK Ideograph
-<U65BD> \xBB\xDC |0 # CJK Ideograph
-<U65E8> \xBB\xDD |0 # CJK Ideograph
-<U679D> \xBB\xDE |0 # CJK Ideograph
-<U6B62> \xBB\xDF |0 # CJK Ideograph
-<U6B7B> \xBB\xE0 |0 # CJK Ideograph
-<U6C0F> \xBB\xE1 |0 # CJK Ideograph
-<U7345> \xBB\xE2 |0 # CJK Ideograph
-<U7949> \xBB\xE3 |0 # CJK Ideograph
-<U79C1> \xBB\xE4 |0 # CJK Ideograph
-<U7CF8> \xBB\xE5 |0 # CJK Ideograph
-<U7D19> \xBB\xE6 |0 # CJK Ideograph
-<U7D2B> \xBB\xE7 |0 # CJK Ideograph
-<U80A2> \xBB\xE8 |0 # CJK Ideograph
-<U8102> \xBB\xE9 |0 # CJK Ideograph
-<U81F3> \xBB\xEA |0 # CJK Ideograph
-<U8996> \xBB\xEB |0 # CJK Ideograph
-<U8A5E> \xBB\xEC |0 # CJK Ideograph
-<U8A69> \xBB\xED |0 # CJK Ideograph
-<U8A66> \xBB\xEE |0 # CJK Ideograph
-<U8A8C> \xBB\xEF |0 # CJK Ideograph
-<U8AEE> \xBB\xF0 |0 # CJK Ideograph
-<U8CC7> \xBB\xF1 |0 # CJK Ideograph
-<U8CDC> \xBB\xF2 |0 # CJK Ideograph
-<U96CC> \xBB\xF3 |0 # CJK Ideograph
-<U98FC> \xBB\xF4 |0 # CJK Ideograph
-<U6B6F> \xBB\xF5 |0 # CJK Ideograph
-<U4E8B> \xBB\xF6 |0 # CJK Ideograph
-<U4F3C> \xBB\xF7 |0 # CJK Ideograph
-<U4F8D> \xBB\xF8 |0 # CJK Ideograph
-<U5150> \xBB\xF9 |0 # CJK Ideograph
-<U5B57> \xBB\xFA |0 # CJK Ideograph
-<U5BFA> \xBB\xFB |0 # CJK Ideograph
-<U6148> \xBB\xFC |0 # CJK Ideograph
-<U6301> \xBB\xFD |0 # CJK Ideograph
-<U6642> \xBB\xFE |0 # CJK Ideograph
-<U6B21> \xBC\xA1 |0 # CJK Ideograph
-<U6ECB> \xBC\xA2 |0 # CJK Ideograph
-<U6CBB> \xBC\xA3 |0 # CJK Ideograph
-<U723E> \xBC\xA4 |0 # CJK Ideograph
-<U74BD> \xBC\xA5 |0 # CJK Ideograph
-<U75D4> \xBC\xA6 |0 # CJK Ideograph
-<U78C1> \xBC\xA7 |0 # CJK Ideograph
-<U793A> \xBC\xA8 |0 # CJK Ideograph
-<U800C> \xBC\xA9 |0 # CJK Ideograph
-<U8033> \xBC\xAA |0 # CJK Ideograph
-<U81EA> \xBC\xAB |0 # CJK Ideograph
-<U8494> \xBC\xAC |0 # CJK Ideograph
-<U8F9E> \xBC\xAD |0 # CJK Ideograph
-<U6C50> \xBC\xAE |0 # CJK Ideograph
-<U9E7F> \xBC\xAF |0 # CJK Ideograph
-<U5F0F> \xBC\xB0 |0 # CJK Ideograph
-<U8B58> \xBC\xB1 |0 # CJK Ideograph
-<U9D2B> \xBC\xB2 |0 # CJK Ideograph
-<U7AFA> \xBC\xB3 |0 # CJK Ideograph
-<U8EF8> \xBC\xB4 |0 # CJK Ideograph
-<U5B8D> \xBC\xB5 |0 # CJK Ideograph
-<U96EB> \xBC\xB6 |0 # CJK Ideograph
-<U4E03> \xBC\xB7 |0 # CJK Ideograph
-<U53F1> \xBC\xB8 |0 # CJK Ideograph
-<U57F7> \xBC\xB9 |0 # CJK Ideograph
-<U5931> \xBC\xBA |0 # CJK Ideograph
-<U5AC9> \xBC\xBB |0 # CJK Ideograph
-<U5BA4> \xBC\xBC |0 # CJK Ideograph
-<U6089> \xBC\xBD |0 # CJK Ideograph
-<U6E7F> \xBC\xBE |0 # CJK Ideograph
-<U6F06> \xBC\xBF |0 # CJK Ideograph
-<U75BE> \xBC\xC0 |0 # CJK Ideograph
-<U8CEA> \xBC\xC1 |0 # CJK Ideograph
-<U5B9F> \xBC\xC2 |0 # CJK Ideograph
-<U8500> \xBC\xC3 |0 # CJK Ideograph
-<U7BE0> \xBC\xC4 |0 # CJK Ideograph
-<U5072> \xBC\xC5 |0 # CJK Ideograph
-<U67F4> \xBC\xC6 |0 # CJK Ideograph
-<U829D> \xBC\xC7 |0 # CJK Ideograph
-<U5C61> \xBC\xC8 |0 # CJK Ideograph
-<U854A> \xBC\xC9 |0 # CJK Ideograph
-<U7E1E> \xBC\xCA |0 # CJK Ideograph
-<U820E> \xBC\xCB |0 # CJK Ideograph
-<U5199> \xBC\xCC |0 # CJK Ideograph
-<U5C04> \xBC\xCD |0 # CJK Ideograph
-<U6368> \xBC\xCE |0 # CJK Ideograph
-<U8D66> \xBC\xCF |0 # CJK Ideograph
-<U659C> \xBC\xD0 |0 # CJK Ideograph
-<U716E> \xBC\xD1 |0 # CJK Ideograph
-<U793E> \xBC\xD2 |0 # CJK Ideograph
-<U7D17> \xBC\xD3 |0 # CJK Ideograph
-<U8005> \xBC\xD4 |0 # CJK Ideograph
-<U8B1D> \xBC\xD5 |0 # CJK Ideograph
-<U8ECA> \xBC\xD6 |0 # CJK Ideograph
-<U906E> \xBC\xD7 |0 # CJK Ideograph
-<U86C7> \xBC\xD8 |0 # CJK Ideograph
-<U90AA> \xBC\xD9 |0 # CJK Ideograph
-<U501F> \xBC\xDA |0 # CJK Ideograph
-<U52FA> \xBC\xDB |0 # CJK Ideograph
-<U5C3A> \xBC\xDC |0 # CJK Ideograph
-<U6753> \xBC\xDD |0 # CJK Ideograph
-<U707C> \xBC\xDE |0 # CJK Ideograph
-<U7235> \xBC\xDF |0 # CJK Ideograph
-<U914C> \xBC\xE0 |0 # CJK Ideograph
-<U91C8> \xBC\xE1 |0 # CJK Ideograph
-<U932B> \xBC\xE2 |0 # CJK Ideograph
-<U82E5> \xBC\xE3 |0 # CJK Ideograph
-<U5BC2> \xBC\xE4 |0 # CJK Ideograph
-<U5F31> \xBC\xE5 |0 # CJK Ideograph
-<U60F9> \xBC\xE6 |0 # CJK Ideograph
-<U4E3B> \xBC\xE7 |0 # CJK Ideograph
-<U53D6> \xBC\xE8 |0 # CJK Ideograph
-<U5B88> \xBC\xE9 |0 # CJK Ideograph
-<U624B> \xBC\xEA |0 # CJK Ideograph
-<U6731> \xBC\xEB |0 # CJK Ideograph
-<U6B8A> \xBC\xEC |0 # CJK Ideograph
-<U72E9> \xBC\xED |0 # CJK Ideograph
-<U73E0> \xBC\xEE |0 # CJK Ideograph
-<U7A2E> \xBC\xEF |0 # CJK Ideograph
-<U816B> \xBC\xF0 |0 # CJK Ideograph
-<U8DA3> \xBC\xF1 |0 # CJK Ideograph
-<U9152> \xBC\xF2 |0 # CJK Ideograph
-<U9996> \xBC\xF3 |0 # CJK Ideograph
-<U5112> \xBC\xF4 |0 # CJK Ideograph
-<U53D7> \xBC\xF5 |0 # CJK Ideograph
-<U546A> \xBC\xF6 |0 # CJK Ideograph
-<U5BFF> \xBC\xF7 |0 # CJK Ideograph
-<U6388> \xBC\xF8 |0 # CJK Ideograph
-<U6A39> \xBC\xF9 |0 # CJK Ideograph
-<U7DAC> \xBC\xFA |0 # CJK Ideograph
-<U9700> \xBC\xFB |0 # CJK Ideograph
-<U56DA> \xBC\xFC |0 # CJK Ideograph
-<U53CE> \xBC\xFD |0 # CJK Ideograph
-<U5468> \xBC\xFE |0 # CJK Ideograph
-<U5B97> \xBD\xA1 |0 # CJK Ideograph
-<U5C31> \xBD\xA2 |0 # CJK Ideograph
-<U5DDE> \xBD\xA3 |0 # CJK Ideograph
-<U4FEE> \xBD\xA4 |0 # CJK Ideograph
-<U6101> \xBD\xA5 |0 # CJK Ideograph
-<U62FE> \xBD\xA6 |0 # CJK Ideograph
-<U6D32> \xBD\xA7 |0 # CJK Ideograph
-<U79C0> \xBD\xA8 |0 # CJK Ideograph
-<U79CB> \xBD\xA9 |0 # CJK Ideograph
-<U7D42> \xBD\xAA |0 # CJK Ideograph
-<U7E4D> \xBD\xAB |0 # CJK Ideograph
-<U7FD2> \xBD\xAC |0 # CJK Ideograph
-<U81ED> \xBD\xAD |0 # CJK Ideograph
-<U821F> \xBD\xAE |0 # CJK Ideograph
-<U8490> \xBD\xAF |0 # CJK Ideograph
-<U8846> \xBD\xB0 |0 # CJK Ideograph
-<U8972> \xBD\xB1 |0 # CJK Ideograph
-<U8B90> \xBD\xB2 |0 # CJK Ideograph
-<U8E74> \xBD\xB3 |0 # CJK Ideograph
-<U8F2F> \xBD\xB4 |0 # CJK Ideograph
-<U9031> \xBD\xB5 |0 # CJK Ideograph
-<U914B> \xBD\xB6 |0 # CJK Ideograph
-<U916C> \xBD\xB7 |0 # CJK Ideograph
-<U96C6> \xBD\xB8 |0 # CJK Ideograph
-<U919C> \xBD\xB9 |0 # CJK Ideograph
-<U4EC0> \xBD\xBA |0 # CJK Ideograph
-<U4F4F> \xBD\xBB |0 # CJK Ideograph
-<U5145> \xBD\xBC |0 # CJK Ideograph
-<U5341> \xBD\xBD |0 # CJK Ideograph
-<U5F93> \xBD\xBE |0 # CJK Ideograph
-<U620E> \xBD\xBF |0 # CJK Ideograph
-<U67D4> \xBD\xC0 |0 # CJK Ideograph
-<U6C41> \xBD\xC1 |0 # CJK Ideograph
-<U6E0B> \xBD\xC2 |0 # CJK Ideograph
-<U7363> \xBD\xC3 |0 # CJK Ideograph
-<U7E26> \xBD\xC4 |0 # CJK Ideograph
-<U91CD> \xBD\xC5 |0 # CJK Ideograph
-<U9283> \xBD\xC6 |0 # CJK Ideograph
-<U53D4> \xBD\xC7 |0 # CJK Ideograph
-<U5919> \xBD\xC8 |0 # CJK Ideograph
-<U5BBF> \xBD\xC9 |0 # CJK Ideograph
-<U6DD1> \xBD\xCA |0 # CJK Ideograph
-<U795D> \xBD\xCB |0 # CJK Ideograph
-<U7E2E> \xBD\xCC |0 # CJK Ideograph
-<U7C9B> \xBD\xCD |0 # CJK Ideograph
-<U587E> \xBD\xCE |0 # CJK Ideograph
-<U719F> \xBD\xCF |0 # CJK Ideograph
-<U51FA> \xBD\xD0 |0 # CJK Ideograph
-<U8853> \xBD\xD1 |0 # CJK Ideograph
-<U8FF0> \xBD\xD2 |0 # CJK Ideograph
-<U4FCA> \xBD\xD3 |0 # CJK Ideograph
-<U5CFB> \xBD\xD4 |0 # CJK Ideograph
-<U6625> \xBD\xD5 |0 # CJK Ideograph
-<U77AC> \xBD\xD6 |0 # CJK Ideograph
-<U7AE3> \xBD\xD7 |0 # CJK Ideograph
-<U821C> \xBD\xD8 |0 # CJK Ideograph
-<U99FF> \xBD\xD9 |0 # CJK Ideograph
-<U51C6> \xBD\xDA |0 # CJK Ideograph
-<U5FAA> \xBD\xDB |0 # CJK Ideograph
-<U65EC> \xBD\xDC |0 # CJK Ideograph
-<U696F> \xBD\xDD |0 # CJK Ideograph
-<U6B89> \xBD\xDE |0 # CJK Ideograph
-<U6DF3> \xBD\xDF |0 # CJK Ideograph
-<U6E96> \xBD\xE0 |0 # CJK Ideograph
-<U6F64> \xBD\xE1 |0 # CJK Ideograph
-<U76FE> \xBD\xE2 |0 # CJK Ideograph
-<U7D14> \xBD\xE3 |0 # CJK Ideograph
-<U5DE1> \xBD\xE4 |0 # CJK Ideograph
-<U9075> \xBD\xE5 |0 # CJK Ideograph
-<U9187> \xBD\xE6 |0 # CJK Ideograph
-<U9806> \xBD\xE7 |0 # CJK Ideograph
-<U51E6> \xBD\xE8 |0 # CJK Ideograph
-<U521D> \xBD\xE9 |0 # CJK Ideograph
-<U6240> \xBD\xEA |0 # CJK Ideograph
-<U6691> \xBD\xEB |0 # CJK Ideograph
-<U66D9> \xBD\xEC |0 # CJK Ideograph
-<U6E1A> \xBD\xED |0 # CJK Ideograph
-<U5EB6> \xBD\xEE |0 # CJK Ideograph
-<U7DD2> \xBD\xEF |0 # CJK Ideograph
-<U7F72> \xBD\xF0 |0 # CJK Ideograph
-<U66F8> \xBD\xF1 |0 # CJK Ideograph
-<U85AF> \xBD\xF2 |0 # CJK Ideograph
-<U85F7> \xBD\xF3 |0 # CJK Ideograph
-<U8AF8> \xBD\xF4 |0 # CJK Ideograph
-<U52A9> \xBD\xF5 |0 # CJK Ideograph
-<U53D9> \xBD\xF6 |0 # CJK Ideograph
-<U5973> \xBD\xF7 |0 # CJK Ideograph
-<U5E8F> \xBD\xF8 |0 # CJK Ideograph
-<U5F90> \xBD\xF9 |0 # CJK Ideograph
-<U6055> \xBD\xFA |0 # CJK Ideograph
-<U92E4> \xBD\xFB |0 # CJK Ideograph
-<U9664> \xBD\xFC |0 # CJK Ideograph
-<U50B7> \xBD\xFD |0 # CJK Ideograph
-<U511F> \xBD\xFE |0 # CJK Ideograph
-<U52DD> \xBE\xA1 |0 # CJK Ideograph
-<U5320> \xBE\xA2 |0 # CJK Ideograph
-<U5347> \xBE\xA3 |0 # CJK Ideograph
-<U53EC> \xBE\xA4 |0 # CJK Ideograph
-<U54E8> \xBE\xA5 |0 # CJK Ideograph
-<U5546> \xBE\xA6 |0 # CJK Ideograph
-<U5531> \xBE\xA7 |0 # CJK Ideograph
-<U5617> \xBE\xA8 |0 # CJK Ideograph
-<U5968> \xBE\xA9 |0 # CJK Ideograph
-<U59BE> \xBE\xAA |0 # CJK Ideograph
-<U5A3C> \xBE\xAB |0 # CJK Ideograph
-<U5BB5> \xBE\xAC |0 # CJK Ideograph
-<U5C06> \xBE\xAD |0 # CJK Ideograph
-<U5C0F> \xBE\xAE |0 # CJK Ideograph
-<U5C11> \xBE\xAF |0 # CJK Ideograph
-<U5C1A> \xBE\xB0 |0 # CJK Ideograph
-<U5E84> \xBE\xB1 |0 # CJK Ideograph
-<U5E8A> \xBE\xB2 |0 # CJK Ideograph
-<U5EE0> \xBE\xB3 |0 # CJK Ideograph
-<U5F70> \xBE\xB4 |0 # CJK Ideograph
-<U627F> \xBE\xB5 |0 # CJK Ideograph
-<U6284> \xBE\xB6 |0 # CJK Ideograph
-<U62DB> \xBE\xB7 |0 # CJK Ideograph
-<U638C> \xBE\xB8 |0 # CJK Ideograph
-<U6377> \xBE\xB9 |0 # CJK Ideograph
-<U6607> \xBE\xBA |0 # CJK Ideograph
-<U660C> \xBE\xBB |0 # CJK Ideograph
-<U662D> \xBE\xBC |0 # CJK Ideograph
-<U6676> \xBE\xBD |0 # CJK Ideograph
-<U677E> \xBE\xBE |0 # CJK Ideograph
-<U68A2> \xBE\xBF |0 # CJK Ideograph
-<U6A1F> \xBE\xC0 |0 # CJK Ideograph
-<U6A35> \xBE\xC1 |0 # CJK Ideograph
-<U6CBC> \xBE\xC2 |0 # CJK Ideograph
-<U6D88> \xBE\xC3 |0 # CJK Ideograph
-<U6E09> \xBE\xC4 |0 # CJK Ideograph
-<U6E58> \xBE\xC5 |0 # CJK Ideograph
-<U713C> \xBE\xC6 |0 # CJK Ideograph
-<U7126> \xBE\xC7 |0 # CJK Ideograph
-<U7167> \xBE\xC8 |0 # CJK Ideograph
-<U75C7> \xBE\xC9 |0 # CJK Ideograph
-<U7701> \xBE\xCA |0 # CJK Ideograph
-<U785D> \xBE\xCB |0 # CJK Ideograph
-<U7901> \xBE\xCC |0 # CJK Ideograph
-<U7965> \xBE\xCD |0 # CJK Ideograph
-<U79F0> \xBE\xCE |0 # CJK Ideograph
-<U7AE0> \xBE\xCF |0 # CJK Ideograph
-<U7B11> \xBE\xD0 |0 # CJK Ideograph
-<U7CA7> \xBE\xD1 |0 # CJK Ideograph
-<U7D39> \xBE\xD2 |0 # CJK Ideograph
-<U8096> \xBE\xD3 |0 # CJK Ideograph
-<U83D6> \xBE\xD4 |0 # CJK Ideograph
-<U848B> \xBE\xD5 |0 # CJK Ideograph
-<U8549> \xBE\xD6 |0 # CJK Ideograph
-<U885D> \xBE\xD7 |0 # CJK Ideograph
-<U88F3> \xBE\xD8 |0 # CJK Ideograph
-<U8A1F> \xBE\xD9 |0 # CJK Ideograph
-<U8A3C> \xBE\xDA |0 # CJK Ideograph
-<U8A54> \xBE\xDB |0 # CJK Ideograph
-<U8A73> \xBE\xDC |0 # CJK Ideograph
-<U8C61> \xBE\xDD |0 # CJK Ideograph
-<U8CDE> \xBE\xDE |0 # CJK Ideograph
-<U91A4> \xBE\xDF |0 # CJK Ideograph
-<U9266> \xBE\xE0 |0 # CJK Ideograph
-<U937E> \xBE\xE1 |0 # CJK Ideograph
-<U9418> \xBE\xE2 |0 # CJK Ideograph
-<U969C> \xBE\xE3 |0 # CJK Ideograph
-<U9798> \xBE\xE4 |0 # CJK Ideograph
-<U4E0A> \xBE\xE5 |0 # CJK Ideograph
-<U4E08> \xBE\xE6 |0 # CJK Ideograph
-<U4E1E> \xBE\xE7 |0 # CJK Ideograph
-<U4E57> \xBE\xE8 |0 # CJK Ideograph
-<U5197> \xBE\xE9 |0 # CJK Ideograph
-<U5270> \xBE\xEA |0 # CJK Ideograph
-<U57CE> \xBE\xEB |0 # CJK Ideograph
-<U5834> \xBE\xEC |0 # CJK Ideograph
-<U58CC> \xBE\xED |0 # CJK Ideograph
-<U5B22> \xBE\xEE |0 # CJK Ideograph
-<U5E38> \xBE\xEF |0 # CJK Ideograph
-<U60C5> \xBE\xF0 |0 # CJK Ideograph
-<U64FE> \xBE\xF1 |0 # CJK Ideograph
-<U6761> \xBE\xF2 |0 # CJK Ideograph
-<U6756> \xBE\xF3 |0 # CJK Ideograph
-<U6D44> \xBE\xF4 |0 # CJK Ideograph
-<U72B6> \xBE\xF5 |0 # CJK Ideograph
-<U7573> \xBE\xF6 |0 # CJK Ideograph
-<U7A63> \xBE\xF7 |0 # CJK Ideograph
-<U84B8> \xBE\xF8 |0 # CJK Ideograph
-<U8B72> \xBE\xF9 |0 # CJK Ideograph
-<U91B8> \xBE\xFA |0 # CJK Ideograph
-<U9320> \xBE\xFB |0 # CJK Ideograph
-<U5631> \xBE\xFC |0 # CJK Ideograph
-<U57F4> \xBE\xFD |0 # CJK Ideograph
-<U98FE> \xBE\xFE |0 # CJK Ideograph
-<U62ED> \xBF\xA1 |0 # CJK Ideograph
-<U690D> \xBF\xA2 |0 # CJK Ideograph
-<U6B96> \xBF\xA3 |0 # CJK Ideograph
-<U71ED> \xBF\xA4 |0 # CJK Ideograph
-<U7E54> \xBF\xA5 |0 # CJK Ideograph
-<U8077> \xBF\xA6 |0 # CJK Ideograph
-<U8272> \xBF\xA7 |0 # CJK Ideograph
-<U89E6> \xBF\xA8 |0 # CJK Ideograph
-<U98DF> \xBF\xA9 |0 # CJK Ideograph
-<U8755> \xBF\xAA |0 # CJK Ideograph
-<U8FB1> \xBF\xAB |0 # CJK Ideograph
-<U5C3B> \xBF\xAC |0 # CJK Ideograph
-<U4F38> \xBF\xAD |0 # CJK Ideograph
-<U4FE1> \xBF\xAE |0 # CJK Ideograph
-<U4FB5> \xBF\xAF |0 # CJK Ideograph
-<U5507> \xBF\xB0 |0 # CJK Ideograph
-<U5A20> \xBF\xB1 |0 # CJK Ideograph
-<U5BDD> \xBF\xB2 |0 # CJK Ideograph
-<U5BE9> \xBF\xB3 |0 # CJK Ideograph
-<U5FC3> \xBF\xB4 |0 # CJK Ideograph
-<U614E> \xBF\xB5 |0 # CJK Ideograph
-<U632F> \xBF\xB6 |0 # CJK Ideograph
-<U65B0> \xBF\xB7 |0 # CJK Ideograph
-<U664B> \xBF\xB8 |0 # CJK Ideograph
-<U68EE> \xBF\xB9 |0 # CJK Ideograph
-<U699B> \xBF\xBA |0 # CJK Ideograph
-<U6D78> \xBF\xBB |0 # CJK Ideograph
-<U6DF1> \xBF\xBC |0 # CJK Ideograph
-<U7533> \xBF\xBD |0 # CJK Ideograph
-<U75B9> \xBF\xBE |0 # CJK Ideograph
-<U771F> \xBF\xBF |0 # CJK Ideograph
-<U795E> \xBF\xC0 |0 # CJK Ideograph
-<U79E6> \xBF\xC1 |0 # CJK Ideograph
-<U7D33> \xBF\xC2 |0 # CJK Ideograph
-<U81E3> \xBF\xC3 |0 # CJK Ideograph
-<U82AF> \xBF\xC4 |0 # CJK Ideograph
-<U85AA> \xBF\xC5 |0 # CJK Ideograph
-<U89AA> \xBF\xC6 |0 # CJK Ideograph
-<U8A3A> \xBF\xC7 |0 # CJK Ideograph
-<U8EAB> \xBF\xC8 |0 # CJK Ideograph
-<U8F9B> \xBF\xC9 |0 # CJK Ideograph
-<U9032> \xBF\xCA |0 # CJK Ideograph
-<U91DD> \xBF\xCB |0 # CJK Ideograph
-<U9707> \xBF\xCC |0 # CJK Ideograph
-<U4EBA> \xBF\xCD |0 # CJK Ideograph
-<U4EC1> \xBF\xCE |0 # CJK Ideograph
-<U5203> \xBF\xCF |0 # CJK Ideograph
-<U5875> \xBF\xD0 |0 # CJK Ideograph
-<U58EC> \xBF\xD1 |0 # CJK Ideograph
-<U5C0B> \xBF\xD2 |0 # CJK Ideograph
-<U751A> \xBF\xD3 |0 # CJK Ideograph
-<U5C3D> \xBF\xD4 |0 # CJK Ideograph
-<U814E> \xBF\xD5 |0 # CJK Ideograph
-<U8A0A> \xBF\xD6 |0 # CJK Ideograph
-<U8FC5> \xBF\xD7 |0 # CJK Ideograph
-<U9663> \xBF\xD8 |0 # CJK Ideograph
-<U976D> \xBF\xD9 |0 # CJK Ideograph
-<U7B25> \xBF\xDA |0 # CJK Ideograph
-<U8ACF> \xBF\xDB |0 # CJK Ideograph
-<U9808> \xBF\xDC |0 # CJK Ideograph
-<U9162> \xBF\xDD |0 # CJK Ideograph
-<U56F3> \xBF\xDE |0 # CJK Ideograph
-<U53A8> \xBF\xDF |0 # CJK Ideograph
-<U9017> \xBF\xE0 |0 # CJK Ideograph
-<U5439> \xBF\xE1 |0 # CJK Ideograph
-<U5782> \xBF\xE2 |0 # CJK Ideograph
-<U5E25> \xBF\xE3 |0 # CJK Ideograph
-<U63A8> \xBF\xE4 |0 # CJK Ideograph
-<U6C34> \xBF\xE5 |0 # CJK Ideograph
-<U708A> \xBF\xE6 |0 # CJK Ideograph
-<U7761> \xBF\xE7 |0 # CJK Ideograph
-<U7C8B> \xBF\xE8 |0 # CJK Ideograph
-<U7FE0> \xBF\xE9 |0 # CJK Ideograph
-<U8870> \xBF\xEA |0 # CJK Ideograph
-<U9042> \xBF\xEB |0 # CJK Ideograph
-<U9154> \xBF\xEC |0 # CJK Ideograph
-<U9310> \xBF\xED |0 # CJK Ideograph
-<U9318> \xBF\xEE |0 # CJK Ideograph
-<U968F> \xBF\xEF |0 # CJK Ideograph
-<U745E> \xBF\xF0 |0 # CJK Ideograph
-<U9AC4> \xBF\xF1 |0 # CJK Ideograph
-<U5D07> \xBF\xF2 |0 # CJK Ideograph
-<U5D69> \xBF\xF3 |0 # CJK Ideograph
-<U6570> \xBF\xF4 |0 # CJK Ideograph
-<U67A2> \xBF\xF5 |0 # CJK Ideograph
-<U8DA8> \xBF\xF6 |0 # CJK Ideograph
-<U96DB> \xBF\xF7 |0 # CJK Ideograph
-<U636E> \xBF\xF8 |0 # CJK Ideograph
-<U6749> \xBF\xF9 |0 # CJK Ideograph
-<U6919> \xBF\xFA |0 # CJK Ideograph
-<U83C5> \xBF\xFB |0 # CJK Ideograph
-<U9817> \xBF\xFC |0 # CJK Ideograph
-<U96C0> \xBF\xFD |0 # CJK Ideograph
-<U88FE> \xBF\xFE |0 # CJK Ideograph
-<U6F84> \xC0\xA1 |0 # CJK Ideograph
-<U647A> \xC0\xA2 |0 # CJK Ideograph
-<U5BF8> \xC0\xA3 |0 # CJK Ideograph
-<U4E16> \xC0\xA4 |0 # CJK Ideograph
-<U702C> \xC0\xA5 |0 # CJK Ideograph
-<U755D> \xC0\xA6 |0 # CJK Ideograph
-<U662F> \xC0\xA7 |0 # CJK Ideograph
-<U51C4> \xC0\xA8 |0 # CJK Ideograph
-<U5236> \xC0\xA9 |0 # CJK Ideograph
-<U52E2> \xC0\xAA |0 # CJK Ideograph
-<U59D3> \xC0\xAB |0 # CJK Ideograph
-<U5F81> \xC0\xAC |0 # CJK Ideograph
-<U6027> \xC0\xAD |0 # CJK Ideograph
-<U6210> \xC0\xAE |0 # CJK Ideograph
-<U653F> \xC0\xAF |0 # CJK Ideograph
-<U6574> \xC0\xB0 |0 # CJK Ideograph
-<U661F> \xC0\xB1 |0 # CJK Ideograph
-<U6674> \xC0\xB2 |0 # CJK Ideograph
-<U68F2> \xC0\xB3 |0 # CJK Ideograph
-<U6816> \xC0\xB4 |0 # CJK Ideograph
-<U6B63> \xC0\xB5 |0 # CJK Ideograph
-<U6E05> \xC0\xB6 |0 # CJK Ideograph
-<U7272> \xC0\xB7 |0 # CJK Ideograph
-<U751F> \xC0\xB8 |0 # CJK Ideograph
-<U76DB> \xC0\xB9 |0 # CJK Ideograph
-<U7CBE> \xC0\xBA |0 # CJK Ideograph
-<U8056> \xC0\xBB |0 # CJK Ideograph
-<U58F0> \xC0\xBC |0 # CJK Ideograph
-<U88FD> \xC0\xBD |0 # CJK Ideograph
-<U897F> \xC0\xBE |0 # CJK Ideograph
-<U8AA0> \xC0\xBF |0 # CJK Ideograph
-<U8A93> \xC0\xC0 |0 # CJK Ideograph
-<U8ACB> \xC0\xC1 |0 # CJK Ideograph
-<U901D> \xC0\xC2 |0 # CJK Ideograph
-<U9192> \xC0\xC3 |0 # CJK Ideograph
-<U9752> \xC0\xC4 |0 # CJK Ideograph
-<U9759> \xC0\xC5 |0 # CJK Ideograph
-<U6589> \xC0\xC6 |0 # CJK Ideograph
-<U7A0E> \xC0\xC7 |0 # CJK Ideograph
-<U8106> \xC0\xC8 |0 # CJK Ideograph
-<U96BB> \xC0\xC9 |0 # CJK Ideograph
-<U5E2D> \xC0\xCA |0 # CJK Ideograph
-<U60DC> \xC0\xCB |0 # CJK Ideograph
-<U621A> \xC0\xCC |0 # CJK Ideograph
-<U65A5> \xC0\xCD |0 # CJK Ideograph
-<U6614> \xC0\xCE |0 # CJK Ideograph
-<U6790> \xC0\xCF |0 # CJK Ideograph
-<U77F3> \xC0\xD0 |0 # CJK Ideograph
-<U7A4D> \xC0\xD1 |0 # CJK Ideograph
-<U7C4D> \xC0\xD2 |0 # CJK Ideograph
-<U7E3E> \xC0\xD3 |0 # CJK Ideograph
-<U810A> \xC0\xD4 |0 # CJK Ideograph
-<U8CAC> \xC0\xD5 |0 # CJK Ideograph
-<U8D64> \xC0\xD6 |0 # CJK Ideograph
-<U8DE1> \xC0\xD7 |0 # CJK Ideograph
-<U8E5F> \xC0\xD8 |0 # CJK Ideograph
-<U78A9> \xC0\xD9 |0 # CJK Ideograph
-<U5207> \xC0\xDA |0 # CJK Ideograph
-<U62D9> \xC0\xDB |0 # CJK Ideograph
-<U63A5> \xC0\xDC |0 # CJK Ideograph
-<U6442> \xC0\xDD |0 # CJK Ideograph
-<U6298> \xC0\xDE |0 # CJK Ideograph
-<U8A2D> \xC0\xDF |0 # CJK Ideograph
-<U7A83> \xC0\xE0 |0 # CJK Ideograph
-<U7BC0> \xC0\xE1 |0 # CJK Ideograph
-<U8AAC> \xC0\xE2 |0 # CJK Ideograph
-<U96EA> \xC0\xE3 |0 # CJK Ideograph
-<U7D76> \xC0\xE4 |0 # CJK Ideograph
-<U820C> \xC0\xE5 |0 # CJK Ideograph
-<U8749> \xC0\xE6 |0 # CJK Ideograph
-<U4ED9> \xC0\xE7 |0 # CJK Ideograph
-<U5148> \xC0\xE8 |0 # CJK Ideograph
-<U5343> \xC0\xE9 |0 # CJK Ideograph
-<U5360> \xC0\xEA |0 # CJK Ideograph
-<U5BA3> \xC0\xEB |0 # CJK Ideograph
-<U5C02> \xC0\xEC |0 # CJK Ideograph
-<U5C16> \xC0\xED |0 # CJK Ideograph
-<U5DDD> \xC0\xEE |0 # CJK Ideograph
-<U6226> \xC0\xEF |0 # CJK Ideograph
-<U6247> \xC0\xF0 |0 # CJK Ideograph
-<U64B0> \xC0\xF1 |0 # CJK Ideograph
-<U6813> \xC0\xF2 |0 # CJK Ideograph
-<U6834> \xC0\xF3 |0 # CJK Ideograph
-<U6CC9> \xC0\xF4 |0 # CJK Ideograph
-<U6D45> \xC0\xF5 |0 # CJK Ideograph
-<U6D17> \xC0\xF6 |0 # CJK Ideograph
-<U67D3> \xC0\xF7 |0 # CJK Ideograph
-<U6F5C> \xC0\xF8 |0 # CJK Ideograph
-<U714E> \xC0\xF9 |0 # CJK Ideograph
-<U717D> \xC0\xFA |0 # CJK Ideograph
-<U65CB> \xC0\xFB |0 # CJK Ideograph
-<U7A7F> \xC0\xFC |0 # CJK Ideograph
-<U7BAD> \xC0\xFD |0 # CJK Ideograph
-<U7DDA> \xC0\xFE |0 # CJK Ideograph
-<U7E4A> \xC1\xA1 |0 # CJK Ideograph
-<U7FA8> \xC1\xA2 |0 # CJK Ideograph
-<U817A> \xC1\xA3 |0 # CJK Ideograph
-<U821B> \xC1\xA4 |0 # CJK Ideograph
-<U8239> \xC1\xA5 |0 # CJK Ideograph
-<U85A6> \xC1\xA6 |0 # CJK Ideograph
-<U8A6E> \xC1\xA7 |0 # CJK Ideograph
-<U8CCE> \xC1\xA8 |0 # CJK Ideograph
-<U8DF5> \xC1\xA9 |0 # CJK Ideograph
-<U9078> \xC1\xAA |0 # CJK Ideograph
-<U9077> \xC1\xAB |0 # CJK Ideograph
-<U92AD> \xC1\xAC |0 # CJK Ideograph
-<U9291> \xC1\xAD |0 # CJK Ideograph
-<U9583> \xC1\xAE |0 # CJK Ideograph
-<U9BAE> \xC1\xAF |0 # CJK Ideograph
-<U524D> \xC1\xB0 |0 # CJK Ideograph
-<U5584> \xC1\xB1 |0 # CJK Ideograph
-<U6F38> \xC1\xB2 |0 # CJK Ideograph
-<U7136> \xC1\xB3 |0 # CJK Ideograph
-<U5168> \xC1\xB4 |0 # CJK Ideograph
-<U7985> \xC1\xB5 |0 # CJK Ideograph
-<U7E55> \xC1\xB6 |0 # CJK Ideograph
-<U81B3> \xC1\xB7 |0 # CJK Ideograph
-<U7CCE> \xC1\xB8 |0 # CJK Ideograph
-<U564C> \xC1\xB9 |0 # CJK Ideograph
-<U5851> \xC1\xBA |0 # CJK Ideograph
-<U5CA8> \xC1\xBB |0 # CJK Ideograph
-<U63AA> \xC1\xBC |0 # CJK Ideograph
-<U66FE> \xC1\xBD |0 # CJK Ideograph
-<U66FD> \xC1\xBE |0 # CJK Ideograph
-<U695A> \xC1\xBF |0 # CJK Ideograph
-<U72D9> \xC1\xC0 |0 # CJK Ideograph
-<U758F> \xC1\xC1 |0 # CJK Ideograph
-<U758E> \xC1\xC2 |0 # CJK Ideograph
-<U790E> \xC1\xC3 |0 # CJK Ideograph
-<U7956> \xC1\xC4 |0 # CJK Ideograph
-<U79DF> \xC1\xC5 |0 # CJK Ideograph
-<U7C97> \xC1\xC6 |0 # CJK Ideograph
-<U7D20> \xC1\xC7 |0 # CJK Ideograph
-<U7D44> \xC1\xC8 |0 # CJK Ideograph
-<U8607> \xC1\xC9 |0 # CJK Ideograph
-<U8A34> \xC1\xCA |0 # CJK Ideograph
-<U963B> \xC1\xCB |0 # CJK Ideograph
-<U9061> \xC1\xCC |0 # CJK Ideograph
-<U9F20> \xC1\xCD |0 # CJK Ideograph
-<U50E7> \xC1\xCE |0 # CJK Ideograph
-<U5275> \xC1\xCF |0 # CJK Ideograph
-<U53CC> \xC1\xD0 |0 # CJK Ideograph
-<U53E2> \xC1\xD1 |0 # CJK Ideograph
-<U5009> \xC1\xD2 |0 # CJK Ideograph
-<U55AA> \xC1\xD3 |0 # CJK Ideograph
-<U58EE> \xC1\xD4 |0 # CJK Ideograph
-<U594F> \xC1\xD5 |0 # CJK Ideograph
-<U723D> \xC1\xD6 |0 # CJK Ideograph
-<U5B8B> \xC1\xD7 |0 # CJK Ideograph
-<U5C64> \xC1\xD8 |0 # CJK Ideograph
-<U531D> \xC1\xD9 |0 # CJK Ideograph
-<U60E3> \xC1\xDA |0 # CJK Ideograph
-<U60F3> \xC1\xDB |0 # CJK Ideograph
-<U635C> \xC1\xDC |0 # CJK Ideograph
-<U6383> \xC1\xDD |0 # CJK Ideograph
-<U633F> \xC1\xDE |0 # CJK Ideograph
-<U63BB> \xC1\xDF |0 # CJK Ideograph
-<U64CD> \xC1\xE0 |0 # CJK Ideograph
-<U65E9> \xC1\xE1 |0 # CJK Ideograph
-<U66F9> \xC1\xE2 |0 # CJK Ideograph
-<U5DE3> \xC1\xE3 |0 # CJK Ideograph
-<U69CD> \xC1\xE4 |0 # CJK Ideograph
-<U69FD> \xC1\xE5 |0 # CJK Ideograph
-<U6F15> \xC1\xE6 |0 # CJK Ideograph
-<U71E5> \xC1\xE7 |0 # CJK Ideograph
-<U4E89> \xC1\xE8 |0 # CJK Ideograph
-<U75E9> \xC1\xE9 |0 # CJK Ideograph
-<U76F8> \xC1\xEA |0 # CJK Ideograph
-<U7A93> \xC1\xEB |0 # CJK Ideograph
-<U7CDF> \xC1\xEC |0 # CJK Ideograph
-<U7DCF> \xC1\xED |0 # CJK Ideograph
-<U7D9C> \xC1\xEE |0 # CJK Ideograph
-<U8061> \xC1\xEF |0 # CJK Ideograph
-<U8349> \xC1\xF0 |0 # CJK Ideograph
-<U8358> \xC1\xF1 |0 # CJK Ideograph
-<U846C> \xC1\xF2 |0 # CJK Ideograph
-<U84BC> \xC1\xF3 |0 # CJK Ideograph
-<U85FB> \xC1\xF4 |0 # CJK Ideograph
-<U88C5> \xC1\xF5 |0 # CJK Ideograph
-<U8D70> \xC1\xF6 |0 # CJK Ideograph
-<U9001> \xC1\xF7 |0 # CJK Ideograph
-<U906D> \xC1\xF8 |0 # CJK Ideograph
-<U9397> \xC1\xF9 |0 # CJK Ideograph
-<U971C> \xC1\xFA |0 # CJK Ideograph
-<U9A12> \xC1\xFB |0 # CJK Ideograph
-<U50CF> \xC1\xFC |0 # CJK Ideograph
-<U5897> \xC1\xFD |0 # CJK Ideograph
-<U618E> \xC1\xFE |0 # CJK Ideograph
-<U81D3> \xC2\xA1 |0 # CJK Ideograph
-<U8535> \xC2\xA2 |0 # CJK Ideograph
-<U8D08> \xC2\xA3 |0 # CJK Ideograph
-<U9020> \xC2\xA4 |0 # CJK Ideograph
-<U4FC3> \xC2\xA5 |0 # CJK Ideograph
-<U5074> \xC2\xA6 |0 # CJK Ideograph
-<U5247> \xC2\xA7 |0 # CJK Ideograph
-<U5373> \xC2\xA8 |0 # CJK Ideograph
-<U606F> \xC2\xA9 |0 # CJK Ideograph
-<U6349> \xC2\xAA |0 # CJK Ideograph
-<U675F> \xC2\xAB |0 # CJK Ideograph
-<U6E2C> \xC2\xAC |0 # CJK Ideograph
-<U8DB3> \xC2\xAD |0 # CJK Ideograph
-<U901F> \xC2\xAE |0 # CJK Ideograph
-<U4FD7> \xC2\xAF |0 # CJK Ideograph
-<U5C5E> \xC2\xB0 |0 # CJK Ideograph
-<U8CCA> \xC2\xB1 |0 # CJK Ideograph
-<U65CF> \xC2\xB2 |0 # CJK Ideograph
-<U7D9A> \xC2\xB3 |0 # CJK Ideograph
-<U5352> \xC2\xB4 |0 # CJK Ideograph
-<U8896> \xC2\xB5 |0 # CJK Ideograph
-<U5176> \xC2\xB6 |0 # CJK Ideograph
-<U63C3> \xC2\xB7 |0 # CJK Ideograph
-<U5B58> \xC2\xB8 |0 # CJK Ideograph
-<U5B6B> \xC2\xB9 |0 # CJK Ideograph
-<U5C0A> \xC2\xBA |0 # CJK Ideograph
-<U640D> \xC2\xBB |0 # CJK Ideograph
-<U6751> \xC2\xBC |0 # CJK Ideograph
-<U905C> \xC2\xBD |0 # CJK Ideograph
-<U4ED6> \xC2\xBE |0 # CJK Ideograph
-<U591A> \xC2\xBF |0 # CJK Ideograph
-<U592A> \xC2\xC0 |0 # CJK Ideograph
-<U6C70> \xC2\xC1 |0 # CJK Ideograph
-<U8A51> \xC2\xC2 |0 # CJK Ideograph
-<U553E> \xC2\xC3 |0 # CJK Ideograph
-<U5815> \xC2\xC4 |0 # CJK Ideograph
-<U59A5> \xC2\xC5 |0 # CJK Ideograph
-<U60F0> \xC2\xC6 |0 # CJK Ideograph
-<U6253> \xC2\xC7 |0 # CJK Ideograph
-<U67C1> \xC2\xC8 |0 # CJK Ideograph
-<U8235> \xC2\xC9 |0 # CJK Ideograph
-<U6955> \xC2\xCA |0 # CJK Ideograph
-<U9640> \xC2\xCB |0 # CJK Ideograph
-<U99C4> \xC2\xCC |0 # CJK Ideograph
-<U9A28> \xC2\xCD |0 # CJK Ideograph
-<U4F53> \xC2\xCE |0 # CJK Ideograph
-<U5806> \xC2\xCF |0 # CJK Ideograph
-<U5BFE> \xC2\xD0 |0 # CJK Ideograph
-<U8010> \xC2\xD1 |0 # CJK Ideograph
-<U5CB1> \xC2\xD2 |0 # CJK Ideograph
-<U5E2F> \xC2\xD3 |0 # CJK Ideograph
-<U5F85> \xC2\xD4 |0 # CJK Ideograph
-<U6020> \xC2\xD5 |0 # CJK Ideograph
-<U614B> \xC2\xD6 |0 # CJK Ideograph
-<U6234> \xC2\xD7 |0 # CJK Ideograph
-<U66FF> \xC2\xD8 |0 # CJK Ideograph
-<U6CF0> \xC2\xD9 |0 # CJK Ideograph
-<U6EDE> \xC2\xDA |0 # CJK Ideograph
-<U80CE> \xC2\xDB |0 # CJK Ideograph
-<U817F> \xC2\xDC |0 # CJK Ideograph
-<U82D4> \xC2\xDD |0 # CJK Ideograph
-<U888B> \xC2\xDE |0 # CJK Ideograph
-<U8CB8> \xC2\xDF |0 # CJK Ideograph
-<U9000> \xC2\xE0 |0 # CJK Ideograph
-<U902E> \xC2\xE1 |0 # CJK Ideograph
-<U968A> \xC2\xE2 |0 # CJK Ideograph
-<U9EDB> \xC2\xE3 |0 # CJK Ideograph
-<U9BDB> \xC2\xE4 |0 # CJK Ideograph
-<U4EE3> \xC2\xE5 |0 # CJK Ideograph
-<U53F0> \xC2\xE6 |0 # CJK Ideograph
-<U5927> \xC2\xE7 |0 # CJK Ideograph
-<U7B2C> \xC2\xE8 |0 # CJK Ideograph
-<U918D> \xC2\xE9 |0 # CJK Ideograph
-<U984C> \xC2\xEA |0 # CJK Ideograph
-<U9DF9> \xC2\xEB |0 # CJK Ideograph
-<U6EDD> \xC2\xEC |0 # CJK Ideograph
-<U7027> \xC2\xED |0 # CJK Ideograph
-<U5353> \xC2\xEE |0 # CJK Ideograph
-<U5544> \xC2\xEF |0 # CJK Ideograph
-<U5B85> \xC2\xF0 |0 # CJK Ideograph
-<U6258> \xC2\xF1 |0 # CJK Ideograph
-<U629E> \xC2\xF2 |0 # CJK Ideograph
-<U62D3> \xC2\xF3 |0 # CJK Ideograph
-<U6CA2> \xC2\xF4 |0 # CJK Ideograph
-<U6FEF> \xC2\xF5 |0 # CJK Ideograph
-<U7422> \xC2\xF6 |0 # CJK Ideograph
-<U8A17> \xC2\xF7 |0 # CJK Ideograph
-<U9438> \xC2\xF8 |0 # CJK Ideograph
-<U6FC1> \xC2\xF9 |0 # CJK Ideograph
-<U8AFE> \xC2\xFA |0 # CJK Ideograph
-<U8338> \xC2\xFB |0 # CJK Ideograph
-<U51E7> \xC2\xFC |0 # CJK Ideograph
-<U86F8> \xC2\xFD |0 # CJK Ideograph
-<U53EA> \xC2\xFE |0 # CJK Ideograph
-<U53E9> \xC3\xA1 |0 # CJK Ideograph
-<U4F46> \xC3\xA2 |0 # CJK Ideograph
-<U9054> \xC3\xA3 |0 # CJK Ideograph
-<U8FB0> \xC3\xA4 |0 # CJK Ideograph
-<U596A> \xC3\xA5 |0 # CJK Ideograph
-<U8131> \xC3\xA6 |0 # CJK Ideograph
-<U5DFD> \xC3\xA7 |0 # CJK Ideograph
-<U7AEA> \xC3\xA8 |0 # CJK Ideograph
-<U8FBF> \xC3\xA9 |0 # CJK Ideograph
-<U68DA> \xC3\xAA |0 # CJK Ideograph
-<U8C37> \xC3\xAB |0 # CJK Ideograph
-<U72F8> \xC3\xAC |0 # CJK Ideograph
-<U9C48> \xC3\xAD |0 # CJK Ideograph
-<U6A3D> \xC3\xAE |0 # CJK Ideograph
-<U8AB0> \xC3\xAF |0 # CJK Ideograph
-<U4E39> \xC3\xB0 |0 # CJK Ideograph
-<U5358> \xC3\xB1 |0 # CJK Ideograph
-<U5606> \xC3\xB2 |0 # CJK Ideograph
-<U5766> \xC3\xB3 |0 # CJK Ideograph
-<U62C5> \xC3\xB4 |0 # CJK Ideograph
-<U63A2> \xC3\xB5 |0 # CJK Ideograph
-<U65E6> \xC3\xB6 |0 # CJK Ideograph
-<U6B4E> \xC3\xB7 |0 # CJK Ideograph
-<U6DE1> \xC3\xB8 |0 # CJK Ideograph
-<U6E5B> \xC3\xB9 |0 # CJK Ideograph
-<U70AD> \xC3\xBA |0 # CJK Ideograph
-<U77ED> \xC3\xBB |0 # CJK Ideograph
-<U7AEF> \xC3\xBC |0 # CJK Ideograph
-<U7BAA> \xC3\xBD |0 # CJK Ideograph
-<U7DBB> \xC3\xBE |0 # CJK Ideograph
-<U803D> \xC3\xBF |0 # CJK Ideograph
-<U80C6> \xC3\xC0 |0 # CJK Ideograph
-<U86CB> \xC3\xC1 |0 # CJK Ideograph
-<U8A95> \xC3\xC2 |0 # CJK Ideograph
-<U935B> \xC3\xC3 |0 # CJK Ideograph
-<U56E3> \xC3\xC4 |0 # CJK Ideograph
-<U58C7> \xC3\xC5 |0 # CJK Ideograph
-<U5F3E> \xC3\xC6 |0 # CJK Ideograph
-<U65AD> \xC3\xC7 |0 # CJK Ideograph
-<U6696> \xC3\xC8 |0 # CJK Ideograph
-<U6A80> \xC3\xC9 |0 # CJK Ideograph
-<U6BB5> \xC3\xCA |0 # CJK Ideograph
-<U7537> \xC3\xCB |0 # CJK Ideograph
-<U8AC7> \xC3\xCC |0 # CJK Ideograph
-<U5024> \xC3\xCD |0 # CJK Ideograph
-<U77E5> \xC3\xCE |0 # CJK Ideograph
-<U5730> \xC3\xCF |0 # CJK Ideograph
-<U5F1B> \xC3\xD0 |0 # CJK Ideograph
-<U6065> \xC3\xD1 |0 # CJK Ideograph
-<U667A> \xC3\xD2 |0 # CJK Ideograph
-<U6C60> \xC3\xD3 |0 # CJK Ideograph
-<U75F4> \xC3\xD4 |0 # CJK Ideograph
-<U7A1A> \xC3\xD5 |0 # CJK Ideograph
-<U7F6E> \xC3\xD6 |0 # CJK Ideograph
-<U81F4> \xC3\xD7 |0 # CJK Ideograph
-<U8718> \xC3\xD8 |0 # CJK Ideograph
-<U9045> \xC3\xD9 |0 # CJK Ideograph
-<U99B3> \xC3\xDA |0 # CJK Ideograph
-<U7BC9> \xC3\xDB |0 # CJK Ideograph
-<U755C> \xC3\xDC |0 # CJK Ideograph
-<U7AF9> \xC3\xDD |0 # CJK Ideograph
-<U7B51> \xC3\xDE |0 # CJK Ideograph
-<U84C4> \xC3\xDF |0 # CJK Ideograph
-<U9010> \xC3\xE0 |0 # CJK Ideograph
-<U79E9> \xC3\xE1 |0 # CJK Ideograph
-<U7A92> \xC3\xE2 |0 # CJK Ideograph
-<U8336> \xC3\xE3 |0 # CJK Ideograph
-<U5AE1> \xC3\xE4 |0 # CJK Ideograph
-<U7740> \xC3\xE5 |0 # CJK Ideograph
-<U4E2D> \xC3\xE6 |0 # CJK Ideograph
-<U4EF2> \xC3\xE7 |0 # CJK Ideograph
-<U5B99> \xC3\xE8 |0 # CJK Ideograph
-<U5FE0> \xC3\xE9 |0 # CJK Ideograph
-<U62BD> \xC3\xEA |0 # CJK Ideograph
-<U663C> \xC3\xEB |0 # CJK Ideograph
-<U67F1> \xC3\xEC |0 # CJK Ideograph
-<U6CE8> \xC3\xED |0 # CJK Ideograph
-<U866B> \xC3\xEE |0 # CJK Ideograph
-<U8877> \xC3\xEF |0 # CJK Ideograph
-<U8A3B> \xC3\xF0 |0 # CJK Ideograph
-<U914E> \xC3\xF1 |0 # CJK Ideograph
-<U92F3> \xC3\xF2 |0 # CJK Ideograph
-<U99D0> \xC3\xF3 |0 # CJK Ideograph
-<U6A17> \xC3\xF4 |0 # CJK Ideograph
-<U7026> \xC3\xF5 |0 # CJK Ideograph
-<U732A> \xC3\xF6 |0 # CJK Ideograph
-<U82E7> \xC3\xF7 |0 # CJK Ideograph
-<U8457> \xC3\xF8 |0 # CJK Ideograph
-<U8CAF> \xC3\xF9 |0 # CJK Ideograph
-<U4E01> \xC3\xFA |0 # CJK Ideograph
-<U5146> \xC3\xFB |0 # CJK Ideograph
-<U51CB> \xC3\xFC |0 # CJK Ideograph
-<U558B> \xC3\xFD |0 # CJK Ideograph
-<U5BF5> \xC3\xFE |0 # CJK Ideograph
-<U5E16> \xC4\xA1 |0 # CJK Ideograph
-<U5E33> \xC4\xA2 |0 # CJK Ideograph
-<U5E81> \xC4\xA3 |0 # CJK Ideograph
-<U5F14> \xC4\xA4 |0 # CJK Ideograph
-<U5F35> \xC4\xA5 |0 # CJK Ideograph
-<U5F6B> \xC4\xA6 |0 # CJK Ideograph
-<U5FB4> \xC4\xA7 |0 # CJK Ideograph
-<U61F2> \xC4\xA8 |0 # CJK Ideograph
-<U6311> \xC4\xA9 |0 # CJK Ideograph
-<U66A2> \xC4\xAA |0 # CJK Ideograph
-<U671D> \xC4\xAB |0 # CJK Ideograph
-<U6F6E> \xC4\xAC |0 # CJK Ideograph
-<U7252> \xC4\xAD |0 # CJK Ideograph
-<U753A> \xC4\xAE |0 # CJK Ideograph
-<U773A> \xC4\xAF |0 # CJK Ideograph
-<U8074> \xC4\xB0 |0 # CJK Ideograph
-<U8139> \xC4\xB1 |0 # CJK Ideograph
-<U8178> \xC4\xB2 |0 # CJK Ideograph
-<U8776> \xC4\xB3 |0 # CJK Ideograph
-<U8ABF> \xC4\xB4 |0 # CJK Ideograph
-<U8ADC> \xC4\xB5 |0 # CJK Ideograph
-<U8D85> \xC4\xB6 |0 # CJK Ideograph
-<U8DF3> \xC4\xB7 |0 # CJK Ideograph
-<U929A> \xC4\xB8 |0 # CJK Ideograph
-<U9577> \xC4\xB9 |0 # CJK Ideograph
-<U9802> \xC4\xBA |0 # CJK Ideograph
-<U9CE5> \xC4\xBB |0 # CJK Ideograph
-<U52C5> \xC4\xBC |0 # CJK Ideograph
-<U6357> \xC4\xBD |0 # CJK Ideograph
-<U76F4> \xC4\xBE |0 # CJK Ideograph
-<U6715> \xC4\xBF |0 # CJK Ideograph
-<U6C88> \xC4\xC0 |0 # CJK Ideograph
-<U73CD> \xC4\xC1 |0 # CJK Ideograph
-<U8CC3> \xC4\xC2 |0 # CJK Ideograph
-<U93AE> \xC4\xC3 |0 # CJK Ideograph
-<U9673> \xC4\xC4 |0 # CJK Ideograph
-<U6D25> \xC4\xC5 |0 # CJK Ideograph
-<U589C> \xC4\xC6 |0 # CJK Ideograph
-<U690E> \xC4\xC7 |0 # CJK Ideograph
-<U69CC> \xC4\xC8 |0 # CJK Ideograph
-<U8FFD> \xC4\xC9 |0 # CJK Ideograph
-<U939A> \xC4\xCA |0 # CJK Ideograph
-<U75DB> \xC4\xCB |0 # CJK Ideograph
-<U901A> \xC4\xCC |0 # CJK Ideograph
-<U585A> \xC4\xCD |0 # CJK Ideograph
-<U6802> \xC4\xCE |0 # CJK Ideograph
-<U63B4> \xC4\xCF |0 # CJK Ideograph
-<U69FB> \xC4\xD0 |0 # CJK Ideograph
-<U4F43> \xC4\xD1 |0 # CJK Ideograph
-<U6F2C> \xC4\xD2 |0 # CJK Ideograph
-<U67D8> \xC4\xD3 |0 # CJK Ideograph
-<U8FBB> \xC4\xD4 |0 # CJK Ideograph
-<U8526> \xC4\xD5 |0 # CJK Ideograph
-<U7DB4> \xC4\xD6 |0 # CJK Ideograph
-<U9354> \xC4\xD7 |0 # CJK Ideograph
-<U693F> \xC4\xD8 |0 # CJK Ideograph
-<U6F70> \xC4\xD9 |0 # CJK Ideograph
-<U576A> \xC4\xDA |0 # CJK Ideograph
-<U58F7> \xC4\xDB |0 # CJK Ideograph
-<U5B2C> \xC4\xDC |0 # CJK Ideograph
-<U7D2C> \xC4\xDD |0 # CJK Ideograph
-<U722A> \xC4\xDE |0 # CJK Ideograph
-<U540A> \xC4\xDF |0 # CJK Ideograph
-<U91E3> \xC4\xE0 |0 # CJK Ideograph
-<U9DB4> \xC4\xE1 |0 # CJK Ideograph
-<U4EAD> \xC4\xE2 |0 # CJK Ideograph
-<U4F4E> \xC4\xE3 |0 # CJK Ideograph
-<U505C> \xC4\xE4 |0 # CJK Ideograph
-<U5075> \xC4\xE5 |0 # CJK Ideograph
-<U5243> \xC4\xE6 |0 # CJK Ideograph
-<U8C9E> \xC4\xE7 |0 # CJK Ideograph
-<U5448> \xC4\xE8 |0 # CJK Ideograph
-<U5824> \xC4\xE9 |0 # CJK Ideograph
-<U5B9A> \xC4\xEA |0 # CJK Ideograph
-<U5E1D> \xC4\xEB |0 # CJK Ideograph
-<U5E95> \xC4\xEC |0 # CJK Ideograph
-<U5EAD> \xC4\xED |0 # CJK Ideograph
-<U5EF7> \xC4\xEE |0 # CJK Ideograph
-<U5F1F> \xC4\xEF |0 # CJK Ideograph
-<U608C> \xC4\xF0 |0 # CJK Ideograph
-<U62B5> \xC4\xF1 |0 # CJK Ideograph
-<U633A> \xC4\xF2 |0 # CJK Ideograph
-<U63D0> \xC4\xF3 |0 # CJK Ideograph
-<U68AF> \xC4\xF4 |0 # CJK Ideograph
-<U6C40> \xC4\xF5 |0 # CJK Ideograph
-<U7887> \xC4\xF6 |0 # CJK Ideograph
-<U798E> \xC4\xF7 |0 # CJK Ideograph
-<U7A0B> \xC4\xF8 |0 # CJK Ideograph
-<U7DE0> \xC4\xF9 |0 # CJK Ideograph
-<U8247> \xC4\xFA |0 # CJK Ideograph
-<U8A02> \xC4\xFB |0 # CJK Ideograph
-<U8AE6> \xC4\xFC |0 # CJK Ideograph
-<U8E44> \xC4\xFD |0 # CJK Ideograph
-<U9013> \xC4\xFE |0 # CJK Ideograph
-<U90B8> \xC5\xA1 |0 # CJK Ideograph
-<U912D> \xC5\xA2 |0 # CJK Ideograph
-<U91D8> \xC5\xA3 |0 # CJK Ideograph
-<U9F0E> \xC5\xA4 |0 # CJK Ideograph
-<U6CE5> \xC5\xA5 |0 # CJK Ideograph
-<U6458> \xC5\xA6 |0 # CJK Ideograph
-<U64E2> \xC5\xA7 |0 # CJK Ideograph
-<U6575> \xC5\xA8 |0 # CJK Ideograph
-<U6EF4> \xC5\xA9 |0 # CJK Ideograph
-<U7684> \xC5\xAA |0 # CJK Ideograph
-<U7B1B> \xC5\xAB |0 # CJK Ideograph
-<U9069> \xC5\xAC |0 # CJK Ideograph
-<U93D1> \xC5\xAD |0 # CJK Ideograph
-<U6EBA> \xC5\xAE |0 # CJK Ideograph
-<U54F2> \xC5\xAF |0 # CJK Ideograph
-<U5FB9> \xC5\xB0 |0 # CJK Ideograph
-<U64A4> \xC5\xB1 |0 # CJK Ideograph
-<U8F4D> \xC5\xB2 |0 # CJK Ideograph
-<U8FED> \xC5\xB3 |0 # CJK Ideograph
-<U9244> \xC5\xB4 |0 # CJK Ideograph
-<U5178> \xC5\xB5 |0 # CJK Ideograph
-<U586B> \xC5\xB6 |0 # CJK Ideograph
-<U5929> \xC5\xB7 |0 # CJK Ideograph
-<U5C55> \xC5\xB8 |0 # CJK Ideograph
-<U5E97> \xC5\xB9 |0 # CJK Ideograph
-<U6DFB> \xC5\xBA |0 # CJK Ideograph
-<U7E8F> \xC5\xBB |0 # CJK Ideograph
-<U751C> \xC5\xBC |0 # CJK Ideograph
-<U8CBC> \xC5\xBD |0 # CJK Ideograph
-<U8EE2> \xC5\xBE |0 # CJK Ideograph
-<U985B> \xC5\xBF |0 # CJK Ideograph
-<U70B9> \xC5\xC0 |0 # CJK Ideograph
-<U4F1D> \xC5\xC1 |0 # CJK Ideograph
-<U6BBF> \xC5\xC2 |0 # CJK Ideograph
-<U6FB1> \xC5\xC3 |0 # CJK Ideograph
-<U7530> \xC5\xC4 |0 # CJK Ideograph
-<U96FB> \xC5\xC5 |0 # CJK Ideograph
-<U514E> \xC5\xC6 |0 # CJK Ideograph
-<U5410> \xC5\xC7 |0 # CJK Ideograph
-<U5835> \xC5\xC8 |0 # CJK Ideograph
-<U5857> \xC5\xC9 |0 # CJK Ideograph
-<U59AC> \xC5\xCA |0 # CJK Ideograph
-<U5C60> \xC5\xCB |0 # CJK Ideograph
-<U5F92> \xC5\xCC |0 # CJK Ideograph
-<U6597> \xC5\xCD |0 # CJK Ideograph
-<U675C> \xC5\xCE |0 # CJK Ideograph
-<U6E21> \xC5\xCF |0 # CJK Ideograph
-<U767B> \xC5\xD0 |0 # CJK Ideograph
-<U83DF> \xC5\xD1 |0 # CJK Ideograph
-<U8CED> \xC5\xD2 |0 # CJK Ideograph
-<U9014> \xC5\xD3 |0 # CJK Ideograph
-<U90FD> \xC5\xD4 |0 # CJK Ideograph
-<U934D> \xC5\xD5 |0 # CJK Ideograph
-<U7825> \xC5\xD6 |0 # CJK Ideograph
-<U783A> \xC5\xD7 |0 # CJK Ideograph
-<U52AA> \xC5\xD8 |0 # CJK Ideograph
-<U5EA6> \xC5\xD9 |0 # CJK Ideograph
-<U571F> \xC5\xDA |0 # CJK Ideograph
-<U5974> \xC5\xDB |0 # CJK Ideograph
-<U6012> \xC5\xDC |0 # CJK Ideograph
-<U5012> \xC5\xDD |0 # CJK Ideograph
-<U515A> \xC5\xDE |0 # CJK Ideograph
-<U51AC> \xC5\xDF |0 # CJK Ideograph
-<U51CD> \xC5\xE0 |0 # CJK Ideograph
-<U5200> \xC5\xE1 |0 # CJK Ideograph
-<U5510> \xC5\xE2 |0 # CJK Ideograph
-<U5854> \xC5\xE3 |0 # CJK Ideograph
-<U5858> \xC5\xE4 |0 # CJK Ideograph
-<U5957> \xC5\xE5 |0 # CJK Ideograph
-<U5B95> \xC5\xE6 |0 # CJK Ideograph
-<U5CF6> \xC5\xE7 |0 # CJK Ideograph
-<U5D8B> \xC5\xE8 |0 # CJK Ideograph
-<U60BC> \xC5\xE9 |0 # CJK Ideograph
-<U6295> \xC5\xEA |0 # CJK Ideograph
-<U642D> \xC5\xEB |0 # CJK Ideograph
-<U6771> \xC5\xEC |0 # CJK Ideograph
-<U6843> \xC5\xED |0 # CJK Ideograph
-<U68BC> \xC5\xEE |0 # CJK Ideograph
-<U68DF> \xC5\xEF |0 # CJK Ideograph
-<U76D7> \xC5\xF0 |0 # CJK Ideograph
-<U6DD8> \xC5\xF1 |0 # CJK Ideograph
-<U6E6F> \xC5\xF2 |0 # CJK Ideograph
-<U6D9B> \xC5\xF3 |0 # CJK Ideograph
-<U706F> \xC5\xF4 |0 # CJK Ideograph
-<U71C8> \xC5\xF5 |0 # CJK Ideograph
-<U5F53> \xC5\xF6 |0 # CJK Ideograph
-<U75D8> \xC5\xF7 |0 # CJK Ideograph
-<U7977> \xC5\xF8 |0 # CJK Ideograph
-<U7B49> \xC5\xF9 |0 # CJK Ideograph
-<U7B54> \xC5\xFA |0 # CJK Ideograph
-<U7B52> \xC5\xFB |0 # CJK Ideograph
-<U7CD6> \xC5\xFC |0 # CJK Ideograph
-<U7D71> \xC5\xFD |0 # CJK Ideograph
-<U5230> \xC5\xFE |0 # CJK Ideograph
-<U8463> \xC6\xA1 |0 # CJK Ideograph
-<U8569> \xC6\xA2 |0 # CJK Ideograph
-<U85E4> \xC6\xA3 |0 # CJK Ideograph
-<U8A0E> \xC6\xA4 |0 # CJK Ideograph
-<U8B04> \xC6\xA5 |0 # CJK Ideograph
-<U8C46> \xC6\xA6 |0 # CJK Ideograph
-<U8E0F> \xC6\xA7 |0 # CJK Ideograph
-<U9003> \xC6\xA8 |0 # CJK Ideograph
-<U900F> \xC6\xA9 |0 # CJK Ideograph
-<U9419> \xC6\xAA |0 # CJK Ideograph
-<U9676> \xC6\xAB |0 # CJK Ideograph
-<U982D> \xC6\xAC |0 # CJK Ideograph
-<U9A30> \xC6\xAD |0 # CJK Ideograph
-<U95D8> \xC6\xAE |0 # CJK Ideograph
-<U50CD> \xC6\xAF |0 # CJK Ideograph
-<U52D5> \xC6\xB0 |0 # CJK Ideograph
-<U540C> \xC6\xB1 |0 # CJK Ideograph
-<U5802> \xC6\xB2 |0 # CJK Ideograph
-<U5C0E> \xC6\xB3 |0 # CJK Ideograph
-<U61A7> \xC6\xB4 |0 # CJK Ideograph
-<U649E> \xC6\xB5 |0 # CJK Ideograph
-<U6D1E> \xC6\xB6 |0 # CJK Ideograph
-<U77B3> \xC6\xB7 |0 # CJK Ideograph
-<U7AE5> \xC6\xB8 |0 # CJK Ideograph
-<U80F4> \xC6\xB9 |0 # CJK Ideograph
-<U8404> \xC6\xBA |0 # CJK Ideograph
-<U9053> \xC6\xBB |0 # CJK Ideograph
-<U9285> \xC6\xBC |0 # CJK Ideograph
-<U5CE0> \xC6\xBD |0 # CJK Ideograph
-<U9D07> \xC6\xBE |0 # CJK Ideograph
-<U533F> \xC6\xBF |0 # CJK Ideograph
-<U5F97> \xC6\xC0 |0 # CJK Ideograph
-<U5FB3> \xC6\xC1 |0 # CJK Ideograph
-<U6D9C> \xC6\xC2 |0 # CJK Ideograph
-<U7279> \xC6\xC3 |0 # CJK Ideograph
-<U7763> \xC6\xC4 |0 # CJK Ideograph
-<U79BF> \xC6\xC5 |0 # CJK Ideograph
-<U7BE4> \xC6\xC6 |0 # CJK Ideograph
-<U6BD2> \xC6\xC7 |0 # CJK Ideograph
-<U72EC> \xC6\xC8 |0 # CJK Ideograph
-<U8AAD> \xC6\xC9 |0 # CJK Ideograph
-<U6803> \xC6\xCA |0 # CJK Ideograph
-<U6A61> \xC6\xCB |0 # CJK Ideograph
-<U51F8> \xC6\xCC |0 # CJK Ideograph
-<U7A81> \xC6\xCD |0 # CJK Ideograph
-<U6934> \xC6\xCE |0 # CJK Ideograph
-<U5C4A> \xC6\xCF |0 # CJK Ideograph
-<U9CF6> \xC6\xD0 |0 # CJK Ideograph
-<U82EB> \xC6\xD1 |0 # CJK Ideograph
-<U5BC5> \xC6\xD2 |0 # CJK Ideograph
-<U9149> \xC6\xD3 |0 # CJK Ideograph
-<U701E> \xC6\xD4 |0 # CJK Ideograph
-<U5678> \xC6\xD5 |0 # CJK Ideograph
-<U5C6F> \xC6\xD6 |0 # CJK Ideograph
-<U60C7> \xC6\xD7 |0 # CJK Ideograph
-<U6566> \xC6\xD8 |0 # CJK Ideograph
-<U6C8C> \xC6\xD9 |0 # CJK Ideograph
-<U8C5A> \xC6\xDA |0 # CJK Ideograph
-<U9041> \xC6\xDB |0 # CJK Ideograph
-<U9813> \xC6\xDC |0 # CJK Ideograph
-<U5451> \xC6\xDD |0 # CJK Ideograph
-<U66C7> \xC6\xDE |0 # CJK Ideograph
-<U920D> \xC6\xDF |0 # CJK Ideograph
-<U5948> \xC6\xE0 |0 # CJK Ideograph
-<U90A3> \xC6\xE1 |0 # CJK Ideograph
-<U5185> \xC6\xE2 |0 # CJK Ideograph
-<U4E4D> \xC6\xE3 |0 # CJK Ideograph
-<U51EA> \xC6\xE4 |0 # CJK Ideograph
-<U8599> \xC6\xE5 |0 # CJK Ideograph
-<U8B0E> \xC6\xE6 |0 # CJK Ideograph
-<U7058> \xC6\xE7 |0 # CJK Ideograph
-<U637A> \xC6\xE8 |0 # CJK Ideograph
-<U934B> \xC6\xE9 |0 # CJK Ideograph
-<U6962> \xC6\xEA |0 # CJK Ideograph
-<U99B4> \xC6\xEB |0 # CJK Ideograph
-<U7E04> \xC6\xEC |0 # CJK Ideograph
-<U7577> \xC6\xED |0 # CJK Ideograph
-<U5357> \xC6\xEE |0 # CJK Ideograph
-<U6960> \xC6\xEF |0 # CJK Ideograph
-<U8EDF> \xC6\xF0 |0 # CJK Ideograph
-<U96E3> \xC6\xF1 |0 # CJK Ideograph
-<U6C5D> \xC6\xF2 |0 # CJK Ideograph
-<U4E8C> \xC6\xF3 |0 # CJK Ideograph
-<U5C3C> \xC6\xF4 |0 # CJK Ideograph
-<U5F10> \xC6\xF5 |0 # CJK Ideograph
-<U8FE9> \xC6\xF6 |0 # CJK Ideograph
-<U5302> \xC6\xF7 |0 # CJK Ideograph
-<U8CD1> \xC6\xF8 |0 # CJK Ideograph
-<U8089> \xC6\xF9 |0 # CJK Ideograph
-<U8679> \xC6\xFA |0 # CJK Ideograph
-<U5EFF> \xC6\xFB |0 # CJK Ideograph
-<U65E5> \xC6\xFC |0 # CJK Ideograph
-<U4E73> \xC6\xFD |0 # CJK Ideograph
-<U5165> \xC6\xFE |0 # CJK Ideograph
-<U5982> \xC7\xA1 |0 # CJK Ideograph
-<U5C3F> \xC7\xA2 |0 # CJK Ideograph
-<U97EE> \xC7\xA3 |0 # CJK Ideograph
-<U4EFB> \xC7\xA4 |0 # CJK Ideograph
-<U598A> \xC7\xA5 |0 # CJK Ideograph
-<U5FCD> \xC7\xA6 |0 # CJK Ideograph
-<U8A8D> \xC7\xA7 |0 # CJK Ideograph
-<U6FE1> \xC7\xA8 |0 # CJK Ideograph
-<U79B0> \xC7\xA9 |0 # CJK Ideograph
-<U7962> \xC7\xAA |0 # CJK Ideograph
-<U5BE7> \xC7\xAB |0 # CJK Ideograph
-<U8471> \xC7\xAC |0 # CJK Ideograph
-<U732B> \xC7\xAD |0 # CJK Ideograph
-<U71B1> \xC7\xAE |0 # CJK Ideograph
-<U5E74> \xC7\xAF |0 # CJK Ideograph
-<U5FF5> \xC7\xB0 |0 # CJK Ideograph
-<U637B> \xC7\xB1 |0 # CJK Ideograph
-<U649A> \xC7\xB2 |0 # CJK Ideograph
-<U71C3> \xC7\xB3 |0 # CJK Ideograph
-<U7C98> \xC7\xB4 |0 # CJK Ideograph
-<U4E43> \xC7\xB5 |0 # CJK Ideograph
-<U5EFC> \xC7\xB6 |0 # CJK Ideograph
-<U4E4B> \xC7\xB7 |0 # CJK Ideograph
-<U57DC> \xC7\xB8 |0 # CJK Ideograph
-<U56A2> \xC7\xB9 |0 # CJK Ideograph
-<U60A9> \xC7\xBA |0 # CJK Ideograph
-<U6FC3> \xC7\xBB |0 # CJK Ideograph
-<U7D0D> \xC7\xBC |0 # CJK Ideograph
-<U80FD> \xC7\xBD |0 # CJK Ideograph
-<U8133> \xC7\xBE |0 # CJK Ideograph
-<U81BF> \xC7\xBF |0 # CJK Ideograph
-<U8FB2> \xC7\xC0 |0 # CJK Ideograph
-<U8997> \xC7\xC1 |0 # CJK Ideograph
-<U86A4> \xC7\xC2 |0 # CJK Ideograph
-<U5DF4> \xC7\xC3 |0 # CJK Ideograph
-<U628A> \xC7\xC4 |0 # CJK Ideograph
-<U64AD> \xC7\xC5 |0 # CJK Ideograph
-<U8987> \xC7\xC6 |0 # CJK Ideograph
-<U6777> \xC7\xC7 |0 # CJK Ideograph
-<U6CE2> \xC7\xC8 |0 # CJK Ideograph
-<U6D3E> \xC7\xC9 |0 # CJK Ideograph
-<U7436> \xC7\xCA |0 # CJK Ideograph
-<U7834> \xC7\xCB |0 # CJK Ideograph
-<U5A46> \xC7\xCC |0 # CJK Ideograph
-<U7F75> \xC7\xCD |0 # CJK Ideograph
-<U82AD> \xC7\xCE |0 # CJK Ideograph
-<U99AC> \xC7\xCF |0 # CJK Ideograph
-<U4FF3> \xC7\xD0 |0 # CJK Ideograph
-<U5EC3> \xC7\xD1 |0 # CJK Ideograph
-<U62DD> \xC7\xD2 |0 # CJK Ideograph
-<U6392> \xC7\xD3 |0 # CJK Ideograph
-<U6557> \xC7\xD4 |0 # CJK Ideograph
-<U676F> \xC7\xD5 |0 # CJK Ideograph
-<U76C3> \xC7\xD6 |0 # CJK Ideograph
-<U724C> \xC7\xD7 |0 # CJK Ideograph
-<U80CC> \xC7\xD8 |0 # CJK Ideograph
-<U80BA> \xC7\xD9 |0 # CJK Ideograph
-<U8F29> \xC7\xDA |0 # CJK Ideograph
-<U914D> \xC7\xDB |0 # CJK Ideograph
-<U500D> \xC7\xDC |0 # CJK Ideograph
-<U57F9> \xC7\xDD |0 # CJK Ideograph
-<U5A92> \xC7\xDE |0 # CJK Ideograph
-<U6885> \xC7\xDF |0 # CJK Ideograph
-<U6973> \xC7\xE0 |0 # CJK Ideograph
-<U7164> \xC7\xE1 |0 # CJK Ideograph
-<U72FD> \xC7\xE2 |0 # CJK Ideograph
-<U8CB7> \xC7\xE3 |0 # CJK Ideograph
-<U58F2> \xC7\xE4 |0 # CJK Ideograph
-<U8CE0> \xC7\xE5 |0 # CJK Ideograph
-<U966A> \xC7\xE6 |0 # CJK Ideograph
-<U9019> \xC7\xE7 |0 # CJK Ideograph
-<U877F> \xC7\xE8 |0 # CJK Ideograph
-<U79E4> \xC7\xE9 |0 # CJK Ideograph
-<U77E7> \xC7\xEA |0 # CJK Ideograph
-<U8429> \xC7\xEB |0 # CJK Ideograph
-<U4F2F> \xC7\xEC |0 # CJK Ideograph
-<U5265> \xC7\xED |0 # CJK Ideograph
-<U535A> \xC7\xEE |0 # CJK Ideograph
-<U62CD> \xC7\xEF |0 # CJK Ideograph
-<U67CF> \xC7\xF0 |0 # CJK Ideograph
-<U6CCA> \xC7\xF1 |0 # CJK Ideograph
-<U767D> \xC7\xF2 |0 # CJK Ideograph
-<U7B94> \xC7\xF3 |0 # CJK Ideograph
-<U7C95> \xC7\xF4 |0 # CJK Ideograph
-<U8236> \xC7\xF5 |0 # CJK Ideograph
-<U8584> \xC7\xF6 |0 # CJK Ideograph
-<U8FEB> \xC7\xF7 |0 # CJK Ideograph
-<U66DD> \xC7\xF8 |0 # CJK Ideograph
-<U6F20> \xC7\xF9 |0 # CJK Ideograph
-<U7206> \xC7\xFA |0 # CJK Ideograph
-<U7E1B> \xC7\xFB |0 # CJK Ideograph
-<U83AB> \xC7\xFC |0 # CJK Ideograph
-<U99C1> \xC7\xFD |0 # CJK Ideograph
-<U9EA6> \xC7\xFE |0 # CJK Ideograph
-<U51FD> \xC8\xA1 |0 # CJK Ideograph
-<U7BB1> \xC8\xA2 |0 # CJK Ideograph
-<U7872> \xC8\xA3 |0 # CJK Ideograph
-<U7BB8> \xC8\xA4 |0 # CJK Ideograph
-<U8087> \xC8\xA5 |0 # CJK Ideograph
-<U7B48> \xC8\xA6 |0 # CJK Ideograph
-<U6AE8> \xC8\xA7 |0 # CJK Ideograph
-<U5E61> \xC8\xA8 |0 # CJK Ideograph
-<U808C> \xC8\xA9 |0 # CJK Ideograph
-<U7551> \xC8\xAA |0 # CJK Ideograph
-<U7560> \xC8\xAB |0 # CJK Ideograph
-<U516B> \xC8\xAC |0 # CJK Ideograph
-<U9262> \xC8\xAD |0 # CJK Ideograph
-<U6E8C> \xC8\xAE |0 # CJK Ideograph
-<U767A> \xC8\xAF |0 # CJK Ideograph
-<U9197> \xC8\xB0 |0 # CJK Ideograph
-<U9AEA> \xC8\xB1 |0 # CJK Ideograph
-<U4F10> \xC8\xB2 |0 # CJK Ideograph
-<U7F70> \xC8\xB3 |0 # CJK Ideograph
-<U629C> \xC8\xB4 |0 # CJK Ideograph
-<U7B4F> \xC8\xB5 |0 # CJK Ideograph
-<U95A5> \xC8\xB6 |0 # CJK Ideograph
-<U9CE9> \xC8\xB7 |0 # CJK Ideograph
-<U567A> \xC8\xB8 |0 # CJK Ideograph
-<U5859> \xC8\xB9 |0 # CJK Ideograph
-<U86E4> \xC8\xBA |0 # CJK Ideograph
-<U96BC> \xC8\xBB |0 # CJK Ideograph
-<U4F34> \xC8\xBC |0 # CJK Ideograph
-<U5224> \xC8\xBD |0 # CJK Ideograph
-<U534A> \xC8\xBE |0 # CJK Ideograph
-<U53CD> \xC8\xBF |0 # CJK Ideograph
-<U53DB> \xC8\xC0 |0 # CJK Ideograph
-<U5E06> \xC8\xC1 |0 # CJK Ideograph
-<U642C> \xC8\xC2 |0 # CJK Ideograph
-<U6591> \xC8\xC3 |0 # CJK Ideograph
-<U677F> \xC8\xC4 |0 # CJK Ideograph
-<U6C3E> \xC8\xC5 |0 # CJK Ideograph
-<U6C4E> \xC8\xC6 |0 # CJK Ideograph
-<U7248> \xC8\xC7 |0 # CJK Ideograph
-<U72AF> \xC8\xC8 |0 # CJK Ideograph
-<U73ED> \xC8\xC9 |0 # CJK Ideograph
-<U7554> \xC8\xCA |0 # CJK Ideograph
-<U7E41> \xC8\xCB |0 # CJK Ideograph
-<U822C> \xC8\xCC |0 # CJK Ideograph
-<U85E9> \xC8\xCD |0 # CJK Ideograph
-<U8CA9> \xC8\xCE |0 # CJK Ideograph
-<U7BC4> \xC8\xCF |0 # CJK Ideograph
-<U91C6> \xC8\xD0 |0 # CJK Ideograph
-<U7169> \xC8\xD1 |0 # CJK Ideograph
-<U9812> \xC8\xD2 |0 # CJK Ideograph
-<U98EF> \xC8\xD3 |0 # CJK Ideograph
-<U633D> \xC8\xD4 |0 # CJK Ideograph
-<U6669> \xC8\xD5 |0 # CJK Ideograph
-<U756A> \xC8\xD6 |0 # CJK Ideograph
-<U76E4> \xC8\xD7 |0 # CJK Ideograph
-<U78D0> \xC8\xD8 |0 # CJK Ideograph
-<U8543> \xC8\xD9 |0 # CJK Ideograph
-<U86EE> \xC8\xDA |0 # CJK Ideograph
-<U532A> \xC8\xDB |0 # CJK Ideograph
-<U5351> \xC8\xDC |0 # CJK Ideograph
-<U5426> \xC8\xDD |0 # CJK Ideograph
-<U5983> \xC8\xDE |0 # CJK Ideograph
-<U5E87> \xC8\xDF |0 # CJK Ideograph
-<U5F7C> \xC8\xE0 |0 # CJK Ideograph
-<U60B2> \xC8\xE1 |0 # CJK Ideograph
-<U6249> \xC8\xE2 |0 # CJK Ideograph
-<U6279> \xC8\xE3 |0 # CJK Ideograph
-<U62AB> \xC8\xE4 |0 # CJK Ideograph
-<U6590> \xC8\xE5 |0 # CJK Ideograph
-<U6BD4> \xC8\xE6 |0 # CJK Ideograph
-<U6CCC> \xC8\xE7 |0 # CJK Ideograph
-<U75B2> \xC8\xE8 |0 # CJK Ideograph
-<U76AE> \xC8\xE9 |0 # CJK Ideograph
-<U7891> \xC8\xEA |0 # CJK Ideograph
-<U79D8> \xC8\xEB |0 # CJK Ideograph
-<U7DCB> \xC8\xEC |0 # CJK Ideograph
-<U7F77> \xC8\xED |0 # CJK Ideograph
-<U80A5> \xC8\xEE |0 # CJK Ideograph
-<U88AB> \xC8\xEF |0 # CJK Ideograph
-<U8AB9> \xC8\xF0 |0 # CJK Ideograph
-<U8CBB> \xC8\xF1 |0 # CJK Ideograph
-<U907F> \xC8\xF2 |0 # CJK Ideograph
-<U975E> \xC8\xF3 |0 # CJK Ideograph
-<U98DB> \xC8\xF4 |0 # CJK Ideograph
-<U6A0B> \xC8\xF5 |0 # CJK Ideograph
-<U7C38> \xC8\xF6 |0 # CJK Ideograph
-<U5099> \xC8\xF7 |0 # CJK Ideograph
-<U5C3E> \xC8\xF8 |0 # CJK Ideograph
-<U5FAE> \xC8\xF9 |0 # CJK Ideograph
-<U6787> \xC8\xFA |0 # CJK Ideograph
-<U6BD8> \xC8\xFB |0 # CJK Ideograph
-<U7435> \xC8\xFC |0 # CJK Ideograph
-<U7709> \xC8\xFD |0 # CJK Ideograph
-<U7F8E> \xC8\xFE |0 # CJK Ideograph
-<U9F3B> \xC9\xA1 |0 # CJK Ideograph
-<U67CA> \xC9\xA2 |0 # CJK Ideograph
-<U7A17> \xC9\xA3 |0 # CJK Ideograph
-<U5339> \xC9\xA4 |0 # CJK Ideograph
-<U758B> \xC9\xA5 |0 # CJK Ideograph
-<U9AED> \xC9\xA6 |0 # CJK Ideograph
-<U5F66> \xC9\xA7 |0 # CJK Ideograph
-<U819D> \xC9\xA8 |0 # CJK Ideograph
-<U83F1> \xC9\xA9 |0 # CJK Ideograph
-<U8098> \xC9\xAA |0 # CJK Ideograph
-<U5F3C> \xC9\xAB |0 # CJK Ideograph
-<U5FC5> \xC9\xAC |0 # CJK Ideograph
-<U7562> \xC9\xAD |0 # CJK Ideograph
-<U7B46> \xC9\xAE |0 # CJK Ideograph
-<U903C> \xC9\xAF |0 # CJK Ideograph
-<U6867> \xC9\xB0 |0 # CJK Ideograph
-<U59EB> \xC9\xB1 |0 # CJK Ideograph
-<U5A9B> \xC9\xB2 |0 # CJK Ideograph
-<U7D10> \xC9\xB3 |0 # CJK Ideograph
-<U767E> \xC9\xB4 |0 # CJK Ideograph
-<U8B2C> \xC9\xB5 |0 # CJK Ideograph
-<U4FF5> \xC9\xB6 |0 # CJK Ideograph
-<U5F6A> \xC9\xB7 |0 # CJK Ideograph
-<U6A19> \xC9\xB8 |0 # CJK Ideograph
-<U6C37> \xC9\xB9 |0 # CJK Ideograph
-<U6F02> \xC9\xBA |0 # CJK Ideograph
-<U74E2> \xC9\xBB |0 # CJK Ideograph
-<U7968> \xC9\xBC |0 # CJK Ideograph
-<U8868> \xC9\xBD |0 # CJK Ideograph
-<U8A55> \xC9\xBE |0 # CJK Ideograph
-<U8C79> \xC9\xBF |0 # CJK Ideograph
-<U5EDF> \xC9\xC0 |0 # CJK Ideograph
-<U63CF> \xC9\xC1 |0 # CJK Ideograph
-<U75C5> \xC9\xC2 |0 # CJK Ideograph
-<U79D2> \xC9\xC3 |0 # CJK Ideograph
-<U82D7> \xC9\xC4 |0 # CJK Ideograph
-<U9328> \xC9\xC5 |0 # CJK Ideograph
-<U92F2> \xC9\xC6 |0 # CJK Ideograph
-<U849C> \xC9\xC7 |0 # CJK Ideograph
-<U86ED> \xC9\xC8 |0 # CJK Ideograph
-<U9C2D> \xC9\xC9 |0 # CJK Ideograph
-<U54C1> \xC9\xCA |0 # CJK Ideograph
-<U5F6C> \xC9\xCB |0 # CJK Ideograph
-<U658C> \xC9\xCC |0 # CJK Ideograph
-<U6D5C> \xC9\xCD |0 # CJK Ideograph
-<U7015> \xC9\xCE |0 # CJK Ideograph
-<U8CA7> \xC9\xCF |0 # CJK Ideograph
-<U8CD3> \xC9\xD0 |0 # CJK Ideograph
-<U983B> \xC9\xD1 |0 # CJK Ideograph
-<U654F> \xC9\xD2 |0 # CJK Ideograph
-<U74F6> \xC9\xD3 |0 # CJK Ideograph
-<U4E0D> \xC9\xD4 |0 # CJK Ideograph
-<U4ED8> \xC9\xD5 |0 # CJK Ideograph
-<U57E0> \xC9\xD6 |0 # CJK Ideograph
-<U592B> \xC9\xD7 |0 # CJK Ideograph
-<U5A66> \xC9\xD8 |0 # CJK Ideograph
-<U5BCC> \xC9\xD9 |0 # CJK Ideograph
-<U51A8> \xC9\xDA |0 # CJK Ideograph
-<U5E03> \xC9\xDB |0 # CJK Ideograph
-<U5E9C> \xC9\xDC |0 # CJK Ideograph
-<U6016> \xC9\xDD |0 # CJK Ideograph
-<U6276> \xC9\xDE |0 # CJK Ideograph
-<U6577> \xC9\xDF |0 # CJK Ideograph
-<U65A7> \xC9\xE0 |0 # CJK Ideograph
-<U666E> \xC9\xE1 |0 # CJK Ideograph
-<U6D6E> \xC9\xE2 |0 # CJK Ideograph
-<U7236> \xC9\xE3 |0 # CJK Ideograph
-<U7B26> \xC9\xE4 |0 # CJK Ideograph
-<U8150> \xC9\xE5 |0 # CJK Ideograph
-<U819A> \xC9\xE6 |0 # CJK Ideograph
-<U8299> \xC9\xE7 |0 # CJK Ideograph
-<U8B5C> \xC9\xE8 |0 # CJK Ideograph
-<U8CA0> \xC9\xE9 |0 # CJK Ideograph
-<U8CE6> \xC9\xEA |0 # CJK Ideograph
-<U8D74> \xC9\xEB |0 # CJK Ideograph
-<U961C> \xC9\xEC |0 # CJK Ideograph
-<U9644> \xC9\xED |0 # CJK Ideograph
-<U4FAE> \xC9\xEE |0 # CJK Ideograph
-<U64AB> \xC9\xEF |0 # CJK Ideograph
-<U6B66> \xC9\xF0 |0 # CJK Ideograph
-<U821E> \xC9\xF1 |0 # CJK Ideograph
-<U8461> \xC9\xF2 |0 # CJK Ideograph
-<U856A> \xC9\xF3 |0 # CJK Ideograph
-<U90E8> \xC9\xF4 |0 # CJK Ideograph
-<U5C01> \xC9\xF5 |0 # CJK Ideograph
-<U6953> \xC9\xF6 |0 # CJK Ideograph
-<U98A8> \xC9\xF7 |0 # CJK Ideograph
-<U847A> \xC9\xF8 |0 # CJK Ideograph
-<U8557> \xC9\xF9 |0 # CJK Ideograph
-<U4F0F> \xC9\xFA |0 # CJK Ideograph
-<U526F> \xC9\xFB |0 # CJK Ideograph
-<U5FA9> \xC9\xFC |0 # CJK Ideograph
-<U5E45> \xC9\xFD |0 # CJK Ideograph
-<U670D> \xC9\xFE |0 # CJK Ideograph
-<U798F> \xCA\xA1 |0 # CJK Ideograph
-<U8179> \xCA\xA2 |0 # CJK Ideograph
-<U8907> \xCA\xA3 |0 # CJK Ideograph
-<U8986> \xCA\xA4 |0 # CJK Ideograph
-<U6DF5> \xCA\xA5 |0 # CJK Ideograph
-<U5F17> \xCA\xA6 |0 # CJK Ideograph
-<U6255> \xCA\xA7 |0 # CJK Ideograph
-<U6CB8> \xCA\xA8 |0 # CJK Ideograph
-<U4ECF> \xCA\xA9 |0 # CJK Ideograph
-<U7269> \xCA\xAA |0 # CJK Ideograph
-<U9B92> \xCA\xAB |0 # CJK Ideograph
-<U5206> \xCA\xAC |0 # CJK Ideograph
-<U543B> \xCA\xAD |0 # CJK Ideograph
-<U5674> \xCA\xAE |0 # CJK Ideograph
-<U58B3> \xCA\xAF |0 # CJK Ideograph
-<U61A4> \xCA\xB0 |0 # CJK Ideograph
-<U626E> \xCA\xB1 |0 # CJK Ideograph
-<U711A> \xCA\xB2 |0 # CJK Ideograph
-<U596E> \xCA\xB3 |0 # CJK Ideograph
-<U7C89> \xCA\xB4 |0 # CJK Ideograph
-<U7CDE> \xCA\xB5 |0 # CJK Ideograph
-<U7D1B> \xCA\xB6 |0 # CJK Ideograph
-<U96F0> \xCA\xB7 |0 # CJK Ideograph
-<U6587> \xCA\xB8 |0 # CJK Ideograph
-<U805E> \xCA\xB9 |0 # CJK Ideograph
-<U4E19> \xCA\xBA |0 # CJK Ideograph
-<U4F75> \xCA\xBB |0 # CJK Ideograph
-<U5175> \xCA\xBC |0 # CJK Ideograph
-<U5840> \xCA\xBD |0 # CJK Ideograph
-<U5E63> \xCA\xBE |0 # CJK Ideograph
-<U5E73> \xCA\xBF |0 # CJK Ideograph
-<U5F0A> \xCA\xC0 |0 # CJK Ideograph
-<U67C4> \xCA\xC1 |0 # CJK Ideograph
-<U4E26> \xCA\xC2 |0 # CJK Ideograph
-<U853D> \xCA\xC3 |0 # CJK Ideograph
-<U9589> \xCA\xC4 |0 # CJK Ideograph
-<U965B> \xCA\xC5 |0 # CJK Ideograph
-<U7C73> \xCA\xC6 |0 # CJK Ideograph
-<U9801> \xCA\xC7 |0 # CJK Ideograph
-<U50FB> \xCA\xC8 |0 # CJK Ideograph
-<U58C1> \xCA\xC9 |0 # CJK Ideograph
-<U7656> \xCA\xCA |0 # CJK Ideograph
-<U78A7> \xCA\xCB |0 # CJK Ideograph
-<U5225> \xCA\xCC |0 # CJK Ideograph
-<U77A5> \xCA\xCD |0 # CJK Ideograph
-<U8511> \xCA\xCE |0 # CJK Ideograph
-<U7B86> \xCA\xCF |0 # CJK Ideograph
-<U504F> \xCA\xD0 |0 # CJK Ideograph
-<U5909> \xCA\xD1 |0 # CJK Ideograph
-<U7247> \xCA\xD2 |0 # CJK Ideograph
-<U7BC7> \xCA\xD3 |0 # CJK Ideograph
-<U7DE8> \xCA\xD4 |0 # CJK Ideograph
-<U8FBA> \xCA\xD5 |0 # CJK Ideograph
-<U8FD4> \xCA\xD6 |0 # CJK Ideograph
-<U904D> \xCA\xD7 |0 # CJK Ideograph
-<U4FBF> \xCA\xD8 |0 # CJK Ideograph
-<U52C9> \xCA\xD9 |0 # CJK Ideograph
-<U5A29> \xCA\xDA |0 # CJK Ideograph
-<U5F01> \xCA\xDB |0 # CJK Ideograph
-<U97AD> \xCA\xDC |0 # CJK Ideograph
-<U4FDD> \xCA\xDD |0 # CJK Ideograph
-<U8217> \xCA\xDE |0 # CJK Ideograph
-<U92EA> \xCA\xDF |0 # CJK Ideograph
-<U5703> \xCA\xE0 |0 # CJK Ideograph
-<U6355> \xCA\xE1 |0 # CJK Ideograph
-<U6B69> \xCA\xE2 |0 # CJK Ideograph
-<U752B> \xCA\xE3 |0 # CJK Ideograph
-<U88DC> \xCA\xE4 |0 # CJK Ideograph
-<U8F14> \xCA\xE5 |0 # CJK Ideograph
-<U7A42> \xCA\xE6 |0 # CJK Ideograph
-<U52DF> \xCA\xE7 |0 # CJK Ideograph
-<U5893> \xCA\xE8 |0 # CJK Ideograph
-<U6155> \xCA\xE9 |0 # CJK Ideograph
-<U620A> \xCA\xEA |0 # CJK Ideograph
-<U66AE> \xCA\xEB |0 # CJK Ideograph
-<U6BCD> \xCA\xEC |0 # CJK Ideograph
-<U7C3F> \xCA\xED |0 # CJK Ideograph
-<U83E9> \xCA\xEE |0 # CJK Ideograph
-<U5023> \xCA\xEF |0 # CJK Ideograph
-<U4FF8> \xCA\xF0 |0 # CJK Ideograph
-<U5305> \xCA\xF1 |0 # CJK Ideograph
-<U5446> \xCA\xF2 |0 # CJK Ideograph
-<U5831> \xCA\xF3 |0 # CJK Ideograph
-<U5949> \xCA\xF4 |0 # CJK Ideograph
-<U5B9D> \xCA\xF5 |0 # CJK Ideograph
-<U5CF0> \xCA\xF6 |0 # CJK Ideograph
-<U5CEF> \xCA\xF7 |0 # CJK Ideograph
-<U5D29> \xCA\xF8 |0 # CJK Ideograph
-<U5E96> \xCA\xF9 |0 # CJK Ideograph
-<U62B1> \xCA\xFA |0 # CJK Ideograph
-<U6367> \xCA\xFB |0 # CJK Ideograph
-<U653E> \xCA\xFC |0 # CJK Ideograph
-<U65B9> \xCA\xFD |0 # CJK Ideograph
-<U670B> \xCA\xFE |0 # CJK Ideograph
-<U6CD5> \xCB\xA1 |0 # CJK Ideograph
-<U6CE1> \xCB\xA2 |0 # CJK Ideograph
-<U70F9> \xCB\xA3 |0 # CJK Ideograph
-<U7832> \xCB\xA4 |0 # CJK Ideograph
-<U7E2B> \xCB\xA5 |0 # CJK Ideograph
-<U80DE> \xCB\xA6 |0 # CJK Ideograph
-<U82B3> \xCB\xA7 |0 # CJK Ideograph
-<U840C> \xCB\xA8 |0 # CJK Ideograph
-<U84EC> \xCB\xA9 |0 # CJK Ideograph
-<U8702> \xCB\xAA |0 # CJK Ideograph
-<U8912> \xCB\xAB |0 # CJK Ideograph
-<U8A2A> \xCB\xAC |0 # CJK Ideograph
-<U8C4A> \xCB\xAD |0 # CJK Ideograph
-<U90A6> \xCB\xAE |0 # CJK Ideograph
-<U92D2> \xCB\xAF |0 # CJK Ideograph
-<U98FD> \xCB\xB0 |0 # CJK Ideograph
-<U9CF3> \xCB\xB1 |0 # CJK Ideograph
-<U9D6C> \xCB\xB2 |0 # CJK Ideograph
-<U4E4F> \xCB\xB3 |0 # CJK Ideograph
-<U4EA1> \xCB\xB4 |0 # CJK Ideograph
-<U508D> \xCB\xB5 |0 # CJK Ideograph
-<U5256> \xCB\xB6 |0 # CJK Ideograph
-<U574A> \xCB\xB7 |0 # CJK Ideograph
-<U59A8> \xCB\xB8 |0 # CJK Ideograph
-<U5E3D> \xCB\xB9 |0 # CJK Ideograph
-<U5FD8> \xCB\xBA |0 # CJK Ideograph
-<U5FD9> \xCB\xBB |0 # CJK Ideograph
-<U623F> \xCB\xBC |0 # CJK Ideograph
-<U66B4> \xCB\xBD |0 # CJK Ideograph
-<U671B> \xCB\xBE |0 # CJK Ideograph
-<U67D0> \xCB\xBF |0 # CJK Ideograph
-<U68D2> \xCB\xC0 |0 # CJK Ideograph
-<U5192> \xCB\xC1 |0 # CJK Ideograph
-<U7D21> \xCB\xC2 |0 # CJK Ideograph
-<U80AA> \xCB\xC3 |0 # CJK Ideograph
-<U81A8> \xCB\xC4 |0 # CJK Ideograph
-<U8B00> \xCB\xC5 |0 # CJK Ideograph
-<U8C8C> \xCB\xC6 |0 # CJK Ideograph
-<U8CBF> \xCB\xC7 |0 # CJK Ideograph
-<U927E> \xCB\xC8 |0 # CJK Ideograph
-<U9632> \xCB\xC9 |0 # CJK Ideograph
-<U5420> \xCB\xCA |0 # CJK Ideograph
-<U982C> \xCB\xCB |0 # CJK Ideograph
-<U5317> \xCB\xCC |0 # CJK Ideograph
-<U50D5> \xCB\xCD |0 # CJK Ideograph
-<U535C> \xCB\xCE |0 # CJK Ideograph
-<U58A8> \xCB\xCF |0 # CJK Ideograph
-<U64B2> \xCB\xD0 |0 # CJK Ideograph
-<U6734> \xCB\xD1 |0 # CJK Ideograph
-<U7267> \xCB\xD2 |0 # CJK Ideograph
-<U7766> \xCB\xD3 |0 # CJK Ideograph
-<U7A46> \xCB\xD4 |0 # CJK Ideograph
-<U91E6> \xCB\xD5 |0 # CJK Ideograph
-<U52C3> \xCB\xD6 |0 # CJK Ideograph
-<U6CA1> \xCB\xD7 |0 # CJK Ideograph
-<U6B86> \xCB\xD8 |0 # CJK Ideograph
-<U5800> \xCB\xD9 |0 # CJK Ideograph
-<U5E4C> \xCB\xDA |0 # CJK Ideograph
-<U5954> \xCB\xDB |0 # CJK Ideograph
-<U672C> \xCB\xDC |0 # CJK Ideograph
-<U7FFB> \xCB\xDD |0 # CJK Ideograph
-<U51E1> \xCB\xDE |0 # CJK Ideograph
-<U76C6> \xCB\xDF |0 # CJK Ideograph
-<U6469> \xCB\xE0 |0 # CJK Ideograph
-<U78E8> \xCB\xE1 |0 # CJK Ideograph
-<U9B54> \xCB\xE2 |0 # CJK Ideograph
-<U9EBB> \xCB\xE3 |0 # CJK Ideograph
-<U57CB> \xCB\xE4 |0 # CJK Ideograph
-<U59B9> \xCB\xE5 |0 # CJK Ideograph
-<U6627> \xCB\xE6 |0 # CJK Ideograph
-<U679A> \xCB\xE7 |0 # CJK Ideograph
-<U6BCE> \xCB\xE8 |0 # CJK Ideograph
-<U54E9> \xCB\xE9 |0 # CJK Ideograph
-<U69D9> \xCB\xEA |0 # CJK Ideograph
-<U5E55> \xCB\xEB |0 # CJK Ideograph
-<U819C> \xCB\xEC |0 # CJK Ideograph
-<U6795> \xCB\xED |0 # CJK Ideograph
-<U9BAA> \xCB\xEE |0 # CJK Ideograph
-<U67FE> \xCB\xEF |0 # CJK Ideograph
-<U9C52> \xCB\xF0 |0 # CJK Ideograph
-<U685D> \xCB\xF1 |0 # CJK Ideograph
-<U4EA6> \xCB\xF2 |0 # CJK Ideograph
-<U4FE3> \xCB\xF3 |0 # CJK Ideograph
-<U53C8> \xCB\xF4 |0 # CJK Ideograph
-<U62B9> \xCB\xF5 |0 # CJK Ideograph
-<U672B> \xCB\xF6 |0 # CJK Ideograph
-<U6CAB> \xCB\xF7 |0 # CJK Ideograph
-<U8FC4> \xCB\xF8 |0 # CJK Ideograph
-<U4FAD> \xCB\xF9 |0 # CJK Ideograph
-<U7E6D> \xCB\xFA |0 # CJK Ideograph
-<U9EBF> \xCB\xFB |0 # CJK Ideograph
-<U4E07> \xCB\xFC |0 # CJK Ideograph
-<U6162> \xCB\xFD |0 # CJK Ideograph
-<U6E80> \xCB\xFE |0 # CJK Ideograph
-<U6F2B> \xCC\xA1 |0 # CJK Ideograph
-<U8513> \xCC\xA2 |0 # CJK Ideograph
-<U5473> \xCC\xA3 |0 # CJK Ideograph
-<U672A> \xCC\xA4 |0 # CJK Ideograph
-<U9B45> \xCC\xA5 |0 # CJK Ideograph
-<U5DF3> \xCC\xA6 |0 # CJK Ideograph
-<U7B95> \xCC\xA7 |0 # CJK Ideograph
-<U5CAC> \xCC\xA8 |0 # CJK Ideograph
-<U5BC6> \xCC\xA9 |0 # CJK Ideograph
-<U871C> \xCC\xAA |0 # CJK Ideograph
-<U6E4A> \xCC\xAB |0 # CJK Ideograph
-<U84D1> \xCC\xAC |0 # CJK Ideograph
-<U7A14> \xCC\xAD |0 # CJK Ideograph
-<U8108> \xCC\xAE |0 # CJK Ideograph
-<U5999> \xCC\xAF |0 # CJK Ideograph
-<U7C8D> \xCC\xB0 |0 # CJK Ideograph
-<U6C11> \xCC\xB1 |0 # CJK Ideograph
-<U7720> \xCC\xB2 |0 # CJK Ideograph
-<U52D9> \xCC\xB3 |0 # CJK Ideograph
-<U5922> \xCC\xB4 |0 # CJK Ideograph
-<U7121> \xCC\xB5 |0 # CJK Ideograph
-<U725F> \xCC\xB6 |0 # CJK Ideograph
-<U77DB> \xCC\xB7 |0 # CJK Ideograph
-<U9727> \xCC\xB8 |0 # CJK Ideograph
-<U9D61> \xCC\xB9 |0 # CJK Ideograph
-<U690B> \xCC\xBA |0 # CJK Ideograph
-<U5A7F> \xCC\xBB |0 # CJK Ideograph
-<U5A18> \xCC\xBC |0 # CJK Ideograph
-<U51A5> \xCC\xBD |0 # CJK Ideograph
-<U540D> \xCC\xBE |0 # CJK Ideograph
-<U547D> \xCC\xBF |0 # CJK Ideograph
-<U660E> \xCC\xC0 |0 # CJK Ideograph
-<U76DF> \xCC\xC1 |0 # CJK Ideograph
-<U8FF7> \xCC\xC2 |0 # CJK Ideograph
-<U9298> \xCC\xC3 |0 # CJK Ideograph
-<U9CF4> \xCC\xC4 |0 # CJK Ideograph
-<U59EA> \xCC\xC5 |0 # CJK Ideograph
-<U725D> \xCC\xC6 |0 # CJK Ideograph
-<U6EC5> \xCC\xC7 |0 # CJK Ideograph
-<U514D> \xCC\xC8 |0 # CJK Ideograph
-<U68C9> \xCC\xC9 |0 # CJK Ideograph
-<U7DBF> \xCC\xCA |0 # CJK Ideograph
-<U7DEC> \xCC\xCB |0 # CJK Ideograph
-<U9762> \xCC\xCC |0 # CJK Ideograph
-<U9EBA> \xCC\xCD |0 # CJK Ideograph
-<U6478> \xCC\xCE |0 # CJK Ideograph
-<U6A21> \xCC\xCF |0 # CJK Ideograph
-<U8302> \xCC\xD0 |0 # CJK Ideograph
-<U5984> \xCC\xD1 |0 # CJK Ideograph
-<U5B5F> \xCC\xD2 |0 # CJK Ideograph
-<U6BDB> \xCC\xD3 |0 # CJK Ideograph
-<U731B> \xCC\xD4 |0 # CJK Ideograph
-<U76F2> \xCC\xD5 |0 # CJK Ideograph
-<U7DB2> \xCC\xD6 |0 # CJK Ideograph
-<U8017> \xCC\xD7 |0 # CJK Ideograph
-<U8499> \xCC\xD8 |0 # CJK Ideograph
-<U5132> \xCC\xD9 |0 # CJK Ideograph
-<U6728> \xCC\xDA |0 # CJK Ideograph
-<U9ED9> \xCC\xDB |0 # CJK Ideograph
-<U76EE> \xCC\xDC |0 # CJK Ideograph
-<U6762> \xCC\xDD |0 # CJK Ideograph
-<U52FF> \xCC\xDE |0 # CJK Ideograph
-<U9905> \xCC\xDF |0 # CJK Ideograph
-<U5C24> \xCC\xE0 |0 # CJK Ideograph
-<U623B> \xCC\xE1 |0 # CJK Ideograph
-<U7C7E> \xCC\xE2 |0 # CJK Ideograph
-<U8CB0> \xCC\xE3 |0 # CJK Ideograph
-<U554F> \xCC\xE4 |0 # CJK Ideograph
-<U60B6> \xCC\xE5 |0 # CJK Ideograph
-<U7D0B> \xCC\xE6 |0 # CJK Ideograph
-<U9580> \xCC\xE7 |0 # CJK Ideograph
-<U5301> \xCC\xE8 |0 # CJK Ideograph
-<U4E5F> \xCC\xE9 |0 # CJK Ideograph
-<U51B6> \xCC\xEA |0 # CJK Ideograph
-<U591C> \xCC\xEB |0 # CJK Ideograph
-<U723A> \xCC\xEC |0 # CJK Ideograph
-<U8036> \xCC\xED |0 # CJK Ideograph
-<U91CE> \xCC\xEE |0 # CJK Ideograph
-<U5F25> \xCC\xEF |0 # CJK Ideograph
-<U77E2> \xCC\xF0 |0 # CJK Ideograph
-<U5384> \xCC\xF1 |0 # CJK Ideograph
-<U5F79> \xCC\xF2 |0 # CJK Ideograph
-<U7D04> \xCC\xF3 |0 # CJK Ideograph
-<U85AC> \xCC\xF4 |0 # CJK Ideograph
-<U8A33> \xCC\xF5 |0 # CJK Ideograph
-<U8E8D> \xCC\xF6 |0 # CJK Ideograph
-<U9756> \xCC\xF7 |0 # CJK Ideograph
-<U67F3> \xCC\xF8 |0 # CJK Ideograph
-<U85AE> \xCC\xF9 |0 # CJK Ideograph
-<U9453> \xCC\xFA |0 # CJK Ideograph
-<U6109> \xCC\xFB |0 # CJK Ideograph
-<U6108> \xCC\xFC |0 # CJK Ideograph
-<U6CB9> \xCC\xFD |0 # CJK Ideograph
-<U7652> \xCC\xFE |0 # CJK Ideograph
-<U8AED> \xCD\xA1 |0 # CJK Ideograph
-<U8F38> \xCD\xA2 |0 # CJK Ideograph
-<U552F> \xCD\xA3 |0 # CJK Ideograph
-<U4F51> \xCD\xA4 |0 # CJK Ideograph
-<U512A> \xCD\xA5 |0 # CJK Ideograph
-<U52C7> \xCD\xA6 |0 # CJK Ideograph
-<U53CB> \xCD\xA7 |0 # CJK Ideograph
-<U5BA5> \xCD\xA8 |0 # CJK Ideograph
-<U5E7D> \xCD\xA9 |0 # CJK Ideograph
-<U60A0> \xCD\xAA |0 # CJK Ideograph
-<U6182> \xCD\xAB |0 # CJK Ideograph
-<U63D6> \xCD\xAC |0 # CJK Ideograph
-<U6709> \xCD\xAD |0 # CJK Ideograph
-<U67DA> \xCD\xAE |0 # CJK Ideograph
-<U6E67> \xCD\xAF |0 # CJK Ideograph
-<U6D8C> \xCD\xB0 |0 # CJK Ideograph
-<U7336> \xCD\xB1 |0 # CJK Ideograph
-<U7337> \xCD\xB2 |0 # CJK Ideograph
-<U7531> \xCD\xB3 |0 # CJK Ideograph
-<U7950> \xCD\xB4 |0 # CJK Ideograph
-<U88D5> \xCD\xB5 |0 # CJK Ideograph
-<U8A98> \xCD\xB6 |0 # CJK Ideograph
-<U904A> \xCD\xB7 |0 # CJK Ideograph
-<U9091> \xCD\xB8 |0 # CJK Ideograph
-<U90F5> \xCD\xB9 |0 # CJK Ideograph
-<U96C4> \xCD\xBA |0 # CJK Ideograph
-<U878D> \xCD\xBB |0 # CJK Ideograph
-<U5915> \xCD\xBC |0 # CJK Ideograph
-<U4E88> \xCD\xBD |0 # CJK Ideograph
-<U4F59> \xCD\xBE |0 # CJK Ideograph
-<U4E0E> \xCD\xBF |0 # CJK Ideograph
-<U8A89> \xCD\xC0 |0 # CJK Ideograph
-<U8F3F> \xCD\xC1 |0 # CJK Ideograph
-<U9810> \xCD\xC2 |0 # CJK Ideograph
-<U50AD> \xCD\xC3 |0 # CJK Ideograph
-<U5E7C> \xCD\xC4 |0 # CJK Ideograph
-<U5996> \xCD\xC5 |0 # CJK Ideograph
-<U5BB9> \xCD\xC6 |0 # CJK Ideograph
-<U5EB8> \xCD\xC7 |0 # CJK Ideograph
-<U63DA> \xCD\xC8 |0 # CJK Ideograph
-<U63FA> \xCD\xC9 |0 # CJK Ideograph
-<U64C1> \xCD\xCA |0 # CJK Ideograph
-<U66DC> \xCD\xCB |0 # CJK Ideograph
-<U694A> \xCD\xCC |0 # CJK Ideograph
-<U69D8> \xCD\xCD |0 # CJK Ideograph
-<U6D0B> \xCD\xCE |0 # CJK Ideograph
-<U6EB6> \xCD\xCF |0 # CJK Ideograph
-<U7194> \xCD\xD0 |0 # CJK Ideograph
-<U7528> \xCD\xD1 |0 # CJK Ideograph
-<U7AAF> \xCD\xD2 |0 # CJK Ideograph
-<U7F8A> \xCD\xD3 |0 # CJK Ideograph
-<U8000> \xCD\xD4 |0 # CJK Ideograph
-<U8449> \xCD\xD5 |0 # CJK Ideograph
-<U84C9> \xCD\xD6 |0 # CJK Ideograph
-<U8981> \xCD\xD7 |0 # CJK Ideograph
-<U8B21> \xCD\xD8 |0 # CJK Ideograph
-<U8E0A> \xCD\xD9 |0 # CJK Ideograph
-<U9065> \xCD\xDA |0 # CJK Ideograph
-<U967D> \xCD\xDB |0 # CJK Ideograph
-<U990A> \xCD\xDC |0 # CJK Ideograph
-<U617E> \xCD\xDD |0 # CJK Ideograph
-<U6291> \xCD\xDE |0 # CJK Ideograph
-<U6B32> \xCD\xDF |0 # CJK Ideograph
-<U6C83> \xCD\xE0 |0 # CJK Ideograph
-<U6D74> \xCD\xE1 |0 # CJK Ideograph
-<U7FCC> \xCD\xE2 |0 # CJK Ideograph
-<U7FFC> \xCD\xE3 |0 # CJK Ideograph
-<U6DC0> \xCD\xE4 |0 # CJK Ideograph
-<U7F85> \xCD\xE5 |0 # CJK Ideograph
-<U87BA> \xCD\xE6 |0 # CJK Ideograph
-<U88F8> \xCD\xE7 |0 # CJK Ideograph
-<U6765> \xCD\xE8 |0 # CJK Ideograph
-<U83B1> \xCD\xE9 |0 # CJK Ideograph
-<U983C> \xCD\xEA |0 # CJK Ideograph
-<U96F7> \xCD\xEB |0 # CJK Ideograph
-<U6D1B> \xCD\xEC |0 # CJK Ideograph
-<U7D61> \xCD\xED |0 # CJK Ideograph
-<U843D> \xCD\xEE |0 # CJK Ideograph
-<U916A> \xCD\xEF |0 # CJK Ideograph
-<U4E71> \xCD\xF0 |0 # CJK Ideograph
-<U5375> \xCD\xF1 |0 # CJK Ideograph
-<U5D50> \xCD\xF2 |0 # CJK Ideograph
-<U6B04> \xCD\xF3 |0 # CJK Ideograph
-<U6FEB> \xCD\xF4 |0 # CJK Ideograph
-<U85CD> \xCD\xF5 |0 # CJK Ideograph
-<U862D> \xCD\xF6 |0 # CJK Ideograph
-<U89A7> \xCD\xF7 |0 # CJK Ideograph
-<U5229> \xCD\xF8 |0 # CJK Ideograph
-<U540F> \xCD\xF9 |0 # CJK Ideograph
-<U5C65> \xCD\xFA |0 # CJK Ideograph
-<U674E> \xCD\xFB |0 # CJK Ideograph
-<U68A8> \xCD\xFC |0 # CJK Ideograph
-<U7406> \xCD\xFD |0 # CJK Ideograph
-<U7483> \xCD\xFE |0 # CJK Ideograph
-<U75E2> \xCE\xA1 |0 # CJK Ideograph
-<U88CF> \xCE\xA2 |0 # CJK Ideograph
-<U88E1> \xCE\xA3 |0 # CJK Ideograph
-<U91CC> \xCE\xA4 |0 # CJK Ideograph
-<U96E2> \xCE\xA5 |0 # CJK Ideograph
-<U9678> \xCE\xA6 |0 # CJK Ideograph
-<U5F8B> \xCE\xA7 |0 # CJK Ideograph
-<U7387> \xCE\xA8 |0 # CJK Ideograph
-<U7ACB> \xCE\xA9 |0 # CJK Ideograph
-<U844E> \xCE\xAA |0 # CJK Ideograph
-<U63A0> \xCE\xAB |0 # CJK Ideograph
-<U7565> \xCE\xAC |0 # CJK Ideograph
-<U5289> \xCE\xAD |0 # CJK Ideograph
-<U6D41> \xCE\xAE |0 # CJK Ideograph
-<U6E9C> \xCE\xAF |0 # CJK Ideograph
-<U7409> \xCE\xB0 |0 # CJK Ideograph
-<U7559> \xCE\xB1 |0 # CJK Ideograph
-<U786B> \xCE\xB2 |0 # CJK Ideograph
-<U7C92> \xCE\xB3 |0 # CJK Ideograph
-<U9686> \xCE\xB4 |0 # CJK Ideograph
-<U7ADC> \xCE\xB5 |0 # CJK Ideograph
-<U9F8D> \xCE\xB6 |0 # CJK Ideograph
-<U4FB6> \xCE\xB7 |0 # CJK Ideograph
-<U616E> \xCE\xB8 |0 # CJK Ideograph
-<U65C5> \xCE\xB9 |0 # CJK Ideograph
-<U865C> \xCE\xBA |0 # CJK Ideograph
-<U4E86> \xCE\xBB |0 # CJK Ideograph
-<U4EAE> \xCE\xBC |0 # CJK Ideograph
-<U50DA> \xCE\xBD |0 # CJK Ideograph
-<U4E21> \xCE\xBE |0 # CJK Ideograph
-<U51CC> \xCE\xBF |0 # CJK Ideograph
-<U5BEE> \xCE\xC0 |0 # CJK Ideograph
-<U6599> \xCE\xC1 |0 # CJK Ideograph
-<U6881> \xCE\xC2 |0 # CJK Ideograph
-<U6DBC> \xCE\xC3 |0 # CJK Ideograph
-<U731F> \xCE\xC4 |0 # CJK Ideograph
-<U7642> \xCE\xC5 |0 # CJK Ideograph
-<U77AD> \xCE\xC6 |0 # CJK Ideograph
-<U7A1C> \xCE\xC7 |0 # CJK Ideograph
-<U7CE7> \xCE\xC8 |0 # CJK Ideograph
-<U826F> \xCE\xC9 |0 # CJK Ideograph
-<U8AD2> \xCE\xCA |0 # CJK Ideograph
-<U907C> \xCE\xCB |0 # CJK Ideograph
-<U91CF> \xCE\xCC |0 # CJK Ideograph
-<U9675> \xCE\xCD |0 # CJK Ideograph
-<U9818> \xCE\xCE |0 # CJK Ideograph
-<U529B> \xCE\xCF |0 # CJK Ideograph
-<U7DD1> \xCE\xD0 |0 # CJK Ideograph
-<U502B> \xCE\xD1 |0 # CJK Ideograph
-<U5398> \xCE\xD2 |0 # CJK Ideograph
-<U6797> \xCE\xD3 |0 # CJK Ideograph
-<U6DCB> \xCE\xD4 |0 # CJK Ideograph
-<U71D0> \xCE\xD5 |0 # CJK Ideograph
-<U7433> \xCE\xD6 |0 # CJK Ideograph
-<U81E8> \xCE\xD7 |0 # CJK Ideograph
-<U8F2A> \xCE\xD8 |0 # CJK Ideograph
-<U96A3> \xCE\xD9 |0 # CJK Ideograph
-<U9C57> \xCE\xDA |0 # CJK Ideograph
-<U9E9F> \xCE\xDB |0 # CJK Ideograph
-<U7460> \xCE\xDC |0 # CJK Ideograph
-<U5841> \xCE\xDD |0 # CJK Ideograph
-<U6D99> \xCE\xDE |0 # CJK Ideograph
-<U7D2F> \xCE\xDF |0 # CJK Ideograph
-<U985E> \xCE\xE0 |0 # CJK Ideograph
-<U4EE4> \xCE\xE1 |0 # CJK Ideograph
-<U4F36> \xCE\xE2 |0 # CJK Ideograph
-<U4F8B> \xCE\xE3 |0 # CJK Ideograph
-<U51B7> \xCE\xE4 |0 # CJK Ideograph
-<U52B1> \xCE\xE5 |0 # CJK Ideograph
-<U5DBA> \xCE\xE6 |0 # CJK Ideograph
-<U601C> \xCE\xE7 |0 # CJK Ideograph
-<U73B2> \xCE\xE8 |0 # CJK Ideograph
-<U793C> \xCE\xE9 |0 # CJK Ideograph
-<U82D3> \xCE\xEA |0 # CJK Ideograph
-<U9234> \xCE\xEB |0 # CJK Ideograph
-<U96B7> \xCE\xEC |0 # CJK Ideograph
-<U96F6> \xCE\xED |0 # CJK Ideograph
-<U970A> \xCE\xEE |0 # CJK Ideograph
-<U9E97> \xCE\xEF |0 # CJK Ideograph
-<U9F62> \xCE\xF0 |0 # CJK Ideograph
-<U66A6> \xCE\xF1 |0 # CJK Ideograph
-<U6B74> \xCE\xF2 |0 # CJK Ideograph
-<U5217> \xCE\xF3 |0 # CJK Ideograph
-<U52A3> \xCE\xF4 |0 # CJK Ideograph
-<U70C8> \xCE\xF5 |0 # CJK Ideograph
-<U88C2> \xCE\xF6 |0 # CJK Ideograph
-<U5EC9> \xCE\xF7 |0 # CJK Ideograph
-<U604B> \xCE\xF8 |0 # CJK Ideograph
-<U6190> \xCE\xF9 |0 # CJK Ideograph
-<U6F23> \xCE\xFA |0 # CJK Ideograph
-<U7149> \xCE\xFB |0 # CJK Ideograph
-<U7C3E> \xCE\xFC |0 # CJK Ideograph
-<U7DF4> \xCE\xFD |0 # CJK Ideograph
-<U806F> \xCE\xFE |0 # CJK Ideograph
-<U84EE> \xCF\xA1 |0 # CJK Ideograph
-<U9023> \xCF\xA2 |0 # CJK Ideograph
-<U932C> \xCF\xA3 |0 # CJK Ideograph
-<U5442> \xCF\xA4 |0 # CJK Ideograph
-<U9B6F> \xCF\xA5 |0 # CJK Ideograph
-<U6AD3> \xCF\xA6 |0 # CJK Ideograph
-<U7089> \xCF\xA7 |0 # CJK Ideograph
-<U8CC2> \xCF\xA8 |0 # CJK Ideograph
-<U8DEF> \xCF\xA9 |0 # CJK Ideograph
-<U9732> \xCF\xAA |0 # CJK Ideograph
-<U52B4> \xCF\xAB |0 # CJK Ideograph
-<U5A41> \xCF\xAC |0 # CJK Ideograph
-<U5ECA> \xCF\xAD |0 # CJK Ideograph
-<U5F04> \xCF\xAE |0 # CJK Ideograph
-<U6717> \xCF\xAF |0 # CJK Ideograph
-<U697C> \xCF\xB0 |0 # CJK Ideograph
-<U6994> \xCF\xB1 |0 # CJK Ideograph
-<U6D6A> \xCF\xB2 |0 # CJK Ideograph
-<U6F0F> \xCF\xB3 |0 # CJK Ideograph
-<U7262> \xCF\xB4 |0 # CJK Ideograph
-<U72FC> \xCF\xB5 |0 # CJK Ideograph
-<U7BED> \xCF\xB6 |0 # CJK Ideograph
-<U8001> \xCF\xB7 |0 # CJK Ideograph
-<U807E> \xCF\xB8 |0 # CJK Ideograph
-<U874B> \xCF\xB9 |0 # CJK Ideograph
-<U90CE> \xCF\xBA |0 # CJK Ideograph
-<U516D> \xCF\xBB |0 # CJK Ideograph
-<U9E93> \xCF\xBC |0 # CJK Ideograph
-<U7984> \xCF\xBD |0 # CJK Ideograph
-<U808B> \xCF\xBE |0 # CJK Ideograph
-<U9332> \xCF\xBF |0 # CJK Ideograph
-<U8AD6> \xCF\xC0 |0 # CJK Ideograph
-<U502D> \xCF\xC1 |0 # CJK Ideograph
-<U548C> \xCF\xC2 |0 # CJK Ideograph
-<U8A71> \xCF\xC3 |0 # CJK Ideograph
-<U6B6A> \xCF\xC4 |0 # CJK Ideograph
-<U8CC4> \xCF\xC5 |0 # CJK Ideograph
-<U8107> \xCF\xC6 |0 # CJK Ideograph
-<U60D1> \xCF\xC7 |0 # CJK Ideograph
-<U67A0> \xCF\xC8 |0 # CJK Ideograph
-<U9DF2> \xCF\xC9 |0 # CJK Ideograph
-<U4E99> \xCF\xCA |0 # CJK Ideograph
-<U4E98> \xCF\xCB |0 # CJK Ideograph
-<U9C10> \xCF\xCC |0 # CJK Ideograph
-<U8A6B> \xCF\xCD |0 # CJK Ideograph
-<U85C1> \xCF\xCE |0 # CJK Ideograph
-<U8568> \xCF\xCF |0 # CJK Ideograph
-<U6900> \xCF\xD0 |0 # CJK Ideograph
-<U6E7E> \xCF\xD1 |0 # CJK Ideograph
-<U7897> \xCF\xD2 |0 # CJK Ideograph
-<U8155> \xCF\xD3 |0 # CJK Ideograph
-<U5F0C> \xD0\xA1 |0 # CJK Ideograph
-<U4E10> \xD0\xA2 |0 # CJK Ideograph
-<U4E15> \xD0\xA3 |0 # CJK Ideograph
-<U4E2A> \xD0\xA4 |0 # CJK Ideograph
-<U4E31> \xD0\xA5 |0 # CJK Ideograph
-<U4E36> \xD0\xA6 |0 # CJK Ideograph
-<U4E3C> \xD0\xA7 |0 # CJK Ideograph
-<U4E3F> \xD0\xA8 |0 # CJK Ideograph
-<U4E42> \xD0\xA9 |0 # CJK Ideograph
-<U4E56> \xD0\xAA |0 # CJK Ideograph
-<U4E58> \xD0\xAB |0 # CJK Ideograph
-<U4E82> \xD0\xAC |0 # CJK Ideograph
-<U4E85> \xD0\xAD |0 # CJK Ideograph
-<U8C6B> \xD0\xAE |0 # CJK Ideograph
-<U4E8A> \xD0\xAF |0 # CJK Ideograph
-<U8212> \xD0\xB0 |0 # CJK Ideograph
-<U5F0D> \xD0\xB1 |0 # CJK Ideograph
-<U4E8E> \xD0\xB2 |0 # CJK Ideograph
-<U4E9E> \xD0\xB3 |0 # CJK Ideograph
-<U4E9F> \xD0\xB4 |0 # CJK Ideograph
-<U4EA0> \xD0\xB5 |0 # CJK Ideograph
-<U4EA2> \xD0\xB6 |0 # CJK Ideograph
-<U4EB0> \xD0\xB7 |0 # CJK Ideograph
-<U4EB3> \xD0\xB8 |0 # CJK Ideograph
-<U4EB6> \xD0\xB9 |0 # CJK Ideograph
-<U4ECE> \xD0\xBA |0 # CJK Ideograph
-<U4ECD> \xD0\xBB |0 # CJK Ideograph
-<U4EC4> \xD0\xBC |0 # CJK Ideograph
-<U4EC6> \xD0\xBD |0 # CJK Ideograph
-<U4EC2> \xD0\xBE |0 # CJK Ideograph
-<U4ED7> \xD0\xBF |0 # CJK Ideograph
-<U4EDE> \xD0\xC0 |0 # CJK Ideograph
-<U4EED> \xD0\xC1 |0 # CJK Ideograph
-<U4EDF> \xD0\xC2 |0 # CJK Ideograph
-<U4EF7> \xD0\xC3 |0 # CJK Ideograph
-<U4F09> \xD0\xC4 |0 # CJK Ideograph
-<U4F5A> \xD0\xC5 |0 # CJK Ideograph
-<U4F30> \xD0\xC6 |0 # CJK Ideograph
-<U4F5B> \xD0\xC7 |0 # CJK Ideograph
-<U4F5D> \xD0\xC8 |0 # CJK Ideograph
-<U4F57> \xD0\xC9 |0 # CJK Ideograph
-<U4F47> \xD0\xCA |0 # CJK Ideograph
-<U4F76> \xD0\xCB |0 # CJK Ideograph
-<U4F88> \xD0\xCC |0 # CJK Ideograph
-<U4F8F> \xD0\xCD |0 # CJK Ideograph
-<U4F98> \xD0\xCE |0 # CJK Ideograph
-<U4F7B> \xD0\xCF |0 # CJK Ideograph
-<U4F69> \xD0\xD0 |0 # CJK Ideograph
-<U4F70> \xD0\xD1 |0 # CJK Ideograph
-<U4F91> \xD0\xD2 |0 # CJK Ideograph
-<U4F6F> \xD0\xD3 |0 # CJK Ideograph
-<U4F86> \xD0\xD4 |0 # CJK Ideograph
-<U4F96> \xD0\xD5 |0 # CJK Ideograph
-<U5118> \xD0\xD6 |0 # CJK Ideograph
-<U4FD4> \xD0\xD7 |0 # CJK Ideograph
-<U4FDF> \xD0\xD8 |0 # CJK Ideograph
-<U4FCE> \xD0\xD9 |0 # CJK Ideograph
-<U4FD8> \xD0\xDA |0 # CJK Ideograph
-<U4FDB> \xD0\xDB |0 # CJK Ideograph
-<U4FD1> \xD0\xDC |0 # CJK Ideograph
-<U4FDA> \xD0\xDD |0 # CJK Ideograph
-<U4FD0> \xD0\xDE |0 # CJK Ideograph
-<U4FE4> \xD0\xDF |0 # CJK Ideograph
-<U4FE5> \xD0\xE0 |0 # CJK Ideograph
-<U501A> \xD0\xE1 |0 # CJK Ideograph
-<U5028> \xD0\xE2 |0 # CJK Ideograph
-<U5014> \xD0\xE3 |0 # CJK Ideograph
-<U502A> \xD0\xE4 |0 # CJK Ideograph
-<U5025> \xD0\xE5 |0 # CJK Ideograph
-<U5005> \xD0\xE6 |0 # CJK Ideograph
-<U4F1C> \xD0\xE7 |0 # CJK Ideograph
-<U4FF6> \xD0\xE8 |0 # CJK Ideograph
-<U5021> \xD0\xE9 |0 # CJK Ideograph
-<U5029> \xD0\xEA |0 # CJK Ideograph
-<U502C> \xD0\xEB |0 # CJK Ideograph
-<U4FFE> \xD0\xEC |0 # CJK Ideograph
-<U4FEF> \xD0\xED |0 # CJK Ideograph
-<U5011> \xD0\xEE |0 # CJK Ideograph
-<U5006> \xD0\xEF |0 # CJK Ideograph
-<U5043> \xD0\xF0 |0 # CJK Ideograph
-<U5047> \xD0\xF1 |0 # CJK Ideograph
-<U6703> \xD0\xF2 |0 # CJK Ideograph
-<U5055> \xD0\xF3 |0 # CJK Ideograph
-<U5050> \xD0\xF4 |0 # CJK Ideograph
-<U5048> \xD0\xF5 |0 # CJK Ideograph
-<U505A> \xD0\xF6 |0 # CJK Ideograph
-<U5056> \xD0\xF7 |0 # CJK Ideograph
-<U506C> \xD0\xF8 |0 # CJK Ideograph
-<U5078> \xD0\xF9 |0 # CJK Ideograph
-<U5080> \xD0\xFA |0 # CJK Ideograph
-<U509A> \xD0\xFB |0 # CJK Ideograph
-<U5085> \xD0\xFC |0 # CJK Ideograph
-<U50B4> \xD0\xFD |0 # CJK Ideograph
-<U50B2> \xD0\xFE |0 # CJK Ideograph
-<U50C9> \xD1\xA1 |0 # CJK Ideograph
-<U50CA> \xD1\xA2 |0 # CJK Ideograph
-<U50B3> \xD1\xA3 |0 # CJK Ideograph
-<U50C2> \xD1\xA4 |0 # CJK Ideograph
-<U50D6> \xD1\xA5 |0 # CJK Ideograph
-<U50DE> \xD1\xA6 |0 # CJK Ideograph
-<U50E5> \xD1\xA7 |0 # CJK Ideograph
-<U50ED> \xD1\xA8 |0 # CJK Ideograph
-<U50E3> \xD1\xA9 |0 # CJK Ideograph
-<U50EE> \xD1\xAA |0 # CJK Ideograph
-<U50F9> \xD1\xAB |0 # CJK Ideograph
-<U50F5> \xD1\xAC |0 # CJK Ideograph
-<U5109> \xD1\xAD |0 # CJK Ideograph
-<U5101> \xD1\xAE |0 # CJK Ideograph
-<U5102> \xD1\xAF |0 # CJK Ideograph
-<U5116> \xD1\xB0 |0 # CJK Ideograph
-<U5115> \xD1\xB1 |0 # CJK Ideograph
-<U5114> \xD1\xB2 |0 # CJK Ideograph
-<U511A> \xD1\xB3 |0 # CJK Ideograph
-<U5121> \xD1\xB4 |0 # CJK Ideograph
-<U513A> \xD1\xB5 |0 # CJK Ideograph
-<U5137> \xD1\xB6 |0 # CJK Ideograph
-<U513C> \xD1\xB7 |0 # CJK Ideograph
-<U513B> \xD1\xB8 |0 # CJK Ideograph
-<U513F> \xD1\xB9 |0 # CJK Ideograph
-<U5140> \xD1\xBA |0 # CJK Ideograph
-<U5152> \xD1\xBB |0 # CJK Ideograph
-<U514C> \xD1\xBC |0 # CJK Ideograph
-<U5154> \xD1\xBD |0 # CJK Ideograph
-<U5162> \xD1\xBE |0 # CJK Ideograph
-<U7AF8> \xD1\xBF |0 # CJK Ideograph
-<U5169> \xD1\xC0 |0 # CJK Ideograph
-<U516A> \xD1\xC1 |0 # CJK Ideograph
-<U516E> \xD1\xC2 |0 # CJK Ideograph
-<U5180> \xD1\xC3 |0 # CJK Ideograph
-<U5182> \xD1\xC4 |0 # CJK Ideograph
-<U56D8> \xD1\xC5 |0 # CJK Ideograph
-<U518C> \xD1\xC6 |0 # CJK Ideograph
-<U5189> \xD1\xC7 |0 # CJK Ideograph
-<U518F> \xD1\xC8 |0 # CJK Ideograph
-<U5191> \xD1\xC9 |0 # CJK Ideograph
-<U5193> \xD1\xCA |0 # CJK Ideograph
-<U5195> \xD1\xCB |0 # CJK Ideograph
-<U5196> \xD1\xCC |0 # CJK Ideograph
-<U51A4> \xD1\xCD |0 # CJK Ideograph
-<U51A6> \xD1\xCE |0 # CJK Ideograph
-<U51A2> \xD1\xCF |0 # CJK Ideograph
-<U51A9> \xD1\xD0 |0 # CJK Ideograph
-<U51AA> \xD1\xD1 |0 # CJK Ideograph
-<U51AB> \xD1\xD2 |0 # CJK Ideograph
-<U51B3> \xD1\xD3 |0 # CJK Ideograph
-<U51B1> \xD1\xD4 |0 # CJK Ideograph
-<U51B2> \xD1\xD5 |0 # CJK Ideograph
-<U51B0> \xD1\xD6 |0 # CJK Ideograph
-<U51B5> \xD1\xD7 |0 # CJK Ideograph
-<U51BD> \xD1\xD8 |0 # CJK Ideograph
-<U51C5> \xD1\xD9 |0 # CJK Ideograph
-<U51C9> \xD1\xDA |0 # CJK Ideograph
-<U51DB> \xD1\xDB |0 # CJK Ideograph
-<U51E0> \xD1\xDC |0 # CJK Ideograph
-<U8655> \xD1\xDD |0 # CJK Ideograph
-<U51E9> \xD1\xDE |0 # CJK Ideograph
-<U51ED> \xD1\xDF |0 # CJK Ideograph
-<U51F0> \xD1\xE0 |0 # CJK Ideograph
-<U51F5> \xD1\xE1 |0 # CJK Ideograph
-<U51FE> \xD1\xE2 |0 # CJK Ideograph
-<U5204> \xD1\xE3 |0 # CJK Ideograph
-<U520B> \xD1\xE4 |0 # CJK Ideograph
-<U5214> \xD1\xE5 |0 # CJK Ideograph
-<U520E> \xD1\xE6 |0 # CJK Ideograph
-<U5227> \xD1\xE7 |0 # CJK Ideograph
-<U522A> \xD1\xE8 |0 # CJK Ideograph
-<U522E> \xD1\xE9 |0 # CJK Ideograph
-<U5233> \xD1\xEA |0 # CJK Ideograph
-<U5239> \xD1\xEB |0 # CJK Ideograph
-<U524F> \xD1\xEC |0 # CJK Ideograph
-<U5244> \xD1\xED |0 # CJK Ideograph
-<U524B> \xD1\xEE |0 # CJK Ideograph
-<U524C> \xD1\xEF |0 # CJK Ideograph
-<U525E> \xD1\xF0 |0 # CJK Ideograph
-<U5254> \xD1\xF1 |0 # CJK Ideograph
-<U526A> \xD1\xF2 |0 # CJK Ideograph
-<U5274> \xD1\xF3 |0 # CJK Ideograph
-<U5269> \xD1\xF4 |0 # CJK Ideograph
-<U5273> \xD1\xF5 |0 # CJK Ideograph
-<U527F> \xD1\xF6 |0 # CJK Ideograph
-<U527D> \xD1\xF7 |0 # CJK Ideograph
-<U528D> \xD1\xF8 |0 # CJK Ideograph
-<U5294> \xD1\xF9 |0 # CJK Ideograph
-<U5292> \xD1\xFA |0 # CJK Ideograph
-<U5271> \xD1\xFB |0 # CJK Ideograph
-<U5288> \xD1\xFC |0 # CJK Ideograph
-<U5291> \xD1\xFD |0 # CJK Ideograph
-<U8FA8> \xD1\xFE |0 # CJK Ideograph
-<U8FA7> \xD2\xA1 |0 # CJK Ideograph
-<U52AC> \xD2\xA2 |0 # CJK Ideograph
-<U52AD> \xD2\xA3 |0 # CJK Ideograph
-<U52BC> \xD2\xA4 |0 # CJK Ideograph
-<U52B5> \xD2\xA5 |0 # CJK Ideograph
-<U52C1> \xD2\xA6 |0 # CJK Ideograph
-<U52CD> \xD2\xA7 |0 # CJK Ideograph
-<U52D7> \xD2\xA8 |0 # CJK Ideograph
-<U52DE> \xD2\xA9 |0 # CJK Ideograph
-<U52E3> \xD2\xAA |0 # CJK Ideograph
-<U52E6> \xD2\xAB |0 # CJK Ideograph
-<U98ED> \xD2\xAC |0 # CJK Ideograph
-<U52E0> \xD2\xAD |0 # CJK Ideograph
-<U52F3> \xD2\xAE |0 # CJK Ideograph
-<U52F5> \xD2\xAF |0 # CJK Ideograph
-<U52F8> \xD2\xB0 |0 # CJK Ideograph
-<U52F9> \xD2\xB1 |0 # CJK Ideograph
-<U5306> \xD2\xB2 |0 # CJK Ideograph
-<U5308> \xD2\xB3 |0 # CJK Ideograph
-<U7538> \xD2\xB4 |0 # CJK Ideograph
-<U530D> \xD2\xB5 |0 # CJK Ideograph
-<U5310> \xD2\xB6 |0 # CJK Ideograph
-<U530F> \xD2\xB7 |0 # CJK Ideograph
-<U5315> \xD2\xB8 |0 # CJK Ideograph
-<U531A> \xD2\xB9 |0 # CJK Ideograph
-<U5323> \xD2\xBA |0 # CJK Ideograph
-<U532F> \xD2\xBB |0 # CJK Ideograph
-<U5331> \xD2\xBC |0 # CJK Ideograph
-<U5333> \xD2\xBD |0 # CJK Ideograph
-<U5338> \xD2\xBE |0 # CJK Ideograph
-<U5340> \xD2\xBF |0 # CJK Ideograph
-<U5346> \xD2\xC0 |0 # CJK Ideograph
-<U5345> \xD2\xC1 |0 # CJK Ideograph
-<U4E17> \xD2\xC2 |0 # CJK Ideograph
-<U5349> \xD2\xC3 |0 # CJK Ideograph
-<U534D> \xD2\xC4 |0 # CJK Ideograph
-<U51D6> \xD2\xC5 |0 # CJK Ideograph
-<U535E> \xD2\xC6 |0 # CJK Ideograph
-<U5369> \xD2\xC7 |0 # CJK Ideograph
-<U536E> \xD2\xC8 |0 # CJK Ideograph
-<U5918> \xD2\xC9 |0 # CJK Ideograph
-<U537B> \xD2\xCA |0 # CJK Ideograph
-<U5377> \xD2\xCB |0 # CJK Ideograph
-<U5382> \xD2\xCC |0 # CJK Ideograph
-<U5396> \xD2\xCD |0 # CJK Ideograph
-<U53A0> \xD2\xCE |0 # CJK Ideograph
-<U53A6> \xD2\xCF |0 # CJK Ideograph
-<U53A5> \xD2\xD0 |0 # CJK Ideograph
-<U53AE> \xD2\xD1 |0 # CJK Ideograph
-<U53B0> \xD2\xD2 |0 # CJK Ideograph
-<U53B6> \xD2\xD3 |0 # CJK Ideograph
-<U53C3> \xD2\xD4 |0 # CJK Ideograph
-<U7C12> \xD2\xD5 |0 # CJK Ideograph
-<U96D9> \xD2\xD6 |0 # CJK Ideograph
-<U53DF> \xD2\xD7 |0 # CJK Ideograph
-<U66FC> \xD2\xD8 |0 # CJK Ideograph
-<U71EE> \xD2\xD9 |0 # CJK Ideograph
-<U53EE> \xD2\xDA |0 # CJK Ideograph
-<U53E8> \xD2\xDB |0 # CJK Ideograph
-<U53ED> \xD2\xDC |0 # CJK Ideograph
-<U53FA> \xD2\xDD |0 # CJK Ideograph
-<U5401> \xD2\xDE |0 # CJK Ideograph
-<U543D> \xD2\xDF |0 # CJK Ideograph
-<U5440> \xD2\xE0 |0 # CJK Ideograph
-<U542C> \xD2\xE1 |0 # CJK Ideograph
-<U542D> \xD2\xE2 |0 # CJK Ideograph
-<U543C> \xD2\xE3 |0 # CJK Ideograph
-<U542E> \xD2\xE4 |0 # CJK Ideograph
-<U5436> \xD2\xE5 |0 # CJK Ideograph
-<U5429> \xD2\xE6 |0 # CJK Ideograph
-<U541D> \xD2\xE7 |0 # CJK Ideograph
-<U544E> \xD2\xE8 |0 # CJK Ideograph
-<U548F> \xD2\xE9 |0 # CJK Ideograph
-<U5475> \xD2\xEA |0 # CJK Ideograph
-<U548E> \xD2\xEB |0 # CJK Ideograph
-<U545F> \xD2\xEC |0 # CJK Ideograph
-<U5471> \xD2\xED |0 # CJK Ideograph
-<U5477> \xD2\xEE |0 # CJK Ideograph
-<U5470> \xD2\xEF |0 # CJK Ideograph
-<U5492> \xD2\xF0 |0 # CJK Ideograph
-<U547B> \xD2\xF1 |0 # CJK Ideograph
-<U5480> \xD2\xF2 |0 # CJK Ideograph
-<U5476> \xD2\xF3 |0 # CJK Ideograph
-<U5484> \xD2\xF4 |0 # CJK Ideograph
-<U5490> \xD2\xF5 |0 # CJK Ideograph
-<U5486> \xD2\xF6 |0 # CJK Ideograph
-<U54C7> \xD2\xF7 |0 # CJK Ideograph
-<U54A2> \xD2\xF8 |0 # CJK Ideograph
-<U54B8> \xD2\xF9 |0 # CJK Ideograph
-<U54A5> \xD2\xFA |0 # CJK Ideograph
-<U54AC> \xD2\xFB |0 # CJK Ideograph
-<U54C4> \xD2\xFC |0 # CJK Ideograph
-<U54C8> \xD2\xFD |0 # CJK Ideograph
-<U54A8> \xD2\xFE |0 # CJK Ideograph
-<U54AB> \xD3\xA1 |0 # CJK Ideograph
-<U54C2> \xD3\xA2 |0 # CJK Ideograph
-<U54A4> \xD3\xA3 |0 # CJK Ideograph
-<U54BE> \xD3\xA4 |0 # CJK Ideograph
-<U54BC> \xD3\xA5 |0 # CJK Ideograph
-<U54D8> \xD3\xA6 |0 # CJK Ideograph
-<U54E5> \xD3\xA7 |0 # CJK Ideograph
-<U54E6> \xD3\xA8 |0 # CJK Ideograph
-<U550F> \xD3\xA9 |0 # CJK Ideograph
-<U5514> \xD3\xAA |0 # CJK Ideograph
-<U54FD> \xD3\xAB |0 # CJK Ideograph
-<U54EE> \xD3\xAC |0 # CJK Ideograph
-<U54ED> \xD3\xAD |0 # CJK Ideograph
-<U54FA> \xD3\xAE |0 # CJK Ideograph
-<U54E2> \xD3\xAF |0 # CJK Ideograph
-<U5539> \xD3\xB0 |0 # CJK Ideograph
-<U5540> \xD3\xB1 |0 # CJK Ideograph
-<U5563> \xD3\xB2 |0 # CJK Ideograph
-<U554C> \xD3\xB3 |0 # CJK Ideograph
-<U552E> \xD3\xB4 |0 # CJK Ideograph
-<U555C> \xD3\xB5 |0 # CJK Ideograph
-<U5545> \xD3\xB6 |0 # CJK Ideograph
-<U5556> \xD3\xB7 |0 # CJK Ideograph
-<U5557> \xD3\xB8 |0 # CJK Ideograph
-<U5538> \xD3\xB9 |0 # CJK Ideograph
-<U5533> \xD3\xBA |0 # CJK Ideograph
-<U555D> \xD3\xBB |0 # CJK Ideograph
-<U5599> \xD3\xBC |0 # CJK Ideograph
-<U5580> \xD3\xBD |0 # CJK Ideograph
-<U54AF> \xD3\xBE |0 # CJK Ideograph
-<U558A> \xD3\xBF |0 # CJK Ideograph
-<U559F> \xD3\xC0 |0 # CJK Ideograph
-<U557B> \xD3\xC1 |0 # CJK Ideograph
-<U557E> \xD3\xC2 |0 # CJK Ideograph
-<U5598> \xD3\xC3 |0 # CJK Ideograph
-<U559E> \xD3\xC4 |0 # CJK Ideograph
-<U55AE> \xD3\xC5 |0 # CJK Ideograph
-<U557C> \xD3\xC6 |0 # CJK Ideograph
-<U5583> \xD3\xC7 |0 # CJK Ideograph
-<U55A9> \xD3\xC8 |0 # CJK Ideograph
-<U5587> \xD3\xC9 |0 # CJK Ideograph
-<U55A8> \xD3\xCA |0 # CJK Ideograph
-<U55DA> \xD3\xCB |0 # CJK Ideograph
-<U55C5> \xD3\xCC |0 # CJK Ideograph
-<U55DF> \xD3\xCD |0 # CJK Ideograph
-<U55C4> \xD3\xCE |0 # CJK Ideograph
-<U55DC> \xD3\xCF |0 # CJK Ideograph
-<U55E4> \xD3\xD0 |0 # CJK Ideograph
-<U55D4> \xD3\xD1 |0 # CJK Ideograph
-<U5614> \xD3\xD2 |0 # CJK Ideograph
-<U55F7> \xD3\xD3 |0 # CJK Ideograph
-<U5616> \xD3\xD4 |0 # CJK Ideograph
-<U55FE> \xD3\xD5 |0 # CJK Ideograph
-<U55FD> \xD3\xD6 |0 # CJK Ideograph
-<U561B> \xD3\xD7 |0 # CJK Ideograph
-<U55F9> \xD3\xD8 |0 # CJK Ideograph
-<U564E> \xD3\xD9 |0 # CJK Ideograph
-<U5650> \xD3\xDA |0 # CJK Ideograph
-<U71DF> \xD3\xDB |0 # CJK Ideograph
-<U5634> \xD3\xDC |0 # CJK Ideograph
-<U5636> \xD3\xDD |0 # CJK Ideograph
-<U5632> \xD3\xDE |0 # CJK Ideograph
-<U5638> \xD3\xDF |0 # CJK Ideograph
-<U566B> \xD3\xE0 |0 # CJK Ideograph
-<U5664> \xD3\xE1 |0 # CJK Ideograph
-<U562F> \xD3\xE2 |0 # CJK Ideograph
-<U566C> \xD3\xE3 |0 # CJK Ideograph
-<U566A> \xD3\xE4 |0 # CJK Ideograph
-<U5686> \xD3\xE5 |0 # CJK Ideograph
-<U5680> \xD3\xE6 |0 # CJK Ideograph
-<U568A> \xD3\xE7 |0 # CJK Ideograph
-<U56A0> \xD3\xE8 |0 # CJK Ideograph
-<U5694> \xD3\xE9 |0 # CJK Ideograph
-<U568F> \xD3\xEA |0 # CJK Ideograph
-<U56A5> \xD3\xEB |0 # CJK Ideograph
-<U56AE> \xD3\xEC |0 # CJK Ideograph
-<U56B6> \xD3\xED |0 # CJK Ideograph
-<U56B4> \xD3\xEE |0 # CJK Ideograph
-<U56C2> \xD3\xEF |0 # CJK Ideograph
-<U56BC> \xD3\xF0 |0 # CJK Ideograph
-<U56C1> \xD3\xF1 |0 # CJK Ideograph
-<U56C3> \xD3\xF2 |0 # CJK Ideograph
-<U56C0> \xD3\xF3 |0 # CJK Ideograph
-<U56C8> \xD3\xF4 |0 # CJK Ideograph
-<U56CE> \xD3\xF5 |0 # CJK Ideograph
-<U56D1> \xD3\xF6 |0 # CJK Ideograph
-<U56D3> \xD3\xF7 |0 # CJK Ideograph
-<U56D7> \xD3\xF8 |0 # CJK Ideograph
-<U56EE> \xD3\xF9 |0 # CJK Ideograph
-<U56F9> \xD3\xFA |0 # CJK Ideograph
-<U5700> \xD3\xFB |0 # CJK Ideograph
-<U56FF> \xD3\xFC |0 # CJK Ideograph
-<U5704> \xD3\xFD |0 # CJK Ideograph
-<U5709> \xD3\xFE |0 # CJK Ideograph
-<U5708> \xD4\xA1 |0 # CJK Ideograph
-<U570B> \xD4\xA2 |0 # CJK Ideograph
-<U570D> \xD4\xA3 |0 # CJK Ideograph
-<U5713> \xD4\xA4 |0 # CJK Ideograph
-<U5718> \xD4\xA5 |0 # CJK Ideograph
-<U5716> \xD4\xA6 |0 # CJK Ideograph
-<U55C7> \xD4\xA7 |0 # CJK Ideograph
-<U571C> \xD4\xA8 |0 # CJK Ideograph
-<U5726> \xD4\xA9 |0 # CJK Ideograph
-<U5737> \xD4\xAA |0 # CJK Ideograph
-<U5738> \xD4\xAB |0 # CJK Ideograph
-<U574E> \xD4\xAC |0 # CJK Ideograph
-<U573B> \xD4\xAD |0 # CJK Ideograph
-<U5740> \xD4\xAE |0 # CJK Ideograph
-<U574F> \xD4\xAF |0 # CJK Ideograph
-<U5769> \xD4\xB0 |0 # CJK Ideograph
-<U57C0> \xD4\xB1 |0 # CJK Ideograph
-<U5788> \xD4\xB2 |0 # CJK Ideograph
-<U5761> \xD4\xB3 |0 # CJK Ideograph
-<U577F> \xD4\xB4 |0 # CJK Ideograph
-<U5789> \xD4\xB5 |0 # CJK Ideograph
-<U5793> \xD4\xB6 |0 # CJK Ideograph
-<U57A0> \xD4\xB7 |0 # CJK Ideograph
-<U57B3> \xD4\xB8 |0 # CJK Ideograph
-<U57A4> \xD4\xB9 |0 # CJK Ideograph
-<U57AA> \xD4\xBA |0 # CJK Ideograph
-<U57B0> \xD4\xBB |0 # CJK Ideograph
-<U57C3> \xD4\xBC |0 # CJK Ideograph
-<U57C6> \xD4\xBD |0 # CJK Ideograph
-<U57D4> \xD4\xBE |0 # CJK Ideograph
-<U57D2> \xD4\xBF |0 # CJK Ideograph
-<U57D3> \xD4\xC0 |0 # CJK Ideograph
-<U580A> \xD4\xC1 |0 # CJK Ideograph
-<U57D6> \xD4\xC2 |0 # CJK Ideograph
-<U57E3> \xD4\xC3 |0 # CJK Ideograph
-<U580B> \xD4\xC4 |0 # CJK Ideograph
-<U5819> \xD4\xC5 |0 # CJK Ideograph
-<U581D> \xD4\xC6 |0 # CJK Ideograph
-<U5872> \xD4\xC7 |0 # CJK Ideograph
-<U5821> \xD4\xC8 |0 # CJK Ideograph
-<U5862> \xD4\xC9 |0 # CJK Ideograph
-<U584B> \xD4\xCA |0 # CJK Ideograph
-<U5870> \xD4\xCB |0 # CJK Ideograph
-<U6BC0> \xD4\xCC |0 # CJK Ideograph
-<U5852> \xD4\xCD |0 # CJK Ideograph
-<U583D> \xD4\xCE |0 # CJK Ideograph
-<U5879> \xD4\xCF |0 # CJK Ideograph
-<U5885> \xD4\xD0 |0 # CJK Ideograph
-<U58B9> \xD4\xD1 |0 # CJK Ideograph
-<U589F> \xD4\xD2 |0 # CJK Ideograph
-<U58AB> \xD4\xD3 |0 # CJK Ideograph
-<U58BA> \xD4\xD4 |0 # CJK Ideograph
-<U58DE> \xD4\xD5 |0 # CJK Ideograph
-<U58BB> \xD4\xD6 |0 # CJK Ideograph
-<U58B8> \xD4\xD7 |0 # CJK Ideograph
-<U58AE> \xD4\xD8 |0 # CJK Ideograph
-<U58C5> \xD4\xD9 |0 # CJK Ideograph
-<U58D3> \xD4\xDA |0 # CJK Ideograph
-<U58D1> \xD4\xDB |0 # CJK Ideograph
-<U58D7> \xD4\xDC |0 # CJK Ideograph
-<U58D9> \xD4\xDD |0 # CJK Ideograph
-<U58D8> \xD4\xDE |0 # CJK Ideograph
-<U58E5> \xD4\xDF |0 # CJK Ideograph
-<U58DC> \xD4\xE0 |0 # CJK Ideograph
-<U58E4> \xD4\xE1 |0 # CJK Ideograph
-<U58DF> \xD4\xE2 |0 # CJK Ideograph
-<U58EF> \xD4\xE3 |0 # CJK Ideograph
-<U58FA> \xD4\xE4 |0 # CJK Ideograph
-<U58F9> \xD4\xE5 |0 # CJK Ideograph
-<U58FB> \xD4\xE6 |0 # CJK Ideograph
-<U58FC> \xD4\xE7 |0 # CJK Ideograph
-<U58FD> \xD4\xE8 |0 # CJK Ideograph
-<U5902> \xD4\xE9 |0 # CJK Ideograph
-<U590A> \xD4\xEA |0 # CJK Ideograph
-<U5910> \xD4\xEB |0 # CJK Ideograph
-<U591B> \xD4\xEC |0 # CJK Ideograph
-<U68A6> \xD4\xED |0 # CJK Ideograph
-<U5925> \xD4\xEE |0 # CJK Ideograph
-<U592C> \xD4\xEF |0 # CJK Ideograph
-<U592D> \xD4\xF0 |0 # CJK Ideograph
-<U5932> \xD4\xF1 |0 # CJK Ideograph
-<U5938> \xD4\xF2 |0 # CJK Ideograph
-<U593E> \xD4\xF3 |0 # CJK Ideograph
-<U7AD2> \xD4\xF4 |0 # CJK Ideograph
-<U5955> \xD4\xF5 |0 # CJK Ideograph
-<U5950> \xD4\xF6 |0 # CJK Ideograph
-<U594E> \xD4\xF7 |0 # CJK Ideograph
-<U595A> \xD4\xF8 |0 # CJK Ideograph
-<U5958> \xD4\xF9 |0 # CJK Ideograph
-<U5962> \xD4\xFA |0 # CJK Ideograph
-<U5960> \xD4\xFB |0 # CJK Ideograph
-<U5967> \xD4\xFC |0 # CJK Ideograph
-<U596C> \xD4\xFD |0 # CJK Ideograph
-<U5969> \xD4\xFE |0 # CJK Ideograph
-<U5978> \xD5\xA1 |0 # CJK Ideograph
-<U5981> \xD5\xA2 |0 # CJK Ideograph
-<U599D> \xD5\xA3 |0 # CJK Ideograph
-<U4F5E> \xD5\xA4 |0 # CJK Ideograph
-<U4FAB> \xD5\xA5 |0 # CJK Ideograph
-<U59A3> \xD5\xA6 |0 # CJK Ideograph
-<U59B2> \xD5\xA7 |0 # CJK Ideograph
-<U59C6> \xD5\xA8 |0 # CJK Ideograph
-<U59E8> \xD5\xA9 |0 # CJK Ideograph
-<U59DC> \xD5\xAA |0 # CJK Ideograph
-<U598D> \xD5\xAB |0 # CJK Ideograph
-<U59D9> \xD5\xAC |0 # CJK Ideograph
-<U59DA> \xD5\xAD |0 # CJK Ideograph
-<U5A25> \xD5\xAE |0 # CJK Ideograph
-<U5A1F> \xD5\xAF |0 # CJK Ideograph
-<U5A11> \xD5\xB0 |0 # CJK Ideograph
-<U5A1C> \xD5\xB1 |0 # CJK Ideograph
-<U5A09> \xD5\xB2 |0 # CJK Ideograph
-<U5A1A> \xD5\xB3 |0 # CJK Ideograph
-<U5A40> \xD5\xB4 |0 # CJK Ideograph
-<U5A6C> \xD5\xB5 |0 # CJK Ideograph
-<U5A49> \xD5\xB6 |0 # CJK Ideograph
-<U5A35> \xD5\xB7 |0 # CJK Ideograph
-<U5A36> \xD5\xB8 |0 # CJK Ideograph
-<U5A62> \xD5\xB9 |0 # CJK Ideograph
-<U5A6A> \xD5\xBA |0 # CJK Ideograph
-<U5A9A> \xD5\xBB |0 # CJK Ideograph
-<U5ABC> \xD5\xBC |0 # CJK Ideograph
-<U5ABE> \xD5\xBD |0 # CJK Ideograph
-<U5ACB> \xD5\xBE |0 # CJK Ideograph
-<U5AC2> \xD5\xBF |0 # CJK Ideograph
-<U5ABD> \xD5\xC0 |0 # CJK Ideograph
-<U5AE3> \xD5\xC1 |0 # CJK Ideograph
-<U5AD7> \xD5\xC2 |0 # CJK Ideograph
-<U5AE6> \xD5\xC3 |0 # CJK Ideograph
-<U5AE9> \xD5\xC4 |0 # CJK Ideograph
-<U5AD6> \xD5\xC5 |0 # CJK Ideograph
-<U5AFA> \xD5\xC6 |0 # CJK Ideograph
-<U5AFB> \xD5\xC7 |0 # CJK Ideograph
-<U5B0C> \xD5\xC8 |0 # CJK Ideograph
-<U5B0B> \xD5\xC9 |0 # CJK Ideograph
-<U5B16> \xD5\xCA |0 # CJK Ideograph
-<U5B32> \xD5\xCB |0 # CJK Ideograph
-<U5AD0> \xD5\xCC |0 # CJK Ideograph
-<U5B2A> \xD5\xCD |0 # CJK Ideograph
-<U5B36> \xD5\xCE |0 # CJK Ideograph
-<U5B3E> \xD5\xCF |0 # CJK Ideograph
-<U5B43> \xD5\xD0 |0 # CJK Ideograph
-<U5B45> \xD5\xD1 |0 # CJK Ideograph
-<U5B40> \xD5\xD2 |0 # CJK Ideograph
-<U5B51> \xD5\xD3 |0 # CJK Ideograph
-<U5B55> \xD5\xD4 |0 # CJK Ideograph
-<U5B5A> \xD5\xD5 |0 # CJK Ideograph
-<U5B5B> \xD5\xD6 |0 # CJK Ideograph
-<U5B65> \xD5\xD7 |0 # CJK Ideograph
-<U5B69> \xD5\xD8 |0 # CJK Ideograph
-<U5B70> \xD5\xD9 |0 # CJK Ideograph
-<U5B73> \xD5\xDA |0 # CJK Ideograph
-<U5B75> \xD5\xDB |0 # CJK Ideograph
-<U5B78> \xD5\xDC |0 # CJK Ideograph
-<U6588> \xD5\xDD |0 # CJK Ideograph
-<U5B7A> \xD5\xDE |0 # CJK Ideograph
-<U5B80> \xD5\xDF |0 # CJK Ideograph
-<U5B83> \xD5\xE0 |0 # CJK Ideograph
-<U5BA6> \xD5\xE1 |0 # CJK Ideograph
-<U5BB8> \xD5\xE2 |0 # CJK Ideograph
-<U5BC3> \xD5\xE3 |0 # CJK Ideograph
-<U5BC7> \xD5\xE4 |0 # CJK Ideograph
-<U5BC9> \xD5\xE5 |0 # CJK Ideograph
-<U5BD4> \xD5\xE6 |0 # CJK Ideograph
-<U5BD0> \xD5\xE7 |0 # CJK Ideograph
-<U5BE4> \xD5\xE8 |0 # CJK Ideograph
-<U5BE6> \xD5\xE9 |0 # CJK Ideograph
-<U5BE2> \xD5\xEA |0 # CJK Ideograph
-<U5BDE> \xD5\xEB |0 # CJK Ideograph
-<U5BE5> \xD5\xEC |0 # CJK Ideograph
-<U5BEB> \xD5\xED |0 # CJK Ideograph
-<U5BF0> \xD5\xEE |0 # CJK Ideograph
-<U5BF6> \xD5\xEF |0 # CJK Ideograph
-<U5BF3> \xD5\xF0 |0 # CJK Ideograph
-<U5C05> \xD5\xF1 |0 # CJK Ideograph
-<U5C07> \xD5\xF2 |0 # CJK Ideograph
-<U5C08> \xD5\xF3 |0 # CJK Ideograph
-<U5C0D> \xD5\xF4 |0 # CJK Ideograph
-<U5C13> \xD5\xF5 |0 # CJK Ideograph
-<U5C20> \xD5\xF6 |0 # CJK Ideograph
-<U5C22> \xD5\xF7 |0 # CJK Ideograph
-<U5C28> \xD5\xF8 |0 # CJK Ideograph
-<U5C38> \xD5\xF9 |0 # CJK Ideograph
-<U5C39> \xD5\xFA |0 # CJK Ideograph
-<U5C41> \xD5\xFB |0 # CJK Ideograph
-<U5C46> \xD5\xFC |0 # CJK Ideograph
-<U5C4E> \xD5\xFD |0 # CJK Ideograph
-<U5C53> \xD5\xFE |0 # CJK Ideograph
-<U5C50> \xD6\xA1 |0 # CJK Ideograph
-<U5C4F> \xD6\xA2 |0 # CJK Ideograph
-<U5B71> \xD6\xA3 |0 # CJK Ideograph
-<U5C6C> \xD6\xA4 |0 # CJK Ideograph
-<U5C6E> \xD6\xA5 |0 # CJK Ideograph
-<U4E62> \xD6\xA6 |0 # CJK Ideograph
-<U5C76> \xD6\xA7 |0 # CJK Ideograph
-<U5C79> \xD6\xA8 |0 # CJK Ideograph
-<U5C8C> \xD6\xA9 |0 # CJK Ideograph
-<U5C91> \xD6\xAA |0 # CJK Ideograph
-<U5C94> \xD6\xAB |0 # CJK Ideograph
-<U599B> \xD6\xAC |0 # CJK Ideograph
-<U5CAB> \xD6\xAD |0 # CJK Ideograph
-<U5CBB> \xD6\xAE |0 # CJK Ideograph
-<U5CB6> \xD6\xAF |0 # CJK Ideograph
-<U5CBC> \xD6\xB0 |0 # CJK Ideograph
-<U5CB7> \xD6\xB1 |0 # CJK Ideograph
-<U5CC5> \xD6\xB2 |0 # CJK Ideograph
-<U5CBE> \xD6\xB3 |0 # CJK Ideograph
-<U5CC7> \xD6\xB4 |0 # CJK Ideograph
-<U5CD9> \xD6\xB5 |0 # CJK Ideograph
-<U5CE9> \xD6\xB6 |0 # CJK Ideograph
-<U5CFD> \xD6\xB7 |0 # CJK Ideograph
-<U5CFA> \xD6\xB8 |0 # CJK Ideograph
-<U5CED> \xD6\xB9 |0 # CJK Ideograph
-<U5D8C> \xD6\xBA |0 # CJK Ideograph
-<U5CEA> \xD6\xBB |0 # CJK Ideograph
-<U5D0B> \xD6\xBC |0 # CJK Ideograph
-<U5D15> \xD6\xBD |0 # CJK Ideograph
-<U5D17> \xD6\xBE |0 # CJK Ideograph
-<U5D5C> \xD6\xBF |0 # CJK Ideograph
-<U5D1F> \xD6\xC0 |0 # CJK Ideograph
-<U5D1B> \xD6\xC1 |0 # CJK Ideograph
-<U5D11> \xD6\xC2 |0 # CJK Ideograph
-<U5D14> \xD6\xC3 |0 # CJK Ideograph
-<U5D22> \xD6\xC4 |0 # CJK Ideograph
-<U5D1A> \xD6\xC5 |0 # CJK Ideograph
-<U5D19> \xD6\xC6 |0 # CJK Ideograph
-<U5D18> \xD6\xC7 |0 # CJK Ideograph
-<U5D4C> \xD6\xC8 |0 # CJK Ideograph
-<U5D52> \xD6\xC9 |0 # CJK Ideograph
-<U5D4E> \xD6\xCA |0 # CJK Ideograph
-<U5D4B> \xD6\xCB |0 # CJK Ideograph
-<U5D6C> \xD6\xCC |0 # CJK Ideograph
-<U5D73> \xD6\xCD |0 # CJK Ideograph
-<U5D76> \xD6\xCE |0 # CJK Ideograph
-<U5D87> \xD6\xCF |0 # CJK Ideograph
-<U5D84> \xD6\xD0 |0 # CJK Ideograph
-<U5D82> \xD6\xD1 |0 # CJK Ideograph
-<U5DA2> \xD6\xD2 |0 # CJK Ideograph
-<U5D9D> \xD6\xD3 |0 # CJK Ideograph
-<U5DAC> \xD6\xD4 |0 # CJK Ideograph
-<U5DAE> \xD6\xD5 |0 # CJK Ideograph
-<U5DBD> \xD6\xD6 |0 # CJK Ideograph
-<U5D90> \xD6\xD7 |0 # CJK Ideograph
-<U5DB7> \xD6\xD8 |0 # CJK Ideograph
-<U5DBC> \xD6\xD9 |0 # CJK Ideograph
-<U5DC9> \xD6\xDA |0 # CJK Ideograph
-<U5DCD> \xD6\xDB |0 # CJK Ideograph
-<U5DD3> \xD6\xDC |0 # CJK Ideograph
-<U5DD2> \xD6\xDD |0 # CJK Ideograph
-<U5DD6> \xD6\xDE |0 # CJK Ideograph
-<U5DDB> \xD6\xDF |0 # CJK Ideograph
-<U5DEB> \xD6\xE0 |0 # CJK Ideograph
-<U5DF2> \xD6\xE1 |0 # CJK Ideograph
-<U5DF5> \xD6\xE2 |0 # CJK Ideograph
-<U5E0B> \xD6\xE3 |0 # CJK Ideograph
-<U5E1A> \xD6\xE4 |0 # CJK Ideograph
-<U5E19> \xD6\xE5 |0 # CJK Ideograph
-<U5E11> \xD6\xE6 |0 # CJK Ideograph
-<U5E1B> \xD6\xE7 |0 # CJK Ideograph
-<U5E36> \xD6\xE8 |0 # CJK Ideograph
-<U5E37> \xD6\xE9 |0 # CJK Ideograph
-<U5E44> \xD6\xEA |0 # CJK Ideograph
-<U5E43> \xD6\xEB |0 # CJK Ideograph
-<U5E40> \xD6\xEC |0 # CJK Ideograph
-<U5E4E> \xD6\xED |0 # CJK Ideograph
-<U5E57> \xD6\xEE |0 # CJK Ideograph
-<U5E54> \xD6\xEF |0 # CJK Ideograph
-<U5E5F> \xD6\xF0 |0 # CJK Ideograph
-<U5E62> \xD6\xF1 |0 # CJK Ideograph
-<U5E64> \xD6\xF2 |0 # CJK Ideograph
-<U5E47> \xD6\xF3 |0 # CJK Ideograph
-<U5E75> \xD6\xF4 |0 # CJK Ideograph
-<U5E76> \xD6\xF5 |0 # CJK Ideograph
-<U5E7A> \xD6\xF6 |0 # CJK Ideograph
-<U9EBC> \xD6\xF7 |0 # CJK Ideograph
-<U5E7F> \xD6\xF8 |0 # CJK Ideograph
-<U5EA0> \xD6\xF9 |0 # CJK Ideograph
-<U5EC1> \xD6\xFA |0 # CJK Ideograph
-<U5EC2> \xD6\xFB |0 # CJK Ideograph
-<U5EC8> \xD6\xFC |0 # CJK Ideograph
-<U5ED0> \xD6\xFD |0 # CJK Ideograph
-<U5ECF> \xD6\xFE |0 # CJK Ideograph
-<U5ED6> \xD7\xA1 |0 # CJK Ideograph
-<U5EE3> \xD7\xA2 |0 # CJK Ideograph
-<U5EDD> \xD7\xA3 |0 # CJK Ideograph
-<U5EDA> \xD7\xA4 |0 # CJK Ideograph
-<U5EDB> \xD7\xA5 |0 # CJK Ideograph
-<U5EE2> \xD7\xA6 |0 # CJK Ideograph
-<U5EE1> \xD7\xA7 |0 # CJK Ideograph
-<U5EE8> \xD7\xA8 |0 # CJK Ideograph
-<U5EE9> \xD7\xA9 |0 # CJK Ideograph
-<U5EEC> \xD7\xAA |0 # CJK Ideograph
-<U5EF1> \xD7\xAB |0 # CJK Ideograph
-<U5EF3> \xD7\xAC |0 # CJK Ideograph
-<U5EF0> \xD7\xAD |0 # CJK Ideograph
-<U5EF4> \xD7\xAE |0 # CJK Ideograph
-<U5EF8> \xD7\xAF |0 # CJK Ideograph
-<U5EFE> \xD7\xB0 |0 # CJK Ideograph
-<U5F03> \xD7\xB1 |0 # CJK Ideograph
-<U5F09> \xD7\xB2 |0 # CJK Ideograph
-<U5F5D> \xD7\xB3 |0 # CJK Ideograph
-<U5F5C> \xD7\xB4 |0 # CJK Ideograph
-<U5F0B> \xD7\xB5 |0 # CJK Ideograph
-<U5F11> \xD7\xB6 |0 # CJK Ideograph
-<U5F16> \xD7\xB7 |0 # CJK Ideograph
-<U5F29> \xD7\xB8 |0 # CJK Ideograph
-<U5F2D> \xD7\xB9 |0 # CJK Ideograph
-<U5F38> \xD7\xBA |0 # CJK Ideograph
-<U5F41> \xD7\xBB |0 # CJK Ideograph
-<U5F48> \xD7\xBC |0 # CJK Ideograph
-<U5F4C> \xD7\xBD |0 # CJK Ideograph
-<U5F4E> \xD7\xBE |0 # CJK Ideograph
-<U5F2F> \xD7\xBF |0 # CJK Ideograph
-<U5F51> \xD7\xC0 |0 # CJK Ideograph
-<U5F56> \xD7\xC1 |0 # CJK Ideograph
-<U5F57> \xD7\xC2 |0 # CJK Ideograph
-<U5F59> \xD7\xC3 |0 # CJK Ideograph
-<U5F61> \xD7\xC4 |0 # CJK Ideograph
-<U5F6D> \xD7\xC5 |0 # CJK Ideograph
-<U5F73> \xD7\xC6 |0 # CJK Ideograph
-<U5F77> \xD7\xC7 |0 # CJK Ideograph
-<U5F83> \xD7\xC8 |0 # CJK Ideograph
-<U5F82> \xD7\xC9 |0 # CJK Ideograph
-<U5F7F> \xD7\xCA |0 # CJK Ideograph
-<U5F8A> \xD7\xCB |0 # CJK Ideograph
-<U5F88> \xD7\xCC |0 # CJK Ideograph
-<U5F91> \xD7\xCD |0 # CJK Ideograph
-<U5F87> \xD7\xCE |0 # CJK Ideograph
-<U5F9E> \xD7\xCF |0 # CJK Ideograph
-<U5F99> \xD7\xD0 |0 # CJK Ideograph
-<U5F98> \xD7\xD1 |0 # CJK Ideograph
-<U5FA0> \xD7\xD2 |0 # CJK Ideograph
-<U5FA8> \xD7\xD3 |0 # CJK Ideograph
-<U5FAD> \xD7\xD4 |0 # CJK Ideograph
-<U5FBC> \xD7\xD5 |0 # CJK Ideograph
-<U5FD6> \xD7\xD6 |0 # CJK Ideograph
-<U5FFB> \xD7\xD7 |0 # CJK Ideograph
-<U5FE4> \xD7\xD8 |0 # CJK Ideograph
-<U5FF8> \xD7\xD9 |0 # CJK Ideograph
-<U5FF1> \xD7\xDA |0 # CJK Ideograph
-<U5FDD> \xD7\xDB |0 # CJK Ideograph
-<U60B3> \xD7\xDC |0 # CJK Ideograph
-<U5FFF> \xD7\xDD |0 # CJK Ideograph
-<U6021> \xD7\xDE |0 # CJK Ideograph
-<U6060> \xD7\xDF |0 # CJK Ideograph
-<U6019> \xD7\xE0 |0 # CJK Ideograph
-<U6010> \xD7\xE1 |0 # CJK Ideograph
-<U6029> \xD7\xE2 |0 # CJK Ideograph
-<U600E> \xD7\xE3 |0 # CJK Ideograph
-<U6031> \xD7\xE4 |0 # CJK Ideograph
-<U601B> \xD7\xE5 |0 # CJK Ideograph
-<U6015> \xD7\xE6 |0 # CJK Ideograph
-<U602B> \xD7\xE7 |0 # CJK Ideograph
-<U6026> \xD7\xE8 |0 # CJK Ideograph
-<U600F> \xD7\xE9 |0 # CJK Ideograph
-<U603A> \xD7\xEA |0 # CJK Ideograph
-<U605A> \xD7\xEB |0 # CJK Ideograph
-<U6041> \xD7\xEC |0 # CJK Ideograph
-<U606A> \xD7\xED |0 # CJK Ideograph
-<U6077> \xD7\xEE |0 # CJK Ideograph
-<U605F> \xD7\xEF |0 # CJK Ideograph
-<U604A> \xD7\xF0 |0 # CJK Ideograph
-<U6046> \xD7\xF1 |0 # CJK Ideograph
-<U604D> \xD7\xF2 |0 # CJK Ideograph
-<U6063> \xD7\xF3 |0 # CJK Ideograph
-<U6043> \xD7\xF4 |0 # CJK Ideograph
-<U6064> \xD7\xF5 |0 # CJK Ideograph
-<U6042> \xD7\xF6 |0 # CJK Ideograph
-<U606C> \xD7\xF7 |0 # CJK Ideograph
-<U606B> \xD7\xF8 |0 # CJK Ideograph
-<U6059> \xD7\xF9 |0 # CJK Ideograph
-<U6081> \xD7\xFA |0 # CJK Ideograph
-<U608D> \xD7\xFB |0 # CJK Ideograph
-<U60E7> \xD7\xFC |0 # CJK Ideograph
-<U6083> \xD7\xFD |0 # CJK Ideograph
-<U609A> \xD7\xFE |0 # CJK Ideograph
-<U6084> \xD8\xA1 |0 # CJK Ideograph
-<U609B> \xD8\xA2 |0 # CJK Ideograph
-<U6096> \xD8\xA3 |0 # CJK Ideograph
-<U6097> \xD8\xA4 |0 # CJK Ideograph
-<U6092> \xD8\xA5 |0 # CJK Ideograph
-<U60A7> \xD8\xA6 |0 # CJK Ideograph
-<U608B> \xD8\xA7 |0 # CJK Ideograph
-<U60E1> \xD8\xA8 |0 # CJK Ideograph
-<U60B8> \xD8\xA9 |0 # CJK Ideograph
-<U60E0> \xD8\xAA |0 # CJK Ideograph
-<U60D3> \xD8\xAB |0 # CJK Ideograph
-<U60B4> \xD8\xAC |0 # CJK Ideograph
-<U5FF0> \xD8\xAD |0 # CJK Ideograph
-<U60BD> \xD8\xAE |0 # CJK Ideograph
-<U60C6> \xD8\xAF |0 # CJK Ideograph
-<U60B5> \xD8\xB0 |0 # CJK Ideograph
-<U60D8> \xD8\xB1 |0 # CJK Ideograph
-<U614D> \xD8\xB2 |0 # CJK Ideograph
-<U6115> \xD8\xB3 |0 # CJK Ideograph
-<U6106> \xD8\xB4 |0 # CJK Ideograph
-<U60F6> \xD8\xB5 |0 # CJK Ideograph
-<U60F7> \xD8\xB6 |0 # CJK Ideograph
-<U6100> \xD8\xB7 |0 # CJK Ideograph
-<U60F4> \xD8\xB8 |0 # CJK Ideograph
-<U60FA> \xD8\xB9 |0 # CJK Ideograph
-<U6103> \xD8\xBA |0 # CJK Ideograph
-<U6121> \xD8\xBB |0 # CJK Ideograph
-<U60FB> \xD8\xBC |0 # CJK Ideograph
-<U60F1> \xD8\xBD |0 # CJK Ideograph
-<U610D> \xD8\xBE |0 # CJK Ideograph
-<U610E> \xD8\xBF |0 # CJK Ideograph
-<U6147> \xD8\xC0 |0 # CJK Ideograph
-<U613E> \xD8\xC1 |0 # CJK Ideograph
-<U6128> \xD8\xC2 |0 # CJK Ideograph
-<U6127> \xD8\xC3 |0 # CJK Ideograph
-<U614A> \xD8\xC4 |0 # CJK Ideograph
-<U613F> \xD8\xC5 |0 # CJK Ideograph
-<U613C> \xD8\xC6 |0 # CJK Ideograph
-<U612C> \xD8\xC7 |0 # CJK Ideograph
-<U6134> \xD8\xC8 |0 # CJK Ideograph
-<U613D> \xD8\xC9 |0 # CJK Ideograph
-<U6142> \xD8\xCA |0 # CJK Ideograph
-<U6144> \xD8\xCB |0 # CJK Ideograph
-<U6173> \xD8\xCC |0 # CJK Ideograph
-<U6177> \xD8\xCD |0 # CJK Ideograph
-<U6158> \xD8\xCE |0 # CJK Ideograph
-<U6159> \xD8\xCF |0 # CJK Ideograph
-<U615A> \xD8\xD0 |0 # CJK Ideograph
-<U616B> \xD8\xD1 |0 # CJK Ideograph
-<U6174> \xD8\xD2 |0 # CJK Ideograph
-<U616F> \xD8\xD3 |0 # CJK Ideograph
-<U6165> \xD8\xD4 |0 # CJK Ideograph
-<U6171> \xD8\xD5 |0 # CJK Ideograph
-<U615F> \xD8\xD6 |0 # CJK Ideograph
-<U615D> \xD8\xD7 |0 # CJK Ideograph
-<U6153> \xD8\xD8 |0 # CJK Ideograph
-<U6175> \xD8\xD9 |0 # CJK Ideograph
-<U6199> \xD8\xDA |0 # CJK Ideograph
-<U6196> \xD8\xDB |0 # CJK Ideograph
-<U6187> \xD8\xDC |0 # CJK Ideograph
-<U61AC> \xD8\xDD |0 # CJK Ideograph
-<U6194> \xD8\xDE |0 # CJK Ideograph
-<U619A> \xD8\xDF |0 # CJK Ideograph
-<U618A> \xD8\xE0 |0 # CJK Ideograph
-<U6191> \xD8\xE1 |0 # CJK Ideograph
-<U61AB> \xD8\xE2 |0 # CJK Ideograph
-<U61AE> \xD8\xE3 |0 # CJK Ideograph
-<U61CC> \xD8\xE4 |0 # CJK Ideograph
-<U61CA> \xD8\xE5 |0 # CJK Ideograph
-<U61C9> \xD8\xE6 |0 # CJK Ideograph
-<U61F7> \xD8\xE7 |0 # CJK Ideograph
-<U61C8> \xD8\xE8 |0 # CJK Ideograph
-<U61C3> \xD8\xE9 |0 # CJK Ideograph
-<U61C6> \xD8\xEA |0 # CJK Ideograph
-<U61BA> \xD8\xEB |0 # CJK Ideograph
-<U61CB> \xD8\xEC |0 # CJK Ideograph
-<U7F79> \xD8\xED |0 # CJK Ideograph
-<U61CD> \xD8\xEE |0 # CJK Ideograph
-<U61E6> \xD8\xEF |0 # CJK Ideograph
-<U61E3> \xD8\xF0 |0 # CJK Ideograph
-<U61F6> \xD8\xF1 |0 # CJK Ideograph
-<U61FA> \xD8\xF2 |0 # CJK Ideograph
-<U61F4> \xD8\xF3 |0 # CJK Ideograph
-<U61FF> \xD8\xF4 |0 # CJK Ideograph
-<U61FD> \xD8\xF5 |0 # CJK Ideograph
-<U61FC> \xD8\xF6 |0 # CJK Ideograph
-<U61FE> \xD8\xF7 |0 # CJK Ideograph
-<U6200> \xD8\xF8 |0 # CJK Ideograph
-<U6208> \xD8\xF9 |0 # CJK Ideograph
-<U6209> \xD8\xFA |0 # CJK Ideograph
-<U620D> \xD8\xFB |0 # CJK Ideograph
-<U620C> \xD8\xFC |0 # CJK Ideograph
-<U6214> \xD8\xFD |0 # CJK Ideograph
-<U621B> \xD8\xFE |0 # CJK Ideograph
-<U621E> \xD9\xA1 |0 # CJK Ideograph
-<U6221> \xD9\xA2 |0 # CJK Ideograph
-<U622A> \xD9\xA3 |0 # CJK Ideograph
-<U622E> \xD9\xA4 |0 # CJK Ideograph
-<U6230> \xD9\xA5 |0 # CJK Ideograph
-<U6232> \xD9\xA6 |0 # CJK Ideograph
-<U6233> \xD9\xA7 |0 # CJK Ideograph
-<U6241> \xD9\xA8 |0 # CJK Ideograph
-<U624E> \xD9\xA9 |0 # CJK Ideograph
-<U625E> \xD9\xAA |0 # CJK Ideograph
-<U6263> \xD9\xAB |0 # CJK Ideograph
-<U625B> \xD9\xAC |0 # CJK Ideograph
-<U6260> \xD9\xAD |0 # CJK Ideograph
-<U6268> \xD9\xAE |0 # CJK Ideograph
-<U627C> \xD9\xAF |0 # CJK Ideograph
-<U6282> \xD9\xB0 |0 # CJK Ideograph
-<U6289> \xD9\xB1 |0 # CJK Ideograph
-<U627E> \xD9\xB2 |0 # CJK Ideograph
-<U6292> \xD9\xB3 |0 # CJK Ideograph
-<U6293> \xD9\xB4 |0 # CJK Ideograph
-<U6296> \xD9\xB5 |0 # CJK Ideograph
-<U62D4> \xD9\xB6 |0 # CJK Ideograph
-<U6283> \xD9\xB7 |0 # CJK Ideograph
-<U6294> \xD9\xB8 |0 # CJK Ideograph
-<U62D7> \xD9\xB9 |0 # CJK Ideograph
-<U62D1> \xD9\xBA |0 # CJK Ideograph
-<U62BB> \xD9\xBB |0 # CJK Ideograph
-<U62CF> \xD9\xBC |0 # CJK Ideograph
-<U62FF> \xD9\xBD |0 # CJK Ideograph
-<U62C6> \xD9\xBE |0 # CJK Ideograph
-<U64D4> \xD9\xBF |0 # CJK Ideograph
-<U62C8> \xD9\xC0 |0 # CJK Ideograph
-<U62DC> \xD9\xC1 |0 # CJK Ideograph
-<U62CC> \xD9\xC2 |0 # CJK Ideograph
-<U62CA> \xD9\xC3 |0 # CJK Ideograph
-<U62C2> \xD9\xC4 |0 # CJK Ideograph
-<U62C7> \xD9\xC5 |0 # CJK Ideograph
-<U629B> \xD9\xC6 |0 # CJK Ideograph
-<U62C9> \xD9\xC7 |0 # CJK Ideograph
-<U630C> \xD9\xC8 |0 # CJK Ideograph
-<U62EE> \xD9\xC9 |0 # CJK Ideograph
-<U62F1> \xD9\xCA |0 # CJK Ideograph
-<U6327> \xD9\xCB |0 # CJK Ideograph
-<U6302> \xD9\xCC |0 # CJK Ideograph
-<U6308> \xD9\xCD |0 # CJK Ideograph
-<U62EF> \xD9\xCE |0 # CJK Ideograph
-<U62F5> \xD9\xCF |0 # CJK Ideograph
-<U6350> \xD9\xD0 |0 # CJK Ideograph
-<U633E> \xD9\xD1 |0 # CJK Ideograph
-<U634D> \xD9\xD2 |0 # CJK Ideograph
-<U641C> \xD9\xD3 |0 # CJK Ideograph
-<U634F> \xD9\xD4 |0 # CJK Ideograph
-<U6396> \xD9\xD5 |0 # CJK Ideograph
-<U638E> \xD9\xD6 |0 # CJK Ideograph
-<U6380> \xD9\xD7 |0 # CJK Ideograph
-<U63AB> \xD9\xD8 |0 # CJK Ideograph
-<U6376> \xD9\xD9 |0 # CJK Ideograph
-<U63A3> \xD9\xDA |0 # CJK Ideograph
-<U638F> \xD9\xDB |0 # CJK Ideograph
-<U6389> \xD9\xDC |0 # CJK Ideograph
-<U639F> \xD9\xDD |0 # CJK Ideograph
-<U63B5> \xD9\xDE |0 # CJK Ideograph
-<U636B> \xD9\xDF |0 # CJK Ideograph
-<U6369> \xD9\xE0 |0 # CJK Ideograph
-<U63BE> \xD9\xE1 |0 # CJK Ideograph
-<U63E9> \xD9\xE2 |0 # CJK Ideograph
-<U63C0> \xD9\xE3 |0 # CJK Ideograph
-<U63C6> \xD9\xE4 |0 # CJK Ideograph
-<U63E3> \xD9\xE5 |0 # CJK Ideograph
-<U63C9> \xD9\xE6 |0 # CJK Ideograph
-<U63D2> \xD9\xE7 |0 # CJK Ideograph
-<U63F6> \xD9\xE8 |0 # CJK Ideograph
-<U63C4> \xD9\xE9 |0 # CJK Ideograph
-<U6416> \xD9\xEA |0 # CJK Ideograph
-<U6434> \xD9\xEB |0 # CJK Ideograph
-<U6406> \xD9\xEC |0 # CJK Ideograph
-<U6413> \xD9\xED |0 # CJK Ideograph
-<U6426> \xD9\xEE |0 # CJK Ideograph
-<U6436> \xD9\xEF |0 # CJK Ideograph
-<U651D> \xD9\xF0 |0 # CJK Ideograph
-<U6417> \xD9\xF1 |0 # CJK Ideograph
-<U6428> \xD9\xF2 |0 # CJK Ideograph
-<U640F> \xD9\xF3 |0 # CJK Ideograph
-<U6467> \xD9\xF4 |0 # CJK Ideograph
-<U646F> \xD9\xF5 |0 # CJK Ideograph
-<U6476> \xD9\xF6 |0 # CJK Ideograph
-<U644E> \xD9\xF7 |0 # CJK Ideograph
-<U652A> \xD9\xF8 |0 # CJK Ideograph
-<U6495> \xD9\xF9 |0 # CJK Ideograph
-<U6493> \xD9\xFA |0 # CJK Ideograph
-<U64A5> \xD9\xFB |0 # CJK Ideograph
-<U64A9> \xD9\xFC |0 # CJK Ideograph
-<U6488> \xD9\xFD |0 # CJK Ideograph
-<U64BC> \xD9\xFE |0 # CJK Ideograph
-<U64DA> \xDA\xA1 |0 # CJK Ideograph
-<U64D2> \xDA\xA2 |0 # CJK Ideograph
-<U64C5> \xDA\xA3 |0 # CJK Ideograph
-<U64C7> \xDA\xA4 |0 # CJK Ideograph
-<U64BB> \xDA\xA5 |0 # CJK Ideograph
-<U64D8> \xDA\xA6 |0 # CJK Ideograph
-<U64C2> \xDA\xA7 |0 # CJK Ideograph
-<U64F1> \xDA\xA8 |0 # CJK Ideograph
-<U64E7> \xDA\xA9 |0 # CJK Ideograph
-<U8209> \xDA\xAA |0 # CJK Ideograph
-<U64E0> \xDA\xAB |0 # CJK Ideograph
-<U64E1> \xDA\xAC |0 # CJK Ideograph
-<U62AC> \xDA\xAD |0 # CJK Ideograph
-<U64E3> \xDA\xAE |0 # CJK Ideograph
-<U64EF> \xDA\xAF |0 # CJK Ideograph
-<U652C> \xDA\xB0 |0 # CJK Ideograph
-<U64F6> \xDA\xB1 |0 # CJK Ideograph
-<U64F4> \xDA\xB2 |0 # CJK Ideograph
-<U64F2> \xDA\xB3 |0 # CJK Ideograph
-<U64FA> \xDA\xB4 |0 # CJK Ideograph
-<U6500> \xDA\xB5 |0 # CJK Ideograph
-<U64FD> \xDA\xB6 |0 # CJK Ideograph
-<U6518> \xDA\xB7 |0 # CJK Ideograph
-<U651C> \xDA\xB8 |0 # CJK Ideograph
-<U6505> \xDA\xB9 |0 # CJK Ideograph
-<U6524> \xDA\xBA |0 # CJK Ideograph
-<U6523> \xDA\xBB |0 # CJK Ideograph
-<U652B> \xDA\xBC |0 # CJK Ideograph
-<U6534> \xDA\xBD |0 # CJK Ideograph
-<U6535> \xDA\xBE |0 # CJK Ideograph
-<U6537> \xDA\xBF |0 # CJK Ideograph
-<U6536> \xDA\xC0 |0 # CJK Ideograph
-<U6538> \xDA\xC1 |0 # CJK Ideograph
-<U754B> \xDA\xC2 |0 # CJK Ideograph
-<U6548> \xDA\xC3 |0 # CJK Ideograph
-<U6556> \xDA\xC4 |0 # CJK Ideograph
-<U6555> \xDA\xC5 |0 # CJK Ideograph
-<U654D> \xDA\xC6 |0 # CJK Ideograph
-<U6558> \xDA\xC7 |0 # CJK Ideograph
-<U655E> \xDA\xC8 |0 # CJK Ideograph
-<U655D> \xDA\xC9 |0 # CJK Ideograph
-<U6572> \xDA\xCA |0 # CJK Ideograph
-<U6578> \xDA\xCB |0 # CJK Ideograph
-<U6582> \xDA\xCC |0 # CJK Ideograph
-<U6583> \xDA\xCD |0 # CJK Ideograph
-<U8B8A> \xDA\xCE |0 # CJK Ideograph
-<U659B> \xDA\xCF |0 # CJK Ideograph
-<U659F> \xDA\xD0 |0 # CJK Ideograph
-<U65AB> \xDA\xD1 |0 # CJK Ideograph
-<U65B7> \xDA\xD2 |0 # CJK Ideograph
-<U65C3> \xDA\xD3 |0 # CJK Ideograph
-<U65C6> \xDA\xD4 |0 # CJK Ideograph
-<U65C1> \xDA\xD5 |0 # CJK Ideograph
-<U65C4> \xDA\xD6 |0 # CJK Ideograph
-<U65CC> \xDA\xD7 |0 # CJK Ideograph
-<U65D2> \xDA\xD8 |0 # CJK Ideograph
-<U65DB> \xDA\xD9 |0 # CJK Ideograph
-<U65D9> \xDA\xDA |0 # CJK Ideograph
-<U65E0> \xDA\xDB |0 # CJK Ideograph
-<U65E1> \xDA\xDC |0 # CJK Ideograph
-<U65F1> \xDA\xDD |0 # CJK Ideograph
-<U6772> \xDA\xDE |0 # CJK Ideograph
-<U660A> \xDA\xDF |0 # CJK Ideograph
-<U6603> \xDA\xE0 |0 # CJK Ideograph
-<U65FB> \xDA\xE1 |0 # CJK Ideograph
-<U6773> \xDA\xE2 |0 # CJK Ideograph
-<U6635> \xDA\xE3 |0 # CJK Ideograph
-<U6636> \xDA\xE4 |0 # CJK Ideograph
-<U6634> \xDA\xE5 |0 # CJK Ideograph
-<U661C> \xDA\xE6 |0 # CJK Ideograph
-<U664F> \xDA\xE7 |0 # CJK Ideograph
-<U6644> \xDA\xE8 |0 # CJK Ideograph
-<U6649> \xDA\xE9 |0 # CJK Ideograph
-<U6641> \xDA\xEA |0 # CJK Ideograph
-<U665E> \xDA\xEB |0 # CJK Ideograph
-<U665D> \xDA\xEC |0 # CJK Ideograph
-<U6664> \xDA\xED |0 # CJK Ideograph
-<U6667> \xDA\xEE |0 # CJK Ideograph
-<U6668> \xDA\xEF |0 # CJK Ideograph
-<U665F> \xDA\xF0 |0 # CJK Ideograph
-<U6662> \xDA\xF1 |0 # CJK Ideograph
-<U6670> \xDA\xF2 |0 # CJK Ideograph
-<U6683> \xDA\xF3 |0 # CJK Ideograph
-<U6688> \xDA\xF4 |0 # CJK Ideograph
-<U668E> \xDA\xF5 |0 # CJK Ideograph
-<U6689> \xDA\xF6 |0 # CJK Ideograph
-<U6684> \xDA\xF7 |0 # CJK Ideograph
-<U6698> \xDA\xF8 |0 # CJK Ideograph
-<U669D> \xDA\xF9 |0 # CJK Ideograph
-<U66C1> \xDA\xFA |0 # CJK Ideograph
-<U66B9> \xDA\xFB |0 # CJK Ideograph
-<U66C9> \xDA\xFC |0 # CJK Ideograph
-<U66BE> \xDA\xFD |0 # CJK Ideograph
-<U66BC> \xDA\xFE |0 # CJK Ideograph
-<U66C4> \xDB\xA1 |0 # CJK Ideograph
-<U66B8> \xDB\xA2 |0 # CJK Ideograph
-<U66D6> \xDB\xA3 |0 # CJK Ideograph
-<U66DA> \xDB\xA4 |0 # CJK Ideograph
-<U66E0> \xDB\xA5 |0 # CJK Ideograph
-<U663F> \xDB\xA6 |0 # CJK Ideograph
-<U66E6> \xDB\xA7 |0 # CJK Ideograph
-<U66E9> \xDB\xA8 |0 # CJK Ideograph
-<U66F0> \xDB\xA9 |0 # CJK Ideograph
-<U66F5> \xDB\xAA |0 # CJK Ideograph
-<U66F7> \xDB\xAB |0 # CJK Ideograph
-<U670F> \xDB\xAC |0 # CJK Ideograph
-<U6716> \xDB\xAD |0 # CJK Ideograph
-<U671E> \xDB\xAE |0 # CJK Ideograph
-<U6726> \xDB\xAF |0 # CJK Ideograph
-<U6727> \xDB\xB0 |0 # CJK Ideograph
-<U9738> \xDB\xB1 |0 # CJK Ideograph
-<U672E> \xDB\xB2 |0 # CJK Ideograph
-<U673F> \xDB\xB3 |0 # CJK Ideograph
-<U6736> \xDB\xB4 |0 # CJK Ideograph
-<U6741> \xDB\xB5 |0 # CJK Ideograph
-<U6738> \xDB\xB6 |0 # CJK Ideograph
-<U6737> \xDB\xB7 |0 # CJK Ideograph
-<U6746> \xDB\xB8 |0 # CJK Ideograph
-<U675E> \xDB\xB9 |0 # CJK Ideograph
-<U6760> \xDB\xBA |0 # CJK Ideograph
-<U6759> \xDB\xBB |0 # CJK Ideograph
-<U6763> \xDB\xBC |0 # CJK Ideograph
-<U6764> \xDB\xBD |0 # CJK Ideograph
-<U6789> \xDB\xBE |0 # CJK Ideograph
-<U6770> \xDB\xBF |0 # CJK Ideograph
-<U67A9> \xDB\xC0 |0 # CJK Ideograph
-<U677C> \xDB\xC1 |0 # CJK Ideograph
-<U676A> \xDB\xC2 |0 # CJK Ideograph
-<U678C> \xDB\xC3 |0 # CJK Ideograph
-<U678B> \xDB\xC4 |0 # CJK Ideograph
-<U67A6> \xDB\xC5 |0 # CJK Ideograph
-<U67A1> \xDB\xC6 |0 # CJK Ideograph
-<U6785> \xDB\xC7 |0 # CJK Ideograph
-<U67B7> \xDB\xC8 |0 # CJK Ideograph
-<U67EF> \xDB\xC9 |0 # CJK Ideograph
-<U67B4> \xDB\xCA |0 # CJK Ideograph
-<U67EC> \xDB\xCB |0 # CJK Ideograph
-<U67B3> \xDB\xCC |0 # CJK Ideograph
-<U67E9> \xDB\xCD |0 # CJK Ideograph
-<U67B8> \xDB\xCE |0 # CJK Ideograph
-<U67E4> \xDB\xCF |0 # CJK Ideograph
-<U67DE> \xDB\xD0 |0 # CJK Ideograph
-<U67DD> \xDB\xD1 |0 # CJK Ideograph
-<U67E2> \xDB\xD2 |0 # CJK Ideograph
-<U67EE> \xDB\xD3 |0 # CJK Ideograph
-<U67B9> \xDB\xD4 |0 # CJK Ideograph
-<U67CE> \xDB\xD5 |0 # CJK Ideograph
-<U67C6> \xDB\xD6 |0 # CJK Ideograph
-<U67E7> \xDB\xD7 |0 # CJK Ideograph
-<U6A9C> \xDB\xD8 |0 # CJK Ideograph
-<U681E> \xDB\xD9 |0 # CJK Ideograph
-<U6846> \xDB\xDA |0 # CJK Ideograph
-<U6829> \xDB\xDB |0 # CJK Ideograph
-<U6840> \xDB\xDC |0 # CJK Ideograph
-<U684D> \xDB\xDD |0 # CJK Ideograph
-<U6832> \xDB\xDE |0 # CJK Ideograph
-<U684E> \xDB\xDF |0 # CJK Ideograph
-<U68B3> \xDB\xE0 |0 # CJK Ideograph
-<U682B> \xDB\xE1 |0 # CJK Ideograph
-<U6859> \xDB\xE2 |0 # CJK Ideograph
-<U6863> \xDB\xE3 |0 # CJK Ideograph
-<U6877> \xDB\xE4 |0 # CJK Ideograph
-<U687F> \xDB\xE5 |0 # CJK Ideograph
-<U689F> \xDB\xE6 |0 # CJK Ideograph
-<U688F> \xDB\xE7 |0 # CJK Ideograph
-<U68AD> \xDB\xE8 |0 # CJK Ideograph
-<U6894> \xDB\xE9 |0 # CJK Ideograph
-<U689D> \xDB\xEA |0 # CJK Ideograph
-<U689B> \xDB\xEB |0 # CJK Ideograph
-<U6883> \xDB\xEC |0 # CJK Ideograph
-<U6AAE> \xDB\xED |0 # CJK Ideograph
-<U68B9> \xDB\xEE |0 # CJK Ideograph
-<U6874> \xDB\xEF |0 # CJK Ideograph
-<U68B5> \xDB\xF0 |0 # CJK Ideograph
-<U68A0> \xDB\xF1 |0 # CJK Ideograph
-<U68BA> \xDB\xF2 |0 # CJK Ideograph
-<U690F> \xDB\xF3 |0 # CJK Ideograph
-<U688D> \xDB\xF4 |0 # CJK Ideograph
-<U687E> \xDB\xF5 |0 # CJK Ideograph
-<U6901> \xDB\xF6 |0 # CJK Ideograph
-<U68CA> \xDB\xF7 |0 # CJK Ideograph
-<U6908> \xDB\xF8 |0 # CJK Ideograph
-<U68D8> \xDB\xF9 |0 # CJK Ideograph
-<U6922> \xDB\xFA |0 # CJK Ideograph
-<U6926> \xDB\xFB |0 # CJK Ideograph
-<U68E1> \xDB\xFC |0 # CJK Ideograph
-<U690C> \xDB\xFD |0 # CJK Ideograph
-<U68CD> \xDB\xFE |0 # CJK Ideograph
-<U68D4> \xDC\xA1 |0 # CJK Ideograph
-<U68E7> \xDC\xA2 |0 # CJK Ideograph
-<U68D5> \xDC\xA3 |0 # CJK Ideograph
-<U6936> \xDC\xA4 |0 # CJK Ideograph
-<U6912> \xDC\xA5 |0 # CJK Ideograph
-<U6904> \xDC\xA6 |0 # CJK Ideograph
-<U68D7> \xDC\xA7 |0 # CJK Ideograph
-<U68E3> \xDC\xA8 |0 # CJK Ideograph
-<U6925> \xDC\xA9 |0 # CJK Ideograph
-<U68F9> \xDC\xAA |0 # CJK Ideograph
-<U68E0> \xDC\xAB |0 # CJK Ideograph
-<U68EF> \xDC\xAC |0 # CJK Ideograph
-<U6928> \xDC\xAD |0 # CJK Ideograph
-<U692A> \xDC\xAE |0 # CJK Ideograph
-<U691A> \xDC\xAF |0 # CJK Ideograph
-<U6923> \xDC\xB0 |0 # CJK Ideograph
-<U6921> \xDC\xB1 |0 # CJK Ideograph
-<U68C6> \xDC\xB2 |0 # CJK Ideograph
-<U6979> \xDC\xB3 |0 # CJK Ideograph
-<U6977> \xDC\xB4 |0 # CJK Ideograph
-<U695C> \xDC\xB5 |0 # CJK Ideograph
-<U6978> \xDC\xB6 |0 # CJK Ideograph
-<U696B> \xDC\xB7 |0 # CJK Ideograph
-<U6954> \xDC\xB8 |0 # CJK Ideograph
-<U697E> \xDC\xB9 |0 # CJK Ideograph
-<U696E> \xDC\xBA |0 # CJK Ideograph
-<U6939> \xDC\xBB |0 # CJK Ideograph
-<U6974> \xDC\xBC |0 # CJK Ideograph
-<U693D> \xDC\xBD |0 # CJK Ideograph
-<U6959> \xDC\xBE |0 # CJK Ideograph
-<U6930> \xDC\xBF |0 # CJK Ideograph
-<U6961> \xDC\xC0 |0 # CJK Ideograph
-<U695E> \xDC\xC1 |0 # CJK Ideograph
-<U695D> \xDC\xC2 |0 # CJK Ideograph
-<U6981> \xDC\xC3 |0 # CJK Ideograph
-<U696A> \xDC\xC4 |0 # CJK Ideograph
-<U69B2> \xDC\xC5 |0 # CJK Ideograph
-<U69AE> \xDC\xC6 |0 # CJK Ideograph
-<U69D0> \xDC\xC7 |0 # CJK Ideograph
-<U69BF> \xDC\xC8 |0 # CJK Ideograph
-<U69C1> \xDC\xC9 |0 # CJK Ideograph
-<U69D3> \xDC\xCA |0 # CJK Ideograph
-<U69BE> \xDC\xCB |0 # CJK Ideograph
-<U69CE> \xDC\xCC |0 # CJK Ideograph
-<U5BE8> \xDC\xCD |0 # CJK Ideograph
-<U69CA> \xDC\xCE |0 # CJK Ideograph
-<U69DD> \xDC\xCF |0 # CJK Ideograph
-<U69BB> \xDC\xD0 |0 # CJK Ideograph
-<U69C3> \xDC\xD1 |0 # CJK Ideograph
-<U69A7> \xDC\xD2 |0 # CJK Ideograph
-<U6A2E> \xDC\xD3 |0 # CJK Ideograph
-<U6991> \xDC\xD4 |0 # CJK Ideograph
-<U69A0> \xDC\xD5 |0 # CJK Ideograph
-<U699C> \xDC\xD6 |0 # CJK Ideograph
-<U6995> \xDC\xD7 |0 # CJK Ideograph
-<U69B4> \xDC\xD8 |0 # CJK Ideograph
-<U69DE> \xDC\xD9 |0 # CJK Ideograph
-<U69E8> \xDC\xDA |0 # CJK Ideograph
-<U6A02> \xDC\xDB |0 # CJK Ideograph
-<U6A1B> \xDC\xDC |0 # CJK Ideograph
-<U69FF> \xDC\xDD |0 # CJK Ideograph
-<U6B0A> \xDC\xDE |0 # CJK Ideograph
-<U69F9> \xDC\xDF |0 # CJK Ideograph
-<U69F2> \xDC\xE0 |0 # CJK Ideograph
-<U69E7> \xDC\xE1 |0 # CJK Ideograph
-<U6A05> \xDC\xE2 |0 # CJK Ideograph
-<U69B1> \xDC\xE3 |0 # CJK Ideograph
-<U6A1E> \xDC\xE4 |0 # CJK Ideograph
-<U69ED> \xDC\xE5 |0 # CJK Ideograph
-<U6A14> \xDC\xE6 |0 # CJK Ideograph
-<U69EB> \xDC\xE7 |0 # CJK Ideograph
-<U6A0A> \xDC\xE8 |0 # CJK Ideograph
-<U6A12> \xDC\xE9 |0 # CJK Ideograph
-<U6AC1> \xDC\xEA |0 # CJK Ideograph
-<U6A23> \xDC\xEB |0 # CJK Ideograph
-<U6A13> \xDC\xEC |0 # CJK Ideograph
-<U6A44> \xDC\xED |0 # CJK Ideograph
-<U6A0C> \xDC\xEE |0 # CJK Ideograph
-<U6A72> \xDC\xEF |0 # CJK Ideograph
-<U6A36> \xDC\xF0 |0 # CJK Ideograph
-<U6A78> \xDC\xF1 |0 # CJK Ideograph
-<U6A47> \xDC\xF2 |0 # CJK Ideograph
-<U6A62> \xDC\xF3 |0 # CJK Ideograph
-<U6A59> \xDC\xF4 |0 # CJK Ideograph
-<U6A66> \xDC\xF5 |0 # CJK Ideograph
-<U6A48> \xDC\xF6 |0 # CJK Ideograph
-<U6A38> \xDC\xF7 |0 # CJK Ideograph
-<U6A22> \xDC\xF8 |0 # CJK Ideograph
-<U6A90> \xDC\xF9 |0 # CJK Ideograph
-<U6A8D> \xDC\xFA |0 # CJK Ideograph
-<U6AA0> \xDC\xFB |0 # CJK Ideograph
-<U6A84> \xDC\xFC |0 # CJK Ideograph
-<U6AA2> \xDC\xFD |0 # CJK Ideograph
-<U6AA3> \xDC\xFE |0 # CJK Ideograph
-<U6A97> \xDD\xA1 |0 # CJK Ideograph
-<U8617> \xDD\xA2 |0 # CJK Ideograph
-<U6ABB> \xDD\xA3 |0 # CJK Ideograph
-<U6AC3> \xDD\xA4 |0 # CJK Ideograph
-<U6AC2> \xDD\xA5 |0 # CJK Ideograph
-<U6AB8> \xDD\xA6 |0 # CJK Ideograph
-<U6AB3> \xDD\xA7 |0 # CJK Ideograph
-<U6AAC> \xDD\xA8 |0 # CJK Ideograph
-<U6ADE> \xDD\xA9 |0 # CJK Ideograph
-<U6AD1> \xDD\xAA |0 # CJK Ideograph
-<U6ADF> \xDD\xAB |0 # CJK Ideograph
-<U6AAA> \xDD\xAC |0 # CJK Ideograph
-<U6ADA> \xDD\xAD |0 # CJK Ideograph
-<U6AEA> \xDD\xAE |0 # CJK Ideograph
-<U6AFB> \xDD\xAF |0 # CJK Ideograph
-<U6B05> \xDD\xB0 |0 # CJK Ideograph
-<U8616> \xDD\xB1 |0 # CJK Ideograph
-<U6AFA> \xDD\xB2 |0 # CJK Ideograph
-<U6B12> \xDD\xB3 |0 # CJK Ideograph
-<U6B16> \xDD\xB4 |0 # CJK Ideograph
-<U9B31> \xDD\xB5 |0 # CJK Ideograph
-<U6B1F> \xDD\xB6 |0 # CJK Ideograph
-<U6B38> \xDD\xB7 |0 # CJK Ideograph
-<U6B37> \xDD\xB8 |0 # CJK Ideograph
-<U76DC> \xDD\xB9 |0 # CJK Ideograph
-<U6B39> \xDD\xBA |0 # CJK Ideograph
-<U98EE> \xDD\xBB |0 # CJK Ideograph
-<U6B47> \xDD\xBC |0 # CJK Ideograph
-<U6B43> \xDD\xBD |0 # CJK Ideograph
-<U6B49> \xDD\xBE |0 # CJK Ideograph
-<U6B50> \xDD\xBF |0 # CJK Ideograph
-<U6B59> \xDD\xC0 |0 # CJK Ideograph
-<U6B54> \xDD\xC1 |0 # CJK Ideograph
-<U6B5B> \xDD\xC2 |0 # CJK Ideograph
-<U6B5F> \xDD\xC3 |0 # CJK Ideograph
-<U6B61> \xDD\xC4 |0 # CJK Ideograph
-<U6B78> \xDD\xC5 |0 # CJK Ideograph
-<U6B79> \xDD\xC6 |0 # CJK Ideograph
-<U6B7F> \xDD\xC7 |0 # CJK Ideograph
-<U6B80> \xDD\xC8 |0 # CJK Ideograph
-<U6B84> \xDD\xC9 |0 # CJK Ideograph
-<U6B83> \xDD\xCA |0 # CJK Ideograph
-<U6B8D> \xDD\xCB |0 # CJK Ideograph
-<U6B98> \xDD\xCC |0 # CJK Ideograph
-<U6B95> \xDD\xCD |0 # CJK Ideograph
-<U6B9E> \xDD\xCE |0 # CJK Ideograph
-<U6BA4> \xDD\xCF |0 # CJK Ideograph
-<U6BAA> \xDD\xD0 |0 # CJK Ideograph
-<U6BAB> \xDD\xD1 |0 # CJK Ideograph
-<U6BAF> \xDD\xD2 |0 # CJK Ideograph
-<U6BB2> \xDD\xD3 |0 # CJK Ideograph
-<U6BB1> \xDD\xD4 |0 # CJK Ideograph
-<U6BB3> \xDD\xD5 |0 # CJK Ideograph
-<U6BB7> \xDD\xD6 |0 # CJK Ideograph
-<U6BBC> \xDD\xD7 |0 # CJK Ideograph
-<U6BC6> \xDD\xD8 |0 # CJK Ideograph
-<U6BCB> \xDD\xD9 |0 # CJK Ideograph
-<U6BD3> \xDD\xDA |0 # CJK Ideograph
-<U6BDF> \xDD\xDB |0 # CJK Ideograph
-<U6BEC> \xDD\xDC |0 # CJK Ideograph
-<U6BEB> \xDD\xDD |0 # CJK Ideograph
-<U6BF3> \xDD\xDE |0 # CJK Ideograph
-<U6BEF> \xDD\xDF |0 # CJK Ideograph
-<U9EBE> \xDD\xE0 |0 # CJK Ideograph
-<U6C08> \xDD\xE1 |0 # CJK Ideograph
-<U6C13> \xDD\xE2 |0 # CJK Ideograph
-<U6C14> \xDD\xE3 |0 # CJK Ideograph
-<U6C1B> \xDD\xE4 |0 # CJK Ideograph
-<U6C24> \xDD\xE5 |0 # CJK Ideograph
-<U6C23> \xDD\xE6 |0 # CJK Ideograph
-<U6C5E> \xDD\xE7 |0 # CJK Ideograph
-<U6C55> \xDD\xE8 |0 # CJK Ideograph
-<U6C62> \xDD\xE9 |0 # CJK Ideograph
-<U6C6A> \xDD\xEA |0 # CJK Ideograph
-<U6C82> \xDD\xEB |0 # CJK Ideograph
-<U6C8D> \xDD\xEC |0 # CJK Ideograph
-<U6C9A> \xDD\xED |0 # CJK Ideograph
-<U6C81> \xDD\xEE |0 # CJK Ideograph
-<U6C9B> \xDD\xEF |0 # CJK Ideograph
-<U6C7E> \xDD\xF0 |0 # CJK Ideograph
-<U6C68> \xDD\xF1 |0 # CJK Ideograph
-<U6C73> \xDD\xF2 |0 # CJK Ideograph
-<U6C92> \xDD\xF3 |0 # CJK Ideograph
-<U6C90> \xDD\xF4 |0 # CJK Ideograph
-<U6CC4> \xDD\xF5 |0 # CJK Ideograph
-<U6CF1> \xDD\xF6 |0 # CJK Ideograph
-<U6CD3> \xDD\xF7 |0 # CJK Ideograph
-<U6CBD> \xDD\xF8 |0 # CJK Ideograph
-<U6CD7> \xDD\xF9 |0 # CJK Ideograph
-<U6CC5> \xDD\xFA |0 # CJK Ideograph
-<U6CDD> \xDD\xFB |0 # CJK Ideograph
-<U6CAE> \xDD\xFC |0 # CJK Ideograph
-<U6CB1> \xDD\xFD |0 # CJK Ideograph
-<U6CBE> \xDD\xFE |0 # CJK Ideograph
-<U6CBA> \xDE\xA1 |0 # CJK Ideograph
-<U6CDB> \xDE\xA2 |0 # CJK Ideograph
-<U6CEF> \xDE\xA3 |0 # CJK Ideograph
-<U6CD9> \xDE\xA4 |0 # CJK Ideograph
-<U6CEA> \xDE\xA5 |0 # CJK Ideograph
-<U6D1F> \xDE\xA6 |0 # CJK Ideograph
-<U884D> \xDE\xA7 |0 # CJK Ideograph
-<U6D36> \xDE\xA8 |0 # CJK Ideograph
-<U6D2B> \xDE\xA9 |0 # CJK Ideograph
-<U6D3D> \xDE\xAA |0 # CJK Ideograph
-<U6D38> \xDE\xAB |0 # CJK Ideograph
-<U6D19> \xDE\xAC |0 # CJK Ideograph
-<U6D35> \xDE\xAD |0 # CJK Ideograph
-<U6D33> \xDE\xAE |0 # CJK Ideograph
-<U6D12> \xDE\xAF |0 # CJK Ideograph
-<U6D0C> \xDE\xB0 |0 # CJK Ideograph
-<U6D63> \xDE\xB1 |0 # CJK Ideograph
-<U6D93> \xDE\xB2 |0 # CJK Ideograph
-<U6D64> \xDE\xB3 |0 # CJK Ideograph
-<U6D5A> \xDE\xB4 |0 # CJK Ideograph
-<U6D79> \xDE\xB5 |0 # CJK Ideograph
-<U6D59> \xDE\xB6 |0 # CJK Ideograph
-<U6D8E> \xDE\xB7 |0 # CJK Ideograph
-<U6D95> \xDE\xB8 |0 # CJK Ideograph
-<U6FE4> \xDE\xB9 |0 # CJK Ideograph
-<U6D85> \xDE\xBA |0 # CJK Ideograph
-<U6DF9> \xDE\xBB |0 # CJK Ideograph
-<U6E15> \xDE\xBC |0 # CJK Ideograph
-<U6E0A> \xDE\xBD |0 # CJK Ideograph
-<U6DB5> \xDE\xBE |0 # CJK Ideograph
-<U6DC7> \xDE\xBF |0 # CJK Ideograph
-<U6DE6> \xDE\xC0 |0 # CJK Ideograph
-<U6DB8> \xDE\xC1 |0 # CJK Ideograph
-<U6DC6> \xDE\xC2 |0 # CJK Ideograph
-<U6DEC> \xDE\xC3 |0 # CJK Ideograph
-<U6DDE> \xDE\xC4 |0 # CJK Ideograph
-<U6DCC> \xDE\xC5 |0 # CJK Ideograph
-<U6DE8> \xDE\xC6 |0 # CJK Ideograph
-<U6DD2> \xDE\xC7 |0 # CJK Ideograph
-<U6DC5> \xDE\xC8 |0 # CJK Ideograph
-<U6DFA> \xDE\xC9 |0 # CJK Ideograph
-<U6DD9> \xDE\xCA |0 # CJK Ideograph
-<U6DE4> \xDE\xCB |0 # CJK Ideograph
-<U6DD5> \xDE\xCC |0 # CJK Ideograph
-<U6DEA> \xDE\xCD |0 # CJK Ideograph
-<U6DEE> \xDE\xCE |0 # CJK Ideograph
-<U6E2D> \xDE\xCF |0 # CJK Ideograph
-<U6E6E> \xDE\xD0 |0 # CJK Ideograph
-<U6E2E> \xDE\xD1 |0 # CJK Ideograph
-<U6E19> \xDE\xD2 |0 # CJK Ideograph
-<U6E72> \xDE\xD3 |0 # CJK Ideograph
-<U6E5F> \xDE\xD4 |0 # CJK Ideograph
-<U6E3E> \xDE\xD5 |0 # CJK Ideograph
-<U6E23> \xDE\xD6 |0 # CJK Ideograph
-<U6E6B> \xDE\xD7 |0 # CJK Ideograph
-<U6E2B> \xDE\xD8 |0 # CJK Ideograph
-<U6E76> \xDE\xD9 |0 # CJK Ideograph
-<U6E4D> \xDE\xDA |0 # CJK Ideograph
-<U6E1F> \xDE\xDB |0 # CJK Ideograph
-<U6E43> \xDE\xDC |0 # CJK Ideograph
-<U6E3A> \xDE\xDD |0 # CJK Ideograph
-<U6E4E> \xDE\xDE |0 # CJK Ideograph
-<U6E24> \xDE\xDF |0 # CJK Ideograph
-<U6EFF> \xDE\xE0 |0 # CJK Ideograph
-<U6E1D> \xDE\xE1 |0 # CJK Ideograph
-<U6E38> \xDE\xE2 |0 # CJK Ideograph
-<U6E82> \xDE\xE3 |0 # CJK Ideograph
-<U6EAA> \xDE\xE4 |0 # CJK Ideograph
-<U6E98> \xDE\xE5 |0 # CJK Ideograph
-<U6EC9> \xDE\xE6 |0 # CJK Ideograph
-<U6EB7> \xDE\xE7 |0 # CJK Ideograph
-<U6ED3> \xDE\xE8 |0 # CJK Ideograph
-<U6EBD> \xDE\xE9 |0 # CJK Ideograph
-<U6EAF> \xDE\xEA |0 # CJK Ideograph
-<U6EC4> \xDE\xEB |0 # CJK Ideograph
-<U6EB2> \xDE\xEC |0 # CJK Ideograph
-<U6ED4> \xDE\xED |0 # CJK Ideograph
-<U6ED5> \xDE\xEE |0 # CJK Ideograph
-<U6E8F> \xDE\xEF |0 # CJK Ideograph
-<U6EA5> \xDE\xF0 |0 # CJK Ideograph
-<U6EC2> \xDE\xF1 |0 # CJK Ideograph
-<U6E9F> \xDE\xF2 |0 # CJK Ideograph
-<U6F41> \xDE\xF3 |0 # CJK Ideograph
-<U6F11> \xDE\xF4 |0 # CJK Ideograph
-<U704C> \xDE\xF5 |0 # CJK Ideograph
-<U6EEC> \xDE\xF6 |0 # CJK Ideograph
-<U6EF8> \xDE\xF7 |0 # CJK Ideograph
-<U6EFE> \xDE\xF8 |0 # CJK Ideograph
-<U6F3F> \xDE\xF9 |0 # CJK Ideograph
-<U6EF2> \xDE\xFA |0 # CJK Ideograph
-<U6F31> \xDE\xFB |0 # CJK Ideograph
-<U6EEF> \xDE\xFC |0 # CJK Ideograph
-<U6F32> \xDE\xFD |0 # CJK Ideograph
-<U6ECC> \xDE\xFE |0 # CJK Ideograph
-<U6F3E> \xDF\xA1 |0 # CJK Ideograph
-<U6F13> \xDF\xA2 |0 # CJK Ideograph
-<U6EF7> \xDF\xA3 |0 # CJK Ideograph
-<U6F86> \xDF\xA4 |0 # CJK Ideograph
-<U6F7A> \xDF\xA5 |0 # CJK Ideograph
-<U6F78> \xDF\xA6 |0 # CJK Ideograph
-<U6F81> \xDF\xA7 |0 # CJK Ideograph
-<U6F80> \xDF\xA8 |0 # CJK Ideograph
-<U6F6F> \xDF\xA9 |0 # CJK Ideograph
-<U6F5B> \xDF\xAA |0 # CJK Ideograph
-<U6FF3> \xDF\xAB |0 # CJK Ideograph
-<U6F6D> \xDF\xAC |0 # CJK Ideograph
-<U6F82> \xDF\xAD |0 # CJK Ideograph
-<U6F7C> \xDF\xAE |0 # CJK Ideograph
-<U6F58> \xDF\xAF |0 # CJK Ideograph
-<U6F8E> \xDF\xB0 |0 # CJK Ideograph
-<U6F91> \xDF\xB1 |0 # CJK Ideograph
-<U6FC2> \xDF\xB2 |0 # CJK Ideograph
-<U6F66> \xDF\xB3 |0 # CJK Ideograph
-<U6FB3> \xDF\xB4 |0 # CJK Ideograph
-<U6FA3> \xDF\xB5 |0 # CJK Ideograph
-<U6FA1> \xDF\xB6 |0 # CJK Ideograph
-<U6FA4> \xDF\xB7 |0 # CJK Ideograph
-<U6FB9> \xDF\xB8 |0 # CJK Ideograph
-<U6FC6> \xDF\xB9 |0 # CJK Ideograph
-<U6FAA> \xDF\xBA |0 # CJK Ideograph
-<U6FDF> \xDF\xBB |0 # CJK Ideograph
-<U6FD5> \xDF\xBC |0 # CJK Ideograph
-<U6FEC> \xDF\xBD |0 # CJK Ideograph
-<U6FD4> \xDF\xBE |0 # CJK Ideograph
-<U6FD8> \xDF\xBF |0 # CJK Ideograph
-<U6FF1> \xDF\xC0 |0 # CJK Ideograph
-<U6FEE> \xDF\xC1 |0 # CJK Ideograph
-<U6FDB> \xDF\xC2 |0 # CJK Ideograph
-<U7009> \xDF\xC3 |0 # CJK Ideograph
-<U700B> \xDF\xC4 |0 # CJK Ideograph
-<U6FFA> \xDF\xC5 |0 # CJK Ideograph
-<U7011> \xDF\xC6 |0 # CJK Ideograph
-<U7001> \xDF\xC7 |0 # CJK Ideograph
-<U700F> \xDF\xC8 |0 # CJK Ideograph
-<U6FFE> \xDF\xC9 |0 # CJK Ideograph
-<U701B> \xDF\xCA |0 # CJK Ideograph
-<U701A> \xDF\xCB |0 # CJK Ideograph
-<U6F74> \xDF\xCC |0 # CJK Ideograph
-<U701D> \xDF\xCD |0 # CJK Ideograph
-<U7018> \xDF\xCE |0 # CJK Ideograph
-<U701F> \xDF\xCF |0 # CJK Ideograph
-<U7030> \xDF\xD0 |0 # CJK Ideograph
-<U703E> \xDF\xD1 |0 # CJK Ideograph
-<U7032> \xDF\xD2 |0 # CJK Ideograph
-<U7051> \xDF\xD3 |0 # CJK Ideograph
-<U7063> \xDF\xD4 |0 # CJK Ideograph
-<U7099> \xDF\xD5 |0 # CJK Ideograph
-<U7092> \xDF\xD6 |0 # CJK Ideograph
-<U70AF> \xDF\xD7 |0 # CJK Ideograph
-<U70F1> \xDF\xD8 |0 # CJK Ideograph
-<U70AC> \xDF\xD9 |0 # CJK Ideograph
-<U70B8> \xDF\xDA |0 # CJK Ideograph
-<U70B3> \xDF\xDB |0 # CJK Ideograph
-<U70AE> \xDF\xDC |0 # CJK Ideograph
-<U70DF> \xDF\xDD |0 # CJK Ideograph
-<U70CB> \xDF\xDE |0 # CJK Ideograph
-<U70DD> \xDF\xDF |0 # CJK Ideograph
-<U70D9> \xDF\xE0 |0 # CJK Ideograph
-<U7109> \xDF\xE1 |0 # CJK Ideograph
-<U70FD> \xDF\xE2 |0 # CJK Ideograph
-<U711C> \xDF\xE3 |0 # CJK Ideograph
-<U7119> \xDF\xE4 |0 # CJK Ideograph
-<U7165> \xDF\xE5 |0 # CJK Ideograph
-<U7155> \xDF\xE6 |0 # CJK Ideograph
-<U7188> \xDF\xE7 |0 # CJK Ideograph
-<U7166> \xDF\xE8 |0 # CJK Ideograph
-<U7162> \xDF\xE9 |0 # CJK Ideograph
-<U714C> \xDF\xEA |0 # CJK Ideograph
-<U7156> \xDF\xEB |0 # CJK Ideograph
-<U716C> \xDF\xEC |0 # CJK Ideograph
-<U718F> \xDF\xED |0 # CJK Ideograph
-<U71FB> \xDF\xEE |0 # CJK Ideograph
-<U7184> \xDF\xEF |0 # CJK Ideograph
-<U7195> \xDF\xF0 |0 # CJK Ideograph
-<U71A8> \xDF\xF1 |0 # CJK Ideograph
-<U71AC> \xDF\xF2 |0 # CJK Ideograph
-<U71D7> \xDF\xF3 |0 # CJK Ideograph
-<U71B9> \xDF\xF4 |0 # CJK Ideograph
-<U71BE> \xDF\xF5 |0 # CJK Ideograph
-<U71D2> \xDF\xF6 |0 # CJK Ideograph
-<U71C9> \xDF\xF7 |0 # CJK Ideograph
-<U71D4> \xDF\xF8 |0 # CJK Ideograph
-<U71CE> \xDF\xF9 |0 # CJK Ideograph
-<U71E0> \xDF\xFA |0 # CJK Ideograph
-<U71EC> \xDF\xFB |0 # CJK Ideograph
-<U71E7> \xDF\xFC |0 # CJK Ideograph
-<U71F5> \xDF\xFD |0 # CJK Ideograph
-<U71FC> \xDF\xFE |0 # CJK Ideograph
-<U71F9> \xE0\xA1 |0 # CJK Ideograph
-<U71FF> \xE0\xA2 |0 # CJK Ideograph
-<U720D> \xE0\xA3 |0 # CJK Ideograph
-<U7210> \xE0\xA4 |0 # CJK Ideograph
-<U721B> \xE0\xA5 |0 # CJK Ideograph
-<U7228> \xE0\xA6 |0 # CJK Ideograph
-<U722D> \xE0\xA7 |0 # CJK Ideograph
-<U722C> \xE0\xA8 |0 # CJK Ideograph
-<U7230> \xE0\xA9 |0 # CJK Ideograph
-<U7232> \xE0\xAA |0 # CJK Ideograph
-<U723B> \xE0\xAB |0 # CJK Ideograph
-<U723C> \xE0\xAC |0 # CJK Ideograph
-<U723F> \xE0\xAD |0 # CJK Ideograph
-<U7240> \xE0\xAE |0 # CJK Ideograph
-<U7246> \xE0\xAF |0 # CJK Ideograph
-<U724B> \xE0\xB0 |0 # CJK Ideograph
-<U7258> \xE0\xB1 |0 # CJK Ideograph
-<U7274> \xE0\xB2 |0 # CJK Ideograph
-<U727E> \xE0\xB3 |0 # CJK Ideograph
-<U7282> \xE0\xB4 |0 # CJK Ideograph
-<U7281> \xE0\xB5 |0 # CJK Ideograph
-<U7287> \xE0\xB6 |0 # CJK Ideograph
-<U7292> \xE0\xB7 |0 # CJK Ideograph
-<U7296> \xE0\xB8 |0 # CJK Ideograph
-<U72A2> \xE0\xB9 |0 # CJK Ideograph
-<U72A7> \xE0\xBA |0 # CJK Ideograph
-<U72B9> \xE0\xBB |0 # CJK Ideograph
-<U72B2> \xE0\xBC |0 # CJK Ideograph
-<U72C3> \xE0\xBD |0 # CJK Ideograph
-<U72C6> \xE0\xBE |0 # CJK Ideograph
-<U72C4> \xE0\xBF |0 # CJK Ideograph
-<U72CE> \xE0\xC0 |0 # CJK Ideograph
-<U72D2> \xE0\xC1 |0 # CJK Ideograph
-<U72E2> \xE0\xC2 |0 # CJK Ideograph
-<U72E0> \xE0\xC3 |0 # CJK Ideograph
-<U72E1> \xE0\xC4 |0 # CJK Ideograph
-<U72F9> \xE0\xC5 |0 # CJK Ideograph
-<U72F7> \xE0\xC6 |0 # CJK Ideograph
-<U500F> \xE0\xC7 |0 # CJK Ideograph
-<U7317> \xE0\xC8 |0 # CJK Ideograph
-<U730A> \xE0\xC9 |0 # CJK Ideograph
-<U731C> \xE0\xCA |0 # CJK Ideograph
-<U7316> \xE0\xCB |0 # CJK Ideograph
-<U731D> \xE0\xCC |0 # CJK Ideograph
-<U7334> \xE0\xCD |0 # CJK Ideograph
-<U732F> \xE0\xCE |0 # CJK Ideograph
-<U7329> \xE0\xCF |0 # CJK Ideograph
-<U7325> \xE0\xD0 |0 # CJK Ideograph
-<U733E> \xE0\xD1 |0 # CJK Ideograph
-<U734E> \xE0\xD2 |0 # CJK Ideograph
-<U734F> \xE0\xD3 |0 # CJK Ideograph
-<U9ED8> \xE0\xD4 |0 # CJK Ideograph
-<U7357> \xE0\xD5 |0 # CJK Ideograph
-<U736A> \xE0\xD6 |0 # CJK Ideograph
-<U7368> \xE0\xD7 |0 # CJK Ideograph
-<U7370> \xE0\xD8 |0 # CJK Ideograph
-<U7378> \xE0\xD9 |0 # CJK Ideograph
-<U7375> \xE0\xDA |0 # CJK Ideograph
-<U737B> \xE0\xDB |0 # CJK Ideograph
-<U737A> \xE0\xDC |0 # CJK Ideograph
-<U73C8> \xE0\xDD |0 # CJK Ideograph
-<U73B3> \xE0\xDE |0 # CJK Ideograph
-<U73CE> \xE0\xDF |0 # CJK Ideograph
-<U73BB> \xE0\xE0 |0 # CJK Ideograph
-<U73C0> \xE0\xE1 |0 # CJK Ideograph
-<U73E5> \xE0\xE2 |0 # CJK Ideograph
-<U73EE> \xE0\xE3 |0 # CJK Ideograph
-<U73DE> \xE0\xE4 |0 # CJK Ideograph
-<U74A2> \xE0\xE5 |0 # CJK Ideograph
-<U7405> \xE0\xE6 |0 # CJK Ideograph
-<U746F> \xE0\xE7 |0 # CJK Ideograph
-<U7425> \xE0\xE8 |0 # CJK Ideograph
-<U73F8> \xE0\xE9 |0 # CJK Ideograph
-<U7432> \xE0\xEA |0 # CJK Ideograph
-<U743A> \xE0\xEB |0 # CJK Ideograph
-<U7455> \xE0\xEC |0 # CJK Ideograph
-<U743F> \xE0\xED |0 # CJK Ideograph
-<U745F> \xE0\xEE |0 # CJK Ideograph
-<U7459> \xE0\xEF |0 # CJK Ideograph
-<U7441> \xE0\xF0 |0 # CJK Ideograph
-<U745C> \xE0\xF1 |0 # CJK Ideograph
-<U7469> \xE0\xF2 |0 # CJK Ideograph
-<U7470> \xE0\xF3 |0 # CJK Ideograph
-<U7463> \xE0\xF4 |0 # CJK Ideograph
-<U746A> \xE0\xF5 |0 # CJK Ideograph
-<U7476> \xE0\xF6 |0 # CJK Ideograph
-<U747E> \xE0\xF7 |0 # CJK Ideograph
-<U748B> \xE0\xF8 |0 # CJK Ideograph
-<U749E> \xE0\xF9 |0 # CJK Ideograph
-<U74A7> \xE0\xFA |0 # CJK Ideograph
-<U74CA> \xE0\xFB |0 # CJK Ideograph
-<U74CF> \xE0\xFC |0 # CJK Ideograph
-<U74D4> \xE0\xFD |0 # CJK Ideograph
-<U73F1> \xE0\xFE |0 # CJK Ideograph
-<U74E0> \xE1\xA1 |0 # CJK Ideograph
-<U74E3> \xE1\xA2 |0 # CJK Ideograph
-<U74E7> \xE1\xA3 |0 # CJK Ideograph
-<U74E9> \xE1\xA4 |0 # CJK Ideograph
-<U74EE> \xE1\xA5 |0 # CJK Ideograph
-<U74F2> \xE1\xA6 |0 # CJK Ideograph
-<U74F0> \xE1\xA7 |0 # CJK Ideograph
-<U74F1> \xE1\xA8 |0 # CJK Ideograph
-<U74F8> \xE1\xA9 |0 # CJK Ideograph
-<U74F7> \xE1\xAA |0 # CJK Ideograph
-<U7504> \xE1\xAB |0 # CJK Ideograph
-<U7503> \xE1\xAC |0 # CJK Ideograph
-<U7505> \xE1\xAD |0 # CJK Ideograph
-<U750C> \xE1\xAE |0 # CJK Ideograph
-<U750E> \xE1\xAF |0 # CJK Ideograph
-<U750D> \xE1\xB0 |0 # CJK Ideograph
-<U7515> \xE1\xB1 |0 # CJK Ideograph
-<U7513> \xE1\xB2 |0 # CJK Ideograph
-<U751E> \xE1\xB3 |0 # CJK Ideograph
-<U7526> \xE1\xB4 |0 # CJK Ideograph
-<U752C> \xE1\xB5 |0 # CJK Ideograph
-<U753C> \xE1\xB6 |0 # CJK Ideograph
-<U7544> \xE1\xB7 |0 # CJK Ideograph
-<U754D> \xE1\xB8 |0 # CJK Ideograph
-<U754A> \xE1\xB9 |0 # CJK Ideograph
-<U7549> \xE1\xBA |0 # CJK Ideograph
-<U755B> \xE1\xBB |0 # CJK Ideograph
-<U7546> \xE1\xBC |0 # CJK Ideograph
-<U755A> \xE1\xBD |0 # CJK Ideograph
-<U7569> \xE1\xBE |0 # CJK Ideograph
-<U7564> \xE1\xBF |0 # CJK Ideograph
-<U7567> \xE1\xC0 |0 # CJK Ideograph
-<U756B> \xE1\xC1 |0 # CJK Ideograph
-<U756D> \xE1\xC2 |0 # CJK Ideograph
-<U7578> \xE1\xC3 |0 # CJK Ideograph
-<U7576> \xE1\xC4 |0 # CJK Ideograph
-<U7586> \xE1\xC5 |0 # CJK Ideograph
-<U7587> \xE1\xC6 |0 # CJK Ideograph
-<U7574> \xE1\xC7 |0 # CJK Ideograph
-<U758A> \xE1\xC8 |0 # CJK Ideograph
-<U7589> \xE1\xC9 |0 # CJK Ideograph
-<U7582> \xE1\xCA |0 # CJK Ideograph
-<U7594> \xE1\xCB |0 # CJK Ideograph
-<U759A> \xE1\xCC |0 # CJK Ideograph
-<U759D> \xE1\xCD |0 # CJK Ideograph
-<U75A5> \xE1\xCE |0 # CJK Ideograph
-<U75A3> \xE1\xCF |0 # CJK Ideograph
-<U75C2> \xE1\xD0 |0 # CJK Ideograph
-<U75B3> \xE1\xD1 |0 # CJK Ideograph
-<U75C3> \xE1\xD2 |0 # CJK Ideograph
-<U75B5> \xE1\xD3 |0 # CJK Ideograph
-<U75BD> \xE1\xD4 |0 # CJK Ideograph
-<U75B8> \xE1\xD5 |0 # CJK Ideograph
-<U75BC> \xE1\xD6 |0 # CJK Ideograph
-<U75B1> \xE1\xD7 |0 # CJK Ideograph
-<U75CD> \xE1\xD8 |0 # CJK Ideograph
-<U75CA> \xE1\xD9 |0 # CJK Ideograph
-<U75D2> \xE1\xDA |0 # CJK Ideograph
-<U75D9> \xE1\xDB |0 # CJK Ideograph
-<U75E3> \xE1\xDC |0 # CJK Ideograph
-<U75DE> \xE1\xDD |0 # CJK Ideograph
-<U75FE> \xE1\xDE |0 # CJK Ideograph
-<U75FF> \xE1\xDF |0 # CJK Ideograph
-<U75FC> \xE1\xE0 |0 # CJK Ideograph
-<U7601> \xE1\xE1 |0 # CJK Ideograph
-<U75F0> \xE1\xE2 |0 # CJK Ideograph
-<U75FA> \xE1\xE3 |0 # CJK Ideograph
-<U75F2> \xE1\xE4 |0 # CJK Ideograph
-<U75F3> \xE1\xE5 |0 # CJK Ideograph
-<U760B> \xE1\xE6 |0 # CJK Ideograph
-<U760D> \xE1\xE7 |0 # CJK Ideograph
-<U7609> \xE1\xE8 |0 # CJK Ideograph
-<U761F> \xE1\xE9 |0 # CJK Ideograph
-<U7627> \xE1\xEA |0 # CJK Ideograph
-<U7620> \xE1\xEB |0 # CJK Ideograph
-<U7621> \xE1\xEC |0 # CJK Ideograph
-<U7622> \xE1\xED |0 # CJK Ideograph
-<U7624> \xE1\xEE |0 # CJK Ideograph
-<U7634> \xE1\xEF |0 # CJK Ideograph
-<U7630> \xE1\xF0 |0 # CJK Ideograph
-<U763B> \xE1\xF1 |0 # CJK Ideograph
-<U7647> \xE1\xF2 |0 # CJK Ideograph
-<U7648> \xE1\xF3 |0 # CJK Ideograph
-<U7646> \xE1\xF4 |0 # CJK Ideograph
-<U765C> \xE1\xF5 |0 # CJK Ideograph
-<U7658> \xE1\xF6 |0 # CJK Ideograph
-<U7661> \xE1\xF7 |0 # CJK Ideograph
-<U7662> \xE1\xF8 |0 # CJK Ideograph
-<U7668> \xE1\xF9 |0 # CJK Ideograph
-<U7669> \xE1\xFA |0 # CJK Ideograph
-<U766A> \xE1\xFB |0 # CJK Ideograph
-<U7667> \xE1\xFC |0 # CJK Ideograph
-<U766C> \xE1\xFD |0 # CJK Ideograph
-<U7670> \xE1\xFE |0 # CJK Ideograph
-<U7672> \xE2\xA1 |0 # CJK Ideograph
-<U7676> \xE2\xA2 |0 # CJK Ideograph
-<U7678> \xE2\xA3 |0 # CJK Ideograph
-<U767C> \xE2\xA4 |0 # CJK Ideograph
-<U7680> \xE2\xA5 |0 # CJK Ideograph
-<U7683> \xE2\xA6 |0 # CJK Ideograph
-<U7688> \xE2\xA7 |0 # CJK Ideograph
-<U768B> \xE2\xA8 |0 # CJK Ideograph
-<U768E> \xE2\xA9 |0 # CJK Ideograph
-<U7696> \xE2\xAA |0 # CJK Ideograph
-<U7693> \xE2\xAB |0 # CJK Ideograph
-<U7699> \xE2\xAC |0 # CJK Ideograph
-<U769A> \xE2\xAD |0 # CJK Ideograph
-<U76B0> \xE2\xAE |0 # CJK Ideograph
-<U76B4> \xE2\xAF |0 # CJK Ideograph
-<U76B8> \xE2\xB0 |0 # CJK Ideograph
-<U76B9> \xE2\xB1 |0 # CJK Ideograph
-<U76BA> \xE2\xB2 |0 # CJK Ideograph
-<U76C2> \xE2\xB3 |0 # CJK Ideograph
-<U76CD> \xE2\xB4 |0 # CJK Ideograph
-<U76D6> \xE2\xB5 |0 # CJK Ideograph
-<U76D2> \xE2\xB6 |0 # CJK Ideograph
-<U76DE> \xE2\xB7 |0 # CJK Ideograph
-<U76E1> \xE2\xB8 |0 # CJK Ideograph
-<U76E5> \xE2\xB9 |0 # CJK Ideograph
-<U76E7> \xE2\xBA |0 # CJK Ideograph
-<U76EA> \xE2\xBB |0 # CJK Ideograph
-<U862F> \xE2\xBC |0 # CJK Ideograph
-<U76FB> \xE2\xBD |0 # CJK Ideograph
-<U7708> \xE2\xBE |0 # CJK Ideograph
-<U7707> \xE2\xBF |0 # CJK Ideograph
-<U7704> \xE2\xC0 |0 # CJK Ideograph
-<U7729> \xE2\xC1 |0 # CJK Ideograph
-<U7724> \xE2\xC2 |0 # CJK Ideograph
-<U771E> \xE2\xC3 |0 # CJK Ideograph
-<U7725> \xE2\xC4 |0 # CJK Ideograph
-<U7726> \xE2\xC5 |0 # CJK Ideograph
-<U771B> \xE2\xC6 |0 # CJK Ideograph
-<U7737> \xE2\xC7 |0 # CJK Ideograph
-<U7738> \xE2\xC8 |0 # CJK Ideograph
-<U7747> \xE2\xC9 |0 # CJK Ideograph
-<U775A> \xE2\xCA |0 # CJK Ideograph
-<U7768> \xE2\xCB |0 # CJK Ideograph
-<U776B> \xE2\xCC |0 # CJK Ideograph
-<U775B> \xE2\xCD |0 # CJK Ideograph
-<U7765> \xE2\xCE |0 # CJK Ideograph
-<U777F> \xE2\xCF |0 # CJK Ideograph
-<U777E> \xE2\xD0 |0 # CJK Ideograph
-<U7779> \xE2\xD1 |0 # CJK Ideograph
-<U778E> \xE2\xD2 |0 # CJK Ideograph
-<U778B> \xE2\xD3 |0 # CJK Ideograph
-<U7791> \xE2\xD4 |0 # CJK Ideograph
-<U77A0> \xE2\xD5 |0 # CJK Ideograph
-<U779E> \xE2\xD6 |0 # CJK Ideograph
-<U77B0> \xE2\xD7 |0 # CJK Ideograph
-<U77B6> \xE2\xD8 |0 # CJK Ideograph
-<U77B9> \xE2\xD9 |0 # CJK Ideograph
-<U77BF> \xE2\xDA |0 # CJK Ideograph
-<U77BC> \xE2\xDB |0 # CJK Ideograph
-<U77BD> \xE2\xDC |0 # CJK Ideograph
-<U77BB> \xE2\xDD |0 # CJK Ideograph
-<U77C7> \xE2\xDE |0 # CJK Ideograph
-<U77CD> \xE2\xDF |0 # CJK Ideograph
-<U77D7> \xE2\xE0 |0 # CJK Ideograph
-<U77DA> \xE2\xE1 |0 # CJK Ideograph
-<U77DC> \xE2\xE2 |0 # CJK Ideograph
-<U77E3> \xE2\xE3 |0 # CJK Ideograph
-<U77EE> \xE2\xE4 |0 # CJK Ideograph
-<U77FC> \xE2\xE5 |0 # CJK Ideograph
-<U780C> \xE2\xE6 |0 # CJK Ideograph
-<U7812> \xE2\xE7 |0 # CJK Ideograph
-<U7926> \xE2\xE8 |0 # CJK Ideograph
-<U7820> \xE2\xE9 |0 # CJK Ideograph
-<U792A> \xE2\xEA |0 # CJK Ideograph
-<U7845> \xE2\xEB |0 # CJK Ideograph
-<U788E> \xE2\xEC |0 # CJK Ideograph
-<U7874> \xE2\xED |0 # CJK Ideograph
-<U7886> \xE2\xEE |0 # CJK Ideograph
-<U787C> \xE2\xEF |0 # CJK Ideograph
-<U789A> \xE2\xF0 |0 # CJK Ideograph
-<U788C> \xE2\xF1 |0 # CJK Ideograph
-<U78A3> \xE2\xF2 |0 # CJK Ideograph
-<U78B5> \xE2\xF3 |0 # CJK Ideograph
-<U78AA> \xE2\xF4 |0 # CJK Ideograph
-<U78AF> \xE2\xF5 |0 # CJK Ideograph
-<U78D1> \xE2\xF6 |0 # CJK Ideograph
-<U78C6> \xE2\xF7 |0 # CJK Ideograph
-<U78CB> \xE2\xF8 |0 # CJK Ideograph
-<U78D4> \xE2\xF9 |0 # CJK Ideograph
-<U78BE> \xE2\xFA |0 # CJK Ideograph
-<U78BC> \xE2\xFB |0 # CJK Ideograph
-<U78C5> \xE2\xFC |0 # CJK Ideograph
-<U78CA> \xE2\xFD |0 # CJK Ideograph
-<U78EC> \xE2\xFE |0 # CJK Ideograph
-<U78E7> \xE3\xA1 |0 # CJK Ideograph
-<U78DA> \xE3\xA2 |0 # CJK Ideograph
-<U78FD> \xE3\xA3 |0 # CJK Ideograph
-<U78F4> \xE3\xA4 |0 # CJK Ideograph
-<U7907> \xE3\xA5 |0 # CJK Ideograph
-<U7912> \xE3\xA6 |0 # CJK Ideograph
-<U7911> \xE3\xA7 |0 # CJK Ideograph
-<U7919> \xE3\xA8 |0 # CJK Ideograph
-<U792C> \xE3\xA9 |0 # CJK Ideograph
-<U792B> \xE3\xAA |0 # CJK Ideograph
-<U7940> \xE3\xAB |0 # CJK Ideograph
-<U7960> \xE3\xAC |0 # CJK Ideograph
-<U7957> \xE3\xAD |0 # CJK Ideograph
-<U795F> \xE3\xAE |0 # CJK Ideograph
-<U795A> \xE3\xAF |0 # CJK Ideograph
-<U7955> \xE3\xB0 |0 # CJK Ideograph
-<U7953> \xE3\xB1 |0 # CJK Ideograph
-<U797A> \xE3\xB2 |0 # CJK Ideograph
-<U797F> \xE3\xB3 |0 # CJK Ideograph
-<U798A> \xE3\xB4 |0 # CJK Ideograph
-<U799D> \xE3\xB5 |0 # CJK Ideograph
-<U79A7> \xE3\xB6 |0 # CJK Ideograph
-<U9F4B> \xE3\xB7 |0 # CJK Ideograph
-<U79AA> \xE3\xB8 |0 # CJK Ideograph
-<U79AE> \xE3\xB9 |0 # CJK Ideograph
-<U79B3> \xE3\xBA |0 # CJK Ideograph
-<U79B9> \xE3\xBB |0 # CJK Ideograph
-<U79BA> \xE3\xBC |0 # CJK Ideograph
-<U79C9> \xE3\xBD |0 # CJK Ideograph
-<U79D5> \xE3\xBE |0 # CJK Ideograph
-<U79E7> \xE3\xBF |0 # CJK Ideograph
-<U79EC> \xE3\xC0 |0 # CJK Ideograph
-<U79E1> \xE3\xC1 |0 # CJK Ideograph
-<U79E3> \xE3\xC2 |0 # CJK Ideograph
-<U7A08> \xE3\xC3 |0 # CJK Ideograph
-<U7A0D> \xE3\xC4 |0 # CJK Ideograph
-<U7A18> \xE3\xC5 |0 # CJK Ideograph
-<U7A19> \xE3\xC6 |0 # CJK Ideograph
-<U7A20> \xE3\xC7 |0 # CJK Ideograph
-<U7A1F> \xE3\xC8 |0 # CJK Ideograph
-<U7980> \xE3\xC9 |0 # CJK Ideograph
-<U7A31> \xE3\xCA |0 # CJK Ideograph
-<U7A3B> \xE3\xCB |0 # CJK Ideograph
-<U7A3E> \xE3\xCC |0 # CJK Ideograph
-<U7A37> \xE3\xCD |0 # CJK Ideograph
-<U7A43> \xE3\xCE |0 # CJK Ideograph
-<U7A57> \xE3\xCF |0 # CJK Ideograph
-<U7A49> \xE3\xD0 |0 # CJK Ideograph
-<U7A61> \xE3\xD1 |0 # CJK Ideograph
-<U7A62> \xE3\xD2 |0 # CJK Ideograph
-<U7A69> \xE3\xD3 |0 # CJK Ideograph
-<U9F9D> \xE3\xD4 |0 # CJK Ideograph
-<U7A70> \xE3\xD5 |0 # CJK Ideograph
-<U7A79> \xE3\xD6 |0 # CJK Ideograph
-<U7A7D> \xE3\xD7 |0 # CJK Ideograph
-<U7A88> \xE3\xD8 |0 # CJK Ideograph
-<U7A97> \xE3\xD9 |0 # CJK Ideograph
-<U7A95> \xE3\xDA |0 # CJK Ideograph
-<U7A98> \xE3\xDB |0 # CJK Ideograph
-<U7A96> \xE3\xDC |0 # CJK Ideograph
-<U7AA9> \xE3\xDD |0 # CJK Ideograph
-<U7AC8> \xE3\xDE |0 # CJK Ideograph
-<U7AB0> \xE3\xDF |0 # CJK Ideograph
-<U7AB6> \xE3\xE0 |0 # CJK Ideograph
-<U7AC5> \xE3\xE1 |0 # CJK Ideograph
-<U7AC4> \xE3\xE2 |0 # CJK Ideograph
-<U7ABF> \xE3\xE3 |0 # CJK Ideograph
-<U9083> \xE3\xE4 |0 # CJK Ideograph
-<U7AC7> \xE3\xE5 |0 # CJK Ideograph
-<U7ACA> \xE3\xE6 |0 # CJK Ideograph
-<U7ACD> \xE3\xE7 |0 # CJK Ideograph
-<U7ACF> \xE3\xE8 |0 # CJK Ideograph
-<U7AD5> \xE3\xE9 |0 # CJK Ideograph
-<U7AD3> \xE3\xEA |0 # CJK Ideograph
-<U7AD9> \xE3\xEB |0 # CJK Ideograph
-<U7ADA> \xE3\xEC |0 # CJK Ideograph
-<U7ADD> \xE3\xED |0 # CJK Ideograph
-<U7AE1> \xE3\xEE |0 # CJK Ideograph
-<U7AE2> \xE3\xEF |0 # CJK Ideograph
-<U7AE6> \xE3\xF0 |0 # CJK Ideograph
-<U7AED> \xE3\xF1 |0 # CJK Ideograph
-<U7AF0> \xE3\xF2 |0 # CJK Ideograph
-<U7B02> \xE3\xF3 |0 # CJK Ideograph
-<U7B0F> \xE3\xF4 |0 # CJK Ideograph
-<U7B0A> \xE3\xF5 |0 # CJK Ideograph
-<U7B06> \xE3\xF6 |0 # CJK Ideograph
-<U7B33> \xE3\xF7 |0 # CJK Ideograph
-<U7B18> \xE3\xF8 |0 # CJK Ideograph
-<U7B19> \xE3\xF9 |0 # CJK Ideograph
-<U7B1E> \xE3\xFA |0 # CJK Ideograph
-<U7B35> \xE3\xFB |0 # CJK Ideograph
-<U7B28> \xE3\xFC |0 # CJK Ideograph
-<U7B36> \xE3\xFD |0 # CJK Ideograph
-<U7B50> \xE3\xFE |0 # CJK Ideograph
-<U7B7A> \xE4\xA1 |0 # CJK Ideograph
-<U7B04> \xE4\xA2 |0 # CJK Ideograph
-<U7B4D> \xE4\xA3 |0 # CJK Ideograph
-<U7B0B> \xE4\xA4 |0 # CJK Ideograph
-<U7B4C> \xE4\xA5 |0 # CJK Ideograph
-<U7B45> \xE4\xA6 |0 # CJK Ideograph
-<U7B75> \xE4\xA7 |0 # CJK Ideograph
-<U7B65> \xE4\xA8 |0 # CJK Ideograph
-<U7B74> \xE4\xA9 |0 # CJK Ideograph
-<U7B67> \xE4\xAA |0 # CJK Ideograph
-<U7B70> \xE4\xAB |0 # CJK Ideograph
-<U7B71> \xE4\xAC |0 # CJK Ideograph
-<U7B6C> \xE4\xAD |0 # CJK Ideograph
-<U7B6E> \xE4\xAE |0 # CJK Ideograph
-<U7B9D> \xE4\xAF |0 # CJK Ideograph
-<U7B98> \xE4\xB0 |0 # CJK Ideograph
-<U7B9F> \xE4\xB1 |0 # CJK Ideograph
-<U7B8D> \xE4\xB2 |0 # CJK Ideograph
-<U7B9C> \xE4\xB3 |0 # CJK Ideograph
-<U7B9A> \xE4\xB4 |0 # CJK Ideograph
-<U7B8B> \xE4\xB5 |0 # CJK Ideograph
-<U7B92> \xE4\xB6 |0 # CJK Ideograph
-<U7B8F> \xE4\xB7 |0 # CJK Ideograph
-<U7B5D> \xE4\xB8 |0 # CJK Ideograph
-<U7B99> \xE4\xB9 |0 # CJK Ideograph
-<U7BCB> \xE4\xBA |0 # CJK Ideograph
-<U7BC1> \xE4\xBB |0 # CJK Ideograph
-<U7BCC> \xE4\xBC |0 # CJK Ideograph
-<U7BCF> \xE4\xBD |0 # CJK Ideograph
-<U7BB4> \xE4\xBE |0 # CJK Ideograph
-<U7BC6> \xE4\xBF |0 # CJK Ideograph
-<U7BDD> \xE4\xC0 |0 # CJK Ideograph
-<U7BE9> \xE4\xC1 |0 # CJK Ideograph
-<U7C11> \xE4\xC2 |0 # CJK Ideograph
-<U7C14> \xE4\xC3 |0 # CJK Ideograph
-<U7BE6> \xE4\xC4 |0 # CJK Ideograph
-<U7BE5> \xE4\xC5 |0 # CJK Ideograph
-<U7C60> \xE4\xC6 |0 # CJK Ideograph
-<U7C00> \xE4\xC7 |0 # CJK Ideograph
-<U7C07> \xE4\xC8 |0 # CJK Ideograph
-<U7C13> \xE4\xC9 |0 # CJK Ideograph
-<U7BF3> \xE4\xCA |0 # CJK Ideograph
-<U7BF7> \xE4\xCB |0 # CJK Ideograph
-<U7C17> \xE4\xCC |0 # CJK Ideograph
-<U7C0D> \xE4\xCD |0 # CJK Ideograph
-<U7BF6> \xE4\xCE |0 # CJK Ideograph
-<U7C23> \xE4\xCF |0 # CJK Ideograph
-<U7C27> \xE4\xD0 |0 # CJK Ideograph
-<U7C2A> \xE4\xD1 |0 # CJK Ideograph
-<U7C1F> \xE4\xD2 |0 # CJK Ideograph
-<U7C37> \xE4\xD3 |0 # CJK Ideograph
-<U7C2B> \xE4\xD4 |0 # CJK Ideograph
-<U7C3D> \xE4\xD5 |0 # CJK Ideograph
-<U7C4C> \xE4\xD6 |0 # CJK Ideograph
-<U7C43> \xE4\xD7 |0 # CJK Ideograph
-<U7C54> \xE4\xD8 |0 # CJK Ideograph
-<U7C4F> \xE4\xD9 |0 # CJK Ideograph
-<U7C40> \xE4\xDA |0 # CJK Ideograph
-<U7C50> \xE4\xDB |0 # CJK Ideograph
-<U7C58> \xE4\xDC |0 # CJK Ideograph
-<U7C5F> \xE4\xDD |0 # CJK Ideograph
-<U7C64> \xE4\xDE |0 # CJK Ideograph
-<U7C56> \xE4\xDF |0 # CJK Ideograph
-<U7C65> \xE4\xE0 |0 # CJK Ideograph
-<U7C6C> \xE4\xE1 |0 # CJK Ideograph
-<U7C75> \xE4\xE2 |0 # CJK Ideograph
-<U7C83> \xE4\xE3 |0 # CJK Ideograph
-<U7C90> \xE4\xE4 |0 # CJK Ideograph
-<U7CA4> \xE4\xE5 |0 # CJK Ideograph
-<U7CAD> \xE4\xE6 |0 # CJK Ideograph
-<U7CA2> \xE4\xE7 |0 # CJK Ideograph
-<U7CAB> \xE4\xE8 |0 # CJK Ideograph
-<U7CA1> \xE4\xE9 |0 # CJK Ideograph
-<U7CA8> \xE4\xEA |0 # CJK Ideograph
-<U7CB3> \xE4\xEB |0 # CJK Ideograph
-<U7CB2> \xE4\xEC |0 # CJK Ideograph
-<U7CB1> \xE4\xED |0 # CJK Ideograph
-<U7CAE> \xE4\xEE |0 # CJK Ideograph
-<U7CB9> \xE4\xEF |0 # CJK Ideograph
-<U7CBD> \xE4\xF0 |0 # CJK Ideograph
-<U7CC0> \xE4\xF1 |0 # CJK Ideograph
-<U7CC5> \xE4\xF2 |0 # CJK Ideograph
-<U7CC2> \xE4\xF3 |0 # CJK Ideograph
-<U7CD8> \xE4\xF4 |0 # CJK Ideograph
-<U7CD2> \xE4\xF5 |0 # CJK Ideograph
-<U7CDC> \xE4\xF6 |0 # CJK Ideograph
-<U7CE2> \xE4\xF7 |0 # CJK Ideograph
-<U9B3B> \xE4\xF8 |0 # CJK Ideograph
-<U7CEF> \xE4\xF9 |0 # CJK Ideograph
-<U7CF2> \xE4\xFA |0 # CJK Ideograph
-<U7CF4> \xE4\xFB |0 # CJK Ideograph
-<U7CF6> \xE4\xFC |0 # CJK Ideograph
-<U7CFA> \xE4\xFD |0 # CJK Ideograph
-<U7D06> \xE4\xFE |0 # CJK Ideograph
-<U7D02> \xE5\xA1 |0 # CJK Ideograph
-<U7D1C> \xE5\xA2 |0 # CJK Ideograph
-<U7D15> \xE5\xA3 |0 # CJK Ideograph
-<U7D0A> \xE5\xA4 |0 # CJK Ideograph
-<U7D45> \xE5\xA5 |0 # CJK Ideograph
-<U7D4B> \xE5\xA6 |0 # CJK Ideograph
-<U7D2E> \xE5\xA7 |0 # CJK Ideograph
-<U7D32> \xE5\xA8 |0 # CJK Ideograph
-<U7D3F> \xE5\xA9 |0 # CJK Ideograph
-<U7D35> \xE5\xAA |0 # CJK Ideograph
-<U7D46> \xE5\xAB |0 # CJK Ideograph
-<U7D73> \xE5\xAC |0 # CJK Ideograph
-<U7D56> \xE5\xAD |0 # CJK Ideograph
-<U7D4E> \xE5\xAE |0 # CJK Ideograph
-<U7D72> \xE5\xAF |0 # CJK Ideograph
-<U7D68> \xE5\xB0 |0 # CJK Ideograph
-<U7D6E> \xE5\xB1 |0 # CJK Ideograph
-<U7D4F> \xE5\xB2 |0 # CJK Ideograph
-<U7D63> \xE5\xB3 |0 # CJK Ideograph
-<U7D93> \xE5\xB4 |0 # CJK Ideograph
-<U7D89> \xE5\xB5 |0 # CJK Ideograph
-<U7D5B> \xE5\xB6 |0 # CJK Ideograph
-<U7D8F> \xE5\xB7 |0 # CJK Ideograph
-<U7D7D> \xE5\xB8 |0 # CJK Ideograph
-<U7D9B> \xE5\xB9 |0 # CJK Ideograph
-<U7DBA> \xE5\xBA |0 # CJK Ideograph
-<U7DAE> \xE5\xBB |0 # CJK Ideograph
-<U7DA3> \xE5\xBC |0 # CJK Ideograph
-<U7DB5> \xE5\xBD |0 # CJK Ideograph
-<U7DC7> \xE5\xBE |0 # CJK Ideograph
-<U7DBD> \xE5\xBF |0 # CJK Ideograph
-<U7DAB> \xE5\xC0 |0 # CJK Ideograph
-<U7E3D> \xE5\xC1 |0 # CJK Ideograph
-<U7DA2> \xE5\xC2 |0 # CJK Ideograph
-<U7DAF> \xE5\xC3 |0 # CJK Ideograph
-<U7DDC> \xE5\xC4 |0 # CJK Ideograph
-<U7DB8> \xE5\xC5 |0 # CJK Ideograph
-<U7D9F> \xE5\xC6 |0 # CJK Ideograph
-<U7DB0> \xE5\xC7 |0 # CJK Ideograph
-<U7DD8> \xE5\xC8 |0 # CJK Ideograph
-<U7DDD> \xE5\xC9 |0 # CJK Ideograph
-<U7DE4> \xE5\xCA |0 # CJK Ideograph
-<U7DDE> \xE5\xCB |0 # CJK Ideograph
-<U7DFB> \xE5\xCC |0 # CJK Ideograph
-<U7DF2> \xE5\xCD |0 # CJK Ideograph
-<U7DE1> \xE5\xCE |0 # CJK Ideograph
-<U7E05> \xE5\xCF |0 # CJK Ideograph
-<U7E0A> \xE5\xD0 |0 # CJK Ideograph
-<U7E23> \xE5\xD1 |0 # CJK Ideograph
-<U7E21> \xE5\xD2 |0 # CJK Ideograph
-<U7E12> \xE5\xD3 |0 # CJK Ideograph
-<U7E31> \xE5\xD4 |0 # CJK Ideograph
-<U7E1F> \xE5\xD5 |0 # CJK Ideograph
-<U7E09> \xE5\xD6 |0 # CJK Ideograph
-<U7E0B> \xE5\xD7 |0 # CJK Ideograph
-<U7E22> \xE5\xD8 |0 # CJK Ideograph
-<U7E46> \xE5\xD9 |0 # CJK Ideograph
-<U7E66> \xE5\xDA |0 # CJK Ideograph
-<U7E3B> \xE5\xDB |0 # CJK Ideograph
-<U7E35> \xE5\xDC |0 # CJK Ideograph
-<U7E39> \xE5\xDD |0 # CJK Ideograph
-<U7E43> \xE5\xDE |0 # CJK Ideograph
-<U7E37> \xE5\xDF |0 # CJK Ideograph
-<U7E32> \xE5\xE0 |0 # CJK Ideograph
-<U7E3A> \xE5\xE1 |0 # CJK Ideograph
-<U7E67> \xE5\xE2 |0 # CJK Ideograph
-<U7E5D> \xE5\xE3 |0 # CJK Ideograph
-<U7E56> \xE5\xE4 |0 # CJK Ideograph
-<U7E5E> \xE5\xE5 |0 # CJK Ideograph
-<U7E59> \xE5\xE6 |0 # CJK Ideograph
-<U7E5A> \xE5\xE7 |0 # CJK Ideograph
-<U7E79> \xE5\xE8 |0 # CJK Ideograph
-<U7E6A> \xE5\xE9 |0 # CJK Ideograph
-<U7E69> \xE5\xEA |0 # CJK Ideograph
-<U7E7C> \xE5\xEB |0 # CJK Ideograph
-<U7E7B> \xE5\xEC |0 # CJK Ideograph
-<U7E83> \xE5\xED |0 # CJK Ideograph
-<U7DD5> \xE5\xEE |0 # CJK Ideograph
-<U7E7D> \xE5\xEF |0 # CJK Ideograph
-<U8FAE> \xE5\xF0 |0 # CJK Ideograph
-<U7E7F> \xE5\xF1 |0 # CJK Ideograph
-<U7E88> \xE5\xF2 |0 # CJK Ideograph
-<U7E89> \xE5\xF3 |0 # CJK Ideograph
-<U7E8C> \xE5\xF4 |0 # CJK Ideograph
-<U7E92> \xE5\xF5 |0 # CJK Ideograph
-<U7E90> \xE5\xF6 |0 # CJK Ideograph
-<U7E93> \xE5\xF7 |0 # CJK Ideograph
-<U7E94> \xE5\xF8 |0 # CJK Ideograph
-<U7E96> \xE5\xF9 |0 # CJK Ideograph
-<U7E8E> \xE5\xFA |0 # CJK Ideograph
-<U7E9B> \xE5\xFB |0 # CJK Ideograph
-<U7E9C> \xE5\xFC |0 # CJK Ideograph
-<U7F38> \xE5\xFD |0 # CJK Ideograph
-<U7F3A> \xE5\xFE |0 # CJK Ideograph
-<U7F45> \xE6\xA1 |0 # CJK Ideograph
-<U7F4C> \xE6\xA2 |0 # CJK Ideograph
-<U7F4D> \xE6\xA3 |0 # CJK Ideograph
-<U7F4E> \xE6\xA4 |0 # CJK Ideograph
-<U7F50> \xE6\xA5 |0 # CJK Ideograph
-<U7F51> \xE6\xA6 |0 # CJK Ideograph
-<U7F55> \xE6\xA7 |0 # CJK Ideograph
-<U7F54> \xE6\xA8 |0 # CJK Ideograph
-<U7F58> \xE6\xA9 |0 # CJK Ideograph
-<U7F5F> \xE6\xAA |0 # CJK Ideograph
-<U7F60> \xE6\xAB |0 # CJK Ideograph
-<U7F68> \xE6\xAC |0 # CJK Ideograph
-<U7F69> \xE6\xAD |0 # CJK Ideograph
-<U7F67> \xE6\xAE |0 # CJK Ideograph
-<U7F78> \xE6\xAF |0 # CJK Ideograph
-<U7F82> \xE6\xB0 |0 # CJK Ideograph
-<U7F86> \xE6\xB1 |0 # CJK Ideograph
-<U7F83> \xE6\xB2 |0 # CJK Ideograph
-<U7F88> \xE6\xB3 |0 # CJK Ideograph
-<U7F87> \xE6\xB4 |0 # CJK Ideograph
-<U7F8C> \xE6\xB5 |0 # CJK Ideograph
-<U7F94> \xE6\xB6 |0 # CJK Ideograph
-<U7F9E> \xE6\xB7 |0 # CJK Ideograph
-<U7F9D> \xE6\xB8 |0 # CJK Ideograph
-<U7F9A> \xE6\xB9 |0 # CJK Ideograph
-<U7FA3> \xE6\xBA |0 # CJK Ideograph
-<U7FAF> \xE6\xBB |0 # CJK Ideograph
-<U7FB2> \xE6\xBC |0 # CJK Ideograph
-<U7FB9> \xE6\xBD |0 # CJK Ideograph
-<U7FAE> \xE6\xBE |0 # CJK Ideograph
-<U7FB6> \xE6\xBF |0 # CJK Ideograph
-<U7FB8> \xE6\xC0 |0 # CJK Ideograph
-<U8B71> \xE6\xC1 |0 # CJK Ideograph
-<U7FC5> \xE6\xC2 |0 # CJK Ideograph
-<U7FC6> \xE6\xC3 |0 # CJK Ideograph
-<U7FCA> \xE6\xC4 |0 # CJK Ideograph
-<U7FD5> \xE6\xC5 |0 # CJK Ideograph
-<U7FD4> \xE6\xC6 |0 # CJK Ideograph
-<U7FE1> \xE6\xC7 |0 # CJK Ideograph
-<U7FE6> \xE6\xC8 |0 # CJK Ideograph
-<U7FE9> \xE6\xC9 |0 # CJK Ideograph
-<U7FF3> \xE6\xCA |0 # CJK Ideograph
-<U7FF9> \xE6\xCB |0 # CJK Ideograph
-<U98DC> \xE6\xCC |0 # CJK Ideograph
-<U8006> \xE6\xCD |0 # CJK Ideograph
-<U8004> \xE6\xCE |0 # CJK Ideograph
-<U800B> \xE6\xCF |0 # CJK Ideograph
-<U8012> \xE6\xD0 |0 # CJK Ideograph
-<U8018> \xE6\xD1 |0 # CJK Ideograph
-<U8019> \xE6\xD2 |0 # CJK Ideograph
-<U801C> \xE6\xD3 |0 # CJK Ideograph
-<U8021> \xE6\xD4 |0 # CJK Ideograph
-<U8028> \xE6\xD5 |0 # CJK Ideograph
-<U803F> \xE6\xD6 |0 # CJK Ideograph
-<U803B> \xE6\xD7 |0 # CJK Ideograph
-<U804A> \xE6\xD8 |0 # CJK Ideograph
-<U8046> \xE6\xD9 |0 # CJK Ideograph
-<U8052> \xE6\xDA |0 # CJK Ideograph
-<U8058> \xE6\xDB |0 # CJK Ideograph
-<U805A> \xE6\xDC |0 # CJK Ideograph
-<U805F> \xE6\xDD |0 # CJK Ideograph
-<U8062> \xE6\xDE |0 # CJK Ideograph
-<U8068> \xE6\xDF |0 # CJK Ideograph
-<U8073> \xE6\xE0 |0 # CJK Ideograph
-<U8072> \xE6\xE1 |0 # CJK Ideograph
-<U8070> \xE6\xE2 |0 # CJK Ideograph
-<U8076> \xE6\xE3 |0 # CJK Ideograph
-<U8079> \xE6\xE4 |0 # CJK Ideograph
-<U807D> \xE6\xE5 |0 # CJK Ideograph
-<U807F> \xE6\xE6 |0 # CJK Ideograph
-<U8084> \xE6\xE7 |0 # CJK Ideograph
-<U8086> \xE6\xE8 |0 # CJK Ideograph
-<U8085> \xE6\xE9 |0 # CJK Ideograph
-<U809B> \xE6\xEA |0 # CJK Ideograph
-<U8093> \xE6\xEB |0 # CJK Ideograph
-<U809A> \xE6\xEC |0 # CJK Ideograph
-<U80AD> \xE6\xED |0 # CJK Ideograph
-<U5190> \xE6\xEE |0 # CJK Ideograph
-<U80AC> \xE6\xEF |0 # CJK Ideograph
-<U80DB> \xE6\xF0 |0 # CJK Ideograph
-<U80E5> \xE6\xF1 |0 # CJK Ideograph
-<U80D9> \xE6\xF2 |0 # CJK Ideograph
-<U80DD> \xE6\xF3 |0 # CJK Ideograph
-<U80C4> \xE6\xF4 |0 # CJK Ideograph
-<U80DA> \xE6\xF5 |0 # CJK Ideograph
-<U80D6> \xE6\xF6 |0 # CJK Ideograph
-<U8109> \xE6\xF7 |0 # CJK Ideograph
-<U80EF> \xE6\xF8 |0 # CJK Ideograph
-<U80F1> \xE6\xF9 |0 # CJK Ideograph
-<U811B> \xE6\xFA |0 # CJK Ideograph
-<U8129> \xE6\xFB |0 # CJK Ideograph
-<U8123> \xE6\xFC |0 # CJK Ideograph
-<U812F> \xE6\xFD |0 # CJK Ideograph
-<U814B> \xE6\xFE |0 # CJK Ideograph
-<U968B> \xE7\xA1 |0 # CJK Ideograph
-<U8146> \xE7\xA2 |0 # CJK Ideograph
-<U813E> \xE7\xA3 |0 # CJK Ideograph
-<U8153> \xE7\xA4 |0 # CJK Ideograph
-<U8151> \xE7\xA5 |0 # CJK Ideograph
-<U80FC> \xE7\xA6 |0 # CJK Ideograph
-<U8171> \xE7\xA7 |0 # CJK Ideograph
-<U816E> \xE7\xA8 |0 # CJK Ideograph
-<U8165> \xE7\xA9 |0 # CJK Ideograph
-<U8166> \xE7\xAA |0 # CJK Ideograph
-<U8174> \xE7\xAB |0 # CJK Ideograph
-<U8183> \xE7\xAC |0 # CJK Ideograph
-<U8188> \xE7\xAD |0 # CJK Ideograph
-<U818A> \xE7\xAE |0 # CJK Ideograph
-<U8180> \xE7\xAF |0 # CJK Ideograph
-<U8182> \xE7\xB0 |0 # CJK Ideograph
-<U81A0> \xE7\xB1 |0 # CJK Ideograph
-<U8195> \xE7\xB2 |0 # CJK Ideograph
-<U81A4> \xE7\xB3 |0 # CJK Ideograph
-<U81A3> \xE7\xB4 |0 # CJK Ideograph
-<U815F> \xE7\xB5 |0 # CJK Ideograph
-<U8193> \xE7\xB6 |0 # CJK Ideograph
-<U81A9> \xE7\xB7 |0 # CJK Ideograph
-<U81B0> \xE7\xB8 |0 # CJK Ideograph
-<U81B5> \xE7\xB9 |0 # CJK Ideograph
-<U81BE> \xE7\xBA |0 # CJK Ideograph
-<U81B8> \xE7\xBB |0 # CJK Ideograph
-<U81BD> \xE7\xBC |0 # CJK Ideograph
-<U81C0> \xE7\xBD |0 # CJK Ideograph
-<U81C2> \xE7\xBE |0 # CJK Ideograph
-<U81BA> \xE7\xBF |0 # CJK Ideograph
-<U81C9> \xE7\xC0 |0 # CJK Ideograph
-<U81CD> \xE7\xC1 |0 # CJK Ideograph
-<U81D1> \xE7\xC2 |0 # CJK Ideograph
-<U81D9> \xE7\xC3 |0 # CJK Ideograph
-<U81D8> \xE7\xC4 |0 # CJK Ideograph
-<U81C8> \xE7\xC5 |0 # CJK Ideograph
-<U81DA> \xE7\xC6 |0 # CJK Ideograph
-<U81DF> \xE7\xC7 |0 # CJK Ideograph
-<U81E0> \xE7\xC8 |0 # CJK Ideograph
-<U81E7> \xE7\xC9 |0 # CJK Ideograph
-<U81FA> \xE7\xCA |0 # CJK Ideograph
-<U81FB> \xE7\xCB |0 # CJK Ideograph
-<U81FE> \xE7\xCC |0 # CJK Ideograph
-<U8201> \xE7\xCD |0 # CJK Ideograph
-<U8202> \xE7\xCE |0 # CJK Ideograph
-<U8205> \xE7\xCF |0 # CJK Ideograph
-<U8207> \xE7\xD0 |0 # CJK Ideograph
-<U820A> \xE7\xD1 |0 # CJK Ideograph
-<U820D> \xE7\xD2 |0 # CJK Ideograph
-<U8210> \xE7\xD3 |0 # CJK Ideograph
-<U8216> \xE7\xD4 |0 # CJK Ideograph
-<U8229> \xE7\xD5 |0 # CJK Ideograph
-<U822B> \xE7\xD6 |0 # CJK Ideograph
-<U8238> \xE7\xD7 |0 # CJK Ideograph
-<U8233> \xE7\xD8 |0 # CJK Ideograph
-<U8240> \xE7\xD9 |0 # CJK Ideograph
-<U8259> \xE7\xDA |0 # CJK Ideograph
-<U8258> \xE7\xDB |0 # CJK Ideograph
-<U825D> \xE7\xDC |0 # CJK Ideograph
-<U825A> \xE7\xDD |0 # CJK Ideograph
-<U825F> \xE7\xDE |0 # CJK Ideograph
-<U8264> \xE7\xDF |0 # CJK Ideograph
-<U8262> \xE7\xE0 |0 # CJK Ideograph
-<U8268> \xE7\xE1 |0 # CJK Ideograph
-<U826A> \xE7\xE2 |0 # CJK Ideograph
-<U826B> \xE7\xE3 |0 # CJK Ideograph
-<U822E> \xE7\xE4 |0 # CJK Ideograph
-<U8271> \xE7\xE5 |0 # CJK Ideograph
-<U8277> \xE7\xE6 |0 # CJK Ideograph
-<U8278> \xE7\xE7 |0 # CJK Ideograph
-<U827E> \xE7\xE8 |0 # CJK Ideograph
-<U828D> \xE7\xE9 |0 # CJK Ideograph
-<U8292> \xE7\xEA |0 # CJK Ideograph
-<U82AB> \xE7\xEB |0 # CJK Ideograph
-<U829F> \xE7\xEC |0 # CJK Ideograph
-<U82BB> \xE7\xED |0 # CJK Ideograph
-<U82AC> \xE7\xEE |0 # CJK Ideograph
-<U82E1> \xE7\xEF |0 # CJK Ideograph
-<U82E3> \xE7\xF0 |0 # CJK Ideograph
-<U82DF> \xE7\xF1 |0 # CJK Ideograph
-<U82D2> \xE7\xF2 |0 # CJK Ideograph
-<U82F4> \xE7\xF3 |0 # CJK Ideograph
-<U82F3> \xE7\xF4 |0 # CJK Ideograph
-<U82FA> \xE7\xF5 |0 # CJK Ideograph
-<U8393> \xE7\xF6 |0 # CJK Ideograph
-<U8303> \xE7\xF7 |0 # CJK Ideograph
-<U82FB> \xE7\xF8 |0 # CJK Ideograph
-<U82F9> \xE7\xF9 |0 # CJK Ideograph
-<U82DE> \xE7\xFA |0 # CJK Ideograph
-<U8306> \xE7\xFB |0 # CJK Ideograph
-<U82DC> \xE7\xFC |0 # CJK Ideograph
-<U8309> \xE7\xFD |0 # CJK Ideograph
-<U82D9> \xE7\xFE |0 # CJK Ideograph
-<U8335> \xE8\xA1 |0 # CJK Ideograph
-<U8334> \xE8\xA2 |0 # CJK Ideograph
-<U8316> \xE8\xA3 |0 # CJK Ideograph
-<U8332> \xE8\xA4 |0 # CJK Ideograph
-<U8331> \xE8\xA5 |0 # CJK Ideograph
-<U8340> \xE8\xA6 |0 # CJK Ideograph
-<U8339> \xE8\xA7 |0 # CJK Ideograph
-<U8350> \xE8\xA8 |0 # CJK Ideograph
-<U8345> \xE8\xA9 |0 # CJK Ideograph
-<U832F> \xE8\xAA |0 # CJK Ideograph
-<U832B> \xE8\xAB |0 # CJK Ideograph
-<U8317> \xE8\xAC |0 # CJK Ideograph
-<U8318> \xE8\xAD |0 # CJK Ideograph
-<U8385> \xE8\xAE |0 # CJK Ideograph
-<U839A> \xE8\xAF |0 # CJK Ideograph
-<U83AA> \xE8\xB0 |0 # CJK Ideograph
-<U839F> \xE8\xB1 |0 # CJK Ideograph
-<U83A2> \xE8\xB2 |0 # CJK Ideograph
-<U8396> \xE8\xB3 |0 # CJK Ideograph
-<U8323> \xE8\xB4 |0 # CJK Ideograph
-<U838E> \xE8\xB5 |0 # CJK Ideograph
-<U8387> \xE8\xB6 |0 # CJK Ideograph
-<U838A> \xE8\xB7 |0 # CJK Ideograph
-<U837C> \xE8\xB8 |0 # CJK Ideograph
-<U83B5> \xE8\xB9 |0 # CJK Ideograph
-<U8373> \xE8\xBA |0 # CJK Ideograph
-<U8375> \xE8\xBB |0 # CJK Ideograph
-<U83A0> \xE8\xBC |0 # CJK Ideograph
-<U8389> \xE8\xBD |0 # CJK Ideograph
-<U83A8> \xE8\xBE |0 # CJK Ideograph
-<U83F4> \xE8\xBF |0 # CJK Ideograph
-<U8413> \xE8\xC0 |0 # CJK Ideograph
-<U83EB> \xE8\xC1 |0 # CJK Ideograph
-<U83CE> \xE8\xC2 |0 # CJK Ideograph
-<U83FD> \xE8\xC3 |0 # CJK Ideograph
-<U8403> \xE8\xC4 |0 # CJK Ideograph
-<U83D8> \xE8\xC5 |0 # CJK Ideograph
-<U840B> \xE8\xC6 |0 # CJK Ideograph
-<U83C1> \xE8\xC7 |0 # CJK Ideograph
-<U83F7> \xE8\xC8 |0 # CJK Ideograph
-<U8407> \xE8\xC9 |0 # CJK Ideograph
-<U83E0> \xE8\xCA |0 # CJK Ideograph
-<U83F2> \xE8\xCB |0 # CJK Ideograph
-<U840D> \xE8\xCC |0 # CJK Ideograph
-<U8422> \xE8\xCD |0 # CJK Ideograph
-<U8420> \xE8\xCE |0 # CJK Ideograph
-<U83BD> \xE8\xCF |0 # CJK Ideograph
-<U8438> \xE8\xD0 |0 # CJK Ideograph
-<U8506> \xE8\xD1 |0 # CJK Ideograph
-<U83FB> \xE8\xD2 |0 # CJK Ideograph
-<U846D> \xE8\xD3 |0 # CJK Ideograph
-<U842A> \xE8\xD4 |0 # CJK Ideograph
-<U843C> \xE8\xD5 |0 # CJK Ideograph
-<U855A> \xE8\xD6 |0 # CJK Ideograph
-<U8484> \xE8\xD7 |0 # CJK Ideograph
-<U8477> \xE8\xD8 |0 # CJK Ideograph
-<U846B> \xE8\xD9 |0 # CJK Ideograph
-<U84AD> \xE8\xDA |0 # CJK Ideograph
-<U846E> \xE8\xDB |0 # CJK Ideograph
-<U8482> \xE8\xDC |0 # CJK Ideograph
-<U8469> \xE8\xDD |0 # CJK Ideograph
-<U8446> \xE8\xDE |0 # CJK Ideograph
-<U842C> \xE8\xDF |0 # CJK Ideograph
-<U846F> \xE8\xE0 |0 # CJK Ideograph
-<U8479> \xE8\xE1 |0 # CJK Ideograph
-<U8435> \xE8\xE2 |0 # CJK Ideograph
-<U84CA> \xE8\xE3 |0 # CJK Ideograph
-<U8462> \xE8\xE4 |0 # CJK Ideograph
-<U84B9> \xE8\xE5 |0 # CJK Ideograph
-<U84BF> \xE8\xE6 |0 # CJK Ideograph
-<U849F> \xE8\xE7 |0 # CJK Ideograph
-<U84D9> \xE8\xE8 |0 # CJK Ideograph
-<U84CD> \xE8\xE9 |0 # CJK Ideograph
-<U84BB> \xE8\xEA |0 # CJK Ideograph
-<U84DA> \xE8\xEB |0 # CJK Ideograph
-<U84D0> \xE8\xEC |0 # CJK Ideograph
-<U84C1> \xE8\xED |0 # CJK Ideograph
-<U84C6> \xE8\xEE |0 # CJK Ideograph
-<U84D6> \xE8\xEF |0 # CJK Ideograph
-<U84A1> \xE8\xF0 |0 # CJK Ideograph
-<U8521> \xE8\xF1 |0 # CJK Ideograph
-<U84FF> \xE8\xF2 |0 # CJK Ideograph
-<U84F4> \xE8\xF3 |0 # CJK Ideograph
-<U8517> \xE8\xF4 |0 # CJK Ideograph
-<U8518> \xE8\xF5 |0 # CJK Ideograph
-<U852C> \xE8\xF6 |0 # CJK Ideograph
-<U851F> \xE8\xF7 |0 # CJK Ideograph
-<U8515> \xE8\xF8 |0 # CJK Ideograph
-<U8514> \xE8\xF9 |0 # CJK Ideograph
-<U84FC> \xE8\xFA |0 # CJK Ideograph
-<U8540> \xE8\xFB |0 # CJK Ideograph
-<U8563> \xE8\xFC |0 # CJK Ideograph
-<U8558> \xE8\xFD |0 # CJK Ideograph
-<U8548> \xE8\xFE |0 # CJK Ideograph
-<U8541> \xE9\xA1 |0 # CJK Ideograph
-<U8602> \xE9\xA2 |0 # CJK Ideograph
-<U854B> \xE9\xA3 |0 # CJK Ideograph
-<U8555> \xE9\xA4 |0 # CJK Ideograph
-<U8580> \xE9\xA5 |0 # CJK Ideograph
-<U85A4> \xE9\xA6 |0 # CJK Ideograph
-<U8588> \xE9\xA7 |0 # CJK Ideograph
-<U8591> \xE9\xA8 |0 # CJK Ideograph
-<U858A> \xE9\xA9 |0 # CJK Ideograph
-<U85A8> \xE9\xAA |0 # CJK Ideograph
-<U856D> \xE9\xAB |0 # CJK Ideograph
-<U8594> \xE9\xAC |0 # CJK Ideograph
-<U859B> \xE9\xAD |0 # CJK Ideograph
-<U85EA> \xE9\xAE |0 # CJK Ideograph
-<U8587> \xE9\xAF |0 # CJK Ideograph
-<U859C> \xE9\xB0 |0 # CJK Ideograph
-<U8577> \xE9\xB1 |0 # CJK Ideograph
-<U857E> \xE9\xB2 |0 # CJK Ideograph
-<U8590> \xE9\xB3 |0 # CJK Ideograph
-<U85C9> \xE9\xB4 |0 # CJK Ideograph
-<U85BA> \xE9\xB5 |0 # CJK Ideograph
-<U85CF> \xE9\xB6 |0 # CJK Ideograph
-<U85B9> \xE9\xB7 |0 # CJK Ideograph
-<U85D0> \xE9\xB8 |0 # CJK Ideograph
-<U85D5> \xE9\xB9 |0 # CJK Ideograph
-<U85DD> \xE9\xBA |0 # CJK Ideograph
-<U85E5> \xE9\xBB |0 # CJK Ideograph
-<U85DC> \xE9\xBC |0 # CJK Ideograph
-<U85F9> \xE9\xBD |0 # CJK Ideograph
-<U860A> \xE9\xBE |0 # CJK Ideograph
-<U8613> \xE9\xBF |0 # CJK Ideograph
-<U860B> \xE9\xC0 |0 # CJK Ideograph
-<U85FE> \xE9\xC1 |0 # CJK Ideograph
-<U85FA> \xE9\xC2 |0 # CJK Ideograph
-<U8606> \xE9\xC3 |0 # CJK Ideograph
-<U8622> \xE9\xC4 |0 # CJK Ideograph
-<U861A> \xE9\xC5 |0 # CJK Ideograph
-<U8630> \xE9\xC6 |0 # CJK Ideograph
-<U863F> \xE9\xC7 |0 # CJK Ideograph
-<U864D> \xE9\xC8 |0 # CJK Ideograph
-<U4E55> \xE9\xC9 |0 # CJK Ideograph
-<U8654> \xE9\xCA |0 # CJK Ideograph
-<U865F> \xE9\xCB |0 # CJK Ideograph
-<U8667> \xE9\xCC |0 # CJK Ideograph
-<U8671> \xE9\xCD |0 # CJK Ideograph
-<U8693> \xE9\xCE |0 # CJK Ideograph
-<U86A3> \xE9\xCF |0 # CJK Ideograph
-<U86A9> \xE9\xD0 |0 # CJK Ideograph
-<U86AA> \xE9\xD1 |0 # CJK Ideograph
-<U868B> \xE9\xD2 |0 # CJK Ideograph
-<U868C> \xE9\xD3 |0 # CJK Ideograph
-<U86B6> \xE9\xD4 |0 # CJK Ideograph
-<U86AF> \xE9\xD5 |0 # CJK Ideograph
-<U86C4> \xE9\xD6 |0 # CJK Ideograph
-<U86C6> \xE9\xD7 |0 # CJK Ideograph
-<U86B0> \xE9\xD8 |0 # CJK Ideograph
-<U86C9> \xE9\xD9 |0 # CJK Ideograph
-<U8823> \xE9\xDA |0 # CJK Ideograph
-<U86AB> \xE9\xDB |0 # CJK Ideograph
-<U86D4> \xE9\xDC |0 # CJK Ideograph
-<U86DE> \xE9\xDD |0 # CJK Ideograph
-<U86E9> \xE9\xDE |0 # CJK Ideograph
-<U86EC> \xE9\xDF |0 # CJK Ideograph
-<U86DF> \xE9\xE0 |0 # CJK Ideograph
-<U86DB> \xE9\xE1 |0 # CJK Ideograph
-<U86EF> \xE9\xE2 |0 # CJK Ideograph
-<U8712> \xE9\xE3 |0 # CJK Ideograph
-<U8706> \xE9\xE4 |0 # CJK Ideograph
-<U8708> \xE9\xE5 |0 # CJK Ideograph
-<U8700> \xE9\xE6 |0 # CJK Ideograph
-<U8703> \xE9\xE7 |0 # CJK Ideograph
-<U86FB> \xE9\xE8 |0 # CJK Ideograph
-<U8711> \xE9\xE9 |0 # CJK Ideograph
-<U8709> \xE9\xEA |0 # CJK Ideograph
-<U870D> \xE9\xEB |0 # CJK Ideograph
-<U86F9> \xE9\xEC |0 # CJK Ideograph
-<U870A> \xE9\xED |0 # CJK Ideograph
-<U8734> \xE9\xEE |0 # CJK Ideograph
-<U873F> \xE9\xEF |0 # CJK Ideograph
-<U8737> \xE9\xF0 |0 # CJK Ideograph
-<U873B> \xE9\xF1 |0 # CJK Ideograph
-<U8725> \xE9\xF2 |0 # CJK Ideograph
-<U8729> \xE9\xF3 |0 # CJK Ideograph
-<U871A> \xE9\xF4 |0 # CJK Ideograph
-<U8760> \xE9\xF5 |0 # CJK Ideograph
-<U875F> \xE9\xF6 |0 # CJK Ideograph
-<U8778> \xE9\xF7 |0 # CJK Ideograph
-<U874C> \xE9\xF8 |0 # CJK Ideograph
-<U874E> \xE9\xF9 |0 # CJK Ideograph
-<U8774> \xE9\xFA |0 # CJK Ideograph
-<U8757> \xE9\xFB |0 # CJK Ideograph
-<U8768> \xE9\xFC |0 # CJK Ideograph
-<U876E> \xE9\xFD |0 # CJK Ideograph
-<U8759> \xE9\xFE |0 # CJK Ideograph
-<U8753> \xEA\xA1 |0 # CJK Ideograph
-<U8763> \xEA\xA2 |0 # CJK Ideograph
-<U876A> \xEA\xA3 |0 # CJK Ideograph
-<U8805> \xEA\xA4 |0 # CJK Ideograph
-<U87A2> \xEA\xA5 |0 # CJK Ideograph
-<U879F> \xEA\xA6 |0 # CJK Ideograph
-<U8782> \xEA\xA7 |0 # CJK Ideograph
-<U87AF> \xEA\xA8 |0 # CJK Ideograph
-<U87CB> \xEA\xA9 |0 # CJK Ideograph
-<U87BD> \xEA\xAA |0 # CJK Ideograph
-<U87C0> \xEA\xAB |0 # CJK Ideograph
-<U87D0> \xEA\xAC |0 # CJK Ideograph
-<U96D6> \xEA\xAD |0 # CJK Ideograph
-<U87AB> \xEA\xAE |0 # CJK Ideograph
-<U87C4> \xEA\xAF |0 # CJK Ideograph
-<U87B3> \xEA\xB0 |0 # CJK Ideograph
-<U87C7> \xEA\xB1 |0 # CJK Ideograph
-<U87C6> \xEA\xB2 |0 # CJK Ideograph
-<U87BB> \xEA\xB3 |0 # CJK Ideograph
-<U87EF> \xEA\xB4 |0 # CJK Ideograph
-<U87F2> \xEA\xB5 |0 # CJK Ideograph
-<U87E0> \xEA\xB6 |0 # CJK Ideograph
-<U880F> \xEA\xB7 |0 # CJK Ideograph
-<U880D> \xEA\xB8 |0 # CJK Ideograph
-<U87FE> \xEA\xB9 |0 # CJK Ideograph
-<U87F6> \xEA\xBA |0 # CJK Ideograph
-<U87F7> \xEA\xBB |0 # CJK Ideograph
-<U880E> \xEA\xBC |0 # CJK Ideograph
-<U87D2> \xEA\xBD |0 # CJK Ideograph
-<U8811> \xEA\xBE |0 # CJK Ideograph
-<U8816> \xEA\xBF |0 # CJK Ideograph
-<U8815> \xEA\xC0 |0 # CJK Ideograph
-<U8822> \xEA\xC1 |0 # CJK Ideograph
-<U8821> \xEA\xC2 |0 # CJK Ideograph
-<U8831> \xEA\xC3 |0 # CJK Ideograph
-<U8836> \xEA\xC4 |0 # CJK Ideograph
-<U8839> \xEA\xC5 |0 # CJK Ideograph
-<U8827> \xEA\xC6 |0 # CJK Ideograph
-<U883B> \xEA\xC7 |0 # CJK Ideograph
-<U8844> \xEA\xC8 |0 # CJK Ideograph
-<U8842> \xEA\xC9 |0 # CJK Ideograph
-<U8852> \xEA\xCA |0 # CJK Ideograph
-<U8859> \xEA\xCB |0 # CJK Ideograph
-<U885E> \xEA\xCC |0 # CJK Ideograph
-<U8862> \xEA\xCD |0 # CJK Ideograph
-<U886B> \xEA\xCE |0 # CJK Ideograph
-<U8881> \xEA\xCF |0 # CJK Ideograph
-<U887E> \xEA\xD0 |0 # CJK Ideograph
-<U889E> \xEA\xD1 |0 # CJK Ideograph
-<U8875> \xEA\xD2 |0 # CJK Ideograph
-<U887D> \xEA\xD3 |0 # CJK Ideograph
-<U88B5> \xEA\xD4 |0 # CJK Ideograph
-<U8872> \xEA\xD5 |0 # CJK Ideograph
-<U8882> \xEA\xD6 |0 # CJK Ideograph
-<U8897> \xEA\xD7 |0 # CJK Ideograph
-<U8892> \xEA\xD8 |0 # CJK Ideograph
-<U88AE> \xEA\xD9 |0 # CJK Ideograph
-<U8899> \xEA\xDA |0 # CJK Ideograph
-<U88A2> \xEA\xDB |0 # CJK Ideograph
-<U888D> \xEA\xDC |0 # CJK Ideograph
-<U88A4> \xEA\xDD |0 # CJK Ideograph
-<U88B0> \xEA\xDE |0 # CJK Ideograph
-<U88BF> \xEA\xDF |0 # CJK Ideograph
-<U88B1> \xEA\xE0 |0 # CJK Ideograph
-<U88C3> \xEA\xE1 |0 # CJK Ideograph
-<U88C4> \xEA\xE2 |0 # CJK Ideograph
-<U88D4> \xEA\xE3 |0 # CJK Ideograph
-<U88D8> \xEA\xE4 |0 # CJK Ideograph
-<U88D9> \xEA\xE5 |0 # CJK Ideograph
-<U88DD> \xEA\xE6 |0 # CJK Ideograph
-<U88F9> \xEA\xE7 |0 # CJK Ideograph
-<U8902> \xEA\xE8 |0 # CJK Ideograph
-<U88FC> \xEA\xE9 |0 # CJK Ideograph
-<U88F4> \xEA\xEA |0 # CJK Ideograph
-<U88E8> \xEA\xEB |0 # CJK Ideograph
-<U88F2> \xEA\xEC |0 # CJK Ideograph
-<U8904> \xEA\xED |0 # CJK Ideograph
-<U890C> \xEA\xEE |0 # CJK Ideograph
-<U890A> \xEA\xEF |0 # CJK Ideograph
-<U8913> \xEA\xF0 |0 # CJK Ideograph
-<U8943> \xEA\xF1 |0 # CJK Ideograph
-<U891E> \xEA\xF2 |0 # CJK Ideograph
-<U8925> \xEA\xF3 |0 # CJK Ideograph
-<U892A> \xEA\xF4 |0 # CJK Ideograph
-<U892B> \xEA\xF5 |0 # CJK Ideograph
-<U8941> \xEA\xF6 |0 # CJK Ideograph
-<U8944> \xEA\xF7 |0 # CJK Ideograph
-<U893B> \xEA\xF8 |0 # CJK Ideograph
-<U8936> \xEA\xF9 |0 # CJK Ideograph
-<U8938> \xEA\xFA |0 # CJK Ideograph
-<U894C> \xEA\xFB |0 # CJK Ideograph
-<U891D> \xEA\xFC |0 # CJK Ideograph
-<U8960> \xEA\xFD |0 # CJK Ideograph
-<U895E> \xEA\xFE |0 # CJK Ideograph
-<U8966> \xEB\xA1 |0 # CJK Ideograph
-<U8964> \xEB\xA2 |0 # CJK Ideograph
-<U896D> \xEB\xA3 |0 # CJK Ideograph
-<U896A> \xEB\xA4 |0 # CJK Ideograph
-<U896F> \xEB\xA5 |0 # CJK Ideograph
-<U8974> \xEB\xA6 |0 # CJK Ideograph
-<U8977> \xEB\xA7 |0 # CJK Ideograph
-<U897E> \xEB\xA8 |0 # CJK Ideograph
-<U8983> \xEB\xA9 |0 # CJK Ideograph
-<U8988> \xEB\xAA |0 # CJK Ideograph
-<U898A> \xEB\xAB |0 # CJK Ideograph
-<U8993> \xEB\xAC |0 # CJK Ideograph
-<U8998> \xEB\xAD |0 # CJK Ideograph
-<U89A1> \xEB\xAE |0 # CJK Ideograph
-<U89A9> \xEB\xAF |0 # CJK Ideograph
-<U89A6> \xEB\xB0 |0 # CJK Ideograph
-<U89AC> \xEB\xB1 |0 # CJK Ideograph
-<U89AF> \xEB\xB2 |0 # CJK Ideograph
-<U89B2> \xEB\xB3 |0 # CJK Ideograph
-<U89BA> \xEB\xB4 |0 # CJK Ideograph
-<U89BD> \xEB\xB5 |0 # CJK Ideograph
-<U89BF> \xEB\xB6 |0 # CJK Ideograph
-<U89C0> \xEB\xB7 |0 # CJK Ideograph
-<U89DA> \xEB\xB8 |0 # CJK Ideograph
-<U89DC> \xEB\xB9 |0 # CJK Ideograph
-<U89DD> \xEB\xBA |0 # CJK Ideograph
-<U89E7> \xEB\xBB |0 # CJK Ideograph
-<U89F4> \xEB\xBC |0 # CJK Ideograph
-<U89F8> \xEB\xBD |0 # CJK Ideograph
-<U8A03> \xEB\xBE |0 # CJK Ideograph
-<U8A16> \xEB\xBF |0 # CJK Ideograph
-<U8A10> \xEB\xC0 |0 # CJK Ideograph
-<U8A0C> \xEB\xC1 |0 # CJK Ideograph
-<U8A1B> \xEB\xC2 |0 # CJK Ideograph
-<U8A1D> \xEB\xC3 |0 # CJK Ideograph
-<U8A25> \xEB\xC4 |0 # CJK Ideograph
-<U8A36> \xEB\xC5 |0 # CJK Ideograph
-<U8A41> \xEB\xC6 |0 # CJK Ideograph
-<U8A5B> \xEB\xC7 |0 # CJK Ideograph
-<U8A52> \xEB\xC8 |0 # CJK Ideograph
-<U8A46> \xEB\xC9 |0 # CJK Ideograph
-<U8A48> \xEB\xCA |0 # CJK Ideograph
-<U8A7C> \xEB\xCB |0 # CJK Ideograph
-<U8A6D> \xEB\xCC |0 # CJK Ideograph
-<U8A6C> \xEB\xCD |0 # CJK Ideograph
-<U8A62> \xEB\xCE |0 # CJK Ideograph
-<U8A85> \xEB\xCF |0 # CJK Ideograph
-<U8A82> \xEB\xD0 |0 # CJK Ideograph
-<U8A84> \xEB\xD1 |0 # CJK Ideograph
-<U8AA8> \xEB\xD2 |0 # CJK Ideograph
-<U8AA1> \xEB\xD3 |0 # CJK Ideograph
-<U8A91> \xEB\xD4 |0 # CJK Ideograph
-<U8AA5> \xEB\xD5 |0 # CJK Ideograph
-<U8AA6> \xEB\xD6 |0 # CJK Ideograph
-<U8A9A> \xEB\xD7 |0 # CJK Ideograph
-<U8AA3> \xEB\xD8 |0 # CJK Ideograph
-<U8AC4> \xEB\xD9 |0 # CJK Ideograph
-<U8ACD> \xEB\xDA |0 # CJK Ideograph
-<U8AC2> \xEB\xDB |0 # CJK Ideograph
-<U8ADA> \xEB\xDC |0 # CJK Ideograph
-<U8AEB> \xEB\xDD |0 # CJK Ideograph
-<U8AF3> \xEB\xDE |0 # CJK Ideograph
-<U8AE7> \xEB\xDF |0 # CJK Ideograph
-<U8AE4> \xEB\xE0 |0 # CJK Ideograph
-<U8AF1> \xEB\xE1 |0 # CJK Ideograph
-<U8B14> \xEB\xE2 |0 # CJK Ideograph
-<U8AE0> \xEB\xE3 |0 # CJK Ideograph
-<U8AE2> \xEB\xE4 |0 # CJK Ideograph
-<U8AF7> \xEB\xE5 |0 # CJK Ideograph
-<U8ADE> \xEB\xE6 |0 # CJK Ideograph
-<U8ADB> \xEB\xE7 |0 # CJK Ideograph
-<U8B0C> \xEB\xE8 |0 # CJK Ideograph
-<U8B07> \xEB\xE9 |0 # CJK Ideograph
-<U8B1A> \xEB\xEA |0 # CJK Ideograph
-<U8AE1> \xEB\xEB |0 # CJK Ideograph
-<U8B16> \xEB\xEC |0 # CJK Ideograph
-<U8B10> \xEB\xED |0 # CJK Ideograph
-<U8B17> \xEB\xEE |0 # CJK Ideograph
-<U8B20> \xEB\xEF |0 # CJK Ideograph
-<U8B33> \xEB\xF0 |0 # CJK Ideograph
-<U97AB> \xEB\xF1 |0 # CJK Ideograph
-<U8B26> \xEB\xF2 |0 # CJK Ideograph
-<U8B2B> \xEB\xF3 |0 # CJK Ideograph
-<U8B3E> \xEB\xF4 |0 # CJK Ideograph
-<U8B28> \xEB\xF5 |0 # CJK Ideograph
-<U8B41> \xEB\xF6 |0 # CJK Ideograph
-<U8B4C> \xEB\xF7 |0 # CJK Ideograph
-<U8B4F> \xEB\xF8 |0 # CJK Ideograph
-<U8B4E> \xEB\xF9 |0 # CJK Ideograph
-<U8B49> \xEB\xFA |0 # CJK Ideograph
-<U8B56> \xEB\xFB |0 # CJK Ideograph
-<U8B5B> \xEB\xFC |0 # CJK Ideograph
-<U8B5A> \xEB\xFD |0 # CJK Ideograph
-<U8B6B> \xEB\xFE |0 # CJK Ideograph
-<U8B5F> \xEC\xA1 |0 # CJK Ideograph
-<U8B6C> \xEC\xA2 |0 # CJK Ideograph
-<U8B6F> \xEC\xA3 |0 # CJK Ideograph
-<U8B74> \xEC\xA4 |0 # CJK Ideograph
-<U8B7D> \xEC\xA5 |0 # CJK Ideograph
-<U8B80> \xEC\xA6 |0 # CJK Ideograph
-<U8B8C> \xEC\xA7 |0 # CJK Ideograph
-<U8B8E> \xEC\xA8 |0 # CJK Ideograph
-<U8B92> \xEC\xA9 |0 # CJK Ideograph
-<U8B93> \xEC\xAA |0 # CJK Ideograph
-<U8B96> \xEC\xAB |0 # CJK Ideograph
-<U8B99> \xEC\xAC |0 # CJK Ideograph
-<U8B9A> \xEC\xAD |0 # CJK Ideograph
-<U8C3A> \xEC\xAE |0 # CJK Ideograph
-<U8C41> \xEC\xAF |0 # CJK Ideograph
-<U8C3F> \xEC\xB0 |0 # CJK Ideograph
-<U8C48> \xEC\xB1 |0 # CJK Ideograph
-<U8C4C> \xEC\xB2 |0 # CJK Ideograph
-<U8C4E> \xEC\xB3 |0 # CJK Ideograph
-<U8C50> \xEC\xB4 |0 # CJK Ideograph
-<U8C55> \xEC\xB5 |0 # CJK Ideograph
-<U8C62> \xEC\xB6 |0 # CJK Ideograph
-<U8C6C> \xEC\xB7 |0 # CJK Ideograph
-<U8C78> \xEC\xB8 |0 # CJK Ideograph
-<U8C7A> \xEC\xB9 |0 # CJK Ideograph
-<U8C82> \xEC\xBA |0 # CJK Ideograph
-<U8C89> \xEC\xBB |0 # CJK Ideograph
-<U8C85> \xEC\xBC |0 # CJK Ideograph
-<U8C8A> \xEC\xBD |0 # CJK Ideograph
-<U8C8D> \xEC\xBE |0 # CJK Ideograph
-<U8C8E> \xEC\xBF |0 # CJK Ideograph
-<U8C94> \xEC\xC0 |0 # CJK Ideograph
-<U8C7C> \xEC\xC1 |0 # CJK Ideograph
-<U8C98> \xEC\xC2 |0 # CJK Ideograph
-<U621D> \xEC\xC3 |0 # CJK Ideograph
-<U8CAD> \xEC\xC4 |0 # CJK Ideograph
-<U8CAA> \xEC\xC5 |0 # CJK Ideograph
-<U8CBD> \xEC\xC6 |0 # CJK Ideograph
-<U8CB2> \xEC\xC7 |0 # CJK Ideograph
-<U8CB3> \xEC\xC8 |0 # CJK Ideograph
-<U8CAE> \xEC\xC9 |0 # CJK Ideograph
-<U8CB6> \xEC\xCA |0 # CJK Ideograph
-<U8CC8> \xEC\xCB |0 # CJK Ideograph
-<U8CC1> \xEC\xCC |0 # CJK Ideograph
-<U8CE4> \xEC\xCD |0 # CJK Ideograph
-<U8CE3> \xEC\xCE |0 # CJK Ideograph
-<U8CDA> \xEC\xCF |0 # CJK Ideograph
-<U8CFD> \xEC\xD0 |0 # CJK Ideograph
-<U8CFA> \xEC\xD1 |0 # CJK Ideograph
-<U8CFB> \xEC\xD2 |0 # CJK Ideograph
-<U8D04> \xEC\xD3 |0 # CJK Ideograph
-<U8D05> \xEC\xD4 |0 # CJK Ideograph
-<U8D0A> \xEC\xD5 |0 # CJK Ideograph
-<U8D07> \xEC\xD6 |0 # CJK Ideograph
-<U8D0F> \xEC\xD7 |0 # CJK Ideograph
-<U8D0D> \xEC\xD8 |0 # CJK Ideograph
-<U8D10> \xEC\xD9 |0 # CJK Ideograph
-<U9F4E> \xEC\xDA |0 # CJK Ideograph
-<U8D13> \xEC\xDB |0 # CJK Ideograph
-<U8CCD> \xEC\xDC |0 # CJK Ideograph
-<U8D14> \xEC\xDD |0 # CJK Ideograph
-<U8D16> \xEC\xDE |0 # CJK Ideograph
-<U8D67> \xEC\xDF |0 # CJK Ideograph
-<U8D6D> \xEC\xE0 |0 # CJK Ideograph
-<U8D71> \xEC\xE1 |0 # CJK Ideograph
-<U8D73> \xEC\xE2 |0 # CJK Ideograph
-<U8D81> \xEC\xE3 |0 # CJK Ideograph
-<U8D99> \xEC\xE4 |0 # CJK Ideograph
-<U8DC2> \xEC\xE5 |0 # CJK Ideograph
-<U8DBE> \xEC\xE6 |0 # CJK Ideograph
-<U8DBA> \xEC\xE7 |0 # CJK Ideograph
-<U8DCF> \xEC\xE8 |0 # CJK Ideograph
-<U8DDA> \xEC\xE9 |0 # CJK Ideograph
-<U8DD6> \xEC\xEA |0 # CJK Ideograph
-<U8DCC> \xEC\xEB |0 # CJK Ideograph
-<U8DDB> \xEC\xEC |0 # CJK Ideograph
-<U8DCB> \xEC\xED |0 # CJK Ideograph
-<U8DEA> \xEC\xEE |0 # CJK Ideograph
-<U8DEB> \xEC\xEF |0 # CJK Ideograph
-<U8DDF> \xEC\xF0 |0 # CJK Ideograph
-<U8DE3> \xEC\xF1 |0 # CJK Ideograph
-<U8DFC> \xEC\xF2 |0 # CJK Ideograph
-<U8E08> \xEC\xF3 |0 # CJK Ideograph
-<U8E09> \xEC\xF4 |0 # CJK Ideograph
-<U8DFF> \xEC\xF5 |0 # CJK Ideograph
-<U8E1D> \xEC\xF6 |0 # CJK Ideograph
-<U8E1E> \xEC\xF7 |0 # CJK Ideograph
-<U8E10> \xEC\xF8 |0 # CJK Ideograph
-<U8E1F> \xEC\xF9 |0 # CJK Ideograph
-<U8E42> \xEC\xFA |0 # CJK Ideograph
-<U8E35> \xEC\xFB |0 # CJK Ideograph
-<U8E30> \xEC\xFC |0 # CJK Ideograph
-<U8E34> \xEC\xFD |0 # CJK Ideograph
-<U8E4A> \xEC\xFE |0 # CJK Ideograph
-<U8E47> \xED\xA1 |0 # CJK Ideograph
-<U8E49> \xED\xA2 |0 # CJK Ideograph
-<U8E4C> \xED\xA3 |0 # CJK Ideograph
-<U8E50> \xED\xA4 |0 # CJK Ideograph
-<U8E48> \xED\xA5 |0 # CJK Ideograph
-<U8E59> \xED\xA6 |0 # CJK Ideograph
-<U8E64> \xED\xA7 |0 # CJK Ideograph
-<U8E60> \xED\xA8 |0 # CJK Ideograph
-<U8E2A> \xED\xA9 |0 # CJK Ideograph
-<U8E63> \xED\xAA |0 # CJK Ideograph
-<U8E55> \xED\xAB |0 # CJK Ideograph
-<U8E76> \xED\xAC |0 # CJK Ideograph
-<U8E72> \xED\xAD |0 # CJK Ideograph
-<U8E7C> \xED\xAE |0 # CJK Ideograph
-<U8E81> \xED\xAF |0 # CJK Ideograph
-<U8E87> \xED\xB0 |0 # CJK Ideograph
-<U8E85> \xED\xB1 |0 # CJK Ideograph
-<U8E84> \xED\xB2 |0 # CJK Ideograph
-<U8E8B> \xED\xB3 |0 # CJK Ideograph
-<U8E8A> \xED\xB4 |0 # CJK Ideograph
-<U8E93> \xED\xB5 |0 # CJK Ideograph
-<U8E91> \xED\xB6 |0 # CJK Ideograph
-<U8E94> \xED\xB7 |0 # CJK Ideograph
-<U8E99> \xED\xB8 |0 # CJK Ideograph
-<U8EAA> \xED\xB9 |0 # CJK Ideograph
-<U8EA1> \xED\xBA |0 # CJK Ideograph
-<U8EAC> \xED\xBB |0 # CJK Ideograph
-<U8EB0> \xED\xBC |0 # CJK Ideograph
-<U8EC6> \xED\xBD |0 # CJK Ideograph
-<U8EB1> \xED\xBE |0 # CJK Ideograph
-<U8EBE> \xED\xBF |0 # CJK Ideograph
-<U8EC5> \xED\xC0 |0 # CJK Ideograph
-<U8EC8> \xED\xC1 |0 # CJK Ideograph
-<U8ECB> \xED\xC2 |0 # CJK Ideograph
-<U8EDB> \xED\xC3 |0 # CJK Ideograph
-<U8EE3> \xED\xC4 |0 # CJK Ideograph
-<U8EFC> \xED\xC5 |0 # CJK Ideograph
-<U8EFB> \xED\xC6 |0 # CJK Ideograph
-<U8EEB> \xED\xC7 |0 # CJK Ideograph
-<U8EFE> \xED\xC8 |0 # CJK Ideograph
-<U8F0A> \xED\xC9 |0 # CJK Ideograph
-<U8F05> \xED\xCA |0 # CJK Ideograph
-<U8F15> \xED\xCB |0 # CJK Ideograph
-<U8F12> \xED\xCC |0 # CJK Ideograph
-<U8F19> \xED\xCD |0 # CJK Ideograph
-<U8F13> \xED\xCE |0 # CJK Ideograph
-<U8F1C> \xED\xCF |0 # CJK Ideograph
-<U8F1F> \xED\xD0 |0 # CJK Ideograph
-<U8F1B> \xED\xD1 |0 # CJK Ideograph
-<U8F0C> \xED\xD2 |0 # CJK Ideograph
-<U8F26> \xED\xD3 |0 # CJK Ideograph
-<U8F33> \xED\xD4 |0 # CJK Ideograph
-<U8F3B> \xED\xD5 |0 # CJK Ideograph
-<U8F39> \xED\xD6 |0 # CJK Ideograph
-<U8F45> \xED\xD7 |0 # CJK Ideograph
-<U8F42> \xED\xD8 |0 # CJK Ideograph
-<U8F3E> \xED\xD9 |0 # CJK Ideograph
-<U8F4C> \xED\xDA |0 # CJK Ideograph
-<U8F49> \xED\xDB |0 # CJK Ideograph
-<U8F46> \xED\xDC |0 # CJK Ideograph
-<U8F4E> \xED\xDD |0 # CJK Ideograph
-<U8F57> \xED\xDE |0 # CJK Ideograph
-<U8F5C> \xED\xDF |0 # CJK Ideograph
-<U8F62> \xED\xE0 |0 # CJK Ideograph
-<U8F63> \xED\xE1 |0 # CJK Ideograph
-<U8F64> \xED\xE2 |0 # CJK Ideograph
-<U8F9C> \xED\xE3 |0 # CJK Ideograph
-<U8F9F> \xED\xE4 |0 # CJK Ideograph
-<U8FA3> \xED\xE5 |0 # CJK Ideograph
-<U8FAD> \xED\xE6 |0 # CJK Ideograph
-<U8FAF> \xED\xE7 |0 # CJK Ideograph
-<U8FB7> \xED\xE8 |0 # CJK Ideograph
-<U8FDA> \xED\xE9 |0 # CJK Ideograph
-<U8FE5> \xED\xEA |0 # CJK Ideograph
-<U8FE2> \xED\xEB |0 # CJK Ideograph
-<U8FEA> \xED\xEC |0 # CJK Ideograph
-<U8FEF> \xED\xED |0 # CJK Ideograph
-<U9087> \xED\xEE |0 # CJK Ideograph
-<U8FF4> \xED\xEF |0 # CJK Ideograph
-<U9005> \xED\xF0 |0 # CJK Ideograph
-<U8FF9> \xED\xF1 |0 # CJK Ideograph
-<U8FFA> \xED\xF2 |0 # CJK Ideograph
-<U9011> \xED\xF3 |0 # CJK Ideograph
-<U9015> \xED\xF4 |0 # CJK Ideograph
-<U9021> \xED\xF5 |0 # CJK Ideograph
-<U900D> \xED\xF6 |0 # CJK Ideograph
-<U901E> \xED\xF7 |0 # CJK Ideograph
-<U9016> \xED\xF8 |0 # CJK Ideograph
-<U900B> \xED\xF9 |0 # CJK Ideograph
-<U9027> \xED\xFA |0 # CJK Ideograph
-<U9036> \xED\xFB |0 # CJK Ideograph
-<U9035> \xED\xFC |0 # CJK Ideograph
-<U9039> \xED\xFD |0 # CJK Ideograph
-<U8FF8> \xED\xFE |0 # CJK Ideograph
-<U904F> \xEE\xA1 |0 # CJK Ideograph
-<U9050> \xEE\xA2 |0 # CJK Ideograph
-<U9051> \xEE\xA3 |0 # CJK Ideograph
-<U9052> \xEE\xA4 |0 # CJK Ideograph
-<U900E> \xEE\xA5 |0 # CJK Ideograph
-<U9049> \xEE\xA6 |0 # CJK Ideograph
-<U903E> \xEE\xA7 |0 # CJK Ideograph
-<U9056> \xEE\xA8 |0 # CJK Ideograph
-<U9058> \xEE\xA9 |0 # CJK Ideograph
-<U905E> \xEE\xAA |0 # CJK Ideograph
-<U9068> \xEE\xAB |0 # CJK Ideograph
-<U906F> \xEE\xAC |0 # CJK Ideograph
-<U9076> \xEE\xAD |0 # CJK Ideograph
-<U96A8> \xEE\xAE |0 # CJK Ideograph
-<U9072> \xEE\xAF |0 # CJK Ideograph
-<U9082> \xEE\xB0 |0 # CJK Ideograph
-<U907D> \xEE\xB1 |0 # CJK Ideograph
-<U9081> \xEE\xB2 |0 # CJK Ideograph
-<U9080> \xEE\xB3 |0 # CJK Ideograph
-<U908A> \xEE\xB4 |0 # CJK Ideograph
-<U9089> \xEE\xB5 |0 # CJK Ideograph
-<U908F> \xEE\xB6 |0 # CJK Ideograph
-<U90A8> \xEE\xB7 |0 # CJK Ideograph
-<U90AF> \xEE\xB8 |0 # CJK Ideograph
-<U90B1> \xEE\xB9 |0 # CJK Ideograph
-<U90B5> \xEE\xBA |0 # CJK Ideograph
-<U90E2> \xEE\xBB |0 # CJK Ideograph
-<U90E4> \xEE\xBC |0 # CJK Ideograph
-<U6248> \xEE\xBD |0 # CJK Ideograph
-<U90DB> \xEE\xBE |0 # CJK Ideograph
-<U9102> \xEE\xBF |0 # CJK Ideograph
-<U9112> \xEE\xC0 |0 # CJK Ideograph
-<U9119> \xEE\xC1 |0 # CJK Ideograph
-<U9132> \xEE\xC2 |0 # CJK Ideograph
-<U9130> \xEE\xC3 |0 # CJK Ideograph
-<U914A> \xEE\xC4 |0 # CJK Ideograph
-<U9156> \xEE\xC5 |0 # CJK Ideograph
-<U9158> \xEE\xC6 |0 # CJK Ideograph
-<U9163> \xEE\xC7 |0 # CJK Ideograph
-<U9165> \xEE\xC8 |0 # CJK Ideograph
-<U9169> \xEE\xC9 |0 # CJK Ideograph
-<U9173> \xEE\xCA |0 # CJK Ideograph
-<U9172> \xEE\xCB |0 # CJK Ideograph
-<U918B> \xEE\xCC |0 # CJK Ideograph
-<U9189> \xEE\xCD |0 # CJK Ideograph
-<U9182> \xEE\xCE |0 # CJK Ideograph
-<U91A2> \xEE\xCF |0 # CJK Ideograph
-<U91AB> \xEE\xD0 |0 # CJK Ideograph
-<U91AF> \xEE\xD1 |0 # CJK Ideograph
-<U91AA> \xEE\xD2 |0 # CJK Ideograph
-<U91B5> \xEE\xD3 |0 # CJK Ideograph
-<U91B4> \xEE\xD4 |0 # CJK Ideograph
-<U91BA> \xEE\xD5 |0 # CJK Ideograph
-<U91C0> \xEE\xD6 |0 # CJK Ideograph
-<U91C1> \xEE\xD7 |0 # CJK Ideograph
-<U91C9> \xEE\xD8 |0 # CJK Ideograph
-<U91CB> \xEE\xD9 |0 # CJK Ideograph
-<U91D0> \xEE\xDA |0 # CJK Ideograph
-<U91D6> \xEE\xDB |0 # CJK Ideograph
-<U91DF> \xEE\xDC |0 # CJK Ideograph
-<U91E1> \xEE\xDD |0 # CJK Ideograph
-<U91DB> \xEE\xDE |0 # CJK Ideograph
-<U91FC> \xEE\xDF |0 # CJK Ideograph
-<U91F5> \xEE\xE0 |0 # CJK Ideograph
-<U91F6> \xEE\xE1 |0 # CJK Ideograph
-<U921E> \xEE\xE2 |0 # CJK Ideograph
-<U91FF> \xEE\xE3 |0 # CJK Ideograph
-<U9214> \xEE\xE4 |0 # CJK Ideograph
-<U922C> \xEE\xE5 |0 # CJK Ideograph
-<U9215> \xEE\xE6 |0 # CJK Ideograph
-<U9211> \xEE\xE7 |0 # CJK Ideograph
-<U925E> \xEE\xE8 |0 # CJK Ideograph
-<U9257> \xEE\xE9 |0 # CJK Ideograph
-<U9245> \xEE\xEA |0 # CJK Ideograph
-<U9249> \xEE\xEB |0 # CJK Ideograph
-<U9264> \xEE\xEC |0 # CJK Ideograph
-<U9248> \xEE\xED |0 # CJK Ideograph
-<U9295> \xEE\xEE |0 # CJK Ideograph
-<U923F> \xEE\xEF |0 # CJK Ideograph
-<U924B> \xEE\xF0 |0 # CJK Ideograph
-<U9250> \xEE\xF1 |0 # CJK Ideograph
-<U929C> \xEE\xF2 |0 # CJK Ideograph
-<U9296> \xEE\xF3 |0 # CJK Ideograph
-<U9293> \xEE\xF4 |0 # CJK Ideograph
-<U929B> \xEE\xF5 |0 # CJK Ideograph
-<U925A> \xEE\xF6 |0 # CJK Ideograph
-<U92CF> \xEE\xF7 |0 # CJK Ideograph
-<U92B9> \xEE\xF8 |0 # CJK Ideograph
-<U92B7> \xEE\xF9 |0 # CJK Ideograph
-<U92E9> \xEE\xFA |0 # CJK Ideograph
-<U930F> \xEE\xFB |0 # CJK Ideograph
-<U92FA> \xEE\xFC |0 # CJK Ideograph
-<U9344> \xEE\xFD |0 # CJK Ideograph
-<U932E> \xEE\xFE |0 # CJK Ideograph
-<U9319> \xEF\xA1 |0 # CJK Ideograph
-<U9322> \xEF\xA2 |0 # CJK Ideograph
-<U931A> \xEF\xA3 |0 # CJK Ideograph
-<U9323> \xEF\xA4 |0 # CJK Ideograph
-<U933A> \xEF\xA5 |0 # CJK Ideograph
-<U9335> \xEF\xA6 |0 # CJK Ideograph
-<U933B> \xEF\xA7 |0 # CJK Ideograph
-<U935C> \xEF\xA8 |0 # CJK Ideograph
-<U9360> \xEF\xA9 |0 # CJK Ideograph
-<U937C> \xEF\xAA |0 # CJK Ideograph
-<U936E> \xEF\xAB |0 # CJK Ideograph
-<U9356> \xEF\xAC |0 # CJK Ideograph
-<U93B0> \xEF\xAD |0 # CJK Ideograph
-<U93AC> \xEF\xAE |0 # CJK Ideograph
-<U93AD> \xEF\xAF |0 # CJK Ideograph
-<U9394> \xEF\xB0 |0 # CJK Ideograph
-<U93B9> \xEF\xB1 |0 # CJK Ideograph
-<U93D6> \xEF\xB2 |0 # CJK Ideograph
-<U93D7> \xEF\xB3 |0 # CJK Ideograph
-<U93E8> \xEF\xB4 |0 # CJK Ideograph
-<U93E5> \xEF\xB5 |0 # CJK Ideograph
-<U93D8> \xEF\xB6 |0 # CJK Ideograph
-<U93C3> \xEF\xB7 |0 # CJK Ideograph
-<U93DD> \xEF\xB8 |0 # CJK Ideograph
-<U93D0> \xEF\xB9 |0 # CJK Ideograph
-<U93C8> \xEF\xBA |0 # CJK Ideograph
-<U93E4> \xEF\xBB |0 # CJK Ideograph
-<U941A> \xEF\xBC |0 # CJK Ideograph
-<U9414> \xEF\xBD |0 # CJK Ideograph
-<U9413> \xEF\xBE |0 # CJK Ideograph
-<U9403> \xEF\xBF |0 # CJK Ideograph
-<U9407> \xEF\xC0 |0 # CJK Ideograph
-<U9410> \xEF\xC1 |0 # CJK Ideograph
-<U9436> \xEF\xC2 |0 # CJK Ideograph
-<U942B> \xEF\xC3 |0 # CJK Ideograph
-<U9435> \xEF\xC4 |0 # CJK Ideograph
-<U9421> \xEF\xC5 |0 # CJK Ideograph
-<U943A> \xEF\xC6 |0 # CJK Ideograph
-<U9441> \xEF\xC7 |0 # CJK Ideograph
-<U9452> \xEF\xC8 |0 # CJK Ideograph
-<U9444> \xEF\xC9 |0 # CJK Ideograph
-<U945B> \xEF\xCA |0 # CJK Ideograph
-<U9460> \xEF\xCB |0 # CJK Ideograph
-<U9462> \xEF\xCC |0 # CJK Ideograph
-<U945E> \xEF\xCD |0 # CJK Ideograph
-<U946A> \xEF\xCE |0 # CJK Ideograph
-<U9229> \xEF\xCF |0 # CJK Ideograph
-<U9470> \xEF\xD0 |0 # CJK Ideograph
-<U9475> \xEF\xD1 |0 # CJK Ideograph
-<U9477> \xEF\xD2 |0 # CJK Ideograph
-<U947D> \xEF\xD3 |0 # CJK Ideograph
-<U945A> \xEF\xD4 |0 # CJK Ideograph
-<U947C> \xEF\xD5 |0 # CJK Ideograph
-<U947E> \xEF\xD6 |0 # CJK Ideograph
-<U9481> \xEF\xD7 |0 # CJK Ideograph
-<U947F> \xEF\xD8 |0 # CJK Ideograph
-<U9582> \xEF\xD9 |0 # CJK Ideograph
-<U9587> \xEF\xDA |0 # CJK Ideograph
-<U958A> \xEF\xDB |0 # CJK Ideograph
-<U9594> \xEF\xDC |0 # CJK Ideograph
-<U9596> \xEF\xDD |0 # CJK Ideograph
-<U9598> \xEF\xDE |0 # CJK Ideograph
-<U9599> \xEF\xDF |0 # CJK Ideograph
-<U95A0> \xEF\xE0 |0 # CJK Ideograph
-<U95A8> \xEF\xE1 |0 # CJK Ideograph
-<U95A7> \xEF\xE2 |0 # CJK Ideograph
-<U95AD> \xEF\xE3 |0 # CJK Ideograph
-<U95BC> \xEF\xE4 |0 # CJK Ideograph
-<U95BB> \xEF\xE5 |0 # CJK Ideograph
-<U95B9> \xEF\xE6 |0 # CJK Ideograph
-<U95BE> \xEF\xE7 |0 # CJK Ideograph
-<U95CA> \xEF\xE8 |0 # CJK Ideograph
-<U6FF6> \xEF\xE9 |0 # CJK Ideograph
-<U95C3> \xEF\xEA |0 # CJK Ideograph
-<U95CD> \xEF\xEB |0 # CJK Ideograph
-<U95CC> \xEF\xEC |0 # CJK Ideograph
-<U95D5> \xEF\xED |0 # CJK Ideograph
-<U95D4> \xEF\xEE |0 # CJK Ideograph
-<U95D6> \xEF\xEF |0 # CJK Ideograph
-<U95DC> \xEF\xF0 |0 # CJK Ideograph
-<U95E1> \xEF\xF1 |0 # CJK Ideograph
-<U95E5> \xEF\xF2 |0 # CJK Ideograph
-<U95E2> \xEF\xF3 |0 # CJK Ideograph
-<U9621> \xEF\xF4 |0 # CJK Ideograph
-<U9628> \xEF\xF5 |0 # CJK Ideograph
-<U962E> \xEF\xF6 |0 # CJK Ideograph
-<U962F> \xEF\xF7 |0 # CJK Ideograph
-<U9642> \xEF\xF8 |0 # CJK Ideograph
-<U964C> \xEF\xF9 |0 # CJK Ideograph
-<U964F> \xEF\xFA |0 # CJK Ideograph
-<U964B> \xEF\xFB |0 # CJK Ideograph
-<U9677> \xEF\xFC |0 # CJK Ideograph
-<U965C> \xEF\xFD |0 # CJK Ideograph
-<U965E> \xEF\xFE |0 # CJK Ideograph
-<U965D> \xF0\xA1 |0 # CJK Ideograph
-<U965F> \xF0\xA2 |0 # CJK Ideograph
-<U9666> \xF0\xA3 |0 # CJK Ideograph
-<U9672> \xF0\xA4 |0 # CJK Ideograph
-<U966C> \xF0\xA5 |0 # CJK Ideograph
-<U968D> \xF0\xA6 |0 # CJK Ideograph
-<U9698> \xF0\xA7 |0 # CJK Ideograph
-<U9695> \xF0\xA8 |0 # CJK Ideograph
-<U9697> \xF0\xA9 |0 # CJK Ideograph
-<U96AA> \xF0\xAA |0 # CJK Ideograph
-<U96A7> \xF0\xAB |0 # CJK Ideograph
-<U96B1> \xF0\xAC |0 # CJK Ideograph
-<U96B2> \xF0\xAD |0 # CJK Ideograph
-<U96B0> \xF0\xAE |0 # CJK Ideograph
-<U96B4> \xF0\xAF |0 # CJK Ideograph
-<U96B6> \xF0\xB0 |0 # CJK Ideograph
-<U96B8> \xF0\xB1 |0 # CJK Ideograph
-<U96B9> \xF0\xB2 |0 # CJK Ideograph
-<U96CE> \xF0\xB3 |0 # CJK Ideograph
-<U96CB> \xF0\xB4 |0 # CJK Ideograph
-<U96C9> \xF0\xB5 |0 # CJK Ideograph
-<U96CD> \xF0\xB6 |0 # CJK Ideograph
-<U894D> \xF0\xB7 |0 # CJK Ideograph
-<U96DC> \xF0\xB8 |0 # CJK Ideograph
-<U970D> \xF0\xB9 |0 # CJK Ideograph
-<U96D5> \xF0\xBA |0 # CJK Ideograph
-<U96F9> \xF0\xBB |0 # CJK Ideograph
-<U9704> \xF0\xBC |0 # CJK Ideograph
-<U9706> \xF0\xBD |0 # CJK Ideograph
-<U9708> \xF0\xBE |0 # CJK Ideograph
-<U9713> \xF0\xBF |0 # CJK Ideograph
-<U970E> \xF0\xC0 |0 # CJK Ideograph
-<U9711> \xF0\xC1 |0 # CJK Ideograph
-<U970F> \xF0\xC2 |0 # CJK Ideograph
-<U9716> \xF0\xC3 |0 # CJK Ideograph
-<U9719> \xF0\xC4 |0 # CJK Ideograph
-<U9724> \xF0\xC5 |0 # CJK Ideograph
-<U972A> \xF0\xC6 |0 # CJK Ideograph
-<U9730> \xF0\xC7 |0 # CJK Ideograph
-<U9739> \xF0\xC8 |0 # CJK Ideograph
-<U973D> \xF0\xC9 |0 # CJK Ideograph
-<U973E> \xF0\xCA |0 # CJK Ideograph
-<U9744> \xF0\xCB |0 # CJK Ideograph
-<U9746> \xF0\xCC |0 # CJK Ideograph
-<U9748> \xF0\xCD |0 # CJK Ideograph
-<U9742> \xF0\xCE |0 # CJK Ideograph
-<U9749> \xF0\xCF |0 # CJK Ideograph
-<U975C> \xF0\xD0 |0 # CJK Ideograph
-<U9760> \xF0\xD1 |0 # CJK Ideograph
-<U9764> \xF0\xD2 |0 # CJK Ideograph
-<U9766> \xF0\xD3 |0 # CJK Ideograph
-<U9768> \xF0\xD4 |0 # CJK Ideograph
-<U52D2> \xF0\xD5 |0 # CJK Ideograph
-<U976B> \xF0\xD6 |0 # CJK Ideograph
-<U9771> \xF0\xD7 |0 # CJK Ideograph
-<U9779> \xF0\xD8 |0 # CJK Ideograph
-<U9785> \xF0\xD9 |0 # CJK Ideograph
-<U977C> \xF0\xDA |0 # CJK Ideograph
-<U9781> \xF0\xDB |0 # CJK Ideograph
-<U977A> \xF0\xDC |0 # CJK Ideograph
-<U9786> \xF0\xDD |0 # CJK Ideograph
-<U978B> \xF0\xDE |0 # CJK Ideograph
-<U978F> \xF0\xDF |0 # CJK Ideograph
-<U9790> \xF0\xE0 |0 # CJK Ideograph
-<U979C> \xF0\xE1 |0 # CJK Ideograph
-<U97A8> \xF0\xE2 |0 # CJK Ideograph
-<U97A6> \xF0\xE3 |0 # CJK Ideograph
-<U97A3> \xF0\xE4 |0 # CJK Ideograph
-<U97B3> \xF0\xE5 |0 # CJK Ideograph
-<U97B4> \xF0\xE6 |0 # CJK Ideograph
-<U97C3> \xF0\xE7 |0 # CJK Ideograph
-<U97C6> \xF0\xE8 |0 # CJK Ideograph
-<U97C8> \xF0\xE9 |0 # CJK Ideograph
-<U97CB> \xF0\xEA |0 # CJK Ideograph
-<U97DC> \xF0\xEB |0 # CJK Ideograph
-<U97ED> \xF0\xEC |0 # CJK Ideograph
-<U9F4F> \xF0\xED |0 # CJK Ideograph
-<U97F2> \xF0\xEE |0 # CJK Ideograph
-<U7ADF> \xF0\xEF |0 # CJK Ideograph
-<U97F6> \xF0\xF0 |0 # CJK Ideograph
-<U97F5> \xF0\xF1 |0 # CJK Ideograph
-<U980F> \xF0\xF2 |0 # CJK Ideograph
-<U980C> \xF0\xF3 |0 # CJK Ideograph
-<U9838> \xF0\xF4 |0 # CJK Ideograph
-<U9824> \xF0\xF5 |0 # CJK Ideograph
-<U9821> \xF0\xF6 |0 # CJK Ideograph
-<U9837> \xF0\xF7 |0 # CJK Ideograph
-<U983D> \xF0\xF8 |0 # CJK Ideograph
-<U9846> \xF0\xF9 |0 # CJK Ideograph
-<U984F> \xF0\xFA |0 # CJK Ideograph
-<U984B> \xF0\xFB |0 # CJK Ideograph
-<U986B> \xF0\xFC |0 # CJK Ideograph
-<U986F> \xF0\xFD |0 # CJK Ideograph
-<U9870> \xF0\xFE |0 # CJK Ideograph
-<U9871> \xF1\xA1 |0 # CJK Ideograph
-<U9874> \xF1\xA2 |0 # CJK Ideograph
-<U9873> \xF1\xA3 |0 # CJK Ideograph
-<U98AA> \xF1\xA4 |0 # CJK Ideograph
-<U98AF> \xF1\xA5 |0 # CJK Ideograph
-<U98B1> \xF1\xA6 |0 # CJK Ideograph
-<U98B6> \xF1\xA7 |0 # CJK Ideograph
-<U98C4> \xF1\xA8 |0 # CJK Ideograph
-<U98C3> \xF1\xA9 |0 # CJK Ideograph
-<U98C6> \xF1\xAA |0 # CJK Ideograph
-<U98E9> \xF1\xAB |0 # CJK Ideograph
-<U98EB> \xF1\xAC |0 # CJK Ideograph
-<U9903> \xF1\xAD |0 # CJK Ideograph
-<U9909> \xF1\xAE |0 # CJK Ideograph
-<U9912> \xF1\xAF |0 # CJK Ideograph
-<U9914> \xF1\xB0 |0 # CJK Ideograph
-<U9918> \xF1\xB1 |0 # CJK Ideograph
-<U9921> \xF1\xB2 |0 # CJK Ideograph
-<U991D> \xF1\xB3 |0 # CJK Ideograph
-<U991E> \xF1\xB4 |0 # CJK Ideograph
-<U9924> \xF1\xB5 |0 # CJK Ideograph
-<U9920> \xF1\xB6 |0 # CJK Ideograph
-<U992C> \xF1\xB7 |0 # CJK Ideograph
-<U992E> \xF1\xB8 |0 # CJK Ideograph
-<U993D> \xF1\xB9 |0 # CJK Ideograph
-<U993E> \xF1\xBA |0 # CJK Ideograph
-<U9942> \xF1\xBB |0 # CJK Ideograph
-<U9949> \xF1\xBC |0 # CJK Ideograph
-<U9945> \xF1\xBD |0 # CJK Ideograph
-<U9950> \xF1\xBE |0 # CJK Ideograph
-<U994B> \xF1\xBF |0 # CJK Ideograph
-<U9951> \xF1\xC0 |0 # CJK Ideograph
-<U9952> \xF1\xC1 |0 # CJK Ideograph
-<U994C> \xF1\xC2 |0 # CJK Ideograph
-<U9955> \xF1\xC3 |0 # CJK Ideograph
-<U9997> \xF1\xC4 |0 # CJK Ideograph
-<U9998> \xF1\xC5 |0 # CJK Ideograph
-<U99A5> \xF1\xC6 |0 # CJK Ideograph
-<U99AD> \xF1\xC7 |0 # CJK Ideograph
-<U99AE> \xF1\xC8 |0 # CJK Ideograph
-<U99BC> \xF1\xC9 |0 # CJK Ideograph
-<U99DF> \xF1\xCA |0 # CJK Ideograph
-<U99DB> \xF1\xCB |0 # CJK Ideograph
-<U99DD> \xF1\xCC |0 # CJK Ideograph
-<U99D8> \xF1\xCD |0 # CJK Ideograph
-<U99D1> \xF1\xCE |0 # CJK Ideograph
-<U99ED> \xF1\xCF |0 # CJK Ideograph
-<U99EE> \xF1\xD0 |0 # CJK Ideograph
-<U99F1> \xF1\xD1 |0 # CJK Ideograph
-<U99F2> \xF1\xD2 |0 # CJK Ideograph
-<U99FB> \xF1\xD3 |0 # CJK Ideograph
-<U99F8> \xF1\xD4 |0 # CJK Ideograph
-<U9A01> \xF1\xD5 |0 # CJK Ideograph
-<U9A0F> \xF1\xD6 |0 # CJK Ideograph
-<U9A05> \xF1\xD7 |0 # CJK Ideograph
-<U99E2> \xF1\xD8 |0 # CJK Ideograph
-<U9A19> \xF1\xD9 |0 # CJK Ideograph
-<U9A2B> \xF1\xDA |0 # CJK Ideograph
-<U9A37> \xF1\xDB |0 # CJK Ideograph
-<U9A45> \xF1\xDC |0 # CJK Ideograph
-<U9A42> \xF1\xDD |0 # CJK Ideograph
-<U9A40> \xF1\xDE |0 # CJK Ideograph
-<U9A43> \xF1\xDF |0 # CJK Ideograph
-<U9A3E> \xF1\xE0 |0 # CJK Ideograph
-<U9A55> \xF1\xE1 |0 # CJK Ideograph
-<U9A4D> \xF1\xE2 |0 # CJK Ideograph
-<U9A5B> \xF1\xE3 |0 # CJK Ideograph
-<U9A57> \xF1\xE4 |0 # CJK Ideograph
-<U9A5F> \xF1\xE5 |0 # CJK Ideograph
-<U9A62> \xF1\xE6 |0 # CJK Ideograph
-<U9A65> \xF1\xE7 |0 # CJK Ideograph
-<U9A64> \xF1\xE8 |0 # CJK Ideograph
-<U9A69> \xF1\xE9 |0 # CJK Ideograph
-<U9A6B> \xF1\xEA |0 # CJK Ideograph
-<U9A6A> \xF1\xEB |0 # CJK Ideograph
-<U9AAD> \xF1\xEC |0 # CJK Ideograph
-<U9AB0> \xF1\xED |0 # CJK Ideograph
-<U9ABC> \xF1\xEE |0 # CJK Ideograph
-<U9AC0> \xF1\xEF |0 # CJK Ideograph
-<U9ACF> \xF1\xF0 |0 # CJK Ideograph
-<U9AD1> \xF1\xF1 |0 # CJK Ideograph
-<U9AD3> \xF1\xF2 |0 # CJK Ideograph
-<U9AD4> \xF1\xF3 |0 # CJK Ideograph
-<U9ADE> \xF1\xF4 |0 # CJK Ideograph
-<U9ADF> \xF1\xF5 |0 # CJK Ideograph
-<U9AE2> \xF1\xF6 |0 # CJK Ideograph
-<U9AE3> \xF1\xF7 |0 # CJK Ideograph
-<U9AE6> \xF1\xF8 |0 # CJK Ideograph
-<U9AEF> \xF1\xF9 |0 # CJK Ideograph
-<U9AEB> \xF1\xFA |0 # CJK Ideograph
-<U9AEE> \xF1\xFB |0 # CJK Ideograph
-<U9AF4> \xF1\xFC |0 # CJK Ideograph
-<U9AF1> \xF1\xFD |0 # CJK Ideograph
-<U9AF7> \xF1\xFE |0 # CJK Ideograph
-<U9AFB> \xF2\xA1 |0 # CJK Ideograph
-<U9B06> \xF2\xA2 |0 # CJK Ideograph
-<U9B18> \xF2\xA3 |0 # CJK Ideograph
-<U9B1A> \xF2\xA4 |0 # CJK Ideograph
-<U9B1F> \xF2\xA5 |0 # CJK Ideograph
-<U9B22> \xF2\xA6 |0 # CJK Ideograph
-<U9B23> \xF2\xA7 |0 # CJK Ideograph
-<U9B25> \xF2\xA8 |0 # CJK Ideograph
-<U9B27> \xF2\xA9 |0 # CJK Ideograph
-<U9B28> \xF2\xAA |0 # CJK Ideograph
-<U9B29> \xF2\xAB |0 # CJK Ideograph
-<U9B2A> \xF2\xAC |0 # CJK Ideograph
-<U9B2E> \xF2\xAD |0 # CJK Ideograph
-<U9B2F> \xF2\xAE |0 # CJK Ideograph
-<U9B32> \xF2\xAF |0 # CJK Ideograph
-<U9B44> \xF2\xB0 |0 # CJK Ideograph
-<U9B43> \xF2\xB1 |0 # CJK Ideograph
-<U9B4F> \xF2\xB2 |0 # CJK Ideograph
-<U9B4D> \xF2\xB3 |0 # CJK Ideograph
-<U9B4E> \xF2\xB4 |0 # CJK Ideograph
-<U9B51> \xF2\xB5 |0 # CJK Ideograph
-<U9B58> \xF2\xB6 |0 # CJK Ideograph
-<U9B74> \xF2\xB7 |0 # CJK Ideograph
-<U9B93> \xF2\xB8 |0 # CJK Ideograph
-<U9B83> \xF2\xB9 |0 # CJK Ideograph
-<U9B91> \xF2\xBA |0 # CJK Ideograph
-<U9B96> \xF2\xBB |0 # CJK Ideograph
-<U9B97> \xF2\xBC |0 # CJK Ideograph
-<U9B9F> \xF2\xBD |0 # CJK Ideograph
-<U9BA0> \xF2\xBE |0 # CJK Ideograph
-<U9BA8> \xF2\xBF |0 # CJK Ideograph
-<U9BB4> \xF2\xC0 |0 # CJK Ideograph
-<U9BC0> \xF2\xC1 |0 # CJK Ideograph
-<U9BCA> \xF2\xC2 |0 # CJK Ideograph
-<U9BB9> \xF2\xC3 |0 # CJK Ideograph
-<U9BC6> \xF2\xC4 |0 # CJK Ideograph
-<U9BCF> \xF2\xC5 |0 # CJK Ideograph
-<U9BD1> \xF2\xC6 |0 # CJK Ideograph
-<U9BD2> \xF2\xC7 |0 # CJK Ideograph
-<U9BE3> \xF2\xC8 |0 # CJK Ideograph
-<U9BE2> \xF2\xC9 |0 # CJK Ideograph
-<U9BE4> \xF2\xCA |0 # CJK Ideograph
-<U9BD4> \xF2\xCB |0 # CJK Ideograph
-<U9BE1> \xF2\xCC |0 # CJK Ideograph
-<U9C3A> \xF2\xCD |0 # CJK Ideograph
-<U9BF2> \xF2\xCE |0 # CJK Ideograph
-<U9BF1> \xF2\xCF |0 # CJK Ideograph
-<U9BF0> \xF2\xD0 |0 # CJK Ideograph
-<U9C15> \xF2\xD1 |0 # CJK Ideograph
-<U9C14> \xF2\xD2 |0 # CJK Ideograph
-<U9C09> \xF2\xD3 |0 # CJK Ideograph
-<U9C13> \xF2\xD4 |0 # CJK Ideograph
-<U9C0C> \xF2\xD5 |0 # CJK Ideograph
-<U9C06> \xF2\xD6 |0 # CJK Ideograph
-<U9C08> \xF2\xD7 |0 # CJK Ideograph
-<U9C12> \xF2\xD8 |0 # CJK Ideograph
-<U9C0A> \xF2\xD9 |0 # CJK Ideograph
-<U9C04> \xF2\xDA |0 # CJK Ideograph
-<U9C2E> \xF2\xDB |0 # CJK Ideograph
-<U9C1B> \xF2\xDC |0 # CJK Ideograph
-<U9C25> \xF2\xDD |0 # CJK Ideograph
-<U9C24> \xF2\xDE |0 # CJK Ideograph
-<U9C21> \xF2\xDF |0 # CJK Ideograph
-<U9C30> \xF2\xE0 |0 # CJK Ideograph
-<U9C47> \xF2\xE1 |0 # CJK Ideograph
-<U9C32> \xF2\xE2 |0 # CJK Ideograph
-<U9C46> \xF2\xE3 |0 # CJK Ideograph
-<U9C3E> \xF2\xE4 |0 # CJK Ideograph
-<U9C5A> \xF2\xE5 |0 # CJK Ideograph
-<U9C60> \xF2\xE6 |0 # CJK Ideograph
-<U9C67> \xF2\xE7 |0 # CJK Ideograph
-<U9C76> \xF2\xE8 |0 # CJK Ideograph
-<U9C78> \xF2\xE9 |0 # CJK Ideograph
-<U9CE7> \xF2\xEA |0 # CJK Ideograph
-<U9CEC> \xF2\xEB |0 # CJK Ideograph
-<U9CF0> \xF2\xEC |0 # CJK Ideograph
-<U9D09> \xF2\xED |0 # CJK Ideograph
-<U9D08> \xF2\xEE |0 # CJK Ideograph
-<U9CEB> \xF2\xEF |0 # CJK Ideograph
-<U9D03> \xF2\xF0 |0 # CJK Ideograph
-<U9D06> \xF2\xF1 |0 # CJK Ideograph
-<U9D2A> \xF2\xF2 |0 # CJK Ideograph
-<U9D26> \xF2\xF3 |0 # CJK Ideograph
-<U9DAF> \xF2\xF4 |0 # CJK Ideograph
-<U9D23> \xF2\xF5 |0 # CJK Ideograph
-<U9D1F> \xF2\xF6 |0 # CJK Ideograph
-<U9D44> \xF2\xF7 |0 # CJK Ideograph
-<U9D15> \xF2\xF8 |0 # CJK Ideograph
-<U9D12> \xF2\xF9 |0 # CJK Ideograph
-<U9D41> \xF2\xFA |0 # CJK Ideograph
-<U9D3F> \xF2\xFB |0 # CJK Ideograph
-<U9D3E> \xF2\xFC |0 # CJK Ideograph
-<U9D46> \xF2\xFD |0 # CJK Ideograph
-<U9D48> \xF2\xFE |0 # CJK Ideograph
-<U9D5D> \xF3\xA1 |0 # CJK Ideograph
-<U9D5E> \xF3\xA2 |0 # CJK Ideograph
-<U9D64> \xF3\xA3 |0 # CJK Ideograph
-<U9D51> \xF3\xA4 |0 # CJK Ideograph
-<U9D50> \xF3\xA5 |0 # CJK Ideograph
-<U9D59> \xF3\xA6 |0 # CJK Ideograph
-<U9D72> \xF3\xA7 |0 # CJK Ideograph
-<U9D89> \xF3\xA8 |0 # CJK Ideograph
-<U9D87> \xF3\xA9 |0 # CJK Ideograph
-<U9DAB> \xF3\xAA |0 # CJK Ideograph
-<U9D6F> \xF3\xAB |0 # CJK Ideograph
-<U9D7A> \xF3\xAC |0 # CJK Ideograph
-<U9D9A> \xF3\xAD |0 # CJK Ideograph
-<U9DA4> \xF3\xAE |0 # CJK Ideograph
-<U9DA9> \xF3\xAF |0 # CJK Ideograph
-<U9DB2> \xF3\xB0 |0 # CJK Ideograph
-<U9DC4> \xF3\xB1 |0 # CJK Ideograph
-<U9DC1> \xF3\xB2 |0 # CJK Ideograph
-<U9DBB> \xF3\xB3 |0 # CJK Ideograph
-<U9DB8> \xF3\xB4 |0 # CJK Ideograph
-<U9DBA> \xF3\xB5 |0 # CJK Ideograph
-<U9DC6> \xF3\xB6 |0 # CJK Ideograph
-<U9DCF> \xF3\xB7 |0 # CJK Ideograph
-<U9DC2> \xF3\xB8 |0 # CJK Ideograph
-<U9DD9> \xF3\xB9 |0 # CJK Ideograph
-<U9DD3> \xF3\xBA |0 # CJK Ideograph
-<U9DF8> \xF3\xBB |0 # CJK Ideograph
-<U9DE6> \xF3\xBC |0 # CJK Ideograph
-<U9DED> \xF3\xBD |0 # CJK Ideograph
-<U9DEF> \xF3\xBE |0 # CJK Ideograph
-<U9DFD> \xF3\xBF |0 # CJK Ideograph
-<U9E1A> \xF3\xC0 |0 # CJK Ideograph
-<U9E1B> \xF3\xC1 |0 # CJK Ideograph
-<U9E1E> \xF3\xC2 |0 # CJK Ideograph
-<U9E75> \xF3\xC3 |0 # CJK Ideograph
-<U9E79> \xF3\xC4 |0 # CJK Ideograph
-<U9E7D> \xF3\xC5 |0 # CJK Ideograph
-<U9E81> \xF3\xC6 |0 # CJK Ideograph
-<U9E88> \xF3\xC7 |0 # CJK Ideograph
-<U9E8B> \xF3\xC8 |0 # CJK Ideograph
-<U9E8C> \xF3\xC9 |0 # CJK Ideograph
-<U9E92> \xF3\xCA |0 # CJK Ideograph
-<U9E95> \xF3\xCB |0 # CJK Ideograph
-<U9E91> \xF3\xCC |0 # CJK Ideograph
-<U9E9D> \xF3\xCD |0 # CJK Ideograph
-<U9EA5> \xF3\xCE |0 # CJK Ideograph
-<U9EA9> \xF3\xCF |0 # CJK Ideograph
-<U9EB8> \xF3\xD0 |0 # CJK Ideograph
-<U9EAA> \xF3\xD1 |0 # CJK Ideograph
-<U9EAD> \xF3\xD2 |0 # CJK Ideograph
-<U9761> \xF3\xD3 |0 # CJK Ideograph
-<U9ECC> \xF3\xD4 |0 # CJK Ideograph
-<U9ECE> \xF3\xD5 |0 # CJK Ideograph
-<U9ECF> \xF3\xD6 |0 # CJK Ideograph
-<U9ED0> \xF3\xD7 |0 # CJK Ideograph
-<U9ED4> \xF3\xD8 |0 # CJK Ideograph
-<U9EDC> \xF3\xD9 |0 # CJK Ideograph
-<U9EDE> \xF3\xDA |0 # CJK Ideograph
-<U9EDD> \xF3\xDB |0 # CJK Ideograph
-<U9EE0> \xF3\xDC |0 # CJK Ideograph
-<U9EE5> \xF3\xDD |0 # CJK Ideograph
-<U9EE8> \xF3\xDE |0 # CJK Ideograph
-<U9EEF> \xF3\xDF |0 # CJK Ideograph
-<U9EF4> \xF3\xE0 |0 # CJK Ideograph
-<U9EF6> \xF3\xE1 |0 # CJK Ideograph
-<U9EF7> \xF3\xE2 |0 # CJK Ideograph
-<U9EF9> \xF3\xE3 |0 # CJK Ideograph
-<U9EFB> \xF3\xE4 |0 # CJK Ideograph
-<U9EFC> \xF3\xE5 |0 # CJK Ideograph
-<U9EFD> \xF3\xE6 |0 # CJK Ideograph
-<U9F07> \xF3\xE7 |0 # CJK Ideograph
-<U9F08> \xF3\xE8 |0 # CJK Ideograph
-<U76B7> \xF3\xE9 |0 # CJK Ideograph
-<U9F15> \xF3\xEA |0 # CJK Ideograph
-<U9F21> \xF3\xEB |0 # CJK Ideograph
-<U9F2C> \xF3\xEC |0 # CJK Ideograph
-<U9F3E> \xF3\xED |0 # CJK Ideograph
-<U9F4A> \xF3\xEE |0 # CJK Ideograph
-<U9F52> \xF3\xEF |0 # CJK Ideograph
-<U9F54> \xF3\xF0 |0 # CJK Ideograph
-<U9F63> \xF3\xF1 |0 # CJK Ideograph
-<U9F5F> \xF3\xF2 |0 # CJK Ideograph
-<U9F60> \xF3\xF3 |0 # CJK Ideograph
-<U9F61> \xF3\xF4 |0 # CJK Ideograph
-<U9F66> \xF3\xF5 |0 # CJK Ideograph
-<U9F67> \xF3\xF6 |0 # CJK Ideograph
-<U9F6C> \xF3\xF7 |0 # CJK Ideograph
-<U9F6A> \xF3\xF8 |0 # CJK Ideograph
-<U9F77> \xF3\xF9 |0 # CJK Ideograph
-<U9F72> \xF3\xFA |0 # CJK Ideograph
-<U9F76> \xF3\xFB |0 # CJK Ideograph
-<U9F95> \xF3\xFC |0 # CJK Ideograph
-<U9F9C> \xF3\xFD |0 # CJK Ideograph
-<U9FA0> \xF3\xFE |0 # CJK Ideograph
-<U582F> \xF4\xA1 |0 # CJK Ideograph
-<U69C7> \xF4\xA2 |0 # CJK Ideograph
-<U9059> \xF4\xA3 |0 # CJK Ideograph
-<U7464> \xF4\xA4 |0 # CJK Ideograph
-<U51DC> \xF4\xA5 |0 # CJK Ideograph
-<U7199> \xF4\xA6 |0 # CJK Ideograph
-#
-# JIS X 0212:1990
-#
-<U02D8> \x8F\xA2\xAF |0 # BREVE
-<U02C7> \x8F\xA2\xB0 |0 # CARON
-<U00B8> \x8F\xA2\xB1 |0 # CEDILLA
-<U02D9> \x8F\xA2\xB2 |0 # DOT ABOVE
-<U02DD> \x8F\xA2\xB3 |0 # DOUBLE ACUTE ACCENT
-<U00AF> \x8F\xA2\xB4 |0 # MACRON
-<U02DB> \x8F\xA2\xB5 |0 # OGONEK
-<U02DA> \x8F\xA2\xB6 |0 # RING ABOVE
-<U0384> \x8F\xA2\xB8 |0 # GREEK TONOS
-<U0385> \x8F\xA2\xB9 |0 # GREEK DIALYTIKA TONOS
-<U00A1> \x8F\xA2\xC2 |0 # INVERTED EXCLAMATION MARK
-<U00A6> \x8F\xA2\xC3 |0 # BROKEN BAR
-<U00BF> \x8F\xA2\xC4 |0 # INVERTED QUESTION MARK
-<U00BA> \x8F\xA2\xEB |0 # MASCULINE ORDINAL INDICATOR
-<U00AA> \x8F\xA2\xEC |0 # FEMININE ORDINAL INDICATOR
-<U00A9> \x8F\xA2\xED |0 # COPYRIGHT SIGN
-<U00AE> \x8F\xA2\xEE |0 # REGISTERED SIGN
-<U2122> \x8F\xA2\xEF |0 # TRADE MARK SIGN
-<U00A4> \x8F\xA2\xF0 |0 # CURRENCY SIGN
-<U2116> \x8F\xA2\xF1 |0 # NUMERO SIGN
-<U0386> \x8F\xA6\xE1 |0 # GREEK CAPITAL LETTER ALPHA WITH TONOS
-<U0388> \x8F\xA6\xE2 |0 # GREEK CAPITAL LETTER EPSILON WITH TONOS
-<U0389> \x8F\xA6\xE3 |0 # GREEK CAPITAL LETTER ETA WITH TONOS
-<U038A> \x8F\xA6\xE4 |0 # GREEK CAPITAL LETTER IOTA WITH TONOS
-<U03AA> \x8F\xA6\xE5 |0 # GREEK CAPITAL LETTER IOTA WITH DIALYTIKA
-<U038C> \x8F\xA6\xE7 |0 # GREEK CAPITAL LETTER OMICRON WITH TONOS
-<U038E> \x8F\xA6\xE9 |0 # GREEK CAPITAL LETTER UPSILON WITH TONOS
-<U03AB> \x8F\xA6\xEA |0 # GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA
-<U038F> \x8F\xA6\xEC |0 # GREEK CAPITAL LETTER OMEGA WITH TONOS
-<U03AC> \x8F\xA6\xF1 |0 # GREEK SMALL LETTER ALPHA WITH TONOS
-<U03AD> \x8F\xA6\xF2 |0 # GREEK SMALL LETTER EPSILON WITH TONOS
-<U03AE> \x8F\xA6\xF3 |0 # GREEK SMALL LETTER ETA WITH TONOS
-<U03AF> \x8F\xA6\xF4 |0 # GREEK SMALL LETTER IOTA WITH TONOS
-<U03CA> \x8F\xA6\xF5 |0 # GREEK SMALL LETTER IOTA WITH DIALYTIKA
-<U0390> \x8F\xA6\xF6 |0 # GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS
-<U03CC> \x8F\xA6\xF7 |0 # GREEK SMALL LETTER OMICRON WITH TONOS
-<U03C2> \x8F\xA6\xF8 |0 # GREEK SMALL LETTER FINAL SIGMA
-<U03CD> \x8F\xA6\xF9 |0 # GREEK SMALL LETTER UPSILON WITH TONOS
-<U03CB> \x8F\xA6\xFA |0 # GREEK SMALL LETTER UPSILON WITH DIALYTIKA
-<U03B0> \x8F\xA6\xFB |0 # GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS
-<U03CE> \x8F\xA6\xFC |0 # GREEK SMALL LETTER OMEGA WITH TONOS
-<U0402> \x8F\xA7\xC2 |0 # CYRILLIC CAPITAL LETTER DJE
-<U0403> \x8F\xA7\xC3 |0 # CYRILLIC CAPITAL LETTER GJE
-<U0404> \x8F\xA7\xC4 |0 # CYRILLIC CAPITAL LETTER UKRAINIAN IE
-<U0405> \x8F\xA7\xC5 |0 # CYRILLIC CAPITAL LETTER DZE
-<U0406> \x8F\xA7\xC6 |0 # CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I
-<U0407> \x8F\xA7\xC7 |0 # CYRILLIC CAPITAL LETTER YI
-<U0408> \x8F\xA7\xC8 |0 # CYRILLIC CAPITAL LETTER JE
-<U0409> \x8F\xA7\xC9 |0 # CYRILLIC CAPITAL LETTER LJE
-<U040A> \x8F\xA7\xCA |0 # CYRILLIC CAPITAL LETTER NJE
-<U040B> \x8F\xA7\xCB |0 # CYRILLIC CAPITAL LETTER TSHE
-<U040C> \x8F\xA7\xCC |0 # CYRILLIC CAPITAL LETTER KJE
-<U040E> \x8F\xA7\xCD |0 # CYRILLIC CAPITAL LETTER SHORT U
-<U040F> \x8F\xA7\xCE |0 # CYRILLIC CAPITAL LETTER DZHE
-<U0452> \x8F\xA7\xF2 |0 # CYRILLIC SMALL LETTER DJE
-<U0453> \x8F\xA7\xF3 |0 # CYRILLIC SMALL LETTER GJE
-<U0454> \x8F\xA7\xF4 |0 # CYRILLIC SMALL LETTER UKRAINIAN IE
-<U0455> \x8F\xA7\xF5 |0 # CYRILLIC SMALL LETTER DZE
-<U0456> \x8F\xA7\xF6 |0 # CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I
-<U0457> \x8F\xA7\xF7 |0 # CYRILLIC SMALL LETTER YI
-<U0458> \x8F\xA7\xF8 |0 # CYRILLIC SMALL LETTER JE
-<U0459> \x8F\xA7\xF9 |0 # CYRILLIC SMALL LETTER LJE
-<U045A> \x8F\xA7\xFA |0 # CYRILLIC SMALL LETTER NJE
-<U045B> \x8F\xA7\xFB |0 # CYRILLIC SMALL LETTER TSHE
-<U045C> \x8F\xA7\xFC |0 # CYRILLIC SMALL LETTER KJE
-<U045E> \x8F\xA7\xFD |0 # CYRILLIC SMALL LETTER SHORT U
-<U045F> \x8F\xA7\xFE |0 # CYRILLIC SMALL LETTER DZHE
-<U00C6> \x8F\xA9\xA1 |0 # LATIN CAPITAL LETTER AE
-<U0110> \x8F\xA9\xA2 |0 # LATIN CAPITAL LETTER D WITH STROKE
-<U0126> \x8F\xA9\xA4 |0 # LATIN CAPITAL LETTER H WITH STROKE
-<U0132> \x8F\xA9\xA6 |0 # LATIN CAPITAL LIGATURE IJ
-<U0141> \x8F\xA9\xA8 |0 # LATIN CAPITAL LETTER L WITH STROKE
-<U013F> \x8F\xA9\xA9 |0 # LATIN CAPITAL LETTER L WITH MIDDLE DOT
-<U014A> \x8F\xA9\xAB |0 # LATIN CAPITAL LETTER ENG
-<U00D8> \x8F\xA9\xAC |0 # LATIN CAPITAL LETTER O WITH STROKE
-<U0152> \x8F\xA9\xAD |0 # LATIN CAPITAL LIGATURE OE
-<U0166> \x8F\xA9\xAF |0 # LATIN CAPITAL LETTER T WITH STROKE
-<U00DE> \x8F\xA9\xB0 |0 # LATIN CAPITAL LETTER THORN
-<U00E6> \x8F\xA9\xC1 |0 # LATIN SMALL LETTER AE
-<U0111> \x8F\xA9\xC2 |0 # LATIN SMALL LETTER D WITH STROKE
-<U00F0> \x8F\xA9\xC3 |0 # LATIN SMALL LETTER ETH
-<U0127> \x8F\xA9\xC4 |0 # LATIN SMALL LETTER H WITH STROKE
-<U0131> \x8F\xA9\xC5 |0 # LATIN SMALL LETTER DOTLESS I
-<U0133> \x8F\xA9\xC6 |0 # LATIN SMALL LIGATURE IJ
-<U0138> \x8F\xA9\xC7 |0 # LATIN SMALL LETTER KRA
-<U0142> \x8F\xA9\xC8 |0 # LATIN SMALL LETTER L WITH STROKE
-<U0140> \x8F\xA9\xC9 |0 # LATIN SMALL LETTER L WITH MIDDLE DOT
-<U0149> \x8F\xA9\xCA |0 # LATIN SMALL LETTER N PRECEDED BY APOSTROPHE
-<U014B> \x8F\xA9\xCB |0 # LATIN SMALL LETTER ENG
-<U00F8> \x8F\xA9\xCC |0 # LATIN SMALL LETTER O WITH STROKE
-<U0153> \x8F\xA9\xCD |0 # LATIN SMALL LIGATURE OE
-<U00DF> \x8F\xA9\xCE |0 # LATIN SMALL LETTER SHARP S
-<U0167> \x8F\xA9\xCF |0 # LATIN SMALL LETTER T WITH STROKE
-<U00FE> \x8F\xA9\xD0 |0 # LATIN SMALL LETTER THORN
-<U00C1> \x8F\xAA\xA1 |0 # LATIN CAPITAL LETTER A WITH ACUTE
-<U00C0> \x8F\xAA\xA2 |0 # LATIN CAPITAL LETTER A WITH GRAVE
-<U00C4> \x8F\xAA\xA3 |0 # LATIN CAPITAL LETTER A WITH DIAERESIS
-<U00C2> \x8F\xAA\xA4 |0 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
-<U0102> \x8F\xAA\xA5 |0 # LATIN CAPITAL LETTER A WITH BREVE
-<U01CD> \x8F\xAA\xA6 |0 # LATIN CAPITAL LETTER A WITH CARON
-<U0100> \x8F\xAA\xA7 |0 # LATIN CAPITAL LETTER A WITH MACRON
-<U0104> \x8F\xAA\xA8 |0 # LATIN CAPITAL LETTER A WITH OGONEK
-<U00C5> \x8F\xAA\xA9 |0 # LATIN CAPITAL LETTER A WITH RING ABOVE
-<U00C3> \x8F\xAA\xAA |0 # LATIN CAPITAL LETTER A WITH TILDE
-<U0106> \x8F\xAA\xAB |0 # LATIN CAPITAL LETTER C WITH ACUTE
-<U0108> \x8F\xAA\xAC |0 # LATIN CAPITAL LETTER C WITH CIRCUMFLEX
-<U010C> \x8F\xAA\xAD |0 # LATIN CAPITAL LETTER C WITH CARON
-<U00C7> \x8F\xAA\xAE |0 # LATIN CAPITAL LETTER C WITH CEDILLA
-<U010A> \x8F\xAA\xAF |0 # LATIN CAPITAL LETTER C WITH DOT ABOVE
-<U010E> \x8F\xAA\xB0 |0 # LATIN CAPITAL LETTER D WITH CARON
-<U00C9> \x8F\xAA\xB1 |0 # LATIN CAPITAL LETTER E WITH ACUTE
-<U00C8> \x8F\xAA\xB2 |0 # LATIN CAPITAL LETTER E WITH GRAVE
-<U00CB> \x8F\xAA\xB3 |0 # LATIN CAPITAL LETTER E WITH DIAERESIS
-<U00CA> \x8F\xAA\xB4 |0 # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
-<U011A> \x8F\xAA\xB5 |0 # LATIN CAPITAL LETTER E WITH CARON
-<U0116> \x8F\xAA\xB6 |0 # LATIN CAPITAL LETTER E WITH DOT ABOVE
-<U0112> \x8F\xAA\xB7 |0 # LATIN CAPITAL LETTER E WITH MACRON
-<U0118> \x8F\xAA\xB8 |0 # LATIN CAPITAL LETTER E WITH OGONEK
-<U011C> \x8F\xAA\xBA |0 # LATIN CAPITAL LETTER G WITH CIRCUMFLEX
-<U011E> \x8F\xAA\xBB |0 # LATIN CAPITAL LETTER G WITH BREVE
-<U0122> \x8F\xAA\xBC |0 # LATIN CAPITAL LETTER G WITH CEDILLA
-<U0120> \x8F\xAA\xBD |0 # LATIN CAPITAL LETTER G WITH DOT ABOVE
-<U0124> \x8F\xAA\xBE |0 # LATIN CAPITAL LETTER H WITH CIRCUMFLEX
-<U00CD> \x8F\xAA\xBF |0 # LATIN CAPITAL LETTER I WITH ACUTE
-<U00CC> \x8F\xAA\xC0 |0 # LATIN CAPITAL LETTER I WITH GRAVE
-<U00CF> \x8F\xAA\xC1 |0 # LATIN CAPITAL LETTER I WITH DIAERESIS
-<U00CE> \x8F\xAA\xC2 |0 # LATIN CAPITAL LETTER I WITH CIRCUMFLEX
-<U01CF> \x8F\xAA\xC3 |0 # LATIN CAPITAL LETTER I WITH CARON
-<U0130> \x8F\xAA\xC4 |0 # LATIN CAPITAL LETTER I WITH DOT ABOVE
-<U012A> \x8F\xAA\xC5 |0 # LATIN CAPITAL LETTER I WITH MACRON
-<U012E> \x8F\xAA\xC6 |0 # LATIN CAPITAL LETTER I WITH OGONEK
-<U0128> \x8F\xAA\xC7 |0 # LATIN CAPITAL LETTER I WITH TILDE
-<U0134> \x8F\xAA\xC8 |0 # LATIN CAPITAL LETTER J WITH CIRCUMFLEX
-<U0136> \x8F\xAA\xC9 |0 # LATIN CAPITAL LETTER K WITH CEDILLA
-<U0139> \x8F\xAA\xCA |0 # LATIN CAPITAL LETTER L WITH ACUTE
-<U013D> \x8F\xAA\xCB |0 # LATIN CAPITAL LETTER L WITH CARON
-<U013B> \x8F\xAA\xCC |0 # LATIN CAPITAL LETTER L WITH CEDILLA
-<U0143> \x8F\xAA\xCD |0 # LATIN CAPITAL LETTER N WITH ACUTE
-<U0147> \x8F\xAA\xCE |0 # LATIN CAPITAL LETTER N WITH CARON
-<U0145> \x8F\xAA\xCF |0 # LATIN CAPITAL LETTER N WITH CEDILLA
-<U00D1> \x8F\xAA\xD0 |0 # LATIN CAPITAL LETTER N WITH TILDE
-<U00D3> \x8F\xAA\xD1 |0 # LATIN CAPITAL LETTER O WITH ACUTE
-<U00D2> \x8F\xAA\xD2 |0 # LATIN CAPITAL LETTER O WITH GRAVE
-<U00D6> \x8F\xAA\xD3 |0 # LATIN CAPITAL LETTER O WITH DIAERESIS
-<U00D4> \x8F\xAA\xD4 |0 # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
-<U01D1> \x8F\xAA\xD5 |0 # LATIN CAPITAL LETTER O WITH CARON
-<U0150> \x8F\xAA\xD6 |0 # LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
-<U014C> \x8F\xAA\xD7 |0 # LATIN CAPITAL LETTER O WITH MACRON
-<U00D5> \x8F\xAA\xD8 |0 # LATIN CAPITAL LETTER O WITH TILDE
-<U0154> \x8F\xAA\xD9 |0 # LATIN CAPITAL LETTER R WITH ACUTE
-<U0158> \x8F\xAA\xDA |0 # LATIN CAPITAL LETTER R WITH CARON
-<U0156> \x8F\xAA\xDB |0 # LATIN CAPITAL LETTER R WITH CEDILLA
-<U015A> \x8F\xAA\xDC |0 # LATIN CAPITAL LETTER S WITH ACUTE
-<U015C> \x8F\xAA\xDD |0 # LATIN CAPITAL LETTER S WITH CIRCUMFLEX
-<U0160> \x8F\xAA\xDE |0 # LATIN CAPITAL LETTER S WITH CARON
-<U015E> \x8F\xAA\xDF |0 # LATIN CAPITAL LETTER S WITH CEDILLA
-<U0164> \x8F\xAA\xE0 |0 # LATIN CAPITAL LETTER T WITH CARON
-<U0162> \x8F\xAA\xE1 |0 # LATIN CAPITAL LETTER T WITH CEDILLA
-<U00DA> \x8F\xAA\xE2 |0 # LATIN CAPITAL LETTER U WITH ACUTE
-<U00D9> \x8F\xAA\xE3 |0 # LATIN CAPITAL LETTER U WITH GRAVE
-<U00DC> \x8F\xAA\xE4 |0 # LATIN CAPITAL LETTER U WITH DIAERESIS
-<U00DB> \x8F\xAA\xE5 |0 # LATIN CAPITAL LETTER U WITH CIRCUMFLEX
-<U016C> \x8F\xAA\xE6 |0 # LATIN CAPITAL LETTER U WITH BREVE
-<U01D3> \x8F\xAA\xE7 |0 # LATIN CAPITAL LETTER U WITH CARON
-<U0170> \x8F\xAA\xE8 |0 # LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
-<U016A> \x8F\xAA\xE9 |0 # LATIN CAPITAL LETTER U WITH MACRON
-<U0172> \x8F\xAA\xEA |0 # LATIN CAPITAL LETTER U WITH OGONEK
-<U016E> \x8F\xAA\xEB |0 # LATIN CAPITAL LETTER U WITH RING ABOVE
-<U0168> \x8F\xAA\xEC |0 # LATIN CAPITAL LETTER U WITH TILDE
-<U01D7> \x8F\xAA\xED |0 # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
-<U01DB> \x8F\xAA\xEE |0 # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
-<U01D9> \x8F\xAA\xEF |0 # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
-<U01D5> \x8F\xAA\xF0 |0 # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
-<U0174> \x8F\xAA\xF1 |0 # LATIN CAPITAL LETTER W WITH CIRCUMFLEX
-<U00DD> \x8F\xAA\xF2 |0 # LATIN CAPITAL LETTER Y WITH ACUTE
-<U0178> \x8F\xAA\xF3 |0 # LATIN CAPITAL LETTER Y WITH DIAERESIS
-<U0176> \x8F\xAA\xF4 |0 # LATIN CAPITAL LETTER Y WITH CIRCUMFLEX
-<U0179> \x8F\xAA\xF5 |0 # LATIN CAPITAL LETTER Z WITH ACUTE
-<U017D> \x8F\xAA\xF6 |0 # LATIN CAPITAL LETTER Z WITH CARON
-<U017B> \x8F\xAA\xF7 |0 # LATIN CAPITAL LETTER Z WITH DOT ABOVE
-<U00E1> \x8F\xAB\xA1 |0 # LATIN SMALL LETTER A WITH ACUTE
-<U00E0> \x8F\xAB\xA2 |0 # LATIN SMALL LETTER A WITH GRAVE
-<U00E4> \x8F\xAB\xA3 |0 # LATIN SMALL LETTER A WITH DIAERESIS
-<U00E2> \x8F\xAB\xA4 |0 # LATIN SMALL LETTER A WITH CIRCUMFLEX
-<U0103> \x8F\xAB\xA5 |0 # LATIN SMALL LETTER A WITH BREVE
-<U01CE> \x8F\xAB\xA6 |0 # LATIN SMALL LETTER A WITH CARON
-<U0101> \x8F\xAB\xA7 |0 # LATIN SMALL LETTER A WITH MACRON
-<U0105> \x8F\xAB\xA8 |0 # LATIN SMALL LETTER A WITH OGONEK
-<U00E5> \x8F\xAB\xA9 |0 # LATIN SMALL LETTER A WITH RING ABOVE
-<U00E3> \x8F\xAB\xAA |0 # LATIN SMALL LETTER A WITH TILDE
-<U0107> \x8F\xAB\xAB |0 # LATIN SMALL LETTER C WITH ACUTE
-<U0109> \x8F\xAB\xAC |0 # LATIN SMALL LETTER C WITH CIRCUMFLEX
-<U010D> \x8F\xAB\xAD |0 # LATIN SMALL LETTER C WITH CARON
-<U00E7> \x8F\xAB\xAE |0 # LATIN SMALL LETTER C WITH CEDILLA
-<U010B> \x8F\xAB\xAF |0 # LATIN SMALL LETTER C WITH DOT ABOVE
-<U010F> \x8F\xAB\xB0 |0 # LATIN SMALL LETTER D WITH CARON
-<U00E9> \x8F\xAB\xB1 |0 # LATIN SMALL LETTER E WITH ACUTE
-<U00E8> \x8F\xAB\xB2 |0 # LATIN SMALL LETTER E WITH GRAVE
-<U00EB> \x8F\xAB\xB3 |0 # LATIN SMALL LETTER E WITH DIAERESIS
-<U00EA> \x8F\xAB\xB4 |0 # LATIN SMALL LETTER E WITH CIRCUMFLEX
-<U011B> \x8F\xAB\xB5 |0 # LATIN SMALL LETTER E WITH CARON
-<U0117> \x8F\xAB\xB6 |0 # LATIN SMALL LETTER E WITH DOT ABOVE
-<U0113> \x8F\xAB\xB7 |0 # LATIN SMALL LETTER E WITH MACRON
-<U0119> \x8F\xAB\xB8 |0 # LATIN SMALL LETTER E WITH OGONEK
-<U01F5> \x8F\xAB\xB9 |0 # LATIN SMALL LETTER G WITH ACUTE
-<U011D> \x8F\xAB\xBA |0 # LATIN SMALL LETTER G WITH CIRCUMFLEX
-<U011F> \x8F\xAB\xBB |0 # LATIN SMALL LETTER G WITH BREVE
-<U0121> \x8F\xAB\xBD |0 # LATIN SMALL LETTER G WITH DOT ABOVE
-<U0125> \x8F\xAB\xBE |0 # LATIN SMALL LETTER H WITH CIRCUMFLEX
-<U00ED> \x8F\xAB\xBF |0 # LATIN SMALL LETTER I WITH ACUTE
-<U00EC> \x8F\xAB\xC0 |0 # LATIN SMALL LETTER I WITH GRAVE
-<U00EF> \x8F\xAB\xC1 |0 # LATIN SMALL LETTER I WITH DIAERESIS
-<U00EE> \x8F\xAB\xC2 |0 # LATIN SMALL LETTER I WITH CIRCUMFLEX
-<U01D0> \x8F\xAB\xC3 |0 # LATIN SMALL LETTER I WITH CARON
-<U012B> \x8F\xAB\xC5 |0 # LATIN SMALL LETTER I WITH MACRON
-<U012F> \x8F\xAB\xC6 |0 # LATIN SMALL LETTER I WITH OGONEK
-<U0129> \x8F\xAB\xC7 |0 # LATIN SMALL LETTER I WITH TILDE
-<U0135> \x8F\xAB\xC8 |0 # LATIN SMALL LETTER J WITH CIRCUMFLEX
-<U0137> \x8F\xAB\xC9 |0 # LATIN SMALL LETTER K WITH CEDILLA
-<U013A> \x8F\xAB\xCA |0 # LATIN SMALL LETTER L WITH ACUTE
-<U013E> \x8F\xAB\xCB |0 # LATIN SMALL LETTER L WITH CARON
-<U013C> \x8F\xAB\xCC |0 # LATIN SMALL LETTER L WITH CEDILLA
-<U0144> \x8F\xAB\xCD |0 # LATIN SMALL LETTER N WITH ACUTE
-<U0148> \x8F\xAB\xCE |0 # LATIN SMALL LETTER N WITH CARON
-<U0146> \x8F\xAB\xCF |0 # LATIN SMALL LETTER N WITH CEDILLA
-<U00F1> \x8F\xAB\xD0 |0 # LATIN SMALL LETTER N WITH TILDE
-<U00F3> \x8F\xAB\xD1 |0 # LATIN SMALL LETTER O WITH ACUTE
-<U00F2> \x8F\xAB\xD2 |0 # LATIN SMALL LETTER O WITH GRAVE
-<U00F6> \x8F\xAB\xD3 |0 # LATIN SMALL LETTER O WITH DIAERESIS
-<U00F4> \x8F\xAB\xD4 |0 # LATIN SMALL LETTER O WITH CIRCUMFLEX
-<U01D2> \x8F\xAB\xD5 |0 # LATIN SMALL LETTER O WITH CARON
-<U0151> \x8F\xAB\xD6 |0 # LATIN SMALL LETTER O WITH DOUBLE ACUTE
-<U014D> \x8F\xAB\xD7 |0 # LATIN SMALL LETTER O WITH MACRON
-<U00F5> \x8F\xAB\xD8 |0 # LATIN SMALL LETTER O WITH TILDE
-<U0155> \x8F\xAB\xD9 |0 # LATIN SMALL LETTER R WITH ACUTE
-<U0159> \x8F\xAB\xDA |0 # LATIN SMALL LETTER R WITH CARON
-<U0157> \x8F\xAB\xDB |0 # LATIN SMALL LETTER R WITH CEDILLA
-<U015B> \x8F\xAB\xDC |0 # LATIN SMALL LETTER S WITH ACUTE
-<U015D> \x8F\xAB\xDD |0 # LATIN SMALL LETTER S WITH CIRCUMFLEX
-<U0161> \x8F\xAB\xDE |0 # LATIN SMALL LETTER S WITH CARON
-<U015F> \x8F\xAB\xDF |0 # LATIN SMALL LETTER S WITH CEDILLA
-<U0165> \x8F\xAB\xE0 |0 # LATIN SMALL LETTER T WITH CARON
-<U0163> \x8F\xAB\xE1 |0 # LATIN SMALL LETTER T WITH CEDILLA
-<U00FA> \x8F\xAB\xE2 |0 # LATIN SMALL LETTER U WITH ACUTE
-<U00F9> \x8F\xAB\xE3 |0 # LATIN SMALL LETTER U WITH GRAVE
-<U00FC> \x8F\xAB\xE4 |0 # LATIN SMALL LETTER U WITH DIAERESIS
-<U00FB> \x8F\xAB\xE5 |0 # LATIN SMALL LETTER U WITH CIRCUMFLEX
-<U016D> \x8F\xAB\xE6 |0 # LATIN SMALL LETTER U WITH BREVE
-<U01D4> \x8F\xAB\xE7 |0 # LATIN SMALL LETTER U WITH CARON
-<U0171> \x8F\xAB\xE8 |0 # LATIN SMALL LETTER U WITH DOUBLE ACUTE
-<U016B> \x8F\xAB\xE9 |0 # LATIN SMALL LETTER U WITH MACRON
-<U0173> \x8F\xAB\xEA |0 # LATIN SMALL LETTER U WITH OGONEK
-<U016F> \x8F\xAB\xEB |0 # LATIN SMALL LETTER U WITH RING ABOVE
-<U0169> \x8F\xAB\xEC |0 # LATIN SMALL LETTER U WITH TILDE
-<U01D8> \x8F\xAB\xED |0 # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
-<U01DC> \x8F\xAB\xEE |0 # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
-<U01DA> \x8F\xAB\xEF |0 # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
-<U01D6> \x8F\xAB\xF0 |0 # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
-<U0175> \x8F\xAB\xF1 |0 # LATIN SMALL LETTER W WITH CIRCUMFLEX
-<U00FD> \x8F\xAB\xF2 |0 # LATIN SMALL LETTER Y WITH ACUTE
-<U00FF> \x8F\xAB\xF3 |0 # LATIN SMALL LETTER Y WITH DIAERESIS
-<U0177> \x8F\xAB\xF4 |0 # LATIN SMALL LETTER Y WITH CIRCUMFLEX
-<U017A> \x8F\xAB\xF5 |0 # LATIN SMALL LETTER Z WITH ACUTE
-<U017E> \x8F\xAB\xF6 |0 # LATIN SMALL LETTER Z WITH CARON
-<U017C> \x8F\xAB\xF7 |0 # LATIN SMALL LETTER Z WITH DOT ABOVE
-<U4E02> \x8F\xB0\xA1 |0 # CJK Ideograph
-<U4E04> \x8F\xB0\xA2 |0 # CJK Ideograph
-<U4E05> \x8F\xB0\xA3 |0 # CJK Ideograph
-<U4E0C> \x8F\xB0\xA4 |0 # CJK Ideograph
-<U4E12> \x8F\xB0\xA5 |0 # CJK Ideograph
-<U4E1F> \x8F\xB0\xA6 |0 # CJK Ideograph
-<U4E23> \x8F\xB0\xA7 |0 # CJK Ideograph
-<U4E24> \x8F\xB0\xA8 |0 # CJK Ideograph
-<U4E28> \x8F\xB0\xA9 |0 # CJK Ideograph
-<U4E2B> \x8F\xB0\xAA |0 # CJK Ideograph
-<U4E2E> \x8F\xB0\xAB |0 # CJK Ideograph
-<U4E2F> \x8F\xB0\xAC |0 # CJK Ideograph
-<U4E30> \x8F\xB0\xAD |0 # CJK Ideograph
-<U4E35> \x8F\xB0\xAE |0 # CJK Ideograph
-<U4E40> \x8F\xB0\xAF |0 # CJK Ideograph
-<U4E41> \x8F\xB0\xB0 |0 # CJK Ideograph
-<U4E44> \x8F\xB0\xB1 |0 # CJK Ideograph
-<U4E47> \x8F\xB0\xB2 |0 # CJK Ideograph
-<U4E51> \x8F\xB0\xB3 |0 # CJK Ideograph
-<U4E5A> \x8F\xB0\xB4 |0 # CJK Ideograph
-<U4E5C> \x8F\xB0\xB5 |0 # CJK Ideograph
-<U4E63> \x8F\xB0\xB6 |0 # CJK Ideograph
-<U4E68> \x8F\xB0\xB7 |0 # CJK Ideograph
-<U4E69> \x8F\xB0\xB8 |0 # CJK Ideograph
-<U4E74> \x8F\xB0\xB9 |0 # CJK Ideograph
-<U4E75> \x8F\xB0\xBA |0 # CJK Ideograph
-<U4E79> \x8F\xB0\xBB |0 # CJK Ideograph
-<U4E7F> \x8F\xB0\xBC |0 # CJK Ideograph
-<U4E8D> \x8F\xB0\xBD |0 # CJK Ideograph
-<U4E96> \x8F\xB0\xBE |0 # CJK Ideograph
-<U4E97> \x8F\xB0\xBF |0 # CJK Ideograph
-<U4E9D> \x8F\xB0\xC0 |0 # CJK Ideograph
-<U4EAF> \x8F\xB0\xC1 |0 # CJK Ideograph
-<U4EB9> \x8F\xB0\xC2 |0 # CJK Ideograph
-<U4EC3> \x8F\xB0\xC3 |0 # CJK Ideograph
-<U4ED0> \x8F\xB0\xC4 |0 # CJK Ideograph
-<U4EDA> \x8F\xB0\xC5 |0 # CJK Ideograph
-<U4EDB> \x8F\xB0\xC6 |0 # CJK Ideograph
-<U4EE0> \x8F\xB0\xC7 |0 # CJK Ideograph
-<U4EE1> \x8F\xB0\xC8 |0 # CJK Ideograph
-<U4EE2> \x8F\xB0\xC9 |0 # CJK Ideograph
-<U4EE8> \x8F\xB0\xCA |0 # CJK Ideograph
-<U4EEF> \x8F\xB0\xCB |0 # CJK Ideograph
-<U4EF1> \x8F\xB0\xCC |0 # CJK Ideograph
-<U4EF3> \x8F\xB0\xCD |0 # CJK Ideograph
-<U4EF5> \x8F\xB0\xCE |0 # CJK Ideograph
-<U4EFD> \x8F\xB0\xCF |0 # CJK Ideograph
-<U4EFE> \x8F\xB0\xD0 |0 # CJK Ideograph
-<U4EFF> \x8F\xB0\xD1 |0 # CJK Ideograph
-<U4F00> \x8F\xB0\xD2 |0 # CJK Ideograph
-<U4F02> \x8F\xB0\xD3 |0 # CJK Ideograph
-<U4F03> \x8F\xB0\xD4 |0 # CJK Ideograph
-<U4F08> \x8F\xB0\xD5 |0 # CJK Ideograph
-<U4F0B> \x8F\xB0\xD6 |0 # CJK Ideograph
-<U4F0C> \x8F\xB0\xD7 |0 # CJK Ideograph
-<U4F12> \x8F\xB0\xD8 |0 # CJK Ideograph
-<U4F15> \x8F\xB0\xD9 |0 # CJK Ideograph
-<U4F16> \x8F\xB0\xDA |0 # CJK Ideograph
-<U4F17> \x8F\xB0\xDB |0 # CJK Ideograph
-<U4F19> \x8F\xB0\xDC |0 # CJK Ideograph
-<U4F2E> \x8F\xB0\xDD |0 # CJK Ideograph
-<U4F31> \x8F\xB0\xDE |0 # CJK Ideograph
-<U4F60> \x8F\xB0\xDF |0 # CJK Ideograph
-<U4F33> \x8F\xB0\xE0 |0 # CJK Ideograph
-<U4F35> \x8F\xB0\xE1 |0 # CJK Ideograph
-<U4F37> \x8F\xB0\xE2 |0 # CJK Ideograph
-<U4F39> \x8F\xB0\xE3 |0 # CJK Ideograph
-<U4F3B> \x8F\xB0\xE4 |0 # CJK Ideograph
-<U4F3E> \x8F\xB0\xE5 |0 # CJK Ideograph
-<U4F40> \x8F\xB0\xE6 |0 # CJK Ideograph
-<U4F42> \x8F\xB0\xE7 |0 # CJK Ideograph
-<U4F48> \x8F\xB0\xE8 |0 # CJK Ideograph
-<U4F49> \x8F\xB0\xE9 |0 # CJK Ideograph
-<U4F4B> \x8F\xB0\xEA |0 # CJK Ideograph
-<U4F4C> \x8F\xB0\xEB |0 # CJK Ideograph
-<U4F52> \x8F\xB0\xEC |0 # CJK Ideograph
-<U4F54> \x8F\xB0\xED |0 # CJK Ideograph
-<U4F56> \x8F\xB0\xEE |0 # CJK Ideograph
-<U4F58> \x8F\xB0\xEF |0 # CJK Ideograph
-<U4F5F> \x8F\xB0\xF0 |0 # CJK Ideograph
-<U4F63> \x8F\xB0\xF1 |0 # CJK Ideograph
-<U4F6A> \x8F\xB0\xF2 |0 # CJK Ideograph
-<U4F6C> \x8F\xB0\xF3 |0 # CJK Ideograph
-<U4F6E> \x8F\xB0\xF4 |0 # CJK Ideograph
-<U4F71> \x8F\xB0\xF5 |0 # CJK Ideograph
-<U4F77> \x8F\xB0\xF6 |0 # CJK Ideograph
-<U4F78> \x8F\xB0\xF7 |0 # CJK Ideograph
-<U4F79> \x8F\xB0\xF8 |0 # CJK Ideograph
-<U4F7A> \x8F\xB0\xF9 |0 # CJK Ideograph
-<U4F7D> \x8F\xB0\xFA |0 # CJK Ideograph
-<U4F7E> \x8F\xB0\xFB |0 # CJK Ideograph
-<U4F81> \x8F\xB0\xFC |0 # CJK Ideograph
-<U4F82> \x8F\xB0\xFD |0 # CJK Ideograph
-<U4F84> \x8F\xB0\xFE |0 # CJK Ideograph
-<U4F85> \x8F\xB1\xA1 |0 # CJK Ideograph
-<U4F89> \x8F\xB1\xA2 |0 # CJK Ideograph
-<U4F8A> \x8F\xB1\xA3 |0 # CJK Ideograph
-<U4F8C> \x8F\xB1\xA4 |0 # CJK Ideograph
-<U4F8E> \x8F\xB1\xA5 |0 # CJK Ideograph
-<U4F90> \x8F\xB1\xA6 |0 # CJK Ideograph
-<U4F92> \x8F\xB1\xA7 |0 # CJK Ideograph
-<U4F93> \x8F\xB1\xA8 |0 # CJK Ideograph
-<U4F94> \x8F\xB1\xA9 |0 # CJK Ideograph
-<U4F97> \x8F\xB1\xAA |0 # CJK Ideograph
-<U4F99> \x8F\xB1\xAB |0 # CJK Ideograph
-<U4F9A> \x8F\xB1\xAC |0 # CJK Ideograph
-<U4F9E> \x8F\xB1\xAD |0 # CJK Ideograph
-<U4F9F> \x8F\xB1\xAE |0 # CJK Ideograph
-<U4FB2> \x8F\xB1\xAF |0 # CJK Ideograph
-<U4FB7> \x8F\xB1\xB0 |0 # CJK Ideograph
-<U4FB9> \x8F\xB1\xB1 |0 # CJK Ideograph
-<U4FBB> \x8F\xB1\xB2 |0 # CJK Ideograph
-<U4FBC> \x8F\xB1\xB3 |0 # CJK Ideograph
-<U4FBD> \x8F\xB1\xB4 |0 # CJK Ideograph
-<U4FBE> \x8F\xB1\xB5 |0 # CJK Ideograph
-<U4FC0> \x8F\xB1\xB6 |0 # CJK Ideograph
-<U4FC1> \x8F\xB1\xB7 |0 # CJK Ideograph
-<U4FC5> \x8F\xB1\xB8 |0 # CJK Ideograph
-<U4FC6> \x8F\xB1\xB9 |0 # CJK Ideograph
-<U4FC8> \x8F\xB1\xBA |0 # CJK Ideograph
-<U4FC9> \x8F\xB1\xBB |0 # CJK Ideograph
-<U4FCB> \x8F\xB1\xBC |0 # CJK Ideograph
-<U4FCC> \x8F\xB1\xBD |0 # CJK Ideograph
-<U4FCD> \x8F\xB1\xBE |0 # CJK Ideograph
-<U4FCF> \x8F\xB1\xBF |0 # CJK Ideograph
-<U4FD2> \x8F\xB1\xC0 |0 # CJK Ideograph
-<U4FDC> \x8F\xB1\xC1 |0 # CJK Ideograph
-<U4FE0> \x8F\xB1\xC2 |0 # CJK Ideograph
-<U4FE2> \x8F\xB1\xC3 |0 # CJK Ideograph
-<U4FF0> \x8F\xB1\xC4 |0 # CJK Ideograph
-<U4FF2> \x8F\xB1\xC5 |0 # CJK Ideograph
-<U4FFC> \x8F\xB1\xC6 |0 # CJK Ideograph
-<U4FFD> \x8F\xB1\xC7 |0 # CJK Ideograph
-<U4FFF> \x8F\xB1\xC8 |0 # CJK Ideograph
-<U5000> \x8F\xB1\xC9 |0 # CJK Ideograph
-<U5001> \x8F\xB1\xCA |0 # CJK Ideograph
-<U5004> \x8F\xB1\xCB |0 # CJK Ideograph
-<U5007> \x8F\xB1\xCC |0 # CJK Ideograph
-<U500A> \x8F\xB1\xCD |0 # CJK Ideograph
-<U500C> \x8F\xB1\xCE |0 # CJK Ideograph
-<U500E> \x8F\xB1\xCF |0 # CJK Ideograph
-<U5010> \x8F\xB1\xD0 |0 # CJK Ideograph
-<U5013> \x8F\xB1\xD1 |0 # CJK Ideograph
-<U5017> \x8F\xB1\xD2 |0 # CJK Ideograph
-<U5018> \x8F\xB1\xD3 |0 # CJK Ideograph
-<U501B> \x8F\xB1\xD4 |0 # CJK Ideograph
-<U501C> \x8F\xB1\xD5 |0 # CJK Ideograph
-<U501D> \x8F\xB1\xD6 |0 # CJK Ideograph
-<U501E> \x8F\xB1\xD7 |0 # CJK Ideograph
-<U5022> \x8F\xB1\xD8 |0 # CJK Ideograph
-<U5027> \x8F\xB1\xD9 |0 # CJK Ideograph
-<U502E> \x8F\xB1\xDA |0 # CJK Ideograph
-<U5030> \x8F\xB1\xDB |0 # CJK Ideograph
-<U5032> \x8F\xB1\xDC |0 # CJK Ideograph
-<U5033> \x8F\xB1\xDD |0 # CJK Ideograph
-<U5035> \x8F\xB1\xDE |0 # CJK Ideograph
-<U5040> \x8F\xB1\xDF |0 # CJK Ideograph
-<U5041> \x8F\xB1\xE0 |0 # CJK Ideograph
-<U5042> \x8F\xB1\xE1 |0 # CJK Ideograph
-<U5045> \x8F\xB1\xE2 |0 # CJK Ideograph
-<U5046> \x8F\xB1\xE3 |0 # CJK Ideograph
-<U504A> \x8F\xB1\xE4 |0 # CJK Ideograph
-<U504C> \x8F\xB1\xE5 |0 # CJK Ideograph
-<U504E> \x8F\xB1\xE6 |0 # CJK Ideograph
-<U5051> \x8F\xB1\xE7 |0 # CJK Ideograph
-<U5052> \x8F\xB1\xE8 |0 # CJK Ideograph
-<U5053> \x8F\xB1\xE9 |0 # CJK Ideograph
-<U5057> \x8F\xB1\xEA |0 # CJK Ideograph
-<U5059> \x8F\xB1\xEB |0 # CJK Ideograph
-<U505F> \x8F\xB1\xEC |0 # CJK Ideograph
-<U5060> \x8F\xB1\xED |0 # CJK Ideograph
-<U5062> \x8F\xB1\xEE |0 # CJK Ideograph
-<U5063> \x8F\xB1\xEF |0 # CJK Ideograph
-<U5066> \x8F\xB1\xF0 |0 # CJK Ideograph
-<U5067> \x8F\xB1\xF1 |0 # CJK Ideograph
-<U506A> \x8F\xB1\xF2 |0 # CJK Ideograph
-<U506D> \x8F\xB1\xF3 |0 # CJK Ideograph
-<U5070> \x8F\xB1\xF4 |0 # CJK Ideograph
-<U5071> \x8F\xB1\xF5 |0 # CJK Ideograph
-<U503B> \x8F\xB1\xF6 |0 # CJK Ideograph
-<U5081> \x8F\xB1\xF7 |0 # CJK Ideograph
-<U5083> \x8F\xB1\xF8 |0 # CJK Ideograph
-<U5084> \x8F\xB1\xF9 |0 # CJK Ideograph
-<U5086> \x8F\xB1\xFA |0 # CJK Ideograph
-<U508A> \x8F\xB1\xFB |0 # CJK Ideograph
-<U508E> \x8F\xB1\xFC |0 # CJK Ideograph
-<U508F> \x8F\xB1\xFD |0 # CJK Ideograph
-<U5090> \x8F\xB1\xFE |0 # CJK Ideograph
-<U5092> \x8F\xB2\xA1 |0 # CJK Ideograph
-<U5093> \x8F\xB2\xA2 |0 # CJK Ideograph
-<U5094> \x8F\xB2\xA3 |0 # CJK Ideograph
-<U5096> \x8F\xB2\xA4 |0 # CJK Ideograph
-<U509B> \x8F\xB2\xA5 |0 # CJK Ideograph
-<U509C> \x8F\xB2\xA6 |0 # CJK Ideograph
-<U509E> \x8F\xB2\xA7 |0 # CJK Ideograph
-<U509F> \x8F\xB2\xA8 |0 # CJK Ideograph
-<U50A0> \x8F\xB2\xA9 |0 # CJK Ideograph
-<U50A1> \x8F\xB2\xAA |0 # CJK Ideograph
-<U50A2> \x8F\xB2\xAB |0 # CJK Ideograph
-<U50AA> \x8F\xB2\xAC |0 # CJK Ideograph
-<U50AF> \x8F\xB2\xAD |0 # CJK Ideograph
-<U50B0> \x8F\xB2\xAE |0 # CJK Ideograph
-<U50B9> \x8F\xB2\xAF |0 # CJK Ideograph
-<U50BA> \x8F\xB2\xB0 |0 # CJK Ideograph
-<U50BD> \x8F\xB2\xB1 |0 # CJK Ideograph
-<U50C0> \x8F\xB2\xB2 |0 # CJK Ideograph
-<U50C3> \x8F\xB2\xB3 |0 # CJK Ideograph
-<U50C4> \x8F\xB2\xB4 |0 # CJK Ideograph
-<U50C7> \x8F\xB2\xB5 |0 # CJK Ideograph
-<U50CC> \x8F\xB2\xB6 |0 # CJK Ideograph
-<U50CE> \x8F\xB2\xB7 |0 # CJK Ideograph
-<U50D0> \x8F\xB2\xB8 |0 # CJK Ideograph
-<U50D3> \x8F\xB2\xB9 |0 # CJK Ideograph
-<U50D4> \x8F\xB2\xBA |0 # CJK Ideograph
-<U50D8> \x8F\xB2\xBB |0 # CJK Ideograph
-<U50DC> \x8F\xB2\xBC |0 # CJK Ideograph
-<U50DD> \x8F\xB2\xBD |0 # CJK Ideograph
-<U50DF> \x8F\xB2\xBE |0 # CJK Ideograph
-<U50E2> \x8F\xB2\xBF |0 # CJK Ideograph
-<U50E4> \x8F\xB2\xC0 |0 # CJK Ideograph
-<U50E6> \x8F\xB2\xC1 |0 # CJK Ideograph
-<U50E8> \x8F\xB2\xC2 |0 # CJK Ideograph
-<U50E9> \x8F\xB2\xC3 |0 # CJK Ideograph
-<U50EF> \x8F\xB2\xC4 |0 # CJK Ideograph
-<U50F1> \x8F\xB2\xC5 |0 # CJK Ideograph
-<U50F6> \x8F\xB2\xC6 |0 # CJK Ideograph
-<U50FA> \x8F\xB2\xC7 |0 # CJK Ideograph
-<U50FE> \x8F\xB2\xC8 |0 # CJK Ideograph
-<U5103> \x8F\xB2\xC9 |0 # CJK Ideograph
-<U5106> \x8F\xB2\xCA |0 # CJK Ideograph
-<U5107> \x8F\xB2\xCB |0 # CJK Ideograph
-<U5108> \x8F\xB2\xCC |0 # CJK Ideograph
-<U510B> \x8F\xB2\xCD |0 # CJK Ideograph
-<U510C> \x8F\xB2\xCE |0 # CJK Ideograph
-<U510D> \x8F\xB2\xCF |0 # CJK Ideograph
-<U510E> \x8F\xB2\xD0 |0 # CJK Ideograph
-<U50F2> \x8F\xB2\xD1 |0 # CJK Ideograph
-<U5110> \x8F\xB2\xD2 |0 # CJK Ideograph
-<U5117> \x8F\xB2\xD3 |0 # CJK Ideograph
-<U5119> \x8F\xB2\xD4 |0 # CJK Ideograph
-<U511B> \x8F\xB2\xD5 |0 # CJK Ideograph
-<U511C> \x8F\xB2\xD6 |0 # CJK Ideograph
-<U511D> \x8F\xB2\xD7 |0 # CJK Ideograph
-<U511E> \x8F\xB2\xD8 |0 # CJK Ideograph
-<U5123> \x8F\xB2\xD9 |0 # CJK Ideograph
-<U5127> \x8F\xB2\xDA |0 # CJK Ideograph
-<U5128> \x8F\xB2\xDB |0 # CJK Ideograph
-<U512C> \x8F\xB2\xDC |0 # CJK Ideograph
-<U512D> \x8F\xB2\xDD |0 # CJK Ideograph
-<U512F> \x8F\xB2\xDE |0 # CJK Ideograph
-<U5131> \x8F\xB2\xDF |0 # CJK Ideograph
-<U5133> \x8F\xB2\xE0 |0 # CJK Ideograph
-<U5134> \x8F\xB2\xE1 |0 # CJK Ideograph
-<U5135> \x8F\xB2\xE2 |0 # CJK Ideograph
-<U5138> \x8F\xB2\xE3 |0 # CJK Ideograph
-<U5139> \x8F\xB2\xE4 |0 # CJK Ideograph
-<U5142> \x8F\xB2\xE5 |0 # CJK Ideograph
-<U514A> \x8F\xB2\xE6 |0 # CJK Ideograph
-<U514F> \x8F\xB2\xE7 |0 # CJK Ideograph
-<U5153> \x8F\xB2\xE8 |0 # CJK Ideograph
-<U5155> \x8F\xB2\xE9 |0 # CJK Ideograph
-<U5157> \x8F\xB2\xEA |0 # CJK Ideograph
-<U5158> \x8F\xB2\xEB |0 # CJK Ideograph
-<U515F> \x8F\xB2\xEC |0 # CJK Ideograph
-<U5164> \x8F\xB2\xED |0 # CJK Ideograph
-<U5166> \x8F\xB2\xEE |0 # CJK Ideograph
-<U517E> \x8F\xB2\xEF |0 # CJK Ideograph
-<U5183> \x8F\xB2\xF0 |0 # CJK Ideograph
-<U5184> \x8F\xB2\xF1 |0 # CJK Ideograph
-<U518B> \x8F\xB2\xF2 |0 # CJK Ideograph
-<U518E> \x8F\xB2\xF3 |0 # CJK Ideograph
-<U5198> \x8F\xB2\xF4 |0 # CJK Ideograph
-<U519D> \x8F\xB2\xF5 |0 # CJK Ideograph
-<U51A1> \x8F\xB2\xF6 |0 # CJK Ideograph
-<U51A3> \x8F\xB2\xF7 |0 # CJK Ideograph
-<U51AD> \x8F\xB2\xF8 |0 # CJK Ideograph
-<U51B8> \x8F\xB2\xF9 |0 # CJK Ideograph
-<U51BA> \x8F\xB2\xFA |0 # CJK Ideograph
-<U51BC> \x8F\xB2\xFB |0 # CJK Ideograph
-<U51BE> \x8F\xB2\xFC |0 # CJK Ideograph
-<U51BF> \x8F\xB2\xFD |0 # CJK Ideograph
-<U51C2> \x8F\xB2\xFE |0 # CJK Ideograph
-<U51C8> \x8F\xB3\xA1 |0 # CJK Ideograph
-<U51CF> \x8F\xB3\xA2 |0 # CJK Ideograph
-<U51D1> \x8F\xB3\xA3 |0 # CJK Ideograph
-<U51D2> \x8F\xB3\xA4 |0 # CJK Ideograph
-<U51D3> \x8F\xB3\xA5 |0 # CJK Ideograph
-<U51D5> \x8F\xB3\xA6 |0 # CJK Ideograph
-<U51D8> \x8F\xB3\xA7 |0 # CJK Ideograph
-<U51DE> \x8F\xB3\xA8 |0 # CJK Ideograph
-<U51E2> \x8F\xB3\xA9 |0 # CJK Ideograph
-<U51E5> \x8F\xB3\xAA |0 # CJK Ideograph
-<U51EE> \x8F\xB3\xAB |0 # CJK Ideograph
-<U51F2> \x8F\xB3\xAC |0 # CJK Ideograph
-<U51F3> \x8F\xB3\xAD |0 # CJK Ideograph
-<U51F4> \x8F\xB3\xAE |0 # CJK Ideograph
-<U51F7> \x8F\xB3\xAF |0 # CJK Ideograph
-<U5201> \x8F\xB3\xB0 |0 # CJK Ideograph
-<U5202> \x8F\xB3\xB1 |0 # CJK Ideograph
-<U5205> \x8F\xB3\xB2 |0 # CJK Ideograph
-<U5212> \x8F\xB3\xB3 |0 # CJK Ideograph
-<U5213> \x8F\xB3\xB4 |0 # CJK Ideograph
-<U5215> \x8F\xB3\xB5 |0 # CJK Ideograph
-<U5216> \x8F\xB3\xB6 |0 # CJK Ideograph
-<U5218> \x8F\xB3\xB7 |0 # CJK Ideograph
-<U5222> \x8F\xB3\xB8 |0 # CJK Ideograph
-<U5228> \x8F\xB3\xB9 |0 # CJK Ideograph
-<U5231> \x8F\xB3\xBA |0 # CJK Ideograph
-<U5232> \x8F\xB3\xBB |0 # CJK Ideograph
-<U5235> \x8F\xB3\xBC |0 # CJK Ideograph
-<U523C> \x8F\xB3\xBD |0 # CJK Ideograph
-<U5245> \x8F\xB3\xBE |0 # CJK Ideograph
-<U5249> \x8F\xB3\xBF |0 # CJK Ideograph
-<U5255> \x8F\xB3\xC0 |0 # CJK Ideograph
-<U5257> \x8F\xB3\xC1 |0 # CJK Ideograph
-<U5258> \x8F\xB3\xC2 |0 # CJK Ideograph
-<U525A> \x8F\xB3\xC3 |0 # CJK Ideograph
-<U525C> \x8F\xB3\xC4 |0 # CJK Ideograph
-<U525F> \x8F\xB3\xC5 |0 # CJK Ideograph
-<U5260> \x8F\xB3\xC6 |0 # CJK Ideograph
-<U5261> \x8F\xB3\xC7 |0 # CJK Ideograph
-<U5266> \x8F\xB3\xC8 |0 # CJK Ideograph
-<U526E> \x8F\xB3\xC9 |0 # CJK Ideograph
-<U5277> \x8F\xB3\xCA |0 # CJK Ideograph
-<U5278> \x8F\xB3\xCB |0 # CJK Ideograph
-<U5279> \x8F\xB3\xCC |0 # CJK Ideograph
-<U5280> \x8F\xB3\xCD |0 # CJK Ideograph
-<U5282> \x8F\xB3\xCE |0 # CJK Ideograph
-<U5285> \x8F\xB3\xCF |0 # CJK Ideograph
-<U528A> \x8F\xB3\xD0 |0 # CJK Ideograph
-<U528C> \x8F\xB3\xD1 |0 # CJK Ideograph
-<U5293> \x8F\xB3\xD2 |0 # CJK Ideograph
-<U5295> \x8F\xB3\xD3 |0 # CJK Ideograph
-<U5296> \x8F\xB3\xD4 |0 # CJK Ideograph
-<U5297> \x8F\xB3\xD5 |0 # CJK Ideograph
-<U5298> \x8F\xB3\xD6 |0 # CJK Ideograph
-<U529A> \x8F\xB3\xD7 |0 # CJK Ideograph
-<U529C> \x8F\xB3\xD8 |0 # CJK Ideograph
-<U52A4> \x8F\xB3\xD9 |0 # CJK Ideograph
-<U52A5> \x8F\xB3\xDA |0 # CJK Ideograph
-<U52A6> \x8F\xB3\xDB |0 # CJK Ideograph
-<U52A7> \x8F\xB3\xDC |0 # CJK Ideograph
-<U52AF> \x8F\xB3\xDD |0 # CJK Ideograph
-<U52B0> \x8F\xB3\xDE |0 # CJK Ideograph
-<U52B6> \x8F\xB3\xDF |0 # CJK Ideograph
-<U52B7> \x8F\xB3\xE0 |0 # CJK Ideograph
-<U52B8> \x8F\xB3\xE1 |0 # CJK Ideograph
-<U52BA> \x8F\xB3\xE2 |0 # CJK Ideograph
-<U52BB> \x8F\xB3\xE3 |0 # CJK Ideograph
-<U52BD> \x8F\xB3\xE4 |0 # CJK Ideograph
-<U52C0> \x8F\xB3\xE5 |0 # CJK Ideograph
-<U52C4> \x8F\xB3\xE6 |0 # CJK Ideograph
-<U52C6> \x8F\xB3\xE7 |0 # CJK Ideograph
-<U52C8> \x8F\xB3\xE8 |0 # CJK Ideograph
-<U52CC> \x8F\xB3\xE9 |0 # CJK Ideograph
-<U52CF> \x8F\xB3\xEA |0 # CJK Ideograph
-<U52D1> \x8F\xB3\xEB |0 # CJK Ideograph
-<U52D4> \x8F\xB3\xEC |0 # CJK Ideograph
-<U52D6> \x8F\xB3\xED |0 # CJK Ideograph
-<U52DB> \x8F\xB3\xEE |0 # CJK Ideograph
-<U52DC> \x8F\xB3\xEF |0 # CJK Ideograph
-<U52E1> \x8F\xB3\xF0 |0 # CJK Ideograph
-<U52E5> \x8F\xB3\xF1 |0 # CJK Ideograph
-<U52E8> \x8F\xB3\xF2 |0 # CJK Ideograph
-<U52E9> \x8F\xB3\xF3 |0 # CJK Ideograph
-<U52EA> \x8F\xB3\xF4 |0 # CJK Ideograph
-<U52EC> \x8F\xB3\xF5 |0 # CJK Ideograph
-<U52F0> \x8F\xB3\xF6 |0 # CJK Ideograph
-<U52F1> \x8F\xB3\xF7 |0 # CJK Ideograph
-<U52F4> \x8F\xB3\xF8 |0 # CJK Ideograph
-<U52F6> \x8F\xB3\xF9 |0 # CJK Ideograph
-<U52F7> \x8F\xB3\xFA |0 # CJK Ideograph
-<U5300> \x8F\xB3\xFB |0 # CJK Ideograph
-<U5303> \x8F\xB3\xFC |0 # CJK Ideograph
-<U530A> \x8F\xB3\xFD |0 # CJK Ideograph
-<U530B> \x8F\xB3\xFE |0 # CJK Ideograph
-<U530C> \x8F\xB4\xA1 |0 # CJK Ideograph
-<U5311> \x8F\xB4\xA2 |0 # CJK Ideograph
-<U5313> \x8F\xB4\xA3 |0 # CJK Ideograph
-<U5318> \x8F\xB4\xA4 |0 # CJK Ideograph
-<U531B> \x8F\xB4\xA5 |0 # CJK Ideograph
-<U531C> \x8F\xB4\xA6 |0 # CJK Ideograph
-<U531E> \x8F\xB4\xA7 |0 # CJK Ideograph
-<U531F> \x8F\xB4\xA8 |0 # CJK Ideograph
-<U5325> \x8F\xB4\xA9 |0 # CJK Ideograph
-<U5327> \x8F\xB4\xAA |0 # CJK Ideograph
-<U5328> \x8F\xB4\xAB |0 # CJK Ideograph
-<U5329> \x8F\xB4\xAC |0 # CJK Ideograph
-<U532B> \x8F\xB4\xAD |0 # CJK Ideograph
-<U532C> \x8F\xB4\xAE |0 # CJK Ideograph
-<U532D> \x8F\xB4\xAF |0 # CJK Ideograph
-<U5330> \x8F\xB4\xB0 |0 # CJK Ideograph
-<U5332> \x8F\xB4\xB1 |0 # CJK Ideograph
-<U5335> \x8F\xB4\xB2 |0 # CJK Ideograph
-<U533C> \x8F\xB4\xB3 |0 # CJK Ideograph
-<U533D> \x8F\xB4\xB4 |0 # CJK Ideograph
-<U533E> \x8F\xB4\xB5 |0 # CJK Ideograph
-<U5342> \x8F\xB4\xB6 |0 # CJK Ideograph
-<U534C> \x8F\xB4\xB7 |0 # CJK Ideograph
-<U534B> \x8F\xB4\xB8 |0 # CJK Ideograph
-<U5359> \x8F\xB4\xB9 |0 # CJK Ideograph
-<U535B> \x8F\xB4\xBA |0 # CJK Ideograph
-<U5361> \x8F\xB4\xBB |0 # CJK Ideograph
-<U5363> \x8F\xB4\xBC |0 # CJK Ideograph
-<U5365> \x8F\xB4\xBD |0 # CJK Ideograph
-<U536C> \x8F\xB4\xBE |0 # CJK Ideograph
-<U536D> \x8F\xB4\xBF |0 # CJK Ideograph
-<U5372> \x8F\xB4\xC0 |0 # CJK Ideograph
-<U5379> \x8F\xB4\xC1 |0 # CJK Ideograph
-<U537E> \x8F\xB4\xC2 |0 # CJK Ideograph
-<U5383> \x8F\xB4\xC3 |0 # CJK Ideograph
-<U5387> \x8F\xB4\xC4 |0 # CJK Ideograph
-<U5388> \x8F\xB4\xC5 |0 # CJK Ideograph
-<U538E> \x8F\xB4\xC6 |0 # CJK Ideograph
-<U5393> \x8F\xB4\xC7 |0 # CJK Ideograph
-<U5394> \x8F\xB4\xC8 |0 # CJK Ideograph
-<U5399> \x8F\xB4\xC9 |0 # CJK Ideograph
-<U539D> \x8F\xB4\xCA |0 # CJK Ideograph
-<U53A1> \x8F\xB4\xCB |0 # CJK Ideograph
-<U53A4> \x8F\xB4\xCC |0 # CJK Ideograph
-<U53AA> \x8F\xB4\xCD |0 # CJK Ideograph
-<U53AB> \x8F\xB4\xCE |0 # CJK Ideograph
-<U53AF> \x8F\xB4\xCF |0 # CJK Ideograph
-<U53B2> \x8F\xB4\xD0 |0 # CJK Ideograph
-<U53B4> \x8F\xB4\xD1 |0 # CJK Ideograph
-<U53B5> \x8F\xB4\xD2 |0 # CJK Ideograph
-<U53B7> \x8F\xB4\xD3 |0 # CJK Ideograph
-<U53B8> \x8F\xB4\xD4 |0 # CJK Ideograph
-<U53BA> \x8F\xB4\xD5 |0 # CJK Ideograph
-<U53BD> \x8F\xB4\xD6 |0 # CJK Ideograph
-<U53C0> \x8F\xB4\xD7 |0 # CJK Ideograph
-<U53C5> \x8F\xB4\xD8 |0 # CJK Ideograph
-<U53CF> \x8F\xB4\xD9 |0 # CJK Ideograph
-<U53D2> \x8F\xB4\xDA |0 # CJK Ideograph
-<U53D3> \x8F\xB4\xDB |0 # CJK Ideograph
-<U53D5> \x8F\xB4\xDC |0 # CJK Ideograph
-<U53DA> \x8F\xB4\xDD |0 # CJK Ideograph
-<U53DD> \x8F\xB4\xDE |0 # CJK Ideograph
-<U53DE> \x8F\xB4\xDF |0 # CJK Ideograph
-<U53E0> \x8F\xB4\xE0 |0 # CJK Ideograph
-<U53E6> \x8F\xB4\xE1 |0 # CJK Ideograph
-<U53E7> \x8F\xB4\xE2 |0 # CJK Ideograph
-<U53F5> \x8F\xB4\xE3 |0 # CJK Ideograph
-<U5402> \x8F\xB4\xE4 |0 # CJK Ideograph
-<U5413> \x8F\xB4\xE5 |0 # CJK Ideograph
-<U541A> \x8F\xB4\xE6 |0 # CJK Ideograph
-<U5421> \x8F\xB4\xE7 |0 # CJK Ideograph
-<U5427> \x8F\xB4\xE8 |0 # CJK Ideograph
-<U5428> \x8F\xB4\xE9 |0 # CJK Ideograph
-<U542A> \x8F\xB4\xEA |0 # CJK Ideograph
-<U542F> \x8F\xB4\xEB |0 # CJK Ideograph
-<U5431> \x8F\xB4\xEC |0 # CJK Ideograph
-<U5434> \x8F\xB4\xED |0 # CJK Ideograph
-<U5435> \x8F\xB4\xEE |0 # CJK Ideograph
-<U5443> \x8F\xB4\xEF |0 # CJK Ideograph
-<U5444> \x8F\xB4\xF0 |0 # CJK Ideograph
-<U5447> \x8F\xB4\xF1 |0 # CJK Ideograph
-<U544D> \x8F\xB4\xF2 |0 # CJK Ideograph
-<U544F> \x8F\xB4\xF3 |0 # CJK Ideograph
-<U545E> \x8F\xB4\xF4 |0 # CJK Ideograph
-<U5462> \x8F\xB4\xF5 |0 # CJK Ideograph
-<U5464> \x8F\xB4\xF6 |0 # CJK Ideograph
-<U5466> \x8F\xB4\xF7 |0 # CJK Ideograph
-<U5467> \x8F\xB4\xF8 |0 # CJK Ideograph
-<U5469> \x8F\xB4\xF9 |0 # CJK Ideograph
-<U546B> \x8F\xB4\xFA |0 # CJK Ideograph
-<U546D> \x8F\xB4\xFB |0 # CJK Ideograph
-<U546E> \x8F\xB4\xFC |0 # CJK Ideograph
-<U5474> \x8F\xB4\xFD |0 # CJK Ideograph
-<U547F> \x8F\xB4\xFE |0 # CJK Ideograph
-<U5481> \x8F\xB5\xA1 |0 # CJK Ideograph
-<U5483> \x8F\xB5\xA2 |0 # CJK Ideograph
-<U5485> \x8F\xB5\xA3 |0 # CJK Ideograph
-<U5488> \x8F\xB5\xA4 |0 # CJK Ideograph
-<U5489> \x8F\xB5\xA5 |0 # CJK Ideograph
-<U548D> \x8F\xB5\xA6 |0 # CJK Ideograph
-<U5491> \x8F\xB5\xA7 |0 # CJK Ideograph
-<U5495> \x8F\xB5\xA8 |0 # CJK Ideograph
-<U5496> \x8F\xB5\xA9 |0 # CJK Ideograph
-<U549C> \x8F\xB5\xAA |0 # CJK Ideograph
-<U549F> \x8F\xB5\xAB |0 # CJK Ideograph
-<U54A1> \x8F\xB5\xAC |0 # CJK Ideograph
-<U54A6> \x8F\xB5\xAD |0 # CJK Ideograph
-<U54A7> \x8F\xB5\xAE |0 # CJK Ideograph
-<U54A9> \x8F\xB5\xAF |0 # CJK Ideograph
-<U54AA> \x8F\xB5\xB0 |0 # CJK Ideograph
-<U54AD> \x8F\xB5\xB1 |0 # CJK Ideograph
-<U54AE> \x8F\xB5\xB2 |0 # CJK Ideograph
-<U54B1> \x8F\xB5\xB3 |0 # CJK Ideograph
-<U54B7> \x8F\xB5\xB4 |0 # CJK Ideograph
-<U54B9> \x8F\xB5\xB5 |0 # CJK Ideograph
-<U54BA> \x8F\xB5\xB6 |0 # CJK Ideograph
-<U54BB> \x8F\xB5\xB7 |0 # CJK Ideograph
-<U54BF> \x8F\xB5\xB8 |0 # CJK Ideograph
-<U54C6> \x8F\xB5\xB9 |0 # CJK Ideograph
-<U54CA> \x8F\xB5\xBA |0 # CJK Ideograph
-<U54CD> \x8F\xB5\xBB |0 # CJK Ideograph
-<U54CE> \x8F\xB5\xBC |0 # CJK Ideograph
-<U54E0> \x8F\xB5\xBD |0 # CJK Ideograph
-<U54EA> \x8F\xB5\xBE |0 # CJK Ideograph
-<U54EC> \x8F\xB5\xBF |0 # CJK Ideograph
-<U54EF> \x8F\xB5\xC0 |0 # CJK Ideograph
-<U54F6> \x8F\xB5\xC1 |0 # CJK Ideograph
-<U54FC> \x8F\xB5\xC2 |0 # CJK Ideograph
-<U54FE> \x8F\xB5\xC3 |0 # CJK Ideograph
-<U54FF> \x8F\xB5\xC4 |0 # CJK Ideograph
-<U5500> \x8F\xB5\xC5 |0 # CJK Ideograph
-<U5501> \x8F\xB5\xC6 |0 # CJK Ideograph
-<U5505> \x8F\xB5\xC7 |0 # CJK Ideograph
-<U5508> \x8F\xB5\xC8 |0 # CJK Ideograph
-<U5509> \x8F\xB5\xC9 |0 # CJK Ideograph
-<U550C> \x8F\xB5\xCA |0 # CJK Ideograph
-<U550D> \x8F\xB5\xCB |0 # CJK Ideograph
-<U550E> \x8F\xB5\xCC |0 # CJK Ideograph
-<U5515> \x8F\xB5\xCD |0 # CJK Ideograph
-<U552A> \x8F\xB5\xCE |0 # CJK Ideograph
-<U552B> \x8F\xB5\xCF |0 # CJK Ideograph
-<U5532> \x8F\xB5\xD0 |0 # CJK Ideograph
-<U5535> \x8F\xB5\xD1 |0 # CJK Ideograph
-<U5536> \x8F\xB5\xD2 |0 # CJK Ideograph
-<U553B> \x8F\xB5\xD3 |0 # CJK Ideograph
-<U553C> \x8F\xB5\xD4 |0 # CJK Ideograph
-<U553D> \x8F\xB5\xD5 |0 # CJK Ideograph
-<U5541> \x8F\xB5\xD6 |0 # CJK Ideograph
-<U5547> \x8F\xB5\xD7 |0 # CJK Ideograph
-<U5549> \x8F\xB5\xD8 |0 # CJK Ideograph
-<U554A> \x8F\xB5\xD9 |0 # CJK Ideograph
-<U554D> \x8F\xB5\xDA |0 # CJK Ideograph
-<U5550> \x8F\xB5\xDB |0 # CJK Ideograph
-<U5551> \x8F\xB5\xDC |0 # CJK Ideograph
-<U5558> \x8F\xB5\xDD |0 # CJK Ideograph
-<U555A> \x8F\xB5\xDE |0 # CJK Ideograph
-<U555B> \x8F\xB5\xDF |0 # CJK Ideograph
-<U555E> \x8F\xB5\xE0 |0 # CJK Ideograph
-<U5560> \x8F\xB5\xE1 |0 # CJK Ideograph
-<U5561> \x8F\xB5\xE2 |0 # CJK Ideograph
-<U5564> \x8F\xB5\xE3 |0 # CJK Ideograph
-<U5566> \x8F\xB5\xE4 |0 # CJK Ideograph
-<U557F> \x8F\xB5\xE5 |0 # CJK Ideograph
-<U5581> \x8F\xB5\xE6 |0 # CJK Ideograph
-<U5582> \x8F\xB5\xE7 |0 # CJK Ideograph
-<U5586> \x8F\xB5\xE8 |0 # CJK Ideograph
-<U5588> \x8F\xB5\xE9 |0 # CJK Ideograph
-<U558E> \x8F\xB5\xEA |0 # CJK Ideograph
-<U558F> \x8F\xB5\xEB |0 # CJK Ideograph
-<U5591> \x8F\xB5\xEC |0 # CJK Ideograph
-<U5592> \x8F\xB5\xED |0 # CJK Ideograph
-<U5593> \x8F\xB5\xEE |0 # CJK Ideograph
-<U5594> \x8F\xB5\xEF |0 # CJK Ideograph
-<U5597> \x8F\xB5\xF0 |0 # CJK Ideograph
-<U55A3> \x8F\xB5\xF1 |0 # CJK Ideograph
-<U55A4> \x8F\xB5\xF2 |0 # CJK Ideograph
-<U55AD> \x8F\xB5\xF3 |0 # CJK Ideograph
-<U55B2> \x8F\xB5\xF4 |0 # CJK Ideograph
-<U55BF> \x8F\xB5\xF5 |0 # CJK Ideograph
-<U55C1> \x8F\xB5\xF6 |0 # CJK Ideograph
-<U55C3> \x8F\xB5\xF7 |0 # CJK Ideograph
-<U55C6> \x8F\xB5\xF8 |0 # CJK Ideograph
-<U55C9> \x8F\xB5\xF9 |0 # CJK Ideograph
-<U55CB> \x8F\xB5\xFA |0 # CJK Ideograph
-<U55CC> \x8F\xB5\xFB |0 # CJK Ideograph
-<U55CE> \x8F\xB5\xFC |0 # CJK Ideograph
-<U55D1> \x8F\xB5\xFD |0 # CJK Ideograph
-<U55D2> \x8F\xB5\xFE |0 # CJK Ideograph
-<U55D3> \x8F\xB6\xA1 |0 # CJK Ideograph
-<U55D7> \x8F\xB6\xA2 |0 # CJK Ideograph
-<U55D8> \x8F\xB6\xA3 |0 # CJK Ideograph
-<U55DB> \x8F\xB6\xA4 |0 # CJK Ideograph
-<U55DE> \x8F\xB6\xA5 |0 # CJK Ideograph
-<U55E2> \x8F\xB6\xA6 |0 # CJK Ideograph
-<U55E9> \x8F\xB6\xA7 |0 # CJK Ideograph
-<U55F6> \x8F\xB6\xA8 |0 # CJK Ideograph
-<U55FF> \x8F\xB6\xA9 |0 # CJK Ideograph
-<U5605> \x8F\xB6\xAA |0 # CJK Ideograph
-<U5608> \x8F\xB6\xAB |0 # CJK Ideograph
-<U560A> \x8F\xB6\xAC |0 # CJK Ideograph
-<U560D> \x8F\xB6\xAD |0 # CJK Ideograph
-<U560E> \x8F\xB6\xAE |0 # CJK Ideograph
-<U560F> \x8F\xB6\xAF |0 # CJK Ideograph
-<U5610> \x8F\xB6\xB0 |0 # CJK Ideograph
-<U5611> \x8F\xB6\xB1 |0 # CJK Ideograph
-<U5612> \x8F\xB6\xB2 |0 # CJK Ideograph
-<U5619> \x8F\xB6\xB3 |0 # CJK Ideograph
-<U562C> \x8F\xB6\xB4 |0 # CJK Ideograph
-<U5630> \x8F\xB6\xB5 |0 # CJK Ideograph
-<U5633> \x8F\xB6\xB6 |0 # CJK Ideograph
-<U5635> \x8F\xB6\xB7 |0 # CJK Ideograph
-<U5637> \x8F\xB6\xB8 |0 # CJK Ideograph
-<U5639> \x8F\xB6\xB9 |0 # CJK Ideograph
-<U563B> \x8F\xB6\xBA |0 # CJK Ideograph
-<U563C> \x8F\xB6\xBB |0 # CJK Ideograph
-<U563D> \x8F\xB6\xBC |0 # CJK Ideograph
-<U563F> \x8F\xB6\xBD |0 # CJK Ideograph
-<U5640> \x8F\xB6\xBE |0 # CJK Ideograph
-<U5641> \x8F\xB6\xBF |0 # CJK Ideograph
-<U5643> \x8F\xB6\xC0 |0 # CJK Ideograph
-<U5644> \x8F\xB6\xC1 |0 # CJK Ideograph
-<U5646> \x8F\xB6\xC2 |0 # CJK Ideograph
-<U5649> \x8F\xB6\xC3 |0 # CJK Ideograph
-<U564B> \x8F\xB6\xC4 |0 # CJK Ideograph
-<U564D> \x8F\xB6\xC5 |0 # CJK Ideograph
-<U564F> \x8F\xB6\xC6 |0 # CJK Ideograph
-<U5654> \x8F\xB6\xC7 |0 # CJK Ideograph
-<U565E> \x8F\xB6\xC8 |0 # CJK Ideograph
-<U5660> \x8F\xB6\xC9 |0 # CJK Ideograph
-<U5661> \x8F\xB6\xCA |0 # CJK Ideograph
-<U5662> \x8F\xB6\xCB |0 # CJK Ideograph
-<U5663> \x8F\xB6\xCC |0 # CJK Ideograph
-<U5666> \x8F\xB6\xCD |0 # CJK Ideograph
-<U5669> \x8F\xB6\xCE |0 # CJK Ideograph
-<U566D> \x8F\xB6\xCF |0 # CJK Ideograph
-<U566F> \x8F\xB6\xD0 |0 # CJK Ideograph
-<U5671> \x8F\xB6\xD1 |0 # CJK Ideograph
-<U5672> \x8F\xB6\xD2 |0 # CJK Ideograph
-<U5675> \x8F\xB6\xD3 |0 # CJK Ideograph
-<U5684> \x8F\xB6\xD4 |0 # CJK Ideograph
-<U5685> \x8F\xB6\xD5 |0 # CJK Ideograph
-<U5688> \x8F\xB6\xD6 |0 # CJK Ideograph
-<U568B> \x8F\xB6\xD7 |0 # CJK Ideograph
-<U568C> \x8F\xB6\xD8 |0 # CJK Ideograph
-<U5695> \x8F\xB6\xD9 |0 # CJK Ideograph
-<U5699> \x8F\xB6\xDA |0 # CJK Ideograph
-<U569A> \x8F\xB6\xDB |0 # CJK Ideograph
-<U569D> \x8F\xB6\xDC |0 # CJK Ideograph
-<U569E> \x8F\xB6\xDD |0 # CJK Ideograph
-<U569F> \x8F\xB6\xDE |0 # CJK Ideograph
-<U56A6> \x8F\xB6\xDF |0 # CJK Ideograph
-<U56A7> \x8F\xB6\xE0 |0 # CJK Ideograph
-<U56A8> \x8F\xB6\xE1 |0 # CJK Ideograph
-<U56A9> \x8F\xB6\xE2 |0 # CJK Ideograph
-<U56AB> \x8F\xB6\xE3 |0 # CJK Ideograph
-<U56AC> \x8F\xB6\xE4 |0 # CJK Ideograph
-<U56AD> \x8F\xB6\xE5 |0 # CJK Ideograph
-<U56B1> \x8F\xB6\xE6 |0 # CJK Ideograph
-<U56B3> \x8F\xB6\xE7 |0 # CJK Ideograph
-<U56B7> \x8F\xB6\xE8 |0 # CJK Ideograph
-<U56BE> \x8F\xB6\xE9 |0 # CJK Ideograph
-<U56C5> \x8F\xB6\xEA |0 # CJK Ideograph
-<U56C9> \x8F\xB6\xEB |0 # CJK Ideograph
-<U56CA> \x8F\xB6\xEC |0 # CJK Ideograph
-<U56CB> \x8F\xB6\xED |0 # CJK Ideograph
-<U56CF> \x8F\xB6\xEE |0 # CJK Ideograph
-<U56D0> \x8F\xB6\xEF |0 # CJK Ideograph
-<U56CC> \x8F\xB6\xF0 |0 # CJK Ideograph
-<U56CD> \x8F\xB6\xF1 |0 # CJK Ideograph
-<U56D9> \x8F\xB6\xF2 |0 # CJK Ideograph
-<U56DC> \x8F\xB6\xF3 |0 # CJK Ideograph
-<U56DD> \x8F\xB6\xF4 |0 # CJK Ideograph
-<U56DF> \x8F\xB6\xF5 |0 # CJK Ideograph
-<U56E1> \x8F\xB6\xF6 |0 # CJK Ideograph
-<U56E4> \x8F\xB6\xF7 |0 # CJK Ideograph
-<U56E5> \x8F\xB6\xF8 |0 # CJK Ideograph
-<U56E6> \x8F\xB6\xF9 |0 # CJK Ideograph
-<U56E7> \x8F\xB6\xFA |0 # CJK Ideograph
-<U56E8> \x8F\xB6\xFB |0 # CJK Ideograph
-<U56F1> \x8F\xB6\xFC |0 # CJK Ideograph
-<U56EB> \x8F\xB6\xFD |0 # CJK Ideograph
-<U56ED> \x8F\xB6\xFE |0 # CJK Ideograph
-<U56F6> \x8F\xB7\xA1 |0 # CJK Ideograph
-<U56F7> \x8F\xB7\xA2 |0 # CJK Ideograph
-<U5701> \x8F\xB7\xA3 |0 # CJK Ideograph
-<U5702> \x8F\xB7\xA4 |0 # CJK Ideograph
-<U5707> \x8F\xB7\xA5 |0 # CJK Ideograph
-<U570A> \x8F\xB7\xA6 |0 # CJK Ideograph
-<U570C> \x8F\xB7\xA7 |0 # CJK Ideograph
-<U5711> \x8F\xB7\xA8 |0 # CJK Ideograph
-<U5715> \x8F\xB7\xA9 |0 # CJK Ideograph
-<U571A> \x8F\xB7\xAA |0 # CJK Ideograph
-<U571B> \x8F\xB7\xAB |0 # CJK Ideograph
-<U571D> \x8F\xB7\xAC |0 # CJK Ideograph
-<U5720> \x8F\xB7\xAD |0 # CJK Ideograph
-<U5722> \x8F\xB7\xAE |0 # CJK Ideograph
-<U5723> \x8F\xB7\xAF |0 # CJK Ideograph
-<U5724> \x8F\xB7\xB0 |0 # CJK Ideograph
-<U5725> \x8F\xB7\xB1 |0 # CJK Ideograph
-<U5729> \x8F\xB7\xB2 |0 # CJK Ideograph
-<U572A> \x8F\xB7\xB3 |0 # CJK Ideograph
-<U572C> \x8F\xB7\xB4 |0 # CJK Ideograph
-<U572E> \x8F\xB7\xB5 |0 # CJK Ideograph
-<U572F> \x8F\xB7\xB6 |0 # CJK Ideograph
-<U5733> \x8F\xB7\xB7 |0 # CJK Ideograph
-<U5734> \x8F\xB7\xB8 |0 # CJK Ideograph
-<U573D> \x8F\xB7\xB9 |0 # CJK Ideograph
-<U573E> \x8F\xB7\xBA |0 # CJK Ideograph
-<U573F> \x8F\xB7\xBB |0 # CJK Ideograph
-<U5745> \x8F\xB7\xBC |0 # CJK Ideograph
-<U5746> \x8F\xB7\xBD |0 # CJK Ideograph
-<U574C> \x8F\xB7\xBE |0 # CJK Ideograph
-<U574D> \x8F\xB7\xBF |0 # CJK Ideograph
-<U5752> \x8F\xB7\xC0 |0 # CJK Ideograph
-<U5762> \x8F\xB7\xC1 |0 # CJK Ideograph
-<U5765> \x8F\xB7\xC2 |0 # CJK Ideograph
-<U5767> \x8F\xB7\xC3 |0 # CJK Ideograph
-<U5768> \x8F\xB7\xC4 |0 # CJK Ideograph
-<U576B> \x8F\xB7\xC5 |0 # CJK Ideograph
-<U576D> \x8F\xB7\xC6 |0 # CJK Ideograph
-<U576E> \x8F\xB7\xC7 |0 # CJK Ideograph
-<U576F> \x8F\xB7\xC8 |0 # CJK Ideograph
-<U5770> \x8F\xB7\xC9 |0 # CJK Ideograph
-<U5771> \x8F\xB7\xCA |0 # CJK Ideograph
-<U5773> \x8F\xB7\xCB |0 # CJK Ideograph
-<U5774> \x8F\xB7\xCC |0 # CJK Ideograph
-<U5775> \x8F\xB7\xCD |0 # CJK Ideograph
-<U5777> \x8F\xB7\xCE |0 # CJK Ideograph
-<U5779> \x8F\xB7\xCF |0 # CJK Ideograph
-<U577A> \x8F\xB7\xD0 |0 # CJK Ideograph
-<U577B> \x8F\xB7\xD1 |0 # CJK Ideograph
-<U577C> \x8F\xB7\xD2 |0 # CJK Ideograph
-<U577E> \x8F\xB7\xD3 |0 # CJK Ideograph
-<U5781> \x8F\xB7\xD4 |0 # CJK Ideograph
-<U5783> \x8F\xB7\xD5 |0 # CJK Ideograph
-<U578C> \x8F\xB7\xD6 |0 # CJK Ideograph
-<U5794> \x8F\xB7\xD7 |0 # CJK Ideograph
-<U5797> \x8F\xB7\xD8 |0 # CJK Ideograph
-<U5799> \x8F\xB7\xD9 |0 # CJK Ideograph
-<U579A> \x8F\xB7\xDA |0 # CJK Ideograph
-<U579C> \x8F\xB7\xDB |0 # CJK Ideograph
-<U579D> \x8F\xB7\xDC |0 # CJK Ideograph
-<U579E> \x8F\xB7\xDD |0 # CJK Ideograph
-<U579F> \x8F\xB7\xDE |0 # CJK Ideograph
-<U57A1> \x8F\xB7\xDF |0 # CJK Ideograph
-<U5795> \x8F\xB7\xE0 |0 # CJK Ideograph
-<U57A7> \x8F\xB7\xE1 |0 # CJK Ideograph
-<U57A8> \x8F\xB7\xE2 |0 # CJK Ideograph
-<U57A9> \x8F\xB7\xE3 |0 # CJK Ideograph
-<U57AC> \x8F\xB7\xE4 |0 # CJK Ideograph
-<U57B8> \x8F\xB7\xE5 |0 # CJK Ideograph
-<U57BD> \x8F\xB7\xE6 |0 # CJK Ideograph
-<U57C7> \x8F\xB7\xE7 |0 # CJK Ideograph
-<U57C8> \x8F\xB7\xE8 |0 # CJK Ideograph
-<U57CC> \x8F\xB7\xE9 |0 # CJK Ideograph
-<U57CF> \x8F\xB7\xEA |0 # CJK Ideograph
-<U57D5> \x8F\xB7\xEB |0 # CJK Ideograph
-<U57DD> \x8F\xB7\xEC |0 # CJK Ideograph
-<U57DE> \x8F\xB7\xED |0 # CJK Ideograph
-<U57E4> \x8F\xB7\xEE |0 # CJK Ideograph
-<U57E6> \x8F\xB7\xEF |0 # CJK Ideograph
-<U57E7> \x8F\xB7\xF0 |0 # CJK Ideograph
-<U57E9> \x8F\xB7\xF1 |0 # CJK Ideograph
-<U57ED> \x8F\xB7\xF2 |0 # CJK Ideograph
-<U57F0> \x8F\xB7\xF3 |0 # CJK Ideograph
-<U57F5> \x8F\xB7\xF4 |0 # CJK Ideograph
-<U57F6> \x8F\xB7\xF5 |0 # CJK Ideograph
-<U57F8> \x8F\xB7\xF6 |0 # CJK Ideograph
-<U57FD> \x8F\xB7\xF7 |0 # CJK Ideograph
-<U57FE> \x8F\xB7\xF8 |0 # CJK Ideograph
-<U57FF> \x8F\xB7\xF9 |0 # CJK Ideograph
-<U5803> \x8F\xB7\xFA |0 # CJK Ideograph
-<U5804> \x8F\xB7\xFB |0 # CJK Ideograph
-<U5808> \x8F\xB7\xFC |0 # CJK Ideograph
-<U5809> \x8F\xB7\xFD |0 # CJK Ideograph
-<U57E1> \x8F\xB7\xFE |0 # CJK Ideograph
-<U580C> \x8F\xB8\xA1 |0 # CJK Ideograph
-<U580D> \x8F\xB8\xA2 |0 # CJK Ideograph
-<U581B> \x8F\xB8\xA3 |0 # CJK Ideograph
-<U581E> \x8F\xB8\xA4 |0 # CJK Ideograph
-<U581F> \x8F\xB8\xA5 |0 # CJK Ideograph
-<U5820> \x8F\xB8\xA6 |0 # CJK Ideograph
-<U5826> \x8F\xB8\xA7 |0 # CJK Ideograph
-<U5827> \x8F\xB8\xA8 |0 # CJK Ideograph
-<U582D> \x8F\xB8\xA9 |0 # CJK Ideograph
-<U5832> \x8F\xB8\xAA |0 # CJK Ideograph
-<U5839> \x8F\xB8\xAB |0 # CJK Ideograph
-<U583F> \x8F\xB8\xAC |0 # CJK Ideograph
-<U5849> \x8F\xB8\xAD |0 # CJK Ideograph
-<U584C> \x8F\xB8\xAE |0 # CJK Ideograph
-<U584D> \x8F\xB8\xAF |0 # CJK Ideograph
-<U584F> \x8F\xB8\xB0 |0 # CJK Ideograph
-<U5850> \x8F\xB8\xB1 |0 # CJK Ideograph
-<U5855> \x8F\xB8\xB2 |0 # CJK Ideograph
-<U585F> \x8F\xB8\xB3 |0 # CJK Ideograph
-<U5861> \x8F\xB8\xB4 |0 # CJK Ideograph
-<U5864> \x8F\xB8\xB5 |0 # CJK Ideograph
-<U5867> \x8F\xB8\xB6 |0 # CJK Ideograph
-<U5868> \x8F\xB8\xB7 |0 # CJK Ideograph
-<U5878> \x8F\xB8\xB8 |0 # CJK Ideograph
-<U587C> \x8F\xB8\xB9 |0 # CJK Ideograph
-<U587F> \x8F\xB8\xBA |0 # CJK Ideograph
-<U5880> \x8F\xB8\xBB |0 # CJK Ideograph
-<U5881> \x8F\xB8\xBC |0 # CJK Ideograph
-<U5887> \x8F\xB8\xBD |0 # CJK Ideograph
-<U5888> \x8F\xB8\xBE |0 # CJK Ideograph
-<U5889> \x8F\xB8\xBF |0 # CJK Ideograph
-<U588A> \x8F\xB8\xC0 |0 # CJK Ideograph
-<U588C> \x8F\xB8\xC1 |0 # CJK Ideograph
-<U588D> \x8F\xB8\xC2 |0 # CJK Ideograph
-<U588F> \x8F\xB8\xC3 |0 # CJK Ideograph
-<U5890> \x8F\xB8\xC4 |0 # CJK Ideograph
-<U5894> \x8F\xB8\xC5 |0 # CJK Ideograph
-<U5896> \x8F\xB8\xC6 |0 # CJK Ideograph
-<U589D> \x8F\xB8\xC7 |0 # CJK Ideograph
-<U58A0> \x8F\xB8\xC8 |0 # CJK Ideograph
-<U58A1> \x8F\xB8\xC9 |0 # CJK Ideograph
-<U58A2> \x8F\xB8\xCA |0 # CJK Ideograph
-<U58A6> \x8F\xB8\xCB |0 # CJK Ideograph
-<U58A9> \x8F\xB8\xCC |0 # CJK Ideograph
-<U58B1> \x8F\xB8\xCD |0 # CJK Ideograph
-<U58B2> \x8F\xB8\xCE |0 # CJK Ideograph
-<U58C4> \x8F\xB8\xCF |0 # CJK Ideograph
-<U58BC> \x8F\xB8\xD0 |0 # CJK Ideograph
-<U58C2> \x8F\xB8\xD1 |0 # CJK Ideograph
-<U58C8> \x8F\xB8\xD2 |0 # CJK Ideograph
-<U58CD> \x8F\xB8\xD3 |0 # CJK Ideograph
-<U58CE> \x8F\xB8\xD4 |0 # CJK Ideograph
-<U58D0> \x8F\xB8\xD5 |0 # CJK Ideograph
-<U58D2> \x8F\xB8\xD6 |0 # CJK Ideograph
-<U58D4> \x8F\xB8\xD7 |0 # CJK Ideograph
-<U58D6> \x8F\xB8\xD8 |0 # CJK Ideograph
-<U58DA> \x8F\xB8\xD9 |0 # CJK Ideograph
-<U58DD> \x8F\xB8\xDA |0 # CJK Ideograph
-<U58E1> \x8F\xB8\xDB |0 # CJK Ideograph
-<U58E2> \x8F\xB8\xDC |0 # CJK Ideograph
-<U58E9> \x8F\xB8\xDD |0 # CJK Ideograph
-<U58F3> \x8F\xB8\xDE |0 # CJK Ideograph
-<U5905> \x8F\xB8\xDF |0 # CJK Ideograph
-<U5906> \x8F\xB8\xE0 |0 # CJK Ideograph
-<U590B> \x8F\xB8\xE1 |0 # CJK Ideograph
-<U590C> \x8F\xB8\xE2 |0 # CJK Ideograph
-<U5912> \x8F\xB8\xE3 |0 # CJK Ideograph
-<U5913> \x8F\xB8\xE4 |0 # CJK Ideograph
-<U5914> \x8F\xB8\xE5 |0 # CJK Ideograph
-<U8641> \x8F\xB8\xE6 |0 # CJK Ideograph
-<U591D> \x8F\xB8\xE7 |0 # CJK Ideograph
-<U5921> \x8F\xB8\xE8 |0 # CJK Ideograph
-<U5923> \x8F\xB8\xE9 |0 # CJK Ideograph
-<U5924> \x8F\xB8\xEA |0 # CJK Ideograph
-<U5928> \x8F\xB8\xEB |0 # CJK Ideograph
-<U592F> \x8F\xB8\xEC |0 # CJK Ideograph
-<U5930> \x8F\xB8\xED |0 # CJK Ideograph
-<U5933> \x8F\xB8\xEE |0 # CJK Ideograph
-<U5935> \x8F\xB8\xEF |0 # CJK Ideograph
-<U5936> \x8F\xB8\xF0 |0 # CJK Ideograph
-<U593F> \x8F\xB8\xF1 |0 # CJK Ideograph
-<U5943> \x8F\xB8\xF2 |0 # CJK Ideograph
-<U5946> \x8F\xB8\xF3 |0 # CJK Ideograph
-<U5952> \x8F\xB8\xF4 |0 # CJK Ideograph
-<U5953> \x8F\xB8\xF5 |0 # CJK Ideograph
-<U5959> \x8F\xB8\xF6 |0 # CJK Ideograph
-<U595B> \x8F\xB8\xF7 |0 # CJK Ideograph
-<U595D> \x8F\xB8\xF8 |0 # CJK Ideograph
-<U595E> \x8F\xB8\xF9 |0 # CJK Ideograph
-<U595F> \x8F\xB8\xFA |0 # CJK Ideograph
-<U5961> \x8F\xB8\xFB |0 # CJK Ideograph
-<U5963> \x8F\xB8\xFC |0 # CJK Ideograph
-<U596B> \x8F\xB8\xFD |0 # CJK Ideograph
-<U596D> \x8F\xB8\xFE |0 # CJK Ideograph
-<U596F> \x8F\xB9\xA1 |0 # CJK Ideograph
-<U5972> \x8F\xB9\xA2 |0 # CJK Ideograph
-<U5975> \x8F\xB9\xA3 |0 # CJK Ideograph
-<U5976> \x8F\xB9\xA4 |0 # CJK Ideograph
-<U5979> \x8F\xB9\xA5 |0 # CJK Ideograph
-<U597B> \x8F\xB9\xA6 |0 # CJK Ideograph
-<U597C> \x8F\xB9\xA7 |0 # CJK Ideograph
-<U598B> \x8F\xB9\xA8 |0 # CJK Ideograph
-<U598C> \x8F\xB9\xA9 |0 # CJK Ideograph
-<U598E> \x8F\xB9\xAA |0 # CJK Ideograph
-<U5992> \x8F\xB9\xAB |0 # CJK Ideograph
-<U5995> \x8F\xB9\xAC |0 # CJK Ideograph
-<U5997> \x8F\xB9\xAD |0 # CJK Ideograph
-<U599F> \x8F\xB9\xAE |0 # CJK Ideograph
-<U59A4> \x8F\xB9\xAF |0 # CJK Ideograph
-<U59A7> \x8F\xB9\xB0 |0 # CJK Ideograph
-<U59AD> \x8F\xB9\xB1 |0 # CJK Ideograph
-<U59AE> \x8F\xB9\xB2 |0 # CJK Ideograph
-<U59AF> \x8F\xB9\xB3 |0 # CJK Ideograph
-<U59B0> \x8F\xB9\xB4 |0 # CJK Ideograph
-<U59B3> \x8F\xB9\xB5 |0 # CJK Ideograph
-<U59B7> \x8F\xB9\xB6 |0 # CJK Ideograph
-<U59BA> \x8F\xB9\xB7 |0 # CJK Ideograph
-<U59BC> \x8F\xB9\xB8 |0 # CJK Ideograph
-<U59C1> \x8F\xB9\xB9 |0 # CJK Ideograph
-<U59C3> \x8F\xB9\xBA |0 # CJK Ideograph
-<U59C4> \x8F\xB9\xBB |0 # CJK Ideograph
-<U59C8> \x8F\xB9\xBC |0 # CJK Ideograph
-<U59CA> \x8F\xB9\xBD |0 # CJK Ideograph
-<U59CD> \x8F\xB9\xBE |0 # CJK Ideograph
-<U59D2> \x8F\xB9\xBF |0 # CJK Ideograph
-<U59DD> \x8F\xB9\xC0 |0 # CJK Ideograph
-<U59DE> \x8F\xB9\xC1 |0 # CJK Ideograph
-<U59DF> \x8F\xB9\xC2 |0 # CJK Ideograph
-<U59E3> \x8F\xB9\xC3 |0 # CJK Ideograph
-<U59E4> \x8F\xB9\xC4 |0 # CJK Ideograph
-<U59E7> \x8F\xB9\xC5 |0 # CJK Ideograph
-<U59EE> \x8F\xB9\xC6 |0 # CJK Ideograph
-<U59EF> \x8F\xB9\xC7 |0 # CJK Ideograph
-<U59F1> \x8F\xB9\xC8 |0 # CJK Ideograph
-<U59F2> \x8F\xB9\xC9 |0 # CJK Ideograph
-<U59F4> \x8F\xB9\xCA |0 # CJK Ideograph
-<U59F7> \x8F\xB9\xCB |0 # CJK Ideograph
-<U5A00> \x8F\xB9\xCC |0 # CJK Ideograph
-<U5A04> \x8F\xB9\xCD |0 # CJK Ideograph
-<U5A0C> \x8F\xB9\xCE |0 # CJK Ideograph
-<U5A0D> \x8F\xB9\xCF |0 # CJK Ideograph
-<U5A0E> \x8F\xB9\xD0 |0 # CJK Ideograph
-<U5A12> \x8F\xB9\xD1 |0 # CJK Ideograph
-<U5A13> \x8F\xB9\xD2 |0 # CJK Ideograph
-<U5A1E> \x8F\xB9\xD3 |0 # CJK Ideograph
-<U5A23> \x8F\xB9\xD4 |0 # CJK Ideograph
-<U5A24> \x8F\xB9\xD5 |0 # CJK Ideograph
-<U5A27> \x8F\xB9\xD6 |0 # CJK Ideograph
-<U5A28> \x8F\xB9\xD7 |0 # CJK Ideograph
-<U5A2A> \x8F\xB9\xD8 |0 # CJK Ideograph
-<U5A2D> \x8F\xB9\xD9 |0 # CJK Ideograph
-<U5A30> \x8F\xB9\xDA |0 # CJK Ideograph
-<U5A44> \x8F\xB9\xDB |0 # CJK Ideograph
-<U5A45> \x8F\xB9\xDC |0 # CJK Ideograph
-<U5A47> \x8F\xB9\xDD |0 # CJK Ideograph
-<U5A48> \x8F\xB9\xDE |0 # CJK Ideograph
-<U5A4C> \x8F\xB9\xDF |0 # CJK Ideograph
-<U5A50> \x8F\xB9\xE0 |0 # CJK Ideograph
-<U5A55> \x8F\xB9\xE1 |0 # CJK Ideograph
-<U5A5E> \x8F\xB9\xE2 |0 # CJK Ideograph
-<U5A63> \x8F\xB9\xE3 |0 # CJK Ideograph
-<U5A65> \x8F\xB9\xE4 |0 # CJK Ideograph
-<U5A67> \x8F\xB9\xE5 |0 # CJK Ideograph
-<U5A6D> \x8F\xB9\xE6 |0 # CJK Ideograph
-<U5A77> \x8F\xB9\xE7 |0 # CJK Ideograph
-<U5A7A> \x8F\xB9\xE8 |0 # CJK Ideograph
-<U5A7B> \x8F\xB9\xE9 |0 # CJK Ideograph
-<U5A7E> \x8F\xB9\xEA |0 # CJK Ideograph
-<U5A8B> \x8F\xB9\xEB |0 # CJK Ideograph
-<U5A90> \x8F\xB9\xEC |0 # CJK Ideograph
-<U5A93> \x8F\xB9\xED |0 # CJK Ideograph
-<U5A96> \x8F\xB9\xEE |0 # CJK Ideograph
-<U5A99> \x8F\xB9\xEF |0 # CJK Ideograph
-<U5A9C> \x8F\xB9\xF0 |0 # CJK Ideograph
-<U5A9E> \x8F\xB9\xF1 |0 # CJK Ideograph
-<U5A9F> \x8F\xB9\xF2 |0 # CJK Ideograph
-<U5AA0> \x8F\xB9\xF3 |0 # CJK Ideograph
-<U5AA2> \x8F\xB9\xF4 |0 # CJK Ideograph
-<U5AA7> \x8F\xB9\xF5 |0 # CJK Ideograph
-<U5AAC> \x8F\xB9\xF6 |0 # CJK Ideograph
-<U5AB1> \x8F\xB9\xF7 |0 # CJK Ideograph
-<U5AB2> \x8F\xB9\xF8 |0 # CJK Ideograph
-<U5AB3> \x8F\xB9\xF9 |0 # CJK Ideograph
-<U5AB5> \x8F\xB9\xFA |0 # CJK Ideograph
-<U5AB8> \x8F\xB9\xFB |0 # CJK Ideograph
-<U5ABA> \x8F\xB9\xFC |0 # CJK Ideograph
-<U5ABB> \x8F\xB9\xFD |0 # CJK Ideograph
-<U5ABF> \x8F\xB9\xFE |0 # CJK Ideograph
-<U5AC4> \x8F\xBA\xA1 |0 # CJK Ideograph
-<U5AC6> \x8F\xBA\xA2 |0 # CJK Ideograph
-<U5AC8> \x8F\xBA\xA3 |0 # CJK Ideograph
-<U5ACF> \x8F\xBA\xA4 |0 # CJK Ideograph
-<U5ADA> \x8F\xBA\xA5 |0 # CJK Ideograph
-<U5ADC> \x8F\xBA\xA6 |0 # CJK Ideograph
-<U5AE0> \x8F\xBA\xA7 |0 # CJK Ideograph
-<U5AE5> \x8F\xBA\xA8 |0 # CJK Ideograph
-<U5AEA> \x8F\xBA\xA9 |0 # CJK Ideograph
-<U5AEE> \x8F\xBA\xAA |0 # CJK Ideograph
-<U5AF5> \x8F\xBA\xAB |0 # CJK Ideograph
-<U5AF6> \x8F\xBA\xAC |0 # CJK Ideograph
-<U5AFD> \x8F\xBA\xAD |0 # CJK Ideograph
-<U5B00> \x8F\xBA\xAE |0 # CJK Ideograph
-<U5B01> \x8F\xBA\xAF |0 # CJK Ideograph
-<U5B08> \x8F\xBA\xB0 |0 # CJK Ideograph
-<U5B17> \x8F\xBA\xB1 |0 # CJK Ideograph
-<U5B34> \x8F\xBA\xB2 |0 # CJK Ideograph
-<U5B19> \x8F\xBA\xB3 |0 # CJK Ideograph
-<U5B1B> \x8F\xBA\xB4 |0 # CJK Ideograph
-<U5B1D> \x8F\xBA\xB5 |0 # CJK Ideograph
-<U5B21> \x8F\xBA\xB6 |0 # CJK Ideograph
-<U5B25> \x8F\xBA\xB7 |0 # CJK Ideograph
-<U5B2D> \x8F\xBA\xB8 |0 # CJK Ideograph
-<U5B38> \x8F\xBA\xB9 |0 # CJK Ideograph
-<U5B41> \x8F\xBA\xBA |0 # CJK Ideograph
-<U5B4B> \x8F\xBA\xBB |0 # CJK Ideograph
-<U5B4C> \x8F\xBA\xBC |0 # CJK Ideograph
-<U5B52> \x8F\xBA\xBD |0 # CJK Ideograph
-<U5B56> \x8F\xBA\xBE |0 # CJK Ideograph
-<U5B5E> \x8F\xBA\xBF |0 # CJK Ideograph
-<U5B68> \x8F\xBA\xC0 |0 # CJK Ideograph
-<U5B6E> \x8F\xBA\xC1 |0 # CJK Ideograph
-<U5B6F> \x8F\xBA\xC2 |0 # CJK Ideograph
-<U5B7C> \x8F\xBA\xC3 |0 # CJK Ideograph
-<U5B7D> \x8F\xBA\xC4 |0 # CJK Ideograph
-<U5B7E> \x8F\xBA\xC5 |0 # CJK Ideograph
-<U5B7F> \x8F\xBA\xC6 |0 # CJK Ideograph
-<U5B81> \x8F\xBA\xC7 |0 # CJK Ideograph
-<U5B84> \x8F\xBA\xC8 |0 # CJK Ideograph
-<U5B86> \x8F\xBA\xC9 |0 # CJK Ideograph
-<U5B8A> \x8F\xBA\xCA |0 # CJK Ideograph
-<U5B8E> \x8F\xBA\xCB |0 # CJK Ideograph
-<U5B90> \x8F\xBA\xCC |0 # CJK Ideograph
-<U5B91> \x8F\xBA\xCD |0 # CJK Ideograph
-<U5B93> \x8F\xBA\xCE |0 # CJK Ideograph
-<U5B94> \x8F\xBA\xCF |0 # CJK Ideograph
-<U5B96> \x8F\xBA\xD0 |0 # CJK Ideograph
-<U5BA8> \x8F\xBA\xD1 |0 # CJK Ideograph
-<U5BA9> \x8F\xBA\xD2 |0 # CJK Ideograph
-<U5BAC> \x8F\xBA\xD3 |0 # CJK Ideograph
-<U5BAD> \x8F\xBA\xD4 |0 # CJK Ideograph
-<U5BAF> \x8F\xBA\xD5 |0 # CJK Ideograph
-<U5BB1> \x8F\xBA\xD6 |0 # CJK Ideograph
-<U5BB2> \x8F\xBA\xD7 |0 # CJK Ideograph
-<U5BB7> \x8F\xBA\xD8 |0 # CJK Ideograph
-<U5BBA> \x8F\xBA\xD9 |0 # CJK Ideograph
-<U5BBC> \x8F\xBA\xDA |0 # CJK Ideograph
-<U5BC0> \x8F\xBA\xDB |0 # CJK Ideograph
-<U5BC1> \x8F\xBA\xDC |0 # CJK Ideograph
-<U5BCD> \x8F\xBA\xDD |0 # CJK Ideograph
-<U5BCF> \x8F\xBA\xDE |0 # CJK Ideograph
-<U5BD6> \x8F\xBA\xDF |0 # CJK Ideograph
-<U5BD7> \x8F\xBA\xE0 |0 # CJK Ideograph
-<U5BD8> \x8F\xBA\xE1 |0 # CJK Ideograph
-<U5BD9> \x8F\xBA\xE2 |0 # CJK Ideograph
-<U5BDA> \x8F\xBA\xE3 |0 # CJK Ideograph
-<U5BE0> \x8F\xBA\xE4 |0 # CJK Ideograph
-<U5BEF> \x8F\xBA\xE5 |0 # CJK Ideograph
-<U5BF1> \x8F\xBA\xE6 |0 # CJK Ideograph
-<U5BF4> \x8F\xBA\xE7 |0 # CJK Ideograph
-<U5BFD> \x8F\xBA\xE8 |0 # CJK Ideograph
-<U5C0C> \x8F\xBA\xE9 |0 # CJK Ideograph
-<U5C17> \x8F\xBA\xEA |0 # CJK Ideograph
-<U5C1E> \x8F\xBA\xEB |0 # CJK Ideograph
-<U5C1F> \x8F\xBA\xEC |0 # CJK Ideograph
-<U5C23> \x8F\xBA\xED |0 # CJK Ideograph
-<U5C26> \x8F\xBA\xEE |0 # CJK Ideograph
-<U5C29> \x8F\xBA\xEF |0 # CJK Ideograph
-<U5C2B> \x8F\xBA\xF0 |0 # CJK Ideograph
-<U5C2C> \x8F\xBA\xF1 |0 # CJK Ideograph
-<U5C2E> \x8F\xBA\xF2 |0 # CJK Ideograph
-<U5C30> \x8F\xBA\xF3 |0 # CJK Ideograph
-<U5C32> \x8F\xBA\xF4 |0 # CJK Ideograph
-<U5C35> \x8F\xBA\xF5 |0 # CJK Ideograph
-<U5C36> \x8F\xBA\xF6 |0 # CJK Ideograph
-<U5C59> \x8F\xBA\xF7 |0 # CJK Ideograph
-<U5C5A> \x8F\xBA\xF8 |0 # CJK Ideograph
-<U5C5C> \x8F\xBA\xF9 |0 # CJK Ideograph
-<U5C62> \x8F\xBA\xFA |0 # CJK Ideograph
-<U5C63> \x8F\xBA\xFB |0 # CJK Ideograph
-<U5C67> \x8F\xBA\xFC |0 # CJK Ideograph
-<U5C68> \x8F\xBA\xFD |0 # CJK Ideograph
-<U5C69> \x8F\xBA\xFE |0 # CJK Ideograph
-<U5C6D> \x8F\xBB\xA1 |0 # CJK Ideograph
-<U5C70> \x8F\xBB\xA2 |0 # CJK Ideograph
-<U5C74> \x8F\xBB\xA3 |0 # CJK Ideograph
-<U5C75> \x8F\xBB\xA4 |0 # CJK Ideograph
-<U5C7A> \x8F\xBB\xA5 |0 # CJK Ideograph
-<U5C7B> \x8F\xBB\xA6 |0 # CJK Ideograph
-<U5C7C> \x8F\xBB\xA7 |0 # CJK Ideograph
-<U5C7D> \x8F\xBB\xA8 |0 # CJK Ideograph
-<U5C87> \x8F\xBB\xA9 |0 # CJK Ideograph
-<U5C88> \x8F\xBB\xAA |0 # CJK Ideograph
-<U5C8A> \x8F\xBB\xAB |0 # CJK Ideograph
-<U5C8F> \x8F\xBB\xAC |0 # CJK Ideograph
-<U5C92> \x8F\xBB\xAD |0 # CJK Ideograph
-<U5C9D> \x8F\xBB\xAE |0 # CJK Ideograph
-<U5C9F> \x8F\xBB\xAF |0 # CJK Ideograph
-<U5CA0> \x8F\xBB\xB0 |0 # CJK Ideograph
-<U5CA2> \x8F\xBB\xB1 |0 # CJK Ideograph
-<U5CA3> \x8F\xBB\xB2 |0 # CJK Ideograph
-<U5CA6> \x8F\xBB\xB3 |0 # CJK Ideograph
-<U5CAA> \x8F\xBB\xB4 |0 # CJK Ideograph
-<U5CB2> \x8F\xBB\xB5 |0 # CJK Ideograph
-<U5CB4> \x8F\xBB\xB6 |0 # CJK Ideograph
-<U5CB5> \x8F\xBB\xB7 |0 # CJK Ideograph
-<U5CBA> \x8F\xBB\xB8 |0 # CJK Ideograph
-<U5CC9> \x8F\xBB\xB9 |0 # CJK Ideograph
-<U5CCB> \x8F\xBB\xBA |0 # CJK Ideograph
-<U5CD2> \x8F\xBB\xBB |0 # CJK Ideograph
-<U5CDD> \x8F\xBB\xBC |0 # CJK Ideograph
-<U5CD7> \x8F\xBB\xBD |0 # CJK Ideograph
-<U5CEE> \x8F\xBB\xBE |0 # CJK Ideograph
-<U5CF1> \x8F\xBB\xBF |0 # CJK Ideograph
-<U5CF2> \x8F\xBB\xC0 |0 # CJK Ideograph
-<U5CF4> \x8F\xBB\xC1 |0 # CJK Ideograph
-<U5D01> \x8F\xBB\xC2 |0 # CJK Ideograph
-<U5D06> \x8F\xBB\xC3 |0 # CJK Ideograph
-<U5D0D> \x8F\xBB\xC4 |0 # CJK Ideograph
-<U5D12> \x8F\xBB\xC5 |0 # CJK Ideograph
-<U5D2B> \x8F\xBB\xC6 |0 # CJK Ideograph
-<U5D23> \x8F\xBB\xC7 |0 # CJK Ideograph
-<U5D24> \x8F\xBB\xC8 |0 # CJK Ideograph
-<U5D26> \x8F\xBB\xC9 |0 # CJK Ideograph
-<U5D27> \x8F\xBB\xCA |0 # CJK Ideograph
-<U5D31> \x8F\xBB\xCB |0 # CJK Ideograph
-<U5D34> \x8F\xBB\xCC |0 # CJK Ideograph
-<U5D39> \x8F\xBB\xCD |0 # CJK Ideograph
-<U5D3D> \x8F\xBB\xCE |0 # CJK Ideograph
-<U5D3F> \x8F\xBB\xCF |0 # CJK Ideograph
-<U5D42> \x8F\xBB\xD0 |0 # CJK Ideograph
-<U5D43> \x8F\xBB\xD1 |0 # CJK Ideograph
-<U5D46> \x8F\xBB\xD2 |0 # CJK Ideograph
-<U5D48> \x8F\xBB\xD3 |0 # CJK Ideograph
-<U5D55> \x8F\xBB\xD4 |0 # CJK Ideograph
-<U5D51> \x8F\xBB\xD5 |0 # CJK Ideograph
-<U5D59> \x8F\xBB\xD6 |0 # CJK Ideograph
-<U5D4A> \x8F\xBB\xD7 |0 # CJK Ideograph
-<U5D5F> \x8F\xBB\xD8 |0 # CJK Ideograph
-<U5D60> \x8F\xBB\xD9 |0 # CJK Ideograph
-<U5D61> \x8F\xBB\xDA |0 # CJK Ideograph
-<U5D62> \x8F\xBB\xDB |0 # CJK Ideograph
-<U5D64> \x8F\xBB\xDC |0 # CJK Ideograph
-<U5D6A> \x8F\xBB\xDD |0 # CJK Ideograph
-<U5D6D> \x8F\xBB\xDE |0 # CJK Ideograph
-<U5D70> \x8F\xBB\xDF |0 # CJK Ideograph
-<U5D79> \x8F\xBB\xE0 |0 # CJK Ideograph
-<U5D7A> \x8F\xBB\xE1 |0 # CJK Ideograph
-<U5D7E> \x8F\xBB\xE2 |0 # CJK Ideograph
-<U5D7F> \x8F\xBB\xE3 |0 # CJK Ideograph
-<U5D81> \x8F\xBB\xE4 |0 # CJK Ideograph
-<U5D83> \x8F\xBB\xE5 |0 # CJK Ideograph
-<U5D88> \x8F\xBB\xE6 |0 # CJK Ideograph
-<U5D8A> \x8F\xBB\xE7 |0 # CJK Ideograph
-<U5D92> \x8F\xBB\xE8 |0 # CJK Ideograph
-<U5D93> \x8F\xBB\xE9 |0 # CJK Ideograph
-<U5D94> \x8F\xBB\xEA |0 # CJK Ideograph
-<U5D95> \x8F\xBB\xEB |0 # CJK Ideograph
-<U5D99> \x8F\xBB\xEC |0 # CJK Ideograph
-<U5D9B> \x8F\xBB\xED |0 # CJK Ideograph
-<U5D9F> \x8F\xBB\xEE |0 # CJK Ideograph
-<U5DA0> \x8F\xBB\xEF |0 # CJK Ideograph
-<U5DA7> \x8F\xBB\xF0 |0 # CJK Ideograph
-<U5DAB> \x8F\xBB\xF1 |0 # CJK Ideograph
-<U5DB0> \x8F\xBB\xF2 |0 # CJK Ideograph
-<U5DB4> \x8F\xBB\xF3 |0 # CJK Ideograph
-<U5DB8> \x8F\xBB\xF4 |0 # CJK Ideograph
-<U5DB9> \x8F\xBB\xF5 |0 # CJK Ideograph
-<U5DC3> \x8F\xBB\xF6 |0 # CJK Ideograph
-<U5DC7> \x8F\xBB\xF7 |0 # CJK Ideograph
-<U5DCB> \x8F\xBB\xF8 |0 # CJK Ideograph
-<U5DD0> \x8F\xBB\xF9 |0 # CJK Ideograph
-<U5DCE> \x8F\xBB\xFA |0 # CJK Ideograph
-<U5DD8> \x8F\xBB\xFB |0 # CJK Ideograph
-<U5DD9> \x8F\xBB\xFC |0 # CJK Ideograph
-<U5DE0> \x8F\xBB\xFD |0 # CJK Ideograph
-<U5DE4> \x8F\xBB\xFE |0 # CJK Ideograph
-<U5DE9> \x8F\xBC\xA1 |0 # CJK Ideograph
-<U5DF8> \x8F\xBC\xA2 |0 # CJK Ideograph
-<U5DF9> \x8F\xBC\xA3 |0 # CJK Ideograph
-<U5E00> \x8F\xBC\xA4 |0 # CJK Ideograph
-<U5E07> \x8F\xBC\xA5 |0 # CJK Ideograph
-<U5E0D> \x8F\xBC\xA6 |0 # CJK Ideograph
-<U5E12> \x8F\xBC\xA7 |0 # CJK Ideograph
-<U5E14> \x8F\xBC\xA8 |0 # CJK Ideograph
-<U5E15> \x8F\xBC\xA9 |0 # CJK Ideograph
-<U5E18> \x8F\xBC\xAA |0 # CJK Ideograph
-<U5E1F> \x8F\xBC\xAB |0 # CJK Ideograph
-<U5E20> \x8F\xBC\xAC |0 # CJK Ideograph
-<U5E2E> \x8F\xBC\xAD |0 # CJK Ideograph
-<U5E28> \x8F\xBC\xAE |0 # CJK Ideograph
-<U5E32> \x8F\xBC\xAF |0 # CJK Ideograph
-<U5E35> \x8F\xBC\xB0 |0 # CJK Ideograph
-<U5E3E> \x8F\xBC\xB1 |0 # CJK Ideograph
-<U5E4B> \x8F\xBC\xB2 |0 # CJK Ideograph
-<U5E50> \x8F\xBC\xB3 |0 # CJK Ideograph
-<U5E49> \x8F\xBC\xB4 |0 # CJK Ideograph
-<U5E51> \x8F\xBC\xB5 |0 # CJK Ideograph
-<U5E56> \x8F\xBC\xB6 |0 # CJK Ideograph
-<U5E58> \x8F\xBC\xB7 |0 # CJK Ideograph
-<U5E5B> \x8F\xBC\xB8 |0 # CJK Ideograph
-<U5E5C> \x8F\xBC\xB9 |0 # CJK Ideograph
-<U5E5E> \x8F\xBC\xBA |0 # CJK Ideograph
-<U5E68> \x8F\xBC\xBB |0 # CJK Ideograph
-<U5E6A> \x8F\xBC\xBC |0 # CJK Ideograph
-<U5E6B> \x8F\xBC\xBD |0 # CJK Ideograph
-<U5E6C> \x8F\xBC\xBE |0 # CJK Ideograph
-<U5E6D> \x8F\xBC\xBF |0 # CJK Ideograph
-<U5E6E> \x8F\xBC\xC0 |0 # CJK Ideograph
-<U5E70> \x8F\xBC\xC1 |0 # CJK Ideograph
-<U5E80> \x8F\xBC\xC2 |0 # CJK Ideograph
-<U5E8B> \x8F\xBC\xC3 |0 # CJK Ideograph
-<U5E8E> \x8F\xBC\xC4 |0 # CJK Ideograph
-<U5EA2> \x8F\xBC\xC5 |0 # CJK Ideograph
-<U5EA4> \x8F\xBC\xC6 |0 # CJK Ideograph
-<U5EA5> \x8F\xBC\xC7 |0 # CJK Ideograph
-<U5EA8> \x8F\xBC\xC8 |0 # CJK Ideograph
-<U5EAA> \x8F\xBC\xC9 |0 # CJK Ideograph
-<U5EAC> \x8F\xBC\xCA |0 # CJK Ideograph
-<U5EB1> \x8F\xBC\xCB |0 # CJK Ideograph
-<U5EB3> \x8F\xBC\xCC |0 # CJK Ideograph
-<U5EBD> \x8F\xBC\xCD |0 # CJK Ideograph
-<U5EBE> \x8F\xBC\xCE |0 # CJK Ideograph
-<U5EBF> \x8F\xBC\xCF |0 # CJK Ideograph
-<U5EC6> \x8F\xBC\xD0 |0 # CJK Ideograph
-<U5ECC> \x8F\xBC\xD1 |0 # CJK Ideograph
-<U5ECB> \x8F\xBC\xD2 |0 # CJK Ideograph
-<U5ECE> \x8F\xBC\xD3 |0 # CJK Ideograph
-<U5ED1> \x8F\xBC\xD4 |0 # CJK Ideograph
-<U5ED2> \x8F\xBC\xD5 |0 # CJK Ideograph
-<U5ED4> \x8F\xBC\xD6 |0 # CJK Ideograph
-<U5ED5> \x8F\xBC\xD7 |0 # CJK Ideograph
-<U5EDC> \x8F\xBC\xD8 |0 # CJK Ideograph
-<U5EDE> \x8F\xBC\xD9 |0 # CJK Ideograph
-<U5EE5> \x8F\xBC\xDA |0 # CJK Ideograph
-<U5EEB> \x8F\xBC\xDB |0 # CJK Ideograph
-<U5F02> \x8F\xBC\xDC |0 # CJK Ideograph
-<U5F06> \x8F\xBC\xDD |0 # CJK Ideograph
-<U5F07> \x8F\xBC\xDE |0 # CJK Ideograph
-<U5F08> \x8F\xBC\xDF |0 # CJK Ideograph
-<U5F0E> \x8F\xBC\xE0 |0 # CJK Ideograph
-<U5F19> \x8F\xBC\xE1 |0 # CJK Ideograph
-<U5F1C> \x8F\xBC\xE2 |0 # CJK Ideograph
-<U5F1D> \x8F\xBC\xE3 |0 # CJK Ideograph
-<U5F21> \x8F\xBC\xE4 |0 # CJK Ideograph
-<U5F22> \x8F\xBC\xE5 |0 # CJK Ideograph
-<U5F23> \x8F\xBC\xE6 |0 # CJK Ideograph
-<U5F24> \x8F\xBC\xE7 |0 # CJK Ideograph
-<U5F28> \x8F\xBC\xE8 |0 # CJK Ideograph
-<U5F2B> \x8F\xBC\xE9 |0 # CJK Ideograph
-<U5F2C> \x8F\xBC\xEA |0 # CJK Ideograph
-<U5F2E> \x8F\xBC\xEB |0 # CJK Ideograph
-<U5F30> \x8F\xBC\xEC |0 # CJK Ideograph
-<U5F34> \x8F\xBC\xED |0 # CJK Ideograph
-<U5F36> \x8F\xBC\xEE |0 # CJK Ideograph
-<U5F3B> \x8F\xBC\xEF |0 # CJK Ideograph
-<U5F3D> \x8F\xBC\xF0 |0 # CJK Ideograph
-<U5F3F> \x8F\xBC\xF1 |0 # CJK Ideograph
-<U5F40> \x8F\xBC\xF2 |0 # CJK Ideograph
-<U5F44> \x8F\xBC\xF3 |0 # CJK Ideograph
-<U5F45> \x8F\xBC\xF4 |0 # CJK Ideograph
-<U5F47> \x8F\xBC\xF5 |0 # CJK Ideograph
-<U5F4D> \x8F\xBC\xF6 |0 # CJK Ideograph
-<U5F50> \x8F\xBC\xF7 |0 # CJK Ideograph
-<U5F54> \x8F\xBC\xF8 |0 # CJK Ideograph
-<U5F58> \x8F\xBC\xF9 |0 # CJK Ideograph
-<U5F5B> \x8F\xBC\xFA |0 # CJK Ideograph
-<U5F60> \x8F\xBC\xFB |0 # CJK Ideograph
-<U5F63> \x8F\xBC\xFC |0 # CJK Ideograph
-<U5F64> \x8F\xBC\xFD |0 # CJK Ideograph
-<U5F67> \x8F\xBC\xFE |0 # CJK Ideograph
-<U5F6F> \x8F\xBD\xA1 |0 # CJK Ideograph
-<U5F72> \x8F\xBD\xA2 |0 # CJK Ideograph
-<U5F74> \x8F\xBD\xA3 |0 # CJK Ideograph
-<U5F75> \x8F\xBD\xA4 |0 # CJK Ideograph
-<U5F78> \x8F\xBD\xA5 |0 # CJK Ideograph
-<U5F7A> \x8F\xBD\xA6 |0 # CJK Ideograph
-<U5F7D> \x8F\xBD\xA7 |0 # CJK Ideograph
-<U5F7E> \x8F\xBD\xA8 |0 # CJK Ideograph
-<U5F89> \x8F\xBD\xA9 |0 # CJK Ideograph
-<U5F8D> \x8F\xBD\xAA |0 # CJK Ideograph
-<U5F8F> \x8F\xBD\xAB |0 # CJK Ideograph
-<U5F96> \x8F\xBD\xAC |0 # CJK Ideograph
-<U5F9C> \x8F\xBD\xAD |0 # CJK Ideograph
-<U5F9D> \x8F\xBD\xAE |0 # CJK Ideograph
-<U5FA2> \x8F\xBD\xAF |0 # CJK Ideograph
-<U5FA7> \x8F\xBD\xB0 |0 # CJK Ideograph
-<U5FAB> \x8F\xBD\xB1 |0 # CJK Ideograph
-<U5FA4> \x8F\xBD\xB2 |0 # CJK Ideograph
-<U5FAC> \x8F\xBD\xB3 |0 # CJK Ideograph
-<U5FAF> \x8F\xBD\xB4 |0 # CJK Ideograph
-<U5FB0> \x8F\xBD\xB5 |0 # CJK Ideograph
-<U5FB1> \x8F\xBD\xB6 |0 # CJK Ideograph
-<U5FB8> \x8F\xBD\xB7 |0 # CJK Ideograph
-<U5FC4> \x8F\xBD\xB8 |0 # CJK Ideograph
-<U5FC7> \x8F\xBD\xB9 |0 # CJK Ideograph
-<U5FC8> \x8F\xBD\xBA |0 # CJK Ideograph
-<U5FC9> \x8F\xBD\xBB |0 # CJK Ideograph
-<U5FCB> \x8F\xBD\xBC |0 # CJK Ideograph
-<U5FD0> \x8F\xBD\xBD |0 # CJK Ideograph
-<U5FD1> \x8F\xBD\xBE |0 # CJK Ideograph
-<U5FD2> \x8F\xBD\xBF |0 # CJK Ideograph
-<U5FD3> \x8F\xBD\xC0 |0 # CJK Ideograph
-<U5FD4> \x8F\xBD\xC1 |0 # CJK Ideograph
-<U5FDE> \x8F\xBD\xC2 |0 # CJK Ideograph
-<U5FE1> \x8F\xBD\xC3 |0 # CJK Ideograph
-<U5FE2> \x8F\xBD\xC4 |0 # CJK Ideograph
-<U5FE8> \x8F\xBD\xC5 |0 # CJK Ideograph
-<U5FE9> \x8F\xBD\xC6 |0 # CJK Ideograph
-<U5FEA> \x8F\xBD\xC7 |0 # CJK Ideograph
-<U5FEC> \x8F\xBD\xC8 |0 # CJK Ideograph
-<U5FED> \x8F\xBD\xC9 |0 # CJK Ideograph
-<U5FEE> \x8F\xBD\xCA |0 # CJK Ideograph
-<U5FEF> \x8F\xBD\xCB |0 # CJK Ideograph
-<U5FF2> \x8F\xBD\xCC |0 # CJK Ideograph
-<U5FF3> \x8F\xBD\xCD |0 # CJK Ideograph
-<U5FF6> \x8F\xBD\xCE |0 # CJK Ideograph
-<U5FFA> \x8F\xBD\xCF |0 # CJK Ideograph
-<U5FFC> \x8F\xBD\xD0 |0 # CJK Ideograph
-<U6007> \x8F\xBD\xD1 |0 # CJK Ideograph
-<U600A> \x8F\xBD\xD2 |0 # CJK Ideograph
-<U600D> \x8F\xBD\xD3 |0 # CJK Ideograph
-<U6013> \x8F\xBD\xD4 |0 # CJK Ideograph
-<U6014> \x8F\xBD\xD5 |0 # CJK Ideograph
-<U6017> \x8F\xBD\xD6 |0 # CJK Ideograph
-<U6018> \x8F\xBD\xD7 |0 # CJK Ideograph
-<U601A> \x8F\xBD\xD8 |0 # CJK Ideograph
-<U601F> \x8F\xBD\xD9 |0 # CJK Ideograph
-<U6024> \x8F\xBD\xDA |0 # CJK Ideograph
-<U602D> \x8F\xBD\xDB |0 # CJK Ideograph
-<U6033> \x8F\xBD\xDC |0 # CJK Ideograph
-<U6035> \x8F\xBD\xDD |0 # CJK Ideograph
-<U6040> \x8F\xBD\xDE |0 # CJK Ideograph
-<U6047> \x8F\xBD\xDF |0 # CJK Ideograph
-<U6048> \x8F\xBD\xE0 |0 # CJK Ideograph
-<U6049> \x8F\xBD\xE1 |0 # CJK Ideograph
-<U604C> \x8F\xBD\xE2 |0 # CJK Ideograph
-<U6051> \x8F\xBD\xE3 |0 # CJK Ideograph
-<U6054> \x8F\xBD\xE4 |0 # CJK Ideograph
-<U6056> \x8F\xBD\xE5 |0 # CJK Ideograph
-<U6057> \x8F\xBD\xE6 |0 # CJK Ideograph
-<U605D> \x8F\xBD\xE7 |0 # CJK Ideograph
-<U6061> \x8F\xBD\xE8 |0 # CJK Ideograph
-<U6067> \x8F\xBD\xE9 |0 # CJK Ideograph
-<U6071> \x8F\xBD\xEA |0 # CJK Ideograph
-<U607E> \x8F\xBD\xEB |0 # CJK Ideograph
-<U607F> \x8F\xBD\xEC |0 # CJK Ideograph
-<U6082> \x8F\xBD\xED |0 # CJK Ideograph
-<U6086> \x8F\xBD\xEE |0 # CJK Ideograph
-<U6088> \x8F\xBD\xEF |0 # CJK Ideograph
-<U608A> \x8F\xBD\xF0 |0 # CJK Ideograph
-<U608E> \x8F\xBD\xF1 |0 # CJK Ideograph
-<U6091> \x8F\xBD\xF2 |0 # CJK Ideograph
-<U6093> \x8F\xBD\xF3 |0 # CJK Ideograph
-<U6095> \x8F\xBD\xF4 |0 # CJK Ideograph
-<U6098> \x8F\xBD\xF5 |0 # CJK Ideograph
-<U609D> \x8F\xBD\xF6 |0 # CJK Ideograph
-<U609E> \x8F\xBD\xF7 |0 # CJK Ideograph
-<U60A2> \x8F\xBD\xF8 |0 # CJK Ideograph
-<U60A4> \x8F\xBD\xF9 |0 # CJK Ideograph
-<U60A5> \x8F\xBD\xFA |0 # CJK Ideograph
-<U60A8> \x8F\xBD\xFB |0 # CJK Ideograph
-<U60B0> \x8F\xBD\xFC |0 # CJK Ideograph
-<U60B1> \x8F\xBD\xFD |0 # CJK Ideograph
-<U60B7> \x8F\xBD\xFE |0 # CJK Ideograph
-<U60BB> \x8F\xBE\xA1 |0 # CJK Ideograph
-<U60BE> \x8F\xBE\xA2 |0 # CJK Ideograph
-<U60C2> \x8F\xBE\xA3 |0 # CJK Ideograph
-<U60C4> \x8F\xBE\xA4 |0 # CJK Ideograph
-<U60C8> \x8F\xBE\xA5 |0 # CJK Ideograph
-<U60C9> \x8F\xBE\xA6 |0 # CJK Ideograph
-<U60CA> \x8F\xBE\xA7 |0 # CJK Ideograph
-<U60CB> \x8F\xBE\xA8 |0 # CJK Ideograph
-<U60CE> \x8F\xBE\xA9 |0 # CJK Ideograph
-<U60CF> \x8F\xBE\xAA |0 # CJK Ideograph
-<U60D4> \x8F\xBE\xAB |0 # CJK Ideograph
-<U60D5> \x8F\xBE\xAC |0 # CJK Ideograph
-<U60D9> \x8F\xBE\xAD |0 # CJK Ideograph
-<U60DB> \x8F\xBE\xAE |0 # CJK Ideograph
-<U60DD> \x8F\xBE\xAF |0 # CJK Ideograph
-<U60DE> \x8F\xBE\xB0 |0 # CJK Ideograph
-<U60E2> \x8F\xBE\xB1 |0 # CJK Ideograph
-<U60E5> \x8F\xBE\xB2 |0 # CJK Ideograph
-<U60F2> \x8F\xBE\xB3 |0 # CJK Ideograph
-<U60F5> \x8F\xBE\xB4 |0 # CJK Ideograph
-<U60F8> \x8F\xBE\xB5 |0 # CJK Ideograph
-<U60FC> \x8F\xBE\xB6 |0 # CJK Ideograph
-<U60FD> \x8F\xBE\xB7 |0 # CJK Ideograph
-<U6102> \x8F\xBE\xB8 |0 # CJK Ideograph
-<U6107> \x8F\xBE\xB9 |0 # CJK Ideograph
-<U610A> \x8F\xBE\xBA |0 # CJK Ideograph
-<U610C> \x8F\xBE\xBB |0 # CJK Ideograph
-<U6110> \x8F\xBE\xBC |0 # CJK Ideograph
-<U6111> \x8F\xBE\xBD |0 # CJK Ideograph
-<U6112> \x8F\xBE\xBE |0 # CJK Ideograph
-<U6113> \x8F\xBE\xBF |0 # CJK Ideograph
-<U6114> \x8F\xBE\xC0 |0 # CJK Ideograph
-<U6116> \x8F\xBE\xC1 |0 # CJK Ideograph
-<U6117> \x8F\xBE\xC2 |0 # CJK Ideograph
-<U6119> \x8F\xBE\xC3 |0 # CJK Ideograph
-<U611C> \x8F\xBE\xC4 |0 # CJK Ideograph
-<U611E> \x8F\xBE\xC5 |0 # CJK Ideograph
-<U6122> \x8F\xBE\xC6 |0 # CJK Ideograph
-<U612A> \x8F\xBE\xC7 |0 # CJK Ideograph
-<U612B> \x8F\xBE\xC8 |0 # CJK Ideograph
-<U6130> \x8F\xBE\xC9 |0 # CJK Ideograph
-<U6131> \x8F\xBE\xCA |0 # CJK Ideograph
-<U6135> \x8F\xBE\xCB |0 # CJK Ideograph
-<U6136> \x8F\xBE\xCC |0 # CJK Ideograph
-<U6137> \x8F\xBE\xCD |0 # CJK Ideograph
-<U6139> \x8F\xBE\xCE |0 # CJK Ideograph
-<U6141> \x8F\xBE\xCF |0 # CJK Ideograph
-<U6145> \x8F\xBE\xD0 |0 # CJK Ideograph
-<U6146> \x8F\xBE\xD1 |0 # CJK Ideograph
-<U6149> \x8F\xBE\xD2 |0 # CJK Ideograph
-<U615E> \x8F\xBE\xD3 |0 # CJK Ideograph
-<U6160> \x8F\xBE\xD4 |0 # CJK Ideograph
-<U616C> \x8F\xBE\xD5 |0 # CJK Ideograph
-<U6172> \x8F\xBE\xD6 |0 # CJK Ideograph
-<U6178> \x8F\xBE\xD7 |0 # CJK Ideograph
-<U617B> \x8F\xBE\xD8 |0 # CJK Ideograph
-<U617C> \x8F\xBE\xD9 |0 # CJK Ideograph
-<U617F> \x8F\xBE\xDA |0 # CJK Ideograph
-<U6180> \x8F\xBE\xDB |0 # CJK Ideograph
-<U6181> \x8F\xBE\xDC |0 # CJK Ideograph
-<U6183> \x8F\xBE\xDD |0 # CJK Ideograph
-<U6184> \x8F\xBE\xDE |0 # CJK Ideograph
-<U618B> \x8F\xBE\xDF |0 # CJK Ideograph
-<U618D> \x8F\xBE\xE0 |0 # CJK Ideograph
-<U6192> \x8F\xBE\xE1 |0 # CJK Ideograph
-<U6193> \x8F\xBE\xE2 |0 # CJK Ideograph
-<U6197> \x8F\xBE\xE3 |0 # CJK Ideograph
-<U6198> \x8F\xBE\xE4 |0 # CJK Ideograph
-<U619C> \x8F\xBE\xE5 |0 # CJK Ideograph
-<U619D> \x8F\xBE\xE6 |0 # CJK Ideograph
-<U619F> \x8F\xBE\xE7 |0 # CJK Ideograph
-<U61A0> \x8F\xBE\xE8 |0 # CJK Ideograph
-<U61A5> \x8F\xBE\xE9 |0 # CJK Ideograph
-<U61A8> \x8F\xBE\xEA |0 # CJK Ideograph
-<U61AA> \x8F\xBE\xEB |0 # CJK Ideograph
-<U61AD> \x8F\xBE\xEC |0 # CJK Ideograph
-<U61B8> \x8F\xBE\xED |0 # CJK Ideograph
-<U61B9> \x8F\xBE\xEE |0 # CJK Ideograph
-<U61BC> \x8F\xBE\xEF |0 # CJK Ideograph
-<U61C0> \x8F\xBE\xF0 |0 # CJK Ideograph
-<U61C1> \x8F\xBE\xF1 |0 # CJK Ideograph
-<U61C2> \x8F\xBE\xF2 |0 # CJK Ideograph
-<U61CE> \x8F\xBE\xF3 |0 # CJK Ideograph
-<U61CF> \x8F\xBE\xF4 |0 # CJK Ideograph
-<U61D5> \x8F\xBE\xF5 |0 # CJK Ideograph
-<U61DC> \x8F\xBE\xF6 |0 # CJK Ideograph
-<U61DD> \x8F\xBE\xF7 |0 # CJK Ideograph
-<U61DE> \x8F\xBE\xF8 |0 # CJK Ideograph
-<U61DF> \x8F\xBE\xF9 |0 # CJK Ideograph
-<U61E1> \x8F\xBE\xFA |0 # CJK Ideograph
-<U61E2> \x8F\xBE\xFB |0 # CJK Ideograph
-<U61E7> \x8F\xBE\xFC |0 # CJK Ideograph
-<U61E9> \x8F\xBE\xFD |0 # CJK Ideograph
-<U61E5> \x8F\xBE\xFE |0 # CJK Ideograph
-<U61EC> \x8F\xBF\xA1 |0 # CJK Ideograph
-<U61ED> \x8F\xBF\xA2 |0 # CJK Ideograph
-<U61EF> \x8F\xBF\xA3 |0 # CJK Ideograph
-<U6201> \x8F\xBF\xA4 |0 # CJK Ideograph
-<U6203> \x8F\xBF\xA5 |0 # CJK Ideograph
-<U6204> \x8F\xBF\xA6 |0 # CJK Ideograph
-<U6207> \x8F\xBF\xA7 |0 # CJK Ideograph
-<U6213> \x8F\xBF\xA8 |0 # CJK Ideograph
-<U6215> \x8F\xBF\xA9 |0 # CJK Ideograph
-<U621C> \x8F\xBF\xAA |0 # CJK Ideograph
-<U6220> \x8F\xBF\xAB |0 # CJK Ideograph
-<U6222> \x8F\xBF\xAC |0 # CJK Ideograph
-<U6223> \x8F\xBF\xAD |0 # CJK Ideograph
-<U6227> \x8F\xBF\xAE |0 # CJK Ideograph
-<U6229> \x8F\xBF\xAF |0 # CJK Ideograph
-<U622B> \x8F\xBF\xB0 |0 # CJK Ideograph
-<U6239> \x8F\xBF\xB1 |0 # CJK Ideograph
-<U623D> \x8F\xBF\xB2 |0 # CJK Ideograph
-<U6242> \x8F\xBF\xB3 |0 # CJK Ideograph
-<U6243> \x8F\xBF\xB4 |0 # CJK Ideograph
-<U6244> \x8F\xBF\xB5 |0 # CJK Ideograph
-<U6246> \x8F\xBF\xB6 |0 # CJK Ideograph
-<U624C> \x8F\xBF\xB7 |0 # CJK Ideograph
-<U6250> \x8F\xBF\xB8 |0 # CJK Ideograph
-<U6251> \x8F\xBF\xB9 |0 # CJK Ideograph
-<U6252> \x8F\xBF\xBA |0 # CJK Ideograph
-<U6254> \x8F\xBF\xBB |0 # CJK Ideograph
-<U6256> \x8F\xBF\xBC |0 # CJK Ideograph
-<U625A> \x8F\xBF\xBD |0 # CJK Ideograph
-<U625C> \x8F\xBF\xBE |0 # CJK Ideograph
-<U6264> \x8F\xBF\xBF |0 # CJK Ideograph
-<U626D> \x8F\xBF\xC0 |0 # CJK Ideograph
-<U626F> \x8F\xBF\xC1 |0 # CJK Ideograph
-<U6273> \x8F\xBF\xC2 |0 # CJK Ideograph
-<U627A> \x8F\xBF\xC3 |0 # CJK Ideograph
-<U627D> \x8F\xBF\xC4 |0 # CJK Ideograph
-<U628D> \x8F\xBF\xC5 |0 # CJK Ideograph
-<U628E> \x8F\xBF\xC6 |0 # CJK Ideograph
-<U628F> \x8F\xBF\xC7 |0 # CJK Ideograph
-<U6290> \x8F\xBF\xC8 |0 # CJK Ideograph
-<U62A6> \x8F\xBF\xC9 |0 # CJK Ideograph
-<U62A8> \x8F\xBF\xCA |0 # CJK Ideograph
-<U62B3> \x8F\xBF\xCB |0 # CJK Ideograph
-<U62B6> \x8F\xBF\xCC |0 # CJK Ideograph
-<U62B7> \x8F\xBF\xCD |0 # CJK Ideograph
-<U62BA> \x8F\xBF\xCE |0 # CJK Ideograph
-<U62BE> \x8F\xBF\xCF |0 # CJK Ideograph
-<U62BF> \x8F\xBF\xD0 |0 # CJK Ideograph
-<U62C4> \x8F\xBF\xD1 |0 # CJK Ideograph
-<U62CE> \x8F\xBF\xD2 |0 # CJK Ideograph
-<U62D5> \x8F\xBF\xD3 |0 # CJK Ideograph
-<U62D6> \x8F\xBF\xD4 |0 # CJK Ideograph
-<U62DA> \x8F\xBF\xD5 |0 # CJK Ideograph
-<U62EA> \x8F\xBF\xD6 |0 # CJK Ideograph
-<U62F2> \x8F\xBF\xD7 |0 # CJK Ideograph
-<U62F4> \x8F\xBF\xD8 |0 # CJK Ideograph
-<U62FC> \x8F\xBF\xD9 |0 # CJK Ideograph
-<U62FD> \x8F\xBF\xDA |0 # CJK Ideograph
-<U6303> \x8F\xBF\xDB |0 # CJK Ideograph
-<U6304> \x8F\xBF\xDC |0 # CJK Ideograph
-<U630A> \x8F\xBF\xDD |0 # CJK Ideograph
-<U630B> \x8F\xBF\xDE |0 # CJK Ideograph
-<U630D> \x8F\xBF\xDF |0 # CJK Ideograph
-<U6310> \x8F\xBF\xE0 |0 # CJK Ideograph
-<U6313> \x8F\xBF\xE1 |0 # CJK Ideograph
-<U6316> \x8F\xBF\xE2 |0 # CJK Ideograph
-<U6318> \x8F\xBF\xE3 |0 # CJK Ideograph
-<U6329> \x8F\xBF\xE4 |0 # CJK Ideograph
-<U632A> \x8F\xBF\xE5 |0 # CJK Ideograph
-<U632D> \x8F\xBF\xE6 |0 # CJK Ideograph
-<U6335> \x8F\xBF\xE7 |0 # CJK Ideograph
-<U6336> \x8F\xBF\xE8 |0 # CJK Ideograph
-<U6339> \x8F\xBF\xE9 |0 # CJK Ideograph
-<U633C> \x8F\xBF\xEA |0 # CJK Ideograph
-<U6341> \x8F\xBF\xEB |0 # CJK Ideograph
-<U6342> \x8F\xBF\xEC |0 # CJK Ideograph
-<U6343> \x8F\xBF\xED |0 # CJK Ideograph
-<U6344> \x8F\xBF\xEE |0 # CJK Ideograph
-<U6346> \x8F\xBF\xEF |0 # CJK Ideograph
-<U634A> \x8F\xBF\xF0 |0 # CJK Ideograph
-<U634B> \x8F\xBF\xF1 |0 # CJK Ideograph
-<U634E> \x8F\xBF\xF2 |0 # CJK Ideograph
-<U6352> \x8F\xBF\xF3 |0 # CJK Ideograph
-<U6353> \x8F\xBF\xF4 |0 # CJK Ideograph
-<U6354> \x8F\xBF\xF5 |0 # CJK Ideograph
-<U6358> \x8F\xBF\xF6 |0 # CJK Ideograph
-<U635B> \x8F\xBF\xF7 |0 # CJK Ideograph
-<U6365> \x8F\xBF\xF8 |0 # CJK Ideograph
-<U6366> \x8F\xBF\xF9 |0 # CJK Ideograph
-<U636C> \x8F\xBF\xFA |0 # CJK Ideograph
-<U636D> \x8F\xBF\xFB |0 # CJK Ideograph
-<U6371> \x8F\xBF\xFC |0 # CJK Ideograph
-<U6374> \x8F\xBF\xFD |0 # CJK Ideograph
-<U6375> \x8F\xBF\xFE |0 # CJK Ideograph
-<U6378> \x8F\xC0\xA1 |0 # CJK Ideograph
-<U637C> \x8F\xC0\xA2 |0 # CJK Ideograph
-<U637D> \x8F\xC0\xA3 |0 # CJK Ideograph
-<U637F> \x8F\xC0\xA4 |0 # CJK Ideograph
-<U6382> \x8F\xC0\xA5 |0 # CJK Ideograph
-<U6384> \x8F\xC0\xA6 |0 # CJK Ideograph
-<U6387> \x8F\xC0\xA7 |0 # CJK Ideograph
-<U638A> \x8F\xC0\xA8 |0 # CJK Ideograph
-<U6390> \x8F\xC0\xA9 |0 # CJK Ideograph
-<U6394> \x8F\xC0\xAA |0 # CJK Ideograph
-<U6395> \x8F\xC0\xAB |0 # CJK Ideograph
-<U6399> \x8F\xC0\xAC |0 # CJK Ideograph
-<U639A> \x8F\xC0\xAD |0 # CJK Ideograph
-<U639E> \x8F\xC0\xAE |0 # CJK Ideograph
-<U63A4> \x8F\xC0\xAF |0 # CJK Ideograph
-<U63A6> \x8F\xC0\xB0 |0 # CJK Ideograph
-<U63AD> \x8F\xC0\xB1 |0 # CJK Ideograph
-<U63AE> \x8F\xC0\xB2 |0 # CJK Ideograph
-<U63AF> \x8F\xC0\xB3 |0 # CJK Ideograph
-<U63BD> \x8F\xC0\xB4 |0 # CJK Ideograph
-<U63C1> \x8F\xC0\xB5 |0 # CJK Ideograph
-<U63C5> \x8F\xC0\xB6 |0 # CJK Ideograph
-<U63C8> \x8F\xC0\xB7 |0 # CJK Ideograph
-<U63CE> \x8F\xC0\xB8 |0 # CJK Ideograph
-<U63D1> \x8F\xC0\xB9 |0 # CJK Ideograph
-<U63D3> \x8F\xC0\xBA |0 # CJK Ideograph
-<U63D4> \x8F\xC0\xBB |0 # CJK Ideograph
-<U63D5> \x8F\xC0\xBC |0 # CJK Ideograph
-<U63DC> \x8F\xC0\xBD |0 # CJK Ideograph
-<U63E0> \x8F\xC0\xBE |0 # CJK Ideograph
-<U63E5> \x8F\xC0\xBF |0 # CJK Ideograph
-<U63EA> \x8F\xC0\xC0 |0 # CJK Ideograph
-<U63EC> \x8F\xC0\xC1 |0 # CJK Ideograph
-<U63F2> \x8F\xC0\xC2 |0 # CJK Ideograph
-<U63F3> \x8F\xC0\xC3 |0 # CJK Ideograph
-<U63F5> \x8F\xC0\xC4 |0 # CJK Ideograph
-<U63F8> \x8F\xC0\xC5 |0 # CJK Ideograph
-<U63F9> \x8F\xC0\xC6 |0 # CJK Ideograph
-<U6409> \x8F\xC0\xC7 |0 # CJK Ideograph
-<U640A> \x8F\xC0\xC8 |0 # CJK Ideograph
-<U6410> \x8F\xC0\xC9 |0 # CJK Ideograph
-<U6412> \x8F\xC0\xCA |0 # CJK Ideograph
-<U6414> \x8F\xC0\xCB |0 # CJK Ideograph
-<U6418> \x8F\xC0\xCC |0 # CJK Ideograph
-<U641E> \x8F\xC0\xCD |0 # CJK Ideograph
-<U6420> \x8F\xC0\xCE |0 # CJK Ideograph
-<U6422> \x8F\xC0\xCF |0 # CJK Ideograph
-<U6424> \x8F\xC0\xD0 |0 # CJK Ideograph
-<U6425> \x8F\xC0\xD1 |0 # CJK Ideograph
-<U6429> \x8F\xC0\xD2 |0 # CJK Ideograph
-<U642A> \x8F\xC0\xD3 |0 # CJK Ideograph
-<U642F> \x8F\xC0\xD4 |0 # CJK Ideograph
-<U6430> \x8F\xC0\xD5 |0 # CJK Ideograph
-<U6435> \x8F\xC0\xD6 |0 # CJK Ideograph
-<U643D> \x8F\xC0\xD7 |0 # CJK Ideograph
-<U643F> \x8F\xC0\xD8 |0 # CJK Ideograph
-<U644B> \x8F\xC0\xD9 |0 # CJK Ideograph
-<U644F> \x8F\xC0\xDA |0 # CJK Ideograph
-<U6451> \x8F\xC0\xDB |0 # CJK Ideograph
-<U6452> \x8F\xC0\xDC |0 # CJK Ideograph
-<U6453> \x8F\xC0\xDD |0 # CJK Ideograph
-<U6454> \x8F\xC0\xDE |0 # CJK Ideograph
-<U645A> \x8F\xC0\xDF |0 # CJK Ideograph
-<U645B> \x8F\xC0\xE0 |0 # CJK Ideograph
-<U645C> \x8F\xC0\xE1 |0 # CJK Ideograph
-<U645D> \x8F\xC0\xE2 |0 # CJK Ideograph
-<U645F> \x8F\xC0\xE3 |0 # CJK Ideograph
-<U6460> \x8F\xC0\xE4 |0 # CJK Ideograph
-<U6461> \x8F\xC0\xE5 |0 # CJK Ideograph
-<U6463> \x8F\xC0\xE6 |0 # CJK Ideograph
-<U646D> \x8F\xC0\xE7 |0 # CJK Ideograph
-<U6473> \x8F\xC0\xE8 |0 # CJK Ideograph
-<U6474> \x8F\xC0\xE9 |0 # CJK Ideograph
-<U647B> \x8F\xC0\xEA |0 # CJK Ideograph
-<U647D> \x8F\xC0\xEB |0 # CJK Ideograph
-<U6485> \x8F\xC0\xEC |0 # CJK Ideograph
-<U6487> \x8F\xC0\xED |0 # CJK Ideograph
-<U648F> \x8F\xC0\xEE |0 # CJK Ideograph
-<U6490> \x8F\xC0\xEF |0 # CJK Ideograph
-<U6491> \x8F\xC0\xF0 |0 # CJK Ideograph
-<U6498> \x8F\xC0\xF1 |0 # CJK Ideograph
-<U6499> \x8F\xC0\xF2 |0 # CJK Ideograph
-<U649B> \x8F\xC0\xF3 |0 # CJK Ideograph
-<U649D> \x8F\xC0\xF4 |0 # CJK Ideograph
-<U649F> \x8F\xC0\xF5 |0 # CJK Ideograph
-<U64A1> \x8F\xC0\xF6 |0 # CJK Ideograph
-<U64A3> \x8F\xC0\xF7 |0 # CJK Ideograph
-<U64A6> \x8F\xC0\xF8 |0 # CJK Ideograph
-<U64A8> \x8F\xC0\xF9 |0 # CJK Ideograph
-<U64AC> \x8F\xC0\xFA |0 # CJK Ideograph
-<U64B3> \x8F\xC0\xFB |0 # CJK Ideograph
-<U64BD> \x8F\xC0\xFC |0 # CJK Ideograph
-<U64BE> \x8F\xC0\xFD |0 # CJK Ideograph
-<U64BF> \x8F\xC0\xFE |0 # CJK Ideograph
-<U64C4> \x8F\xC1\xA1 |0 # CJK Ideograph
-<U64C9> \x8F\xC1\xA2 |0 # CJK Ideograph
-<U64CA> \x8F\xC1\xA3 |0 # CJK Ideograph
-<U64CB> \x8F\xC1\xA4 |0 # CJK Ideograph
-<U64CC> \x8F\xC1\xA5 |0 # CJK Ideograph
-<U64CE> \x8F\xC1\xA6 |0 # CJK Ideograph
-<U64D0> \x8F\xC1\xA7 |0 # CJK Ideograph
-<U64D1> \x8F\xC1\xA8 |0 # CJK Ideograph
-<U64D5> \x8F\xC1\xA9 |0 # CJK Ideograph
-<U64D7> \x8F\xC1\xAA |0 # CJK Ideograph
-<U64E4> \x8F\xC1\xAB |0 # CJK Ideograph
-<U64E5> \x8F\xC1\xAC |0 # CJK Ideograph
-<U64E9> \x8F\xC1\xAD |0 # CJK Ideograph
-<U64EA> \x8F\xC1\xAE |0 # CJK Ideograph
-<U64ED> \x8F\xC1\xAF |0 # CJK Ideograph
-<U64F0> \x8F\xC1\xB0 |0 # CJK Ideograph
-<U64F5> \x8F\xC1\xB1 |0 # CJK Ideograph
-<U64F7> \x8F\xC1\xB2 |0 # CJK Ideograph
-<U64FB> \x8F\xC1\xB3 |0 # CJK Ideograph
-<U64FF> \x8F\xC1\xB4 |0 # CJK Ideograph
-<U6501> \x8F\xC1\xB5 |0 # CJK Ideograph
-<U6504> \x8F\xC1\xB6 |0 # CJK Ideograph
-<U6508> \x8F\xC1\xB7 |0 # CJK Ideograph
-<U6509> \x8F\xC1\xB8 |0 # CJK Ideograph
-<U650A> \x8F\xC1\xB9 |0 # CJK Ideograph
-<U650F> \x8F\xC1\xBA |0 # CJK Ideograph
-<U6513> \x8F\xC1\xBB |0 # CJK Ideograph
-<U6514> \x8F\xC1\xBC |0 # CJK Ideograph
-<U6516> \x8F\xC1\xBD |0 # CJK Ideograph
-<U6519> \x8F\xC1\xBE |0 # CJK Ideograph
-<U651B> \x8F\xC1\xBF |0 # CJK Ideograph
-<U651E> \x8F\xC1\xC0 |0 # CJK Ideograph
-<U651F> \x8F\xC1\xC1 |0 # CJK Ideograph
-<U6522> \x8F\xC1\xC2 |0 # CJK Ideograph
-<U6526> \x8F\xC1\xC3 |0 # CJK Ideograph
-<U6529> \x8F\xC1\xC4 |0 # CJK Ideograph
-<U652E> \x8F\xC1\xC5 |0 # CJK Ideograph
-<U6531> \x8F\xC1\xC6 |0 # CJK Ideograph
-<U653A> \x8F\xC1\xC7 |0 # CJK Ideograph
-<U653C> \x8F\xC1\xC8 |0 # CJK Ideograph
-<U653D> \x8F\xC1\xC9 |0 # CJK Ideograph
-<U6543> \x8F\xC1\xCA |0 # CJK Ideograph
-<U6547> \x8F\xC1\xCB |0 # CJK Ideograph
-<U6549> \x8F\xC1\xCC |0 # CJK Ideograph
-<U6550> \x8F\xC1\xCD |0 # CJK Ideograph
-<U6552> \x8F\xC1\xCE |0 # CJK Ideograph
-<U6554> \x8F\xC1\xCF |0 # CJK Ideograph
-<U655F> \x8F\xC1\xD0 |0 # CJK Ideograph
-<U6560> \x8F\xC1\xD1 |0 # CJK Ideograph
-<U6567> \x8F\xC1\xD2 |0 # CJK Ideograph
-<U656B> \x8F\xC1\xD3 |0 # CJK Ideograph
-<U657A> \x8F\xC1\xD4 |0 # CJK Ideograph
-<U657D> \x8F\xC1\xD5 |0 # CJK Ideograph
-<U6581> \x8F\xC1\xD6 |0 # CJK Ideograph
-<U6585> \x8F\xC1\xD7 |0 # CJK Ideograph
-<U658A> \x8F\xC1\xD8 |0 # CJK Ideograph
-<U6592> \x8F\xC1\xD9 |0 # CJK Ideograph
-<U6595> \x8F\xC1\xDA |0 # CJK Ideograph
-<U6598> \x8F\xC1\xDB |0 # CJK Ideograph
-<U659D> \x8F\xC1\xDC |0 # CJK Ideograph
-<U65A0> \x8F\xC1\xDD |0 # CJK Ideograph
-<U65A3> \x8F\xC1\xDE |0 # CJK Ideograph
-<U65A6> \x8F\xC1\xDF |0 # CJK Ideograph
-<U65AE> \x8F\xC1\xE0 |0 # CJK Ideograph
-<U65B2> \x8F\xC1\xE1 |0 # CJK Ideograph
-<U65B3> \x8F\xC1\xE2 |0 # CJK Ideograph
-<U65B4> \x8F\xC1\xE3 |0 # CJK Ideograph
-<U65BF> \x8F\xC1\xE4 |0 # CJK Ideograph
-<U65C2> \x8F\xC1\xE5 |0 # CJK Ideograph
-<U65C8> \x8F\xC1\xE6 |0 # CJK Ideograph
-<U65C9> \x8F\xC1\xE7 |0 # CJK Ideograph
-<U65CE> \x8F\xC1\xE8 |0 # CJK Ideograph
-<U65D0> \x8F\xC1\xE9 |0 # CJK Ideograph
-<U65D4> \x8F\xC1\xEA |0 # CJK Ideograph
-<U65D6> \x8F\xC1\xEB |0 # CJK Ideograph
-<U65D8> \x8F\xC1\xEC |0 # CJK Ideograph
-<U65DF> \x8F\xC1\xED |0 # CJK Ideograph
-<U65F0> \x8F\xC1\xEE |0 # CJK Ideograph
-<U65F2> \x8F\xC1\xEF |0 # CJK Ideograph
-<U65F4> \x8F\xC1\xF0 |0 # CJK Ideograph
-<U65F5> \x8F\xC1\xF1 |0 # CJK Ideograph
-<U65F9> \x8F\xC1\xF2 |0 # CJK Ideograph
-<U65FE> \x8F\xC1\xF3 |0 # CJK Ideograph
-<U65FF> \x8F\xC1\xF4 |0 # CJK Ideograph
-<U6600> \x8F\xC1\xF5 |0 # CJK Ideograph
-<U6604> \x8F\xC1\xF6 |0 # CJK Ideograph
-<U6608> \x8F\xC1\xF7 |0 # CJK Ideograph
-<U6609> \x8F\xC1\xF8 |0 # CJK Ideograph
-<U660D> \x8F\xC1\xF9 |0 # CJK Ideograph
-<U6611> \x8F\xC1\xFA |0 # CJK Ideograph
-<U6612> \x8F\xC1\xFB |0 # CJK Ideograph
-<U6615> \x8F\xC1\xFC |0 # CJK Ideograph
-<U6616> \x8F\xC1\xFD |0 # CJK Ideograph
-<U661D> \x8F\xC1\xFE |0 # CJK Ideograph
-<U661E> \x8F\xC2\xA1 |0 # CJK Ideograph
-<U6621> \x8F\xC2\xA2 |0 # CJK Ideograph
-<U6622> \x8F\xC2\xA3 |0 # CJK Ideograph
-<U6623> \x8F\xC2\xA4 |0 # CJK Ideograph
-<U6624> \x8F\xC2\xA5 |0 # CJK Ideograph
-<U6626> \x8F\xC2\xA6 |0 # CJK Ideograph
-<U6629> \x8F\xC2\xA7 |0 # CJK Ideograph
-<U662A> \x8F\xC2\xA8 |0 # CJK Ideograph
-<U662B> \x8F\xC2\xA9 |0 # CJK Ideograph
-<U662C> \x8F\xC2\xAA |0 # CJK Ideograph
-<U662E> \x8F\xC2\xAB |0 # CJK Ideograph
-<U6630> \x8F\xC2\xAC |0 # CJK Ideograph
-<U6631> \x8F\xC2\xAD |0 # CJK Ideograph
-<U6633> \x8F\xC2\xAE |0 # CJK Ideograph
-<U6639> \x8F\xC2\xAF |0 # CJK Ideograph
-<U6637> \x8F\xC2\xB0 |0 # CJK Ideograph
-<U6640> \x8F\xC2\xB1 |0 # CJK Ideograph
-<U6645> \x8F\xC2\xB2 |0 # CJK Ideograph
-<U6646> \x8F\xC2\xB3 |0 # CJK Ideograph
-<U664A> \x8F\xC2\xB4 |0 # CJK Ideograph
-<U664C> \x8F\xC2\xB5 |0 # CJK Ideograph
-<U6651> \x8F\xC2\xB6 |0 # CJK Ideograph
-<U664E> \x8F\xC2\xB7 |0 # CJK Ideograph
-<U6657> \x8F\xC2\xB8 |0 # CJK Ideograph
-<U6658> \x8F\xC2\xB9 |0 # CJK Ideograph
-<U6659> \x8F\xC2\xBA |0 # CJK Ideograph
-<U665B> \x8F\xC2\xBB |0 # CJK Ideograph
-<U665C> \x8F\xC2\xBC |0 # CJK Ideograph
-<U6660> \x8F\xC2\xBD |0 # CJK Ideograph
-<U6661> \x8F\xC2\xBE |0 # CJK Ideograph
-<U66FB> \x8F\xC2\xBF |0 # CJK Ideograph
-<U666A> \x8F\xC2\xC0 |0 # CJK Ideograph
-<U666B> \x8F\xC2\xC1 |0 # CJK Ideograph
-<U666C> \x8F\xC2\xC2 |0 # CJK Ideograph
-<U667E> \x8F\xC2\xC3 |0 # CJK Ideograph
-<U6673> \x8F\xC2\xC4 |0 # CJK Ideograph
-<U6675> \x8F\xC2\xC5 |0 # CJK Ideograph
-<U667F> \x8F\xC2\xC6 |0 # CJK Ideograph
-<U6677> \x8F\xC2\xC7 |0 # CJK Ideograph
-<U6678> \x8F\xC2\xC8 |0 # CJK Ideograph
-<U6679> \x8F\xC2\xC9 |0 # CJK Ideograph
-<U667B> \x8F\xC2\xCA |0 # CJK Ideograph
-<U6680> \x8F\xC2\xCB |0 # CJK Ideograph
-<U667C> \x8F\xC2\xCC |0 # CJK Ideograph
-<U668B> \x8F\xC2\xCD |0 # CJK Ideograph
-<U668C> \x8F\xC2\xCE |0 # CJK Ideograph
-<U668D> \x8F\xC2\xCF |0 # CJK Ideograph
-<U6690> \x8F\xC2\xD0 |0 # CJK Ideograph
-<U6692> \x8F\xC2\xD1 |0 # CJK Ideograph
-<U6699> \x8F\xC2\xD2 |0 # CJK Ideograph
-<U669A> \x8F\xC2\xD3 |0 # CJK Ideograph
-<U669B> \x8F\xC2\xD4 |0 # CJK Ideograph
-<U669C> \x8F\xC2\xD5 |0 # CJK Ideograph
-<U669F> \x8F\xC2\xD6 |0 # CJK Ideograph
-<U66A0> \x8F\xC2\xD7 |0 # CJK Ideograph
-<U66A4> \x8F\xC2\xD8 |0 # CJK Ideograph
-<U66AD> \x8F\xC2\xD9 |0 # CJK Ideograph
-<U66B1> \x8F\xC2\xDA |0 # CJK Ideograph
-<U66B2> \x8F\xC2\xDB |0 # CJK Ideograph
-<U66B5> \x8F\xC2\xDC |0 # CJK Ideograph
-<U66BB> \x8F\xC2\xDD |0 # CJK Ideograph
-<U66BF> \x8F\xC2\xDE |0 # CJK Ideograph
-<U66C0> \x8F\xC2\xDF |0 # CJK Ideograph
-<U66C2> \x8F\xC2\xE0 |0 # CJK Ideograph
-<U66C3> \x8F\xC2\xE1 |0 # CJK Ideograph
-<U66C8> \x8F\xC2\xE2 |0 # CJK Ideograph
-<U66CC> \x8F\xC2\xE3 |0 # CJK Ideograph
-<U66CE> \x8F\xC2\xE4 |0 # CJK Ideograph
-<U66CF> \x8F\xC2\xE5 |0 # CJK Ideograph
-<U66D4> \x8F\xC2\xE6 |0 # CJK Ideograph
-<U66DB> \x8F\xC2\xE7 |0 # CJK Ideograph
-<U66DF> \x8F\xC2\xE8 |0 # CJK Ideograph
-<U66E8> \x8F\xC2\xE9 |0 # CJK Ideograph
-<U66EB> \x8F\xC2\xEA |0 # CJK Ideograph
-<U66EC> \x8F\xC2\xEB |0 # CJK Ideograph
-<U66EE> \x8F\xC2\xEC |0 # CJK Ideograph
-<U66FA> \x8F\xC2\xED |0 # CJK Ideograph
-<U6705> \x8F\xC2\xEE |0 # CJK Ideograph
-<U6707> \x8F\xC2\xEF |0 # CJK Ideograph
-<U670E> \x8F\xC2\xF0 |0 # CJK Ideograph
-<U6713> \x8F\xC2\xF1 |0 # CJK Ideograph
-<U6719> \x8F\xC2\xF2 |0 # CJK Ideograph
-<U671C> \x8F\xC2\xF3 |0 # CJK Ideograph
-<U6720> \x8F\xC2\xF4 |0 # CJK Ideograph
-<U6722> \x8F\xC2\xF5 |0 # CJK Ideograph
-<U6733> \x8F\xC2\xF6 |0 # CJK Ideograph
-<U673E> \x8F\xC2\xF7 |0 # CJK Ideograph
-<U6745> \x8F\xC2\xF8 |0 # CJK Ideograph
-<U6747> \x8F\xC2\xF9 |0 # CJK Ideograph
-<U6748> \x8F\xC2\xFA |0 # CJK Ideograph
-<U674C> \x8F\xC2\xFB |0 # CJK Ideograph
-<U6754> \x8F\xC2\xFC |0 # CJK Ideograph
-<U6755> \x8F\xC2\xFD |0 # CJK Ideograph
-<U675D> \x8F\xC2\xFE |0 # CJK Ideograph
-<U6766> \x8F\xC3\xA1 |0 # CJK Ideograph
-<U676C> \x8F\xC3\xA2 |0 # CJK Ideograph
-<U676E> \x8F\xC3\xA3 |0 # CJK Ideograph
-<U6774> \x8F\xC3\xA4 |0 # CJK Ideograph
-<U6776> \x8F\xC3\xA5 |0 # CJK Ideograph
-<U677B> \x8F\xC3\xA6 |0 # CJK Ideograph
-<U6781> \x8F\xC3\xA7 |0 # CJK Ideograph
-<U6784> \x8F\xC3\xA8 |0 # CJK Ideograph
-<U678E> \x8F\xC3\xA9 |0 # CJK Ideograph
-<U678F> \x8F\xC3\xAA |0 # CJK Ideograph
-<U6791> \x8F\xC3\xAB |0 # CJK Ideograph
-<U6793> \x8F\xC3\xAC |0 # CJK Ideograph
-<U6796> \x8F\xC3\xAD |0 # CJK Ideograph
-<U6798> \x8F\xC3\xAE |0 # CJK Ideograph
-<U6799> \x8F\xC3\xAF |0 # CJK Ideograph
-<U679B> \x8F\xC3\xB0 |0 # CJK Ideograph
-<U67B0> \x8F\xC3\xB1 |0 # CJK Ideograph
-<U67B1> \x8F\xC3\xB2 |0 # CJK Ideograph
-<U67B2> \x8F\xC3\xB3 |0 # CJK Ideograph
-<U67B5> \x8F\xC3\xB4 |0 # CJK Ideograph
-<U67BB> \x8F\xC3\xB5 |0 # CJK Ideograph
-<U67BC> \x8F\xC3\xB6 |0 # CJK Ideograph
-<U67BD> \x8F\xC3\xB7 |0 # CJK Ideograph
-<U67F9> \x8F\xC3\xB8 |0 # CJK Ideograph
-<U67C0> \x8F\xC3\xB9 |0 # CJK Ideograph
-<U67C2> \x8F\xC3\xBA |0 # CJK Ideograph
-<U67C3> \x8F\xC3\xBB |0 # CJK Ideograph
-<U67C5> \x8F\xC3\xBC |0 # CJK Ideograph
-<U67C8> \x8F\xC3\xBD |0 # CJK Ideograph
-<U67C9> \x8F\xC3\xBE |0 # CJK Ideograph
-<U67D2> \x8F\xC3\xBF |0 # CJK Ideograph
-<U67D7> \x8F\xC3\xC0 |0 # CJK Ideograph
-<U67D9> \x8F\xC3\xC1 |0 # CJK Ideograph
-<U67DC> \x8F\xC3\xC2 |0 # CJK Ideograph
-<U67E1> \x8F\xC3\xC3 |0 # CJK Ideograph
-<U67E6> \x8F\xC3\xC4 |0 # CJK Ideograph
-<U67F0> \x8F\xC3\xC5 |0 # CJK Ideograph
-<U67F2> \x8F\xC3\xC6 |0 # CJK Ideograph
-<U67F6> \x8F\xC3\xC7 |0 # CJK Ideograph
-<U67F7> \x8F\xC3\xC8 |0 # CJK Ideograph
-<U6852> \x8F\xC3\xC9 |0 # CJK Ideograph
-<U6814> \x8F\xC3\xCA |0 # CJK Ideograph
-<U6819> \x8F\xC3\xCB |0 # CJK Ideograph
-<U681D> \x8F\xC3\xCC |0 # CJK Ideograph
-<U681F> \x8F\xC3\xCD |0 # CJK Ideograph
-<U6828> \x8F\xC3\xCE |0 # CJK Ideograph
-<U6827> \x8F\xC3\xCF |0 # CJK Ideograph
-<U682C> \x8F\xC3\xD0 |0 # CJK Ideograph
-<U682D> \x8F\xC3\xD1 |0 # CJK Ideograph
-<U682F> \x8F\xC3\xD2 |0 # CJK Ideograph
-<U6830> \x8F\xC3\xD3 |0 # CJK Ideograph
-<U6831> \x8F\xC3\xD4 |0 # CJK Ideograph
-<U6833> \x8F\xC3\xD5 |0 # CJK Ideograph
-<U683B> \x8F\xC3\xD6 |0 # CJK Ideograph
-<U683F> \x8F\xC3\xD7 |0 # CJK Ideograph
-<U6844> \x8F\xC3\xD8 |0 # CJK Ideograph
-<U6845> \x8F\xC3\xD9 |0 # CJK Ideograph
-<U684A> \x8F\xC3\xDA |0 # CJK Ideograph
-<U684C> \x8F\xC3\xDB |0 # CJK Ideograph
-<U6855> \x8F\xC3\xDC |0 # CJK Ideograph
-<U6857> \x8F\xC3\xDD |0 # CJK Ideograph
-<U6858> \x8F\xC3\xDE |0 # CJK Ideograph
-<U685B> \x8F\xC3\xDF |0 # CJK Ideograph
-<U686B> \x8F\xC3\xE0 |0 # CJK Ideograph
-<U686E> \x8F\xC3\xE1 |0 # CJK Ideograph
-<U686F> \x8F\xC3\xE2 |0 # CJK Ideograph
-<U6870> \x8F\xC3\xE3 |0 # CJK Ideograph
-<U6871> \x8F\xC3\xE4 |0 # CJK Ideograph
-<U6872> \x8F\xC3\xE5 |0 # CJK Ideograph
-<U6875> \x8F\xC3\xE6 |0 # CJK Ideograph
-<U6879> \x8F\xC3\xE7 |0 # CJK Ideograph
-<U687A> \x8F\xC3\xE8 |0 # CJK Ideograph
-<U687B> \x8F\xC3\xE9 |0 # CJK Ideograph
-<U687C> \x8F\xC3\xEA |0 # CJK Ideograph
-<U6882> \x8F\xC3\xEB |0 # CJK Ideograph
-<U6884> \x8F\xC3\xEC |0 # CJK Ideograph
-<U6886> \x8F\xC3\xED |0 # CJK Ideograph
-<U6888> \x8F\xC3\xEE |0 # CJK Ideograph
-<U6896> \x8F\xC3\xEF |0 # CJK Ideograph
-<U6898> \x8F\xC3\xF0 |0 # CJK Ideograph
-<U689A> \x8F\xC3\xF1 |0 # CJK Ideograph
-<U689C> \x8F\xC3\xF2 |0 # CJK Ideograph
-<U68A1> \x8F\xC3\xF3 |0 # CJK Ideograph
-<U68A3> \x8F\xC3\xF4 |0 # CJK Ideograph
-<U68A5> \x8F\xC3\xF5 |0 # CJK Ideograph
-<U68A9> \x8F\xC3\xF6 |0 # CJK Ideograph
-<U68AA> \x8F\xC3\xF7 |0 # CJK Ideograph
-<U68AE> \x8F\xC3\xF8 |0 # CJK Ideograph
-<U68B2> \x8F\xC3\xF9 |0 # CJK Ideograph
-<U68BB> \x8F\xC3\xFA |0 # CJK Ideograph
-<U68C5> \x8F\xC3\xFB |0 # CJK Ideograph
-<U68C8> \x8F\xC3\xFC |0 # CJK Ideograph
-<U68CC> \x8F\xC3\xFD |0 # CJK Ideograph
-<U68CF> \x8F\xC3\xFE |0 # CJK Ideograph
-<U68D0> \x8F\xC4\xA1 |0 # CJK Ideograph
-<U68D1> \x8F\xC4\xA2 |0 # CJK Ideograph
-<U68D3> \x8F\xC4\xA3 |0 # CJK Ideograph
-<U68D6> \x8F\xC4\xA4 |0 # CJK Ideograph
-<U68D9> \x8F\xC4\xA5 |0 # CJK Ideograph
-<U68DC> \x8F\xC4\xA6 |0 # CJK Ideograph
-<U68DD> \x8F\xC4\xA7 |0 # CJK Ideograph
-<U68E5> \x8F\xC4\xA8 |0 # CJK Ideograph
-<U68E8> \x8F\xC4\xA9 |0 # CJK Ideograph
-<U68EA> \x8F\xC4\xAA |0 # CJK Ideograph
-<U68EB> \x8F\xC4\xAB |0 # CJK Ideograph
-<U68EC> \x8F\xC4\xAC |0 # CJK Ideograph
-<U68ED> \x8F\xC4\xAD |0 # CJK Ideograph
-<U68F0> \x8F\xC4\xAE |0 # CJK Ideograph
-<U68F1> \x8F\xC4\xAF |0 # CJK Ideograph
-<U68F5> \x8F\xC4\xB0 |0 # CJK Ideograph
-<U68F6> \x8F\xC4\xB1 |0 # CJK Ideograph
-<U68FB> \x8F\xC4\xB2 |0 # CJK Ideograph
-<U68FC> \x8F\xC4\xB3 |0 # CJK Ideograph
-<U68FD> \x8F\xC4\xB4 |0 # CJK Ideograph
-<U6906> \x8F\xC4\xB5 |0 # CJK Ideograph
-<U6909> \x8F\xC4\xB6 |0 # CJK Ideograph
-<U690A> \x8F\xC4\xB7 |0 # CJK Ideograph
-<U6910> \x8F\xC4\xB8 |0 # CJK Ideograph
-<U6911> \x8F\xC4\xB9 |0 # CJK Ideograph
-<U6913> \x8F\xC4\xBA |0 # CJK Ideograph
-<U6916> \x8F\xC4\xBB |0 # CJK Ideograph
-<U6917> \x8F\xC4\xBC |0 # CJK Ideograph
-<U6931> \x8F\xC4\xBD |0 # CJK Ideograph
-<U6933> \x8F\xC4\xBE |0 # CJK Ideograph
-<U6935> \x8F\xC4\xBF |0 # CJK Ideograph
-<U6938> \x8F\xC4\xC0 |0 # CJK Ideograph
-<U693B> \x8F\xC4\xC1 |0 # CJK Ideograph
-<U6942> \x8F\xC4\xC2 |0 # CJK Ideograph
-<U6945> \x8F\xC4\xC3 |0 # CJK Ideograph
-<U6949> \x8F\xC4\xC4 |0 # CJK Ideograph
-<U694E> \x8F\xC4\xC5 |0 # CJK Ideograph
-<U6957> \x8F\xC4\xC6 |0 # CJK Ideograph
-<U695B> \x8F\xC4\xC7 |0 # CJK Ideograph
-<U6963> \x8F\xC4\xC8 |0 # CJK Ideograph
-<U6964> \x8F\xC4\xC9 |0 # CJK Ideograph
-<U6965> \x8F\xC4\xCA |0 # CJK Ideograph
-<U6966> \x8F\xC4\xCB |0 # CJK Ideograph
-<U6968> \x8F\xC4\xCC |0 # CJK Ideograph
-<U6969> \x8F\xC4\xCD |0 # CJK Ideograph
-<U696C> \x8F\xC4\xCE |0 # CJK Ideograph
-<U6970> \x8F\xC4\xCF |0 # CJK Ideograph
-<U6971> \x8F\xC4\xD0 |0 # CJK Ideograph
-<U6972> \x8F\xC4\xD1 |0 # CJK Ideograph
-<U697A> \x8F\xC4\xD2 |0 # CJK Ideograph
-<U697B> \x8F\xC4\xD3 |0 # CJK Ideograph
-<U697F> \x8F\xC4\xD4 |0 # CJK Ideograph
-<U6980> \x8F\xC4\xD5 |0 # CJK Ideograph
-<U698D> \x8F\xC4\xD6 |0 # CJK Ideograph
-<U6992> \x8F\xC4\xD7 |0 # CJK Ideograph
-<U6996> \x8F\xC4\xD8 |0 # CJK Ideograph
-<U6998> \x8F\xC4\xD9 |0 # CJK Ideograph
-<U69A1> \x8F\xC4\xDA |0 # CJK Ideograph
-<U69A5> \x8F\xC4\xDB |0 # CJK Ideograph
-<U69A6> \x8F\xC4\xDC |0 # CJK Ideograph
-<U69A8> \x8F\xC4\xDD |0 # CJK Ideograph
-<U69AB> \x8F\xC4\xDE |0 # CJK Ideograph
-<U69AD> \x8F\xC4\xDF |0 # CJK Ideograph
-<U69AF> \x8F\xC4\xE0 |0 # CJK Ideograph
-<U69B7> \x8F\xC4\xE1 |0 # CJK Ideograph
-<U69B8> \x8F\xC4\xE2 |0 # CJK Ideograph
-<U69BA> \x8F\xC4\xE3 |0 # CJK Ideograph
-<U69BC> \x8F\xC4\xE4 |0 # CJK Ideograph
-<U69C5> \x8F\xC4\xE5 |0 # CJK Ideograph
-<U69C8> \x8F\xC4\xE6 |0 # CJK Ideograph
-<U69D1> \x8F\xC4\xE7 |0 # CJK Ideograph
-<U69D6> \x8F\xC4\xE8 |0 # CJK Ideograph
-<U69D7> \x8F\xC4\xE9 |0 # CJK Ideograph
-<U69E2> \x8F\xC4\xEA |0 # CJK Ideograph
-<U69E5> \x8F\xC4\xEB |0 # CJK Ideograph
-<U69EE> \x8F\xC4\xEC |0 # CJK Ideograph
-<U69EF> \x8F\xC4\xED |0 # CJK Ideograph
-<U69F1> \x8F\xC4\xEE |0 # CJK Ideograph
-<U69F3> \x8F\xC4\xEF |0 # CJK Ideograph
-<U69F5> \x8F\xC4\xF0 |0 # CJK Ideograph
-<U69FE> \x8F\xC4\xF1 |0 # CJK Ideograph
-<U6A00> \x8F\xC4\xF2 |0 # CJK Ideograph
-<U6A01> \x8F\xC4\xF3 |0 # CJK Ideograph
-<U6A03> \x8F\xC4\xF4 |0 # CJK Ideograph
-<U6A0F> \x8F\xC4\xF5 |0 # CJK Ideograph
-<U6A11> \x8F\xC4\xF6 |0 # CJK Ideograph
-<U6A15> \x8F\xC4\xF7 |0 # CJK Ideograph
-<U6A1A> \x8F\xC4\xF8 |0 # CJK Ideograph
-<U6A1D> \x8F\xC4\xF9 |0 # CJK Ideograph
-<U6A20> \x8F\xC4\xFA |0 # CJK Ideograph
-<U6A24> \x8F\xC4\xFB |0 # CJK Ideograph
-<U6A28> \x8F\xC4\xFC |0 # CJK Ideograph
-<U6A30> \x8F\xC4\xFD |0 # CJK Ideograph
-<U6A32> \x8F\xC4\xFE |0 # CJK Ideograph
-<U6A34> \x8F\xC5\xA1 |0 # CJK Ideograph
-<U6A37> \x8F\xC5\xA2 |0 # CJK Ideograph
-<U6A3B> \x8F\xC5\xA3 |0 # CJK Ideograph
-<U6A3E> \x8F\xC5\xA4 |0 # CJK Ideograph
-<U6A3F> \x8F\xC5\xA5 |0 # CJK Ideograph
-<U6A45> \x8F\xC5\xA6 |0 # CJK Ideograph
-<U6A46> \x8F\xC5\xA7 |0 # CJK Ideograph
-<U6A49> \x8F\xC5\xA8 |0 # CJK Ideograph
-<U6A4A> \x8F\xC5\xA9 |0 # CJK Ideograph
-<U6A4E> \x8F\xC5\xAA |0 # CJK Ideograph
-<U6A50> \x8F\xC5\xAB |0 # CJK Ideograph
-<U6A51> \x8F\xC5\xAC |0 # CJK Ideograph
-<U6A52> \x8F\xC5\xAD |0 # CJK Ideograph
-<U6A55> \x8F\xC5\xAE |0 # CJK Ideograph
-<U6A56> \x8F\xC5\xAF |0 # CJK Ideograph
-<U6A5B> \x8F\xC5\xB0 |0 # CJK Ideograph
-<U6A64> \x8F\xC5\xB1 |0 # CJK Ideograph
-<U6A67> \x8F\xC5\xB2 |0 # CJK Ideograph
-<U6A6A> \x8F\xC5\xB3 |0 # CJK Ideograph
-<U6A71> \x8F\xC5\xB4 |0 # CJK Ideograph
-<U6A73> \x8F\xC5\xB5 |0 # CJK Ideograph
-<U6A7E> \x8F\xC5\xB6 |0 # CJK Ideograph
-<U6A81> \x8F\xC5\xB7 |0 # CJK Ideograph
-<U6A83> \x8F\xC5\xB8 |0 # CJK Ideograph
-<U6A86> \x8F\xC5\xB9 |0 # CJK Ideograph
-<U6A87> \x8F\xC5\xBA |0 # CJK Ideograph
-<U6A89> \x8F\xC5\xBB |0 # CJK Ideograph
-<U6A8B> \x8F\xC5\xBC |0 # CJK Ideograph
-<U6A91> \x8F\xC5\xBD |0 # CJK Ideograph
-<U6A9B> \x8F\xC5\xBE |0 # CJK Ideograph
-<U6A9D> \x8F\xC5\xBF |0 # CJK Ideograph
-<U6A9E> \x8F\xC5\xC0 |0 # CJK Ideograph
-<U6A9F> \x8F\xC5\xC1 |0 # CJK Ideograph
-<U6AA5> \x8F\xC5\xC2 |0 # CJK Ideograph
-<U6AAB> \x8F\xC5\xC3 |0 # CJK Ideograph
-<U6AAF> \x8F\xC5\xC4 |0 # CJK Ideograph
-<U6AB0> \x8F\xC5\xC5 |0 # CJK Ideograph
-<U6AB1> \x8F\xC5\xC6 |0 # CJK Ideograph
-<U6AB4> \x8F\xC5\xC7 |0 # CJK Ideograph
-<U6ABD> \x8F\xC5\xC8 |0 # CJK Ideograph
-<U6ABE> \x8F\xC5\xC9 |0 # CJK Ideograph
-<U6ABF> \x8F\xC5\xCA |0 # CJK Ideograph
-<U6AC6> \x8F\xC5\xCB |0 # CJK Ideograph
-<U6AC9> \x8F\xC5\xCC |0 # CJK Ideograph
-<U6AC8> \x8F\xC5\xCD |0 # CJK Ideograph
-<U6ACC> \x8F\xC5\xCE |0 # CJK Ideograph
-<U6AD0> \x8F\xC5\xCF |0 # CJK Ideograph
-<U6AD4> \x8F\xC5\xD0 |0 # CJK Ideograph
-<U6AD5> \x8F\xC5\xD1 |0 # CJK Ideograph
-<U6AD6> \x8F\xC5\xD2 |0 # CJK Ideograph
-<U6ADC> \x8F\xC5\xD3 |0 # CJK Ideograph
-<U6ADD> \x8F\xC5\xD4 |0 # CJK Ideograph
-<U6AE4> \x8F\xC5\xD5 |0 # CJK Ideograph
-<U6AE7> \x8F\xC5\xD6 |0 # CJK Ideograph
-<U6AEC> \x8F\xC5\xD7 |0 # CJK Ideograph
-<U6AF0> \x8F\xC5\xD8 |0 # CJK Ideograph
-<U6AF1> \x8F\xC5\xD9 |0 # CJK Ideograph
-<U6AF2> \x8F\xC5\xDA |0 # CJK Ideograph
-<U6AFC> \x8F\xC5\xDB |0 # CJK Ideograph
-<U6AFD> \x8F\xC5\xDC |0 # CJK Ideograph
-<U6B02> \x8F\xC5\xDD |0 # CJK Ideograph
-<U6B03> \x8F\xC5\xDE |0 # CJK Ideograph
-<U6B06> \x8F\xC5\xDF |0 # CJK Ideograph
-<U6B07> \x8F\xC5\xE0 |0 # CJK Ideograph
-<U6B09> \x8F\xC5\xE1 |0 # CJK Ideograph
-<U6B0F> \x8F\xC5\xE2 |0 # CJK Ideograph
-<U6B10> \x8F\xC5\xE3 |0 # CJK Ideograph
-<U6B11> \x8F\xC5\xE4 |0 # CJK Ideograph
-<U6B17> \x8F\xC5\xE5 |0 # CJK Ideograph
-<U6B1B> \x8F\xC5\xE6 |0 # CJK Ideograph
-<U6B1E> \x8F\xC5\xE7 |0 # CJK Ideograph
-<U6B24> \x8F\xC5\xE8 |0 # CJK Ideograph
-<U6B28> \x8F\xC5\xE9 |0 # CJK Ideograph
-<U6B2B> \x8F\xC5\xEA |0 # CJK Ideograph
-<U6B2C> \x8F\xC5\xEB |0 # CJK Ideograph
-<U6B2F> \x8F\xC5\xEC |0 # CJK Ideograph
-<U6B35> \x8F\xC5\xED |0 # CJK Ideograph
-<U6B36> \x8F\xC5\xEE |0 # CJK Ideograph
-<U6B3B> \x8F\xC5\xEF |0 # CJK Ideograph
-<U6B3F> \x8F\xC5\xF0 |0 # CJK Ideograph
-<U6B46> \x8F\xC5\xF1 |0 # CJK Ideograph
-<U6B4A> \x8F\xC5\xF2 |0 # CJK Ideograph
-<U6B4D> \x8F\xC5\xF3 |0 # CJK Ideograph
-<U6B52> \x8F\xC5\xF4 |0 # CJK Ideograph
-<U6B56> \x8F\xC5\xF5 |0 # CJK Ideograph
-<U6B58> \x8F\xC5\xF6 |0 # CJK Ideograph
-<U6B5D> \x8F\xC5\xF7 |0 # CJK Ideograph
-<U6B60> \x8F\xC5\xF8 |0 # CJK Ideograph
-<U6B67> \x8F\xC5\xF9 |0 # CJK Ideograph
-<U6B6B> \x8F\xC5\xFA |0 # CJK Ideograph
-<U6B6E> \x8F\xC5\xFB |0 # CJK Ideograph
-<U6B70> \x8F\xC5\xFC |0 # CJK Ideograph
-<U6B75> \x8F\xC5\xFD |0 # CJK Ideograph
-<U6B7D> \x8F\xC5\xFE |0 # CJK Ideograph
-<U6B7E> \x8F\xC6\xA1 |0 # CJK Ideograph
-<U6B82> \x8F\xC6\xA2 |0 # CJK Ideograph
-<U6B85> \x8F\xC6\xA3 |0 # CJK Ideograph
-<U6B97> \x8F\xC6\xA4 |0 # CJK Ideograph
-<U6B9B> \x8F\xC6\xA5 |0 # CJK Ideograph
-<U6B9F> \x8F\xC6\xA6 |0 # CJK Ideograph
-<U6BA0> \x8F\xC6\xA7 |0 # CJK Ideograph
-<U6BA2> \x8F\xC6\xA8 |0 # CJK Ideograph
-<U6BA3> \x8F\xC6\xA9 |0 # CJK Ideograph
-<U6BA8> \x8F\xC6\xAA |0 # CJK Ideograph
-<U6BA9> \x8F\xC6\xAB |0 # CJK Ideograph
-<U6BAC> \x8F\xC6\xAC |0 # CJK Ideograph
-<U6BAD> \x8F\xC6\xAD |0 # CJK Ideograph
-<U6BAE> \x8F\xC6\xAE |0 # CJK Ideograph
-<U6BB0> \x8F\xC6\xAF |0 # CJK Ideograph
-<U6BB8> \x8F\xC6\xB0 |0 # CJK Ideograph
-<U6BB9> \x8F\xC6\xB1 |0 # CJK Ideograph
-<U6BBD> \x8F\xC6\xB2 |0 # CJK Ideograph
-<U6BBE> \x8F\xC6\xB3 |0 # CJK Ideograph
-<U6BC3> \x8F\xC6\xB4 |0 # CJK Ideograph
-<U6BC4> \x8F\xC6\xB5 |0 # CJK Ideograph
-<U6BC9> \x8F\xC6\xB6 |0 # CJK Ideograph
-<U6BCC> \x8F\xC6\xB7 |0 # CJK Ideograph
-<U6BD6> \x8F\xC6\xB8 |0 # CJK Ideograph
-<U6BDA> \x8F\xC6\xB9 |0 # CJK Ideograph
-<U6BE1> \x8F\xC6\xBA |0 # CJK Ideograph
-<U6BE3> \x8F\xC6\xBB |0 # CJK Ideograph
-<U6BE6> \x8F\xC6\xBC |0 # CJK Ideograph
-<U6BE7> \x8F\xC6\xBD |0 # CJK Ideograph
-<U6BEE> \x8F\xC6\xBE |0 # CJK Ideograph
-<U6BF1> \x8F\xC6\xBF |0 # CJK Ideograph
-<U6BF7> \x8F\xC6\xC0 |0 # CJK Ideograph
-<U6BF9> \x8F\xC6\xC1 |0 # CJK Ideograph
-<U6BFF> \x8F\xC6\xC2 |0 # CJK Ideograph
-<U6C02> \x8F\xC6\xC3 |0 # CJK Ideograph
-<U6C04> \x8F\xC6\xC4 |0 # CJK Ideograph
-<U6C05> \x8F\xC6\xC5 |0 # CJK Ideograph
-<U6C09> \x8F\xC6\xC6 |0 # CJK Ideograph
-<U6C0D> \x8F\xC6\xC7 |0 # CJK Ideograph
-<U6C0E> \x8F\xC6\xC8 |0 # CJK Ideograph
-<U6C10> \x8F\xC6\xC9 |0 # CJK Ideograph
-<U6C12> \x8F\xC6\xCA |0 # CJK Ideograph
-<U6C19> \x8F\xC6\xCB |0 # CJK Ideograph
-<U6C1F> \x8F\xC6\xCC |0 # CJK Ideograph
-<U6C26> \x8F\xC6\xCD |0 # CJK Ideograph
-<U6C27> \x8F\xC6\xCE |0 # CJK Ideograph
-<U6C28> \x8F\xC6\xCF |0 # CJK Ideograph
-<U6C2C> \x8F\xC6\xD0 |0 # CJK Ideograph
-<U6C2E> \x8F\xC6\xD1 |0 # CJK Ideograph
-<U6C33> \x8F\xC6\xD2 |0 # CJK Ideograph
-<U6C35> \x8F\xC6\xD3 |0 # CJK Ideograph
-<U6C36> \x8F\xC6\xD4 |0 # CJK Ideograph
-<U6C3A> \x8F\xC6\xD5 |0 # CJK Ideograph
-<U6C3B> \x8F\xC6\xD6 |0 # CJK Ideograph
-<U6C3F> \x8F\xC6\xD7 |0 # CJK Ideograph
-<U6C4A> \x8F\xC6\xD8 |0 # CJK Ideograph
-<U6C4B> \x8F\xC6\xD9 |0 # CJK Ideograph
-<U6C4D> \x8F\xC6\xDA |0 # CJK Ideograph
-<U6C4F> \x8F\xC6\xDB |0 # CJK Ideograph
-<U6C52> \x8F\xC6\xDC |0 # CJK Ideograph
-<U6C54> \x8F\xC6\xDD |0 # CJK Ideograph
-<U6C59> \x8F\xC6\xDE |0 # CJK Ideograph
-<U6C5B> \x8F\xC6\xDF |0 # CJK Ideograph
-<U6C5C> \x8F\xC6\xE0 |0 # CJK Ideograph
-<U6C6B> \x8F\xC6\xE1 |0 # CJK Ideograph
-<U6C6D> \x8F\xC6\xE2 |0 # CJK Ideograph
-<U6C6F> \x8F\xC6\xE3 |0 # CJK Ideograph
-<U6C74> \x8F\xC6\xE4 |0 # CJK Ideograph
-<U6C76> \x8F\xC6\xE5 |0 # CJK Ideograph
-<U6C78> \x8F\xC6\xE6 |0 # CJK Ideograph
-<U6C79> \x8F\xC6\xE7 |0 # CJK Ideograph
-<U6C7B> \x8F\xC6\xE8 |0 # CJK Ideograph
-<U6C85> \x8F\xC6\xE9 |0 # CJK Ideograph
-<U6C86> \x8F\xC6\xEA |0 # CJK Ideograph
-<U6C87> \x8F\xC6\xEB |0 # CJK Ideograph
-<U6C89> \x8F\xC6\xEC |0 # CJK Ideograph
-<U6C94> \x8F\xC6\xED |0 # CJK Ideograph
-<U6C95> \x8F\xC6\xEE |0 # CJK Ideograph
-<U6C97> \x8F\xC6\xEF |0 # CJK Ideograph
-<U6C98> \x8F\xC6\xF0 |0 # CJK Ideograph
-<U6C9C> \x8F\xC6\xF1 |0 # CJK Ideograph
-<U6C9F> \x8F\xC6\xF2 |0 # CJK Ideograph
-<U6CB0> \x8F\xC6\xF3 |0 # CJK Ideograph
-<U6CB2> \x8F\xC6\xF4 |0 # CJK Ideograph
-<U6CB4> \x8F\xC6\xF5 |0 # CJK Ideograph
-<U6CC2> \x8F\xC6\xF6 |0 # CJK Ideograph
-<U6CC6> \x8F\xC6\xF7 |0 # CJK Ideograph
-<U6CCD> \x8F\xC6\xF8 |0 # CJK Ideograph
-<U6CCF> \x8F\xC6\xF9 |0 # CJK Ideograph
-<U6CD0> \x8F\xC6\xFA |0 # CJK Ideograph
-<U6CD1> \x8F\xC6\xFB |0 # CJK Ideograph
-<U6CD2> \x8F\xC6\xFC |0 # CJK Ideograph
-<U6CD4> \x8F\xC6\xFD |0 # CJK Ideograph
-<U6CD6> \x8F\xC6\xFE |0 # CJK Ideograph
-<U6CDA> \x8F\xC7\xA1 |0 # CJK Ideograph
-<U6CDC> \x8F\xC7\xA2 |0 # CJK Ideograph
-<U6CE0> \x8F\xC7\xA3 |0 # CJK Ideograph
-<U6CE7> \x8F\xC7\xA4 |0 # CJK Ideograph
-<U6CE9> \x8F\xC7\xA5 |0 # CJK Ideograph
-<U6CEB> \x8F\xC7\xA6 |0 # CJK Ideograph
-<U6CEC> \x8F\xC7\xA7 |0 # CJK Ideograph
-<U6CEE> \x8F\xC7\xA8 |0 # CJK Ideograph
-<U6CF2> \x8F\xC7\xA9 |0 # CJK Ideograph
-<U6CF4> \x8F\xC7\xAA |0 # CJK Ideograph
-<U6D04> \x8F\xC7\xAB |0 # CJK Ideograph
-<U6D07> \x8F\xC7\xAC |0 # CJK Ideograph
-<U6D0A> \x8F\xC7\xAD |0 # CJK Ideograph
-<U6D0E> \x8F\xC7\xAE |0 # CJK Ideograph
-<U6D0F> \x8F\xC7\xAF |0 # CJK Ideograph
-<U6D11> \x8F\xC7\xB0 |0 # CJK Ideograph
-<U6D13> \x8F\xC7\xB1 |0 # CJK Ideograph
-<U6D1A> \x8F\xC7\xB2 |0 # CJK Ideograph
-<U6D26> \x8F\xC7\xB3 |0 # CJK Ideograph
-<U6D27> \x8F\xC7\xB4 |0 # CJK Ideograph
-<U6D28> \x8F\xC7\xB5 |0 # CJK Ideograph
-<U6C67> \x8F\xC7\xB6 |0 # CJK Ideograph
-<U6D2E> \x8F\xC7\xB7 |0 # CJK Ideograph
-<U6D2F> \x8F\xC7\xB8 |0 # CJK Ideograph
-<U6D31> \x8F\xC7\xB9 |0 # CJK Ideograph
-<U6D39> \x8F\xC7\xBA |0 # CJK Ideograph
-<U6D3C> \x8F\xC7\xBB |0 # CJK Ideograph
-<U6D3F> \x8F\xC7\xBC |0 # CJK Ideograph
-<U6D57> \x8F\xC7\xBD |0 # CJK Ideograph
-<U6D5E> \x8F\xC7\xBE |0 # CJK Ideograph
-<U6D5F> \x8F\xC7\xBF |0 # CJK Ideograph
-<U6D61> \x8F\xC7\xC0 |0 # CJK Ideograph
-<U6D65> \x8F\xC7\xC1 |0 # CJK Ideograph
-<U6D67> \x8F\xC7\xC2 |0 # CJK Ideograph
-<U6D6F> \x8F\xC7\xC3 |0 # CJK Ideograph
-<U6D70> \x8F\xC7\xC4 |0 # CJK Ideograph
-<U6D7C> \x8F\xC7\xC5 |0 # CJK Ideograph
-<U6D82> \x8F\xC7\xC6 |0 # CJK Ideograph
-<U6D87> \x8F\xC7\xC7 |0 # CJK Ideograph
-<U6D91> \x8F\xC7\xC8 |0 # CJK Ideograph
-<U6D92> \x8F\xC7\xC9 |0 # CJK Ideograph
-<U6D94> \x8F\xC7\xCA |0 # CJK Ideograph
-<U6D96> \x8F\xC7\xCB |0 # CJK Ideograph
-<U6D97> \x8F\xC7\xCC |0 # CJK Ideograph
-<U6D98> \x8F\xC7\xCD |0 # CJK Ideograph
-<U6DAA> \x8F\xC7\xCE |0 # CJK Ideograph
-<U6DAC> \x8F\xC7\xCF |0 # CJK Ideograph
-<U6DB4> \x8F\xC7\xD0 |0 # CJK Ideograph
-<U6DB7> \x8F\xC7\xD1 |0 # CJK Ideograph
-<U6DB9> \x8F\xC7\xD2 |0 # CJK Ideograph
-<U6DBD> \x8F\xC7\xD3 |0 # CJK Ideograph
-<U6DBF> \x8F\xC7\xD4 |0 # CJK Ideograph
-<U6DC4> \x8F\xC7\xD5 |0 # CJK Ideograph
-<U6DC8> \x8F\xC7\xD6 |0 # CJK Ideograph
-<U6DCA> \x8F\xC7\xD7 |0 # CJK Ideograph
-<U6DCE> \x8F\xC7\xD8 |0 # CJK Ideograph
-<U6DCF> \x8F\xC7\xD9 |0 # CJK Ideograph
-<U6DD6> \x8F\xC7\xDA |0 # CJK Ideograph
-<U6DDB> \x8F\xC7\xDB |0 # CJK Ideograph
-<U6DDD> \x8F\xC7\xDC |0 # CJK Ideograph
-<U6DDF> \x8F\xC7\xDD |0 # CJK Ideograph
-<U6DE0> \x8F\xC7\xDE |0 # CJK Ideograph
-<U6DE2> \x8F\xC7\xDF |0 # CJK Ideograph
-<U6DE5> \x8F\xC7\xE0 |0 # CJK Ideograph
-<U6DE9> \x8F\xC7\xE1 |0 # CJK Ideograph
-<U6DEF> \x8F\xC7\xE2 |0 # CJK Ideograph
-<U6DF0> \x8F\xC7\xE3 |0 # CJK Ideograph
-<U6DF4> \x8F\xC7\xE4 |0 # CJK Ideograph
-<U6DF6> \x8F\xC7\xE5 |0 # CJK Ideograph
-<U6DFC> \x8F\xC7\xE6 |0 # CJK Ideograph
-<U6E00> \x8F\xC7\xE7 |0 # CJK Ideograph
-<U6E04> \x8F\xC7\xE8 |0 # CJK Ideograph
-<U6E1E> \x8F\xC7\xE9 |0 # CJK Ideograph
-<U6E22> \x8F\xC7\xEA |0 # CJK Ideograph
-<U6E27> \x8F\xC7\xEB |0 # CJK Ideograph
-<U6E32> \x8F\xC7\xEC |0 # CJK Ideograph
-<U6E36> \x8F\xC7\xED |0 # CJK Ideograph
-<U6E39> \x8F\xC7\xEE |0 # CJK Ideograph
-<U6E3B> \x8F\xC7\xEF |0 # CJK Ideograph
-<U6E3C> \x8F\xC7\xF0 |0 # CJK Ideograph
-<U6E44> \x8F\xC7\xF1 |0 # CJK Ideograph
-<U6E45> \x8F\xC7\xF2 |0 # CJK Ideograph
-<U6E48> \x8F\xC7\xF3 |0 # CJK Ideograph
-<U6E49> \x8F\xC7\xF4 |0 # CJK Ideograph
-<U6E4B> \x8F\xC7\xF5 |0 # CJK Ideograph
-<U6E4F> \x8F\xC7\xF6 |0 # CJK Ideograph
-<U6E51> \x8F\xC7\xF7 |0 # CJK Ideograph
-<U6E52> \x8F\xC7\xF8 |0 # CJK Ideograph
-<U6E53> \x8F\xC7\xF9 |0 # CJK Ideograph
-<U6E54> \x8F\xC7\xFA |0 # CJK Ideograph
-<U6E57> \x8F\xC7\xFB |0 # CJK Ideograph
-<U6E5C> \x8F\xC7\xFC |0 # CJK Ideograph
-<U6E5D> \x8F\xC7\xFD |0 # CJK Ideograph
-<U6E5E> \x8F\xC7\xFE |0 # CJK Ideograph
-<U6E62> \x8F\xC8\xA1 |0 # CJK Ideograph
-<U6E63> \x8F\xC8\xA2 |0 # CJK Ideograph
-<U6E68> \x8F\xC8\xA3 |0 # CJK Ideograph
-<U6E73> \x8F\xC8\xA4 |0 # CJK Ideograph
-<U6E7B> \x8F\xC8\xA5 |0 # CJK Ideograph
-<U6E7D> \x8F\xC8\xA6 |0 # CJK Ideograph
-<U6E8D> \x8F\xC8\xA7 |0 # CJK Ideograph
-<U6E93> \x8F\xC8\xA8 |0 # CJK Ideograph
-<U6E99> \x8F\xC8\xA9 |0 # CJK Ideograph
-<U6EA0> \x8F\xC8\xAA |0 # CJK Ideograph
-<U6EA7> \x8F\xC8\xAB |0 # CJK Ideograph
-<U6EAD> \x8F\xC8\xAC |0 # CJK Ideograph
-<U6EAE> \x8F\xC8\xAD |0 # CJK Ideograph
-<U6EB1> \x8F\xC8\xAE |0 # CJK Ideograph
-<U6EB3> \x8F\xC8\xAF |0 # CJK Ideograph
-<U6EBB> \x8F\xC8\xB0 |0 # CJK Ideograph
-<U6EBF> \x8F\xC8\xB1 |0 # CJK Ideograph
-<U6EC0> \x8F\xC8\xB2 |0 # CJK Ideograph
-<U6EC1> \x8F\xC8\xB3 |0 # CJK Ideograph
-<U6EC3> \x8F\xC8\xB4 |0 # CJK Ideograph
-<U6EC7> \x8F\xC8\xB5 |0 # CJK Ideograph
-<U6EC8> \x8F\xC8\xB6 |0 # CJK Ideograph
-<U6ECA> \x8F\xC8\xB7 |0 # CJK Ideograph
-<U6ECD> \x8F\xC8\xB8 |0 # CJK Ideograph
-<U6ECE> \x8F\xC8\xB9 |0 # CJK Ideograph
-<U6ECF> \x8F\xC8\xBA |0 # CJK Ideograph
-<U6EEB> \x8F\xC8\xBB |0 # CJK Ideograph
-<U6EED> \x8F\xC8\xBC |0 # CJK Ideograph
-<U6EEE> \x8F\xC8\xBD |0 # CJK Ideograph
-<U6EF9> \x8F\xC8\xBE |0 # CJK Ideograph
-<U6EFB> \x8F\xC8\xBF |0 # CJK Ideograph
-<U6EFD> \x8F\xC8\xC0 |0 # CJK Ideograph
-<U6F04> \x8F\xC8\xC1 |0 # CJK Ideograph
-<U6F08> \x8F\xC8\xC2 |0 # CJK Ideograph
-<U6F0A> \x8F\xC8\xC3 |0 # CJK Ideograph
-<U6F0C> \x8F\xC8\xC4 |0 # CJK Ideograph
-<U6F0D> \x8F\xC8\xC5 |0 # CJK Ideograph
-<U6F16> \x8F\xC8\xC6 |0 # CJK Ideograph
-<U6F18> \x8F\xC8\xC7 |0 # CJK Ideograph
-<U6F1A> \x8F\xC8\xC8 |0 # CJK Ideograph
-<U6F1B> \x8F\xC8\xC9 |0 # CJK Ideograph
-<U6F26> \x8F\xC8\xCA |0 # CJK Ideograph
-<U6F29> \x8F\xC8\xCB |0 # CJK Ideograph
-<U6F2A> \x8F\xC8\xCC |0 # CJK Ideograph
-<U6F2F> \x8F\xC8\xCD |0 # CJK Ideograph
-<U6F30> \x8F\xC8\xCE |0 # CJK Ideograph
-<U6F33> \x8F\xC8\xCF |0 # CJK Ideograph
-<U6F36> \x8F\xC8\xD0 |0 # CJK Ideograph
-<U6F3B> \x8F\xC8\xD1 |0 # CJK Ideograph
-<U6F3C> \x8F\xC8\xD2 |0 # CJK Ideograph
-<U6F2D> \x8F\xC8\xD3 |0 # CJK Ideograph
-<U6F4F> \x8F\xC8\xD4 |0 # CJK Ideograph
-<U6F51> \x8F\xC8\xD5 |0 # CJK Ideograph
-<U6F52> \x8F\xC8\xD6 |0 # CJK Ideograph
-<U6F53> \x8F\xC8\xD7 |0 # CJK Ideograph
-<U6F57> \x8F\xC8\xD8 |0 # CJK Ideograph
-<U6F59> \x8F\xC8\xD9 |0 # CJK Ideograph
-<U6F5A> \x8F\xC8\xDA |0 # CJK Ideograph
-<U6F5D> \x8F\xC8\xDB |0 # CJK Ideograph
-<U6F5E> \x8F\xC8\xDC |0 # CJK Ideograph
-<U6F61> \x8F\xC8\xDD |0 # CJK Ideograph
-<U6F62> \x8F\xC8\xDE |0 # CJK Ideograph
-<U6F68> \x8F\xC8\xDF |0 # CJK Ideograph
-<U6F6C> \x8F\xC8\xE0 |0 # CJK Ideograph
-<U6F7D> \x8F\xC8\xE1 |0 # CJK Ideograph
-<U6F7E> \x8F\xC8\xE2 |0 # CJK Ideograph
-<U6F83> \x8F\xC8\xE3 |0 # CJK Ideograph
-<U6F87> \x8F\xC8\xE4 |0 # CJK Ideograph
-<U6F88> \x8F\xC8\xE5 |0 # CJK Ideograph
-<U6F8B> \x8F\xC8\xE6 |0 # CJK Ideograph
-<U6F8C> \x8F\xC8\xE7 |0 # CJK Ideograph
-<U6F8D> \x8F\xC8\xE8 |0 # CJK Ideograph
-<U6F90> \x8F\xC8\xE9 |0 # CJK Ideograph
-<U6F92> \x8F\xC8\xEA |0 # CJK Ideograph
-<U6F93> \x8F\xC8\xEB |0 # CJK Ideograph
-<U6F94> \x8F\xC8\xEC |0 # CJK Ideograph
-<U6F96> \x8F\xC8\xED |0 # CJK Ideograph
-<U6F9A> \x8F\xC8\xEE |0 # CJK Ideograph
-<U6F9F> \x8F\xC8\xEF |0 # CJK Ideograph
-<U6FA0> \x8F\xC8\xF0 |0 # CJK Ideograph
-<U6FA5> \x8F\xC8\xF1 |0 # CJK Ideograph
-<U6FA6> \x8F\xC8\xF2 |0 # CJK Ideograph
-<U6FA7> \x8F\xC8\xF3 |0 # CJK Ideograph
-<U6FA8> \x8F\xC8\xF4 |0 # CJK Ideograph
-<U6FAE> \x8F\xC8\xF5 |0 # CJK Ideograph
-<U6FAF> \x8F\xC8\xF6 |0 # CJK Ideograph
-<U6FB0> \x8F\xC8\xF7 |0 # CJK Ideograph
-<U6FB5> \x8F\xC8\xF8 |0 # CJK Ideograph
-<U6FB6> \x8F\xC8\xF9 |0 # CJK Ideograph
-<U6FBC> \x8F\xC8\xFA |0 # CJK Ideograph
-<U6FC5> \x8F\xC8\xFB |0 # CJK Ideograph
-<U6FC7> \x8F\xC8\xFC |0 # CJK Ideograph
-<U6FC8> \x8F\xC8\xFD |0 # CJK Ideograph
-<U6FCA> \x8F\xC8\xFE |0 # CJK Ideograph
-<U6FDA> \x8F\xC9\xA1 |0 # CJK Ideograph
-<U6FDE> \x8F\xC9\xA2 |0 # CJK Ideograph
-<U6FE8> \x8F\xC9\xA3 |0 # CJK Ideograph
-<U6FE9> \x8F\xC9\xA4 |0 # CJK Ideograph
-<U6FF0> \x8F\xC9\xA5 |0 # CJK Ideograph
-<U6FF5> \x8F\xC9\xA6 |0 # CJK Ideograph
-<U6FF9> \x8F\xC9\xA7 |0 # CJK Ideograph
-<U6FFC> \x8F\xC9\xA8 |0 # CJK Ideograph
-<U6FFD> \x8F\xC9\xA9 |0 # CJK Ideograph
-<U7000> \x8F\xC9\xAA |0 # CJK Ideograph
-<U7005> \x8F\xC9\xAB |0 # CJK Ideograph
-<U7006> \x8F\xC9\xAC |0 # CJK Ideograph
-<U7007> \x8F\xC9\xAD |0 # CJK Ideograph
-<U700D> \x8F\xC9\xAE |0 # CJK Ideograph
-<U7017> \x8F\xC9\xAF |0 # CJK Ideograph
-<U7020> \x8F\xC9\xB0 |0 # CJK Ideograph
-<U7023> \x8F\xC9\xB1 |0 # CJK Ideograph
-<U702F> \x8F\xC9\xB2 |0 # CJK Ideograph
-<U7034> \x8F\xC9\xB3 |0 # CJK Ideograph
-<U7037> \x8F\xC9\xB4 |0 # CJK Ideograph
-<U7039> \x8F\xC9\xB5 |0 # CJK Ideograph
-<U703C> \x8F\xC9\xB6 |0 # CJK Ideograph
-<U7043> \x8F\xC9\xB7 |0 # CJK Ideograph
-<U7044> \x8F\xC9\xB8 |0 # CJK Ideograph
-<U7048> \x8F\xC9\xB9 |0 # CJK Ideograph
-<U7049> \x8F\xC9\xBA |0 # CJK Ideograph
-<U704A> \x8F\xC9\xBB |0 # CJK Ideograph
-<U704B> \x8F\xC9\xBC |0 # CJK Ideograph
-<U7054> \x8F\xC9\xBD |0 # CJK Ideograph
-<U7055> \x8F\xC9\xBE |0 # CJK Ideograph
-<U705D> \x8F\xC9\xBF |0 # CJK Ideograph
-<U705E> \x8F\xC9\xC0 |0 # CJK Ideograph
-<U704E> \x8F\xC9\xC1 |0 # CJK Ideograph
-<U7064> \x8F\xC9\xC2 |0 # CJK Ideograph
-<U7065> \x8F\xC9\xC3 |0 # CJK Ideograph
-<U706C> \x8F\xC9\xC4 |0 # CJK Ideograph
-<U706E> \x8F\xC9\xC5 |0 # CJK Ideograph
-<U7075> \x8F\xC9\xC6 |0 # CJK Ideograph
-<U7076> \x8F\xC9\xC7 |0 # CJK Ideograph
-<U707E> \x8F\xC9\xC8 |0 # CJK Ideograph
-<U7081> \x8F\xC9\xC9 |0 # CJK Ideograph
-<U7085> \x8F\xC9\xCA |0 # CJK Ideograph
-<U7086> \x8F\xC9\xCB |0 # CJK Ideograph
-<U7094> \x8F\xC9\xCC |0 # CJK Ideograph
-<U7095> \x8F\xC9\xCD |0 # CJK Ideograph
-<U7096> \x8F\xC9\xCE |0 # CJK Ideograph
-<U7097> \x8F\xC9\xCF |0 # CJK Ideograph
-<U7098> \x8F\xC9\xD0 |0 # CJK Ideograph
-<U709B> \x8F\xC9\xD1 |0 # CJK Ideograph
-<U70A4> \x8F\xC9\xD2 |0 # CJK Ideograph
-<U70AB> \x8F\xC9\xD3 |0 # CJK Ideograph
-<U70B0> \x8F\xC9\xD4 |0 # CJK Ideograph
-<U70B1> \x8F\xC9\xD5 |0 # CJK Ideograph
-<U70B4> \x8F\xC9\xD6 |0 # CJK Ideograph
-<U70B7> \x8F\xC9\xD7 |0 # CJK Ideograph
-<U70CA> \x8F\xC9\xD8 |0 # CJK Ideograph
-<U70D1> \x8F\xC9\xD9 |0 # CJK Ideograph
-<U70D3> \x8F\xC9\xDA |0 # CJK Ideograph
-<U70D4> \x8F\xC9\xDB |0 # CJK Ideograph
-<U70D5> \x8F\xC9\xDC |0 # CJK Ideograph
-<U70D6> \x8F\xC9\xDD |0 # CJK Ideograph
-<U70D8> \x8F\xC9\xDE |0 # CJK Ideograph
-<U70DC> \x8F\xC9\xDF |0 # CJK Ideograph
-<U70E4> \x8F\xC9\xE0 |0 # CJK Ideograph
-<U70FA> \x8F\xC9\xE1 |0 # CJK Ideograph
-<U7103> \x8F\xC9\xE2 |0 # CJK Ideograph
-<U7104> \x8F\xC9\xE3 |0 # CJK Ideograph
-<U7105> \x8F\xC9\xE4 |0 # CJK Ideograph
-<U7106> \x8F\xC9\xE5 |0 # CJK Ideograph
-<U7107> \x8F\xC9\xE6 |0 # CJK Ideograph
-<U710B> \x8F\xC9\xE7 |0 # CJK Ideograph
-<U710C> \x8F\xC9\xE8 |0 # CJK Ideograph
-<U710F> \x8F\xC9\xE9 |0 # CJK Ideograph
-<U711E> \x8F\xC9\xEA |0 # CJK Ideograph
-<U7120> \x8F\xC9\xEB |0 # CJK Ideograph
-<U712B> \x8F\xC9\xEC |0 # CJK Ideograph
-<U712D> \x8F\xC9\xED |0 # CJK Ideograph
-<U712F> \x8F\xC9\xEE |0 # CJK Ideograph
-<U7130> \x8F\xC9\xEF |0 # CJK Ideograph
-<U7131> \x8F\xC9\xF0 |0 # CJK Ideograph
-<U7138> \x8F\xC9\xF1 |0 # CJK Ideograph
-<U7141> \x8F\xC9\xF2 |0 # CJK Ideograph
-<U7145> \x8F\xC9\xF3 |0 # CJK Ideograph
-<U7146> \x8F\xC9\xF4 |0 # CJK Ideograph
-<U7147> \x8F\xC9\xF5 |0 # CJK Ideograph
-<U714A> \x8F\xC9\xF6 |0 # CJK Ideograph
-<U714B> \x8F\xC9\xF7 |0 # CJK Ideograph
-<U7150> \x8F\xC9\xF8 |0 # CJK Ideograph
-<U7152> \x8F\xC9\xF9 |0 # CJK Ideograph
-<U7157> \x8F\xC9\xFA |0 # CJK Ideograph
-<U715A> \x8F\xC9\xFB |0 # CJK Ideograph
-<U715C> \x8F\xC9\xFC |0 # CJK Ideograph
-<U715E> \x8F\xC9\xFD |0 # CJK Ideograph
-<U7160> \x8F\xC9\xFE |0 # CJK Ideograph
-<U7168> \x8F\xCA\xA1 |0 # CJK Ideograph
-<U7179> \x8F\xCA\xA2 |0 # CJK Ideograph
-<U7180> \x8F\xCA\xA3 |0 # CJK Ideograph
-<U7185> \x8F\xCA\xA4 |0 # CJK Ideograph
-<U7187> \x8F\xCA\xA5 |0 # CJK Ideograph
-<U718C> \x8F\xCA\xA6 |0 # CJK Ideograph
-<U7192> \x8F\xCA\xA7 |0 # CJK Ideograph
-<U719A> \x8F\xCA\xA8 |0 # CJK Ideograph
-<U719B> \x8F\xCA\xA9 |0 # CJK Ideograph
-<U71A0> \x8F\xCA\xAA |0 # CJK Ideograph
-<U71A2> \x8F\xCA\xAB |0 # CJK Ideograph
-<U71AF> \x8F\xCA\xAC |0 # CJK Ideograph
-<U71B0> \x8F\xCA\xAD |0 # CJK Ideograph
-<U71B2> \x8F\xCA\xAE |0 # CJK Ideograph
-<U71B3> \x8F\xCA\xAF |0 # CJK Ideograph
-<U71BA> \x8F\xCA\xB0 |0 # CJK Ideograph
-<U71BF> \x8F\xCA\xB1 |0 # CJK Ideograph
-<U71C0> \x8F\xCA\xB2 |0 # CJK Ideograph
-<U71C1> \x8F\xCA\xB3 |0 # CJK Ideograph
-<U71C4> \x8F\xCA\xB4 |0 # CJK Ideograph
-<U71CB> \x8F\xCA\xB5 |0 # CJK Ideograph
-<U71CC> \x8F\xCA\xB6 |0 # CJK Ideograph
-<U71D3> \x8F\xCA\xB7 |0 # CJK Ideograph
-<U71D6> \x8F\xCA\xB8 |0 # CJK Ideograph
-<U71D9> \x8F\xCA\xB9 |0 # CJK Ideograph
-<U71DA> \x8F\xCA\xBA |0 # CJK Ideograph
-<U71DC> \x8F\xCA\xBB |0 # CJK Ideograph
-<U71F8> \x8F\xCA\xBC |0 # CJK Ideograph
-<U71FE> \x8F\xCA\xBD |0 # CJK Ideograph
-<U7200> \x8F\xCA\xBE |0 # CJK Ideograph
-<U7207> \x8F\xCA\xBF |0 # CJK Ideograph
-<U7208> \x8F\xCA\xC0 |0 # CJK Ideograph
-<U7209> \x8F\xCA\xC1 |0 # CJK Ideograph
-<U7213> \x8F\xCA\xC2 |0 # CJK Ideograph
-<U7217> \x8F\xCA\xC3 |0 # CJK Ideograph
-<U721A> \x8F\xCA\xC4 |0 # CJK Ideograph
-<U721D> \x8F\xCA\xC5 |0 # CJK Ideograph
-<U721F> \x8F\xCA\xC6 |0 # CJK Ideograph
-<U7224> \x8F\xCA\xC7 |0 # CJK Ideograph
-<U722B> \x8F\xCA\xC8 |0 # CJK Ideograph
-<U722F> \x8F\xCA\xC9 |0 # CJK Ideograph
-<U7234> \x8F\xCA\xCA |0 # CJK Ideograph
-<U7238> \x8F\xCA\xCB |0 # CJK Ideograph
-<U7239> \x8F\xCA\xCC |0 # CJK Ideograph
-<U7241> \x8F\xCA\xCD |0 # CJK Ideograph
-<U7242> \x8F\xCA\xCE |0 # CJK Ideograph
-<U7243> \x8F\xCA\xCF |0 # CJK Ideograph
-<U7245> \x8F\xCA\xD0 |0 # CJK Ideograph
-<U724E> \x8F\xCA\xD1 |0 # CJK Ideograph
-<U724F> \x8F\xCA\xD2 |0 # CJK Ideograph
-<U7250> \x8F\xCA\xD3 |0 # CJK Ideograph
-<U7253> \x8F\xCA\xD4 |0 # CJK Ideograph
-<U7255> \x8F\xCA\xD5 |0 # CJK Ideograph
-<U7256> \x8F\xCA\xD6 |0 # CJK Ideograph
-<U725A> \x8F\xCA\xD7 |0 # CJK Ideograph
-<U725C> \x8F\xCA\xD8 |0 # CJK Ideograph
-<U725E> \x8F\xCA\xD9 |0 # CJK Ideograph
-<U7260> \x8F\xCA\xDA |0 # CJK Ideograph
-<U7263> \x8F\xCA\xDB |0 # CJK Ideograph
-<U7268> \x8F\xCA\xDC |0 # CJK Ideograph
-<U726B> \x8F\xCA\xDD |0 # CJK Ideograph
-<U726E> \x8F\xCA\xDE |0 # CJK Ideograph
-<U726F> \x8F\xCA\xDF |0 # CJK Ideograph
-<U7271> \x8F\xCA\xE0 |0 # CJK Ideograph
-<U7277> \x8F\xCA\xE1 |0 # CJK Ideograph
-<U7278> \x8F\xCA\xE2 |0 # CJK Ideograph
-<U727B> \x8F\xCA\xE3 |0 # CJK Ideograph
-<U727C> \x8F\xCA\xE4 |0 # CJK Ideograph
-<U727F> \x8F\xCA\xE5 |0 # CJK Ideograph
-<U7284> \x8F\xCA\xE6 |0 # CJK Ideograph
-<U7289> \x8F\xCA\xE7 |0 # CJK Ideograph
-<U728D> \x8F\xCA\xE8 |0 # CJK Ideograph
-<U728E> \x8F\xCA\xE9 |0 # CJK Ideograph
-<U7293> \x8F\xCA\xEA |0 # CJK Ideograph
-<U729B> \x8F\xCA\xEB |0 # CJK Ideograph
-<U72A8> \x8F\xCA\xEC |0 # CJK Ideograph
-<U72AD> \x8F\xCA\xED |0 # CJK Ideograph
-<U72AE> \x8F\xCA\xEE |0 # CJK Ideograph
-<U72B1> \x8F\xCA\xEF |0 # CJK Ideograph
-<U72B4> \x8F\xCA\xF0 |0 # CJK Ideograph
-<U72BE> \x8F\xCA\xF1 |0 # CJK Ideograph
-<U72C1> \x8F\xCA\xF2 |0 # CJK Ideograph
-<U72C7> \x8F\xCA\xF3 |0 # CJK Ideograph
-<U72C9> \x8F\xCA\xF4 |0 # CJK Ideograph
-<U72CC> \x8F\xCA\xF5 |0 # CJK Ideograph
-<U72D5> \x8F\xCA\xF6 |0 # CJK Ideograph
-<U72D6> \x8F\xCA\xF7 |0 # CJK Ideograph
-<U72D8> \x8F\xCA\xF8 |0 # CJK Ideograph
-<U72DF> \x8F\xCA\xF9 |0 # CJK Ideograph
-<U72E5> \x8F\xCA\xFA |0 # CJK Ideograph
-<U72F3> \x8F\xCA\xFB |0 # CJK Ideograph
-<U72F4> \x8F\xCA\xFC |0 # CJK Ideograph
-<U72FA> \x8F\xCA\xFD |0 # CJK Ideograph
-<U72FB> \x8F\xCA\xFE |0 # CJK Ideograph
-<U72FE> \x8F\xCB\xA1 |0 # CJK Ideograph
-<U7302> \x8F\xCB\xA2 |0 # CJK Ideograph
-<U7304> \x8F\xCB\xA3 |0 # CJK Ideograph
-<U7305> \x8F\xCB\xA4 |0 # CJK Ideograph
-<U7307> \x8F\xCB\xA5 |0 # CJK Ideograph
-<U730B> \x8F\xCB\xA6 |0 # CJK Ideograph
-<U730D> \x8F\xCB\xA7 |0 # CJK Ideograph
-<U7312> \x8F\xCB\xA8 |0 # CJK Ideograph
-<U7313> \x8F\xCB\xA9 |0 # CJK Ideograph
-<U7318> \x8F\xCB\xAA |0 # CJK Ideograph
-<U7319> \x8F\xCB\xAB |0 # CJK Ideograph
-<U731E> \x8F\xCB\xAC |0 # CJK Ideograph
-<U7322> \x8F\xCB\xAD |0 # CJK Ideograph
-<U7324> \x8F\xCB\xAE |0 # CJK Ideograph
-<U7327> \x8F\xCB\xAF |0 # CJK Ideograph
-<U7328> \x8F\xCB\xB0 |0 # CJK Ideograph
-<U732C> \x8F\xCB\xB1 |0 # CJK Ideograph
-<U7331> \x8F\xCB\xB2 |0 # CJK Ideograph
-<U7332> \x8F\xCB\xB3 |0 # CJK Ideograph
-<U7335> \x8F\xCB\xB4 |0 # CJK Ideograph
-<U733A> \x8F\xCB\xB5 |0 # CJK Ideograph
-<U733B> \x8F\xCB\xB6 |0 # CJK Ideograph
-<U733D> \x8F\xCB\xB7 |0 # CJK Ideograph
-<U7343> \x8F\xCB\xB8 |0 # CJK Ideograph
-<U734D> \x8F\xCB\xB9 |0 # CJK Ideograph
-<U7350> \x8F\xCB\xBA |0 # CJK Ideograph
-<U7352> \x8F\xCB\xBB |0 # CJK Ideograph
-<U7356> \x8F\xCB\xBC |0 # CJK Ideograph
-<U7358> \x8F\xCB\xBD |0 # CJK Ideograph
-<U735D> \x8F\xCB\xBE |0 # CJK Ideograph
-<U735E> \x8F\xCB\xBF |0 # CJK Ideograph
-<U735F> \x8F\xCB\xC0 |0 # CJK Ideograph
-<U7360> \x8F\xCB\xC1 |0 # CJK Ideograph
-<U7366> \x8F\xCB\xC2 |0 # CJK Ideograph
-<U7367> \x8F\xCB\xC3 |0 # CJK Ideograph
-<U7369> \x8F\xCB\xC4 |0 # CJK Ideograph
-<U736B> \x8F\xCB\xC5 |0 # CJK Ideograph
-<U736C> \x8F\xCB\xC6 |0 # CJK Ideograph
-<U736E> \x8F\xCB\xC7 |0 # CJK Ideograph
-<U736F> \x8F\xCB\xC8 |0 # CJK Ideograph
-<U7371> \x8F\xCB\xC9 |0 # CJK Ideograph
-<U7377> \x8F\xCB\xCA |0 # CJK Ideograph
-<U7379> \x8F\xCB\xCB |0 # CJK Ideograph
-<U737C> \x8F\xCB\xCC |0 # CJK Ideograph
-<U7380> \x8F\xCB\xCD |0 # CJK Ideograph
-<U7381> \x8F\xCB\xCE |0 # CJK Ideograph
-<U7383> \x8F\xCB\xCF |0 # CJK Ideograph
-<U7385> \x8F\xCB\xD0 |0 # CJK Ideograph
-<U7386> \x8F\xCB\xD1 |0 # CJK Ideograph
-<U738E> \x8F\xCB\xD2 |0 # CJK Ideograph
-<U7390> \x8F\xCB\xD3 |0 # CJK Ideograph
-<U7393> \x8F\xCB\xD4 |0 # CJK Ideograph
-<U7395> \x8F\xCB\xD5 |0 # CJK Ideograph
-<U7397> \x8F\xCB\xD6 |0 # CJK Ideograph
-<U7398> \x8F\xCB\xD7 |0 # CJK Ideograph
-<U739C> \x8F\xCB\xD8 |0 # CJK Ideograph
-<U739E> \x8F\xCB\xD9 |0 # CJK Ideograph
-<U739F> \x8F\xCB\xDA |0 # CJK Ideograph
-<U73A0> \x8F\xCB\xDB |0 # CJK Ideograph
-<U73A2> \x8F\xCB\xDC |0 # CJK Ideograph
-<U73A5> \x8F\xCB\xDD |0 # CJK Ideograph
-<U73A6> \x8F\xCB\xDE |0 # CJK Ideograph
-<U73AA> \x8F\xCB\xDF |0 # CJK Ideograph
-<U73AB> \x8F\xCB\xE0 |0 # CJK Ideograph
-<U73AD> \x8F\xCB\xE1 |0 # CJK Ideograph
-<U73B5> \x8F\xCB\xE2 |0 # CJK Ideograph
-<U73B7> \x8F\xCB\xE3 |0 # CJK Ideograph
-<U73B9> \x8F\xCB\xE4 |0 # CJK Ideograph
-<U73BC> \x8F\xCB\xE5 |0 # CJK Ideograph
-<U73BD> \x8F\xCB\xE6 |0 # CJK Ideograph
-<U73BF> \x8F\xCB\xE7 |0 # CJK Ideograph
-<U73C5> \x8F\xCB\xE8 |0 # CJK Ideograph
-<U73C6> \x8F\xCB\xE9 |0 # CJK Ideograph
-<U73C9> \x8F\xCB\xEA |0 # CJK Ideograph
-<U73CB> \x8F\xCB\xEB |0 # CJK Ideograph
-<U73CC> \x8F\xCB\xEC |0 # CJK Ideograph
-<U73CF> \x8F\xCB\xED |0 # CJK Ideograph
-<U73D2> \x8F\xCB\xEE |0 # CJK Ideograph
-<U73D3> \x8F\xCB\xEF |0 # CJK Ideograph
-<U73D6> \x8F\xCB\xF0 |0 # CJK Ideograph
-<U73D9> \x8F\xCB\xF1 |0 # CJK Ideograph
-<U73DD> \x8F\xCB\xF2 |0 # CJK Ideograph
-<U73E1> \x8F\xCB\xF3 |0 # CJK Ideograph
-<U73E3> \x8F\xCB\xF4 |0 # CJK Ideograph
-<U73E6> \x8F\xCB\xF5 |0 # CJK Ideograph
-<U73E7> \x8F\xCB\xF6 |0 # CJK Ideograph
-<U73E9> \x8F\xCB\xF7 |0 # CJK Ideograph
-<U73F4> \x8F\xCB\xF8 |0 # CJK Ideograph
-<U73F5> \x8F\xCB\xF9 |0 # CJK Ideograph
-<U73F7> \x8F\xCB\xFA |0 # CJK Ideograph
-<U73F9> \x8F\xCB\xFB |0 # CJK Ideograph
-<U73FA> \x8F\xCB\xFC |0 # CJK Ideograph
-<U73FB> \x8F\xCB\xFD |0 # CJK Ideograph
-<U73FD> \x8F\xCB\xFE |0 # CJK Ideograph
-<U73FF> \x8F\xCC\xA1 |0 # CJK Ideograph
-<U7400> \x8F\xCC\xA2 |0 # CJK Ideograph
-<U7401> \x8F\xCC\xA3 |0 # CJK Ideograph
-<U7404> \x8F\xCC\xA4 |0 # CJK Ideograph
-<U7407> \x8F\xCC\xA5 |0 # CJK Ideograph
-<U740A> \x8F\xCC\xA6 |0 # CJK Ideograph
-<U7411> \x8F\xCC\xA7 |0 # CJK Ideograph
-<U741A> \x8F\xCC\xA8 |0 # CJK Ideograph
-<U741B> \x8F\xCC\xA9 |0 # CJK Ideograph
-<U7424> \x8F\xCC\xAA |0 # CJK Ideograph
-<U7426> \x8F\xCC\xAB |0 # CJK Ideograph
-<U7428> \x8F\xCC\xAC |0 # CJK Ideograph
-<U7429> \x8F\xCC\xAD |0 # CJK Ideograph
-<U742A> \x8F\xCC\xAE |0 # CJK Ideograph
-<U742B> \x8F\xCC\xAF |0 # CJK Ideograph
-<U742C> \x8F\xCC\xB0 |0 # CJK Ideograph
-<U742D> \x8F\xCC\xB1 |0 # CJK Ideograph
-<U742E> \x8F\xCC\xB2 |0 # CJK Ideograph
-<U742F> \x8F\xCC\xB3 |0 # CJK Ideograph
-<U7430> \x8F\xCC\xB4 |0 # CJK Ideograph
-<U7431> \x8F\xCC\xB5 |0 # CJK Ideograph
-<U7439> \x8F\xCC\xB6 |0 # CJK Ideograph
-<U7440> \x8F\xCC\xB7 |0 # CJK Ideograph
-<U7443> \x8F\xCC\xB8 |0 # CJK Ideograph
-<U7444> \x8F\xCC\xB9 |0 # CJK Ideograph
-<U7446> \x8F\xCC\xBA |0 # CJK Ideograph
-<U7447> \x8F\xCC\xBB |0 # CJK Ideograph
-<U744B> \x8F\xCC\xBC |0 # CJK Ideograph
-<U744D> \x8F\xCC\xBD |0 # CJK Ideograph
-<U7451> \x8F\xCC\xBE |0 # CJK Ideograph
-<U7452> \x8F\xCC\xBF |0 # CJK Ideograph
-<U7457> \x8F\xCC\xC0 |0 # CJK Ideograph
-<U745D> \x8F\xCC\xC1 |0 # CJK Ideograph
-<U7462> \x8F\xCC\xC2 |0 # CJK Ideograph
-<U7466> \x8F\xCC\xC3 |0 # CJK Ideograph
-<U7467> \x8F\xCC\xC4 |0 # CJK Ideograph
-<U7468> \x8F\xCC\xC5 |0 # CJK Ideograph
-<U746B> \x8F\xCC\xC6 |0 # CJK Ideograph
-<U746D> \x8F\xCC\xC7 |0 # CJK Ideograph
-<U746E> \x8F\xCC\xC8 |0 # CJK Ideograph
-<U7471> \x8F\xCC\xC9 |0 # CJK Ideograph
-<U7472> \x8F\xCC\xCA |0 # CJK Ideograph
-<U7480> \x8F\xCC\xCB |0 # CJK Ideograph
-<U7481> \x8F\xCC\xCC |0 # CJK Ideograph
-<U7485> \x8F\xCC\xCD |0 # CJK Ideograph
-<U7486> \x8F\xCC\xCE |0 # CJK Ideograph
-<U7487> \x8F\xCC\xCF |0 # CJK Ideograph
-<U7489> \x8F\xCC\xD0 |0 # CJK Ideograph
-<U748F> \x8F\xCC\xD1 |0 # CJK Ideograph
-<U7490> \x8F\xCC\xD2 |0 # CJK Ideograph
-<U7491> \x8F\xCC\xD3 |0 # CJK Ideograph
-<U7492> \x8F\xCC\xD4 |0 # CJK Ideograph
-<U7498> \x8F\xCC\xD5 |0 # CJK Ideograph
-<U7499> \x8F\xCC\xD6 |0 # CJK Ideograph
-<U749A> \x8F\xCC\xD7 |0 # CJK Ideograph
-<U749C> \x8F\xCC\xD8 |0 # CJK Ideograph
-<U749F> \x8F\xCC\xD9 |0 # CJK Ideograph
-<U74A0> \x8F\xCC\xDA |0 # CJK Ideograph
-<U74A1> \x8F\xCC\xDB |0 # CJK Ideograph
-<U74A3> \x8F\xCC\xDC |0 # CJK Ideograph
-<U74A6> \x8F\xCC\xDD |0 # CJK Ideograph
-<U74A8> \x8F\xCC\xDE |0 # CJK Ideograph
-<U74A9> \x8F\xCC\xDF |0 # CJK Ideograph
-<U74AA> \x8F\xCC\xE0 |0 # CJK Ideograph
-<U74AB> \x8F\xCC\xE1 |0 # CJK Ideograph
-<U74AE> \x8F\xCC\xE2 |0 # CJK Ideograph
-<U74AF> \x8F\xCC\xE3 |0 # CJK Ideograph
-<U74B1> \x8F\xCC\xE4 |0 # CJK Ideograph
-<U74B2> \x8F\xCC\xE5 |0 # CJK Ideograph
-<U74B5> \x8F\xCC\xE6 |0 # CJK Ideograph
-<U74B9> \x8F\xCC\xE7 |0 # CJK Ideograph
-<U74BB> \x8F\xCC\xE8 |0 # CJK Ideograph
-<U74BF> \x8F\xCC\xE9 |0 # CJK Ideograph
-<U74C8> \x8F\xCC\xEA |0 # CJK Ideograph
-<U74C9> \x8F\xCC\xEB |0 # CJK Ideograph
-<U74CC> \x8F\xCC\xEC |0 # CJK Ideograph
-<U74D0> \x8F\xCC\xED |0 # CJK Ideograph
-<U74D3> \x8F\xCC\xEE |0 # CJK Ideograph
-<U74D8> \x8F\xCC\xEF |0 # CJK Ideograph
-<U74DA> \x8F\xCC\xF0 |0 # CJK Ideograph
-<U74DB> \x8F\xCC\xF1 |0 # CJK Ideograph
-<U74DE> \x8F\xCC\xF2 |0 # CJK Ideograph
-<U74DF> \x8F\xCC\xF3 |0 # CJK Ideograph
-<U74E4> \x8F\xCC\xF4 |0 # CJK Ideograph
-<U74E8> \x8F\xCC\xF5 |0 # CJK Ideograph
-<U74EA> \x8F\xCC\xF6 |0 # CJK Ideograph
-<U74EB> \x8F\xCC\xF7 |0 # CJK Ideograph
-<U74EF> \x8F\xCC\xF8 |0 # CJK Ideograph
-<U74F4> \x8F\xCC\xF9 |0 # CJK Ideograph
-<U74FA> \x8F\xCC\xFA |0 # CJK Ideograph
-<U74FB> \x8F\xCC\xFB |0 # CJK Ideograph
-<U74FC> \x8F\xCC\xFC |0 # CJK Ideograph
-<U74FF> \x8F\xCC\xFD |0 # CJK Ideograph
-<U7506> \x8F\xCC\xFE |0 # CJK Ideograph
-<U7512> \x8F\xCD\xA1 |0 # CJK Ideograph
-<U7516> \x8F\xCD\xA2 |0 # CJK Ideograph
-<U7517> \x8F\xCD\xA3 |0 # CJK Ideograph
-<U7520> \x8F\xCD\xA4 |0 # CJK Ideograph
-<U7521> \x8F\xCD\xA5 |0 # CJK Ideograph
-<U7524> \x8F\xCD\xA6 |0 # CJK Ideograph
-<U7527> \x8F\xCD\xA7 |0 # CJK Ideograph
-<U7529> \x8F\xCD\xA8 |0 # CJK Ideograph
-<U752A> \x8F\xCD\xA9 |0 # CJK Ideograph
-<U752F> \x8F\xCD\xAA |0 # CJK Ideograph
-<U7536> \x8F\xCD\xAB |0 # CJK Ideograph
-<U7539> \x8F\xCD\xAC |0 # CJK Ideograph
-<U753D> \x8F\xCD\xAD |0 # CJK Ideograph
-<U753E> \x8F\xCD\xAE |0 # CJK Ideograph
-<U753F> \x8F\xCD\xAF |0 # CJK Ideograph
-<U7540> \x8F\xCD\xB0 |0 # CJK Ideograph
-<U7543> \x8F\xCD\xB1 |0 # CJK Ideograph
-<U7547> \x8F\xCD\xB2 |0 # CJK Ideograph
-<U7548> \x8F\xCD\xB3 |0 # CJK Ideograph
-<U754E> \x8F\xCD\xB4 |0 # CJK Ideograph
-<U7550> \x8F\xCD\xB5 |0 # CJK Ideograph
-<U7552> \x8F\xCD\xB6 |0 # CJK Ideograph
-<U7557> \x8F\xCD\xB7 |0 # CJK Ideograph
-<U755E> \x8F\xCD\xB8 |0 # CJK Ideograph
-<U755F> \x8F\xCD\xB9 |0 # CJK Ideograph
-<U7561> \x8F\xCD\xBA |0 # CJK Ideograph
-<U756F> \x8F\xCD\xBB |0 # CJK Ideograph
-<U7571> \x8F\xCD\xBC |0 # CJK Ideograph
-<U7579> \x8F\xCD\xBD |0 # CJK Ideograph
-<U757A> \x8F\xCD\xBE |0 # CJK Ideograph
-<U757B> \x8F\xCD\xBF |0 # CJK Ideograph
-<U757C> \x8F\xCD\xC0 |0 # CJK Ideograph
-<U757D> \x8F\xCD\xC1 |0 # CJK Ideograph
-<U757E> \x8F\xCD\xC2 |0 # CJK Ideograph
-<U7581> \x8F\xCD\xC3 |0 # CJK Ideograph
-<U7585> \x8F\xCD\xC4 |0 # CJK Ideograph
-<U7590> \x8F\xCD\xC5 |0 # CJK Ideograph
-<U7592> \x8F\xCD\xC6 |0 # CJK Ideograph
-<U7593> \x8F\xCD\xC7 |0 # CJK Ideograph
-<U7595> \x8F\xCD\xC8 |0 # CJK Ideograph
-<U7599> \x8F\xCD\xC9 |0 # CJK Ideograph
-<U759C> \x8F\xCD\xCA |0 # CJK Ideograph
-<U75A2> \x8F\xCD\xCB |0 # CJK Ideograph
-<U75A4> \x8F\xCD\xCC |0 # CJK Ideograph
-<U75B4> \x8F\xCD\xCD |0 # CJK Ideograph
-<U75BA> \x8F\xCD\xCE |0 # CJK Ideograph
-<U75BF> \x8F\xCD\xCF |0 # CJK Ideograph
-<U75C0> \x8F\xCD\xD0 |0 # CJK Ideograph
-<U75C1> \x8F\xCD\xD1 |0 # CJK Ideograph
-<U75C4> \x8F\xCD\xD2 |0 # CJK Ideograph
-<U75C6> \x8F\xCD\xD3 |0 # CJK Ideograph
-<U75CC> \x8F\xCD\xD4 |0 # CJK Ideograph
-<U75CE> \x8F\xCD\xD5 |0 # CJK Ideograph
-<U75CF> \x8F\xCD\xD6 |0 # CJK Ideograph
-<U75D7> \x8F\xCD\xD7 |0 # CJK Ideograph
-<U75DC> \x8F\xCD\xD8 |0 # CJK Ideograph
-<U75DF> \x8F\xCD\xD9 |0 # CJK Ideograph
-<U75E0> \x8F\xCD\xDA |0 # CJK Ideograph
-<U75E1> \x8F\xCD\xDB |0 # CJK Ideograph
-<U75E4> \x8F\xCD\xDC |0 # CJK Ideograph
-<U75E7> \x8F\xCD\xDD |0 # CJK Ideograph
-<U75EC> \x8F\xCD\xDE |0 # CJK Ideograph
-<U75EE> \x8F\xCD\xDF |0 # CJK Ideograph
-<U75EF> \x8F\xCD\xE0 |0 # CJK Ideograph
-<U75F1> \x8F\xCD\xE1 |0 # CJK Ideograph
-<U75F9> \x8F\xCD\xE2 |0 # CJK Ideograph
-<U7600> \x8F\xCD\xE3 |0 # CJK Ideograph
-<U7602> \x8F\xCD\xE4 |0 # CJK Ideograph
-<U7603> \x8F\xCD\xE5 |0 # CJK Ideograph
-<U7604> \x8F\xCD\xE6 |0 # CJK Ideograph
-<U7607> \x8F\xCD\xE7 |0 # CJK Ideograph
-<U7608> \x8F\xCD\xE8 |0 # CJK Ideograph
-<U760A> \x8F\xCD\xE9 |0 # CJK Ideograph
-<U760C> \x8F\xCD\xEA |0 # CJK Ideograph
-<U760F> \x8F\xCD\xEB |0 # CJK Ideograph
-<U7612> \x8F\xCD\xEC |0 # CJK Ideograph
-<U7613> \x8F\xCD\xED |0 # CJK Ideograph
-<U7615> \x8F\xCD\xEE |0 # CJK Ideograph
-<U7616> \x8F\xCD\xEF |0 # CJK Ideograph
-<U7619> \x8F\xCD\xF0 |0 # CJK Ideograph
-<U761B> \x8F\xCD\xF1 |0 # CJK Ideograph
-<U761C> \x8F\xCD\xF2 |0 # CJK Ideograph
-<U761D> \x8F\xCD\xF3 |0 # CJK Ideograph
-<U761E> \x8F\xCD\xF4 |0 # CJK Ideograph
-<U7623> \x8F\xCD\xF5 |0 # CJK Ideograph
-<U7625> \x8F\xCD\xF6 |0 # CJK Ideograph
-<U7626> \x8F\xCD\xF7 |0 # CJK Ideograph
-<U7629> \x8F\xCD\xF8 |0 # CJK Ideograph
-<U762D> \x8F\xCD\xF9 |0 # CJK Ideograph
-<U7632> \x8F\xCD\xFA |0 # CJK Ideograph
-<U7633> \x8F\xCD\xFB |0 # CJK Ideograph
-<U7635> \x8F\xCD\xFC |0 # CJK Ideograph
-<U7638> \x8F\xCD\xFD |0 # CJK Ideograph
-<U7639> \x8F\xCD\xFE |0 # CJK Ideograph
-<U763A> \x8F\xCE\xA1 |0 # CJK Ideograph
-<U763C> \x8F\xCE\xA2 |0 # CJK Ideograph
-<U764A> \x8F\xCE\xA3 |0 # CJK Ideograph
-<U7640> \x8F\xCE\xA4 |0 # CJK Ideograph
-<U7641> \x8F\xCE\xA5 |0 # CJK Ideograph
-<U7643> \x8F\xCE\xA6 |0 # CJK Ideograph
-<U7644> \x8F\xCE\xA7 |0 # CJK Ideograph
-<U7645> \x8F\xCE\xA8 |0 # CJK Ideograph
-<U7649> \x8F\xCE\xA9 |0 # CJK Ideograph
-<U764B> \x8F\xCE\xAA |0 # CJK Ideograph
-<U7655> \x8F\xCE\xAB |0 # CJK Ideograph
-<U7659> \x8F\xCE\xAC |0 # CJK Ideograph
-<U765F> \x8F\xCE\xAD |0 # CJK Ideograph
-<U7664> \x8F\xCE\xAE |0 # CJK Ideograph
-<U7665> \x8F\xCE\xAF |0 # CJK Ideograph
-<U766D> \x8F\xCE\xB0 |0 # CJK Ideograph
-<U766E> \x8F\xCE\xB1 |0 # CJK Ideograph
-<U766F> \x8F\xCE\xB2 |0 # CJK Ideograph
-<U7671> \x8F\xCE\xB3 |0 # CJK Ideograph
-<U7674> \x8F\xCE\xB4 |0 # CJK Ideograph
-<U7681> \x8F\xCE\xB5 |0 # CJK Ideograph
-<U7685> \x8F\xCE\xB6 |0 # CJK Ideograph
-<U768C> \x8F\xCE\xB7 |0 # CJK Ideograph
-<U768D> \x8F\xCE\xB8 |0 # CJK Ideograph
-<U7695> \x8F\xCE\xB9 |0 # CJK Ideograph
-<U769B> \x8F\xCE\xBA |0 # CJK Ideograph
-<U769C> \x8F\xCE\xBB |0 # CJK Ideograph
-<U769D> \x8F\xCE\xBC |0 # CJK Ideograph
-<U769F> \x8F\xCE\xBD |0 # CJK Ideograph
-<U76A0> \x8F\xCE\xBE |0 # CJK Ideograph
-<U76A2> \x8F\xCE\xBF |0 # CJK Ideograph
-<U76A3> \x8F\xCE\xC0 |0 # CJK Ideograph
-<U76A4> \x8F\xCE\xC1 |0 # CJK Ideograph
-<U76A5> \x8F\xCE\xC2 |0 # CJK Ideograph
-<U76A6> \x8F\xCE\xC3 |0 # CJK Ideograph
-<U76A7> \x8F\xCE\xC4 |0 # CJK Ideograph
-<U76A8> \x8F\xCE\xC5 |0 # CJK Ideograph
-<U76AA> \x8F\xCE\xC6 |0 # CJK Ideograph
-<U76AD> \x8F\xCE\xC7 |0 # CJK Ideograph
-<U76BD> \x8F\xCE\xC8 |0 # CJK Ideograph
-<U76C1> \x8F\xCE\xC9 |0 # CJK Ideograph
-<U76C5> \x8F\xCE\xCA |0 # CJK Ideograph
-<U76C9> \x8F\xCE\xCB |0 # CJK Ideograph
-<U76CB> \x8F\xCE\xCC |0 # CJK Ideograph
-<U76CC> \x8F\xCE\xCD |0 # CJK Ideograph
-<U76CE> \x8F\xCE\xCE |0 # CJK Ideograph
-<U76D4> \x8F\xCE\xCF |0 # CJK Ideograph
-<U76D9> \x8F\xCE\xD0 |0 # CJK Ideograph
-<U76E0> \x8F\xCE\xD1 |0 # CJK Ideograph
-<U76E6> \x8F\xCE\xD2 |0 # CJK Ideograph
-<U76E8> \x8F\xCE\xD3 |0 # CJK Ideograph
-<U76EC> \x8F\xCE\xD4 |0 # CJK Ideograph
-<U76F0> \x8F\xCE\xD5 |0 # CJK Ideograph
-<U76F1> \x8F\xCE\xD6 |0 # CJK Ideograph
-<U76F6> \x8F\xCE\xD7 |0 # CJK Ideograph
-<U76F9> \x8F\xCE\xD8 |0 # CJK Ideograph
-<U76FC> \x8F\xCE\xD9 |0 # CJK Ideograph
-<U7700> \x8F\xCE\xDA |0 # CJK Ideograph
-<U7706> \x8F\xCE\xDB |0 # CJK Ideograph
-<U770A> \x8F\xCE\xDC |0 # CJK Ideograph
-<U770E> \x8F\xCE\xDD |0 # CJK Ideograph
-<U7712> \x8F\xCE\xDE |0 # CJK Ideograph
-<U7714> \x8F\xCE\xDF |0 # CJK Ideograph
-<U7715> \x8F\xCE\xE0 |0 # CJK Ideograph
-<U7717> \x8F\xCE\xE1 |0 # CJK Ideograph
-<U7719> \x8F\xCE\xE2 |0 # CJK Ideograph
-<U771A> \x8F\xCE\xE3 |0 # CJK Ideograph
-<U771C> \x8F\xCE\xE4 |0 # CJK Ideograph
-<U7722> \x8F\xCE\xE5 |0 # CJK Ideograph
-<U7728> \x8F\xCE\xE6 |0 # CJK Ideograph
-<U772D> \x8F\xCE\xE7 |0 # CJK Ideograph
-<U772E> \x8F\xCE\xE8 |0 # CJK Ideograph
-<U772F> \x8F\xCE\xE9 |0 # CJK Ideograph
-<U7734> \x8F\xCE\xEA |0 # CJK Ideograph
-<U7735> \x8F\xCE\xEB |0 # CJK Ideograph
-<U7736> \x8F\xCE\xEC |0 # CJK Ideograph
-<U7739> \x8F\xCE\xED |0 # CJK Ideograph
-<U773D> \x8F\xCE\xEE |0 # CJK Ideograph
-<U773E> \x8F\xCE\xEF |0 # CJK Ideograph
-<U7742> \x8F\xCE\xF0 |0 # CJK Ideograph
-<U7745> \x8F\xCE\xF1 |0 # CJK Ideograph
-<U7746> \x8F\xCE\xF2 |0 # CJK Ideograph
-<U774A> \x8F\xCE\xF3 |0 # CJK Ideograph
-<U774D> \x8F\xCE\xF4 |0 # CJK Ideograph
-<U774E> \x8F\xCE\xF5 |0 # CJK Ideograph
-<U774F> \x8F\xCE\xF6 |0 # CJK Ideograph
-<U7752> \x8F\xCE\xF7 |0 # CJK Ideograph
-<U7756> \x8F\xCE\xF8 |0 # CJK Ideograph
-<U7757> \x8F\xCE\xF9 |0 # CJK Ideograph
-<U775C> \x8F\xCE\xFA |0 # CJK Ideograph
-<U775E> \x8F\xCE\xFB |0 # CJK Ideograph
-<U775F> \x8F\xCE\xFC |0 # CJK Ideograph
-<U7760> \x8F\xCE\xFD |0 # CJK Ideograph
-<U7762> \x8F\xCE\xFE |0 # CJK Ideograph
-<U7764> \x8F\xCF\xA1 |0 # CJK Ideograph
-<U7767> \x8F\xCF\xA2 |0 # CJK Ideograph
-<U776A> \x8F\xCF\xA3 |0 # CJK Ideograph
-<U776C> \x8F\xCF\xA4 |0 # CJK Ideograph
-<U7770> \x8F\xCF\xA5 |0 # CJK Ideograph
-<U7772> \x8F\xCF\xA6 |0 # CJK Ideograph
-<U7773> \x8F\xCF\xA7 |0 # CJK Ideograph
-<U7774> \x8F\xCF\xA8 |0 # CJK Ideograph
-<U777A> \x8F\xCF\xA9 |0 # CJK Ideograph
-<U777D> \x8F\xCF\xAA |0 # CJK Ideograph
-<U7780> \x8F\xCF\xAB |0 # CJK Ideograph
-<U7784> \x8F\xCF\xAC |0 # CJK Ideograph
-<U778C> \x8F\xCF\xAD |0 # CJK Ideograph
-<U778D> \x8F\xCF\xAE |0 # CJK Ideograph
-<U7794> \x8F\xCF\xAF |0 # CJK Ideograph
-<U7795> \x8F\xCF\xB0 |0 # CJK Ideograph
-<U7796> \x8F\xCF\xB1 |0 # CJK Ideograph
-<U779A> \x8F\xCF\xB2 |0 # CJK Ideograph
-<U779F> \x8F\xCF\xB3 |0 # CJK Ideograph
-<U77A2> \x8F\xCF\xB4 |0 # CJK Ideograph
-<U77A7> \x8F\xCF\xB5 |0 # CJK Ideograph
-<U77AA> \x8F\xCF\xB6 |0 # CJK Ideograph
-<U77AE> \x8F\xCF\xB7 |0 # CJK Ideograph
-<U77AF> \x8F\xCF\xB8 |0 # CJK Ideograph
-<U77B1> \x8F\xCF\xB9 |0 # CJK Ideograph
-<U77B5> \x8F\xCF\xBA |0 # CJK Ideograph
-<U77BE> \x8F\xCF\xBB |0 # CJK Ideograph
-<U77C3> \x8F\xCF\xBC |0 # CJK Ideograph
-<U77C9> \x8F\xCF\xBD |0 # CJK Ideograph
-<U77D1> \x8F\xCF\xBE |0 # CJK Ideograph
-<U77D2> \x8F\xCF\xBF |0 # CJK Ideograph
-<U77D5> \x8F\xCF\xC0 |0 # CJK Ideograph
-<U77D9> \x8F\xCF\xC1 |0 # CJK Ideograph
-<U77DE> \x8F\xCF\xC2 |0 # CJK Ideograph
-<U77DF> \x8F\xCF\xC3 |0 # CJK Ideograph
-<U77E0> \x8F\xCF\xC4 |0 # CJK Ideograph
-<U77E4> \x8F\xCF\xC5 |0 # CJK Ideograph
-<U77E6> \x8F\xCF\xC6 |0 # CJK Ideograph
-<U77EA> \x8F\xCF\xC7 |0 # CJK Ideograph
-<U77EC> \x8F\xCF\xC8 |0 # CJK Ideograph
-<U77F0> \x8F\xCF\xC9 |0 # CJK Ideograph
-<U77F1> \x8F\xCF\xCA |0 # CJK Ideograph
-<U77F4> \x8F\xCF\xCB |0 # CJK Ideograph
-<U77F8> \x8F\xCF\xCC |0 # CJK Ideograph
-<U77FB> \x8F\xCF\xCD |0 # CJK Ideograph
-<U7805> \x8F\xCF\xCE |0 # CJK Ideograph
-<U7806> \x8F\xCF\xCF |0 # CJK Ideograph
-<U7809> \x8F\xCF\xD0 |0 # CJK Ideograph
-<U780D> \x8F\xCF\xD1 |0 # CJK Ideograph
-<U780E> \x8F\xCF\xD2 |0 # CJK Ideograph
-<U7811> \x8F\xCF\xD3 |0 # CJK Ideograph
-<U781D> \x8F\xCF\xD4 |0 # CJK Ideograph
-<U7821> \x8F\xCF\xD5 |0 # CJK Ideograph
-<U7822> \x8F\xCF\xD6 |0 # CJK Ideograph
-<U7823> \x8F\xCF\xD7 |0 # CJK Ideograph
-<U782D> \x8F\xCF\xD8 |0 # CJK Ideograph
-<U782E> \x8F\xCF\xD9 |0 # CJK Ideograph
-<U7830> \x8F\xCF\xDA |0 # CJK Ideograph
-<U7835> \x8F\xCF\xDB |0 # CJK Ideograph
-<U7837> \x8F\xCF\xDC |0 # CJK Ideograph
-<U7843> \x8F\xCF\xDD |0 # CJK Ideograph
-<U7844> \x8F\xCF\xDE |0 # CJK Ideograph
-<U7847> \x8F\xCF\xDF |0 # CJK Ideograph
-<U7848> \x8F\xCF\xE0 |0 # CJK Ideograph
-<U784C> \x8F\xCF\xE1 |0 # CJK Ideograph
-<U784E> \x8F\xCF\xE2 |0 # CJK Ideograph
-<U7852> \x8F\xCF\xE3 |0 # CJK Ideograph
-<U785C> \x8F\xCF\xE4 |0 # CJK Ideograph
-<U785E> \x8F\xCF\xE5 |0 # CJK Ideograph
-<U7860> \x8F\xCF\xE6 |0 # CJK Ideograph
-<U7861> \x8F\xCF\xE7 |0 # CJK Ideograph
-<U7863> \x8F\xCF\xE8 |0 # CJK Ideograph
-<U7864> \x8F\xCF\xE9 |0 # CJK Ideograph
-<U7868> \x8F\xCF\xEA |0 # CJK Ideograph
-<U786A> \x8F\xCF\xEB |0 # CJK Ideograph
-<U786E> \x8F\xCF\xEC |0 # CJK Ideograph
-<U787A> \x8F\xCF\xED |0 # CJK Ideograph
-<U787E> \x8F\xCF\xEE |0 # CJK Ideograph
-<U788A> \x8F\xCF\xEF |0 # CJK Ideograph
-<U788F> \x8F\xCF\xF0 |0 # CJK Ideograph
-<U7894> \x8F\xCF\xF1 |0 # CJK Ideograph
-<U7898> \x8F\xCF\xF2 |0 # CJK Ideograph
-<U78A1> \x8F\xCF\xF3 |0 # CJK Ideograph
-<U789D> \x8F\xCF\xF4 |0 # CJK Ideograph
-<U789E> \x8F\xCF\xF5 |0 # CJK Ideograph
-<U789F> \x8F\xCF\xF6 |0 # CJK Ideograph
-<U78A4> \x8F\xCF\xF7 |0 # CJK Ideograph
-<U78A8> \x8F\xCF\xF8 |0 # CJK Ideograph
-<U78AC> \x8F\xCF\xF9 |0 # CJK Ideograph
-<U78AD> \x8F\xCF\xFA |0 # CJK Ideograph
-<U78B0> \x8F\xCF\xFB |0 # CJK Ideograph
-<U78B1> \x8F\xCF\xFC |0 # CJK Ideograph
-<U78B2> \x8F\xCF\xFD |0 # CJK Ideograph
-<U78B3> \x8F\xCF\xFE |0 # CJK Ideograph
-<U78BB> \x8F\xD0\xA1 |0 # CJK Ideograph
-<U78BD> \x8F\xD0\xA2 |0 # CJK Ideograph
-<U78BF> \x8F\xD0\xA3 |0 # CJK Ideograph
-<U78C7> \x8F\xD0\xA4 |0 # CJK Ideograph
-<U78C8> \x8F\xD0\xA5 |0 # CJK Ideograph
-<U78C9> \x8F\xD0\xA6 |0 # CJK Ideograph
-<U78CC> \x8F\xD0\xA7 |0 # CJK Ideograph
-<U78CE> \x8F\xD0\xA8 |0 # CJK Ideograph
-<U78D2> \x8F\xD0\xA9 |0 # CJK Ideograph
-<U78D3> \x8F\xD0\xAA |0 # CJK Ideograph
-<U78D5> \x8F\xD0\xAB |0 # CJK Ideograph
-<U78D6> \x8F\xD0\xAC |0 # CJK Ideograph
-<U78E4> \x8F\xD0\xAD |0 # CJK Ideograph
-<U78DB> \x8F\xD0\xAE |0 # CJK Ideograph
-<U78DF> \x8F\xD0\xAF |0 # CJK Ideograph
-<U78E0> \x8F\xD0\xB0 |0 # CJK Ideograph
-<U78E1> \x8F\xD0\xB1 |0 # CJK Ideograph
-<U78E6> \x8F\xD0\xB2 |0 # CJK Ideograph
-<U78EA> \x8F\xD0\xB3 |0 # CJK Ideograph
-<U78F2> \x8F\xD0\xB4 |0 # CJK Ideograph
-<U78F3> \x8F\xD0\xB5 |0 # CJK Ideograph
-<U7900> \x8F\xD0\xB6 |0 # CJK Ideograph
-<U78F6> \x8F\xD0\xB7 |0 # CJK Ideograph
-<U78F7> \x8F\xD0\xB8 |0 # CJK Ideograph
-<U78FA> \x8F\xD0\xB9 |0 # CJK Ideograph
-<U78FB> \x8F\xD0\xBA |0 # CJK Ideograph
-<U78FF> \x8F\xD0\xBB |0 # CJK Ideograph
-<U7906> \x8F\xD0\xBC |0 # CJK Ideograph
-<U790C> \x8F\xD0\xBD |0 # CJK Ideograph
-<U7910> \x8F\xD0\xBE |0 # CJK Ideograph
-<U791A> \x8F\xD0\xBF |0 # CJK Ideograph
-<U791C> \x8F\xD0\xC0 |0 # CJK Ideograph
-<U791E> \x8F\xD0\xC1 |0 # CJK Ideograph
-<U791F> \x8F\xD0\xC2 |0 # CJK Ideograph
-<U7920> \x8F\xD0\xC3 |0 # CJK Ideograph
-<U7925> \x8F\xD0\xC4 |0 # CJK Ideograph
-<U7927> \x8F\xD0\xC5 |0 # CJK Ideograph
-<U7929> \x8F\xD0\xC6 |0 # CJK Ideograph
-<U792D> \x8F\xD0\xC7 |0 # CJK Ideograph
-<U7931> \x8F\xD0\xC8 |0 # CJK Ideograph
-<U7934> \x8F\xD0\xC9 |0 # CJK Ideograph
-<U7935> \x8F\xD0\xCA |0 # CJK Ideograph
-<U793B> \x8F\xD0\xCB |0 # CJK Ideograph
-<U793D> \x8F\xD0\xCC |0 # CJK Ideograph
-<U793F> \x8F\xD0\xCD |0 # CJK Ideograph
-<U7944> \x8F\xD0\xCE |0 # CJK Ideograph
-<U7945> \x8F\xD0\xCF |0 # CJK Ideograph
-<U7946> \x8F\xD0\xD0 |0 # CJK Ideograph
-<U794A> \x8F\xD0\xD1 |0 # CJK Ideograph
-<U794B> \x8F\xD0\xD2 |0 # CJK Ideograph
-<U794F> \x8F\xD0\xD3 |0 # CJK Ideograph
-<U7951> \x8F\xD0\xD4 |0 # CJK Ideograph
-<U7954> \x8F\xD0\xD5 |0 # CJK Ideograph
-<U7958> \x8F\xD0\xD6 |0 # CJK Ideograph
-<U795B> \x8F\xD0\xD7 |0 # CJK Ideograph
-<U795C> \x8F\xD0\xD8 |0 # CJK Ideograph
-<U7967> \x8F\xD0\xD9 |0 # CJK Ideograph
-<U7969> \x8F\xD0\xDA |0 # CJK Ideograph
-<U796B> \x8F\xD0\xDB |0 # CJK Ideograph
-<U7972> \x8F\xD0\xDC |0 # CJK Ideograph
-<U7979> \x8F\xD0\xDD |0 # CJK Ideograph
-<U797B> \x8F\xD0\xDE |0 # CJK Ideograph
-<U797C> \x8F\xD0\xDF |0 # CJK Ideograph
-<U797E> \x8F\xD0\xE0 |0 # CJK Ideograph
-<U798B> \x8F\xD0\xE1 |0 # CJK Ideograph
-<U798C> \x8F\xD0\xE2 |0 # CJK Ideograph
-<U7991> \x8F\xD0\xE3 |0 # CJK Ideograph
-<U7993> \x8F\xD0\xE4 |0 # CJK Ideograph
-<U7994> \x8F\xD0\xE5 |0 # CJK Ideograph
-<U7995> \x8F\xD0\xE6 |0 # CJK Ideograph
-<U7996> \x8F\xD0\xE7 |0 # CJK Ideograph
-<U7998> \x8F\xD0\xE8 |0 # CJK Ideograph
-<U799B> \x8F\xD0\xE9 |0 # CJK Ideograph
-<U799C> \x8F\xD0\xEA |0 # CJK Ideograph
-<U79A1> \x8F\xD0\xEB |0 # CJK Ideograph
-<U79A8> \x8F\xD0\xEC |0 # CJK Ideograph
-<U79A9> \x8F\xD0\xED |0 # CJK Ideograph
-<U79AB> \x8F\xD0\xEE |0 # CJK Ideograph
-<U79AF> \x8F\xD0\xEF |0 # CJK Ideograph
-<U79B1> \x8F\xD0\xF0 |0 # CJK Ideograph
-<U79B4> \x8F\xD0\xF1 |0 # CJK Ideograph
-<U79B8> \x8F\xD0\xF2 |0 # CJK Ideograph
-<U79BB> \x8F\xD0\xF3 |0 # CJK Ideograph
-<U79C2> \x8F\xD0\xF4 |0 # CJK Ideograph
-<U79C4> \x8F\xD0\xF5 |0 # CJK Ideograph
-<U79C7> \x8F\xD0\xF6 |0 # CJK Ideograph
-<U79C8> \x8F\xD0\xF7 |0 # CJK Ideograph
-<U79CA> \x8F\xD0\xF8 |0 # CJK Ideograph
-<U79CF> \x8F\xD0\xF9 |0 # CJK Ideograph
-<U79D4> \x8F\xD0\xFA |0 # CJK Ideograph
-<U79D6> \x8F\xD0\xFB |0 # CJK Ideograph
-<U79DA> \x8F\xD0\xFC |0 # CJK Ideograph
-<U79DD> \x8F\xD0\xFD |0 # CJK Ideograph
-<U79DE> \x8F\xD0\xFE |0 # CJK Ideograph
-<U79E0> \x8F\xD1\xA1 |0 # CJK Ideograph
-<U79E2> \x8F\xD1\xA2 |0 # CJK Ideograph
-<U79E5> \x8F\xD1\xA3 |0 # CJK Ideograph
-<U79EA> \x8F\xD1\xA4 |0 # CJK Ideograph
-<U79EB> \x8F\xD1\xA5 |0 # CJK Ideograph
-<U79ED> \x8F\xD1\xA6 |0 # CJK Ideograph
-<U79F1> \x8F\xD1\xA7 |0 # CJK Ideograph
-<U79F8> \x8F\xD1\xA8 |0 # CJK Ideograph
-<U79FC> \x8F\xD1\xA9 |0 # CJK Ideograph
-<U7A02> \x8F\xD1\xAA |0 # CJK Ideograph
-<U7A03> \x8F\xD1\xAB |0 # CJK Ideograph
-<U7A07> \x8F\xD1\xAC |0 # CJK Ideograph
-<U7A09> \x8F\xD1\xAD |0 # CJK Ideograph
-<U7A0A> \x8F\xD1\xAE |0 # CJK Ideograph
-<U7A0C> \x8F\xD1\xAF |0 # CJK Ideograph
-<U7A11> \x8F\xD1\xB0 |0 # CJK Ideograph
-<U7A15> \x8F\xD1\xB1 |0 # CJK Ideograph
-<U7A1B> \x8F\xD1\xB2 |0 # CJK Ideograph
-<U7A1E> \x8F\xD1\xB3 |0 # CJK Ideograph
-<U7A21> \x8F\xD1\xB4 |0 # CJK Ideograph
-<U7A27> \x8F\xD1\xB5 |0 # CJK Ideograph
-<U7A2B> \x8F\xD1\xB6 |0 # CJK Ideograph
-<U7A2D> \x8F\xD1\xB7 |0 # CJK Ideograph
-<U7A2F> \x8F\xD1\xB8 |0 # CJK Ideograph
-<U7A30> \x8F\xD1\xB9 |0 # CJK Ideograph
-<U7A34> \x8F\xD1\xBA |0 # CJK Ideograph
-<U7A35> \x8F\xD1\xBB |0 # CJK Ideograph
-<U7A38> \x8F\xD1\xBC |0 # CJK Ideograph
-<U7A39> \x8F\xD1\xBD |0 # CJK Ideograph
-<U7A3A> \x8F\xD1\xBE |0 # CJK Ideograph
-<U7A44> \x8F\xD1\xBF |0 # CJK Ideograph
-<U7A45> \x8F\xD1\xC0 |0 # CJK Ideograph
-<U7A47> \x8F\xD1\xC1 |0 # CJK Ideograph
-<U7A48> \x8F\xD1\xC2 |0 # CJK Ideograph
-<U7A4C> \x8F\xD1\xC3 |0 # CJK Ideograph
-<U7A55> \x8F\xD1\xC4 |0 # CJK Ideograph
-<U7A56> \x8F\xD1\xC5 |0 # CJK Ideograph
-<U7A59> \x8F\xD1\xC6 |0 # CJK Ideograph
-<U7A5C> \x8F\xD1\xC7 |0 # CJK Ideograph
-<U7A5D> \x8F\xD1\xC8 |0 # CJK Ideograph
-<U7A5F> \x8F\xD1\xC9 |0 # CJK Ideograph
-<U7A60> \x8F\xD1\xCA |0 # CJK Ideograph
-<U7A65> \x8F\xD1\xCB |0 # CJK Ideograph
-<U7A67> \x8F\xD1\xCC |0 # CJK Ideograph
-<U7A6A> \x8F\xD1\xCD |0 # CJK Ideograph
-<U7A6D> \x8F\xD1\xCE |0 # CJK Ideograph
-<U7A75> \x8F\xD1\xCF |0 # CJK Ideograph
-<U7A78> \x8F\xD1\xD0 |0 # CJK Ideograph
-<U7A7E> \x8F\xD1\xD1 |0 # CJK Ideograph
-<U7A80> \x8F\xD1\xD2 |0 # CJK Ideograph
-<U7A82> \x8F\xD1\xD3 |0 # CJK Ideograph
-<U7A85> \x8F\xD1\xD4 |0 # CJK Ideograph
-<U7A86> \x8F\xD1\xD5 |0 # CJK Ideograph
-<U7A8A> \x8F\xD1\xD6 |0 # CJK Ideograph
-<U7A8B> \x8F\xD1\xD7 |0 # CJK Ideograph
-<U7A90> \x8F\xD1\xD8 |0 # CJK Ideograph
-<U7A91> \x8F\xD1\xD9 |0 # CJK Ideograph
-<U7A94> \x8F\xD1\xDA |0 # CJK Ideograph
-<U7A9E> \x8F\xD1\xDB |0 # CJK Ideograph
-<U7AA0> \x8F\xD1\xDC |0 # CJK Ideograph
-<U7AA3> \x8F\xD1\xDD |0 # CJK Ideograph
-<U7AAC> \x8F\xD1\xDE |0 # CJK Ideograph
-<U7AB3> \x8F\xD1\xDF |0 # CJK Ideograph
-<U7AB5> \x8F\xD1\xE0 |0 # CJK Ideograph
-<U7AB9> \x8F\xD1\xE1 |0 # CJK Ideograph
-<U7ABB> \x8F\xD1\xE2 |0 # CJK Ideograph
-<U7ABC> \x8F\xD1\xE3 |0 # CJK Ideograph
-<U7AC6> \x8F\xD1\xE4 |0 # CJK Ideograph
-<U7AC9> \x8F\xD1\xE5 |0 # CJK Ideograph
-<U7ACC> \x8F\xD1\xE6 |0 # CJK Ideograph
-<U7ACE> \x8F\xD1\xE7 |0 # CJK Ideograph
-<U7AD1> \x8F\xD1\xE8 |0 # CJK Ideograph
-<U7ADB> \x8F\xD1\xE9 |0 # CJK Ideograph
-<U7AE8> \x8F\xD1\xEA |0 # CJK Ideograph
-<U7AE9> \x8F\xD1\xEB |0 # CJK Ideograph
-<U7AEB> \x8F\xD1\xEC |0 # CJK Ideograph
-<U7AEC> \x8F\xD1\xED |0 # CJK Ideograph
-<U7AF1> \x8F\xD1\xEE |0 # CJK Ideograph
-<U7AF4> \x8F\xD1\xEF |0 # CJK Ideograph
-<U7AFB> \x8F\xD1\xF0 |0 # CJK Ideograph
-<U7AFD> \x8F\xD1\xF1 |0 # CJK Ideograph
-<U7AFE> \x8F\xD1\xF2 |0 # CJK Ideograph
-<U7B07> \x8F\xD1\xF3 |0 # CJK Ideograph
-<U7B14> \x8F\xD1\xF4 |0 # CJK Ideograph
-<U7B1F> \x8F\xD1\xF5 |0 # CJK Ideograph
-<U7B23> \x8F\xD1\xF6 |0 # CJK Ideograph
-<U7B27> \x8F\xD1\xF7 |0 # CJK Ideograph
-<U7B29> \x8F\xD1\xF8 |0 # CJK Ideograph
-<U7B2A> \x8F\xD1\xF9 |0 # CJK Ideograph
-<U7B2B> \x8F\xD1\xFA |0 # CJK Ideograph
-<U7B2D> \x8F\xD1\xFB |0 # CJK Ideograph
-<U7B2E> \x8F\xD1\xFC |0 # CJK Ideograph
-<U7B2F> \x8F\xD1\xFD |0 # CJK Ideograph
-<U7B30> \x8F\xD1\xFE |0 # CJK Ideograph
-<U7B31> \x8F\xD2\xA1 |0 # CJK Ideograph
-<U7B34> \x8F\xD2\xA2 |0 # CJK Ideograph
-<U7B3D> \x8F\xD2\xA3 |0 # CJK Ideograph
-<U7B3F> \x8F\xD2\xA4 |0 # CJK Ideograph
-<U7B40> \x8F\xD2\xA5 |0 # CJK Ideograph
-<U7B41> \x8F\xD2\xA6 |0 # CJK Ideograph
-<U7B47> \x8F\xD2\xA7 |0 # CJK Ideograph
-<U7B4E> \x8F\xD2\xA8 |0 # CJK Ideograph
-<U7B55> \x8F\xD2\xA9 |0 # CJK Ideograph
-<U7B60> \x8F\xD2\xAA |0 # CJK Ideograph
-<U7B64> \x8F\xD2\xAB |0 # CJK Ideograph
-<U7B66> \x8F\xD2\xAC |0 # CJK Ideograph
-<U7B69> \x8F\xD2\xAD |0 # CJK Ideograph
-<U7B6A> \x8F\xD2\xAE |0 # CJK Ideograph
-<U7B6D> \x8F\xD2\xAF |0 # CJK Ideograph
-<U7B6F> \x8F\xD2\xB0 |0 # CJK Ideograph
-<U7B72> \x8F\xD2\xB1 |0 # CJK Ideograph
-<U7B73> \x8F\xD2\xB2 |0 # CJK Ideograph
-<U7B77> \x8F\xD2\xB3 |0 # CJK Ideograph
-<U7B84> \x8F\xD2\xB4 |0 # CJK Ideograph
-<U7B89> \x8F\xD2\xB5 |0 # CJK Ideograph
-<U7B8E> \x8F\xD2\xB6 |0 # CJK Ideograph
-<U7B90> \x8F\xD2\xB7 |0 # CJK Ideograph
-<U7B91> \x8F\xD2\xB8 |0 # CJK Ideograph
-<U7B96> \x8F\xD2\xB9 |0 # CJK Ideograph
-<U7B9B> \x8F\xD2\xBA |0 # CJK Ideograph
-<U7B9E> \x8F\xD2\xBB |0 # CJK Ideograph
-<U7BA0> \x8F\xD2\xBC |0 # CJK Ideograph
-<U7BA5> \x8F\xD2\xBD |0 # CJK Ideograph
-<U7BAC> \x8F\xD2\xBE |0 # CJK Ideograph
-<U7BAF> \x8F\xD2\xBF |0 # CJK Ideograph
-<U7BB0> \x8F\xD2\xC0 |0 # CJK Ideograph
-<U7BB2> \x8F\xD2\xC1 |0 # CJK Ideograph
-<U7BB5> \x8F\xD2\xC2 |0 # CJK Ideograph
-<U7BB6> \x8F\xD2\xC3 |0 # CJK Ideograph
-<U7BBA> \x8F\xD2\xC4 |0 # CJK Ideograph
-<U7BBB> \x8F\xD2\xC5 |0 # CJK Ideograph
-<U7BBC> \x8F\xD2\xC6 |0 # CJK Ideograph
-<U7BBD> \x8F\xD2\xC7 |0 # CJK Ideograph
-<U7BC2> \x8F\xD2\xC8 |0 # CJK Ideograph
-<U7BC5> \x8F\xD2\xC9 |0 # CJK Ideograph
-<U7BC8> \x8F\xD2\xCA |0 # CJK Ideograph
-<U7BCA> \x8F\xD2\xCB |0 # CJK Ideograph
-<U7BD4> \x8F\xD2\xCC |0 # CJK Ideograph
-<U7BD6> \x8F\xD2\xCD |0 # CJK Ideograph
-<U7BD7> \x8F\xD2\xCE |0 # CJK Ideograph
-<U7BD9> \x8F\xD2\xCF |0 # CJK Ideograph
-<U7BDA> \x8F\xD2\xD0 |0 # CJK Ideograph
-<U7BDB> \x8F\xD2\xD1 |0 # CJK Ideograph
-<U7BE8> \x8F\xD2\xD2 |0 # CJK Ideograph
-<U7BEA> \x8F\xD2\xD3 |0 # CJK Ideograph
-<U7BF2> \x8F\xD2\xD4 |0 # CJK Ideograph
-<U7BF4> \x8F\xD2\xD5 |0 # CJK Ideograph
-<U7BF5> \x8F\xD2\xD6 |0 # CJK Ideograph
-<U7BF8> \x8F\xD2\xD7 |0 # CJK Ideograph
-<U7BF9> \x8F\xD2\xD8 |0 # CJK Ideograph
-<U7BFA> \x8F\xD2\xD9 |0 # CJK Ideograph
-<U7BFC> \x8F\xD2\xDA |0 # CJK Ideograph
-<U7BFE> \x8F\xD2\xDB |0 # CJK Ideograph
-<U7C01> \x8F\xD2\xDC |0 # CJK Ideograph
-<U7C02> \x8F\xD2\xDD |0 # CJK Ideograph
-<U7C03> \x8F\xD2\xDE |0 # CJK Ideograph
-<U7C04> \x8F\xD2\xDF |0 # CJK Ideograph
-<U7C06> \x8F\xD2\xE0 |0 # CJK Ideograph
-<U7C09> \x8F\xD2\xE1 |0 # CJK Ideograph
-<U7C0B> \x8F\xD2\xE2 |0 # CJK Ideograph
-<U7C0C> \x8F\xD2\xE3 |0 # CJK Ideograph
-<U7C0E> \x8F\xD2\xE4 |0 # CJK Ideograph
-<U7C0F> \x8F\xD2\xE5 |0 # CJK Ideograph
-<U7C19> \x8F\xD2\xE6 |0 # CJK Ideograph
-<U7C1B> \x8F\xD2\xE7 |0 # CJK Ideograph
-<U7C20> \x8F\xD2\xE8 |0 # CJK Ideograph
-<U7C25> \x8F\xD2\xE9 |0 # CJK Ideograph
-<U7C26> \x8F\xD2\xEA |0 # CJK Ideograph
-<U7C28> \x8F\xD2\xEB |0 # CJK Ideograph
-<U7C2C> \x8F\xD2\xEC |0 # CJK Ideograph
-<U7C31> \x8F\xD2\xED |0 # CJK Ideograph
-<U7C33> \x8F\xD2\xEE |0 # CJK Ideograph
-<U7C34> \x8F\xD2\xEF |0 # CJK Ideograph
-<U7C36> \x8F\xD2\xF0 |0 # CJK Ideograph
-<U7C39> \x8F\xD2\xF1 |0 # CJK Ideograph
-<U7C3A> \x8F\xD2\xF2 |0 # CJK Ideograph
-<U7C46> \x8F\xD2\xF3 |0 # CJK Ideograph
-<U7C4A> \x8F\xD2\xF4 |0 # CJK Ideograph
-<U7C55> \x8F\xD2\xF5 |0 # CJK Ideograph
-<U7C51> \x8F\xD2\xF6 |0 # CJK Ideograph
-<U7C52> \x8F\xD2\xF7 |0 # CJK Ideograph
-<U7C53> \x8F\xD2\xF8 |0 # CJK Ideograph
-<U7C59> \x8F\xD2\xF9 |0 # CJK Ideograph
-<U7C5A> \x8F\xD2\xFA |0 # CJK Ideograph
-<U7C5B> \x8F\xD2\xFB |0 # CJK Ideograph
-<U7C5C> \x8F\xD2\xFC |0 # CJK Ideograph
-<U7C5D> \x8F\xD2\xFD |0 # CJK Ideograph
-<U7C5E> \x8F\xD2\xFE |0 # CJK Ideograph
-<U7C61> \x8F\xD3\xA1 |0 # CJK Ideograph
-<U7C63> \x8F\xD3\xA2 |0 # CJK Ideograph
-<U7C67> \x8F\xD3\xA3 |0 # CJK Ideograph
-<U7C69> \x8F\xD3\xA4 |0 # CJK Ideograph
-<U7C6D> \x8F\xD3\xA5 |0 # CJK Ideograph
-<U7C6E> \x8F\xD3\xA6 |0 # CJK Ideograph
-<U7C70> \x8F\xD3\xA7 |0 # CJK Ideograph
-<U7C72> \x8F\xD3\xA8 |0 # CJK Ideograph
-<U7C79> \x8F\xD3\xA9 |0 # CJK Ideograph
-<U7C7C> \x8F\xD3\xAA |0 # CJK Ideograph
-<U7C7D> \x8F\xD3\xAB |0 # CJK Ideograph
-<U7C86> \x8F\xD3\xAC |0 # CJK Ideograph
-<U7C87> \x8F\xD3\xAD |0 # CJK Ideograph
-<U7C8F> \x8F\xD3\xAE |0 # CJK Ideograph
-<U7C94> \x8F\xD3\xAF |0 # CJK Ideograph
-<U7C9E> \x8F\xD3\xB0 |0 # CJK Ideograph
-<U7CA0> \x8F\xD3\xB1 |0 # CJK Ideograph
-<U7CA6> \x8F\xD3\xB2 |0 # CJK Ideograph
-<U7CB0> \x8F\xD3\xB3 |0 # CJK Ideograph
-<U7CB6> \x8F\xD3\xB4 |0 # CJK Ideograph
-<U7CB7> \x8F\xD3\xB5 |0 # CJK Ideograph
-<U7CBA> \x8F\xD3\xB6 |0 # CJK Ideograph
-<U7CBB> \x8F\xD3\xB7 |0 # CJK Ideograph
-<U7CBC> \x8F\xD3\xB8 |0 # CJK Ideograph
-<U7CBF> \x8F\xD3\xB9 |0 # CJK Ideograph
-<U7CC4> \x8F\xD3\xBA |0 # CJK Ideograph
-<U7CC7> \x8F\xD3\xBB |0 # CJK Ideograph
-<U7CC8> \x8F\xD3\xBC |0 # CJK Ideograph
-<U7CC9> \x8F\xD3\xBD |0 # CJK Ideograph
-<U7CCD> \x8F\xD3\xBE |0 # CJK Ideograph
-<U7CCF> \x8F\xD3\xBF |0 # CJK Ideograph
-<U7CD3> \x8F\xD3\xC0 |0 # CJK Ideograph
-<U7CD4> \x8F\xD3\xC1 |0 # CJK Ideograph
-<U7CD5> \x8F\xD3\xC2 |0 # CJK Ideograph
-<U7CD7> \x8F\xD3\xC3 |0 # CJK Ideograph
-<U7CD9> \x8F\xD3\xC4 |0 # CJK Ideograph
-<U7CDA> \x8F\xD3\xC5 |0 # CJK Ideograph
-<U7CDD> \x8F\xD3\xC6 |0 # CJK Ideograph
-<U7CE6> \x8F\xD3\xC7 |0 # CJK Ideograph
-<U7CE9> \x8F\xD3\xC8 |0 # CJK Ideograph
-<U7CEB> \x8F\xD3\xC9 |0 # CJK Ideograph
-<U7CF5> \x8F\xD3\xCA |0 # CJK Ideograph
-<U7D03> \x8F\xD3\xCB |0 # CJK Ideograph
-<U7D07> \x8F\xD3\xCC |0 # CJK Ideograph
-<U7D08> \x8F\xD3\xCD |0 # CJK Ideograph
-<U7D09> \x8F\xD3\xCE |0 # CJK Ideograph
-<U7D0F> \x8F\xD3\xCF |0 # CJK Ideograph
-<U7D11> \x8F\xD3\xD0 |0 # CJK Ideograph
-<U7D12> \x8F\xD3\xD1 |0 # CJK Ideograph
-<U7D13> \x8F\xD3\xD2 |0 # CJK Ideograph
-<U7D16> \x8F\xD3\xD3 |0 # CJK Ideograph
-<U7D1D> \x8F\xD3\xD4 |0 # CJK Ideograph
-<U7D1E> \x8F\xD3\xD5 |0 # CJK Ideograph
-<U7D23> \x8F\xD3\xD6 |0 # CJK Ideograph
-<U7D26> \x8F\xD3\xD7 |0 # CJK Ideograph
-<U7D2A> \x8F\xD3\xD8 |0 # CJK Ideograph
-<U7D2D> \x8F\xD3\xD9 |0 # CJK Ideograph
-<U7D31> \x8F\xD3\xDA |0 # CJK Ideograph
-<U7D3C> \x8F\xD3\xDB |0 # CJK Ideograph
-<U7D3D> \x8F\xD3\xDC |0 # CJK Ideograph
-<U7D3E> \x8F\xD3\xDD |0 # CJK Ideograph
-<U7D40> \x8F\xD3\xDE |0 # CJK Ideograph
-<U7D41> \x8F\xD3\xDF |0 # CJK Ideograph
-<U7D47> \x8F\xD3\xE0 |0 # CJK Ideograph
-<U7D48> \x8F\xD3\xE1 |0 # CJK Ideograph
-<U7D4D> \x8F\xD3\xE2 |0 # CJK Ideograph
-<U7D51> \x8F\xD3\xE3 |0 # CJK Ideograph
-<U7D53> \x8F\xD3\xE4 |0 # CJK Ideograph
-<U7D57> \x8F\xD3\xE5 |0 # CJK Ideograph
-<U7D59> \x8F\xD3\xE6 |0 # CJK Ideograph
-<U7D5A> \x8F\xD3\xE7 |0 # CJK Ideograph
-<U7D5C> \x8F\xD3\xE8 |0 # CJK Ideograph
-<U7D5D> \x8F\xD3\xE9 |0 # CJK Ideograph
-<U7D65> \x8F\xD3\xEA |0 # CJK Ideograph
-<U7D67> \x8F\xD3\xEB |0 # CJK Ideograph
-<U7D6A> \x8F\xD3\xEC |0 # CJK Ideograph
-<U7D70> \x8F\xD3\xED |0 # CJK Ideograph
-<U7D78> \x8F\xD3\xEE |0 # CJK Ideograph
-<U7D7A> \x8F\xD3\xEF |0 # CJK Ideograph
-<U7D7B> \x8F\xD3\xF0 |0 # CJK Ideograph
-<U7D7F> \x8F\xD3\xF1 |0 # CJK Ideograph
-<U7D81> \x8F\xD3\xF2 |0 # CJK Ideograph
-<U7D82> \x8F\xD3\xF3 |0 # CJK Ideograph
-<U7D83> \x8F\xD3\xF4 |0 # CJK Ideograph
-<U7D85> \x8F\xD3\xF5 |0 # CJK Ideograph
-<U7D86> \x8F\xD3\xF6 |0 # CJK Ideograph
-<U7D88> \x8F\xD3\xF7 |0 # CJK Ideograph
-<U7D8B> \x8F\xD3\xF8 |0 # CJK Ideograph
-<U7D8C> \x8F\xD3\xF9 |0 # CJK Ideograph
-<U7D8D> \x8F\xD3\xFA |0 # CJK Ideograph
-<U7D91> \x8F\xD3\xFB |0 # CJK Ideograph
-<U7D96> \x8F\xD3\xFC |0 # CJK Ideograph
-<U7D97> \x8F\xD3\xFD |0 # CJK Ideograph
-<U7D9D> \x8F\xD3\xFE |0 # CJK Ideograph
-<U7D9E> \x8F\xD4\xA1 |0 # CJK Ideograph
-<U7DA6> \x8F\xD4\xA2 |0 # CJK Ideograph
-<U7DA7> \x8F\xD4\xA3 |0 # CJK Ideograph
-<U7DAA> \x8F\xD4\xA4 |0 # CJK Ideograph
-<U7DB3> \x8F\xD4\xA5 |0 # CJK Ideograph
-<U7DB6> \x8F\xD4\xA6 |0 # CJK Ideograph
-<U7DB7> \x8F\xD4\xA7 |0 # CJK Ideograph
-<U7DB9> \x8F\xD4\xA8 |0 # CJK Ideograph
-<U7DC2> \x8F\xD4\xA9 |0 # CJK Ideograph
-<U7DC3> \x8F\xD4\xAA |0 # CJK Ideograph
-<U7DC4> \x8F\xD4\xAB |0 # CJK Ideograph
-<U7DC5> \x8F\xD4\xAC |0 # CJK Ideograph
-<U7DC6> \x8F\xD4\xAD |0 # CJK Ideograph
-<U7DCC> \x8F\xD4\xAE |0 # CJK Ideograph
-<U7DCD> \x8F\xD4\xAF |0 # CJK Ideograph
-<U7DCE> \x8F\xD4\xB0 |0 # CJK Ideograph
-<U7DD7> \x8F\xD4\xB1 |0 # CJK Ideograph
-<U7DD9> \x8F\xD4\xB2 |0 # CJK Ideograph
-<U7E00> \x8F\xD4\xB3 |0 # CJK Ideograph
-<U7DE2> \x8F\xD4\xB4 |0 # CJK Ideograph
-<U7DE5> \x8F\xD4\xB5 |0 # CJK Ideograph
-<U7DE6> \x8F\xD4\xB6 |0 # CJK Ideograph
-<U7DEA> \x8F\xD4\xB7 |0 # CJK Ideograph
-<U7DEB> \x8F\xD4\xB8 |0 # CJK Ideograph
-<U7DED> \x8F\xD4\xB9 |0 # CJK Ideograph
-<U7DF1> \x8F\xD4\xBA |0 # CJK Ideograph
-<U7DF5> \x8F\xD4\xBB |0 # CJK Ideograph
-<U7DF6> \x8F\xD4\xBC |0 # CJK Ideograph
-<U7DF9> \x8F\xD4\xBD |0 # CJK Ideograph
-<U7DFA> \x8F\xD4\xBE |0 # CJK Ideograph
-<U7E08> \x8F\xD4\xBF |0 # CJK Ideograph
-<U7E10> \x8F\xD4\xC0 |0 # CJK Ideograph
-<U7E11> \x8F\xD4\xC1 |0 # CJK Ideograph
-<U7E15> \x8F\xD4\xC2 |0 # CJK Ideograph
-<U7E17> \x8F\xD4\xC3 |0 # CJK Ideograph
-<U7E1C> \x8F\xD4\xC4 |0 # CJK Ideograph
-<U7E1D> \x8F\xD4\xC5 |0 # CJK Ideograph
-<U7E20> \x8F\xD4\xC6 |0 # CJK Ideograph
-<U7E27> \x8F\xD4\xC7 |0 # CJK Ideograph
-<U7E28> \x8F\xD4\xC8 |0 # CJK Ideograph
-<U7E2C> \x8F\xD4\xC9 |0 # CJK Ideograph
-<U7E2D> \x8F\xD4\xCA |0 # CJK Ideograph
-<U7E2F> \x8F\xD4\xCB |0 # CJK Ideograph
-<U7E33> \x8F\xD4\xCC |0 # CJK Ideograph
-<U7E36> \x8F\xD4\xCD |0 # CJK Ideograph
-<U7E3F> \x8F\xD4\xCE |0 # CJK Ideograph
-<U7E44> \x8F\xD4\xCF |0 # CJK Ideograph
-<U7E45> \x8F\xD4\xD0 |0 # CJK Ideograph
-<U7E47> \x8F\xD4\xD1 |0 # CJK Ideograph
-<U7E4E> \x8F\xD4\xD2 |0 # CJK Ideograph
-<U7E50> \x8F\xD4\xD3 |0 # CJK Ideograph
-<U7E52> \x8F\xD4\xD4 |0 # CJK Ideograph
-<U7E58> \x8F\xD4\xD5 |0 # CJK Ideograph
-<U7E5F> \x8F\xD4\xD6 |0 # CJK Ideograph
-<U7E61> \x8F\xD4\xD7 |0 # CJK Ideograph
-<U7E62> \x8F\xD4\xD8 |0 # CJK Ideograph
-<U7E65> \x8F\xD4\xD9 |0 # CJK Ideograph
-<U7E6B> \x8F\xD4\xDA |0 # CJK Ideograph
-<U7E6E> \x8F\xD4\xDB |0 # CJK Ideograph
-<U7E6F> \x8F\xD4\xDC |0 # CJK Ideograph
-<U7E73> \x8F\xD4\xDD |0 # CJK Ideograph
-<U7E78> \x8F\xD4\xDE |0 # CJK Ideograph
-<U7E7E> \x8F\xD4\xDF |0 # CJK Ideograph
-<U7E81> \x8F\xD4\xE0 |0 # CJK Ideograph
-<U7E86> \x8F\xD4\xE1 |0 # CJK Ideograph
-<U7E87> \x8F\xD4\xE2 |0 # CJK Ideograph
-<U7E8A> \x8F\xD4\xE3 |0 # CJK Ideograph
-<U7E8D> \x8F\xD4\xE4 |0 # CJK Ideograph
-<U7E91> \x8F\xD4\xE5 |0 # CJK Ideograph
-<U7E95> \x8F\xD4\xE6 |0 # CJK Ideograph
-<U7E98> \x8F\xD4\xE7 |0 # CJK Ideograph
-<U7E9A> \x8F\xD4\xE8 |0 # CJK Ideograph
-<U7E9D> \x8F\xD4\xE9 |0 # CJK Ideograph
-<U7E9E> \x8F\xD4\xEA |0 # CJK Ideograph
-<U7F3C> \x8F\xD4\xEB |0 # CJK Ideograph
-<U7F3B> \x8F\xD4\xEC |0 # CJK Ideograph
-<U7F3D> \x8F\xD4\xED |0 # CJK Ideograph
-<U7F3E> \x8F\xD4\xEE |0 # CJK Ideograph
-<U7F3F> \x8F\xD4\xEF |0 # CJK Ideograph
-<U7F43> \x8F\xD4\xF0 |0 # CJK Ideograph
-<U7F44> \x8F\xD4\xF1 |0 # CJK Ideograph
-<U7F47> \x8F\xD4\xF2 |0 # CJK Ideograph
-<U7F4F> \x8F\xD4\xF3 |0 # CJK Ideograph
-<U7F52> \x8F\xD4\xF4 |0 # CJK Ideograph
-<U7F53> \x8F\xD4\xF5 |0 # CJK Ideograph
-<U7F5B> \x8F\xD4\xF6 |0 # CJK Ideograph
-<U7F5C> \x8F\xD4\xF7 |0 # CJK Ideograph
-<U7F5D> \x8F\xD4\xF8 |0 # CJK Ideograph
-<U7F61> \x8F\xD4\xF9 |0 # CJK Ideograph
-<U7F63> \x8F\xD4\xFA |0 # CJK Ideograph
-<U7F64> \x8F\xD4\xFB |0 # CJK Ideograph
-<U7F65> \x8F\xD4\xFC |0 # CJK Ideograph
-<U7F66> \x8F\xD4\xFD |0 # CJK Ideograph
-<U7F6D> \x8F\xD4\xFE |0 # CJK Ideograph
-<U7F71> \x8F\xD5\xA1 |0 # CJK Ideograph
-<U7F7D> \x8F\xD5\xA2 |0 # CJK Ideograph
-<U7F7E> \x8F\xD5\xA3 |0 # CJK Ideograph
-<U7F7F> \x8F\xD5\xA4 |0 # CJK Ideograph
-<U7F80> \x8F\xD5\xA5 |0 # CJK Ideograph
-<U7F8B> \x8F\xD5\xA6 |0 # CJK Ideograph
-<U7F8D> \x8F\xD5\xA7 |0 # CJK Ideograph
-<U7F8F> \x8F\xD5\xA8 |0 # CJK Ideograph
-<U7F90> \x8F\xD5\xA9 |0 # CJK Ideograph
-<U7F91> \x8F\xD5\xAA |0 # CJK Ideograph
-<U7F96> \x8F\xD5\xAB |0 # CJK Ideograph
-<U7F97> \x8F\xD5\xAC |0 # CJK Ideograph
-<U7F9C> \x8F\xD5\xAD |0 # CJK Ideograph
-<U7FA1> \x8F\xD5\xAE |0 # CJK Ideograph
-<U7FA2> \x8F\xD5\xAF |0 # CJK Ideograph
-<U7FA6> \x8F\xD5\xB0 |0 # CJK Ideograph
-<U7FAA> \x8F\xD5\xB1 |0 # CJK Ideograph
-<U7FAD> \x8F\xD5\xB2 |0 # CJK Ideograph
-<U7FB4> \x8F\xD5\xB3 |0 # CJK Ideograph
-<U7FBC> \x8F\xD5\xB4 |0 # CJK Ideograph
-<U7FBF> \x8F\xD5\xB5 |0 # CJK Ideograph
-<U7FC0> \x8F\xD5\xB6 |0 # CJK Ideograph
-<U7FC3> \x8F\xD5\xB7 |0 # CJK Ideograph
-<U7FC8> \x8F\xD5\xB8 |0 # CJK Ideograph
-<U7FCE> \x8F\xD5\xB9 |0 # CJK Ideograph
-<U7FCF> \x8F\xD5\xBA |0 # CJK Ideograph
-<U7FDB> \x8F\xD5\xBB |0 # CJK Ideograph
-<U7FDF> \x8F\xD5\xBC |0 # CJK Ideograph
-<U7FE3> \x8F\xD5\xBD |0 # CJK Ideograph
-<U7FE5> \x8F\xD5\xBE |0 # CJK Ideograph
-<U7FE8> \x8F\xD5\xBF |0 # CJK Ideograph
-<U7FEC> \x8F\xD5\xC0 |0 # CJK Ideograph
-<U7FEE> \x8F\xD5\xC1 |0 # CJK Ideograph
-<U7FEF> \x8F\xD5\xC2 |0 # CJK Ideograph
-<U7FF2> \x8F\xD5\xC3 |0 # CJK Ideograph
-<U7FFA> \x8F\xD5\xC4 |0 # CJK Ideograph
-<U7FFD> \x8F\xD5\xC5 |0 # CJK Ideograph
-<U7FFE> \x8F\xD5\xC6 |0 # CJK Ideograph
-<U7FFF> \x8F\xD5\xC7 |0 # CJK Ideograph
-<U8007> \x8F\xD5\xC8 |0 # CJK Ideograph
-<U8008> \x8F\xD5\xC9 |0 # CJK Ideograph
-<U800A> \x8F\xD5\xCA |0 # CJK Ideograph
-<U800D> \x8F\xD5\xCB |0 # CJK Ideograph
-<U800E> \x8F\xD5\xCC |0 # CJK Ideograph
-<U800F> \x8F\xD5\xCD |0 # CJK Ideograph
-<U8011> \x8F\xD5\xCE |0 # CJK Ideograph
-<U8013> \x8F\xD5\xCF |0 # CJK Ideograph
-<U8014> \x8F\xD5\xD0 |0 # CJK Ideograph
-<U8016> \x8F\xD5\xD1 |0 # CJK Ideograph
-<U801D> \x8F\xD5\xD2 |0 # CJK Ideograph
-<U801E> \x8F\xD5\xD3 |0 # CJK Ideograph
-<U801F> \x8F\xD5\xD4 |0 # CJK Ideograph
-<U8020> \x8F\xD5\xD5 |0 # CJK Ideograph
-<U8024> \x8F\xD5\xD6 |0 # CJK Ideograph
-<U8026> \x8F\xD5\xD7 |0 # CJK Ideograph
-<U802C> \x8F\xD5\xD8 |0 # CJK Ideograph
-<U802E> \x8F\xD5\xD9 |0 # CJK Ideograph
-<U8030> \x8F\xD5\xDA |0 # CJK Ideograph
-<U8034> \x8F\xD5\xDB |0 # CJK Ideograph
-<U8035> \x8F\xD5\xDC |0 # CJK Ideograph
-<U8037> \x8F\xD5\xDD |0 # CJK Ideograph
-<U8039> \x8F\xD5\xDE |0 # CJK Ideograph
-<U803A> \x8F\xD5\xDF |0 # CJK Ideograph
-<U803C> \x8F\xD5\xE0 |0 # CJK Ideograph
-<U803E> \x8F\xD5\xE1 |0 # CJK Ideograph
-<U8040> \x8F\xD5\xE2 |0 # CJK Ideograph
-<U8044> \x8F\xD5\xE3 |0 # CJK Ideograph
-<U8060> \x8F\xD5\xE4 |0 # CJK Ideograph
-<U8064> \x8F\xD5\xE5 |0 # CJK Ideograph
-<U8066> \x8F\xD5\xE6 |0 # CJK Ideograph
-<U806D> \x8F\xD5\xE7 |0 # CJK Ideograph
-<U8071> \x8F\xD5\xE8 |0 # CJK Ideograph
-<U8075> \x8F\xD5\xE9 |0 # CJK Ideograph
-<U8081> \x8F\xD5\xEA |0 # CJK Ideograph
-<U8088> \x8F\xD5\xEB |0 # CJK Ideograph
-<U808E> \x8F\xD5\xEC |0 # CJK Ideograph
-<U809C> \x8F\xD5\xED |0 # CJK Ideograph
-<U809E> \x8F\xD5\xEE |0 # CJK Ideograph
-<U80A6> \x8F\xD5\xEF |0 # CJK Ideograph
-<U80A7> \x8F\xD5\xF0 |0 # CJK Ideograph
-<U80AB> \x8F\xD5\xF1 |0 # CJK Ideograph
-<U80B8> \x8F\xD5\xF2 |0 # CJK Ideograph
-<U80B9> \x8F\xD5\xF3 |0 # CJK Ideograph
-<U80C8> \x8F\xD5\xF4 |0 # CJK Ideograph
-<U80CD> \x8F\xD5\xF5 |0 # CJK Ideograph
-<U80CF> \x8F\xD5\xF6 |0 # CJK Ideograph
-<U80D2> \x8F\xD5\xF7 |0 # CJK Ideograph
-<U80D4> \x8F\xD5\xF8 |0 # CJK Ideograph
-<U80D5> \x8F\xD5\xF9 |0 # CJK Ideograph
-<U80D7> \x8F\xD5\xFA |0 # CJK Ideograph
-<U80D8> \x8F\xD5\xFB |0 # CJK Ideograph
-<U80E0> \x8F\xD5\xFC |0 # CJK Ideograph
-<U80ED> \x8F\xD5\xFD |0 # CJK Ideograph
-<U80EE> \x8F\xD5\xFE |0 # CJK Ideograph
-<U80F0> \x8F\xD6\xA1 |0 # CJK Ideograph
-<U80F2> \x8F\xD6\xA2 |0 # CJK Ideograph
-<U80F3> \x8F\xD6\xA3 |0 # CJK Ideograph
-<U80F6> \x8F\xD6\xA4 |0 # CJK Ideograph
-<U80F9> \x8F\xD6\xA5 |0 # CJK Ideograph
-<U80FA> \x8F\xD6\xA6 |0 # CJK Ideograph
-<U80FE> \x8F\xD6\xA7 |0 # CJK Ideograph
-<U8103> \x8F\xD6\xA8 |0 # CJK Ideograph
-<U810B> \x8F\xD6\xA9 |0 # CJK Ideograph
-<U8116> \x8F\xD6\xAA |0 # CJK Ideograph
-<U8117> \x8F\xD6\xAB |0 # CJK Ideograph
-<U8118> \x8F\xD6\xAC |0 # CJK Ideograph
-<U811C> \x8F\xD6\xAD |0 # CJK Ideograph
-<U811E> \x8F\xD6\xAE |0 # CJK Ideograph
-<U8120> \x8F\xD6\xAF |0 # CJK Ideograph
-<U8124> \x8F\xD6\xB0 |0 # CJK Ideograph
-<U8127> \x8F\xD6\xB1 |0 # CJK Ideograph
-<U812C> \x8F\xD6\xB2 |0 # CJK Ideograph
-<U8130> \x8F\xD6\xB3 |0 # CJK Ideograph
-<U8135> \x8F\xD6\xB4 |0 # CJK Ideograph
-<U813A> \x8F\xD6\xB5 |0 # CJK Ideograph
-<U813C> \x8F\xD6\xB6 |0 # CJK Ideograph
-<U8145> \x8F\xD6\xB7 |0 # CJK Ideograph
-<U8147> \x8F\xD6\xB8 |0 # CJK Ideograph
-<U814A> \x8F\xD6\xB9 |0 # CJK Ideograph
-<U814C> \x8F\xD6\xBA |0 # CJK Ideograph
-<U8152> \x8F\xD6\xBB |0 # CJK Ideograph
-<U8157> \x8F\xD6\xBC |0 # CJK Ideograph
-<U8160> \x8F\xD6\xBD |0 # CJK Ideograph
-<U8161> \x8F\xD6\xBE |0 # CJK Ideograph
-<U8167> \x8F\xD6\xBF |0 # CJK Ideograph
-<U8168> \x8F\xD6\xC0 |0 # CJK Ideograph
-<U8169> \x8F\xD6\xC1 |0 # CJK Ideograph
-<U816D> \x8F\xD6\xC2 |0 # CJK Ideograph
-<U816F> \x8F\xD6\xC3 |0 # CJK Ideograph
-<U8177> \x8F\xD6\xC4 |0 # CJK Ideograph
-<U8181> \x8F\xD6\xC5 |0 # CJK Ideograph
-<U8190> \x8F\xD6\xC6 |0 # CJK Ideograph
-<U8184> \x8F\xD6\xC7 |0 # CJK Ideograph
-<U8185> \x8F\xD6\xC8 |0 # CJK Ideograph
-<U8186> \x8F\xD6\xC9 |0 # CJK Ideograph
-<U818B> \x8F\xD6\xCA |0 # CJK Ideograph
-<U818E> \x8F\xD6\xCB |0 # CJK Ideograph
-<U8196> \x8F\xD6\xCC |0 # CJK Ideograph
-<U8198> \x8F\xD6\xCD |0 # CJK Ideograph
-<U819B> \x8F\xD6\xCE |0 # CJK Ideograph
-<U819E> \x8F\xD6\xCF |0 # CJK Ideograph
-<U81A2> \x8F\xD6\xD0 |0 # CJK Ideograph
-<U81AE> \x8F\xD6\xD1 |0 # CJK Ideograph
-<U81B2> \x8F\xD6\xD2 |0 # CJK Ideograph
-<U81B4> \x8F\xD6\xD3 |0 # CJK Ideograph
-<U81BB> \x8F\xD6\xD4 |0 # CJK Ideograph
-<U81CB> \x8F\xD6\xD5 |0 # CJK Ideograph
-<U81C3> \x8F\xD6\xD6 |0 # CJK Ideograph
-<U81C5> \x8F\xD6\xD7 |0 # CJK Ideograph
-<U81CA> \x8F\xD6\xD8 |0 # CJK Ideograph
-<U81CE> \x8F\xD6\xD9 |0 # CJK Ideograph
-<U81CF> \x8F\xD6\xDA |0 # CJK Ideograph
-<U81D5> \x8F\xD6\xDB |0 # CJK Ideograph
-<U81D7> \x8F\xD6\xDC |0 # CJK Ideograph
-<U81DB> \x8F\xD6\xDD |0 # CJK Ideograph
-<U81DD> \x8F\xD6\xDE |0 # CJK Ideograph
-<U81DE> \x8F\xD6\xDF |0 # CJK Ideograph
-<U81E1> \x8F\xD6\xE0 |0 # CJK Ideograph
-<U81E4> \x8F\xD6\xE1 |0 # CJK Ideograph
-<U81EB> \x8F\xD6\xE2 |0 # CJK Ideograph
-<U81EC> \x8F\xD6\xE3 |0 # CJK Ideograph
-<U81F0> \x8F\xD6\xE4 |0 # CJK Ideograph
-<U81F1> \x8F\xD6\xE5 |0 # CJK Ideograph
-<U81F2> \x8F\xD6\xE6 |0 # CJK Ideograph
-<U81F5> \x8F\xD6\xE7 |0 # CJK Ideograph
-<U81F6> \x8F\xD6\xE8 |0 # CJK Ideograph
-<U81F8> \x8F\xD6\xE9 |0 # CJK Ideograph
-<U81F9> \x8F\xD6\xEA |0 # CJK Ideograph
-<U81FD> \x8F\xD6\xEB |0 # CJK Ideograph
-<U81FF> \x8F\xD6\xEC |0 # CJK Ideograph
-<U8200> \x8F\xD6\xED |0 # CJK Ideograph
-<U8203> \x8F\xD6\xEE |0 # CJK Ideograph
-<U820F> \x8F\xD6\xEF |0 # CJK Ideograph
-<U8213> \x8F\xD6\xF0 |0 # CJK Ideograph
-<U8214> \x8F\xD6\xF1 |0 # CJK Ideograph
-<U8219> \x8F\xD6\xF2 |0 # CJK Ideograph
-<U821A> \x8F\xD6\xF3 |0 # CJK Ideograph
-<U821D> \x8F\xD6\xF4 |0 # CJK Ideograph
-<U8221> \x8F\xD6\xF5 |0 # CJK Ideograph
-<U8222> \x8F\xD6\xF6 |0 # CJK Ideograph
-<U8228> \x8F\xD6\xF7 |0 # CJK Ideograph
-<U8232> \x8F\xD6\xF8 |0 # CJK Ideograph
-<U8234> \x8F\xD6\xF9 |0 # CJK Ideograph
-<U823A> \x8F\xD6\xFA |0 # CJK Ideograph
-<U8243> \x8F\xD6\xFB |0 # CJK Ideograph
-<U8244> \x8F\xD6\xFC |0 # CJK Ideograph
-<U8245> \x8F\xD6\xFD |0 # CJK Ideograph
-<U8246> \x8F\xD6\xFE |0 # CJK Ideograph
-<U824B> \x8F\xD7\xA1 |0 # CJK Ideograph
-<U824E> \x8F\xD7\xA2 |0 # CJK Ideograph
-<U824F> \x8F\xD7\xA3 |0 # CJK Ideograph
-<U8251> \x8F\xD7\xA4 |0 # CJK Ideograph
-<U8256> \x8F\xD7\xA5 |0 # CJK Ideograph
-<U825C> \x8F\xD7\xA6 |0 # CJK Ideograph
-<U8260> \x8F\xD7\xA7 |0 # CJK Ideograph
-<U8263> \x8F\xD7\xA8 |0 # CJK Ideograph
-<U8267> \x8F\xD7\xA9 |0 # CJK Ideograph
-<U826D> \x8F\xD7\xAA |0 # CJK Ideograph
-<U8274> \x8F\xD7\xAB |0 # CJK Ideograph
-<U827B> \x8F\xD7\xAC |0 # CJK Ideograph
-<U827D> \x8F\xD7\xAD |0 # CJK Ideograph
-<U827F> \x8F\xD7\xAE |0 # CJK Ideograph
-<U8280> \x8F\xD7\xAF |0 # CJK Ideograph
-<U8281> \x8F\xD7\xB0 |0 # CJK Ideograph
-<U8283> \x8F\xD7\xB1 |0 # CJK Ideograph
-<U8284> \x8F\xD7\xB2 |0 # CJK Ideograph
-<U8287> \x8F\xD7\xB3 |0 # CJK Ideograph
-<U8289> \x8F\xD7\xB4 |0 # CJK Ideograph
-<U828A> \x8F\xD7\xB5 |0 # CJK Ideograph
-<U828E> \x8F\xD7\xB6 |0 # CJK Ideograph
-<U8291> \x8F\xD7\xB7 |0 # CJK Ideograph
-<U8294> \x8F\xD7\xB8 |0 # CJK Ideograph
-<U8296> \x8F\xD7\xB9 |0 # CJK Ideograph
-<U8298> \x8F\xD7\xBA |0 # CJK Ideograph
-<U829A> \x8F\xD7\xBB |0 # CJK Ideograph
-<U829B> \x8F\xD7\xBC |0 # CJK Ideograph
-<U82A0> \x8F\xD7\xBD |0 # CJK Ideograph
-<U82A1> \x8F\xD7\xBE |0 # CJK Ideograph
-<U82A3> \x8F\xD7\xBF |0 # CJK Ideograph
-<U82A4> \x8F\xD7\xC0 |0 # CJK Ideograph
-<U82A7> \x8F\xD7\xC1 |0 # CJK Ideograph
-<U82A8> \x8F\xD7\xC2 |0 # CJK Ideograph
-<U82A9> \x8F\xD7\xC3 |0 # CJK Ideograph
-<U82AA> \x8F\xD7\xC4 |0 # CJK Ideograph
-<U82AE> \x8F\xD7\xC5 |0 # CJK Ideograph
-<U82B0> \x8F\xD7\xC6 |0 # CJK Ideograph
-<U82B2> \x8F\xD7\xC7 |0 # CJK Ideograph
-<U82B4> \x8F\xD7\xC8 |0 # CJK Ideograph
-<U82B7> \x8F\xD7\xC9 |0 # CJK Ideograph
-<U82BA> \x8F\xD7\xCA |0 # CJK Ideograph
-<U82BC> \x8F\xD7\xCB |0 # CJK Ideograph
-<U82BE> \x8F\xD7\xCC |0 # CJK Ideograph
-<U82BF> \x8F\xD7\xCD |0 # CJK Ideograph
-<U82C6> \x8F\xD7\xCE |0 # CJK Ideograph
-<U82D0> \x8F\xD7\xCF |0 # CJK Ideograph
-<U82D5> \x8F\xD7\xD0 |0 # CJK Ideograph
-<U82DA> \x8F\xD7\xD1 |0 # CJK Ideograph
-<U82E0> \x8F\xD7\xD2 |0 # CJK Ideograph
-<U82E2> \x8F\xD7\xD3 |0 # CJK Ideograph
-<U82E4> \x8F\xD7\xD4 |0 # CJK Ideograph
-<U82E8> \x8F\xD7\xD5 |0 # CJK Ideograph
-<U82EA> \x8F\xD7\xD6 |0 # CJK Ideograph
-<U82ED> \x8F\xD7\xD7 |0 # CJK Ideograph
-<U82EF> \x8F\xD7\xD8 |0 # CJK Ideograph
-<U82F6> \x8F\xD7\xD9 |0 # CJK Ideograph
-<U82F7> \x8F\xD7\xDA |0 # CJK Ideograph
-<U82FD> \x8F\xD7\xDB |0 # CJK Ideograph
-<U82FE> \x8F\xD7\xDC |0 # CJK Ideograph
-<U8300> \x8F\xD7\xDD |0 # CJK Ideograph
-<U8301> \x8F\xD7\xDE |0 # CJK Ideograph
-<U8307> \x8F\xD7\xDF |0 # CJK Ideograph
-<U8308> \x8F\xD7\xE0 |0 # CJK Ideograph
-<U830A> \x8F\xD7\xE1 |0 # CJK Ideograph
-<U830B> \x8F\xD7\xE2 |0 # CJK Ideograph
-<U8354> \x8F\xD7\xE3 |0 # CJK Ideograph
-<U831B> \x8F\xD7\xE4 |0 # CJK Ideograph
-<U831D> \x8F\xD7\xE5 |0 # CJK Ideograph
-<U831E> \x8F\xD7\xE6 |0 # CJK Ideograph
-<U831F> \x8F\xD7\xE7 |0 # CJK Ideograph
-<U8321> \x8F\xD7\xE8 |0 # CJK Ideograph
-<U8322> \x8F\xD7\xE9 |0 # CJK Ideograph
-<U832C> \x8F\xD7\xEA |0 # CJK Ideograph
-<U832D> \x8F\xD7\xEB |0 # CJK Ideograph
-<U832E> \x8F\xD7\xEC |0 # CJK Ideograph
-<U8330> \x8F\xD7\xED |0 # CJK Ideograph
-<U8333> \x8F\xD7\xEE |0 # CJK Ideograph
-<U8337> \x8F\xD7\xEF |0 # CJK Ideograph
-<U833A> \x8F\xD7\xF0 |0 # CJK Ideograph
-<U833C> \x8F\xD7\xF1 |0 # CJK Ideograph
-<U833D> \x8F\xD7\xF2 |0 # CJK Ideograph
-<U8342> \x8F\xD7\xF3 |0 # CJK Ideograph
-<U8343> \x8F\xD7\xF4 |0 # CJK Ideograph
-<U8344> \x8F\xD7\xF5 |0 # CJK Ideograph
-<U8347> \x8F\xD7\xF6 |0 # CJK Ideograph
-<U834D> \x8F\xD7\xF7 |0 # CJK Ideograph
-<U834E> \x8F\xD7\xF8 |0 # CJK Ideograph
-<U8351> \x8F\xD7\xF9 |0 # CJK Ideograph
-<U8355> \x8F\xD7\xFA |0 # CJK Ideograph
-<U8356> \x8F\xD7\xFB |0 # CJK Ideograph
-<U8357> \x8F\xD7\xFC |0 # CJK Ideograph
-<U8370> \x8F\xD7\xFD |0 # CJK Ideograph
-<U8378> \x8F\xD7\xFE |0 # CJK Ideograph
-<U837D> \x8F\xD8\xA1 |0 # CJK Ideograph
-<U837F> \x8F\xD8\xA2 |0 # CJK Ideograph
-<U8380> \x8F\xD8\xA3 |0 # CJK Ideograph
-<U8382> \x8F\xD8\xA4 |0 # CJK Ideograph
-<U8384> \x8F\xD8\xA5 |0 # CJK Ideograph
-<U8386> \x8F\xD8\xA6 |0 # CJK Ideograph
-<U838D> \x8F\xD8\xA7 |0 # CJK Ideograph
-<U8392> \x8F\xD8\xA8 |0 # CJK Ideograph
-<U8394> \x8F\xD8\xA9 |0 # CJK Ideograph
-<U8395> \x8F\xD8\xAA |0 # CJK Ideograph
-<U8398> \x8F\xD8\xAB |0 # CJK Ideograph
-<U8399> \x8F\xD8\xAC |0 # CJK Ideograph
-<U839B> \x8F\xD8\xAD |0 # CJK Ideograph
-<U839C> \x8F\xD8\xAE |0 # CJK Ideograph
-<U839D> \x8F\xD8\xAF |0 # CJK Ideograph
-<U83A6> \x8F\xD8\xB0 |0 # CJK Ideograph
-<U83A7> \x8F\xD8\xB1 |0 # CJK Ideograph
-<U83A9> \x8F\xD8\xB2 |0 # CJK Ideograph
-<U83AC> \x8F\xD8\xB3 |0 # CJK Ideograph
-<U83BE> \x8F\xD8\xB4 |0 # CJK Ideograph
-<U83BF> \x8F\xD8\xB5 |0 # CJK Ideograph
-<U83C0> \x8F\xD8\xB6 |0 # CJK Ideograph
-<U83C7> \x8F\xD8\xB7 |0 # CJK Ideograph
-<U83C9> \x8F\xD8\xB8 |0 # CJK Ideograph
-<U83CF> \x8F\xD8\xB9 |0 # CJK Ideograph
-<U83D0> \x8F\xD8\xBA |0 # CJK Ideograph
-<U83D1> \x8F\xD8\xBB |0 # CJK Ideograph
-<U83D4> \x8F\xD8\xBC |0 # CJK Ideograph
-<U83DD> \x8F\xD8\xBD |0 # CJK Ideograph
-<U8353> \x8F\xD8\xBE |0 # CJK Ideograph
-<U83E8> \x8F\xD8\xBF |0 # CJK Ideograph
-<U83EA> \x8F\xD8\xC0 |0 # CJK Ideograph
-<U83F6> \x8F\xD8\xC1 |0 # CJK Ideograph
-<U83F8> \x8F\xD8\xC2 |0 # CJK Ideograph
-<U83F9> \x8F\xD8\xC3 |0 # CJK Ideograph
-<U83FC> \x8F\xD8\xC4 |0 # CJK Ideograph
-<U8401> \x8F\xD8\xC5 |0 # CJK Ideograph
-<U8406> \x8F\xD8\xC6 |0 # CJK Ideograph
-<U840A> \x8F\xD8\xC7 |0 # CJK Ideograph
-<U840F> \x8F\xD8\xC8 |0 # CJK Ideograph
-<U8411> \x8F\xD8\xC9 |0 # CJK Ideograph
-<U8415> \x8F\xD8\xCA |0 # CJK Ideograph
-<U8419> \x8F\xD8\xCB |0 # CJK Ideograph
-<U83AD> \x8F\xD8\xCC |0 # CJK Ideograph
-<U842F> \x8F\xD8\xCD |0 # CJK Ideograph
-<U8439> \x8F\xD8\xCE |0 # CJK Ideograph
-<U8445> \x8F\xD8\xCF |0 # CJK Ideograph
-<U8447> \x8F\xD8\xD0 |0 # CJK Ideograph
-<U8448> \x8F\xD8\xD1 |0 # CJK Ideograph
-<U844A> \x8F\xD8\xD2 |0 # CJK Ideograph
-<U844D> \x8F\xD8\xD3 |0 # CJK Ideograph
-<U844F> \x8F\xD8\xD4 |0 # CJK Ideograph
-<U8451> \x8F\xD8\xD5 |0 # CJK Ideograph
-<U8452> \x8F\xD8\xD6 |0 # CJK Ideograph
-<U8456> \x8F\xD8\xD7 |0 # CJK Ideograph
-<U8458> \x8F\xD8\xD8 |0 # CJK Ideograph
-<U8459> \x8F\xD8\xD9 |0 # CJK Ideograph
-<U845A> \x8F\xD8\xDA |0 # CJK Ideograph
-<U845C> \x8F\xD8\xDB |0 # CJK Ideograph
-<U8460> \x8F\xD8\xDC |0 # CJK Ideograph
-<U8464> \x8F\xD8\xDD |0 # CJK Ideograph
-<U8465> \x8F\xD8\xDE |0 # CJK Ideograph
-<U8467> \x8F\xD8\xDF |0 # CJK Ideograph
-<U846A> \x8F\xD8\xE0 |0 # CJK Ideograph
-<U8470> \x8F\xD8\xE1 |0 # CJK Ideograph
-<U8473> \x8F\xD8\xE2 |0 # CJK Ideograph
-<U8474> \x8F\xD8\xE3 |0 # CJK Ideograph
-<U8476> \x8F\xD8\xE4 |0 # CJK Ideograph
-<U8478> \x8F\xD8\xE5 |0 # CJK Ideograph
-<U847C> \x8F\xD8\xE6 |0 # CJK Ideograph
-<U847D> \x8F\xD8\xE7 |0 # CJK Ideograph
-<U8481> \x8F\xD8\xE8 |0 # CJK Ideograph
-<U8485> \x8F\xD8\xE9 |0 # CJK Ideograph
-<U8492> \x8F\xD8\xEA |0 # CJK Ideograph
-<U8493> \x8F\xD8\xEB |0 # CJK Ideograph
-<U8495> \x8F\xD8\xEC |0 # CJK Ideograph
-<U849E> \x8F\xD8\xED |0 # CJK Ideograph
-<U84A6> \x8F\xD8\xEE |0 # CJK Ideograph
-<U84A8> \x8F\xD8\xEF |0 # CJK Ideograph
-<U84A9> \x8F\xD8\xF0 |0 # CJK Ideograph
-<U84AA> \x8F\xD8\xF1 |0 # CJK Ideograph
-<U84AF> \x8F\xD8\xF2 |0 # CJK Ideograph
-<U84B1> \x8F\xD8\xF3 |0 # CJK Ideograph
-<U84B4> \x8F\xD8\xF4 |0 # CJK Ideograph
-<U84BA> \x8F\xD8\xF5 |0 # CJK Ideograph
-<U84BD> \x8F\xD8\xF6 |0 # CJK Ideograph
-<U84BE> \x8F\xD8\xF7 |0 # CJK Ideograph
-<U84C0> \x8F\xD8\xF8 |0 # CJK Ideograph
-<U84C2> \x8F\xD8\xF9 |0 # CJK Ideograph
-<U84C7> \x8F\xD8\xFA |0 # CJK Ideograph
-<U84C8> \x8F\xD8\xFB |0 # CJK Ideograph
-<U84CC> \x8F\xD8\xFC |0 # CJK Ideograph
-<U84CF> \x8F\xD8\xFD |0 # CJK Ideograph
-<U84D3> \x8F\xD8\xFE |0 # CJK Ideograph
-<U84DC> \x8F\xD9\xA1 |0 # CJK Ideograph
-<U84E7> \x8F\xD9\xA2 |0 # CJK Ideograph
-<U84EA> \x8F\xD9\xA3 |0 # CJK Ideograph
-<U84EF> \x8F\xD9\xA4 |0 # CJK Ideograph
-<U84F0> \x8F\xD9\xA5 |0 # CJK Ideograph
-<U84F1> \x8F\xD9\xA6 |0 # CJK Ideograph
-<U84F2> \x8F\xD9\xA7 |0 # CJK Ideograph
-<U84F7> \x8F\xD9\xA8 |0 # CJK Ideograph
-<U8532> \x8F\xD9\xA9 |0 # CJK Ideograph
-<U84FA> \x8F\xD9\xAA |0 # CJK Ideograph
-<U84FB> \x8F\xD9\xAB |0 # CJK Ideograph
-<U84FD> \x8F\xD9\xAC |0 # CJK Ideograph
-<U8502> \x8F\xD9\xAD |0 # CJK Ideograph
-<U8503> \x8F\xD9\xAE |0 # CJK Ideograph
-<U8507> \x8F\xD9\xAF |0 # CJK Ideograph
-<U850C> \x8F\xD9\xB0 |0 # CJK Ideograph
-<U850E> \x8F\xD9\xB1 |0 # CJK Ideograph
-<U8510> \x8F\xD9\xB2 |0 # CJK Ideograph
-<U851C> \x8F\xD9\xB3 |0 # CJK Ideograph
-<U851E> \x8F\xD9\xB4 |0 # CJK Ideograph
-<U8522> \x8F\xD9\xB5 |0 # CJK Ideograph
-<U8523> \x8F\xD9\xB6 |0 # CJK Ideograph
-<U8524> \x8F\xD9\xB7 |0 # CJK Ideograph
-<U8525> \x8F\xD9\xB8 |0 # CJK Ideograph
-<U8527> \x8F\xD9\xB9 |0 # CJK Ideograph
-<U852A> \x8F\xD9\xBA |0 # CJK Ideograph
-<U852B> \x8F\xD9\xBB |0 # CJK Ideograph
-<U852F> \x8F\xD9\xBC |0 # CJK Ideograph
-<U8533> \x8F\xD9\xBD |0 # CJK Ideograph
-<U8534> \x8F\xD9\xBE |0 # CJK Ideograph
-<U8536> \x8F\xD9\xBF |0 # CJK Ideograph
-<U853F> \x8F\xD9\xC0 |0 # CJK Ideograph
-<U8546> \x8F\xD9\xC1 |0 # CJK Ideograph
-<U854F> \x8F\xD9\xC2 |0 # CJK Ideograph
-<U8550> \x8F\xD9\xC3 |0 # CJK Ideograph
-<U8551> \x8F\xD9\xC4 |0 # CJK Ideograph
-<U8552> \x8F\xD9\xC5 |0 # CJK Ideograph
-<U8553> \x8F\xD9\xC6 |0 # CJK Ideograph
-<U8556> \x8F\xD9\xC7 |0 # CJK Ideograph
-<U8559> \x8F\xD9\xC8 |0 # CJK Ideograph
-<U855C> \x8F\xD9\xC9 |0 # CJK Ideograph
-<U855D> \x8F\xD9\xCA |0 # CJK Ideograph
-<U855E> \x8F\xD9\xCB |0 # CJK Ideograph
-<U855F> \x8F\xD9\xCC |0 # CJK Ideograph
-<U8560> \x8F\xD9\xCD |0 # CJK Ideograph
-<U8561> \x8F\xD9\xCE |0 # CJK Ideograph
-<U8562> \x8F\xD9\xCF |0 # CJK Ideograph
-<U8564> \x8F\xD9\xD0 |0 # CJK Ideograph
-<U856B> \x8F\xD9\xD1 |0 # CJK Ideograph
-<U856F> \x8F\xD9\xD2 |0 # CJK Ideograph
-<U8579> \x8F\xD9\xD3 |0 # CJK Ideograph
-<U857A> \x8F\xD9\xD4 |0 # CJK Ideograph
-<U857B> \x8F\xD9\xD5 |0 # CJK Ideograph
-<U857D> \x8F\xD9\xD6 |0 # CJK Ideograph
-<U857F> \x8F\xD9\xD7 |0 # CJK Ideograph
-<U8581> \x8F\xD9\xD8 |0 # CJK Ideograph
-<U8585> \x8F\xD9\xD9 |0 # CJK Ideograph
-<U8586> \x8F\xD9\xDA |0 # CJK Ideograph
-<U8589> \x8F\xD9\xDB |0 # CJK Ideograph
-<U858B> \x8F\xD9\xDC |0 # CJK Ideograph
-<U858C> \x8F\xD9\xDD |0 # CJK Ideograph
-<U858F> \x8F\xD9\xDE |0 # CJK Ideograph
-<U8593> \x8F\xD9\xDF |0 # CJK Ideograph
-<U8598> \x8F\xD9\xE0 |0 # CJK Ideograph
-<U859D> \x8F\xD9\xE1 |0 # CJK Ideograph
-<U859F> \x8F\xD9\xE2 |0 # CJK Ideograph
-<U85A0> \x8F\xD9\xE3 |0 # CJK Ideograph
-<U85A2> \x8F\xD9\xE4 |0 # CJK Ideograph
-<U85A5> \x8F\xD9\xE5 |0 # CJK Ideograph
-<U85A7> \x8F\xD9\xE6 |0 # CJK Ideograph
-<U85B4> \x8F\xD9\xE7 |0 # CJK Ideograph
-<U85B6> \x8F\xD9\xE8 |0 # CJK Ideograph
-<U85B7> \x8F\xD9\xE9 |0 # CJK Ideograph
-<U85B8> \x8F\xD9\xEA |0 # CJK Ideograph
-<U85BC> \x8F\xD9\xEB |0 # CJK Ideograph
-<U85BD> \x8F\xD9\xEC |0 # CJK Ideograph
-<U85BE> \x8F\xD9\xED |0 # CJK Ideograph
-<U85BF> \x8F\xD9\xEE |0 # CJK Ideograph
-<U85C2> \x8F\xD9\xEF |0 # CJK Ideograph
-<U85C7> \x8F\xD9\xF0 |0 # CJK Ideograph
-<U85CA> \x8F\xD9\xF1 |0 # CJK Ideograph
-<U85CB> \x8F\xD9\xF2 |0 # CJK Ideograph
-<U85CE> \x8F\xD9\xF3 |0 # CJK Ideograph
-<U85AD> \x8F\xD9\xF4 |0 # CJK Ideograph
-<U85D8> \x8F\xD9\xF5 |0 # CJK Ideograph
-<U85DA> \x8F\xD9\xF6 |0 # CJK Ideograph
-<U85DF> \x8F\xD9\xF7 |0 # CJK Ideograph
-<U85E0> \x8F\xD9\xF8 |0 # CJK Ideograph
-<U85E6> \x8F\xD9\xF9 |0 # CJK Ideograph
-<U85E8> \x8F\xD9\xFA |0 # CJK Ideograph
-<U85ED> \x8F\xD9\xFB |0 # CJK Ideograph
-<U85F3> \x8F\xD9\xFC |0 # CJK Ideograph
-<U85F6> \x8F\xD9\xFD |0 # CJK Ideograph
-<U85FC> \x8F\xD9\xFE |0 # CJK Ideograph
-<U85FF> \x8F\xDA\xA1 |0 # CJK Ideograph
-<U8600> \x8F\xDA\xA2 |0 # CJK Ideograph
-<U8604> \x8F\xDA\xA3 |0 # CJK Ideograph
-<U8605> \x8F\xDA\xA4 |0 # CJK Ideograph
-<U860D> \x8F\xDA\xA5 |0 # CJK Ideograph
-<U860E> \x8F\xDA\xA6 |0 # CJK Ideograph
-<U8610> \x8F\xDA\xA7 |0 # CJK Ideograph
-<U8611> \x8F\xDA\xA8 |0 # CJK Ideograph
-<U8612> \x8F\xDA\xA9 |0 # CJK Ideograph
-<U8618> \x8F\xDA\xAA |0 # CJK Ideograph
-<U8619> \x8F\xDA\xAB |0 # CJK Ideograph
-<U861B> \x8F\xDA\xAC |0 # CJK Ideograph
-<U861E> \x8F\xDA\xAD |0 # CJK Ideograph
-<U8621> \x8F\xDA\xAE |0 # CJK Ideograph
-<U8627> \x8F\xDA\xAF |0 # CJK Ideograph
-<U8629> \x8F\xDA\xB0 |0 # CJK Ideograph
-<U8636> \x8F\xDA\xB1 |0 # CJK Ideograph
-<U8638> \x8F\xDA\xB2 |0 # CJK Ideograph
-<U863A> \x8F\xDA\xB3 |0 # CJK Ideograph
-<U863C> \x8F\xDA\xB4 |0 # CJK Ideograph
-<U863D> \x8F\xDA\xB5 |0 # CJK Ideograph
-<U8640> \x8F\xDA\xB6 |0 # CJK Ideograph
-<U8642> \x8F\xDA\xB7 |0 # CJK Ideograph
-<U8646> \x8F\xDA\xB8 |0 # CJK Ideograph
-<U8652> \x8F\xDA\xB9 |0 # CJK Ideograph
-<U8653> \x8F\xDA\xBA |0 # CJK Ideograph
-<U8656> \x8F\xDA\xBB |0 # CJK Ideograph
-<U8657> \x8F\xDA\xBC |0 # CJK Ideograph
-<U8658> \x8F\xDA\xBD |0 # CJK Ideograph
-<U8659> \x8F\xDA\xBE |0 # CJK Ideograph
-<U865D> \x8F\xDA\xBF |0 # CJK Ideograph
-<U8660> \x8F\xDA\xC0 |0 # CJK Ideograph
-<U8661> \x8F\xDA\xC1 |0 # CJK Ideograph
-<U8662> \x8F\xDA\xC2 |0 # CJK Ideograph
-<U8663> \x8F\xDA\xC3 |0 # CJK Ideograph
-<U8664> \x8F\xDA\xC4 |0 # CJK Ideograph
-<U8669> \x8F\xDA\xC5 |0 # CJK Ideograph
-<U866C> \x8F\xDA\xC6 |0 # CJK Ideograph
-<U866F> \x8F\xDA\xC7 |0 # CJK Ideograph
-<U8675> \x8F\xDA\xC8 |0 # CJK Ideograph
-<U8676> \x8F\xDA\xC9 |0 # CJK Ideograph
-<U8677> \x8F\xDA\xCA |0 # CJK Ideograph
-<U867A> \x8F\xDA\xCB |0 # CJK Ideograph
-<U868D> \x8F\xDA\xCC |0 # CJK Ideograph
-<U8691> \x8F\xDA\xCD |0 # CJK Ideograph
-<U8696> \x8F\xDA\xCE |0 # CJK Ideograph
-<U8698> \x8F\xDA\xCF |0 # CJK Ideograph
-<U869A> \x8F\xDA\xD0 |0 # CJK Ideograph
-<U869C> \x8F\xDA\xD1 |0 # CJK Ideograph
-<U86A1> \x8F\xDA\xD2 |0 # CJK Ideograph
-<U86A6> \x8F\xDA\xD3 |0 # CJK Ideograph
-<U86A7> \x8F\xDA\xD4 |0 # CJK Ideograph
-<U86A8> \x8F\xDA\xD5 |0 # CJK Ideograph
-<U86AD> \x8F\xDA\xD6 |0 # CJK Ideograph
-<U86B1> \x8F\xDA\xD7 |0 # CJK Ideograph
-<U86B3> \x8F\xDA\xD8 |0 # CJK Ideograph
-<U86B4> \x8F\xDA\xD9 |0 # CJK Ideograph
-<U86B5> \x8F\xDA\xDA |0 # CJK Ideograph
-<U86B7> \x8F\xDA\xDB |0 # CJK Ideograph
-<U86B8> \x8F\xDA\xDC |0 # CJK Ideograph
-<U86B9> \x8F\xDA\xDD |0 # CJK Ideograph
-<U86BF> \x8F\xDA\xDE |0 # CJK Ideograph
-<U86C0> \x8F\xDA\xDF |0 # CJK Ideograph
-<U86C1> \x8F\xDA\xE0 |0 # CJK Ideograph
-<U86C3> \x8F\xDA\xE1 |0 # CJK Ideograph
-<U86C5> \x8F\xDA\xE2 |0 # CJK Ideograph
-<U86D1> \x8F\xDA\xE3 |0 # CJK Ideograph
-<U86D2> \x8F\xDA\xE4 |0 # CJK Ideograph
-<U86D5> \x8F\xDA\xE5 |0 # CJK Ideograph
-<U86D7> \x8F\xDA\xE6 |0 # CJK Ideograph
-<U86DA> \x8F\xDA\xE7 |0 # CJK Ideograph
-<U86DC> \x8F\xDA\xE8 |0 # CJK Ideograph
-<U86E0> \x8F\xDA\xE9 |0 # CJK Ideograph
-<U86E3> \x8F\xDA\xEA |0 # CJK Ideograph
-<U86E5> \x8F\xDA\xEB |0 # CJK Ideograph
-<U86E7> \x8F\xDA\xEC |0 # CJK Ideograph
-<U8688> \x8F\xDA\xED |0 # CJK Ideograph
-<U86FA> \x8F\xDA\xEE |0 # CJK Ideograph
-<U86FC> \x8F\xDA\xEF |0 # CJK Ideograph
-<U86FD> \x8F\xDA\xF0 |0 # CJK Ideograph
-<U8704> \x8F\xDA\xF1 |0 # CJK Ideograph
-<U8705> \x8F\xDA\xF2 |0 # CJK Ideograph
-<U8707> \x8F\xDA\xF3 |0 # CJK Ideograph
-<U870B> \x8F\xDA\xF4 |0 # CJK Ideograph
-<U870E> \x8F\xDA\xF5 |0 # CJK Ideograph
-<U870F> \x8F\xDA\xF6 |0 # CJK Ideograph
-<U8710> \x8F\xDA\xF7 |0 # CJK Ideograph
-<U8713> \x8F\xDA\xF8 |0 # CJK Ideograph
-<U8714> \x8F\xDA\xF9 |0 # CJK Ideograph
-<U8719> \x8F\xDA\xFA |0 # CJK Ideograph
-<U871E> \x8F\xDA\xFB |0 # CJK Ideograph
-<U871F> \x8F\xDA\xFC |0 # CJK Ideograph
-<U8721> \x8F\xDA\xFD |0 # CJK Ideograph
-<U8723> \x8F\xDA\xFE |0 # CJK Ideograph
-<U8728> \x8F\xDB\xA1 |0 # CJK Ideograph
-<U872E> \x8F\xDB\xA2 |0 # CJK Ideograph
-<U872F> \x8F\xDB\xA3 |0 # CJK Ideograph
-<U8731> \x8F\xDB\xA4 |0 # CJK Ideograph
-<U8732> \x8F\xDB\xA5 |0 # CJK Ideograph
-<U8739> \x8F\xDB\xA6 |0 # CJK Ideograph
-<U873A> \x8F\xDB\xA7 |0 # CJK Ideograph
-<U873C> \x8F\xDB\xA8 |0 # CJK Ideograph
-<U873D> \x8F\xDB\xA9 |0 # CJK Ideograph
-<U873E> \x8F\xDB\xAA |0 # CJK Ideograph
-<U8740> \x8F\xDB\xAB |0 # CJK Ideograph
-<U8743> \x8F\xDB\xAC |0 # CJK Ideograph
-<U8745> \x8F\xDB\xAD |0 # CJK Ideograph
-<U874D> \x8F\xDB\xAE |0 # CJK Ideograph
-<U8758> \x8F\xDB\xAF |0 # CJK Ideograph
-<U875D> \x8F\xDB\xB0 |0 # CJK Ideograph
-<U8761> \x8F\xDB\xB1 |0 # CJK Ideograph
-<U8764> \x8F\xDB\xB2 |0 # CJK Ideograph
-<U8765> \x8F\xDB\xB3 |0 # CJK Ideograph
-<U876F> \x8F\xDB\xB4 |0 # CJK Ideograph
-<U8771> \x8F\xDB\xB5 |0 # CJK Ideograph
-<U8772> \x8F\xDB\xB6 |0 # CJK Ideograph
-<U877B> \x8F\xDB\xB7 |0 # CJK Ideograph
-<U8783> \x8F\xDB\xB8 |0 # CJK Ideograph
-<U8784> \x8F\xDB\xB9 |0 # CJK Ideograph
-<U8785> \x8F\xDB\xBA |0 # CJK Ideograph
-<U8786> \x8F\xDB\xBB |0 # CJK Ideograph
-<U8787> \x8F\xDB\xBC |0 # CJK Ideograph
-<U8788> \x8F\xDB\xBD |0 # CJK Ideograph
-<U8789> \x8F\xDB\xBE |0 # CJK Ideograph
-<U878B> \x8F\xDB\xBF |0 # CJK Ideograph
-<U878C> \x8F\xDB\xC0 |0 # CJK Ideograph
-<U8790> \x8F\xDB\xC1 |0 # CJK Ideograph
-<U8793> \x8F\xDB\xC2 |0 # CJK Ideograph
-<U8795> \x8F\xDB\xC3 |0 # CJK Ideograph
-<U8797> \x8F\xDB\xC4 |0 # CJK Ideograph
-<U8798> \x8F\xDB\xC5 |0 # CJK Ideograph
-<U8799> \x8F\xDB\xC6 |0 # CJK Ideograph
-<U879E> \x8F\xDB\xC7 |0 # CJK Ideograph
-<U87A0> \x8F\xDB\xC8 |0 # CJK Ideograph
-<U87A3> \x8F\xDB\xC9 |0 # CJK Ideograph
-<U87A7> \x8F\xDB\xCA |0 # CJK Ideograph
-<U87AC> \x8F\xDB\xCB |0 # CJK Ideograph
-<U87AD> \x8F\xDB\xCC |0 # CJK Ideograph
-<U87AE> \x8F\xDB\xCD |0 # CJK Ideograph
-<U87B1> \x8F\xDB\xCE |0 # CJK Ideograph
-<U87B5> \x8F\xDB\xCF |0 # CJK Ideograph
-<U87BE> \x8F\xDB\xD0 |0 # CJK Ideograph
-<U87BF> \x8F\xDB\xD1 |0 # CJK Ideograph
-<U87C1> \x8F\xDB\xD2 |0 # CJK Ideograph
-<U87C8> \x8F\xDB\xD3 |0 # CJK Ideograph
-<U87C9> \x8F\xDB\xD4 |0 # CJK Ideograph
-<U87CA> \x8F\xDB\xD5 |0 # CJK Ideograph
-<U87CE> \x8F\xDB\xD6 |0 # CJK Ideograph
-<U87D5> \x8F\xDB\xD7 |0 # CJK Ideograph
-<U87D6> \x8F\xDB\xD8 |0 # CJK Ideograph
-<U87D9> \x8F\xDB\xD9 |0 # CJK Ideograph
-<U87DA> \x8F\xDB\xDA |0 # CJK Ideograph
-<U87DC> \x8F\xDB\xDB |0 # CJK Ideograph
-<U87DF> \x8F\xDB\xDC |0 # CJK Ideograph
-<U87E2> \x8F\xDB\xDD |0 # CJK Ideograph
-<U87E3> \x8F\xDB\xDE |0 # CJK Ideograph
-<U87E4> \x8F\xDB\xDF |0 # CJK Ideograph
-<U87EA> \x8F\xDB\xE0 |0 # CJK Ideograph
-<U87EB> \x8F\xDB\xE1 |0 # CJK Ideograph
-<U87ED> \x8F\xDB\xE2 |0 # CJK Ideograph
-<U87F1> \x8F\xDB\xE3 |0 # CJK Ideograph
-<U87F3> \x8F\xDB\xE4 |0 # CJK Ideograph
-<U87F8> \x8F\xDB\xE5 |0 # CJK Ideograph
-<U87FA> \x8F\xDB\xE6 |0 # CJK Ideograph
-<U87FF> \x8F\xDB\xE7 |0 # CJK Ideograph
-<U8801> \x8F\xDB\xE8 |0 # CJK Ideograph
-<U8803> \x8F\xDB\xE9 |0 # CJK Ideograph
-<U8806> \x8F\xDB\xEA |0 # CJK Ideograph
-<U8809> \x8F\xDB\xEB |0 # CJK Ideograph
-<U880A> \x8F\xDB\xEC |0 # CJK Ideograph
-<U880B> \x8F\xDB\xED |0 # CJK Ideograph
-<U8810> \x8F\xDB\xEE |0 # CJK Ideograph
-<U8819> \x8F\xDB\xEF |0 # CJK Ideograph
-<U8812> \x8F\xDB\xF0 |0 # CJK Ideograph
-<U8813> \x8F\xDB\xF1 |0 # CJK Ideograph
-<U8814> \x8F\xDB\xF2 |0 # CJK Ideograph
-<U8818> \x8F\xDB\xF3 |0 # CJK Ideograph
-<U881A> \x8F\xDB\xF4 |0 # CJK Ideograph
-<U881B> \x8F\xDB\xF5 |0 # CJK Ideograph
-<U881C> \x8F\xDB\xF6 |0 # CJK Ideograph
-<U881E> \x8F\xDB\xF7 |0 # CJK Ideograph
-<U881F> \x8F\xDB\xF8 |0 # CJK Ideograph
-<U8828> \x8F\xDB\xF9 |0 # CJK Ideograph
-<U882D> \x8F\xDB\xFA |0 # CJK Ideograph
-<U882E> \x8F\xDB\xFB |0 # CJK Ideograph
-<U8830> \x8F\xDB\xFC |0 # CJK Ideograph
-<U8832> \x8F\xDB\xFD |0 # CJK Ideograph
-<U8835> \x8F\xDB\xFE |0 # CJK Ideograph
-<U883A> \x8F\xDC\xA1 |0 # CJK Ideograph
-<U883C> \x8F\xDC\xA2 |0 # CJK Ideograph
-<U8841> \x8F\xDC\xA3 |0 # CJK Ideograph
-<U8843> \x8F\xDC\xA4 |0 # CJK Ideograph
-<U8845> \x8F\xDC\xA5 |0 # CJK Ideograph
-<U8848> \x8F\xDC\xA6 |0 # CJK Ideograph
-<U8849> \x8F\xDC\xA7 |0 # CJK Ideograph
-<U884A> \x8F\xDC\xA8 |0 # CJK Ideograph
-<U884B> \x8F\xDC\xA9 |0 # CJK Ideograph
-<U884E> \x8F\xDC\xAA |0 # CJK Ideograph
-<U8851> \x8F\xDC\xAB |0 # CJK Ideograph
-<U8855> \x8F\xDC\xAC |0 # CJK Ideograph
-<U8856> \x8F\xDC\xAD |0 # CJK Ideograph
-<U8858> \x8F\xDC\xAE |0 # CJK Ideograph
-<U885A> \x8F\xDC\xAF |0 # CJK Ideograph
-<U885C> \x8F\xDC\xB0 |0 # CJK Ideograph
-<U885F> \x8F\xDC\xB1 |0 # CJK Ideograph
-<U8860> \x8F\xDC\xB2 |0 # CJK Ideograph
-<U8864> \x8F\xDC\xB3 |0 # CJK Ideograph
-<U8869> \x8F\xDC\xB4 |0 # CJK Ideograph
-<U8871> \x8F\xDC\xB5 |0 # CJK Ideograph
-<U8879> \x8F\xDC\xB6 |0 # CJK Ideograph
-<U887B> \x8F\xDC\xB7 |0 # CJK Ideograph
-<U8880> \x8F\xDC\xB8 |0 # CJK Ideograph
-<U8898> \x8F\xDC\xB9 |0 # CJK Ideograph
-<U889A> \x8F\xDC\xBA |0 # CJK Ideograph
-<U889B> \x8F\xDC\xBB |0 # CJK Ideograph
-<U889C> \x8F\xDC\xBC |0 # CJK Ideograph
-<U889F> \x8F\xDC\xBD |0 # CJK Ideograph
-<U88A0> \x8F\xDC\xBE |0 # CJK Ideograph
-<U88A8> \x8F\xDC\xBF |0 # CJK Ideograph
-<U88AA> \x8F\xDC\xC0 |0 # CJK Ideograph
-<U88BA> \x8F\xDC\xC1 |0 # CJK Ideograph
-<U88BD> \x8F\xDC\xC2 |0 # CJK Ideograph
-<U88BE> \x8F\xDC\xC3 |0 # CJK Ideograph
-<U88C0> \x8F\xDC\xC4 |0 # CJK Ideograph
-<U88CA> \x8F\xDC\xC5 |0 # CJK Ideograph
-<U88CB> \x8F\xDC\xC6 |0 # CJK Ideograph
-<U88CC> \x8F\xDC\xC7 |0 # CJK Ideograph
-<U88CD> \x8F\xDC\xC8 |0 # CJK Ideograph
-<U88CE> \x8F\xDC\xC9 |0 # CJK Ideograph
-<U88D1> \x8F\xDC\xCA |0 # CJK Ideograph
-<U88D2> \x8F\xDC\xCB |0 # CJK Ideograph
-<U88D3> \x8F\xDC\xCC |0 # CJK Ideograph
-<U88DB> \x8F\xDC\xCD |0 # CJK Ideograph
-<U88DE> \x8F\xDC\xCE |0 # CJK Ideograph
-<U88E7> \x8F\xDC\xCF |0 # CJK Ideograph
-<U88EF> \x8F\xDC\xD0 |0 # CJK Ideograph
-<U88F0> \x8F\xDC\xD1 |0 # CJK Ideograph
-<U88F1> \x8F\xDC\xD2 |0 # CJK Ideograph
-<U88F5> \x8F\xDC\xD3 |0 # CJK Ideograph
-<U88F7> \x8F\xDC\xD4 |0 # CJK Ideograph
-<U8901> \x8F\xDC\xD5 |0 # CJK Ideograph
-<U8906> \x8F\xDC\xD6 |0 # CJK Ideograph
-<U890D> \x8F\xDC\xD7 |0 # CJK Ideograph
-<U890E> \x8F\xDC\xD8 |0 # CJK Ideograph
-<U890F> \x8F\xDC\xD9 |0 # CJK Ideograph
-<U8915> \x8F\xDC\xDA |0 # CJK Ideograph
-<U8916> \x8F\xDC\xDB |0 # CJK Ideograph
-<U8918> \x8F\xDC\xDC |0 # CJK Ideograph
-<U8919> \x8F\xDC\xDD |0 # CJK Ideograph
-<U891A> \x8F\xDC\xDE |0 # CJK Ideograph
-<U891C> \x8F\xDC\xDF |0 # CJK Ideograph
-<U8920> \x8F\xDC\xE0 |0 # CJK Ideograph
-<U8926> \x8F\xDC\xE1 |0 # CJK Ideograph
-<U8927> \x8F\xDC\xE2 |0 # CJK Ideograph
-<U8928> \x8F\xDC\xE3 |0 # CJK Ideograph
-<U8930> \x8F\xDC\xE4 |0 # CJK Ideograph
-<U8931> \x8F\xDC\xE5 |0 # CJK Ideograph
-<U8932> \x8F\xDC\xE6 |0 # CJK Ideograph
-<U8935> \x8F\xDC\xE7 |0 # CJK Ideograph
-<U8939> \x8F\xDC\xE8 |0 # CJK Ideograph
-<U893A> \x8F\xDC\xE9 |0 # CJK Ideograph
-<U893E> \x8F\xDC\xEA |0 # CJK Ideograph
-<U8940> \x8F\xDC\xEB |0 # CJK Ideograph
-<U8942> \x8F\xDC\xEC |0 # CJK Ideograph
-<U8945> \x8F\xDC\xED |0 # CJK Ideograph
-<U8946> \x8F\xDC\xEE |0 # CJK Ideograph
-<U8949> \x8F\xDC\xEF |0 # CJK Ideograph
-<U894F> \x8F\xDC\xF0 |0 # CJK Ideograph
-<U8952> \x8F\xDC\xF1 |0 # CJK Ideograph
-<U8957> \x8F\xDC\xF2 |0 # CJK Ideograph
-<U895A> \x8F\xDC\xF3 |0 # CJK Ideograph
-<U895B> \x8F\xDC\xF4 |0 # CJK Ideograph
-<U895C> \x8F\xDC\xF5 |0 # CJK Ideograph
-<U8961> \x8F\xDC\xF6 |0 # CJK Ideograph
-<U8962> \x8F\xDC\xF7 |0 # CJK Ideograph
-<U8963> \x8F\xDC\xF8 |0 # CJK Ideograph
-<U896B> \x8F\xDC\xF9 |0 # CJK Ideograph
-<U896E> \x8F\xDC\xFA |0 # CJK Ideograph
-<U8970> \x8F\xDC\xFB |0 # CJK Ideograph
-<U8973> \x8F\xDC\xFC |0 # CJK Ideograph
-<U8975> \x8F\xDC\xFD |0 # CJK Ideograph
-<U897A> \x8F\xDC\xFE |0 # CJK Ideograph
-<U897B> \x8F\xDD\xA1 |0 # CJK Ideograph
-<U897C> \x8F\xDD\xA2 |0 # CJK Ideograph
-<U897D> \x8F\xDD\xA3 |0 # CJK Ideograph
-<U8989> \x8F\xDD\xA4 |0 # CJK Ideograph
-<U898D> \x8F\xDD\xA5 |0 # CJK Ideograph
-<U8990> \x8F\xDD\xA6 |0 # CJK Ideograph
-<U8994> \x8F\xDD\xA7 |0 # CJK Ideograph
-<U8995> \x8F\xDD\xA8 |0 # CJK Ideograph
-<U899B> \x8F\xDD\xA9 |0 # CJK Ideograph
-<U899C> \x8F\xDD\xAA |0 # CJK Ideograph
-<U899F> \x8F\xDD\xAB |0 # CJK Ideograph
-<U89A0> \x8F\xDD\xAC |0 # CJK Ideograph
-<U89A5> \x8F\xDD\xAD |0 # CJK Ideograph
-<U89B0> \x8F\xDD\xAE |0 # CJK Ideograph
-<U89B4> \x8F\xDD\xAF |0 # CJK Ideograph
-<U89B5> \x8F\xDD\xB0 |0 # CJK Ideograph
-<U89B6> \x8F\xDD\xB1 |0 # CJK Ideograph
-<U89B7> \x8F\xDD\xB2 |0 # CJK Ideograph
-<U89BC> \x8F\xDD\xB3 |0 # CJK Ideograph
-<U89D4> \x8F\xDD\xB4 |0 # CJK Ideograph
-<U89D5> \x8F\xDD\xB5 |0 # CJK Ideograph
-<U89D6> \x8F\xDD\xB6 |0 # CJK Ideograph
-<U89D7> \x8F\xDD\xB7 |0 # CJK Ideograph
-<U89D8> \x8F\xDD\xB8 |0 # CJK Ideograph
-<U89E5> \x8F\xDD\xB9 |0 # CJK Ideograph
-<U89E9> \x8F\xDD\xBA |0 # CJK Ideograph
-<U89EB> \x8F\xDD\xBB |0 # CJK Ideograph
-<U89ED> \x8F\xDD\xBC |0 # CJK Ideograph
-<U89F1> \x8F\xDD\xBD |0 # CJK Ideograph
-<U89F3> \x8F\xDD\xBE |0 # CJK Ideograph
-<U89F6> \x8F\xDD\xBF |0 # CJK Ideograph
-<U89F9> \x8F\xDD\xC0 |0 # CJK Ideograph
-<U89FD> \x8F\xDD\xC1 |0 # CJK Ideograph
-<U89FF> \x8F\xDD\xC2 |0 # CJK Ideograph
-<U8A04> \x8F\xDD\xC3 |0 # CJK Ideograph
-<U8A05> \x8F\xDD\xC4 |0 # CJK Ideograph
-<U8A07> \x8F\xDD\xC5 |0 # CJK Ideograph
-<U8A0F> \x8F\xDD\xC6 |0 # CJK Ideograph
-<U8A11> \x8F\xDD\xC7 |0 # CJK Ideograph
-<U8A12> \x8F\xDD\xC8 |0 # CJK Ideograph
-<U8A14> \x8F\xDD\xC9 |0 # CJK Ideograph
-<U8A15> \x8F\xDD\xCA |0 # CJK Ideograph
-<U8A1E> \x8F\xDD\xCB |0 # CJK Ideograph
-<U8A20> \x8F\xDD\xCC |0 # CJK Ideograph
-<U8A22> \x8F\xDD\xCD |0 # CJK Ideograph
-<U8A24> \x8F\xDD\xCE |0 # CJK Ideograph
-<U8A26> \x8F\xDD\xCF |0 # CJK Ideograph
-<U8A2B> \x8F\xDD\xD0 |0 # CJK Ideograph
-<U8A2C> \x8F\xDD\xD1 |0 # CJK Ideograph
-<U8A2F> \x8F\xDD\xD2 |0 # CJK Ideograph
-<U8A35> \x8F\xDD\xD3 |0 # CJK Ideograph
-<U8A37> \x8F\xDD\xD4 |0 # CJK Ideograph
-<U8A3D> \x8F\xDD\xD5 |0 # CJK Ideograph
-<U8A3E> \x8F\xDD\xD6 |0 # CJK Ideograph
-<U8A40> \x8F\xDD\xD7 |0 # CJK Ideograph
-<U8A43> \x8F\xDD\xD8 |0 # CJK Ideograph
-<U8A45> \x8F\xDD\xD9 |0 # CJK Ideograph
-<U8A47> \x8F\xDD\xDA |0 # CJK Ideograph
-<U8A49> \x8F\xDD\xDB |0 # CJK Ideograph
-<U8A4D> \x8F\xDD\xDC |0 # CJK Ideograph
-<U8A4E> \x8F\xDD\xDD |0 # CJK Ideograph
-<U8A53> \x8F\xDD\xDE |0 # CJK Ideograph
-<U8A56> \x8F\xDD\xDF |0 # CJK Ideograph
-<U8A57> \x8F\xDD\xE0 |0 # CJK Ideograph
-<U8A58> \x8F\xDD\xE1 |0 # CJK Ideograph
-<U8A5C> \x8F\xDD\xE2 |0 # CJK Ideograph
-<U8A5D> \x8F\xDD\xE3 |0 # CJK Ideograph
-<U8A61> \x8F\xDD\xE4 |0 # CJK Ideograph
-<U8A65> \x8F\xDD\xE5 |0 # CJK Ideograph
-<U8A67> \x8F\xDD\xE6 |0 # CJK Ideograph
-<U8A75> \x8F\xDD\xE7 |0 # CJK Ideograph
-<U8A76> \x8F\xDD\xE8 |0 # CJK Ideograph
-<U8A77> \x8F\xDD\xE9 |0 # CJK Ideograph
-<U8A79> \x8F\xDD\xEA |0 # CJK Ideograph
-<U8A7A> \x8F\xDD\xEB |0 # CJK Ideograph
-<U8A7B> \x8F\xDD\xEC |0 # CJK Ideograph
-<U8A7E> \x8F\xDD\xED |0 # CJK Ideograph
-<U8A7F> \x8F\xDD\xEE |0 # CJK Ideograph
-<U8A80> \x8F\xDD\xEF |0 # CJK Ideograph
-<U8A83> \x8F\xDD\xF0 |0 # CJK Ideograph
-<U8A86> \x8F\xDD\xF1 |0 # CJK Ideograph
-<U8A8B> \x8F\xDD\xF2 |0 # CJK Ideograph
-<U8A8F> \x8F\xDD\xF3 |0 # CJK Ideograph
-<U8A90> \x8F\xDD\xF4 |0 # CJK Ideograph
-<U8A92> \x8F\xDD\xF5 |0 # CJK Ideograph
-<U8A96> \x8F\xDD\xF6 |0 # CJK Ideograph
-<U8A97> \x8F\xDD\xF7 |0 # CJK Ideograph
-<U8A99> \x8F\xDD\xF8 |0 # CJK Ideograph
-<U8A9F> \x8F\xDD\xF9 |0 # CJK Ideograph
-<U8AA7> \x8F\xDD\xFA |0 # CJK Ideograph
-<U8AA9> \x8F\xDD\xFB |0 # CJK Ideograph
-<U8AAE> \x8F\xDD\xFC |0 # CJK Ideograph
-<U8AAF> \x8F\xDD\xFD |0 # CJK Ideograph
-<U8AB3> \x8F\xDD\xFE |0 # CJK Ideograph
-<U8AB6> \x8F\xDE\xA1 |0 # CJK Ideograph
-<U8AB7> \x8F\xDE\xA2 |0 # CJK Ideograph
-<U8ABB> \x8F\xDE\xA3 |0 # CJK Ideograph
-<U8ABE> \x8F\xDE\xA4 |0 # CJK Ideograph
-<U8AC3> \x8F\xDE\xA5 |0 # CJK Ideograph
-<U8AC6> \x8F\xDE\xA6 |0 # CJK Ideograph
-<U8AC8> \x8F\xDE\xA7 |0 # CJK Ideograph
-<U8AC9> \x8F\xDE\xA8 |0 # CJK Ideograph
-<U8ACA> \x8F\xDE\xA9 |0 # CJK Ideograph
-<U8AD1> \x8F\xDE\xAA |0 # CJK Ideograph
-<U8AD3> \x8F\xDE\xAB |0 # CJK Ideograph
-<U8AD4> \x8F\xDE\xAC |0 # CJK Ideograph
-<U8AD5> \x8F\xDE\xAD |0 # CJK Ideograph
-<U8AD7> \x8F\xDE\xAE |0 # CJK Ideograph
-<U8ADD> \x8F\xDE\xAF |0 # CJK Ideograph
-<U8ADF> \x8F\xDE\xB0 |0 # CJK Ideograph
-<U8AEC> \x8F\xDE\xB1 |0 # CJK Ideograph
-<U8AF0> \x8F\xDE\xB2 |0 # CJK Ideograph
-<U8AF4> \x8F\xDE\xB3 |0 # CJK Ideograph
-<U8AF5> \x8F\xDE\xB4 |0 # CJK Ideograph
-<U8AF6> \x8F\xDE\xB5 |0 # CJK Ideograph
-<U8AFC> \x8F\xDE\xB6 |0 # CJK Ideograph
-<U8AFF> \x8F\xDE\xB7 |0 # CJK Ideograph
-<U8B05> \x8F\xDE\xB8 |0 # CJK Ideograph
-<U8B06> \x8F\xDE\xB9 |0 # CJK Ideograph
-<U8B0B> \x8F\xDE\xBA |0 # CJK Ideograph
-<U8B11> \x8F\xDE\xBB |0 # CJK Ideograph
-<U8B1C> \x8F\xDE\xBC |0 # CJK Ideograph
-<U8B1E> \x8F\xDE\xBD |0 # CJK Ideograph
-<U8B1F> \x8F\xDE\xBE |0 # CJK Ideograph
-<U8B0A> \x8F\xDE\xBF |0 # CJK Ideograph
-<U8B2D> \x8F\xDE\xC0 |0 # CJK Ideograph
-<U8B30> \x8F\xDE\xC1 |0 # CJK Ideograph
-<U8B37> \x8F\xDE\xC2 |0 # CJK Ideograph
-<U8B3C> \x8F\xDE\xC3 |0 # CJK Ideograph
-<U8B42> \x8F\xDE\xC4 |0 # CJK Ideograph
-<U8B43> \x8F\xDE\xC5 |0 # CJK Ideograph
-<U8B44> \x8F\xDE\xC6 |0 # CJK Ideograph
-<U8B45> \x8F\xDE\xC7 |0 # CJK Ideograph
-<U8B46> \x8F\xDE\xC8 |0 # CJK Ideograph
-<U8B48> \x8F\xDE\xC9 |0 # CJK Ideograph
-<U8B52> \x8F\xDE\xCA |0 # CJK Ideograph
-<U8B53> \x8F\xDE\xCB |0 # CJK Ideograph
-<U8B54> \x8F\xDE\xCC |0 # CJK Ideograph
-<U8B59> \x8F\xDE\xCD |0 # CJK Ideograph
-<U8B4D> \x8F\xDE\xCE |0 # CJK Ideograph
-<U8B5E> \x8F\xDE\xCF |0 # CJK Ideograph
-<U8B63> \x8F\xDE\xD0 |0 # CJK Ideograph
-<U8B6D> \x8F\xDE\xD1 |0 # CJK Ideograph
-<U8B76> \x8F\xDE\xD2 |0 # CJK Ideograph
-<U8B78> \x8F\xDE\xD3 |0 # CJK Ideograph
-<U8B79> \x8F\xDE\xD4 |0 # CJK Ideograph
-<U8B7C> \x8F\xDE\xD5 |0 # CJK Ideograph
-<U8B7E> \x8F\xDE\xD6 |0 # CJK Ideograph
-<U8B81> \x8F\xDE\xD7 |0 # CJK Ideograph
-<U8B84> \x8F\xDE\xD8 |0 # CJK Ideograph
-<U8B85> \x8F\xDE\xD9 |0 # CJK Ideograph
-<U8B8B> \x8F\xDE\xDA |0 # CJK Ideograph
-<U8B8D> \x8F\xDE\xDB |0 # CJK Ideograph
-<U8B8F> \x8F\xDE\xDC |0 # CJK Ideograph
-<U8B94> \x8F\xDE\xDD |0 # CJK Ideograph
-<U8B95> \x8F\xDE\xDE |0 # CJK Ideograph
-<U8B9C> \x8F\xDE\xDF |0 # CJK Ideograph
-<U8B9E> \x8F\xDE\xE0 |0 # CJK Ideograph
-<U8B9F> \x8F\xDE\xE1 |0 # CJK Ideograph
-<U8C38> \x8F\xDE\xE2 |0 # CJK Ideograph
-<U8C39> \x8F\xDE\xE3 |0 # CJK Ideograph
-<U8C3D> \x8F\xDE\xE4 |0 # CJK Ideograph
-<U8C3E> \x8F\xDE\xE5 |0 # CJK Ideograph
-<U8C45> \x8F\xDE\xE6 |0 # CJK Ideograph
-<U8C47> \x8F\xDE\xE7 |0 # CJK Ideograph
-<U8C49> \x8F\xDE\xE8 |0 # CJK Ideograph
-<U8C4B> \x8F\xDE\xE9 |0 # CJK Ideograph
-<U8C4F> \x8F\xDE\xEA |0 # CJK Ideograph
-<U8C51> \x8F\xDE\xEB |0 # CJK Ideograph
-<U8C53> \x8F\xDE\xEC |0 # CJK Ideograph
-<U8C54> \x8F\xDE\xED |0 # CJK Ideograph
-<U8C57> \x8F\xDE\xEE |0 # CJK Ideograph
-<U8C58> \x8F\xDE\xEF |0 # CJK Ideograph
-<U8C5B> \x8F\xDE\xF0 |0 # CJK Ideograph
-<U8C5D> \x8F\xDE\xF1 |0 # CJK Ideograph
-<U8C59> \x8F\xDE\xF2 |0 # CJK Ideograph
-<U8C63> \x8F\xDE\xF3 |0 # CJK Ideograph
-<U8C64> \x8F\xDE\xF4 |0 # CJK Ideograph
-<U8C66> \x8F\xDE\xF5 |0 # CJK Ideograph
-<U8C68> \x8F\xDE\xF6 |0 # CJK Ideograph
-<U8C69> \x8F\xDE\xF7 |0 # CJK Ideograph
-<U8C6D> \x8F\xDE\xF8 |0 # CJK Ideograph
-<U8C73> \x8F\xDE\xF9 |0 # CJK Ideograph
-<U8C75> \x8F\xDE\xFA |0 # CJK Ideograph
-<U8C76> \x8F\xDE\xFB |0 # CJK Ideograph
-<U8C7B> \x8F\xDE\xFC |0 # CJK Ideograph
-<U8C7E> \x8F\xDE\xFD |0 # CJK Ideograph
-<U8C86> \x8F\xDE\xFE |0 # CJK Ideograph
-<U8C87> \x8F\xDF\xA1 |0 # CJK Ideograph
-<U8C8B> \x8F\xDF\xA2 |0 # CJK Ideograph
-<U8C90> \x8F\xDF\xA3 |0 # CJK Ideograph
-<U8C92> \x8F\xDF\xA4 |0 # CJK Ideograph
-<U8C93> \x8F\xDF\xA5 |0 # CJK Ideograph
-<U8C99> \x8F\xDF\xA6 |0 # CJK Ideograph
-<U8C9B> \x8F\xDF\xA7 |0 # CJK Ideograph
-<U8C9C> \x8F\xDF\xA8 |0 # CJK Ideograph
-<U8CA4> \x8F\xDF\xA9 |0 # CJK Ideograph
-<U8CB9> \x8F\xDF\xAA |0 # CJK Ideograph
-<U8CBA> \x8F\xDF\xAB |0 # CJK Ideograph
-<U8CC5> \x8F\xDF\xAC |0 # CJK Ideograph
-<U8CC6> \x8F\xDF\xAD |0 # CJK Ideograph
-<U8CC9> \x8F\xDF\xAE |0 # CJK Ideograph
-<U8CCB> \x8F\xDF\xAF |0 # CJK Ideograph
-<U8CCF> \x8F\xDF\xB0 |0 # CJK Ideograph
-<U8CD6> \x8F\xDF\xB1 |0 # CJK Ideograph
-<U8CD5> \x8F\xDF\xB2 |0 # CJK Ideograph
-<U8CD9> \x8F\xDF\xB3 |0 # CJK Ideograph
-<U8CDD> \x8F\xDF\xB4 |0 # CJK Ideograph
-<U8CE1> \x8F\xDF\xB5 |0 # CJK Ideograph
-<U8CE8> \x8F\xDF\xB6 |0 # CJK Ideograph
-<U8CEC> \x8F\xDF\xB7 |0 # CJK Ideograph
-<U8CEF> \x8F\xDF\xB8 |0 # CJK Ideograph
-<U8CF0> \x8F\xDF\xB9 |0 # CJK Ideograph
-<U8CF2> \x8F\xDF\xBA |0 # CJK Ideograph
-<U8CF5> \x8F\xDF\xBB |0 # CJK Ideograph
-<U8CF7> \x8F\xDF\xBC |0 # CJK Ideograph
-<U8CF8> \x8F\xDF\xBD |0 # CJK Ideograph
-<U8CFE> \x8F\xDF\xBE |0 # CJK Ideograph
-<U8CFF> \x8F\xDF\xBF |0 # CJK Ideograph
-<U8D01> \x8F\xDF\xC0 |0 # CJK Ideograph
-<U8D03> \x8F\xDF\xC1 |0 # CJK Ideograph
-<U8D09> \x8F\xDF\xC2 |0 # CJK Ideograph
-<U8D12> \x8F\xDF\xC3 |0 # CJK Ideograph
-<U8D17> \x8F\xDF\xC4 |0 # CJK Ideograph
-<U8D1B> \x8F\xDF\xC5 |0 # CJK Ideograph
-<U8D65> \x8F\xDF\xC6 |0 # CJK Ideograph
-<U8D69> \x8F\xDF\xC7 |0 # CJK Ideograph
-<U8D6C> \x8F\xDF\xC8 |0 # CJK Ideograph
-<U8D6E> \x8F\xDF\xC9 |0 # CJK Ideograph
-<U8D7F> \x8F\xDF\xCA |0 # CJK Ideograph
-<U8D82> \x8F\xDF\xCB |0 # CJK Ideograph
-<U8D84> \x8F\xDF\xCC |0 # CJK Ideograph
-<U8D88> \x8F\xDF\xCD |0 # CJK Ideograph
-<U8D8D> \x8F\xDF\xCE |0 # CJK Ideograph
-<U8D90> \x8F\xDF\xCF |0 # CJK Ideograph
-<U8D91> \x8F\xDF\xD0 |0 # CJK Ideograph
-<U8D95> \x8F\xDF\xD1 |0 # CJK Ideograph
-<U8D9E> \x8F\xDF\xD2 |0 # CJK Ideograph
-<U8D9F> \x8F\xDF\xD3 |0 # CJK Ideograph
-<U8DA0> \x8F\xDF\xD4 |0 # CJK Ideograph
-<U8DA6> \x8F\xDF\xD5 |0 # CJK Ideograph
-<U8DAB> \x8F\xDF\xD6 |0 # CJK Ideograph
-<U8DAC> \x8F\xDF\xD7 |0 # CJK Ideograph
-<U8DAF> \x8F\xDF\xD8 |0 # CJK Ideograph
-<U8DB2> \x8F\xDF\xD9 |0 # CJK Ideograph
-<U8DB5> \x8F\xDF\xDA |0 # CJK Ideograph
-<U8DB7> \x8F\xDF\xDB |0 # CJK Ideograph
-<U8DB9> \x8F\xDF\xDC |0 # CJK Ideograph
-<U8DBB> \x8F\xDF\xDD |0 # CJK Ideograph
-<U8DC0> \x8F\xDF\xDE |0 # CJK Ideograph
-<U8DC5> \x8F\xDF\xDF |0 # CJK Ideograph
-<U8DC6> \x8F\xDF\xE0 |0 # CJK Ideograph
-<U8DC7> \x8F\xDF\xE1 |0 # CJK Ideograph
-<U8DC8> \x8F\xDF\xE2 |0 # CJK Ideograph
-<U8DCA> \x8F\xDF\xE3 |0 # CJK Ideograph
-<U8DCE> \x8F\xDF\xE4 |0 # CJK Ideograph
-<U8DD1> \x8F\xDF\xE5 |0 # CJK Ideograph
-<U8DD4> \x8F\xDF\xE6 |0 # CJK Ideograph
-<U8DD5> \x8F\xDF\xE7 |0 # CJK Ideograph
-<U8DD7> \x8F\xDF\xE8 |0 # CJK Ideograph
-<U8DD9> \x8F\xDF\xE9 |0 # CJK Ideograph
-<U8DE4> \x8F\xDF\xEA |0 # CJK Ideograph
-<U8DE5> \x8F\xDF\xEB |0 # CJK Ideograph
-<U8DE7> \x8F\xDF\xEC |0 # CJK Ideograph
-<U8DEC> \x8F\xDF\xED |0 # CJK Ideograph
-<U8DF0> \x8F\xDF\xEE |0 # CJK Ideograph
-<U8DBC> \x8F\xDF\xEF |0 # CJK Ideograph
-<U8DF1> \x8F\xDF\xF0 |0 # CJK Ideograph
-<U8DF2> \x8F\xDF\xF1 |0 # CJK Ideograph
-<U8DF4> \x8F\xDF\xF2 |0 # CJK Ideograph
-<U8DFD> \x8F\xDF\xF3 |0 # CJK Ideograph
-<U8E01> \x8F\xDF\xF4 |0 # CJK Ideograph
-<U8E04> \x8F\xDF\xF5 |0 # CJK Ideograph
-<U8E05> \x8F\xDF\xF6 |0 # CJK Ideograph
-<U8E06> \x8F\xDF\xF7 |0 # CJK Ideograph
-<U8E0B> \x8F\xDF\xF8 |0 # CJK Ideograph
-<U8E11> \x8F\xDF\xF9 |0 # CJK Ideograph
-<U8E14> \x8F\xDF\xFA |0 # CJK Ideograph
-<U8E16> \x8F\xDF\xFB |0 # CJK Ideograph
-<U8E20> \x8F\xDF\xFC |0 # CJK Ideograph
-<U8E21> \x8F\xDF\xFD |0 # CJK Ideograph
-<U8E22> \x8F\xDF\xFE |0 # CJK Ideograph
-<U8E23> \x8F\xE0\xA1 |0 # CJK Ideograph
-<U8E26> \x8F\xE0\xA2 |0 # CJK Ideograph
-<U8E27> \x8F\xE0\xA3 |0 # CJK Ideograph
-<U8E31> \x8F\xE0\xA4 |0 # CJK Ideograph
-<U8E33> \x8F\xE0\xA5 |0 # CJK Ideograph
-<U8E36> \x8F\xE0\xA6 |0 # CJK Ideograph
-<U8E37> \x8F\xE0\xA7 |0 # CJK Ideograph
-<U8E38> \x8F\xE0\xA8 |0 # CJK Ideograph
-<U8E39> \x8F\xE0\xA9 |0 # CJK Ideograph
-<U8E3D> \x8F\xE0\xAA |0 # CJK Ideograph
-<U8E40> \x8F\xE0\xAB |0 # CJK Ideograph
-<U8E41> \x8F\xE0\xAC |0 # CJK Ideograph
-<U8E4B> \x8F\xE0\xAD |0 # CJK Ideograph
-<U8E4D> \x8F\xE0\xAE |0 # CJK Ideograph
-<U8E4E> \x8F\xE0\xAF |0 # CJK Ideograph
-<U8E4F> \x8F\xE0\xB0 |0 # CJK Ideograph
-<U8E54> \x8F\xE0\xB1 |0 # CJK Ideograph
-<U8E5B> \x8F\xE0\xB2 |0 # CJK Ideograph
-<U8E5C> \x8F\xE0\xB3 |0 # CJK Ideograph
-<U8E5D> \x8F\xE0\xB4 |0 # CJK Ideograph
-<U8E5E> \x8F\xE0\xB5 |0 # CJK Ideograph
-<U8E61> \x8F\xE0\xB6 |0 # CJK Ideograph
-<U8E62> \x8F\xE0\xB7 |0 # CJK Ideograph
-<U8E69> \x8F\xE0\xB8 |0 # CJK Ideograph
-<U8E6C> \x8F\xE0\xB9 |0 # CJK Ideograph
-<U8E6D> \x8F\xE0\xBA |0 # CJK Ideograph
-<U8E6F> \x8F\xE0\xBB |0 # CJK Ideograph
-<U8E70> \x8F\xE0\xBC |0 # CJK Ideograph
-<U8E71> \x8F\xE0\xBD |0 # CJK Ideograph
-<U8E79> \x8F\xE0\xBE |0 # CJK Ideograph
-<U8E7A> \x8F\xE0\xBF |0 # CJK Ideograph
-<U8E7B> \x8F\xE0\xC0 |0 # CJK Ideograph
-<U8E82> \x8F\xE0\xC1 |0 # CJK Ideograph
-<U8E83> \x8F\xE0\xC2 |0 # CJK Ideograph
-<U8E89> \x8F\xE0\xC3 |0 # CJK Ideograph
-<U8E90> \x8F\xE0\xC4 |0 # CJK Ideograph
-<U8E92> \x8F\xE0\xC5 |0 # CJK Ideograph
-<U8E95> \x8F\xE0\xC6 |0 # CJK Ideograph
-<U8E9A> \x8F\xE0\xC7 |0 # CJK Ideograph
-<U8E9B> \x8F\xE0\xC8 |0 # CJK Ideograph
-<U8E9D> \x8F\xE0\xC9 |0 # CJK Ideograph
-<U8E9E> \x8F\xE0\xCA |0 # CJK Ideograph
-<U8EA2> \x8F\xE0\xCB |0 # CJK Ideograph
-<U8EA7> \x8F\xE0\xCC |0 # CJK Ideograph
-<U8EA9> \x8F\xE0\xCD |0 # CJK Ideograph
-<U8EAD> \x8F\xE0\xCE |0 # CJK Ideograph
-<U8EAE> \x8F\xE0\xCF |0 # CJK Ideograph
-<U8EB3> \x8F\xE0\xD0 |0 # CJK Ideograph
-<U8EB5> \x8F\xE0\xD1 |0 # CJK Ideograph
-<U8EBA> \x8F\xE0\xD2 |0 # CJK Ideograph
-<U8EBB> \x8F\xE0\xD3 |0 # CJK Ideograph
-<U8EC0> \x8F\xE0\xD4 |0 # CJK Ideograph
-<U8EC1> \x8F\xE0\xD5 |0 # CJK Ideograph
-<U8EC3> \x8F\xE0\xD6 |0 # CJK Ideograph
-<U8EC4> \x8F\xE0\xD7 |0 # CJK Ideograph
-<U8EC7> \x8F\xE0\xD8 |0 # CJK Ideograph
-<U8ECF> \x8F\xE0\xD9 |0 # CJK Ideograph
-<U8ED1> \x8F\xE0\xDA |0 # CJK Ideograph
-<U8ED4> \x8F\xE0\xDB |0 # CJK Ideograph
-<U8EDC> \x8F\xE0\xDC |0 # CJK Ideograph
-<U8EE8> \x8F\xE0\xDD |0 # CJK Ideograph
-<U8EEE> \x8F\xE0\xDE |0 # CJK Ideograph
-<U8EF0> \x8F\xE0\xDF |0 # CJK Ideograph
-<U8EF1> \x8F\xE0\xE0 |0 # CJK Ideograph
-<U8EF7> \x8F\xE0\xE1 |0 # CJK Ideograph
-<U8EF9> \x8F\xE0\xE2 |0 # CJK Ideograph
-<U8EFA> \x8F\xE0\xE3 |0 # CJK Ideograph
-<U8EED> \x8F\xE0\xE4 |0 # CJK Ideograph
-<U8F00> \x8F\xE0\xE5 |0 # CJK Ideograph
-<U8F02> \x8F\xE0\xE6 |0 # CJK Ideograph
-<U8F07> \x8F\xE0\xE7 |0 # CJK Ideograph
-<U8F08> \x8F\xE0\xE8 |0 # CJK Ideograph
-<U8F0F> \x8F\xE0\xE9 |0 # CJK Ideograph
-<U8F10> \x8F\xE0\xEA |0 # CJK Ideograph
-<U8F16> \x8F\xE0\xEB |0 # CJK Ideograph
-<U8F17> \x8F\xE0\xEC |0 # CJK Ideograph
-<U8F18> \x8F\xE0\xED |0 # CJK Ideograph
-<U8F1E> \x8F\xE0\xEE |0 # CJK Ideograph
-<U8F20> \x8F\xE0\xEF |0 # CJK Ideograph
-<U8F21> \x8F\xE0\xF0 |0 # CJK Ideograph
-<U8F23> \x8F\xE0\xF1 |0 # CJK Ideograph
-<U8F25> \x8F\xE0\xF2 |0 # CJK Ideograph
-<U8F27> \x8F\xE0\xF3 |0 # CJK Ideograph
-<U8F28> \x8F\xE0\xF4 |0 # CJK Ideograph
-<U8F2C> \x8F\xE0\xF5 |0 # CJK Ideograph
-<U8F2D> \x8F\xE0\xF6 |0 # CJK Ideograph
-<U8F2E> \x8F\xE0\xF7 |0 # CJK Ideograph
-<U8F34> \x8F\xE0\xF8 |0 # CJK Ideograph
-<U8F35> \x8F\xE0\xF9 |0 # CJK Ideograph
-<U8F36> \x8F\xE0\xFA |0 # CJK Ideograph
-<U8F37> \x8F\xE0\xFB |0 # CJK Ideograph
-<U8F3A> \x8F\xE0\xFC |0 # CJK Ideograph
-<U8F40> \x8F\xE0\xFD |0 # CJK Ideograph
-<U8F41> \x8F\xE0\xFE |0 # CJK Ideograph
-<U8F43> \x8F\xE1\xA1 |0 # CJK Ideograph
-<U8F47> \x8F\xE1\xA2 |0 # CJK Ideograph
-<U8F4F> \x8F\xE1\xA3 |0 # CJK Ideograph
-<U8F51> \x8F\xE1\xA4 |0 # CJK Ideograph
-<U8F52> \x8F\xE1\xA5 |0 # CJK Ideograph
-<U8F53> \x8F\xE1\xA6 |0 # CJK Ideograph
-<U8F54> \x8F\xE1\xA7 |0 # CJK Ideograph
-<U8F55> \x8F\xE1\xA8 |0 # CJK Ideograph
-<U8F58> \x8F\xE1\xA9 |0 # CJK Ideograph
-<U8F5D> \x8F\xE1\xAA |0 # CJK Ideograph
-<U8F5E> \x8F\xE1\xAB |0 # CJK Ideograph
-<U8F65> \x8F\xE1\xAC |0 # CJK Ideograph
-<U8F9D> \x8F\xE1\xAD |0 # CJK Ideograph
-<U8FA0> \x8F\xE1\xAE |0 # CJK Ideograph
-<U8FA1> \x8F\xE1\xAF |0 # CJK Ideograph
-<U8FA4> \x8F\xE1\xB0 |0 # CJK Ideograph
-<U8FA5> \x8F\xE1\xB1 |0 # CJK Ideograph
-<U8FA6> \x8F\xE1\xB2 |0 # CJK Ideograph
-<U8FB5> \x8F\xE1\xB3 |0 # CJK Ideograph
-<U8FB6> \x8F\xE1\xB4 |0 # CJK Ideograph
-<U8FB8> \x8F\xE1\xB5 |0 # CJK Ideograph
-<U8FBE> \x8F\xE1\xB6 |0 # CJK Ideograph
-<U8FC0> \x8F\xE1\xB7 |0 # CJK Ideograph
-<U8FC1> \x8F\xE1\xB8 |0 # CJK Ideograph
-<U8FC6> \x8F\xE1\xB9 |0 # CJK Ideograph
-<U8FCA> \x8F\xE1\xBA |0 # CJK Ideograph
-<U8FCB> \x8F\xE1\xBB |0 # CJK Ideograph
-<U8FCD> \x8F\xE1\xBC |0 # CJK Ideograph
-<U8FD0> \x8F\xE1\xBD |0 # CJK Ideograph
-<U8FD2> \x8F\xE1\xBE |0 # CJK Ideograph
-<U8FD3> \x8F\xE1\xBF |0 # CJK Ideograph
-<U8FD5> \x8F\xE1\xC0 |0 # CJK Ideograph
-<U8FE0> \x8F\xE1\xC1 |0 # CJK Ideograph
-<U8FE3> \x8F\xE1\xC2 |0 # CJK Ideograph
-<U8FE4> \x8F\xE1\xC3 |0 # CJK Ideograph
-<U8FE8> \x8F\xE1\xC4 |0 # CJK Ideograph
-<U8FEE> \x8F\xE1\xC5 |0 # CJK Ideograph
-<U8FF1> \x8F\xE1\xC6 |0 # CJK Ideograph
-<U8FF5> \x8F\xE1\xC7 |0 # CJK Ideograph
-<U8FF6> \x8F\xE1\xC8 |0 # CJK Ideograph
-<U8FFB> \x8F\xE1\xC9 |0 # CJK Ideograph
-<U8FFE> \x8F\xE1\xCA |0 # CJK Ideograph
-<U9002> \x8F\xE1\xCB |0 # CJK Ideograph
-<U9004> \x8F\xE1\xCC |0 # CJK Ideograph
-<U9008> \x8F\xE1\xCD |0 # CJK Ideograph
-<U900C> \x8F\xE1\xCE |0 # CJK Ideograph
-<U9018> \x8F\xE1\xCF |0 # CJK Ideograph
-<U901B> \x8F\xE1\xD0 |0 # CJK Ideograph
-<U9028> \x8F\xE1\xD1 |0 # CJK Ideograph
-<U9029> \x8F\xE1\xD2 |0 # CJK Ideograph
-<U902F> \x8F\xE1\xD3 |0 # CJK Ideograph
-<U902A> \x8F\xE1\xD4 |0 # CJK Ideograph
-<U902C> \x8F\xE1\xD5 |0 # CJK Ideograph
-<U902D> \x8F\xE1\xD6 |0 # CJK Ideograph
-<U9033> \x8F\xE1\xD7 |0 # CJK Ideograph
-<U9034> \x8F\xE1\xD8 |0 # CJK Ideograph
-<U9037> \x8F\xE1\xD9 |0 # CJK Ideograph
-<U903F> \x8F\xE1\xDA |0 # CJK Ideograph
-<U9043> \x8F\xE1\xDB |0 # CJK Ideograph
-<U9044> \x8F\xE1\xDC |0 # CJK Ideograph
-<U904C> \x8F\xE1\xDD |0 # CJK Ideograph
-<U905B> \x8F\xE1\xDE |0 # CJK Ideograph
-<U905D> \x8F\xE1\xDF |0 # CJK Ideograph
-<U9062> \x8F\xE1\xE0 |0 # CJK Ideograph
-<U9066> \x8F\xE1\xE1 |0 # CJK Ideograph
-<U9067> \x8F\xE1\xE2 |0 # CJK Ideograph
-<U906C> \x8F\xE1\xE3 |0 # CJK Ideograph
-<U9070> \x8F\xE1\xE4 |0 # CJK Ideograph
-<U9074> \x8F\xE1\xE5 |0 # CJK Ideograph
-<U9079> \x8F\xE1\xE6 |0 # CJK Ideograph
-<U9085> \x8F\xE1\xE7 |0 # CJK Ideograph
-<U9088> \x8F\xE1\xE8 |0 # CJK Ideograph
-<U908B> \x8F\xE1\xE9 |0 # CJK Ideograph
-<U908C> \x8F\xE1\xEA |0 # CJK Ideograph
-<U908E> \x8F\xE1\xEB |0 # CJK Ideograph
-<U9090> \x8F\xE1\xEC |0 # CJK Ideograph
-<U9095> \x8F\xE1\xED |0 # CJK Ideograph
-<U9097> \x8F\xE1\xEE |0 # CJK Ideograph
-<U9098> \x8F\xE1\xEF |0 # CJK Ideograph
-<U9099> \x8F\xE1\xF0 |0 # CJK Ideograph
-<U909B> \x8F\xE1\xF1 |0 # CJK Ideograph
-<U90A0> \x8F\xE1\xF2 |0 # CJK Ideograph
-<U90A1> \x8F\xE1\xF3 |0 # CJK Ideograph
-<U90A2> \x8F\xE1\xF4 |0 # CJK Ideograph
-<U90A5> \x8F\xE1\xF5 |0 # CJK Ideograph
-<U90B0> \x8F\xE1\xF6 |0 # CJK Ideograph
-<U90B2> \x8F\xE1\xF7 |0 # CJK Ideograph
-<U90B3> \x8F\xE1\xF8 |0 # CJK Ideograph
-<U90B4> \x8F\xE1\xF9 |0 # CJK Ideograph
-<U90B6> \x8F\xE1\xFA |0 # CJK Ideograph
-<U90BD> \x8F\xE1\xFB |0 # CJK Ideograph
-<U90CC> \x8F\xE1\xFC |0 # CJK Ideograph
-<U90BE> \x8F\xE1\xFD |0 # CJK Ideograph
-<U90C3> \x8F\xE1\xFE |0 # CJK Ideograph
-<U90C4> \x8F\xE2\xA1 |0 # CJK Ideograph
-<U90C5> \x8F\xE2\xA2 |0 # CJK Ideograph
-<U90C7> \x8F\xE2\xA3 |0 # CJK Ideograph
-<U90C8> \x8F\xE2\xA4 |0 # CJK Ideograph
-<U90D5> \x8F\xE2\xA5 |0 # CJK Ideograph
-<U90D7> \x8F\xE2\xA6 |0 # CJK Ideograph
-<U90D8> \x8F\xE2\xA7 |0 # CJK Ideograph
-<U90D9> \x8F\xE2\xA8 |0 # CJK Ideograph
-<U90DC> \x8F\xE2\xA9 |0 # CJK Ideograph
-<U90DD> \x8F\xE2\xAA |0 # CJK Ideograph
-<U90DF> \x8F\xE2\xAB |0 # CJK Ideograph
-<U90E5> \x8F\xE2\xAC |0 # CJK Ideograph
-<U90D2> \x8F\xE2\xAD |0 # CJK Ideograph
-<U90F6> \x8F\xE2\xAE |0 # CJK Ideograph
-<U90EB> \x8F\xE2\xAF |0 # CJK Ideograph
-<U90EF> \x8F\xE2\xB0 |0 # CJK Ideograph
-<U90F0> \x8F\xE2\xB1 |0 # CJK Ideograph
-<U90F4> \x8F\xE2\xB2 |0 # CJK Ideograph
-<U90FE> \x8F\xE2\xB3 |0 # CJK Ideograph
-<U90FF> \x8F\xE2\xB4 |0 # CJK Ideograph
-<U9100> \x8F\xE2\xB5 |0 # CJK Ideograph
-<U9104> \x8F\xE2\xB6 |0 # CJK Ideograph
-<U9105> \x8F\xE2\xB7 |0 # CJK Ideograph
-<U9106> \x8F\xE2\xB8 |0 # CJK Ideograph
-<U9108> \x8F\xE2\xB9 |0 # CJK Ideograph
-<U910D> \x8F\xE2\xBA |0 # CJK Ideograph
-<U9110> \x8F\xE2\xBB |0 # CJK Ideograph
-<U9114> \x8F\xE2\xBC |0 # CJK Ideograph
-<U9116> \x8F\xE2\xBD |0 # CJK Ideograph
-<U9117> \x8F\xE2\xBE |0 # CJK Ideograph
-<U9118> \x8F\xE2\xBF |0 # CJK Ideograph
-<U911A> \x8F\xE2\xC0 |0 # CJK Ideograph
-<U911C> \x8F\xE2\xC1 |0 # CJK Ideograph
-<U911E> \x8F\xE2\xC2 |0 # CJK Ideograph
-<U9120> \x8F\xE2\xC3 |0 # CJK Ideograph
-<U9125> \x8F\xE2\xC4 |0 # CJK Ideograph
-<U9122> \x8F\xE2\xC5 |0 # CJK Ideograph
-<U9123> \x8F\xE2\xC6 |0 # CJK Ideograph
-<U9127> \x8F\xE2\xC7 |0 # CJK Ideograph
-<U9129> \x8F\xE2\xC8 |0 # CJK Ideograph
-<U912E> \x8F\xE2\xC9 |0 # CJK Ideograph
-<U912F> \x8F\xE2\xCA |0 # CJK Ideograph
-<U9131> \x8F\xE2\xCB |0 # CJK Ideograph
-<U9134> \x8F\xE2\xCC |0 # CJK Ideograph
-<U9136> \x8F\xE2\xCD |0 # CJK Ideograph
-<U9137> \x8F\xE2\xCE |0 # CJK Ideograph
-<U9139> \x8F\xE2\xCF |0 # CJK Ideograph
-<U913A> \x8F\xE2\xD0 |0 # CJK Ideograph
-<U913C> \x8F\xE2\xD1 |0 # CJK Ideograph
-<U913D> \x8F\xE2\xD2 |0 # CJK Ideograph
-<U9143> \x8F\xE2\xD3 |0 # CJK Ideograph
-<U9147> \x8F\xE2\xD4 |0 # CJK Ideograph
-<U9148> \x8F\xE2\xD5 |0 # CJK Ideograph
-<U914F> \x8F\xE2\xD6 |0 # CJK Ideograph
-<U9153> \x8F\xE2\xD7 |0 # CJK Ideograph
-<U9157> \x8F\xE2\xD8 |0 # CJK Ideograph
-<U9159> \x8F\xE2\xD9 |0 # CJK Ideograph
-<U915A> \x8F\xE2\xDA |0 # CJK Ideograph
-<U915B> \x8F\xE2\xDB |0 # CJK Ideograph
-<U9161> \x8F\xE2\xDC |0 # CJK Ideograph
-<U9164> \x8F\xE2\xDD |0 # CJK Ideograph
-<U9167> \x8F\xE2\xDE |0 # CJK Ideograph
-<U916D> \x8F\xE2\xDF |0 # CJK Ideograph
-<U9174> \x8F\xE2\xE0 |0 # CJK Ideograph
-<U9179> \x8F\xE2\xE1 |0 # CJK Ideograph
-<U917A> \x8F\xE2\xE2 |0 # CJK Ideograph
-<U917B> \x8F\xE2\xE3 |0 # CJK Ideograph
-<U9181> \x8F\xE2\xE4 |0 # CJK Ideograph
-<U9183> \x8F\xE2\xE5 |0 # CJK Ideograph
-<U9185> \x8F\xE2\xE6 |0 # CJK Ideograph
-<U9186> \x8F\xE2\xE7 |0 # CJK Ideograph
-<U918A> \x8F\xE2\xE8 |0 # CJK Ideograph
-<U918E> \x8F\xE2\xE9 |0 # CJK Ideograph
-<U9191> \x8F\xE2\xEA |0 # CJK Ideograph
-<U9193> \x8F\xE2\xEB |0 # CJK Ideograph
-<U9194> \x8F\xE2\xEC |0 # CJK Ideograph
-<U9195> \x8F\xE2\xED |0 # CJK Ideograph
-<U9198> \x8F\xE2\xEE |0 # CJK Ideograph
-<U919E> \x8F\xE2\xEF |0 # CJK Ideograph
-<U91A1> \x8F\xE2\xF0 |0 # CJK Ideograph
-<U91A6> \x8F\xE2\xF1 |0 # CJK Ideograph
-<U91A8> \x8F\xE2\xF2 |0 # CJK Ideograph
-<U91AC> \x8F\xE2\xF3 |0 # CJK Ideograph
-<U91AD> \x8F\xE2\xF4 |0 # CJK Ideograph
-<U91AE> \x8F\xE2\xF5 |0 # CJK Ideograph
-<U91B0> \x8F\xE2\xF6 |0 # CJK Ideograph
-<U91B1> \x8F\xE2\xF7 |0 # CJK Ideograph
-<U91B2> \x8F\xE2\xF8 |0 # CJK Ideograph
-<U91B3> \x8F\xE2\xF9 |0 # CJK Ideograph
-<U91B6> \x8F\xE2\xFA |0 # CJK Ideograph
-<U91BB> \x8F\xE2\xFB |0 # CJK Ideograph
-<U91BC> \x8F\xE2\xFC |0 # CJK Ideograph
-<U91BD> \x8F\xE2\xFD |0 # CJK Ideograph
-<U91BF> \x8F\xE2\xFE |0 # CJK Ideograph
-<U91C2> \x8F\xE3\xA1 |0 # CJK Ideograph
-<U91C3> \x8F\xE3\xA2 |0 # CJK Ideograph
-<U91C5> \x8F\xE3\xA3 |0 # CJK Ideograph
-<U91D3> \x8F\xE3\xA4 |0 # CJK Ideograph
-<U91D4> \x8F\xE3\xA5 |0 # CJK Ideograph
-<U91D7> \x8F\xE3\xA6 |0 # CJK Ideograph
-<U91D9> \x8F\xE3\xA7 |0 # CJK Ideograph
-<U91DA> \x8F\xE3\xA8 |0 # CJK Ideograph
-<U91DE> \x8F\xE3\xA9 |0 # CJK Ideograph
-<U91E4> \x8F\xE3\xAA |0 # CJK Ideograph
-<U91E5> \x8F\xE3\xAB |0 # CJK Ideograph
-<U91E9> \x8F\xE3\xAC |0 # CJK Ideograph
-<U91EA> \x8F\xE3\xAD |0 # CJK Ideograph
-<U91EC> \x8F\xE3\xAE |0 # CJK Ideograph
-<U91ED> \x8F\xE3\xAF |0 # CJK Ideograph
-<U91EE> \x8F\xE3\xB0 |0 # CJK Ideograph
-<U91EF> \x8F\xE3\xB1 |0 # CJK Ideograph
-<U91F0> \x8F\xE3\xB2 |0 # CJK Ideograph
-<U91F1> \x8F\xE3\xB3 |0 # CJK Ideograph
-<U91F7> \x8F\xE3\xB4 |0 # CJK Ideograph
-<U91F9> \x8F\xE3\xB5 |0 # CJK Ideograph
-<U91FB> \x8F\xE3\xB6 |0 # CJK Ideograph
-<U91FD> \x8F\xE3\xB7 |0 # CJK Ideograph
-<U9200> \x8F\xE3\xB8 |0 # CJK Ideograph
-<U9201> \x8F\xE3\xB9 |0 # CJK Ideograph
-<U9204> \x8F\xE3\xBA |0 # CJK Ideograph
-<U9205> \x8F\xE3\xBB |0 # CJK Ideograph
-<U9206> \x8F\xE3\xBC |0 # CJK Ideograph
-<U9207> \x8F\xE3\xBD |0 # CJK Ideograph
-<U9209> \x8F\xE3\xBE |0 # CJK Ideograph
-<U920A> \x8F\xE3\xBF |0 # CJK Ideograph
-<U920C> \x8F\xE3\xC0 |0 # CJK Ideograph
-<U9210> \x8F\xE3\xC1 |0 # CJK Ideograph
-<U9212> \x8F\xE3\xC2 |0 # CJK Ideograph
-<U9213> \x8F\xE3\xC3 |0 # CJK Ideograph
-<U9216> \x8F\xE3\xC4 |0 # CJK Ideograph
-<U9218> \x8F\xE3\xC5 |0 # CJK Ideograph
-<U921C> \x8F\xE3\xC6 |0 # CJK Ideograph
-<U921D> \x8F\xE3\xC7 |0 # CJK Ideograph
-<U9223> \x8F\xE3\xC8 |0 # CJK Ideograph
-<U9224> \x8F\xE3\xC9 |0 # CJK Ideograph
-<U9225> \x8F\xE3\xCA |0 # CJK Ideograph
-<U9226> \x8F\xE3\xCB |0 # CJK Ideograph
-<U9228> \x8F\xE3\xCC |0 # CJK Ideograph
-<U922E> \x8F\xE3\xCD |0 # CJK Ideograph
-<U922F> \x8F\xE3\xCE |0 # CJK Ideograph
-<U9230> \x8F\xE3\xCF |0 # CJK Ideograph
-<U9233> \x8F\xE3\xD0 |0 # CJK Ideograph
-<U9235> \x8F\xE3\xD1 |0 # CJK Ideograph
-<U9236> \x8F\xE3\xD2 |0 # CJK Ideograph
-<U9238> \x8F\xE3\xD3 |0 # CJK Ideograph
-<U9239> \x8F\xE3\xD4 |0 # CJK Ideograph
-<U923A> \x8F\xE3\xD5 |0 # CJK Ideograph
-<U923C> \x8F\xE3\xD6 |0 # CJK Ideograph
-<U923E> \x8F\xE3\xD7 |0 # CJK Ideograph
-<U9240> \x8F\xE3\xD8 |0 # CJK Ideograph
-<U9242> \x8F\xE3\xD9 |0 # CJK Ideograph
-<U9243> \x8F\xE3\xDA |0 # CJK Ideograph
-<U9246> \x8F\xE3\xDB |0 # CJK Ideograph
-<U9247> \x8F\xE3\xDC |0 # CJK Ideograph
-<U924A> \x8F\xE3\xDD |0 # CJK Ideograph
-<U924D> \x8F\xE3\xDE |0 # CJK Ideograph
-<U924E> \x8F\xE3\xDF |0 # CJK Ideograph
-<U924F> \x8F\xE3\xE0 |0 # CJK Ideograph
-<U9251> \x8F\xE3\xE1 |0 # CJK Ideograph
-<U9258> \x8F\xE3\xE2 |0 # CJK Ideograph
-<U9259> \x8F\xE3\xE3 |0 # CJK Ideograph
-<U925C> \x8F\xE3\xE4 |0 # CJK Ideograph
-<U925D> \x8F\xE3\xE5 |0 # CJK Ideograph
-<U9260> \x8F\xE3\xE6 |0 # CJK Ideograph
-<U9261> \x8F\xE3\xE7 |0 # CJK Ideograph
-<U9265> \x8F\xE3\xE8 |0 # CJK Ideograph
-<U9267> \x8F\xE3\xE9 |0 # CJK Ideograph
-<U9268> \x8F\xE3\xEA |0 # CJK Ideograph
-<U9269> \x8F\xE3\xEB |0 # CJK Ideograph
-<U926E> \x8F\xE3\xEC |0 # CJK Ideograph
-<U926F> \x8F\xE3\xED |0 # CJK Ideograph
-<U9270> \x8F\xE3\xEE |0 # CJK Ideograph
-<U9275> \x8F\xE3\xEF |0 # CJK Ideograph
-<U9276> \x8F\xE3\xF0 |0 # CJK Ideograph
-<U9277> \x8F\xE3\xF1 |0 # CJK Ideograph
-<U9278> \x8F\xE3\xF2 |0 # CJK Ideograph
-<U9279> \x8F\xE3\xF3 |0 # CJK Ideograph
-<U927B> \x8F\xE3\xF4 |0 # CJK Ideograph
-<U927C> \x8F\xE3\xF5 |0 # CJK Ideograph
-<U927D> \x8F\xE3\xF6 |0 # CJK Ideograph
-<U927F> \x8F\xE3\xF7 |0 # CJK Ideograph
-<U9288> \x8F\xE3\xF8 |0 # CJK Ideograph
-<U9289> \x8F\xE3\xF9 |0 # CJK Ideograph
-<U928A> \x8F\xE3\xFA |0 # CJK Ideograph
-<U928D> \x8F\xE3\xFB |0 # CJK Ideograph
-<U928E> \x8F\xE3\xFC |0 # CJK Ideograph
-<U9292> \x8F\xE3\xFD |0 # CJK Ideograph
-<U9297> \x8F\xE3\xFE |0 # CJK Ideograph
-<U9299> \x8F\xE4\xA1 |0 # CJK Ideograph
-<U929F> \x8F\xE4\xA2 |0 # CJK Ideograph
-<U92A0> \x8F\xE4\xA3 |0 # CJK Ideograph
-<U92A4> \x8F\xE4\xA4 |0 # CJK Ideograph
-<U92A5> \x8F\xE4\xA5 |0 # CJK Ideograph
-<U92A7> \x8F\xE4\xA6 |0 # CJK Ideograph
-<U92A8> \x8F\xE4\xA7 |0 # CJK Ideograph
-<U92AB> \x8F\xE4\xA8 |0 # CJK Ideograph
-<U92AF> \x8F\xE4\xA9 |0 # CJK Ideograph
-<U92B2> \x8F\xE4\xAA |0 # CJK Ideograph
-<U92B6> \x8F\xE4\xAB |0 # CJK Ideograph
-<U92B8> \x8F\xE4\xAC |0 # CJK Ideograph
-<U92BA> \x8F\xE4\xAD |0 # CJK Ideograph
-<U92BB> \x8F\xE4\xAE |0 # CJK Ideograph
-<U92BC> \x8F\xE4\xAF |0 # CJK Ideograph
-<U92BD> \x8F\xE4\xB0 |0 # CJK Ideograph
-<U92BF> \x8F\xE4\xB1 |0 # CJK Ideograph
-<U92C0> \x8F\xE4\xB2 |0 # CJK Ideograph
-<U92C1> \x8F\xE4\xB3 |0 # CJK Ideograph
-<U92C2> \x8F\xE4\xB4 |0 # CJK Ideograph
-<U92C3> \x8F\xE4\xB5 |0 # CJK Ideograph
-<U92C5> \x8F\xE4\xB6 |0 # CJK Ideograph
-<U92C6> \x8F\xE4\xB7 |0 # CJK Ideograph
-<U92C7> \x8F\xE4\xB8 |0 # CJK Ideograph
-<U92C8> \x8F\xE4\xB9 |0 # CJK Ideograph
-<U92CB> \x8F\xE4\xBA |0 # CJK Ideograph
-<U92CC> \x8F\xE4\xBB |0 # CJK Ideograph
-<U92CD> \x8F\xE4\xBC |0 # CJK Ideograph
-<U92CE> \x8F\xE4\xBD |0 # CJK Ideograph
-<U92D0> \x8F\xE4\xBE |0 # CJK Ideograph
-<U92D3> \x8F\xE4\xBF |0 # CJK Ideograph
-<U92D5> \x8F\xE4\xC0 |0 # CJK Ideograph
-<U92D7> \x8F\xE4\xC1 |0 # CJK Ideograph
-<U92D8> \x8F\xE4\xC2 |0 # CJK Ideograph
-<U92D9> \x8F\xE4\xC3 |0 # CJK Ideograph
-<U92DC> \x8F\xE4\xC4 |0 # CJK Ideograph
-<U92DD> \x8F\xE4\xC5 |0 # CJK Ideograph
-<U92DF> \x8F\xE4\xC6 |0 # CJK Ideograph
-<U92E0> \x8F\xE4\xC7 |0 # CJK Ideograph
-<U92E1> \x8F\xE4\xC8 |0 # CJK Ideograph
-<U92E3> \x8F\xE4\xC9 |0 # CJK Ideograph
-<U92E5> \x8F\xE4\xCA |0 # CJK Ideograph
-<U92E7> \x8F\xE4\xCB |0 # CJK Ideograph
-<U92E8> \x8F\xE4\xCC |0 # CJK Ideograph
-<U92EC> \x8F\xE4\xCD |0 # CJK Ideograph
-<U92EE> \x8F\xE4\xCE |0 # CJK Ideograph
-<U92F0> \x8F\xE4\xCF |0 # CJK Ideograph
-<U92F9> \x8F\xE4\xD0 |0 # CJK Ideograph
-<U92FB> \x8F\xE4\xD1 |0 # CJK Ideograph
-<U92FF> \x8F\xE4\xD2 |0 # CJK Ideograph
-<U9300> \x8F\xE4\xD3 |0 # CJK Ideograph
-<U9302> \x8F\xE4\xD4 |0 # CJK Ideograph
-<U9308> \x8F\xE4\xD5 |0 # CJK Ideograph
-<U930D> \x8F\xE4\xD6 |0 # CJK Ideograph
-<U9311> \x8F\xE4\xD7 |0 # CJK Ideograph
-<U9314> \x8F\xE4\xD8 |0 # CJK Ideograph
-<U9315> \x8F\xE4\xD9 |0 # CJK Ideograph
-<U931C> \x8F\xE4\xDA |0 # CJK Ideograph
-<U931D> \x8F\xE4\xDB |0 # CJK Ideograph
-<U931E> \x8F\xE4\xDC |0 # CJK Ideograph
-<U931F> \x8F\xE4\xDD |0 # CJK Ideograph
-<U9321> \x8F\xE4\xDE |0 # CJK Ideograph
-<U9324> \x8F\xE4\xDF |0 # CJK Ideograph
-<U9325> \x8F\xE4\xE0 |0 # CJK Ideograph
-<U9327> \x8F\xE4\xE1 |0 # CJK Ideograph
-<U9329> \x8F\xE4\xE2 |0 # CJK Ideograph
-<U932A> \x8F\xE4\xE3 |0 # CJK Ideograph
-<U9333> \x8F\xE4\xE4 |0 # CJK Ideograph
-<U9334> \x8F\xE4\xE5 |0 # CJK Ideograph
-<U9336> \x8F\xE4\xE6 |0 # CJK Ideograph
-<U9337> \x8F\xE4\xE7 |0 # CJK Ideograph
-<U9347> \x8F\xE4\xE8 |0 # CJK Ideograph
-<U9348> \x8F\xE4\xE9 |0 # CJK Ideograph
-<U9349> \x8F\xE4\xEA |0 # CJK Ideograph
-<U9350> \x8F\xE4\xEB |0 # CJK Ideograph
-<U9351> \x8F\xE4\xEC |0 # CJK Ideograph
-<U9352> \x8F\xE4\xED |0 # CJK Ideograph
-<U9355> \x8F\xE4\xEE |0 # CJK Ideograph
-<U9357> \x8F\xE4\xEF |0 # CJK Ideograph
-<U9358> \x8F\xE4\xF0 |0 # CJK Ideograph
-<U935A> \x8F\xE4\xF1 |0 # CJK Ideograph
-<U935E> \x8F\xE4\xF2 |0 # CJK Ideograph
-<U9364> \x8F\xE4\xF3 |0 # CJK Ideograph
-<U9365> \x8F\xE4\xF4 |0 # CJK Ideograph
-<U9367> \x8F\xE4\xF5 |0 # CJK Ideograph
-<U9369> \x8F\xE4\xF6 |0 # CJK Ideograph
-<U936A> \x8F\xE4\xF7 |0 # CJK Ideograph
-<U936D> \x8F\xE4\xF8 |0 # CJK Ideograph
-<U936F> \x8F\xE4\xF9 |0 # CJK Ideograph
-<U9370> \x8F\xE4\xFA |0 # CJK Ideograph
-<U9371> \x8F\xE4\xFB |0 # CJK Ideograph
-<U9373> \x8F\xE4\xFC |0 # CJK Ideograph
-<U9374> \x8F\xE4\xFD |0 # CJK Ideograph
-<U9376> \x8F\xE4\xFE |0 # CJK Ideograph
-<U937A> \x8F\xE5\xA1 |0 # CJK Ideograph
-<U937D> \x8F\xE5\xA2 |0 # CJK Ideograph
-<U937F> \x8F\xE5\xA3 |0 # CJK Ideograph
-<U9380> \x8F\xE5\xA4 |0 # CJK Ideograph
-<U9381> \x8F\xE5\xA5 |0 # CJK Ideograph
-<U9382> \x8F\xE5\xA6 |0 # CJK Ideograph
-<U9388> \x8F\xE5\xA7 |0 # CJK Ideograph
-<U938A> \x8F\xE5\xA8 |0 # CJK Ideograph
-<U938B> \x8F\xE5\xA9 |0 # CJK Ideograph
-<U938D> \x8F\xE5\xAA |0 # CJK Ideograph
-<U938F> \x8F\xE5\xAB |0 # CJK Ideograph
-<U9392> \x8F\xE5\xAC |0 # CJK Ideograph
-<U9395> \x8F\xE5\xAD |0 # CJK Ideograph
-<U9398> \x8F\xE5\xAE |0 # CJK Ideograph
-<U939B> \x8F\xE5\xAF |0 # CJK Ideograph
-<U939E> \x8F\xE5\xB0 |0 # CJK Ideograph
-<U93A1> \x8F\xE5\xB1 |0 # CJK Ideograph
-<U93A3> \x8F\xE5\xB2 |0 # CJK Ideograph
-<U93A4> \x8F\xE5\xB3 |0 # CJK Ideograph
-<U93A6> \x8F\xE5\xB4 |0 # CJK Ideograph
-<U93A8> \x8F\xE5\xB5 |0 # CJK Ideograph
-<U93AB> \x8F\xE5\xB6 |0 # CJK Ideograph
-<U93B4> \x8F\xE5\xB7 |0 # CJK Ideograph
-<U93B5> \x8F\xE5\xB8 |0 # CJK Ideograph
-<U93B6> \x8F\xE5\xB9 |0 # CJK Ideograph
-<U93BA> \x8F\xE5\xBA |0 # CJK Ideograph
-<U93A9> \x8F\xE5\xBB |0 # CJK Ideograph
-<U93C1> \x8F\xE5\xBC |0 # CJK Ideograph
-<U93C4> \x8F\xE5\xBD |0 # CJK Ideograph
-<U93C5> \x8F\xE5\xBE |0 # CJK Ideograph
-<U93C6> \x8F\xE5\xBF |0 # CJK Ideograph
-<U93C7> \x8F\xE5\xC0 |0 # CJK Ideograph
-<U93C9> \x8F\xE5\xC1 |0 # CJK Ideograph
-<U93CA> \x8F\xE5\xC2 |0 # CJK Ideograph
-<U93CB> \x8F\xE5\xC3 |0 # CJK Ideograph
-<U93CC> \x8F\xE5\xC4 |0 # CJK Ideograph
-<U93CD> \x8F\xE5\xC5 |0 # CJK Ideograph
-<U93D3> \x8F\xE5\xC6 |0 # CJK Ideograph
-<U93D9> \x8F\xE5\xC7 |0 # CJK Ideograph
-<U93DC> \x8F\xE5\xC8 |0 # CJK Ideograph
-<U93DE> \x8F\xE5\xC9 |0 # CJK Ideograph
-<U93DF> \x8F\xE5\xCA |0 # CJK Ideograph
-<U93E2> \x8F\xE5\xCB |0 # CJK Ideograph
-<U93E6> \x8F\xE5\xCC |0 # CJK Ideograph
-<U93E7> \x8F\xE5\xCD |0 # CJK Ideograph
-<U93F9> \x8F\xE5\xCE |0 # CJK Ideograph
-<U93F7> \x8F\xE5\xCF |0 # CJK Ideograph
-<U93F8> \x8F\xE5\xD0 |0 # CJK Ideograph
-<U93FA> \x8F\xE5\xD1 |0 # CJK Ideograph
-<U93FB> \x8F\xE5\xD2 |0 # CJK Ideograph
-<U93FD> \x8F\xE5\xD3 |0 # CJK Ideograph
-<U9401> \x8F\xE5\xD4 |0 # CJK Ideograph
-<U9402> \x8F\xE5\xD5 |0 # CJK Ideograph
-<U9404> \x8F\xE5\xD6 |0 # CJK Ideograph
-<U9408> \x8F\xE5\xD7 |0 # CJK Ideograph
-<U9409> \x8F\xE5\xD8 |0 # CJK Ideograph
-<U940D> \x8F\xE5\xD9 |0 # CJK Ideograph
-<U940E> \x8F\xE5\xDA |0 # CJK Ideograph
-<U940F> \x8F\xE5\xDB |0 # CJK Ideograph
-<U9415> \x8F\xE5\xDC |0 # CJK Ideograph
-<U9416> \x8F\xE5\xDD |0 # CJK Ideograph
-<U9417> \x8F\xE5\xDE |0 # CJK Ideograph
-<U941F> \x8F\xE5\xDF |0 # CJK Ideograph
-<U942E> \x8F\xE5\xE0 |0 # CJK Ideograph
-<U942F> \x8F\xE5\xE1 |0 # CJK Ideograph
-<U9431> \x8F\xE5\xE2 |0 # CJK Ideograph
-<U9432> \x8F\xE5\xE3 |0 # CJK Ideograph
-<U9433> \x8F\xE5\xE4 |0 # CJK Ideograph
-<U9434> \x8F\xE5\xE5 |0 # CJK Ideograph
-<U943B> \x8F\xE5\xE6 |0 # CJK Ideograph
-<U943F> \x8F\xE5\xE7 |0 # CJK Ideograph
-<U943D> \x8F\xE5\xE8 |0 # CJK Ideograph
-<U9443> \x8F\xE5\xE9 |0 # CJK Ideograph
-<U9445> \x8F\xE5\xEA |0 # CJK Ideograph
-<U9448> \x8F\xE5\xEB |0 # CJK Ideograph
-<U944A> \x8F\xE5\xEC |0 # CJK Ideograph
-<U944C> \x8F\xE5\xED |0 # CJK Ideograph
-<U9455> \x8F\xE5\xEE |0 # CJK Ideograph
-<U9459> \x8F\xE5\xEF |0 # CJK Ideograph
-<U945C> \x8F\xE5\xF0 |0 # CJK Ideograph
-<U945F> \x8F\xE5\xF1 |0 # CJK Ideograph
-<U9461> \x8F\xE5\xF2 |0 # CJK Ideograph
-<U9463> \x8F\xE5\xF3 |0 # CJK Ideograph
-<U9468> \x8F\xE5\xF4 |0 # CJK Ideograph
-<U946B> \x8F\xE5\xF5 |0 # CJK Ideograph
-<U946D> \x8F\xE5\xF6 |0 # CJK Ideograph
-<U946E> \x8F\xE5\xF7 |0 # CJK Ideograph
-<U946F> \x8F\xE5\xF8 |0 # CJK Ideograph
-<U9471> \x8F\xE5\xF9 |0 # CJK Ideograph
-<U9472> \x8F\xE5\xFA |0 # CJK Ideograph
-<U9484> \x8F\xE5\xFB |0 # CJK Ideograph
-<U9483> \x8F\xE5\xFC |0 # CJK Ideograph
-<U9578> \x8F\xE5\xFD |0 # CJK Ideograph
-<U9579> \x8F\xE5\xFE |0 # CJK Ideograph
-<U957E> \x8F\xE6\xA1 |0 # CJK Ideograph
-<U9584> \x8F\xE6\xA2 |0 # CJK Ideograph
-<U9588> \x8F\xE6\xA3 |0 # CJK Ideograph
-<U958C> \x8F\xE6\xA4 |0 # CJK Ideograph
-<U958D> \x8F\xE6\xA5 |0 # CJK Ideograph
-<U958E> \x8F\xE6\xA6 |0 # CJK Ideograph
-<U959D> \x8F\xE6\xA7 |0 # CJK Ideograph
-<U959E> \x8F\xE6\xA8 |0 # CJK Ideograph
-<U959F> \x8F\xE6\xA9 |0 # CJK Ideograph
-<U95A1> \x8F\xE6\xAA |0 # CJK Ideograph
-<U95A6> \x8F\xE6\xAB |0 # CJK Ideograph
-<U95A9> \x8F\xE6\xAC |0 # CJK Ideograph
-<U95AB> \x8F\xE6\xAD |0 # CJK Ideograph
-<U95AC> \x8F\xE6\xAE |0 # CJK Ideograph
-<U95B4> \x8F\xE6\xAF |0 # CJK Ideograph
-<U95B6> \x8F\xE6\xB0 |0 # CJK Ideograph
-<U95BA> \x8F\xE6\xB1 |0 # CJK Ideograph
-<U95BD> \x8F\xE6\xB2 |0 # CJK Ideograph
-<U95BF> \x8F\xE6\xB3 |0 # CJK Ideograph
-<U95C6> \x8F\xE6\xB4 |0 # CJK Ideograph
-<U95C8> \x8F\xE6\xB5 |0 # CJK Ideograph
-<U95C9> \x8F\xE6\xB6 |0 # CJK Ideograph
-<U95CB> \x8F\xE6\xB7 |0 # CJK Ideograph
-<U95D0> \x8F\xE6\xB8 |0 # CJK Ideograph
-<U95D1> \x8F\xE6\xB9 |0 # CJK Ideograph
-<U95D2> \x8F\xE6\xBA |0 # CJK Ideograph
-<U95D3> \x8F\xE6\xBB |0 # CJK Ideograph
-<U95D9> \x8F\xE6\xBC |0 # CJK Ideograph
-<U95DA> \x8F\xE6\xBD |0 # CJK Ideograph
-<U95DD> \x8F\xE6\xBE |0 # CJK Ideograph
-<U95DE> \x8F\xE6\xBF |0 # CJK Ideograph
-<U95DF> \x8F\xE6\xC0 |0 # CJK Ideograph
-<U95E0> \x8F\xE6\xC1 |0 # CJK Ideograph
-<U95E4> \x8F\xE6\xC2 |0 # CJK Ideograph
-<U95E6> \x8F\xE6\xC3 |0 # CJK Ideograph
-<U961D> \x8F\xE6\xC4 |0 # CJK Ideograph
-<U961E> \x8F\xE6\xC5 |0 # CJK Ideograph
-<U9622> \x8F\xE6\xC6 |0 # CJK Ideograph
-<U9624> \x8F\xE6\xC7 |0 # CJK Ideograph
-<U9625> \x8F\xE6\xC8 |0 # CJK Ideograph
-<U9626> \x8F\xE6\xC9 |0 # CJK Ideograph
-<U962C> \x8F\xE6\xCA |0 # CJK Ideograph
-<U9631> \x8F\xE6\xCB |0 # CJK Ideograph
-<U9633> \x8F\xE6\xCC |0 # CJK Ideograph
-<U9637> \x8F\xE6\xCD |0 # CJK Ideograph
-<U9638> \x8F\xE6\xCE |0 # CJK Ideograph
-<U9639> \x8F\xE6\xCF |0 # CJK Ideograph
-<U963A> \x8F\xE6\xD0 |0 # CJK Ideograph
-<U963C> \x8F\xE6\xD1 |0 # CJK Ideograph
-<U963D> \x8F\xE6\xD2 |0 # CJK Ideograph
-<U9641> \x8F\xE6\xD3 |0 # CJK Ideograph
-<U9652> \x8F\xE6\xD4 |0 # CJK Ideograph
-<U9654> \x8F\xE6\xD5 |0 # CJK Ideograph
-<U9656> \x8F\xE6\xD6 |0 # CJK Ideograph
-<U9657> \x8F\xE6\xD7 |0 # CJK Ideograph
-<U9658> \x8F\xE6\xD8 |0 # CJK Ideograph
-<U9661> \x8F\xE6\xD9 |0 # CJK Ideograph
-<U966E> \x8F\xE6\xDA |0 # CJK Ideograph
-<U9674> \x8F\xE6\xDB |0 # CJK Ideograph
-<U967B> \x8F\xE6\xDC |0 # CJK Ideograph
-<U967C> \x8F\xE6\xDD |0 # CJK Ideograph
-<U967E> \x8F\xE6\xDE |0 # CJK Ideograph
-<U967F> \x8F\xE6\xDF |0 # CJK Ideograph
-<U9681> \x8F\xE6\xE0 |0 # CJK Ideograph
-<U9682> \x8F\xE6\xE1 |0 # CJK Ideograph
-<U9683> \x8F\xE6\xE2 |0 # CJK Ideograph
-<U9684> \x8F\xE6\xE3 |0 # CJK Ideograph
-<U9689> \x8F\xE6\xE4 |0 # CJK Ideograph
-<U9691> \x8F\xE6\xE5 |0 # CJK Ideograph
-<U9696> \x8F\xE6\xE6 |0 # CJK Ideograph
-<U969A> \x8F\xE6\xE7 |0 # CJK Ideograph
-<U969D> \x8F\xE6\xE8 |0 # CJK Ideograph
-<U969F> \x8F\xE6\xE9 |0 # CJK Ideograph
-<U96A4> \x8F\xE6\xEA |0 # CJK Ideograph
-<U96A5> \x8F\xE6\xEB |0 # CJK Ideograph
-<U96A6> \x8F\xE6\xEC |0 # CJK Ideograph
-<U96A9> \x8F\xE6\xED |0 # CJK Ideograph
-<U96AE> \x8F\xE6\xEE |0 # CJK Ideograph
-<U96AF> \x8F\xE6\xEF |0 # CJK Ideograph
-<U96B3> \x8F\xE6\xF0 |0 # CJK Ideograph
-<U96BA> \x8F\xE6\xF1 |0 # CJK Ideograph
-<U96CA> \x8F\xE6\xF2 |0 # CJK Ideograph
-<U96D2> \x8F\xE6\xF3 |0 # CJK Ideograph
-<U5DB2> \x8F\xE6\xF4 |0 # CJK Ideograph
-<U96D8> \x8F\xE6\xF5 |0 # CJK Ideograph
-<U96DA> \x8F\xE6\xF6 |0 # CJK Ideograph
-<U96DD> \x8F\xE6\xF7 |0 # CJK Ideograph
-<U96DE> \x8F\xE6\xF8 |0 # CJK Ideograph
-<U96DF> \x8F\xE6\xF9 |0 # CJK Ideograph
-<U96E9> \x8F\xE6\xFA |0 # CJK Ideograph
-<U96EF> \x8F\xE6\xFB |0 # CJK Ideograph
-<U96F1> \x8F\xE6\xFC |0 # CJK Ideograph
-<U96FA> \x8F\xE6\xFD |0 # CJK Ideograph
-<U9702> \x8F\xE6\xFE |0 # CJK Ideograph
-<U9703> \x8F\xE7\xA1 |0 # CJK Ideograph
-<U9705> \x8F\xE7\xA2 |0 # CJK Ideograph
-<U9709> \x8F\xE7\xA3 |0 # CJK Ideograph
-<U971A> \x8F\xE7\xA4 |0 # CJK Ideograph
-<U971B> \x8F\xE7\xA5 |0 # CJK Ideograph
-<U971D> \x8F\xE7\xA6 |0 # CJK Ideograph
-<U9721> \x8F\xE7\xA7 |0 # CJK Ideograph
-<U9722> \x8F\xE7\xA8 |0 # CJK Ideograph
-<U9723> \x8F\xE7\xA9 |0 # CJK Ideograph
-<U9728> \x8F\xE7\xAA |0 # CJK Ideograph
-<U9731> \x8F\xE7\xAB |0 # CJK Ideograph
-<U9733> \x8F\xE7\xAC |0 # CJK Ideograph
-<U9741> \x8F\xE7\xAD |0 # CJK Ideograph
-<U9743> \x8F\xE7\xAE |0 # CJK Ideograph
-<U974A> \x8F\xE7\xAF |0 # CJK Ideograph
-<U974E> \x8F\xE7\xB0 |0 # CJK Ideograph
-<U974F> \x8F\xE7\xB1 |0 # CJK Ideograph
-<U9755> \x8F\xE7\xB2 |0 # CJK Ideograph
-<U9757> \x8F\xE7\xB3 |0 # CJK Ideograph
-<U9758> \x8F\xE7\xB4 |0 # CJK Ideograph
-<U975A> \x8F\xE7\xB5 |0 # CJK Ideograph
-<U975B> \x8F\xE7\xB6 |0 # CJK Ideograph
-<U9763> \x8F\xE7\xB7 |0 # CJK Ideograph
-<U9767> \x8F\xE7\xB8 |0 # CJK Ideograph
-<U976A> \x8F\xE7\xB9 |0 # CJK Ideograph
-<U976E> \x8F\xE7\xBA |0 # CJK Ideograph
-<U9773> \x8F\xE7\xBB |0 # CJK Ideograph
-<U9776> \x8F\xE7\xBC |0 # CJK Ideograph
-<U9777> \x8F\xE7\xBD |0 # CJK Ideograph
-<U9778> \x8F\xE7\xBE |0 # CJK Ideograph
-<U977B> \x8F\xE7\xBF |0 # CJK Ideograph
-<U977D> \x8F\xE7\xC0 |0 # CJK Ideograph
-<U977F> \x8F\xE7\xC1 |0 # CJK Ideograph
-<U9780> \x8F\xE7\xC2 |0 # CJK Ideograph
-<U9789> \x8F\xE7\xC3 |0 # CJK Ideograph
-<U9795> \x8F\xE7\xC4 |0 # CJK Ideograph
-<U9796> \x8F\xE7\xC5 |0 # CJK Ideograph
-<U9797> \x8F\xE7\xC6 |0 # CJK Ideograph
-<U9799> \x8F\xE7\xC7 |0 # CJK Ideograph
-<U979A> \x8F\xE7\xC8 |0 # CJK Ideograph
-<U979E> \x8F\xE7\xC9 |0 # CJK Ideograph
-<U979F> \x8F\xE7\xCA |0 # CJK Ideograph
-<U97A2> \x8F\xE7\xCB |0 # CJK Ideograph
-<U97AC> \x8F\xE7\xCC |0 # CJK Ideograph
-<U97AE> \x8F\xE7\xCD |0 # CJK Ideograph
-<U97B1> \x8F\xE7\xCE |0 # CJK Ideograph
-<U97B2> \x8F\xE7\xCF |0 # CJK Ideograph
-<U97B5> \x8F\xE7\xD0 |0 # CJK Ideograph
-<U97B6> \x8F\xE7\xD1 |0 # CJK Ideograph
-<U97B8> \x8F\xE7\xD2 |0 # CJK Ideograph
-<U97B9> \x8F\xE7\xD3 |0 # CJK Ideograph
-<U97BA> \x8F\xE7\xD4 |0 # CJK Ideograph
-<U97BC> \x8F\xE7\xD5 |0 # CJK Ideograph
-<U97BE> \x8F\xE7\xD6 |0 # CJK Ideograph
-<U97BF> \x8F\xE7\xD7 |0 # CJK Ideograph
-<U97C1> \x8F\xE7\xD8 |0 # CJK Ideograph
-<U97C4> \x8F\xE7\xD9 |0 # CJK Ideograph
-<U97C5> \x8F\xE7\xDA |0 # CJK Ideograph
-<U97C7> \x8F\xE7\xDB |0 # CJK Ideograph
-<U97C9> \x8F\xE7\xDC |0 # CJK Ideograph
-<U97CA> \x8F\xE7\xDD |0 # CJK Ideograph
-<U97CC> \x8F\xE7\xDE |0 # CJK Ideograph
-<U97CD> \x8F\xE7\xDF |0 # CJK Ideograph
-<U97CE> \x8F\xE7\xE0 |0 # CJK Ideograph
-<U97D0> \x8F\xE7\xE1 |0 # CJK Ideograph
-<U97D1> \x8F\xE7\xE2 |0 # CJK Ideograph
-<U97D4> \x8F\xE7\xE3 |0 # CJK Ideograph
-<U97D7> \x8F\xE7\xE4 |0 # CJK Ideograph
-<U97D8> \x8F\xE7\xE5 |0 # CJK Ideograph
-<U97D9> \x8F\xE7\xE6 |0 # CJK Ideograph
-<U97DD> \x8F\xE7\xE7 |0 # CJK Ideograph
-<U97DE> \x8F\xE7\xE8 |0 # CJK Ideograph
-<U97E0> \x8F\xE7\xE9 |0 # CJK Ideograph
-<U97DB> \x8F\xE7\xEA |0 # CJK Ideograph
-<U97E1> \x8F\xE7\xEB |0 # CJK Ideograph
-<U97E4> \x8F\xE7\xEC |0 # CJK Ideograph
-<U97EF> \x8F\xE7\xED |0 # CJK Ideograph
-<U97F1> \x8F\xE7\xEE |0 # CJK Ideograph
-<U97F4> \x8F\xE7\xEF |0 # CJK Ideograph
-<U97F7> \x8F\xE7\xF0 |0 # CJK Ideograph
-<U97F8> \x8F\xE7\xF1 |0 # CJK Ideograph
-<U97FA> \x8F\xE7\xF2 |0 # CJK Ideograph
-<U9807> \x8F\xE7\xF3 |0 # CJK Ideograph
-<U980A> \x8F\xE7\xF4 |0 # CJK Ideograph
-<U9819> \x8F\xE7\xF5 |0 # CJK Ideograph
-<U980D> \x8F\xE7\xF6 |0 # CJK Ideograph
-<U980E> \x8F\xE7\xF7 |0 # CJK Ideograph
-<U9814> \x8F\xE7\xF8 |0 # CJK Ideograph
-<U9816> \x8F\xE7\xF9 |0 # CJK Ideograph
-<U981C> \x8F\xE7\xFA |0 # CJK Ideograph
-<U981E> \x8F\xE7\xFB |0 # CJK Ideograph
-<U9820> \x8F\xE7\xFC |0 # CJK Ideograph
-<U9823> \x8F\xE7\xFD |0 # CJK Ideograph
-<U9826> \x8F\xE7\xFE |0 # CJK Ideograph
-<U982B> \x8F\xE8\xA1 |0 # CJK Ideograph
-<U982E> \x8F\xE8\xA2 |0 # CJK Ideograph
-<U982F> \x8F\xE8\xA3 |0 # CJK Ideograph
-<U9830> \x8F\xE8\xA4 |0 # CJK Ideograph
-<U9832> \x8F\xE8\xA5 |0 # CJK Ideograph
-<U9833> \x8F\xE8\xA6 |0 # CJK Ideograph
-<U9835> \x8F\xE8\xA7 |0 # CJK Ideograph
-<U9825> \x8F\xE8\xA8 |0 # CJK Ideograph
-<U983E> \x8F\xE8\xA9 |0 # CJK Ideograph
-<U9844> \x8F\xE8\xAA |0 # CJK Ideograph
-<U9847> \x8F\xE8\xAB |0 # CJK Ideograph
-<U984A> \x8F\xE8\xAC |0 # CJK Ideograph
-<U9851> \x8F\xE8\xAD |0 # CJK Ideograph
-<U9852> \x8F\xE8\xAE |0 # CJK Ideograph
-<U9853> \x8F\xE8\xAF |0 # CJK Ideograph
-<U9856> \x8F\xE8\xB0 |0 # CJK Ideograph
-<U9857> \x8F\xE8\xB1 |0 # CJK Ideograph
-<U9859> \x8F\xE8\xB2 |0 # CJK Ideograph
-<U985A> \x8F\xE8\xB3 |0 # CJK Ideograph
-<U9862> \x8F\xE8\xB4 |0 # CJK Ideograph
-<U9863> \x8F\xE8\xB5 |0 # CJK Ideograph
-<U9865> \x8F\xE8\xB6 |0 # CJK Ideograph
-<U9866> \x8F\xE8\xB7 |0 # CJK Ideograph
-<U986A> \x8F\xE8\xB8 |0 # CJK Ideograph
-<U986C> \x8F\xE8\xB9 |0 # CJK Ideograph
-<U98AB> \x8F\xE8\xBA |0 # CJK Ideograph
-<U98AD> \x8F\xE8\xBB |0 # CJK Ideograph
-<U98AE> \x8F\xE8\xBC |0 # CJK Ideograph
-<U98B0> \x8F\xE8\xBD |0 # CJK Ideograph
-<U98B4> \x8F\xE8\xBE |0 # CJK Ideograph
-<U98B7> \x8F\xE8\xBF |0 # CJK Ideograph
-<U98B8> \x8F\xE8\xC0 |0 # CJK Ideograph
-<U98BA> \x8F\xE8\xC1 |0 # CJK Ideograph
-<U98BB> \x8F\xE8\xC2 |0 # CJK Ideograph
-<U98BF> \x8F\xE8\xC3 |0 # CJK Ideograph
-<U98C2> \x8F\xE8\xC4 |0 # CJK Ideograph
-<U98C5> \x8F\xE8\xC5 |0 # CJK Ideograph
-<U98C8> \x8F\xE8\xC6 |0 # CJK Ideograph
-<U98CC> \x8F\xE8\xC7 |0 # CJK Ideograph
-<U98E1> \x8F\xE8\xC8 |0 # CJK Ideograph
-<U98E3> \x8F\xE8\xC9 |0 # CJK Ideograph
-<U98E5> \x8F\xE8\xCA |0 # CJK Ideograph
-<U98E6> \x8F\xE8\xCB |0 # CJK Ideograph
-<U98E7> \x8F\xE8\xCC |0 # CJK Ideograph
-<U98EA> \x8F\xE8\xCD |0 # CJK Ideograph
-<U98F3> \x8F\xE8\xCE |0 # CJK Ideograph
-<U98F6> \x8F\xE8\xCF |0 # CJK Ideograph
-<U9902> \x8F\xE8\xD0 |0 # CJK Ideograph
-<U9907> \x8F\xE8\xD1 |0 # CJK Ideograph
-<U9908> \x8F\xE8\xD2 |0 # CJK Ideograph
-<U9911> \x8F\xE8\xD3 |0 # CJK Ideograph
-<U9915> \x8F\xE8\xD4 |0 # CJK Ideograph
-<U9916> \x8F\xE8\xD5 |0 # CJK Ideograph
-<U9917> \x8F\xE8\xD6 |0 # CJK Ideograph
-<U991A> \x8F\xE8\xD7 |0 # CJK Ideograph
-<U991B> \x8F\xE8\xD8 |0 # CJK Ideograph
-<U991C> \x8F\xE8\xD9 |0 # CJK Ideograph
-<U991F> \x8F\xE8\xDA |0 # CJK Ideograph
-<U9922> \x8F\xE8\xDB |0 # CJK Ideograph
-<U9926> \x8F\xE8\xDC |0 # CJK Ideograph
-<U9927> \x8F\xE8\xDD |0 # CJK Ideograph
-<U992B> \x8F\xE8\xDE |0 # CJK Ideograph
-<U9931> \x8F\xE8\xDF |0 # CJK Ideograph
-<U9932> \x8F\xE8\xE0 |0 # CJK Ideograph
-<U9933> \x8F\xE8\xE1 |0 # CJK Ideograph
-<U9934> \x8F\xE8\xE2 |0 # CJK Ideograph
-<U9935> \x8F\xE8\xE3 |0 # CJK Ideograph
-<U9939> \x8F\xE8\xE4 |0 # CJK Ideograph
-<U993A> \x8F\xE8\xE5 |0 # CJK Ideograph
-<U993B> \x8F\xE8\xE6 |0 # CJK Ideograph
-<U993C> \x8F\xE8\xE7 |0 # CJK Ideograph
-<U9940> \x8F\xE8\xE8 |0 # CJK Ideograph
-<U9941> \x8F\xE8\xE9 |0 # CJK Ideograph
-<U9946> \x8F\xE8\xEA |0 # CJK Ideograph
-<U9947> \x8F\xE8\xEB |0 # CJK Ideograph
-<U9948> \x8F\xE8\xEC |0 # CJK Ideograph
-<U994D> \x8F\xE8\xED |0 # CJK Ideograph
-<U994E> \x8F\xE8\xEE |0 # CJK Ideograph
-<U9954> \x8F\xE8\xEF |0 # CJK Ideograph
-<U9958> \x8F\xE8\xF0 |0 # CJK Ideograph
-<U9959> \x8F\xE8\xF1 |0 # CJK Ideograph
-<U995B> \x8F\xE8\xF2 |0 # CJK Ideograph
-<U995C> \x8F\xE8\xF3 |0 # CJK Ideograph
-<U995E> \x8F\xE8\xF4 |0 # CJK Ideograph
-<U995F> \x8F\xE8\xF5 |0 # CJK Ideograph
-<U9960> \x8F\xE8\xF6 |0 # CJK Ideograph
-<U999B> \x8F\xE8\xF7 |0 # CJK Ideograph
-<U999D> \x8F\xE8\xF8 |0 # CJK Ideograph
-<U999F> \x8F\xE8\xF9 |0 # CJK Ideograph
-<U99A6> \x8F\xE8\xFA |0 # CJK Ideograph
-<U99B0> \x8F\xE8\xFB |0 # CJK Ideograph
-<U99B1> \x8F\xE8\xFC |0 # CJK Ideograph
-<U99B2> \x8F\xE8\xFD |0 # CJK Ideograph
-<U99B5> \x8F\xE8\xFE |0 # CJK Ideograph
-<U99B9> \x8F\xE9\xA1 |0 # CJK Ideograph
-<U99BA> \x8F\xE9\xA2 |0 # CJK Ideograph
-<U99BD> \x8F\xE9\xA3 |0 # CJK Ideograph
-<U99BF> \x8F\xE9\xA4 |0 # CJK Ideograph
-<U99C3> \x8F\xE9\xA5 |0 # CJK Ideograph
-<U99C9> \x8F\xE9\xA6 |0 # CJK Ideograph
-<U99D3> \x8F\xE9\xA7 |0 # CJK Ideograph
-<U99D4> \x8F\xE9\xA8 |0 # CJK Ideograph
-<U99D9> \x8F\xE9\xA9 |0 # CJK Ideograph
-<U99DA> \x8F\xE9\xAA |0 # CJK Ideograph
-<U99DC> \x8F\xE9\xAB |0 # CJK Ideograph
-<U99DE> \x8F\xE9\xAC |0 # CJK Ideograph
-<U99E7> \x8F\xE9\xAD |0 # CJK Ideograph
-<U99EA> \x8F\xE9\xAE |0 # CJK Ideograph
-<U99EB> \x8F\xE9\xAF |0 # CJK Ideograph
-<U99EC> \x8F\xE9\xB0 |0 # CJK Ideograph
-<U99F0> \x8F\xE9\xB1 |0 # CJK Ideograph
-<U99F4> \x8F\xE9\xB2 |0 # CJK Ideograph
-<U99F5> \x8F\xE9\xB3 |0 # CJK Ideograph
-<U99F9> \x8F\xE9\xB4 |0 # CJK Ideograph
-<U99FD> \x8F\xE9\xB5 |0 # CJK Ideograph
-<U99FE> \x8F\xE9\xB6 |0 # CJK Ideograph
-<U9A02> \x8F\xE9\xB7 |0 # CJK Ideograph
-<U9A03> \x8F\xE9\xB8 |0 # CJK Ideograph
-<U9A04> \x8F\xE9\xB9 |0 # CJK Ideograph
-<U9A0B> \x8F\xE9\xBA |0 # CJK Ideograph
-<U9A0C> \x8F\xE9\xBB |0 # CJK Ideograph
-<U9A10> \x8F\xE9\xBC |0 # CJK Ideograph
-<U9A11> \x8F\xE9\xBD |0 # CJK Ideograph
-<U9A16> \x8F\xE9\xBE |0 # CJK Ideograph
-<U9A1E> \x8F\xE9\xBF |0 # CJK Ideograph
-<U9A20> \x8F\xE9\xC0 |0 # CJK Ideograph
-<U9A22> \x8F\xE9\xC1 |0 # CJK Ideograph
-<U9A23> \x8F\xE9\xC2 |0 # CJK Ideograph
-<U9A24> \x8F\xE9\xC3 |0 # CJK Ideograph
-<U9A27> \x8F\xE9\xC4 |0 # CJK Ideograph
-<U9A2D> \x8F\xE9\xC5 |0 # CJK Ideograph
-<U9A2E> \x8F\xE9\xC6 |0 # CJK Ideograph
-<U9A33> \x8F\xE9\xC7 |0 # CJK Ideograph
-<U9A35> \x8F\xE9\xC8 |0 # CJK Ideograph
-<U9A36> \x8F\xE9\xC9 |0 # CJK Ideograph
-<U9A38> \x8F\xE9\xCA |0 # CJK Ideograph
-<U9A47> \x8F\xE9\xCB |0 # CJK Ideograph
-<U9A41> \x8F\xE9\xCC |0 # CJK Ideograph
-<U9A44> \x8F\xE9\xCD |0 # CJK Ideograph
-<U9A4A> \x8F\xE9\xCE |0 # CJK Ideograph
-<U9A4B> \x8F\xE9\xCF |0 # CJK Ideograph
-<U9A4C> \x8F\xE9\xD0 |0 # CJK Ideograph
-<U9A4E> \x8F\xE9\xD1 |0 # CJK Ideograph
-<U9A51> \x8F\xE9\xD2 |0 # CJK Ideograph
-<U9A54> \x8F\xE9\xD3 |0 # CJK Ideograph
-<U9A56> \x8F\xE9\xD4 |0 # CJK Ideograph
-<U9A5D> \x8F\xE9\xD5 |0 # CJK Ideograph
-<U9AAA> \x8F\xE9\xD6 |0 # CJK Ideograph
-<U9AAC> \x8F\xE9\xD7 |0 # CJK Ideograph
-<U9AAE> \x8F\xE9\xD8 |0 # CJK Ideograph
-<U9AAF> \x8F\xE9\xD9 |0 # CJK Ideograph
-<U9AB2> \x8F\xE9\xDA |0 # CJK Ideograph
-<U9AB4> \x8F\xE9\xDB |0 # CJK Ideograph
-<U9AB5> \x8F\xE9\xDC |0 # CJK Ideograph
-<U9AB6> \x8F\xE9\xDD |0 # CJK Ideograph
-<U9AB9> \x8F\xE9\xDE |0 # CJK Ideograph
-<U9ABB> \x8F\xE9\xDF |0 # CJK Ideograph
-<U9ABE> \x8F\xE9\xE0 |0 # CJK Ideograph
-<U9ABF> \x8F\xE9\xE1 |0 # CJK Ideograph
-<U9AC1> \x8F\xE9\xE2 |0 # CJK Ideograph
-<U9AC3> \x8F\xE9\xE3 |0 # CJK Ideograph
-<U9AC6> \x8F\xE9\xE4 |0 # CJK Ideograph
-<U9AC8> \x8F\xE9\xE5 |0 # CJK Ideograph
-<U9ACE> \x8F\xE9\xE6 |0 # CJK Ideograph
-<U9AD0> \x8F\xE9\xE7 |0 # CJK Ideograph
-<U9AD2> \x8F\xE9\xE8 |0 # CJK Ideograph
-<U9AD5> \x8F\xE9\xE9 |0 # CJK Ideograph
-<U9AD6> \x8F\xE9\xEA |0 # CJK Ideograph
-<U9AD7> \x8F\xE9\xEB |0 # CJK Ideograph
-<U9ADB> \x8F\xE9\xEC |0 # CJK Ideograph
-<U9ADC> \x8F\xE9\xED |0 # CJK Ideograph
-<U9AE0> \x8F\xE9\xEE |0 # CJK Ideograph
-<U9AE4> \x8F\xE9\xEF |0 # CJK Ideograph
-<U9AE5> \x8F\xE9\xF0 |0 # CJK Ideograph
-<U9AE7> \x8F\xE9\xF1 |0 # CJK Ideograph
-<U9AE9> \x8F\xE9\xF2 |0 # CJK Ideograph
-<U9AEC> \x8F\xE9\xF3 |0 # CJK Ideograph
-<U9AF2> \x8F\xE9\xF4 |0 # CJK Ideograph
-<U9AF3> \x8F\xE9\xF5 |0 # CJK Ideograph
-<U9AF5> \x8F\xE9\xF6 |0 # CJK Ideograph
-<U9AF9> \x8F\xE9\xF7 |0 # CJK Ideograph
-<U9AFA> \x8F\xE9\xF8 |0 # CJK Ideograph
-<U9AFD> \x8F\xE9\xF9 |0 # CJK Ideograph
-<U9AFF> \x8F\xE9\xFA |0 # CJK Ideograph
-<U9B00> \x8F\xE9\xFB |0 # CJK Ideograph
-<U9B01> \x8F\xE9\xFC |0 # CJK Ideograph
-<U9B02> \x8F\xE9\xFD |0 # CJK Ideograph
-<U9B03> \x8F\xE9\xFE |0 # CJK Ideograph
-<U9B04> \x8F\xEA\xA1 |0 # CJK Ideograph
-<U9B05> \x8F\xEA\xA2 |0 # CJK Ideograph
-<U9B08> \x8F\xEA\xA3 |0 # CJK Ideograph
-<U9B09> \x8F\xEA\xA4 |0 # CJK Ideograph
-<U9B0B> \x8F\xEA\xA5 |0 # CJK Ideograph
-<U9B0C> \x8F\xEA\xA6 |0 # CJK Ideograph
-<U9B0D> \x8F\xEA\xA7 |0 # CJK Ideograph
-<U9B0E> \x8F\xEA\xA8 |0 # CJK Ideograph
-<U9B10> \x8F\xEA\xA9 |0 # CJK Ideograph
-<U9B12> \x8F\xEA\xAA |0 # CJK Ideograph
-<U9B16> \x8F\xEA\xAB |0 # CJK Ideograph
-<U9B19> \x8F\xEA\xAC |0 # CJK Ideograph
-<U9B1B> \x8F\xEA\xAD |0 # CJK Ideograph
-<U9B1C> \x8F\xEA\xAE |0 # CJK Ideograph
-<U9B20> \x8F\xEA\xAF |0 # CJK Ideograph
-<U9B26> \x8F\xEA\xB0 |0 # CJK Ideograph
-<U9B2B> \x8F\xEA\xB1 |0 # CJK Ideograph
-<U9B2D> \x8F\xEA\xB2 |0 # CJK Ideograph
-<U9B33> \x8F\xEA\xB3 |0 # CJK Ideograph
-<U9B34> \x8F\xEA\xB4 |0 # CJK Ideograph
-<U9B35> \x8F\xEA\xB5 |0 # CJK Ideograph
-<U9B37> \x8F\xEA\xB6 |0 # CJK Ideograph
-<U9B39> \x8F\xEA\xB7 |0 # CJK Ideograph
-<U9B3A> \x8F\xEA\xB8 |0 # CJK Ideograph
-<U9B3D> \x8F\xEA\xB9 |0 # CJK Ideograph
-<U9B48> \x8F\xEA\xBA |0 # CJK Ideograph
-<U9B4B> \x8F\xEA\xBB |0 # CJK Ideograph
-<U9B4C> \x8F\xEA\xBC |0 # CJK Ideograph
-<U9B55> \x8F\xEA\xBD |0 # CJK Ideograph
-<U9B56> \x8F\xEA\xBE |0 # CJK Ideograph
-<U9B57> \x8F\xEA\xBF |0 # CJK Ideograph
-<U9B5B> \x8F\xEA\xC0 |0 # CJK Ideograph
-<U9B5E> \x8F\xEA\xC1 |0 # CJK Ideograph
-<U9B61> \x8F\xEA\xC2 |0 # CJK Ideograph
-<U9B63> \x8F\xEA\xC3 |0 # CJK Ideograph
-<U9B65> \x8F\xEA\xC4 |0 # CJK Ideograph
-<U9B66> \x8F\xEA\xC5 |0 # CJK Ideograph
-<U9B68> \x8F\xEA\xC6 |0 # CJK Ideograph
-<U9B6A> \x8F\xEA\xC7 |0 # CJK Ideograph
-<U9B6B> \x8F\xEA\xC8 |0 # CJK Ideograph
-<U9B6C> \x8F\xEA\xC9 |0 # CJK Ideograph
-<U9B6D> \x8F\xEA\xCA |0 # CJK Ideograph
-<U9B6E> \x8F\xEA\xCB |0 # CJK Ideograph
-<U9B73> \x8F\xEA\xCC |0 # CJK Ideograph
-<U9B75> \x8F\xEA\xCD |0 # CJK Ideograph
-<U9B77> \x8F\xEA\xCE |0 # CJK Ideograph
-<U9B78> \x8F\xEA\xCF |0 # CJK Ideograph
-<U9B79> \x8F\xEA\xD0 |0 # CJK Ideograph
-<U9B7F> \x8F\xEA\xD1 |0 # CJK Ideograph
-<U9B80> \x8F\xEA\xD2 |0 # CJK Ideograph
-<U9B84> \x8F\xEA\xD3 |0 # CJK Ideograph
-<U9B85> \x8F\xEA\xD4 |0 # CJK Ideograph
-<U9B86> \x8F\xEA\xD5 |0 # CJK Ideograph
-<U9B87> \x8F\xEA\xD6 |0 # CJK Ideograph
-<U9B89> \x8F\xEA\xD7 |0 # CJK Ideograph
-<U9B8A> \x8F\xEA\xD8 |0 # CJK Ideograph
-<U9B8B> \x8F\xEA\xD9 |0 # CJK Ideograph
-<U9B8D> \x8F\xEA\xDA |0 # CJK Ideograph
-<U9B8F> \x8F\xEA\xDB |0 # CJK Ideograph
-<U9B90> \x8F\xEA\xDC |0 # CJK Ideograph
-<U9B94> \x8F\xEA\xDD |0 # CJK Ideograph
-<U9B9A> \x8F\xEA\xDE |0 # CJK Ideograph
-<U9B9D> \x8F\xEA\xDF |0 # CJK Ideograph
-<U9B9E> \x8F\xEA\xE0 |0 # CJK Ideograph
-<U9BA6> \x8F\xEA\xE1 |0 # CJK Ideograph
-<U9BA7> \x8F\xEA\xE2 |0 # CJK Ideograph
-<U9BA9> \x8F\xEA\xE3 |0 # CJK Ideograph
-<U9BAC> \x8F\xEA\xE4 |0 # CJK Ideograph
-<U9BB0> \x8F\xEA\xE5 |0 # CJK Ideograph
-<U9BB1> \x8F\xEA\xE6 |0 # CJK Ideograph
-<U9BB2> \x8F\xEA\xE7 |0 # CJK Ideograph
-<U9BB7> \x8F\xEA\xE8 |0 # CJK Ideograph
-<U9BB8> \x8F\xEA\xE9 |0 # CJK Ideograph
-<U9BBB> \x8F\xEA\xEA |0 # CJK Ideograph
-<U9BBC> \x8F\xEA\xEB |0 # CJK Ideograph
-<U9BBE> \x8F\xEA\xEC |0 # CJK Ideograph
-<U9BBF> \x8F\xEA\xED |0 # CJK Ideograph
-<U9BC1> \x8F\xEA\xEE |0 # CJK Ideograph
-<U9BC7> \x8F\xEA\xEF |0 # CJK Ideograph
-<U9BC8> \x8F\xEA\xF0 |0 # CJK Ideograph
-<U9BCE> \x8F\xEA\xF1 |0 # CJK Ideograph
-<U9BD0> \x8F\xEA\xF2 |0 # CJK Ideograph
-<U9BD7> \x8F\xEA\xF3 |0 # CJK Ideograph
-<U9BD8> \x8F\xEA\xF4 |0 # CJK Ideograph
-<U9BDD> \x8F\xEA\xF5 |0 # CJK Ideograph
-<U9BDF> \x8F\xEA\xF6 |0 # CJK Ideograph
-<U9BE5> \x8F\xEA\xF7 |0 # CJK Ideograph
-<U9BE7> \x8F\xEA\xF8 |0 # CJK Ideograph
-<U9BEA> \x8F\xEA\xF9 |0 # CJK Ideograph
-<U9BEB> \x8F\xEA\xFA |0 # CJK Ideograph
-<U9BEF> \x8F\xEA\xFB |0 # CJK Ideograph
-<U9BF3> \x8F\xEA\xFC |0 # CJK Ideograph
-<U9BF7> \x8F\xEA\xFD |0 # CJK Ideograph
-<U9BF8> \x8F\xEA\xFE |0 # CJK Ideograph
-<U9BF9> \x8F\xEB\xA1 |0 # CJK Ideograph
-<U9BFA> \x8F\xEB\xA2 |0 # CJK Ideograph
-<U9BFD> \x8F\xEB\xA3 |0 # CJK Ideograph
-<U9BFF> \x8F\xEB\xA4 |0 # CJK Ideograph
-<U9C00> \x8F\xEB\xA5 |0 # CJK Ideograph
-<U9C02> \x8F\xEB\xA6 |0 # CJK Ideograph
-<U9C0B> \x8F\xEB\xA7 |0 # CJK Ideograph
-<U9C0F> \x8F\xEB\xA8 |0 # CJK Ideograph
-<U9C11> \x8F\xEB\xA9 |0 # CJK Ideograph
-<U9C16> \x8F\xEB\xAA |0 # CJK Ideograph
-<U9C18> \x8F\xEB\xAB |0 # CJK Ideograph
-<U9C19> \x8F\xEB\xAC |0 # CJK Ideograph
-<U9C1A> \x8F\xEB\xAD |0 # CJK Ideograph
-<U9C1C> \x8F\xEB\xAE |0 # CJK Ideograph
-<U9C1E> \x8F\xEB\xAF |0 # CJK Ideograph
-<U9C22> \x8F\xEB\xB0 |0 # CJK Ideograph
-<U9C23> \x8F\xEB\xB1 |0 # CJK Ideograph
-<U9C26> \x8F\xEB\xB2 |0 # CJK Ideograph
-<U9C27> \x8F\xEB\xB3 |0 # CJK Ideograph
-<U9C28> \x8F\xEB\xB4 |0 # CJK Ideograph
-<U9C29> \x8F\xEB\xB5 |0 # CJK Ideograph
-<U9C2A> \x8F\xEB\xB6 |0 # CJK Ideograph
-<U9C31> \x8F\xEB\xB7 |0 # CJK Ideograph
-<U9C35> \x8F\xEB\xB8 |0 # CJK Ideograph
-<U9C36> \x8F\xEB\xB9 |0 # CJK Ideograph
-<U9C37> \x8F\xEB\xBA |0 # CJK Ideograph
-<U9C3D> \x8F\xEB\xBB |0 # CJK Ideograph
-<U9C41> \x8F\xEB\xBC |0 # CJK Ideograph
-<U9C43> \x8F\xEB\xBD |0 # CJK Ideograph
-<U9C44> \x8F\xEB\xBE |0 # CJK Ideograph
-<U9C45> \x8F\xEB\xBF |0 # CJK Ideograph
-<U9C49> \x8F\xEB\xC0 |0 # CJK Ideograph
-<U9C4A> \x8F\xEB\xC1 |0 # CJK Ideograph
-<U9C4E> \x8F\xEB\xC2 |0 # CJK Ideograph
-<U9C4F> \x8F\xEB\xC3 |0 # CJK Ideograph
-<U9C50> \x8F\xEB\xC4 |0 # CJK Ideograph
-<U9C53> \x8F\xEB\xC5 |0 # CJK Ideograph
-<U9C54> \x8F\xEB\xC6 |0 # CJK Ideograph
-<U9C56> \x8F\xEB\xC7 |0 # CJK Ideograph
-<U9C58> \x8F\xEB\xC8 |0 # CJK Ideograph
-<U9C5B> \x8F\xEB\xC9 |0 # CJK Ideograph
-<U9C5D> \x8F\xEB\xCA |0 # CJK Ideograph
-<U9C5E> \x8F\xEB\xCB |0 # CJK Ideograph
-<U9C5F> \x8F\xEB\xCC |0 # CJK Ideograph
-<U9C63> \x8F\xEB\xCD |0 # CJK Ideograph
-<U9C69> \x8F\xEB\xCE |0 # CJK Ideograph
-<U9C6A> \x8F\xEB\xCF |0 # CJK Ideograph
-<U9C5C> \x8F\xEB\xD0 |0 # CJK Ideograph
-<U9C6B> \x8F\xEB\xD1 |0 # CJK Ideograph
-<U9C68> \x8F\xEB\xD2 |0 # CJK Ideograph
-<U9C6E> \x8F\xEB\xD3 |0 # CJK Ideograph
-<U9C70> \x8F\xEB\xD4 |0 # CJK Ideograph
-<U9C72> \x8F\xEB\xD5 |0 # CJK Ideograph
-<U9C75> \x8F\xEB\xD6 |0 # CJK Ideograph
-<U9C77> \x8F\xEB\xD7 |0 # CJK Ideograph
-<U9C7B> \x8F\xEB\xD8 |0 # CJK Ideograph
-<U9CE6> \x8F\xEB\xD9 |0 # CJK Ideograph
-<U9CF2> \x8F\xEB\xDA |0 # CJK Ideograph
-<U9CF7> \x8F\xEB\xDB |0 # CJK Ideograph
-<U9CF9> \x8F\xEB\xDC |0 # CJK Ideograph
-<U9D0B> \x8F\xEB\xDD |0 # CJK Ideograph
-<U9D02> \x8F\xEB\xDE |0 # CJK Ideograph
-<U9D11> \x8F\xEB\xDF |0 # CJK Ideograph
-<U9D17> \x8F\xEB\xE0 |0 # CJK Ideograph
-<U9D18> \x8F\xEB\xE1 |0 # CJK Ideograph
-<U9D1C> \x8F\xEB\xE2 |0 # CJK Ideograph
-<U9D1D> \x8F\xEB\xE3 |0 # CJK Ideograph
-<U9D1E> \x8F\xEB\xE4 |0 # CJK Ideograph
-<U9D2F> \x8F\xEB\xE5 |0 # CJK Ideograph
-<U9D30> \x8F\xEB\xE6 |0 # CJK Ideograph
-<U9D32> \x8F\xEB\xE7 |0 # CJK Ideograph
-<U9D33> \x8F\xEB\xE8 |0 # CJK Ideograph
-<U9D34> \x8F\xEB\xE9 |0 # CJK Ideograph
-<U9D3A> \x8F\xEB\xEA |0 # CJK Ideograph
-<U9D3C> \x8F\xEB\xEB |0 # CJK Ideograph
-<U9D45> \x8F\xEB\xEC |0 # CJK Ideograph
-<U9D3D> \x8F\xEB\xED |0 # CJK Ideograph
-<U9D42> \x8F\xEB\xEE |0 # CJK Ideograph
-<U9D43> \x8F\xEB\xEF |0 # CJK Ideograph
-<U9D47> \x8F\xEB\xF0 |0 # CJK Ideograph
-<U9D4A> \x8F\xEB\xF1 |0 # CJK Ideograph
-<U9D53> \x8F\xEB\xF2 |0 # CJK Ideograph
-<U9D54> \x8F\xEB\xF3 |0 # CJK Ideograph
-<U9D5F> \x8F\xEB\xF4 |0 # CJK Ideograph
-<U9D63> \x8F\xEB\xF5 |0 # CJK Ideograph
-<U9D62> \x8F\xEB\xF6 |0 # CJK Ideograph
-<U9D65> \x8F\xEB\xF7 |0 # CJK Ideograph
-<U9D69> \x8F\xEB\xF8 |0 # CJK Ideograph
-<U9D6A> \x8F\xEB\xF9 |0 # CJK Ideograph
-<U9D6B> \x8F\xEB\xFA |0 # CJK Ideograph
-<U9D70> \x8F\xEB\xFB |0 # CJK Ideograph
-<U9D76> \x8F\xEB\xFC |0 # CJK Ideograph
-<U9D77> \x8F\xEB\xFD |0 # CJK Ideograph
-<U9D7B> \x8F\xEB\xFE |0 # CJK Ideograph
-<U9D7C> \x8F\xEC\xA1 |0 # CJK Ideograph
-<U9D7E> \x8F\xEC\xA2 |0 # CJK Ideograph
-<U9D83> \x8F\xEC\xA3 |0 # CJK Ideograph
-<U9D84> \x8F\xEC\xA4 |0 # CJK Ideograph
-<U9D86> \x8F\xEC\xA5 |0 # CJK Ideograph
-<U9D8A> \x8F\xEC\xA6 |0 # CJK Ideograph
-<U9D8D> \x8F\xEC\xA7 |0 # CJK Ideograph
-<U9D8E> \x8F\xEC\xA8 |0 # CJK Ideograph
-<U9D92> \x8F\xEC\xA9 |0 # CJK Ideograph
-<U9D93> \x8F\xEC\xAA |0 # CJK Ideograph
-<U9D95> \x8F\xEC\xAB |0 # CJK Ideograph
-<U9D96> \x8F\xEC\xAC |0 # CJK Ideograph
-<U9D97> \x8F\xEC\xAD |0 # CJK Ideograph
-<U9D98> \x8F\xEC\xAE |0 # CJK Ideograph
-<U9DA1> \x8F\xEC\xAF |0 # CJK Ideograph
-<U9DAA> \x8F\xEC\xB0 |0 # CJK Ideograph
-<U9DAC> \x8F\xEC\xB1 |0 # CJK Ideograph
-<U9DAE> \x8F\xEC\xB2 |0 # CJK Ideograph
-<U9DB1> \x8F\xEC\xB3 |0 # CJK Ideograph
-<U9DB5> \x8F\xEC\xB4 |0 # CJK Ideograph
-<U9DB9> \x8F\xEC\xB5 |0 # CJK Ideograph
-<U9DBC> \x8F\xEC\xB6 |0 # CJK Ideograph
-<U9DBF> \x8F\xEC\xB7 |0 # CJK Ideograph
-<U9DC3> \x8F\xEC\xB8 |0 # CJK Ideograph
-<U9DC7> \x8F\xEC\xB9 |0 # CJK Ideograph
-<U9DC9> \x8F\xEC\xBA |0 # CJK Ideograph
-<U9DCA> \x8F\xEC\xBB |0 # CJK Ideograph
-<U9DD4> \x8F\xEC\xBC |0 # CJK Ideograph
-<U9DD5> \x8F\xEC\xBD |0 # CJK Ideograph
-<U9DD6> \x8F\xEC\xBE |0 # CJK Ideograph
-<U9DD7> \x8F\xEC\xBF |0 # CJK Ideograph
-<U9DDA> \x8F\xEC\xC0 |0 # CJK Ideograph
-<U9DDE> \x8F\xEC\xC1 |0 # CJK Ideograph
-<U9DDF> \x8F\xEC\xC2 |0 # CJK Ideograph
-<U9DE0> \x8F\xEC\xC3 |0 # CJK Ideograph
-<U9DE5> \x8F\xEC\xC4 |0 # CJK Ideograph
-<U9DE7> \x8F\xEC\xC5 |0 # CJK Ideograph
-<U9DE9> \x8F\xEC\xC6 |0 # CJK Ideograph
-<U9DEB> \x8F\xEC\xC7 |0 # CJK Ideograph
-<U9DEE> \x8F\xEC\xC8 |0 # CJK Ideograph
-<U9DF0> \x8F\xEC\xC9 |0 # CJK Ideograph
-<U9DF3> \x8F\xEC\xCA |0 # CJK Ideograph
-<U9DF4> \x8F\xEC\xCB |0 # CJK Ideograph
-<U9DFE> \x8F\xEC\xCC |0 # CJK Ideograph
-<U9E0A> \x8F\xEC\xCD |0 # CJK Ideograph
-<U9E02> \x8F\xEC\xCE |0 # CJK Ideograph
-<U9E07> \x8F\xEC\xCF |0 # CJK Ideograph
-<U9E0E> \x8F\xEC\xD0 |0 # CJK Ideograph
-<U9E10> \x8F\xEC\xD1 |0 # CJK Ideograph
-<U9E11> \x8F\xEC\xD2 |0 # CJK Ideograph
-<U9E12> \x8F\xEC\xD3 |0 # CJK Ideograph
-<U9E15> \x8F\xEC\xD4 |0 # CJK Ideograph
-<U9E16> \x8F\xEC\xD5 |0 # CJK Ideograph
-<U9E19> \x8F\xEC\xD6 |0 # CJK Ideograph
-<U9E1C> \x8F\xEC\xD7 |0 # CJK Ideograph
-<U9E1D> \x8F\xEC\xD8 |0 # CJK Ideograph
-<U9E7A> \x8F\xEC\xD9 |0 # CJK Ideograph
-<U9E7B> \x8F\xEC\xDA |0 # CJK Ideograph
-<U9E7C> \x8F\xEC\xDB |0 # CJK Ideograph
-<U9E80> \x8F\xEC\xDC |0 # CJK Ideograph
-<U9E82> \x8F\xEC\xDD |0 # CJK Ideograph
-<U9E83> \x8F\xEC\xDE |0 # CJK Ideograph
-<U9E84> \x8F\xEC\xDF |0 # CJK Ideograph
-<U9E85> \x8F\xEC\xE0 |0 # CJK Ideograph
-<U9E87> \x8F\xEC\xE1 |0 # CJK Ideograph
-<U9E8E> \x8F\xEC\xE2 |0 # CJK Ideograph
-<U9E8F> \x8F\xEC\xE3 |0 # CJK Ideograph
-<U9E96> \x8F\xEC\xE4 |0 # CJK Ideograph
-<U9E98> \x8F\xEC\xE5 |0 # CJK Ideograph
-<U9E9B> \x8F\xEC\xE6 |0 # CJK Ideograph
-<U9E9E> \x8F\xEC\xE7 |0 # CJK Ideograph
-<U9EA4> \x8F\xEC\xE8 |0 # CJK Ideograph
-<U9EA8> \x8F\xEC\xE9 |0 # CJK Ideograph
-<U9EAC> \x8F\xEC\xEA |0 # CJK Ideograph
-<U9EAE> \x8F\xEC\xEB |0 # CJK Ideograph
-<U9EAF> \x8F\xEC\xEC |0 # CJK Ideograph
-<U9EB0> \x8F\xEC\xED |0 # CJK Ideograph
-<U9EB3> \x8F\xEC\xEE |0 # CJK Ideograph
-<U9EB4> \x8F\xEC\xEF |0 # CJK Ideograph
-<U9EB5> \x8F\xEC\xF0 |0 # CJK Ideograph
-<U9EC6> \x8F\xEC\xF1 |0 # CJK Ideograph
-<U9EC8> \x8F\xEC\xF2 |0 # CJK Ideograph
-<U9ECB> \x8F\xEC\xF3 |0 # CJK Ideograph
-<U9ED5> \x8F\xEC\xF4 |0 # CJK Ideograph
-<U9EDF> \x8F\xEC\xF5 |0 # CJK Ideograph
-<U9EE4> \x8F\xEC\xF6 |0 # CJK Ideograph
-<U9EE7> \x8F\xEC\xF7 |0 # CJK Ideograph
-<U9EEC> \x8F\xEC\xF8 |0 # CJK Ideograph
-<U9EED> \x8F\xEC\xF9 |0 # CJK Ideograph
-<U9EEE> \x8F\xEC\xFA |0 # CJK Ideograph
-<U9EF0> \x8F\xEC\xFB |0 # CJK Ideograph
-<U9EF1> \x8F\xEC\xFC |0 # CJK Ideograph
-<U9EF2> \x8F\xEC\xFD |0 # CJK Ideograph
-<U9EF5> \x8F\xEC\xFE |0 # CJK Ideograph
-<U9EF8> \x8F\xED\xA1 |0 # CJK Ideograph
-<U9EFF> \x8F\xED\xA2 |0 # CJK Ideograph
-<U9F02> \x8F\xED\xA3 |0 # CJK Ideograph
-<U9F03> \x8F\xED\xA4 |0 # CJK Ideograph
-<U9F09> \x8F\xED\xA5 |0 # CJK Ideograph
-<U9F0F> \x8F\xED\xA6 |0 # CJK Ideograph
-<U9F10> \x8F\xED\xA7 |0 # CJK Ideograph
-<U9F11> \x8F\xED\xA8 |0 # CJK Ideograph
-<U9F12> \x8F\xED\xA9 |0 # CJK Ideograph
-<U9F14> \x8F\xED\xAA |0 # CJK Ideograph
-<U9F16> \x8F\xED\xAB |0 # CJK Ideograph
-<U9F17> \x8F\xED\xAC |0 # CJK Ideograph
-<U9F19> \x8F\xED\xAD |0 # CJK Ideograph
-<U9F1A> \x8F\xED\xAE |0 # CJK Ideograph
-<U9F1B> \x8F\xED\xAF |0 # CJK Ideograph
-<U9F1F> \x8F\xED\xB0 |0 # CJK Ideograph
-<U9F22> \x8F\xED\xB1 |0 # CJK Ideograph
-<U9F26> \x8F\xED\xB2 |0 # CJK Ideograph
-<U9F2A> \x8F\xED\xB3 |0 # CJK Ideograph
-<U9F2B> \x8F\xED\xB4 |0 # CJK Ideograph
-<U9F2F> \x8F\xED\xB5 |0 # CJK Ideograph
-<U9F31> \x8F\xED\xB6 |0 # CJK Ideograph
-<U9F32> \x8F\xED\xB7 |0 # CJK Ideograph
-<U9F34> \x8F\xED\xB8 |0 # CJK Ideograph
-<U9F37> \x8F\xED\xB9 |0 # CJK Ideograph
-<U9F39> \x8F\xED\xBA |0 # CJK Ideograph
-<U9F3A> \x8F\xED\xBB |0 # CJK Ideograph
-<U9F3C> \x8F\xED\xBC |0 # CJK Ideograph
-<U9F3D> \x8F\xED\xBD |0 # CJK Ideograph
-<U9F3F> \x8F\xED\xBE |0 # CJK Ideograph
-<U9F41> \x8F\xED\xBF |0 # CJK Ideograph
-<U9F43> \x8F\xED\xC0 |0 # CJK Ideograph
-<U9F44> \x8F\xED\xC1 |0 # CJK Ideograph
-<U9F45> \x8F\xED\xC2 |0 # CJK Ideograph
-<U9F46> \x8F\xED\xC3 |0 # CJK Ideograph
-<U9F47> \x8F\xED\xC4 |0 # CJK Ideograph
-<U9F53> \x8F\xED\xC5 |0 # CJK Ideograph
-<U9F55> \x8F\xED\xC6 |0 # CJK Ideograph
-<U9F56> \x8F\xED\xC7 |0 # CJK Ideograph
-<U9F57> \x8F\xED\xC8 |0 # CJK Ideograph
-<U9F58> \x8F\xED\xC9 |0 # CJK Ideograph
-<U9F5A> \x8F\xED\xCA |0 # CJK Ideograph
-<U9F5D> \x8F\xED\xCB |0 # CJK Ideograph
-<U9F5E> \x8F\xED\xCC |0 # CJK Ideograph
-<U9F68> \x8F\xED\xCD |0 # CJK Ideograph
-<U9F69> \x8F\xED\xCE |0 # CJK Ideograph
-<U9F6D> \x8F\xED\xCF |0 # CJK Ideograph
-<U9F6E> \x8F\xED\xD0 |0 # CJK Ideograph
-<U9F6F> \x8F\xED\xD1 |0 # CJK Ideograph
-<U9F70> \x8F\xED\xD2 |0 # CJK Ideograph
-<U9F71> \x8F\xED\xD3 |0 # CJK Ideograph
-<U9F73> \x8F\xED\xD4 |0 # CJK Ideograph
-<U9F75> \x8F\xED\xD5 |0 # CJK Ideograph
-<U9F7A> \x8F\xED\xD6 |0 # CJK Ideograph
-<U9F7D> \x8F\xED\xD7 |0 # CJK Ideograph
-<U9F8F> \x8F\xED\xD8 |0 # CJK Ideograph
-<U9F90> \x8F\xED\xD9 |0 # CJK Ideograph
-<U9F91> \x8F\xED\xDA |0 # CJK Ideograph
-<U9F92> \x8F\xED\xDB |0 # CJK Ideograph
-<U9F94> \x8F\xED\xDC |0 # CJK Ideograph
-<U9F96> \x8F\xED\xDD |0 # CJK Ideograph
-<U9F97> \x8F\xED\xDE |0 # CJK Ideograph
-<U9F9E> \x8F\xED\xDF |0 # CJK Ideograph
-<U9FA1> \x8F\xED\xE0 |0 # CJK Ideograph
-<U9FA2> \x8F\xED\xE1 |0 # CJK Ideograph
-<U9FA3> \x8F\xED\xE2 |0 # CJK Ideograph
-<U9FA5> \x8F\xED\xE3 |0 # CJK Ideograph
-#
-# JIS X 0213:2000 (those not included in JIS X 0208/0212)
-#
-<UFF07> \xA2\xAF |3 # 1-2-15
-<UFF02> \xA2\xB0 |3 # 1-2-16
-<UFF0D> \xA2\xB1 |3 # 1-2-17
-<UFF5E> \xA2\xB2 |3 # 1-2-18
-<U3033> \xA2\xB3 |3 # 1-2-19
-<U3034> \xA2\xB4 |3 # 1-2-20
-<U3035> \xA2\xB5 |3 # 1-2-21
-<U303B> \xA2\xB6 |3 # 1-2-22
-<U303C> \xA2\xB7 |3 # 1-2-23
-<U30FF> \xA2\xB8 |3 # 1-2-24
-<U309F> \xA2\xB9 |3 # 1-2-25
-<U2284> \xA2\xC2 |3 # 1-2-34
-<U2285> \xA2\xC3 |3 # 1-2-35
-<U228A> \xA2\xC4 |3 # 1-2-36
-<U228B> \xA2\xC5 |3 # 1-2-37
-<U2209> \xA2\xC6 |3 # 1-2-38
-<U2205> \xA2\xC7 |3 # 1-2-39
-<U2305> \xA2\xC8 |3 # 1-2-40
-<U2306> \xA2\xC9 |3 # 1-2-41
-<U2295> \xA2\xD1 |3 # 1-2-49
-<U2296> \xA2\xD2 |3 # 1-2-50
-<U2297> \xA2\xD3 |3 # 1-2-51
-<U2225> \xA2\xD4 |3 # 1-2-52
-<U2226> \xA2\xD5 |3 # 1-2-53
-<U2985> \xA2\xD6 |3 # 1-2-54
-<U2986> \xA2\xD7 |3 # 1-2-55
-<U3018> \xA2\xD8 |3 # 1-2-56
-<U3019> \xA2\xD9 |3 # 1-2-57
-<U3016> \xA2\xDA |3 # 1-2-58
-<U3017> \xA2\xDB |3 # 1-2-59
-<U2262> \xA2\xEB |3 # 1-2-75
-<U2243> \xA2\xEC |3 # 1-2-76
-<U2245> \xA2\xED |3 # 1-2-77
-<U2248> \xA2\xEE |3 # 1-2-78
-<U2276> \xA2\xEF |3 # 1-2-79
-<U2277> \xA2\xF0 |3 # 1-2-80
-<U2194> \xA2\xF1 |3 # 1-2-81
-<U266E> \xA2\xFA |3 # 1-2-90
-<U266B> \xA2\xFB |3 # 1-2-91
-<U266C> \xA2\xFC |3 # 1-2-92
-<U2669> \xA2\xFD |3 # 1-2-93
-<U25B7> \xA3\xA1 |3 # 1-3-1
-<U25B6> \xA3\xA2 |3 # 1-3-2
-<U25C1> \xA3\xA3 |3 # 1-3-3
-<U25C0> \xA3\xA4 |3 # 1-3-4
-<U2197> \xA3\xA5 |3 # 1-3-5
-<U2198> \xA3\xA6 |3 # 1-3-6
-<U2196> \xA3\xA7 |3 # 1-3-7
-<U2199> \xA3\xA8 |3 # 1-3-8
-<U21C4> \xA3\xA9 |3 # 1-3-9
-<U21E8> \xA3\xAA |3 # 1-3-10
-<U21E6> \xA3\xAB |3 # 1-3-11
-<U21E7> \xA3\xAC |3 # 1-3-12
-<U21E9> \xA3\xAD |3 # 1-3-13
-<U2934> \xA3\xAE |3 # 1-3-14
-<U2935> \xA3\xAF |3 # 1-3-15
-<U29BF> \xA3\xBA |3 # 1-3-26
-<U25C9> \xA3\xBB |3 # 1-3-27
-<U303D> \xA3\xBC |3 # 1-3-28
-<UFE46> \xA3\xBD |3 # 1-3-29
-<UFE45> \xA3\xBE |3 # 1-3-30
-<U25E6> \xA3\xBF |3 # 1-3-31
-<U2022> \xA3\xC0 |3 # 1-3-32
-<U2213> \xA3\xDB |3 # 1-3-59
-<U2135> \xA3\xDC |3 # 1-3-60
-<U210F> \xA3\xDD |3 # 1-3-61
-<U33CB> \xA3\xDE |3 # 1-3-62
-<U2113> \xA3\xDF |3 # 1-3-63
-<U2127> \xA3\xE0 |3 # 1-3-64
-<U30A0> \xA3\xFB |3 # 1-3-91
-<U2013> \xA3\xFC |3 # 1-3-92
-<U29FA> \xA3\xFD |3 # 1-3-93
-<U29FB> \xA3\xFE |3 # 1-3-94
-<U3094> \xA4\xF4 |3 # 1-4-84
-<U3095> \xA4\xF5 |3 # 1-4-85
-<U3096> \xA4\xF6 |3 # 1-4-86
-<U2664> \xA6\xB9 |3 # 1-6-25
-<U2660> \xA6\xBA |3 # 1-6-26
-<U2662> \xA6\xBB |3 # 1-6-27
-<U2666> \xA6\xBC |3 # 1-6-28
-<U2661> \xA6\xBD |3 # 1-6-29
-<U2665> \xA6\xBE |3 # 1-6-30
-<U2667> \xA6\xBF |3 # 1-6-31
-<U2663> \xA6\xC0 |3 # 1-6-32
-<U03C2> \xA6\xD9 |3 # 1-6-57
-<U24F5> \xA6\xDA |3 # 1-6-58
-<U24F6> \xA6\xDB |3 # 1-6-59
-<U24F7> \xA6\xDC |3 # 1-6-60
-<U24F8> \xA6\xDD |3 # 1-6-61
-<U24F9> \xA6\xDE |3 # 1-6-62
-<U24FA> \xA6\xDF |3 # 1-6-63
-<U24FB> \xA6\xE0 |3 # 1-6-64
-<U24FC> \xA6\xE1 |3 # 1-6-65
-<U24FD> \xA6\xE2 |3 # 1-6-66
-<U24FE> \xA6\xE3 |3 # 1-6-67
-<U2616> \xA6\xE4 |3 # 1-6-68
-<U2617> \xA6\xE5 |3 # 1-6-69
-<U3020> \xA6\xE6 |3 # 1-6-70
-<U260E> \xA6\xE7 |3 # 1-6-71
-<U2600> \xA6\xE8 |3 # 1-6-72
-<U2601> \xA6\xE9 |3 # 1-6-73
-<U2602> \xA6\xEA |3 # 1-6-74
-<U2603> \xA6\xEB |3 # 1-6-75
-<U2668> \xA6\xEC |3 # 1-6-76
-<U25B1> \xA6\xED |3 # 1-6-77
-<U31F0> \xA6\xEE |3 # 1-6-78
-<U31F1> \xA6\xEF |3 # 1-6-79
-<U31F2> \xA6\xF0 |3 # 1-6-80
-<U31F3> \xA6\xF1 |3 # 1-6-81
-<U31F4> \xA6\xF2 |3 # 1-6-82
-<U31F5> \xA6\xF3 |3 # 1-6-83
-<U31F6> \xA6\xF4 |3 # 1-6-84
-<U31F7> \xA6\xF5 |3 # 1-6-85
-<U31F8> \xA6\xF6 |3 # 1-6-86
-<U31F9> \xA6\xF7 |3 # 1-6-87
-<U31FA> \xA6\xF9 |3 # 1-6-89
-<U31FB> \xA6\xFA |3 # 1-6-90
-<U31FC> \xA6\xFB |3 # 1-6-91
-<U31FD> \xA6\xFC |3 # 1-6-92
-<U31FE> \xA6\xFD |3 # 1-6-93
-<U31FF> \xA6\xFE |3 # 1-6-94
-<U23BE> \xA7\xC2 |3 # 1-7-34
-<U23BF> \xA7\xC3 |3 # 1-7-35
-<U23C0> \xA7\xC4 |3 # 1-7-36
-<U23C1> \xA7\xC5 |3 # 1-7-37
-<U23C2> \xA7\xC6 |3 # 1-7-38
-<U23C3> \xA7\xC7 |3 # 1-7-39
-<U23C4> \xA7\xC8 |3 # 1-7-40
-<U23C5> \xA7\xC9 |3 # 1-7-41
-<U23C6> \xA7\xCA |3 # 1-7-42
-<U23C7> \xA7\xCB |3 # 1-7-43
-<U23C8> \xA7\xCC |3 # 1-7-44
-<U23C9> \xA7\xCD |3 # 1-7-45
-<U23CA> \xA7\xCE |3 # 1-7-46
-<U23CB> \xA7\xCF |3 # 1-7-47
-<U23CC> \xA7\xD0 |3 # 1-7-48
-<U30F7> \xA7\xF2 |3 # 1-7-82
-<U30F8> \xA7\xF3 |3 # 1-7-83
-<U30F9> \xA7\xF4 |3 # 1-7-84
-<U30FA> \xA7\xF5 |3 # 1-7-85
-<U22DA> \xA7\xF6 |3 # 1-7-86
-<U22DB> \xA7\xF7 |3 # 1-7-87
-<U2153> \xA7\xF8 |3 # 1-7-88
-<U2154> \xA7\xF9 |3 # 1-7-89
-<U2155> \xA7\xFA |3 # 1-7-90
-<U2713> \xA7\xFB |3 # 1-7-91
-<U2318> \xA7\xFC |3 # 1-7-92
-<U2423> \xA7\xFD |3 # 1-7-93
-<U23CE> \xA7\xFE |3 # 1-7-94
-<U3251> \xA8\xC1 |3 # 1-8-33
-<U3252> \xA8\xC2 |3 # 1-8-34
-<U3253> \xA8\xC3 |3 # 1-8-35
-<U3254> \xA8\xC4 |3 # 1-8-36
-<U3255> \xA8\xC5 |3 # 1-8-37
-<U3256> \xA8\xC6 |3 # 1-8-38
-<U3257> \xA8\xC7 |3 # 1-8-39
-<U3258> \xA8\xC8 |3 # 1-8-40
-<U3259> \xA8\xC9 |3 # 1-8-41
-<U325A> \xA8\xCA |3 # 1-8-42
-<U325B> \xA8\xCB |3 # 1-8-43
-<U325C> \xA8\xCC |3 # 1-8-44
-<U325D> \xA8\xCD |3 # 1-8-45
-<U325E> \xA8\xCE |3 # 1-8-46
-<U325F> \xA8\xCF |3 # 1-8-47
-<U32B1> \xA8\xD0 |3 # 1-8-48
-<U32B2> \xA8\xD1 |3 # 1-8-49
-<U32B3> \xA8\xD2 |3 # 1-8-50
-<U32B4> \xA8\xD3 |3 # 1-8-51
-<U32B5> \xA8\xD4 |3 # 1-8-52
-<U32B6> \xA8\xD5 |3 # 1-8-53
-<U32B7> \xA8\xD6 |3 # 1-8-54
-<U32B8> \xA8\xD7 |3 # 1-8-55
-<U32B9> \xA8\xD8 |3 # 1-8-56
-<U32BA> \xA8\xD9 |3 # 1-8-57
-<U32BB> \xA8\xDA |3 # 1-8-58
-<U32BC> \xA8\xDB |3 # 1-8-59
-<U32BD> \xA8\xDC |3 # 1-8-60
-<U32BE> \xA8\xDD |3 # 1-8-61
-<U32BF> \xA8\xDE |3 # 1-8-62
-<U25D0> \xA8\xE7 |3 # 1-8-71
-<U25D1> \xA8\xE8 |3 # 1-8-72
-<U25D2> \xA8\xE9 |3 # 1-8-73
-<U25D3> \xA8\xEA |3 # 1-8-74
-<U203C> \xA8\xEB |3 # 1-8-75
-<U2047> \xA8\xEC |3 # 1-8-76
-<U2048> \xA8\xED |3 # 1-8-77
-<U2049> \xA8\xEE |3 # 1-8-78
-<U01CD> \xA8\xEF |3 # 1-8-79
-<U01CE> \xA8\xF0 |3 # 1-8-80
-<U01D0> \xA8\xF1 |3 # 1-8-81
-<U1E3E> \xA8\xF2 |3 # 1-8-82
-<U1E3F> \xA8\xF3 |3 # 1-8-83
-<U01F8> \xA8\xF4 |3 # 1-8-84
-<U01F9> \xA8\xF5 |3 # 1-8-85
-<U01D1> \xA8\xF6 |3 # 1-8-86
-<U01D2> \xA8\xF7 |3 # 1-8-87
-<U01D4> \xA8\xF8 |3 # 1-8-88
-<U01D6> \xA8\xF9 |3 # 1-8-89
-<U01D8> \xA8\xFA |3 # 1-8-90
-<U01DA> \xA8\xFB |3 # 1-8-91
-<U01DC> \xA8\xFC |3 # 1-8-92
-<U20AC> \xA9\xA1 |3 # 1-9-1
-<U00A0> \xA9\xA2 |3 # 1-9-2
-<U00A1> \xA9\xA3 |3 # 1-9-3
-<U00A4> \xA9\xA4 |3 # 1-9-4
-<U00A6> \xA9\xA5 |3 # 1-9-5
-<U00A9> \xA9\xA6 |3 # 1-9-6
-<U00AA> \xA9\xA7 |3 # 1-9-7
-<U00AB> \xA9\xA8 |3 # 1-9-8
-<U00AD> \xA9\xA9 |3 # 1-9-9
-<U00AE> \xA9\xAA |3 # 1-9-10
-<U00AF> \xA9\xAB |3 # 1-9-11
-<U00B2> \xA9\xAC |3 # 1-9-12
-<U00B3> \xA9\xAD |3 # 1-9-13
-<U00B7> \xA9\xAE |3 # 1-9-14
-<U00B8> \xA9\xAF |3 # 1-9-15
-<U00B9> \xA9\xB0 |3 # 1-9-16
-<U00BA> \xA9\xB1 |3 # 1-9-17
-<U00BB> \xA9\xB2 |3 # 1-9-18
-<U00BC> \xA9\xB3 |3 # 1-9-19
-<U00BD> \xA9\xB4 |3 # 1-9-20
-<U00BE> \xA9\xB5 |3 # 1-9-21
-<U00BF> \xA9\xB6 |3 # 1-9-22
-<U00C0> \xA9\xB7 |3 # 1-9-23
-<U00C1> \xA9\xB8 |3 # 1-9-24
-<U00C2> \xA9\xB9 |3 # 1-9-25
-<U00C3> \xA9\xBA |3 # 1-9-26
-<U00C4> \xA9\xBB |3 # 1-9-27
-<U00C5> \xA9\xBC |3 # 1-9-28
-<U00C6> \xA9\xBD |3 # 1-9-29
-<U00C7> \xA9\xBE |3 # 1-9-30
-<U00C8> \xA9\xBF |3 # 1-9-31
-<U00C9> \xA9\xC0 |3 # 1-9-32
-<U00CA> \xA9\xC1 |3 # 1-9-33
-<U00CB> \xA9\xC2 |3 # 1-9-34
-<U00CC> \xA9\xC3 |3 # 1-9-35
-<U00CD> \xA9\xC4 |3 # 1-9-36
-<U00CE> \xA9\xC5 |3 # 1-9-37
-<U00CF> \xA9\xC6 |3 # 1-9-38
-<U00D0> \xA9\xC7 |3 # 1-9-39
-<U00D1> \xA9\xC8 |3 # 1-9-40
-<U00D2> \xA9\xC9 |3 # 1-9-41
-<U00D3> \xA9\xCA |3 # 1-9-42
-<U00D4> \xA9\xCB |3 # 1-9-43
-<U00D5> \xA9\xCC |3 # 1-9-44
-<U00D6> \xA9\xCD |3 # 1-9-45
-<U00D8> \xA9\xCE |3 # 1-9-46
-<U00D9> \xA9\xCF |3 # 1-9-47
-<U00DA> \xA9\xD0 |3 # 1-9-48
-<U00DB> \xA9\xD1 |3 # 1-9-49
-<U00DC> \xA9\xD2 |3 # 1-9-50
-<U00DD> \xA9\xD3 |3 # 1-9-51
-<U00DE> \xA9\xD4 |3 # 1-9-52
-<U00DF> \xA9\xD5 |3 # 1-9-53
-<U00E0> \xA9\xD6 |3 # 1-9-54
-<U00E1> \xA9\xD7 |3 # 1-9-55
-<U00E2> \xA9\xD8 |3 # 1-9-56
-<U00E3> \xA9\xD9 |3 # 1-9-57
-<U00E4> \xA9\xDA |3 # 1-9-58
-<U00E5> \xA9\xDB |3 # 1-9-59
-<U00E6> \xA9\xDC |3 # 1-9-60
-<U00E7> \xA9\xDD |3 # 1-9-61
-<U00E8> \xA9\xDE |3 # 1-9-62
-<U00E9> \xA9\xDF |3 # 1-9-63
-<U00EA> \xA9\xE0 |3 # 1-9-64
-<U00EB> \xA9\xE1 |3 # 1-9-65
-<U00EC> \xA9\xE2 |3 # 1-9-66
-<U00ED> \xA9\xE3 |3 # 1-9-67
-<U00EE> \xA9\xE4 |3 # 1-9-68
-<U00EF> \xA9\xE5 |3 # 1-9-69
-<U00F0> \xA9\xE6 |3 # 1-9-70
-<U00F1> \xA9\xE7 |3 # 1-9-71
-<U00F2> \xA9\xE8 |3 # 1-9-72
-<U00F3> \xA9\xE9 |3 # 1-9-73
-<U00F4> \xA9\xEA |3 # 1-9-74
-<U00F5> \xA9\xEB |3 # 1-9-75
-<U00F6> \xA9\xEC |3 # 1-9-76
-<U00F8> \xA9\xED |3 # 1-9-77
-<U00F9> \xA9\xEE |3 # 1-9-78
-<U00FA> \xA9\xEF |3 # 1-9-79
-<U00FB> \xA9\xF0 |3 # 1-9-80
-<U00FC> \xA9\xF1 |3 # 1-9-81
-<U00FD> \xA9\xF2 |3 # 1-9-82
-<U00FE> \xA9\xF3 |3 # 1-9-83
-<U00FF> \xA9\xF4 |3 # 1-9-84
-<U0100> \xA9\xF5 |3 # 1-9-85
-<U012A> \xA9\xF6 |3 # 1-9-86
-<U016A> \xA9\xF7 |3 # 1-9-87
-<U0112> \xA9\xF8 |3 # 1-9-88
-<U014C> \xA9\xF9 |3 # 1-9-89
-<U0101> \xA9\xFA |3 # 1-9-90
-<U012B> \xA9\xFB |3 # 1-9-91
-<U016B> \xA9\xFC |3 # 1-9-92
-<U0113> \xA9\xFD |3 # 1-9-93
-<U014D> \xA9\xFE |3 # 1-9-94
-<U0104> \xAA\xA1 |3 # 1-10-1
-<U02D8> \xAA\xA2 |3 # 1-10-2
-<U0141> \xAA\xA3 |3 # 1-10-3
-<U013D> \xAA\xA4 |3 # 1-10-4
-<U015A> \xAA\xA5 |3 # 1-10-5
-<U0160> \xAA\xA6 |3 # 1-10-6
-<U015E> \xAA\xA7 |3 # 1-10-7
-<U0164> \xAA\xA8 |3 # 1-10-8
-<U0179> \xAA\xA9 |3 # 1-10-9
-<U017D> \xAA\xAA |3 # 1-10-10
-<U017B> \xAA\xAB |3 # 1-10-11
-<U0105> \xAA\xAC |3 # 1-10-12
-<U02DB> \xAA\xAD |3 # 1-10-13
-<U0142> \xAA\xAE |3 # 1-10-14
-<U013E> \xAA\xAF |3 # 1-10-15
-<U015B> \xAA\xB0 |3 # 1-10-16
-<U02C7> \xAA\xB1 |3 # 1-10-17
-<U0161> \xAA\xB2 |3 # 1-10-18
-<U015F> \xAA\xB3 |3 # 1-10-19
-<U0165> \xAA\xB4 |3 # 1-10-20
-<U017A> \xAA\xB5 |3 # 1-10-21
-<U02DD> \xAA\xB6 |3 # 1-10-22
-<U017E> \xAA\xB7 |3 # 1-10-23
-<U017C> \xAA\xB8 |3 # 1-10-24
-<U0154> \xAA\xB9 |3 # 1-10-25
-<U0102> \xAA\xBA |3 # 1-10-26
-<U0139> \xAA\xBB |3 # 1-10-27
-<U0106> \xAA\xBC |3 # 1-10-28
-<U010C> \xAA\xBD |3 # 1-10-29
-<U0118> \xAA\xBE |3 # 1-10-30
-<U011A> \xAA\xBF |3 # 1-10-31
-<U010E> \xAA\xC0 |3 # 1-10-32
-<U0143> \xAA\xC1 |3 # 1-10-33
-<U0147> \xAA\xC2 |3 # 1-10-34
-<U0150> \xAA\xC3 |3 # 1-10-35
-<U0158> \xAA\xC4 |3 # 1-10-36
-<U016E> \xAA\xC5 |3 # 1-10-37
-<U0170> \xAA\xC6 |3 # 1-10-38
-<U0162> \xAA\xC7 |3 # 1-10-39
-<U0155> \xAA\xC8 |3 # 1-10-40
-<U0103> \xAA\xC9 |3 # 1-10-41
-<U013A> \xAA\xCA |3 # 1-10-42
-<U0107> \xAA\xCB |3 # 1-10-43
-<U010D> \xAA\xCC |3 # 1-10-44
-<U0119> \xAA\xCD |3 # 1-10-45
-<U011B> \xAA\xCE |3 # 1-10-46
-<U010F> \xAA\xCF |3 # 1-10-47
-<U0111> \xAA\xD0 |3 # 1-10-48
-<U0144> \xAA\xD1 |3 # 1-10-49
-<U0148> \xAA\xD2 |3 # 1-10-50
-<U0151> \xAA\xD3 |3 # 1-10-51
-<U0159> \xAA\xD4 |3 # 1-10-52
-<U016F> \xAA\xD5 |3 # 1-10-53
-<U0171> \xAA\xD6 |3 # 1-10-54
-<U0163> \xAA\xD7 |3 # 1-10-55
-<U02D9> \xAA\xD8 |3 # 1-10-56
-<U0108> \xAA\xD9 |3 # 1-10-57
-<U011C> \xAA\xDA |3 # 1-10-58
-<U0124> \xAA\xDB |3 # 1-10-59
-<U0134> \xAA\xDC |3 # 1-10-60
-<U015C> \xAA\xDD |3 # 1-10-61
-<U016C> \xAA\xDE |3 # 1-10-62
-<U0109> \xAA\xDF |3 # 1-10-63
-<U011D> \xAA\xE0 |3 # 1-10-64
-<U0125> \xAA\xE1 |3 # 1-10-65
-<U0135> \xAA\xE2 |3 # 1-10-66
-<U015D> \xAA\xE3 |3 # 1-10-67
-<U016D> \xAA\xE4 |3 # 1-10-68
-<U0271> \xAA\xE5 |3 # 1-10-69
-<U028B> \xAA\xE6 |3 # 1-10-70
-<U027E> \xAA\xE7 |3 # 1-10-71
-<U0283> \xAA\xE8 |3 # 1-10-72
-<U0292> \xAA\xE9 |3 # 1-10-73
-<U026C> \xAA\xEA |3 # 1-10-74
-<U026E> \xAA\xEB |3 # 1-10-75
-<U0279> \xAA\xEC |3 # 1-10-76
-<U0288> \xAA\xED |3 # 1-10-77
-<U0256> \xAA\xEE |3 # 1-10-78
-<U0273> \xAA\xEF |3 # 1-10-79
-<U027D> \xAA\xF0 |3 # 1-10-80
-<U0282> \xAA\xF1 |3 # 1-10-81
-<U0290> \xAA\xF2 |3 # 1-10-82
-<U027B> \xAA\xF3 |3 # 1-10-83
-<U026D> \xAA\xF4 |3 # 1-10-84
-<U025F> \xAA\xF5 |3 # 1-10-85
-<U0272> \xAA\xF6 |3 # 1-10-86
-<U029D> \xAA\xF7 |3 # 1-10-87
-<U028E> \xAA\xF8 |3 # 1-10-88
-<U0261> \xAA\xF9 |3 # 1-10-89
-<U014B> \xAA\xFA |3 # 1-10-90
-<U0270> \xAA\xFB |3 # 1-10-91
-<U0281> \xAA\xFC |3 # 1-10-92
-<U0127> \xAA\xFD |3 # 1-10-93
-<U0295> \xAA\xFE |3 # 1-10-94
-<U0294> \xAB\xA1 |3 # 1-11-1
-<U0266> \xAB\xA2 |3 # 1-11-2
-<U0298> \xAB\xA3 |3 # 1-11-3
-<U01C2> \xAB\xA4 |3 # 1-11-4
-<U0253> \xAB\xA5 |3 # 1-11-5
-<U0257> \xAB\xA6 |3 # 1-11-6
-<U0284> \xAB\xA7 |3 # 1-11-7
-<U0260> \xAB\xA8 |3 # 1-11-8
-<U0193> \xAB\xA9 |3 # 1-11-9
-<U0153> \xAB\xAA |3 # 1-11-10
-<U0152> \xAB\xAB |3 # 1-11-11
-<U0268> \xAB\xAC |3 # 1-11-12
-<U0289> \xAB\xAD |3 # 1-11-13
-<U0258> \xAB\xAE |3 # 1-11-14
-<U0275> \xAB\xAF |3 # 1-11-15
-<U0259> \xAB\xB0 |3 # 1-11-16
-<U025C> \xAB\xB1 |3 # 1-11-17
-<U025E> \xAB\xB2 |3 # 1-11-18
-<U0250> \xAB\xB3 |3 # 1-11-19
-<U026F> \xAB\xB4 |3 # 1-11-20
-<U028A> \xAB\xB5 |3 # 1-11-21
-<U0264> \xAB\xB6 |3 # 1-11-22
-<U028C> \xAB\xB7 |3 # 1-11-23
-<U0254> \xAB\xB8 |3 # 1-11-24
-<U0251> \xAB\xB9 |3 # 1-11-25
-<U0252> \xAB\xBA |3 # 1-11-26
-<U028D> \xAB\xBB |3 # 1-11-27
-<U0265> \xAB\xBC |3 # 1-11-28
-<U02A2> \xAB\xBD |3 # 1-11-29
-<U02A1> \xAB\xBE |3 # 1-11-30
-<U0255> \xAB\xBF |3 # 1-11-31
-<U0291> \xAB\xC0 |3 # 1-11-32
-<U027A> \xAB\xC1 |3 # 1-11-33
-<U0267> \xAB\xC2 |3 # 1-11-34
-<U025A> \xAB\xC3 |3 # 1-11-35
-<U01FD> \xAB\xC5 |3 # 1-11-37
-<U1F70> \xAB\xC6 |3 # 1-11-38
-<U1F71> \xAB\xC7 |3 # 1-11-39
-<U1F72> \xAB\xD0 |3 # 1-11-48
-<U1F73> \xAB\xD1 |3 # 1-11-49
-<U0361> \xAB\xD2 |3 # 1-11-50
-<U02C8> \xAB\xD3 |3 # 1-11-51
-<U02CC> \xAB\xD4 |3 # 1-11-52
-<U02D0> \xAB\xD5 |3 # 1-11-53
-<U02D1> \xAB\xD6 |3 # 1-11-54
-<U0306> \xAB\xD7 |3 # 1-11-55
-<U203F> \xAB\xD8 |3 # 1-11-56
-<U030B> \xAB\xD9 |3 # 1-11-57
-<U0301> \xAB\xDA |3 # 1-11-58
-<U0304> \xAB\xDB |3 # 1-11-59
-<U0300> \xAB\xDC |3 # 1-11-60
-<U030F> \xAB\xDD |3 # 1-11-61
-<U030C> \xAB\xDE |3 # 1-11-62
-<U0302> \xAB\xDF |3 # 1-11-63
-<U02E5> \xAB\xE0 |3 # 1-11-64
-<U02E6> \xAB\xE1 |3 # 1-11-65
-<U02E7> \xAB\xE2 |3 # 1-11-66
-<U02E8> \xAB\xE3 |3 # 1-11-67
-<U02E9> \xAB\xE4 |3 # 1-11-68
-<U0325> \xAB\xE7 |3 # 1-11-71
-<U032C> \xAB\xE8 |3 # 1-11-72
-<U0339> \xAB\xE9 |3 # 1-11-73
-<U031C> \xAB\xEA |3 # 1-11-74
-<U031F> \xAB\xEB |3 # 1-11-75
-<U0320> \xAB\xEC |3 # 1-11-76
-<U0308> \xAB\xED |3 # 1-11-77
-<U033D> \xAB\xEE |3 # 1-11-78
-<U0329> \xAB\xEF |3 # 1-11-79
-<U032F> \xAB\xF0 |3 # 1-11-80
-<U02DE> \xAB\xF1 |3 # 1-11-81
-<U0324> \xAB\xF2 |3 # 1-11-82
-<U0330> \xAB\xF3 |3 # 1-11-83
-<U033C> \xAB\xF4 |3 # 1-11-84
-<U0334> \xAB\xF5 |3 # 1-11-85
-<U031D> \xAB\xF6 |3 # 1-11-86
-<U031E> \xAB\xF7 |3 # 1-11-87
-<U0318> \xAB\xF8 |3 # 1-11-88
-<U0319> \xAB\xF9 |3 # 1-11-89
-<U032A> \xAB\xFA |3 # 1-11-90
-<U033A> \xAB\xFB |3 # 1-11-91
-<U033B> \xAB\xFC |3 # 1-11-92
-<U0303> \xAB\xFD |3 # 1-11-93
-<U031A> \xAB\xFE |3 # 1-11-94
-<U2776> \xAC\xA1 |3 # 1-12-1
-<U2777> \xAC\xA2 |3 # 1-12-2
-<U2778> \xAC\xA3 |3 # 1-12-3
-<U2779> \xAC\xA4 |3 # 1-12-4
-<U277A> \xAC\xA5 |3 # 1-12-5
-<U277B> \xAC\xA6 |3 # 1-12-6
-<U277C> \xAC\xA7 |3 # 1-12-7
-<U277D> \xAC\xA8 |3 # 1-12-8
-<U277E> \xAC\xA9 |3 # 1-12-9
-<U277F> \xAC\xAA |3 # 1-12-10
-<U24EB> \xAC\xAB |3 # 1-12-11
-<U24EC> \xAC\xAC |3 # 1-12-12
-<U24ED> \xAC\xAD |3 # 1-12-13
-<U24EE> \xAC\xAE |3 # 1-12-14
-<U24EF> \xAC\xAF |3 # 1-12-15
-<U24F0> \xAC\xB0 |3 # 1-12-16
-<U24F1> \xAC\xB1 |3 # 1-12-17
-<U24F2> \xAC\xB2 |3 # 1-12-18
-<U24F3> \xAC\xB3 |3 # 1-12-19
-<U24F4> \xAC\xB4 |3 # 1-12-20
-<U2170> \xAC\xB5 |3 # 1-12-21
-<U2171> \xAC\xB6 |3 # 1-12-22
-<U2172> \xAC\xB7 |3 # 1-12-23
-<U2173> \xAC\xB8 |3 # 1-12-24
-<U2174> \xAC\xB9 |3 # 1-12-25
-<U2175> \xAC\xBA |3 # 1-12-26
-<U2176> \xAC\xBB |3 # 1-12-27
-<U2177> \xAC\xBC |3 # 1-12-28
-<U2178> \xAC\xBD |3 # 1-12-29
-<U2179> \xAC\xBE |3 # 1-12-30
-<U217A> \xAC\xBF |3 # 1-12-31
-<U217B> \xAC\xC0 |3 # 1-12-32
-<U24D0> \xAC\xC1 |3 # 1-12-33
-<U24D1> \xAC\xC2 |3 # 1-12-34
-<U24D2> \xAC\xC3 |3 # 1-12-35
-<U24D3> \xAC\xC4 |3 # 1-12-36
-<U24D4> \xAC\xC5 |3 # 1-12-37
-<U24D5> \xAC\xC6 |3 # 1-12-38
-<U24D6> \xAC\xC7 |3 # 1-12-39
-<U24D7> \xAC\xC8 |3 # 1-12-40
-<U24D8> \xAC\xC9 |3 # 1-12-41
-<U24D9> \xAC\xCA |3 # 1-12-42
-<U24DA> \xAC\xCB |3 # 1-12-43
-<U24DB> \xAC\xCC |3 # 1-12-44
-<U24DC> \xAC\xCD |3 # 1-12-45
-<U24DD> \xAC\xCE |3 # 1-12-46
-<U24DE> \xAC\xCF |3 # 1-12-47
-<U24DF> \xAC\xD0 |3 # 1-12-48
-<U24E0> \xAC\xD1 |3 # 1-12-49
-<U24E1> \xAC\xD2 |3 # 1-12-50
-<U24E2> \xAC\xD3 |3 # 1-12-51
-<U24E3> \xAC\xD4 |3 # 1-12-52
-<U24E4> \xAC\xD5 |3 # 1-12-53
-<U24E5> \xAC\xD6 |3 # 1-12-54
-<U24E6> \xAC\xD7 |3 # 1-12-55
-<U24E7> \xAC\xD8 |3 # 1-12-56
-<U24E8> \xAC\xD9 |3 # 1-12-57
-<U24E9> \xAC\xDA |3 # 1-12-58
-<U32D0> \xAC\xDB |3 # 1-12-59
-<U32D1> \xAC\xDC |3 # 1-12-60
-<U32D2> \xAC\xDD |3 # 1-12-61
-<U32D3> \xAC\xDE |3 # 1-12-62
-<U32D4> \xAC\xDF |3 # 1-12-63
-<U32D5> \xAC\xE0 |3 # 1-12-64
-<U32D6> \xAC\xE1 |3 # 1-12-65
-<U32D7> \xAC\xE2 |3 # 1-12-66
-<U32D8> \xAC\xE3 |3 # 1-12-67
-<U32D9> \xAC\xE4 |3 # 1-12-68
-<U32DA> \xAC\xE5 |3 # 1-12-69
-<U32DB> \xAC\xE6 |3 # 1-12-70
-<U32DC> \xAC\xE7 |3 # 1-12-71
-<U32DD> \xAC\xE8 |3 # 1-12-72
-<U32DE> \xAC\xE9 |3 # 1-12-73
-<U32DF> \xAC\xEA |3 # 1-12-74
-<U32E0> \xAC\xEB |3 # 1-12-75
-<U32E1> \xAC\xEC |3 # 1-12-76
-<U32E2> \xAC\xED |3 # 1-12-77
-<U32E3> \xAC\xEE |3 # 1-12-78
-<U32FA> \xAC\xEF |3 # 1-12-79
-<U32E9> \xAC\xF0 |3 # 1-12-80
-<U32E5> \xAC\xF1 |3 # 1-12-81
-<U32ED> \xAC\xF2 |3 # 1-12-82
-<U32EC> \xAC\xF3 |3 # 1-12-83
-<U2051> \xAC\xFD |3 # 1-12-93
-<U2042> \xAC\xFE |3 # 1-12-94
-<U2460> \xAD\xA1 |3 # 1-13-1
-<U2461> \xAD\xA2 |3 # 1-13-2
-<U2462> \xAD\xA3 |3 # 1-13-3
-<U2463> \xAD\xA4 |3 # 1-13-4
-<U2464> \xAD\xA5 |3 # 1-13-5
-<U2465> \xAD\xA6 |3 # 1-13-6
-<U2466> \xAD\xA7 |3 # 1-13-7
-<U2467> \xAD\xA8 |3 # 1-13-8
-<U2468> \xAD\xA9 |3 # 1-13-9
-<U2469> \xAD\xAA |3 # 1-13-10
-<U246A> \xAD\xAB |3 # 1-13-11
-<U246B> \xAD\xAC |3 # 1-13-12
-<U246C> \xAD\xAD |3 # 1-13-13
-<U246D> \xAD\xAE |3 # 1-13-14
-<U246E> \xAD\xAF |3 # 1-13-15
-<U246F> \xAD\xB0 |3 # 1-13-16
-<U2470> \xAD\xB1 |3 # 1-13-17
-<U2471> \xAD\xB2 |3 # 1-13-18
-<U2472> \xAD\xB3 |3 # 1-13-19
-<U2473> \xAD\xB4 |3 # 1-13-20
-<U2160> \xAD\xB5 |3 # 1-13-21
-<U2161> \xAD\xB6 |3 # 1-13-22
-<U2162> \xAD\xB7 |3 # 1-13-23
-<U2163> \xAD\xB8 |3 # 1-13-24
-<U2164> \xAD\xB9 |3 # 1-13-25
-<U2165> \xAD\xBA |3 # 1-13-26
-<U2166> \xAD\xBB |3 # 1-13-27
-<U2167> \xAD\xBC |3 # 1-13-28
-<U2168> \xAD\xBD |3 # 1-13-29
-<U2169> \xAD\xBE |3 # 1-13-30
-<U216A> \xAD\xBF |3 # 1-13-31
-<U3349> \xAD\xC0 |3 # 1-13-32
-<U3314> \xAD\xC1 |3 # 1-13-33
-<U3322> \xAD\xC2 |3 # 1-13-34
-<U334D> \xAD\xC3 |3 # 1-13-35
-<U3318> \xAD\xC4 |3 # 1-13-36
-<U3327> \xAD\xC5 |3 # 1-13-37
-<U3303> \xAD\xC6 |3 # 1-13-38
-<U3336> \xAD\xC7 |3 # 1-13-39
-<U3351> \xAD\xC8 |3 # 1-13-40
-<U3357> \xAD\xC9 |3 # 1-13-41
-<U330D> \xAD\xCA |3 # 1-13-42
-<U3326> \xAD\xCB |3 # 1-13-43
-<U3323> \xAD\xCC |3 # 1-13-44
-<U332B> \xAD\xCD |3 # 1-13-45
-<U334A> \xAD\xCE |3 # 1-13-46
-<U333B> \xAD\xCF |3 # 1-13-47
-<U339C> \xAD\xD0 |3 # 1-13-48
-<U339D> \xAD\xD1 |3 # 1-13-49
-<U339E> \xAD\xD2 |3 # 1-13-50
-<U338E> \xAD\xD3 |3 # 1-13-51
-<U338F> \xAD\xD4 |3 # 1-13-52
-<U33C4> \xAD\xD5 |3 # 1-13-53
-<U33A1> \xAD\xD6 |3 # 1-13-54
-<U216B> \xAD\xD7 |3 # 1-13-55
-<U337B> \xAD\xDF |3 # 1-13-63
-<U301D> \xAD\xE0 |3 # 1-13-64
-<U301F> \xAD\xE1 |3 # 1-13-65
-<U2116> \xAD\xE2 |3 # 1-13-66
-<U33CD> \xAD\xE3 |3 # 1-13-67
-<U2121> \xAD\xE4 |3 # 1-13-68
-<U32A4> \xAD\xE5 |3 # 1-13-69
-<U32A5> \xAD\xE6 |3 # 1-13-70
-<U32A6> \xAD\xE7 |3 # 1-13-71
-<U32A7> \xAD\xE8 |3 # 1-13-72
-<U32A8> \xAD\xE9 |3 # 1-13-73
-<U3231> \xAD\xEA |3 # 1-13-74
-<U3232> \xAD\xEB |3 # 1-13-75
-<U3239> \xAD\xEC |3 # 1-13-76
-<U337E> \xAD\xED |3 # 1-13-77
-<U337D> \xAD\xEE |3 # 1-13-78
-<U337C> \xAD\xEF |3 # 1-13-79
-<U222E> \xAD\xF3 |3 # 1-13-83
-<U221F> \xAD\xF8 |3 # 1-13-88
-<U22BF> \xAD\xF9 |3 # 1-13-89
-<U2756> \xAD\xFD |3 # 1-13-93
-<U261E> \xAD\xFE |3 # 1-13-94
-<U2000B> \xAE\xA2 |3 # 1-14-2
-<U3402> \xAE\xA3 |3 # 1-14-3
-<U4E28> \xAE\xA4 |3 # 1-14-4
-<U4E2F> \xAE\xA5 |3 # 1-14-5
-<U4E30> \xAE\xA6 |3 # 1-14-6
-<U4E8D> \xAE\xA7 |3 # 1-14-7
-<U4EE1> \xAE\xA8 |3 # 1-14-8
-<U4EFD> \xAE\xA9 |3 # 1-14-9
-<U4EFF> \xAE\xAA |3 # 1-14-10
-<U4F03> \xAE\xAB |3 # 1-14-11
-<U4F0B> \xAE\xAC |3 # 1-14-12
-<U4F60> \xAE\xAD |3 # 1-14-13
-<U4F48> \xAE\xAE |3 # 1-14-14
-<U4F49> \xAE\xAF |3 # 1-14-15
-<U4F56> \xAE\xB0 |3 # 1-14-16
-<U4F5F> \xAE\xB1 |3 # 1-14-17
-<U4F6A> \xAE\xB2 |3 # 1-14-18
-<U4F6C> \xAE\xB3 |3 # 1-14-19
-<U4F7E> \xAE\xB4 |3 # 1-14-20
-<U4F8A> \xAE\xB5 |3 # 1-14-21
-<U4F94> \xAE\xB6 |3 # 1-14-22
-<U4F97> \xAE\xB7 |3 # 1-14-23
-<UFA30> \xAE\xB8 |3 # 1-14-24
-<U4FC9> \xAE\xB9 |3 # 1-14-25
-<U4FE0> \xAE\xBA |3 # 1-14-26
-<U5001> \xAE\xBB |3 # 1-14-27
-<U5002> \xAE\xBC |3 # 1-14-28
-<U500E> \xAE\xBD |3 # 1-14-29
-<U5018> \xAE\xBE |3 # 1-14-30
-<U5027> \xAE\xBF |3 # 1-14-31
-<U502E> \xAE\xC0 |3 # 1-14-32
-<U5040> \xAE\xC1 |3 # 1-14-33
-<U503B> \xAE\xC2 |3 # 1-14-34
-<U5041> \xAE\xC3 |3 # 1-14-35
-<U5094> \xAE\xC4 |3 # 1-14-36
-<U50CC> \xAE\xC5 |3 # 1-14-37
-<U50F2> \xAE\xC6 |3 # 1-14-38
-<U50D0> \xAE\xC7 |3 # 1-14-39
-<U50E6> \xAE\xC8 |3 # 1-14-40
-<UFA31> \xAE\xC9 |3 # 1-14-41
-<U5106> \xAE\xCA |3 # 1-14-42
-<U5103> \xAE\xCB |3 # 1-14-43
-<U510B> \xAE\xCC |3 # 1-14-44
-<U511E> \xAE\xCD |3 # 1-14-45
-<U5135> \xAE\xCE |3 # 1-14-46
-<U514A> \xAE\xCF |3 # 1-14-47
-<UFA32> \xAE\xD0 |3 # 1-14-48
-<U5155> \xAE\xD1 |3 # 1-14-49
-<U5157> \xAE\xD2 |3 # 1-14-50
-<U34B5> \xAE\xD3 |3 # 1-14-51
-<U519D> \xAE\xD4 |3 # 1-14-52
-<U51C3> \xAE\xD5 |3 # 1-14-53
-<U51CA> \xAE\xD6 |3 # 1-14-54
-<U51DE> \xAE\xD7 |3 # 1-14-55
-<U51E2> \xAE\xD8 |3 # 1-14-56
-<U51EE> \xAE\xD9 |3 # 1-14-57
-<U5201> \xAE\xDA |3 # 1-14-58
-<U34DB> \xAE\xDB |3 # 1-14-59
-<U5213> \xAE\xDC |3 # 1-14-60
-<U5215> \xAE\xDD |3 # 1-14-61
-<U5249> \xAE\xDE |3 # 1-14-62
-<U5257> \xAE\xDF |3 # 1-14-63
-<U5261> \xAE\xE0 |3 # 1-14-64
-<U5293> \xAE\xE1 |3 # 1-14-65
-<U52C8> \xAE\xE2 |3 # 1-14-66
-<UFA33> \xAE\xE3 |3 # 1-14-67
-<U52CC> \xAE\xE4 |3 # 1-14-68
-<U52D0> \xAE\xE5 |3 # 1-14-69
-<U52D6> \xAE\xE6 |3 # 1-14-70
-<U52DB> \xAE\xE7 |3 # 1-14-71
-<UFA34> \xAE\xE8 |3 # 1-14-72
-<U52F0> \xAE\xE9 |3 # 1-14-73
-<U52FB> \xAE\xEA |3 # 1-14-74
-<U5300> \xAE\xEB |3 # 1-14-75
-<U5307> \xAE\xEC |3 # 1-14-76
-<U531C> \xAE\xED |3 # 1-14-77
-<UFA35> \xAE\xEE |3 # 1-14-78
-<U5361> \xAE\xEF |3 # 1-14-79
-<U5363> \xAE\xF0 |3 # 1-14-80
-<U537D> \xAE\xF1 |3 # 1-14-81
-<U5393> \xAE\xF2 |3 # 1-14-82
-<U539D> \xAE\xF3 |3 # 1-14-83
-<U53B2> \xAE\xF4 |3 # 1-14-84
-<U5412> \xAE\xF5 |3 # 1-14-85
-<U5427> \xAE\xF6 |3 # 1-14-86
-<U544D> \xAE\xF7 |3 # 1-14-87
-<U549C> \xAE\xF8 |3 # 1-14-88
-<U546B> \xAE\xF9 |3 # 1-14-89
-<U5474> \xAE\xFA |3 # 1-14-90
-<U547F> \xAE\xFB |3 # 1-14-91
-<U5488> \xAE\xFC |3 # 1-14-92
-<U5496> \xAE\xFD |3 # 1-14-93
-<U54A1> \xAE\xFE |3 # 1-14-94
-<U54A9> \xAF\xA1 |3 # 1-15-1
-<U54C6> \xAF\xA2 |3 # 1-15-2
-<U54FF> \xAF\xA3 |3 # 1-15-3
-<U550E> \xAF\xA4 |3 # 1-15-4
-<U552B> \xAF\xA5 |3 # 1-15-5
-<U5535> \xAF\xA6 |3 # 1-15-6
-<U5550> \xAF\xA7 |3 # 1-15-7
-<U555E> \xAF\xA8 |3 # 1-15-8
-<U5581> \xAF\xA9 |3 # 1-15-9
-<U5586> \xAF\xAA |3 # 1-15-10
-<U558E> \xAF\xAB |3 # 1-15-11
-<UFA36> \xAF\xAC |3 # 1-15-12
-<U55AD> \xAF\xAD |3 # 1-15-13
-<U55CE> \xAF\xAE |3 # 1-15-14
-<UFA37> \xAF\xAF |3 # 1-15-15
-<U5608> \xAF\xB0 |3 # 1-15-16
-<U560E> \xAF\xB1 |3 # 1-15-17
-<U563B> \xAF\xB2 |3 # 1-15-18
-<U5649> \xAF\xB3 |3 # 1-15-19
-<U5676> \xAF\xB4 |3 # 1-15-20
-<U5666> \xAF\xB5 |3 # 1-15-21
-<UFA38> \xAF\xB6 |3 # 1-15-22
-<U566F> \xAF\xB7 |3 # 1-15-23
-<U5671> \xAF\xB8 |3 # 1-15-24
-<U5672> \xAF\xB9 |3 # 1-15-25
-<U5699> \xAF\xBA |3 # 1-15-26
-<U569E> \xAF\xBB |3 # 1-15-27
-<U56A9> \xAF\xBC |3 # 1-15-28
-<U56AC> \xAF\xBD |3 # 1-15-29
-<U56B3> \xAF\xBE |3 # 1-15-30
-<U56C9> \xAF\xBF |3 # 1-15-31
-<U56CA> \xAF\xC0 |3 # 1-15-32
-<U570A> \xAF\xC1 |3 # 1-15-33
-<U2123D> \xAF\xC2 |3 # 1-15-34
-<U5721> \xAF\xC3 |3 # 1-15-35
-<U572F> \xAF\xC4 |3 # 1-15-36
-<U5733> \xAF\xC5 |3 # 1-15-37
-<U5734> \xAF\xC6 |3 # 1-15-38
-<U5770> \xAF\xC7 |3 # 1-15-39
-<U5777> \xAF\xC8 |3 # 1-15-40
-<U577C> \xAF\xC9 |3 # 1-15-41
-<U579C> \xAF\xCA |3 # 1-15-42
-<UFA0F> \xAF\xCB |3 # 1-15-43
-<U2131B> \xAF\xCC |3 # 1-15-44
-<U57B8> \xAF\xCD |3 # 1-15-45
-<U57C7> \xAF\xCE |3 # 1-15-46
-<U57C8> \xAF\xCF |3 # 1-15-47
-<U57CF> \xAF\xD0 |3 # 1-15-48
-<U57E4> \xAF\xD1 |3 # 1-15-49
-<U57ED> \xAF\xD2 |3 # 1-15-50
-<U57F5> \xAF\xD3 |3 # 1-15-51
-<U57F6> \xAF\xD4 |3 # 1-15-52
-<U57FF> \xAF\xD5 |3 # 1-15-53
-<U5809> \xAF\xD6 |3 # 1-15-54
-<UFA10> \xAF\xD7 |3 # 1-15-55
-<U5861> \xAF\xD8 |3 # 1-15-56
-<U5864> \xAF\xD9 |3 # 1-15-57
-<UFA39> \xAF\xDA |3 # 1-15-58
-<U587C> \xAF\xDB |3 # 1-15-59
-<U5889> \xAF\xDC |3 # 1-15-60
-<U589E> \xAF\xDD |3 # 1-15-61
-<UFA3A> \xAF\xDE |3 # 1-15-62
-<U58A9> \xAF\xDF |3 # 1-15-63
-<U2146E> \xAF\xE0 |3 # 1-15-64
-<U58D2> \xAF\xE1 |3 # 1-15-65
-<U58CE> \xAF\xE2 |3 # 1-15-66
-<U58D4> \xAF\xE3 |3 # 1-15-67
-<U58DA> \xAF\xE4 |3 # 1-15-68
-<U58E0> \xAF\xE5 |3 # 1-15-69
-<U58E9> \xAF\xE6 |3 # 1-15-70
-<U590C> \xAF\xE7 |3 # 1-15-71
-<U8641> \xAF\xE8 |3 # 1-15-72
-<U595D> \xAF\xE9 |3 # 1-15-73
-<U596D> \xAF\xEA |3 # 1-15-74
-<U598B> \xAF\xEB |3 # 1-15-75
-<U5992> \xAF\xEC |3 # 1-15-76
-<U59A4> \xAF\xED |3 # 1-15-77
-<U59C3> \xAF\xEE |3 # 1-15-78
-<U59D2> \xAF\xEF |3 # 1-15-79
-<U59DD> \xAF\xF0 |3 # 1-15-80
-<U5A13> \xAF\xF1 |3 # 1-15-81
-<U5A23> \xAF\xF2 |3 # 1-15-82
-<U5A67> \xAF\xF3 |3 # 1-15-83
-<U5A6D> \xAF\xF4 |3 # 1-15-84
-<U5A77> \xAF\xF5 |3 # 1-15-85
-<U5A7E> \xAF\xF6 |3 # 1-15-86
-<U5A84> \xAF\xF7 |3 # 1-15-87
-<U5A9E> \xAF\xF8 |3 # 1-15-88
-<U5AA7> \xAF\xF9 |3 # 1-15-89
-<U5AC4> \xAF\xFA |3 # 1-15-90
-<U218BD> \xAF\xFB |3 # 1-15-91
-<U5B19> \xAF\xFC |3 # 1-15-92
-<U5B25> \xAF\xFD |3 # 1-15-93
-<U5B41> \xCF\xD5 |3 # 1-47-53
-<U5B56> \xCF\xD6 |3 # 1-47-54
-<U5B7D> \xCF\xD7 |3 # 1-47-55
-<U5B93> \xCF\xD8 |3 # 1-47-56
-<U5BD8> \xCF\xD9 |3 # 1-47-57
-<U5BEC> \xCF\xDA |3 # 1-47-58
-<U5C12> \xCF\xDB |3 # 1-47-59
-<U5C1E> \xCF\xDC |3 # 1-47-60
-<U5C23> \xCF\xDD |3 # 1-47-61
-<U5C2B> \xCF\xDE |3 # 1-47-62
-<U378D> \xCF\xDF |3 # 1-47-63
-<U5C62> \xCF\xE0 |3 # 1-47-64
-<UFA3B> \xCF\xE1 |3 # 1-47-65
-<UFA3C> \xCF\xE2 |3 # 1-47-66
-<U216B4> \xCF\xE3 |3 # 1-47-67
-<U5C7A> \xCF\xE4 |3 # 1-47-68
-<U5C8F> \xCF\xE5 |3 # 1-47-69
-<U5C9F> \xCF\xE6 |3 # 1-47-70
-<U5CA3> \xCF\xE7 |3 # 1-47-71
-<U5CAA> \xCF\xE8 |3 # 1-47-72
-<U5CBA> \xCF\xE9 |3 # 1-47-73
-<U5CCB> \xCF\xEA |3 # 1-47-74
-<U5CD0> \xCF\xEB |3 # 1-47-75
-<U5CD2> \xCF\xEC |3 # 1-47-76
-<U5CF4> \xCF\xED |3 # 1-47-77
-<U21E34> \xCF\xEE |3 # 1-47-78
-<U37E2> \xCF\xEF |3 # 1-47-79
-<U5D0D> \xCF\xF0 |3 # 1-47-80
-<U5D27> \xCF\xF1 |3 # 1-47-81
-<UFA11> \xCF\xF2 |3 # 1-47-82
-<U5D46> \xCF\xF3 |3 # 1-47-83
-<U5D47> \xCF\xF4 |3 # 1-47-84
-<U5D53> \xCF\xF5 |3 # 1-47-85
-<U5D4A> \xCF\xF6 |3 # 1-47-86
-<U5D6D> \xCF\xF7 |3 # 1-47-87
-<U5D81> \xCF\xF8 |3 # 1-47-88
-<U5DA0> \xCF\xF9 |3 # 1-47-89
-<U5DA4> \xCF\xFA |3 # 1-47-90
-<U5DA7> \xCF\xFB |3 # 1-47-91
-<U5DB8> \xCF\xFC |3 # 1-47-92
-<U5DCB> \xCF\xFD |3 # 1-47-93
-<U5DE2> \xF4\xA8 |3 # 1-84-8
-<U5E14> \xF4\xA9 |3 # 1-84-9
-<U5E18> \xF4\xAA |3 # 1-84-10
-<U5E58> \xF4\xAB |3 # 1-84-11
-<U5E5E> \xF4\xAC |3 # 1-84-12
-<U5EBE> \xF4\xAD |3 # 1-84-13
-<UF928> \xF4\xAE |3 # 1-84-14
-<U5ECB> \xF4\xAF |3 # 1-84-15
-<U5EF9> \xF4\xB0 |3 # 1-84-16
-<U5F00> \xF4\xB1 |3 # 1-84-17
-<U5F02> \xF4\xB2 |3 # 1-84-18
-<U5F07> \xF4\xB3 |3 # 1-84-19
-<U5F1D> \xF4\xB4 |3 # 1-84-20
-<U5F23> \xF4\xB5 |3 # 1-84-21
-<U5F34> \xF4\xB6 |3 # 1-84-22
-<U5F36> \xF4\xB7 |3 # 1-84-23
-<U5F3D> \xF4\xB8 |3 # 1-84-24
-<U5F40> \xF4\xB9 |3 # 1-84-25
-<U5F45> \xF4\xBA |3 # 1-84-26
-<U5F54> \xF4\xBB |3 # 1-84-27
-<U5F58> \xF4\xBC |3 # 1-84-28
-<U5F64> \xF4\xBD |3 # 1-84-29
-<U5F67> \xF4\xBE |3 # 1-84-30
-<U5F7D> \xF4\xBF |3 # 1-84-31
-<U5F89> \xF4\xC0 |3 # 1-84-32
-<U5F9C> \xF4\xC1 |3 # 1-84-33
-<U5FA7> \xF4\xC2 |3 # 1-84-34
-<U5FAF> \xF4\xC3 |3 # 1-84-35
-<U5FB5> \xF4\xC4 |3 # 1-84-36
-<U5FB7> \xF4\xC5 |3 # 1-84-37
-<U5FC9> \xF4\xC6 |3 # 1-84-38
-<U5FDE> \xF4\xC7 |3 # 1-84-39
-<U5FE1> \xF4\xC8 |3 # 1-84-40
-<U5FE9> \xF4\xC9 |3 # 1-84-41
-<U600D> \xF4\xCA |3 # 1-84-42
-<U6014> \xF4\xCB |3 # 1-84-43
-<U6018> \xF4\xCC |3 # 1-84-44
-<U6033> \xF4\xCD |3 # 1-84-45
-<U6035> \xF4\xCE |3 # 1-84-46
-<U6047> \xF4\xCF |3 # 1-84-47
-<UFA3D> \xF4\xD0 |3 # 1-84-48
-<U609D> \xF4\xD1 |3 # 1-84-49
-<U609E> \xF4\xD2 |3 # 1-84-50
-<U60CB> \xF4\xD3 |3 # 1-84-51
-<U60D4> \xF4\xD4 |3 # 1-84-52
-<U60D5> \xF4\xD5 |3 # 1-84-53
-<U60DD> \xF4\xD6 |3 # 1-84-54
-<U60F8> \xF4\xD7 |3 # 1-84-55
-<U611C> \xF4\xD8 |3 # 1-84-56
-<U612B> \xF4\xD9 |3 # 1-84-57
-<U6130> \xF4\xDA |3 # 1-84-58
-<U6137> \xF4\xDB |3 # 1-84-59
-<UFA3E> \xF4\xDC |3 # 1-84-60
-<U618D> \xF4\xDD |3 # 1-84-61
-<UFA3F> \xF4\xDE |3 # 1-84-62
-<U61BC> \xF4\xDF |3 # 1-84-63
-<U61B9> \xF4\xE0 |3 # 1-84-64
-<UFA40> \xF4\xE1 |3 # 1-84-65
-<U6222> \xF4\xE2 |3 # 1-84-66
-<U623E> \xF4\xE3 |3 # 1-84-67
-<U6243> \xF4\xE4 |3 # 1-84-68
-<U6256> \xF4\xE5 |3 # 1-84-69
-<U625A> \xF4\xE6 |3 # 1-84-70
-<U626F> \xF4\xE7 |3 # 1-84-71
-<U6285> \xF4\xE8 |3 # 1-84-72
-<U62C4> \xF4\xE9 |3 # 1-84-73
-<U62D6> \xF4\xEA |3 # 1-84-74
-<U62FC> \xF4\xEB |3 # 1-84-75
-<U630A> \xF4\xEC |3 # 1-84-76
-<U6318> \xF4\xED |3 # 1-84-77
-<U6339> \xF4\xEE |3 # 1-84-78
-<U6343> \xF4\xEF |3 # 1-84-79
-<U6365> \xF4\xF0 |3 # 1-84-80
-<U637C> \xF4\xF1 |3 # 1-84-81
-<U63E5> \xF4\xF2 |3 # 1-84-82
-<U63ED> \xF4\xF3 |3 # 1-84-83
-<U63F5> \xF4\xF4 |3 # 1-84-84
-<U6410> \xF4\xF5 |3 # 1-84-85
-<U6414> \xF4\xF6 |3 # 1-84-86
-<U6422> \xF4\xF7 |3 # 1-84-87
-<U6479> \xF4\xF8 |3 # 1-84-88
-<U6451> \xF4\xF9 |3 # 1-84-89
-<U6460> \xF4\xFA |3 # 1-84-90
-<U646D> \xF4\xFB |3 # 1-84-91
-<U64CE> \xF4\xFC |3 # 1-84-92
-<U64BE> \xF4\xFD |3 # 1-84-93
-<U64BF> \xF4\xFE |3 # 1-84-94
-<U64C4> \xF5\xA1 |3 # 1-85-1
-<U64CA> \xF5\xA2 |3 # 1-85-2
-<U64D0> \xF5\xA3 |3 # 1-85-3
-<U64F7> \xF5\xA4 |3 # 1-85-4
-<U64FB> \xF5\xA5 |3 # 1-85-5
-<U6522> \xF5\xA6 |3 # 1-85-6
-<U6529> \xF5\xA7 |3 # 1-85-7
-<UFA41> \xF5\xA8 |3 # 1-85-8
-<U6567> \xF5\xA9 |3 # 1-85-9
-<U659D> \xF5\xAA |3 # 1-85-10
-<UFA42> \xF5\xAB |3 # 1-85-11
-<U6600> \xF5\xAC |3 # 1-85-12
-<U6609> \xF5\xAD |3 # 1-85-13
-<U6615> \xF5\xAE |3 # 1-85-14
-<U661E> \xF5\xAF |3 # 1-85-15
-<U663A> \xF5\xB0 |3 # 1-85-16
-<U6622> \xF5\xB1 |3 # 1-85-17
-<U6624> \xF5\xB2 |3 # 1-85-18
-<U662B> \xF5\xB3 |3 # 1-85-19
-<U6630> \xF5\xB4 |3 # 1-85-20
-<U6631> \xF5\xB5 |3 # 1-85-21
-<U6633> \xF5\xB6 |3 # 1-85-22
-<U66FB> \xF5\xB7 |3 # 1-85-23
-<U6648> \xF5\xB8 |3 # 1-85-24
-<U664C> \xF5\xB9 |3 # 1-85-25
-<U231C4> \xF5\xBA |3 # 1-85-26
-<U6659> \xF5\xBB |3 # 1-85-27
-<U665A> \xF5\xBC |3 # 1-85-28
-<U6661> \xF5\xBD |3 # 1-85-29
-<U6665> \xF5\xBE |3 # 1-85-30
-<U6673> \xF5\xBF |3 # 1-85-31
-<U6677> \xF5\xC0 |3 # 1-85-32
-<U6678> \xF5\xC1 |3 # 1-85-33
-<U668D> \xF5\xC2 |3 # 1-85-34
-<UFA43> \xF5\xC3 |3 # 1-85-35
-<U66A0> \xF5\xC4 |3 # 1-85-36
-<U66B2> \xF5\xC5 |3 # 1-85-37
-<U66BB> \xF5\xC6 |3 # 1-85-38
-<U66C6> \xF5\xC7 |3 # 1-85-39
-<U66C8> \xF5\xC8 |3 # 1-85-40
-<U3B22> \xF5\xC9 |3 # 1-85-41
-<U66DB> \xF5\xCA |3 # 1-85-42
-<U66E8> \xF5\xCB |3 # 1-85-43
-<U66FA> \xF5\xCC |3 # 1-85-44
-<U6713> \xF5\xCD |3 # 1-85-45
-<UF929> \xF5\xCE |3 # 1-85-46
-<U6733> \xF5\xCF |3 # 1-85-47
-<U6766> \xF5\xD0 |3 # 1-85-48
-<U6747> \xF5\xD1 |3 # 1-85-49
-<U6748> \xF5\xD2 |3 # 1-85-50
-<U677B> \xF5\xD3 |3 # 1-85-51
-<U6781> \xF5\xD4 |3 # 1-85-52
-<U6793> \xF5\xD5 |3 # 1-85-53
-<U6798> \xF5\xD6 |3 # 1-85-54
-<U679B> \xF5\xD7 |3 # 1-85-55
-<U67BB> \xF5\xD8 |3 # 1-85-56
-<U67F9> \xF5\xD9 |3 # 1-85-57
-<U67C0> \xF5\xDA |3 # 1-85-58
-<U67D7> \xF5\xDB |3 # 1-85-59
-<U67FC> \xF5\xDC |3 # 1-85-60
-<U6801> \xF5\xDD |3 # 1-85-61
-<U6852> \xF5\xDE |3 # 1-85-62
-<U681D> \xF5\xDF |3 # 1-85-63
-<U682C> \xF5\xE0 |3 # 1-85-64
-<U6831> \xF5\xE1 |3 # 1-85-65
-<U685B> \xF5\xE2 |3 # 1-85-66
-<U6872> \xF5\xE3 |3 # 1-85-67
-<U6875> \xF5\xE4 |3 # 1-85-68
-<UFA44> \xF5\xE5 |3 # 1-85-69
-<U68A3> \xF5\xE6 |3 # 1-85-70
-<U68A5> \xF5\xE7 |3 # 1-85-71
-<U68B2> \xF5\xE8 |3 # 1-85-72
-<U68C8> \xF5\xE9 |3 # 1-85-73
-<U68D0> \xF5\xEA |3 # 1-85-74
-<U68E8> \xF5\xEB |3 # 1-85-75
-<U68ED> \xF5\xEC |3 # 1-85-76
-<U68F0> \xF5\xED |3 # 1-85-77
-<U68F1> \xF5\xEE |3 # 1-85-78
-<U68FC> \xF5\xEF |3 # 1-85-79
-<U690A> \xF5\xF0 |3 # 1-85-80
-<U6949> \xF5\xF1 |3 # 1-85-81
-<U235C4> \xF5\xF2 |3 # 1-85-82
-<U6935> \xF5\xF3 |3 # 1-85-83
-<U6942> \xF5\xF4 |3 # 1-85-84
-<U6957> \xF5\xF5 |3 # 1-85-85
-<U6963> \xF5\xF6 |3 # 1-85-86
-<U6964> \xF5\xF7 |3 # 1-85-87
-<U6968> \xF5\xF8 |3 # 1-85-88
-<U6980> \xF5\xF9 |3 # 1-85-89
-<UFA14> \xF5\xFA |3 # 1-85-90
-<U69A5> \xF5\xFB |3 # 1-85-91
-<U69AD> \xF5\xFC |3 # 1-85-92
-<U69CF> \xF5\xFD |3 # 1-85-93
-<U3BB6> \xF5\xFE |3 # 1-85-94
-<U3BC3> \xF6\xA1 |3 # 1-86-1
-<U69E2> \xF6\xA2 |3 # 1-86-2
-<U69E9> \xF6\xA3 |3 # 1-86-3
-<U69EA> \xF6\xA4 |3 # 1-86-4
-<U69F5> \xF6\xA5 |3 # 1-86-5
-<U69F6> \xF6\xA6 |3 # 1-86-6
-<U6A0F> \xF6\xA7 |3 # 1-86-7
-<U6A15> \xF6\xA8 |3 # 1-86-8
-<U2373F> \xF6\xA9 |3 # 1-86-9
-<U6A3B> \xF6\xAA |3 # 1-86-10
-<U6A3E> \xF6\xAB |3 # 1-86-11
-<U6A45> \xF6\xAC |3 # 1-86-12
-<U6A50> \xF6\xAD |3 # 1-86-13
-<U6A56> \xF6\xAE |3 # 1-86-14
-<U6A5B> \xF6\xAF |3 # 1-86-15
-<U6A6B> \xF6\xB0 |3 # 1-86-16
-<U6A73> \xF6\xB1 |3 # 1-86-17
-<U23763> \xF6\xB2 |3 # 1-86-18
-<U6A89> \xF6\xB3 |3 # 1-86-19
-<U6A94> \xF6\xB4 |3 # 1-86-20
-<U6A9D> \xF6\xB5 |3 # 1-86-21
-<U6A9E> \xF6\xB6 |3 # 1-86-22
-<U6AA5> \xF6\xB7 |3 # 1-86-23
-<U6AE4> \xF6\xB8 |3 # 1-86-24
-<U6AE7> \xF6\xB9 |3 # 1-86-25
-<U3C0F> \xF6\xBA |3 # 1-86-26
-<UF91D> \xF6\xBB |3 # 1-86-27
-<U6B1B> \xF6\xBC |3 # 1-86-28
-<U6B1E> \xF6\xBD |3 # 1-86-29
-<U6B2C> \xF6\xBE |3 # 1-86-30
-<U6B35> \xF6\xBF |3 # 1-86-31
-<U6B46> \xF6\xC0 |3 # 1-86-32
-<U6B56> \xF6\xC1 |3 # 1-86-33
-<U6B60> \xF6\xC2 |3 # 1-86-34
-<U6B65> \xF6\xC3 |3 # 1-86-35
-<U6B67> \xF6\xC4 |3 # 1-86-36
-<U6B77> \xF6\xC5 |3 # 1-86-37
-<U6B82> \xF6\xC6 |3 # 1-86-38
-<U6BA9> \xF6\xC7 |3 # 1-86-39
-<U6BAD> \xF6\xC8 |3 # 1-86-40
-<UF970> \xF6\xC9 |3 # 1-86-41
-<U6BCF> \xF6\xCA |3 # 1-86-42
-<U6BD6> \xF6\xCB |3 # 1-86-43
-<U6BD7> \xF6\xCC |3 # 1-86-44
-<U6BFF> \xF6\xCD |3 # 1-86-45
-<U6C05> \xF6\xCE |3 # 1-86-46
-<U6C10> \xF6\xCF |3 # 1-86-47
-<U6C33> \xF6\xD0 |3 # 1-86-48
-<U6C59> \xF6\xD1 |3 # 1-86-49
-<U6C5C> \xF6\xD2 |3 # 1-86-50
-<U6CAA> \xF6\xD3 |3 # 1-86-51
-<U6C74> \xF6\xD4 |3 # 1-86-52
-<U6C76> \xF6\xD5 |3 # 1-86-53
-<U6C85> \xF6\xD6 |3 # 1-86-54
-<U6C86> \xF6\xD7 |3 # 1-86-55
-<U6C98> \xF6\xD8 |3 # 1-86-56
-<U6C9C> \xF6\xD9 |3 # 1-86-57
-<U6CFB> \xF6\xDA |3 # 1-86-58
-<U6CC6> \xF6\xDB |3 # 1-86-59
-<U6CD4> \xF6\xDC |3 # 1-86-60
-<U6CE0> \xF6\xDD |3 # 1-86-61
-<U6CEB> \xF6\xDE |3 # 1-86-62
-<U6CEE> \xF6\xDF |3 # 1-86-63
-<U23CFE> \xF6\xE0 |3 # 1-86-64
-<U6D04> \xF6\xE1 |3 # 1-86-65
-<U6D0E> \xF6\xE2 |3 # 1-86-66
-<U6D2E> \xF6\xE3 |3 # 1-86-67
-<U6D31> \xF6\xE4 |3 # 1-86-68
-<U6D39> \xF6\xE5 |3 # 1-86-69
-<U6D3F> \xF6\xE6 |3 # 1-86-70
-<U6D58> \xF6\xE7 |3 # 1-86-71
-<U6D65> \xF6\xE8 |3 # 1-86-72
-<UFA45> \xF6\xE9 |3 # 1-86-73
-<U6D82> \xF6\xEA |3 # 1-86-74
-<U6D87> \xF6\xEB |3 # 1-86-75
-<U6D89> \xF6\xEC |3 # 1-86-76
-<U6D94> \xF6\xED |3 # 1-86-77
-<U6DAA> \xF6\xEE |3 # 1-86-78
-<U6DAC> \xF6\xEF |3 # 1-86-79
-<U6DBF> \xF6\xF0 |3 # 1-86-80
-<U6DC4> \xF6\xF1 |3 # 1-86-81
-<U6DD6> \xF6\xF2 |3 # 1-86-82
-<U6DDA> \xF6\xF3 |3 # 1-86-83
-<U6DDB> \xF6\xF4 |3 # 1-86-84
-<U6DDD> \xF6\xF5 |3 # 1-86-85
-<U6DFC> \xF6\xF6 |3 # 1-86-86
-<UFA46> \xF6\xF7 |3 # 1-86-87
-<U6E34> \xF6\xF8 |3 # 1-86-88
-<U6E44> \xF6\xF9 |3 # 1-86-89
-<U6E5C> \xF6\xFA |3 # 1-86-90
-<U6E5E> \xF6\xFB |3 # 1-86-91
-<U6EAB> \xF6\xFC |3 # 1-86-92
-<U6EB1> \xF6\xFD |3 # 1-86-93
-<U6EC1> \xF6\xFE |3 # 1-86-94
-<U6EC7> \xF7\xA1 |3 # 1-87-1
-<U6ECE> \xF7\xA2 |3 # 1-87-2
-<U6F10> \xF7\xA3 |3 # 1-87-3
-<U6F1A> \xF7\xA4 |3 # 1-87-4
-<UFA47> \xF7\xA5 |3 # 1-87-5
-<U6F2A> \xF7\xA6 |3 # 1-87-6
-<U6F2F> \xF7\xA7 |3 # 1-87-7
-<U6F33> \xF7\xA8 |3 # 1-87-8
-<U6F51> \xF7\xA9 |3 # 1-87-9
-<U6F59> \xF7\xAA |3 # 1-87-10
-<U6F5E> \xF7\xAB |3 # 1-87-11
-<U6F61> \xF7\xAC |3 # 1-87-12
-<U6F62> \xF7\xAD |3 # 1-87-13
-<U6F7E> \xF7\xAE |3 # 1-87-14
-<U6F88> \xF7\xAF |3 # 1-87-15
-<U6F8C> \xF7\xB0 |3 # 1-87-16
-<U6F8D> \xF7\xB1 |3 # 1-87-17
-<U6F94> \xF7\xB2 |3 # 1-87-18
-<U6FA0> \xF7\xB3 |3 # 1-87-19
-<U6FA7> \xF7\xB4 |3 # 1-87-20
-<U6FB6> \xF7\xB5 |3 # 1-87-21
-<U6FBC> \xF7\xB6 |3 # 1-87-22
-<U6FC7> \xF7\xB7 |3 # 1-87-23
-<U6FCA> \xF7\xB8 |3 # 1-87-24
-<U6FF9> \xF7\xB9 |3 # 1-87-25
-<U6FF0> \xF7\xBA |3 # 1-87-26
-<U6FF5> \xF7\xBB |3 # 1-87-27
-<U7005> \xF7\xBC |3 # 1-87-28
-<U7006> \xF7\xBD |3 # 1-87-29
-<U7028> \xF7\xBE |3 # 1-87-30
-<U704A> \xF7\xBF |3 # 1-87-31
-<U705D> \xF7\xC0 |3 # 1-87-32
-<U705E> \xF7\xC1 |3 # 1-87-33
-<U704E> \xF7\xC2 |3 # 1-87-34
-<U7064> \xF7\xC3 |3 # 1-87-35
-<U7075> \xF7\xC4 |3 # 1-87-36
-<U7085> \xF7\xC5 |3 # 1-87-37
-<U70A4> \xF7\xC6 |3 # 1-87-38
-<U70AB> \xF7\xC7 |3 # 1-87-39
-<U70B7> \xF7\xC8 |3 # 1-87-40
-<U70D4> \xF7\xC9 |3 # 1-87-41
-<U70D8> \xF7\xCA |3 # 1-87-42
-<U70E4> \xF7\xCB |3 # 1-87-43
-<U710F> \xF7\xCC |3 # 1-87-44
-<U712B> \xF7\xCD |3 # 1-87-45
-<U711E> \xF7\xCE |3 # 1-87-46
-<U7120> \xF7\xCF |3 # 1-87-47
-<U712E> \xF7\xD0 |3 # 1-87-48
-<U7130> \xF7\xD1 |3 # 1-87-49
-<U7146> \xF7\xD2 |3 # 1-87-50
-<U7147> \xF7\xD3 |3 # 1-87-51
-<U7151> \xF7\xD4 |3 # 1-87-52
-<UFA48> \xF7\xD5 |3 # 1-87-53
-<U7152> \xF7\xD6 |3 # 1-87-54
-<U715C> \xF7\xD7 |3 # 1-87-55
-<U7160> \xF7\xD8 |3 # 1-87-56
-<U7168> \xF7\xD9 |3 # 1-87-57
-<UFA15> \xF7\xDA |3 # 1-87-58
-<U7185> \xF7\xDB |3 # 1-87-59
-<U7187> \xF7\xDC |3 # 1-87-60
-<U7192> \xF7\xDD |3 # 1-87-61
-<U71C1> \xF7\xDE |3 # 1-87-62
-<U71BA> \xF7\xDF |3 # 1-87-63
-<U71C4> \xF7\xE0 |3 # 1-87-64
-<U71FE> \xF7\xE1 |3 # 1-87-65
-<U7200> \xF7\xE2 |3 # 1-87-66
-<U7215> \xF7\xE3 |3 # 1-87-67
-<U7255> \xF7\xE4 |3 # 1-87-68
-<U7256> \xF7\xE5 |3 # 1-87-69
-<U3E3F> \xF7\xE6 |3 # 1-87-70
-<U728D> \xF7\xE7 |3 # 1-87-71
-<U729B> \xF7\xE8 |3 # 1-87-72
-<U72BE> \xF7\xE9 |3 # 1-87-73
-<U72C0> \xF7\xEA |3 # 1-87-74
-<U72FB> \xF7\xEB |3 # 1-87-75
-<U247F1> \xF7\xEC |3 # 1-87-76
-<U7327> \xF7\xED |3 # 1-87-77
-<U7328> \xF7\xEE |3 # 1-87-78
-<UFA16> \xF7\xEF |3 # 1-87-79
-<U7350> \xF7\xF0 |3 # 1-87-80
-<U7366> \xF7\xF1 |3 # 1-87-81
-<U737C> \xF7\xF2 |3 # 1-87-82
-<U7395> \xF7\xF3 |3 # 1-87-83
-<U739F> \xF7\xF4 |3 # 1-87-84
-<U73A0> \xF7\xF5 |3 # 1-87-85
-<U73A2> \xF7\xF6 |3 # 1-87-86
-<U73A6> \xF7\xF7 |3 # 1-87-87
-<U73AB> \xF7\xF8 |3 # 1-87-88
-<U73C9> \xF7\xF9 |3 # 1-87-89
-<U73CF> \xF7\xFA |3 # 1-87-90
-<U73D6> \xF7\xFB |3 # 1-87-91
-<U73D9> \xF7\xFC |3 # 1-87-92
-<U73E3> \xF7\xFD |3 # 1-87-93
-<U73E9> \xF7\xFE |3 # 1-87-94
-<U7407> \xF8\xA1 |3 # 1-88-1
-<U740A> \xF8\xA2 |3 # 1-88-2
-<U741A> \xF8\xA3 |3 # 1-88-3
-<U741B> \xF8\xA4 |3 # 1-88-4
-<UFA4A> \xF8\xA5 |3 # 1-88-5
-<U7426> \xF8\xA6 |3 # 1-88-6
-<U7428> \xF8\xA7 |3 # 1-88-7
-<U742A> \xF8\xA8 |3 # 1-88-8
-<U742B> \xF8\xA9 |3 # 1-88-9
-<U742C> \xF8\xAA |3 # 1-88-10
-<U742E> \xF8\xAB |3 # 1-88-11
-<U742F> \xF8\xAC |3 # 1-88-12
-<U7430> \xF8\xAD |3 # 1-88-13
-<U7444> \xF8\xAE |3 # 1-88-14
-<U7446> \xF8\xAF |3 # 1-88-15
-<U7447> \xF8\xB0 |3 # 1-88-16
-<U744B> \xF8\xB1 |3 # 1-88-17
-<U7457> \xF8\xB2 |3 # 1-88-18
-<U7462> \xF8\xB3 |3 # 1-88-19
-<U746B> \xF8\xB4 |3 # 1-88-20
-<U746D> \xF8\xB5 |3 # 1-88-21
-<U7486> \xF8\xB6 |3 # 1-88-22
-<U7487> \xF8\xB7 |3 # 1-88-23
-<U7489> \xF8\xB8 |3 # 1-88-24
-<U7498> \xF8\xB9 |3 # 1-88-25
-<U749C> \xF8\xBA |3 # 1-88-26
-<U749F> \xF8\xBB |3 # 1-88-27
-<U74A3> \xF8\xBC |3 # 1-88-28
-<U7490> \xF8\xBD |3 # 1-88-29
-<U74A6> \xF8\xBE |3 # 1-88-30
-<U74A8> \xF8\xBF |3 # 1-88-31
-<U74A9> \xF8\xC0 |3 # 1-88-32
-<U74B5> \xF8\xC1 |3 # 1-88-33
-<U74BF> \xF8\xC2 |3 # 1-88-34
-<U74C8> \xF8\xC3 |3 # 1-88-35
-<U74C9> \xF8\xC4 |3 # 1-88-36
-<U74DA> \xF8\xC5 |3 # 1-88-37
-<U74FF> \xF8\xC6 |3 # 1-88-38
-<U7501> \xF8\xC7 |3 # 1-88-39
-<U7517> \xF8\xC8 |3 # 1-88-40
-<U752F> \xF8\xC9 |3 # 1-88-41
-<U756F> \xF8\xCA |3 # 1-88-42
-<U7579> \xF8\xCB |3 # 1-88-43
-<U7592> \xF8\xCC |3 # 1-88-44
-<U3F72> \xF8\xCD |3 # 1-88-45
-<U75CE> \xF8\xCE |3 # 1-88-46
-<U75E4> \xF8\xCF |3 # 1-88-47
-<U7600> \xF8\xD0 |3 # 1-88-48
-<U7602> \xF8\xD1 |3 # 1-88-49
-<U7608> \xF8\xD2 |3 # 1-88-50
-<U7615> \xF8\xD3 |3 # 1-88-51
-<U7616> \xF8\xD4 |3 # 1-88-52
-<U7619> \xF8\xD5 |3 # 1-88-53
-<U761E> \xF8\xD6 |3 # 1-88-54
-<U762D> \xF8\xD7 |3 # 1-88-55
-<U7635> \xF8\xD8 |3 # 1-88-56
-<U7643> \xF8\xD9 |3 # 1-88-57
-<U764B> \xF8\xDA |3 # 1-88-58
-<U7664> \xF8\xDB |3 # 1-88-59
-<U7665> \xF8\xDC |3 # 1-88-60
-<U766D> \xF8\xDD |3 # 1-88-61
-<U766F> \xF8\xDE |3 # 1-88-62
-<U7671> \xF8\xDF |3 # 1-88-63
-<U7681> \xF8\xE0 |3 # 1-88-64
-<U769B> \xF8\xE1 |3 # 1-88-65
-<U769D> \xF8\xE2 |3 # 1-88-66
-<U769E> \xF8\xE3 |3 # 1-88-67
-<U76A6> \xF8\xE4 |3 # 1-88-68
-<U76AA> \xF8\xE5 |3 # 1-88-69
-<U76B6> \xF8\xE6 |3 # 1-88-70
-<U76C5> \xF8\xE7 |3 # 1-88-71
-<U76CC> \xF8\xE8 |3 # 1-88-72
-<U76CE> \xF8\xE9 |3 # 1-88-73
-<U76D4> \xF8\xEA |3 # 1-88-74
-<U76E6> \xF8\xEB |3 # 1-88-75
-<U76F1> \xF8\xEC |3 # 1-88-76
-<U76FC> \xF8\xED |3 # 1-88-77
-<U770A> \xF8\xEE |3 # 1-88-78
-<U7719> \xF8\xEF |3 # 1-88-79
-<U7734> \xF8\xF0 |3 # 1-88-80
-<U7736> \xF8\xF1 |3 # 1-88-81
-<U7746> \xF8\xF2 |3 # 1-88-82
-<U774D> \xF8\xF3 |3 # 1-88-83
-<U774E> \xF8\xF4 |3 # 1-88-84
-<U775C> \xF8\xF5 |3 # 1-88-85
-<U775F> \xF8\xF6 |3 # 1-88-86
-<U7762> \xF8\xF7 |3 # 1-88-87
-<U777A> \xF8\xF8 |3 # 1-88-88
-<U7780> \xF8\xF9 |3 # 1-88-89
-<U7794> \xF8\xFA |3 # 1-88-90
-<U77AA> \xF8\xFB |3 # 1-88-91
-<U77E0> \xF8\xFC |3 # 1-88-92
-<U782D> \xF8\xFD |3 # 1-88-93
-<U2548E> \xF8\xFE |3 # 1-88-94
-<U7843> \xF9\xA1 |3 # 1-89-1
-<U784E> \xF9\xA2 |3 # 1-89-2
-<U784F> \xF9\xA3 |3 # 1-89-3
-<U7851> \xF9\xA4 |3 # 1-89-4
-<U7868> \xF9\xA5 |3 # 1-89-5
-<U786E> \xF9\xA6 |3 # 1-89-6
-<UFA4B> \xF9\xA7 |3 # 1-89-7
-<U78B0> \xF9\xA8 |3 # 1-89-8
-<U2550E> \xF9\xA9 |3 # 1-89-9
-<U78AD> \xF9\xAA |3 # 1-89-10
-<U78E4> \xF9\xAB |3 # 1-89-11
-<U78F2> \xF9\xAC |3 # 1-89-12
-<U7900> \xF9\xAD |3 # 1-89-13
-<U78F7> \xF9\xAE |3 # 1-89-14
-<U791C> \xF9\xAF |3 # 1-89-15
-<U792E> \xF9\xB0 |3 # 1-89-16
-<U7931> \xF9\xB1 |3 # 1-89-17
-<U7934> \xF9\xB2 |3 # 1-89-18
-<UFA4C> \xF9\xB3 |3 # 1-89-19
-<UFA4D> \xF9\xB4 |3 # 1-89-20
-<U7945> \xF9\xB5 |3 # 1-89-21
-<U7946> \xF9\xB6 |3 # 1-89-22
-<UFA4E> \xF9\xB7 |3 # 1-89-23
-<UFA4F> \xF9\xB8 |3 # 1-89-24
-<UFA50> \xF9\xB9 |3 # 1-89-25
-<U795C> \xF9\xBA |3 # 1-89-26
-<UFA51> \xF9\xBB |3 # 1-89-27
-<UFA19> \xF9\xBC |3 # 1-89-28
-<UFA1A> \xF9\xBD |3 # 1-89-29
-<U7979> \xF9\xBE |3 # 1-89-30
-<UFA52> \xF9\xBF |3 # 1-89-31
-<UFA53> \xF9\xC0 |3 # 1-89-32
-<UFA1B> \xF9\xC1 |3 # 1-89-33
-<U7998> \xF9\xC2 |3 # 1-89-34
-<U79B1> \xF9\xC3 |3 # 1-89-35
-<U79B8> \xF9\xC4 |3 # 1-89-36
-<U79C8> \xF9\xC5 |3 # 1-89-37
-<U79CA> \xF9\xC6 |3 # 1-89-38
-<U25771> \xF9\xC7 |3 # 1-89-39
-<U79D4> \xF9\xC8 |3 # 1-89-40
-<U79DE> \xF9\xC9 |3 # 1-89-41
-<U79EB> \xF9\xCA |3 # 1-89-42
-<U79ED> \xF9\xCB |3 # 1-89-43
-<U7A03> \xF9\xCC |3 # 1-89-44
-<UFA54> \xF9\xCD |3 # 1-89-45
-<U7A39> \xF9\xCE |3 # 1-89-46
-<U7A5D> \xF9\xCF |3 # 1-89-47
-<U7A6D> \xF9\xD0 |3 # 1-89-48
-<UFA55> \xF9\xD1 |3 # 1-89-49
-<U7A85> \xF9\xD2 |3 # 1-89-50
-<U7AA0> \xF9\xD3 |3 # 1-89-51
-<U259C4> \xF9\xD4 |3 # 1-89-52
-<U7AB3> \xF9\xD5 |3 # 1-89-53
-<U7ABB> \xF9\xD6 |3 # 1-89-54
-<U7ACE> \xF9\xD7 |3 # 1-89-55
-<U7AEB> \xF9\xD8 |3 # 1-89-56
-<U7AFD> \xF9\xD9 |3 # 1-89-57
-<U7B12> \xF9\xDA |3 # 1-89-58
-<U7B2D> \xF9\xDB |3 # 1-89-59
-<U7B3B> \xF9\xDC |3 # 1-89-60
-<U7B47> \xF9\xDD |3 # 1-89-61
-<U7B4E> \xF9\xDE |3 # 1-89-62
-<U7B60> \xF9\xDF |3 # 1-89-63
-<U7B6D> \xF9\xE0 |3 # 1-89-64
-<U7B6F> \xF9\xE1 |3 # 1-89-65
-<U7B72> \xF9\xE2 |3 # 1-89-66
-<U7B9E> \xF9\xE3 |3 # 1-89-67
-<UFA56> \xF9\xE4 |3 # 1-89-68
-<U7BD7> \xF9\xE5 |3 # 1-89-69
-<U7BD9> \xF9\xE6 |3 # 1-89-70
-<U7C01> \xF9\xE7 |3 # 1-89-71
-<U7C31> \xF9\xE8 |3 # 1-89-72
-<U7C1E> \xF9\xE9 |3 # 1-89-73
-<U7C20> \xF9\xEA |3 # 1-89-74
-<U7C33> \xF9\xEB |3 # 1-89-75
-<U7C36> \xF9\xEC |3 # 1-89-76
-<U4264> \xF9\xED |3 # 1-89-77
-<U25DA1> \xF9\xEE |3 # 1-89-78
-<U7C59> \xF9\xEF |3 # 1-89-79
-<U7C6D> \xF9\xF0 |3 # 1-89-80
-<U7C79> \xF9\xF1 |3 # 1-89-81
-<U7C8F> \xF9\xF2 |3 # 1-89-82
-<U7C94> \xF9\xF3 |3 # 1-89-83
-<U7CA0> \xF9\xF4 |3 # 1-89-84
-<U7CBC> \xF9\xF5 |3 # 1-89-85
-<U7CD5> \xF9\xF6 |3 # 1-89-86
-<U7CD9> \xF9\xF7 |3 # 1-89-87
-<U7CDD> \xF9\xF8 |3 # 1-89-88
-<U7D07> \xF9\xF9 |3 # 1-89-89
-<U7D08> \xF9\xFA |3 # 1-89-90
-<U7D13> \xF9\xFB |3 # 1-89-91
-<U7D1D> \xF9\xFC |3 # 1-89-92
-<U7D23> \xF9\xFD |3 # 1-89-93
-<U7D31> \xF9\xFE |3 # 1-89-94
-<U7D41> \xFA\xA1 |3 # 1-90-1
-<U7D48> \xFA\xA2 |3 # 1-90-2
-<U7D53> \xFA\xA3 |3 # 1-90-3
-<U7D5C> \xFA\xA4 |3 # 1-90-4
-<U7D7A> \xFA\xA5 |3 # 1-90-5
-<U7D83> \xFA\xA6 |3 # 1-90-6
-<U7D8B> \xFA\xA7 |3 # 1-90-7
-<U7DA0> \xFA\xA8 |3 # 1-90-8
-<U7DA6> \xFA\xA9 |3 # 1-90-9
-<U7DC2> \xFA\xAA |3 # 1-90-10
-<U7DCC> \xFA\xAB |3 # 1-90-11
-<U7DD6> \xFA\xAC |3 # 1-90-12
-<U7DE3> \xFA\xAD |3 # 1-90-13
-<UFA57> \xFA\xAE |3 # 1-90-14
-<U7E28> \xFA\xAF |3 # 1-90-15
-<U7E08> \xFA\xB0 |3 # 1-90-16
-<U7E11> \xFA\xB1 |3 # 1-90-17
-<U7E15> \xFA\xB2 |3 # 1-90-18
-<UFA59> \xFA\xB3 |3 # 1-90-19
-<U7E47> \xFA\xB4 |3 # 1-90-20
-<U7E52> \xFA\xB5 |3 # 1-90-21
-<U7E61> \xFA\xB6 |3 # 1-90-22
-<U7E8A> \xFA\xB7 |3 # 1-90-23
-<U7E8D> \xFA\xB8 |3 # 1-90-24
-<U7F47> \xFA\xB9 |3 # 1-90-25
-<UFA5A> \xFA\xBA |3 # 1-90-26
-<U7F91> \xFA\xBB |3 # 1-90-27
-<U7F97> \xFA\xBC |3 # 1-90-28
-<U7FBF> \xFA\xBD |3 # 1-90-29
-<U7FCE> \xFA\xBE |3 # 1-90-30
-<U7FDB> \xFA\xBF |3 # 1-90-31
-<U7FDF> \xFA\xC0 |3 # 1-90-32
-<U7FEC> \xFA\xC1 |3 # 1-90-33
-<U7FEE> \xFA\xC2 |3 # 1-90-34
-<U7FFA> \xFA\xC3 |3 # 1-90-35
-<UFA5B> \xFA\xC4 |3 # 1-90-36
-<U8014> \xFA\xC5 |3 # 1-90-37
-<U8026> \xFA\xC6 |3 # 1-90-38
-<U8035> \xFA\xC7 |3 # 1-90-39
-<U8037> \xFA\xC8 |3 # 1-90-40
-<U803C> \xFA\xC9 |3 # 1-90-41
-<U80CA> \xFA\xCA |3 # 1-90-42
-<U80D7> \xFA\xCB |3 # 1-90-43
-<U80E0> \xFA\xCC |3 # 1-90-44
-<U80F3> \xFA\xCD |3 # 1-90-45
-<U8118> \xFA\xCE |3 # 1-90-46
-<U814A> \xFA\xCF |3 # 1-90-47
-<U8160> \xFA\xD0 |3 # 1-90-48
-<U8167> \xFA\xD1 |3 # 1-90-49
-<U8168> \xFA\xD2 |3 # 1-90-50
-<U816D> \xFA\xD3 |3 # 1-90-51
-<U81BB> \xFA\xD4 |3 # 1-90-52
-<U81CA> \xFA\xD5 |3 # 1-90-53
-<U81CF> \xFA\xD6 |3 # 1-90-54
-<U81D7> \xFA\xD7 |3 # 1-90-55
-<UFA5C> \xFA\xD8 |3 # 1-90-56
-<U4453> \xFA\xD9 |3 # 1-90-57
-<U445B> \xFA\xDA |3 # 1-90-58
-<U8260> \xFA\xDB |3 # 1-90-59
-<U8274> \xFA\xDC |3 # 1-90-60
-<U26AFF> \xFA\xDD |3 # 1-90-61
-<U828E> \xFA\xDE |3 # 1-90-62
-<U82A1> \xFA\xDF |3 # 1-90-63
-<U82A3> \xFA\xE0 |3 # 1-90-64
-<U82A4> \xFA\xE1 |3 # 1-90-65
-<U82A9> \xFA\xE2 |3 # 1-90-66
-<U82AE> \xFA\xE3 |3 # 1-90-67
-<U82B7> \xFA\xE4 |3 # 1-90-68
-<U82BE> \xFA\xE5 |3 # 1-90-69
-<U82BF> \xFA\xE6 |3 # 1-90-70
-<U82C6> \xFA\xE7 |3 # 1-90-71
-<U82D5> \xFA\xE8 |3 # 1-90-72
-<U82FD> \xFA\xE9 |3 # 1-90-73
-<U82FE> \xFA\xEA |3 # 1-90-74
-<U8300> \xFA\xEB |3 # 1-90-75
-<U8301> \xFA\xEC |3 # 1-90-76
-<U8362> \xFA\xED |3 # 1-90-77
-<U8322> \xFA\xEE |3 # 1-90-78
-<U832D> \xFA\xEF |3 # 1-90-79
-<U833A> \xFA\xF0 |3 # 1-90-80
-<U8343> \xFA\xF1 |3 # 1-90-81
-<U8347> \xFA\xF2 |3 # 1-90-82
-<U8351> \xFA\xF3 |3 # 1-90-83
-<U8355> \xFA\xF4 |3 # 1-90-84
-<U837D> \xFA\xF5 |3 # 1-90-85
-<U8386> \xFA\xF6 |3 # 1-90-86
-<U8392> \xFA\xF7 |3 # 1-90-87
-<U8398> \xFA\xF8 |3 # 1-90-88
-<U83A7> \xFA\xF9 |3 # 1-90-89
-<U83A9> \xFA\xFA |3 # 1-90-90
-<U83BF> \xFA\xFB |3 # 1-90-91
-<U83C0> \xFA\xFC |3 # 1-90-92
-<U83C7> \xFA\xFD |3 # 1-90-93
-<U83CF> \xFA\xFE |3 # 1-90-94
-<U83D1> \xFB\xA1 |3 # 1-91-1
-<U83E1> \xFB\xA2 |3 # 1-91-2
-<U83EA> \xFB\xA3 |3 # 1-91-3
-<U8401> \xFB\xA4 |3 # 1-91-4
-<U8406> \xFB\xA5 |3 # 1-91-5
-<U840A> \xFB\xA6 |3 # 1-91-6
-<UFA5F> \xFB\xA7 |3 # 1-91-7
-<U8448> \xFB\xA8 |3 # 1-91-8
-<U845F> \xFB\xA9 |3 # 1-91-9
-<U8470> \xFB\xAA |3 # 1-91-10
-<U8473> \xFB\xAB |3 # 1-91-11
-<U8485> \xFB\xAC |3 # 1-91-12
-<U849E> \xFB\xAD |3 # 1-91-13
-<U84AF> \xFB\xAE |3 # 1-91-14
-<U84B4> \xFB\xAF |3 # 1-91-15
-<U84BA> \xFB\xB0 |3 # 1-91-16
-<U84C0> \xFB\xB1 |3 # 1-91-17
-<U84C2> \xFB\xB2 |3 # 1-91-18
-<U26E40> \xFB\xB3 |3 # 1-91-19
-<U8532> \xFB\xB4 |3 # 1-91-20
-<U851E> \xFB\xB5 |3 # 1-91-21
-<U8523> \xFB\xB6 |3 # 1-91-22
-<U852F> \xFB\xB7 |3 # 1-91-23
-<U8559> \xFB\xB8 |3 # 1-91-24
-<U8564> \xFB\xB9 |3 # 1-91-25
-<UFA1F> \xFB\xBA |3 # 1-91-26
-<U85AD> \xFB\xBB |3 # 1-91-27
-<U857A> \xFB\xBC |3 # 1-91-28
-<U858C> \xFB\xBD |3 # 1-91-29
-<U858F> \xFB\xBE |3 # 1-91-30
-<U85A2> \xFB\xBF |3 # 1-91-31
-<U85B0> \xFB\xC0 |3 # 1-91-32
-<U85CB> \xFB\xC1 |3 # 1-91-33
-<U85CE> \xFB\xC2 |3 # 1-91-34
-<U85ED> \xFB\xC3 |3 # 1-91-35
-<U8612> \xFB\xC4 |3 # 1-91-36
-<U85FF> \xFB\xC5 |3 # 1-91-37
-<U8604> \xFB\xC6 |3 # 1-91-38
-<U8605> \xFB\xC7 |3 # 1-91-39
-<U8610> \xFB\xC8 |3 # 1-91-40
-<U270F4> \xFB\xC9 |3 # 1-91-41
-<U8618> \xFB\xCA |3 # 1-91-42
-<U8629> \xFB\xCB |3 # 1-91-43
-<U8638> \xFB\xCC |3 # 1-91-44
-<U8657> \xFB\xCD |3 # 1-91-45
-<U865B> \xFB\xCE |3 # 1-91-46
-<UF936> \xFB\xCF |3 # 1-91-47
-<U8662> \xFB\xD0 |3 # 1-91-48
-<U459D> \xFB\xD1 |3 # 1-91-49
-<U866C> \xFB\xD2 |3 # 1-91-50
-<U8675> \xFB\xD3 |3 # 1-91-51
-<U8698> \xFB\xD4 |3 # 1-91-52
-<U86B8> \xFB\xD5 |3 # 1-91-53
-<U86FA> \xFB\xD6 |3 # 1-91-54
-<U86FC> \xFB\xD7 |3 # 1-91-55
-<U86FD> \xFB\xD8 |3 # 1-91-56
-<U870B> \xFB\xD9 |3 # 1-91-57
-<U8771> \xFB\xDA |3 # 1-91-58
-<U8787> \xFB\xDB |3 # 1-91-59
-<U8788> \xFB\xDC |3 # 1-91-60
-<U87AC> \xFB\xDD |3 # 1-91-61
-<U87AD> \xFB\xDE |3 # 1-91-62
-<U87B5> \xFB\xDF |3 # 1-91-63
-<U45EA> \xFB\xE0 |3 # 1-91-64
-<U87D6> \xFB\xE1 |3 # 1-91-65
-<U87EC> \xFB\xE2 |3 # 1-91-66
-<U8806> \xFB\xE3 |3 # 1-91-67
-<U880A> \xFB\xE4 |3 # 1-91-68
-<U8810> \xFB\xE5 |3 # 1-91-69
-<U8814> \xFB\xE6 |3 # 1-91-70
-<U881F> \xFB\xE7 |3 # 1-91-71
-<U8898> \xFB\xE8 |3 # 1-91-72
-<U88AA> \xFB\xE9 |3 # 1-91-73
-<U88CA> \xFB\xEA |3 # 1-91-74
-<U88CE> \xFB\xEB |3 # 1-91-75
-<U27684> \xFB\xEC |3 # 1-91-76
-<U88F5> \xFB\xED |3 # 1-91-77
-<U891C> \xFB\xEE |3 # 1-91-78
-<UFA60> \xFB\xEF |3 # 1-91-79
-<U8918> \xFB\xF0 |3 # 1-91-80
-<U8919> \xFB\xF1 |3 # 1-91-81
-<U891A> \xFB\xF2 |3 # 1-91-82
-<U8927> \xFB\xF3 |3 # 1-91-83
-<U8930> \xFB\xF4 |3 # 1-91-84
-<U8932> \xFB\xF5 |3 # 1-91-85
-<U8939> \xFB\xF6 |3 # 1-91-86
-<U8940> \xFB\xF7 |3 # 1-91-87
-<U8994> \xFB\xF8 |3 # 1-91-88
-<UFA61> \xFB\xF9 |3 # 1-91-89
-<U89D4> \xFB\xFA |3 # 1-91-90
-<U89E5> \xFB\xFB |3 # 1-91-91
-<U89F6> \xFB\xFC |3 # 1-91-92
-<U8A12> \xFB\xFD |3 # 1-91-93
-<U8A15> \xFB\xFE |3 # 1-91-94
-<U8A22> \xFC\xA1 |3 # 1-92-1
-<U8A37> \xFC\xA2 |3 # 1-92-2
-<U8A47> \xFC\xA3 |3 # 1-92-3
-<U8A4E> \xFC\xA4 |3 # 1-92-4
-<U8A5D> \xFC\xA5 |3 # 1-92-5
-<U8A61> \xFC\xA6 |3 # 1-92-6
-<U8A75> \xFC\xA7 |3 # 1-92-7
-<U8A79> \xFC\xA8 |3 # 1-92-8
-<U8AA7> \xFC\xA9 |3 # 1-92-9
-<U8AD0> \xFC\xAA |3 # 1-92-10
-<U8ADF> \xFC\xAB |3 # 1-92-11
-<U8AF4> \xFC\xAC |3 # 1-92-12
-<U8AF6> \xFC\xAD |3 # 1-92-13
-<UFA22> \xFC\xAE |3 # 1-92-14
-<UFA62> \xFC\xAF |3 # 1-92-15
-<UFA63> \xFC\xB0 |3 # 1-92-16
-<U8B46> \xFC\xB1 |3 # 1-92-17
-<U8B54> \xFC\xB2 |3 # 1-92-18
-<U8B59> \xFC\xB3 |3 # 1-92-19
-<U8B69> \xFC\xB4 |3 # 1-92-20
-<U8B9D> \xFC\xB5 |3 # 1-92-21
-<U8C49> \xFC\xB6 |3 # 1-92-22
-<U8C68> \xFC\xB7 |3 # 1-92-23
-<UFA64> \xFC\xB8 |3 # 1-92-24
-<U8CE1> \xFC\xB9 |3 # 1-92-25
-<U8CF4> \xFC\xBA |3 # 1-92-26
-<U8CF8> \xFC\xBB |3 # 1-92-27
-<U8CFE> \xFC\xBC |3 # 1-92-28
-<UFA65> \xFC\xBD |3 # 1-92-29
-<U8D12> \xFC\xBE |3 # 1-92-30
-<U8D1B> \xFC\xBF |3 # 1-92-31
-<U8DAF> \xFC\xC0 |3 # 1-92-32
-<U8DCE> \xFC\xC1 |3 # 1-92-33
-<U8DD1> \xFC\xC2 |3 # 1-92-34
-<U8DD7> \xFC\xC3 |3 # 1-92-35
-<U8E20> \xFC\xC4 |3 # 1-92-36
-<U8E23> \xFC\xC5 |3 # 1-92-37
-<U8E3D> \xFC\xC6 |3 # 1-92-38
-<U8E70> \xFC\xC7 |3 # 1-92-39
-<U8E7B> \xFC\xC8 |3 # 1-92-40
-<U28277> \xFC\xC9 |3 # 1-92-41
-<U8EC0> \xFC\xCA |3 # 1-92-42
-<U4844> \xFC\xCB |3 # 1-92-43
-<U8EFA> \xFC\xCC |3 # 1-92-44
-<U8F1E> \xFC\xCD |3 # 1-92-45
-<U8F2D> \xFC\xCE |3 # 1-92-46
-<U8F36> \xFC\xCF |3 # 1-92-47
-<U8F54> \xFC\xD0 |3 # 1-92-48
-<U283CD> \xFC\xD1 |3 # 1-92-49
-<U8FA6> \xFC\xD2 |3 # 1-92-50
-<U8FB5> \xFC\xD3 |3 # 1-92-51
-<U8FE4> \xFC\xD4 |3 # 1-92-52
-<U8FE8> \xFC\xD5 |3 # 1-92-53
-<U8FEE> \xFC\xD6 |3 # 1-92-54
-<U9008> \xFC\xD7 |3 # 1-92-55
-<U902D> \xFC\xD8 |3 # 1-92-56
-<UFA67> \xFC\xD9 |3 # 1-92-57
-<U9088> \xFC\xDA |3 # 1-92-58
-<U9095> \xFC\xDB |3 # 1-92-59
-<U9097> \xFC\xDC |3 # 1-92-60
-<U9099> \xFC\xDD |3 # 1-92-61
-<U909B> \xFC\xDE |3 # 1-92-62
-<U90A2> \xFC\xDF |3 # 1-92-63
-<U90B3> \xFC\xE0 |3 # 1-92-64
-<U90BE> \xFC\xE1 |3 # 1-92-65
-<U90C4> \xFC\xE2 |3 # 1-92-66
-<U90C5> \xFC\xE3 |3 # 1-92-67
-<U90C7> \xFC\xE4 |3 # 1-92-68
-<U90D7> \xFC\xE5 |3 # 1-92-69
-<U90DD> \xFC\xE6 |3 # 1-92-70
-<U90DE> \xFC\xE7 |3 # 1-92-71
-<U90EF> \xFC\xE8 |3 # 1-92-72
-<U90F4> \xFC\xE9 |3 # 1-92-73
-<UFA26> \xFC\xEA |3 # 1-92-74
-<U9114> \xFC\xEB |3 # 1-92-75
-<U9115> \xFC\xEC |3 # 1-92-76
-<U9116> \xFC\xED |3 # 1-92-77
-<U9122> \xFC\xEE |3 # 1-92-78
-<U9123> \xFC\xEF |3 # 1-92-79
-<U9127> \xFC\xF0 |3 # 1-92-80
-<U912F> \xFC\xF1 |3 # 1-92-81
-<U9131> \xFC\xF2 |3 # 1-92-82
-<U9134> \xFC\xF3 |3 # 1-92-83
-<U913D> \xFC\xF4 |3 # 1-92-84
-<U9148> \xFC\xF5 |3 # 1-92-85
-<U915B> \xFC\xF6 |3 # 1-92-86
-<U9183> \xFC\xF7 |3 # 1-92-87
-<U919E> \xFC\xF8 |3 # 1-92-88
-<U91AC> \xFC\xF9 |3 # 1-92-89
-<U91B1> \xFC\xFA |3 # 1-92-90
-<U91BC> \xFC\xFB |3 # 1-92-91
-<U91D7> \xFC\xFC |3 # 1-92-92
-<U91FB> \xFC\xFD |3 # 1-92-93
-<U91E4> \xFC\xFE |3 # 1-92-94
-<U91E5> \xFD\xA1 |3 # 1-93-1
-<U91ED> \xFD\xA2 |3 # 1-93-2
-<U91F1> \xFD\xA3 |3 # 1-93-3
-<U9207> \xFD\xA4 |3 # 1-93-4
-<U9210> \xFD\xA5 |3 # 1-93-5
-<U9238> \xFD\xA6 |3 # 1-93-6
-<U9239> \xFD\xA7 |3 # 1-93-7
-<U923A> \xFD\xA8 |3 # 1-93-8
-<U923C> \xFD\xA9 |3 # 1-93-9
-<U9240> \xFD\xAA |3 # 1-93-10
-<U9243> \xFD\xAB |3 # 1-93-11
-<U924F> \xFD\xAC |3 # 1-93-12
-<U9278> \xFD\xAD |3 # 1-93-13
-<U9288> \xFD\xAE |3 # 1-93-14
-<U92C2> \xFD\xAF |3 # 1-93-15
-<U92CB> \xFD\xB0 |3 # 1-93-16
-<U92CC> \xFD\xB1 |3 # 1-93-17
-<U92D3> \xFD\xB2 |3 # 1-93-18
-<U92E0> \xFD\xB3 |3 # 1-93-19
-<U92FF> \xFD\xB4 |3 # 1-93-20
-<U9304> \xFD\xB5 |3 # 1-93-21
-<U931F> \xFD\xB6 |3 # 1-93-22
-<U9321> \xFD\xB7 |3 # 1-93-23
-<U9325> \xFD\xB8 |3 # 1-93-24
-<U9348> \xFD\xB9 |3 # 1-93-25
-<U9349> \xFD\xBA |3 # 1-93-26
-<U934A> \xFD\xBB |3 # 1-93-27
-<U9364> \xFD\xBC |3 # 1-93-28
-<U9365> \xFD\xBD |3 # 1-93-29
-<U936A> \xFD\xBE |3 # 1-93-30
-<U9370> \xFD\xBF |3 # 1-93-31
-<U939B> \xFD\xC0 |3 # 1-93-32
-<U93A3> \xFD\xC1 |3 # 1-93-33
-<U93BA> \xFD\xC2 |3 # 1-93-34
-<U93C6> \xFD\xC3 |3 # 1-93-35
-<U93DE> \xFD\xC4 |3 # 1-93-36
-<U93DF> \xFD\xC5 |3 # 1-93-37
-<U9404> \xFD\xC6 |3 # 1-93-38
-<U93FD> \xFD\xC7 |3 # 1-93-39
-<U9433> \xFD\xC8 |3 # 1-93-40
-<U944A> \xFD\xC9 |3 # 1-93-41
-<U9463> \xFD\xCA |3 # 1-93-42
-<U946B> \xFD\xCB |3 # 1-93-43
-<U9471> \xFD\xCC |3 # 1-93-44
-<U9472> \xFD\xCD |3 # 1-93-45
-<U958E> \xFD\xCE |3 # 1-93-46
-<U959F> \xFD\xCF |3 # 1-93-47
-<U95A6> \xFD\xD0 |3 # 1-93-48
-<U95A9> \xFD\xD1 |3 # 1-93-49
-<U95AC> \xFD\xD2 |3 # 1-93-50
-<U95B6> \xFD\xD3 |3 # 1-93-51
-<U95BD> \xFD\xD4 |3 # 1-93-52
-<U95CB> \xFD\xD5 |3 # 1-93-53
-<U95D0> \xFD\xD6 |3 # 1-93-54
-<U95D3> \xFD\xD7 |3 # 1-93-55
-<U49B0> \xFD\xD8 |3 # 1-93-56
-<U95DA> \xFD\xD9 |3 # 1-93-57
-<U95DE> \xFD\xDA |3 # 1-93-58
-<U9658> \xFD\xDB |3 # 1-93-59
-<U9684> \xFD\xDC |3 # 1-93-60
-<UF9DC> \xFD\xDD |3 # 1-93-61
-<U969D> \xFD\xDE |3 # 1-93-62
-<U96A4> \xFD\xDF |3 # 1-93-63
-<U96A5> \xFD\xE0 |3 # 1-93-64
-<U96D2> \xFD\xE1 |3 # 1-93-65
-<U96DE> \xFD\xE2 |3 # 1-93-66
-<UFA68> \xFD\xE3 |3 # 1-93-67
-<U96E9> \xFD\xE4 |3 # 1-93-68
-<U96EF> \xFD\xE5 |3 # 1-93-69
-<U9733> \xFD\xE6 |3 # 1-93-70
-<U973B> \xFD\xE7 |3 # 1-93-71
-<U974D> \xFD\xE8 |3 # 1-93-72
-<U974E> \xFD\xE9 |3 # 1-93-73
-<U974F> \xFD\xEA |3 # 1-93-74
-<U975A> \xFD\xEB |3 # 1-93-75
-<U976E> \xFD\xEC |3 # 1-93-76
-<U9773> \xFD\xED |3 # 1-93-77
-<U9795> \xFD\xEE |3 # 1-93-78
-<U97AE> \xFD\xEF |3 # 1-93-79
-<U97BA> \xFD\xF0 |3 # 1-93-80
-<U97C1> \xFD\xF1 |3 # 1-93-81
-<U97C9> \xFD\xF2 |3 # 1-93-82
-<U97DE> \xFD\xF3 |3 # 1-93-83
-<U97DB> \xFD\xF4 |3 # 1-93-84
-<U97F4> \xFD\xF5 |3 # 1-93-85
-<UFA69> \xFD\xF6 |3 # 1-93-86
-<U980A> \xFD\xF7 |3 # 1-93-87
-<U981E> \xFD\xF8 |3 # 1-93-88
-<U982B> \xFD\xF9 |3 # 1-93-89
-<U9830> \xFD\xFA |3 # 1-93-90
-<UFA6A> \xFD\xFB |3 # 1-93-91
-<U9852> \xFD\xFC |3 # 1-93-92
-<U9853> \xFD\xFD |3 # 1-93-93
-<U9856> \xFD\xFE |3 # 1-93-94
-<U9857> \xFE\xA1 |3 # 1-94-1
-<U9859> \xFE\xA2 |3 # 1-94-2
-<U985A> \xFE\xA3 |3 # 1-94-3
-<UF9D0> \xFE\xA4 |3 # 1-94-4
-<U9865> \xFE\xA5 |3 # 1-94-5
-<U986C> \xFE\xA6 |3 # 1-94-6
-<U98BA> \xFE\xA7 |3 # 1-94-7
-<U98C8> \xFE\xA8 |3 # 1-94-8
-<U98E7> \xFE\xA9 |3 # 1-94-9
-<U9958> \xFE\xAA |3 # 1-94-10
-<U999E> \xFE\xAB |3 # 1-94-11
-<U9A02> \xFE\xAC |3 # 1-94-12
-<U9A03> \xFE\xAD |3 # 1-94-13
-<U9A24> \xFE\xAE |3 # 1-94-14
-<U9A2D> \xFE\xAF |3 # 1-94-15
-<U9A2E> \xFE\xB0 |3 # 1-94-16
-<U9A38> \xFE\xB1 |3 # 1-94-17
-<U9A4A> \xFE\xB2 |3 # 1-94-18
-<U9A4E> \xFE\xB3 |3 # 1-94-19
-<U9A52> \xFE\xB4 |3 # 1-94-20
-<U9AB6> \xFE\xB5 |3 # 1-94-21
-<U9AC1> \xFE\xB6 |3 # 1-94-22
-<U9AC3> \xFE\xB7 |3 # 1-94-23
-<U9ACE> \xFE\xB8 |3 # 1-94-24
-<U9AD6> \xFE\xB9 |3 # 1-94-25
-<U9AF9> \xFE\xBA |3 # 1-94-26
-<U9B02> \xFE\xBB |3 # 1-94-27
-<U9B08> \xFE\xBC |3 # 1-94-28
-<U9B20> \xFE\xBD |3 # 1-94-29
-<U4C17> \xFE\xBE |3 # 1-94-30
-<U9B2D> \xFE\xBF |3 # 1-94-31
-<U9B5E> \xFE\xC0 |3 # 1-94-32
-<U9B79> \xFE\xC1 |3 # 1-94-33
-<U9B66> \xFE\xC2 |3 # 1-94-34
-<U9B72> \xFE\xC3 |3 # 1-94-35
-<U9B75> \xFE\xC4 |3 # 1-94-36
-<U9B84> \xFE\xC5 |3 # 1-94-37
-<U9B8A> \xFE\xC6 |3 # 1-94-38
-<U9B8F> \xFE\xC7 |3 # 1-94-39
-<U9B9E> \xFE\xC8 |3 # 1-94-40
-<U9BA7> \xFE\xC9 |3 # 1-94-41
-<U9BC1> \xFE\xCA |3 # 1-94-42
-<U9BCE> \xFE\xCB |3 # 1-94-43
-<U9BE5> \xFE\xCC |3 # 1-94-44
-<U9BF8> \xFE\xCD |3 # 1-94-45
-<U9BFD> \xFE\xCE |3 # 1-94-46
-<U9C00> \xFE\xCF |3 # 1-94-47
-<U9C23> \xFE\xD0 |3 # 1-94-48
-<U9C41> \xFE\xD1 |3 # 1-94-49
-<U9C4F> \xFE\xD2 |3 # 1-94-50
-<U9C50> \xFE\xD3 |3 # 1-94-51
-<U9C53> \xFE\xD4 |3 # 1-94-52
-<U9C63> \xFE\xD5 |3 # 1-94-53
-<U9C65> \xFE\xD6 |3 # 1-94-54
-<U9C77> \xFE\xD7 |3 # 1-94-55
-<U9D1D> \xFE\xD8 |3 # 1-94-56
-<U9D1E> \xFE\xD9 |3 # 1-94-57
-<U9D43> \xFE\xDA |3 # 1-94-58
-<U9D47> \xFE\xDB |3 # 1-94-59
-<U9D52> \xFE\xDC |3 # 1-94-60
-<U9D63> \xFE\xDD |3 # 1-94-61
-<U9D70> \xFE\xDE |3 # 1-94-62
-<U9D7C> \xFE\xDF |3 # 1-94-63
-<U9D8A> \xFE\xE0 |3 # 1-94-64
-<U9D96> \xFE\xE1 |3 # 1-94-65
-<U9DC0> \xFE\xE2 |3 # 1-94-66
-<U9DAC> \xFE\xE3 |3 # 1-94-67
-<U9DBC> \xFE\xE4 |3 # 1-94-68
-<U9DD7> \xFE\xE5 |3 # 1-94-69
-<U2A190> \xFE\xE6 |3 # 1-94-70
-<U9DE7> \xFE\xE7 |3 # 1-94-71
-<U9E07> \xFE\xE8 |3 # 1-94-72
-<U9E15> \xFE\xE9 |3 # 1-94-73
-<U9E7C> \xFE\xEA |3 # 1-94-74
-<U9E9E> \xFE\xEB |3 # 1-94-75
-<U9EA4> \xFE\xEC |3 # 1-94-76
-<U9EAC> \xFE\xED |3 # 1-94-77
-<U9EAF> \xFE\xEE |3 # 1-94-78
-<U9EB4> \xFE\xEF |3 # 1-94-79
-<U9EB5> \xFE\xF0 |3 # 1-94-80
-<U9EC3> \xFE\xF1 |3 # 1-94-81
-<U9ED1> \xFE\xF2 |3 # 1-94-82
-<U9F10> \xFE\xF3 |3 # 1-94-83
-<U9F39> \xFE\xF4 |3 # 1-94-84
-<U9F57> \xFE\xF5 |3 # 1-94-85
-<U9F90> \xFE\xF6 |3 # 1-94-86
-<U9F94> \xFE\xF7 |3 # 1-94-87
-<U9F97> \xFE\xF8 |3 # 1-94-88
-<U9FA2> \xFE\xF9 |3 # 1-94-89
-<U20089> \x8F\xA1\xA1 |3 # 2-1-1
-<U4E02> \x8F\xA1\xA2 |3 # 2-1-2
-<U4E0F> \x8F\xA1\xA3 |3 # 2-1-3
-<U4E12> \x8F\xA1\xA4 |3 # 2-1-4
-<U4E29> \x8F\xA1\xA5 |3 # 2-1-5
-<U4E2B> \x8F\xA1\xA6 |3 # 2-1-6
-<U4E2E> \x8F\xA1\xA7 |3 # 2-1-7
-<U4E40> \x8F\xA1\xA8 |3 # 2-1-8
-<U4E47> \x8F\xA1\xA9 |3 # 2-1-9
-<U4E48> \x8F\xA1\xAA |3 # 2-1-10
-<U200A2> \x8F\xA1\xAB |3 # 2-1-11
-<U4E51> \x8F\xA1\xAC |3 # 2-1-12
-<U3406> \x8F\xA1\xAD |3 # 2-1-13
-<U200A4> \x8F\xA1\xAE |3 # 2-1-14
-<U4E5A> \x8F\xA1\xAF |3 # 2-1-15
-<U4E69> \x8F\xA1\xB0 |3 # 2-1-16
-<U4E9D> \x8F\xA1\xB1 |3 # 2-1-17
-<U342C> \x8F\xA1\xB2 |3 # 2-1-18
-<U342E> \x8F\xA1\xB3 |3 # 2-1-19
-<U4EB9> \x8F\xA1\xB4 |3 # 2-1-20
-<U4EBB> \x8F\xA1\xB5 |3 # 2-1-21
-<U201A2> \x8F\xA1\xB6 |3 # 2-1-22
-<U4EBC> \x8F\xA1\xB7 |3 # 2-1-23
-<U4EC3> \x8F\xA1\xB8 |3 # 2-1-24
-<U4EC8> \x8F\xA1\xB9 |3 # 2-1-25
-<U4ED0> \x8F\xA1\xBA |3 # 2-1-26
-<U4EEB> \x8F\xA1\xBB |3 # 2-1-27
-<U4EDA> \x8F\xA1\xBC |3 # 2-1-28
-<U4EF1> \x8F\xA1\xBD |3 # 2-1-29
-<U4EF5> \x8F\xA1\xBE |3 # 2-1-30
-<U4F00> \x8F\xA1\xBF |3 # 2-1-31
-<U4F16> \x8F\xA1\xC0 |3 # 2-1-32
-<U4F64> \x8F\xA1\xC1 |3 # 2-1-33
-<U4F37> \x8F\xA1\xC2 |3 # 2-1-34
-<U4F3E> \x8F\xA1\xC3 |3 # 2-1-35
-<U4F54> \x8F\xA1\xC4 |3 # 2-1-36
-<U4F58> \x8F\xA1\xC5 |3 # 2-1-37
-<U20213> \x8F\xA1\xC6 |3 # 2-1-38
-<U4F77> \x8F\xA1\xC7 |3 # 2-1-39
-<U4F78> \x8F\xA1\xC8 |3 # 2-1-40
-<U4F7A> \x8F\xA1\xC9 |3 # 2-1-41
-<U4F7D> \x8F\xA1\xCA |3 # 2-1-42
-<U4F82> \x8F\xA1\xCB |3 # 2-1-43
-<U4F85> \x8F\xA1\xCC |3 # 2-1-44
-<U4F92> \x8F\xA1\xCD |3 # 2-1-45
-<U4F9A> \x8F\xA1\xCE |3 # 2-1-46
-<U4FE6> \x8F\xA1\xCF |3 # 2-1-47
-<U4FB2> \x8F\xA1\xD0 |3 # 2-1-48
-<U4FBE> \x8F\xA1\xD1 |3 # 2-1-49
-<U4FC5> \x8F\xA1\xD2 |3 # 2-1-50
-<U4FCB> \x8F\xA1\xD3 |3 # 2-1-51
-<U4FCF> \x8F\xA1\xD4 |3 # 2-1-52
-<U4FD2> \x8F\xA1\xD5 |3 # 2-1-53
-<U346A> \x8F\xA1\xD6 |3 # 2-1-54
-<U4FF2> \x8F\xA1\xD7 |3 # 2-1-55
-<U5000> \x8F\xA1\xD8 |3 # 2-1-56
-<U5010> \x8F\xA1\xD9 |3 # 2-1-57
-<U5013> \x8F\xA1\xDA |3 # 2-1-58
-<U501C> \x8F\xA1\xDB |3 # 2-1-59
-<U501E> \x8F\xA1\xDC |3 # 2-1-60
-<U5022> \x8F\xA1\xDD |3 # 2-1-61
-<U3468> \x8F\xA1\xDE |3 # 2-1-62
-<U5042> \x8F\xA1\xDF |3 # 2-1-63
-<U5046> \x8F\xA1\xE0 |3 # 2-1-64
-<U504E> \x8F\xA1\xE1 |3 # 2-1-65
-<U5053> \x8F\xA1\xE2 |3 # 2-1-66
-<U5057> \x8F\xA1\xE3 |3 # 2-1-67
-<U5063> \x8F\xA1\xE4 |3 # 2-1-68
-<U5066> \x8F\xA1\xE5 |3 # 2-1-69
-<U506A> \x8F\xA1\xE6 |3 # 2-1-70
-<U5070> \x8F\xA1\xE7 |3 # 2-1-71
-<U50A3> \x8F\xA1\xE8 |3 # 2-1-72
-<U5088> \x8F\xA1\xE9 |3 # 2-1-73
-<U5092> \x8F\xA1\xEA |3 # 2-1-74
-<U5093> \x8F\xA1\xEB |3 # 2-1-75
-<U5095> \x8F\xA1\xEC |3 # 2-1-76
-<U5096> \x8F\xA1\xED |3 # 2-1-77
-<U509C> \x8F\xA1\xEE |3 # 2-1-78
-<U50AA> \x8F\xA1\xEF |3 # 2-1-79
-<U2032B> \x8F\xA1\xF0 |3 # 2-1-80
-<U50B1> \x8F\xA1\xF1 |3 # 2-1-81
-<U50BA> \x8F\xA1\xF2 |3 # 2-1-82
-<U50BB> \x8F\xA1\xF3 |3 # 2-1-83
-<U50C4> \x8F\xA1\xF4 |3 # 2-1-84
-<U50C7> \x8F\xA1\xF5 |3 # 2-1-85
-<U50F3> \x8F\xA1\xF6 |3 # 2-1-86
-<U20381> \x8F\xA1\xF7 |3 # 2-1-87
-<U50CE> \x8F\xA1\xF8 |3 # 2-1-88
-<U20371> \x8F\xA1\xF9 |3 # 2-1-89
-<U50D4> \x8F\xA1\xFA |3 # 2-1-90
-<U50D9> \x8F\xA1\xFB |3 # 2-1-91
-<U50E1> \x8F\xA1\xFC |3 # 2-1-92
-<U50E9> \x8F\xA1\xFD |3 # 2-1-93
-<U3492> \x8F\xA1\xFE |3 # 2-1-94
-<U007E> \x8F\xA2\xB7 |3 # TILDE (in JIS X 0212 -- decode only)
-<U5108> \x8F\xA3\xA1 |3 # 2-3-1
-<U203F9> \x8F\xA3\xA2 |3 # 2-3-2
-<U5117> \x8F\xA3\xA3 |3 # 2-3-3
-<U511B> \x8F\xA3\xA4 |3 # 2-3-4
-<U2044A> \x8F\xA3\xA5 |3 # 2-3-5
-<U5160> \x8F\xA3\xA6 |3 # 2-3-6
-<U20509> \x8F\xA3\xA7 |3 # 2-3-7
-<U5173> \x8F\xA3\xA8 |3 # 2-3-8
-<U5183> \x8F\xA3\xA9 |3 # 2-3-9
-<U518B> \x8F\xA3\xAA |3 # 2-3-10
-<U34BC> \x8F\xA3\xAB |3 # 2-3-11
-<U5198> \x8F\xA3\xAC |3 # 2-3-12
-<U51A3> \x8F\xA3\xAD |3 # 2-3-13
-<U51AD> \x8F\xA3\xAE |3 # 2-3-14
-<U34C7> \x8F\xA3\xAF |3 # 2-3-15
-<U51BC> \x8F\xA3\xB0 |3 # 2-3-16
-<U205D6> \x8F\xA3\xB1 |3 # 2-3-17
-<U20628> \x8F\xA3\xB2 |3 # 2-3-18
-<U51F3> \x8F\xA3\xB3 |3 # 2-3-19
-<U51F4> \x8F\xA3\xB4 |3 # 2-3-20
-<U5202> \x8F\xA3\xB5 |3 # 2-3-21
-<U5212> \x8F\xA3\xB6 |3 # 2-3-22
-<U5216> \x8F\xA3\xB7 |3 # 2-3-23
-<U2074F> \x8F\xA3\xB8 |3 # 2-3-24
-<U5255> \x8F\xA3\xB9 |3 # 2-3-25
-<U525C> \x8F\xA3\xBA |3 # 2-3-26
-<U526C> \x8F\xA3\xBB |3 # 2-3-27
-<U5277> \x8F\xA3\xBC |3 # 2-3-28
-<U5284> \x8F\xA3\xBD |3 # 2-3-29
-<U5282> \x8F\xA3\xBE |3 # 2-3-30
-<U20807> \x8F\xA3\xBF |3 # 2-3-31
-<U5298> \x8F\xA3\xC0 |3 # 2-3-32
-<U2083A> \x8F\xA3\xC1 |3 # 2-3-33
-<U52A4> \x8F\xA3\xC2 |3 # 2-3-34
-<U52A6> \x8F\xA3\xC3 |3 # 2-3-35
-<U52AF> \x8F\xA3\xC4 |3 # 2-3-36
-<U52BA> \x8F\xA3\xC5 |3 # 2-3-37
-<U52BB> \x8F\xA3\xC6 |3 # 2-3-38
-<U52CA> \x8F\xA3\xC7 |3 # 2-3-39
-<U351F> \x8F\xA3\xC8 |3 # 2-3-40
-<U52D1> \x8F\xA3\xC9 |3 # 2-3-41
-<U208B9> \x8F\xA3\xCA |3 # 2-3-42
-<U52F7> \x8F\xA3\xCB |3 # 2-3-43
-<U530A> \x8F\xA3\xCC |3 # 2-3-44
-<U530B> \x8F\xA3\xCD |3 # 2-3-45
-<U5324> \x8F\xA3\xCE |3 # 2-3-46
-<U5335> \x8F\xA3\xCF |3 # 2-3-47
-<U533E> \x8F\xA3\xD0 |3 # 2-3-48
-<U5342> \x8F\xA3\xD1 |3 # 2-3-49
-<U2097C> \x8F\xA3\xD2 |3 # 2-3-50
-<U2099D> \x8F\xA3\xD3 |3 # 2-3-51
-<U5367> \x8F\xA3\xD4 |3 # 2-3-52
-<U536C> \x8F\xA3\xD5 |3 # 2-3-53
-<U537A> \x8F\xA3\xD6 |3 # 2-3-54
-<U53A4> \x8F\xA3\xD7 |3 # 2-3-55
-<U53B4> \x8F\xA3\xD8 |3 # 2-3-56
-<U20AD3> \x8F\xA3\xD9 |3 # 2-3-57
-<U53B7> \x8F\xA3\xDA |3 # 2-3-58
-<U53C0> \x8F\xA3\xDB |3 # 2-3-59
-<U20B1D> \x8F\xA3\xDC |3 # 2-3-60
-<U355D> \x8F\xA3\xDD |3 # 2-3-61
-<U355E> \x8F\xA3\xDE |3 # 2-3-62
-<U53D5> \x8F\xA3\xDF |3 # 2-3-63
-<U53DA> \x8F\xA3\xE0 |3 # 2-3-64
-<U3563> \x8F\xA3\xE1 |3 # 2-3-65
-<U53F4> \x8F\xA3\xE2 |3 # 2-3-66
-<U53F5> \x8F\xA3\xE3 |3 # 2-3-67
-<U5455> \x8F\xA3\xE4 |3 # 2-3-68
-<U5424> \x8F\xA3\xE5 |3 # 2-3-69
-<U5428> \x8F\xA3\xE6 |3 # 2-3-70
-<U356E> \x8F\xA3\xE7 |3 # 2-3-71
-<U5443> \x8F\xA3\xE8 |3 # 2-3-72
-<U5462> \x8F\xA3\xE9 |3 # 2-3-73
-<U5466> \x8F\xA3\xEA |3 # 2-3-74
-<U546C> \x8F\xA3\xEB |3 # 2-3-75
-<U548A> \x8F\xA3\xEC |3 # 2-3-76
-<U548D> \x8F\xA3\xED |3 # 2-3-77
-<U5495> \x8F\xA3\xEE |3 # 2-3-78
-<U54A0> \x8F\xA3\xEF |3 # 2-3-79
-<U54A6> \x8F\xA3\xF0 |3 # 2-3-80
-<U54AD> \x8F\xA3\xF1 |3 # 2-3-81
-<U54AE> \x8F\xA3\xF2 |3 # 2-3-82
-<U54B7> \x8F\xA3\xF3 |3 # 2-3-83
-<U54BA> \x8F\xA3\xF4 |3 # 2-3-84
-<U54BF> \x8F\xA3\xF5 |3 # 2-3-85
-<U54C3> \x8F\xA3\xF6 |3 # 2-3-86
-<U20D45> \x8F\xA3\xF7 |3 # 2-3-87
-<U54EC> \x8F\xA3\xF8 |3 # 2-3-88
-<U54EF> \x8F\xA3\xF9 |3 # 2-3-89
-<U54F1> \x8F\xA3\xFA |3 # 2-3-90
-<U54F3> \x8F\xA3\xFB |3 # 2-3-91
-<U5500> \x8F\xA3\xFC |3 # 2-3-92
-<U5501> \x8F\xA3\xFD |3 # 2-3-93
-<U5509> \x8F\xA3\xFE |3 # 2-3-94
-<U553C> \x8F\xA4\xA1 |3 # 2-4-1
-<U5541> \x8F\xA4\xA2 |3 # 2-4-2
-<U35A6> \x8F\xA4\xA3 |3 # 2-4-3
-<U5547> \x8F\xA4\xA4 |3 # 2-4-4
-<U554A> \x8F\xA4\xA5 |3 # 2-4-5
-<U35A8> \x8F\xA4\xA6 |3 # 2-4-6
-<U5560> \x8F\xA4\xA7 |3 # 2-4-7
-<U5561> \x8F\xA4\xA8 |3 # 2-4-8
-<U5564> \x8F\xA4\xA9 |3 # 2-4-9
-<U20DE1> \x8F\xA4\xAA |3 # 2-4-10
-<U557D> \x8F\xA4\xAB |3 # 2-4-11
-<U5582> \x8F\xA4\xAC |3 # 2-4-12
-<U5588> \x8F\xA4\xAD |3 # 2-4-13
-<U5591> \x8F\xA4\xAE |3 # 2-4-14
-<U35C5> \x8F\xA4\xAF |3 # 2-4-15
-<U55D2> \x8F\xA4\xB0 |3 # 2-4-16
-<U20E95> \x8F\xA4\xB1 |3 # 2-4-17
-<U20E6D> \x8F\xA4\xB2 |3 # 2-4-18
-<U55BF> \x8F\xA4\xB3 |3 # 2-4-19
-<U55C9> \x8F\xA4\xB4 |3 # 2-4-20
-<U55CC> \x8F\xA4\xB5 |3 # 2-4-21
-<U55D1> \x8F\xA4\xB6 |3 # 2-4-22
-<U55DD> \x8F\xA4\xB7 |3 # 2-4-23
-<U35DA> \x8F\xA4\xB8 |3 # 2-4-24
-<U55E2> \x8F\xA4\xB9 |3 # 2-4-25
-<U20E64> \x8F\xA4\xBA |3 # 2-4-26
-<U55E9> \x8F\xA4\xBB |3 # 2-4-27
-<U5628> \x8F\xA4\xBC |3 # 2-4-28
-<U20F5F> \x8F\xA4\xBD |3 # 2-4-29
-<U5607> \x8F\xA4\xBE |3 # 2-4-30
-<U5610> \x8F\xA4\xBF |3 # 2-4-31
-<U5630> \x8F\xA4\xC0 |3 # 2-4-32
-<U5637> \x8F\xA4\xC1 |3 # 2-4-33
-<U35F4> \x8F\xA4\xC2 |3 # 2-4-34
-<U563D> \x8F\xA4\xC3 |3 # 2-4-35
-<U563F> \x8F\xA4\xC4 |3 # 2-4-36
-<U5640> \x8F\xA4\xC5 |3 # 2-4-37
-<U5647> \x8F\xA4\xC6 |3 # 2-4-38
-<U565E> \x8F\xA4\xC7 |3 # 2-4-39
-<U5660> \x8F\xA4\xC8 |3 # 2-4-40
-<U566D> \x8F\xA4\xC9 |3 # 2-4-41
-<U3605> \x8F\xA4\xCA |3 # 2-4-42
-<U5688> \x8F\xA4\xCB |3 # 2-4-43
-<U568C> \x8F\xA4\xCC |3 # 2-4-44
-<U5695> \x8F\xA4\xCD |3 # 2-4-45
-<U569A> \x8F\xA4\xCE |3 # 2-4-46
-<U569D> \x8F\xA4\xCF |3 # 2-4-47
-<U56A8> \x8F\xA4\xD0 |3 # 2-4-48
-<U56AD> \x8F\xA4\xD1 |3 # 2-4-49
-<U56B2> \x8F\xA4\xD2 |3 # 2-4-50
-<U56C5> \x8F\xA4\xD3 |3 # 2-4-51
-<U56CD> \x8F\xA4\xD4 |3 # 2-4-52
-<U56DF> \x8F\xA4\xD5 |3 # 2-4-53
-<U56E8> \x8F\xA4\xD6 |3 # 2-4-54
-<U56F6> \x8F\xA4\xD7 |3 # 2-4-55
-<U56F7> \x8F\xA4\xD8 |3 # 2-4-56
-<U21201> \x8F\xA4\xD9 |3 # 2-4-57
-<U5715> \x8F\xA4\xDA |3 # 2-4-58
-<U5723> \x8F\xA4\xDB |3 # 2-4-59
-<U21255> \x8F\xA4\xDC |3 # 2-4-60
-<U5729> \x8F\xA4\xDD |3 # 2-4-61
-<U2127B> \x8F\xA4\xDE |3 # 2-4-62
-<U5745> \x8F\xA4\xDF |3 # 2-4-63
-<U5746> \x8F\xA4\xE0 |3 # 2-4-64
-<U574C> \x8F\xA4\xE1 |3 # 2-4-65
-<U574D> \x8F\xA4\xE2 |3 # 2-4-66
-<U21274> \x8F\xA4\xE3 |3 # 2-4-67
-<U5768> \x8F\xA4\xE4 |3 # 2-4-68
-<U576F> \x8F\xA4\xE5 |3 # 2-4-69
-<U5773> \x8F\xA4\xE6 |3 # 2-4-70
-<U5774> \x8F\xA4\xE7 |3 # 2-4-71
-<U5775> \x8F\xA4\xE8 |3 # 2-4-72
-<U577B> \x8F\xA4\xE9 |3 # 2-4-73
-<U212E4> \x8F\xA4\xEA |3 # 2-4-74
-<U212D7> \x8F\xA4\xEB |3 # 2-4-75
-<U57AC> \x8F\xA4\xEC |3 # 2-4-76
-<U579A> \x8F\xA4\xED |3 # 2-4-77
-<U579D> \x8F\xA4\xEE |3 # 2-4-78
-<U579E> \x8F\xA4\xEF |3 # 2-4-79
-<U57A8> \x8F\xA4\xF0 |3 # 2-4-80
-<U57D7> \x8F\xA4\xF1 |3 # 2-4-81
-<U212FD> \x8F\xA4\xF2 |3 # 2-4-82
-<U57CC> \x8F\xA4\xF3 |3 # 2-4-83
-<U21336> \x8F\xA4\xF4 |3 # 2-4-84
-<U21344> \x8F\xA4\xF5 |3 # 2-4-85
-<U57DE> \x8F\xA4\xF6 |3 # 2-4-86
-<U57E6> \x8F\xA4\xF7 |3 # 2-4-87
-<U57F0> \x8F\xA4\xF8 |3 # 2-4-88
-<U364A> \x8F\xA4\xF9 |3 # 2-4-89
-<U57F8> \x8F\xA4\xFA |3 # 2-4-90
-<U57FB> \x8F\xA4\xFB |3 # 2-4-91
-<U57FD> \x8F\xA4\xFC |3 # 2-4-92
-<U5804> \x8F\xA4\xFD |3 # 2-4-93
-<U581E> \x8F\xA4\xFE |3 # 2-4-94
-<U5820> \x8F\xA5\xA1 |3 # 2-5-1
-<U5827> \x8F\xA5\xA2 |3 # 2-5-2
-<U5832> \x8F\xA5\xA3 |3 # 2-5-3
-<U5839> \x8F\xA5\xA4 |3 # 2-5-4
-<U213C4> \x8F\xA5\xA5 |3 # 2-5-5
-<U5849> \x8F\xA5\xA6 |3 # 2-5-6
-<U584C> \x8F\xA5\xA7 |3 # 2-5-7
-<U5867> \x8F\xA5\xA8 |3 # 2-5-8
-<U588A> \x8F\xA5\xA9 |3 # 2-5-9
-<U588B> \x8F\xA5\xAA |3 # 2-5-10
-<U588D> \x8F\xA5\xAB |3 # 2-5-11
-<U588F> \x8F\xA5\xAC |3 # 2-5-12
-<U5890> \x8F\xA5\xAD |3 # 2-5-13
-<U5894> \x8F\xA5\xAE |3 # 2-5-14
-<U589D> \x8F\xA5\xAF |3 # 2-5-15
-<U58AA> \x8F\xA5\xB0 |3 # 2-5-16
-<U58B1> \x8F\xA5\xB1 |3 # 2-5-17
-<U2146D> \x8F\xA5\xB2 |3 # 2-5-18
-<U58C3> \x8F\xA5\xB3 |3 # 2-5-19
-<U58CD> \x8F\xA5\xB4 |3 # 2-5-20
-<U58E2> \x8F\xA5\xB5 |3 # 2-5-21
-<U58F3> \x8F\xA5\xB6 |3 # 2-5-22
-<U58F4> \x8F\xA5\xB7 |3 # 2-5-23
-<U5905> \x8F\xA5\xB8 |3 # 2-5-24
-<U5906> \x8F\xA5\xB9 |3 # 2-5-25
-<U590B> \x8F\xA5\xBA |3 # 2-5-26
-<U590D> \x8F\xA5\xBB |3 # 2-5-27
-<U5914> \x8F\xA5\xBC |3 # 2-5-28
-<U5924> \x8F\xA5\xBD |3 # 2-5-29
-<U215D7> \x8F\xA5\xBE |3 # 2-5-30
-<U3691> \x8F\xA5\xBF |3 # 2-5-31
-<U593D> \x8F\xA5\xC0 |3 # 2-5-32
-<U3699> \x8F\xA5\xC1 |3 # 2-5-33
-<U5946> \x8F\xA5\xC2 |3 # 2-5-34
-<U3696> \x8F\xA5\xC3 |3 # 2-5-35
-<U26C29> \x8F\xA5\xC4 |3 # 2-5-36
-<U595B> \x8F\xA5\xC5 |3 # 2-5-37
-<U595F> \x8F\xA5\xC6 |3 # 2-5-38
-<U21647> \x8F\xA5\xC7 |3 # 2-5-39
-<U5975> \x8F\xA5\xC8 |3 # 2-5-40
-<U5976> \x8F\xA5\xC9 |3 # 2-5-41
-<U597C> \x8F\xA5\xCA |3 # 2-5-42
-<U599F> \x8F\xA5\xCB |3 # 2-5-43
-<U59AE> \x8F\xA5\xCC |3 # 2-5-44
-<U59BC> \x8F\xA5\xCD |3 # 2-5-45
-<U59C8> \x8F\xA5\xCE |3 # 2-5-46
-<U59CD> \x8F\xA5\xCF |3 # 2-5-47
-<U59DE> \x8F\xA5\xD0 |3 # 2-5-48
-<U59E3> \x8F\xA5\xD1 |3 # 2-5-49
-<U59E4> \x8F\xA5\xD2 |3 # 2-5-50
-<U59E7> \x8F\xA5\xD3 |3 # 2-5-51
-<U59EE> \x8F\xA5\xD4 |3 # 2-5-52
-<U21706> \x8F\xA5\xD5 |3 # 2-5-53
-<U21742> \x8F\xA5\xD6 |3 # 2-5-54
-<U36CF> \x8F\xA5\xD7 |3 # 2-5-55
-<U5A0C> \x8F\xA5\xD8 |3 # 2-5-56
-<U5A0D> \x8F\xA5\xD9 |3 # 2-5-57
-<U5A17> \x8F\xA5\xDA |3 # 2-5-58
-<U5A27> \x8F\xA5\xDB |3 # 2-5-59
-<U5A2D> \x8F\xA5\xDC |3 # 2-5-60
-<U5A55> \x8F\xA5\xDD |3 # 2-5-61
-<U5A65> \x8F\xA5\xDE |3 # 2-5-62
-<U5A7A> \x8F\xA5\xDF |3 # 2-5-63
-<U5A8B> \x8F\xA5\xE0 |3 # 2-5-64
-<U5A9C> \x8F\xA5\xE1 |3 # 2-5-65
-<U5A9F> \x8F\xA5\xE2 |3 # 2-5-66
-<U5AA0> \x8F\xA5\xE3 |3 # 2-5-67
-<U5AA2> \x8F\xA5\xE4 |3 # 2-5-68
-<U5AB1> \x8F\xA5\xE5 |3 # 2-5-69
-<U5AB3> \x8F\xA5\xE6 |3 # 2-5-70
-<U5AB5> \x8F\xA5\xE7 |3 # 2-5-71
-<U5ABA> \x8F\xA5\xE8 |3 # 2-5-72
-<U5ABF> \x8F\xA5\xE9 |3 # 2-5-73
-<U5ADA> \x8F\xA5\xEA |3 # 2-5-74
-<U5ADC> \x8F\xA5\xEB |3 # 2-5-75
-<U5AE0> \x8F\xA5\xEC |3 # 2-5-76
-<U5AE5> \x8F\xA5\xED |3 # 2-5-77
-<U5AF0> \x8F\xA5\xEE |3 # 2-5-78
-<U5AEE> \x8F\xA5\xEF |3 # 2-5-79
-<U5AF5> \x8F\xA5\xF0 |3 # 2-5-80
-<U5B00> \x8F\xA5\xF1 |3 # 2-5-81
-<U5B08> \x8F\xA5\xF2 |3 # 2-5-82
-<U5B17> \x8F\xA5\xF3 |3 # 2-5-83
-<U5B34> \x8F\xA5\xF4 |3 # 2-5-84
-<U5B2D> \x8F\xA5\xF5 |3 # 2-5-85
-<U5B4C> \x8F\xA5\xF6 |3 # 2-5-86
-<U5B52> \x8F\xA5\xF7 |3 # 2-5-87
-<U5B68> \x8F\xA5\xF8 |3 # 2-5-88
-<U5B6F> \x8F\xA5\xF9 |3 # 2-5-89
-<U5B7C> \x8F\xA5\xFA |3 # 2-5-90
-<U5B7F> \x8F\xA5\xFB |3 # 2-5-91
-<U5B81> \x8F\xA5\xFC |3 # 2-5-92
-<U5B84> \x8F\xA5\xFD |3 # 2-5-93
-<U219C3> \x8F\xA5\xFE |3 # 2-5-94
-<U5B96> \x8F\xA8\xA1 |3 # 2-8-1
-<U5BAC> \x8F\xA8\xA2 |3 # 2-8-2
-<U3761> \x8F\xA8\xA3 |3 # 2-8-3
-<U5BC0> \x8F\xA8\xA4 |3 # 2-8-4
-<U3762> \x8F\xA8\xA5 |3 # 2-8-5
-<U5BCE> \x8F\xA8\xA6 |3 # 2-8-6
-<U5BD6> \x8F\xA8\xA7 |3 # 2-8-7
-<U376C> \x8F\xA8\xA8 |3 # 2-8-8
-<U376B> \x8F\xA8\xA9 |3 # 2-8-9
-<U5BF1> \x8F\xA8\xAA |3 # 2-8-10
-<U5BFD> \x8F\xA8\xAB |3 # 2-8-11
-<U3775> \x8F\xA8\xAC |3 # 2-8-12
-<U5C03> \x8F\xA8\xAD |3 # 2-8-13
-<U5C29> \x8F\xA8\xAE |3 # 2-8-14
-<U5C30> \x8F\xA8\xAF |3 # 2-8-15
-<U21C56> \x8F\xA8\xB0 |3 # 2-8-16
-<U5C5F> \x8F\xA8\xB1 |3 # 2-8-17
-<U5C63> \x8F\xA8\xB2 |3 # 2-8-18
-<U5C67> \x8F\xA8\xB3 |3 # 2-8-19
-<U5C68> \x8F\xA8\xB4 |3 # 2-8-20
-<U5C69> \x8F\xA8\xB5 |3 # 2-8-21
-<U5C70> \x8F\xA8\xB6 |3 # 2-8-22
-<U21D2D> \x8F\xA8\xB7 |3 # 2-8-23
-<U21D45> \x8F\xA8\xB8 |3 # 2-8-24
-<U5C7C> \x8F\xA8\xB9 |3 # 2-8-25
-<U21D78> \x8F\xA8\xBA |3 # 2-8-26
-<U21D62> \x8F\xA8\xBB |3 # 2-8-27
-<U5C88> \x8F\xA8\xBC |3 # 2-8-28
-<U5C8A> \x8F\xA8\xBD |3 # 2-8-29
-<U37C1> \x8F\xA8\xBE |3 # 2-8-30
-<U21DA1> \x8F\xA8\xBF |3 # 2-8-31
-<U21D9C> \x8F\xA8\xC0 |3 # 2-8-32
-<U5CA0> \x8F\xA8\xC1 |3 # 2-8-33
-<U5CA2> \x8F\xA8\xC2 |3 # 2-8-34
-<U5CA6> \x8F\xA8\xC3 |3 # 2-8-35
-<U5CA7> \x8F\xA8\xC4 |3 # 2-8-36
-<U21D92> \x8F\xA8\xC5 |3 # 2-8-37
-<U5CAD> \x8F\xA8\xC6 |3 # 2-8-38
-<U5CB5> \x8F\xA8\xC7 |3 # 2-8-39
-<U21DB7> \x8F\xA8\xC8 |3 # 2-8-40
-<U5CC9> \x8F\xA8\xC9 |3 # 2-8-41
-<U21DE0> \x8F\xA8\xCA |3 # 2-8-42
-<U21E33> \x8F\xA8\xCB |3 # 2-8-43
-<U5D06> \x8F\xA8\xCC |3 # 2-8-44
-<U5D10> \x8F\xA8\xCD |3 # 2-8-45
-<U5D2B> \x8F\xA8\xCE |3 # 2-8-46
-<U5D1D> \x8F\xA8\xCF |3 # 2-8-47
-<U5D20> \x8F\xA8\xD0 |3 # 2-8-48
-<U5D24> \x8F\xA8\xD1 |3 # 2-8-49
-<U5D26> \x8F\xA8\xD2 |3 # 2-8-50
-<U5D31> \x8F\xA8\xD3 |3 # 2-8-51
-<U5D39> \x8F\xA8\xD4 |3 # 2-8-52
-<U5D42> \x8F\xA8\xD5 |3 # 2-8-53
-<U37E8> \x8F\xA8\xD6 |3 # 2-8-54
-<U5D61> \x8F\xA8\xD7 |3 # 2-8-55
-<U5D6A> \x8F\xA8\xD8 |3 # 2-8-56
-<U37F4> \x8F\xA8\xD9 |3 # 2-8-57
-<U5D70> \x8F\xA8\xDA |3 # 2-8-58
-<U21F1E> \x8F\xA8\xDB |3 # 2-8-59
-<U37FD> \x8F\xA8\xDC |3 # 2-8-60
-<U5D88> \x8F\xA8\xDD |3 # 2-8-61
-<U3800> \x8F\xA8\xDE |3 # 2-8-62
-<U5D92> \x8F\xA8\xDF |3 # 2-8-63
-<U5D94> \x8F\xA8\xE0 |3 # 2-8-64
-<U5D97> \x8F\xA8\xE1 |3 # 2-8-65
-<U5D99> \x8F\xA8\xE2 |3 # 2-8-66
-<U5DB0> \x8F\xA8\xE3 |3 # 2-8-67
-<U5DB2> \x8F\xA8\xE4 |3 # 2-8-68
-<U5DB4> \x8F\xA8\xE5 |3 # 2-8-69
-<U21F76> \x8F\xA8\xE6 |3 # 2-8-70
-<U5DB9> \x8F\xA8\xE7 |3 # 2-8-71
-<U5DD1> \x8F\xA8\xE8 |3 # 2-8-72
-<U5DD7> \x8F\xA8\xE9 |3 # 2-8-73
-<U5DD8> \x8F\xA8\xEA |3 # 2-8-74
-<U5DE0> \x8F\xA8\xEB |3 # 2-8-75
-<U21FFA> \x8F\xA8\xEC |3 # 2-8-76
-<U5DE4> \x8F\xA8\xED |3 # 2-8-77
-<U5DE9> \x8F\xA8\xEE |3 # 2-8-78
-<U382F> \x8F\xA8\xEF |3 # 2-8-79
-<U5E00> \x8F\xA8\xF0 |3 # 2-8-80
-<U3836> \x8F\xA8\xF1 |3 # 2-8-81
-<U5E12> \x8F\xA8\xF2 |3 # 2-8-82
-<U5E15> \x8F\xA8\xF3 |3 # 2-8-83
-<U3840> \x8F\xA8\xF4 |3 # 2-8-84
-<U5E1F> \x8F\xA8\xF5 |3 # 2-8-85
-<U5E2E> \x8F\xA8\xF6 |3 # 2-8-86
-<U5E3E> \x8F\xA8\xF7 |3 # 2-8-87
-<U5E49> \x8F\xA8\xF8 |3 # 2-8-88
-<U385C> \x8F\xA8\xF9 |3 # 2-8-89
-<U5E56> \x8F\xA8\xFA |3 # 2-8-90
-<U3861> \x8F\xA8\xFB |3 # 2-8-91
-<U5E6B> \x8F\xA8\xFC |3 # 2-8-92
-<U5E6C> \x8F\xA8\xFD |3 # 2-8-93
-<U5E6D> \x8F\xA8\xFE |3 # 2-8-94
-<U5E6E> \x8F\xAC\xA1 |3 # 2-12-1
-<U2217B> \x8F\xAC\xA2 |3 # 2-12-2
-<U5EA5> \x8F\xAC\xA3 |3 # 2-12-3
-<U5EAA> \x8F\xAC\xA4 |3 # 2-12-4
-<U5EAC> \x8F\xAC\xA5 |3 # 2-12-5
-<U5EB9> \x8F\xAC\xA6 |3 # 2-12-6
-<U5EBF> \x8F\xAC\xA7 |3 # 2-12-7
-<U5EC6> \x8F\xAC\xA8 |3 # 2-12-8
-<U5ED2> \x8F\xAC\xA9 |3 # 2-12-9
-<U5ED9> \x8F\xAC\xAA |3 # 2-12-10
-<U2231E> \x8F\xAC\xAB |3 # 2-12-11
-<U5EFD> \x8F\xAC\xAC |3 # 2-12-12
-<U5F08> \x8F\xAC\xAD |3 # 2-12-13
-<U5F0E> \x8F\xAC\xAE |3 # 2-12-14
-<U5F1C> \x8F\xAC\xAF |3 # 2-12-15
-<U223AD> \x8F\xAC\xB0 |3 # 2-12-16
-<U5F1E> \x8F\xAC\xB1 |3 # 2-12-17
-<U5F47> \x8F\xAC\xB2 |3 # 2-12-18
-<U5F63> \x8F\xAC\xB3 |3 # 2-12-19
-<U5F72> \x8F\xAC\xB4 |3 # 2-12-20
-<U5F7E> \x8F\xAC\xB5 |3 # 2-12-21
-<U5F8F> \x8F\xAC\xB6 |3 # 2-12-22
-<U5FA2> \x8F\xAC\xB7 |3 # 2-12-23
-<U5FA4> \x8F\xAC\xB8 |3 # 2-12-24
-<U5FB8> \x8F\xAC\xB9 |3 # 2-12-25
-<U5FC4> \x8F\xAC\xBA |3 # 2-12-26
-<U38FA> \x8F\xAC\xBB |3 # 2-12-27
-<U5FC7> \x8F\xAC\xBC |3 # 2-12-28
-<U5FCB> \x8F\xAC\xBD |3 # 2-12-29
-<U5FD2> \x8F\xAC\xBE |3 # 2-12-30
-<U5FD3> \x8F\xAC\xBF |3 # 2-12-31
-<U5FD4> \x8F\xAC\xC0 |3 # 2-12-32
-<U5FE2> \x8F\xAC\xC1 |3 # 2-12-33
-<U5FEE> \x8F\xAC\xC2 |3 # 2-12-34
-<U5FEF> \x8F\xAC\xC3 |3 # 2-12-35
-<U5FF3> \x8F\xAC\xC4 |3 # 2-12-36
-<U5FFC> \x8F\xAC\xC5 |3 # 2-12-37
-<U3917> \x8F\xAC\xC6 |3 # 2-12-38
-<U6017> \x8F\xAC\xC7 |3 # 2-12-39
-<U6022> \x8F\xAC\xC8 |3 # 2-12-40
-<U6024> \x8F\xAC\xC9 |3 # 2-12-41
-<U391A> \x8F\xAC\xCA |3 # 2-12-42
-<U604C> \x8F\xAC\xCB |3 # 2-12-43
-<U607F> \x8F\xAC\xCC |3 # 2-12-44
-<U608A> \x8F\xAC\xCD |3 # 2-12-45
-<U6095> \x8F\xAC\xCE |3 # 2-12-46
-<U60A8> \x8F\xAC\xCF |3 # 2-12-47
-<U226F3> \x8F\xAC\xD0 |3 # 2-12-48
-<U60B0> \x8F\xAC\xD1 |3 # 2-12-49
-<U60B1> \x8F\xAC\xD2 |3 # 2-12-50
-<U60BE> \x8F\xAC\xD3 |3 # 2-12-51
-<U60C8> \x8F\xAC\xD4 |3 # 2-12-52
-<U60D9> \x8F\xAC\xD5 |3 # 2-12-53
-<U60DB> \x8F\xAC\xD6 |3 # 2-12-54
-<U60EE> \x8F\xAC\xD7 |3 # 2-12-55
-<U60F2> \x8F\xAC\xD8 |3 # 2-12-56
-<U60F5> \x8F\xAC\xD9 |3 # 2-12-57
-<U6110> \x8F\xAC\xDA |3 # 2-12-58
-<U6112> \x8F\xAC\xDB |3 # 2-12-59
-<U6113> \x8F\xAC\xDC |3 # 2-12-60
-<U6119> \x8F\xAC\xDD |3 # 2-12-61
-<U611E> \x8F\xAC\xDE |3 # 2-12-62
-<U613A> \x8F\xAC\xDF |3 # 2-12-63
-<U396F> \x8F\xAC\xE0 |3 # 2-12-64
-<U6141> \x8F\xAC\xE1 |3 # 2-12-65
-<U6146> \x8F\xAC\xE2 |3 # 2-12-66
-<U6160> \x8F\xAC\xE3 |3 # 2-12-67
-<U617C> \x8F\xAC\xE4 |3 # 2-12-68
-<U2285B> \x8F\xAC\xE5 |3 # 2-12-69
-<U6192> \x8F\xAC\xE6 |3 # 2-12-70
-<U6193> \x8F\xAC\xE7 |3 # 2-12-71
-<U6197> \x8F\xAC\xE8 |3 # 2-12-72
-<U6198> \x8F\xAC\xE9 |3 # 2-12-73
-<U61A5> \x8F\xAC\xEA |3 # 2-12-74
-<U61A8> \x8F\xAC\xEB |3 # 2-12-75
-<U61AD> \x8F\xAC\xEC |3 # 2-12-76
-<U228AB> \x8F\xAC\xED |3 # 2-12-77
-<U61D5> \x8F\xAC\xEE |3 # 2-12-78
-<U61DD> \x8F\xAC\xEF |3 # 2-12-79
-<U61DF> \x8F\xAC\xF0 |3 # 2-12-80
-<U61F5> \x8F\xAC\xF1 |3 # 2-12-81
-<U2298F> \x8F\xAC\xF2 |3 # 2-12-82
-<U6215> \x8F\xAC\xF3 |3 # 2-12-83
-<U6223> \x8F\xAC\xF4 |3 # 2-12-84
-<U6229> \x8F\xAC\xF5 |3 # 2-12-85
-<U6246> \x8F\xAC\xF6 |3 # 2-12-86
-<U624C> \x8F\xAC\xF7 |3 # 2-12-87
-<U6251> \x8F\xAC\xF8 |3 # 2-12-88
-<U6252> \x8F\xAC\xF9 |3 # 2-12-89
-<U6261> \x8F\xAC\xFA |3 # 2-12-90
-<U6264> \x8F\xAC\xFB |3 # 2-12-91
-<U627B> \x8F\xAC\xFC |3 # 2-12-92
-<U626D> \x8F\xAC\xFD |3 # 2-12-93
-<U6273> \x8F\xAC\xFE |3 # 2-12-94
-<U6299> \x8F\xAD\xA1 |3 # 2-13-1
-<U62A6> \x8F\xAD\xA2 |3 # 2-13-2
-<U62D5> \x8F\xAD\xA3 |3 # 2-13-3
-<U22AB8> \x8F\xAD\xA4 |3 # 2-13-4
-<U62FD> \x8F\xAD\xA5 |3 # 2-13-5
-<U6303> \x8F\xAD\xA6 |3 # 2-13-6
-<U630D> \x8F\xAD\xA7 |3 # 2-13-7
-<U6310> \x8F\xAD\xA8 |3 # 2-13-8
-<U22B4F> \x8F\xAD\xA9 |3 # 2-13-9
-<U22B50> \x8F\xAD\xAA |3 # 2-13-10
-<U6332> \x8F\xAD\xAB |3 # 2-13-11
-<U6335> \x8F\xAD\xAC |3 # 2-13-12
-<U633B> \x8F\xAD\xAD |3 # 2-13-13
-<U633C> \x8F\xAD\xAE |3 # 2-13-14
-<U6341> \x8F\xAD\xAF |3 # 2-13-15
-<U6344> \x8F\xAD\xB0 |3 # 2-13-16
-<U634E> \x8F\xAD\xB1 |3 # 2-13-17
-<U22B46> \x8F\xAD\xB2 |3 # 2-13-18
-<U6359> \x8F\xAD\xB3 |3 # 2-13-19
-<U22C1D> \x8F\xAD\xB4 |3 # 2-13-20
-<U22BA6> \x8F\xAD\xB5 |3 # 2-13-21
-<U636C> \x8F\xAD\xB6 |3 # 2-13-22
-<U6384> \x8F\xAD\xB7 |3 # 2-13-23
-<U6399> \x8F\xAD\xB8 |3 # 2-13-24
-<U22C24> \x8F\xAD\xB9 |3 # 2-13-25
-<U6394> \x8F\xAD\xBA |3 # 2-13-26
-<U63BD> \x8F\xAD\xBB |3 # 2-13-27
-<U63F7> \x8F\xAD\xBC |3 # 2-13-28
-<U63D4> \x8F\xAD\xBD |3 # 2-13-29
-<U63D5> \x8F\xAD\xBE |3 # 2-13-30
-<U63DC> \x8F\xAD\xBF |3 # 2-13-31
-<U63E0> \x8F\xAD\xC0 |3 # 2-13-32
-<U63EB> \x8F\xAD\xC1 |3 # 2-13-33
-<U63EC> \x8F\xAD\xC2 |3 # 2-13-34
-<U63F2> \x8F\xAD\xC3 |3 # 2-13-35
-<U6409> \x8F\xAD\xC4 |3 # 2-13-36
-<U641E> \x8F\xAD\xC5 |3 # 2-13-37
-<U6425> \x8F\xAD\xC6 |3 # 2-13-38
-<U6429> \x8F\xAD\xC7 |3 # 2-13-39
-<U642F> \x8F\xAD\xC8 |3 # 2-13-40
-<U645A> \x8F\xAD\xC9 |3 # 2-13-41
-<U645B> \x8F\xAD\xCA |3 # 2-13-42
-<U645D> \x8F\xAD\xCB |3 # 2-13-43
-<U6473> \x8F\xAD\xCC |3 # 2-13-44
-<U647D> \x8F\xAD\xCD |3 # 2-13-45
-<U6487> \x8F\xAD\xCE |3 # 2-13-46
-<U6491> \x8F\xAD\xCF |3 # 2-13-47
-<U649D> \x8F\xAD\xD0 |3 # 2-13-48
-<U649F> \x8F\xAD\xD1 |3 # 2-13-49
-<U64CB> \x8F\xAD\xD2 |3 # 2-13-50
-<U64CC> \x8F\xAD\xD3 |3 # 2-13-51
-<U64D5> \x8F\xAD\xD4 |3 # 2-13-52
-<U64D7> \x8F\xAD\xD5 |3 # 2-13-53
-<U22DE1> \x8F\xAD\xD6 |3 # 2-13-54
-<U64E4> \x8F\xAD\xD7 |3 # 2-13-55
-<U64E5> \x8F\xAD\xD8 |3 # 2-13-56
-<U64FF> \x8F\xAD\xD9 |3 # 2-13-57
-<U6504> \x8F\xAD\xDA |3 # 2-13-58
-<U3A6E> \x8F\xAD\xDB |3 # 2-13-59
-<U650F> \x8F\xAD\xDC |3 # 2-13-60
-<U6514> \x8F\xAD\xDD |3 # 2-13-61
-<U6516> \x8F\xAD\xDE |3 # 2-13-62
-<U3A73> \x8F\xAD\xDF |3 # 2-13-63
-<U651E> \x8F\xAD\xE0 |3 # 2-13-64
-<U6532> \x8F\xAD\xE1 |3 # 2-13-65
-<U6544> \x8F\xAD\xE2 |3 # 2-13-66
-<U6554> \x8F\xAD\xE3 |3 # 2-13-67
-<U656B> \x8F\xAD\xE4 |3 # 2-13-68
-<U657A> \x8F\xAD\xE5 |3 # 2-13-69
-<U6581> \x8F\xAD\xE6 |3 # 2-13-70
-<U6584> \x8F\xAD\xE7 |3 # 2-13-71
-<U6585> \x8F\xAD\xE8 |3 # 2-13-72
-<U658A> \x8F\xAD\xE9 |3 # 2-13-73
-<U65B2> \x8F\xAD\xEA |3 # 2-13-74
-<U65B5> \x8F\xAD\xEB |3 # 2-13-75
-<U65B8> \x8F\xAD\xEC |3 # 2-13-76
-<U65BF> \x8F\xAD\xED |3 # 2-13-77
-<U65C2> \x8F\xAD\xEE |3 # 2-13-78
-<U65C9> \x8F\xAD\xEF |3 # 2-13-79
-<U65D4> \x8F\xAD\xF0 |3 # 2-13-80
-<U3AD6> \x8F\xAD\xF1 |3 # 2-13-81
-<U65F2> \x8F\xAD\xF2 |3 # 2-13-82
-<U65F9> \x8F\xAD\xF3 |3 # 2-13-83
-<U65FC> \x8F\xAD\xF4 |3 # 2-13-84
-<U6604> \x8F\xAD\xF5 |3 # 2-13-85
-<U6608> \x8F\xAD\xF6 |3 # 2-13-86
-<U6621> \x8F\xAD\xF7 |3 # 2-13-87
-<U662A> \x8F\xAD\xF8 |3 # 2-13-88
-<U6645> \x8F\xAD\xF9 |3 # 2-13-89
-<U6651> \x8F\xAD\xFA |3 # 2-13-90
-<U664E> \x8F\xAD\xFB |3 # 2-13-91
-<U3AEA> \x8F\xAD\xFC |3 # 2-13-92
-<U231C3> \x8F\xAD\xFD |3 # 2-13-93
-<U6657> \x8F\xAD\xFE |3 # 2-13-94
-<U665B> \x8F\xAE\xA1 |3 # 2-14-1
-<U6663> \x8F\xAE\xA2 |3 # 2-14-2
-<U231F5> \x8F\xAE\xA3 |3 # 2-14-3
-<U231B6> \x8F\xAE\xA4 |3 # 2-14-4
-<U666A> \x8F\xAE\xA5 |3 # 2-14-5
-<U666B> \x8F\xAE\xA6 |3 # 2-14-6
-<U666C> \x8F\xAE\xA7 |3 # 2-14-7
-<U666D> \x8F\xAE\xA8 |3 # 2-14-8
-<U667B> \x8F\xAE\xA9 |3 # 2-14-9
-<U6680> \x8F\xAE\xAA |3 # 2-14-10
-<U6690> \x8F\xAE\xAB |3 # 2-14-11
-<U6692> \x8F\xAE\xAC |3 # 2-14-12
-<U6699> \x8F\xAE\xAD |3 # 2-14-13
-<U3B0E> \x8F\xAE\xAE |3 # 2-14-14
-<U66AD> \x8F\xAE\xAF |3 # 2-14-15
-<U66B1> \x8F\xAE\xB0 |3 # 2-14-16
-<U66B5> \x8F\xAE\xB1 |3 # 2-14-17
-<U3B1A> \x8F\xAE\xB2 |3 # 2-14-18
-<U66BF> \x8F\xAE\xB3 |3 # 2-14-19
-<U3B1C> \x8F\xAE\xB4 |3 # 2-14-20
-<U66EC> \x8F\xAE\xB5 |3 # 2-14-21
-<U3AD7> \x8F\xAE\xB6 |3 # 2-14-22
-<U6701> \x8F\xAE\xB7 |3 # 2-14-23
-<U6705> \x8F\xAE\xB8 |3 # 2-14-24
-<U6712> \x8F\xAE\xB9 |3 # 2-14-25
-<U23372> \x8F\xAE\xBA |3 # 2-14-26
-<U6719> \x8F\xAE\xBB |3 # 2-14-27
-<U233D3> \x8F\xAE\xBC |3 # 2-14-28
-<U233D2> \x8F\xAE\xBD |3 # 2-14-29
-<U674C> \x8F\xAE\xBE |3 # 2-14-30
-<U674D> \x8F\xAE\xBF |3 # 2-14-31
-<U6754> \x8F\xAE\xC0 |3 # 2-14-32
-<U675D> \x8F\xAE\xC1 |3 # 2-14-33
-<U233D0> \x8F\xAE\xC2 |3 # 2-14-34
-<U233E4> \x8F\xAE\xC3 |3 # 2-14-35
-<U233D5> \x8F\xAE\xC4 |3 # 2-14-36
-<U6774> \x8F\xAE\xC5 |3 # 2-14-37
-<U6776> \x8F\xAE\xC6 |3 # 2-14-38
-<U233DA> \x8F\xAE\xC7 |3 # 2-14-39
-<U6792> \x8F\xAE\xC8 |3 # 2-14-40
-<U233DF> \x8F\xAE\xC9 |3 # 2-14-41
-<U8363> \x8F\xAE\xCA |3 # 2-14-42
-<U6810> \x8F\xAE\xCB |3 # 2-14-43
-<U67B0> \x8F\xAE\xCC |3 # 2-14-44
-<U67B2> \x8F\xAE\xCD |3 # 2-14-45
-<U67C3> \x8F\xAE\xCE |3 # 2-14-46
-<U67C8> \x8F\xAE\xCF |3 # 2-14-47
-<U67D2> \x8F\xAE\xD0 |3 # 2-14-48
-<U67D9> \x8F\xAE\xD1 |3 # 2-14-49
-<U67DB> \x8F\xAE\xD2 |3 # 2-14-50
-<U67F0> \x8F\xAE\xD3 |3 # 2-14-51
-<U67F7> \x8F\xAE\xD4 |3 # 2-14-52
-<U2344A> \x8F\xAE\xD5 |3 # 2-14-53
-<U23451> \x8F\xAE\xD6 |3 # 2-14-54
-<U2344B> \x8F\xAE\xD7 |3 # 2-14-55
-<U6818> \x8F\xAE\xD8 |3 # 2-14-56
-<U681F> \x8F\xAE\xD9 |3 # 2-14-57
-<U682D> \x8F\xAE\xDA |3 # 2-14-58
-<U23465> \x8F\xAE\xDB |3 # 2-14-59
-<U6833> \x8F\xAE\xDC |3 # 2-14-60
-<U683B> \x8F\xAE\xDD |3 # 2-14-61
-<U683E> \x8F\xAE\xDE |3 # 2-14-62
-<U6844> \x8F\xAE\xDF |3 # 2-14-63
-<U6845> \x8F\xAE\xE0 |3 # 2-14-64
-<U6849> \x8F\xAE\xE1 |3 # 2-14-65
-<U684C> \x8F\xAE\xE2 |3 # 2-14-66
-<U6855> \x8F\xAE\xE3 |3 # 2-14-67
-<U6857> \x8F\xAE\xE4 |3 # 2-14-68
-<U3B77> \x8F\xAE\xE5 |3 # 2-14-69
-<U686B> \x8F\xAE\xE6 |3 # 2-14-70
-<U686E> \x8F\xAE\xE7 |3 # 2-14-71
-<U687A> \x8F\xAE\xE8 |3 # 2-14-72
-<U687C> \x8F\xAE\xE9 |3 # 2-14-73
-<U6882> \x8F\xAE\xEA |3 # 2-14-74
-<U6890> \x8F\xAE\xEB |3 # 2-14-75
-<U6896> \x8F\xAE\xEC |3 # 2-14-76
-<U3B6D> \x8F\xAE\xED |3 # 2-14-77
-<U6898> \x8F\xAE\xEE |3 # 2-14-78
-<U6899> \x8F\xAE\xEF |3 # 2-14-79
-<U689A> \x8F\xAE\xF0 |3 # 2-14-80
-<U689C> \x8F\xAE\xF1 |3 # 2-14-81
-<U68AA> \x8F\xAE\xF2 |3 # 2-14-82
-<U68AB> \x8F\xAE\xF3 |3 # 2-14-83
-<U68B4> \x8F\xAE\xF4 |3 # 2-14-84
-<U68BB> \x8F\xAE\xF5 |3 # 2-14-85
-<U68FB> \x8F\xAE\xF6 |3 # 2-14-86
-<U234E4> \x8F\xAE\xF7 |3 # 2-14-87
-<U2355A> \x8F\xAE\xF8 |3 # 2-14-88
-<UFA13> \x8F\xAE\xF9 |3 # 2-14-89
-<U68C3> \x8F\xAE\xFA |3 # 2-14-90
-<U68C5> \x8F\xAE\xFB |3 # 2-14-91
-<U68CC> \x8F\xAE\xFC |3 # 2-14-92
-<U68CF> \x8F\xAE\xFD |3 # 2-14-93
-<U68D6> \x8F\xAE\xFE |3 # 2-14-94
-<U68D9> \x8F\xAF\xA1 |3 # 2-15-1
-<U68E4> \x8F\xAF\xA2 |3 # 2-15-2
-<U68E5> \x8F\xAF\xA3 |3 # 2-15-3
-<U68EC> \x8F\xAF\xA4 |3 # 2-15-4
-<U68F7> \x8F\xAF\xA5 |3 # 2-15-5
-<U6903> \x8F\xAF\xA6 |3 # 2-15-6
-<U6907> \x8F\xAF\xA7 |3 # 2-15-7
-<U3B87> \x8F\xAF\xA8 |3 # 2-15-8
-<U3B88> \x8F\xAF\xA9 |3 # 2-15-9
-<U23594> \x8F\xAF\xAA |3 # 2-15-10
-<U693B> \x8F\xAF\xAB |3 # 2-15-11
-<U3B8D> \x8F\xAF\xAC |3 # 2-15-12
-<U6946> \x8F\xAF\xAD |3 # 2-15-13
-<U6969> \x8F\xAF\xAE |3 # 2-15-14
-<U696C> \x8F\xAF\xAF |3 # 2-15-15
-<U6972> \x8F\xAF\xB0 |3 # 2-15-16
-<U697A> \x8F\xAF\xB1 |3 # 2-15-17
-<U697F> \x8F\xAF\xB2 |3 # 2-15-18
-<U6992> \x8F\xAF\xB3 |3 # 2-15-19
-<U3BA4> \x8F\xAF\xB4 |3 # 2-15-20
-<U6996> \x8F\xAF\xB5 |3 # 2-15-21
-<U6998> \x8F\xAF\xB6 |3 # 2-15-22
-<U69A6> \x8F\xAF\xB7 |3 # 2-15-23
-<U69B0> \x8F\xAF\xB8 |3 # 2-15-24
-<U69B7> \x8F\xAF\xB9 |3 # 2-15-25
-<U69BA> \x8F\xAF\xBA |3 # 2-15-26
-<U69BC> \x8F\xAF\xBB |3 # 2-15-27
-<U69C0> \x8F\xAF\xBC |3 # 2-15-28
-<U69D1> \x8F\xAF\xBD |3 # 2-15-29
-<U69D6> \x8F\xAF\xBE |3 # 2-15-30
-<U23639> \x8F\xAF\xBF |3 # 2-15-31
-<U23647> \x8F\xAF\xC0 |3 # 2-15-32
-<U6A30> \x8F\xAF\xC1 |3 # 2-15-33
-<U23638> \x8F\xAF\xC2 |3 # 2-15-34
-<U2363A> \x8F\xAF\xC3 |3 # 2-15-35
-<U69E3> \x8F\xAF\xC4 |3 # 2-15-36
-<U69EE> \x8F\xAF\xC5 |3 # 2-15-37
-<U69EF> \x8F\xAF\xC6 |3 # 2-15-38
-<U69F3> \x8F\xAF\xC7 |3 # 2-15-39
-<U3BCD> \x8F\xAF\xC8 |3 # 2-15-40
-<U69F4> \x8F\xAF\xC9 |3 # 2-15-41
-<U69FE> \x8F\xAF\xCA |3 # 2-15-42
-<U6A11> \x8F\xAF\xCB |3 # 2-15-43
-<U6A1A> \x8F\xAF\xCC |3 # 2-15-44
-<U6A1D> \x8F\xAF\xCD |3 # 2-15-45
-<U2371C> \x8F\xAF\xCE |3 # 2-15-46
-<U6A32> \x8F\xAF\xCF |3 # 2-15-47
-<U6A33> \x8F\xAF\xD0 |3 # 2-15-48
-<U6A34> \x8F\xAF\xD1 |3 # 2-15-49
-<U6A3F> \x8F\xAF\xD2 |3 # 2-15-50
-<U6A46> \x8F\xAF\xD3 |3 # 2-15-51
-<U6A49> \x8F\xAF\xD4 |3 # 2-15-52
-<U6A7A> \x8F\xAF\xD5 |3 # 2-15-53
-<U6A4E> \x8F\xAF\xD6 |3 # 2-15-54
-<U6A52> \x8F\xAF\xD7 |3 # 2-15-55
-<U6A64> \x8F\xAF\xD8 |3 # 2-15-56
-<U2370C> \x8F\xAF\xD9 |3 # 2-15-57
-<U6A7E> \x8F\xAF\xDA |3 # 2-15-58
-<U6A83> \x8F\xAF\xDB |3 # 2-15-59
-<U6A8B> \x8F\xAF\xDC |3 # 2-15-60
-<U3BF0> \x8F\xAF\xDD |3 # 2-15-61
-<U6A91> \x8F\xAF\xDE |3 # 2-15-62
-<U6A9F> \x8F\xAF\xDF |3 # 2-15-63
-<U6AA1> \x8F\xAF\xE0 |3 # 2-15-64
-<U23764> \x8F\xAF\xE1 |3 # 2-15-65
-<U6AAB> \x8F\xAF\xE2 |3 # 2-15-66
-<U6ABD> \x8F\xAF\xE3 |3 # 2-15-67
-<U6AC6> \x8F\xAF\xE4 |3 # 2-15-68
-<U6AD4> \x8F\xAF\xE5 |3 # 2-15-69
-<U6AD0> \x8F\xAF\xE6 |3 # 2-15-70
-<U6ADC> \x8F\xAF\xE7 |3 # 2-15-71
-<U6ADD> \x8F\xAF\xE8 |3 # 2-15-72
-<U237FF> \x8F\xAF\xE9 |3 # 2-15-73
-<U237E7> \x8F\xAF\xEA |3 # 2-15-74
-<U6AEC> \x8F\xAF\xEB |3 # 2-15-75
-<U6AF1> \x8F\xAF\xEC |3 # 2-15-76
-<U6AF2> \x8F\xAF\xED |3 # 2-15-77
-<U6AF3> \x8F\xAF\xEE |3 # 2-15-78
-<U6AFD> \x8F\xAF\xEF |3 # 2-15-79
-<U23824> \x8F\xAF\xF0 |3 # 2-15-80
-<U6B0B> \x8F\xAF\xF1 |3 # 2-15-81
-<U6B0F> \x8F\xAF\xF2 |3 # 2-15-82
-<U6B10> \x8F\xAF\xF3 |3 # 2-15-83
-<U6B11> \x8F\xAF\xF4 |3 # 2-15-84
-<U2383D> \x8F\xAF\xF5 |3 # 2-15-85
-<U6B17> \x8F\xAF\xF6 |3 # 2-15-86
-<U3C26> \x8F\xAF\xF7 |3 # 2-15-87
-<U6B2F> \x8F\xAF\xF8 |3 # 2-15-88
-<U6B4A> \x8F\xAF\xF9 |3 # 2-15-89
-<U6B58> \x8F\xAF\xFA |3 # 2-15-90
-<U6B6C> \x8F\xAF\xFB |3 # 2-15-91
-<U6B75> \x8F\xAF\xFC |3 # 2-15-92
-<U6B7A> \x8F\xAF\xFD |3 # 2-15-93
-<U6B81> \x8F\xAF\xFE |3 # 2-15-94
-<U6B9B> \x8F\xEE\xA1 |3 # 2-78-1
-<U6BAE> \x8F\xEE\xA2 |3 # 2-78-2
-<U23A98> \x8F\xEE\xA3 |3 # 2-78-3
-<U6BBD> \x8F\xEE\xA4 |3 # 2-78-4
-<U6BBE> \x8F\xEE\xA5 |3 # 2-78-5
-<U6BC7> \x8F\xEE\xA6 |3 # 2-78-6
-<U6BC8> \x8F\xEE\xA7 |3 # 2-78-7
-<U6BC9> \x8F\xEE\xA8 |3 # 2-78-8
-<U6BDA> \x8F\xEE\xA9 |3 # 2-78-9
-<U6BE6> \x8F\xEE\xAA |3 # 2-78-10
-<U6BE7> \x8F\xEE\xAB |3 # 2-78-11
-<U6BEE> \x8F\xEE\xAC |3 # 2-78-12
-<U6BF1> \x8F\xEE\xAD |3 # 2-78-13
-<U6C02> \x8F\xEE\xAE |3 # 2-78-14
-<U6C0A> \x8F\xEE\xAF |3 # 2-78-15
-<U6C0E> \x8F\xEE\xB0 |3 # 2-78-16
-<U6C35> \x8F\xEE\xB1 |3 # 2-78-17
-<U6C36> \x8F\xEE\xB2 |3 # 2-78-18
-<U6C3A> \x8F\xEE\xB3 |3 # 2-78-19
-<U23C7F> \x8F\xEE\xB4 |3 # 2-78-20
-<U6C3F> \x8F\xEE\xB5 |3 # 2-78-21
-<U6C4D> \x8F\xEE\xB6 |3 # 2-78-22
-<U6C5B> \x8F\xEE\xB7 |3 # 2-78-23
-<U6C6D> \x8F\xEE\xB8 |3 # 2-78-24
-<U6C84> \x8F\xEE\xB9 |3 # 2-78-25
-<U6C89> \x8F\xEE\xBA |3 # 2-78-26
-<U3CC3> \x8F\xEE\xBB |3 # 2-78-27
-<U6C94> \x8F\xEE\xBC |3 # 2-78-28
-<U6C95> \x8F\xEE\xBD |3 # 2-78-29
-<U6C97> \x8F\xEE\xBE |3 # 2-78-30
-<U6CAD> \x8F\xEE\xBF |3 # 2-78-31
-<U6CC2> \x8F\xEE\xC0 |3 # 2-78-32
-<U6CD0> \x8F\xEE\xC1 |3 # 2-78-33
-<U3CD2> \x8F\xEE\xC2 |3 # 2-78-34
-<U6CD6> \x8F\xEE\xC3 |3 # 2-78-35
-<U6CDA> \x8F\xEE\xC4 |3 # 2-78-36
-<U6CDC> \x8F\xEE\xC5 |3 # 2-78-37
-<U6CE9> \x8F\xEE\xC6 |3 # 2-78-38
-<U6CEC> \x8F\xEE\xC7 |3 # 2-78-39
-<U6CED> \x8F\xEE\xC8 |3 # 2-78-40
-<U23D00> \x8F\xEE\xC9 |3 # 2-78-41
-<U6D00> \x8F\xEE\xCA |3 # 2-78-42
-<U6D0A> \x8F\xEE\xCB |3 # 2-78-43
-<U6D24> \x8F\xEE\xCC |3 # 2-78-44
-<U6D26> \x8F\xEE\xCD |3 # 2-78-45
-<U6D27> \x8F\xEE\xCE |3 # 2-78-46
-<U6C67> \x8F\xEE\xCF |3 # 2-78-47
-<U6D2F> \x8F\xEE\xD0 |3 # 2-78-48
-<U6D3C> \x8F\xEE\xD1 |3 # 2-78-49
-<U6D5B> \x8F\xEE\xD2 |3 # 2-78-50
-<U6D5E> \x8F\xEE\xD3 |3 # 2-78-51
-<U6D60> \x8F\xEE\xD4 |3 # 2-78-52
-<U6D70> \x8F\xEE\xD5 |3 # 2-78-53
-<U6D80> \x8F\xEE\xD6 |3 # 2-78-54
-<U6D81> \x8F\xEE\xD7 |3 # 2-78-55
-<U6D8A> \x8F\xEE\xD8 |3 # 2-78-56
-<U6D8D> \x8F\xEE\xD9 |3 # 2-78-57
-<U6D91> \x8F\xEE\xDA |3 # 2-78-58
-<U6D98> \x8F\xEE\xDB |3 # 2-78-59
-<U23D40> \x8F\xEE\xDC |3 # 2-78-60
-<U6E17> \x8F\xEE\xDD |3 # 2-78-61
-<U23DFA> \x8F\xEE\xDE |3 # 2-78-62
-<U23DF9> \x8F\xEE\xDF |3 # 2-78-63
-<U23DD3> \x8F\xEE\xE0 |3 # 2-78-64
-<U6DAB> \x8F\xEE\xE1 |3 # 2-78-65
-<U6DAE> \x8F\xEE\xE2 |3 # 2-78-66
-<U6DB4> \x8F\xEE\xE3 |3 # 2-78-67
-<U6DC2> \x8F\xEE\xE4 |3 # 2-78-68
-<U6D34> \x8F\xEE\xE5 |3 # 2-78-69
-<U6DC8> \x8F\xEE\xE6 |3 # 2-78-70
-<U6DCE> \x8F\xEE\xE7 |3 # 2-78-71
-<U6DCF> \x8F\xEE\xE8 |3 # 2-78-72
-<U6DD0> \x8F\xEE\xE9 |3 # 2-78-73
-<U6DDF> \x8F\xEE\xEA |3 # 2-78-74
-<U6DE9> \x8F\xEE\xEB |3 # 2-78-75
-<U6DF6> \x8F\xEE\xEC |3 # 2-78-76
-<U6E36> \x8F\xEE\xED |3 # 2-78-77
-<U6E1E> \x8F\xEE\xEE |3 # 2-78-78
-<U6E22> \x8F\xEE\xEF |3 # 2-78-79
-<U6E27> \x8F\xEE\xF0 |3 # 2-78-80
-<U3D11> \x8F\xEE\xF1 |3 # 2-78-81
-<U6E32> \x8F\xEE\xF2 |3 # 2-78-82
-<U6E3C> \x8F\xEE\xF3 |3 # 2-78-83
-<U6E48> \x8F\xEE\xF4 |3 # 2-78-84
-<U6E49> \x8F\xEE\xF5 |3 # 2-78-85
-<U6E4B> \x8F\xEE\xF6 |3 # 2-78-86
-<U6E4C> \x8F\xEE\xF7 |3 # 2-78-87
-<U6E4F> \x8F\xEE\xF8 |3 # 2-78-88
-<U6E51> \x8F\xEE\xF9 |3 # 2-78-89
-<U6E53> \x8F\xEE\xFA |3 # 2-78-90
-<U6E54> \x8F\xEE\xFB |3 # 2-78-91
-<U6E57> \x8F\xEE\xFC |3 # 2-78-92
-<U6E63> \x8F\xEE\xFD |3 # 2-78-93
-<U3D1E> \x8F\xEE\xFE |3 # 2-78-94
-<U6E93> \x8F\xEF\xA1 |3 # 2-79-1
-<U6EA7> \x8F\xEF\xA2 |3 # 2-79-2
-<U6EB4> \x8F\xEF\xA3 |3 # 2-79-3
-<U6EBF> \x8F\xEF\xA4 |3 # 2-79-4
-<U6EC3> \x8F\xEF\xA5 |3 # 2-79-5
-<U6ECA> \x8F\xEF\xA6 |3 # 2-79-6
-<U6ED9> \x8F\xEF\xA7 |3 # 2-79-7
-<U6F35> \x8F\xEF\xA8 |3 # 2-79-8
-<U6EEB> \x8F\xEF\xA9 |3 # 2-79-9
-<U6EF9> \x8F\xEF\xAA |3 # 2-79-10
-<U6EFB> \x8F\xEF\xAB |3 # 2-79-11
-<U6F0A> \x8F\xEF\xAC |3 # 2-79-12
-<U6F0C> \x8F\xEF\xAD |3 # 2-79-13
-<U6F18> \x8F\xEF\xAE |3 # 2-79-14
-<U6F25> \x8F\xEF\xAF |3 # 2-79-15
-<U6F36> \x8F\xEF\xB0 |3 # 2-79-16
-<U6F3C> \x8F\xEF\xB1 |3 # 2-79-17
-<U23F7E> \x8F\xEF\xB2 |3 # 2-79-18
-<U6F52> \x8F\xEF\xB3 |3 # 2-79-19
-<U6F57> \x8F\xEF\xB4 |3 # 2-79-20
-<U6F5A> \x8F\xEF\xB5 |3 # 2-79-21
-<U6F60> \x8F\xEF\xB6 |3 # 2-79-22
-<U6F68> \x8F\xEF\xB7 |3 # 2-79-23
-<U6F98> \x8F\xEF\xB8 |3 # 2-79-24
-<U6F7D> \x8F\xEF\xB9 |3 # 2-79-25
-<U6F90> \x8F\xEF\xBA |3 # 2-79-26
-<U6F96> \x8F\xEF\xBB |3 # 2-79-27
-<U6FBE> \x8F\xEF\xBC |3 # 2-79-28
-<U6F9F> \x8F\xEF\xBD |3 # 2-79-29
-<U6FA5> \x8F\xEF\xBE |3 # 2-79-30
-<U6FAF> \x8F\xEF\xBF |3 # 2-79-31
-<U3D64> \x8F\xEF\xC0 |3 # 2-79-32
-<U6FB5> \x8F\xEF\xC1 |3 # 2-79-33
-<U6FC8> \x8F\xEF\xC2 |3 # 2-79-34
-<U6FC9> \x8F\xEF\xC3 |3 # 2-79-35
-<U6FDA> \x8F\xEF\xC4 |3 # 2-79-36
-<U6FDE> \x8F\xEF\xC5 |3 # 2-79-37
-<U6FE9> \x8F\xEF\xC6 |3 # 2-79-38
-<U24096> \x8F\xEF\xC7 |3 # 2-79-39
-<U6FFC> \x8F\xEF\xC8 |3 # 2-79-40
-<U7000> \x8F\xEF\xC9 |3 # 2-79-41
-<U7007> \x8F\xEF\xCA |3 # 2-79-42
-<U700A> \x8F\xEF\xCB |3 # 2-79-43
-<U7023> \x8F\xEF\xCC |3 # 2-79-44
-<U24103> \x8F\xEF\xCD |3 # 2-79-45
-<U7039> \x8F\xEF\xCE |3 # 2-79-46
-<U703A> \x8F\xEF\xCF |3 # 2-79-47
-<U703C> \x8F\xEF\xD0 |3 # 2-79-48
-<U7043> \x8F\xEF\xD1 |3 # 2-79-49
-<U7047> \x8F\xEF\xD2 |3 # 2-79-50
-<U704B> \x8F\xEF\xD3 |3 # 2-79-51
-<U3D9A> \x8F\xEF\xD4 |3 # 2-79-52
-<U7054> \x8F\xEF\xD5 |3 # 2-79-53
-<U7065> \x8F\xEF\xD6 |3 # 2-79-54
-<U7069> \x8F\xEF\xD7 |3 # 2-79-55
-<U706C> \x8F\xEF\xD8 |3 # 2-79-56
-<U706E> \x8F\xEF\xD9 |3 # 2-79-57
-<U7076> \x8F\xEF\xDA |3 # 2-79-58
-<U707E> \x8F\xEF\xDB |3 # 2-79-59
-<U7081> \x8F\xEF\xDC |3 # 2-79-60
-<U7086> \x8F\xEF\xDD |3 # 2-79-61
-<U7095> \x8F\xEF\xDE |3 # 2-79-62
-<U7097> \x8F\xEF\xDF |3 # 2-79-63
-<U70BB> \x8F\xEF\xE0 |3 # 2-79-64
-<U241C6> \x8F\xEF\xE1 |3 # 2-79-65
-<U709F> \x8F\xEF\xE2 |3 # 2-79-66
-<U70B1> \x8F\xEF\xE3 |3 # 2-79-67
-<U241FE> \x8F\xEF\xE4 |3 # 2-79-68
-<U70EC> \x8F\xEF\xE5 |3 # 2-79-69
-<U70CA> \x8F\xEF\xE6 |3 # 2-79-70
-<U70D1> \x8F\xEF\xE7 |3 # 2-79-71
-<U70D3> \x8F\xEF\xE8 |3 # 2-79-72
-<U70DC> \x8F\xEF\xE9 |3 # 2-79-73
-<U7103> \x8F\xEF\xEA |3 # 2-79-74
-<U7104> \x8F\xEF\xEB |3 # 2-79-75
-<U7106> \x8F\xEF\xEC |3 # 2-79-76
-<U7107> \x8F\xEF\xED |3 # 2-79-77
-<U7108> \x8F\xEF\xEE |3 # 2-79-78
-<U710C> \x8F\xEF\xEF |3 # 2-79-79
-<U3DC0> \x8F\xEF\xF0 |3 # 2-79-80
-<U712F> \x8F\xEF\xF1 |3 # 2-79-81
-<U7131> \x8F\xEF\xF2 |3 # 2-79-82
-<U7150> \x8F\xEF\xF3 |3 # 2-79-83
-<U714A> \x8F\xEF\xF4 |3 # 2-79-84
-<U7153> \x8F\xEF\xF5 |3 # 2-79-85
-<U715E> \x8F\xEF\xF6 |3 # 2-79-86
-<U3DD4> \x8F\xEF\xF7 |3 # 2-79-87
-<U7196> \x8F\xEF\xF8 |3 # 2-79-88
-<U7180> \x8F\xEF\xF9 |3 # 2-79-89
-<U719B> \x8F\xEF\xFA |3 # 2-79-90
-<U71A0> \x8F\xEF\xFB |3 # 2-79-91
-<U71A2> \x8F\xEF\xFC |3 # 2-79-92
-<U71AE> \x8F\xEF\xFD |3 # 2-79-93
-<U71AF> \x8F\xEF\xFE |3 # 2-79-94
-<U71B3> \x8F\xF0\xA1 |3 # 2-80-1
-<U243BC> \x8F\xF0\xA2 |3 # 2-80-2
-<U71CB> \x8F\xF0\xA3 |3 # 2-80-3
-<U71D3> \x8F\xF0\xA4 |3 # 2-80-4
-<U71D9> \x8F\xF0\xA5 |3 # 2-80-5
-<U71DC> \x8F\xF0\xA6 |3 # 2-80-6
-<U7207> \x8F\xF0\xA7 |3 # 2-80-7
-<U3E05> \x8F\xF0\xA8 |3 # 2-80-8
-<UFA49> \x8F\xF0\xA9 |3 # 2-80-9
-<U722B> \x8F\xF0\xAA |3 # 2-80-10
-<U7234> \x8F\xF0\xAB |3 # 2-80-11
-<U7238> \x8F\xF0\xAC |3 # 2-80-12
-<U7239> \x8F\xF0\xAD |3 # 2-80-13
-<U4E2C> \x8F\xF0\xAE |3 # 2-80-14
-<U7242> \x8F\xF0\xAF |3 # 2-80-15
-<U7253> \x8F\xF0\xB0 |3 # 2-80-16
-<U7257> \x8F\xF0\xB1 |3 # 2-80-17
-<U7263> \x8F\xF0\xB2 |3 # 2-80-18
-<U24629> \x8F\xF0\xB3 |3 # 2-80-19
-<U726E> \x8F\xF0\xB4 |3 # 2-80-20
-<U726F> \x8F\xF0\xB5 |3 # 2-80-21
-<U7278> \x8F\xF0\xB6 |3 # 2-80-22
-<U727F> \x8F\xF0\xB7 |3 # 2-80-23
-<U728E> \x8F\xF0\xB8 |3 # 2-80-24
-<U246A5> \x8F\xF0\xB9 |3 # 2-80-25
-<U72AD> \x8F\xF0\xBA |3 # 2-80-26
-<U72AE> \x8F\xF0\xBB |3 # 2-80-27
-<U72B0> \x8F\xF0\xBC |3 # 2-80-28
-<U72B1> \x8F\xF0\xBD |3 # 2-80-29
-<U72C1> \x8F\xF0\xBE |3 # 2-80-30
-<U3E60> \x8F\xF0\xBF |3 # 2-80-31
-<U72CC> \x8F\xF0\xC0 |3 # 2-80-32
-<U3E66> \x8F\xF0\xC1 |3 # 2-80-33
-<U3E68> \x8F\xF0\xC2 |3 # 2-80-34
-<U72F3> \x8F\xF0\xC3 |3 # 2-80-35
-<U72FA> \x8F\xF0\xC4 |3 # 2-80-36
-<U7307> \x8F\xF0\xC5 |3 # 2-80-37
-<U7312> \x8F\xF0\xC6 |3 # 2-80-38
-<U7318> \x8F\xF0\xC7 |3 # 2-80-39
-<U7319> \x8F\xF0\xC8 |3 # 2-80-40
-<U3E83> \x8F\xF0\xC9 |3 # 2-80-41
-<U7339> \x8F\xF0\xCA |3 # 2-80-42
-<U732C> \x8F\xF0\xCB |3 # 2-80-43
-<U7331> \x8F\xF0\xCC |3 # 2-80-44
-<U7333> \x8F\xF0\xCD |3 # 2-80-45
-<U733D> \x8F\xF0\xCE |3 # 2-80-46
-<U7352> \x8F\xF0\xCF |3 # 2-80-47
-<U3E94> \x8F\xF0\xD0 |3 # 2-80-48
-<U736B> \x8F\xF0\xD1 |3 # 2-80-49
-<U736C> \x8F\xF0\xD2 |3 # 2-80-50
-<U24896> \x8F\xF0\xD3 |3 # 2-80-51
-<U736E> \x8F\xF0\xD4 |3 # 2-80-52
-<U736F> \x8F\xF0\xD5 |3 # 2-80-53
-<U7371> \x8F\xF0\xD6 |3 # 2-80-54
-<U7377> \x8F\xF0\xD7 |3 # 2-80-55
-<U7381> \x8F\xF0\xD8 |3 # 2-80-56
-<U7385> \x8F\xF0\xD9 |3 # 2-80-57
-<U738A> \x8F\xF0\xDA |3 # 2-80-58
-<U7394> \x8F\xF0\xDB |3 # 2-80-59
-<U7398> \x8F\xF0\xDC |3 # 2-80-60
-<U739C> \x8F\xF0\xDD |3 # 2-80-61
-<U739E> \x8F\xF0\xDE |3 # 2-80-62
-<U73A5> \x8F\xF0\xDF |3 # 2-80-63
-<U73A8> \x8F\xF0\xE0 |3 # 2-80-64
-<U73B5> \x8F\xF0\xE1 |3 # 2-80-65
-<U73B7> \x8F\xF0\xE2 |3 # 2-80-66
-<U73B9> \x8F\xF0\xE3 |3 # 2-80-67
-<U73BC> \x8F\xF0\xE4 |3 # 2-80-68
-<U73BF> \x8F\xF0\xE5 |3 # 2-80-69
-<U73C5> \x8F\xF0\xE6 |3 # 2-80-70
-<U73CB> \x8F\xF0\xE7 |3 # 2-80-71
-<U73E1> \x8F\xF0\xE8 |3 # 2-80-72
-<U73E7> \x8F\xF0\xE9 |3 # 2-80-73
-<U73F9> \x8F\xF0\xEA |3 # 2-80-74
-<U7413> \x8F\xF0\xEB |3 # 2-80-75
-<U73FA> \x8F\xF0\xEC |3 # 2-80-76
-<U7401> \x8F\xF0\xED |3 # 2-80-77
-<U7424> \x8F\xF0\xEE |3 # 2-80-78
-<U7431> \x8F\xF0\xEF |3 # 2-80-79
-<U7439> \x8F\xF0\xF0 |3 # 2-80-80
-<U7453> \x8F\xF0\xF1 |3 # 2-80-81
-<U7440> \x8F\xF0\xF2 |3 # 2-80-82
-<U7443> \x8F\xF0\xF3 |3 # 2-80-83
-<U744D> \x8F\xF0\xF4 |3 # 2-80-84
-<U7452> \x8F\xF0\xF5 |3 # 2-80-85
-<U745D> \x8F\xF0\xF6 |3 # 2-80-86
-<U7471> \x8F\xF0\xF7 |3 # 2-80-87
-<U7481> \x8F\xF0\xF8 |3 # 2-80-88
-<U7485> \x8F\xF0\xF9 |3 # 2-80-89
-<U7488> \x8F\xF0\xFA |3 # 2-80-90
-<U24A4D> \x8F\xF0\xFB |3 # 2-80-91
-<U7492> \x8F\xF0\xFC |3 # 2-80-92
-<U7497> \x8F\xF0\xFD |3 # 2-80-93
-<U7499> \x8F\xF0\xFE |3 # 2-80-94
-<U74A0> \x8F\xF1\xA1 |3 # 2-81-1
-<U74A1> \x8F\xF1\xA2 |3 # 2-81-2
-<U74A5> \x8F\xF1\xA3 |3 # 2-81-3
-<U74AA> \x8F\xF1\xA4 |3 # 2-81-4
-<U74AB> \x8F\xF1\xA5 |3 # 2-81-5
-<U74B9> \x8F\xF1\xA6 |3 # 2-81-6
-<U74BB> \x8F\xF1\xA7 |3 # 2-81-7
-<U74BA> \x8F\xF1\xA8 |3 # 2-81-8
-<U74D6> \x8F\xF1\xA9 |3 # 2-81-9
-<U74D8> \x8F\xF1\xAA |3 # 2-81-10
-<U74DE> \x8F\xF1\xAB |3 # 2-81-11
-<U74EF> \x8F\xF1\xAC |3 # 2-81-12
-<U74EB> \x8F\xF1\xAD |3 # 2-81-13
-<U24B56> \x8F\xF1\xAE |3 # 2-81-14
-<U74FA> \x8F\xF1\xAF |3 # 2-81-15
-<U24B6F> \x8F\xF1\xB0 |3 # 2-81-16
-<U7520> \x8F\xF1\xB1 |3 # 2-81-17
-<U7524> \x8F\xF1\xB2 |3 # 2-81-18
-<U752A> \x8F\xF1\xB3 |3 # 2-81-19
-<U3F57> \x8F\xF1\xB4 |3 # 2-81-20
-<U24C16> \x8F\xF1\xB5 |3 # 2-81-21
-<U753D> \x8F\xF1\xB6 |3 # 2-81-22
-<U753E> \x8F\xF1\xB7 |3 # 2-81-23
-<U7540> \x8F\xF1\xB8 |3 # 2-81-24
-<U7548> \x8F\xF1\xB9 |3 # 2-81-25
-<U754E> \x8F\xF1\xBA |3 # 2-81-26
-<U7550> \x8F\xF1\xBB |3 # 2-81-27
-<U7552> \x8F\xF1\xBC |3 # 2-81-28
-<U756C> \x8F\xF1\xBD |3 # 2-81-29
-<U7572> \x8F\xF1\xBE |3 # 2-81-30
-<U7571> \x8F\xF1\xBF |3 # 2-81-31
-<U757A> \x8F\xF1\xC0 |3 # 2-81-32
-<U757D> \x8F\xF1\xC1 |3 # 2-81-33
-<U757E> \x8F\xF1\xC2 |3 # 2-81-34
-<U7581> \x8F\xF1\xC3 |3 # 2-81-35
-<U24D14> \x8F\xF1\xC4 |3 # 2-81-36
-<U758C> \x8F\xF1\xC5 |3 # 2-81-37
-<U3F75> \x8F\xF1\xC6 |3 # 2-81-38
-<U75A2> \x8F\xF1\xC7 |3 # 2-81-39
-<U3F77> \x8F\xF1\xC8 |3 # 2-81-40
-<U75B0> \x8F\xF1\xC9 |3 # 2-81-41
-<U75B7> \x8F\xF1\xCA |3 # 2-81-42
-<U75BF> \x8F\xF1\xCB |3 # 2-81-43
-<U75C0> \x8F\xF1\xCC |3 # 2-81-44
-<U75C6> \x8F\xF1\xCD |3 # 2-81-45
-<U75CF> \x8F\xF1\xCE |3 # 2-81-46
-<U75D3> \x8F\xF1\xCF |3 # 2-81-47
-<U75DD> \x8F\xF1\xD0 |3 # 2-81-48
-<U75DF> \x8F\xF1\xD1 |3 # 2-81-49
-<U75E0> \x8F\xF1\xD2 |3 # 2-81-50
-<U75E7> \x8F\xF1\xD3 |3 # 2-81-51
-<U75EC> \x8F\xF1\xD4 |3 # 2-81-52
-<U75EE> \x8F\xF1\xD5 |3 # 2-81-53
-<U75F1> \x8F\xF1\xD6 |3 # 2-81-54
-<U75F9> \x8F\xF1\xD7 |3 # 2-81-55
-<U7603> \x8F\xF1\xD8 |3 # 2-81-56
-<U7618> \x8F\xF1\xD9 |3 # 2-81-57
-<U7607> \x8F\xF1\xDA |3 # 2-81-58
-<U760F> \x8F\xF1\xDB |3 # 2-81-59
-<U3FAE> \x8F\xF1\xDC |3 # 2-81-60
-<U24E0E> \x8F\xF1\xDD |3 # 2-81-61
-<U7613> \x8F\xF1\xDE |3 # 2-81-62
-<U761B> \x8F\xF1\xDF |3 # 2-81-63
-<U761C> \x8F\xF1\xE0 |3 # 2-81-64
-<U24E37> \x8F\xF1\xE1 |3 # 2-81-65
-<U7625> \x8F\xF1\xE2 |3 # 2-81-66
-<U7628> \x8F\xF1\xE3 |3 # 2-81-67
-<U763C> \x8F\xF1\xE4 |3 # 2-81-68
-<U7633> \x8F\xF1\xE5 |3 # 2-81-69
-<U24E6A> \x8F\xF1\xE6 |3 # 2-81-70
-<U3FC9> \x8F\xF1\xE7 |3 # 2-81-71
-<U7641> \x8F\xF1\xE8 |3 # 2-81-72
-<U24E8B> \x8F\xF1\xE9 |3 # 2-81-73
-<U7649> \x8F\xF1\xEA |3 # 2-81-74
-<U7655> \x8F\xF1\xEB |3 # 2-81-75
-<U3FD7> \x8F\xF1\xEC |3 # 2-81-76
-<U766E> \x8F\xF1\xED |3 # 2-81-77
-<U7695> \x8F\xF1\xEE |3 # 2-81-78
-<U769C> \x8F\xF1\xEF |3 # 2-81-79
-<U76A1> \x8F\xF1\xF0 |3 # 2-81-80
-<U76A0> \x8F\xF1\xF1 |3 # 2-81-81
-<U76A7> \x8F\xF1\xF2 |3 # 2-81-82
-<U76A8> \x8F\xF1\xF3 |3 # 2-81-83
-<U76AF> \x8F\xF1\xF4 |3 # 2-81-84
-<U2504A> \x8F\xF1\xF5 |3 # 2-81-85
-<U76C9> \x8F\xF1\xF6 |3 # 2-81-86
-<U25055> \x8F\xF1\xF7 |3 # 2-81-87
-<U76E8> \x8F\xF1\xF8 |3 # 2-81-88
-<U76EC> \x8F\xF1\xF9 |3 # 2-81-89
-<U25122> \x8F\xF1\xFA |3 # 2-81-90
-<U7717> \x8F\xF1\xFB |3 # 2-81-91
-<U771A> \x8F\xF1\xFC |3 # 2-81-92
-<U772D> \x8F\xF1\xFD |3 # 2-81-93
-<U7735> \x8F\xF1\xFE |3 # 2-81-94
-<U251A9> \x8F\xF2\xA1 |3 # 2-82-1
-<U4039> \x8F\xF2\xA2 |3 # 2-82-2
-<U251E5> \x8F\xF2\xA3 |3 # 2-82-3
-<U251CD> \x8F\xF2\xA4 |3 # 2-82-4
-<U7758> \x8F\xF2\xA5 |3 # 2-82-5
-<U7760> \x8F\xF2\xA6 |3 # 2-82-6
-<U776A> \x8F\xF2\xA7 |3 # 2-82-7
-<U2521E> \x8F\xF2\xA8 |3 # 2-82-8
-<U7772> \x8F\xF2\xA9 |3 # 2-82-9
-<U777C> \x8F\xF2\xAA |3 # 2-82-10
-<U777D> \x8F\xF2\xAB |3 # 2-82-11
-<U2524C> \x8F\xF2\xAC |3 # 2-82-12
-<U4058> \x8F\xF2\xAD |3 # 2-82-13
-<U779A> \x8F\xF2\xAE |3 # 2-82-14
-<U779F> \x8F\xF2\xAF |3 # 2-82-15
-<U77A2> \x8F\xF2\xB0 |3 # 2-82-16
-<U77A4> \x8F\xF2\xB1 |3 # 2-82-17
-<U77A9> \x8F\xF2\xB2 |3 # 2-82-18
-<U77DE> \x8F\xF2\xB3 |3 # 2-82-19
-<U77DF> \x8F\xF2\xB4 |3 # 2-82-20
-<U77E4> \x8F\xF2\xB5 |3 # 2-82-21
-<U77E6> \x8F\xF2\xB6 |3 # 2-82-22
-<U77EA> \x8F\xF2\xB7 |3 # 2-82-23
-<U77EC> \x8F\xF2\xB8 |3 # 2-82-24
-<U4093> \x8F\xF2\xB9 |3 # 2-82-25
-<U77F0> \x8F\xF2\xBA |3 # 2-82-26
-<U77F4> \x8F\xF2\xBB |3 # 2-82-27
-<U77FB> \x8F\xF2\xBC |3 # 2-82-28
-<U2542E> \x8F\xF2\xBD |3 # 2-82-29
-<U7805> \x8F\xF2\xBE |3 # 2-82-30
-<U7806> \x8F\xF2\xBF |3 # 2-82-31
-<U7809> \x8F\xF2\xC0 |3 # 2-82-32
-<U780D> \x8F\xF2\xC1 |3 # 2-82-33
-<U7819> \x8F\xF2\xC2 |3 # 2-82-34
-<U7821> \x8F\xF2\xC3 |3 # 2-82-35
-<U782C> \x8F\xF2\xC4 |3 # 2-82-36
-<U7847> \x8F\xF2\xC5 |3 # 2-82-37
-<U7864> \x8F\xF2\xC6 |3 # 2-82-38
-<U786A> \x8F\xF2\xC7 |3 # 2-82-39
-<U254D9> \x8F\xF2\xC8 |3 # 2-82-40
-<U788A> \x8F\xF2\xC9 |3 # 2-82-41
-<U7894> \x8F\xF2\xCA |3 # 2-82-42
-<U78A4> \x8F\xF2\xCB |3 # 2-82-43
-<U789D> \x8F\xF2\xCC |3 # 2-82-44
-<U789E> \x8F\xF2\xCD |3 # 2-82-45
-<U789F> \x8F\xF2\xCE |3 # 2-82-46
-<U78BB> \x8F\xF2\xCF |3 # 2-82-47
-<U78C8> \x8F\xF2\xD0 |3 # 2-82-48
-<U78CC> \x8F\xF2\xD1 |3 # 2-82-49
-<U78CE> \x8F\xF2\xD2 |3 # 2-82-50
-<U78D5> \x8F\xF2\xD3 |3 # 2-82-51
-<U78E0> \x8F\xF2\xD4 |3 # 2-82-52
-<U78E1> \x8F\xF2\xD5 |3 # 2-82-53
-<U78E6> \x8F\xF2\xD6 |3 # 2-82-54
-<U78F9> \x8F\xF2\xD7 |3 # 2-82-55
-<U78FA> \x8F\xF2\xD8 |3 # 2-82-56
-<U78FB> \x8F\xF2\xD9 |3 # 2-82-57
-<U78FE> \x8F\xF2\xDA |3 # 2-82-58
-<U255A7> \x8F\xF2\xDB |3 # 2-82-59
-<U7910> \x8F\xF2\xDC |3 # 2-82-60
-<U791B> \x8F\xF2\xDD |3 # 2-82-61
-<U7930> \x8F\xF2\xDE |3 # 2-82-62
-<U7925> \x8F\xF2\xDF |3 # 2-82-63
-<U793B> \x8F\xF2\xE0 |3 # 2-82-64
-<U794A> \x8F\xF2\xE1 |3 # 2-82-65
-<U7958> \x8F\xF2\xE2 |3 # 2-82-66
-<U795B> \x8F\xF2\xE3 |3 # 2-82-67
-<U4105> \x8F\xF2\xE4 |3 # 2-82-68
-<U7967> \x8F\xF2\xE5 |3 # 2-82-69
-<U7972> \x8F\xF2\xE6 |3 # 2-82-70
-<U7994> \x8F\xF2\xE7 |3 # 2-82-71
-<U7995> \x8F\xF2\xE8 |3 # 2-82-72
-<U7996> \x8F\xF2\xE9 |3 # 2-82-73
-<U799B> \x8F\xF2\xEA |3 # 2-82-74
-<U79A1> \x8F\xF2\xEB |3 # 2-82-75
-<U79A9> \x8F\xF2\xEC |3 # 2-82-76
-<U79B4> \x8F\xF2\xED |3 # 2-82-77
-<U79BB> \x8F\xF2\xEE |3 # 2-82-78
-<U79C2> \x8F\xF2\xEF |3 # 2-82-79
-<U79C7> \x8F\xF2\xF0 |3 # 2-82-80
-<U79CC> \x8F\xF2\xF1 |3 # 2-82-81
-<U79CD> \x8F\xF2\xF2 |3 # 2-82-82
-<U79D6> \x8F\xF2\xF3 |3 # 2-82-83
-<U4148> \x8F\xF2\xF4 |3 # 2-82-84
-<U257A9> \x8F\xF2\xF5 |3 # 2-82-85
-<U257B4> \x8F\xF2\xF6 |3 # 2-82-86
-<U414F> \x8F\xF2\xF7 |3 # 2-82-87
-<U7A0A> \x8F\xF2\xF8 |3 # 2-82-88
-<U7A11> \x8F\xF2\xF9 |3 # 2-82-89
-<U7A15> \x8F\xF2\xFA |3 # 2-82-90
-<U7A1B> \x8F\xF2\xFB |3 # 2-82-91
-<U7A1E> \x8F\xF2\xFC |3 # 2-82-92
-<U4163> \x8F\xF2\xFD |3 # 2-82-93
-<U7A2D> \x8F\xF2\xFE |3 # 2-82-94
-<U7A38> \x8F\xF3\xA1 |3 # 2-83-1
-<U7A47> \x8F\xF3\xA2 |3 # 2-83-2
-<U7A4C> \x8F\xF3\xA3 |3 # 2-83-3
-<U7A56> \x8F\xF3\xA4 |3 # 2-83-4
-<U7A59> \x8F\xF3\xA5 |3 # 2-83-5
-<U7A5C> \x8F\xF3\xA6 |3 # 2-83-6
-<U7A5F> \x8F\xF3\xA7 |3 # 2-83-7
-<U7A60> \x8F\xF3\xA8 |3 # 2-83-8
-<U7A67> \x8F\xF3\xA9 |3 # 2-83-9
-<U7A6A> \x8F\xF3\xAA |3 # 2-83-10
-<U7A75> \x8F\xF3\xAB |3 # 2-83-11
-<U7A78> \x8F\xF3\xAC |3 # 2-83-12
-<U7A82> \x8F\xF3\xAD |3 # 2-83-13
-<U7A8A> \x8F\xF3\xAE |3 # 2-83-14
-<U7A90> \x8F\xF3\xAF |3 # 2-83-15
-<U7AA3> \x8F\xF3\xB0 |3 # 2-83-16
-<U7AAC> \x8F\xF3\xB1 |3 # 2-83-17
-<U259D4> \x8F\xF3\xB2 |3 # 2-83-18
-<U41B4> \x8F\xF3\xB3 |3 # 2-83-19
-<U7AB9> \x8F\xF3\xB4 |3 # 2-83-20
-<U7ABC> \x8F\xF3\xB5 |3 # 2-83-21
-<U7ABE> \x8F\xF3\xB6 |3 # 2-83-22
-<U41BF> \x8F\xF3\xB7 |3 # 2-83-23
-<U7ACC> \x8F\xF3\xB8 |3 # 2-83-24
-<U7AD1> \x8F\xF3\xB9 |3 # 2-83-25
-<U7AE7> \x8F\xF3\xBA |3 # 2-83-26
-<U7AE8> \x8F\xF3\xBB |3 # 2-83-27
-<U7AF4> \x8F\xF3\xBC |3 # 2-83-28
-<U25AE4> \x8F\xF3\xBD |3 # 2-83-29
-<U25AE3> \x8F\xF3\xBE |3 # 2-83-30
-<U7B07> \x8F\xF3\xBF |3 # 2-83-31
-<U25AF1> \x8F\xF3\xC0 |3 # 2-83-32
-<U7B3D> \x8F\xF3\xC1 |3 # 2-83-33
-<U7B27> \x8F\xF3\xC2 |3 # 2-83-34
-<U7B2A> \x8F\xF3\xC3 |3 # 2-83-35
-<U7B2E> \x8F\xF3\xC4 |3 # 2-83-36
-<U7B2F> \x8F\xF3\xC5 |3 # 2-83-37
-<U7B31> \x8F\xF3\xC6 |3 # 2-83-38
-<U41E6> \x8F\xF3\xC7 |3 # 2-83-39
-<U41F3> \x8F\xF3\xC8 |3 # 2-83-40
-<U7B7F> \x8F\xF3\xC9 |3 # 2-83-41
-<U7B41> \x8F\xF3\xCA |3 # 2-83-42
-<U41EE> \x8F\xF3\xCB |3 # 2-83-43
-<U7B55> \x8F\xF3\xCC |3 # 2-83-44
-<U7B79> \x8F\xF3\xCD |3 # 2-83-45
-<U7B64> \x8F\xF3\xCE |3 # 2-83-46
-<U7B66> \x8F\xF3\xCF |3 # 2-83-47
-<U7B69> \x8F\xF3\xD0 |3 # 2-83-48
-<U7B73> \x8F\xF3\xD1 |3 # 2-83-49
-<U25BB2> \x8F\xF3\xD2 |3 # 2-83-50
-<U4207> \x8F\xF3\xD3 |3 # 2-83-51
-<U7B90> \x8F\xF3\xD4 |3 # 2-83-52
-<U7B91> \x8F\xF3\xD5 |3 # 2-83-53
-<U7B9B> \x8F\xF3\xD6 |3 # 2-83-54
-<U420E> \x8F\xF3\xD7 |3 # 2-83-55
-<U7BAF> \x8F\xF3\xD8 |3 # 2-83-56
-<U7BB5> \x8F\xF3\xD9 |3 # 2-83-57
-<U7BBC> \x8F\xF3\xDA |3 # 2-83-58
-<U7BC5> \x8F\xF3\xDB |3 # 2-83-59
-<U7BCA> \x8F\xF3\xDC |3 # 2-83-60
-<U25C4B> \x8F\xF3\xDD |3 # 2-83-61
-<U25C64> \x8F\xF3\xDE |3 # 2-83-62
-<U7BD4> \x8F\xF3\xDF |3 # 2-83-63
-<U7BD6> \x8F\xF3\xE0 |3 # 2-83-64
-<U7BDA> \x8F\xF3\xE1 |3 # 2-83-65
-<U7BEA> \x8F\xF3\xE2 |3 # 2-83-66
-<U7BF0> \x8F\xF3\xE3 |3 # 2-83-67
-<U7C03> \x8F\xF3\xE4 |3 # 2-83-68
-<U7C0B> \x8F\xF3\xE5 |3 # 2-83-69
-<U7C0E> \x8F\xF3\xE6 |3 # 2-83-70
-<U7C0F> \x8F\xF3\xE7 |3 # 2-83-71
-<U7C26> \x8F\xF3\xE8 |3 # 2-83-72
-<U7C45> \x8F\xF3\xE9 |3 # 2-83-73
-<U7C4A> \x8F\xF3\xEA |3 # 2-83-74
-<U7C51> \x8F\xF3\xEB |3 # 2-83-75
-<U7C57> \x8F\xF3\xEC |3 # 2-83-76
-<U7C5E> \x8F\xF3\xED |3 # 2-83-77
-<U7C61> \x8F\xF3\xEE |3 # 2-83-78
-<U7C69> \x8F\xF3\xEF |3 # 2-83-79
-<U7C6E> \x8F\xF3\xF0 |3 # 2-83-80
-<U7C6F> \x8F\xF3\xF1 |3 # 2-83-81
-<U7C70> \x8F\xF3\xF2 |3 # 2-83-82
-<U25E2E> \x8F\xF3\xF3 |3 # 2-83-83
-<U25E56> \x8F\xF3\xF4 |3 # 2-83-84
-<U25E65> \x8F\xF3\xF5 |3 # 2-83-85
-<U7CA6> \x8F\xF3\xF6 |3 # 2-83-86
-<U25E62> \x8F\xF3\xF7 |3 # 2-83-87
-<U7CB6> \x8F\xF3\xF8 |3 # 2-83-88
-<U7CB7> \x8F\xF3\xF9 |3 # 2-83-89
-<U7CBF> \x8F\xF3\xFA |3 # 2-83-90
-<U25ED8> \x8F\xF3\xFB |3 # 2-83-91
-<U7CC4> \x8F\xF3\xFC |3 # 2-83-92
-<U25EC2> \x8F\xF3\xFD |3 # 2-83-93
-<U7CC8> \x8F\xF3\xFE |3 # 2-83-94
-<U7CCD> \x8F\xF4\xA1 |3 # 2-84-1
-<U25EE8> \x8F\xF4\xA2 |3 # 2-84-2
-<U7CD7> \x8F\xF4\xA3 |3 # 2-84-3
-<U25F23> \x8F\xF4\xA4 |3 # 2-84-4
-<U7CE6> \x8F\xF4\xA5 |3 # 2-84-5
-<U7CEB> \x8F\xF4\xA6 |3 # 2-84-6
-<U25F5C> \x8F\xF4\xA7 |3 # 2-84-7
-<U7CF5> \x8F\xF4\xA8 |3 # 2-84-8
-<U7D03> \x8F\xF4\xA9 |3 # 2-84-9
-<U7D09> \x8F\xF4\xAA |3 # 2-84-10
-<U42C6> \x8F\xF4\xAB |3 # 2-84-11
-<U7D12> \x8F\xF4\xAC |3 # 2-84-12
-<U7D1E> \x8F\xF4\xAD |3 # 2-84-13
-<U25FE0> \x8F\xF4\xAE |3 # 2-84-14
-<U25FD4> \x8F\xF4\xAF |3 # 2-84-15
-<U7D3D> \x8F\xF4\xB0 |3 # 2-84-16
-<U7D3E> \x8F\xF4\xB1 |3 # 2-84-17
-<U7D40> \x8F\xF4\xB2 |3 # 2-84-18
-<U7D47> \x8F\xF4\xB3 |3 # 2-84-19
-<U2600C> \x8F\xF4\xB4 |3 # 2-84-20
-<U25FFB> \x8F\xF4\xB5 |3 # 2-84-21
-<U42D6> \x8F\xF4\xB6 |3 # 2-84-22
-<U7D59> \x8F\xF4\xB7 |3 # 2-84-23
-<U7D5A> \x8F\xF4\xB8 |3 # 2-84-24
-<U7D6A> \x8F\xF4\xB9 |3 # 2-84-25
-<U7D70> \x8F\xF4\xBA |3 # 2-84-26
-<U42DD> \x8F\xF4\xBB |3 # 2-84-27
-<U7D7F> \x8F\xF4\xBC |3 # 2-84-28
-<U26017> \x8F\xF4\xBD |3 # 2-84-29
-<U7D86> \x8F\xF4\xBE |3 # 2-84-30
-<U7D88> \x8F\xF4\xBF |3 # 2-84-31
-<U7D8C> \x8F\xF4\xC0 |3 # 2-84-32
-<U7D97> \x8F\xF4\xC1 |3 # 2-84-33
-<U26060> \x8F\xF4\xC2 |3 # 2-84-34
-<U7D9D> \x8F\xF4\xC3 |3 # 2-84-35
-<U7DA7> \x8F\xF4\xC4 |3 # 2-84-36
-<U7DAA> \x8F\xF4\xC5 |3 # 2-84-37
-<U7DB6> \x8F\xF4\xC6 |3 # 2-84-38
-<U7DB7> \x8F\xF4\xC7 |3 # 2-84-39
-<U7DC0> \x8F\xF4\xC8 |3 # 2-84-40
-<U7DD7> \x8F\xF4\xC9 |3 # 2-84-41
-<U7DD9> \x8F\xF4\xCA |3 # 2-84-42
-<U7DE6> \x8F\xF4\xCB |3 # 2-84-43
-<U7DF1> \x8F\xF4\xCC |3 # 2-84-44
-<U7DF9> \x8F\xF4\xCD |3 # 2-84-45
-<U4302> \x8F\xF4\xCE |3 # 2-84-46
-<U260ED> \x8F\xF4\xCF |3 # 2-84-47
-<UFA58> \x8F\xF4\xD0 |3 # 2-84-48
-<U7E10> \x8F\xF4\xD1 |3 # 2-84-49
-<U7E17> \x8F\xF4\xD2 |3 # 2-84-50
-<U7E1D> \x8F\xF4\xD3 |3 # 2-84-51
-<U7E20> \x8F\xF4\xD4 |3 # 2-84-52
-<U7E27> \x8F\xF4\xD5 |3 # 2-84-53
-<U7E2C> \x8F\xF4\xD6 |3 # 2-84-54
-<U7E45> \x8F\xF4\xD7 |3 # 2-84-55
-<U7E73> \x8F\xF4\xD8 |3 # 2-84-56
-<U7E75> \x8F\xF4\xD9 |3 # 2-84-57
-<U7E7E> \x8F\xF4\xDA |3 # 2-84-58
-<U7E86> \x8F\xF4\xDB |3 # 2-84-59
-<U7E87> \x8F\xF4\xDC |3 # 2-84-60
-<U432B> \x8F\xF4\xDD |3 # 2-84-61
-<U7E91> \x8F\xF4\xDE |3 # 2-84-62
-<U7E98> \x8F\xF4\xDF |3 # 2-84-63
-<U7E9A> \x8F\xF4\xE0 |3 # 2-84-64
-<U4343> \x8F\xF4\xE1 |3 # 2-84-65
-<U7F3C> \x8F\xF4\xE2 |3 # 2-84-66
-<U7F3B> \x8F\xF4\xE3 |3 # 2-84-67
-<U7F3E> \x8F\xF4\xE4 |3 # 2-84-68
-<U7F43> \x8F\xF4\xE5 |3 # 2-84-69
-<U7F44> \x8F\xF4\xE6 |3 # 2-84-70
-<U7F4F> \x8F\xF4\xE7 |3 # 2-84-71
-<U34C1> \x8F\xF4\xE8 |3 # 2-84-72
-<U26270> \x8F\xF4\xE9 |3 # 2-84-73
-<U7F52> \x8F\xF4\xEA |3 # 2-84-74
-<U26286> \x8F\xF4\xEB |3 # 2-84-75
-<U7F61> \x8F\xF4\xEC |3 # 2-84-76
-<U7F63> \x8F\xF4\xED |3 # 2-84-77
-<U7F64> \x8F\xF4\xEE |3 # 2-84-78
-<U7F6D> \x8F\xF4\xEF |3 # 2-84-79
-<U7F7D> \x8F\xF4\xF0 |3 # 2-84-80
-<U7F7E> \x8F\xF4\xF1 |3 # 2-84-81
-<U2634C> \x8F\xF4\xF2 |3 # 2-84-82
-<U7F90> \x8F\xF4\xF3 |3 # 2-84-83
-<U517B> \x8F\xF4\xF4 |3 # 2-84-84
-<U23D0E> \x8F\xF4\xF5 |3 # 2-84-85
-<U7F96> \x8F\xF4\xF6 |3 # 2-84-86
-<U7F9C> \x8F\xF4\xF7 |3 # 2-84-87
-<U7FAD> \x8F\xF4\xF8 |3 # 2-84-88
-<U26402> \x8F\xF4\xF9 |3 # 2-84-89
-<U7FC3> \x8F\xF4\xFA |3 # 2-84-90
-<U7FCF> \x8F\xF4\xFB |3 # 2-84-91
-<U7FE3> \x8F\xF4\xFC |3 # 2-84-92
-<U7FE5> \x8F\xF4\xFD |3 # 2-84-93
-<U7FEF> \x8F\xF4\xFE |3 # 2-84-94
-<U7FF2> \x8F\xF5\xA1 |3 # 2-85-1
-<U8002> \x8F\xF5\xA2 |3 # 2-85-2
-<U800A> \x8F\xF5\xA3 |3 # 2-85-3
-<U8008> \x8F\xF5\xA4 |3 # 2-85-4
-<U800E> \x8F\xF5\xA5 |3 # 2-85-5
-<U8011> \x8F\xF5\xA6 |3 # 2-85-6
-<U8016> \x8F\xF5\xA7 |3 # 2-85-7
-<U8024> \x8F\xF5\xA8 |3 # 2-85-8
-<U802C> \x8F\xF5\xA9 |3 # 2-85-9
-<U8030> \x8F\xF5\xAA |3 # 2-85-10
-<U8043> \x8F\xF5\xAB |3 # 2-85-11
-<U8066> \x8F\xF5\xAC |3 # 2-85-12
-<U8071> \x8F\xF5\xAD |3 # 2-85-13
-<U8075> \x8F\xF5\xAE |3 # 2-85-14
-<U807B> \x8F\xF5\xAF |3 # 2-85-15
-<U8099> \x8F\xF5\xB0 |3 # 2-85-16
-<U809C> \x8F\xF5\xB1 |3 # 2-85-17
-<U80A4> \x8F\xF5\xB2 |3 # 2-85-18
-<U80A7> \x8F\xF5\xB3 |3 # 2-85-19
-<U80B8> \x8F\xF5\xB4 |3 # 2-85-20
-<U2667E> \x8F\xF5\xB5 |3 # 2-85-21
-<U80C5> \x8F\xF5\xB6 |3 # 2-85-22
-<U80D5> \x8F\xF5\xB7 |3 # 2-85-23
-<U80D8> \x8F\xF5\xB8 |3 # 2-85-24
-<U80E6> \x8F\xF5\xB9 |3 # 2-85-25
-<U266B0> \x8F\xF5\xBA |3 # 2-85-26
-<U810D> \x8F\xF5\xBB |3 # 2-85-27
-<U80F5> \x8F\xF5\xBC |3 # 2-85-28
-<U80FB> \x8F\xF5\xBD |3 # 2-85-29
-<U43EE> \x8F\xF5\xBE |3 # 2-85-30
-<U8135> \x8F\xF5\xBF |3 # 2-85-31
-<U8116> \x8F\xF5\xC0 |3 # 2-85-32
-<U811E> \x8F\xF5\xC1 |3 # 2-85-33
-<U43F0> \x8F\xF5\xC2 |3 # 2-85-34
-<U8124> \x8F\xF5\xC3 |3 # 2-85-35
-<U8127> \x8F\xF5\xC4 |3 # 2-85-36
-<U812C> \x8F\xF5\xC5 |3 # 2-85-37
-<U2671D> \x8F\xF5\xC6 |3 # 2-85-38
-<U813D> \x8F\xF5\xC7 |3 # 2-85-39
-<U4408> \x8F\xF5\xC8 |3 # 2-85-40
-<U8169> \x8F\xF5\xC9 |3 # 2-85-41
-<U4417> \x8F\xF5\xCA |3 # 2-85-42
-<U8181> \x8F\xF5\xCB |3 # 2-85-43
-<U441C> \x8F\xF5\xCC |3 # 2-85-44
-<U8184> \x8F\xF5\xCD |3 # 2-85-45
-<U8185> \x8F\xF5\xCE |3 # 2-85-46
-<U4422> \x8F\xF5\xCF |3 # 2-85-47
-<U8198> \x8F\xF5\xD0 |3 # 2-85-48
-<U81B2> \x8F\xF5\xD1 |3 # 2-85-49
-<U81C1> \x8F\xF5\xD2 |3 # 2-85-50
-<U81C3> \x8F\xF5\xD3 |3 # 2-85-51
-<U81D6> \x8F\xF5\xD4 |3 # 2-85-52
-<U81DB> \x8F\xF5\xD5 |3 # 2-85-53
-<U268DD> \x8F\xF5\xD6 |3 # 2-85-54
-<U81E4> \x8F\xF5\xD7 |3 # 2-85-55
-<U268EA> \x8F\xF5\xD8 |3 # 2-85-56
-<U81EC> \x8F\xF5\xD9 |3 # 2-85-57
-<U26951> \x8F\xF5\xDA |3 # 2-85-58
-<U81FD> \x8F\xF5\xDB |3 # 2-85-59
-<U81FF> \x8F\xF5\xDC |3 # 2-85-60
-<U2696F> \x8F\xF5\xDD |3 # 2-85-61
-<U8204> \x8F\xF5\xDE |3 # 2-85-62
-<U269DD> \x8F\xF5\xDF |3 # 2-85-63
-<U8219> \x8F\xF5\xE0 |3 # 2-85-64
-<U8221> \x8F\xF5\xE1 |3 # 2-85-65
-<U8222> \x8F\xF5\xE2 |3 # 2-85-66
-<U26A1E> \x8F\xF5\xE3 |3 # 2-85-67
-<U8232> \x8F\xF5\xE4 |3 # 2-85-68
-<U8234> \x8F\xF5\xE5 |3 # 2-85-69
-<U823C> \x8F\xF5\xE6 |3 # 2-85-70
-<U8246> \x8F\xF5\xE7 |3 # 2-85-71
-<U8249> \x8F\xF5\xE8 |3 # 2-85-72
-<U8245> \x8F\xF5\xE9 |3 # 2-85-73
-<U26A58> \x8F\xF5\xEA |3 # 2-85-74
-<U824B> \x8F\xF5\xEB |3 # 2-85-75
-<U4476> \x8F\xF5\xEC |3 # 2-85-76
-<U824F> \x8F\xF5\xED |3 # 2-85-77
-<U447A> \x8F\xF5\xEE |3 # 2-85-78
-<U8257> \x8F\xF5\xEF |3 # 2-85-79
-<U26A8C> \x8F\xF5\xF0 |3 # 2-85-80
-<U825C> \x8F\xF5\xF1 |3 # 2-85-81
-<U8263> \x8F\xF5\xF2 |3 # 2-85-82
-<U26AB7> \x8F\xF5\xF3 |3 # 2-85-83
-<UFA5D> \x8F\xF5\xF4 |3 # 2-85-84
-<UFA5E> \x8F\xF5\xF5 |3 # 2-85-85
-<U8279> \x8F\xF5\xF6 |3 # 2-85-86
-<U4491> \x8F\xF5\xF7 |3 # 2-85-87
-<U827D> \x8F\xF5\xF8 |3 # 2-85-88
-<U827F> \x8F\xF5\xF9 |3 # 2-85-89
-<U8283> \x8F\xF5\xFA |3 # 2-85-90
-<U828A> \x8F\xF5\xFB |3 # 2-85-91
-<U8293> \x8F\xF5\xFC |3 # 2-85-92
-<U82A7> \x8F\xF5\xFD |3 # 2-85-93
-<U82A8> \x8F\xF5\xFE |3 # 2-85-94
-<U82B2> \x8F\xF6\xA1 |3 # 2-86-1
-<U82B4> \x8F\xF6\xA2 |3 # 2-86-2
-<U82BA> \x8F\xF6\xA3 |3 # 2-86-3
-<U82BC> \x8F\xF6\xA4 |3 # 2-86-4
-<U82E2> \x8F\xF6\xA5 |3 # 2-86-5
-<U82E8> \x8F\xF6\xA6 |3 # 2-86-6
-<U82F7> \x8F\xF6\xA7 |3 # 2-86-7
-<U8307> \x8F\xF6\xA8 |3 # 2-86-8
-<U8308> \x8F\xF6\xA9 |3 # 2-86-9
-<U830C> \x8F\xF6\xAA |3 # 2-86-10
-<U8354> \x8F\xF6\xAB |3 # 2-86-11
-<U831B> \x8F\xF6\xAC |3 # 2-86-12
-<U831D> \x8F\xF6\xAD |3 # 2-86-13
-<U8330> \x8F\xF6\xAE |3 # 2-86-14
-<U833C> \x8F\xF6\xAF |3 # 2-86-15
-<U8344> \x8F\xF6\xB0 |3 # 2-86-16
-<U8357> \x8F\xF6\xB1 |3 # 2-86-17
-<U44BE> \x8F\xF6\xB2 |3 # 2-86-18
-<U837F> \x8F\xF6\xB3 |3 # 2-86-19
-<U44D4> \x8F\xF6\xB4 |3 # 2-86-20
-<U44B3> \x8F\xF6\xB5 |3 # 2-86-21
-<U838D> \x8F\xF6\xB6 |3 # 2-86-22
-<U8394> \x8F\xF6\xB7 |3 # 2-86-23
-<U8395> \x8F\xF6\xB8 |3 # 2-86-24
-<U839B> \x8F\xF6\xB9 |3 # 2-86-25
-<U839D> \x8F\xF6\xBA |3 # 2-86-26
-<U83C9> \x8F\xF6\xBB |3 # 2-86-27
-<U83D0> \x8F\xF6\xBC |3 # 2-86-28
-<U83D4> \x8F\xF6\xBD |3 # 2-86-29
-<U83DD> \x8F\xF6\xBE |3 # 2-86-30
-<U83E5> \x8F\xF6\xBF |3 # 2-86-31
-<U83F9> \x8F\xF6\xC0 |3 # 2-86-32
-<U840F> \x8F\xF6\xC1 |3 # 2-86-33
-<U8411> \x8F\xF6\xC2 |3 # 2-86-34
-<U8415> \x8F\xF6\xC3 |3 # 2-86-35
-<U26C73> \x8F\xF6\xC4 |3 # 2-86-36
-<U8417> \x8F\xF6\xC5 |3 # 2-86-37
-<U8439> \x8F\xF6\xC6 |3 # 2-86-38
-<U844A> \x8F\xF6\xC7 |3 # 2-86-39
-<U844F> \x8F\xF6\xC8 |3 # 2-86-40
-<U8451> \x8F\xF6\xC9 |3 # 2-86-41
-<U8452> \x8F\xF6\xCA |3 # 2-86-42
-<U8459> \x8F\xF6\xCB |3 # 2-86-43
-<U845A> \x8F\xF6\xCC |3 # 2-86-44
-<U845C> \x8F\xF6\xCD |3 # 2-86-45
-<U26CDD> \x8F\xF6\xCE |3 # 2-86-46
-<U8465> \x8F\xF6\xCF |3 # 2-86-47
-<U8476> \x8F\xF6\xD0 |3 # 2-86-48
-<U8478> \x8F\xF6\xD1 |3 # 2-86-49
-<U847C> \x8F\xF6\xD2 |3 # 2-86-50
-<U8481> \x8F\xF6\xD3 |3 # 2-86-51
-<U450D> \x8F\xF6\xD4 |3 # 2-86-52
-<U84DC> \x8F\xF6\xD5 |3 # 2-86-53
-<U8497> \x8F\xF6\xD6 |3 # 2-86-54
-<U84A6> \x8F\xF6\xD7 |3 # 2-86-55
-<U84BE> \x8F\xF6\xD8 |3 # 2-86-56
-<U4508> \x8F\xF6\xD9 |3 # 2-86-57
-<U84CE> \x8F\xF6\xDA |3 # 2-86-58
-<U84CF> \x8F\xF6\xDB |3 # 2-86-59
-<U84D3> \x8F\xF6\xDC |3 # 2-86-60
-<U26E65> \x8F\xF6\xDD |3 # 2-86-61
-<U84E7> \x8F\xF6\xDE |3 # 2-86-62
-<U84EA> \x8F\xF6\xDF |3 # 2-86-63
-<U84EF> \x8F\xF6\xE0 |3 # 2-86-64
-<U84F0> \x8F\xF6\xE1 |3 # 2-86-65
-<U84F1> \x8F\xF6\xE2 |3 # 2-86-66
-<U84FA> \x8F\xF6\xE3 |3 # 2-86-67
-<U84FD> \x8F\xF6\xE4 |3 # 2-86-68
-<U850C> \x8F\xF6\xE5 |3 # 2-86-69
-<U851B> \x8F\xF6\xE6 |3 # 2-86-70
-<U8524> \x8F\xF6\xE7 |3 # 2-86-71
-<U8525> \x8F\xF6\xE8 |3 # 2-86-72
-<U852B> \x8F\xF6\xE9 |3 # 2-86-73
-<U8534> \x8F\xF6\xEA |3 # 2-86-74
-<U854F> \x8F\xF6\xEB |3 # 2-86-75
-<U856F> \x8F\xF6\xEC |3 # 2-86-76
-<U4525> \x8F\xF6\xED |3 # 2-86-77
-<U4543> \x8F\xF6\xEE |3 # 2-86-78
-<U853E> \x8F\xF6\xEF |3 # 2-86-79
-<U8551> \x8F\xF6\xF0 |3 # 2-86-80
-<U8553> \x8F\xF6\xF1 |3 # 2-86-81
-<U855E> \x8F\xF6\xF2 |3 # 2-86-82
-<U8561> \x8F\xF6\xF3 |3 # 2-86-83
-<U8562> \x8F\xF6\xF4 |3 # 2-86-84
-<U26F94> \x8F\xF6\xF5 |3 # 2-86-85
-<U857B> \x8F\xF6\xF6 |3 # 2-86-86
-<U857D> \x8F\xF6\xF7 |3 # 2-86-87
-<U857F> \x8F\xF6\xF8 |3 # 2-86-88
-<U8581> \x8F\xF6\xF9 |3 # 2-86-89
-<U8586> \x8F\xF6\xFA |3 # 2-86-90
-<U8593> \x8F\xF6\xFB |3 # 2-86-91
-<U859D> \x8F\xF6\xFC |3 # 2-86-92
-<U859F> \x8F\xF6\xFD |3 # 2-86-93
-<U26FF8> \x8F\xF6\xFE |3 # 2-86-94
-<U26FF6> \x8F\xF7\xA1 |3 # 2-87-1
-<U26FF7> \x8F\xF7\xA2 |3 # 2-87-2
-<U85B7> \x8F\xF7\xA3 |3 # 2-87-3
-<U85BC> \x8F\xF7\xA4 |3 # 2-87-4
-<U85C7> \x8F\xF7\xA5 |3 # 2-87-5
-<U85CA> \x8F\xF7\xA6 |3 # 2-87-6
-<U85D8> \x8F\xF7\xA7 |3 # 2-87-7
-<U85D9> \x8F\xF7\xA8 |3 # 2-87-8
-<U85DF> \x8F\xF7\xA9 |3 # 2-87-9
-<U85E1> \x8F\xF7\xAA |3 # 2-87-10
-<U85E6> \x8F\xF7\xAB |3 # 2-87-11
-<U85F6> \x8F\xF7\xAC |3 # 2-87-12
-<U8600> \x8F\xF7\xAD |3 # 2-87-13
-<U8611> \x8F\xF7\xAE |3 # 2-87-14
-<U861E> \x8F\xF7\xAF |3 # 2-87-15
-<U8621> \x8F\xF7\xB0 |3 # 2-87-16
-<U8624> \x8F\xF7\xB1 |3 # 2-87-17
-<U8627> \x8F\xF7\xB2 |3 # 2-87-18
-<U2710D> \x8F\xF7\xB3 |3 # 2-87-19
-<U8639> \x8F\xF7\xB4 |3 # 2-87-20
-<U863C> \x8F\xF7\xB5 |3 # 2-87-21
-<U27139> \x8F\xF7\xB6 |3 # 2-87-22
-<U8640> \x8F\xF7\xB7 |3 # 2-87-23
-<UFA20> \x8F\xF7\xB8 |3 # 2-87-24
-<U8653> \x8F\xF7\xB9 |3 # 2-87-25
-<U8656> \x8F\xF7\xBA |3 # 2-87-26
-<U866F> \x8F\xF7\xBB |3 # 2-87-27
-<U8677> \x8F\xF7\xBC |3 # 2-87-28
-<U867A> \x8F\xF7\xBD |3 # 2-87-29
-<U8687> \x8F\xF7\xBE |3 # 2-87-30
-<U8689> \x8F\xF7\xBF |3 # 2-87-31
-<U868D> \x8F\xF7\xC0 |3 # 2-87-32
-<U8691> \x8F\xF7\xC1 |3 # 2-87-33
-<U869C> \x8F\xF7\xC2 |3 # 2-87-34
-<U869D> \x8F\xF7\xC3 |3 # 2-87-35
-<U86A8> \x8F\xF7\xC4 |3 # 2-87-36
-<UFA21> \x8F\xF7\xC5 |3 # 2-87-37
-<U86B1> \x8F\xF7\xC6 |3 # 2-87-38
-<U86B3> \x8F\xF7\xC7 |3 # 2-87-39
-<U86C1> \x8F\xF7\xC8 |3 # 2-87-40
-<U86C3> \x8F\xF7\xC9 |3 # 2-87-41
-<U86D1> \x8F\xF7\xCA |3 # 2-87-42
-<U86D5> \x8F\xF7\xCB |3 # 2-87-43
-<U86D7> \x8F\xF7\xCC |3 # 2-87-44
-<U86E3> \x8F\xF7\xCD |3 # 2-87-45
-<U86E6> \x8F\xF7\xCE |3 # 2-87-46
-<U45B8> \x8F\xF7\xCF |3 # 2-87-47
-<U8705> \x8F\xF7\xD0 |3 # 2-87-48
-<U8707> \x8F\xF7\xD1 |3 # 2-87-49
-<U870E> \x8F\xF7\xD2 |3 # 2-87-50
-<U8710> \x8F\xF7\xD3 |3 # 2-87-51
-<U8713> \x8F\xF7\xD4 |3 # 2-87-52
-<U8719> \x8F\xF7\xD5 |3 # 2-87-53
-<U871F> \x8F\xF7\xD6 |3 # 2-87-54
-<U8721> \x8F\xF7\xD7 |3 # 2-87-55
-<U8723> \x8F\xF7\xD8 |3 # 2-87-56
-<U8731> \x8F\xF7\xD9 |3 # 2-87-57
-<U873A> \x8F\xF7\xDA |3 # 2-87-58
-<U873E> \x8F\xF7\xDB |3 # 2-87-59
-<U8740> \x8F\xF7\xDC |3 # 2-87-60
-<U8743> \x8F\xF7\xDD |3 # 2-87-61
-<U8751> \x8F\xF7\xDE |3 # 2-87-62
-<U8758> \x8F\xF7\xDF |3 # 2-87-63
-<U8764> \x8F\xF7\xE0 |3 # 2-87-64
-<U8765> \x8F\xF7\xE1 |3 # 2-87-65
-<U8772> \x8F\xF7\xE2 |3 # 2-87-66
-<U877C> \x8F\xF7\xE3 |3 # 2-87-67
-<U273DB> \x8F\xF7\xE4 |3 # 2-87-68
-<U273DA> \x8F\xF7\xE5 |3 # 2-87-69
-<U87A7> \x8F\xF7\xE6 |3 # 2-87-70
-<U8789> \x8F\xF7\xE7 |3 # 2-87-71
-<U878B> \x8F\xF7\xE8 |3 # 2-87-72
-<U8793> \x8F\xF7\xE9 |3 # 2-87-73
-<U87A0> \x8F\xF7\xEA |3 # 2-87-74
-<U273FE> \x8F\xF7\xEB |3 # 2-87-75
-<U45E5> \x8F\xF7\xEC |3 # 2-87-76
-<U87BE> \x8F\xF7\xED |3 # 2-87-77
-<U27410> \x8F\xF7\xEE |3 # 2-87-78
-<U87C1> \x8F\xF7\xEF |3 # 2-87-79
-<U87CE> \x8F\xF7\xF0 |3 # 2-87-80
-<U87F5> \x8F\xF7\xF1 |3 # 2-87-81
-<U87DF> \x8F\xF7\xF2 |3 # 2-87-82
-<U27449> \x8F\xF7\xF3 |3 # 2-87-83
-<U87E3> \x8F\xF7\xF4 |3 # 2-87-84
-<U87E5> \x8F\xF7\xF5 |3 # 2-87-85
-<U87E6> \x8F\xF7\xF6 |3 # 2-87-86
-<U87EA> \x8F\xF7\xF7 |3 # 2-87-87
-<U87EB> \x8F\xF7\xF8 |3 # 2-87-88
-<U87ED> \x8F\xF7\xF9 |3 # 2-87-89
-<U8801> \x8F\xF7\xFA |3 # 2-87-90
-<U8803> \x8F\xF7\xFB |3 # 2-87-91
-<U880B> \x8F\xF7\xFC |3 # 2-87-92
-<U8813> \x8F\xF7\xFD |3 # 2-87-93
-<U8828> \x8F\xF7\xFE |3 # 2-87-94
-<U882E> \x8F\xF8\xA1 |3 # 2-88-1
-<U8832> \x8F\xF8\xA2 |3 # 2-88-2
-<U883C> \x8F\xF8\xA3 |3 # 2-88-3
-<U460F> \x8F\xF8\xA4 |3 # 2-88-4
-<U884A> \x8F\xF8\xA5 |3 # 2-88-5
-<U8858> \x8F\xF8\xA6 |3 # 2-88-6
-<U885F> \x8F\xF8\xA7 |3 # 2-88-7
-<U8864> \x8F\xF8\xA8 |3 # 2-88-8
-<U27615> \x8F\xF8\xA9 |3 # 2-88-9
-<U27614> \x8F\xF8\xAA |3 # 2-88-10
-<U8869> \x8F\xF8\xAB |3 # 2-88-11
-<U27631> \x8F\xF8\xAC |3 # 2-88-12
-<U886F> \x8F\xF8\xAD |3 # 2-88-13
-<U88A0> \x8F\xF8\xAE |3 # 2-88-14
-<U88BC> \x8F\xF8\xAF |3 # 2-88-15
-<U88BD> \x8F\xF8\xB0 |3 # 2-88-16
-<U88BE> \x8F\xF8\xB1 |3 # 2-88-17
-<U88C0> \x8F\xF8\xB2 |3 # 2-88-18
-<U88D2> \x8F\xF8\xB3 |3 # 2-88-19
-<U27693> \x8F\xF8\xB4 |3 # 2-88-20
-<U88D1> \x8F\xF8\xB5 |3 # 2-88-21
-<U88D3> \x8F\xF8\xB6 |3 # 2-88-22
-<U88DB> \x8F\xF8\xB7 |3 # 2-88-23
-<U88F0> \x8F\xF8\xB8 |3 # 2-88-24
-<U88F1> \x8F\xF8\xB9 |3 # 2-88-25
-<U4641> \x8F\xF8\xBA |3 # 2-88-26
-<U8901> \x8F\xF8\xBB |3 # 2-88-27
-<U2770E> \x8F\xF8\xBC |3 # 2-88-28
-<U8937> \x8F\xF8\xBD |3 # 2-88-29
-<U27723> \x8F\xF8\xBE |3 # 2-88-30
-<U8942> \x8F\xF8\xBF |3 # 2-88-31
-<U8945> \x8F\xF8\xC0 |3 # 2-88-32
-<U8949> \x8F\xF8\xC1 |3 # 2-88-33
-<U27752> \x8F\xF8\xC2 |3 # 2-88-34
-<U4665> \x8F\xF8\xC3 |3 # 2-88-35
-<U8962> \x8F\xF8\xC4 |3 # 2-88-36
-<U8980> \x8F\xF8\xC5 |3 # 2-88-37
-<U8989> \x8F\xF8\xC6 |3 # 2-88-38
-<U8990> \x8F\xF8\xC7 |3 # 2-88-39
-<U899F> \x8F\xF8\xC8 |3 # 2-88-40
-<U89B0> \x8F\xF8\xC9 |3 # 2-88-41
-<U89B7> \x8F\xF8\xCA |3 # 2-88-42
-<U89D6> \x8F\xF8\xCB |3 # 2-88-43
-<U89D8> \x8F\xF8\xCC |3 # 2-88-44
-<U89EB> \x8F\xF8\xCD |3 # 2-88-45
-<U46A1> \x8F\xF8\xCE |3 # 2-88-46
-<U89F1> \x8F\xF8\xCF |3 # 2-88-47
-<U89F3> \x8F\xF8\xD0 |3 # 2-88-48
-<U89FD> \x8F\xF8\xD1 |3 # 2-88-49
-<U89FF> \x8F\xF8\xD2 |3 # 2-88-50
-<U46AF> \x8F\xF8\xD3 |3 # 2-88-51
-<U8A11> \x8F\xF8\xD4 |3 # 2-88-52
-<U8A14> \x8F\xF8\xD5 |3 # 2-88-53
-<U27985> \x8F\xF8\xD6 |3 # 2-88-54
-<U8A21> \x8F\xF8\xD7 |3 # 2-88-55
-<U8A35> \x8F\xF8\xD8 |3 # 2-88-56
-<U8A3E> \x8F\xF8\xD9 |3 # 2-88-57
-<U8A45> \x8F\xF8\xDA |3 # 2-88-58
-<U8A4D> \x8F\xF8\xDB |3 # 2-88-59
-<U8A58> \x8F\xF8\xDC |3 # 2-88-60
-<U8AAE> \x8F\xF8\xDD |3 # 2-88-61
-<U8A90> \x8F\xF8\xDE |3 # 2-88-62
-<U8AB7> \x8F\xF8\xDF |3 # 2-88-63
-<U8ABE> \x8F\xF8\xE0 |3 # 2-88-64
-<U8AD7> \x8F\xF8\xE1 |3 # 2-88-65
-<U8AFC> \x8F\xF8\xE2 |3 # 2-88-66
-<U27A84> \x8F\xF8\xE3 |3 # 2-88-67
-<U8B0A> \x8F\xF8\xE4 |3 # 2-88-68
-<U8B05> \x8F\xF8\xE5 |3 # 2-88-69
-<U8B0D> \x8F\xF8\xE6 |3 # 2-88-70
-<U8B1C> \x8F\xF8\xE7 |3 # 2-88-71
-<U8B1F> \x8F\xF8\xE8 |3 # 2-88-72
-<U8B2D> \x8F\xF8\xE9 |3 # 2-88-73
-<U8B43> \x8F\xF8\xEA |3 # 2-88-74
-<U470C> \x8F\xF8\xEB |3 # 2-88-75
-<U8B51> \x8F\xF8\xEC |3 # 2-88-76
-<U8B5E> \x8F\xF8\xED |3 # 2-88-77
-<U8B76> \x8F\xF8\xEE |3 # 2-88-78
-<U8B7F> \x8F\xF8\xEF |3 # 2-88-79
-<U8B81> \x8F\xF8\xF0 |3 # 2-88-80
-<U8B8B> \x8F\xF8\xF1 |3 # 2-88-81
-<U8B94> \x8F\xF8\xF2 |3 # 2-88-82
-<U8B95> \x8F\xF8\xF3 |3 # 2-88-83
-<U8B9C> \x8F\xF8\xF4 |3 # 2-88-84
-<U8B9E> \x8F\xF8\xF5 |3 # 2-88-85
-<U8C39> \x8F\xF8\xF6 |3 # 2-88-86
-<U27BB3> \x8F\xF8\xF7 |3 # 2-88-87
-<U8C3D> \x8F\xF8\xF8 |3 # 2-88-88
-<U27BBE> \x8F\xF8\xF9 |3 # 2-88-89
-<U27BC7> \x8F\xF8\xFA |3 # 2-88-90
-<U8C45> \x8F\xF8\xFB |3 # 2-88-91
-<U8C47> \x8F\xF8\xFC |3 # 2-88-92
-<U8C4F> \x8F\xF8\xFD |3 # 2-88-93
-<U8C54> \x8F\xF8\xFE |3 # 2-88-94
-<U8C57> \x8F\xF9\xA1 |3 # 2-89-1
-<U8C69> \x8F\xF9\xA2 |3 # 2-89-2
-<U8C6D> \x8F\xF9\xA3 |3 # 2-89-3
-<U8C73> \x8F\xF9\xA4 |3 # 2-89-4
-<U27CB8> \x8F\xF9\xA5 |3 # 2-89-5
-<U8C93> \x8F\xF9\xA6 |3 # 2-89-6
-<U8C92> \x8F\xF9\xA7 |3 # 2-89-7
-<U8C99> \x8F\xF9\xA8 |3 # 2-89-8
-<U4764> \x8F\xF9\xA9 |3 # 2-89-9
-<U8C9B> \x8F\xF9\xAA |3 # 2-89-10
-<U8CA4> \x8F\xF9\xAB |3 # 2-89-11
-<U8CD6> \x8F\xF9\xAC |3 # 2-89-12
-<U8CD5> \x8F\xF9\xAD |3 # 2-89-13
-<U8CD9> \x8F\xF9\xAE |3 # 2-89-14
-<U27DA0> \x8F\xF9\xAF |3 # 2-89-15
-<U8CF0> \x8F\xF9\xB0 |3 # 2-89-16
-<U8CF1> \x8F\xF9\xB1 |3 # 2-89-17
-<U27E10> \x8F\xF9\xB2 |3 # 2-89-18
-<U8D09> \x8F\xF9\xB3 |3 # 2-89-19
-<U8D0E> \x8F\xF9\xB4 |3 # 2-89-20
-<U8D6C> \x8F\xF9\xB5 |3 # 2-89-21
-<U8D84> \x8F\xF9\xB6 |3 # 2-89-22
-<U8D95> \x8F\xF9\xB7 |3 # 2-89-23
-<U8DA6> \x8F\xF9\xB8 |3 # 2-89-24
-<U27FB7> \x8F\xF9\xB9 |3 # 2-89-25
-<U8DC6> \x8F\xF9\xBA |3 # 2-89-26
-<U8DC8> \x8F\xF9\xBB |3 # 2-89-27
-<U8DD9> \x8F\xF9\xBC |3 # 2-89-28
-<U8DEC> \x8F\xF9\xBD |3 # 2-89-29
-<U8E0C> \x8F\xF9\xBE |3 # 2-89-30
-<U47FD> \x8F\xF9\xBF |3 # 2-89-31
-<U8DFD> \x8F\xF9\xC0 |3 # 2-89-32
-<U8E06> \x8F\xF9\xC1 |3 # 2-89-33
-<U2808A> \x8F\xF9\xC2 |3 # 2-89-34
-<U8E14> \x8F\xF9\xC3 |3 # 2-89-35
-<U8E16> \x8F\xF9\xC4 |3 # 2-89-36
-<U8E21> \x8F\xF9\xC5 |3 # 2-89-37
-<U8E22> \x8F\xF9\xC6 |3 # 2-89-38
-<U8E27> \x8F\xF9\xC7 |3 # 2-89-39
-<U280BB> \x8F\xF9\xC8 |3 # 2-89-40
-<U4816> \x8F\xF9\xC9 |3 # 2-89-41
-<U8E36> \x8F\xF9\xCA |3 # 2-89-42
-<U8E39> \x8F\xF9\xCB |3 # 2-89-43
-<U8E4B> \x8F\xF9\xCC |3 # 2-89-44
-<U8E54> \x8F\xF9\xCD |3 # 2-89-45
-<U8E62> \x8F\xF9\xCE |3 # 2-89-46
-<U8E6C> \x8F\xF9\xCF |3 # 2-89-47
-<U8E6D> \x8F\xF9\xD0 |3 # 2-89-48
-<U8E6F> \x8F\xF9\xD1 |3 # 2-89-49
-<U8E98> \x8F\xF9\xD2 |3 # 2-89-50
-<U8E9E> \x8F\xF9\xD3 |3 # 2-89-51
-<U8EAE> \x8F\xF9\xD4 |3 # 2-89-52
-<U8EB3> \x8F\xF9\xD5 |3 # 2-89-53
-<U8EB5> \x8F\xF9\xD6 |3 # 2-89-54
-<U8EB6> \x8F\xF9\xD7 |3 # 2-89-55
-<U8EBB> \x8F\xF9\xD8 |3 # 2-89-56
-<U28282> \x8F\xF9\xD9 |3 # 2-89-57
-<U8ED1> \x8F\xF9\xDA |3 # 2-89-58
-<U8ED4> \x8F\xF9\xDB |3 # 2-89-59
-<U484E> \x8F\xF9\xDC |3 # 2-89-60
-<U8EF9> \x8F\xF9\xDD |3 # 2-89-61
-<U282F3> \x8F\xF9\xDE |3 # 2-89-62
-<U8F00> \x8F\xF9\xDF |3 # 2-89-63
-<U8F08> \x8F\xF9\xE0 |3 # 2-89-64
-<U8F17> \x8F\xF9\xE1 |3 # 2-89-65
-<U8F2B> \x8F\xF9\xE2 |3 # 2-89-66
-<U8F40> \x8F\xF9\xE3 |3 # 2-89-67
-<U8F4A> \x8F\xF9\xE4 |3 # 2-89-68
-<U8F58> \x8F\xF9\xE5 |3 # 2-89-69
-<U2840C> \x8F\xF9\xE6 |3 # 2-89-70
-<U8FA4> \x8F\xF9\xE7 |3 # 2-89-71
-<U8FB4> \x8F\xF9\xE8 |3 # 2-89-72
-<UFA66> \x8F\xF9\xE9 |3 # 2-89-73
-<U8FB6> \x8F\xF9\xEA |3 # 2-89-74
-<U28455> \x8F\xF9\xEB |3 # 2-89-75
-<U8FC1> \x8F\xF9\xEC |3 # 2-89-76
-<U8FC6> \x8F\xF9\xED |3 # 2-89-77
-<UFA24> \x8F\xF9\xEE |3 # 2-89-78
-<U8FCA> \x8F\xF9\xEF |3 # 2-89-79
-<U8FCD> \x8F\xF9\xF0 |3 # 2-89-80
-<U8FD3> \x8F\xF9\xF1 |3 # 2-89-81
-<U8FD5> \x8F\xF9\xF2 |3 # 2-89-82
-<U8FE0> \x8F\xF9\xF3 |3 # 2-89-83
-<U8FF1> \x8F\xF9\xF4 |3 # 2-89-84
-<U8FF5> \x8F\xF9\xF5 |3 # 2-89-85
-<U8FFB> \x8F\xF9\xF6 |3 # 2-89-86
-<U9002> \x8F\xF9\xF7 |3 # 2-89-87
-<U900C> \x8F\xF9\xF8 |3 # 2-89-88
-<U9037> \x8F\xF9\xF9 |3 # 2-89-89
-<U2856B> \x8F\xF9\xFA |3 # 2-89-90
-<U9043> \x8F\xF9\xFB |3 # 2-89-91
-<U9044> \x8F\xF9\xFC |3 # 2-89-92
-<U905D> \x8F\xF9\xFD |3 # 2-89-93
-<U285C8> \x8F\xF9\xFE |3 # 2-89-94
-<U285C9> \x8F\xFA\xA1 |3 # 2-90-1
-<U9085> \x8F\xFA\xA2 |3 # 2-90-2
-<U908C> \x8F\xFA\xA3 |3 # 2-90-3
-<U9090> \x8F\xFA\xA4 |3 # 2-90-4
-<U961D> \x8F\xFA\xA5 |3 # 2-90-5
-<U90A1> \x8F\xFA\xA6 |3 # 2-90-6
-<U48B5> \x8F\xFA\xA7 |3 # 2-90-7
-<U90B0> \x8F\xFA\xA8 |3 # 2-90-8
-<U90B6> \x8F\xFA\xA9 |3 # 2-90-9
-<U90C3> \x8F\xFA\xAA |3 # 2-90-10
-<U90C8> \x8F\xFA\xAB |3 # 2-90-11
-<U286D7> \x8F\xFA\xAC |3 # 2-90-12
-<U90DC> \x8F\xFA\xAD |3 # 2-90-13
-<U90DF> \x8F\xFA\xAE |3 # 2-90-14
-<U286FA> \x8F\xFA\xAF |3 # 2-90-15
-<U90F6> \x8F\xFA\xB0 |3 # 2-90-16
-<U90F2> \x8F\xFA\xB1 |3 # 2-90-17
-<U9100> \x8F\xFA\xB2 |3 # 2-90-18
-<U90EB> \x8F\xFA\xB3 |3 # 2-90-19
-<U90FE> \x8F\xFA\xB4 |3 # 2-90-20
-<U90FF> \x8F\xFA\xB5 |3 # 2-90-21
-<U9104> \x8F\xFA\xB6 |3 # 2-90-22
-<U9106> \x8F\xFA\xB7 |3 # 2-90-23
-<U9118> \x8F\xFA\xB8 |3 # 2-90-24
-<U911C> \x8F\xFA\xB9 |3 # 2-90-25
-<U911E> \x8F\xFA\xBA |3 # 2-90-26
-<U9137> \x8F\xFA\xBB |3 # 2-90-27
-<U9139> \x8F\xFA\xBC |3 # 2-90-28
-<U913A> \x8F\xFA\xBD |3 # 2-90-29
-<U9146> \x8F\xFA\xBE |3 # 2-90-30
-<U9147> \x8F\xFA\xBF |3 # 2-90-31
-<U9157> \x8F\xFA\xC0 |3 # 2-90-32
-<U9159> \x8F\xFA\xC1 |3 # 2-90-33
-<U9161> \x8F\xFA\xC2 |3 # 2-90-34
-<U9164> \x8F\xFA\xC3 |3 # 2-90-35
-<U9174> \x8F\xFA\xC4 |3 # 2-90-36
-<U9179> \x8F\xFA\xC5 |3 # 2-90-37
-<U9185> \x8F\xFA\xC6 |3 # 2-90-38
-<U918E> \x8F\xFA\xC7 |3 # 2-90-39
-<U91A8> \x8F\xFA\xC8 |3 # 2-90-40
-<U91AE> \x8F\xFA\xC9 |3 # 2-90-41
-<U91B3> \x8F\xFA\xCA |3 # 2-90-42
-<U91B6> \x8F\xFA\xCB |3 # 2-90-43
-<U91C3> \x8F\xFA\xCC |3 # 2-90-44
-<U91C4> \x8F\xFA\xCD |3 # 2-90-45
-<U91DA> \x8F\xFA\xCE |3 # 2-90-46
-<U28949> \x8F\xFA\xCF |3 # 2-90-47
-<U28946> \x8F\xFA\xD0 |3 # 2-90-48
-<U91EC> \x8F\xFA\xD1 |3 # 2-90-49
-<U91EE> \x8F\xFA\xD2 |3 # 2-90-50
-<U9201> \x8F\xFA\xD3 |3 # 2-90-51
-<U920A> \x8F\xFA\xD4 |3 # 2-90-52
-<U9216> \x8F\xFA\xD5 |3 # 2-90-53
-<U9217> \x8F\xFA\xD6 |3 # 2-90-54
-<U2896B> \x8F\xFA\xD7 |3 # 2-90-55
-<U9233> \x8F\xFA\xD8 |3 # 2-90-56
-<U9242> \x8F\xFA\xD9 |3 # 2-90-57
-<U9247> \x8F\xFA\xDA |3 # 2-90-58
-<U924A> \x8F\xFA\xDB |3 # 2-90-59
-<U924E> \x8F\xFA\xDC |3 # 2-90-60
-<U9251> \x8F\xFA\xDD |3 # 2-90-61
-<U9256> \x8F\xFA\xDE |3 # 2-90-62
-<U9259> \x8F\xFA\xDF |3 # 2-90-63
-<U9260> \x8F\xFA\xE0 |3 # 2-90-64
-<U9261> \x8F\xFA\xE1 |3 # 2-90-65
-<U9265> \x8F\xFA\xE2 |3 # 2-90-66
-<U9267> \x8F\xFA\xE3 |3 # 2-90-67
-<U9268> \x8F\xFA\xE4 |3 # 2-90-68
-<U28987> \x8F\xFA\xE5 |3 # 2-90-69
-<U28988> \x8F\xFA\xE6 |3 # 2-90-70
-<U927C> \x8F\xFA\xE7 |3 # 2-90-71
-<U927D> \x8F\xFA\xE8 |3 # 2-90-72
-<U927F> \x8F\xFA\xE9 |3 # 2-90-73
-<U9289> \x8F\xFA\xEA |3 # 2-90-74
-<U928D> \x8F\xFA\xEB |3 # 2-90-75
-<U9297> \x8F\xFA\xEC |3 # 2-90-76
-<U9299> \x8F\xFA\xED |3 # 2-90-77
-<U929F> \x8F\xFA\xEE |3 # 2-90-78
-<U92A7> \x8F\xFA\xEF |3 # 2-90-79
-<U92AB> \x8F\xFA\xF0 |3 # 2-90-80
-<U289BA> \x8F\xFA\xF1 |3 # 2-90-81
-<U289BB> \x8F\xFA\xF2 |3 # 2-90-82
-<U92B2> \x8F\xFA\xF3 |3 # 2-90-83
-<U92BF> \x8F\xFA\xF4 |3 # 2-90-84
-<U92C0> \x8F\xFA\xF5 |3 # 2-90-85
-<U92C6> \x8F\xFA\xF6 |3 # 2-90-86
-<U92CE> \x8F\xFA\xF7 |3 # 2-90-87
-<U92D0> \x8F\xFA\xF8 |3 # 2-90-88
-<U92D7> \x8F\xFA\xF9 |3 # 2-90-89
-<U92D9> \x8F\xFA\xFA |3 # 2-90-90
-<U92E5> \x8F\xFA\xFB |3 # 2-90-91
-<U92E7> \x8F\xFA\xFC |3 # 2-90-92
-<U9311> \x8F\xFA\xFD |3 # 2-90-93
-<U28A1E> \x8F\xFA\xFE |3 # 2-90-94
-<U28A29> \x8F\xFB\xA1 |3 # 2-91-1
-<U92F7> \x8F\xFB\xA2 |3 # 2-91-2
-<U92F9> \x8F\xFB\xA3 |3 # 2-91-3
-<U92FB> \x8F\xFB\xA4 |3 # 2-91-4
-<U9302> \x8F\xFB\xA5 |3 # 2-91-5
-<U930D> \x8F\xFB\xA6 |3 # 2-91-6
-<U9315> \x8F\xFB\xA7 |3 # 2-91-7
-<U931D> \x8F\xFB\xA8 |3 # 2-91-8
-<U931E> \x8F\xFB\xA9 |3 # 2-91-9
-<U9327> \x8F\xFB\xAA |3 # 2-91-10
-<U9329> \x8F\xFB\xAB |3 # 2-91-11
-<U28A71> \x8F\xFB\xAC |3 # 2-91-12
-<U28A43> \x8F\xFB\xAD |3 # 2-91-13
-<U9347> \x8F\xFB\xAE |3 # 2-91-14
-<U9351> \x8F\xFB\xAF |3 # 2-91-15
-<U9357> \x8F\xFB\xB0 |3 # 2-91-16
-<U935A> \x8F\xFB\xB1 |3 # 2-91-17
-<U936B> \x8F\xFB\xB2 |3 # 2-91-18
-<U9371> \x8F\xFB\xB3 |3 # 2-91-19
-<U9373> \x8F\xFB\xB4 |3 # 2-91-20
-<U93A1> \x8F\xFB\xB5 |3 # 2-91-21
-<U28A99> \x8F\xFB\xB6 |3 # 2-91-22
-<U28ACD> \x8F\xFB\xB7 |3 # 2-91-23
-<U9388> \x8F\xFB\xB8 |3 # 2-91-24
-<U938B> \x8F\xFB\xB9 |3 # 2-91-25
-<U938F> \x8F\xFB\xBA |3 # 2-91-26
-<U939E> \x8F\xFB\xBB |3 # 2-91-27
-<U93F5> \x8F\xFB\xBC |3 # 2-91-28
-<U28AE4> \x8F\xFB\xBD |3 # 2-91-29
-<U28ADD> \x8F\xFB\xBE |3 # 2-91-30
-<U93F1> \x8F\xFB\xBF |3 # 2-91-31
-<U93C1> \x8F\xFB\xC0 |3 # 2-91-32
-<U93C7> \x8F\xFB\xC1 |3 # 2-91-33
-<U93DC> \x8F\xFB\xC2 |3 # 2-91-34
-<U93E2> \x8F\xFB\xC3 |3 # 2-91-35
-<U93E7> \x8F\xFB\xC4 |3 # 2-91-36
-<U9409> \x8F\xFB\xC5 |3 # 2-91-37
-<U940F> \x8F\xFB\xC6 |3 # 2-91-38
-<U9416> \x8F\xFB\xC7 |3 # 2-91-39
-<U9417> \x8F\xFB\xC8 |3 # 2-91-40
-<U93FB> \x8F\xFB\xC9 |3 # 2-91-41
-<U9432> \x8F\xFB\xCA |3 # 2-91-42
-<U9434> \x8F\xFB\xCB |3 # 2-91-43
-<U943B> \x8F\xFB\xCC |3 # 2-91-44
-<U9445> \x8F\xFB\xCD |3 # 2-91-45
-<U28BC1> \x8F\xFB\xCE |3 # 2-91-46
-<U28BEF> \x8F\xFB\xCF |3 # 2-91-47
-<U946D> \x8F\xFB\xD0 |3 # 2-91-48
-<U946F> \x8F\xFB\xD1 |3 # 2-91-49
-<U9578> \x8F\xFB\xD2 |3 # 2-91-50
-<U9579> \x8F\xFB\xD3 |3 # 2-91-51
-<U9586> \x8F\xFB\xD4 |3 # 2-91-52
-<U958C> \x8F\xFB\xD5 |3 # 2-91-53
-<U958D> \x8F\xFB\xD6 |3 # 2-91-54
-<U28D10> \x8F\xFB\xD7 |3 # 2-91-55
-<U95AB> \x8F\xFB\xD8 |3 # 2-91-56
-<U95B4> \x8F\xFB\xD9 |3 # 2-91-57
-<U28D71> \x8F\xFB\xDA |3 # 2-91-58
-<U95C8> \x8F\xFB\xDB |3 # 2-91-59
-<U28DFB> \x8F\xFB\xDC |3 # 2-91-60
-<U28E1F> \x8F\xFB\xDD |3 # 2-91-61
-<U962C> \x8F\xFB\xDE |3 # 2-91-62
-<U9633> \x8F\xFB\xDF |3 # 2-91-63
-<U9634> \x8F\xFB\xE0 |3 # 2-91-64
-<U28E36> \x8F\xFB\xE1 |3 # 2-91-65
-<U963C> \x8F\xFB\xE2 |3 # 2-91-66
-<U9641> \x8F\xFB\xE3 |3 # 2-91-67
-<U9661> \x8F\xFB\xE4 |3 # 2-91-68
-<U28E89> \x8F\xFB\xE5 |3 # 2-91-69
-<U9682> \x8F\xFB\xE6 |3 # 2-91-70
-<U28EEB> \x8F\xFB\xE7 |3 # 2-91-71
-<U969A> \x8F\xFB\xE8 |3 # 2-91-72
-<U28F32> \x8F\xFB\xE9 |3 # 2-91-73
-<U49E7> \x8F\xFB\xEA |3 # 2-91-74
-<U96A9> \x8F\xFB\xEB |3 # 2-91-75
-<U96AF> \x8F\xFB\xEC |3 # 2-91-76
-<U96B3> \x8F\xFB\xED |3 # 2-91-77
-<U96BA> \x8F\xFB\xEE |3 # 2-91-78
-<U96BD> \x8F\xFB\xEF |3 # 2-91-79
-<U49FA> \x8F\xFB\xF0 |3 # 2-91-80
-<U28FF8> \x8F\xFB\xF1 |3 # 2-91-81
-<U96D8> \x8F\xFB\xF2 |3 # 2-91-82
-<U96DA> \x8F\xFB\xF3 |3 # 2-91-83
-<U96DD> \x8F\xFB\xF4 |3 # 2-91-84
-<U4A04> \x8F\xFB\xF5 |3 # 2-91-85
-<U9714> \x8F\xFB\xF6 |3 # 2-91-86
-<U9723> \x8F\xFB\xF7 |3 # 2-91-87
-<U4A29> \x8F\xFB\xF8 |3 # 2-91-88
-<U9736> \x8F\xFB\xF9 |3 # 2-91-89
-<U9741> \x8F\xFB\xFA |3 # 2-91-90
-<U9747> \x8F\xFB\xFB |3 # 2-91-91
-<U9755> \x8F\xFB\xFC |3 # 2-91-92
-<U9757> \x8F\xFB\xFD |3 # 2-91-93
-<U975B> \x8F\xFB\xFE |3 # 2-91-94
-<U976A> \x8F\xFC\xA1 |3 # 2-92-1
-<U292A0> \x8F\xFC\xA2 |3 # 2-92-2
-<U292B1> \x8F\xFC\xA3 |3 # 2-92-3
-<U9796> \x8F\xFC\xA4 |3 # 2-92-4
-<U979A> \x8F\xFC\xA5 |3 # 2-92-5
-<U979E> \x8F\xFC\xA6 |3 # 2-92-6
-<U97A2> \x8F\xFC\xA7 |3 # 2-92-7
-<U97B1> \x8F\xFC\xA8 |3 # 2-92-8
-<U97B2> \x8F\xFC\xA9 |3 # 2-92-9
-<U97BE> \x8F\xFC\xAA |3 # 2-92-10
-<U97CC> \x8F\xFC\xAB |3 # 2-92-11
-<U97D1> \x8F\xFC\xAC |3 # 2-92-12
-<U97D4> \x8F\xFC\xAD |3 # 2-92-13
-<U97D8> \x8F\xFC\xAE |3 # 2-92-14
-<U97D9> \x8F\xFC\xAF |3 # 2-92-15
-<U97E1> \x8F\xFC\xB0 |3 # 2-92-16
-<U97F1> \x8F\xFC\xB1 |3 # 2-92-17
-<U9804> \x8F\xFC\xB2 |3 # 2-92-18
-<U980D> \x8F\xFC\xB3 |3 # 2-92-19
-<U980E> \x8F\xFC\xB4 |3 # 2-92-20
-<U9814> \x8F\xFC\xB5 |3 # 2-92-21
-<U9816> \x8F\xFC\xB6 |3 # 2-92-22
-<U4ABC> \x8F\xFC\xB7 |3 # 2-92-23
-<U29490> \x8F\xFC\xB8 |3 # 2-92-24
-<U9823> \x8F\xFC\xB9 |3 # 2-92-25
-<U9832> \x8F\xFC\xBA |3 # 2-92-26
-<U9833> \x8F\xFC\xBB |3 # 2-92-27
-<U9825> \x8F\xFC\xBC |3 # 2-92-28
-<U9847> \x8F\xFC\xBD |3 # 2-92-29
-<U9866> \x8F\xFC\xBE |3 # 2-92-30
-<U98AB> \x8F\xFC\xBF |3 # 2-92-31
-<U98AD> \x8F\xFC\xC0 |3 # 2-92-32
-<U98B0> \x8F\xFC\xC1 |3 # 2-92-33
-<U295CF> \x8F\xFC\xC2 |3 # 2-92-34
-<U98B7> \x8F\xFC\xC3 |3 # 2-92-35
-<U98B8> \x8F\xFC\xC4 |3 # 2-92-36
-<U98BB> \x8F\xFC\xC5 |3 # 2-92-37
-<U98BC> \x8F\xFC\xC6 |3 # 2-92-38
-<U98BF> \x8F\xFC\xC7 |3 # 2-92-39
-<U98C2> \x8F\xFC\xC8 |3 # 2-92-40
-<U98C7> \x8F\xFC\xC9 |3 # 2-92-41
-<U98CB> \x8F\xFC\xCA |3 # 2-92-42
-<U98E0> \x8F\xFC\xCB |3 # 2-92-43
-<U2967F> \x8F\xFC\xCC |3 # 2-92-44
-<U98E1> \x8F\xFC\xCD |3 # 2-92-45
-<U98E3> \x8F\xFC\xCE |3 # 2-92-46
-<U98E5> \x8F\xFC\xCF |3 # 2-92-47
-<U98EA> \x8F\xFC\xD0 |3 # 2-92-48
-<U98F0> \x8F\xFC\xD1 |3 # 2-92-49
-<U98F1> \x8F\xFC\xD2 |3 # 2-92-50
-<U98F3> \x8F\xFC\xD3 |3 # 2-92-51
-<U9908> \x8F\xFC\xD4 |3 # 2-92-52
-<U4B3B> \x8F\xFC\xD5 |3 # 2-92-53
-<U296F0> \x8F\xFC\xD6 |3 # 2-92-54
-<U9916> \x8F\xFC\xD7 |3 # 2-92-55
-<U9917> \x8F\xFC\xD8 |3 # 2-92-56
-<U29719> \x8F\xFC\xD9 |3 # 2-92-57
-<U991A> \x8F\xFC\xDA |3 # 2-92-58
-<U991B> \x8F\xFC\xDB |3 # 2-92-59
-<U991C> \x8F\xFC\xDC |3 # 2-92-60
-<U29750> \x8F\xFC\xDD |3 # 2-92-61
-<U9931> \x8F\xFC\xDE |3 # 2-92-62
-<U9932> \x8F\xFC\xDF |3 # 2-92-63
-<U9933> \x8F\xFC\xE0 |3 # 2-92-64
-<U993A> \x8F\xFC\xE1 |3 # 2-92-65
-<U993B> \x8F\xFC\xE2 |3 # 2-92-66
-<U993C> \x8F\xFC\xE3 |3 # 2-92-67
-<U9940> \x8F\xFC\xE4 |3 # 2-92-68
-<U9941> \x8F\xFC\xE5 |3 # 2-92-69
-<U9946> \x8F\xFC\xE6 |3 # 2-92-70
-<U994D> \x8F\xFC\xE7 |3 # 2-92-71
-<U994E> \x8F\xFC\xE8 |3 # 2-92-72
-<U995C> \x8F\xFC\xE9 |3 # 2-92-73
-<U995F> \x8F\xFC\xEA |3 # 2-92-74
-<U9960> \x8F\xFC\xEB |3 # 2-92-75
-<U99A3> \x8F\xFC\xEC |3 # 2-92-76
-<U99A6> \x8F\xFC\xED |3 # 2-92-77
-<U99B9> \x8F\xFC\xEE |3 # 2-92-78
-<U99BD> \x8F\xFC\xEF |3 # 2-92-79
-<U99BF> \x8F\xFC\xF0 |3 # 2-92-80
-<U99C3> \x8F\xFC\xF1 |3 # 2-92-81
-<U99C9> \x8F\xFC\xF2 |3 # 2-92-82
-<U99D4> \x8F\xFC\xF3 |3 # 2-92-83
-<U99D9> \x8F\xFC\xF4 |3 # 2-92-84
-<U99DE> \x8F\xFC\xF5 |3 # 2-92-85
-<U298C6> \x8F\xFC\xF6 |3 # 2-92-86
-<U99F0> \x8F\xFC\xF7 |3 # 2-92-87
-<U99F9> \x8F\xFC\xF8 |3 # 2-92-88
-<U99FC> \x8F\xFC\xF9 |3 # 2-92-89
-<U9A0A> \x8F\xFC\xFA |3 # 2-92-90
-<U9A11> \x8F\xFC\xFB |3 # 2-92-91
-<U9A16> \x8F\xFC\xFC |3 # 2-92-92
-<U9A1A> \x8F\xFC\xFD |3 # 2-92-93
-<U9A20> \x8F\xFC\xFE |3 # 2-92-94
-<U9A31> \x8F\xFD\xA1 |3 # 2-93-1
-<U9A36> \x8F\xFD\xA2 |3 # 2-93-2
-<U9A44> \x8F\xFD\xA3 |3 # 2-93-3
-<U9A4C> \x8F\xFD\xA4 |3 # 2-93-4
-<U9A58> \x8F\xFD\xA5 |3 # 2-93-5
-<U4BC2> \x8F\xFD\xA6 |3 # 2-93-6
-<U9AAF> \x8F\xFD\xA7 |3 # 2-93-7
-<U4BCA> \x8F\xFD\xA8 |3 # 2-93-8
-<U9AB7> \x8F\xFD\xA9 |3 # 2-93-9
-<U4BD2> \x8F\xFD\xAA |3 # 2-93-10
-<U9AB9> \x8F\xFD\xAB |3 # 2-93-11
-<U29A72> \x8F\xFD\xAC |3 # 2-93-12
-<U9AC6> \x8F\xFD\xAD |3 # 2-93-13
-<U9AD0> \x8F\xFD\xAE |3 # 2-93-14
-<U9AD2> \x8F\xFD\xAF |3 # 2-93-15
-<U9AD5> \x8F\xFD\xB0 |3 # 2-93-16
-<U4BE8> \x8F\xFD\xB1 |3 # 2-93-17
-<U9ADC> \x8F\xFD\xB2 |3 # 2-93-18
-<U9AE0> \x8F\xFD\xB3 |3 # 2-93-19
-<U9AE5> \x8F\xFD\xB4 |3 # 2-93-20
-<U9AE9> \x8F\xFD\xB5 |3 # 2-93-21
-<U9B03> \x8F\xFD\xB6 |3 # 2-93-22
-<U9B0C> \x8F\xFD\xB7 |3 # 2-93-23
-<U9B10> \x8F\xFD\xB8 |3 # 2-93-24
-<U9B12> \x8F\xFD\xB9 |3 # 2-93-25
-<U9B16> \x8F\xFD\xBA |3 # 2-93-26
-<U9B1D> \x8F\xFD\xBB |3 # 2-93-27
-<U9B2B> \x8F\xFD\xBC |3 # 2-93-28
-<U9B33> \x8F\xFD\xBD |3 # 2-93-29
-<U9B3D> \x8F\xFD\xBE |3 # 2-93-30
-<U4C20> \x8F\xFD\xBF |3 # 2-93-31
-<U9B4B> \x8F\xFD\xC0 |3 # 2-93-32
-<U9B63> \x8F\xFD\xC1 |3 # 2-93-33
-<U9B65> \x8F\xFD\xC2 |3 # 2-93-34
-<U9B6B> \x8F\xFD\xC3 |3 # 2-93-35
-<U9B6C> \x8F\xFD\xC4 |3 # 2-93-36
-<U9B73> \x8F\xFD\xC5 |3 # 2-93-37
-<U9B76> \x8F\xFD\xC6 |3 # 2-93-38
-<U9B77> \x8F\xFD\xC7 |3 # 2-93-39
-<U9BA6> \x8F\xFD\xC8 |3 # 2-93-40
-<U9BAC> \x8F\xFD\xC9 |3 # 2-93-41
-<U9BB1> \x8F\xFD\xCA |3 # 2-93-42
-<U29DDB> \x8F\xFD\xCB |3 # 2-93-43
-<U29E3D> \x8F\xFD\xCC |3 # 2-93-44
-<U9BB2> \x8F\xFD\xCD |3 # 2-93-45
-<U9BB8> \x8F\xFD\xCE |3 # 2-93-46
-<U9BBE> \x8F\xFD\xCF |3 # 2-93-47
-<U9BC7> \x8F\xFD\xD0 |3 # 2-93-48
-<U9BF3> \x8F\xFD\xD1 |3 # 2-93-49
-<U9BD8> \x8F\xFD\xD2 |3 # 2-93-50
-<U9BDD> \x8F\xFD\xD3 |3 # 2-93-51
-<U9BE7> \x8F\xFD\xD4 |3 # 2-93-52
-<U9BEA> \x8F\xFD\xD5 |3 # 2-93-53
-<U9BEB> \x8F\xFD\xD6 |3 # 2-93-54
-<U9BEF> \x8F\xFD\xD7 |3 # 2-93-55
-<U9BEE> \x8F\xFD\xD8 |3 # 2-93-56
-<U29E15> \x8F\xFD\xD9 |3 # 2-93-57
-<U9BFA> \x8F\xFD\xDA |3 # 2-93-58
-<U29E8A> \x8F\xFD\xDB |3 # 2-93-59
-<U9BF7> \x8F\xFD\xDC |3 # 2-93-60
-<U29E49> \x8F\xFD\xDD |3 # 2-93-61
-<U9C16> \x8F\xFD\xDE |3 # 2-93-62
-<U9C18> \x8F\xFD\xDF |3 # 2-93-63
-<U9C19> \x8F\xFD\xE0 |3 # 2-93-64
-<U9C1A> \x8F\xFD\xE1 |3 # 2-93-65
-<U9C1D> \x8F\xFD\xE2 |3 # 2-93-66
-<U9C22> \x8F\xFD\xE3 |3 # 2-93-67
-<U9C27> \x8F\xFD\xE4 |3 # 2-93-68
-<U9C29> \x8F\xFD\xE5 |3 # 2-93-69
-<U9C2A> \x8F\xFD\xE6 |3 # 2-93-70
-<U29EC4> \x8F\xFD\xE7 |3 # 2-93-71
-<U9C31> \x8F\xFD\xE8 |3 # 2-93-72
-<U9C36> \x8F\xFD\xE9 |3 # 2-93-73
-<U9C37> \x8F\xFD\xEA |3 # 2-93-74
-<U9C45> \x8F\xFD\xEB |3 # 2-93-75
-<U9C5C> \x8F\xFD\xEC |3 # 2-93-76
-<U29EE9> \x8F\xFD\xED |3 # 2-93-77
-<U9C49> \x8F\xFD\xEE |3 # 2-93-78
-<U9C4A> \x8F\xFD\xEF |3 # 2-93-79
-<U29EDB> \x8F\xFD\xF0 |3 # 2-93-80
-<U9C54> \x8F\xFD\xF1 |3 # 2-93-81
-<U9C58> \x8F\xFD\xF2 |3 # 2-93-82
-<U9C5B> \x8F\xFD\xF3 |3 # 2-93-83
-<U9C5D> \x8F\xFD\xF4 |3 # 2-93-84
-<U9C5F> \x8F\xFD\xF5 |3 # 2-93-85
-<U9C69> \x8F\xFD\xF6 |3 # 2-93-86
-<U9C6A> \x8F\xFD\xF7 |3 # 2-93-87
-<U9C6B> \x8F\xFD\xF8 |3 # 2-93-88
-<U9C6D> \x8F\xFD\xF9 |3 # 2-93-89
-<U9C6E> \x8F\xFD\xFA |3 # 2-93-90
-<U9C70> \x8F\xFD\xFB |3 # 2-93-91
-<U9C72> \x8F\xFD\xFC |3 # 2-93-92
-<U9C75> \x8F\xFD\xFD |3 # 2-93-93
-<U9C7A> \x8F\xFD\xFE |3 # 2-93-94
-<U9CE6> \x8F\xFE\xA1 |3 # 2-94-1
-<U9CF2> \x8F\xFE\xA2 |3 # 2-94-2
-<U9D0B> \x8F\xFE\xA3 |3 # 2-94-3
-<U9D02> \x8F\xFE\xA4 |3 # 2-94-4
-<U29FCE> \x8F\xFE\xA5 |3 # 2-94-5
-<U9D11> \x8F\xFE\xA6 |3 # 2-94-6
-<U9D17> \x8F\xFE\xA7 |3 # 2-94-7
-<U9D18> \x8F\xFE\xA8 |3 # 2-94-8
-<U2A02F> \x8F\xFE\xA9 |3 # 2-94-9
-<U4CC4> \x8F\xFE\xAA |3 # 2-94-10
-<U2A01A> \x8F\xFE\xAB |3 # 2-94-11
-<U9D32> \x8F\xFE\xAC |3 # 2-94-12
-<U4CD1> \x8F\xFE\xAD |3 # 2-94-13
-<U9D42> \x8F\xFE\xAE |3 # 2-94-14
-<U9D4A> \x8F\xFE\xAF |3 # 2-94-15
-<U9D5F> \x8F\xFE\xB0 |3 # 2-94-16
-<U9D62> \x8F\xFE\xB1 |3 # 2-94-17
-<U2A0F9> \x8F\xFE\xB2 |3 # 2-94-18
-<U9D69> \x8F\xFE\xB3 |3 # 2-94-19
-<U9D6B> \x8F\xFE\xB4 |3 # 2-94-20
-<U2A082> \x8F\xFE\xB5 |3 # 2-94-21
-<U9D73> \x8F\xFE\xB6 |3 # 2-94-22
-<U9D76> \x8F\xFE\xB7 |3 # 2-94-23
-<U9D77> \x8F\xFE\xB8 |3 # 2-94-24
-<U9D7E> \x8F\xFE\xB9 |3 # 2-94-25
-<U9D84> \x8F\xFE\xBA |3 # 2-94-26
-<U9D8D> \x8F\xFE\xBB |3 # 2-94-27
-<U9D99> \x8F\xFE\xBC |3 # 2-94-28
-<U9DA1> \x8F\xFE\xBD |3 # 2-94-29
-<U9DBF> \x8F\xFE\xBE |3 # 2-94-30
-<U9DB5> \x8F\xFE\xBF |3 # 2-94-31
-<U9DB9> \x8F\xFE\xC0 |3 # 2-94-32
-<U9DBD> \x8F\xFE\xC1 |3 # 2-94-33
-<U9DC3> \x8F\xFE\xC2 |3 # 2-94-34
-<U9DC7> \x8F\xFE\xC3 |3 # 2-94-35
-<U9DC9> \x8F\xFE\xC4 |3 # 2-94-36
-<U9DD6> \x8F\xFE\xC5 |3 # 2-94-37
-<U9DDA> \x8F\xFE\xC6 |3 # 2-94-38
-<U9DDF> \x8F\xFE\xC7 |3 # 2-94-39
-<U9DE0> \x8F\xFE\xC8 |3 # 2-94-40
-<U9DE3> \x8F\xFE\xC9 |3 # 2-94-41
-<U9DF4> \x8F\xFE\xCA |3 # 2-94-42
-<U4D07> \x8F\xFE\xCB |3 # 2-94-43
-<U9E0A> \x8F\xFE\xCC |3 # 2-94-44
-<U9E02> \x8F\xFE\xCD |3 # 2-94-45
-<U9E0D> \x8F\xFE\xCE |3 # 2-94-46
-<U9E19> \x8F\xFE\xCF |3 # 2-94-47
-<U9E1C> \x8F\xFE\xD0 |3 # 2-94-48
-<U9E1D> \x8F\xFE\xD1 |3 # 2-94-49
-<U9E7B> \x8F\xFE\xD2 |3 # 2-94-50
-<U22218> \x8F\xFE\xD3 |3 # 2-94-51
-<U9E80> \x8F\xFE\xD4 |3 # 2-94-52
-<U9E85> \x8F\xFE\xD5 |3 # 2-94-53
-<U9E9B> \x8F\xFE\xD6 |3 # 2-94-54
-<U9EA8> \x8F\xFE\xD7 |3 # 2-94-55
-<U2A38C> \x8F\xFE\xD8 |3 # 2-94-56
-<U9EBD> \x8F\xFE\xD9 |3 # 2-94-57
-<U2A437> \x8F\xFE\xDA |3 # 2-94-58
-<U9EDF> \x8F\xFE\xDB |3 # 2-94-59
-<U9EE7> \x8F\xFE\xDC |3 # 2-94-60
-<U9EEE> \x8F\xFE\xDD |3 # 2-94-61
-<U9EFF> \x8F\xFE\xDE |3 # 2-94-62
-<U9F02> \x8F\xFE\xDF |3 # 2-94-63
-<U4D77> \x8F\xFE\xE0 |3 # 2-94-64
-<U9F03> \x8F\xFE\xE1 |3 # 2-94-65
-<U9F17> \x8F\xFE\xE2 |3 # 2-94-66
-<U9F19> \x8F\xFE\xE3 |3 # 2-94-67
-<U9F2F> \x8F\xFE\xE4 |3 # 2-94-68
-<U9F37> \x8F\xFE\xE5 |3 # 2-94-69
-<U9F3A> \x8F\xFE\xE6 |3 # 2-94-70
-<U9F3D> \x8F\xFE\xE7 |3 # 2-94-71
-<U9F41> \x8F\xFE\xE8 |3 # 2-94-72
-<U9F45> \x8F\xFE\xE9 |3 # 2-94-73
-<U9F46> \x8F\xFE\xEA |3 # 2-94-74
-<U9F53> \x8F\xFE\xEB |3 # 2-94-75
-<U9F55> \x8F\xFE\xEC |3 # 2-94-76
-<U9F58> \x8F\xFE\xED |3 # 2-94-77
-<U2A5F1> \x8F\xFE\xEE |3 # 2-94-78
-<U9F5D> \x8F\xFE\xEF |3 # 2-94-79
-<U2A602> \x8F\xFE\xF0 |3 # 2-94-80
-<U9F69> \x8F\xFE\xF1 |3 # 2-94-81
-<U2A61A> \x8F\xFE\xF2 |3 # 2-94-82
-<U9F6D> \x8F\xFE\xF3 |3 # 2-94-83
-<U9F70> \x8F\xFE\xF4 |3 # 2-94-84
-<U9F75> \x8F\xFE\xF5 |3 # 2-94-85
-<U2A6B2> \x8F\xFE\xF6 |3 # 2-94-86
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/jis0201.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/jis0201.ucm
deleted file mode 100644
index 33b63a8..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/jis0201.ucm
+++ /dev/null
@@ -1,234 +0,0 @@
-#
-# $Id: jis0201.ucm,v 2.0 2004/05/16 20:55:25 dankogai Exp $
-#
-<code_set_name> "jis0201-raw"
-<code_set_alias> "jis0201"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3F
-#
-CHARMAP
-<U0000> \x00 |0 # NULL
-<U0001> \x01 |0 # START OF HEADING
-<U0002> \x02 |0 # START OF TEXT
-<U0003> \x03 |0 # END OF TEXT
-<U0004> \x04 |0 # END OF TRANSMISSION
-<U0005> \x05 |0 # ENQUIRY
-<U0006> \x06 |0 # ACKNOWLEDGE
-<U0007> \x07 |0 # BELL
-<U0008> \x08 |0 # BACKSPACE
-<U0009> \x09 |0 # CHARACTER TABULATION
-<U000A> \x0A |0 # LINE FEED (LF)
-<U000B> \x0B |0 # LINE TABULATION
-<U000C> \x0C |0 # FORM FEED (FF)
-<U000D> \x0D |0 # CARRIAGE RETURN (CR)
-<U000E> \x0E |0 # SHIFT OUT
-<U000F> \x0F |0 # SHIFT IN
-<U0010> \x10 |0 # DATA LINK ESCAPE
-<U0011> \x11 |0 # DEVICE CONTROL ONE
-<U0012> \x12 |0 # DEVICE CONTROL TWO
-<U0013> \x13 |0 # DEVICE CONTROL THREE
-<U0014> \x14 |0 # DEVICE CONTROL FOUR
-<U0015> \x15 |0 # NEGATIVE ACKNOWLEDGE
-<U0016> \x16 |0 # SYNCHRONOUS IDLE
-<U0017> \x17 |0 # END OF TRANSMISSION BLOCK
-<U0018> \x18 |0 # CANCEL
-<U0019> \x19 |0 # END OF MEDIUM
-<U001A> \x1A |0 # SUBSTITUTE
-<U001B> \x1B |0 # ESCAPE
-<U001C> \x1C |0 # INFORMATION SEPARATOR FOUR
-<U001D> \x1D |0 # INFORMATION SEPARATOR THREE
-<U001E> \x1E |0 # INFORMATION SEPARATOR TWO
-<U001F> \x1F |0 # INFORMATION SEPARATOR ONE
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002A> \x2A |0 # ASTERISK
-<U002B> \x2B |0 # PLUS SIGN
-<U002C> \x2C |0 # COMMA
-<U002D> \x2D |0 # HYPHEN-MINUS
-<U002E> \x2E |0 # FULL STOP
-<U002F> \x2F |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003A> \x3A |0 # COLON
-<U003B> \x3B |0 # SEMICOLON
-<U003C> \x3C |0 # LESS-THAN SIGN
-<U003D> \x3D |0 # EQUALS SIGN
-<U003E> \x3E |0 # GREATER-THAN SIGN
-<U003F> \x3F |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004A> \x4A |0 # LATIN CAPITAL LETTER J
-<U004B> \x4B |0 # LATIN CAPITAL LETTER K
-<U004C> \x4C |0 # LATIN CAPITAL LETTER L
-<U004D> \x4D |0 # LATIN CAPITAL LETTER M
-<U004E> \x4E |0 # LATIN CAPITAL LETTER N
-<U004F> \x4F |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005A> \x5A |0 # LATIN CAPITAL LETTER Z
-<U005B> \x5B |0 # LEFT SQUARE BRACKET
-<U005C> \x5C |0 # REVERSE SOLIDUS
-<U005D> \x5D |0 # RIGHT SQUARE BRACKET
-<U005E> \x5E |0 # CIRCUMFLEX ACCENT
-<U005F> \x5F |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006A> \x6A |0 # LATIN SMALL LETTER J
-<U006B> \x6B |0 # LATIN SMALL LETTER K
-<U006C> \x6C |0 # LATIN SMALL LETTER L
-<U006D> \x6D |0 # LATIN SMALL LETTER M
-<U006E> \x6E |0 # LATIN SMALL LETTER N
-<U006F> \x6F |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007A> \x7A |0 # LATIN SMALL LETTER Z
-<U007B> \x7B |0 # LEFT CURLY BRACKET
-<U007C> \x7C |0 # VERTICAL LINE
-<U007D> \x7D |0 # RIGHT CURLY BRACKET
-<U203E> \x7E |0 # OVERLINE
-<U007F> \x7F |0 # DELETE
-<U0080> \x80 |0 # <control>
-<U0081> \x81 |0 # <control>
-<U0082> \x82 |0 # BREAK PERMITTED HERE
-<U0083> \x83 |0 # NO BREAK HERE
-<U0084> \x84 |0 # <control>
-<U0085> \x85 |0 # NEXT LINE (NEL)
-<U0086> \x86 |0 # START OF SELECTED AREA
-<U0087> \x87 |0 # END OF SELECTED AREA
-<U0088> \x88 |0 # CHARACTER TABULATION SET
-<U0089> \x89 |0 # CHARACTER TABULATION WITH JUSTIFICATION
-<U008A> \x8A |0 # LINE TABULATION SET
-<U008B> \x8B |0 # PARTIAL LINE FORWARD
-<U008C> \x8C |0 # PARTIAL LINE BACKWARD
-<U008D> \x8D |0 # REVERSE LINE FEED
-<U008E> \x8E |0 # SINGLE SHIFT TWO
-<U008F> \x8F |0 # SINGLE SHIFT THREE
-<U0090> \x90 |0 # DEVICE CONTROL STRING
-<U0091> \x91 |0 # PRIVATE USE ONE
-<U0092> \x92 |0 # PRIVATE USE TWO
-<U0093> \x93 |0 # SET TRANSMIT STATE
-<U0094> \x94 |0 # CANCEL CHARACTER
-<U0095> \x95 |0 # MESSAGE WAITING
-<U0096> \x96 |0 # START OF GUARDED AREA
-<U0097> \x97 |0 # END OF GUARDED AREA
-<U0098> \x98 |0 # START OF STRING
-<U0099> \x99 |0 # <control>
-<U009A> \x9A |0 # SINGLE CHARACTER INTRODUCER
-<U009B> \x9B |0 # CONTROL SEQUENCE INTRODUCER
-<U009C> \x9C |0 # STRING TERMINATOR
-<U009D> \x9D |0 # OPERATING SYSTEM COMMAND
-<U009E> \x9E |0 # PRIVACY MESSAGE
-<U009F> \x9F |0 # APPLICATION PROGRAM COMMAND
-<UFF61> \xA1 |0 # HALFWIDTH IDEOGRAPHIC FULL STOP
-<UFF62> \xA2 |0 # HALFWIDTH LEFT CORNER BRACKET
-<UFF63> \xA3 |0 # HALFWIDTH RIGHT CORNER BRACKET
-<UFF64> \xA4 |0 # HALFWIDTH IDEOGRAPHIC COMMA
-<UFF65> \xA5 |0 # HALFWIDTH KATAKANA MIDDLE DOT
-<UFF66> \xA6 |0 # HALFWIDTH KATAKANA LETTER WO
-<UFF67> \xA7 |0 # HALFWIDTH KATAKANA LETTER SMALL A
-<UFF68> \xA8 |0 # HALFWIDTH KATAKANA LETTER SMALL I
-<UFF69> \xA9 |0 # HALFWIDTH KATAKANA LETTER SMALL U
-<UFF6A> \xAA |0 # HALFWIDTH KATAKANA LETTER SMALL E
-<UFF6B> \xAB |0 # HALFWIDTH KATAKANA LETTER SMALL O
-<UFF6C> \xAC |0 # HALFWIDTH KATAKANA LETTER SMALL YA
-<UFF6D> \xAD |0 # HALFWIDTH KATAKANA LETTER SMALL YU
-<UFF6E> \xAE |0 # HALFWIDTH KATAKANA LETTER SMALL YO
-<UFF6F> \xAF |0 # HALFWIDTH KATAKANA LETTER SMALL TU
-<UFF70> \xB0 |0 # HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK
-<UFF71> \xB1 |0 # HALFWIDTH KATAKANA LETTER A
-<UFF72> \xB2 |0 # HALFWIDTH KATAKANA LETTER I
-<UFF73> \xB3 |0 # HALFWIDTH KATAKANA LETTER U
-<UFF74> \xB4 |0 # HALFWIDTH KATAKANA LETTER E
-<UFF75> \xB5 |0 # HALFWIDTH KATAKANA LETTER O
-<UFF76> \xB6 |0 # HALFWIDTH KATAKANA LETTER KA
-<UFF77> \xB7 |0 # HALFWIDTH KATAKANA LETTER KI
-<UFF78> \xB8 |0 # HALFWIDTH KATAKANA LETTER KU
-<UFF79> \xB9 |0 # HALFWIDTH KATAKANA LETTER KE
-<UFF7A> \xBA |0 # HALFWIDTH KATAKANA LETTER KO
-<UFF7B> \xBB |0 # HALFWIDTH KATAKANA LETTER SA
-<UFF7C> \xBC |0 # HALFWIDTH KATAKANA LETTER SI
-<UFF7D> \xBD |0 # HALFWIDTH KATAKANA LETTER SU
-<UFF7E> \xBE |0 # HALFWIDTH KATAKANA LETTER SE
-<UFF7F> \xBF |0 # HALFWIDTH KATAKANA LETTER SO
-<UFF80> \xC0 |0 # HALFWIDTH KATAKANA LETTER TA
-<UFF81> \xC1 |0 # HALFWIDTH KATAKANA LETTER TI
-<UFF82> \xC2 |0 # HALFWIDTH KATAKANA LETTER TU
-<UFF83> \xC3 |0 # HALFWIDTH KATAKANA LETTER TE
-<UFF84> \xC4 |0 # HALFWIDTH KATAKANA LETTER TO
-<UFF85> \xC5 |0 # HALFWIDTH KATAKANA LETTER NA
-<UFF86> \xC6 |0 # HALFWIDTH KATAKANA LETTER NI
-<UFF87> \xC7 |0 # HALFWIDTH KATAKANA LETTER NU
-<UFF88> \xC8 |0 # HALFWIDTH KATAKANA LETTER NE
-<UFF89> \xC9 |0 # HALFWIDTH KATAKANA LETTER NO
-<UFF8A> \xCA |0 # HALFWIDTH KATAKANA LETTER HA
-<UFF8B> \xCB |0 # HALFWIDTH KATAKANA LETTER HI
-<UFF8C> \xCC |0 # HALFWIDTH KATAKANA LETTER HU
-<UFF8D> \xCD |0 # HALFWIDTH KATAKANA LETTER HE
-<UFF8E> \xCE |0 # HALFWIDTH KATAKANA LETTER HO
-<UFF8F> \xCF |0 # HALFWIDTH KATAKANA LETTER MA
-<UFF90> \xD0 |0 # HALFWIDTH KATAKANA LETTER MI
-<UFF91> \xD1 |0 # HALFWIDTH KATAKANA LETTER MU
-<UFF92> \xD2 |0 # HALFWIDTH KATAKANA LETTER ME
-<UFF93> \xD3 |0 # HALFWIDTH KATAKANA LETTER MO
-<UFF94> \xD4 |0 # HALFWIDTH KATAKANA LETTER YA
-<UFF95> \xD5 |0 # HALFWIDTH KATAKANA LETTER YU
-<UFF96> \xD6 |0 # HALFWIDTH KATAKANA LETTER YO
-<UFF97> \xD7 |0 # HALFWIDTH KATAKANA LETTER RA
-<UFF98> \xD8 |0 # HALFWIDTH KATAKANA LETTER RI
-<UFF99> \xD9 |0 # HALFWIDTH KATAKANA LETTER RU
-<UFF9A> \xDA |0 # HALFWIDTH KATAKANA LETTER RE
-<UFF9B> \xDB |0 # HALFWIDTH KATAKANA LETTER RO
-<UFF9C> \xDC |0 # HALFWIDTH KATAKANA LETTER WA
-<UFF9D> \xDD |0 # HALFWIDTH KATAKANA LETTER N
-<UFF9E> \xDE |0 # HALFWIDTH KATAKANA VOICED SOUND MARK
-<UFF9F> \xDF |0 # HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/koi8-r.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/koi8-r.ucm
deleted file mode 100644
index 3f0e86f..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/koi8-r.ucm
+++ /dev/null
@@ -1,268 +0,0 @@
-#
-# $Id: koi8-r.ucm,v 2.0 2004/05/16 20:55:26 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/VENDORS/MISC/KOI8-R.TXT
-#
-<code_set_name> "koi8-r"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3F
-CHARMAP
-<U0000> \x00 |0 # NULL
-<U0001> \x01 |0 # START OF HEADING
-<U0002> \x02 |0 # START OF TEXT
-<U0003> \x03 |0 # END OF TEXT
-<U0004> \x04 |0 # END OF TRANSMISSION
-<U0005> \x05 |0 # ENQUIRY
-<U0006> \x06 |0 # ACKNOWLEDGE
-<U0007> \x07 |0 # BELL
-<U0008> \x08 |0 # BACKSPACE
-<U0009> \x09 |0 # HORIZONTAL TABULATION
-<U000A> \x0A |0 # LINE FEED
-<U000B> \x0B |0 # VERTICAL TABULATION
-<U000C> \x0C |0 # FORM FEED
-<U000D> \x0D |0 # CARRIAGE RETURN
-<U000E> \x0E |0 # SHIFT OUT
-<U000F> \x0F |0 # SHIFT IN
-<U0010> \x10 |0 # DATA LINK ESCAPE
-<U0011> \x11 |0 # DEVICE CONTROL ONE
-<U0012> \x12 |0 # DEVICE CONTROL TWO
-<U0013> \x13 |0 # DEVICE CONTROL THREE
-<U0014> \x14 |0 # DEVICE CONTROL FOUR
-<U0015> \x15 |0 # NEGATIVE ACKNOWLEDGE
-<U0016> \x16 |0 # SYNCHRONOUS IDLE
-<U0017> \x17 |0 # END OF TRANSMISSION BLOCK
-<U0018> \x18 |0 # CANCEL
-<U0019> \x19 |0 # END OF MEDIUM
-<U001A> \x1A |0 # SUBSTITUTE
-<U001B> \x1B |0 # ESCAPE
-<U001C> \x1C |0 # FILE SEPARATOR
-<U001D> \x1D |0 # GROUP SEPARATOR
-<U001E> \x1E |0 # RECORD SEPARATOR
-<U001F> \x1F |0 # UNIT SEPARATOR
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002A> \x2A |0 # ASTERISK
-<U002B> \x2B |0 # PLUS SIGN
-<U002C> \x2C |0 # COMMA
-<U002D> \x2D |0 # HYPHEN-MINUS
-<U002E> \x2E |0 # FULL STOP
-<U002F> \x2F |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003A> \x3A |0 # COLON
-<U003B> \x3B |0 # SEMICOLON
-<U003C> \x3C |0 # LESS-THAN SIGN
-<U003D> \x3D |0 # EQUALS SIGN
-<U003E> \x3E |0 # GREATER-THAN SIGN
-<U003F> \x3F |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004A> \x4A |0 # LATIN CAPITAL LETTER J
-<U004B> \x4B |0 # LATIN CAPITAL LETTER K
-<U004C> \x4C |0 # LATIN CAPITAL LETTER L
-<U004D> \x4D |0 # LATIN CAPITAL LETTER M
-<U004E> \x4E |0 # LATIN CAPITAL LETTER N
-<U004F> \x4F |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005A> \x5A |0 # LATIN CAPITAL LETTER Z
-<U005B> \x5B |0 # LEFT SQUARE BRACKET
-<U005C> \x5C |0 # REVERSE SOLIDUS
-<U005D> \x5D |0 # RIGHT SQUARE BRACKET
-<U005E> \x5E |0 # CIRCUMFLEX ACCENT
-<U005F> \x5F |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006A> \x6A |0 # LATIN SMALL LETTER J
-<U006B> \x6B |0 # LATIN SMALL LETTER K
-<U006C> \x6C |0 # LATIN SMALL LETTER L
-<U006D> \x6D |0 # LATIN SMALL LETTER M
-<U006E> \x6E |0 # LATIN SMALL LETTER N
-<U006F> \x6F |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007A> \x7A |0 # LATIN SMALL LETTER Z
-<U007B> \x7B |0 # LEFT CURLY BRACKET
-<U007C> \x7C |0 # VERTICAL LINE
-<U007D> \x7D |0 # RIGHT CURLY BRACKET
-<U007E> \x7E |0 # TILDE
-<U007F> \x7F |0 # DELETE
-<U00A0> \x9A |0 # NO-BREAK SPACE
-<U00A9> \xBF |0 # COPYRIGHT SIGN
-<U00B0> \x9C |0 # DEGREE SIGN
-<U00B2> \x9D |0 # SUPERSCRIPT TWO
-<U00B7> \x9E |0 # MIDDLE DOT
-<U00F7> \x9F |0 # DIVISION SIGN
-<U0401> \xB3 |0 # CYRILLIC CAPITAL LETTER IO
-<U0410> \xE1 |0 # CYRILLIC CAPITAL LETTER A
-<U0411> \xE2 |0 # CYRILLIC CAPITAL LETTER BE
-<U0412> \xF7 |0 # CYRILLIC CAPITAL LETTER VE
-<U0413> \xE7 |0 # CYRILLIC CAPITAL LETTER GHE
-<U0414> \xE4 |0 # CYRILLIC CAPITAL LETTER DE
-<U0415> \xE5 |0 # CYRILLIC CAPITAL LETTER IE
-<U0416> \xF6 |0 # CYRILLIC CAPITAL LETTER ZHE
-<U0417> \xFA |0 # CYRILLIC CAPITAL LETTER ZE
-<U0418> \xE9 |0 # CYRILLIC CAPITAL LETTER I
-<U0419> \xEA |0 # CYRILLIC CAPITAL LETTER SHORT I
-<U041A> \xEB |0 # CYRILLIC CAPITAL LETTER KA
-<U041B> \xEC |0 # CYRILLIC CAPITAL LETTER EL
-<U041C> \xED |0 # CYRILLIC CAPITAL LETTER EM
-<U041D> \xEE |0 # CYRILLIC CAPITAL LETTER EN
-<U041E> \xEF |0 # CYRILLIC CAPITAL LETTER O
-<U041F> \xF0 |0 # CYRILLIC CAPITAL LETTER PE
-<U0420> \xF2 |0 # CYRILLIC CAPITAL LETTER ER
-<U0421> \xF3 |0 # CYRILLIC CAPITAL LETTER ES
-<U0422> \xF4 |0 # CYRILLIC CAPITAL LETTER TE
-<U0423> \xF5 |0 # CYRILLIC CAPITAL LETTER U
-<U0424> \xE6 |0 # CYRILLIC CAPITAL LETTER EF
-<U0425> \xE8 |0 # CYRILLIC CAPITAL LETTER HA
-<U0426> \xE3 |0 # CYRILLIC CAPITAL LETTER TSE
-<U0427> \xFE |0 # CYRILLIC CAPITAL LETTER CHE
-<U0428> \xFB |0 # CYRILLIC CAPITAL LETTER SHA
-<U0429> \xFD |0 # CYRILLIC CAPITAL LETTER SHCHA
-<U042A> \xFF |0 # CYRILLIC CAPITAL LETTER HARD SIGN
-<U042B> \xF9 |0 # CYRILLIC CAPITAL LETTER YERU
-<U042C> \xF8 |0 # CYRILLIC CAPITAL LETTER SOFT SIGN
-<U042D> \xFC |0 # CYRILLIC CAPITAL LETTER E
-<U042E> \xE0 |0 # CYRILLIC CAPITAL LETTER YU
-<U042F> \xF1 |0 # CYRILLIC CAPITAL LETTER YA
-<U0430> \xC1 |0 # CYRILLIC SMALL LETTER A
-<U0431> \xC2 |0 # CYRILLIC SMALL LETTER BE
-<U0432> \xD7 |0 # CYRILLIC SMALL LETTER VE
-<U0433> \xC7 |0 # CYRILLIC SMALL LETTER GHE
-<U0434> \xC4 |0 # CYRILLIC SMALL LETTER DE
-<U0435> \xC5 |0 # CYRILLIC SMALL LETTER IE
-<U0436> \xD6 |0 # CYRILLIC SMALL LETTER ZHE
-<U0437> \xDA |0 # CYRILLIC SMALL LETTER ZE
-<U0438> \xC9 |0 # CYRILLIC SMALL LETTER I
-<U0439> \xCA |0 # CYRILLIC SMALL LETTER SHORT I
-<U043A> \xCB |0 # CYRILLIC SMALL LETTER KA
-<U043B> \xCC |0 # CYRILLIC SMALL LETTER EL
-<U043C> \xCD |0 # CYRILLIC SMALL LETTER EM
-<U043D> \xCE |0 # CYRILLIC SMALL LETTER EN
-<U043E> \xCF |0 # CYRILLIC SMALL LETTER O
-<U043F> \xD0 |0 # CYRILLIC SMALL LETTER PE
-<U0440> \xD2 |0 # CYRILLIC SMALL LETTER ER
-<U0441> \xD3 |0 # CYRILLIC SMALL LETTER ES
-<U0442> \xD4 |0 # CYRILLIC SMALL LETTER TE
-<U0443> \xD5 |0 # CYRILLIC SMALL LETTER U
-<U0444> \xC6 |0 # CYRILLIC SMALL LETTER EF
-<U0445> \xC8 |0 # CYRILLIC SMALL LETTER HA
-<U0446> \xC3 |0 # CYRILLIC SMALL LETTER TSE
-<U0447> \xDE |0 # CYRILLIC SMALL LETTER CHE
-<U0448> \xDB |0 # CYRILLIC SMALL LETTER SHA
-<U0449> \xDD |0 # CYRILLIC SMALL LETTER SHCHA
-<U044A> \xDF |0 # CYRILLIC SMALL LETTER HARD SIGN
-<U044B> \xD9 |0 # CYRILLIC SMALL LETTER YERU
-<U044C> \xD8 |0 # CYRILLIC SMALL LETTER SOFT SIGN
-<U044D> \xDC |0 # CYRILLIC SMALL LETTER E
-<U044E> \xC0 |0 # CYRILLIC SMALL LETTER YU
-<U044F> \xD1 |0 # CYRILLIC SMALL LETTER YA
-<U0451> \xA3 |0 # CYRILLIC SMALL LETTER IO
-<U2219> \x95 |0 # BULLET OPERATOR
-<U221A> \x96 |0 # SQUARE ROOT
-<U2248> \x97 |0 # ALMOST EQUAL TO
-<U2264> \x98 |0 # LESS-THAN OR EQUAL TO
-<U2265> \x99 |0 # GREATER-THAN OR EQUAL TO
-<U2320> \x93 |0 # TOP HALF INTEGRAL
-<U2321> \x9B |0 # BOTTOM HALF INTEGRAL
-<U2500> \x80 |0 # BOX DRAWINGS LIGHT HORIZONTAL
-<U2502> \x81 |0 # BOX DRAWINGS LIGHT VERTICAL
-<U250C> \x82 |0 # BOX DRAWINGS LIGHT DOWN AND RIGHT
-<U2510> \x83 |0 # BOX DRAWINGS LIGHT DOWN AND LEFT
-<U2514> \x84 |0 # BOX DRAWINGS LIGHT UP AND RIGHT
-<U2518> \x85 |0 # BOX DRAWINGS LIGHT UP AND LEFT
-<U251C> \x86 |0 # BOX DRAWINGS LIGHT VERTICAL AND RIGHT
-<U2524> \x87 |0 # BOX DRAWINGS LIGHT VERTICAL AND LEFT
-<U252C> \x88 |0 # BOX DRAWINGS LIGHT DOWN AND HORIZONTAL
-<U2534> \x89 |0 # BOX DRAWINGS LIGHT UP AND HORIZONTAL
-<U253C> \x8A |0 # BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
-<U2550> \xA0 |0 # BOX DRAWINGS DOUBLE HORIZONTAL
-<U2551> \xA1 |0 # BOX DRAWINGS DOUBLE VERTICAL
-<U2552> \xA2 |0 # BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE
-<U2553> \xA4 |0 # BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE
-<U2554> \xA5 |0 # BOX DRAWINGS DOUBLE DOWN AND RIGHT
-<U2555> \xA6 |0 # BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE
-<U2556> \xA7 |0 # BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE
-<U2557> \xA8 |0 # BOX DRAWINGS DOUBLE DOWN AND LEFT
-<U2558> \xA9 |0 # BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE
-<U2559> \xAA |0 # BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE
-<U255A> \xAB |0 # BOX DRAWINGS DOUBLE UP AND RIGHT
-<U255B> \xAC |0 # BOX DRAWINGS UP SINGLE AND LEFT DOUBLE
-<U255C> \xAD |0 # BOX DRAWINGS UP DOUBLE AND LEFT SINGLE
-<U255D> \xAE |0 # BOX DRAWINGS DOUBLE UP AND LEFT
-<U255E> \xAF |0 # BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE
-<U255F> \xB0 |0 # BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE
-<U2560> \xB1 |0 # BOX DRAWINGS DOUBLE VERTICAL AND RIGHT
-<U2561> \xB2 |0 # BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE
-<U2562> \xB4 |0 # BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE
-<U2563> \xB5 |0 # BOX DRAWINGS DOUBLE VERTICAL AND LEFT
-<U2564> \xB6 |0 # BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE
-<U2565> \xB7 |0 # BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE
-<U2566> \xB8 |0 # BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL
-<U2567> \xB9 |0 # BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE
-<U2568> \xBA |0 # BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE
-<U2569> \xBB |0 # BOX DRAWINGS DOUBLE UP AND HORIZONTAL
-<U256A> \xBC |0 # BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE
-<U256B> \xBD |0 # BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE
-<U256C> \xBE |0 # BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL
-<U2580> \x8B |0 # UPPER HALF BLOCK
-<U2584> \x8C |0 # LOWER HALF BLOCK
-<U2588> \x8D |0 # FULL BLOCK
-<U258C> \x8E |0 # LEFT HALF BLOCK
-<U2590> \x8F |0 # RIGHT HALF BLOCK
-<U2591> \x90 |0 # LIGHT SHADE
-<U2592> \x91 |0 # MEDIUM SHADE
-<U2593> \x92 |0 # DARK SHADE
-<U25A0> \x94 |0 # BLACK SQUARE
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/koi8-u.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/koi8-u.ucm
deleted file mode 100644
index 9b34929..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/koi8-u.ucm
+++ /dev/null
@@ -1,268 +0,0 @@
-#
-# $Id: koi8-u.ucm,v 2.0 2004/05/16 20:55:26 dankogai Exp $
-#
-# Written $Id: koi8-u.ucm,v 2.0 2004/05/16 20:55:26 dankogai Exp $
-# ./compile -n koi8-u -o Encode/koi8-u.ucm Encode/koi8-u.enc
-<code_set_name> "koi8-u"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3F
-#
-CHARMAP
-<U0000> \x00 |0 # <control>
-<U0001> \x01 |0 # <control>
-<U0002> \x02 |0 # <control>
-<U0003> \x03 |0 # <control>
-<U0004> \x04 |0 # <control>
-<U0005> \x05 |0 # <control>
-<U0006> \x06 |0 # <control>
-<U0007> \x07 |0 # <control>
-<U0008> \x08 |0 # <control>
-<U0009> \x09 |0 # <control>
-<U000A> \x0A |0 # <control>
-<U000B> \x0B |0 # <control>
-<U000C> \x0C |0 # <control>
-<U000D> \x0D |0 # <control>
-<U000E> \x0E |0 # <control>
-<U000F> \x0F |0 # <control>
-<U0010> \x10 |0 # <control>
-<U0011> \x11 |0 # <control>
-<U0012> \x12 |0 # <control>
-<U0013> \x13 |0 # <control>
-<U0014> \x14 |0 # <control>
-<U0015> \x15 |0 # <control>
-<U0016> \x16 |0 # <control>
-<U0017> \x17 |0 # <control>
-<U0018> \x18 |0 # <control>
-<U0019> \x19 |0 # <control>
-<U001A> \x1A |0 # <control>
-<U001B> \x1B |0 # <control>
-<U001C> \x1C |0 # <control>
-<U001D> \x1D |0 # <control>
-<U001E> \x1E |0 # <control>
-<U001F> \x1F |0 # <control>
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002A> \x2A |0 # ASTERISK
-<U002B> \x2B |0 # PLUS SIGN
-<U002C> \x2C |0 # COMMA
-<U002D> \x2D |0 # HYPHEN-MINUS
-<U002E> \x2E |0 # FULL STOP
-<U002F> \x2F |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003A> \x3A |0 # COLON
-<U003B> \x3B |0 # SEMICOLON
-<U003C> \x3C |0 # LESS-THAN SIGN
-<U003D> \x3D |0 # EQUALS SIGN
-<U003E> \x3E |0 # GREATER-THAN SIGN
-<U003F> \x3F |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004A> \x4A |0 # LATIN CAPITAL LETTER J
-<U004B> \x4B |0 # LATIN CAPITAL LETTER K
-<U004C> \x4C |0 # LATIN CAPITAL LETTER L
-<U004D> \x4D |0 # LATIN CAPITAL LETTER M
-<U004E> \x4E |0 # LATIN CAPITAL LETTER N
-<U004F> \x4F |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005A> \x5A |0 # LATIN CAPITAL LETTER Z
-<U005B> \x5B |0 # LEFT SQUARE BRACKET
-<U005C> \x5C |0 # REVERSE SOLIDUS
-<U005D> \x5D |0 # RIGHT SQUARE BRACKET
-<U005E> \x5E |0 # CIRCUMFLEX ACCENT
-<U005F> \x5F |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006A> \x6A |0 # LATIN SMALL LETTER J
-<U006B> \x6B |0 # LATIN SMALL LETTER K
-<U006C> \x6C |0 # LATIN SMALL LETTER L
-<U006D> \x6D |0 # LATIN SMALL LETTER M
-<U006E> \x6E |0 # LATIN SMALL LETTER N
-<U006F> \x6F |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007A> \x7A |0 # LATIN SMALL LETTER Z
-<U007B> \x7B |0 # LEFT CURLY BRACKET
-<U007C> \x7C |0 # VERTICAL LINE
-<U007D> \x7D |0 # RIGHT CURLY BRACKET
-<U007E> \x7E |0 # TILDE
-<U007F> \x7F |0 # <control>
-<U2500> \x80 |0 # BOX DRAWINGS LIGHT HORIZONTAL
-<U2502> \x81 |0 # BOX DRAWINGS LIGHT VERTICAL
-<U250C> \x82 |0 # BOX DRAWINGS LIGHT DOWN AND RIGHT
-<U2510> \x83 |0 # BOX DRAWINGS LIGHT DOWN AND LEFT
-<U2514> \x84 |0 # BOX DRAWINGS LIGHT UP AND RIGHT
-<U2518> \x85 |0 # BOX DRAWINGS LIGHT UP AND LEFT
-<U251C> \x86 |0 # BOX DRAWINGS LIGHT VERTICAL AND RIGHT
-<U2524> \x87 |0 # BOX DRAWINGS LIGHT VERTICAL AND LEFT
-<U252C> \x88 |0 # BOX DRAWINGS LIGHT DOWN AND HORIZONTAL
-<U2534> \x89 |0 # BOX DRAWINGS LIGHT UP AND HORIZONTAL
-<U253C> \x8A |0 # BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
-<U2580> \x8B |0 # UPPER HALF BLOCK
-<U2584> \x8C |0 # LOWER HALF BLOCK
-<U2588> \x8D |0 # FULL BLOCK
-<U258C> \x8E |0 # LEFT HALF BLOCK
-<U2590> \x8F |0 # RIGHT HALF BLOCK
-<U2591> \x90 |0 # LIGHT SHADE
-<U2592> \x91 |0 # MEDIUM SHADE
-<U2593> \x92 |0 # DARK SHADE
-<U2320> \x93 |0 # TOP HALF INTEGRAL
-<U25A0> \x94 |0 # BLACK SQUARE
-<U2022> \x95 |0 # BULLET
-<U221A> \x96 |0 # SQUARE ROOT
-<U2248> \x97 |0 # ALMOST EQUAL TO
-<U2264> \x98 |0 # LESS-THAN OR EQUAL TO
-<U2265> \x99 |0 # GREATER-THAN OR EQUAL TO
-<U00A0> \x9A |0 # NO-BREAK SPACE
-<U2321> \x9B |0 # BOTTOM HALF INTEGRAL
-<U00B0> \x9C |0 # DEGREE SIGN
-<U00B2> \x9D |0 # SUPERSCRIPT TWO
-<U00B7> \x9E |0 # MIDDLE DOT
-<U00F7> \x9F |0 # DIVISION SIGN
-<U2550> \xA0 |0 # BOX DRAWINGS DOUBLE HORIZONTAL
-<U2551> \xA1 |0 # BOX DRAWINGS DOUBLE VERTICAL
-<U2552> \xA2 |0 # BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE
-<U0451> \xA3 |0 # CYRILLIC SMALL LETTER IO
-<U0454> \xA4 |0 # CYRILLIC SMALL LETTER UKRAINIAN IE
-<U2554> \xA5 |0 # BOX DRAWINGS DOUBLE DOWN AND RIGHT
-<U0456> \xA6 |0 # CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I
-<U0457> \xA7 |0 # CYRILLIC SMALL LETTER YI
-<U2557> \xA8 |0 # BOX DRAWINGS DOUBLE DOWN AND LEFT
-<U2558> \xA9 |0 # BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE
-<U2559> \xAA |0 # BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE
-<U255A> \xAB |0 # BOX DRAWINGS DOUBLE UP AND RIGHT
-<U255B> \xAC |0 # BOX DRAWINGS UP SINGLE AND LEFT DOUBLE
-<U0491> \xAD |0 # CYRILLIC SMALL LETTER GHE WITH UPTURN
-<U255D> \xAE |0 # BOX DRAWINGS DOUBLE UP AND LEFT
-<U255E> \xAF |0 # BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE
-<U255F> \xB0 |0 # BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE
-<U2560> \xB1 |0 # BOX DRAWINGS DOUBLE VERTICAL AND RIGHT
-<U2561> \xB2 |0 # BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE
-<U0401> \xB3 |0 # CYRILLIC CAPITAL LETTER IO
-<U0404> \xB4 |0 # CYRILLIC CAPITAL LETTER UKRAINIAN IE
-<U2563> \xB5 |0 # BOX DRAWINGS DOUBLE VERTICAL AND LEFT
-<U0406> \xB6 |0 # CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I
-<U0407> \xB7 |0 # CYRILLIC CAPITAL LETTER YI
-<U2566> \xB8 |0 # BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL
-<U2567> \xB9 |0 # BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE
-<U2568> \xBA |0 # BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE
-<U2569> \xBB |0 # BOX DRAWINGS DOUBLE UP AND HORIZONTAL
-<U256A> \xBC |0 # BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE
-<U0490> \xBD |0 # CYRILLIC CAPITAL LETTER GHE WITH UPTURN
-<U256C> \xBE |0 # BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL
-<U00A9> \xBF |0 # COPYRIGHT SIGN
-<U044E> \xC0 |0 # CYRILLIC SMALL LETTER YU
-<U0430> \xC1 |0 # CYRILLIC SMALL LETTER A
-<U0431> \xC2 |0 # CYRILLIC SMALL LETTER BE
-<U0446> \xC3 |0 # CYRILLIC SMALL LETTER TSE
-<U0434> \xC4 |0 # CYRILLIC SMALL LETTER DE
-<U0435> \xC5 |0 # CYRILLIC SMALL LETTER IE
-<U0444> \xC6 |0 # CYRILLIC SMALL LETTER EF
-<U0433> \xC7 |0 # CYRILLIC SMALL LETTER GHE
-<U0445> \xC8 |0 # CYRILLIC SMALL LETTER HA
-<U0438> \xC9 |0 # CYRILLIC SMALL LETTER I
-<U0439> \xCA |0 # CYRILLIC SMALL LETTER SHORT I
-<U043A> \xCB |0 # CYRILLIC SMALL LETTER KA
-<U043B> \xCC |0 # CYRILLIC SMALL LETTER EL
-<U043C> \xCD |0 # CYRILLIC SMALL LETTER EM
-<U043D> \xCE |0 # CYRILLIC SMALL LETTER EN
-<U043E> \xCF |0 # CYRILLIC SMALL LETTER O
-<U043F> \xD0 |0 # CYRILLIC SMALL LETTER PE
-<U044F> \xD1 |0 # CYRILLIC SMALL LETTER YA
-<U0440> \xD2 |0 # CYRILLIC SMALL LETTER ER
-<U0441> \xD3 |0 # CYRILLIC SMALL LETTER ES
-<U0442> \xD4 |0 # CYRILLIC SMALL LETTER TE
-<U0443> \xD5 |0 # CYRILLIC SMALL LETTER U
-<U0436> \xD6 |0 # CYRILLIC SMALL LETTER ZHE
-<U0432> \xD7 |0 # CYRILLIC SMALL LETTER VE
-<U044C> \xD8 |0 # CYRILLIC SMALL LETTER SOFT SIGN
-<U044B> \xD9 |0 # CYRILLIC SMALL LETTER YERU
-<U0437> \xDA |0 # CYRILLIC SMALL LETTER ZE
-<U0448> \xDB |0 # CYRILLIC SMALL LETTER SHA
-<U044D> \xDC |0 # CYRILLIC SMALL LETTER E
-<U0449> \xDD |0 # CYRILLIC SMALL LETTER SHCHA
-<U0447> \xDE |0 # CYRILLIC SMALL LETTER CHE
-<U044A> \xDF |0 # CYRILLIC SMALL LETTER HARD SIGN
-<U042E> \xE0 |0 # CYRILLIC CAPITAL LETTER YU
-<U0410> \xE1 |0 # CYRILLIC CAPITAL LETTER A
-<U0411> \xE2 |0 # CYRILLIC CAPITAL LETTER BE
-<U0426> \xE3 |0 # CYRILLIC CAPITAL LETTER TSE
-<U0414> \xE4 |0 # CYRILLIC CAPITAL LETTER DE
-<U0415> \xE5 |0 # CYRILLIC CAPITAL LETTER IE
-<U0424> \xE6 |0 # CYRILLIC CAPITAL LETTER EF
-<U0413> \xE7 |0 # CYRILLIC CAPITAL LETTER GHE
-<U0425> \xE8 |0 # CYRILLIC CAPITAL LETTER HA
-<U0418> \xE9 |0 # CYRILLIC CAPITAL LETTER I
-<U0419> \xEA |0 # CYRILLIC CAPITAL LETTER SHORT I
-<U041A> \xEB |0 # CYRILLIC CAPITAL LETTER KA
-<U041B> \xEC |0 # CYRILLIC CAPITAL LETTER EL
-<U041C> \xED |0 # CYRILLIC CAPITAL LETTER EM
-<U041D> \xEE |0 # CYRILLIC CAPITAL LETTER EN
-<U041E> \xEF |0 # CYRILLIC CAPITAL LETTER O
-<U041F> \xF0 |0 # CYRILLIC CAPITAL LETTER PE
-<U042F> \xF1 |0 # CYRILLIC CAPITAL LETTER YA
-<U0420> \xF2 |0 # CYRILLIC CAPITAL LETTER ER
-<U0421> \xF3 |0 # CYRILLIC CAPITAL LETTER ES
-<U0422> \xF4 |0 # CYRILLIC CAPITAL LETTER TE
-<U0423> \xF5 |0 # CYRILLIC CAPITAL LETTER U
-<U0416> \xF6 |0 # CYRILLIC CAPITAL LETTER ZHE
-<U0412> \xF7 |0 # CYRILLIC CAPITAL LETTER VE
-<U042C> \xF8 |0 # CYRILLIC CAPITAL LETTER SOFT SIGN
-<U042B> \xF9 |0 # CYRILLIC CAPITAL LETTER YERU
-<U0417> \xFA |0 # CYRILLIC CAPITAL LETTER ZE
-<U0428> \xFB |0 # CYRILLIC CAPITAL LETTER SHA
-<U042D> \xFC |0 # CYRILLIC CAPITAL LETTER E
-<U0429> \xFD |0 # CYRILLIC CAPITAL LETTER SHCHA
-<U0427> \xFE |0 # CYRILLIC CAPITAL LETTER CHE
-<U042A> \xFF |0 # CYRILLIC CAPITAL LETTER HARD SIGN
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/macArabic.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/macArabic.ucm
deleted file mode 100644
index 584fd6e..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/macArabic.ucm
+++ /dev/null
@@ -1,241 +0,0 @@
-#
-# $Id: macArabic.ucm,v 2.1 2004/10/22 06:23:11 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/VENDORS/APPLE/ARABIC.TXT
-#
-<code_set_name> "MacArabic"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3F
-CHARMAP
-<U0000> \x00 |0 # <control>
-<U0001> \x01 |0 # <control>
-<U0002> \x02 |0 # <control>
-<U0003> \x03 |0 # <control>
-<U0004> \x04 |0 # <control>
-<U0005> \x05 |0 # <control>
-<U0006> \x06 |0 # <control>
-<U0007> \x07 |0 # <control>
-<U0008> \x08 |0 # <control>
-<U0009> \x09 |0 # <control>
-<U000A> \x0A |0 # <control>
-<U000B> \x0B |0 # <control>
-<U000C> \x0C |0 # <control>
-<U000D> \x0D |0 # <control>
-<U000E> \x0E |0 # <control>
-<U000F> \x0F |0 # <control>
-<U0010> \x10 |0 # <control>
-<U0011> \x11 |0 # <control>
-<U0012> \x12 |0 # <control>
-<U0013> \x13 |0 # <control>
-<U0014> \x14 |0 # <control>
-<U0015> \x15 |0 # <control>
-<U0016> \x16 |0 # <control>
-<U0017> \x17 |0 # <control>
-<U0018> \x18 |0 # <control>
-<U0019> \x19 |0 # <control>
-<U001A> \x1A |0 # <control>
-<U001B> \x1B |0 # <control>
-<U001C> \x1C |0 # <control>
-<U001D> \x1D |0 # <control>
-<U001E> \x1E |0 # <control>
-<U001F> \x1F |0 # <control>
-<U0020> \xA0 |0 # SPACE, right-left
-<U0021> \xA1 |0 # EXCLAMATION MARK, right-left
-<U0022> \xA2 |0 # QUOTATION MARK, right-left
-<U0023> \xA3 |0 # NUMBER SIGN, right-left
-<U0024> \xA4 |0 # DOLLAR SIGN, right-left
-<U0025> \x25 |0 # PERCENT SIGN, left-right
-<U0026> \xA6 |0 # AMPERSAND, right-left
-<U0027> \xA7 |0 # APOSTROPHE, right-left
-<U0028> \xA8 |0 # LEFT PARENTHESIS, right-left
-<U0029> \xA9 |0 # RIGHT PARENTHESIS, right-left
-<U002A> \xAA |0 # ASTERISK, right-left
-<U002B> \xAB |0 # PLUS SIGN, right-left
-<U002C> \x2C |0 # COMMA, left-right; in Arabic-script context, displayed as 0x066C ARABIC THOUSANDS SEPARATOR
-<U002D> \xAD |0 # HYPHEN-MINUS, right-left
-<U002E> \xAE |0 # FULL STOP, right-left
-<U002F> \xAF |0 # SOLIDUS, right-left
-<U0030> \x30 |0 # DIGIT ZERO; in Arabic-script context, displayed as 0x0660 ARABIC-INDIC DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE; in Arabic-script context, displayed as 0x0661 ARABIC-INDIC DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO; in Arabic-script context, displayed as 0x0662 ARABIC-INDIC DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE; in Arabic-script context, displayed as 0x0663 ARABIC-INDIC DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR; in Arabic-script context, displayed as 0x0664 ARABIC-INDIC DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE; in Arabic-script context, displayed as 0x0665 ARABIC-INDIC DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX; in Arabic-script context, displayed as 0x0666 ARABIC-INDIC DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN; in Arabic-script context, displayed as 0x0667 ARABIC-INDIC DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT; in Arabic-script context, displayed as 0x0668 ARABIC-INDIC DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE; in Arabic-script context, displayed as 0x0669 ARABIC-INDIC DIGIT NINE
-<U003A> \xBA |0 # COLON, right-left
-<U003B> \x3B |0 # SEMICOLON, left-right
-<U003C> \xBC |0 # LESS-THAN SIGN, right-left
-<U003D> \xBD |0 # EQUALS SIGN, right-left
-<U003E> \xBE |0 # GREATER-THAN SIGN, right-left
-<U003F> \x3F |0 # QUESTION MARK, left-right
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004A> \x4A |0 # LATIN CAPITAL LETTER J
-<U004B> \x4B |0 # LATIN CAPITAL LETTER K
-<U004C> \x4C |0 # LATIN CAPITAL LETTER L
-<U004D> \x4D |0 # LATIN CAPITAL LETTER M
-<U004E> \x4E |0 # LATIN CAPITAL LETTER N
-<U004F> \x4F |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005A> \x5A |0 # LATIN CAPITAL LETTER Z
-<U005B> \xDB |0 # LEFT SQUARE BRACKET, right-left
-<U005C> \xDC |0 # REVERSE SOLIDUS, right-left
-<U005D> \xDD |0 # RIGHT SQUARE BRACKET, right-left
-<U005E> \xDE |0 # CIRCUMFLEX ACCENT, right-left
-<U005F> \xDF |0 # LOW LINE, right-left
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006A> \x6A |0 # LATIN SMALL LETTER J
-<U006B> \x6B |0 # LATIN SMALL LETTER K
-<U006C> \x6C |0 # LATIN SMALL LETTER L
-<U006D> \x6D |0 # LATIN SMALL LETTER M
-<U006E> \x6E |0 # LATIN SMALL LETTER N
-<U006F> \x6F |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007A> \x7A |0 # LATIN SMALL LETTER Z
-<U007B> \xFB |0 # LEFT CURLY BRACKET, right-left
-<U007C> \xFC |0 # VERTICAL LINE, right-left
-<U007D> \xFD |0 # RIGHT CURLY BRACKET, right-left
-<U007E> \x7E |0 # TILDE
-<U00A0> \x81 |0 # NO-BREAK SPACE, right-left
-<U00AB> \x8C |0 # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK, right-left
-<U00BB> \x98 |0 # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK, right-left
-<U00C4> \x80 |0 # LATIN CAPITAL LETTER A WITH DIAERESIS
-<U00C7> \x82 |0 # LATIN CAPITAL LETTER C WITH CEDILLA
-<U00C9> \x83 |0 # LATIN CAPITAL LETTER E WITH ACUTE
-<U00D1> \x84 |0 # LATIN CAPITAL LETTER N WITH TILDE
-<U00D6> \x85 |0 # LATIN CAPITAL LETTER O WITH DIAERESIS
-<U00DC> \x86 |0 # LATIN CAPITAL LETTER U WITH DIAERESIS
-<U00E0> \x88 |0 # LATIN SMALL LETTER A WITH GRAVE
-<U00E1> \x87 |0 # LATIN SMALL LETTER A WITH ACUTE
-<U00E2> \x89 |0 # LATIN SMALL LETTER A WITH CIRCUMFLEX
-<U00E4> \x8A |0 # LATIN SMALL LETTER A WITH DIAERESIS
-<U00E7> \x8D |0 # LATIN SMALL LETTER C WITH CEDILLA
-<U00E8> \x8F |0 # LATIN SMALL LETTER E WITH GRAVE
-<U00E9> \x8E |0 # LATIN SMALL LETTER E WITH ACUTE
-<U00EA> \x90 |0 # LATIN SMALL LETTER E WITH CIRCUMFLEX
-<U00EB> \x91 |0 # LATIN SMALL LETTER E WITH DIAERESIS
-<U00ED> \x92 |0 # LATIN SMALL LETTER I WITH ACUTE
-<U00EE> \x94 |0 # LATIN SMALL LETTER I WITH CIRCUMFLEX
-<U00EF> \x95 |0 # LATIN SMALL LETTER I WITH DIAERESIS
-<U00F1> \x96 |0 # LATIN SMALL LETTER N WITH TILDE
-<U00F3> \x97 |0 # LATIN SMALL LETTER O WITH ACUTE
-<U00F4> \x99 |0 # LATIN SMALL LETTER O WITH CIRCUMFLEX
-<U00F6> \x9A |0 # LATIN SMALL LETTER O WITH DIAERESIS
-<U00F7> \x9B |0 # DIVISION SIGN, right-left
-<U00F9> \x9D |0 # LATIN SMALL LETTER U WITH GRAVE
-<U00FA> \x9C |0 # LATIN SMALL LETTER U WITH ACUTE
-<U00FB> \x9E |0 # LATIN SMALL LETTER U WITH CIRCUMFLEX
-<U00FC> \x9F |0 # LATIN SMALL LETTER U WITH DIAERESIS
-<U060C> \xAC |0 # ARABIC COMMA
-<U061B> \xBB |0 # ARABIC SEMICOLON
-<U061F> \xBF |0 # ARABIC QUESTION MARK
-<U0621> \xC1 |0 # ARABIC LETTER HAMZA
-<U0622> \xC2 |0 # ARABIC LETTER ALEF WITH MADDA ABOVE
-<U0623> \xC3 |0 # ARABIC LETTER ALEF WITH HAMZA ABOVE
-<U0624> \xC4 |0 # ARABIC LETTER WAW WITH HAMZA ABOVE
-<U0625> \xC5 |0 # ARABIC LETTER ALEF WITH HAMZA BELOW
-<U0626> \xC6 |0 # ARABIC LETTER YEH WITH HAMZA ABOVE
-<U0627> \xC7 |0 # ARABIC LETTER ALEF
-<U0628> \xC8 |0 # ARABIC LETTER BEH
-<U0629> \xC9 |0 # ARABIC LETTER TEH MARBUTA
-<U062A> \xCA |0 # ARABIC LETTER TEH
-<U062B> \xCB |0 # ARABIC LETTER THEH
-<U062C> \xCC |0 # ARABIC LETTER JEEM
-<U062D> \xCD |0 # ARABIC LETTER HAH
-<U062E> \xCE |0 # ARABIC LETTER KHAH
-<U062F> \xCF |0 # ARABIC LETTER DAL
-<U0630> \xD0 |0 # ARABIC LETTER THAL
-<U0631> \xD1 |0 # ARABIC LETTER REH
-<U0632> \xD2 |0 # ARABIC LETTER ZAIN
-<U0633> \xD3 |0 # ARABIC LETTER SEEN
-<U0634> \xD4 |0 # ARABIC LETTER SHEEN
-<U0635> \xD5 |0 # ARABIC LETTER SAD
-<U0636> \xD6 |0 # ARABIC LETTER DAD
-<U0637> \xD7 |0 # ARABIC LETTER TAH
-<U0638> \xD8 |0 # ARABIC LETTER ZAH
-<U0639> \xD9 |0 # ARABIC LETTER AIN
-<U063A> \xDA |0 # ARABIC LETTER GHAIN
-<U0640> \xE0 |0 # ARABIC TATWEEL
-<U0641> \xE1 |0 # ARABIC LETTER FEH
-<U0642> \xE2 |0 # ARABIC LETTER QAF
-<U0643> \xE3 |0 # ARABIC LETTER KAF
-<U0644> \xE4 |0 # ARABIC LETTER LAM
-<U0645> \xE5 |0 # ARABIC LETTER MEEM
-<U0646> \xE6 |0 # ARABIC LETTER NOON
-<U0647> \xE7 |0 # ARABIC LETTER HEH
-<U0648> \xE8 |0 # ARABIC LETTER WAW
-<U0649> \xE9 |0 # ARABIC LETTER ALEF MAKSURA
-<U064A> \xEA |0 # ARABIC LETTER YEH
-<U064B> \xEB |0 # ARABIC FATHATAN
-<U064C> \xEC |0 # ARABIC DAMMATAN
-<U064D> \xED |0 # ARABIC KASRATAN
-<U064E> \xEE |0 # ARABIC FATHA
-<U064F> \xEF |0 # ARABIC DAMMA
-<U0650> \xF0 |0 # ARABIC KASRA
-<U0651> \xF1 |0 # ARABIC SHADDA
-<U0652> \xF2 |0 # ARABIC SUKUN
-<U0660> \xB0 |0 # ARABIC-INDIC DIGIT ZERO, right-left (need override)
-<U0661> \xB1 |0 # ARABIC-INDIC DIGIT ONE, right-left (need override)
-<U0662> \xB2 |0 # ARABIC-INDIC DIGIT TWO, right-left (need override)
-<U0663> \xB3 |0 # ARABIC-INDIC DIGIT THREE, right-left (need override)
-<U0664> \xB4 |0 # ARABIC-INDIC DIGIT FOUR, right-left (need override)
-<U0665> \xB5 |0 # ARABIC-INDIC DIGIT FIVE, right-left (need override)
-<U0666> \xB6 |0 # ARABIC-INDIC DIGIT SIX, right-left (need override)
-<U0667> \xB7 |0 # ARABIC-INDIC DIGIT SEVEN, right-left (need override)
-<U0668> \xB8 |0 # ARABIC-INDIC DIGIT EIGHT, right-left (need override)
-<U0669> \xB9 |0 # ARABIC-INDIC DIGIT NINE, right-left (need override)
-<U066A> \xA5 |0 # ARABIC PERCENT SIGN
-<U0679> \xF4 |0 # ARABIC LETTER TTEH
-<U067E> \xF3 |0 # ARABIC LETTER PEH
-<U0686> \xF5 |0 # ARABIC LETTER TCHEH
-<U0688> \xF9 |0 # ARABIC LETTER DDAL
-<U0691> \xFA |0 # ARABIC LETTER RREH
-<U0698> \xFE |0 # ARABIC LETTER JEH
-<U06A4> \xF7 |0 # ARABIC LETTER VEH
-<U06AF> \xF8 |0 # ARABIC LETTER GAF
-<U06BA> \x8B |0 # ARABIC LETTER NOON GHUNNA
-<U06D2> \xFF |0 # ARABIC LETTER YEH BARREE
-<U06D5> \xF6 |0 # ARABIC LETTER AE
-<U2026> \x93 |0 # HORIZONTAL ELLIPSIS, right-left
-<U274A> \xC0 |0 # EIGHT TEARDROP-SPOKED PROPELLER ASTERISK, right-left
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/macCroatian.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/macCroatian.ucm
deleted file mode 100644
index fdd2f0f..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/macCroatian.ucm
+++ /dev/null
@@ -1,267 +0,0 @@
-#
-# $Id: macCroatian.ucm,v 2.0 2004/05/16 20:55:27 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/VENDORS/APPLE/CROATIAN.TXT
-#
-<code_set_name> "MacCroatian"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3F
-CHARMAP
-<U0000> \x00 |0 # <control>
-<U0001> \x01 |0 # <control>
-<U0002> \x02 |0 # <control>
-<U0003> \x03 |0 # <control>
-<U0004> \x04 |0 # <control>
-<U0005> \x05 |0 # <control>
-<U0006> \x06 |0 # <control>
-<U0007> \x07 |0 # <control>
-<U0008> \x08 |0 # <control>
-<U0009> \x09 |0 # <control>
-<U000A> \x0A |0 # <control>
-<U000B> \x0B |0 # <control>
-<U000C> \x0C |0 # <control>
-<U000D> \x0D |0 # <control>
-<U000E> \x0E |0 # <control>
-<U000F> \x0F |0 # <control>
-<U0010> \x10 |0 # <control>
-<U0011> \x11 |0 # <control>
-<U0012> \x12 |0 # <control>
-<U0013> \x13 |0 # <control>
-<U0014> \x14 |0 # <control>
-<U0015> \x15 |0 # <control>
-<U0016> \x16 |0 # <control>
-<U0017> \x17 |0 # <control>
-<U0018> \x18 |0 # <control>
-<U0019> \x19 |0 # <control>
-<U001A> \x1A |0 # <control>
-<U001B> \x1B |0 # <control>
-<U001C> \x1C |0 # <control>
-<U001D> \x1D |0 # <control>
-<U001E> \x1E |0 # <control>
-<U001F> \x1F |0 # <control>
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002A> \x2A |0 # ASTERISK
-<U002B> \x2B |0 # PLUS SIGN
-<U002C> \x2C |0 # COMMA
-<U002D> \x2D |0 # HYPHEN-MINUS
-<U002E> \x2E |0 # FULL STOP
-<U002F> \x2F |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003A> \x3A |0 # COLON
-<U003B> \x3B |0 # SEMICOLON
-<U003C> \x3C |0 # LESS-THAN SIGN
-<U003D> \x3D |0 # EQUALS SIGN
-<U003E> \x3E |0 # GREATER-THAN SIGN
-<U003F> \x3F |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004A> \x4A |0 # LATIN CAPITAL LETTER J
-<U004B> \x4B |0 # LATIN CAPITAL LETTER K
-<U004C> \x4C |0 # LATIN CAPITAL LETTER L
-<U004D> \x4D |0 # LATIN CAPITAL LETTER M
-<U004E> \x4E |0 # LATIN CAPITAL LETTER N
-<U004F> \x4F |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005A> \x5A |0 # LATIN CAPITAL LETTER Z
-<U005B> \x5B |0 # LEFT SQUARE BRACKET
-<U005C> \x5C |0 # REVERSE SOLIDUS
-<U005D> \x5D |0 # RIGHT SQUARE BRACKET
-<U005E> \x5E |0 # CIRCUMFLEX ACCENT
-<U005F> \x5F |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006A> \x6A |0 # LATIN SMALL LETTER J
-<U006B> \x6B |0 # LATIN SMALL LETTER K
-<U006C> \x6C |0 # LATIN SMALL LETTER L
-<U006D> \x6D |0 # LATIN SMALL LETTER M
-<U006E> \x6E |0 # LATIN SMALL LETTER N
-<U006F> \x6F |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007A> \x7A |0 # LATIN SMALL LETTER Z
-<U007B> \x7B |0 # LEFT CURLY BRACKET
-<U007C> \x7C |0 # VERTICAL LINE
-<U007D> \x7D |0 # RIGHT CURLY BRACKET
-<U007E> \x7E |0 # TILDE
-<U00A0> \xCA |0 # NO-BREAK SPACE
-<U00A1> \xC1 |0 # INVERTED EXCLAMATION MARK
-<U00A2> \xA2 |0 # CENT SIGN
-<U00A3> \xA3 |0 # POUND SIGN
-<U00A7> \xA4 |0 # SECTION SIGN
-<U00A8> \xAC |0 # DIAERESIS
-<U00A9> \xD9 |0 # COPYRIGHT SIGN
-<U00AA> \xBB |0 # FEMININE ORDINAL INDICATOR
-<U00AB> \xC7 |0 # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00AC> \xC2 |0 # NOT SIGN
-<U00AE> \xA8 |0 # REGISTERED SIGN
-<U00AF> \xF8 |0 # MACRON
-<U00B0> \xA1 |0 # DEGREE SIGN
-<U00B1> \xB1 |0 # PLUS-MINUS SIGN
-<U00B4> \xAB |0 # ACUTE ACCENT
-<U00B5> \xB5 |0 # MICRO SIGN
-<U00B6> \xA6 |0 # PILCROW SIGN
-<U00B7> \xE1 |0 # MIDDLE DOT
-<U00B8> \xFC |0 # CEDILLA
-<U00BA> \xBC |0 # MASCULINE ORDINAL INDICATOR
-<U00BB> \xDF |0 # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00BF> \xC0 |0 # INVERTED QUESTION MARK
-<U00C0> \xCB |0 # LATIN CAPITAL LETTER A WITH GRAVE
-<U00C1> \xE7 |0 # LATIN CAPITAL LETTER A WITH ACUTE
-<U00C2> \xE5 |0 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
-<U00C3> \xCC |0 # LATIN CAPITAL LETTER A WITH TILDE
-<U00C4> \x80 |0 # LATIN CAPITAL LETTER A WITH DIAERESIS
-<U00C5> \x81 |0 # LATIN CAPITAL LETTER A WITH RING ABOVE
-<U00C6> \xDE |0 # LATIN CAPITAL LETTER AE
-<U00C7> \x82 |0 # LATIN CAPITAL LETTER C WITH CEDILLA
-<U00C8> \xE9 |0 # LATIN CAPITAL LETTER E WITH GRAVE
-<U00C9> \x83 |0 # LATIN CAPITAL LETTER E WITH ACUTE
-<U00CA> \xFD |0 # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
-<U00CB> \xFA |0 # LATIN CAPITAL LETTER E WITH DIAERESIS
-<U00CC> \xED |0 # LATIN CAPITAL LETTER I WITH GRAVE
-<U00CD> \xEA |0 # LATIN CAPITAL LETTER I WITH ACUTE
-<U00CE> \xEB |0 # LATIN CAPITAL LETTER I WITH CIRCUMFLEX
-<U00CF> \xEC |0 # LATIN CAPITAL LETTER I WITH DIAERESIS
-<U00D1> \x84 |0 # LATIN CAPITAL LETTER N WITH TILDE
-<U00D2> \xF1 |0 # LATIN CAPITAL LETTER O WITH GRAVE
-<U00D3> \xEE |0 # LATIN CAPITAL LETTER O WITH ACUTE
-<U00D4> \xEF |0 # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
-<U00D5> \xCD |0 # LATIN CAPITAL LETTER O WITH TILDE
-<U00D6> \x85 |0 # LATIN CAPITAL LETTER O WITH DIAERESIS
-<U00D8> \xAF |0 # LATIN CAPITAL LETTER O WITH STROKE
-<U00D9> \xF4 |0 # LATIN CAPITAL LETTER U WITH GRAVE
-<U00DA> \xF2 |0 # LATIN CAPITAL LETTER U WITH ACUTE
-<U00DB> \xF3 |0 # LATIN CAPITAL LETTER U WITH CIRCUMFLEX
-<U00DC> \x86 |0 # LATIN CAPITAL LETTER U WITH DIAERESIS
-<U00DF> \xA7 |0 # LATIN SMALL LETTER SHARP S
-<U00E0> \x88 |0 # LATIN SMALL LETTER A WITH GRAVE
-<U00E1> \x87 |0 # LATIN SMALL LETTER A WITH ACUTE
-<U00E2> \x89 |0 # LATIN SMALL LETTER A WITH CIRCUMFLEX
-<U00E3> \x8B |0 # LATIN SMALL LETTER A WITH TILDE
-<U00E4> \x8A |0 # LATIN SMALL LETTER A WITH DIAERESIS
-<U00E5> \x8C |0 # LATIN SMALL LETTER A WITH RING ABOVE
-<U00E6> \xFE |0 # LATIN SMALL LETTER AE
-<U00E7> \x8D |0 # LATIN SMALL LETTER C WITH CEDILLA
-<U00E8> \x8F |0 # LATIN SMALL LETTER E WITH GRAVE
-<U00E9> \x8E |0 # LATIN SMALL LETTER E WITH ACUTE
-<U00EA> \x90 |0 # LATIN SMALL LETTER E WITH CIRCUMFLEX
-<U00EB> \x91 |0 # LATIN SMALL LETTER E WITH DIAERESIS
-<U00EC> \x93 |0 # LATIN SMALL LETTER I WITH GRAVE
-<U00ED> \x92 |0 # LATIN SMALL LETTER I WITH ACUTE
-<U00EE> \x94 |0 # LATIN SMALL LETTER I WITH CIRCUMFLEX
-<U00EF> \x95 |0 # LATIN SMALL LETTER I WITH DIAERESIS
-<U00F1> \x96 |0 # LATIN SMALL LETTER N WITH TILDE
-<U00F2> \x98 |0 # LATIN SMALL LETTER O WITH GRAVE
-<U00F3> \x97 |0 # LATIN SMALL LETTER O WITH ACUTE
-<U00F4> \x99 |0 # LATIN SMALL LETTER O WITH CIRCUMFLEX
-<U00F5> \x9B |0 # LATIN SMALL LETTER O WITH TILDE
-<U00F6> \x9A |0 # LATIN SMALL LETTER O WITH DIAERESIS
-<U00F7> \xD6 |0 # DIVISION SIGN
-<U00F8> \xBF |0 # LATIN SMALL LETTER O WITH STROKE
-<U00F9> \x9D |0 # LATIN SMALL LETTER U WITH GRAVE
-<U00FA> \x9C |0 # LATIN SMALL LETTER U WITH ACUTE
-<U00FB> \x9E |0 # LATIN SMALL LETTER U WITH CIRCUMFLEX
-<U00FC> \x9F |0 # LATIN SMALL LETTER U WITH DIAERESIS
-<U0106> \xC6 |0 # LATIN CAPITAL LETTER C WITH ACUTE
-<U0107> \xE6 |0 # LATIN SMALL LETTER C WITH ACUTE
-<U010C> \xC8 |0 # LATIN CAPITAL LETTER C WITH CARON
-<U010D> \xE8 |0 # LATIN SMALL LETTER C WITH CARON
-<U0110> \xD0 |0 # LATIN CAPITAL LETTER D WITH STROKE
-<U0111> \xF0 |0 # LATIN SMALL LETTER D WITH STROKE
-<U0131> \xF5 |0 # LATIN SMALL LETTER DOTLESS I
-<U0152> \xCE |0 # LATIN CAPITAL LIGATURE OE
-<U0153> \xCF |0 # LATIN SMALL LIGATURE OE
-<U0160> \xA9 |0 # LATIN CAPITAL LETTER S WITH CARON
-<U0161> \xB9 |0 # LATIN SMALL LETTER S WITH CARON
-<U017D> \xAE |0 # LATIN CAPITAL LETTER Z WITH CARON
-<U017E> \xBE |0 # LATIN SMALL LETTER Z WITH CARON
-<U0192> \xC4 |0 # LATIN SMALL LETTER F WITH HOOK
-<U02C6> \xF6 |0 # MODIFIER LETTER CIRCUMFLEX ACCENT
-<U02C7> \xFF |0 # CARON
-<U02DA> \xFB |0 # RING ABOVE
-<U02DC> \xF7 |0 # SMALL TILDE
-<U03A9> \xBD |0 # GREEK CAPITAL LETTER OMEGA
-<U03C0> \xF9 |0 # GREEK SMALL LETTER PI
-<U2013> \xE0 |0 # EN DASH
-<U2014> \xD1 |0 # EM DASH
-<U2018> \xD4 |0 # LEFT SINGLE QUOTATION MARK
-<U2019> \xD5 |0 # RIGHT SINGLE QUOTATION MARK
-<U201A> \xE2 |0 # SINGLE LOW-9 QUOTATION MARK
-<U201C> \xD2 |0 # LEFT DOUBLE QUOTATION MARK
-<U201D> \xD3 |0 # RIGHT DOUBLE QUOTATION MARK
-<U201E> \xE3 |0 # DOUBLE LOW-9 QUOTATION MARK
-<U2020> \xA0 |0 # DAGGER
-<U2022> \xA5 |0 # BULLET
-<U2026> \xC9 |0 # HORIZONTAL ELLIPSIS
-<U2030> \xE4 |0 # PER MILLE SIGN
-<U2039> \xDC |0 # SINGLE LEFT-POINTING ANGLE QUOTATION MARK
-<U203A> \xDD |0 # SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
-<U2044> \xDA |0 # FRACTION SLASH
-<U20AC> \xDB |0 # EURO SIGN
-<U2122> \xAA |0 # TRADE MARK SIGN
-<U2202> \xB6 |0 # PARTIAL DIFFERENTIAL
-<U2206> \xB4 |0 # INCREMENT
-<U220F> \xB8 |0 # N-ARY PRODUCT
-<U2211> \xB7 |0 # N-ARY SUMMATION
-<U221A> \xC3 |0 # SQUARE ROOT
-<U221E> \xB0 |0 # INFINITY
-<U222B> \xBA |0 # INTEGRAL
-<U2248> \xC5 |0 # ALMOST EQUAL TO
-<U2260> \xAD |0 # NOT EQUAL TO
-<U2264> \xB2 |0 # LESS-THAN OR EQUAL TO
-<U2265> \xB3 |0 # GREATER-THAN OR EQUAL TO
-<U25CA> \xD7 |0 # LOZENGE
-<UF8FF> \xD8 |0 # Apple logo
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/macCyrillic.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/macCyrillic.ucm
deleted file mode 100644
index 13f70c3..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/macCyrillic.ucm
+++ /dev/null
@@ -1,267 +0,0 @@
-#
-# $Id: macCyrillic.ucm,v 2.0 2004/05/16 20:55:27 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/VENDORS/APPLE/CYRILLIC.TXT
-#
-<code_set_name> "MacCyrillic"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3F
-CHARMAP
-<U0000> \x00 |0 # <control>
-<U0001> \x01 |0 # <control>
-<U0002> \x02 |0 # <control>
-<U0003> \x03 |0 # <control>
-<U0004> \x04 |0 # <control>
-<U0005> \x05 |0 # <control>
-<U0006> \x06 |0 # <control>
-<U0007> \x07 |0 # <control>
-<U0008> \x08 |0 # <control>
-<U0009> \x09 |0 # <control>
-<U000A> \x0A |0 # <control>
-<U000B> \x0B |0 # <control>
-<U000C> \x0C |0 # <control>
-<U000D> \x0D |0 # <control>
-<U000E> \x0E |0 # <control>
-<U000F> \x0F |0 # <control>
-<U0010> \x10 |0 # <control>
-<U0011> \x11 |0 # <control>
-<U0012> \x12 |0 # <control>
-<U0013> \x13 |0 # <control>
-<U0014> \x14 |0 # <control>
-<U0015> \x15 |0 # <control>
-<U0016> \x16 |0 # <control>
-<U0017> \x17 |0 # <control>
-<U0018> \x18 |0 # <control>
-<U0019> \x19 |0 # <control>
-<U001A> \x1A |0 # <control>
-<U001B> \x1B |0 # <control>
-<U001C> \x1C |0 # <control>
-<U001D> \x1D |0 # <control>
-<U001E> \x1E |0 # <control>
-<U001F> \x1F |0 # <control>
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002A> \x2A |0 # ASTERISK
-<U002B> \x2B |0 # PLUS SIGN
-<U002C> \x2C |0 # COMMA
-<U002D> \x2D |0 # HYPHEN-MINUS
-<U002E> \x2E |0 # FULL STOP
-<U002F> \x2F |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003A> \x3A |0 # COLON
-<U003B> \x3B |0 # SEMICOLON
-<U003C> \x3C |0 # LESS-THAN SIGN
-<U003D> \x3D |0 # EQUALS SIGN
-<U003E> \x3E |0 # GREATER-THAN SIGN
-<U003F> \x3F |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004A> \x4A |0 # LATIN CAPITAL LETTER J
-<U004B> \x4B |0 # LATIN CAPITAL LETTER K
-<U004C> \x4C |0 # LATIN CAPITAL LETTER L
-<U004D> \x4D |0 # LATIN CAPITAL LETTER M
-<U004E> \x4E |0 # LATIN CAPITAL LETTER N
-<U004F> \x4F |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005A> \x5A |0 # LATIN CAPITAL LETTER Z
-<U005B> \x5B |0 # LEFT SQUARE BRACKET
-<U005C> \x5C |0 # REVERSE SOLIDUS
-<U005D> \x5D |0 # RIGHT SQUARE BRACKET
-<U005E> \x5E |0 # CIRCUMFLEX ACCENT
-<U005F> \x5F |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006A> \x6A |0 # LATIN SMALL LETTER J
-<U006B> \x6B |0 # LATIN SMALL LETTER K
-<U006C> \x6C |0 # LATIN SMALL LETTER L
-<U006D> \x6D |0 # LATIN SMALL LETTER M
-<U006E> \x6E |0 # LATIN SMALL LETTER N
-<U006F> \x6F |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007A> \x7A |0 # LATIN SMALL LETTER Z
-<U007B> \x7B |0 # LEFT CURLY BRACKET
-<U007C> \x7C |0 # VERTICAL LINE
-<U007D> \x7D |0 # RIGHT CURLY BRACKET
-<U007E> \x7E |0 # TILDE
-<U00A0> \xCA |0 # NO-BREAK SPACE
-<U00A3> \xA3 |0 # POUND SIGN
-<U00A7> \xA4 |0 # SECTION SIGN
-<U00A9> \xA9 |0 # COPYRIGHT SIGN
-<U00AB> \xC7 |0 # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00AC> \xC2 |0 # NOT SIGN
-<U00AE> \xA8 |0 # REGISTERED SIGN
-<U00B0> \xA1 |0 # DEGREE SIGN
-<U00B1> \xB1 |0 # PLUS-MINUS SIGN
-<U00B5> \xB5 |0 # MICRO SIGN
-<U00B6> \xA6 |0 # PILCROW SIGN
-<U00BB> \xC8 |0 # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00F7> \xD6 |0 # DIVISION SIGN
-<U0192> \xC4 |0 # LATIN SMALL LETTER F WITH HOOK
-<U0401> \xDD |0 # CYRILLIC CAPITAL LETTER IO
-<U0402> \xAB |0 # CYRILLIC CAPITAL LETTER DJE
-<U0403> \xAE |0 # CYRILLIC CAPITAL LETTER GJE
-<U0404> \xB8 |0 # CYRILLIC CAPITAL LETTER UKRAINIAN IE
-<U0405> \xC1 |0 # CYRILLIC CAPITAL LETTER DZE
-<U0406> \xA7 |0 # CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I
-<U0407> \xBA |0 # CYRILLIC CAPITAL LETTER YI
-<U0408> \xB7 |0 # CYRILLIC CAPITAL LETTER JE
-<U0409> \xBC |0 # CYRILLIC CAPITAL LETTER LJE
-<U040A> \xBE |0 # CYRILLIC CAPITAL LETTER NJE
-<U040B> \xCB |0 # CYRILLIC CAPITAL LETTER TSHE
-<U040C> \xCD |0 # CYRILLIC CAPITAL LETTER KJE
-<U040E> \xD8 |0 # CYRILLIC CAPITAL LETTER SHORT U
-<U040F> \xDA |0 # CYRILLIC CAPITAL LETTER DZHE
-<U0410> \x80 |0 # CYRILLIC CAPITAL LETTER A
-<U0411> \x81 |0 # CYRILLIC CAPITAL LETTER BE
-<U0412> \x82 |0 # CYRILLIC CAPITAL LETTER VE
-<U0413> \x83 |0 # CYRILLIC CAPITAL LETTER GHE
-<U0414> \x84 |0 # CYRILLIC CAPITAL LETTER DE
-<U0415> \x85 |0 # CYRILLIC CAPITAL LETTER IE
-<U0416> \x86 |0 # CYRILLIC CAPITAL LETTER ZHE
-<U0417> \x87 |0 # CYRILLIC CAPITAL LETTER ZE
-<U0418> \x88 |0 # CYRILLIC CAPITAL LETTER I
-<U0419> \x89 |0 # CYRILLIC CAPITAL LETTER SHORT I
-<U041A> \x8A |0 # CYRILLIC CAPITAL LETTER KA
-<U041B> \x8B |0 # CYRILLIC CAPITAL LETTER EL
-<U041C> \x8C |0 # CYRILLIC CAPITAL LETTER EM
-<U041D> \x8D |0 # CYRILLIC CAPITAL LETTER EN
-<U041E> \x8E |0 # CYRILLIC CAPITAL LETTER O
-<U041F> \x8F |0 # CYRILLIC CAPITAL LETTER PE
-<U0420> \x90 |0 # CYRILLIC CAPITAL LETTER ER
-<U0421> \x91 |0 # CYRILLIC CAPITAL LETTER ES
-<U0422> \x92 |0 # CYRILLIC CAPITAL LETTER TE
-<U0423> \x93 |0 # CYRILLIC CAPITAL LETTER U
-<U0424> \x94 |0 # CYRILLIC CAPITAL LETTER EF
-<U0425> \x95 |0 # CYRILLIC CAPITAL LETTER HA
-<U0426> \x96 |0 # CYRILLIC CAPITAL LETTER TSE
-<U0427> \x97 |0 # CYRILLIC CAPITAL LETTER CHE
-<U0428> \x98 |0 # CYRILLIC CAPITAL LETTER SHA
-<U0429> \x99 |0 # CYRILLIC CAPITAL LETTER SHCHA
-<U042A> \x9A |0 # CYRILLIC CAPITAL LETTER HARD SIGN
-<U042B> \x9B |0 # CYRILLIC CAPITAL LETTER YERU
-<U042C> \x9C |0 # CYRILLIC CAPITAL LETTER SOFT SIGN
-<U042D> \x9D |0 # CYRILLIC CAPITAL LETTER E
-<U042E> \x9E |0 # CYRILLIC CAPITAL LETTER YU
-<U042F> \x9F |0 # CYRILLIC CAPITAL LETTER YA
-<U0430> \xE0 |0 # CYRILLIC SMALL LETTER A
-<U0431> \xE1 |0 # CYRILLIC SMALL LETTER BE
-<U0432> \xE2 |0 # CYRILLIC SMALL LETTER VE
-<U0433> \xE3 |0 # CYRILLIC SMALL LETTER GHE
-<U0434> \xE4 |0 # CYRILLIC SMALL LETTER DE
-<U0435> \xE5 |0 # CYRILLIC SMALL LETTER IE
-<U0436> \xE6 |0 # CYRILLIC SMALL LETTER ZHE
-<U0437> \xE7 |0 # CYRILLIC SMALL LETTER ZE
-<U0438> \xE8 |0 # CYRILLIC SMALL LETTER I
-<U0439> \xE9 |0 # CYRILLIC SMALL LETTER SHORT I
-<U043A> \xEA |0 # CYRILLIC SMALL LETTER KA
-<U043B> \xEB |0 # CYRILLIC SMALL LETTER EL
-<U043C> \xEC |0 # CYRILLIC SMALL LETTER EM
-<U043D> \xED |0 # CYRILLIC SMALL LETTER EN
-<U043E> \xEE |0 # CYRILLIC SMALL LETTER O
-<U043F> \xEF |0 # CYRILLIC SMALL LETTER PE
-<U0440> \xF0 |0 # CYRILLIC SMALL LETTER ER
-<U0441> \xF1 |0 # CYRILLIC SMALL LETTER ES
-<U0442> \xF2 |0 # CYRILLIC SMALL LETTER TE
-<U0443> \xF3 |0 # CYRILLIC SMALL LETTER U
-<U0444> \xF4 |0 # CYRILLIC SMALL LETTER EF
-<U0445> \xF5 |0 # CYRILLIC SMALL LETTER HA
-<U0446> \xF6 |0 # CYRILLIC SMALL LETTER TSE
-<U0447> \xF7 |0 # CYRILLIC SMALL LETTER CHE
-<U0448> \xF8 |0 # CYRILLIC SMALL LETTER SHA
-<U0449> \xF9 |0 # CYRILLIC SMALL LETTER SHCHA
-<U044A> \xFA |0 # CYRILLIC SMALL LETTER HARD SIGN
-<U044B> \xFB |0 # CYRILLIC SMALL LETTER YERU
-<U044C> \xFC |0 # CYRILLIC SMALL LETTER SOFT SIGN
-<U044D> \xFD |0 # CYRILLIC SMALL LETTER E
-<U044E> \xFE |0 # CYRILLIC SMALL LETTER YU
-<U044F> \xDF |0 # CYRILLIC SMALL LETTER YA
-<U0451> \xDE |0 # CYRILLIC SMALL LETTER IO
-<U0452> \xAC |0 # CYRILLIC SMALL LETTER DJE
-<U0453> \xAF |0 # CYRILLIC SMALL LETTER GJE
-<U0454> \xB9 |0 # CYRILLIC SMALL LETTER UKRAINIAN IE
-<U0455> \xCF |0 # CYRILLIC SMALL LETTER DZE
-<U0456> \xB4 |0 # CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I
-<U0457> \xBB |0 # CYRILLIC SMALL LETTER YI
-<U0458> \xC0 |0 # CYRILLIC SMALL LETTER JE
-<U0459> \xBD |0 # CYRILLIC SMALL LETTER LJE
-<U045A> \xBF |0 # CYRILLIC SMALL LETTER NJE
-<U045B> \xCC |0 # CYRILLIC SMALL LETTER TSHE
-<U045C> \xCE |0 # CYRILLIC SMALL LETTER KJE
-<U045E> \xD9 |0 # CYRILLIC SMALL LETTER SHORT U
-<U045F> \xDB |0 # CYRILLIC SMALL LETTER DZHE
-<U0490> \xA2 |0 # CYRILLIC CAPITAL LETTER GHE WITH UPTURN
-<U0491> \xB6 |0 # CYRILLIC SMALL LETTER GHE WITH UPTURN
-<U2013> \xD0 |0 # EN DASH
-<U2014> \xD1 |0 # EM DASH
-<U2018> \xD4 |0 # LEFT SINGLE QUOTATION MARK
-<U2019> \xD5 |0 # RIGHT SINGLE QUOTATION MARK
-<U201C> \xD2 |0 # LEFT DOUBLE QUOTATION MARK
-<U201D> \xD3 |0 # RIGHT DOUBLE QUOTATION MARK
-<U201E> \xD7 |0 # DOUBLE LOW-9 QUOTATION MARK
-<U2020> \xA0 |0 # DAGGER
-<U2022> \xA5 |0 # BULLET
-<U2026> \xC9 |0 # HORIZONTAL ELLIPSIS
-<U20AC> \xFF |0 # EURO SIGN
-<U2116> \xDC |0 # NUMERO SIGN
-<U2122> \xAA |0 # TRADE MARK SIGN
-<U2206> \xC6 |0 # INCREMENT
-<U221A> \xC3 |0 # SQUARE ROOT
-<U221E> \xB0 |0 # INFINITY
-<U2248> \xC5 |0 # ALMOST EQUAL TO
-<U2260> \xAD |0 # NOT EQUAL TO
-<U2264> \xB2 |0 # LESS-THAN OR EQUAL TO
-<U2265> \xB3 |0 # GREATER-THAN OR EQUAL TO
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/macDingbats.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/macDingbats.ucm
deleted file mode 100644
index 3047a67..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/macDingbats.ucm
+++ /dev/null
@@ -1,246 +0,0 @@
-#
-# $Id: macDingbats.ucm,v 2.1 2004/10/22 06:23:11 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/VENDORS/APPLE/DINGBATS.TXT
-#
-<code_set_name> "MacDingbats"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3F
-CHARMAP
-<U0000> \x00 |0 # <control>
-<U0001> \x01 |0 # <control>
-<U0002> \x02 |0 # <control>
-<U0003> \x03 |0 # <control>
-<U0004> \x04 |0 # <control>
-<U0005> \x05 |0 # <control>
-<U0006> \x06 |0 # <control>
-<U0007> \x07 |0 # <control>
-<U0008> \x08 |0 # <control>
-<U0009> \x09 |0 # <control>
-<U000A> \x0A |0 # <control>
-<U000B> \x0B |0 # <control>
-<U000C> \x0C |0 # <control>
-<U000D> \x0D |0 # <control>
-<U000E> \x0E |0 # <control>
-<U000F> \x0F |0 # <control>
-<U0010> \x10 |0 # <control>
-<U0011> \x11 |0 # <control>
-<U0012> \x12 |0 # <control>
-<U0013> \x13 |0 # <control>
-<U0014> \x14 |0 # <control>
-<U0015> \x15 |0 # <control>
-<U0016> \x16 |0 # <control>
-<U0017> \x17 |0 # <control>
-<U0018> \x18 |0 # <control>
-<U0019> \x19 |0 # <control>
-<U001A> \x1A |0 # <control>
-<U001B> \x1B |0 # <control>
-<U001C> \x1C |0 # <control>
-<U001D> \x1D |0 # <control>
-<U001E> \x1E |0 # <control>
-<U001F> \x1F |0 # <control>
-<U0020> \x20 |0 # SPACE
-<U2192> \xD5 |0 # RIGHTWARDS ARROW
-<U2194> \xD6 |0 # LEFT RIGHT ARROW
-<U2195> \xD7 |0 # UP DOWN ARROW
-<U2460> \xAC |0 # CIRCLED DIGIT ONE
-<U2461> \xAD |0 # CIRCLED DIGIT TWO
-<U2462> \xAE |0 # CIRCLED DIGIT THREE
-<U2463> \xAF |0 # CIRCLED DIGIT FOUR
-<U2464> \xB0 |0 # CIRCLED DIGIT FIVE
-<U2465> \xB1 |0 # CIRCLED DIGIT SIX
-<U2466> \xB2 |0 # CIRCLED DIGIT SEVEN
-<U2467> \xB3 |0 # CIRCLED DIGIT EIGHT
-<U2468> \xB4 |0 # CIRCLED DIGIT NINE
-<U2469> \xB5 |0 # CIRCLED NUMBER TEN
-<U25A0> \x6E |0 # BLACK SQUARE
-<U25B2> \x73 |0 # BLACK UP-POINTING TRIANGLE
-<U25BC> \x74 |0 # BLACK DOWN-POINTING TRIANGLE
-<U25C6> \x75 |0 # BLACK DIAMOND
-<U25CF> \x6C |0 # BLACK CIRCLE
-<U25D7> \x77 |0 # RIGHT HALF BLACK CIRCLE
-<U2605> \x48 |0 # BLACK STAR
-<U260E> \x25 |0 # BLACK TELEPHONE
-<U261B> \x2A |0 # BLACK RIGHT POINTING INDEX
-<U261E> \x2B |0 # WHITE RIGHT POINTING INDEX
-<U2660> \xAB |0 # BLACK SPADE SUIT
-<U2663> \xA8 |0 # BLACK CLUB SUIT
-<U2665> \xAA |0 # BLACK HEART SUIT
-<U2666> \xA9 |0 # BLACK DIAMOND SUIT
-<U2701> \x21 |0 # UPPER BLADE SCISSORS
-<U2702> \x22 |0 # BLACK SCISSORS
-<U2703> \x23 |0 # LOWER BLADE SCISSORS
-<U2704> \x24 |0 # WHITE SCISSORS
-<U2706> \x26 |0 # TELEPHONE LOCATION SIGN
-<U2707> \x27 |0 # TAPE DRIVE
-<U2708> \x28 |0 # AIRPLANE
-<U2709> \x29 |0 # ENVELOPE
-<U270C> \x2C |0 # VICTORY HAND
-<U270D> \x2D |0 # WRITING HAND
-<U270E> \x2E |0 # LOWER RIGHT PENCIL
-<U270F> \x2F |0 # PENCIL
-<U2710> \x30 |0 # UPPER RIGHT PENCIL
-<U2711> \x31 |0 # WHITE NIB
-<U2712> \x32 |0 # BLACK NIB
-<U2713> \x33 |0 # CHECK MARK
-<U2714> \x34 |0 # HEAVY CHECK MARK
-<U2715> \x35 |0 # MULTIPLICATION X
-<U2716> \x36 |0 # HEAVY MULTIPLICATION X
-<U2717> \x37 |0 # BALLOT X
-<U2718> \x38 |0 # HEAVY BALLOT X
-<U2719> \x39 |0 # OUTLINED GREEK CROSS
-<U271A> \x3A |0 # HEAVY GREEK CROSS
-<U271B> \x3B |0 # OPEN CENTRE CROSS
-<U271C> \x3C |0 # HEAVY OPEN CENTRE CROSS
-<U271D> \x3D |0 # LATIN CROSS
-<U271E> \x3E |0 # SHADOWED WHITE LATIN CROSS
-<U271F> \x3F |0 # OUTLINED LATIN CROSS
-<U2720> \x40 |0 # MALTESE CROSS
-<U2721> \x41 |0 # STAR OF DAVID
-<U2722> \x42 |0 # FOUR TEARDROP-SPOKED ASTERISK
-<U2723> \x43 |0 # FOUR BALLOON-SPOKED ASTERISK
-<U2724> \x44 |0 # HEAVY FOUR BALLOON-SPOKED ASTERISK
-<U2725> \x45 |0 # FOUR CLUB-SPOKED ASTERISK
-<U2726> \x46 |0 # BLACK FOUR POINTED STAR
-<U2727> \x47 |0 # WHITE FOUR POINTED STAR
-<U2729> \x49 |0 # STRESS OUTLINED WHITE STAR
-<U272A> \x4A |0 # CIRCLED WHITE STAR
-<U272B> \x4B |0 # OPEN CENTRE BLACK STAR
-<U272C> \x4C |0 # BLACK CENTRE WHITE STAR
-<U272D> \x4D |0 # OUTLINED BLACK STAR
-<U272E> \x4E |0 # HEAVY OUTLINED BLACK STAR
-<U272F> \x4F |0 # PINWHEEL STAR
-<U2730> \x50 |0 # SHADOWED WHITE STAR
-<U2731> \x51 |0 # HEAVY ASTERISK
-<U2732> \x52 |0 # OPEN CENTRE ASTERISK
-<U2733> \x53 |0 # EIGHT SPOKED ASTERISK
-<U2734> \x54 |0 # EIGHT POINTED BLACK STAR
-<U2735> \x55 |0 # EIGHT POINTED PINWHEEL STAR
-<U2736> \x56 |0 # SIX POINTED BLACK STAR
-<U2737> \x57 |0 # EIGHT POINTED RECTILINEAR BLACK STAR
-<U2738> \x58 |0 # HEAVY EIGHT POINTED RECTILINEAR BLACK STAR
-<U2739> \x59 |0 # TWELVE POINTED BLACK STAR
-<U273A> \x5A |0 # SIXTEEN POINTED ASTERISK
-<U273B> \x5B |0 # TEARDROP-SPOKED ASTERISK
-<U273C> \x5C |0 # OPEN CENTRE TEARDROP-SPOKED ASTERISK
-<U273D> \x5D |0 # HEAVY TEARDROP-SPOKED ASTERISK
-<U273E> \x5E |0 # SIX PETALLED BLACK AND WHITE FLORETTE
-<U273F> \x5F |0 # BLACK FLORETTE
-<U2740> \x60 |0 # WHITE FLORETTE
-<U2741> \x61 |0 # EIGHT PETALLED OUTLINED BLACK FLORETTE
-<U2742> \x62 |0 # CIRCLED OPEN CENTRE EIGHT POINTED STAR
-<U2743> \x63 |0 # HEAVY TEARDROP-SPOKED PINWHEEL ASTERISK
-<U2744> \x64 |0 # SNOWFLAKE
-<U2745> \x65 |0 # TIGHT TRIFOLIATE SNOWFLAKE
-<U2746> \x66 |0 # HEAVY CHEVRON SNOWFLAKE
-<U2747> \x67 |0 # SPARKLE
-<U2748> \x68 |0 # HEAVY SPARKLE
-<U2749> \x69 |0 # BALLOON-SPOKED ASTERISK
-<U274A> \x6A |0 # EIGHT TEARDROP-SPOKED PROPELLER ASTERISK
-<U274B> \x6B |0 # HEAVY EIGHT TEARDROP-SPOKED PROPELLER ASTERISK
-<U274D> \x6D |0 # SHADOWED WHITE CIRCLE
-<U274F> \x6F |0 # LOWER RIGHT DROP-SHADOWED WHITE SQUARE
-<U2750> \x70 |0 # UPPER RIGHT DROP-SHADOWED WHITE SQUARE
-<U2751> \x71 |0 # LOWER RIGHT SHADOWED WHITE SQUARE
-<U2752> \x72 |0 # UPPER RIGHT SHADOWED WHITE SQUARE
-<U2756> \x76 |0 # BLACK DIAMOND MINUS WHITE X
-<U2758> \x78 |0 # LIGHT VERTICAL BAR
-<U2759> \x79 |0 # MEDIUM VERTICAL BAR
-<U275A> \x7A |0 # HEAVY VERTICAL BAR
-<U275B> \x7B |0 # HEAVY SINGLE TURNED COMMA QUOTATION MARK ORNAMENT
-<U275C> \x7C |0 # HEAVY SINGLE COMMA QUOTATION MARK ORNAMENT
-<U275D> \x7D |0 # HEAVY DOUBLE TURNED COMMA QUOTATION MARK ORNAMENT
-<U275E> \x7E |0 # HEAVY DOUBLE COMMA QUOTATION MARK ORNAMENT
-<U2761> \xA1 |0 # CURVED STEM PARAGRAPH SIGN ORNAMENT
-<U2762> \xA2 |0 # HEAVY EXCLAMATION MARK ORNAMENT
-<U2763> \xA3 |0 # HEAVY HEART EXCLAMATION MARK ORNAMENT
-<U2764> \xA4 |0 # HEAVY BLACK HEART
-<U2765> \xA5 |0 # ROTATED HEAVY BLACK HEART BULLET
-<U2766> \xA6 |0 # FLORAL HEART
-<U2767> \xA7 |0 # ROTATED FLORAL HEART BULLET
-<U2768> \x80 |0 # MEDIUM LEFT PARENTHESIS ORNAMENT # for Unicode 3.2 and later
-<U2769> \x81 |0 # MEDIUM RIGHT PARENTHESIS ORNAMENT # for Unicode 3.2 and later
-<U276A> \x82 |0 # MEDIUM FLATTENED LEFT PARENTHESIS ORNAMENT # for Unicode 3.2 and later
-<U276B> \x83 |0 # MEDIUM FLATTENED RIGHT PARENTHESIS ORNAMENT # for Unicode 3.2 and later
-<U276C> \x84 |0 # MEDIUM LEFT-POINTING ANGLE BRACKET ORNAMENT # for Unicode 3.2 and later
-<U276D> \x85 |0 # MEDIUM RIGHT-POINTING ANGLE BRACKET ORNAMENT # for Unicode 3.2 and later
-<U276E> \x86 |0 # HEAVY LEFT-POINTING ANGLE QUOTATION MARK ORNAMENT # for Unicode 3.2 and later
-<U276F> \x87 |0 # HEAVY RIGHT-POINTING ANGLE QUOTATION MARK ORNAMENT # for Unicode 3.2 and later
-<U2770> \x88 |0 # HEAVY LEFT-POINTING ANGLE BRACKET ORNAMENT # for Unicode 3.2 and later
-<U2771> \x89 |0 # HEAVY RIGHT-POINTING ANGLE BRACKET ORNAMENT # for Unicode 3.2 and later
-<U2772> \x8A |0 # LIGHT LEFT TORTOISE SHELL BRACKET ORNAMENT # for Unicode 3.2 and later
-<U2773> \x8B |0 # LIGHT RIGHT TORTOISE SHELL BRACKET ORNAMENT # for Unicode 3.2 and later
-<U2774> \x8C |0 # MEDIUM LEFT CURLY BRACKET ORNAMENT # for Unicode 3.2 and later
-<U2775> \x8D |0 # MEDIUM RIGHT CURLY BRACKET ORNAMENT # for Unicode 3.2 and later
-<U2776> \xB6 |0 # DINGBAT NEGATIVE CIRCLED DIGIT ONE
-<U2777> \xB7 |0 # DINGBAT NEGATIVE CIRCLED DIGIT TWO
-<U2778> \xB8 |0 # DINGBAT NEGATIVE CIRCLED DIGIT THREE
-<U2779> \xB9 |0 # DINGBAT NEGATIVE CIRCLED DIGIT FOUR
-<U277A> \xBA |0 # DINGBAT NEGATIVE CIRCLED DIGIT FIVE
-<U277B> \xBB |0 # DINGBAT NEGATIVE CIRCLED DIGIT SIX
-<U277C> \xBC |0 # DINGBAT NEGATIVE CIRCLED DIGIT SEVEN
-<U277D> \xBD |0 # DINGBAT NEGATIVE CIRCLED DIGIT EIGHT
-<U277E> \xBE |0 # DINGBAT NEGATIVE CIRCLED DIGIT NINE
-<U277F> \xBF |0 # DINGBAT NEGATIVE CIRCLED NUMBER TEN
-<U2780> \xC0 |0 # DINGBAT CIRCLED SANS-SERIF DIGIT ONE
-<U2781> \xC1 |0 # DINGBAT CIRCLED SANS-SERIF DIGIT TWO
-<U2782> \xC2 |0 # DINGBAT CIRCLED SANS-SERIF DIGIT THREE
-<U2783> \xC3 |0 # DINGBAT CIRCLED SANS-SERIF DIGIT FOUR
-<U2784> \xC4 |0 # DINGBAT CIRCLED SANS-SERIF DIGIT FIVE
-<U2785> \xC5 |0 # DINGBAT CIRCLED SANS-SERIF DIGIT SIX
-<U2786> \xC6 |0 # DINGBAT CIRCLED SANS-SERIF DIGIT SEVEN
-<U2787> \xC7 |0 # DINGBAT CIRCLED SANS-SERIF DIGIT EIGHT
-<U2788> \xC8 |0 # DINGBAT CIRCLED SANS-SERIF DIGIT NINE
-<U2789> \xC9 |0 # DINGBAT CIRCLED SANS-SERIF NUMBER TEN
-<U278A> \xCA |0 # DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT ONE
-<U278B> \xCB |0 # DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT TWO
-<U278C> \xCC |0 # DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT THREE
-<U278D> \xCD |0 # DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT FOUR
-<U278E> \xCE |0 # DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT FIVE
-<U278F> \xCF |0 # DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT SIX
-<U2790> \xD0 |0 # DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT SEVEN
-<U2791> \xD1 |0 # DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT EIGHT
-<U2792> \xD2 |0 # DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT NINE
-<U2793> \xD3 |0 # DINGBAT NEGATIVE CIRCLED SANS-SERIF NUMBER TEN
-<U2794> \xD4 |0 # HEAVY WIDE-HEADED RIGHTWARDS ARROW
-<U2798> \xD8 |0 # HEAVY SOUTH EAST ARROW
-<U2799> \xD9 |0 # HEAVY RIGHTWARDS ARROW
-<U279A> \xDA |0 # HEAVY NORTH EAST ARROW
-<U279B> \xDB |0 # DRAFTING POINT RIGHTWARDS ARROW
-<U279C> \xDC |0 # HEAVY ROUND-TIPPED RIGHTWARDS ARROW
-<U279D> \xDD |0 # TRIANGLE-HEADED RIGHTWARDS ARROW
-<U279E> \xDE |0 # HEAVY TRIANGLE-HEADED RIGHTWARDS ARROW
-<U279F> \xDF |0 # DASHED TRIANGLE-HEADED RIGHTWARDS ARROW
-<U27A0> \xE0 |0 # HEAVY DASHED TRIANGLE-HEADED RIGHTWARDS ARROW
-<U27A1> \xE1 |0 # BLACK RIGHTWARDS ARROW
-<U27A2> \xE2 |0 # THREE-D TOP-LIGHTED RIGHTWARDS ARROWHEAD
-<U27A3> \xE3 |0 # THREE-D BOTTOM-LIGHTED RIGHTWARDS ARROWHEAD
-<U27A4> \xE4 |0 # BLACK RIGHTWARDS ARROWHEAD
-<U27A5> \xE5 |0 # HEAVY BLACK CURVED DOWNWARDS AND RIGHTWARDS ARROW
-<U27A6> \xE6 |0 # HEAVY BLACK CURVED UPWARDS AND RIGHTWARDS ARROW
-<U27A7> \xE7 |0 # SQUAT BLACK RIGHTWARDS ARROW
-<U27A8> \xE8 |0 # HEAVY CONCAVE-POINTED BLACK RIGHTWARDS ARROW
-<U27A9> \xE9 |0 # RIGHT-SHADED WHITE RIGHTWARDS ARROW
-<U27AA> \xEA |0 # LEFT-SHADED WHITE RIGHTWARDS ARROW
-<U27AB> \xEB |0 # BACK-TILTED SHADOWED WHITE RIGHTWARDS ARROW
-<U27AC> \xEC |0 # FRONT-TILTED SHADOWED WHITE RIGHTWARDS ARROW
-<U27AD> \xED |0 # HEAVY LOWER RIGHT-SHADOWED WHITE RIGHTWARDS ARROW
-<U27AE> \xEE |0 # HEAVY UPPER RIGHT-SHADOWED WHITE RIGHTWARDS ARROW
-<U27AF> \xEF |0 # NOTCHED LOWER RIGHT-SHADOWED WHITE RIGHTWARDS ARROW
-<U27B1> \xF1 |0 # NOTCHED UPPER RIGHT-SHADOWED WHITE RIGHTWARDS ARROW
-<U27B2> \xF2 |0 # CIRCLED HEAVY WHITE RIGHTWARDS ARROW
-<U27B3> \xF3 |0 # WHITE-FEATHERED RIGHTWARDS ARROW
-<U27B4> \xF4 |0 # BLACK-FEATHERED SOUTH EAST ARROW
-<U27B5> \xF5 |0 # BLACK-FEATHERED RIGHTWARDS ARROW
-<U27B6> \xF6 |0 # BLACK-FEATHERED NORTH EAST ARROW
-<U27B7> \xF7 |0 # HEAVY BLACK-FEATHERED SOUTH EAST ARROW
-<U27B8> \xF8 |0 # HEAVY BLACK-FEATHERED RIGHTWARDS ARROW
-<U27B9> \xF9 |0 # HEAVY BLACK-FEATHERED NORTH EAST ARROW
-<U27BA> \xFA |0 # TEARDROP-BARBED RIGHTWARDS ARROW
-<U27BB> \xFB |0 # HEAVY TEARDROP-SHANKED RIGHTWARDS ARROW
-<U27BC> \xFC |0 # WEDGE-TAILED RIGHTWARDS ARROW
-<U27BD> \xFD |0 # HEAVY WEDGE-TAILED RIGHTWARDS ARROW
-<U27BE> \xFE |0 # OPEN-OUTLINED RIGHTWARDS ARROW
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/macGreek.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/macGreek.ucm
deleted file mode 100644
index bf88b98..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/macGreek.ucm
+++ /dev/null
@@ -1,267 +0,0 @@
-#
-# $Id: macGreek.ucm,v 2.1 2004/10/22 06:23:11 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/VENDORS/APPLE/GREEK.TXT
-#
-<code_set_name> "MacGreek"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3F
-CHARMAP
-<U0000> \x00 |0 # <control>
-<U0001> \x01 |0 # <control>
-<U0002> \x02 |0 # <control>
-<U0003> \x03 |0 # <control>
-<U0004> \x04 |0 # <control>
-<U0005> \x05 |0 # <control>
-<U0006> \x06 |0 # <control>
-<U0007> \x07 |0 # <control>
-<U0008> \x08 |0 # <control>
-<U0009> \x09 |0 # <control>
-<U000A> \x0A |0 # <control>
-<U000B> \x0B |0 # <control>
-<U000C> \x0C |0 # <control>
-<U000D> \x0D |0 # <control>
-<U000E> \x0E |0 # <control>
-<U000F> \x0F |0 # <control>
-<U0010> \x10 |0 # <control>
-<U0011> \x11 |0 # <control>
-<U0012> \x12 |0 # <control>
-<U0013> \x13 |0 # <control>
-<U0014> \x14 |0 # <control>
-<U0015> \x15 |0 # <control>
-<U0016> \x16 |0 # <control>
-<U0017> \x17 |0 # <control>
-<U0018> \x18 |0 # <control>
-<U0019> \x19 |0 # <control>
-<U001A> \x1A |0 # <control>
-<U001B> \x1B |0 # <control>
-<U001C> \x1C |0 # <control>
-<U001D> \x1D |0 # <control>
-<U001E> \x1E |0 # <control>
-<U001F> \x1F |0 # <control>
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002A> \x2A |0 # ASTERISK
-<U002B> \x2B |0 # PLUS SIGN
-<U002C> \x2C |0 # COMMA
-<U002D> \x2D |0 # HYPHEN-MINUS
-<U002E> \x2E |0 # FULL STOP
-<U002F> \x2F |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003A> \x3A |0 # COLON
-<U003B> \x3B |0 # SEMICOLON
-<U003C> \x3C |0 # LESS-THAN SIGN
-<U003D> \x3D |0 # EQUALS SIGN
-<U003E> \x3E |0 # GREATER-THAN SIGN
-<U003F> \x3F |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004A> \x4A |0 # LATIN CAPITAL LETTER J
-<U004B> \x4B |0 # LATIN CAPITAL LETTER K
-<U004C> \x4C |0 # LATIN CAPITAL LETTER L
-<U004D> \x4D |0 # LATIN CAPITAL LETTER M
-<U004E> \x4E |0 # LATIN CAPITAL LETTER N
-<U004F> \x4F |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005A> \x5A |0 # LATIN CAPITAL LETTER Z
-<U005B> \x5B |0 # LEFT SQUARE BRACKET
-<U005C> \x5C |0 # REVERSE SOLIDUS
-<U005D> \x5D |0 # RIGHT SQUARE BRACKET
-<U005E> \x5E |0 # CIRCUMFLEX ACCENT
-<U005F> \x5F |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006A> \x6A |0 # LATIN SMALL LETTER J
-<U006B> \x6B |0 # LATIN SMALL LETTER K
-<U006C> \x6C |0 # LATIN SMALL LETTER L
-<U006D> \x6D |0 # LATIN SMALL LETTER M
-<U006E> \x6E |0 # LATIN SMALL LETTER N
-<U006F> \x6F |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007A> \x7A |0 # LATIN SMALL LETTER Z
-<U007B> \x7B |0 # LEFT CURLY BRACKET
-<U007C> \x7C |0 # VERTICAL LINE
-<U007D> \x7D |0 # RIGHT CURLY BRACKET
-<U007E> \x7E |0 # TILDE
-<U00A0> \xCA |0 # NO-BREAK SPACE
-<U00A3> \x92 |0 # POUND SIGN
-<U00A5> \xB4 |0 # YEN SIGN
-<U00A6> \x9B |0 # BROKEN BAR
-<U00A7> \xAC |0 # SECTION SIGN
-<U00A8> \x8C |0 # DIAERESIS
-<U00A9> \xA9 |0 # COPYRIGHT SIGN
-<U00AB> \xC7 |0 # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00AC> \xC2 |0 # NOT SIGN
-<U00AD> \xFF |0 # SOFT HYPHEN # before Mac OS 9.2.2, was undefined
-<U00AE> \xA8 |0 # REGISTERED SIGN
-<U00B0> \xAE |0 # DEGREE SIGN
-<U00B1> \xB1 |0 # PLUS-MINUS SIGN
-<U00B2> \x82 |0 # SUPERSCRIPT TWO
-<U00B3> \x84 |0 # SUPERSCRIPT THREE
-<U00B7> \xAF |0 # MIDDLE DOT
-<U00B9> \x81 |0 # SUPERSCRIPT ONE
-<U00BB> \xC8 |0 # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00BD> \x97 |0 # VULGAR FRACTION ONE HALF
-<U00C4> \x80 |0 # LATIN CAPITAL LETTER A WITH DIAERESIS
-<U00C9> \x83 |0 # LATIN CAPITAL LETTER E WITH ACUTE
-<U00D6> \x85 |0 # LATIN CAPITAL LETTER O WITH DIAERESIS
-<U00DC> \x86 |0 # LATIN CAPITAL LETTER U WITH DIAERESIS
-<U00DF> \xA7 |0 # LATIN SMALL LETTER SHARP S
-<U00E0> \x88 |0 # LATIN SMALL LETTER A WITH GRAVE
-<U00E2> \x89 |0 # LATIN SMALL LETTER A WITH CIRCUMFLEX
-<U00E4> \x8A |0 # LATIN SMALL LETTER A WITH DIAERESIS
-<U00E7> \x8D |0 # LATIN SMALL LETTER C WITH CEDILLA
-<U00E8> \x8F |0 # LATIN SMALL LETTER E WITH GRAVE
-<U00E9> \x8E |0 # LATIN SMALL LETTER E WITH ACUTE
-<U00EA> \x90 |0 # LATIN SMALL LETTER E WITH CIRCUMFLEX
-<U00EB> \x91 |0 # LATIN SMALL LETTER E WITH DIAERESIS
-<U00EE> \x94 |0 # LATIN SMALL LETTER I WITH CIRCUMFLEX
-<U00EF> \x95 |0 # LATIN SMALL LETTER I WITH DIAERESIS
-<U00F4> \x99 |0 # LATIN SMALL LETTER O WITH CIRCUMFLEX
-<U00F6> \x9A |0 # LATIN SMALL LETTER O WITH DIAERESIS
-<U00F7> \xD6 |0 # DIVISION SIGN
-<U00F9> \x9D |0 # LATIN SMALL LETTER U WITH GRAVE
-<U00FB> \x9E |0 # LATIN SMALL LETTER U WITH CIRCUMFLEX
-<U00FC> \x9F |0 # LATIN SMALL LETTER U WITH DIAERESIS
-<U0153> \xCF |0 # LATIN SMALL LIGATURE OE
-<U0384> \x8B |0 # GREEK TONOS
-<U0385> \x87 |0 # GREEK DIALYTIKA TONOS
-<U0386> \xCD |0 # GREEK CAPITAL LETTER ALPHA WITH TONOS
-<U0388> \xCE |0 # GREEK CAPITAL LETTER EPSILON WITH TONOS
-<U0389> \xD7 |0 # GREEK CAPITAL LETTER ETA WITH TONOS
-<U038A> \xD8 |0 # GREEK CAPITAL LETTER IOTA WITH TONOS
-<U038C> \xD9 |0 # GREEK CAPITAL LETTER OMICRON WITH TONOS
-<U038E> \xDA |0 # GREEK CAPITAL LETTER UPSILON WITH TONOS
-<U038F> \xDF |0 # GREEK CAPITAL LETTER OMEGA WITH TONOS
-<U0390> \xFD |0 # GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS
-<U0391> \xB0 |0 # GREEK CAPITAL LETTER ALPHA
-<U0392> \xB5 |0 # GREEK CAPITAL LETTER BETA
-<U0393> \xA1 |0 # GREEK CAPITAL LETTER GAMMA
-<U0394> \xA2 |0 # GREEK CAPITAL LETTER DELTA
-<U0395> \xB6 |0 # GREEK CAPITAL LETTER EPSILON
-<U0396> \xB7 |0 # GREEK CAPITAL LETTER ZETA
-<U0397> \xB8 |0 # GREEK CAPITAL LETTER ETA
-<U0398> \xA3 |0 # GREEK CAPITAL LETTER THETA
-<U0399> \xB9 |0 # GREEK CAPITAL LETTER IOTA
-<U039A> \xBA |0 # GREEK CAPITAL LETTER KAPPA
-<U039B> \xA4 |0 # GREEK CAPITAL LETTER LAMDA
-<U039C> \xBB |0 # GREEK CAPITAL LETTER MU
-<U039D> \xC1 |0 # GREEK CAPITAL LETTER NU
-<U039E> \xA5 |0 # GREEK CAPITAL LETTER XI
-<U039F> \xC3 |0 # GREEK CAPITAL LETTER OMICRON
-<U03A0> \xA6 |0 # GREEK CAPITAL LETTER PI
-<U03A1> \xC4 |0 # GREEK CAPITAL LETTER RHO
-<U03A3> \xAA |0 # GREEK CAPITAL LETTER SIGMA
-<U03A4> \xC6 |0 # GREEK CAPITAL LETTER TAU
-<U03A5> \xCB |0 # GREEK CAPITAL LETTER UPSILON
-<U03A6> \xBC |0 # GREEK CAPITAL LETTER PHI
-<U03A7> \xCC |0 # GREEK CAPITAL LETTER CHI
-<U03A8> \xBE |0 # GREEK CAPITAL LETTER PSI
-<U03A9> \xBF |0 # GREEK CAPITAL LETTER OMEGA
-<U03AA> \xAB |0 # GREEK CAPITAL LETTER IOTA WITH DIALYTIKA
-<U03AB> \xBD |0 # GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA
-<U03AC> \xC0 |0 # GREEK SMALL LETTER ALPHA WITH TONOS
-<U03AD> \xDB |0 # GREEK SMALL LETTER EPSILON WITH TONOS
-<U03AE> \xDC |0 # GREEK SMALL LETTER ETA WITH TONOS
-<U03AF> \xDD |0 # GREEK SMALL LETTER IOTA WITH TONOS
-<U03B0> \xFE |0 # GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS
-<U03B1> \xE1 |0 # GREEK SMALL LETTER ALPHA
-<U03B2> \xE2 |0 # GREEK SMALL LETTER BETA
-<U03B3> \xE7 |0 # GREEK SMALL LETTER GAMMA
-<U03B4> \xE4 |0 # GREEK SMALL LETTER DELTA
-<U03B5> \xE5 |0 # GREEK SMALL LETTER EPSILON
-<U03B6> \xFA |0 # GREEK SMALL LETTER ZETA
-<U03B7> \xE8 |0 # GREEK SMALL LETTER ETA
-<U03B8> \xF5 |0 # GREEK SMALL LETTER THETA
-<U03B9> \xE9 |0 # GREEK SMALL LETTER IOTA
-<U03BA> \xEB |0 # GREEK SMALL LETTER KAPPA
-<U03BB> \xEC |0 # GREEK SMALL LETTER LAMDA
-<U03BC> \xED |0 # GREEK SMALL LETTER MU
-<U03BD> \xEE |0 # GREEK SMALL LETTER NU
-<U03BE> \xEA |0 # GREEK SMALL LETTER XI
-<U03BF> \xEF |0 # GREEK SMALL LETTER OMICRON
-<U03C0> \xF0 |0 # GREEK SMALL LETTER PI
-<U03C1> \xF2 |0 # GREEK SMALL LETTER RHO
-<U03C2> \xF7 |0 # GREEK SMALL LETTER FINAL SIGMA
-<U03C3> \xF3 |0 # GREEK SMALL LETTER SIGMA
-<U03C4> \xF4 |0 # GREEK SMALL LETTER TAU
-<U03C5> \xF9 |0 # GREEK SMALL LETTER UPSILON
-<U03C6> \xE6 |0 # GREEK SMALL LETTER PHI
-<U03C7> \xF8 |0 # GREEK SMALL LETTER CHI
-<U03C8> \xE3 |0 # GREEK SMALL LETTER PSI
-<U03C9> \xF6 |0 # GREEK SMALL LETTER OMEGA
-<U03CA> \xFB |0 # GREEK SMALL LETTER IOTA WITH DIALYTIKA
-<U03CB> \xFC |0 # GREEK SMALL LETTER UPSILON WITH DIALYTIKA
-<U03CC> \xDE |0 # GREEK SMALL LETTER OMICRON WITH TONOS
-<U03CD> \xE0 |0 # GREEK SMALL LETTER UPSILON WITH TONOS
-<U03CE> \xF1 |0 # GREEK SMALL LETTER OMEGA WITH TONOS
-<U2013> \xD0 |0 # EN DASH
-<U2015> \xD1 |0 # HORIZONTAL BAR
-<U2018> \xD4 |0 # LEFT SINGLE QUOTATION MARK
-<U2019> \xD5 |0 # RIGHT SINGLE QUOTATION MARK
-<U201C> \xD2 |0 # LEFT DOUBLE QUOTATION MARK
-<U201D> \xD3 |0 # RIGHT DOUBLE QUOTATION MARK
-<U2020> \xA0 |0 # DAGGER
-<U2022> \x96 |0 # BULLET
-<U2026> \xC9 |0 # HORIZONTAL ELLIPSIS
-<U2030> \x98 |0 # PER MILLE SIGN
-<U20AC> \x9C |0 # EURO SIGN # before Mac OS 9.2.2, was SOFT HYPHEN
-<U2122> \x93 |0 # TRADE MARK SIGN
-<U2248> \xC5 |0 # ALMOST EQUAL TO
-<U2260> \xAD |0 # NOT EQUAL TO
-<U2264> \xB2 |0 # LESS-THAN OR EQUAL TO
-<U2265> \xB3 |0 # GREATER-THAN OR EQUAL TO
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/macHebrew.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/macHebrew.ucm
deleted file mode 100644
index cb8471c..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/macHebrew.ucm
+++ /dev/null
@@ -1,231 +0,0 @@
-#
-# $Id: macHebrew.ucm,v 2.0 2004/05/16 20:55:27 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/VENDORS/APPLE/HEBREW.TXT
-#
-<code_set_name> "MacHebrew"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3F
-CHARMAP
-<U0000> \x00 |0 # <control>
-<U0001> \x01 |0 # <control>
-<U0002> \x02 |0 # <control>
-<U0003> \x03 |0 # <control>
-<U0004> \x04 |0 # <control>
-<U0005> \x05 |0 # <control>
-<U0006> \x06 |0 # <control>
-<U0007> \x07 |0 # <control>
-<U0008> \x08 |0 # <control>
-<U0009> \x09 |0 # <control>
-<U000A> \x0A |0 # <control>
-<U000B> \x0B |0 # <control>
-<U000C> \x0C |0 # <control>
-<U000D> \x0D |0 # <control>
-<U000E> \x0E |0 # <control>
-<U000F> \x0F |0 # <control>
-<U0010> \x10 |0 # <control>
-<U0011> \x11 |0 # <control>
-<U0012> \x12 |0 # <control>
-<U0013> \x13 |0 # <control>
-<U0014> \x14 |0 # <control>
-<U0015> \x15 |0 # <control>
-<U0016> \x16 |0 # <control>
-<U0017> \x17 |0 # <control>
-<U0018> \x18 |0 # <control>
-<U0019> \x19 |0 # <control>
-<U001A> \x1A |0 # <control>
-<U001B> \x1B |0 # <control>
-<U001C> \x1C |0 # <control>
-<U001D> \x1D |0 # <control>
-<U001E> \x1E |0 # <control>
-<U001F> \x1F |0 # <control>
-<U0020> \xA0 |0 # SPACE, right-left
-<U0021> \xA1 |0 # EXCLAMATION MARK, right-left
-<U0022> \xA2 |0 # QUOTATION MARK, right-left
-<U0023> \xA3 |0 # NUMBER SIGN, right-left
-<U0024> \xA4 |0 # DOLLAR SIGN, right-left
-<U0025> \xA5 |0 # PERCENT SIGN, right-left
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \xA7 |0 # APOSTROPHE, right-left
-<U0028> \xA9 |0 # LEFT PARENTHESIS, right-left
-<U0029> \xA8 |0 # RIGHT PARENTHESIS, right-left
-<U002A> \xAA |0 # ASTERISK, right-left
-<U002B> \xAB |0 # PLUS SIGN, right-left
-<U002C> \xAC |0 # COMMA, right-left
-<U002D> \xAD |0 # HYPHEN-MINUS, right-left
-<U002E> \xAE |0 # FULL STOP, right-left
-<U002F> \xAF |0 # SOLIDUS, right-left
-<U0030> \xB0 |0 # DIGIT ZERO, right-left (need override)
-<U0031> \xB1 |0 # DIGIT ONE, right-left (need override)
-<U0032> \xB2 |0 # DIGIT TWO, right-left (need override)
-<U0033> \xB3 |0 # DIGIT THREE, right-left (need override)
-<U0034> \xB4 |0 # DIGIT FOUR, right-left (need override)
-<U0035> \xB5 |0 # DIGIT FIVE, right-left (need override)
-<U0036> \xB6 |0 # DIGIT SIX, right-left (need override)
-<U0037> \xB7 |0 # DIGIT SEVEN, right-left (need override)
-<U0038> \xB8 |0 # DIGIT EIGHT, right-left (need override)
-<U0039> \xB9 |0 # DIGIT NINE, right-left (need override)
-<U003A> \xBA |0 # COLON, right-left
-<U003B> \xBB |0 # SEMICOLON, right-left
-<U003C> \xBC |0 # LESS-THAN SIGN, right-left
-<U003D> \xBD |0 # EQUALS SIGN, right-left
-<U003E> \xBE |0 # GREATER-THAN SIGN, right-left
-<U003F> \xBF |0 # QUESTION MARK, right-left
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004A> \x4A |0 # LATIN CAPITAL LETTER J
-<U004B> \x4B |0 # LATIN CAPITAL LETTER K
-<U004C> \x4C |0 # LATIN CAPITAL LETTER L
-<U004D> \x4D |0 # LATIN CAPITAL LETTER M
-<U004E> \x4E |0 # LATIN CAPITAL LETTER N
-<U004F> \x4F |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005A> \x5A |0 # LATIN CAPITAL LETTER Z
-<U005B> \xFE |0 # LEFT SQUARE BRACKET, right-left
-<U005C> \x5C |0 # REVERSE SOLIDUS
-<U005D> \xFC |0 # RIGHT SQUARE BRACKET, right-left
-<U005E> \x5E |0 # CIRCUMFLEX ACCENT
-<U005F> \x5F |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006A> \x6A |0 # LATIN SMALL LETTER J
-<U006B> \x6B |0 # LATIN SMALL LETTER K
-<U006C> \x6C |0 # LATIN SMALL LETTER L
-<U006D> \x6D |0 # LATIN SMALL LETTER M
-<U006E> \x6E |0 # LATIN SMALL LETTER N
-<U006F> \x6F |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007A> \x7A |0 # LATIN SMALL LETTER Z
-<U007B> \xFD |0 # LEFT CURLY BRACKET, right-left
-<U007C> \xFF |0 # VERTICAL LINE, right-left
-<U007D> \xFB |0 # RIGHT CURLY BRACKET, right-left
-<U007E> \x7E |0 # TILDE
-<U00A0> \xCA |0 # NO-BREAK SPACE, right-left
-<U00C4> \x80 |0 # LATIN CAPITAL LETTER A WITH DIAERESIS
-<U00C7> \x82 |0 # LATIN CAPITAL LETTER C WITH CEDILLA
-<U00C9> \x83 |0 # LATIN CAPITAL LETTER E WITH ACUTE
-<U00D1> \x84 |0 # LATIN CAPITAL LETTER N WITH TILDE
-<U00D6> \x85 |0 # LATIN CAPITAL LETTER O WITH DIAERESIS
-<U00DC> \x86 |0 # LATIN CAPITAL LETTER U WITH DIAERESIS
-<U00E0> \x88 |0 # LATIN SMALL LETTER A WITH GRAVE
-<U00E1> \x87 |0 # LATIN SMALL LETTER A WITH ACUTE
-<U00E2> \x89 |0 # LATIN SMALL LETTER A WITH CIRCUMFLEX
-<U00E3> \x8B |0 # LATIN SMALL LETTER A WITH TILDE
-<U00E4> \x8A |0 # LATIN SMALL LETTER A WITH DIAERESIS
-<U00E5> \x8C |0 # LATIN SMALL LETTER A WITH RING ABOVE
-<U00E7> \x8D |0 # LATIN SMALL LETTER C WITH CEDILLA
-<U00E8> \x8F |0 # LATIN SMALL LETTER E WITH GRAVE
-<U00E9> \x8E |0 # LATIN SMALL LETTER E WITH ACUTE
-<U00EA> \x90 |0 # LATIN SMALL LETTER E WITH CIRCUMFLEX
-<U00EB> \x91 |0 # LATIN SMALL LETTER E WITH DIAERESIS
-<U00EC> \x93 |0 # LATIN SMALL LETTER I WITH GRAVE
-<U00ED> \x92 |0 # LATIN SMALL LETTER I WITH ACUTE
-<U00EE> \x94 |0 # LATIN SMALL LETTER I WITH CIRCUMFLEX
-<U00EF> \x95 |0 # LATIN SMALL LETTER I WITH DIAERESIS
-<U00F1> \x96 |0 # LATIN SMALL LETTER N WITH TILDE
-<U00F2> \x98 |0 # LATIN SMALL LETTER O WITH GRAVE
-<U00F3> \x97 |0 # LATIN SMALL LETTER O WITH ACUTE
-<U00F4> \x99 |0 # LATIN SMALL LETTER O WITH CIRCUMFLEX
-<U00F5> \x9B |0 # LATIN SMALL LETTER O WITH TILDE
-<U00F6> \x9A |0 # LATIN SMALL LETTER O WITH DIAERESIS
-<U00F9> \x9D |0 # LATIN SMALL LETTER U WITH GRAVE
-<U00FA> \x9C |0 # LATIN SMALL LETTER U WITH ACUTE
-<U00FB> \x9E |0 # LATIN SMALL LETTER U WITH CIRCUMFLEX
-<U00FC> \x9F |0 # LATIN SMALL LETTER U WITH DIAERESIS
-<U05B0> \xD9 |0 # HEBREW POINT SHEVA
-<U05B1> \xDB |0 # HEBREW POINT HATAF SEGOL
-<U05B2> \xDA |0 # HEBREW POINT HATAF PATAH
-<U05B3> \xDF |0 # HEBREW POINT HATAF QAMATS
-<U05B4> \xCF |0 # HEBREW POINT HIRIQ
-<U05B5> \xCD |0 # HEBREW POINT TSERE
-<U05B6> \xCE |0 # HEBREW POINT SEGOL
-<U05B7> \xCC |0 # HEBREW POINT PATAH
-<U05B8> \xCB |0 # HEBREW POINT QAMATS
-<U05B8><UF87F> \xDE |3 # HEBREW POINT QAMATS, alternate form "qamats qatan"
-<U05B9> \xDD |0 # HEBREW POINT HOLAM
-<U05BB> \xDC |0 # HEBREW POINT QUBUTS
-<U05BC> \xC6 |0 # HEBREW POINT DAGESH OR MAPIQ
-<U05BF> \xD8 |0 # HEBREW POINT RAFE
-<U05D0> \xE0 |0 # HEBREW LETTER ALEF
-<U05D1> \xE1 |0 # HEBREW LETTER BET
-<U05D2> \xE2 |0 # HEBREW LETTER GIMEL
-<U05D3> \xE3 |0 # HEBREW LETTER DALET
-<U05D4> \xE4 |0 # HEBREW LETTER HE
-<U05D5> \xE5 |0 # HEBREW LETTER VAV
-<U05D6> \xE6 |0 # HEBREW LETTER ZAYIN
-<U05D7> \xE7 |0 # HEBREW LETTER HET
-<U05D8> \xE8 |0 # HEBREW LETTER TET
-<U05D9> \xE9 |0 # HEBREW LETTER YOD
-<U05DA> \xEA |0 # HEBREW LETTER FINAL KAF
-<U05DB> \xEB |0 # HEBREW LETTER KAF
-<U05DC> \xEC |0 # HEBREW LETTER LAMED
-<U05DD> \xED |0 # HEBREW LETTER FINAL MEM
-<U05DE> \xEE |0 # HEBREW LETTER MEM
-<U05DF> \xEF |0 # HEBREW LETTER FINAL NUN
-<U05E0> \xF0 |0 # HEBREW LETTER NUN
-<U05E1> \xF1 |0 # HEBREW LETTER SAMEKH
-<U05E2> \xF2 |0 # HEBREW LETTER AYIN
-<U05E3> \xF3 |0 # HEBREW LETTER FINAL PE
-<U05E4> \xF4 |0 # HEBREW LETTER PE
-<U05E5> \xF5 |0 # HEBREW LETTER FINAL TSADI
-<U05E6> \xF6 |0 # HEBREW LETTER TSADI
-<U05E7> \xF7 |0 # HEBREW LETTER QOF
-<U05E8> \xF8 |0 # HEBREW LETTER RESH
-<U05E9> \xF9 |0 # HEBREW LETTER SHIN
-<U05EA> \xFA |0 # HEBREW LETTER TAV
-<U05F2><U05B7> \x81 |3 # HEBREW LIGATURE YIDDISH YOD YOD PATAH
-<U2013> \xD0 |0 # EN DASH, right-left
-<U2014> \xD1 |0 # EM DASH, right-left
-<U2018> \xD4 |0 # LEFT SINGLE QUOTATION MARK, right-left
-<U2019> \xD5 |0 # RIGHT SINGLE QUOTATION MARK, right-left
-<U201C> \xD2 |0 # LEFT DOUBLE QUOTATION MARK, right-left
-<U201D> \xD3 |0 # RIGHT DOUBLE QUOTATION MARK, right-left
-<U201E> \xC1 |0 # DOUBLE LOW-9 QUOTATION MARK, right-left
-<U2026> \xC9 |0 # HORIZONTAL ELLIPSIS, right-left
-<U20AA> \xA6 |0 # NEW SHEQEL SIGN
-<UF86A><U05DC><U05B9> \xC0 |3 # Hebrew ligature lamed holam
-<UF89B> \xC2 |0 # Hebrew canoral 1
-<UF89C> \xC3 |0 # Hebrew canoral 2
-<UF89D> \xC4 |0 # Hebrew canoral 3
-<UF89E> \xC5 |0 # Hebrew canoral 4
-<UFB2A> \xD6 |0 # HEBREW LETTER SHIN WITH SHIN DOT
-<UFB2B> \xD7 |0 # HEBREW LETTER SHIN WITH SIN DOT
-<UFB35> \xC8 |0 # HEBREW LETTER VAV WITH DAGESH
-<UFB4B> \xC7 |0 # HEBREW LETTER VAV WITH HOLAM
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/macIceland.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/macIceland.ucm
deleted file mode 100644
index ed185ac..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/macIceland.ucm
+++ /dev/null
@@ -1,268 +0,0 @@
-#
-# $Id: macIceland.ucm,v 2.0 2004/05/16 20:55:27 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/VENDORS/APPLE/ICELAND.TXT
-#
-<code_set_name> "MacIcelandic"
-<code_set_alias> "MacIceland"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3F
-CHARMAP
-<U0000> \x00 |0 # <control>
-<U0001> \x01 |0 # <control>
-<U0002> \x02 |0 # <control>
-<U0003> \x03 |0 # <control>
-<U0004> \x04 |0 # <control>
-<U0005> \x05 |0 # <control>
-<U0006> \x06 |0 # <control>
-<U0007> \x07 |0 # <control>
-<U0008> \x08 |0 # <control>
-<U0009> \x09 |0 # <control>
-<U000A> \x0A |0 # <control>
-<U000B> \x0B |0 # <control>
-<U000C> \x0C |0 # <control>
-<U000D> \x0D |0 # <control>
-<U000E> \x0E |0 # <control>
-<U000F> \x0F |0 # <control>
-<U0010> \x10 |0 # <control>
-<U0011> \x11 |0 # <control>
-<U0012> \x12 |0 # <control>
-<U0013> \x13 |0 # <control>
-<U0014> \x14 |0 # <control>
-<U0015> \x15 |0 # <control>
-<U0016> \x16 |0 # <control>
-<U0017> \x17 |0 # <control>
-<U0018> \x18 |0 # <control>
-<U0019> \x19 |0 # <control>
-<U001A> \x1A |0 # <control>
-<U001B> \x1B |0 # <control>
-<U001C> \x1C |0 # <control>
-<U001D> \x1D |0 # <control>
-<U001E> \x1E |0 # <control>
-<U001F> \x1F |0 # <control>
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002A> \x2A |0 # ASTERISK
-<U002B> \x2B |0 # PLUS SIGN
-<U002C> \x2C |0 # COMMA
-<U002D> \x2D |0 # HYPHEN-MINUS
-<U002E> \x2E |0 # FULL STOP
-<U002F> \x2F |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003A> \x3A |0 # COLON
-<U003B> \x3B |0 # SEMICOLON
-<U003C> \x3C |0 # LESS-THAN SIGN
-<U003D> \x3D |0 # EQUALS SIGN
-<U003E> \x3E |0 # GREATER-THAN SIGN
-<U003F> \x3F |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004A> \x4A |0 # LATIN CAPITAL LETTER J
-<U004B> \x4B |0 # LATIN CAPITAL LETTER K
-<U004C> \x4C |0 # LATIN CAPITAL LETTER L
-<U004D> \x4D |0 # LATIN CAPITAL LETTER M
-<U004E> \x4E |0 # LATIN CAPITAL LETTER N
-<U004F> \x4F |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005A> \x5A |0 # LATIN CAPITAL LETTER Z
-<U005B> \x5B |0 # LEFT SQUARE BRACKET
-<U005C> \x5C |0 # REVERSE SOLIDUS
-<U005D> \x5D |0 # RIGHT SQUARE BRACKET
-<U005E> \x5E |0 # CIRCUMFLEX ACCENT
-<U005F> \x5F |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006A> \x6A |0 # LATIN SMALL LETTER J
-<U006B> \x6B |0 # LATIN SMALL LETTER K
-<U006C> \x6C |0 # LATIN SMALL LETTER L
-<U006D> \x6D |0 # LATIN SMALL LETTER M
-<U006E> \x6E |0 # LATIN SMALL LETTER N
-<U006F> \x6F |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007A> \x7A |0 # LATIN SMALL LETTER Z
-<U007B> \x7B |0 # LEFT CURLY BRACKET
-<U007C> \x7C |0 # VERTICAL LINE
-<U007D> \x7D |0 # RIGHT CURLY BRACKET
-<U007E> \x7E |0 # TILDE
-<U00A0> \xCA |0 # NO-BREAK SPACE
-<U00A1> \xC1 |0 # INVERTED EXCLAMATION MARK
-<U00A2> \xA2 |0 # CENT SIGN
-<U00A3> \xA3 |0 # POUND SIGN
-<U00A5> \xB4 |0 # YEN SIGN
-<U00A7> \xA4 |0 # SECTION SIGN
-<U00A8> \xAC |0 # DIAERESIS
-<U00A9> \xA9 |0 # COPYRIGHT SIGN
-<U00AA> \xBB |0 # FEMININE ORDINAL INDICATOR
-<U00AB> \xC7 |0 # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00AC> \xC2 |0 # NOT SIGN
-<U00AE> \xA8 |0 # REGISTERED SIGN
-<U00AF> \xF8 |0 # MACRON
-<U00B0> \xA1 |0 # DEGREE SIGN
-<U00B1> \xB1 |0 # PLUS-MINUS SIGN
-<U00B4> \xAB |0 # ACUTE ACCENT
-<U00B5> \xB5 |0 # MICRO SIGN
-<U00B6> \xA6 |0 # PILCROW SIGN
-<U00B7> \xE1 |0 # MIDDLE DOT
-<U00B8> \xFC |0 # CEDILLA
-<U00BA> \xBC |0 # MASCULINE ORDINAL INDICATOR
-<U00BB> \xC8 |0 # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00BF> \xC0 |0 # INVERTED QUESTION MARK
-<U00C0> \xCB |0 # LATIN CAPITAL LETTER A WITH GRAVE
-<U00C1> \xE7 |0 # LATIN CAPITAL LETTER A WITH ACUTE
-<U00C2> \xE5 |0 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
-<U00C3> \xCC |0 # LATIN CAPITAL LETTER A WITH TILDE
-<U00C4> \x80 |0 # LATIN CAPITAL LETTER A WITH DIAERESIS
-<U00C5> \x81 |0 # LATIN CAPITAL LETTER A WITH RING ABOVE
-<U00C6> \xAE |0 # LATIN CAPITAL LETTER AE
-<U00C7> \x82 |0 # LATIN CAPITAL LETTER C WITH CEDILLA
-<U00C8> \xE9 |0 # LATIN CAPITAL LETTER E WITH GRAVE
-<U00C9> \x83 |0 # LATIN CAPITAL LETTER E WITH ACUTE
-<U00CA> \xE6 |0 # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
-<U00CB> \xE8 |0 # LATIN CAPITAL LETTER E WITH DIAERESIS
-<U00CC> \xED |0 # LATIN CAPITAL LETTER I WITH GRAVE
-<U00CD> \xEA |0 # LATIN CAPITAL LETTER I WITH ACUTE
-<U00CE> \xEB |0 # LATIN CAPITAL LETTER I WITH CIRCUMFLEX
-<U00CF> \xEC |0 # LATIN CAPITAL LETTER I WITH DIAERESIS
-<U00D0> \xDC |0 # LATIN CAPITAL LETTER ETH
-<U00D1> \x84 |0 # LATIN CAPITAL LETTER N WITH TILDE
-<U00D2> \xF1 |0 # LATIN CAPITAL LETTER O WITH GRAVE
-<U00D3> \xEE |0 # LATIN CAPITAL LETTER O WITH ACUTE
-<U00D4> \xEF |0 # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
-<U00D5> \xCD |0 # LATIN CAPITAL LETTER O WITH TILDE
-<U00D6> \x85 |0 # LATIN CAPITAL LETTER O WITH DIAERESIS
-<U00D8> \xAF |0 # LATIN CAPITAL LETTER O WITH STROKE
-<U00D9> \xF4 |0 # LATIN CAPITAL LETTER U WITH GRAVE
-<U00DA> \xF2 |0 # LATIN CAPITAL LETTER U WITH ACUTE
-<U00DB> \xF3 |0 # LATIN CAPITAL LETTER U WITH CIRCUMFLEX
-<U00DC> \x86 |0 # LATIN CAPITAL LETTER U WITH DIAERESIS
-<U00DD> \xA0 |0 # LATIN CAPITAL LETTER Y WITH ACUTE
-<U00DE> \xDE |0 # LATIN CAPITAL LETTER THORN
-<U00DF> \xA7 |0 # LATIN SMALL LETTER SHARP S
-<U00E0> \x88 |0 # LATIN SMALL LETTER A WITH GRAVE
-<U00E1> \x87 |0 # LATIN SMALL LETTER A WITH ACUTE
-<U00E2> \x89 |0 # LATIN SMALL LETTER A WITH CIRCUMFLEX
-<U00E3> \x8B |0 # LATIN SMALL LETTER A WITH TILDE
-<U00E4> \x8A |0 # LATIN SMALL LETTER A WITH DIAERESIS
-<U00E5> \x8C |0 # LATIN SMALL LETTER A WITH RING ABOVE
-<U00E6> \xBE |0 # LATIN SMALL LETTER AE
-<U00E7> \x8D |0 # LATIN SMALL LETTER C WITH CEDILLA
-<U00E8> \x8F |0 # LATIN SMALL LETTER E WITH GRAVE
-<U00E9> \x8E |0 # LATIN SMALL LETTER E WITH ACUTE
-<U00EA> \x90 |0 # LATIN SMALL LETTER E WITH CIRCUMFLEX
-<U00EB> \x91 |0 # LATIN SMALL LETTER E WITH DIAERESIS
-<U00EC> \x93 |0 # LATIN SMALL LETTER I WITH GRAVE
-<U00ED> \x92 |0 # LATIN SMALL LETTER I WITH ACUTE
-<U00EE> \x94 |0 # LATIN SMALL LETTER I WITH CIRCUMFLEX
-<U00EF> \x95 |0 # LATIN SMALL LETTER I WITH DIAERESIS
-<U00F0> \xDD |0 # LATIN SMALL LETTER ETH
-<U00F1> \x96 |0 # LATIN SMALL LETTER N WITH TILDE
-<U00F2> \x98 |0 # LATIN SMALL LETTER O WITH GRAVE
-<U00F3> \x97 |0 # LATIN SMALL LETTER O WITH ACUTE
-<U00F4> \x99 |0 # LATIN SMALL LETTER O WITH CIRCUMFLEX
-<U00F5> \x9B |0 # LATIN SMALL LETTER O WITH TILDE
-<U00F6> \x9A |0 # LATIN SMALL LETTER O WITH DIAERESIS
-<U00F7> \xD6 |0 # DIVISION SIGN
-<U00F8> \xBF |0 # LATIN SMALL LETTER O WITH STROKE
-<U00F9> \x9D |0 # LATIN SMALL LETTER U WITH GRAVE
-<U00FA> \x9C |0 # LATIN SMALL LETTER U WITH ACUTE
-<U00FB> \x9E |0 # LATIN SMALL LETTER U WITH CIRCUMFLEX
-<U00FC> \x9F |0 # LATIN SMALL LETTER U WITH DIAERESIS
-<U00FD> \xE0 |0 # LATIN SMALL LETTER Y WITH ACUTE
-<U00FE> \xDF |0 # LATIN SMALL LETTER THORN
-<U00FF> \xD8 |0 # LATIN SMALL LETTER Y WITH DIAERESIS
-<U0131> \xF5 |0 # LATIN SMALL LETTER DOTLESS I
-<U0152> \xCE |0 # LATIN CAPITAL LIGATURE OE
-<U0153> \xCF |0 # LATIN SMALL LIGATURE OE
-<U0178> \xD9 |0 # LATIN CAPITAL LETTER Y WITH DIAERESIS
-<U0192> \xC4 |0 # LATIN SMALL LETTER F WITH HOOK
-<U02C6> \xF6 |0 # MODIFIER LETTER CIRCUMFLEX ACCENT
-<U02C7> \xFF |0 # CARON
-<U02D8> \xF9 |0 # BREVE
-<U02D9> \xFA |0 # DOT ABOVE
-<U02DA> \xFB |0 # RING ABOVE
-<U02DB> \xFE |0 # OGONEK
-<U02DC> \xF7 |0 # SMALL TILDE
-<U02DD> \xFD |0 # DOUBLE ACUTE ACCENT
-<U03A9> \xBD |0 # GREEK CAPITAL LETTER OMEGA
-<U03C0> \xB9 |0 # GREEK SMALL LETTER PI
-<U2013> \xD0 |0 # EN DASH
-<U2014> \xD1 |0 # EM DASH
-<U2018> \xD4 |0 # LEFT SINGLE QUOTATION MARK
-<U2019> \xD5 |0 # RIGHT SINGLE QUOTATION MARK
-<U201A> \xE2 |0 # SINGLE LOW-9 QUOTATION MARK
-<U201C> \xD2 |0 # LEFT DOUBLE QUOTATION MARK
-<U201D> \xD3 |0 # RIGHT DOUBLE QUOTATION MARK
-<U201E> \xE3 |0 # DOUBLE LOW-9 QUOTATION MARK
-<U2022> \xA5 |0 # BULLET
-<U2026> \xC9 |0 # HORIZONTAL ELLIPSIS
-<U2030> \xE4 |0 # PER MILLE SIGN
-<U2044> \xDA |0 # FRACTION SLASH
-<U20AC> \xDB |0 # EURO SIGN
-<U2122> \xAA |0 # TRADE MARK SIGN
-<U2202> \xB6 |0 # PARTIAL DIFFERENTIAL
-<U2206> \xC6 |0 # INCREMENT
-<U220F> \xB8 |0 # N-ARY PRODUCT
-<U2211> \xB7 |0 # N-ARY SUMMATION
-<U221A> \xC3 |0 # SQUARE ROOT
-<U221E> \xB0 |0 # INFINITY
-<U222B> \xBA |0 # INTEGRAL
-<U2248> \xC5 |0 # ALMOST EQUAL TO
-<U2260> \xAD |0 # NOT EQUAL TO
-<U2264> \xB2 |0 # LESS-THAN OR EQUAL TO
-<U2265> \xB3 |0 # GREATER-THAN OR EQUAL TO
-<U25CA> \xD7 |0 # LOZENGE
-<UF8FF> \xF0 |0 # Apple logo
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/macRUMnn.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/macRUMnn.ucm
deleted file mode 100644
index 749038e..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/macRUMnn.ucm
+++ /dev/null
@@ -1,267 +0,0 @@
-#
-# $Id: macRUMnn.ucm,v 2.0 2004/05/16 20:55:27 dankogai Exp $
-#
-# ./compile -n macRumanian -o Encode/macRumanian.ucm Encode/macRumanian.enc
-<code_set_name> "MacRumanian"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3F
-#
-CHARMAP
-<U0000> \x00 |0 # NULL
-<U0001> \x01 |0 # START OF HEADING
-<U0002> \x02 |0 # START OF TEXT
-<U0003> \x03 |0 # END OF TEXT
-<U0004> \x04 |0 # END OF TRANSMISSION
-<U0005> \x05 |0 # ENQUIRY
-<U0006> \x06 |0 # ACKNOWLEDGE
-<U0007> \x07 |0 # BELL
-<U0008> \x08 |0 # BACKSPACE
-<U0009> \x09 |0 # HORIZONTAL TABULATION
-<U000A> \x0A |0 # LINE FEED
-<U000B> \x0B |0 # VERTICAL TABULATION
-<U000C> \x0C |0 # FORM FEED
-<U000D> \x0D |0 # CARRIAGE RETURN
-<U000E> \x0E |0 # SHIFT OUT
-<U000F> \x0F |0 # SHIFT IN
-<U0010> \x10 |0 # DATA LINK ESCAPE
-<U0011> \x11 |0 # DEVICE CONTROL ONE
-<U0012> \x12 |0 # DEVICE CONTROL TWO
-<U0013> \x13 |0 # DEVICE CONTROL THREE
-<U0014> \x14 |0 # DEVICE CONTROL FOUR
-<U0015> \x15 |0 # NEGATIVE ACKNOWLEDGE
-<U0016> \x16 |0 # SYNCHRONOUS IDLE
-<U0017> \x17 |0 # END OF TRANSMISSION BLOCK
-<U0018> \x18 |0 # CANCEL
-<U0019> \x19 |0 # END OF MEDIUM
-<U001A> \x1A |0 # SUBSTITUTE
-<U001B> \x1B |0 # ESCAPE
-<U001C> \x1C |0 # FILE SEPARATOR
-<U001D> \x1D |0 # GROUP SEPARATOR
-<U001E> \x1E |0 # RECORD SEPARATOR
-<U001F> \x1F |0 # UNIT SEPARATOR
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x27 |0 # APOSTROPHE
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002A> \x2A |0 # ASTERISK
-<U002B> \x2B |0 # PLUS SIGN
-<U002C> \x2C |0 # COMMA
-<U002D> \x2D |0 # HYPHEN-MINUS
-<U002E> \x2E |0 # FULL STOP
-<U002F> \x2F |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003A> \x3A |0 # COLON
-<U003B> \x3B |0 # SEMICOLON
-<U003C> \x3C |0 # LESS-THAN SIGN
-<U003D> \x3D |0 # EQUALS SIGN
-<U003E> \x3E |0 # GREATER-THAN SIGN
-<U003F> \x3F |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004A> \x4A |0 # LATIN CAPITAL LETTER J
-<U004B> \x4B |0 # LATIN CAPITAL LETTER K
-<U004C> \x4C |0 # LATIN CAPITAL LETTER L
-<U004D> \x4D |0 # LATIN CAPITAL LETTER M
-<U004E> \x4E |0 # LATIN CAPITAL LETTER N
-<U004F> \x4F |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005A> \x5A |0 # LATIN CAPITAL LETTER Z
-<U005B> \x5B |0 # LEFT SQUARE BRACKET
-<U005C> \x5C |0 # REVERSE SOLIDUS
-<U005D> \x5D |0 # RIGHT SQUARE BRACKET
-<U005E> \x5E |0 # CIRCUMFLEX ACCENT
-<U005F> \x5F |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006A> \x6A |0 # LATIN SMALL LETTER J
-<U006B> \x6B |0 # LATIN SMALL LETTER K
-<U006C> \x6C |0 # LATIN SMALL LETTER L
-<U006D> \x6D |0 # LATIN SMALL LETTER M
-<U006E> \x6E |0 # LATIN SMALL LETTER N
-<U006F> \x6F |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007A> \x7A |0 # LATIN SMALL LETTER Z
-<U007B> \x7B |0 # LEFT CURLY BRACKET
-<U007C> \x7C |0 # VERTICAL LINE
-<U007D> \x7D |0 # RIGHT CURLY BRACKET
-<U007E> \x7E |0 # TILDE
-<U007F> \x7F |0 # DELETE
-<U00C4> \x80 |0 # LATIN CAPITAL LETTER A WITH DIAERESIS
-<U00C5> \x81 |0 # LATIN CAPITAL LETTER A WITH RING ABOVE
-<U00C7> \x82 |0 # LATIN CAPITAL LETTER C WITH CEDILLA
-<U00C9> \x83 |0 # LATIN CAPITAL LETTER E WITH ACUTE
-<U00D1> \x84 |0 # LATIN CAPITAL LETTER N WITH TILDE
-<U00D6> \x85 |0 # LATIN CAPITAL LETTER O WITH DIAERESIS
-<U00DC> \x86 |0 # LATIN CAPITAL LETTER U WITH DIAERESIS
-<U00E1> \x87 |0 # LATIN SMALL LETTER A WITH ACUTE
-<U00E0> \x88 |0 # LATIN SMALL LETTER A WITH GRAVE
-<U00E2> \x89 |0 # LATIN SMALL LETTER A WITH CIRCUMFLEX
-<U00E4> \x8A |0 # LATIN SMALL LETTER A WITH DIAERESIS
-<U00E3> \x8B |0 # LATIN SMALL LETTER A WITH TILDE
-<U00E5> \x8C |0 # LATIN SMALL LETTER A WITH RING ABOVE
-<U00E7> \x8D |0 # LATIN SMALL LETTER C WITH CEDILLA
-<U00E9> \x8E |0 # LATIN SMALL LETTER E WITH ACUTE
-<U00E8> \x8F |0 # LATIN SMALL LETTER E WITH GRAVE
-<U00EA> \x90 |0 # LATIN SMALL LETTER E WITH CIRCUMFLEX
-<U00EB> \x91 |0 # LATIN SMALL LETTER E WITH DIAERESIS
-<U00ED> \x92 |0 # LATIN SMALL LETTER I WITH ACUTE
-<U00EC> \x93 |0 # LATIN SMALL LETTER I WITH GRAVE
-<U00EE> \x94 |0 # LATIN SMALL LETTER I WITH CIRCUMFLEX
-<U00EF> \x95 |0 # LATIN SMALL LETTER I WITH DIAERESIS
-<U00F1> \x96 |0 # LATIN SMALL LETTER N WITH TILDE
-<U00F3> \x97 |0 # LATIN SMALL LETTER O WITH ACUTE
-<U00F2> \x98 |0 # LATIN SMALL LETTER O WITH GRAVE
-<U00F4> \x99 |0 # LATIN SMALL LETTER O WITH CIRCUMFLEX
-<U00F6> \x9A |0 # LATIN SMALL LETTER O WITH DIAERESIS
-<U00F5> \x9B |0 # LATIN SMALL LETTER O WITH TILDE
-<U00FA> \x9C |0 # LATIN SMALL LETTER U WITH ACUTE
-<U00F9> \x9D |0 # LATIN SMALL LETTER U WITH GRAVE
-<U00FB> \x9E |0 # LATIN SMALL LETTER U WITH CIRCUMFLEX
-<U00FC> \x9F |0 # LATIN SMALL LETTER U WITH DIAERESIS
-<U2020> \xA0 |0 # DAGGER
-<U00B0> \xA1 |0 # DEGREE SIGN
-<U00A2> \xA2 |0 # CENT SIGN
-<U00A3> \xA3 |0 # POUND SIGN
-<U00A7> \xA4 |0 # SECTION SIGN
-<U2022> \xA5 |0 # BULLET
-<U00B6> \xA6 |0 # PILCROW SIGN
-<U00DF> \xA7 |0 # LATIN SMALL LETTER SHARP S
-<U00AE> \xA8 |0 # REGISTERED SIGN
-<U00A9> \xA9 |0 # COPYRIGHT SIGN
-<U2122> \xAA |0 # TRADE MARK SIGN
-<U00B4> \xAB |0 # ACUTE ACCENT
-<U00A8> \xAC |0 # DIAERESIS
-<U2260> \xAD |0 # NOT EQUAL TO
-<U0102> \xAE |0 # LATIN CAPITAL LETTER A WITH BREVE
-<U015E> \xAF |0 # LATIN CAPITAL LETTER S WITH CEDILLA
-<U221E> \xB0 |0 # INFINITY
-<U00B1> \xB1 |0 # PLUS-MINUS SIGN
-<U2264> \xB2 |0 # LESS-THAN OR EQUAL TO
-<U2265> \xB3 |0 # GREATER-THAN OR EQUAL TO
-<U00A5> \xB4 |0 # YEN SIGN
-<U00B5> \xB5 |0 # MICRO SIGN
-<U2202> \xB6 |0 # PARTIAL DIFFERENTIAL
-<U2211> \xB7 |0 # N-ARY SUMMATION
-<U220F> \xB8 |0 # N-ARY PRODUCT
-<U03C0> \xB9 |0 # GREEK SMALL LETTER PI
-<U222B> \xBA |0 # INTEGRAL
-<U00AA> \xBB |0 # FEMININE ORDINAL INDICATOR
-<U00BA> \xBC |0 # MASCULINE ORDINAL INDICATOR
-<U2126> \xBD |0 # OHM SIGN
-<U0103> \xBE |0 # LATIN SMALL LETTER A WITH BREVE
-<U015F> \xBF |0 # LATIN SMALL LETTER S WITH CEDILLA
-<U00BF> \xC0 |0 # INVERTED QUESTION MARK
-<U00A1> \xC1 |0 # INVERTED EXCLAMATION MARK
-<U00AC> \xC2 |0 # NOT SIGN
-<U221A> \xC3 |0 # SQUARE ROOT
-<U0192> \xC4 |0 # LATIN SMALL LETTER F WITH HOOK
-<U2248> \xC5 |0 # ALMOST EQUAL TO
-<U2206> \xC6 |0 # INCREMENT
-<U00AB> \xC7 |0 # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00BB> \xC8 |0 # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U2026> \xC9 |0 # HORIZONTAL ELLIPSIS
-<U00A0> \xCA |0 # NO-BREAK SPACE
-<U00C0> \xCB |0 # LATIN CAPITAL LETTER A WITH GRAVE
-<U00C3> \xCC |0 # LATIN CAPITAL LETTER A WITH TILDE
-<U00D5> \xCD |0 # LATIN CAPITAL LETTER O WITH TILDE
-<U0152> \xCE |0 # LATIN CAPITAL LIGATURE OE
-<U0153> \xCF |0 # LATIN SMALL LIGATURE OE
-<U2013> \xD0 |0 # EN DASH
-<U2014> \xD1 |0 # EM DASH
-<U201C> \xD2 |0 # LEFT DOUBLE QUOTATION MARK
-<U201D> \xD3 |0 # RIGHT DOUBLE QUOTATION MARK
-<U2018> \xD4 |0 # LEFT SINGLE QUOTATION MARK
-<U2019> \xD5 |0 # RIGHT SINGLE QUOTATION MARK
-<U00F7> \xD6 |0 # DIVISION SIGN
-<U25CA> \xD7 |0 # LOZENGE
-<U00FF> \xD8 |0 # LATIN SMALL LETTER Y WITH DIAERESIS
-<U0178> \xD9 |0 # LATIN CAPITAL LETTER Y WITH DIAERESIS
-<U2044> \xDA |0 # FRACTION SLASH
-<U00A4> \xDB |0 # CURRENCY SIGN
-<U2039> \xDC |0 # SINGLE LEFT-POINTING ANGLE QUOTATION MARK
-<U203A> \xDD |0 # SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
-<U0162> \xDE |0 # LATIN CAPITAL LETTER T WITH CEDILLA
-<U0163> \xDF |0 # LATIN SMALL LETTER T WITH CEDILLA
-<U2021> \xE0 |0 # DOUBLE DAGGER
-<U00B7> \xE1 |0 # MIDDLE DOT
-<U201A> \xE2 |0 # SINGLE LOW-9 QUOTATION MARK
-<U201E> \xE3 |0 # DOUBLE LOW-9 QUOTATION MARK
-<U2030> \xE4 |0 # PER MILLE SIGN
-<U00C2> \xE5 |0 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
-<U00CA> \xE6 |0 # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
-<U00C1> \xE7 |0 # LATIN CAPITAL LETTER A WITH ACUTE
-<U00CB> \xE8 |0 # LATIN CAPITAL LETTER E WITH DIAERESIS
-<U00C8> \xE9 |0 # LATIN CAPITAL LETTER E WITH GRAVE
-<U00CD> \xEA |0 # LATIN CAPITAL LETTER I WITH ACUTE
-<U00CE> \xEB |0 # LATIN CAPITAL LETTER I WITH CIRCUMFLEX
-<U00CF> \xEC |0 # LATIN CAPITAL LETTER I WITH DIAERESIS
-<U00CC> \xED |0 # LATIN CAPITAL LETTER I WITH GRAVE
-<U00D3> \xEE |0 # LATIN CAPITAL LETTER O WITH ACUTE
-<U00D4> \xEF |0 # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
-<UF8FF> \xF0 |0 # Private Use
-<U00D2> \xF1 |0 # LATIN CAPITAL LETTER O WITH GRAVE
-<U00DA> \xF2 |0 # LATIN CAPITAL LETTER U WITH ACUTE
-<U00DB> \xF3 |0 # LATIN CAPITAL LETTER U WITH CIRCUMFLEX
-<U00D9> \xF4 |0 # LATIN CAPITAL LETTER U WITH GRAVE
-<U0131> \xF5 |0 # LATIN SMALL LETTER DOTLESS I
-<U02C6> \xF6 |0 # MODIFIER LETTER CIRCUMFLEX ACCENT
-<U02DC> \xF7 |0 # SMALL TILDE
-<U00AF> \xF8 |0 # MACRON
-<U02D8> \xF9 |0 # BREVE
-<U02D9> \xFA |0 # DOT ABOVE
-<U02DA> \xFB |0 # RING ABOVE
-<U00B8> \xFC |0 # CEDILLA
-<U02DD> \xFD |0 # DOUBLE ACUTE ACCENT
-<U02DB> \xFE |0 # OGONEK
-<U02C7> \xFF |0 # CARON
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/macSami.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/macSami.ucm
deleted file mode 100644
index 5ec4314..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/macSami.ucm
+++ /dev/null
@@ -1,266 +0,0 @@
-#
-# $Id: macSami.ucm,v 2.0 2004/05/16 20:55:27 dankogai Exp $
-#
-# ./compile -n macSami -o Encode/macSami.ucm Encode/macSami.enc
-<code_set_name> "MacSami"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3F
-#
-CHARMAP
-<U0000> \x00 |0 # NULL
-<U0001> \x01 |0 # START OF HEADING
-<U0002> \x02 |0 # START OF TEXT
-<U0003> \x03 |0 # END OF TEXT
-<U0004> \x04 |0 # END OF TRANSMISSION
-<U0005> \x05 |0 # ENQUIRY
-<U0006> \x06 |0 # ACKNOWLEDGE
-<U0007> \x07 |0 # BELL
-<U0008> \x08 |0 # BACKSPACE
-<U0009> \x09 |0 # HORIZONTAL TABULATION
-<U000A> \x0A |0 # LINE FEED
-<U000B> \x0B |0 # VERTICAL TABULATION
-<U000C> \x0C |0 # FORM FEED
-<U000D> \x0D |0 # CARRIAGE RETURN
-<U000E> \x0E |0 # SHIFT OUT
-<U000F> \x0F |0 # SHIFT IN
-<U0010> \x10 |0 # DATA LINK ESCAPE
-<U0011> \x11 |0 # DEVICE CONTROL ONE
-<U0012> \x12 |0 # DEVICE CONTROL TWO
-<U0013> \x13 |0 # DEVICE CONTROL THREE
-<U0014> \x14 |0 # DEVICE CONTROL FOUR
-<U0015> \x15 |0 # NEGATIVE ACKNOWLEDGE
-<U0016> \x16 |0 # SYNCHRONOUS IDLE
-<U0017> \x17 |0 # END OF TRANSMISSION BLOCK
-<U0018> \x18 |0 # CANCEL
-<U0019> \x19 |0 # END OF MEDIUM
-<U001A> \x1A |0 # SUBSTITUTE
-<U001B> \x1B |0 # ESCAPE
-<U001C> \x1C |0 # FILE SEPARATOR
-<U001D> \x1D |0 # GROUP SEPARATOR
-<U001E> \x1E |0 # RECORD SEPARATOR
-<U001F> \x1F |0 # UNIT SEPARATOR
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0022> \x22 |0 # QUOTATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0024> \x24 |0 # DOLLAR SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0027> \x28 |0 # APOSTROPHE
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002A> \x2A |0 # ASTERISK
-<U002B> \x2B |0 # PLUS SIGN
-<U002C> \x2C |0 # COMMA
-<U002D> \x2D |0 # HYPHEN-MINUS
-<U002E> \x2E |0 # FULL STOP
-<U002F> \x2F |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003A> \x3A |0 # COLON
-<U003B> \x3B |0 # SEMICOLON
-<U003C> \x3C |0 # LESS-THAN SIGN
-<U003D> \x3D |0 # EQUALS SIGN
-<U003E> \x3E |0 # GREATER-THAN SIGN
-<U003F> \x3F |0 # QUESTION MARK
-<U0040> \x40 |0 # COMMERCIAL AT
-<U0041> \x41 |0 # LATIN CAPITAL LETTER A
-<U0042> \x42 |0 # LATIN CAPITAL LETTER B
-<U0043> \x43 |0 # LATIN CAPITAL LETTER C
-<U0044> \x44 |0 # LATIN CAPITAL LETTER D
-<U0045> \x45 |0 # LATIN CAPITAL LETTER E
-<U0046> \x46 |0 # LATIN CAPITAL LETTER F
-<U0047> \x47 |0 # LATIN CAPITAL LETTER G
-<U0048> \x48 |0 # LATIN CAPITAL LETTER H
-<U0049> \x49 |0 # LATIN CAPITAL LETTER I
-<U004A> \x4A |0 # LATIN CAPITAL LETTER J
-<U004B> \x4B |0 # LATIN CAPITAL LETTER K
-<U004C> \x4C |0 # LATIN CAPITAL LETTER L
-<U004D> \x4D |0 # LATIN CAPITAL LETTER M
-<U004E> \x4E |0 # LATIN CAPITAL LETTER N
-<U004F> \x4F |0 # LATIN CAPITAL LETTER O
-<U0050> \x50 |0 # LATIN CAPITAL LETTER P
-<U0051> \x51 |0 # LATIN CAPITAL LETTER Q
-<U0052> \x52 |0 # LATIN CAPITAL LETTER R
-<U0053> \x53 |0 # LATIN CAPITAL LETTER S
-<U0054> \x54 |0 # LATIN CAPITAL LETTER T
-<U0055> \x55 |0 # LATIN CAPITAL LETTER U
-<U0056> \x56 |0 # LATIN CAPITAL LETTER V
-<U0057> \x57 |0 # LATIN CAPITAL LETTER W
-<U0058> \x58 |0 # LATIN CAPITAL LETTER X
-<U0059> \x59 |0 # LATIN CAPITAL LETTER Y
-<U005A> \x5A |0 # LATIN CAPITAL LETTER Z
-<U005B> \x5B |0 # LEFT SQUARE BRACKET
-<U005C> \x5C |0 # REVERSE SOLIDUS
-<U005D> \x5D |0 # RIGHT SQUARE BRACKET
-<U005E> \x5E |0 # CIRCUMFLEX ACCENT
-<U005F> \x5F |0 # LOW LINE
-<U0060> \x60 |0 # GRAVE ACCENT
-<U0061> \x61 |0 # LATIN SMALL LETTER A
-<U0062> \x62 |0 # LATIN SMALL LETTER B
-<U0063> \x63 |0 # LATIN SMALL LETTER C
-<U0064> \x64 |0 # LATIN SMALL LETTER D
-<U0065> \x65 |0 # LATIN SMALL LETTER E
-<U0066> \x66 |0 # LATIN SMALL LETTER F
-<U0067> \x67 |0 # LATIN SMALL LETTER G
-<U0068> \x68 |0 # LATIN SMALL LETTER H
-<U0069> \x69 |0 # LATIN SMALL LETTER I
-<U006A> \x6A |0 # LATIN SMALL LETTER J
-<U006B> \x6B |0 # LATIN SMALL LETTER K
-<U006C> \x6C |0 # LATIN SMALL LETTER L
-<U006D> \x6D |0 # LATIN SMALL LETTER M
-<U006E> \x6E |0 # LATIN SMALL LETTER N
-<U006F> \x6F |0 # LATIN SMALL LETTER O
-<U0070> \x70 |0 # LATIN SMALL LETTER P
-<U0071> \x71 |0 # LATIN SMALL LETTER Q
-<U0072> \x72 |0 # LATIN SMALL LETTER R
-<U0073> \x73 |0 # LATIN SMALL LETTER S
-<U0074> \x74 |0 # LATIN SMALL LETTER T
-<U0075> \x75 |0 # LATIN SMALL LETTER U
-<U0076> \x76 |0 # LATIN SMALL LETTER V
-<U0077> \x77 |0 # LATIN SMALL LETTER W
-<U0078> \x78 |0 # LATIN SMALL LETTER X
-<U0079> \x79 |0 # LATIN SMALL LETTER Y
-<U007A> \x7A |0 # LATIN SMALL LETTER Z
-<U007B> \x7B |0 # LEFT CURLY BRACKET
-<U007C> \x7C |0 # VERTICAL LINE
-<U007D> \x7D |0 # RIGHT CURLY BRACKET
-<U007E> \x7E |0 # TILDE
-<U007F> \x7F |0 # DELETE
-<U00C4> \x80 |0 # LATIN CAPITAL LETTER A WITH DIAERESIS
-<U00C5> \x81 |0 # LATIN CAPITAL LETTER A WITH RING ABOVE
-<U00C7> \x82 |0 # LATIN CAPITAL LETTER C WITH CEDILLA
-<U00C9> \x83 |0 # LATIN CAPITAL LETTER E WITH ACUTE
-<U00D1> \x84 |0 # LATIN CAPITAL LETTER N WITH TILDE
-<U00D6> \x85 |0 # LATIN CAPITAL LETTER O WITH DIAERESIS
-<U00DC> \x86 |0 # LATIN CAPITAL LETTER U WITH DIAERESIS
-<U00E1> \x87 |0 # LATIN SMALL LETTER A WITH ACUTE
-<U00E0> \x88 |0 # LATIN SMALL LETTER A WITH GRAVE
-<U00E2> \x89 |0 # LATIN SMALL LETTER A WITH CIRCUMFLEX
-<U00E4> \x8A |0 # LATIN SMALL LETTER A WITH DIAERESIS
-<U00E3> \x8B |0 # LATIN SMALL LETTER A WITH TILDE
-<U00E5> \x8C |0 # LATIN SMALL LETTER A WITH RING ABOVE
-<U00E7> \x8D |0 # LATIN SMALL LETTER C WITH CEDILLA
-<U00E9> \x8E |0 # LATIN SMALL LETTER E WITH ACUTE
-<U00E8> \x8F |0 # LATIN SMALL LETTER E WITH GRAVE
-<U00EA> \x90 |0 # LATIN SMALL LETTER E WITH CIRCUMFLEX
-<U00EB> \x91 |0 # LATIN SMALL LETTER E WITH DIAERESIS
-<U00ED> \x92 |0 # LATIN SMALL LETTER I WITH ACUTE
-<U00EC> \x93 |0 # LATIN SMALL LETTER I WITH GRAVE
-<U00EE> \x94 |0 # LATIN SMALL LETTER I WITH CIRCUMFLEX
-<U00EF> \x95 |0 # LATIN SMALL LETTER I WITH DIAERESIS
-<U00F1> \x96 |0 # LATIN SMALL LETTER N WITH TILDE
-<U00F3> \x97 |0 # LATIN SMALL LETTER O WITH ACUTE
-<U0098> \x98 |0 # START OF STRING
-<U00F4> \x99 |0 # LATIN SMALL LETTER O WITH CIRCUMFLEX
-<U00F6> \x9A |0 # LATIN SMALL LETTER O WITH DIAERESIS
-<U00F5> \x9B |0 # LATIN SMALL LETTER O WITH TILDE
-<U00FA> \x9C |0 # LATIN SMALL LETTER U WITH ACUTE
-<U00F9> \x9D |0 # LATIN SMALL LETTER U WITH GRAVE
-<U00FB> \x9E |0 # LATIN SMALL LETTER U WITH CIRCUMFLEX
-<U00FC> \x9F |0 # LATIN SMALL LETTER U WITH DIAERESIS
-<U00DD> \xA0 |0 # LATIN CAPITAL LETTER Y WITH ACUTE
-<U00B0> \xA1 |0 # DEGREE SIGN
-<U010C> \xA2 |0 # LATIN CAPITAL LETTER C WITH CARON
-<U00A3> \xA3 |0 # POUND SIGN
-<U00A7> \xA4 |0 # SECTION SIGN
-<U2022> \xA5 |0 # BULLET
-<U00B6> \xA6 |0 # PILCROW SIGN
-<U00DF> \xA7 |0 # LATIN SMALL LETTER SHARP S
-<U00AE> \xA8 |0 # REGISTERED SIGN
-<U00A9> \xA9 |0 # COPYRIGHT SIGN
-<U2122> \xAA |0 # TRADE MARK SIGN
-<U00B4> \xAB |0 # ACUTE ACCENT
-<U00A8> \xAC |0 # DIAERESIS
-<U2260> \xAD |0 # NOT EQUAL TO
-<U00C6> \xAE |0 # LATIN CAPITAL LETTER AE
-<U00D8> \xAF |0 # LATIN CAPITAL LETTER O WITH STROKE
-<U0110> \xB0 |0 # LATIN CAPITAL LETTER D WITH STROKE
-<U014A> \xB1 |0 # LATIN CAPITAL LETTER ENG
-<U021E> \xB2 |0 # LATIN CAPITAL LETTER H WITH CARON
-<U021F> \xB3 |0 # LATIN SMALL LETTER H WITH CARON
-<U0160> \xB4 |0 # LATIN CAPITAL LETTER S WITH CARON
-<U0166> \xB5 |0 # LATIN CAPITAL LETTER T WITH STROKE
-<U2202> \xB6 |0 # PARTIAL DIFFERENTIAL
-<U017D> \xB7 |0 # LATIN CAPITAL LETTER Z WITH CARON
-<U010D> \xB8 |0 # LATIN SMALL LETTER C WITH CARON
-<U0111> \xB9 |0 # LATIN SMALL LETTER D WITH STROKE
-<U014B> \xBA |0 # LATIN SMALL LETTER ENG
-<U0161> \xBB |0 # LATIN SMALL LETTER S WITH CARON
-<U0167> \xBC |0 # LATIN SMALL LETTER T WITH STROKE
-<U017E> \xBD |0 # LATIN SMALL LETTER Z WITH CARON
-<U00E6> \xBE |0 # LATIN SMALL LETTER AE
-<U00F8> \xBF |0 # LATIN SMALL LETTER O WITH STROKE
-<U00BF> \xC0 |0 # INVERTED QUESTION MARK
-<U00A1> \xC1 |0 # INVERTED EXCLAMATION MARK
-<U00AC> \xC2 |0 # NOT SIGN
-<U221A> \xC3 |0 # SQUARE ROOT
-<U0192> \xC4 |0 # LATIN SMALL LETTER F WITH HOOK
-<U2248> \xC5 |0 # ALMOST EQUAL TO
-<U2206> \xC6 |0 # INCREMENT
-<U00AB> \xC7 |0 # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00BB> \xC8 |0 # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U2026> \xC9 |0 # HORIZONTAL ELLIPSIS
-<U00A0> \xCA |0 # NO-BREAK SPACE
-<U00C0> \xCB |0 # LATIN CAPITAL LETTER A WITH GRAVE
-<U00C3> \xCC |0 # LATIN CAPITAL LETTER A WITH TILDE
-<U00D5> \xCD |0 # LATIN CAPITAL LETTER O WITH TILDE
-<U0152> \xCE |0 # LATIN CAPITAL LIGATURE OE
-<U0153> \xCF |0 # LATIN SMALL LIGATURE OE
-<U2013> \xD0 |0 # EN DASH
-<U2014> \xD1 |0 # EM DASH
-<U201C> \xD2 |0 # LEFT DOUBLE QUOTATION MARK
-<U201D> \xD3 |0 # RIGHT DOUBLE QUOTATION MARK
-<U2018> \xD4 |0 # LEFT SINGLE QUOTATION MARK
-<U2019> \xD5 |0 # RIGHT SINGLE QUOTATION MARK
-<U00F7> \xD6 |0 # DIVISION SIGN
-<U25CA> \xD7 |0 # LOZENGE
-<U00FF> \xD8 |0 # LATIN SMALL LETTER Y WITH DIAERESIS
-<U0178> \xD9 |0 # LATIN CAPITAL LETTER Y WITH DIAERESIS
-<U2044> \xDA |0 # FRACTION SLASH
-<U00A4> \xDB |0 # CURRENCY SIGN
-<U00D0> \xDC |0 # LATIN CAPITAL LETTER ETH
-<U00F0> \xDD |0 # LATIN SMALL LETTER ETH
-<U00DE> \xDE |0 # LATIN CAPITAL LETTER THORN
-<U00FE> \xDF |0 # LATIN SMALL LETTER THORN
-<U00FD> \xE0 |0 # LATIN SMALL LETTER Y WITH ACUTE
-<U00B7> \xE1 |0 # MIDDLE DOT
-<U201A> \xE2 |0 # SINGLE LOW-9 QUOTATION MARK
-<U201E> \xE3 |0 # DOUBLE LOW-9 QUOTATION MARK
-<U2030> \xE4 |0 # PER MILLE SIGN
-<U00C2> \xE5 |0 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
-<U00CA> \xE6 |0 # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
-<U00C1> \xE7 |0 # LATIN CAPITAL LETTER A WITH ACUTE
-<U00CB> \xE8 |0 # LATIN CAPITAL LETTER E WITH DIAERESIS
-<U00C8> \xE9 |0 # LATIN CAPITAL LETTER E WITH GRAVE
-<U00CD> \xEA |0 # LATIN CAPITAL LETTER I WITH ACUTE
-<U00CE> \xEB |0 # LATIN CAPITAL LETTER I WITH CIRCUMFLEX
-<U00CF> \xEC |0 # LATIN CAPITAL LETTER I WITH DIAERESIS
-<U00CC> \xED |0 # LATIN CAPITAL LETTER I WITH GRAVE
-<U00D3> \xEE |0 # LATIN CAPITAL LETTER O WITH ACUTE
-<U00D4> \xEF |0 # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
-<UF8FF> \xF0 |0 # Private Use
-<U00D2> \xF1 |0 # LATIN CAPITAL LETTER O WITH GRAVE
-<U00DA> \xF2 |0 # LATIN CAPITAL LETTER U WITH ACUTE
-<U00DB> \xF3 |0 # LATIN CAPITAL LETTER U WITH CIRCUMFLEX
-<U00D9> \xF4 |0 # LATIN CAPITAL LETTER U WITH GRAVE
-<U0131> \xF5 |0 # LATIN SMALL LETTER DOTLESS I
-<U01B7> \xF6 |0 # LATIN CAPITAL LETTER EZH
-<U0292> \xF7 |0 # LATIN SMALL LETTER EZH
-<U01EE> \xF8 |0 # LATIN CAPITAL LETTER EZH WITH CARON
-<U01EF> \xF9 |0 # LATIN SMALL LETTER EZH WITH CARON
-<U01E4> \xFA |0 # LATIN CAPITAL LETTER G WITH STROKE
-<U01E5> \xFB |0 # LATIN SMALL LETTER G WITH STROKE
-<U01E6> \xFC |0 # LATIN CAPITAL LETTER G WITH CARON
-<U01E7> \xFD |0 # LATIN SMALL LETTER G WITH CARON
-<U01E8> \xFE |0 # LATIN CAPITAL LETTER K WITH CARON
-<U01E9> \xFF |0 # LATIN SMALL LETTER K WITH CARON
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/macSymbol.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/macSymbol.ucm
deleted file mode 100644
index dfae00e..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/macSymbol.ucm
+++ /dev/null
@@ -1,234 +0,0 @@
-#
-# $Id: macSymbol.ucm,v 2.1 2004/10/22 06:23:11 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/VENDORS/APPLE/SYMBOL.TXT
-#
-<code_set_name> "MacSymbol"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3F
-CHARMAP
-<U0000> \x00 |0 # <control>
-<U0001> \x01 |0 # <control>
-<U0002> \x02 |0 # <control>
-<U0003> \x03 |0 # <control>
-<U0004> \x04 |0 # <control>
-<U0005> \x05 |0 # <control>
-<U0006> \x06 |0 # <control>
-<U0007> \x07 |0 # <control>
-<U0008> \x08 |0 # <control>
-<U0009> \x09 |0 # <control>
-<U000A> \x0A |0 # <control>
-<U000B> \x0B |0 # <control>
-<U000C> \x0C |0 # <control>
-<U000D> \x0D |0 # <control>
-<U000E> \x0E |0 # <control>
-<U000F> \x0F |0 # <control>
-<U0010> \x10 |0 # <control>
-<U0011> \x11 |0 # <control>
-<U0012> \x12 |0 # <control>
-<U0013> \x13 |0 # <control>
-<U0014> \x14 |0 # <control>
-<U0015> \x15 |0 # <control>
-<U0016> \x16 |0 # <control>
-<U0017> \x17 |0 # <control>
-<U0018> \x18 |0 # <control>
-<U0019> \x19 |0 # <control>
-<U001A> \x1A |0 # <control>
-<U001B> \x1B |0 # <control>
-<U001C> \x1C |0 # <control>
-<U001D> \x1D |0 # <control>
-<U001E> \x1E |0 # <control>
-<U001F> \x1F |0 # <control>
-<U0020> \x20 |0 # SPACE
-<U0021> \x21 |0 # EXCLAMATION MARK
-<U0023> \x23 |0 # NUMBER SIGN
-<U0025> \x25 |0 # PERCENT SIGN
-<U0026> \x26 |0 # AMPERSAND
-<U0028> \x28 |0 # LEFT PARENTHESIS
-<U0029> \x29 |0 # RIGHT PARENTHESIS
-<U002B> \x2B |0 # PLUS SIGN
-<U002C> \x2C |0 # COMMA
-<U002E> \x2E |0 # FULL STOP
-<U002F> \x2F |0 # SOLIDUS
-<U0030> \x30 |0 # DIGIT ZERO
-<U0031> \x31 |0 # DIGIT ONE
-<U0032> \x32 |0 # DIGIT TWO
-<U0033> \x33 |0 # DIGIT THREE
-<U0034> \x34 |0 # DIGIT FOUR
-<U0035> \x35 |0 # DIGIT FIVE
-<U0036> \x36 |0 # DIGIT SIX
-<U0037> \x37 |0 # DIGIT SEVEN
-<U0038> \x38 |0 # DIGIT EIGHT
-<U0039> \x39 |0 # DIGIT NINE
-<U003A> \x3A |0 # COLON
-<U003B> \x3B |0 # SEMICOLON
-<U003C> \x3C |0 # LESS-THAN SIGN
-<U003D> \x3D |0 # EQUALS SIGN
-<U003E> \x3E |0 # GREATER-THAN SIGN
-<U003F> \x3F |0 # QUESTION MARK
-<U005B> \x5B |0 # LEFT SQUARE BRACKET
-<U005D> \x5D |0 # RIGHT SQUARE BRACKET
-<U005F> \x5F |0 # LOW LINE
-<U007B> \x7B |0 # LEFT CURLY BRACKET
-<U007C> \x7C |0 # VERTICAL LINE
-<U007D> \x7D |0 # RIGHT CURLY BRACKET
-<U00A9> \xD3 |0 # COPYRIGHT SIGN # serif
-<U00A9><UF87F> \xE3 |3 # COPYRIGHT SIGN, alternate: sans serif
-<U00AC> \xD8 |0 # NOT SIGN
-<U00AE> \xD2 |0 # REGISTERED SIGN # serif
-<U00AE><UF87F> \xE2 |3 # REGISTERED SIGN, alternate: sans serif
-<U00B0> \xB0 |0 # DEGREE SIGN
-<U00B1> \xB1 |0 # PLUS-MINUS SIGN
-<U00D7> \xB4 |0 # MULTIPLICATION SIGN
-<U00F7> \xB8 |0 # DIVISION SIGN
-<U0192> \xA6 |0 # LATIN SMALL LETTER F WITH HOOK
-<U0391> \x41 |0 # GREEK CAPITAL LETTER ALPHA
-<U0392> \x42 |0 # GREEK CAPITAL LETTER BETA
-<U0393> \x47 |0 # GREEK CAPITAL LETTER GAMMA
-<U0394> \x44 |0 # GREEK CAPITAL LETTER DELTA
-<U0395> \x45 |0 # GREEK CAPITAL LETTER EPSILON
-<U0396> \x5A |0 # GREEK CAPITAL LETTER ZETA
-<U0397> \x48 |0 # GREEK CAPITAL LETTER ETA
-<U0398> \x51 |0 # GREEK CAPITAL LETTER THETA
-<U0399> \x49 |0 # GREEK CAPITAL LETTER IOTA
-<U039A> \x4B |0 # GREEK CAPITAL LETTER KAPPA
-<U039B> \x4C |0 # GREEK CAPITAL LETTER LAMDA
-<U039C> \x4D |0 # GREEK CAPITAL LETTER MU
-<U039D> \x4E |0 # GREEK CAPITAL LETTER NU
-<U039E> \x58 |0 # GREEK CAPITAL LETTER XI
-<U039F> \x4F |0 # GREEK CAPITAL LETTER OMICRON
-<U03A0> \x50 |0 # GREEK CAPITAL LETTER PI
-<U03A1> \x52 |0 # GREEK CAPITAL LETTER RHO
-<U03A3> \x53 |0 # GREEK CAPITAL LETTER SIGMA
-<U03A4> \x54 |0 # GREEK CAPITAL LETTER TAU
-<U03A5> \x55 |0 # GREEK CAPITAL LETTER UPSILON
-<U03A6> \x46 |0 # GREEK CAPITAL LETTER PHI
-<U03A7> \x43 |0 # GREEK CAPITAL LETTER CHI
-<U03A8> \x59 |0 # GREEK CAPITAL LETTER PSI
-<U03A9> \x57 |0 # GREEK CAPITAL LETTER OMEGA
-<U03B1> \x61 |0 # GREEK SMALL LETTER ALPHA
-<U03B2> \x62 |0 # GREEK SMALL LETTER BETA
-<U03B3> \x67 |0 # GREEK SMALL LETTER GAMMA
-<U03B4> \x64 |0 # GREEK SMALL LETTER DELTA
-<U03B5> \x65 |0 # GREEK SMALL LETTER EPSILON
-<U03B6> \x7A |0 # GREEK SMALL LETTER ZETA
-<U03B7> \x68 |0 # GREEK SMALL LETTER ETA
-<U03B8> \x71 |0 # GREEK SMALL LETTER THETA
-<U03B9> \x69 |0 # GREEK SMALL LETTER IOTA
-<U03BA> \x6B |0 # GREEK SMALL LETTER KAPPA
-<U03BB> \x6C |0 # GREEK SMALL LETTER LAMDA
-<U03BC> \x6D |0 # GREEK SMALL LETTER MU
-<U03BD> \x6E |0 # GREEK SMALL LETTER NU
-<U03BE> \x78 |0 # GREEK SMALL LETTER XI
-<U03BF> \x6F |0 # GREEK SMALL LETTER OMICRON
-<U03C0> \x70 |0 # GREEK SMALL LETTER PI
-<U03C1> \x72 |0 # GREEK SMALL LETTER RHO
-<U03C2> \x56 |0 # GREEK SMALL LETTER FINAL SIGMA
-<U03C3> \x73 |0 # GREEK SMALL LETTER SIGMA
-<U03C4> \x74 |0 # GREEK SMALL LETTER TAU
-<U03C5> \x75 |0 # GREEK SMALL LETTER UPSILON
-<U03C6> \x66 |0 # GREEK SMALL LETTER PHI
-<U03C7> \x63 |0 # GREEK SMALL LETTER CHI
-<U03C8> \x79 |0 # GREEK SMALL LETTER PSI
-<U03C9> \x77 |0 # GREEK SMALL LETTER OMEGA
-<U03D1> \x4A |0 # GREEK THETA SYMBOL
-<U03D2> \xA1 |0 # GREEK UPSILON WITH HOOK SYMBOL
-<U03D5> \x6A |0 # GREEK PHI SYMBOL
-<U03D6> \x76 |0 # GREEK PI SYMBOL
-<U2022> \xB7 |0 # BULLET
-<U2026> \xBC |0 # HORIZONTAL ELLIPSIS
-<U2032> \xA2 |0 # PRIME # minute
-<U2033> \xB2 |0 # DOUBLE PRIME # second
-<U2044> \xA4 |0 # FRACTION SLASH
-<U20AC> \xA0 |0 # EURO SIGN
-<U2111> \xC1 |0 # BLACK-LETTER CAPITAL I
-<U2118> \xC3 |0 # SCRIPT CAPITAL P
-<U211C> \xC2 |0 # BLACK-LETTER CAPITAL R
-<U2122> \xD4 |0 # TRADE MARK SIGN # serif
-<U2122><UF87F> \xE4 |3 # TRADE MARK SIGN, alternate: sans serif
-<U2135> \xC0 |0 # ALEF SYMBOL
-<U2190> \xAC |0 # LEFTWARDS ARROW
-<U2191> \xAD |0 # UPWARDS ARROW
-<U2192> \xAE |0 # RIGHTWARDS ARROW
-<U2193> \xAF |0 # DOWNWARDS ARROW
-<U2194> \xAB |0 # LEFT RIGHT ARROW
-<U21B5> \xBF |0 # DOWNWARDS ARROW WITH CORNER LEFTWARDS
-<U21D0> \xDC |0 # LEFTWARDS DOUBLE ARROW
-<U21D1> \xDD |0 # UPWARDS DOUBLE ARROW
-<U21D2> \xDE |0 # RIGHTWARDS DOUBLE ARROW
-<U21D3> \xDF |0 # DOWNWARDS DOUBLE ARROW
-<U21D4> \xDB |0 # LEFT RIGHT DOUBLE ARROW
-<U2200> \x22 |0 # FOR ALL
-<U2202> \xB6 |0 # PARTIAL DIFFERENTIAL
-<U2203> \x24 |0 # THERE EXISTS
-<U2205> \xC6 |0 # EMPTY SET
-<U2207> \xD1 |0 # NABLA
-<U2208> \xCE |0 # ELEMENT OF
-<U2209> \xCF |0 # NOT AN ELEMENT OF
-<U220D> \x27 |0 # SMALL CONTAINS AS MEMBER
-<U220F> \xD5 |0 # N-ARY PRODUCT
-<U2211> \xE5 |0 # N-ARY SUMMATION
-<U2212> \x2D |0 # MINUS SIGN
-<U2217> \x2A |0 # ASTERISK OPERATOR
-<U221A> \xD6 |0 # SQUARE ROOT
-<U221D> \xB5 |0 # PROPORTIONAL TO
-<U221E> \xA5 |0 # INFINITY
-<U2220> \xD0 |0 # ANGLE
-<U2227> \xD9 |0 # LOGICAL AND
-<U2228> \xDA |0 # LOGICAL OR
-<U2229> \xC7 |0 # INTERSECTION
-<U222A> \xC8 |0 # UNION
-<U222B> \xF2 |0 # INTEGRAL
-<U2234> \x5C |0 # THEREFORE
-<U223C> \x7E |0 # TILDE OPERATOR
-<U2245> \x40 |0 # APPROXIMATELY EQUAL TO
-<U2248> \xBB |0 # ALMOST EQUAL TO
-<U2260> \xB9 |0 # NOT EQUAL TO
-<U2261> \xBA |0 # IDENTICAL TO
-<U2264> \xA3 |0 # LESS-THAN OR EQUAL TO
-<U2265> \xB3 |0 # GREATER-THAN OR EQUAL TO
-<U2282> \xCC |0 # SUBSET OF
-<U2283> \xC9 |0 # SUPERSET OF
-<U2284> \xCB |0 # NOT A SUBSET OF
-<U2286> \xCD |0 # SUBSET OF OR EQUAL TO
-<U2287> \xCA |0 # SUPERSET OF OR EQUAL TO
-<U2295> \xC5 |0 # CIRCLED PLUS
-<U2297> \xC4 |0 # CIRCLED TIMES
-<U22A5> \x5E |0 # UP TACK
-<U22C4> \xE0 |0 # DIAMOND OPERATOR
-<U22C5> \xD7 |0 # DOT OPERATOR
-<U2320> \xF3 |0 # TOP HALF INTEGRAL
-<U2321> \xF5 |0 # BOTTOM HALF INTEGRAL
-<U239B> \xE6 |0 # LEFT PARENTHESIS UPPER HOOK # for Unicode 3.2 and later
-<U239C> \xE7 |0 # LEFT PARENTHESIS EXTENSION # for Unicode 3.2 and later
-<U239D> \xE8 |0 # LEFT PARENTHESIS LOWER HOOK # for Unicode 3.2 and later
-<U239E> \xF6 |0 # RIGHT PARENTHESIS UPPER HOOK # for Unicode 3.2 and later
-<U239F> \xF7 |0 # RIGHT PARENTHESIS EXTENSION # for Unicode 3.2 and later
-<U23A0> \xF8 |0 # RIGHT PARENTHESIS LOWER HOOK # for Unicode 3.2 and later
-<U23A1> \xE9 |0 # LEFT SQUARE BRACKET UPPER CORNER # for Unicode 3.2 and later
-<U23A2> \xEA |0 # LEFT SQUARE BRACKET EXTENSION # for Unicode 3.2 and later
-<U23A3> \xEB |0 # LEFT SQUARE BRACKET LOWER CORNER # for Unicode 3.2 and later
-<U23A4> \xF9 |0 # RIGHT SQUARE BRACKET UPPER CORNER # for Unicode 3.2 and later
-<U23A5> \xFA |0 # RIGHT SQUARE BRACKET EXTENSION # for Unicode 3.2 and later
-<U23A6> \xFB |0 # RIGHT SQUARE BRACKET LOWER CORNER # for Unicode 3.2 and later
-<U23A7> \xEC |0 # LEFT CURLY BRACKET UPPER HOOK # for Unicode 3.2 and later
-<U23A8> \xED |0 # LEFT CURLY BRACKET MIDDLE PIECE # for Unicode 3.2 and later
-<U23A9> \xEE |0 # LEFT CURLY BRACKET LOWER HOOK # for Unicode 3.2 and later
-<U23AA> \xEF |0 # CURLY BRACKET EXTENSION # for Unicode 3.2 and later
-<U23AB> \xFC |0 # RIGHT CURLY BRACKET UPPER HOOK # for Unicode 3.2 and later
-<U23AC> \xFD |0 # RIGHT CURLY BRACKET MIDDLE PIECE # for Unicode 3.2 and later
-<U23AD> \xFE |0 # RIGHT CURLY BRACKET LOWER HOOK # for Unicode 3.2 and later
-<U23AE> \xF4 |0 # INTEGRAL EXTENSION # for Unicode 3.2 and later
-<U23AF> \xBE |0 # HORIZONTAL LINE EXTENSION (for arrows) # for Unicode 3.2 and later
-<U2660> \xAA |0 # BLACK SPADE SUIT
-<U2663> \xA7 |0 # BLACK CLUB SUIT
-<U2665> \xA9 |0 # BLACK HEART SUIT
-<U2666> \xA8 |0 # BLACK DIAMOND SUIT
-<U3008> \xE1 |0 # LEFT ANGLE BRACKET
-<U3009> \xF1 |0 # RIGHT ANGLE BRACKET
-<UF8E5> \x60 |0 # radical extender # corporate char
-<UF8E6> \xBD |0 # vertical line extension (for arrows) # corporate char
-<UF8FF> \xF0 |0 # Apple logo
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/nextstep.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/nextstep.ucm
deleted file mode 100644
index b5d3d46..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/nextstep.ucm
+++ /dev/null
@@ -1,171 +0,0 @@
-#
-# $Id: nextstep.ucm,v 2.0 2004/05/16 20:55:28 dankogai Exp $
-#
-# Original table can be obtained at
-# http://www.unicode.org/Public/MAPPINGS/VENDORS/NEXT/NEXTSTEP.TXT
-#
-<code_set_name> "nextstep"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x3F
-CHARMAP
-<U0000> \x00 |0 # <control>
-<U0001> \x01 |0 # <control>
-<U0002> \x02 |0 # <control>
-<U0003> \x03 |0 # <control>
-<U0004> \x04 |0 # <control>
-<U0005> \x05 |0 # <control>
-<U0006> \x06 |0 # <control>
-<U0007> \x07 |0 # <control>
-<U0008> \x08 |0 # <control>
-<U0009> \x09 |0 # <control>
-<U000A> \x0A |0 # <control>
-<U000B> \x0B |0 # <control>
-<U000C> \x0C |0 # <control>
-<U000D> \x0D |0 # <control>
-<U000E> \x0E |0 # <control>
-<U000F> \x0F |0 # <control>
-<U0010> \x10 |0 # <control>
-<U0011> \x11 |0 # <control>
-<U0012> \x12 |0 # <control>
-<U0013> \x13 |0 # <control>
-<U0014> \x14 |0 # <control>
-<U0015> \x15 |0 # <control>
-<U0016> \x16 |0 # <control>
-<U0017> \x17 |0 # <control>
-<U0018> \x18 |0 # <control>
-<U0019> \x19 |0 # <control>
-<U001A> \x1A |0 # <control>
-<U001B> \x1B |0 # <control>
-<U001C> \x1C |0 # <control>
-<U001D> \x1D |0 # <control>
-<U001E> \x1E |0 # <control>
-<U001F> \x1F |0 # <control>
-<U00a0> \x80 |0 # NO-BREAK SPACE
-<U00a1> \xa1 |0 # INVERTED EXCLAMATION MARK
-<U00a2> \xa2 |0 # CENT SIGN
-<U00a3> \xa3 |0 # POUND SIGN
-<U00a4> \xa8 |0 # CURRENCY SIGN
-<U00a5> \xa5 |0 # YEN SIGN
-<U00a6> \xb5 |0 # BROKEN BAR
-<U00a7> \xa7 |0 # SECTION SIGN
-<U00a8> \xc8 |0 # DIAERESIS
-<U00a9> \xa0 |0 # COPYRIGHT SIGN
-<U00aa> \xe3 |0 # FEMININE ORDINAL INDICATOR
-<U00ab> \xab |0 # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00ac> \xbe |0 # NOT SIGN
-<U00ae> \xb0 |0 # REGISTERED SIGN
-<U00af> \xc5 |0 # MACRON
-<U00b1> \xd1 |0 # PLUS-MINUS SIGN
-<U00b2> \xc9 |0 # SUPERSCRIPT TWO
-<U00b3> \xcc |0 # SUPERSCRIPT THREE
-<U00b4> \xc2 |0 # ACUTE ACCENT
-<U00b5> \x9d |0 # MICRO SIGN
-<U00b6> \xb6 |0 # PILCROW SIGN
-<U00b7> \xb4 |0 # MIDDLE DOT
-<U00b8> \xcb |0 # CEDILLA
-<U00b9> \xc0 |0 # SUPERSCRIPT ONE
-<U00ba> \xeb |0 # MASCULINE ORDINAL INDICATOR
-<U00bb> \xbb |0 # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00bc> \xd2 |0 # VULGAR FRACTION ONE QUARTER
-<U00bd> \xd3 |0 # VULGAR FRACTION ONE HALF
-<U00be> \xd4 |0 # VULGAR FRACTION THREE QUARTERS
-<U00bf> \xbf |0 # INVERTED QUESTION MARK
-<U00c0> \x81 |0 # LATIN CAPITAL LETTER A WITH GRAVE
-<U00c1> \x82 |0 # LATIN CAPITAL LETTER A WITH ACUTE
-<U00c2> \x83 |0 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
-<U00c3> \x84 |0 # LATIN CAPITAL LETTER A WITH TILDE
-<U00c4> \x85 |0 # LATIN CAPITAL LETTER A WITH DIAERESIS
-<U00c5> \x86 |0 # LATIN CAPITAL LETTER A WITH RING
-<U00c6> \xe1 |0 # LATIN CAPITAL LETTER AE
-<U00c7> \x87 |0 # LATIN CAPITAL LETTER C WITH CEDILLA
-<U00c8> \x88 |0 # LATIN CAPITAL LETTER E WITH GRAVE
-<U00c9> \x89 |0 # LATIN CAPITAL LETTER E WITH ACUTE
-<U00ca> \x8a |0 # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
-<U00cb> \x8b |0 # LATIN CAPITAL LETTER E WITH DIAERESIS
-<U00cc> \x8c |0 # LATIN CAPITAL LETTER I WITH GRAVE
-<U00cd> \x8d |0 # LATIN CAPITAL LETTER I WITH ACUTE
-<U00ce> \x8e |0 # LATIN CAPITAL LETTER I WITH CIRCUMFLEX
-<U00cf> \x8f |0 # LATIN CAPITAL LETTER I WITH DIAERESIS
-<U00d0> \x90 |0 # LATIN CAPITAL LETTER ETH
-<U00d1> \x91 |0 # LATIN CAPITAL LETTER N WITH TILDE
-<U00d2> \x92 |0 # LATIN CAPITAL LETTER O WITH GRAVE
-<U00d3> \x93 |0 # LATIN CAPITAL LETTER O WITH ACUTE
-<U00d4> \x94 |0 # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
-<U00d5> \x95 |0 # LATIN CAPITAL LETTER O WITH TILDE
-<U00d6> \x96 |0 # LATIN CAPITAL LETTER O WITH DIAERESIS
-<U00d7> \x9e |0 # MULTIPLICATION SIGN
-<U00d8> \xe9 |0 # LATIN CAPITAL LETTER O WITH STROKE
-<U00d9> \x97 |0 # LATIN CAPITAL LETTER U WITH GRAVE
-<U00da> \x98 |0 # LATIN CAPITAL LETTER U WITH ACUTE
-<U00db> \x99 |0 # LATIN CAPITAL LETTER U WITH CIRCUMFLEX
-<U00dc> \x9a |0 # LATIN CAPITAL LETTER U WITH DIAERESIS
-<U00dd> \x9b |0 # LATIN CAPITAL LETTER Y WITH ACUTE
-<U00de> \x9c |0 # LATIN CAPITAL LETTER THORN
-<U00df> \xfb |0 # LATIN SMALL LETTER SHARP S
-<U00e0> \xd5 |0 # LATIN SMALL LETTER A WITH GRAVE
-<U00e1> \xd6 |0 # LATIN SMALL LETTER A WITH ACUTE
-<U00e2> \xd7 |0 # LATIN SMALL LETTER A WITH CIRCUMFLEX
-<U00e3> \xd8 |0 # LATIN SMALL LETTER A WITH TILDE
-<U00e4> \xd9 |0 # LATIN SMALL LETTER A WITH DIAERESIS
-<U00e5> \xda |0 # LATIN SMALL LETTER A WITH RING ABOVE
-<U00e6> \xf1 |0 # LATIN SMALL LETTER AE
-<U00e7> \xdb |0 # LATIN SMALL LETTER C WITH CEDILLA
-<U00e8> \xdc |0 # LATIN SMALL LETTER E WITH GRAVE
-<U00e9> \xdd |0 # LATIN SMALL LETTER E WITH ACUTE
-<U00ea> \xde |0 # LATIN SMALL LETTER E WITH CIRCUMFLEX
-<U00eb> \xdf |0 # LATIN SMALL LETTER E WITH DIAERESIS
-<U00ec> \xe0 |0 # LATIN SMALL LETTER I WITH GRAVE
-<U00ed> \xe2 |0 # LATIN SMALL LETTER I WITH ACUTE
-<U00ee> \xe4 |0 # LATIN SMALL LETTER I WITH CIRCUMFLEX
-<U00ef> \xe5 |0 # LATIN SMALL LETTER I WITH DIAERESIS
-<U00f0> \xe6 |0 # LATIN SMALL LETTER ETH
-<U00f1> \xe7 |0 # LATIN SMALL LETTER N WITH TILDE
-<U00f2> \xec |0 # LATIN SMALL LETTER O WITH GRAVE
-<U00f3> \xed |0 # LATIN SMALL LETTER O WITH ACUTE
-<U00f4> \xee |0 # LATIN SMALL LETTER O WITH CIRCUMFLEX
-<U00f5> \xef |0 # LATIN SMALL LETTER O WITH TILDE
-<U00f6> \xf0 |0 # LATIN SMALL LETTER O WITH DIAERESIS
-<U00f7> \x9f |0 # DIVISION SIGN
-<U00f8> \xf9 |0 # LATIN SMALL LETTER O WITH STROKE
-<U00f9> \xf2 |0 # LATIN SMALL LETTER U WITH GRAVE
-<U00fa> \xf3 |0 # LATIN SMALL LETTER U WITH ACUTE
-<U00fb> \xf4 |0 # LATIN SMALL LETTER U WITH CIRCUMFLEX
-<U00fc> \xf6 |0 # LATIN SMALL LETTER U WITH DIAERESIS
-<U00fd> \xf7 |0 # LATIN SMALL LETTER Y WITH ACUTE
-<U00fe> \xfc |0 # LATIN SMALL LETTER THORN
-<U00ff> \xfd |0 # LATIN SMALL LETTER Y WITH DIAERESIS
-<U0131> \xf5 |0 # LATIN SMALL LETTER DOTLESS I
-<U0141> \xe8 |0 # LATIN CAPITAL LETTER L WITH STROKE
-<U0142> \xf8 |0 # LATIN SMALL LETTER L WITH STROKE
-<U0152> \xea |0 # LATIN CAPITAL LIGATURE OE
-<U0153> \xfa |0 # LATIN SMALL LIGATURE OE
-<U0192> \xa6 |0 # LATIN SMALL LETTER F WITH HOOK
-<U02c6> \xc3 |0 # MODIFIER LETTER CIRCUMFLEX ACCENT
-<U02c7> \xcf |0 # CARON
-<U02cb> \xc1 |0 # MODIFIER LETTER GRAVE ACCENT
-<U02d8> \xc6 |0 # BREVE
-<U02d9> \xc7 |0 # DOT ABOVE
-<U02da> \xca |0 # RING ABOVE
-<U02db> \xce |0 # OGONEK
-<U02dc> \xc4 |0 # SMALL TILDE
-<U02dd> \xcd |0 # DOUBLE ACUTE ACCENT
-<U2013> \xb1 |0 # EN DASH
-<U2014> \xd0 |0 # EM DASH
-<U2019> \xa9 |0 # RIGHT SINGLE QUOTATION MARK
-<U201a> \xb8 |0 # SINGLE LOW-9 QUOTATION MARK
-<U201c> \xaa |0 # LEFT DOUBLE QUOTATION MARK
-<U201d> \xba |0 # RIGHT DOUBLE QUOTATION MARK
-<U201e> \xb9 |0 # DOUBLE LOW-9 QUOTATION MARK
-<U2020> \xb2 |0 # DAGGER
-<U2021> \xb3 |0 # DOUBLE DAGGER
-<U2022> \xb7 |0 # BULLET
-<U2026> \xbc |0 # HORIZONTAL ELLIPSIS
-<U2030> \xbd |0 # PER MILLE SIGN
-<U2039> \xac |0 # LATIN SMALL LETTER
-<U203a> \xad |0 # LATIN SMALL LETTER
-<U2044> \xa4 |0 # FRACTION SLASH
-<Ufb01> \xae |0 # LATIN SMALL LIGATURE FI
-<Ufb02> \xaf |0 # LATIN SMALL LIGATURE FL
-<Ufffd> \xff |0 # .notdef, REPLACEMENT CHARACTER
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Encode/vendor/ucm/posix-bc.ucm b/3.8.8/sources/cpan-Encode/vendor/ucm/posix-bc.ucm
deleted file mode 100644
index 2220396..0000000
--- a/3.8.8/sources/cpan-Encode/vendor/ucm/posix-bc.ucm
+++ /dev/null
@@ -1,267 +0,0 @@
-#
-# $Id: posix-bc.ucm,v 2.0 2004/05/16 20:55:28 dankogai Exp $
-#
-# compile -n posix-bc -o Encode/posix-bc.ucm Encode/posix-bc.enc
-<code_set_name> "posix-bc"
-<mb_cur_min> 1
-<mb_cur_max> 1
-<subchar> \x6F
-#
-CHARMAP
-<U0000> \x00 |0 # <control>
-<U0001> \x01 |0 # <control>
-<U0002> \x02 |0 # <control>
-<U0003> \x03 |0 # <control>
-<U009C> \x04 |0 # <control>
-<U0009> \x05 |0 # <control>
-<U0086> \x06 |0 # <control>
-<U007F> \x07 |0 # <control>
-<U0097> \x08 |0 # <control>
-<U008D> \x09 |0 # <control>
-<U008E> \x0A |0 # <control>
-<U000B> \x0B |0 # <control>
-<U000C> \x0C |0 # <control>
-<U000D> \x0D |0 # <control>
-<U000E> \x0E |0 # <control>
-<U000F> \x0F |0 # <control>
-<U0010> \x10 |0 # <control>
-<U0011> \x11 |0 # <control>
-<U0012> \x12 |0 # <control>
-<U0013> \x13 |0 # <control>
-<U009D> \x14 |0 # <control>
-<U000A> \x15 |0 # <control>
-<U0008> \x16 |0 # <control>
-<U0087> \x17 |0 # <control>
-<U0018> \x18 |0 # <control>
-<U0019> \x19 |0 # <control>
-<U0092> \x1A |0 # <control>
-<U008F> \x1B |0 # <control>
-<U001C> \x1C |0 # <control>
-<U001D> \x1D |0 # <control>
-<U001E> \x1E |0 # <control>
-<U001F> \x1F |0 # <control>
-<U0080> \x20 |0 # <control>
-<U0081> \x21 |0 # <control>
-<U0082> \x22 |0 # <control>
-<U0083> \x23 |0 # <control>
-<U0084> \x24 |0 # <control>
-<U0085> \x25 |0 # <control>
-<U0017> \x26 |0 # <control>
-<U001B> \x27 |0 # <control>
-<U0088> \x28 |0 # <control>
-<U0089> \x29 |0 # <control>
-<U008A> \x2A |0 # <control>
-<U008B> \x2B |0 # <control>
-<U008C> \x2C |0 # <control>
-<U0005> \x2D |0 # <control>
-<U0006> \x2E |0 # <control>
-<U0007> \x2F |0 # <control>
-<U0090> \x30 |0 # <control>
-<U0091> \x31 |0 # <control>
-<U0016> \x32 |0 # <control>
-<U0093> \x33 |0 # <control>
-<U0094> \x34 |0 # <control>
-<U0095> \x35 |0 # <control>
-<U0096> \x36 |0 # <control>
-<U0004> \x37 |0 # <control>
-<U0098> \x38 |0 # <control>
-<U0099> \x39 |0 # <control>
-<U009A> \x3A |0 # <control>
-<U009B> \x3B |0 # <control>
-<U0014> \x3C |0 # <control>
-<U0015> \x3D |0 # <control>
-<U009E> \x3E |0 # <control>
-<U001A> \x3F |0 # <control>
-<U0020> \x40 |0 # SPACE
-<U00A0> \x41 |0 # NO-BREAK SPACE
-<U00E2> \x42 |0 # LATIN SMALL LETTER A WITH CIRCUMFLEX
-<U00E4> \x43 |0 # LATIN SMALL LETTER A WITH DIAERESIS
-<U00E0> \x44 |0 # LATIN SMALL LETTER A WITH GRAVE
-<U00E1> \x45 |0 # LATIN SMALL LETTER A WITH ACUTE
-<U00E3> \x46 |0 # LATIN SMALL LETTER A WITH TILDE
-<U00E5> \x47 |0 # LATIN SMALL LETTER A WITH RING ABOVE
-<U00E7> \x48 |0 # LATIN SMALL LETTER C WITH CEDILLA
-<U00F1> \x49 |0 # LATIN SMALL LETTER N WITH TILDE
-<U0060> \x4A |0 # GRAVE ACCENT
-<U002E> \x4B |0 # FULL STOP
-<U003C> \x4C |0 # LESS-THAN SIGN
-<U0028> \x4D |0 # LEFT PARENTHESIS
-<U002B> \x4E |0 # PLUS SIGN
-<U007C> \x4F |0 # VERTICAL LINE
-<U0026> \x50 |0 # AMPERSAND
-<U00E9> \x51 |0 # LATIN SMALL LETTER E WITH ACUTE
-<U00EA> \x52 |0 # LATIN SMALL LETTER E WITH CIRCUMFLEX
-<U00EB> \x53 |0 # LATIN SMALL LETTER E WITH DIAERESIS
-<U00E8> \x54 |0 # LATIN SMALL LETTER E WITH GRAVE
-<U00ED> \x55 |0 # LATIN SMALL LETTER I WITH ACUTE
-<U00EE> \x56 |0 # LATIN SMALL LETTER I WITH CIRCUMFLEX
-<U00EF> \x57 |0 # LATIN SMALL LETTER I WITH DIAERESIS
-<U00EC> \x58 |0 # LATIN SMALL LETTER I WITH GRAVE
-<U00DF> \x59 |0 # LATIN SMALL LETTER SHARP S
-<U0021> \x5A |0 # EXCLAMATION MARK
-<U0024> \x5B |0 # DOLLAR SIGN
-<U002A> \x5C |0 # ASTERISK
-<U0029> \x5D |0 # RIGHT PARENTHESIS
-<U003B> \x5E |0 # SEMICOLON
-<U009F> \x5F |0 # <control>
-<U002D> \x60 |0 # HYPHEN-MINUS
-<U002F> \x61 |0 # SOLIDUS
-<U00C2> \x62 |0 # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
-<U00C4> \x63 |0 # LATIN CAPITAL LETTER A WITH DIAERESIS
-<U00C0> \x64 |0 # LATIN CAPITAL LETTER A WITH GRAVE
-<U00C1> \x65 |0 # LATIN CAPITAL LETTER A WITH ACUTE
-<U00C3> \x66 |0 # LATIN CAPITAL LETTER A WITH TILDE
-<U00C5> \x67 |0 # LATIN CAPITAL LETTER A WITH RING ABOVE
-<U00C7> \x68 |0 # LATIN CAPITAL LETTER C WITH CEDILLA
-<U00D1> \x69 |0 # LATIN CAPITAL LETTER N WITH TILDE
-<U005E> \x6A |0 # CIRCUMFLEX ACCENT
-<U002C> \x6B |0 # COMMA
-<U0025> \x6C |0 # PERCENT SIGN
-<U005F> \x6D |0 # LOW LINE
-<U003E> \x6E |0 # GREATER-THAN SIGN
-<U003F> \x6F |0 # QUESTION MARK
-<U00F8> \x70 |0 # LATIN SMALL LETTER O WITH STROKE
-<U00C9> \x71 |0 # LATIN CAPITAL LETTER E WITH ACUTE
-<U00CA> \x72 |0 # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
-<U00CB> \x73 |0 # LATIN CAPITAL LETTER E WITH DIAERESIS
-<U00C8> \x74 |0 # LATIN CAPITAL LETTER E WITH GRAVE
-<U00CD> \x75 |0 # LATIN CAPITAL LETTER I WITH ACUTE
-<U00CE> \x76 |0 # LATIN CAPITAL LETTER I WITH CIRCUMFLEX
-<U00CF> \x77 |0 # LATIN CAPITAL LETTER I WITH DIAERESIS
-<U00CC> \x78 |0 # LATIN CAPITAL LETTER I WITH GRAVE
-<U00A8> \x79 |0 # DIAERESIS
-<U003A> \x7A |0 # COLON
-<U0023> \x7B |0 # NUMBER SIGN
-<U0040> \x7C |0 # COMMERCIAL AT
-<U0027> \x7D |0 # APOSTROPHE
-<U003D> \x7E |0 # EQUALS SIGN
-<U0022> \x7F |0 # QUOTATION MARK
-<U00D8> \x80 |0 # LATIN CAPITAL LETTER O WITH STROKE
-<U0061> \x81 |0 # LATIN SMALL LETTER A
-<U0062> \x82 |0 # LATIN SMALL LETTER B
-<U0063> \x83 |0 # LATIN SMALL LETTER C
-<U0064> \x84 |0 # LATIN SMALL LETTER D
-<U0065> \x85 |0 # LATIN SMALL LETTER E
-<U0066> \x86 |0 # LATIN SMALL LETTER F
-<U0067> \x87 |0 # LATIN SMALL LETTER G
-<U0068> \x88 |0 # LATIN SMALL LETTER H
-<U0069> \x89 |0 # LATIN SMALL LETTER I
-<U00AB> \x8A |0 # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00BB> \x8B |0 # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-<U00F0> \x8C |0 # LATIN SMALL LETTER ETH
-<U00FD> \x8D |0 # LATIN SMALL LETTER Y WITH ACUTE
-<U00FE> \x8E |0 # LATIN SMALL LETTER THORN
-<U00B1> \x8F |0 # PLUS-MINUS SIGN
-<U00B0> \x90 |0 # DEGREE SIGN
-<U006A> \x91 |0 # LATIN SMALL LETTER J
-<U006B> \x92 |0 # LATIN SMALL LETTER K
-<U006C> \x93 |0 # LATIN SMALL LETTER L
-<U006D> \x94 |0 # LATIN SMALL LETTER M
-<U006E> \x95 |0 # LATIN SMALL LETTER N
-<U006F> \x96 |0 # LATIN SMALL LETTER O
-<U0070> \x97 |0 # LATIN SMALL LETTER P
-<U0071> \x98 |0 # LATIN SMALL LETTER Q
-<U0072> \x99 |0 # LATIN SMALL LETTER R
-<U00AA> \x9A |0 # FEMININE ORDINAL INDICATOR
-<U00BA> \x9B |0 # MASCULINE ORDINAL INDICATOR
-<U00E6> \x9C |0 # LATIN SMALL LETTER AE
-<U00B8> \x9D |0 # CEDILLA
-<U00C6> \x9E |0 # LATIN CAPITAL LETTER AE
-<U00A4> \x9F |0 # CURRENCY SIGN
-<U00B5> \xA0 |0 # MICRO SIGN
-<U00AF> \xA1 |0 # MACRON
-<U0073> \xA2 |0 # LATIN SMALL LETTER S
-<U0074> \xA3 |0 # LATIN SMALL LETTER T
-<U0075> \xA4 |0 # LATIN SMALL LETTER U
-<U0076> \xA5 |0 # LATIN SMALL LETTER V
-<U0077> \xA6 |0 # LATIN SMALL LETTER W
-<U0078> \xA7 |0 # LATIN SMALL LETTER X
-<U0079> \xA8 |0 # LATIN SMALL LETTER Y
-<U007A> \xA9 |0 # LATIN SMALL LETTER Z
-<U00A1> \xAA |0 # INVERTED EXCLAMATION MARK
-<U00BF> \xAB |0 # INVERTED QUESTION MARK
-<U00D0> \xAC |0 # LATIN CAPITAL LETTER ETH
-<U00DD> \xAD |0 # LATIN CAPITAL LETTER Y WITH ACUTE
-<U00DE> \xAE |0 # LATIN CAPITAL LETTER THORN
-<U00AE> \xAF |0 # REGISTERED SIGN
-<U00A2> \xB0 |0 # CENT SIGN
-<U00A3> \xB1 |0 # POUND SIGN
-<U00A5> \xB2 |0 # YEN SIGN
-<U00B7> \xB3 |0 # MIDDLE DOT
-<U00A9> \xB4 |0 # COPYRIGHT SIGN
-<U00A7> \xB5 |0 # SECTION SIGN
-<U00B6> \xB6 |0 # PILCROW SIGN
-<U00BC> \xB7 |0 # VULGAR FRACTION ONE QUARTER
-<U00BD> \xB8 |0 # VULGAR FRACTION ONE HALF
-<U00BE> \xB9 |0 # VULGAR FRACTION THREE QUARTERS
-<U00AC> \xBA |0 # NOT SIGN
-<U005B> \xBB |0 # LEFT SQUARE BRACKET
-<U005C> \xBC |0 # REVERSE SOLIDUS
-<U005D> \xBD |0 # RIGHT SQUARE BRACKET
-<U00B4> \xBE |0 # ACUTE ACCENT
-<U00D7> \xBF |0 # MULTIPLICATION SIGN
-<U00F9> \xC0 |0 # LATIN SMALL LETTER U WITH GRAVE
-<U0041> \xC1 |0 # LATIN CAPITAL LETTER A
-<U0042> \xC2 |0 # LATIN CAPITAL LETTER B
-<U0043> \xC3 |0 # LATIN CAPITAL LETTER C
-<U0044> \xC4 |0 # LATIN CAPITAL LETTER D
-<U0045> \xC5 |0 # LATIN CAPITAL LETTER E
-<U0046> \xC6 |0 # LATIN CAPITAL LETTER F
-<U0047> \xC7 |0 # LATIN CAPITAL LETTER G
-<U0048> \xC8 |0 # LATIN CAPITAL LETTER H
-<U0049> \xC9 |0 # LATIN CAPITAL LETTER I
-<U00AD> \xCA |0 # SOFT HYPHEN
-<U00F4> \xCB |0 # LATIN SMALL LETTER O WITH CIRCUMFLEX
-<U00F6> \xCC |0 # LATIN SMALL LETTER O WITH DIAERESIS
-<U00F2> \xCD |0 # LATIN SMALL LETTER O WITH GRAVE
-<U00F3> \xCE |0 # LATIN SMALL LETTER O WITH ACUTE
-<U00F5> \xCF |0 # LATIN SMALL LETTER O WITH TILDE
-<U00A6> \xD0 |0 # BROKEN BAR
-<U004A> \xD1 |0 # LATIN CAPITAL LETTER J
-<U004B> \xD2 |0 # LATIN CAPITAL LETTER K
-<U004C> \xD3 |0 # LATIN CAPITAL LETTER L
-<U004D> \xD4 |0 # LATIN CAPITAL LETTER M
-<U004E> \xD5 |0 # LATIN CAPITAL LETTER N
-<U004F> \xD6 |0 # LATIN CAPITAL LETTER O
-<U0050> \xD7 |0 # LATIN CAPITAL LETTER P
-<U0051> \xD8 |0 # LATIN CAPITAL LETTER Q
-<U0052> \xD9 |0 # LATIN CAPITAL LETTER R
-<U00B9> \xDA |0 # SUPERSCRIPT ONE
-<U00FB> \xDB |0 # LATIN SMALL LETTER U WITH CIRCUMFLEX
-<U00FC> \xDC |0 # LATIN SMALL LETTER U WITH DIAERESIS
-<U00DB> \xDD |0 # LATIN CAPITAL LETTER U WITH CIRCUMFLEX
-<U00FA> \xDE |0 # LATIN SMALL LETTER U WITH ACUTE
-<U00FF> \xDF |0 # LATIN SMALL LETTER Y WITH DIAERESIS
-<U00D9> \xE0 |0 # LATIN CAPITAL LETTER U WITH GRAVE
-<U00F7> \xE1 |0 # DIVISION SIGN
-<U0053> \xE2 |0 # LATIN CAPITAL LETTER S
-<U0054> \xE3 |0 # LATIN CAPITAL LETTER T
-<U0055> \xE4 |0 # LATIN CAPITAL LETTER U
-<U0056> \xE5 |0 # LATIN CAPITAL LETTER V
-<U0057> \xE6 |0 # LATIN CAPITAL LETTER W
-<U0058> \xE7 |0 # LATIN CAPITAL LETTER X
-<U0059> \xE8 |0 # LATIN CAPITAL LETTER Y
-<U005A> \xE9 |0 # LATIN CAPITAL LETTER Z
-<U00B2> \xEA |0 # SUPERSCRIPT TWO
-<U00D4> \xEB |0 # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
-<U00D6> \xEC |0 # LATIN CAPITAL LETTER O WITH DIAERESIS
-<U00D2> \xED |0 # LATIN CAPITAL LETTER O WITH GRAVE
-<U00D3> \xEE |0 # LATIN CAPITAL LETTER O WITH ACUTE
-<U00D5> \xEF |0 # LATIN CAPITAL LETTER O WITH TILDE
-<U0030> \xF0 |0 # DIGIT ZERO
-<U0031> \xF1 |0 # DIGIT ONE
-<U0032> \xF2 |0 # DIGIT TWO
-<U0033> \xF3 |0 # DIGIT THREE
-<U0034> \xF4 |0 # DIGIT FOUR
-<U0035> \xF5 |0 # DIGIT FIVE
-<U0036> \xF6 |0 # DIGIT SIX
-<U0037> \xF7 |0 # DIGIT SEVEN
-<U0038> \xF8 |0 # DIGIT EIGHT
-<U0039> \xF9 |0 # DIGIT NINE
-<U00B3> \xFA |0 # SUPERSCRIPT THREE
-<U007B> \xFB |0 # LEFT CURLY BRACKET
-<U00DC> \xFC |0 # LATIN CAPITAL LETTER U WITH DIAERESIS
-<U007D> \xFD |0 # RIGHT CURLY BRACKET
-<U00DA> \xFE |0 # LATIN CAPITAL LETTER U WITH ACUTE
-<U007E> \xFF |0 # TILDE
-END CHARMAP
diff --git a/3.8.8/sources/cpan-Exporter/vendor/t/Exporter.t b/3.8.8/sources/cpan-Exporter/vendor/t/Exporter.t
deleted file mode 100755
index ce37116..0000000
--- a/3.8.8/sources/cpan-Exporter/vendor/t/Exporter.t
+++ /dev/null
@@ -1,225 +0,0 @@
-#!perl -w
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't' if -d 't';
- @INC = '../lib';
- }
-}
-
-# Can't use Test::Simple/More, they depend on Exporter.
-my $test;
-sub ok ($;$) {
- my($ok, $name) = @_;
-
- # You have to do it this way or VMS will get confused.
- printf "%sok %d%s\n", ($ok ? '' : 'not '), $test,
- (defined $name ? " - $name" : '');
-
- printf "# Failed test at line %d\n", (caller)[2] unless $ok;
-
- $test++;
- return $ok;
-}
-
-
-BEGIN {
- $test = 1;
- print "1..30\n";
- require Exporter;
- ok( 1, 'Exporter compiled' );
-}
-
-
-BEGIN {
- # Methods which Exporter says it implements.
- @Exporter_Methods = qw(import
- export_to_level
- require_version
- export_fail
- );
-}
-
-
-package Testing;
-require Exporter;
- at ISA = qw(Exporter);
-
-# Make sure Testing can do everything its supposed to.
-foreach my $meth (@::Exporter_Methods) {
- ::ok( Testing->can($meth), "subclass can $meth()" );
-}
-
-%EXPORT_TAGS = (
- This => [qw(stuff %left)],
- That => [qw(Above the @wailing)],
- tray => [qw(Fasten $seatbelt)],
- );
- at EXPORT = qw(lifejacket is);
- at EXPORT_OK = qw(under &your $seat);
-$VERSION = '1.05';
-
-::ok( Testing->require_version(1.05), 'require_version()' );
-eval { Testing->require_version(1.11); 1 };
-::ok( $@, 'require_version() fail' );
-::ok( Testing->require_version(0), 'require_version(0)' );
-
-sub lifejacket { 'lifejacket' }
-sub stuff { 'stuff' }
-sub Above { 'Above' }
-sub the { 'the' }
-sub Fasten { 'Fasten' }
-sub your { 'your' }
-sub under { 'under' }
-use vars qw($seatbelt $seat @wailing %left);
-$seatbelt = 'seatbelt';
-$seat = 'seat';
- at wailing = qw(AHHHHHH);
-%left = ( left => "right" );
-
-BEGIN {*is = \&Is};
-sub Is { 'Is' };
-
-Exporter::export_ok_tags();
-
-my %tags = map { $_ => 1 } map { @$_ } values %EXPORT_TAGS;
-my %exportok = map { $_ => 1 } @EXPORT_OK;
-my $ok = 1;
-foreach my $tag (keys %tags) {
- $ok = exists $exportok{$tag};
-}
-::ok( $ok, 'export_ok_tags()' );
-
-
-package Foo;
-Testing->import;
-
-::ok( defined &lifejacket, 'simple import' );
-
-my $got = eval {&lifejacket};
-::ok ( $@ eq "", 'check we can call the imported subroutine')
- or print STDERR "# \$\@ is $@\n";
-::ok ( $got eq 'lifejacket', 'and that it gave the correct result')
- or print STDERR "# expected 'lifejacket', got " .
- (defined $got ? "'$got'" : "undef") . "\n";
-
-# The string eval is important. It stops $Foo::{is} existing when
-# Testing->import is called.
-::ok( eval "defined &is",
- "Import a subroutine where exporter must create the typeglob" );
-$got = eval "&is";
-::ok ( $@ eq "", 'check we can call the imported autoloaded subroutine')
- or chomp ($@), print STDERR "# \$\@ is $@\n";
-::ok ( $got eq 'Is', 'and that it gave the correct result')
- or print STDERR "# expected 'Is', got " .
- (defined $got ? "'$got'" : "undef") . "\n";
-
-
-package Bar;
-my @imports = qw($seatbelt &Above stuff @wailing %left);
-Testing->import(@imports);
-
-::ok( (!grep { eval "!defined $_" } map({ /^\w/ ? "&$_" : $_ } @imports)),
- 'import by symbols' );
-
-
-package Yar;
-my @tags = qw(:This :tray);
-Testing->import(@tags);
-
-::ok( (!grep { eval "!defined $_" } map { /^\w/ ? "&$_" : $_ }
- map { @$_ } @{$Testing::EXPORT_TAGS{@tags}}),
- 'import by tags' );
-
-
-package Arrr;
-Testing->import(qw(!lifejacket));
-
-::ok( !defined &lifejacket, 'deny import by !' );
-
-
-package Mars;
-Testing->import('/e/');
-
-::ok( (!grep { eval "!defined $_" } map { /^\w/ ? "&$_" : $_ }
- grep { /e/ } @Testing::EXPORT, @Testing::EXPORT_OK),
- 'import by regex');
-
-
-package Venus;
-Testing->import('!/e/');
-
-::ok( (!grep { eval "defined $_" } map { /^\w/ ? "&$_" : $_ }
- grep { /e/ } @Testing::EXPORT, @Testing::EXPORT_OK),
- 'deny import by regex');
-::ok( !defined &lifejacket, 'further denial' );
-
-
-package More::Testing;
- at ISA = qw(Exporter);
-$VERSION = 0;
-eval { More::Testing->require_version(0); 1 };
-::ok(!$@, 'require_version(0) and $VERSION = 0');
-
-
-package Yet::More::Testing;
- at ISA = qw(Exporter);
-$VERSION = 0;
-eval { Yet::More::Testing->require_version(10); 1 };
-::ok($@ !~ /\(undef\)/, 'require_version(10) and $VERSION = 0');
-
-
-my $warnings;
-BEGIN {
- local $SIG{__WARN__} = sub { $warnings = join '', @_ };
- package Testing::Unused::Vars;
- @ISA = qw(Exporter);
- @EXPORT = qw(this $TODO that);
-
- package Foo;
- Testing::Unused::Vars->import;
-}
-
-::ok( !$warnings, 'Unused variables can be exported without warning' ) ||
- print "# $warnings\n";
-
-package Moving::Target;
- at ISA = qw(Exporter);
- at EXPORT_OK = qw (foo);
-
-sub foo {"This is foo"};
-sub bar {"This is bar"};
-
-package Moving::Target::Test;
-
-Moving::Target->import ('foo');
-
-::ok (foo() eq "This is foo", "imported foo before EXPORT_OK changed");
-
-push @Moving::Target::EXPORT_OK, 'bar';
-
-Moving::Target->import ('bar');
-
-::ok (bar() eq "This is bar", "imported bar after EXPORT_OK changed");
-
-package The::Import;
-
-use Exporter 'import';
-
-::ok(\&import == \&Exporter::import, "imported the import routine");
-
- at EXPORT = qw( wibble );
-sub wibble {return "wobble"};
-
-package Use::The::Import;
-
-The::Import->import;
-
-my $val = eval { wibble() };
-::ok($val eq "wobble", "exported importer worked");
-
-# Check that Carp recognizes Exporter as internal to Perl
-require Carp;
-::ok($Carp::Internal{Exporter}, "Carp recognizes Exporter");
-::ok($Carp::Internal{'Exporter::Heavy'}, "Carp recognizes Exporter::Heavy");
-
diff --git a/3.8.8/sources/cpan-Exporter/vendor/t/pod.t b/3.8.8/sources/cpan-Exporter/vendor/t/pod.t
deleted file mode 100644
index 9cc6f96..0000000
--- a/3.8.8/sources/cpan-Exporter/vendor/t/pod.t
+++ /dev/null
@@ -1,7 +0,0 @@
-
-use strict;
-use Test::More;
-eval "use Test::Pod 1.18";
-plan skip_all => "Test::Pod 1.18 required for testing POD" if $@;
-
-all_pod_files_ok(all_pod_files("."));
diff --git a/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/Changes b/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/Changes
deleted file mode 100644
index e3e709d..0000000
--- a/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/Changes
+++ /dev/null
@@ -1,338 +0,0 @@
-Revision history for Perl extension ExtUtils::CBuilder.
-
-0.2703 - Tue Mar 16 17:10:55 EDT 2010
-
- Bugs fixed:
- - fixed tests for Windows and MSVC [Jan Dubois]
-
-0.2702 - Mon Feb 22 15:10:52 EST 2010
-
- Bugs fixed:
- - compile() changes in 0.2701 did not work on Windows. Now fixed.
-
-0.2701 - Tue Feb 16 09:12:45 EST 2010
-
- Bugs fixed:
- - compile() now accepts both string & array for 'include_dirs'
- argument, as documented.(RT#54606) [Alberto Simões]
-
-0.27 - Thu Oct 29 21:29:56 EDT 2009
-
- Other:
- - Removed Build.PL to avoid creating a circular dependency
- - Added version numbers to Windows compiler driver modules
-
-0.26_05 - Sun Oct 25 17:29:02 EDT 2009
-
- Bugs fixed:
- - Fixed t/02link.t failures on cygwin with Perl 5.8 [David Golden]
-
- Other:
- - Made have_compiler (and have_cplusplus) quiet without echoing
- the test command to STDOUT [David Golden]
-
-0.26_04 - Mon Oct 19 21:57:46 EDT 2009
-
- Enhancements:
- - Added 'have_cplusplus()' method to check for C++ support
- - Added patches for building Perl with mingw64 [Sisyphus]
- - Allow CC environment variable to override $Config{cc}
-
- Bugs fixed:
- - Fixed link executable command for Win32 MSVC (RT#40819) [Cosimo
- Streppone]
- - Removed MSVC version check when embedding a manifest file
- (RT #43002) [Steve Hay]
-
- Other:
- - Split Windows compiler driver packages into individual *.pm files
-
-0.260301 - Sat Aug 29 11:04:41 EDT 2009
-
- Bugs fixed:
- - Fixed linking error on Win32 with gcc compiler (RT#49000)
- [kmx]
-
-0.2603 - Sat Jul 18 06:56:06 EDT 2009
-
- Bugs fixed:
- - Makefile.PL had wrong INSTALLDIRS setting for older Perls
- (RT#47985) [David Golden]
-
-0.2602 - Sat Jul 4 10:57:12 EDT 2009
-
- Bugs fixed:
- - Fixed 00-have-compiler.t if $^X is a relative path [David Wheeler]
-
-0.2601 - Wed Jul 1 09:37:39 EDT 2009
-
- Bugs fixed:
- - On VMS, cleans up extra files generated during testing
- [John E. Malmberg, Craig Berry]
-
-0.26 - Mon Jun 29 20:11:52 EDT 2009
-
- - No changes from 0.25_01
-
-0.25_01 - Sat Jun 27 23:13:20 EDT 2009
-
- - Changed test library to Test::More
-
- - Added tests for have_compiler
-
- - Skips tests that need a compiler if have_compiler is false
-
- - have_compiler will try to compile in the current directory
- if compiling in tmpdir fails for whatever reason
-
-0.25 - Fri Jun 26 16:18:13 EDT 2009
-
- - Slight diagnostic improvements in link.t
-
-0.24_01 - Sun Mar 8 14:50:10 2009
-
- - On Windows, don't generate "mt" command when CRT is statically
- linked. [Jan Dubois]
-
- - On Cygwin, examine $Config{useshrplib} to see whether we're
- supposed to be linking with a shared perl library or not. [Reini
- Urban]
-
- - In link_executable() on Cygwin, trust $Config{ld} rather than using
- $Config{cc} for linking. [Reini Urban]
-
- - Add 'haiku' as a Unix-like platform. [Ingo Weinhold]
-
-0.24 - Fri Aug 15 22:01:48 2008
-
- - Added 'gnu' and 'gnukfreebsd' as Unix variants. [Niko Tyni]
-
- - Brought in some VMS fixes from bleadperl: "Correct and complete
- CBuilder's handling of external libraries when linking on VMS."
- [Craig Berry]
-
-0.23 - Sat Apr 19 22:28:03 2008
-
- - Fixed some problems (some old, some new) with Strawberry Perl on
- Windows. [Alberto Simo~es]
-
- - Will now install in the core perl lib directory when the user's
- perl is new enough to have us in core. [Yi Ma Mao]
-
-0.22 - Fri Feb 8 21:52:21 2008
-
- - Replaced the split_like_shell() method on Windows with a
- near-no-op, which is probably more correct and has the benefit of
- not messing up UNC paths. [John R. LoVerso, see
- http://rt.cpan.org/Ticket/Display.html?id=26545]
-
- - Fixed extra_compiler_flags on Windows, they were being
- ignored. [Robert May]
-
-0.21 - Tue Oct 30 06:46:01 2007
-
- - Clean up perl_src path using Cwd::realpath(). Only affects usage
- as part of the perl core.
-
- - Protect $., $@, $!, $^E, and $? from any clobbering that might
- occur in our DESTROY method. [Zefram]
-
- - From bleadperl, a patch to clean up debug symbol files (.pdb for
- VC++, .tds for BCC) when running have_compiler(). [Steve Hay &
- Steve Peters]
-
-0.19 - Sun May 13 14:29:18 2007
-
- - When building as part of the perl core (so this is irrelevant for
- people downloading from CPAN) we now try a little harder to find
- the perl sources. [Jos Boumans]
-
- - Fixed a part of the manifest thingy that got broken on 64-bit
- Windows platforms in version 0.18. [Steve Hay, Jan Dubois]
-
-0.18 - Mon Mar 26 21:29:09 2007
-
- - Various OS/2 fixes:
- + Put .LIB file near .DEF file
- + Got library-file building working better
- + Handled libperl_overrides better
- [Ilya Zakharevich]
-
- - On Windows: embed manifest files in DLLs built with Module-Build
- when using VC8. [Steve Hay]
-
- - Added a workaround for a config error on dec_osf: the linker is
- $Config{cc}, not $Config{ld}. [Jarkko Hietaniemi]
-
- - Borland's compiler "response files" will not pass through macro
- definitions that contain quotes. The quotes get stripped and there
- seems to be no way to escape them. So we leave macros on the
- command line. [Randy W. Sims]
-
-0.18 Sat Mar 25 13:35:47 CST 2006
-
- - Yet more fixes for arg_defines() on VMS. [Craig A. Berry and John
- E. Malmberg]
-
-0.17 Wed Mar 15 22:46:15 CST 2006
-
- - When we're being run from an uninstalled perl distribution
- (e.g. one that's in the process of being built and tested), we
- search for perl first in the current working directory. [Randy
- Sims]
-
- - More fixing of the arg_defines() method on VMS. [Craig A. Berry and
- John E. Malmberg]
-
-0.16 Mon Mar 13 17:08:21 CST 2006
-
- - Fix quoting of command line arguments on Windows. [Yitzchak
- Scott-Thoennes]
-
- - Provided a custom arg_defines() on VMS that does essentially the
- same thing for /define that version 0.14 did for /include. [Craig
- A. Berry]
-
- - Documented the existing 'quiet' parameter, which silences the
- printing of system() commands. [Suggested by Yitzchak
- Scott-Thoennes]
-
-0.15 Mon Oct 3 17:10:32 CDT 2005
-
- - Several OS/2 fixes have been made, including: 1) adding the
- necessary version string to DLLs, 2) passing the executable's name
- to 'ldopts' without the .exe extension, 3) avoiding calling 'env'
- via the 'shrpenv' thingy, since it triggers a fork() bug. [Ilya
- Zakharevich]
-
- - Integrate a couple cleanup-related changes from bleadperl that
- somehow never got into this copy. [Steve Hay]
-
- - Added a new 'defines' parameter to compile(), which gives a
- platform-independant way to specify various -Dfoo=bar (or the
- equivalent) compiler defines. [Randy W. Sims]
-
-0.14 Mon Sep 19 13:40:37 CDT 2005
-
- - Several fixes have been made for VMS, including: 1) there can only
- be one /include qualifier, so merge multiple /includes into one; 2)
- make sure the executable is named the same way that dynaloader will
- look for it; 3) make sure the option files for the exported symbols
- and the PERLSHR image are passed properly to the linker. [John
- E. Malmberg]
-
-0.13 Wed Aug 24 20:05:59 CDT 2005
-
- - Several temporary files weren't being cleaned up during testing,
- because the 'cleanup' mechanism was never properly implemented.
- This is now fixed. [Steve Hay]
-
-0.12 Mon May 30 16:40:10 CDT 2005
-
- - In order to integrate into the perl core, patches were contributed
- that a) put a $VERSION variable in each .pm file, b) add a 'quiet'
- parameter to new() to shut up some of the command-echoing, c)
- checks for the perl source headers in the CORE/ directory in the
- perl source tree, not in the post-installation location, and d)
- adjusts the CWD when running the regression tests under the perl
- core. [Yitzchak Scott-Thoennes]
-
- - Various parts of the code were looking for the CORE/ directory in
- $Config{archlib}, $Config{installarchlib}, and $Config{archlibexp}.
- Only the latter is correct, so we use that everywhere now.
- [Curt Tilmes]
-
- - For Unix-ish platforms, link_executable() will now prefer
- $Config{cc} to $Config{ld}, because that typically works
- better. [Jarkko Hietaniemi and H.Merijn Brand]
-
- - Prelinking (invoking ExtUtils::Mksymlists to create options-files)
- is now only done when we're building dynamic libraries. [Yitzchak
- Scott-Thoennes]
-
-0.11 Tue Apr 5 20:58:41 CDT 2005
-
- - Added a licensing statement to CBuilder.pm. [Spotted by Chip
- Salzenberg]
-
-0.10 Mon Mar 14 20:18:19 CST 2005
-
- - Split out a few simple routines that format how compile switches
- are formatted, so that we can override them for platforms like VMS
- where they're very different.
-
- - Fix compile() and link() on VMS. [Help from Michael Schwern and
- Peter Prymmer]
-
-0.09 Tue Feb 8 17:57:41 CST 2005
-
- - Fixed a broken link_executable() method on cygwin - it now uses
- 'gcc' instead of $Config{ld} for the linking, because the latter is
- actually a shell script which calls a perl script which calls gcc
- in a way that only works for creating shared libraries, not
- executables.
-
-0.08 Tue Jan 18 21:54:11 CST 2005
-
- - Fixed a testing error in which I had the prototype wrong for the
- main() function. [Jose Pedro Oliveira]
-
-0.07 Wed Jan 12 21:50:34 CST 2005
-
- - Added the link_executable() method, which provides the ability to
- create standalone executables. This is NOT yet implemented on
- Windows, and therefore the tests for it are skipped on Win32.
- [Alberto Manuel Brandao Simoes]
-
- - Integrated the latest split_like_shell() for Windows from
- Module::Build (really need to find a better home for this code...),
- which now does a much better job of handling quotes and backslashes
- and so on. [Randy Sims]
-
- - Fixed a couple of Windows problems related to the output-file name
- in link(), and some clobbering of the 'include_dirs' parameter to
- compile(). [Randy Sims]
-
-0.06 Mon Dec 27 22:51:36 CST 2004
-
- - Fixed a bug on Unix environments in which our work-around for
- shell-commands like "FOO=BAR cc" (which is supposed to be turned
- into "env FOO=BAR cc" to actually work) wasn't being called.
-
-0.05 Wed Oct 13 23:09:09 CDT 2004
-
- - Fixed a bug in split_like_shell() in which leading whitespace was
- creating an empty word, manifesting as something like "gcc - no
- such file or directory" during tests. [Spotted by Warren L. Dodge]
-
- - Incorporate another split_like_shell() fix from Module::Build.
-
-0.04 Sun Oct 10 00:31:08 CDT 2004
-
- - Changed the split_like_shell() method to use the shellwords()
- function from Text::ParseWords (a core module since 5.0), which
- does a much better job than the split() we were using.
-
-
-0.03 Fri May 14 23:12:23 CDT 2004
-
- - Fixed minor problems with the Build.PL file, the module names
- should be quoted.
-
- - The VMS module declared itself with the wrong package name.
-
-
-0.02 Fri Feb 20 10:17:40 CST 2004
-
- - Fixed a bug in .../Platform/Windows.pm, in which compile() was
- ignoring an 'include_dirs' argument. [Randy Sims]
-
- - Fixed a bug in .../Platform/Windows.pm, in which output files were
- being created in the root directory \ when they should be created
- in the current directory. [Randy Sims]
-
-
-0.01 Mon Jan 12 08:12:35 CST 2004
-
- - Original release, taken from Module::Build's C-building code, with
- patching help from Randy Sims.
diff --git a/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/Makefile.PL b/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/Makefile.PL
deleted file mode 100644
index 114d442..0000000
--- a/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/Makefile.PL
+++ /dev/null
@@ -1,19 +0,0 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.3603
-use ExtUtils::MakeMaker;
-WriteMakefile
-(
- 'NAME' => 'ExtUtils::CBuilder',
- 'VERSION_FROM' => 'lib/ExtUtils/CBuilder.pm',
- 'PREREQ_PM' => {
- 'Cwd' => 0,
- 'File::Basename' => 0,
- 'File::Spec' => 0,
- 'IO::File' => 0,
- 'Test::More' => '0.47',
- 'Text::ParseWords' => 0
- },
- 'INSTALLDIRS' => ($] >= 5.009003 ? 'perl' : 'site'),
- 'EXE_FILES' => [],
- 'PL_FILES' => {}
- )
-;
diff --git a/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Base.pm b/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Base.pm
deleted file mode 100644
index a2d96d6..0000000
--- a/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Base.pm
+++ /dev/null
@@ -1,310 +0,0 @@
-package ExtUtils::CBuilder::Base;
-
-use strict;
-use File::Spec;
-use File::Basename;
-use Cwd ();
-use Config;
-use Text::ParseWords;
-use IO::File;
-
-use vars qw($VERSION);
-$VERSION = '0.2703';
-
-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 exists $ENV{CC};
- 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);
- 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 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{$_}", keys %args;
-}
-
-sub compile {
- my ($self, %args) = @_;
- die "Missing 'source' argument to compile()" unless defined $args{source};
-
- my $cf = $self->{config}; # For convenience
-
- $args{object_file} ||= $self->object_file($args{source});
-
- $args{include_dirs} = [ $args{include_dirs} ]
- if exists($args{include_dirs}) && ref($args{include_dirs}) ne "ARRAY";
-
- my @include_dirs = $self->arg_include_dirs
- (@{$args{include_dirs} || []},
- $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($cf->{ccflags});
- push @ccflags, qw/-x c++/ if $args{'C++'};
- 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($args{object_file}),
- );
-
- my @cc = $self->split_like_shell($cf->{cc});
-
- $self->do_system(@cc, @flags, $args{source})
- or die "error building $args{object_file} from '$args{source}'";
-
- return $args{object_file};
-}
-
-sub have_compiler {
- my ($self, $is_cplusplus) = @_;
- return $self->{have_compiler} if defined $self->{have_compiler};
-
- my $result;
- my $attempts = 3;
- # tmpdir has issues for some people so fall back to current dir
- DIR: for my $dir ( File::Spec->tmpdir, '.' ) {
-
- # don't clobber existing files (rare, but possible)
- my $rand = int(rand(2**31));
- my $tmpfile = File::Spec->catfile($dir, "compilet-$rand.c");
- $tmpfile .= "c" if $is_cplusplus;
- if ( -e $tmpfile ) {
- redo DIR if $attempts--;
- next DIR;
- }
-
- {
- my $FH = IO::File->new("> $tmpfile") or die "Can't create $tmpfile: $!";
- if ( $is_cplusplus ) {
- print $FH "class Bogus { public: int boot_compilet() { return 1; } };\n";
- }
- else {
- print $FH "int boot_compilet() { return 1; }\n";
- }
- }
-
- 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;
- }
- last DIR if $result;
- }
-
- return $self->{have_compiler} = $result;
-}
-
-sub have_cplusplus {
- push @_, 1;
- goto &have_compiler;
-}
-
-sub lib_file {
- my ($self, $dl_file) = @_;
- $dl_file =~ s/\.[^.]+$//;
- $dl_file =~ tr/"//d;
- return "$dl_file.$self->{config}{dlext}";
-}
-
-
-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) = @_;
-
- ($args{dl_file} = $args{dl_name}) =~ s/.*::// unless $args{dl_file};
-
- require ExtUtils::Mksymlists;
- ExtUtils::Mksymlists::Mksymlists( # dl. abbrev for dynamic library
- 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'),
- );
-
- # Mksymlists will create one of these files
- return grep -e, map "$args{dl_file}.$_", qw(ext def opt);
-}
-
-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]);
-
- 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);
-
- 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;
diff --git a/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Platform/Windows.pm b/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Platform/Windows.pm
deleted file mode 100644
index e26d1f8..0000000
--- a/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Platform/Windows.pm
+++ /dev/null
@@ -1,291 +0,0 @@
-package ExtUtils::CBuilder::Platform::Windows;
-
-use strict;
-use warnings;
-
-use File::Basename;
-use File::Spec;
-
-use ExtUtils::CBuilder::Base;
-use IO::File;
-
-use vars qw($VERSION @ISA);
-$VERSION = '0.2703';
- at 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{$_}"}, 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 => 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/ 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} ||= File::Spec->catfile( $spec{builddir},
- $spec{basename} . '.'.$cf->{dlext}.'.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( 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 at mathforum.org>
-
-Most of the code here was written by Randy W. Sims <RandyS at ThePierianSpring.org>.
-
-=head1 SEE ALSO
-
-perl(1), ExtUtils::CBuilder(3), ExtUtils::MakeMaker(3)
-
-=cut
diff --git a/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Platform/Windows/BCC.pm b/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Platform/Windows/BCC.pm
deleted file mode 100644
index 0764f93..0000000
--- a/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Platform/Windows/BCC.pm
+++ /dev/null
@@ -1,130 +0,0 @@
-package ExtUtils::CBuilder::Platform::Windows::BCC;
-
-use vars qw($VERSION);
-$VERSION = '0.2703';
-
-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 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{starup} && @{$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/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Platform/Windows/GCC.pm b/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Platform/Windows/GCC.pm
deleted file mode 100644
index 84cdd5c..0000000
--- a/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Platform/Windows/GCC.pm
+++ /dev/null
@@ -1,151 +0,0 @@
-package ExtUtils::CBuilder::Platform::Windows::GCC;
-
-use vars qw($VERSION);
-$VERSION = '0.2703';
-
-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/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Platform/aix.pm b/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Platform/aix.pm
deleted file mode 100644
index c4848ab..0000000
--- a/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Platform/aix.pm
+++ /dev/null
@@ -1,31 +0,0 @@
-package ExtUtils::CBuilder::Platform::aix;
-
-use strict;
-use ExtUtils::CBuilder::Platform::Unix;
-use File::Spec;
-
-use vars qw($VERSION @ISA);
-$VERSION = '0.2703';
- at 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/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Platform/darwin.pm b/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Platform/darwin.pm
deleted file mode 100644
index 6253788..0000000
--- a/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Platform/darwin.pm
+++ /dev/null
@@ -1,22 +0,0 @@
-package ExtUtils::CBuilder::Platform::darwin;
-
-use strict;
-use ExtUtils::CBuilder::Platform::Unix;
-
-use vars qw($VERSION @ISA);
-$VERSION = '0.2703';
- at 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/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Platform/dec_osf.pm b/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Platform/dec_osf.pm
deleted file mode 100644
index 38205a9..0000000
--- a/3.8.8/sources/cpan-ExtUtils-CBuilder/vendor/lib/ExtUtils/CBuilder/Platform/dec_osf.pm
+++ /dev/null
@@ -1,18 +0,0 @@
-package ExtUtils::CBuilder::Platform::dec_osf;
-
-use strict;
-use ExtUtils::CBuilder::Platform::Unix;
-use File::Spec;
-
-use vars qw($VERSION @ISA);
- at ISA = qw(ExtUtils::CBuilder::Platform::Unix);
-$VERSION = '0.2703';
-
-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/3.8.8/sources/cpan-ExtUtils-Install/vendor/Makefile.PL b/3.8.8/sources/cpan-ExtUtils-Install/vendor/Makefile.PL
deleted file mode 100644
index 642ffac..0000000
--- a/3.8.8/sources/cpan-ExtUtils-Install/vendor/Makefile.PL
+++ /dev/null
@@ -1,89 +0,0 @@
-BEGIN { require 5.006; }
-use strict;
-
-use lib qw(lib); # use ourself if possible not the existing stuff.
-
-# On Win32 things work better if Win32API::File is available.
-# Activestate builds have it by default, but the core distro doesn't
-# so we recommend it on Win32.
-#
-# * BUT *
-#
-# We can't recommend it on the release system as it then goes in the YAML.pl
-# and then non-Win32 CPAN clients think they need it get upset when it fails
-# to build on their system.
-#
-# Until CPAN and Module::Build and the other infrastructure has a better
-# way to deal with this we assume UNIX when building a release.
-#
-# The pre-build stage will moan on Win32 anyway.
-
-my $Recommend_Win32API_File = $ENV{USERNAME} ne 'demerphq'
- && ($^O eq 'MSWin32' || $^O eq 'cygwin');
-
-use ExtUtils::MakeMaker;
-
-WriteMakefile(
- NAME => 'ExtUtils::Install',
- AUTHOR => 'demerphq <yves at cpan.org>',
- VERSION_FROM => 'lib/ExtUtils/Install.pm',
- ABSTRACT => 'install files from here to there',
-
-# This causes failure to locate ABSTRACT with DISTNAME below set to different name
-# ABSTRACT_FROM => 'lib/ExtUtils/Install.pm',
-
- DISTNAME => 'ExtUtils-Install',
- PL_FILES => {}, # Avoid auto extracting 'Build.PL'
-
- PREREQ_PM => {
-# 'vars' => 0,
-
-# 'AutoSplit' => 0,
-# 'Exporter' => 0,
-
- 'Carp' => 0,
-# 'Config' => 0,
-
- 'Cwd' => 0,
-
- 'File::Basename' => 0,
- 'File::Compare' => 0,
- 'File::Copy' => 0,
- 'File::Find' => 0,
- 'File::Path' => 0,
- 'File::Spec' => 0,
-
- ($^O eq 'VMS' ? ('VMS::Filespec' => 0) : ()),
- ($Recommend_Win32API_File ? ('Win32API::File' => 0) : ()),
-
- 'ExtUtils::MakeMaker' => 0,
-
-# 'Test::More' => 0, # This is bundled, but not in @INC for prereqs
- },
-
- INSTALLDIRS => 'perl', # install into site not into lib.
-
- #NO_META => 1,
-
- dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
- clean => { FILES => 'ExtUtils-Install-*' },
-);
-
-{
- package MY;
-
- my($lib);
- BEGIN {
- $lib = File::Spec->canonpath('lib/');
- }
-
- # Make sure PERLRUN uses the MakeMaker about to be installed
- # and not the currently installed one.
- sub init_PERL {
- my($self) = shift;
- $self->SUPER::init_PERL;
- $self->{ABSPERLRUN} .= qq{ "-I$lib"};
- $self->{PERLRUN} .= qq{ "-I$lib"};
- $self->{FULLPERLRUN} .= qq{ "-I$lib"};
- }
-}
diff --git a/3.8.8/sources/cpan-ExtUtils-Install/vendor/README b/3.8.8/sources/cpan-ExtUtils-Install/vendor/README
deleted file mode 100644
index 06b06ea..0000000
--- a/3.8.8/sources/cpan-ExtUtils-Install/vendor/README
+++ /dev/null
@@ -1,54 +0,0 @@
-ExtUtils-Install
-
-Install perl modules into the source tree. Used by ExtUtils::MakeMaker and
-Module::Build.
-
-INSTALLATION
-
-To install this module, run the following commands:
-
- perl Makefile.PL
- make
- make test
- make install
-
-
-Alternatively, to install with Module::Build, you can use the following
-commands:
-
- perl Build.PL
- ./Build
- ./Build test
- ./Build install
-
-Note that using Module::Build may make it more difficult to install on some
-platforms, if a failure occurs try to use the Makefile.PL approach instead.
-
-SUPPORT AND DOCUMENTATION
-
-After installing, you can find documentation for this module with the
-perldoc command.
-
- perldoc ExtUtils::Install
-
-You can also look for information at:
-
- Search CPAN
- http://search.cpan.org/dist/ExtUtils-Install
-
- CPAN Request Tracker:
- http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-Install
-
- AnnoCPAN, annotated CPAN documentation:
- http://annocpan.org/dist/ExtUtils-Install
-
- CPAN Ratings:
- http://cpanratings.perl.org/d/ExtUtils-Install
-
-COPYRIGHT AND LICENCE
-
-Copyright (C) 2006 Yves Orton, Michael Schwern, Alan Burlison,
-Randy W. Sims and others.
-
-This program is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.
diff --git a/3.8.8/sources/cpan-ExtUtils-Install/vendor/t/Installapi2.t b/3.8.8/sources/cpan-ExtUtils-Install/vendor/t/Installapi2.t
deleted file mode 100644
index c59b8ab..0000000
--- a/3.8.8/sources/cpan-ExtUtils-Install/vendor/t/Installapi2.t
+++ /dev/null
@@ -1,238 +0,0 @@
-#!/usr/bin/perl -w
-
-# Test ExtUtils::Install.
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- @INC = ('../../lib', '../lib', 'lib');
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-chdir 't';
-
-use strict;
-use TieOut;
-use File::Path;
-use File::Spec;
-
-use Test::More tests => 70;
-
-use MakeMaker::Test::Setup::BFD;
-
-BEGIN { use_ok('ExtUtils::Install') }
-
-# Check exports.
-foreach my $func (qw(install uninstall pm_to_blib install_default)) {
- can_ok(__PACKAGE__, $func);
-}
-
-
-ok( setup_recurs(), 'setup' );
-END {
- ok( chdir File::Spec->updir );
- ok( teardown_recurs(), 'teardown' );
-}
-# ensure the env doesnt pollute our tests
-local $ENV{EU_INSTALL_ALWAYS_COPY};
-local $ENV{EU_ALWAYS_COPY};
-
-chdir 'Big-Dummy';
-
-my $stdout = tie *STDOUT, 'TieOut';
-pm_to_blib( { 'lib/Big/Dummy.pm' => 'blib/lib/Big/Dummy.pm' },
- 'blib/lib/auto'
- );
-END { rmtree 'blib' }
-
-ok( -d 'blib/lib', 'pm_to_blib created blib dir' );
-ok( -r 'blib/lib/Big/Dummy.pm', ' copied .pm file' );
-ok( -r 'blib/lib/auto', ' created autosplit dir' );
-is( $stdout->read, "cp lib/Big/Dummy.pm blib/lib/Big/Dummy.pm\n" );
-
-pm_to_blib( { 'lib/Big/Dummy.pm' => 'blib/lib/Big/Dummy.pm' },
- 'blib/lib/auto'
- );
-ok( -d 'blib/lib', 'second run, blib dir still there' );
-ok( -r 'blib/lib/Big/Dummy.pm', ' .pm file still there' );
-ok( -r 'blib/lib/auto', ' autosplit still there' );
-is( $stdout->read, "Skip blib/lib/Big/Dummy.pm (unchanged)\n" );
-
-install( [
- from_to=>{ 'blib/lib' => 'install-test/lib/perl',
- read => 'install-test/packlist',
- write => 'install-test/packlist'
- },
- dry_run=>1]);
-ok( ! -d 'install-test/lib/perl', 'install made dir (dry run)');
-ok( ! -r 'install-test/lib/perl/Big/Dummy.pm',
- ' .pm file installed (dry run)');
-ok( ! -r 'install-test/packlist', ' packlist exists (dry run)');
-
-install([ from_to=> { 'blib/lib' => 'install-test/lib/perl',
- read => 'install-test/packlist',
- write => 'install-test/packlist'
- } ]);
-ok( -d 'install-test/lib/perl', 'install made dir' );
-ok( -r 'install-test/lib/perl/Big/Dummy.pm', ' .pm file installed' );
-ok(!-r 'install-test/lib/perl/Big/Dummy.SKIP', ' ignored .SKIP file' );
-ok( -r 'install-test/packlist', ' packlist exists' );
-
-open(PACKLIST, 'install-test/packlist' );
-my %packlist = map { chomp; ($_ => 1) } <PACKLIST>;
-close PACKLIST;
-
-# On case-insensitive filesystems (ie. VMS), the keys of the packlist might
-# be lowercase. :(
-my $native_dummy = File::Spec->catfile(qw(install-test lib perl Big Dummy.pm));
-is( keys %packlist, 1 );
-is( lc((keys %packlist)[0]), lc $native_dummy, 'packlist written' );
-
-
-# Test UNINST=1 preserving same versions in other dirs.
-install([from_to=> { 'blib/lib' => 'install-test/other_lib/perl',
- read => 'install-test/packlist',
- write => 'install-test/packlist'
- },uninstall_shadows=>1]);
-ok( -d 'install-test/other_lib/perl', 'install made other dir' );
-ok( -r 'install-test/other_lib/perl/Big/Dummy.pm', ' .pm file installed' );
-ok( -r 'install-test/packlist', ' packlist exists' );
-ok( -r 'install-test/lib/perl/Big/Dummy.pm', ' UNINST=1 preserved same' );
-
-
-chmod 0644, 'blib/lib/Big/Dummy.pm' or die $!;
-open(DUMMY, ">>blib/lib/Big/Dummy.pm") or die $!;
-print DUMMY "Extra stuff\n";
-close DUMMY;
-
-
-# Test UNINST=0 does not remove other versions in other dirs.
-{
- ok( -r 'install-test/lib/perl/Big/Dummy.pm', 'different install exists' );
-
- local @INC = ('install-test/lib/perl');
- local $ENV{PERL5LIB} = '';
- install([from_to=> { 'blib/lib' => 'install-test/other_lib/perl',
- read => 'install-test/packlist',
- write => 'install-test/packlist'
- }]);
- ok( -d 'install-test/other_lib/perl', 'install made other dir' );
- ok( -r 'install-test/other_lib/perl/Big/Dummy.pm', ' .pm file installed' );
- ok( -r 'install-test/packlist', ' packlist exists' );
- ok( -r 'install-test/lib/perl/Big/Dummy.pm',
- ' UNINST=0 left different' );
-}
-
-# Test UNINST=1 only warning when failing to remove an irrelevent shadow file
-{
- my $tfile='install-test/lib/perl/Big/Dummy.pm';
- local $ExtUtils::Install::Testing = $tfile;
- local @INC = ('install-test/other_lib/perl','install-test/lib/perl');
- local $ENV{PERL5LIB} = '';
- ok( -r $tfile, 'different install exists' );
- my @warn;
- local $SIG{__WARN__}=sub { push @warn, @_; return };
- my $ok=eval {
- install([from_to=> { 'blib/lib' => 'install-test/other_lib/perl',
- read => 'install-test/packlist',
- write => 'install-test/packlist'
- },
- uninstall_shadows=>1]);
- 1
- };
- ok($ok,' we didnt die');
- ok(0+ at warn," we did warn");
- ok( -d 'install-test/other_lib/perl', 'install made other dir' );
- ok( -r 'install-test/other_lib/perl/Big/Dummy.pm', ' .pm file installed' );
- ok( -r 'install-test/packlist', ' packlist exists' );
- ok( -r $tfile, ' UNINST=1 failed to remove different' );
-
-}
-
-# Test UNINST=1 dieing when failing to remove an relevent shadow file
-{
- my $tfile='install-test/lib/perl/Big/Dummy.pm';
- local $ExtUtils::Install::Testing = $tfile;
- local @INC = ('install-test/lib/perl','install-test/other_lib/perl');
- local $ENV{PERL5LIB} = '';
- ok( -r $tfile, 'different install exists' );
- my @warn;
- local $SIG{__WARN__}=sub { push @warn, at _; return };
- my $ok=eval {
- install([from_to=> { 'blib/lib' => 'install-test/other_lib/perl',
- read => 'install-test/packlist',
- write => 'install-test/packlist'
- },uninstall_shadows=>1]);
- 1
- };
- ok(!$ok,' we did die');
- ok(!@warn," we didnt warn");
- ok( -d 'install-test/other_lib/perl', 'install made other dir' );
- ok( -r 'install-test/other_lib/perl/Big/Dummy.pm', ' .pm file installed' );
- ok( -r 'install-test/packlist', ' packlist exists' );
- ok( -r $tfile,' UNINST=1 failed to remove different' );
-}
-
-# Test UNINST=1 removing other versions in other dirs.
-{
- local @INC = ('install-test/lib/perl');
- local $ENV{PERL5LIB} = '';
- ok( -r 'install-test/lib/perl/Big/Dummy.pm','different install exists' );
- install([from_to=>{ 'blib/lib' => 'install-test/other_lib/perl',
- read => 'install-test/packlist',
- write => 'install-test/packlist'
- },uninstall_shadows=>1]);
- ok( -d 'install-test/other_lib/perl', 'install made other dir' );
- ok( -r 'install-test/other_lib/perl/Big/Dummy.pm', ' .pm file installed' );
- ok( -r 'install-test/packlist', ' packlist exists' );
- ok( !-r 'install-test/lib/perl/Big/Dummy.pm',
- ' UNINST=1 removed different' );
-}
-
-# Test EU_ALWAYS_COPY triggers copy.
-{
- local @INC = ('install-test/lib/perl');
- local $ENV{PERL5LIB} = '';
- local $ENV{EU_INSTALL_ALWAYS_COPY}=1;
- my $tfile='install-test/other_lib/perl/Big/Dummy.pm';
- my $sfile='blib/lib/Big/Dummy.pm';
- ok(-r $tfile,"install file already exists");
- ok(-r $sfile,"source file already exists");
- utime time-600, time-600, $sfile or die "utime '$sfile' failed:$!";
- ok( (stat $tfile)[9]!=(stat $sfile)[9],' Times are different');
- install([from_to=>{ 'blib/lib' => 'install-test/other_lib/perl',
- read => 'install-test/packlist',
- write => 'install-test/packlist'
- },result=>\my %result]);
- ok( -d 'install-test/other_lib/perl', 'install made other dir' );
- ok( -r 'install-test/other_lib/perl/Big/Dummy.pm', ' .pm file installed' );
- ok( -r 'install-test/packlist', ' packlist exists' );
-SKIP: {
- skip "Times not preserved during copy by default", 1 if $^O eq 'VMS';
- ok( (stat $tfile)[9]==(stat $sfile)[9],' Times are same');
-}
- ok( !$result{install_unchanged},' $result{install_unchanged} should be empty');
-}
-# Test nothing is copied.
-{
- local @INC = ('install-test/lib/perl');
- local $ENV{PERL5LIB} = '';
- local $ENV{EU_INSTALL_ALWAYS_COPY}=0;
- my $tfile='install-test/other_lib/perl/Big/Dummy.pm';
- my $sfile='blib/lib/Big/Dummy.pm';
- ok(-r $tfile,"install file already exists");
- ok(-r $sfile,"source file already exists");
- utime time-1200, time-1200, $sfile or die "utime '$sfile' failed:$!";
- ok( (stat $tfile)[9]!=(stat $sfile)[9],' Times are different');
- install([from_to=>{ 'blib/lib' => 'install-test/other_lib/perl',
- read => 'install-test/packlist',
- write => 'install-test/packlist'
- },result=>\my %result]);
- ok( -d 'install-test/other_lib/perl', 'install made other dir' );
- ok( -r 'install-test/other_lib/perl/Big/Dummy.pm', ' .pm file installed' );
- ok( -r 'install-test/packlist', ' packlist exists' );
- ok( (stat $tfile)[9]!=(stat$sfile)[9],' Times are different');
- ok( !$result{install},' nothing should have been installed');
- ok( $result{install_unchanged},' install_unchanged should be populated');
-}
diff --git a/3.8.8/sources/cpan-ExtUtils-Install/vendor/t/Packlist.t b/3.8.8/sources/cpan-ExtUtils-Install/vendor/t/Packlist.t
deleted file mode 100644
index cb73e00..0000000
--- a/3.8.8/sources/cpan-ExtUtils-Install/vendor/t/Packlist.t
+++ /dev/null
@@ -1,174 +0,0 @@
-#!/usr/bin/perl -w
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't' if -d 't';
- @INC = '../lib';
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-chdir 't';
-
-use Test::More tests => 34;
-
-use_ok( 'ExtUtils::Packlist' );
-
-is( ref(ExtUtils::Packlist::mkfh()), 'GLOB', 'mkfh() should return a FH' );
-
-# new calls tie()
-my $pl = ExtUtils::Packlist->new();
-isa_ok( $pl, 'ExtUtils::Packlist' );
-is( ref tied %$pl, 'ExtUtils::Packlist', 'obj should be tied underneath' );
-
-
-$pl = ExtUtils::Packlist::TIEHASH( 'tieclass', 'packfile' );
-is( ref($pl), 'tieclass', 'TIEHASH() should bless into class' );
-is( $pl->{packfile}, 'packfile', 'TIEHASH() should store packfile name' );
-
-
-ExtUtils::Packlist::STORE($pl, 'key', 'value');
-is( $pl->{data}{key}, 'value', 'STORE() should stuff stuff in data member' );
-
-
-$pl->{data}{foo} = 'bar';
-is( ExtUtils::Packlist::FETCH($pl, 'foo'), 'bar', 'check FETCH()' );
-
-
-# test FIRSTKEY and NEXTKEY
-SKIP: {
- $pl->{data}{bar} = 'baz';
- skip('not enough keys to test FIRSTKEY', 2)
- unless keys %{ $pl->{data} } > 2;
-
- # get the first and second key
- my ($first, $second) = keys %{ $pl->{data} };
-
- # now get a couple of extra keys, to mess with the hash iterator
- my $i = 0;
- for (keys %{ $pl->{data} } ) {
- last if $i++;
- }
-
- # finally, see if it really can get the first key again
- is( ExtUtils::Packlist::FIRSTKEY($pl), $first,
- 'FIRSTKEY() should be consistent' );
-
- is( ExtUtils::Packlist::NEXTKEY($pl), $second,
- 'and NEXTKEY() should also be consistent' );
-}
-
-
-ok( ExtUtils::Packlist::EXISTS($pl, 'bar'), 'EXISTS() should find keys' );
-
-
-ExtUtils::Packlist::DELETE($pl, 'bar');
-ok( !(exists $pl->{data}{bar}), 'DELETE() should delete cleanly' );
-
-
-ExtUtils::Packlist::CLEAR($pl);
-is( keys %{ $pl->{data} }, 0, 'CLEAR() should wipe out data' );
-
-
-# DESTROY does nothing...
-can_ok( 'ExtUtils::Packlist', 'DESTROY' );
-
-
-# write is a little more complicated
-eval { ExtUtils::Packlist::write({}) };
-like( $@, qr/No packlist filename/, 'write() should croak without packfile' );
-
-eval { ExtUtils::Packlist::write({}, 'eplist') };
-my $file_is_ready = $@ ? 0 : 1;
-ok( $file_is_ready, 'write() can write a file' );
-
-local *IN;
-
-SKIP: {
- skip('cannot write files, some tests difficult', 3) unless $file_is_ready;
-
- # set this file to read-only
- chmod 0444, 'eplist';
-
- SKIP: {
- skip("cannot write readonly files", 1) if -w 'eplist';
-
- eval { ExtUtils::Packlist::write({}, 'eplist') };
- like( $@, qr/Can't open file/, 'write() should croak on open failure' );
- }
-
- #'now set it back (tick here fixes vim syntax highlighting ;)
- chmod 0777, 'eplist';
-
- # and some test data to be read
- $pl->{data} = {
- single => 1,
- hash => {
- foo => 'bar',
- baz => 'bup',
- },
- '/./abc' => '',
- };
- eval { ExtUtils::Packlist::write($pl, 'eplist') };
- is( $@, '', 'write() should normally succeed' );
- is( $pl->{packfile}, 'eplist', 'write() should set packfile name' );
-
- $file_is_ready = open(IN, 'eplist');
-}
-
-
-eval { ExtUtils::Packlist::read({}) };
-like( $@, qr/^No packlist filename/, 'read() should croak without packfile' );
-
-
-eval { ExtUtils::Packlist::read({}, 'abadfilename') };
-like( $@, qr/^Can't open file/, 'read() should croak with bad packfile name' );
-#'open packfile for reading
-
-
-# and more read() tests
-SKIP: {
- skip("cannot open file for reading: $!", 5) unless $file_is_ready;
- my $file = do { local $/ = <IN> };
-
- like( $file, qr/single\n/, 'key with value should be available' );
- like( $file, qr!/\./abc\n!, 'key with no value should also be present' );
- like( $file, qr/hash.+baz=bup/, 'key with hash value should be present' );
- like( $file, qr/hash.+foo=bar/, 'second embedded hash value should appear');
- close IN;
-
- eval{ ExtUtils::Packlist::read($pl, 'eplist') };
- is( $@, '', 'read() should normally succeed' );
- is( $pl->{data}{single}, undef, 'single keys should have undef value' );
- is( ref($pl->{data}{hash}), 'HASH', 'multivalue keys should become hashes');
-
- is( $pl->{data}{hash}{foo}, 'bar', 'hash values should be set' );
- ok( exists $pl->{data}{'/abc'}, 'read() should resolve /./ to / in keys' );
-
- # give validate a valid and an invalid file to find
- $pl->{data} = {
- eplist => 1,
- fake => undef,
- };
-
- is( ExtUtils::Packlist::validate($pl), 1,
- 'validate() should find missing files' );
- ExtUtils::Packlist::validate($pl, 1);
- ok( !exists $pl->{data}{fake},
- 'validate() should remove missing files when prompted' );
-
- # one more new() test, to see if it calls read() successfully
- $pl = ExtUtils::Packlist->new('eplist');
-}
-
-
-# packlist_file, $pl should be set from write test
-is( ExtUtils::Packlist::packlist_file({ packfile => 'pl' }), 'pl',
- 'packlist_file() should fetch packlist from passed hash' );
-is( ExtUtils::Packlist::packlist_file($pl), 'eplist',
- 'packlist_file() should fetch packlist from ExtUtils::Packlist object' );
-
-END {
- 1 while unlink qw( eplist );
-}
diff --git a/3.8.8/sources/cpan-ExtUtils-Install/vendor/t/can_write_dir.t b/3.8.8/sources/cpan-ExtUtils-Install/vendor/t/can_write_dir.t
deleted file mode 100644
index be6fb18..0000000
--- a/3.8.8/sources/cpan-ExtUtils-Install/vendor/t/can_write_dir.t
+++ /dev/null
@@ -1,61 +0,0 @@
-#!/usr/bin/perl -w
-
-# Test the private _can_write_dir() function.
-
-use strict;
-use ExtUtils::Install;
-use File::Spec;
-{ package FS; our @ISA = qw(File::Spec); }
-
-# Alias it for easier access
-*can_write_dir = \&ExtUtils::Install::_can_write_dir;
-
-use Test::More 'no_plan';
-
-
-my $dne = FS->catdir(qw(does not exist));
-ok ! -e $dne;
-is_deeply [can_write_dir($dne)],
- [1,
- FS->curdir,
- FS->catdir('does'),
- FS->catdir('does', 'not'),
- FS->catdir('does', 'not', 'exist')
- ];
-
-
-my $abs_dne = FS->rel2abs($dne);
-ok ! -e $abs_dne;
-is_deeply [can_write_dir($abs_dne)],
- [1,
- FS->rel2abs(FS->curdir),
- FS->rel2abs(FS->catdir('does')),
- FS->rel2abs(FS->catdir('does', 'not')),
- FS->rel2abs(FS->catdir('does', 'not', 'exist')),
- ];
-
-SKIP: {
- my $exists = FS->catdir(qw(exists));
- my $subdir = FS->catdir(qw(exists subdir));
-
-
- ok mkdir $exists;
- END { rmdir $exists }
-
- ok chmod 0555, $exists, 'make read only';
-
- skip "Current user or OS cannot create directories that they cannot read", 6
- if -w $exists; # these tests require a directory we cant read
-
- is_deeply [can_write_dir($exists)], [0, $exists];
- is_deeply [can_write_dir($subdir)], [0, $exists, $subdir];
-
- ok chmod 0777, $exists, 'make writable';
- ok -w $exists;
- is_deeply [can_write_dir($exists)], [1, $exists];
- is_deeply [can_write_dir($subdir)],
- [1,
- $exists,
- $subdir
- ];
-}
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-ExtUtils-Install/vendor/t/lib/MakeMaker/Test/Setup/BFD.pm b/3.8.8/sources/cpan-ExtUtils-Install/vendor/t/lib/MakeMaker/Test/Setup/BFD.pm
deleted file mode 100644
index 9745656..0000000
--- a/3.8.8/sources/cpan-ExtUtils-Install/vendor/t/lib/MakeMaker/Test/Setup/BFD.pm
+++ /dev/null
@@ -1,132 +0,0 @@
-package MakeMaker::Test::Setup::BFD;
-
- at ISA = qw(Exporter);
-require Exporter;
- at EXPORT = qw(setup_recurs teardown_recurs);
-
-use strict;
-use File::Path;
-use File::Basename;
-use MakeMaker::Test::Utils;
-
-my $Is_VMS = $^O eq 'VMS';
-
-my %Files = (
- 'Big-Dummy/lib/Big/Dummy.pm' => <<'END',
-package Big::Dummy;
-
-$VERSION = 0.01;
-
-=head1 NAME
-
-Big::Dummy - Try "our" hot dog's
-
-=cut
-
-1;
-END
-
- 'Big-Dummy/Makefile.PL' => <<'END',
-use ExtUtils::MakeMaker;
-
-# This will interfere with the PREREQ_PRINT tests.
-printf "Current package is: %s\n", __PACKAGE__ unless "@ARGV" =~ /PREREQ/;
-
-WriteMakefile(
- NAME => 'Big::Dummy',
- VERSION_FROM => 'lib/Big/Dummy.pm',
- EXE_FILES => [qw(bin/program)],
- PREREQ_PM => { strict => 0 },
- ABSTRACT_FROM => 'lib/Big/Dummy.pm',
- AUTHOR => 'Michael G Schwern <schwern at pobox.com>',
-);
-END
-
- 'Big-Dummy/bin/program' => <<'END',
-#!/usr/bin/perl -w
-
-=head1 NAME
-
-program - this is a program
-
-=cut
-
-1;
-END
-
- 'Big-Dummy/t/compile.t' => <<'END',
-print "1..2\n";
-
-print eval "use Big::Dummy; 1;" ? "ok 1\n" : "not ok 1\n";
-print "ok 2 - TEST_VERBOSE\n";
-END
-
- 'Big-Dummy/Liar/t/sanity.t' => <<'END',
-print "1..3\n";
-
-print eval "use Big::Dummy; 1;" ? "ok 1\n" : "not ok 1\n";
-print eval "use Big::Liar; 1;" ? "ok 2\n" : "not ok 2\n";
-print "ok 3 - TEST_VERBOSE\n";
-END
-
- 'Big-Dummy/Liar/lib/Big/Liar.pm' => <<'END',
-package Big::Liar;
-
-$VERSION = 0.01;
-
-1;
-END
-
- 'Big-Dummy/Liar/Makefile.PL' => <<'END',
-use ExtUtils::MakeMaker;
-
-my $mm = WriteMakefile(
- NAME => 'Big::Liar',
- VERSION_FROM => 'lib/Big/Liar.pm',
- _KEEP_AFTER_FLUSH => 1
- );
-
-print "Big::Liar's vars\n";
-foreach my $key (qw(INST_LIB INST_ARCHLIB)) {
- print "$key = $mm->{$key}\n";
-}
-END
-
- );
-
-
-sub setup_recurs {
- setup_mm_test_root();
- chdir 'MM_TEST_ROOT:[t]' if $Is_VMS;
-
- while(my($file, $text) = each %Files) {
- # Convert to a relative, native file path.
- $file = File::Spec->catfile(File::Spec->curdir, split m{\/}, $file);
-
- my $dir = dirname($file);
- mkpath $dir;
- open(FILE, ">$file") || die "Can't create $file: $!";
- print FILE $text;
- close FILE;
-
- # ensure file at least 1 second old for makes that assume
- # files with the same time are out of date.
- my $time = calibrate_mtime();
- utime $time, $time - 1, $file;
- }
-
- return 1;
-}
-
-sub teardown_recurs {
- foreach my $file (keys %Files) {
- my $dir = dirname($file);
- if( -e $dir ) {
- rmtree($dir) || return;
- }
- }
- return 1;
-}
-
-
-1;
diff --git a/3.8.8/sources/cpan-ExtUtils-Install/vendor/t/lib/MakeMaker/Test/Utils.pm b/3.8.8/sources/cpan-ExtUtils-Install/vendor/t/lib/MakeMaker/Test/Utils.pm
deleted file mode 100644
index 7e5d5fc..0000000
--- a/3.8.8/sources/cpan-ExtUtils-Install/vendor/t/lib/MakeMaker/Test/Utils.pm
+++ /dev/null
@@ -1,412 +0,0 @@
-package MakeMaker::Test::Utils;
-
-use File::Spec;
-use strict;
-use Config;
-
-require Exporter;
-our @ISA = qw(Exporter);
-
-our $Is_VMS = $^O eq 'VMS';
-our $Is_MacOS = $^O eq 'MacOS';
-
-our @EXPORT = qw(which_perl perl_lib makefile_name makefile_backup
- make make_run run make_macro calibrate_mtime
- setup_mm_test_root
- have_compiler slurp
- $Is_VMS $Is_MacOS
- run_ok
- );
-
-
-# Setup the code to clean out %ENV
-{
- # Environment variables which might effect our testing
- my @delete_env_keys = qw(
- PERL_MM_OPT
- PERL_MM_USE_DEFAULT
- HARNESS_TIMER
- HARNESS_OPTIONS
- HARNESS_VERBOSE
- PREFIX
- MAKEFLAGS
- );
-
- # Remember the ENV values because on VMS %ENV is global
- # to the user, not the process.
- my %restore_env_keys;
-
- sub clean_env {
- for my $key (@delete_env_keys) {
- if( exists $ENV{$key} ) {
- $restore_env_keys{$key} = delete $ENV{$key};
- }
- else {
- delete $ENV{$key};
- }
- }
- }
-
- END {
- while( my($key, $val) = each %restore_env_keys ) {
- $ENV{$key} = $val;
- }
- }
-}
-clean_env();
-
-
-=head1 NAME
-
-MakeMaker::Test::Utils - Utility routines for testing MakeMaker
-
-=head1 SYNOPSIS
-
- use MakeMaker::Test::Utils;
-
- my $perl = which_perl;
- perl_lib;
-
- my $makefile = makefile_name;
- my $makefile_back = makefile_backup;
-
- my $make = make;
- my $make_run = make_run;
- make_macro($make, $targ, %macros);
-
- my $mtime = calibrate_mtime;
-
- my $out = run($cmd);
-
- my $have_compiler = have_compiler();
-
- my $text = slurp($filename);
-
-
-=head1 DESCRIPTION
-
-A consolidation of little utility functions used through out the
-MakeMaker test suite.
-
-=head2 Functions
-
-The following are exported by default.
-
-=over 4
-
-=item B<which_perl>
-
- my $perl = which_perl;
-
-Returns a path to perl which is safe to use in a command line, no
-matter where you chdir to.
-
-=cut
-
-sub which_perl {
- my $perl = $^X;
- $perl ||= 'perl';
-
- # VMS should have 'perl' aliased properly
- return $perl if $Is_VMS;
-
- $perl .= $Config{exe_ext} unless $perl =~ m/$Config{exe_ext}$/i;
-
- my $perlpath = File::Spec->rel2abs( $perl );
- unless( $Is_MacOS || -x $perlpath ) {
- # $^X was probably 'perl'
-
- # When building in the core, *don't* go off and find
- # another perl
- die "Can't find a perl to use (\$^X=$^X), (\$perlpath=$perlpath)"
- if $ENV{PERL_CORE};
-
- foreach my $path (File::Spec->path) {
- $perlpath = File::Spec->catfile($path, $perl);
- last if -x $perlpath;
- }
- }
-
- return $perlpath;
-}
-
-=item B<perl_lib>
-
- perl_lib;
-
-Sets up environment variables so perl can find its libraries.
-
-=cut
-
-my $old5lib = $ENV{PERL5LIB};
-my $had5lib = exists $ENV{PERL5LIB};
-sub perl_lib {
- # perl-src/t/
- my $lib = $ENV{PERL_CORE} ? qq{../lib}
- # ExtUtils-MakeMaker/t/
- : qq{../blib/lib};
- $lib = File::Spec->rel2abs($lib);
- my @libs = ($lib);
- push @libs, $ENV{PERL5LIB} if exists $ENV{PERL5LIB};
- $ENV{PERL5LIB} = join($Config{path_sep}, @libs);
- unshift @INC, $lib;
-}
-
-END {
- if( $had5lib ) {
- $ENV{PERL5LIB} = $old5lib;
- }
- else {
- delete $ENV{PERL5LIB};
- }
-}
-
-
-=item B<makefile_name>
-
- my $makefile = makefile_name;
-
-MakeMaker doesn't always generate 'Makefile'. It returns what it
-should generate.
-
-=cut
-
-sub makefile_name {
- return $Is_VMS ? 'Descrip.MMS' : 'Makefile';
-}
-
-=item B<makefile_backup>
-
- my $makefile_old = makefile_backup;
-
-Returns the name MakeMaker will use for a backup of the current
-Makefile.
-
-=cut
-
-sub makefile_backup {
- my $makefile = makefile_name;
- return $Is_VMS ? "$makefile".'_old' : "$makefile.old";
-}
-
-=item B<make>
-
- my $make = make;
-
-Returns a good guess at the make to run.
-
-=cut
-
-sub make {
- my $make = $Config{make};
- $make = $ENV{MAKE} if exists $ENV{MAKE};
-
- return $make;
-}
-
-=item B<make_run>
-
- my $make_run = make_run;
-
-Returns the make to run as with make() plus any necessary switches.
-
-=cut
-
-sub make_run {
- my $make = make;
- $make .= ' -nologo' if $make eq 'nmake';
-
- return $make;
-}
-
-=item B<make_macro>
-
- my $make_cmd = make_macro($make, $target, %macros);
-
-Returns the command necessary to run $make on the given $target using
-the given %macros.
-
- my $make_test_verbose = make_macro(make_run(), 'test',
- TEST_VERBOSE => 1);
-
-This is important because VMS's make utilities have a completely
-different calling convention than Unix or Windows.
-
-%macros is actually a list of tuples, so the order will be preserved.
-
-=cut
-
-sub make_macro {
- my($make, $target) = (shift, shift);
-
- my $is_mms = $make =~ /^MM(K|S)/i;
-
- my $cmd = $make;
- my $macros = '';
- while( my($key,$val) = splice(@_, 0, 2) ) {
- if( $is_mms ) {
- $macros .= qq{/macro="$key=$val"};
- }
- else {
- $macros .= qq{ $key=$val};
- }
- }
-
- return $is_mms ? "$make$macros $target" : "$make $target $macros";
-}
-
-=item B<calibrate_mtime>
-
- my $mtime = calibrate_mtime;
-
-When building on NFS, file modification times can often lose touch
-with reality. This returns the mtime of a file which has just been
-touched.
-
-=cut
-
-sub calibrate_mtime {
- open(FILE, ">calibrate_mtime.tmp") || die $!;
- print FILE "foo";
- close FILE;
- my($mtime) = (stat('calibrate_mtime.tmp'))[9];
- unlink 'calibrate_mtime.tmp';
- return $mtime;
-}
-
-=item B<run>
-
- my $out = run($command);
- my @out = run($command);
-
-Runs the given $command as an external program returning at least STDOUT
-as $out. If possible it will return STDOUT and STDERR combined as you
-would expect to see on a screen.
-
-=cut
-
-sub run {
- my $cmd = shift;
-
- use ExtUtils::MM;
-
- # Unix, modern Windows and OS/2 from 5.005_54 up can handle can handle 2>&1
- # This makes our failure diagnostics nicer to read.
- if( MM->os_flavor_is('Unix') or
- (MM->os_flavor_is('Win32') and !MM->os_flavor_is('Win9x')) or
- ($] > 5.00554 and MM->os_flavor_is('OS/2'))
- ) {
- return `$cmd 2>&1`;
- }
- else {
- return `$cmd`;
- }
-}
-
-
-=item B<run_ok>
-
- my @out = run_ok($cmd);
-
-Like run() but it tests that the result exited normally.
-
-The output from run() will be used as a diagnostic if it fails.
-
-=cut
-
-sub run_ok {
- my $tb = Test::Builder->new;
-
- my @out = run(@_);
-
- $tb->cmp_ok( $?, '==', 0, "run(@_)" ) || $tb->diag(@out);
-
- return wantarray ? @out : join "", @out;
-}
-
-=item B<setup_mm_test_root>
-
-Creates a rooted logical to avoid the 8-level limit on older VMS systems.
-No action taken on non-VMS systems.
-
-=cut
-
-sub setup_mm_test_root {
- if( $Is_VMS ) {
- # On older systems we might exceed the 8-level directory depth limit
- # imposed by RMS. We get around this with a rooted logical, but we
- # can't create logical names with attributes in Perl, so we do it
- # in a DCL subprocess and put it in the job table so the parent sees it.
- open( MMTMP, '>mmtesttmp.com' ) ||
- die "Error creating command file; $!";
- print MMTMP <<'COMMAND';
-$ MM_TEST_ROOT = F$PARSE("SYS$DISK:[-]",,,,"NO_CONCEAL")-".][000000"-"]["-"].;"+".]"
-$ DEFINE/JOB/NOLOG/TRANSLATION=CONCEALED MM_TEST_ROOT 'MM_TEST_ROOT'
-COMMAND
- close MMTMP;
-
- system '@mmtesttmp.com';
- 1 while unlink 'mmtesttmp.com';
- }
-}
-
-=item have_compiler
-
- $have_compiler = have_compiler;
-
-Returns true if there is a compiler available for XS builds.
-
-=cut
-
-sub have_compiler {
- my $have_compiler = 0;
-
- # ExtUtils::CBuilder prints its compilation lines to the screen.
- # Shut it up.
- use TieOut;
- local *STDOUT = *STDOUT;
- local *STDERR = *STDERR;
-
- tie *STDOUT, 'TieOut';
- tie *STDERR, 'TieOut';
-
- eval {
- require ExtUtils::CBuilder;
- my $cb = ExtUtils::CBuilder->new;
-
- $have_compiler = $cb->have_compiler;
- };
-
- return $have_compiler;
-}
-
-=item slurp
-
- $contents = slurp($filename);
-
-Returns the $contents of $filename.
-
-Will die if $filename cannot be opened.
-
-=cut
-
-sub slurp {
- my $filename = shift;
-
- local $/ = undef;
- open my $fh, $filename or die "Can't open $filename for reading: $!";
- my $text = <$fh>;
- close $fh;
-
- return $text;
-}
-
-=back
-
-=head1 AUTHOR
-
-Michael G Schwern <schwern at pobox.com>
-
-=cut
-
-1;
diff --git a/3.8.8/sources/cpan-ExtUtils-Install/vendor/t/lib/Test/Builder/Module.pm b/3.8.8/sources/cpan-ExtUtils-Install/vendor/t/lib/Test/Builder/Module.pm
deleted file mode 100644
index 855488a..0000000
--- a/3.8.8/sources/cpan-ExtUtils-Install/vendor/t/lib/Test/Builder/Module.pm
+++ /dev/null
@@ -1,182 +0,0 @@
-package Test::Builder::Module;
-
-use Test::Builder;
-
-require Exporter;
- at ISA = qw(Exporter);
-
-$VERSION = '0.03';
-
-use strict;
-
-# 5.004's Exporter doesn't have export_to_level.
-my $_export_to_level = sub {
- my $pkg = shift;
- my $level = shift;
- (undef) = shift; # redundant arg
- my $callpkg = caller($level);
- $pkg->export($callpkg, @_);
-};
-
-
-=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 Test::Builder-based modules. It provides a
-handful of common functionality and a method of getting at the underlying
-Test::Builder object.
-
-
-=head2 Importing
-
-Test::Builder::Module is a subclass of 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 import() method which acts in the
-same basic way as Test::More's, setting the plan and controling
-exporting of functions and variables. This allows your module to set
-the plan independent of Test::More.
-
-All arguments passed to 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 this() and that() as well as set the plan
-to be 23 tests.
-
-import() also sets the exported_to() attribute of your builder to be
-the caller of the import() function.
-
-Additional behaviors can be added to your import() method by overriding
-import_extra().
-
-=cut
-
-sub import {
- my($class) = shift;
-
- 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);
-
-import_extra() is called by 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 plan() should be
-stripped off by this method.
-
-See 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 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 Test::Builder object. You should
-I<not> get it via C<< Test::Builder->new >> as was previously
-recommended.
-
-The object returned by builder() may change at runtime so you should
-call 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/3.8.8/sources/cpan-ExtUtils-Install/vendor/t/lib/Test/Simple.pm b/3.8.8/sources/cpan-ExtUtils-Install/vendor/t/lib/Test/Simple.pm
deleted file mode 100644
index ccf3d60..0000000
--- a/3.8.8/sources/cpan-ExtUtils-Install/vendor/t/lib/Test/Simple.pm
+++ /dev/null
@@ -1,230 +0,0 @@
-package Test::Simple;
-
-use 5.004;
-
-use strict 'vars';
-use vars qw($VERSION @ISA @EXPORT);
-$VERSION = '0.62';
-$VERSION = eval $VERSION; # make the alpha version come out as a number
-
-use Test::Builder::Module;
- at ISA = qw(Test::Builder::Module);
- at 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 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 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 );
-
-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.
-
-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 ($;$) {
- $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 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.004.
-
-Test::Simple is thread-safe in perl 5.8.0 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
-Test::More. Test::Simple is 100% forward compatible with Test::More
-(i.e. you can just use Test::More instead of Test::Simple in your
-programs and things will still work).
-
-=item L<Test>
-
-The original Perl testing module.
-
-=item L<Test::Unit>
-
-Elaborate unit testing.
-
-=item L<Test::Inline>, L<SelfTest>
-
-Embed tests in your code!
-
-=item L<Test::Harness>
-
-Interprets the output of your test program.
-
-=back
-
-
-=head1 AUTHORS
-
-Idea by Tony Bowden and Paul Johnson, code by Michael G Schwern
-E<lt>schwern at pobox.comE<gt>, wardrobe by Calvin Klein.
-
-
-=head1 COPYRIGHT
-
-Copyright 2001, 2002, 2004 by Michael G Schwern E<lt>schwern at 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/3.8.8/sources/cpan-ExtUtils-Install/vendor/t/pod-coverage.t b/3.8.8/sources/cpan-ExtUtils-Install/vendor/t/pod-coverage.t
deleted file mode 100644
index a1219bf..0000000
--- a/3.8.8/sources/cpan-ExtUtils-Install/vendor/t/pod-coverage.t
+++ /dev/null
@@ -1,34 +0,0 @@
-#!perl -T
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- @INC = ('../../lib', '../lib', 'lib');
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-chdir 't';
-
-use Test::More;
-use diagnostics;
-
-# this is organized like this to avoid a "bug" in perls tainting.
-# using an elsif throws an insecure dependency error.
-
-my $skip_reason= "Skipping author tests. Set AUTHOR_TESTING=1 to run them.";
-if ( $ENV{AUTHOR_TESTING} ) {
- $skip_reason= "";
-}
-if ( !$skip_reason && ! eval "use Test::Pod::Coverage 1.08; use Pod::Coverage 0.17; 1" ) {
- $skip_reason= "Test::Pod::Coverage 1.08 and Pod::Coverage 0.17 "
- . "required for testing POD coverage";
-}
-
-$skip_reason and
- plan skip_all => $skip_reason;
-
-plan tests => 3;
-pod_coverage_ok( "ExtUtils::Install");
-pod_coverage_ok( "ExtUtils::Installed");
-pod_coverage_ok( "ExtUtils::Packlist");
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/MANIFEST b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/MANIFEST
deleted file mode 100644
index b242cc5..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/MANIFEST
+++ /dev/null
@@ -1,117 +0,0 @@
-.gitignore
-bin/instmodsh
-Changes
-inc/ExtUtils/Command.pm
-inc/ExtUtils/Install.pm
-inc/ExtUtils/Installed.pm
-inc/ExtUtils/Manifest.pm
-inc/ExtUtils/MANIFEST.SKIP
-inc/ExtUtils/Packlist.pm
-lib/ExtUtils/Command/MM.pm
-lib/ExtUtils/Liblist.pm
-lib/ExtUtils/Liblist/Kid.pm
-lib/ExtUtils/MakeMaker.pm
-lib/ExtUtils/MakeMaker/Config.pm
-lib/ExtUtils/MakeMaker/FAQ.pod
-lib/ExtUtils/MakeMaker/Tutorial.pod
-lib/ExtUtils/Mkbootstrap.pm
-lib/ExtUtils/Mksymlists.pm
-lib/ExtUtils/MM.pm
-lib/ExtUtils/MM_AIX.pm
-lib/ExtUtils/MM_Any.pm
-lib/ExtUtils/MM_BeOS.pm
-lib/ExtUtils/MM_Cygwin.pm
-lib/ExtUtils/MM_Darwin.pm
-lib/ExtUtils/MM_DOS.pm
-lib/ExtUtils/MM_MacOS.pm
-lib/ExtUtils/MM_NW5.pm
-lib/ExtUtils/MM_OS2.pm
-lib/ExtUtils/MM_QNX.pm
-lib/ExtUtils/MM_Unix.pm
-lib/ExtUtils/MM_UWIN.pm
-lib/ExtUtils/MM_VMS.pm
-lib/ExtUtils/MM_VOS.pm
-lib/ExtUtils/MM_Win32.pm
-lib/ExtUtils/MM_Win95.pm
-lib/ExtUtils/MY.pm
-lib/ExtUtils/testlib.pm
-Makefile.PL
-MANIFEST This list of files
-MANIFEST.SKIP
-NOTES
-PATCHING
-README
-t/00compile.t
-t/arch_check.t
-t/backwards.t
-t/basic.t
-t/build_man.t
-t/cd.t
-t/config.t
-t/dir_target.t
-t/FIRST_MAKEFILE.t
-t/fix_libs.t
-t/fixin.t
-t/hints.t
-t/INST.t
-t/INST_PREFIX.t
-t/INSTALL_BASE.t
-t/installed_file.t
-t/is_of_type.t
-t/lib/MakeMaker/Test/NoXS.pm
-t/lib/MakeMaker/Test/Setup/BFD.pm
-t/lib/MakeMaker/Test/Setup/MPV.pm
-t/lib/MakeMaker/Test/Setup/PL_FILES.pm
-t/lib/MakeMaker/Test/Setup/Problem.pm
-t/lib/MakeMaker/Test/Setup/Recurs.pm
-t/lib/MakeMaker/Test/Setup/XS.pm
-t/lib/MakeMaker/Test/Utils.pm
-t/lib/Test/Builder.pm
-t/lib/Test/Builder/IO/Scalar.pm
-t/lib/Test/Builder/Module.pm
-t/lib/Test/More.pm
-t/lib/Test/Simple.pm
-t/lib/TieIn.pm
-t/lib/TieOut.pm
-t/Liblist.t
-t/make.t
-t/MakeMaker_Parameters.t
-t/maketext_filter.t
-t/metafile_data.t
-t/metafile_file.t
-t/min_perl_version.t
-t/miniperl.t
-t/Mkbootstrap.t
-t/MM_Any.t
-t/MM_BeOS.t
-t/MM_Cygwin.t
-t/MM_NW5.t
-t/MM_OS2.t
-t/MM_Unix.t
-t/MM_VMS.t
-t/MM_Win32.t
-t/oneliner.t
-t/parse_version.t
-t/PL_FILES.t
-t/pm.t
-t/pm_to_blib.t
-t/pod2man.t
-t/postamble.t
-t/prefixify.t
-t/prereq.t
-t/prereq_print.t
-t/problems.t
-t/prompt.t
-t/recurs.t
-t/revision.t
-t/split_command.t
-t/test_boilerplate.t
-t/testdata/reallylongdirectoryname/arch1/Config.pm
-t/testdata/reallylongdirectoryname/arch2/Config.pm
-t/testlib.t
-t/VERSION_FROM.t
-t/WriteEmptyMakefile.t
-t/writemakefile_args.t
-t/xs.t
-TODO
-META.yml Module meta-data (added by MakeMaker)
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/Makefile.PL b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/Makefile.PL
deleted file mode 100644
index b4f9283..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/Makefile.PL
+++ /dev/null
@@ -1,241 +0,0 @@
-#!/usr/bin/perl -w
-
-# A template for Makefile.PL.
-# - Set the $PACKAGE variable to the name of your module.
-# - Set $LAST_API_CHANGE to reflect the last version you changed the API
-# of your module.
-# - Fill in your dependencies in PREREQ_PM
-# Alternatively, you can say the hell with this and use h2xs.
-
-BEGIN { require 5.006; }
-use strict;
-
-use lib qw(lib inc); # build ourself with ourself
-use File::Spec;
-use ExtUtils::MakeMaker 6.50;
-
-
-BEGIN {
- die "You have File::Spec version $File::Spec::VERSION\n".
- "ExtUtils::MakeMaker requires File::Spec >= 0.8 to build at all.\n"
- if $File::Spec::VERSION < 0.8;
-}
-
-my $PACKAGE = 'ExtUtils::MakeMaker';
-my $version = do { no strict 'refs'; ${$PACKAGE.'::VERSION'}; };
-$version =~ s/_//; # for X.Y_Z alpha releases
-(my $PACKAGE_FILE = $PACKAGE) =~ s|::|/|g;
-my $LAST_API_CHANGE = 5.50;
-
-my $Is_VMS = $^O eq 'VMS';
-
-
-eval "require $PACKAGE";
-
-unless ($@) { # Make sure we did find the module.
- print <<"CHANGE_WARN" if $version < $LAST_API_CHANGE;
-
-NOTE: There have been API changes between this version and any older
-than version $LAST_API_CHANGE! Please read the Changes file if you
-are upgrading from a version older than $LAST_API_CHANGE.
-
-CHANGE_WARN
-}
-
-# Test::Harnesses prior to 2.00 shoved all of @INC onto the command line
-# when a test had -T. This made it too long. So we need a Test::Harness
-# > 2.00 on VMS for t/testlib.t
-my %prereq = ( );
-$prereq{'Test::Harness'} = 2.00 if $^O eq 'VMS';
-
-
-check_environment();
-
-
-my $MM = WriteMakefile(
- NAME => $PACKAGE,
- VERSION_FROM => "lib/$PACKAGE_FILE.pm", # finds $VERSION
- PREREQ_PM => { %prereq,
-
- # splitpath(), rel2abs()
- 'File::Spec' => 0.8,
-
- # manifypods needs Pod::Man
- 'Pod::Man' => 0,
-
- 'File::Basename' => 0,
- DirHandle => 0,
- },
- MIN_PERL_VERSION => '5.006',
-
- PMLIBDIRS => [qw(lib inc)],
- # PMLIBPARENTDIRS is an experimental feature
- PMLIBPARENTDIRS => [qw(lib inc)],
-
- EXE_FILES => [qw(bin/instmodsh)],
-
- META_MERGE => {
- no_index => {
- # "in" is a PAUSE misparse.
- package => ['DynaLoader', 'in'],
- },
- resources => {
- license => 'http://dev.perl.org/licenses/',
- homepage => 'http://makemaker.org',
- bugtracker => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
- repository => 'http://github.com/schwern/extutils-makemaker',
- MailingList => 'makemaker at perl.org',
- },
- },
-
- # We don't need ourself to install ourself.
- CONFIGURE_REQUIRES => {},
- BUILD_REQUIRES => {
- 'Data::Dumper' => 0,
- },
-
- INSTALLDIRS => 'perl',
-
- LICENSE => 'perl',
-
- ABSTRACT_FROM => "lib/$PACKAGE_FILE.pm",
- AUTHOR => 'Michael G Schwern <schwern at pobox.com>',
-);
-
-if( !$Is_VMS && $MM->{PERL} =~ /\S\s+\S/ ) {
- require Test::Harness;
- my $th_version = defined $Test::Harness::VERSION ? $Test::Harness::VERSION
- : 0;
- print <<SPACE_WARN if $th_version < 2.27;
-
-NOTE: Your Perl looks like it contains a space in the path name.
-MakeMaker is now OK with that but your version of Test::Harness is not
-which means 'make test' will likely puke.
-
-You will have to install this new version of MakeMaker, then upgrade
-Test::Harness from CPAN, then run the MakeMaker tests.
-
-SPACE_WARN
-
-}
-
-
-# Display warnings about the environment.
-sub check_environment {
- if( $Is_VMS && $ENV{bin} ) {
- print <<BIN_WARN;
-
-The logical name BIN may be present. This may interfere with MakeMaker's
-tests and operations. GNV is the prime suspect for setting this.
-
-BIN_WARN
-
- sleep 2;
- }
-}
-
-
-{
- package MY;
-
- # Make sure PERLRUN uses the MakeMaker about to be installed
- # and not the currently installed one.
- sub init_PERL {
- my($self) = shift;
- $self->SUPER::init_PERL;
-
- for my $key (qw(PERLRUN FULLPERLRUN ABSPERLRUN)) {
- $self->{$key} .= q[ "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"];
- }
- }
-
- sub init_PM {
- my $self = shift;
-
- $self->SUPER::init_PM;
-
- # Only override older versions of modules with ours in inc/
- for my $inc (grep /^inc/, keys %{$self->{PM}}) {
- next unless $inc =~ /\.pm$/;
-
- my $installed = _find_installed($inc);
- next unless defined $installed;
-
- # Shut up "isn't numeric" warning on X.Y_Z versions.
- local $^W = 0;
- my $installed_version = $self->parse_version($installed);
- my $inc_version = $self->parse_version($inc);
- if( $installed_version >= $inc_version ) {
- delete $self->{PM}{$inc};
- }
- else {
- my $module = _module_name($inc);
- print qq{Using included version of $module ($inc_version) as it is newer than the installed version ($installed_version).\n};
- }
- }
-
- _remove_MANIFEST_SKIP($self);
- }
-
- # If ExtUtils::Manifest isn't included don't include MANIFEST.SKIP either.
- sub _remove_MANIFEST_SKIP {
- my $self = shift;
-
- return if grep /Manifest\.pm$/i, keys %{$self->{PM}};
- my($maniskip_key) = grep /MANIFEST\.SKIP$/i, keys %{$self->{PM}};
- return unless $maniskip_key;
-
- return delete $self->{PM}{$maniskip_key};
- }
-
- sub _find_installed {
- my $file = shift;
-
- $file =~ s{^(\W*)inc\W}{$1}i;
-
- foreach my $inc (grep { $_ ne 'inc' } @INC) {
- my $path = File::Spec->catfile($inc, $file);
- return $path if -r $path;
- }
-
- return;
- }
-
- sub _module_name {
- my $path = shift;
-
- my($vol, $dirs, $file) = File::Spec->splitpath($path);
- my @dirs = File::Spec->splitdir($dirs);
- shift @dirs; # remove inc
-
- $file =~ s{\.pm$}{};
-
- return join '::', grep { length } @dirs, $file;
- }
-
-
- # Test with multiple versions of perl
- sub dist_test {
- my $self = shift;
-
- my $make = $self->SUPER::dist_test(@_);
- return $make unless $ENV{AUTHOR_TESTING} and $ENV{AUTHOR_TESTING} eq 'MSCHWERN';
-
- # Strip off all the whitespace at the end, we'll put our own in.
- $make =~ s{\s+\z}{\n};
-
- my @perls = qw(
- perl5.8.9
- );
-
- for my $perl (@perls) {
- $make .= sprintf <<'END', $perl;
- cd $(DISTVNAME) && $(MAKE) clean && %s Makefile.PL && $(MAKE) test $(PASTHRU)
-END
- }
-
- $make .= "\n";
-
- return $make;
- }
-}
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/NOTES b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/NOTES
deleted file mode 100644
index cb29aec..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/NOTES
+++ /dev/null
@@ -1,96 +0,0 @@
-The Simplified MakeMaker class hierarchy
-****************************************
-
-What most people need to know.
-
-(Subclasses on top.)
-
- MY
- |
- ExtUtils::MakeMaker
- |
- ExtUtils::MM_{Current OS}
- |
- ExtUtils::MM_Unix
- |
- ExtUtils::MM_Any
-
-The object actually used is of the class MY which allows you to
-override bits of MakeMaker inside your Makefile.PL by declaring
-MY::foo() methods.
-
-
-The Real MakeMaker class hierarchy
-**********************************
-
-You wish it was that simple.
-
-Here's how it really works.
-
- PACK### (created each call to ExtUtils::MakeMaker->new)
- . |
- (mixin) |
- . |
- MY (created by ExtUtils::MY) |
- | |
- ExtUtils::MY MM (created by ExtUtils::MM)
- | |
- ExtUtils::MM
- | | |-----------------------
- | | |
- ExtUtils::Liblist ExtUtils::MakeMaker |
- | |
- ExtUtils::Liblist::Kid |
- |
- |
- |
- ExtUtils::MM_{Current OS} (if necessary)
- |
- ExtUtils::MM_Unix
- |
- ExtUtils::MM_Any
-
-
-NOTE: Yes, this is a mess. See
-http://archive.develooper.com/makemaker@perl.org/msg00134.html
-for some history.
-
-NOTE: When ExtUtils::MM is loaded it chooses a superclass for MM from
-amongst the ExtUtils::MM_* modules based on the current operating
-system.
-
-NOTE: ExtUtils::MM_{Current OS} represents one of the ExtUtils::MM_*
-modules except ExtUtils::MM_Any chosen based on your operating system.
-
-NOTE: The main object used by MakeMaker is a PACK### object, *not*
-ExtUtils::MakeMaker. It is, effectively, a subclass of MY,
-ExtUtils::Makemaker, ExtUtils::Liblist and ExtUtils::MM_{Current OS}
-
-NOTE: The methods in MY are simply copied into PACK### rather than
-MY being a superclass of PACK###. I don't remember the rationale.
-
-NOTE: ExtUtils::Liblist should be removed from the inheritence hiearchy
-and simply be called as functions.
-
-NOTE: Modules like File::Spec and Exporter have been omitted for clarity.
-
-
-The MM_* hierarchy
-******************
-
- MM_Win95 MM_NW5
- \ /
-MM_BeOS MM_Cygwin MM_OS2 MM_VMS MM_Win32 MM_DOS MM_UWIN
- \ | | | / / /
- ------------------------------------------------
- | |
- MM_Unix |
- | |
- MM_Any
-
-NOTE: Each direct MM_Unix subclass is also an MM_Any subclass. This
-is a temporary hack because MM_Unix overrides some MM_Any methods with
-Unix specific code. It allows the non-Unix modules to see the
-original MM_Any implementations.
-
-NOTE: Modules like File::Spec and Exporter have been omitted for clarity.
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/PATCHING b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/PATCHING
deleted file mode 100644
index eed536a..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/PATCHING
+++ /dev/null
@@ -1,212 +0,0 @@
-"The easy way is always mined.
- The important things are always simple.
- The simple things are always hard."
- -- Some of Murphy's Laws of Combat
-
-This is a short set of guidelines for those patching
-ExtUtils::MakeMaker. Its not an iron-clad set of rules, but just
-things which make life easier when reading and integrating a patch.
-
-Lots of information can be found in makemaker.org.
-
-MakerMaker is being maintained until something else can replace it.
-Bugs will be fixed and compatibility improved, but I would like to
-avoid new features. If you want to add something to MakeMaker,
-consider instead working on Module::Build, MakeMaker's heir apparent.
-
-
-Reporting bugs
-
-- Often the only information we have for fixing a bug is contained in your
- report. So...
-
-- Please report your bugs via http://rt.cpan.org or by mailing to
- makemaker at perl.org. RT is preferred.
-
-- Please report your bug immediately upon encountering it. Do not wait
- until you have a patch to fix the bug. Patches are good, but not at
- the expense of timely bug reports.
-
-- Please be as verbose as possible. Include the complete output of
- your 'make test' or even 'make test TEST_VERBOSE=1' and a copy of the
- generated Makefile. Err on the side of verbosity. The more data we
- have to work with, the faster we can diagnose the problem.
-
-- If you find an undocumented feature, or if a feature has changed/been
- added which causes a problem, report it. Do not assume it was done
- deliberately. Even if it was done deliberately, we still want to hear
- if it caused problems.
-
-- If you're testing MakeMaker against a development version of Perl,
- please also check it against the latest stable version. This makes it
- easier to figure out if its MakeMaker or Perl at fault.
-
-
-Patching details
-
-- Please use unified diffs. (diff -u)
-
-- Patches against the latest development snapshot from makemaker.org are
- preferred. Patches against the latest CPAN version are ok, too.
-
-- Post your patch to makemaker at perl.org.
-
-
-Code formatting
-
-- No literal tabs (except where necessary inside Makefile code, obviously).
-
-- 4 character indentation.
-
-- this_style is prefered instead of studlyCaps.
-
-- Private subroutine names (ie. those used only in the same package
- they're declared in) should start with an underscore (_sekret_method).
-
-- Protected subroutines (ie. ones intended to be used by other modules in
- ExtUtils::*) should be named normally (no leading underscore) but
- documented as protected (see Documentation below).
-
-- Do not use indirect object syntax (ie. new Foo::Bar (@args))
-
-- make variables use dollar signs like Perl scalars. This causes problems
- when you have to mix them both in a string. If you find yourself
- backwacking lots of dollar signs because you have one interpolated
- perl variable, like this:
-
- return <<EOT;
-subdirs ::
- \$(NOECHO)cd $subdir && \$(MAKE) -f \$(FIRST_MAKEFILE) all \$(PASTHRU)
-
-EOT
-
- or are switching quoting contexts:
-
- return q{
-subdirs ::
- $(NOECHO)cd }.$subdir.q{ && $(MAKE) -f $(FIRST_MAKEFILE) all $(PASTHRU)
-
-};
-
- consider using sprintf instead.
-
- return sprintf <<'EOT', $subdir;
-subdirs ::
- $(NOECHO)cd %s && $(MAKE) -f $(FIRST_MAKEFILE) all $(PASTHRU)
-
-EOT
-
-
-Refactoring and Cleanup
-
-- MakeMaker is a mess. We like patches which clean things up.
-
-
-Backwards Compatibility
-
-- MakeMaker must be backwards compatible to 5.5.4 (5.005_04). Avoid any
- obvious 5.6-isms (threads, warnings.pm, Unicode, our, v1.2.3, attributes
- open my $fh, lvalue subroutines, qr//, any new core modules, etc...).
-
-- MakeMaker should avoid having module dependencies. Avoid using modules
- which didn't come with 5.5.4 and avoid using features from newer
- versions. Sometimes this is unavoidable.
-
-
-Cross-Platform Compatibility
-
-- With the exception of MacOS Classic, MakeMaker must work on all
- architectures Perl works on (see perlport.pod). This means all Unixen
- (including Cygwin and MacOS X), Windows (including Win9x and DOS), and VMS.
-
-- Use the available macros rather than shell commands $(MV), $(CP),
- $(TOUCH), etc...
-
-- MakeMaker must work on many makes. GNU, BSD, Solaris, nmake, dmake, MMS
- and MMK to name the most common. Keep your make code as simple as
- possible.
-
-- Avoid special make variables (even $@).
-
-- Format targets as "target : dependency", the spacing is important.
-
-- Use $(NOECHO) instead of @.
-
-- Use - to tell make to ignore the exit code of a command. (Unfortunately,
- some make variants don't honor an $(IGNORE) macro).
-
-- Always put a space between $(NOECHO) and the command.
-
-- Always put a space between - (ignore) and the command.
-
-- Always put $(NOECHO) and - together, no space between them.
-
- # Right
- -$(NOECHO) command
- $(NOECHO) command
- - command
-
-- Often when you patch ExtUtils::MM_Unix, similar patches must be done
- to the other MM_* modules. If you can, please do this extra work
- otherwise I have to. If you can't, that's ok. We can help.
-
-- If possible, please test your patch on two Very Different architectures.
- Unix, Windows and VMS being Very Different. Note: Cygwin and OS X are
- Unixen for our purposes.
-
-- If nothing else, at least try it on two different Unixen or Windows
- machines (ie. Linux and IRIX or WinNT and Win95).
-
-- HP's TestDrive (www.testdrive.compaq.com) and SourceForge's
- compile farm (www.sourceforge.net) are good sources of testing
- machines of many different architectures and platforms. Accounts are
- free.
-
-- If you find yourself writing "do_this if $^O eq 'That'" (ie. checks on
- the OS type) perhaps your code belongs in one of the non-Unix MM_*
- modules (ie. MM_Win32, MM_VMS, etc...). If one does not exist, consider
- creating one. Its ok to have an MM_* module with only one method.
-
-- Some shells have very small buffers. This means command lines must
- be as small as possible. If your command is just too long, consider
- making it an ExtUtils::Command::MM function. If your command might
- receive many arguments (such as pod2man or pm_to_blib) consider
- using split_command() to split it into several, shorter calls.
-
-- Most shells quote differently. If you need to put a perl one-liner
- in the Makefile, please use oneliner() to generate it.
-
-
-Tests
-
-- Tests would be nice, but I'm not going to pretend testing MakeMaker
- is easy. If nothing else, let us know how you tested your patch by
- hand.
-
-
-Documentation
-
-- Documentation would be nice.
-
-- If the new feature/method is private, please document it with POD
- wrapped in "=begin/end private" tags. That way it will be documented,
- but won't be displayed (future versions of perldoc may have options
- to display).
-
- =begin private
-
- =head3 _foo_bar
-
- $mm->_foo_bar
-
- Blah blah blah
-
- =end private
-
- =cut
-
- sub _foo_bar {
- ...
-
-- If you're overriding a method, document that its an override and
- *why* its being overridden. Don't repeat the original documentation.
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/inc/ExtUtils/Packlist.pm b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/inc/ExtUtils/Packlist.pm
deleted file mode 100644
index 04f267a..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/inc/ExtUtils/Packlist.pm
+++ /dev/null
@@ -1,348 +0,0 @@
-package ExtUtils::Packlist;
-
-use 5.00503;
-use strict;
-use Carp qw();
-use Config;
-use vars qw($VERSION $Relocations);
-$VERSION = '1.43';
-$VERSION = eval $VERSION;
-
-# Used for generating filehandle globs. IO::File might not be available!
-my $fhname = "FH1";
-
-=begin _undocumented
-
-=item mkfh()
-
-Make a filehandle. Same kind of idea as Symbol::gensym().
-
-=cut
-
-sub mkfh()
-{
-no strict;
-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
-
-=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 at uk.sun.com>
-
-=cut
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM.pm b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM.pm
deleted file mode 100644
index eac5f48..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM.pm
+++ /dev/null
@@ -1,90 +0,0 @@
-package ExtUtils::MM;
-
-use strict;
-use ExtUtils::MakeMaker::Config;
-
-our $VERSION = '6.56';
-
-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/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_BeOS.pm b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_BeOS.pm
deleted file mode 100644
index 0b7c8db..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_BeOS.pm
+++ /dev/null
@@ -1,61 +0,0 @@
-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 = '6.56';
-
-
-=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_ARCHIVE_AFTER} ||= '';
- $self->{EXPORT_LIST} ||= '';
-}
-
-=back
-
-1;
-__END__
-
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_Cygwin.pm b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_Cygwin.pm
deleted file mode 100644
index 394fbc6..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_Cygwin.pm
+++ /dev/null
@@ -1,123 +0,0 @@
-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 = '6.56';
-
-
-=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_ARCHIVE_AFTER} ||= '';
- $self->{EXPORT_LIST} ||= '';
-}
-
-=item maybe_command
-
-If our path begins with F</cygdrive/> then we use C<ExtUtils::MM_Win32>
-to determine if it may be a command. Otherwise we use the tests
-from C<ExtUtils::MM_Unix>.
-
-=cut
-
-sub maybe_command {
- my ($self, $file) = @_;
-
- if ($file =~ m{^/cygdrive/}i) {
- return ExtUtils::MM_Win32->maybe_command($file);
- }
-
- return $self->SUPER::maybe_command($file);
-}
-
-=back
-
-=cut
-
-1;
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_DOS.pm b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_DOS.pm
deleted file mode 100644
index fc0a794..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_DOS.pm
+++ /dev/null
@@ -1,65 +0,0 @@
-package ExtUtils::MM_DOS;
-
-use strict;
-
-our $VERSION = 6.56;
-
-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 at pobox.com> with code from ExtUtils::MM_Unix
-
-=head1 SEE ALSO
-
-L<ExtUtils::MM_Unix>, L<ExtUtils::MakeMaker>
-
-=cut
-
-1;
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_MacOS.pm b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_MacOS.pm
deleted file mode 100644
index cfc8205..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_MacOS.pm
+++ /dev/null
@@ -1,40 +0,0 @@
-package ExtUtils::MM_MacOS;
-
-use strict;
-
-our $VERSION = 6.56;
-
-sub new {
- die <<'UNSUPPORTED';
-MacOS Classic (MacPerl) is no longer supported by MakeMaker.
-Please use Module::Build instead.
-UNSUPPORTED
-}
-
-=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.
-
-Those interested in writing modules for MacPerl should use Module::Build
-which works better than MakeMaker ever did.
-
-Anyone interested in resurrecting this file should pull the old version
-from the MakeMaker CVS repository and contact makemaker at perl.org, but we
-really encourage you to work on Module::Build instead.
-
-=cut
-
-1;
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_OS2.pm b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_OS2.pm
deleted file mode 100644
index 680502b..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_OS2.pm
+++ /dev/null
@@ -1,152 +0,0 @@
-package ExtUtils::MM_OS2;
-
-use strict;
-
-use ExtUtils::MakeMaker qw(neatvalue);
-use File::Spec;
-
-our $VERSION = '6.56';
-
-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('', at 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_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/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_Unix.pm b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_Unix.pm
deleted file mode 100644
index 239d6df..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_Unix.pm
+++ /dev/null
@@ -1,3634 +0,0 @@
-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 = '6.56';
-
-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) )
- );
-}
-
-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 at 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)};
- 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 STDOUT "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 STDOUT " $1 = $2\n" if $Verbose;
- } else {
- print STDOUT "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 ';
- }
-
- 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)
-
-Defines a couple of constants in the Makefile that are imported from
-%Config.
-
-=cut
-
-sub const_config {
-# --- Constants Sections ---
-
- my($self) = shift;
- my @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
- LIBPERL_A MYEXTLIB
- FIRST_MAKEFILE MAKEFILE_OLD MAKE_APERL_FILE
- PERLMAINCC PERL_SRC PERL_INC
- 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;
- 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_ARCHLIB)$(DFSEP)Config.pm $(PERL_INC)$(DFSEP)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_ARCHIVE_AFTER = $self->{PERL_ARCHIVE_AFTER}
-};
-
- push @m, "
-
-TO_INST_PM = ".$self->wraplist(sort keys %{$self->{PM}})."
-
-PM_TO_BLIB = ".$self->wraplist(%{$self->{PM}})."
-";
-
- join('', at 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 = '';
- 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 q{
-ci :
- $(PERLRUN) "-MExtUtils::Manifest=maniread" \\
- -e "@all = keys %{ maniread() };" \\
- -e "print(qq{Executing $(CI) @all\n}); system(qq{$(CI) @all});" \\
- -e "print(qq{Executing $(RCS_LABEL) ...\n}); system(qq{$(RCS_LABEL) @all});"
-};
-}
-
-=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
- $(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)
- $(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
-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)
- $(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 5;
-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
-
-$(INST_BOOT) : $(BOOTSTRAP) $(INST_ARCHAUTODIR)$(DFSEP).exists
- $(NOECHO) $(RM_RF) %s
- - $(CP) $(BOOTSTRAP) %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) $(BOOTSTRAP) $(INST_ARCHAUTODIR)$(DFSEP).exists $(EXPORT_LIST) $(PERL_ARCHIVE) $(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}) && $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';
- }
- }
-
- 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) $@
-MAKE
-
- return join('', at 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}"};
- $version_check = "$Config{run} $version_check"
- if defined $Config{run} and length $Config{run};
-
- # 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 STDOUT "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 ) = @_;
-
- my ($does_shbang) = $Config{'sharpbang'} =~ /^\s*\#\!/;
- 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 shbang file.
- # 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 ($shb) = "";
- if ($interpreter) {
- print STDOUT "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";
- }
- $shb .= qq{
-eval 'exec $interpreter $arg -S \$0 \${1+"\$\@"}'
- if 0; # not running under some shell
-} unless $Is{Win32}; # this won't work on win32, so don't
- }
- else {
- warn "Can't find $cmd in PATH, $file unchanged"
- if $Verbose;
- next;
- }
-
- 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);
-}
-
-
-=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, %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;
-
- @ignore{map lc, keys %ignore} = values %ignore if $Is{VMS};
-
- foreach my $name ($self->lsdir($Curdir)){
- next if $name =~ /\#/;
- 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}};
- $self->{O_FILES} = [grep s/\.c(pp|xx|c)?\z/$self->{OBJ_EXT}/i, @o_files];
-}
-
-
-=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.
- 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");
-
- if (defined $Cross::platform) {
- $self->{PERL_ARCHLIB} =
- $self->catdir("$self->{PERL_SRC}","xlib",$Cross::platform);
- $self->{PERL_INC} =
- $self->catdir("$self->{PERL_SRC}","xlib",$Cross::platform,
- $Is{Win32}?("CORE"):());
- }
- else {
- $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 STDOUT <<EOP;
-... Detected uninstalled Perl. Trying to continue.
-EOP
- }
- }
- }
- }
-
- # 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 STDOUT "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 STDOUT "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_others
-
-Initializes EXTRALIBS, BSLOADLIBS, LDLOADLIBS, LIBS, LD_RUN_PATH, LD,
-OBJECT, BOOTDEP, PERLMAINCC, LDFROM, LINKTYPE, SHELL, NOOP,
-FIRST_MAKEFILE, MAKEFILE_OLD, NOECHO, RM_F, RM_RF, TEST_F,
-TOUCH, CP, MV, CHMOD, UMASK_NULL, ECHO, ECHO_N
-
-=cut
-
-sub init_others { # --- Initialize Other Attributes
- 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->{CP} ||= "cp";
- $self->{MV} ||= "mv";
- $self->{CHMOD} ||= "chmod";
- $self->{FALSE} ||= 'false';
- $self->{TRUE} ||= 'true';
-
- $self->{LD} ||= 'ld';
-
- $self->SUPER::init_others(@_);
-
- # After SUPER::init_others so $Config{shell} has a
- # chance to get set.
- $self->{SHELL} ||= '/bin/sh';
-
- return 1;
-}
-
-
-=item init_linker
-
-Unix has no need of special linker flags.
-
-=cut
-
-sub init_linker {
- my($self) = shift;
- $self->{PERL_ARCHIVE} ||= '';
- $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 STDOUT "Directory $self->{$Arch} not found\n"
- if $Verbose;
- $self->{$Arch} = $self->{$Lib};
- }
- print STDOUT "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', 'perl5', "perl$Config{version}");
-
- # miniperl has priority over all but the cannonical 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 );
- # don't check if perl is executable, maybe they have decided to
- # supply switches with perl
-
- # 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)
- ($self->{FULLPERL} = $self->{PERL}) =~ s/miniperl/$perl_name/i
- unless $self->{FULLPERL};
-
- # Little hack to get around VMS's find_perl putting "MCR" in front
- # sometimes.
- $self->{ABSPERL} = $self->{PERL};
- my $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;
- }
-
- # 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} = "\$($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) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"}, $perl;
- }
-
- 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) \
- read }.$self->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q{ \
- write }.$self->catfile('$(DESTINSTALLARCHLIB)','auto','$(FULLEXT)','.packlist').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) \
- read }.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{ \
- write }.$self->catfile('$(DESTINSTALLSITEARCH)','auto','$(FULLEXT)','.packlist').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) \
- read }.$self->catfile('$(VENDORARCHEXP)','auto','$(FULLEXT)','.packlist').q{ \
- write }.$self->catfile('$(DESTINSTALLVENDORARCH)','auto','$(FULLEXT)','.packlist').q{ \
- $(INST_LIB) $(DESTINSTALLVENDORLIB) \
- $(INST_ARCHLIB) $(DESTINSTALLVENDORARCH) \
- $(INST_BIN) $(DESTINSTALLVENDORBIN) \
- $(INST_SCRIPT) $(DESTINSTALLVENDORSCRIPT) \
- $(INST_MAN1DIR) $(DESTINSTALLVENDORMAN1DIR) \
- $(INST_MAN3DIR) $(DESTINSTALLVENDORMAN3DIR)
-
-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{
-
-};
-
- 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("", at 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
- # enclude 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 STDOUT "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;
-
- $m .= sprintf <<'MAKE_FRAG', $newer_than_target, $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) Makefile.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 $package = $self->{DISTNAME};
- $package =~ s/-/::/g;
- while (<$fh>) {
- $inpod = /^=(?!cut)/ ? 1 : /^=cut/ ? 0 : $inpod;
- next if !$inpod;
- chop;
- next unless /^($package\s-\s)(.*)/;
- $result = $2;
- last;
- }
- close $fh;
-
- 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)/;
- if ( m{^ \s* package \s+ \w[\w\:\']* \s+ (v?[0-9._]+) \s* ; }x ) {
- local $^W = 0;
- $result = $1;
- }
- elsif ( m{(?<!\\) ([\$*]) (([\w\:\']*) \bVERSION)\b .* =}x ) {
- my $eval = qq{
- package ExtUtils::MakeMaker::_version;
- no strict;
- BEGIN { eval {
- # Ensure any version() routine which might have leaked
- # into this package has been deleted. Interferes with
- # version->import()
- undef *version;
- require version;
- "version"->import;
- } }
-
- local $1$2;
- \$$2=undef;
- do {
- $_
- };
- \$$2;
- };
- local $^W = 0;
- $result = eval($eval); ## no critic
- warn "Could not eval '$eval' in $parsefile: $@" if $@;
- }
- else {
- next;
- }
- last if defined $result;
- }
- close $fh;
-
- $result = "undef" unless defined $result;
- return $result;
-}
-
-
-=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_INC)/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;
-
- push @m, q{
-PERL_HDRS = \
- $(PERL_INC)/EXTERN.h \
- $(PERL_INC)/INTERN.h \
- $(PERL_INC)/XSUB.h \
- $(PERL_INC)/av.h \
- $(PERL_INC)/cc_runtime.h \
- $(PERL_INC)/config.h \
- $(PERL_INC)/cop.h \
- $(PERL_INC)/cv.h \
- $(PERL_INC)/dosish.h \
- $(PERL_INC)/embed.h \
- $(PERL_INC)/embedvar.h \
- $(PERL_INC)/fakethr.h \
- $(PERL_INC)/form.h \
- $(PERL_INC)/gv.h \
- $(PERL_INC)/handy.h \
- $(PERL_INC)/hv.h \
- $(PERL_INC)/intrpvar.h \
- $(PERL_INC)/iperlsys.h \
- $(PERL_INC)/keywords.h \
- $(PERL_INC)/mg.h \
- $(PERL_INC)/nostdio.h \
- $(PERL_INC)/op.h \
- $(PERL_INC)/opcode.h \
- $(PERL_INC)/patchlevel.h \
- $(PERL_INC)/perl.h \
- $(PERL_INC)/perlio.h \
- $(PERL_INC)/perlsdio.h \
- $(PERL_INC)/perlsfio.h \
- $(PERL_INC)/perlvars.h \
- $(PERL_INC)/perly.h \
- $(PERL_INC)/pp.h \
- $(PERL_INC)/pp_proto.h \
- $(PERL_INC)/proto.h \
- $(PERL_INC)/regcomp.h \
- $(PERL_INC)/regexp.h \
- $(PERL_INC)/regnodes.h \
- $(PERL_INC)/scope.h \
- $(PERL_INC)/sv.h \
- $(PERL_INC)/thread.h \
- $(PERL_INC)/unixish.h \
- $(PERL_INC)/util.h
-
-$(OBJECT) : $(PERL_HDRS)
-} if $self->{OBJECT};
-
- push @m, join(" ", values %{$self->{XS}})." : \$(XSUBPPDEPS)\n" if %{$self->{XS}};
-
- 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, %{$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/</</g;
- $abstract =~ s/>/>/g;
-
- my $author = $self->{AUTHOR} || '';
- $author =~ s/</</g;
- $author =~ s/>/>/g;
-
- my $ppd_xml = sprintf <<'PPD_HTML', $self->{VERSION}, $abstract, $author;
-<SOFTPKG NAME="$(DISTNAME)" VERSION="%s">
- <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}+0; # force numification
-
- my %attrs = ( NAME => $name );
- $attrs{VERSION} = $version if $version;
- my $attrs = join " ", map { qq[$_="$attrs{$_}"] } 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};
- }
- }
-
- my ($bin_location) = $self->{BINARY_LOCATION} || '';
- $bin_location =~ s/\\/\\\\/g;
-
- $ppd_xml .= sprintf <<'PPD_XML', $bin_location;
- <CODEBASE HREF="%s" />
- </IMPLEMENTATION>
-</SOFTPKG>
-PPD_XML
-
- my @ppd_cmds = $self->echo($ppd_xml, '$(DISTNAME).ppd');
-
- 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|/$|;
-
- print STDERR " prefixify $var => $path\n" if $Verbose >= 2;
- print STDERR " from $sprefix to $rprefix\n" if $Verbose >= 2;
-
- if( $self->{ARGS}{PREFIX} &&
- $path !~ s{^\Q$sprefix\E\b}{$rprefix}s )
- {
-
- print STDERR " cannot prefix, using default.\n" if $Verbose >= 2;
- print STDERR " 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 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
-
-=cut
-
-sub quote_literal {
- my($self, $text) = @_;
-
- # I think all we have to quote is single quotes and I think
- # this is a safe way to do it.
- $text =~ s{'}{'\\''}g;
-
- 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('', at 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') {
- $tests = $self->find_tests;
- }
- # 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};
-
- foreach my $dir (@xsubpp_dirs) {
- $xsdir = $self->catdir($dir, 'ExtUtils');
- if( -r $self->catfile($xsdir, "xsubpp") ) {
- last;
- }
- }
-
- 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("-typemap $_", @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};
-
- return qq{
-XSUBPPDIR = $xsdir
-XSUBPP = \$(XSUBPPDIR)\$(DFSEP)xsubpp
-XSUBPPRUN = \$(PERLRUN) \$(XSUBPP)
-XSPROTOARG = $self->{XSPROTOARG}
-XSUBPPDEPS = @tmdeps \$(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('', at m);
-}
-
-=item writedoc
-
-Obsolete, deprecated method. Not used since Version 5.21.
-
-=cut
-
-sub writedoc {
-# --- perllocal.pod section ---
- my($self,$what,$name, at 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<$_>", at 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/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_VOS.pm b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_VOS.pm
deleted file mode 100644
index 1814a1d..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_VOS.pm
+++ /dev/null
@@ -1,50 +0,0 @@
-package ExtUtils::MM_VOS;
-
-use strict;
-our $VERSION = '6.56';
-
-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 at pobox.com> with code from ExtUtils::MM_Unix
-
-=head1 SEE ALSO
-
-L<ExtUtils::MakeMaker>
-
-=cut
-
-
-1;
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_Win32.pm b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_Win32.pm
deleted file mode 100644
index 19e462d..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MM_Win32.pm
+++ /dev/null
@@ -1,585 +0,0 @@
-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 = '6.56';
-
-$ENV{EMXSHELL} = 'sh'; # to run `commands`
-
-my $BORLAND = $Config{'cc'} =~ /^bcc/i ? 1 : 0;
-my $GCC = $Config{'cc'} =~ /\bgcc$/i ? 1 : 0;
-my $DLLTOOL = $Config{'dlltool'} || '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('', at 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.
-
-=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') ? '\\\\'
- : '\\';
-}
-
-=item B<init_others>
-
-Override some of the Unix specific commands with portable
-ExtUtils::Command ones.
-
-Also provide defaults for LD and AR in case the %Config values aren't
-set.
-
-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) = @_;
-
- $self->{NOOP} ||= 'rem';
- $self->{DEV_NULL} ||= '> NUL';
-
- $self->{FIXIN} ||= $self->{PERL_CORE} ?
- "\$(PERLRUN) $self->{PERL_SRC}/win32/bin/pl2bat.pl" :
- 'pl2bat.bat';
-
- $self->{LD} ||= 'link';
- $self->{AR} ||= 'lib';
-
- $self->SUPER::init_others;
-
- # Setting SHELL from $Config{sh} can break dmake. Its ok without it.
- delete $self->{SHELL};
-
- $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 1;
-}
-
-
-=item init_platform
-
-Add MM_Win32_VERSION.
-
-=item platform_constants
-
-=cut
-
-sub init_platform {
- my($self) = shift;
-
- $self->{MM_Win32_VERSION} = $VERSION;
-}
-
-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 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);
-
-# 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
- if ($GCC) {
- my $dllname = $self->{BASEEXT} . "." . $self->{DLEXT};
- $dllname =~ /(....)(.{0,4})/;
- my $baseaddr = unpack("n", $1 ^ $2);
- $otherldflags .= sprintf("-Wl,--image-base,0x%x0000 ", $baseaddr);
- }
-
- 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_ARCHIVE) $(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('', at 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_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;
-}
-
-
-=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) = @_;
-
- # I don't know if this is correct, but it seems to work on
- # Win98's command.com
- $text =~ s{"}{\\"}g;
-
- # dmake eats '{' inside double quotes and leaves alone { outside double
- # quotes; however it transforms {{ into { either inside and outside double
- # quotes. It also translates }} into }. The escaping below is not
- # 100% correct.
- if( $self->is_make_type('dmake') ) {
- $text =~ s/{/{{/g;
- $text =~ s/}}/}}}/g;
- }
-
- return qq{"$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}
-};
-
-}
-
-sub is_make_type {
- my($self, $type) = @_;
- return !! ($self->make =~ /\b$type(?:\.exe)?$/);
-}
-
-1;
-__END__
-
-=back
-
-=cut
-
-
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MY.pm b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MY.pm
deleted file mode 100644
index bed177d..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/lib/ExtUtils/MY.pm
+++ /dev/null
@@ -1,40 +0,0 @@
-package ExtUtils::MY;
-
-use strict;
-require ExtUtils::MM;
-
-our $VERSION = 6.56;
-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/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/00compile.t b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/00compile.t
deleted file mode 100644
index d627fb1..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/00compile.t
+++ /dev/null
@@ -1,38 +0,0 @@
-#!/usr/bin/perl -w
-
-BEGIN {
- unshift @INC, 't/lib';
-}
-chdir 't';
-
-use Test::More;
-
-my $Has_Test_Pod;
-BEGIN {
- $Has_Test_Pod = eval 'use Test::Pod 0.95; 1';
-}
-
-chdir "..";
-my $manifest = "MANIFEST";
-open(my $manifest_fh, "<", $manifest) or die "Can't open $manifest: $!";
-my @modules = map { m{^lib/(\S+)}; $1 }
- grep { m{^lib/\S+\.pm} }
- <$manifest_fh>;
-
-chomp @modules;
-close $manifest_fh;
-
-chdir 'lib';
-plan tests => scalar @modules * 2;
-foreach my $file (@modules) {
- # Make sure we look at the local files and do not reload them if
- # they're already loaded. This avoids recompilation warnings.
- local @INC = @INC;
- unshift @INC, ".";
- ok eval { require($file); 1 } or diag "require $file failed.\n$@";
-
- SKIP: {
- skip "Test::Pod not installed", 1 unless $Has_Test_Pod;
- pod_file_ok($file);
- }
-}
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/INSTALL_BASE.t b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/INSTALL_BASE.t
deleted file mode 100644
index d2f605e..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/INSTALL_BASE.t
+++ /dev/null
@@ -1,74 +0,0 @@
-#!/usr/bin/perl -w
-
-# Tests INSTALL_BASE
-
-BEGIN {
- unshift @INC, 't/lib';
-}
-
-use strict;
-use File::Path;
-use Config;
-
-use Test::More tests => 20;
-use MakeMaker::Test::Utils;
-use MakeMaker::Test::Setup::BFD;
-
-my $Is_VMS = $^O eq 'VMS';
-
-my $perl = which_perl();
-
-chdir 't';
-perl_lib;
-
-ok( setup_recurs(), 'setup' );
-END {
- ok( chdir File::Spec->updir );
- ok( teardown_recurs(), 'teardown' );
-}
-
-ok( chdir('Big-Dummy'), "chdir'd to Big-Dummy") || diag("chdir failed; $!");
-
-my @mpl_out = run(qq{$perl Makefile.PL "INSTALL_BASE=../dummy-install"});
-END { rmtree '../dummy-install'; }
-
-cmp_ok( $?, '==', 0, 'Makefile.PL exited with zero' ) ||
- diag(@mpl_out);
-
-my $makefile = makefile_name();
-ok( grep(/^Writing $makefile for Big::Dummy/,
- @mpl_out) == 1,
- 'Makefile.PL output looks right');
-
-my $make = make_run();
-run("$make"); # this is necessary due to a dmake bug.
-my $install_out = run("$make install");
-is( $?, 0, ' make install exited normally' ) || diag $install_out;
-like( $install_out, qr/^Installing /m );
-
-ok( -r '../dummy-install', ' install dir created' );
-
-my @installed_files =
- ('../dummy-install/lib/perl5/Big/Dummy.pm',
- '../dummy-install/lib/perl5/Big/Liar.pm',
- '../dummy-install/bin/program',
- "../dummy-install/lib/perl5/$Config{archname}/perllocal.pod",
- "../dummy-install/lib/perl5/$Config{archname}/auto/Big/Dummy/.packlist"
- );
-
-foreach my $file (@installed_files) {
- ok( -e $file, " $file installed" );
- ok( -r $file, " $file readable" );
-}
-
-
-# nmake outputs its damned logo
-# Send STDERR off to oblivion.
-open(SAVERR, ">&STDERR") or die $!;
-open(STDERR, ">".File::Spec->devnull) or die $!;
-
-my $realclean_out = run("$make realclean");
-is( $?, 0, 'realclean' ) || diag($realclean_out);
-
-open(STDERR, ">&SAVERR") or die $!;
-close SAVERR;
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/INST_PREFIX.t b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/INST_PREFIX.t
deleted file mode 100644
index 8bb9db8..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/INST_PREFIX.t
+++ /dev/null
@@ -1,264 +0,0 @@
-#!/usr/bin/perl -w
-
-# Wherein we ensure the INST_* and INSTALL* variables are set correctly
-# when various PREFIX variables are set.
-#
-# Essentially, this test is a Makefile.PL.
-
-BEGIN {
- unshift @INC, 't/lib';
-}
-
-use strict;
-use Test::More tests => 52;
-use MakeMaker::Test::Utils;
-use MakeMaker::Test::Setup::BFD;
-use ExtUtils::MakeMaker;
-use File::Spec;
-use TieOut;
-use ExtUtils::MakeMaker::Config;
-
-my $Is_VMS = $^O eq 'VMS';
-
-chdir 't';
-
-perl_lib;
-
-$| = 1;
-
-my $Makefile = makefile_name;
-my $Curdir = File::Spec->curdir;
-my $Updir = File::Spec->updir;
-
-ok( setup_recurs(), 'setup' );
-END {
- ok( chdir File::Spec->updir );
- ok( teardown_recurs(), 'teardown' );
-}
-
-ok( chdir 'Big-Dummy', "chdir'd to Big-Dummy" ) ||
- diag("chdir failed: $!");
-
-my $stdout = tie *STDOUT, 'TieOut' or die;
-
-my $mm = WriteMakefile(
- NAME => 'Big::Dummy',
- VERSION_FROM => 'lib/Big/Dummy.pm',
- PREREQ_PM => {},
- PERL_CORE => $ENV{PERL_CORE},
-);
-
-like( $stdout->read, qr{
- Writing\ $Makefile\ for\ Big::Liar\n
- Big::Liar's\ vars\n
- INST_LIB\ =\ \S+\n
- INST_ARCHLIB\ =\ \S+\n
- Writing\ $Makefile\ for\ Big::Dummy\n
-}x );
-
-is( $mm->{PREFIX}, '$(SITEPREFIX)', 'PREFIX set based on INSTALLDIRS' );
-
-isa_ok( $mm, 'ExtUtils::MakeMaker' );
-
-is( $mm->{NAME}, 'Big::Dummy', 'NAME' );
-is( $mm->{VERSION}, 0.01, 'VERSION' );
-
-foreach my $prefix (qw(PREFIX PERLPREFIX SITEPREFIX VENDORPREFIX)) {
- unlike( $mm->{$prefix}, qr/\$\(PREFIX\)/ );
-}
-
-
-my $PREFIX = File::Spec->catdir('foo', 'bar');
-$mm = WriteMakefile(
- NAME => 'Big::Dummy',
- VERSION_FROM => 'lib/Big/Dummy.pm',
- PREREQ_PM => {},
- PERL_CORE => $ENV{PERL_CORE},
- PREFIX => $PREFIX,
-);
-like( $stdout->read, qr{
- Writing\ $Makefile\ for\ Big::Liar\n
- Big::Liar's\ vars\n
- INST_LIB\ =\ \S+\n
- INST_ARCHLIB\ =\ \S+\n
- Writing\ $Makefile\ for\ Big::Dummy\n
-}x );
-undef $stdout;
-untie *STDOUT;
-
-is( $mm->{PREFIX}, $PREFIX, 'PREFIX' );
-
-foreach my $prefix (qw(PERLPREFIX SITEPREFIX VENDORPREFIX)) {
- is( $mm->{$prefix}, '$(PREFIX)', "\$(PREFIX) overrides $prefix" );
-}
-
-is( !!$mm->{PERL_CORE}, !!$ENV{PERL_CORE}, 'PERL_CORE' );
-
-my($perl_src, $mm_perl_src);
-if( $ENV{PERL_CORE} ) {
- $perl_src = File::Spec->catdir($Updir, $Updir, $Updir, $Updir);
- $perl_src = File::Spec->canonpath($perl_src);
- $mm_perl_src = File::Spec->canonpath($mm->{PERL_SRC});
-}
-else {
- $mm_perl_src = $mm->{PERL_SRC};
-}
-
-is( $mm_perl_src, $perl_src, 'PERL_SRC' );
-
-
-# Every INSTALL* variable must start with some PREFIX.
-my %Install_Vars = (
- PERL => [qw(archlib privlib bin man1dir man3dir script)],
- SITE => [qw(sitearch sitelib sitebin siteman1dir siteman3dir)],
- VENDOR => [qw(vendorarch vendorlib vendorbin vendorman1dir vendorman3dir)]
-);
-
-while( my($type, $vars) = each %Install_Vars) {
- SKIP: {
- skip "VMS must expand macros in INSTALL* vars", scalar @$vars
- if $Is_VMS;
- skip '$Config{usevendorprefix} not set', scalar @$vars
- if $type eq 'VENDOR' and !$Config{usevendorprefix};
-
- foreach my $var (@$vars) {
- my $installvar = "install$var";
- my $prefix = '$('.$type.'PREFIX)';
-
- SKIP: {
- skip uc($installvar).' set to another INSTALL variable', 1
- if $mm->{uc $installvar} =~ /^\$\(INSTALL.*\)$/;
-
- # support for man page skipping
- $prefix = 'none' if $type eq 'PERL' &&
- $var =~ /man/ &&
- !$Config{$installvar};
- like( $mm->{uc $installvar}, qr/^\Q$prefix\E/,
- "$prefix + $var" );
- }
- }
- }
-}
-
-# Check that when installman*dir isn't set in Config no man pages
-# are generated.
-{
- _set_config(installman1dir => '');
- _set_config(installman3dir => '');
-
- my $wibble = File::Spec->catdir(qw(wibble and such));
- my $stdout = tie *STDOUT, 'TieOut' or die;
- my $mm = WriteMakefile(
- NAME => 'Big::Dummy',
- VERSION_FROM => 'lib/Big/Dummy.pm',
- PREREQ_PM => {},
- PERL_CORE => $ENV{PERL_CORE},
- PREFIX => $PREFIX,
- INSTALLMAN1DIR=> $wibble,
- );
-
- is( $mm->{INSTALLMAN1DIR}, $wibble );
- is( $mm->{INSTALLMAN3DIR}, 'none' );
-}
-
-# Check that when installvendorman*dir is set in Config it is honored
-# [rt.cpan.org 2949]
-{
- _set_config(installvendorman1dir => File::Spec->catdir('foo','bar') );
- _set_config(installvendorman3dir => '' );
- _set_config(usevendorprefix => 1 );
- _set_config(vendorprefixexp => 'something' );
-
- my $stdout = tie *STDOUT, 'TieOut' or die;
- my $mm = WriteMakefile(
- NAME => 'Big::Dummy',
- VERSION_FROM => 'lib/Big/Dummy.pm',
- PREREQ_PM => {},
- PERL_CORE => $ENV{PERL_CORE},
-
- # In case the local installation doesn't have man pages.
- INSTALLMAN1DIR=> 'foo/bar/baz',
- INSTALLMAN3DIR=> 'foo/bar/baz',
- );
-
- is( $mm->{INSTALLVENDORMAN1DIR}, File::Spec->catdir('foo','bar'),
- 'installvendorman1dir (in %Config) not modified' );
- isnt( $mm->{INSTALLVENDORMAN3DIR}, '',
- 'installvendorman3dir (not in %Config) set' );
-}
-
-# Check that when installsiteman*dir isn't set in Config it falls back
-# to installman*dir
-{
- _set_config(installman1dir => File::Spec->catdir('foo', 'bar') );
- _set_config(installman3dir => File::Spec->catdir('foo', 'baz') );
- _set_config(installsiteman1dir => '' );
- _set_config(installsiteman3dir => '' );
- _set_config(installvendorman1dir => '' );
- _set_config(installvendorman3dir => '' );
- _set_config(usevendorprefix => 'define' );
- _set_config(vendorprefixexp => 'something' );
-
- my $wibble = File::Spec->catdir(qw(wibble and such));
- my $stdout = tie *STDOUT, 'TieOut' or die;
- my $mm = WriteMakefile(
- NAME => 'Big::Dummy',
- VERSION_FROM => 'lib/Big/Dummy.pm',
- PERL_CORE => $ENV{PERL_CORE},
- );
-
- is( $mm->{INSTALLMAN1DIR}, File::Spec->catdir('foo', 'bar') );
- is( $mm->{INSTALLMAN3DIR}, File::Spec->catdir('foo', 'baz') );
- SKIP: {
- skip "VMS must expand macros in INSTALL* vars", 4 if $Is_VMS;
-
- is( $mm->{INSTALLSITEMAN1DIR}, '$(INSTALLMAN1DIR)' );
- is( $mm->{INSTALLSITEMAN3DIR}, '$(INSTALLMAN3DIR)' );
- is( $mm->{INSTALLVENDORMAN1DIR}, '$(INSTALLMAN1DIR)' );
- is( $mm->{INSTALLVENDORMAN3DIR}, '$(INSTALLMAN3DIR)' );
- }
-}
-
-
-# Check that when usevendoprefix and installvendorman*dir aren't set in
-# Config it leaves them unset.
-{
- _set_config(installman1dir => File::Spec->catdir('foo', 'bar') );
- _set_config(installman3dir => File::Spec->catdir('foo', 'baz') );
- _set_config(installsiteman1dir => '' );
- _set_config(installsiteman3dir => '' );
- _set_config(installvendorman1dir => '' );
- _set_config(installvendorman3dir => '' );
- _set_config(usevendorprefix => '' );
- _set_config(vendorprefixexp => '' );
-
- my $wibble = File::Spec->catdir(qw(wibble and such));
- my $stdout = tie *STDOUT, 'TieOut' or die;
- my $mm = WriteMakefile(
- NAME => 'Big::Dummy',
- VERSION_FROM => 'lib/Big/Dummy.pm',
- PERL_CORE => $ENV{PERL_CORE},
- );
-
- is( $mm->{INSTALLMAN1DIR}, File::Spec->catdir('foo', 'bar') );
- is( $mm->{INSTALLMAN3DIR}, File::Spec->catdir('foo', 'baz') );
- SKIP: {
- skip "VMS must expand macros in INSTALL* vars", 2 if $Is_VMS;
- is( $mm->{INSTALLSITEMAN1DIR}, '$(INSTALLMAN1DIR)' );
- is( $mm->{INSTALLSITEMAN3DIR}, '$(INSTALLMAN3DIR)' );
- }
- is( $mm->{INSTALLVENDORMAN1DIR}, '' );
- is( $mm->{INSTALLVENDORMAN3DIR}, '' );
-}
-
-
-sub _set_config {
- my($k,$v) = @_;
- (my $k_no_install = $k) =~ s/^install//i;
- $Config{$k} = $v;
-
- # Because VMS's config has traditionally been underpopulated, it will
- # fall back to the install-less versions in desperation.
- $Config{$k_no_install} = $v if $Is_VMS;
- return;
-}
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/MM_NW5.t b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/MM_NW5.t
deleted file mode 100644
index 3f6198f..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/MM_NW5.t
+++ /dev/null
@@ -1,296 +0,0 @@
-#!/usr/bin/perl
-
-BEGIN {
- unshift @INC, 't/lib';
-}
-chdir 't';
-
-
-use Test::More;
-
-BEGIN {
- if ($^O =~ /NetWare/i) {
- plan tests => 39;
- } else {
- plan skip_all => 'This is not NW5';
- }
-}
-
-use Config;
-use File::Spec;
-use File::Basename;
-use ExtUtils::MM;
-
-require_ok( 'ExtUtils::MM_NW5' );
-
-# Dummy MM object until we have a real MM init method.
-my $MM = bless {
- DIR => [],
- NOECHO => '@',
- XS => {},
- MAKEFILE => 'Makefile',
- RM_RF => 'rm -rf',
- MV => 'mv',
- }, 'MM';
-
-
-# replace_manpage_separator() => tr|/|.|s ?
-{
- my $man = 'a/path/to//something';
- ( my $replaced = $man ) =~ tr|/|.|s;
- is( $MM->replace_manpage_separator( $man ),
- $replaced, 'replace_manpage_separator()' );
-}
-
-# maybe_command()
-SKIP: {
- skip( '$ENV{COMSPEC} not set', 2 )
- unless $ENV{COMSPEC} =~ m!((?:[a-z]:)?[^|<>]+)!i;
- my $comspec = $1;
- is( $MM->maybe_command( $comspec ),
- $comspec, 'COMSPEC is a maybe_command()' );
- ( my $comspec2 = $comspec ) =~ s|\..{3}$||;
- like( $MM->maybe_command( $comspec2 ),
- qr/\Q$comspec/i,
- 'maybe_command() without extension' );
-}
-
-my $had_pathext = exists $ENV{PATHEXT};
-{
- local $ENV{PATHEXT} = '.exe';
- ok( ! $MM->maybe_command( 'not_a_command.com' ),
- 'not a maybe_command()' );
-}
-# Bug in Perl. local $ENV{FOO} won't delete the key afterward.
-delete $ENV{PATHEXT} unless $had_pathext;
-
-# file_name_is_absolute() [Does not support UNC-paths]
-{
- ok( $MM->file_name_is_absolute( 'SYS:/' ),
- 'file_name_is_absolute()' );
- ok( ! $MM->file_name_is_absolute( 'some/path/' ),
- 'not file_name_is_absolute()' );
-
-}
-
-# find_perl()
-# Should be able to find running perl... $^X is OK on NW5
-{
- my $my_perl = $1 if $^X =~ /(.*)/; # are we in -T or -t?
- my( $perl, $path ) = fileparse( $my_perl );
- like( $MM->find_perl( $], [ $perl ], [ $path ] ),
- qr/^\Q$my_perl\E$/i, 'find_perl() finds this perl' );
-}
-
-# catdir() (calls MM_NW5->canonpath)
-{
- my @path_eg = qw( SYS trick dir/now_OK );
-
- is( $MM->catdir( @path_eg ),
- 'SYS\\trick\\dir\\now_OK', 'catdir()' );
- is( $MM->catdir( @path_eg ),
- File::Spec->catdir( @path_eg ),
- 'catdir() eq File::Spec->catdir()' );
-
-# catfile() (calls MM_NW5->catdir)
- push @path_eg, 'file.ext';
-
- is( $MM->catfile( @path_eg ),
- 'SYS\\trick\\dir\\now_OK\\file.ext', 'catfile()' );
-
- is( $MM->catfile( @path_eg ),
- File::Spec->catfile( @path_eg ),
- 'catfile() eq File::Spec->catfile()' );
-}
-
-# init_others(): check if all keys are created and set?
-# qw( TOUCH CHMOD CP RM_F RM_RF MV NOOP TEST_F LD AR LDLOADLIBS DEV_NUL )
-{
- my $mm_w32 = bless( {}, 'MM' );
- $mm_w32->init_others();
- my @keys = qw( TOUCH CHMOD CP RM_F RM_RF MV NOOP
- TEST_F LD AR LDLOADLIBS DEV_NULL );
- for my $key ( @keys ) {
- ok( $mm_w32->{ $key }, "init_others: $key" );
- }
-}
-
-# constants()
-{
- my $mm_w32 = bless {
- NAME => 'TestMM_NW5',
- VERSION => '1.00',
- VERSION_FROM => 'TestMM_NW5',
- PM => { 'MM_NW5.pm' => 1 },
- }, 'MM';
-
- # XXX Hack until we have a proper init method.
- # Flesh out some necessary keys in the MM object.
- foreach my $key (qw(XS C O_FILES H HTMLLIBPODS HTMLSCRIPTPODS
- MAN1PODS MAN3PODS PARENT_NAME)) {
- $mm_w32->{$key} = '';
- }
- my $s_PM = join( " \\\n\t", sort keys %{$mm_w32->{PM}} );
- my $k_PM = join( " \\\n\t", %{$mm_w32->{PM}} );
-
- like( $mm_w32->constants(),
- qr|^NAME\ =\ TestMM_NW5\s+VERSION\ =\ 1\.00.+
- MAKEMAKER\ =\ \Q$INC{'ExtUtils/MakeMaker.pm'}\E\s+
- MM_VERSION\ =\ \Q$ExtUtils::MakeMaker::VERSION\E.+
- VERSION_FROM\ =\ TestMM_NW5.+
- TO_INST_PM\ =\ \Q$s_PM\E\s+
- PM_TO_BLIB\ =\ \Q$k_PM\E
- |xs, 'constants()' );
-
-}
-
-# path()
-my $had_path = exists $ENV{PATH};
-{
- my @path_eg = ( qw( . .. ), 'SYS:\\Program Files' );
- local $ENV{PATH} = join ';', @path_eg;
- ok( eq_array( [ $MM->path() ], [ @path_eg ] ),
- 'path() [preset]' );
-}
-# Bug in Perl. local $ENV{FOO} will not delete key afterwards.
-delete $ENV{PATH} unless $had_path;
-
-# static_lib() should look into that
-# dynamic_bs() should look into that
-# dynamic_lib() should look into that
-
-# clean()
-{
- my $clean = $Config{cc} =~ /^gcc/i ? 'dll.base dll.exp' : '*.pdb';
- like( $MM->clean(), qr/^clean ::\s+\Q-$(RM_F) $clean\E\s+$/m,
- 'clean() Makefile target' );
-}
-
-
-# init_linker
-{
- my $libperl = $Config{libperl} || 'libperl.a';
- my $export = '$(BASEEXT).def';
- my $after = '';
- $MM->init_linker;
-
- is( $MM->{PERL_ARCHIVE}, $libperl, 'PERL_ARCHIVE' );
- is( $MM->{PERL_ARCHIVE_AFTER}, $after, 'PERL_ARCHIVE_AFTER' );
- is( $MM->{EXPORT_LIST}, $export, 'EXPORT_LIST' );
-}
-
-
-# canonpath()
-{
- my $path = 'SYS:/TEMP';
- is( $MM->canonpath( $path ), File::Spec->canonpath( $path ),
- 'canonpath() eq File::Spec->canonpath' );
-}
-
-# perl_script()
-my $script_ext = '';
-my $script_name = 'mm_w32tmp';
-SKIP: {
- local *SCRIPT;
- skip( "Can't create temp file: $!", 4 )
- unless open SCRIPT, "> $script_name";
- print SCRIPT <<'EOSCRIPT';
-#! perl
-__END__
-EOSCRIPT
- skip( "Can't write to temp file: $!", 4 )
- unless close SCRIPT;
- # now start tests:
- is( $MM->perl_script( $script_name ),
- "${script_name}$script_ext", "perl_script ($script_ext)" );
-
- skip( "Can't rename temp file: $!", 3 )
- unless rename $script_name, "${script_name}.pl";
- $script_ext = '.pl';
- is( $MM->perl_script( $script_name ),
- "${script_name}$script_ext", "perl_script ($script_ext)" );
-
- skip( "Can't rename temp file: $!", 2 )
- unless rename "${script_name}$script_ext", "${script_name}.bat";
- $script_ext = '.bat';
- is( $MM->perl_script( $script_name ),
- "${script_name}$script_ext", "perl_script ($script_ext)" );
-
- skip( "Can't rename temp file: $!", 1 )
- unless rename "${script_name}$script_ext", "${script_name}.noscript";
- $script_ext = '.noscript';
-
- isnt( $MM->perl_script( $script_name ),
- "${script_name}$script_ext",
- "not a perl_script anymore ($script_ext)" );
- is( $MM->perl_script( $script_name ), undef,
- "perl_script ($script_ext) returns empty" );
-}
-unlink "${script_name}$script_ext" if -f "${script_name}$script_ext";
-
-
-# pm_to_blib()
-{
- like( $MM->pm_to_blib(),
- qr/^pm_to_blib: \Q$(TO_INST_PM)\E.+\Q$(TOUCH) \E\$@\s+$/ms,
- 'pm_to_blib' );
-}
-
-# tool_autosplit()
-{
- my %attribs = ( MAXLEN => 255 );
- like( $MM->tool_autosplit( %attribs ),
- qr/^\#\ Usage:\ \$\(AUTOSPLITFILE\)
- \ FileToSplit\ AutoDirToSplitInto.+
- AUTOSPLITFILE\ =\ \$\(PERLRUN\)\ .+
- \$AutoSplit::Maxlen=$attribs{MAXLEN};
- /xms,
- 'tool_autosplit()' );
-}
-
-
-# xs_o() should look into that
-# top_targets() should look into that
-
-# dist_ci() should look into that
-# dist_core() should look into that
-
-# pasthru()
-{
- my $pastru = "PASTHRU = " . ($Config{make} =~ /^nmake/i ? "-nologo" : "");
- is( $MM->pasthru(), $pastru, 'pasthru()' );
-}
-
-package FakeOut;
-
-sub TIEHANDLE {
- bless(\(my $scalar), $_[0]);
-}
-
-sub PRINT {
- my $self = shift;
- $$self .= shift;
-}
-
-__END__
-
-=head1 NAME
-
-MM_NW5.t - Tests for ExtUtils::MM_NW5
-
-=head1 TODO
-
- - Methods to still be checked:
- # static_lib() should look into that
- # dynamic_bs() should look into that
- # dynamic_lib() should look into that
- # xs_o() should look into that
- # top_targets() should look into that
- # dist_ci() should look into that
- # dist_core() should look into that
-
-=head1 AUTHOR
-
-20011228 Abe Timmerman <abe at ztreet.demon.nl>
-
-=cut
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/MM_VMS.t b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/MM_VMS.t
deleted file mode 100644
index 39a5aad..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/MM_VMS.t
+++ /dev/null
@@ -1,70 +0,0 @@
-#!/usr/bin/perl -w
-
-BEGIN {
- unshift @INC, 't/lib';
-}
-chdir 't';
-
-BEGIN {
- @Methods = (qw(wraplist
- rootdir
- ext
- guess_name
- find_perl
- path
- maybe_command
- perl_script
- file_name_is_absolute
- replace_manpage_separator
- init_others
- constants
- cflags
- const_cccmd
- pm_to_blib
- tool_autosplit
- tool_xsubpp
- tools_other
- dist
- c_o
- xs_c
- xs_o
- top_targets
- dlsyms
- dynamic_lib
- dynamic_bs
- static_lib
- manifypods
- processPL
- installbin
- subdir_x
- clean
- realclean
- dist_basics
- dist_core
- distdir
- dist_test
- install
- perldepend
- makefile
- test
- test_via_harness
- test_via_script
- makeaperl
- ));
-}
-
-BEGIN {
- use Test::More;
- if ($^O eq 'VMS') {
- plan( tests => @Methods + 1 );
- }
- else {
- plan( skip_all => "This is not VMS" );
- }
-}
-
-use_ok( 'ExtUtils::MM_VMS' );
-
-foreach my $meth (@Methods) {
- can_ok( 'ExtUtils::MM_VMS', $meth);
-}
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/MakeMaker_Parameters.t b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/MakeMaker_Parameters.t
deleted file mode 100644
index dd113a9..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/MakeMaker_Parameters.t
+++ /dev/null
@@ -1,68 +0,0 @@
-#!/usr/bin/perl -w
-
-# Things like the CPAN shell rely on the "MakeMaker Parameters" section of the
-# Makefile to learn a module's dependencies so we'd damn well better test it.
-
-BEGIN {
- unshift @INC, 't/lib';
-}
-
-use strict;
-use warnings;
-
-use ExtUtils::MakeMaker;
-use Test::More;
-
-my $mm = bless {}, "MM";
-
-sub extract_params {
- my $text = join "\n", @_;
-
- $text =~ s{^\s* \# \s+ MakeMaker\ Parameters: \s*\n}{}x;
- $text =~ s{^#}{}gms;
- $text =~ s{\n}{,\n}g;
-
- no strict 'subs';
- return { eval "$text" };
-}
-
-sub test_round_trip {
- my $args = shift;
- my $want = @_ ? shift : $args;
-
- my $have = extract_params($mm->_MakeMaker_Parameters_section($args));
-
- local $Test::Builder::Level = $Test::Builder::Level + 1;
- is_deeply $have, $want or diag explain $have, "\n", $want;
-}
-
-is join("", $mm->_MakeMaker_Parameters_section()), <<'EXPECT', "nothing";
-# MakeMaker Parameters:
-EXPECT
-
-test_round_trip({ NAME => "Foo" });
-test_round_trip({ NAME => "Foo", PREREQ_PM => { "Foo::Bar" => 0 } });
-test_round_trip({ NAME => "Foo", PREREQ_PM => { "Foo::Bar" => 1.23 } });
-
-# Test the special case for BUILD_REQUIRES
-{
- my $have = {
- NAME => "Foo",
- PREREQ_PM => { "Foo::Bar" => 1.23 },
- BUILD_REQUIRES => { "Baz" => 0.12 },
- };
-
- my $want = {
- NAME => "Foo",
- PREREQ_PM => {
- "Foo::Bar" => 1.23,
- "Baz" => 0.12,
- },
- BUILD_REQUIRES => { "Baz" => 0.12 },
- };
-
- test_round_trip( $have, $want );
-}
-
-done_testing();
-
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/VERSION_FROM.t b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/VERSION_FROM.t
deleted file mode 100644
index 56942c8..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/VERSION_FROM.t
+++ /dev/null
@@ -1,33 +0,0 @@
-#!/usr/bin/perl -w
-
-BEGIN {
- unshift @INC, 't/lib';
-}
-
-chdir 't';
-
-use strict;
-use Test::More tests => 1;
-use MakeMaker::Test::Utils;
-use ExtUtils::MakeMaker;
-use TieOut;
-use File::Path;
-
-perl_lib();
-
-mkdir('Odd-Version', 0777);
-END { chdir File::Spec->updir; rmtree 'Odd-Version' }
-chdir 'Odd-Version';
-
-open(MPL, ">Version") || die $!;
-print MPL "\$VERSION = 0\n";
-close MPL;
-END { unlink 'Version' }
-
-my $stdout = tie *STDOUT, 'TieOut' or die;
-my $mm = WriteMakefile(
- NAME => 'Version',
- VERSION_FROM => 'Version'
-);
-
-is( $mm->{VERSION}, 0, 'VERSION_FROM when $VERSION = 0' );
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/arch_check.t b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/arch_check.t
deleted file mode 100644
index e4b3aef..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/arch_check.t
+++ /dev/null
@@ -1,82 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use lib 't/lib';
-
-use TieOut;
-use Test::More 'no_plan';
-
-use Config;
-use ExtUtils::MakeMaker;
-
-ok( my $stdout = tie *STDOUT, 'TieOut' );
-
-# Create a normalized MM object to test with
-my $mm = bless {}, "MM";
-$mm->{PERL_SRC} = 0;
-$mm->{UNINSTALLED_PERL} = 0;
-
-my $rel2abs = sub { $mm->rel2abs($mm->catfile(@_)) };
-
-ok $mm->arch_check(
- $rel2abs->(qw(. t testdata reallylongdirectoryname arch1 Config.pm)),
- $rel2abs->(qw(. t testdata reallylongdirectoryname arch1 Config.pm)),
-);
-
-
-# Different architecures.
-{
- ok !$mm->arch_check(
- $rel2abs->(qw(. t testdata reallylongdirectoryname arch1 Config.pm)),
- $rel2abs->(qw(. t testdata reallylongdirectoryname arch2 Config.pm)),
- );
-
- like $stdout->read, qr{\Q
-Your perl and your Config.pm seem to have different ideas about the
-architecture they are running on.
-Perl thinks: [arch1]
-Config says: [$Config{archname}]
-This may or may not cause problems. Please check your installation of perl
-if you have problems building this extension.
-};
-
-}
-
-
-# Different file path separators [rt.cpan.org 46416]
-SKIP: {
- require File::Spec;
- skip "Win32 test", 1 unless File::Spec->isa("File::Spec::Win32");
-
- ok $mm->arch_check(
- "/_64/perl1004/lib/Config.pm",
- '\\_64\\perl1004\\lib\\Config.pm',
- );
-}
-
-
-# PERL_SRC is set, no check is done
-{
- # Clear our log
- $stdout->read;
-
- local $mm->{PERL_SRC} = 1;
- ok $mm->arch_check(
- $rel2abs->(qw(. t testdata reallylongdirectoryname arch1 Config.pm)),
- $rel2abs->(qw(. t testdata reallylongdirectoryname arch2 Config.pm)),
- );
-
- is $stdout->read, '';
-}
-
-
-# UNINSTALLED_PERL is set, no message is sent
-{
- local $mm->{UNINSTALLED_PERL} = 1;
- ok !$mm->arch_check(
- $rel2abs->(qw(. t testdata reallylongdirectoryname arch1 Config.pm)),
- $rel2abs->(qw(. t testdata reallylongdirectoryname arch2 Config.pm)),
- );
-
- like $stdout->read, qr{^Have .*\nWant .*$};
-}
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/dir_target.t b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/dir_target.t
deleted file mode 100644
index 6744093..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/dir_target.t
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/usr/bin/perl -w
-
-use lib 't/lib';
-chdir 't';
-
-use Test::More tests => 1;
-use ExtUtils::MakeMaker;
-
-# dir_target() was typo'd as dir_targets()
-can_ok('MM', 'dir_target');
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/fix_libs.t b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/fix_libs.t
deleted file mode 100644
index 0ca8ffb..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/fix_libs.t
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/perl -w
-
-# Unit test the code which fixes up $self->{LIBS}
-
-BEGIN {
- chdir 't' if -d 't';
-}
-
-use strict;
-use lib './lib';
-use Test::More 'no_plan';
-
-use ExtUtils::MakeMaker;
-
-my @tests = (
- # arg # want
- [ undef, [''] ],
- [ "foo", ['foo'] ],
- [ [], [''] ],
- [ ["foo"], ['foo'] ],
- [ [1, 2, 3], [1, 2, 3] ],
- [ [0], [0] ],
- [ [''], [''] ],
- [ " ", [' '] ],
-);
-
-for my $test (@tests) {
- my($arg, $want) = @$test;
-
- my $display = defined $arg ? $arg : "undef";
- is_deeply( MM->_fix_libs($arg), $want, "fix_libs($display)" );
-}
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/hints.t b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/hints.t
deleted file mode 100644
index ab9d955..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/hints.t
+++ /dev/null
@@ -1,50 +0,0 @@
-#!/usr/bin/perl -w
-
-BEGIN {
- unshift @INC, 't/lib/';
-}
-chdir 't';
-
-use File::Spec;
-
-use Test::More tests => 3;
-
-# Having the CWD in @INC masked a bug in finding hint files
-my $curdir = File::Spec->curdir;
- at INC = grep { $_ ne $curdir && $_ ne '.' } @INC;
-
-mkdir('hints', 0777);
-(my $os = $^O) =~ s/\./_/g;
-my $hint_file = File::Spec->catfile('hints', "$os.pl");
-
-open(HINT, ">$hint_file") || die "Can't write dummy hints file $hint_file: $!";
-print HINT <<'CLOO';
-$self->{CCFLAGS} = 'basset hounds got long ears';
-CLOO
-close HINT;
-
-use TieOut;
-use ExtUtils::MakeMaker;
-
-my $out = tie *STDERR, 'TieOut';
-my $mm = bless {}, 'ExtUtils::MakeMaker';
-$mm->check_hints;
-is( $mm->{CCFLAGS}, 'basset hounds got long ears' );
-is( $out->read, "Processing hints file $hint_file\n" );
-
-open(HINT, ">$hint_file") || die "Can't write dummy hints file $hint_file: $!";
-print HINT <<'CLOO';
-die "Argh!\n";
-CLOO
-close HINT;
-
-$mm->check_hints;
-is( $out->read, <<OUT, 'hint files produce errors' );
-Processing hints file $hint_file
-Argh!
-OUT
-
-END {
- use File::Path;
- rmtree ['hints'];
-}
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/is_of_type.t b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/is_of_type.t
deleted file mode 100644
index 07e300e..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/is_of_type.t
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/usr/bin/perl -w
-
-# Test _is_of_type()
-
-BEGIN {
- chdir 't' if -d 't';
-}
-
-use lib './lib';
-use strict;
-use ExtUtils::MakeMaker;
-
-use Test::More "no_plan";
-
-my $is_of_type = \&ExtUtils::MakeMaker::_is_of_type;
-
-my @tests = (
- [23, "", 1],
- [[], "", 0],
- [{}, "", 0],
- [[], "HASH", 0],
- [{}, "HASH", 1],
- [bless({}, "Foo"), "Foo", 1],
- [bless({}, "Bar"), "Foo", 0],
- [bless([], "Foo"), "", 0],
- [bless([], "Foo"), "HASH", 0],
- [bless([], "Foo"), "ARRAY", 1],
-);
-
-for my $test (@tests) {
- my($thing, $type, $want) = @$test;
-
- # [rt.cpan.org 41060]
- local $SIG{__DIE__} = sub { fail("sigdie should be ignored") };
- is !!$is_of_type->($thing, $type), !!$want, qq[_is_of_type($thing, '$type'): $want];
-}
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/lib/MakeMaker/Test/Setup/Recurs.pm b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/lib/MakeMaker/Test/Setup/Recurs.pm
deleted file mode 100644
index ad1be2f..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/lib/MakeMaker/Test/Setup/Recurs.pm
+++ /dev/null
@@ -1,74 +0,0 @@
-package MakeMaker::Test::Setup::Recurs;
-
- at ISA = qw(Exporter);
-require Exporter;
- at EXPORT = qw(setup_recurs teardown_recurs);
-
-use strict;
-use File::Path;
-use File::Basename;
-use MakeMaker::Test::Utils;
-
-my %Files = (
- 'Recurs/Makefile.PL' => <<'END',
-use ExtUtils::MakeMaker;
-
-WriteMakefile(
- NAME => 'Recurs',
- VERSION => 1.00,
-);
-END
-
- 'Recurs/prj2/Makefile.PL' => <<'END',
-use ExtUtils::MakeMaker;
-
-WriteMakefile(
- NAME => 'Recurs::prj2',
- VERSION => 1.00,
-);
-END
-
- # Check if a test failure in a subdir causes make test to fail
- 'Recurs/prj2/t/fail.t' => <<'END',
-#!/usr/bin/perl -w
-
-print "1..1\n";
-print "not ok 1\n";
-END
- );
-
-sub setup_recurs {
- setup_mm_test_root();
- chdir 'MM_TEST_ROOT:[t]' if $^O eq 'VMS';
-
- while(my($file, $text) = each %Files) {
- # Convert to a relative, native file path.
- $file = File::Spec->catfile(File::Spec->curdir, split m{\/}, $file);
-
- my $dir = dirname($file);
- mkpath $dir;
- open(FILE, ">$file") || die "Can't create $file: $!";
- print FILE $text;
- close FILE;
-
- # ensure file at least 1 second old for makes that assume
- # files with the same time are out of date.
- my $time = calibrate_mtime();
- utime $time, $time - 1, $file;
- }
-
- return 1;
-}
-
-sub teardown_recurs {
- foreach my $file (keys %Files) {
- my $dir = dirname($file);
- if( -e $dir ) {
- rmtree($dir) || return;
- }
- }
- return 1;
-}
-
-
-1;
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/lib/MakeMaker/Test/Setup/XS.pm b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/lib/MakeMaker/Test/Setup/XS.pm
deleted file mode 100644
index 195fd56..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/lib/MakeMaker/Test/Setup/XS.pm
+++ /dev/null
@@ -1,97 +0,0 @@
-package MakeMaker::Test::Setup::XS;
-
- at ISA = qw(Exporter);
-require Exporter;
- at EXPORT = qw(setup_xs teardown_xs);
-
-use strict;
-use File::Path;
-use File::Basename;
-use MakeMaker::Test::Utils;
-
-my $Is_VMS = $^O eq 'VMS';
-
-my %Files = (
- 'XS-Test/lib/XS/Test.pm' => <<'END',
-package XS::Test;
-
-require Exporter;
-require DynaLoader;
-
-$VERSION = 1.01;
- at ISA = qw(Exporter DynaLoader);
- at EXPORT = qw(is_even);
-
-bootstrap XS::Test $VERSION;
-
-1;
-END
-
- 'XS-Test/Makefile.PL' => <<'END',
-use ExtUtils::MakeMaker;
-
-WriteMakefile(
- NAME => 'XS::Test',
- VERSION_FROM => 'lib/XS/Test.pm',
-);
-END
-
- 'XS-Test/Test.xs' => <<'END',
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-
-MODULE = XS::Test PACKAGE = XS::Test
-
-PROTOTYPES: DISABLE
-
-int
-is_even(input)
- int input
- CODE:
- RETVAL = (input % 2 == 0);
- OUTPUT:
- RETVAL
-END
-
- 'XS-Test/t/is_even.t' => <<'END',
-#!/usr/bin/perl -w
-
-use Test::More tests => 3;
-
-use_ok "XS::Test";
-ok !is_even(1);
-ok is_even(2);
-END
- );
-
-
-sub setup_xs {
- setup_mm_test_root();
- chdir 'MM_TEST_ROOT:[t]' if $Is_VMS;
-
- while(my($file, $text) = each %Files) {
- # Convert to a relative, native file path.
- $file = File::Spec->catfile(File::Spec->curdir, split m{\/}, $file);
-
- my $dir = dirname($file);
- mkpath $dir;
- open(FILE, ">$file") || die "Can't create $file: $!";
- print FILE $text;
- close FILE;
- }
-
- return 1;
-}
-
-sub teardown_xs {
- foreach my $file (keys %Files) {
- my $dir = dirname($file);
- if( -e $dir ) {
- rmtree($dir) || return;
- }
- }
- return 1;
-}
-
-1;
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/lib/Test/Simple.pm b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/lib/Test/Simple.pm
deleted file mode 100644
index 693a060..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/lib/Test/Simple.pm
+++ /dev/null
@@ -1,214 +0,0 @@
-package Test::Simple;
-
-use 5.004;
-
-use strict;
-
-our $VERSION = '0.88';
-$VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval)
-
-use Test::Builder::Module;
-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 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 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 );
-
-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.
-
-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 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.004.
-
-Test::Simple is thread-safe in perl 5.8.0 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
-Test::More. Test::Simple is 100% forward compatible with Test::More
-(i.e. you can just use Test::More instead of Test::Simple in your
-programs and things will still work).
-
-=back
-
-Look in 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 at pobox.comE<gt>, wardrobe by Calvin Klein.
-
-
-=head1 COPYRIGHT
-
-Copyright 2001-2008 by Michael G Schwern E<lt>schwern at 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/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/maketext_filter.t b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/maketext_filter.t
deleted file mode 100644
index 404a91c..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/maketext_filter.t
+++ /dev/null
@@ -1,59 +0,0 @@
-#!/usr/bin/perl -w
-
-BEGIN {
- unshift @INC, 't/lib';
-}
-chdir 't';
-
-use Test::More tests => 6;
-
-use ExtUtils::MakeMaker;
-use ExtUtils::MM_VMS;
-
-sub test_filter {
- my($text, $vms_text) = @_;
-
- local $Test::Builder::Level = $Test::Builder::Level + 1;
- is( ExtUtils::MM_Any->maketext_filter($text), $text, 'default filter' );
- is( ExtUtils::MM_VMS->maketext_filter($text), $vms_text, 'VMS filter' );
-}
-
-
-# VMS filter puts a space after the target
-test_filter(<<'END', <<'VMS');
-foo: bar
- thing: splat
-END
-foo : bar
- thing: splat
-VMS
-
-
-# And it does it for all targets
-test_filter(<<'END', <<'VMS');
-foo: bar
- thing: splat
-
-up: down
- yes
-END
-foo : bar
- thing: splat
-
-up : down
- yes
-VMS
-
-
-# And it doesn't mess with macros
-test_filter(<<'END', <<'VMS');
-CLASS=Foo: Bar
-
-target: stuff
- $(PROGRAM) And::Stuff
-END
-CLASS=Foo: Bar
-
-target : stuff
- $(PROGRAM) And::Stuff
-VMS
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/metafile_file.t b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/metafile_file.t
deleted file mode 100644
index ca8a412..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/metafile_file.t
+++ /dev/null
@@ -1,308 +0,0 @@
-#!/usr/bin/perl -w
-
-# This is a test of the fake YAML dumper implemented by EUMM:
-# ExtUtils::MM_Any::metafile_file
-
-BEGIN {
- unshift @INC, 't/lib';
-}
-
-use strict;
-use Test::More tests => 16;
-
-require ExtUtils::MM_Any;
-
-my $mm = bless {}, 'ExtUtils::MM_Any';
-
-{
- my @meta = ( a => 1, b => 2 );
- my $expected = <<YAML;
---- #YAML:1.0
-a: 1
-b: 2
-YAML
-
- is($mm->metafile_file(@meta), $expected, "dump for flat hashes works ok");
-}
-
-{
- my @meta = ( k1 => 'some key and value', k2 => undef, k3 => 1 );
- my $expected = <<YAML;
---- #YAML:1.0
-k1: some key and value
-k2: ~
-k3: 1
-YAML
-
- is($mm->metafile_file(@meta), $expected, "dumping strings and undefs is ok");
-}
-
-{
- my @meta = ( a => 1, b => 2, h => { hh => 1 } );
- my $expected = <<YAML;
---- #YAML:1.0
-a: 1
-b: 2
-h:
- hh: 1
-YAML
-
- is($mm->metafile_file(@meta), $expected, "dump for nested hashes works ok");
-}
-
-{
- my @meta = ( a => 1, b => 2, h => { h1 => 'x', h2 => 'z' } );
- my $expected = <<YAML;
---- #YAML:1.0
-a: 1
-b: 2
-h:
- h1: x
- h2: z
-YAML
-
- is($mm->metafile_file(@meta), $expected, "nested hashes sort ascii-betically");
- # to tell the truth, they sort case-insensitively
- # that's hard to test for Perl with unstable sort's
-}
-
-{
- my @meta = ( a => 1, b => 2, h => { hh => { hhh => 1 } } );
- my $expected = <<YAML;
---- #YAML:1.0
-a: 1
-b: 2
-h:
- hh:
- hhh: 1
-YAML
-
- is($mm->metafile_file(@meta), $expected, "dump for hashes (with more nesting) works ok");
-}
-
-{
- my @meta = ( a => 1, k => [ qw(w y z) ] );
- my $expected = <<YAML;
---- #YAML:1.0
-a: 1
-k:
- - w
- - y
- - z
-YAML
-
- is($mm->metafile_file(@meta), $expected, "array of strings are handled ok");
-}
-
-is($mm->metafile_file( a => {}, b => [], c => undef ), <<'YAML', 'empty hashes and arrays');
---- #YAML:1.0
-a: {}
-b: []
-c: ~
-YAML
-
-
-{
- my @meta = (
- name => 'My-Module',
- version => '0.1',
- version_from => 'lib/My/Module.pm',
- installdirs => 'site',
- abstract => 'A does-it-all module',
- license => 'perl',
- generated_by => 'myself',
- author => 'John Doe <doe at doeland.org>',
- distribution_type => 'module',
- requires => {
- 'My::Module::Helper' => 0,
- 'Your::Module' => '1.5',
- },
- 'meta-spec' => {
- version => '1.1',
- url => 'http://module-build.sourceforge.net/META-spec-new.html',
- },
- );
- my $expected = <<'YAML';
---- #YAML:1.0
-name: My-Module
-version: 0.1
-version_from: lib/My/Module.pm
-installdirs: site
-abstract: A does-it-all module
-license: perl
-generated_by: myself
-author: John Doe <doe at doeland.org>
-distribution_type: module
-requires:
- My::Module::Helper: 0
- Your::Module: 1.5
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-new.html
- version: 1.1
-YAML
-
- is($mm->metafile_file(@meta), $expected, "dump for something like META.yml works");
-}
-
-{
- my @meta = (
- name => 'My-Module',
- version => '0.1',
- version_from => 'lib/My/Module.pm',
- installdirs => 'site',
- abstract => 'A does-it-all module',
- license => 'perl',
- generated_by => 'myself',
- author => 'John Doe <doe at doeland.org>',
- distribution_type => 'module',
- requires => {
- 'My::Module::Helper' => 0,
- 'Your::Module' => '1.5',
- },
- recommends => {
- 'Test::More' => 0,
- 'Test::Pod' => 1.18,
- 'Test::Pod::Coverage' => 1
- },
- 'meta-spec' => {
- version => '1.1',
- url => 'http://module-build.sourceforge.net/META-spec-new.html',
- },
- );
- my $expected = <<'YAML';
---- #YAML:1.0
-name: My-Module
-version: 0.1
-version_from: lib/My/Module.pm
-installdirs: site
-abstract: A does-it-all module
-license: perl
-generated_by: myself
-author: John Doe <doe at doeland.org>
-distribution_type: module
-requires:
- My::Module::Helper: 0
- Your::Module: 1.5
-recommends:
- Test::More: 0
- Test::Pod: 1.18
- Test::Pod::Coverage: 1
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-new.html
- version: 1.1
-YAML
-
- is($mm->metafile_file(@meta), $expected, "META.yml with extra 'recommends' works");
-}
-
-{
- my @meta = (
- name => 'My-Module',
- version => '0.1',
- version_from => 'lib/My/Module.pm',
- installdirs => 'site',
- abstract => 'A does-it-all module',
- license => 'perl',
- generated_by => 'myself',
- author => 'John Doe <doe at doeland.org>',
- distribution_type => 'module',
- requires => {
- 'My::Module::Helper' => 0,
- 'Your::Module' => '1.5',
- },
- recommends => {
- 'Test::More' => 0,
- 'Test::Pod' => 1.18,
- 'Test::Pod::Coverage' => 1
- },
- no_index => {
- dir => [ qw(inc) ],
- file => [ qw(TODO NOTES) ],
- },
- 'meta-spec' => {
- version => '1.1',
- url => 'http://module-build.sourceforge.net/META-spec-new.html',
- },
- );
- my $expected = <<'YAML';
---- #YAML:1.0
-name: My-Module
-version: 0.1
-version_from: lib/My/Module.pm
-installdirs: site
-abstract: A does-it-all module
-license: perl
-generated_by: myself
-author: John Doe <doe at doeland.org>
-distribution_type: module
-requires:
- My::Module::Helper: 0
- Your::Module: 1.5
-recommends:
- Test::More: 0
- Test::Pod: 1.18
- Test::Pod::Coverage: 1
-no_index:
- dir:
- - inc
- file:
- - TODO
- - NOTES
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-new.html
- version: 1.1
-YAML
-
- is($mm->metafile_file(@meta), $expected, "META.yml with extra 'no_index' works");
-
-
- # Make sure YAML.pm can ready our output
- SKIP: {
- skip "Need YAML.pm to test if it can load META.yml", 1
- unless eval { require YAML };
-
- my $yaml_load = YAML::Load($mm->metafile_file(@meta));
- is_deeply( $yaml_load, {@meta}, "META.yml can be read by YAML.pm" );
- }
-
-
- SKIP: {
- skip "Need YAML::Tiny to test if it can load META.yml", 2
- unless eval { require YAML::Tiny };
-
- my @yaml_load = YAML::Tiny::Load($mm->metafile_file(@meta));
- is @yaml_load, 1, "YAML::Tiny saw one document in META.yml";
- is_deeply( $yaml_load[0], {@meta}, "META.yml can be read by YAML::Tiny" );
- }
-}
-
-
-{
- my @meta = ( k => 'a : b', 'x : y' => 1 );
- my $expected = <<YAML;
---- #YAML:1.0
-k: a : b
-x : y: 1
-YAML
- # NOTE: the output is not YAML-equivalent to the input
-
- is($mm->metafile_file(@meta), $expected, "no quoting is done");
-}
-
-{
- my @meta = ( k => \*STDOUT );
- eval { $mm->metafile_file(@meta) };
-
- like($@, qr/^only nested hashes, arrays and objects are supported/,
- "we don't like but hash/array refs");
-}
-
-{
- my @meta = ( k => [ [] ] );
- eval { $mm->metafile_file(@meta) };
-
- like($@, qr/^only nested arrays of non-refs are supported/,
- "we also don't like but array of strings");
-}
-
-# recursive data structures: don't even think about it - endless recursion
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/min_perl_version.t b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/min_perl_version.t
deleted file mode 100644
index b0eb506..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/min_perl_version.t
+++ /dev/null
@@ -1,195 +0,0 @@
-#!/usr/bin/perl -w
-
-# This is a test checking various aspects of the optional argument
-# MIN_PERL_VERSION to WriteMakefile.
-
-BEGIN {
- unshift @INC, 't/lib';
-}
-
-use strict;
-use Test::More tests => 33;
-
-use TieOut;
-use MakeMaker::Test::Utils;
-use MakeMaker::Test::Setup::MPV;
-use File::Path;
-
-use ExtUtils::MakeMaker;
-
-# avoid environment variables interfering with our make runs
-delete @ENV{qw(LIB MAKEFLAGS)};
-
-my $perl = which_perl();
-my $make = make_run();
-my $makefile = makefile_name();
-
-chdir 't';
-
-perl_lib();
-
-ok( setup_recurs(), 'setup' );
-END {
- ok( chdir(File::Spec->updir), 'leaving dir' );
- ok( teardown_recurs(), 'teardown' );
-}
-
-ok( chdir 'Min-PerlVers', 'entering dir Min-PerlVers' ) ||
- diag("chdir failed: $!");
-
-{
- # ----- argument verification -----
-
- my $stdout = tie *STDOUT, 'TieOut';
- ok( $stdout, 'capturing stdout' );
- my $warnings = '';
- local $SIG{__WARN__} = sub {
- $warnings .= join '', @_;
- };
-
- eval {
- WriteMakefile(
- NAME => 'Min::PerlVers',
- MIN_PERL_VERSION => '5',
- );
- };
- is( $warnings, '', 'MIN_PERL_VERSION=5 does not trigger a warning' );
- is( $@, '', ' nor a hard failure' );
-
-
- $warnings = '';
- eval {
- WriteMakefile(
- NAME => 'Min::PerlVers',
- MIN_PERL_VERSION => '5.4.4',
- );
- };
- is( $warnings, '', 'MIN_PERL_VERSION=X.Y.Z does not trigger a warning' );
- is( $@, '', ' nor a hard failure' );
-
-
- $warnings = '';
- eval {
- WriteMakefile(
- NAME => 'Min::PerlVers',
- MIN_PERL_VERSION => '999999',
- );
- };
- ok( '' ne $warnings, 'MIN_PERL_VERSION=999999 triggers a warning' );
- is( $warnings,
- "Warning: Perl version 999999 or higher required. We run $].\n",
- ' with expected message text' );
- is( $@, '', ' and without a hard failure' );
-
- $warnings = '';
- eval {
- WriteMakefile(
- NAME => 'Min::PerlVers',
- MIN_PERL_VERSION => '999999',
- PREREQ_FATAL => 1,
- );
- };
- is( $warnings, '', 'MIN_PERL_VERSION=999999 and PREREQ_FATAL: no warning' );
- is( $@, <<"END", ' correct exception' );
-MakeMaker FATAL: perl version too low for this distribution.
-Required is 999999. We run $].
-END
-
- $warnings = '';
- eval {
- WriteMakefile(
- NAME => 'Min::PerlVers',
- MIN_PERL_VERSION => 'foobar',
- );
- };
- ok( '' ne $warnings, 'MIN_PERL_VERSION=foobar triggers a warning' );
- is( $warnings, <<'END', ' with expected message text' );
-Warning: MIN_PERL_VERSION is not in a recognized format.
-Recommended is a quoted numerical value like '5.005' or '5.008001'.
-END
-
- is( $@, '', ' and without a hard failure' );
-}
-
-
-# ----- PREREQ_PRINT output -----
-{
- my $prereq_out = run(qq{$perl Makefile.PL "PREREQ_PRINT=1"});
- is( $?, 0, 'PREREQ_PRINT exiting normally' );
- my $prereq_out_sane = $prereq_out =~ /^\s*\$PREREQ_PM\s*=/;
- ok( $prereq_out_sane, ' and talking like we expect' ) ||
- diag($prereq_out);
-
- SKIP: {
- skip 'not going to evaluate rubbish', 3 if !$prereq_out_sane;
-
- package _Prereq::Print::WithMPV; ## no critic
- our($PREREQ_PM, $BUILD_REQUIRES, $MIN_PERL_VERSION, $ERR);
- $ERR = '';
- eval {
- eval $prereq_out; ## no critic
- $ERR = $@;
- };
- ::is( $@ . $ERR, '', 'prereqs evaluable' );
- ::is_deeply( $PREREQ_PM, { strict => 0 }, ' and looking correct' );
- ::is( $MIN_PERL_VERSION, '5.005', 'min version also correct' );
- }
-}
-
-
-# ----- PRINT_PREREQ output -----
-{
- my $prereq_out = run(qq{$perl Makefile.PL "PRINT_PREREQ=1"});
- is( $?, 0, 'PRINT_PREREQ exiting normally' );
- ok( $prereq_out !~ /^warning/i, ' and not complaining loudly' );
- like( $prereq_out,
- qr/^perl\(perl\) \s* >= 5\.005 \s+ perl\(strict\) \s* >= \s* 0 \s*$/x,
- 'dump has prereqs and perl version' );
-}
-
-
-# ----- generated files verification -----
-{
- unlink $makefile;
- my @mpl_out = run(qq{$perl Makefile.PL});
- END { unlink $makefile, makefile_backup() }
-
- cmp_ok( $?, '==', 0, 'Makefile.PL exiting normally' ) || diag(@mpl_out);
- ok( -e $makefile, 'Makefile present' );
-}
-
-
-# ----- ppd output -----
-{
- my $ppd_file = 'Min-PerlVers.ppd';
- my @make_out = run(qq{$make ppd});
- END { unlink $ppd_file }
-
- cmp_ok( $?, '==', 0, 'Make ppd exiting normally' ) || diag(@make_out);
-
- my $ppd_html = slurp($ppd_file);
- ok( defined($ppd_html), ' .ppd file present' );
-
- like( $ppd_html, qr{^\s*<PERLCORE VERSION="5,005,0,0" />}m,
- ' .ppd file content good' );
-}
-
-
-# ----- META.yml output -----
-{
- my $distdir = 'Min-PerlVers-0.05';
- $distdir =~ s{\.}{_}g if $Is_VMS;
-
- my $meta_yml = "$distdir/META.yml";
- my @make_out = run(qq{$make metafile});
- END { rmtree $distdir }
-
- cmp_ok( $?, '==', 0, 'Make metafile exiting normally' ) || diag(@make_out);
- my $meta = slurp($meta_yml);
- ok( defined($meta), ' META.yml present' );
-
- like( $meta, qr{\nrequires:[^\S\n]*\n\s+perl:\s+5\.005\n\s+strict:\s+0\n},
- ' META.yml content good');
-}
-
-__END__
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/pm.t b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/pm.t
deleted file mode 100644
index 42f028f..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/pm.t
+++ /dev/null
@@ -1,41 +0,0 @@
-#!/usr/bin/perl -w
-
-# Test that MakeMaker honors user's PM override.
-
-BEGIN {
- unshift @INC, 't/lib';
-}
-
-use strict;
-use Test::More tests => 6;
-
-use TieOut;
-use MakeMaker::Test::Utils;
-use MakeMaker::Test::Setup::BFD;
-
-use ExtUtils::MakeMaker;
-
-chdir 't';
-
-perl_lib();
-
-ok( setup_recurs(), 'setup' );
-END {
- ok( chdir File::Spec->updir );
- ok( teardown_recurs(), 'teardown' );
-}
-
-ok( chdir 'Big-Dummy', "chdir'd to Big-Dummy" ) ||
- diag("chdir failed: $!");
-
-ok( my $stdout = tie *STDOUT, 'TieOut' );
-
-{
- my $mm = WriteMakefile(
- NAME => 'Big::Dummy',
- VERSION_FROM => 'lib/Big/Dummy.pm',
- PM => { 'wibble' => 'woof' }
- );
-
- is_deeply( $mm->{PM}, { wibble => 'woof' } );
-}
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/postamble.t b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/postamble.t
deleted file mode 100644
index c83a1c8..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/postamble.t
+++ /dev/null
@@ -1,67 +0,0 @@
-#!/usr/bin/perl -w
-
-# Wherein we ensure that postamble works ok.
-
-BEGIN {
- unshift @INC, 't/lib';
-}
-
-use strict;
-use Test::More tests => 8;
-use MakeMaker::Test::Utils;
-use MakeMaker::Test::Setup::BFD;
-use ExtUtils::MakeMaker;
-use TieOut;
-
-chdir 't';
-perl_lib;
-$| = 1;
-
-my $Makefile = makefile_name;
-
-ok( setup_recurs(), 'setup' );
-END {
- ok( chdir File::Spec->updir );
- ok( teardown_recurs(), 'teardown' );
-}
-
-ok( chdir 'Big-Dummy', q{chdir'd to Big-Dummy} ) ||
- diag("chdir failed: $!");
-
-{
- my $warnings = '';
- local $SIG{__WARN__} = sub {
- $warnings = join '', @_;
- };
-
- my $stdout = tie *STDOUT, 'TieOut' or die;
- my $mm = WriteMakefile(
- NAME => 'Big::Dummy',
- VERSION_FROM => 'lib/Big/Dummy.pm',
- postamble => {
- FOO => 1,
- BAR => "fugawazads"
- }
- );
- is( $warnings, '', 'postamble argument not warned about' );
-}
-
-sub MY::postamble {
- my($self, %extra) = @_;
-
- is_deeply( \%extra, { FOO => 1, BAR => 'fugawazads' },
- 'postamble args passed' );
-
- return <<OUT;
-# This makes sure the postamble gets written
-OUT
-
-}
-
-
-ok( open(MAKEFILE, $Makefile) ) or diag "Can't open $Makefile: $!";
-{ local $/;
- like( <MAKEFILE>, qr/^\# This makes sure the postamble gets written\n/m,
- 'postamble added to the Makefile' );
-}
-close MAKEFILE;
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/prereq.t b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/prereq.t
deleted file mode 100644
index cd5d18d..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/prereq.t
+++ /dev/null
@@ -1,127 +0,0 @@
-#!/usr/bin/perl -w
-
-# This is a test of the verification of the arguments to
-# WriteMakefile.
-
-BEGIN {
- unshift @INC, 't/lib';
-}
-
-use strict;
-use Test::More tests => 13;
-
-use TieOut;
-use MakeMaker::Test::Utils;
-use MakeMaker::Test::Setup::BFD;
-
-use ExtUtils::MakeMaker;
-
-chdir 't';
-
-perl_lib();
-
-ok( setup_recurs(), 'setup' );
-END {
- ok( chdir File::Spec->updir );
- ok( teardown_recurs(), 'teardown' );
-}
-
-ok( chdir 'Big-Dummy', "chdir'd to Big-Dummy" ) ||
- diag("chdir failed: $!");
-
-{
- ok( my $stdout = tie *STDOUT, 'TieOut' );
- my $warnings = '';
- local $SIG{__WARN__} = sub {
- $warnings .= join '', @_;
- };
-
- WriteMakefile(
- NAME => 'Big::Dummy',
- PREREQ_PM => {
- strict => 0
- }
- );
- is $warnings, '';
-
- $warnings = '';
- WriteMakefile(
- NAME => 'Big::Dummy',
- PREREQ_PM => {
- strict => 99999
- }
- );
- is $warnings,
- sprintf("Warning: prerequisite strict 99999 not found. We have %s.\n",
- $strict::VERSION);
-
- $warnings = '';
- WriteMakefile(
- NAME => 'Big::Dummy',
- PREREQ_PM => {
- "I::Do::Not::Exist" => 0,
- }
- );
- is $warnings,
- "Warning: prerequisite I::Do::Not::Exist 0 not found.\n";
-
- $warnings = '';
- WriteMakefile(
- NAME => 'Big::Dummy',
- PREREQ_PM => {
- "I::Do::Not::Exist" => 0,
- "strict" => 99999,
- }
- );
- is $warnings,
- "Warning: prerequisite I::Do::Not::Exist 0 not found.\n".
- sprintf("Warning: prerequisite strict 99999 not found. We have %s.\n",
- $strict::VERSION);
-
- $warnings = '';
- eval {
- WriteMakefile(
- NAME => 'Big::Dummy',
- PREREQ_PM => {
- "I::Do::Not::Exist" => 0,
- "Nor::Do::I" => 0,
- "strict" => 99999,
- },
- PREREQ_FATAL => 1,
- );
- };
-
- is $warnings, '';
- is $@, <<'END', "PREREQ_FATAL";
-MakeMaker FATAL: prerequisites not found.
- I::Do::Not::Exist not installed
- Nor::Do::I not installed
- strict 99999
-
-Please install these modules first and rerun 'perl Makefile.PL'.
-END
-
-
- $warnings = '';
- eval {
- WriteMakefile(
- NAME => 'Big::Dummy',
- PREREQ_PM => {
- "I::Do::Not::Exist" => 0,
- },
- CONFIGURE => sub {
- require I::Do::Not::Exist;
- },
- PREREQ_FATAL => 1,
- );
- };
-
- is $warnings, '';
- is $@, <<'END', "PREREQ_FATAL happens before CONFIGURE";
-MakeMaker FATAL: prerequisites not found.
- I::Do::Not::Exist not installed
-
-Please install these modules first and rerun 'perl Makefile.PL'.
-END
-
-}
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/test_boilerplate.t b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/test_boilerplate.t
deleted file mode 100644
index f48324f..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/test_boilerplate.t
+++ /dev/null
@@ -1,21 +0,0 @@
-#!/usr/bin/perl -w
-
-# <<<Fill in with what this test does.>>>
-# Copy this when writing new tests to avoid forgetting the core boilerplate
-
-# Magic for core
-BEGIN {
- # Always run in t to unify behavor with core
- chdir 't' if -d 't';
-}
-
-# Use things from t/lib/
-use lib './lib';
-use strict;
-use ExtUtils::MakeMaker;
-
-use Test::More;
-
-pass("Your test code goes here");
-
-done_testing();
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/writemakefile_args.t b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/writemakefile_args.t
deleted file mode 100644
index 10913b9..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/writemakefile_args.t
+++ /dev/null
@@ -1,215 +0,0 @@
-#!/usr/bin/perl -w
-
-# This is a test of the verification of the arguments to
-# WriteMakefile.
-
-BEGIN {
- unshift @INC, 't/lib';
-}
-
-use strict;
-use Test::More tests => 35;
-
-use TieOut;
-use MakeMaker::Test::Utils;
-use MakeMaker::Test::Setup::BFD;
-
-use ExtUtils::MakeMaker;
-
-chdir 't';
-
-perl_lib();
-
-ok( setup_recurs(), 'setup' );
-END {
- ok( chdir File::Spec->updir );
- ok( teardown_recurs(), 'teardown' );
-}
-
-ok( chdir 'Big-Dummy', "chdir'd to Big-Dummy" ) ||
- diag("chdir failed: $!");
-
-{
- ok( my $stdout = tie *STDOUT, 'TieOut' );
- my $warnings = '';
- local $SIG{__WARN__} = sub {
- $warnings .= join '', @_;
- };
-
- my $mm;
-
- eval {
- $mm = WriteMakefile(
- NAME => 'Big::Dummy',
- VERSION_FROM => 'lib/Big/Dummy.pm',
- MAN3PODS => ' ', # common mistake
- );
- };
-
- is( $warnings, <<VERIFY );
-WARNING: MAN3PODS takes a HASH reference not a string/number.
- Please inform the author.
-VERIFY
-
- $warnings = '';
- eval {
- $mm = WriteMakefile(
- NAME => 'Big::Dummy',
- VERSION_FROM => 'lib/Big/Dummy.pm',
- AUTHOR => sub {},
- );
- };
-
- is( $warnings, <<VERIFY );
-WARNING: AUTHOR takes a string/number not a CODE reference.
- Please inform the author.
-VERIFY
-
- # LIBS accepts *both* a string or an array ref. The first cut of
- # our verification did not take this into account.
- $warnings = '';
- $mm = WriteMakefile(
- NAME => 'Big::Dummy',
- VERSION_FROM => 'lib/Big/Dummy.pm',
- LIBS => '-lwibble -lwobble',
- );
-
- # We'll get warnings about the bogus libs, that's ok.
- unlike( $warnings, qr/WARNING: .* takes/ );
- is_deeply( $mm->{LIBS}, ['-lwibble -lwobble'] );
-
- $warnings = '';
- $mm = WriteMakefile(
- NAME => 'Big::Dummy',
- VERSION_FROM => 'lib/Big/Dummy.pm',
- LIBS => ['-lwibble', '-lwobble'],
- );
-
- # We'll get warnings about the bogus libs, that's ok.
- unlike( $warnings, qr/WARNING: .* takes/ );
- is_deeply( $mm->{LIBS}, ['-lwibble', '-lwobble'] );
-
- $warnings = '';
- eval {
- $mm = WriteMakefile(
- NAME => 'Big::Dummy',
- VERSION_FROM => 'lib/Big/Dummy.pm',
- LIBS => { wibble => "wobble" },
- );
- };
-
- # We'll get warnings about the bogus libs, that's ok.
- like( $warnings, qr{^WARNING: LIBS takes a ARRAY reference or string/number not a HASH reference}m );
-
-
- $warnings = '';
- $mm = WriteMakefile(
- NAME => 'Big::Dummy',
- WIBBLE => 'something',
- wump => { foo => 42 },
- );
-
- like( $warnings, qr{^WARNING: WIBBLE is not a known parameter.\n}m );
- like( $warnings, qr{^WARNING: wump is not a known parameter.\n}m );
-
- is( $mm->{WIBBLE}, 'something' );
- is_deeply( $mm->{wump}, { foo => 42 } );
-
-
- # Test VERSION
- $warnings = '';
- eval {
- $mm = WriteMakefile(
- NAME => 'Big::Dummy',
- VERSION => [1,2,3],
- );
- };
- like( $warnings, qr{^WARNING: VERSION takes a version object or string/number} );
-
- $warnings = '';
- eval {
- $mm = WriteMakefile(
- NAME => 'Big::Dummy',
- VERSION => 1.002_003,
- );
- };
- is( $warnings, '' );
- is( $mm->{VERSION}, '1.002003' );
-
- $warnings = '';
- eval {
- $mm = WriteMakefile(
- NAME => 'Big::Dummy',
- VERSION => '1.002_003',
- );
- };
- is( $warnings, '' );
- is( $mm->{VERSION}, '1.002_003' );
-
-
- $warnings = '';
- eval {
- $mm = WriteMakefile(
- NAME => 'Big::Dummy',
- VERSION => bless {}, "Some::Class",
- );
- };
- like( $warnings, '/^WARNING: VERSION takes a version object or string/number not a Some::Class object/' );
-
-
- SKIP: {
- skip("Can't test version objects", 8) unless eval { require version };
- version->import;
-
- my $version = version->new("1.2.3");
- $warnings = '';
- ok eval {
- $mm = WriteMakefile(
- NAME => 'Big::Dummy',
- VERSION => $version,
- );
- } || diag $@;
- is( $warnings, '' );
- isa_ok( $mm->{VERSION}, 'version' );
- is( $mm->{VERSION}, $version );
-
- $warnings = '';
- $version = qv('1.2.3');
- ok eval {
- $mm = WriteMakefile(
- NAME => 'Big::Dummy',
- VERSION => $version,
- );
- } || diag $@;
- is( $warnings, '' );
- isa_ok( $mm->{VERSION}, 'version' );
- is( $mm->{VERSION}, $version );
- }
-
-
- # DISTNAME
- $warnings = '';
- eval {
- $mm = WriteMakefile(
- NAME => 'Big::Dummy',
- VERSION => '1.00',
- DISTNAME => "Hooballa",
- );
- };
- is( $warnings, '' );
- is( $mm->{DISTNAME}, "Hooballa" );
- is( $mm->{DISTVNAME}, $Is_VMS ? "Hooballa-1_00" : "Hooballa-1.00" );
-
-
- # DISTVNAME (rt.cpan.org 43217)
- $warnings = '';
- eval {
- $mm = WriteMakefile(
- NAME => 'Big::Dummy',
- VERSION => 1.00,
- DISTVNAME => "Hooballoo",
- );
- };
- is( $warnings, '' );
- is( $mm->{DISTVNAME}, 'Hooballoo' );
-}
diff --git a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/xs.t b/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/xs.t
deleted file mode 100644
index efd682e..0000000
--- a/3.8.8/sources/cpan-ExtUtils-MakeMaker/vendor/t/xs.t
+++ /dev/null
@@ -1,58 +0,0 @@
-#!/usr/bin/perl -w
-
-BEGIN {
- unshift @INC, 't/lib/';
-}
-chdir 't';
-
-use strict;
-
-use Test::More;
-use MakeMaker::Test::Utils;
-use MakeMaker::Test::Setup::XS;
-use File::Find;
-use File::Spec;
-use File::Path;
-
-my $Skipped = 0;
-if( have_compiler() ) {
- plan tests => 5;
-}
-else {
- $Skipped = 1;
- plan skip_all => "ExtUtils::CBuilder not installed or couldn't find a compiler";
-}
-
-my $Is_VMS = $^O eq 'VMS';
-my $perl = which_perl();
-
-chdir 't';
-
-perl_lib;
-
-$| = 1;
-
-ok( setup_xs(), 'setup' );
-END {
- unless( $Skipped ) {
- chdir File::Spec->updir or die;
- teardown_xs(), 'teardown' or die;
- }
-}
-
-ok( chdir('XS-Test'), "chdir'd to XS-Test" ) ||
- diag("chdir failed: $!");
-
-my @mpl_out = run(qq{$perl Makefile.PL});
-
-cmp_ok( $?, '==', 0, 'Makefile.PL exited with zero' ) ||
- diag(@mpl_out);
-
-my $make = make_run();
-my $make_out = run("$make");
-is( $?, 0, ' make exited normally' ) ||
- diag $make_out;
-
-my $test_out = run("$make");
-is( $?, 0, ' make test exited normally' ) ||
- diag $test_out;
diff --git a/3.8.8/sources/cpan-ExtUtils-Manifest/vendor/Build.PL b/3.8.8/sources/cpan-ExtUtils-Manifest/vendor/Build.PL
deleted file mode 100644
index aa150a7..0000000
--- a/3.8.8/sources/cpan-ExtUtils-Manifest/vendor/Build.PL
+++ /dev/null
@@ -1,23 +0,0 @@
-use strict;
-use warnings;
-
-use Module::Build;
-my %prereq = (
- # splitpath(), rel2abs()
- 'File::Spec' => 0.8,
- 'File::Basename' => 0,
- );
-
-my $build = Module::Build->new(
- module_name => 'ExtUtils::Manifest',
- license => 'perl',
- installdirs => 'core',
- requires => \%prereq,
- dist_version_from => 'lib/ExtUtils/Manifest.pm',
- dist_author => ['Randy Kobes <r.kobes at uwinnipeg.ca>'],
- dist_abstract_from => 'lib/ExtUtils/Manifest.pm',
-);
-
-$build->add_build_element('SKIP');
-$build->create_build_script;
-
diff --git a/3.8.8/sources/cpan-ExtUtils-Manifest/vendor/META.yml b/3.8.8/sources/cpan-ExtUtils-Manifest/vendor/META.yml
deleted file mode 100644
index a9f7588..0000000
--- a/3.8.8/sources/cpan-ExtUtils-Manifest/vendor/META.yml
+++ /dev/null
@@ -1,34 +0,0 @@
---- #YAML:1.0
-name: ExtUtils-Manifest
-version: 1.58
-version_from: lib/ExtUtils/Manifest.pm
-installdirs: perl
-license: perl
-abstract: utilities to write and check a MANIFEST file
-authored_by:
- - Randy Kobes <randy.kobes at gmail.com>
-requires:
- File::Basename: 0
- File::Spec: 0.8
-provides:
- ExtUtils::Manifest:
- file: lib/ExtUtils/Manifest.pm
- version: 1.58
-distribution_type: module
-generated_by: Randy Kobes
-urls:
- license: http://dev.perl.org/licenses/
-resources:
- license: http://dev.perl.org/licenses/
- homepage: http://github.com/rkobes/extutils-manifest
- bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-Manifest
- AnnoCPAN: http://annocpan.org/dist/ExtUtils-Manifest
- CPANForum: http://www.cpanforum.com/dist/ExtUtils-Manifest
- CPANTS: http://cpants.perl.org/dist/ExtUtils-Manifest
- Rating: http://cpanratings.perl.org/d/ExtUtils-Manifest
- SearchCPAN: http://search.cpan.org/~RKOBES/ExtUtils-Manifest/
- Testers: http://cpantesters.perl.org/show/ExtUtils-Manifest.html
- UWinnipeg: http://cpan.uwinnipeg.ca/dist/ExtUtils-Manifest
-meta-spec:
- version: 1.3
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
diff --git a/3.8.8/sources/cpan-ExtUtils-Manifest/vendor/lib/ExtUtils/MANIFEST.SKIP b/3.8.8/sources/cpan-ExtUtils-Manifest/vendor/lib/ExtUtils/MANIFEST.SKIP
deleted file mode 100644
index 85a5c19..0000000
--- a/3.8.8/sources/cpan-ExtUtils-Manifest/vendor/lib/ExtUtils/MANIFEST.SKIP
+++ /dev/null
@@ -1,55 +0,0 @@
-# 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
-
-# Avoid Module::Build generated and utility files.
-\bBuild$
-\b_build/
-\bBuild.bat$
-\bBuild.COM$
-\bBUILD.COM$
-\bbuild.com$
-
-# Avoid temp and backup files.
-~$
-\.old$
-\#$
-\b\.#
-\.bak$
-\.tmp$
-\.#
-\.rej$
-
-# 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 MYMETA files
-^MYMETA\.
diff --git a/3.8.8/sources/cpan-ExtUtils-Manifest/vendor/t/Manifest.t b/3.8.8/sources/cpan-ExtUtils-Manifest/vendor/t/Manifest.t
deleted file mode 100644
index 3aca61d..0000000
--- a/3.8.8/sources/cpan-ExtUtils-Manifest/vendor/t/Manifest.t
+++ /dev/null
@@ -1,417 +0,0 @@
-#!/usr/bin/perl -w
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't' if -d 't';
- unshift @INC, '../lib';
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-chdir 't';
-
-use strict;
-
-use Test::More tests => 94;
-use Cwd;
-
-use File::Spec;
-use File::Path;
-use File::Find;
-use Config;
-
-my $Is_VMS = $^O eq 'VMS';
-my $Is_VMS_noefs = $Is_VMS;
-if ($Is_VMS) {
- my $vms_efs = 0;
- if (eval 'require VMS::Feature') {
- $vms_efs = VMS::Feature::current("efs_charset");
- } else {
- my $efs_charset = $ENV{'DECC$EFS_CHARSET'} || '';
- $vms_efs = $efs_charset =~ /^[ET1]/i;
- }
- $Is_VMS_noefs = 0 if $vms_efs;
-}
-
-
-# We're going to be chdir'ing and modules are sometimes loaded on the
-# fly in this test, so we need an absolute @INC.
- at INC = map { File::Spec->rel2abs($_) } @INC;
-
-# keep track of everything added so it can all be deleted
-my %Files;
-sub add_file {
- my ($file, $data) = @_;
- $data ||= 'foo';
- 1 while unlink $file; # or else we'll get multiple versions on VMS
- open( T, '> '.$file) or return;
- print T $data;
- close T;
- return 0 unless -e $file; # exists under the name we gave it ?
- ++$Files{$file};
-}
-
-sub read_manifest {
- open( M, 'MANIFEST' ) or return;
- chomp( my @files = <M> );
- close M;
- return @files;
-}
-
-sub catch_warning {
- my $warn = '';
- local $SIG{__WARN__} = sub { $warn .= $_[0] };
- return join('', $_[0]->() ), $warn;
-}
-
-sub remove_dir {
- ok( rmdir( $_ ), "remove $_ directory" ) for @_;
-}
-
-# use module, import functions
-BEGIN {
- use_ok( 'ExtUtils::Manifest',
- qw( mkmanifest manicheck filecheck fullcheck
- maniread manicopy skipcheck maniadd maniskip) );
-}
-
-my $cwd = Cwd::getcwd();
-
-# Just in case any old files were lying around.
-rmtree('mantest');
-
-ok( mkdir( 'mantest', 0777 ), 'make mantest directory' );
-ok( chdir( 'mantest' ), 'chdir() to mantest' );
-ok( add_file('foo'), 'add a temporary file' );
-
-# This ensures the -x check for manicopy means something
-# Some platforms don't have chmod or an executable bit, in which case
-# this call will do nothing or fail, but on the platforms where chmod()
-# works, we test the executable bit is copied
-chmod( 0744, 'foo') if $Config{'chmod'};
-
-# there shouldn't be a MANIFEST there
-my ($res, $warn) = catch_warning( \&mkmanifest );
-# Canonize the order.
-$warn = join("", map { "$_|" }
- sort { lc($a) cmp lc($b) } split /\r?\n/, $warn);
-is( $warn, "Added to MANIFEST: foo|Added to MANIFEST: MANIFEST|",
- "mkmanifest() displayed its additions" );
-
-# and now you see it
-ok( -e 'MANIFEST', 'create MANIFEST file' );
-
-my @list = read_manifest();
-is( @list, 2, 'check files in MANIFEST' );
-ok( ! ExtUtils::Manifest::filecheck(), 'no additional files in directory' );
-
-# after adding bar, the MANIFEST is out of date
-ok( add_file( 'bar' ), 'add another file' );
-ok( ! manicheck(), 'MANIFEST now out of sync' );
-
-# it reports that bar has been added and throws a warning
-($res, $warn) = catch_warning( \&filecheck );
-
-like( $warn, qr/^Not in MANIFEST: bar/, 'warning that bar has been added' );
-is( $res, 'bar', 'bar reported as new' );
-
-# now quiet the warning that bar was added and test again
-($res, $warn) = do { local $ExtUtils::Manifest::Quiet = 1;
- catch_warning( \&skipcheck )
- };
-is( $warn, '', 'disabled warnings' );
-
-# add a skip file with a rule to skip itself (and the nonexistent glob '*baz*')
-add_file( 'MANIFEST.SKIP', "baz\n.SKIP" );
-
-# this'll skip the new file
-($res, $warn) = catch_warning( \&skipcheck );
-like( $warn, qr/^Skipping MANIFEST\.SKIP/i, 'got skipping warning' );
-
-my @skipped;
-catch_warning( sub {
- @skipped = skipcheck()
-});
-
-is( join( ' ', @skipped ), 'MANIFEST.SKIP', 'listed skipped files' );
-
-{
- local $ExtUtils::Manifest::Quiet = 1;
- is( join(' ', filecheck() ), 'bar', 'listing skipped with filecheck()' );
-}
-
-# add a subdirectory and a file there that should be found
-ok( mkdir( 'moretest', 0777 ), 'created moretest directory' );
-add_file( File::Spec->catfile('moretest', 'quux'), 'quux' );
-ok( exists( ExtUtils::Manifest::manifind()->{'moretest/quux'} ),
- "manifind found moretest/quux" );
-
-# only MANIFEST and foo are in the manifest
-$_ = 'foo';
-my $files = maniread();
-is( keys %$files, 2, 'two files found' );
-is( join(' ', sort { lc($a) cmp lc($b) } keys %$files), 'foo MANIFEST',
- 'both files found' );
-is( $_, 'foo', q{maniread() doesn't clobber $_} );
-
-ok( mkdir( 'copy', 0777 ), 'made copy directory' );
-
-# Check that manicopy copies files.
-manicopy( $files, 'copy', 'cp' );
-my @copies = ();
-find( sub { push @copies, $_ if -f }, 'copy' );
- at copies = map { s/\.$//; $_ } @copies if $Is_VMS; # VMS likes to put dots on
- # the end of files.
-# Have to compare insensitively for non-case preserving VMS
-is_deeply( [sort map { lc } @copies], [sort map { lc } keys %$files] );
-
-# cp would leave files readonly, so check permissions.
-foreach my $orig (@copies) {
- my $copy = "copy/$orig";
- ok( -r $copy, "$copy: must be readable" );
- is( -w $copy, -w $orig, " writable if original was" );
- is( -x $copy, -x $orig, " executable if original was" );
-}
-rmtree('copy');
-
-
-# poison the manifest, and add a comment that should be reported
-add_file( 'MANIFEST', 'none #none' );
-is( ExtUtils::Manifest::maniread()->{none}, '#none',
- 'maniread found comment' );
-
-ok( mkdir( 'copy', 0777 ), 'made copy directory' );
-$files = maniread();
-eval { (undef, $warn) = catch_warning( sub {
- manicopy( $files, 'copy', 'cp' ) })
-};
-
-# a newline comes through, so get rid of it
-chomp($warn);
-# the copy should have given a warning
-like($warn, qr/^none not found/, 'carped about none' );
-($res, $warn) = catch_warning( \&skipcheck );
-like($warn, qr/^Skipping MANIFEST.SKIP/i, 'warned about MANIFEST.SKIP' );
-
-# tell ExtUtils::Manifest to use a different file
-{
- local $ExtUtils::Manifest::MANIFEST = 'albatross';
- ($res, $warn) = catch_warning( \&mkmanifest );
- like( $warn, qr/Added to albatross: /, 'using a new manifest file' );
-
- # add the new file to the list of files to be deleted
- $Files{'albatross'}++;
-}
-
-
-# Make sure MANIFEST.SKIP is using complete relative paths
-add_file( 'MANIFEST.SKIP' => "^moretest/q\n" );
-
-# This'll skip moretest/quux
-($res, $warn) = catch_warning( \&skipcheck );
-like( $warn, qr{^Skipping moretest/quux$}i, 'got skipping warning again' );
-
-
-# There was a bug where entries in MANIFEST would be blotted out
-# by MANIFEST.SKIP rules.
-add_file( 'MANIFEST.SKIP' => 'foo' );
-add_file( 'MANIFEST' => "foobar\n" );
-add_file( 'foobar' => '123' );
-($res, $warn) = catch_warning( \&manicheck );
-is( $res, '', 'MANIFEST overrides MANIFEST.SKIP' );
-is( $warn, '', 'MANIFEST overrides MANIFEST.SKIP, no warnings' );
-
-$files = maniread;
-ok( !$files->{wibble}, 'MANIFEST in good state' );
-maniadd({ wibble => undef });
-maniadd({ yarrow => "hock" });
-$files = maniread;
-is( $files->{wibble}, '', 'maniadd() with undef comment' );
-is( $files->{yarrow}, 'hock',' with comment' );
-is( $files->{foobar}, '', ' preserved old entries' );
-
-my %funky_files;
-# test including a filename with a space
-SKIP: {
- add_file( 'foo bar' => "space" )
- or skip "couldn't create spaced test file", 2;
- local $ExtUtils::Manifest::MANIFEST = "albatross";
- maniadd({ 'foo bar' => "contains space"});
- is( maniread()->{'foo bar'}, "contains space",
- 'spaced manifest filename' );
- add_file( 'albatross.bak', '' );
- ($res, $warn) = catch_warning( \&mkmanifest );
- like( $warn, qr/\A(Added to.*\n)+\z/m,
- 'no warnings about funky filename' );
- $funky_files{'space'} = 'foo bar';
-}
-
-# test including a filename with a space and a quote
-SKIP: {
- add_file( 'foo\' baz\'quux' => "quote" )
- or skip "couldn't create quoted test file", 1;
- local $ExtUtils::Manifest::MANIFEST = "albatross";
- maniadd({ 'foo\' baz\'quux' => "contains quote"});
- is( maniread()->{'foo\' baz\'quux'}, "contains quote",
- 'quoted manifest filename' );
- $funky_files{'space_quote'} = 'foo\' baz\'quux';
-}
-
-# test including a filename with a space and a backslash
-SKIP: {
- add_file( 'foo bar\\baz' => "backslash" )
- or skip "couldn't create backslash test file", 1;
- local $ExtUtils::Manifest::MANIFEST = "albatross";
- maniadd({ 'foo bar\\baz' => "contains backslash"});
- is( maniread()->{'foo bar\\baz'}, "contains backslash",
- 'backslashed manifest filename' );
- $funky_files{'space_backslash'} = 'foo bar\\baz';
-}
-
-# test including a filename with a space, quote, and a backslash
-SKIP: {
- add_file( 'foo bar\\baz\'quux' => "backslash/quote" )
- or skip "couldn't create backslash/quote test file", 1;
- local $ExtUtils::Manifest::MANIFEST = "albatross";
- maniadd({ 'foo bar\\baz\'quux' => "backslash and quote"});
- is( maniread()->{'foo bar\\baz\'quux'}, "backslash and quote",
- 'backslashed and quoted manifest filename' );
- $funky_files{'space_quote_backslash'} = 'foo bar\\baz\'quux';
-}
-
-my @funky_keys = qw(space space_quote space_backslash space_quote_backslash);
-# test including an external manifest.skip file in MANIFEST.SKIP
-{
- maniadd({ foo => undef , albatross => undef,
- 'mymanifest.skip' => undef, 'mydefault.skip' => undef});
- for (@funky_keys) {
- maniadd( {$funky_files{$_} => $_} ) if defined $funky_files{$_};
- }
-
- add_file('mymanifest.skip' => "^foo\n");
- add_file('mydefault.skip' => "^my\n");
- local $ExtUtils::Manifest::DEFAULT_MSKIP =
- File::Spec->catfile($cwd, qw(mantest mydefault.skip));
- my $skip = File::Spec->catfile($cwd, qw(mantest mymanifest.skip));
- add_file('MANIFEST.SKIP' =>
- "albatross\n#!include $skip\n#!include_default");
- my ($res, $warn) = catch_warning( \&skipcheck );
- for (qw(albatross foo foobar mymanifest.skip mydefault.skip)) {
- like( $warn, qr/Skipping \b$_\b/,
- "Skipping $_" );
- }
- for my $funky_key (@funky_keys) {
- SKIP: {
- my $funky_file = $funky_files{$funky_key};
- skip "'$funky_key' not created", 1 unless $funky_file;
- like( $warn, qr/Skipping \b\Q$funky_file\E\b/,
- "Skipping $funky_file");
- }
- }
- ($res, $warn) = catch_warning( \&mkmanifest );
- for (qw(albatross foo foobar mymanifest.skip mydefault.skip)) {
- like( $warn, qr/Removed from MANIFEST: \b$_\b/,
- "Removed $_ from MANIFEST" );
- }
- for my $funky_key (@funky_keys) {
- SKIP: {
- my $funky_file = $funky_files{$funky_key};
- skip "'$funky_key' not created", 1 unless $funky_file;
- like( $warn, qr/Removed from MANIFEST: \b\Q$funky_file\E\b/,
- "Removed $funky_file from MANIFEST");
- }
- }
- my $files = maniread;
- ok( ! exists $files->{albatross}, 'albatross excluded via MANIFEST.SKIP' );
- ok( exists $files->{yarrow}, 'yarrow included in MANIFEST' );
- ok( exists $files->{bar}, 'bar included in MANIFEST' );
- ok( ! exists $files->{foobar}, 'foobar excluded via mymanifest.skip' );
- ok( ! exists $files->{foo}, 'foo excluded via mymanifest.skip' );
- ok( ! exists $files->{'mymanifest.skip'},
- 'mymanifest.skip excluded via mydefault.skip' );
- ok( ! exists $files->{'mydefault.skip'},
- 'mydefault.skip excluded via mydefault.skip' );
-
- # test exclusion of funky files
- for my $funky_key (@funky_keys) {
- SKIP: {
- my $funky_file = $funky_files{$funky_key};
- skip "'$funky_key' not created", 1 unless $funky_file;
- ok( ! exists $files->{$funky_file},
- "'$funky_file' excluded via mymanifest.skip" );
- }
- }
-
- # tests for maniskip
- my $skipchk = maniskip();
- is ( $skipchk->('albatross'), 1,
- 'albatross excluded via MANIFEST.SKIP' );
- is( $skipchk->('yarrow'), '',
- 'yarrow included in MANIFEST' );
- is( $skipchk->('bar'), '',
- 'bar included in MANIFEST' );
- $skipchk = maniskip('mymanifest.skip');
- is( $skipchk->('foobar'), 1,
- 'foobar excluded via mymanifest.skip' );
- is( $skipchk->('foo'), 1,
- 'foo excluded via mymanifest.skip' );
- is( $skipchk->('mymanifest.skip'), '',
- 'mymanifest.skip included via mydefault.skip' );
- is( $skipchk->('mydefault.skip'), '',
- 'mydefault.skip included via mydefault.skip' );
- $skipchk = maniskip('mydefault.skip');
- is( $skipchk->('foobar'), '',
- 'foobar included via mydefault.skip' );
- is( $skipchk->('foo'), '',
- 'foo included via mydefault.skip' );
- is( $skipchk->('mymanifest.skip'), 1,
- 'mymanifest.skip excluded via mydefault.skip' );
- is( $skipchk->('mydefault.skip'), 1,
- 'mydefault.skip excluded via mydefault.skip' );
-
- my $extsep = $Is_VMS_noefs ? '_' : '.';
- $Files{"$_.bak"}++ for ('MANIFEST', "MANIFEST${extsep}SKIP");
-}
-
-add_file('MANIFEST' => 'Makefile.PL');
-maniadd({ foo => 'bar' });
-$files = maniread;
-# VMS downcases the MANIFEST. We normalize it here to match.
-%$files = map { (lc $_ => $files->{$_}) } keys %$files;
-my %expect = ( 'makefile.pl' => '',
- 'foo' => 'bar'
- );
-is_deeply( $files, \%expect, 'maniadd() vs MANIFEST without trailing newline');
-
-#add_file('MANIFEST' => 'Makefile.PL');
-#maniadd({ foo => 'bar' });
-
-SKIP: {
- chmod( 0400, 'MANIFEST' );
- skip "Can't make MANIFEST read-only", 2 if -w 'MANIFEST';
-
- eval {
- maniadd({ 'foo' => 'bar' });
- };
- is( $@, '', "maniadd() won't open MANIFEST if it doesn't need to" );
-
- eval {
- maniadd({ 'grrrwoof' => 'yippie' });
- };
- like( $@, qr/^\Qmaniadd() could not open MANIFEST:\E/,
- "maniadd() dies if it can't open the MANIFEST" );
-
- chmod( 0600, 'MANIFEST' );
-}
-
-
-END {
- is( unlink( keys %Files ), keys %Files, 'remove all added files' );
- remove_dir( 'moretest', 'copy' );
-
- # now get rid of the parent directory
- ok( chdir( $cwd ), 'return to parent directory' );
- remove_dir( 'mantest' );
-}
-
diff --git a/3.8.8/sources/cpan-ExtUtils-ParseXS/vendor/Changes b/3.8.8/sources/cpan-ExtUtils-ParseXS/vendor/Changes
deleted file mode 100644
index b7e7b0b..0000000
--- a/3.8.8/sources/cpan-ExtUtils-ParseXS/vendor/Changes
+++ /dev/null
@@ -1,355 +0,0 @@
-Revision history for Perl extension ExtUtils::ParseXS.
-
-2.2205 - Wed Mar 10 18:15:36 EST 2010
-
- Other:
-
- - No longer ships with Build.PL to avoid creating a circular dependency
-
-2.2204 - Wed Mar 10 14:23:52 EST 2010
-
- Other:
-
- - Downgraded warnings on using INCLUDE with a command from "deprecated"
- to "discouraged" and limited it to the case where the command includes
- "perl" [Steffen Mueller]
-
-2.2203 - Thu Feb 11 14:00:51 EST 2010
-
- Bug fixes:
-
- - Build.PL was not including ExtUtils/xsubpp for installation. Fixed
- by subclassing M::B::find_pm_files to include it [David Golden]
-
-2.2202 - Wed Jan 27 15:04:59 EST 2010
-
- Bug fixes:
-
- - The fix to IN/OUT/OUTLIST was itself broken and is now fixed.
- [Reported by Serdar Dalgic; fix suggested by Rafael Garcia-Suarez]
-
- We apologize for the fault in the regex. Those responsible
- have been sacked.
-
-2.2201 Mon Jan 25 16:12:05 EST 2010
-
- Bug fixes:
-
- - IN/OUT/OUTLIST, etc. were broken due to a bad regexp. [Simon Cozens]
-
-2.22 - Mon Jan 11 15:00:07 EST 2010
-
- No changes from 2.21_02
-
-2.21_02 - Sat Dec 19 10:55:41 EST 2009
-
- Bug fixes:
-
- - fixed bugs and added tests for INCLUDE_COMMAND [Steffen Mueller]
-
-2.21_01 - Sat Dec 19 07:22:44 EST 2009
-
- Enhancements:
-
- - New 'INCLUDE_COMMAND' directive [Steffen Mueller]
-
- Bug fixes:
-
- - Workaround for empty newXS macro found in P5NCI [Goro Fuji]
-
-2.21 - Mon Oct 5 11:17:53 EDT 2009
-
- Bug fixes:
- - Adds full path in INCLUDE #line directives (RT#50198) [patch by "spb"]
-
- Other:
- - Updated copyright and maintainer list
-
-2.20_07 - Sat Oct 3 11:26:55 EDT 2009
-
- Bug fixes:
- - Use "char* file" for perl < 5.9, not "char[] file"; fixes mod_perl
- breakage due to prior attempts to fix RT#48104 [David Golden]
-
-2.20_06 - Fri Oct 2 23:45:45 EDT 2009
-
- Bug fixes:
- - Added t/typemap to fix broken test on perl 5.6.2 [David Golden]
- - More prototype fixes for older perls [Goro Fuji]
- - Avoid "const char *" in test files as it breaks on 5.6.2 [Goro Fuji]
-
- Other:
- - Merged changes from 2.2004 maintenance branch (see 2.200401 to 2.200403)
- [David Golden]
-
-2.20_05 - Sat Aug 22 21:46:56 EDT 2009
-
- Bug fixes:
- - Fix prototype related bugs [Goro Fuji]
- - Fix the SCOPE keyword [Goro Fuji]
-
-2.200403 - Fri Oct 2 02:01:58 EDT 2009
-
- Other:
- - Removed PERL_CORE specific @INC manipulation (no longer needed)
- [Nicholas Clark]
- - Changed hard-coded $^H manipulation in favor of "use re 'eval'"
- [Nicholas Clark]
-
-2.200402 - Fri Oct 2 01:26:40 EDT 2009
-
- Bug fixes:
- - UNITCHECK subroutines were not being called (detected in ext/XS-APItest
- in Perl blead) [reported by Jesse Vincent, patched by David Golden]
-
-2.200401 - Mon Sep 14 22:26:03 EDT 2009
-
- - No changes from 2.20_04.
-
-
-2.20_04 - Mon Aug 10 11:18:47 EDT 2009
-
- Bug fixes:
- - Changed install_dirs to 'core' for 5.8.9 as well (RT#48474)
- - Removed t/bugs.t until there is better C++ support in ExtUtils::CBuilder
-
- Other:
- - Updated repository URL in META file
-
-2.20_03 - Thu Jul 23 23:14:50 EDT 2009
-
- Bug fixes:
- - Fixed "const char *" errors for 5.8.8 (and older) (RT#48104)
- [Vincent Pit]
- - Added newline before a preprocessor directive (RT#30673)
- [patch by hjp]
-
-2.2002 - Sat Jul 18 17:22:27 EDT 2009
-
- Bug fixes:
- - Fix Makefile.PL installdirs for older perls
-
-2.20_01 - Wed Jul 8 12:12:47 EDT 2009
-
- - Fix XSUsage prototypes for testing [Jan Dubois]
-
-2.20 - Wed Jul 1 13:42:11 EDT 2009
-
- - No changes from 2.19_04
-
-2.19_04 - Mon Jun 29 11:49:12 EDT 2009
-
- - Changed tests to use Test::More and added it to prereqs
-
- - Some tests skip if no compiler or if no dynamic loading
-
- - INTERFACE keyword tests skipped for perl < 5.8
-
-2.19_03 - Sat Jun 27 22:51:18 EDT 2009
-
- - Released to see updated results from smoke testers
-
- - Fix minor doc typo pulled from blead
-
-2.19_02 - Wed Aug 6 22:18:33 2008
-
- - Fix the usage reports to consistently report package name as well
- as sub name across ALIAS, INTERFACE and regular XSUBS. [Robert May]
-
- - Cleaned up a warning with -Wwrite-strings that gets passed into
- every parsed XS file. [Steve Peters]
-
- - Allow (pedantically correct) C pre-processor comments in the code
- snippets of typemap files. [Nicholas Clark]
-
-2.19 - Sun Feb 17 14:27:40 2008
-
- - Fixed the treatment of the OVERLOAD: keyword, which was causing a C
- compile error. [Toshiyuki Yamato]
-
-2.18 - Mon Jan 29 20:56:36 2007
-
- - Added some UNITCHECK stuff, which (I think) makes XS code able to
- do UNITCHECK blocks. [Nicholas Clark]
-
- - Changed 'use re "eval";' to 'BEGIN { $^H |= 0x00200000 };' so we
- can compile re.xs in bleadperl. [Yves Orton]
-
- - Fix an undefined-variable warning related to 'inout' parameter
- processing.
-
-2.17 - Mon Nov 20 17:07:27 2006
-
- - Stacked $filepathname to make #line directives in #INCLUDEs work.
- [Nicholas Clark]
-
- - Sprinked dVAR in with dXSARGS, for God-(Jarkko)-knows-what
- reason. [Jarkko Hietaniemi]
-
- - Use printf-style formats in Perl_croak() for some significant
- savings in number of distinct constant strings in the linked
- binaries we create. [Alexey Tourbin]
-
- - Don't use 'class' as a variable name in the t/XSTest.xs module,
- since that's a keyword in C++. [Jarkko Hietaniemi]
-
-2.16 Fri Sep 15 22:33:24 CDT 2006
-
- - Fix a problem with PREFIX not working inside INTERFACE
- sections. [Salvador Fandin~o]
-
-2.15 Mon Oct 10 11:02:13 EDT 2005
-
- - I accidentally left out a README from the distribution. Now it's
- auto-created from the main documentation in ExtUtils/ParseXS.pm.
-
-2.14 Sat Oct 8 21:49:15 EDT 2005
-
- - The filehandle for the .xs file was never being properly closed,
- and now it is. This was causing some Win32 problems with
- Module::Build's tests, which create a .xs file, process it with
- ParseXS, and then try to remove it. [Spotted by Randy Sims]
-
-2.13 Mon Oct 3 21:59:06 CDT 2005
-
- - Integrate a cleanup-related change from bleadperl that somehow
- never got into this copy. [Steve Hay]
-
-2.12 Wed Aug 24 20:03:09 CDT 2005
-
- - On Win32, there was a DLL file we create during testing that we
- couldn't delete unless we closed it first, so testing failed when
- the deletiong was attempted. This should now work (provided the
- version of perl is high enough to have DynaLoader::dl_unload_file()
- - I'm not sure what will happen otherwise). [Steve Hay]
-
- - Fix a spurious warning during testing about a variable that's used
- before it's initialized. [Steve Hay]
-
-2.11 Mon Jun 13 23:00:23 CDT 2005
-
- - Make some variables global, to avoid some "will not stay shared"
- warnings at compile time. [Rafael Garcia-Suarez]
-
-2.10 Mon May 30 21:29:44 CDT 2005
-
- - This module is being integrated into the perl core; the regression
- tests will now work properly when run as part of the core build.
- [Yitzchak Scott-Thoennes]
-
- - Added the ability to create output files with a suffix other than
- ".c", via the new "csuffix" option. This gets the module working
- on Symbian. [Jarkko Hietaniemi]
-
- - Added the ability to put 'extern "C"' declarations in front of
- prototypes. [Jarkko Hietaniemi]
-
-2.09 Sun Mar 27 11:11:49 CST 2005
-
- - Integrated change #18270 from the perl core, which fixed a problem
- in which xsubpp can make nested comments in C code (which is
- bad). [Nicholas Clark]
-
- - When no "MODULE ... PACKAGE ... PREFIX" line is found, it's now
- still a fatal error for ParseXS, but we exit with status 0, which
- is what the old xsubpp did and seems to work best with some modules
- like Win32::NetAdmin. See RT ticket 11472. [Steve Hay]
-
-2.08 Fri Feb 20 21:41:22 CST 2004
-
- - Fixed a problem with backslashes in file paths (e.g. C:\Foo\Bar.xs)
- disappearing in error messages. [Randy Sims, Steve Hay]
-
- - Did a little minor internal code cleanup in the
- ExtUtils::ParseXS::CountLines class, now other classes don't poke
- around in its package variables.
-
-2.07 Sun Jan 25 17:01:52 CST 2004
-
- - We now use ExtUtils::CBuilder for testing the compile/build phase
- in the regression tests. It's not necessary to have it for runtime
- usage, though.
-
- - Fixed a minor documentation error (look in 'Changes' for revision
- history, not 'changes.pod'). [Scott R. Godin]
-
-2.06 Fri Dec 26 09:00:47 CST 2003
-
- - Some fixes in the regression tests for the AIX platform.
-
-2.05 Mon Sep 29 10:33:39 CDT 2003
-
- - We no longer trim the directory portions from the "#line " comments
- in the generated C code. This helps cooperation with many editors'
- auto-jump-to-error stuff. [Ross McFarland]
-
- - In some cases the PERL_UNUSED_VAR macro is needed to get rid of C
- compile-time warnings in generated code. Since this eliminates so
- many warnings, turning on "-Wall -W" (or your platform's
- equivalent) can once again be helpful. [Ross McFarland]
-
- - Did a huge amount of variable-scoping cleanup, and it *still*
- doesn't compile under 'use strict;'. Much progress was made
- though, and many scoping issues were fixed.
-
-2.04 Thu Sep 4 13:10:59 CDT 2003
-
- - Added a COPYRIGHT section to the documentation. [Spotted by Ville
- Skytta]
-
-2.03 Sat Aug 16 17:49:03 CST 2003
-
- - Fixed a warning that occurs if a regular expression (buried deep
- within the bowels of the code here) fails. [Spotted by Michael
- Schwern]
-
- - Fixed a testing error on Cygwin. [Reini Urban]
-
-2.02 Sun Mar 30 18:20:12 CST 2003
-
- - Now that we know this module doesn't work (yet?) with perl 5.005,
- put a couple 'use 5.006' statements in the module & Makefile.PL so
- we're explicit about the dependency. [Richard Clamp]
-
-2.01 Thu Mar 20 08:22:36 CST 2003
-
- - Allow -C++ flag for backward compatibility. It's a no-op, and has
- been since perl5.003_07. [PodMaster]
-
-2.00 Sun Feb 23 16:40:17 CST 2003
-
- - Tests now function under all three of the supported compilers on
- Windows environments. [Randy W. Sims]
-
- - Will now install to the 'core' perl module directory instead of to
- 'site_perl' or the like, because this is the only place MakeMaker
- will look for the xsubpp script.
-
- - Explicitly untie and close the output file handle because ParseXS was
- holding the file handle open, preventing the compiler from opening
- it on Win32. [Randy W. Sims]
-
- - Added an '--output FILENAME' flag to xsubpp and changed ParseXS to use
- the named file in the #line directives when the output file has an
- extension other than '.c' (i.e. '.cpp'). [Randy W. Sims]
-
- - Added conditional definition of the PERL_UNUSED_VAR macro to the
- output file in case it's not already defined for backwards
- compatibility with pre-5.8 versions of perl. (Not sure if this is the
- best solution.) [Randy W. Sims]
-
-
-1.99 Wed Feb 5 10:07:47 PST 2003
-
- - Version bump to 1.99 so it doesn't look like a 'beta release' to
- CPAN.pm. No code changes, since I haven't had any bug reports.
-
- - Fixed a minor problem in the regression tests that was creating an
- XSTest..o file instead of XSTest.o
-
-
-1.98_01 Mon Dec 9 11:50:41 EST 2002
-
- - Converted from ExtUtils::xsubpp in bleadperl
-
- - Basic set of regression tests written
diff --git a/3.8.8/sources/cpan-ExtUtils-ParseXS/vendor/Makefile.PL b/3.8.8/sources/cpan-ExtUtils-ParseXS/vendor/Makefile.PL
deleted file mode 100644
index 405fb66..0000000
--- a/3.8.8/sources/cpan-ExtUtils-ParseXS/vendor/Makefile.PL
+++ /dev/null
@@ -1,22 +0,0 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.3603
-use ExtUtils::MakeMaker;
-WriteMakefile
-(
- 'NAME' => 'ExtUtils::ParseXS',
- 'VERSION_FROM' => 'lib/ExtUtils/ParseXS.pm',
- 'PREREQ_PM' => {
- 'Carp' => 0,
- 'Cwd' => 0,
- 'DynaLoader' => 0,
- 'Exporter' => 0,
- 'ExtUtils::CBuilder' => 0,
- 'File::Basename' => 0,
- 'File::Spec' => 0,
- 'Symbol' => 0,
- 'Test::More' => '0.47'
- },
- 'INSTALLDIRS' => ($] < 5.008009 ? 'site' : 'perl'),
- 'EXE_FILES' => [],
- 'PL_FILES' => {}
- )
-;
diff --git a/3.8.8/sources/cpan-ExtUtils-ParseXS/vendor/t/XSTest.pm b/3.8.8/sources/cpan-ExtUtils-ParseXS/vendor/t/XSTest.pm
deleted file mode 100644
index 988ef47..0000000
--- a/3.8.8/sources/cpan-ExtUtils-ParseXS/vendor/t/XSTest.pm
+++ /dev/null
@@ -1,8 +0,0 @@
-package XSTest;
-
-require DynaLoader;
- at ISA = qw(Exporter DynaLoader);
-$VERSION = '0.01';
-bootstrap XSTest $VERSION;
-
-1;
diff --git a/3.8.8/sources/cpan-ExtUtils-ParseXS/vendor/t/XSUsage.xs b/3.8.8/sources/cpan-ExtUtils-ParseXS/vendor/t/XSUsage.xs
deleted file mode 100644
index ec663f8..0000000
--- a/3.8.8/sources/cpan-ExtUtils-ParseXS/vendor/t/XSUsage.xs
+++ /dev/null
@@ -1,37 +0,0 @@
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-
-int xsusage_one() { return 1; }
-int xsusage_two() { return 2; }
-int xsusage_three() { return 3; }
-int xsusage_four() { return 4; }
-int xsusage_five(int i) { return 5; }
-int xsusage_six(int i) { return 6; }
-
-MODULE = XSUsage PACKAGE = XSUsage PREFIX = xsusage_
-
-PROTOTYPES: DISABLE
-
-int
-xsusage_one()
-
-int
-xsusage_two()
- ALIAS:
- two_x = 1
- FOO::two = 2
-
-int
-interface_v_i()
- INTERFACE:
- xsusage_three
-
-int
-xsusage_four(...)
-
-int
-xsusage_five(int i, ...)
-
-int
-xsusage_six(int i = 0)
diff --git a/3.8.8/sources/cpan-ExtUtils-ParseXS/vendor/t/more.t b/3.8.8/sources/cpan-ExtUtils-ParseXS/vendor/t/more.t
deleted file mode 100644
index 2e55976..0000000
--- a/3.8.8/sources/cpan-ExtUtils-ParseXS/vendor/t/more.t
+++ /dev/null
@@ -1,110 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use Test::More;
-use Config;
-use DynaLoader;
-use ExtUtils::CBuilder;
-use attributes;
-use overload;
-
-plan tests => 25;
-
-my ($source_file, $obj_file, $lib_file);
-
-require_ok( 'ExtUtils::ParseXS' );
-ExtUtils::ParseXS->import('process_file');
-
-chdir 't' or die "Can't chdir to t/, $!";
-
-use Carp; $SIG{__WARN__} = \&Carp::cluck;
-
-#########################
-
-$source_file = 'XSMore.c';
-
-# Try sending to file
-ExtUtils::ParseXS->process_file(
- filename => 'XSMore.xs',
- output => $source_file,
-);
-ok -e $source_file, "Create an output file";
-
-my $quiet = $ENV{PERL_CORE} && !$ENV{HARNESS_ACTIVE};
-my $b = ExtUtils::CBuilder->new(quiet => $quiet);
-
-SKIP: {
- skip "no compiler available", 2
- if ! $b->have_compiler;
- $obj_file = $b->compile( source => $source_file );
- ok $obj_file;
- ok -e $obj_file, "Make sure $obj_file exists";
-}
-
-SKIP: {
- skip "no dynamic loading", 6
- if !$b->have_compiler || !$Config{usedl};
- my $module = 'XSMore';
- $lib_file = $b->link( objects => $obj_file, module_name => $module );
- ok $lib_file;
- ok -e $lib_file, "Make sure $lib_file exists";
-
- eval{
- package XSMore;
- our $VERSION = 42;
- our $boot_ok;
- DynaLoader::bootstrap_inherit(__PACKAGE__, $VERSION); # VERSIONCHECK disabled
-
- sub new{ bless {}, shift }
- };
- is $@, '';
- is ExtUtils::ParseXS::errors(), 0, 'ExtUtils::ParseXS::errors()';
-
- is $XSMore::boot_ok, 100, 'the BOOT keyword';
-
- ok XSMore::include_ok(), 'the INCLUDE keyword';
- is prototype(\&XSMore::include_ok), "", 'the PROTOTYPES keyword';
-
- is prototype(\&XSMore::prototype_ssa), '$$@', 'the PROTOTYPE keyword';
-
- is_deeply [attributes::get(\&XSMore::attr_method)], [qw(method)], 'the ATTRS keyword';
- is prototype(\&XSMore::attr_method), '$;@', 'ATTRS with prototype';
-
- is XSMore::return_1(), 1, 'the CASE keyword (1)';
- is XSMore::return_2(), 2, 'the CASE keyword (2)';
- is prototype(\&XSMore::return_1), "", 'ALIAS with prototype (1)';
- is prototype(\&XSMore::return_2), "", 'ALIAS with prototype (2)';
-
- is XSMore::arg_init(200), 200, 'argument init';
-
- ok overload::Overloaded(XSMore->new), 'the FALLBACK keyword';
- is abs(XSMore->new), 42, 'the OVERLOAD keyword';
-
- my @a;
- XSMore::hook(\@a);
- is_deeply \@a, [qw(INIT CODE POSTCALL CLEANUP)], 'the INIT & POSTCALL & CLEANUP keywords';
-
- is_deeply [XSMore::outlist()], [ord('a'), ord('b')], 'the OUTLIST keyword';
-
- is XSMore::len("foo"), 3, 'the length keyword';
-
- is XSMore::sum(5, 9), 14, 'the INCLUDE_COMMAND directive';
-
- # Win32 needs to close the DLL before it can unlink it, but unfortunately
- # dl_unload_file was missing on Win32 prior to perl change #24679!
- if ($^O eq 'MSWin32' and defined &DynaLoader::dl_unload_file) {
- for (my $i = 0; $i < @DynaLoader::dl_modules; $i++) {
- if ($DynaLoader::dl_modules[$i] eq $module) {
- DynaLoader::dl_unload_file($DynaLoader::dl_librefs[$i]);
- last;
- }
- }
- }
-}
-
-unless ($ENV{PERL_NO_CLEANUP}) {
- for ( $obj_file, $lib_file, $source_file) {
- next unless defined $_;
- 1 while unlink $_;
- }
-}
diff --git a/3.8.8/sources/cpan-File-Path/vendor/Changes b/3.8.8/sources/cpan-File-Path/vendor/Changes
deleted file mode 100644
index 3050e74..0000000
--- a/3.8.8/sources/cpan-File-Path/vendor/Changes
+++ /dev/null
@@ -1,135 +0,0 @@
-Revision history for Perl extension File::Path.
-
-2.08 2009-10-04 10:14:36 UTC
- - make_path() can now set user- and group-ownership
- on created directories. (Suggested by Jens Rehsack,
- CPAN #47558).
-
-2.07_03 2009-06-21 13:11:30 UTC
- - Merged 2.07_02 patches from blead
- - Remove stat checks on Windows platform (inhibits
- UNC path removals from working, and Windows is
- immune to this particular attack). CPAN #34701
-
-2.07 2008-11-09 13:05:50 UTC
- - Another VMS test tweak from Craig and additional
- improvements from Gisle.
-
-2.06_08 2008-11-05 00:11:17 UTC
- - More documentation tweaks from Gisle Aas.
- - VMS tweaks courtesy of Craig A. Berry (cpan #40512).
-
-2.06_07 2008-10-29 14:20:16 UTC
- - Silence 'uninitialized warning' reported in #36615.
- - Fix $Force_Writeable issue reported in #36982 (see also
- http://bugs.debian.org/487319).
- - Code style improvements and documentation improvements
- from Gisle Aas.
-
-2.06_06 2008-10-05 21:55:34 UTC
- - Documentation improvements, no code changes.
-
-2.06_05 2008-10-02 20:30:17 UTC
- - Introduce make_path() and rm_tree() API extension.
- - Remove problematic test revealed by Matt Kraal on QNX
- (see http://nntp.perl.org/group/perl.perl5.porters/140187)
-
-2.06_04 2008-05-13 14:28:10 UTC
- - Can't use \S+ if a directory name contains a space (which
- it will may do on Windows (the continuing saga of CPAN #35708)).
-
-2.06_03 2008-05-12 20:17:33 UTC
- - ancestor removal test getting slashed up on Windows
- (see CPAN #35708).
-
-2.06_02 2008-05-12 09:53:39 UTC
- - Problem on Windows where c:\path\to\dir was not considered
- to be underneath C:/Path/To (issues of directory separators
- and case sensitivity). As reported in smoke report
- http://www.nntp.perl.org/group/perl.cpan.testers/2008/05/msg1435813.html
-
-2.06_01 2008-05-10 20:54:35 UTC
- - Close directory handle in t/Path.t with closedir (close is
- close but incorrect). Problem identified with Strawberry
- Perl.
-
-2.06 2008-05-08 09:27:24 UTC
- - skip counts for ancestor rmpath() tests were wrong
- - fix old/new interface heuristics as per Gisle Aas
- http://www.nntp.perl.org/group/perl.perl5.porters/2008/05/msg136625.html
-
-2.05 2008-05-07 08:20:20 UTC
- - better diagnosics and less panicking when
- removing an ancestor path. Reported by Alan Ferrency
- and patch suggested by Michael Schilli (#31721).
- - fix typo spotted by Brendan O'Dea (#35623).
-
-2.04 2007-11-22 13:43:34 UTC
- - integrate blead change #32276 (rmtree a file on VMS)
- (see http://www.nntp.perl.org/group/perl.perl5.changes/2007/11/msg20108.html)
- - add a test to show that we can rmtree() a file
- - specify core prereqs in Makefile.PL (as per cpants)
-
-2.03 2007-11-04 18:11:51 UTC
- - On 5.8.x, the installation would be shadowed by the core
- files, and thus not be visible. Makefile.PL tweaked
- appropriately to ensure that the installation overwrites
- the core files. Users on 5.6 and below need not upgrade,
- users on 5.8 should. Bug spotted by imacat (#30459).
- - Minor changes to the way POD tests are initialised.
-
-2.02 2007-10-24 10:05:30 UTC
- - documentation correction fix only: corrected name of module
- File::Find::Rule. Users need not upgrade.
-
-2.01 2007-09-29 10:16:34 UTC
- - the documentation referred to 'skip_others', but the attribute
- is named 'safe'.
- - correctly test VMS behaviour when safe attribute is set.
-
-2.00_11 2007-09-08 12:51:30 UTC
- - depth attribute (for keep_root functiionality) was not
- correctly initialised in both old and new APIs
- - initial chdir() into a child dir would fail on strange
- protection masks (following race condition fix).
- - delete subsequent root paths even if a previous one fails
-
-2.00_10 2007-09-04 17:18:01 UTC
- - Infinite loop fix in _rmtree() for VMS (perl change #31775)
- - Documentation improvements
-
-2.00_09 2007-08-20 18:08:31 UTC
- - Fixed up a few oddments in the race prevention code
- - Reworded/reworked the diagnostics
-
-2.00_08 2007-08-01 00:04:35 UTC
- - Fix race condition in rmtree() as inspired by
- http://bugs.gentoo.org/show_bug.cgi?id=79685
-
-2.00_07 2007-07-09 19:33:52 UTC
- - 2.00_06 upload unfortunately contained blib directories
-
-2.00_06 2007-07-04 21:34:14 UTC
- - Incorporate code changes from blead
- - Skip counts off by one
-
-2.00_05 2007-06-27 21:23:25 UTC
- - Use catfile() instead of catdir() in _mkpath() for VMS,
- patch from Craig Berry.
- - Don't use warnings (my code doesn't have errors anyway),
- code change suggested by Rafael Garcia-Suarez.
- - Don't pass LICENSE key to WriteMakefile in Makefile.PL
- if the installed version of ExtUtils::MakeMaker is not
- sufficiently modern.
-
-1.99_02 2007-05-27 09:25:53 UTC
- - Don't allow a directory named '' (empty string) to be created.
- - File::Spec routines catdir() and updir() interact differently on Win32
- - $! needs to be managed more carefully on Win32
-
-1.99_01 2007-05-17 13:09:59 UTC
- - Dual-lifed from the Perl core distribution.
- - New-style interface added.
- - Extensive tests added to improve code coverage.
- - 5.005 compatibility restored
-
diff --git a/3.8.8/sources/cpan-File-Path/vendor/MANIFEST b/3.8.8/sources/cpan-File-Path/vendor/MANIFEST
deleted file mode 100644
index f58018c..0000000
--- a/3.8.8/sources/cpan-File-Path/vendor/MANIFEST
+++ /dev/null
@@ -1,12 +0,0 @@
-Changes
-MANIFEST This list of files
-MANIFEST.SKIP
-META.yml
-Makefile.PL
-Path.pm
-README
-TODO
-eg/setup-extra-tests
-t/Path.t
-t/pod.t
-t/taint.t
diff --git a/3.8.8/sources/cpan-File-Path/vendor/MANIFEST.SKIP b/3.8.8/sources/cpan-File-Path/vendor/MANIFEST.SKIP
deleted file mode 100644
index a2c7581..0000000
--- a/3.8.8/sources/cpan-File-Path/vendor/MANIFEST.SKIP
+++ /dev/null
@@ -1,3 +0,0 @@
-\B\.svn\b
-EXTRA
-MANIFEST.bak
diff --git a/3.8.8/sources/cpan-File-Path/vendor/META.yml b/3.8.8/sources/cpan-File-Path/vendor/META.yml
deleted file mode 100644
index 20450f8..0000000
--- a/3.8.8/sources/cpan-File-Path/vendor/META.yml
+++ /dev/null
@@ -1,25 +0,0 @@
---- #YAML:1.0
-name: File-Path
-version: 2.08
-abstract: Create or remove directory trees
-author:
- - David Landgren
-license: perl
-distribution_type: module
-configure_requires:
- ExtUtils::MakeMaker: 0
-build_requires:
- ExtUtils::MakeMaker: 0
-requires:
- Carp: 0
- Cwd: 0
- File::Basename: 0
- File::Spec: 0
-no_index:
- directory:
- - t
- - inc
-generated_by: ExtUtils::MakeMaker version 6.54
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
diff --git a/3.8.8/sources/cpan-File-Path/vendor/Makefile.PL b/3.8.8/sources/cpan-File-Path/vendor/Makefile.PL
deleted file mode 100644
index b1bf9e3..0000000
--- a/3.8.8/sources/cpan-File-Path/vendor/Makefile.PL
+++ /dev/null
@@ -1,41 +0,0 @@
-# generate Makefile for building File::Path
-#
-# Copyright (C) 2007 David Landgren
-
-use strict;
-use ExtUtils::MakeMaker;
-
-eval "use ExtUtils::MakeMaker::Coverage";
-$@ or print "Adding testcover target\n";
-
-my @license =
- do {
- my $version = $ExtUtils::MakeMaker::VERSION;
- $version =~ tr/_//d;
- $version
- } > 6.30
- ? qw(LICENSE perl)
- : ();
-
-my @extra_prereq = (
- $] < 5.006 ? ('Symbol' => 0) : (),
-);
-
-WriteMakefile(
- NAME => 'File::Path',
- VERSION_FROM => 'Path.pm',
- ABSTRACT_FROM => 'Path.pm',
- AUTHOR => 'David Landgren',
- INSTALLDIRS => ($] >= 5.008001 ? 'perl' : 'site'),
- PREREQ_PM => {
- 'Carp' => 0,
- 'Cwd' => 0,
- 'File::Basename' => 0,
- 'File::Spec' => 0,
- @extra_prereq,
- },
- clean => {
- FILES => 'cover_db',
- },
- @license,
-);
diff --git a/3.8.8/sources/cpan-File-Path/vendor/eg/setup-extra-tests b/3.8.8/sources/cpan-File-Path/vendor/eg/setup-extra-tests
deleted file mode 100644
index 26542bf..0000000
--- a/3.8.8/sources/cpan-File-Path/vendor/eg/setup-extra-tests
+++ /dev/null
@@ -1,89 +0,0 @@
-use strict;
-use File::Path; # heh
-use Getopt::Std;
-
-die "Not running as root (uid=$<)\n" if $<;
-
-getopts( 'u:', \my %opt );
-
-if (!exists $opt{u}) {
- die "You must specify a user (or uid) with the -u switch\n";
-}
-my ($uid, $gid) = $opt{u} =~ /\D/
- ? (getpwnam($opt{u}))[2,3]
- : (getpwuid($opt{u}))[2,3]
-;
-
-rmtree('EXTRA') if -d 'EXTRA';
-create_dir('EXTRA', 0755);
-
-# directory EXTRA/1 could be deleted by a
-# non-privileged account, including one file belonging to root.
-create_dir( 'EXTRA/1', 0777, $uid, $gid );
-create_file( 'EXTRA/1/a', 0600, $uid, $gid );
-create_file( 'EXTRA/1/b', 0400, $uid, $gid );
-
-# contents of EXTRA/2 can be removed by a
-# non-privileged account.
-create_dir( 'EXTRA/2', 0700, $uid, $gid );
-create_file( 'EXTRA/2/a', 0066, $<, $( );
-create_file( 'EXTRA/2/b', 0400, $<, $( );
-create_file( 'EXTRA/2/c', 0000, $uid, $gid );
-
-# directory EXTRA/3 contains sundry files
-create_dir( 'EXTRA/3', 0700, $uid, $gid );
-create_file( 'EXTRA/3/a', 0400, $<, $( );
-create_file( 'EXTRA/3/b', 0400, $uid, $gid );
-
-# directory EXTRA/4 is a symlink to EXTRA/3
-symlink './3', 'EXTRA/4' or die "symlink: $!";
-
-create_dir( 'EXTRA/3/M', 0700, $uid, $gid );
-create_file( 'EXTRA/3/M/xx', 0400, $uid, $gid );
-create_file( 'EXTRA/3/M/yy', 0400, $uid, $gid );
-create_dir( 'EXTRA/3/S', 0000, $<, $( );
-create_dir( 'EXTRA/3/T', 0000, $<, $( );
-create_dir( 'EXTRA/3/U', 0000, $<, $( );
-create_dir( 'EXTRA/3/V', 0700, $uid, $gid );
-symlink './M', 'EXTRA/3/N' or die "symlink: $!";
-
-# inaccessible child dir
-create_dir( 'EXTRA/5', 0700, $<, $( );
-create_file( 'EXTRA/5/xx', 0700, $<, $( );
-create_file( 'EXTRA/5/yy', 0700, $<, $( );
-chmod( 0200, 'EXTRA/5' );
-
-sub create_dir {
- my $dir = shift;
- my $mask = shift;
- my $uid = shift;
- my $gid = shift;
- if (!-d $dir) {
- mkdir $dir, $mask or die "mkdir $dir: $!\n";
- }
- if (defined $uid and defined $gid) {
- chown $uid, $gid, $dir
- or die "failed to chown dir $dir to ($uid,$gid)\n"
- }
-}
-
-sub create_file {
- my $file = shift;
- my $mask = shift;
- my $uid = shift;
- my $gid = shift;
- open OUT, "> $file" or die "Cannot open $file for output: $!\n";
- print OUT <<EOM;
-Test file for module File::Path
-If you can read this, feel free to delete this file.
-EOM
- close OUT;
- if ($uid and defined $gid) {
- chown $uid, $gid, $file
- or die "failed to chown $file to ($uid,$gid)\n"
- }
- if (defined $mask) {
- chmod $mask, $file
- or die "failed to chmod $file to $mask: $!\n";
- }
-}
diff --git a/3.8.8/sources/cpan-File-Path/vendor/t/Path.t b/3.8.8/sources/cpan-File-Path/vendor/t/Path.t
deleted file mode 100644
index 346f32a..0000000
--- a/3.8.8/sources/cpan-File-Path/vendor/t/Path.t
+++ /dev/null
@@ -1,660 +0,0 @@
-# Path.t -- tests for module File::Path
-
-use strict;
-
-use Test::More tests => 129;
-use Config;
-
-BEGIN {
- use_ok('Cwd');
- use_ok('File::Path', qw(rmtree mkpath make_path remove_tree));
- use_ok('File::Spec::Functions');
-}
-
-eval "use Test::Output";
-my $has_Test_Output = $@ ? 0 : 1;
-
-my $Is_VMS = $^O eq 'VMS';
-
-# first check for stupid permissions second for full, so we clean up
-# behind ourselves
-for my $perm (0111,0777) {
- my $path = catdir(curdir(), "mhx", "bar");
- mkpath($path);
- chmod $perm, "mhx", $path;
-
- my $oct = sprintf('0%o', $perm);
- ok(-d "mhx", "mkdir parent dir $oct");
- ok(-d $path, "mkdir child dir $oct");
-
- rmtree("mhx");
- ok(! -e "mhx", "mhx does not exist $oct");
-}
-
-# find a place to work
-my ($error, $list, $file, $message);
-my $tmp_base = catdir(
- curdir(),
- sprintf( 'test-%x-%x-%x', time, $$, rand(99999) ),
-);
-
-# invent some names
-my @dir = (
- catdir($tmp_base, qw(a b)),
- catdir($tmp_base, qw(a c)),
- catdir($tmp_base, qw(z b)),
- catdir($tmp_base, qw(z c)),
-);
-
-# create them
-my @created = mkpath([@dir]);
-
-is(scalar(@created), 7, "created list of directories");
-
-# pray for no race conditions blowing them out from under us
- at created = mkpath([$tmp_base]);
-is(scalar(@created), 0, "skipped making existing directory")
- or diag("unexpectedly recreated @created");
-
-# create a file
-my $file_name = catfile( $tmp_base, 'a', 'delete.me' );
-my $file_count = 0;
-if (open OUT, "> $file_name") {
- print OUT "this file may be deleted\n";
- close OUT;
- ++$file_count;
-}
-else {
- diag( "Failed to create file $file_name: $!" );
-}
-
-SKIP: {
- skip "cannot remove a file we failed to create", 1
- unless $file_count == 1;
- my $count = rmtree($file_name);
- is($count, 1, "rmtree'ed a file");
-}
-
- at created = mkpath('');
-is(scalar(@created), 0, "Can't create a directory named ''");
-
-my $dir;
-my $dir2;
-
-sub gisle {
- # background info: @_ = 1; !shift # gives '' not 0
- # Message-Id: <3C820CE6-4400-4E91-AF43-A3D19B356E68 at activestate.com>
- # http://www.nntp.perl.org/group/perl.perl5.porters/2008/05/msg136625.html
- mkpath(shift, !shift, 0755);
-}
-
-sub count {
- opendir D, shift or return -1;
- my $count = () = readdir D;
- closedir D or return -1;
- return $count;
-}
-
-{
- mkdir 'solo', 0755;
- chdir 'solo';
- open my $f, '>', 'foo.dat';
- close $f;
- my $before = count(curdir());
- cmp_ok($before, '>', 0, "baseline $before");
-
- gisle('1st', 1);
- is(count(curdir()), $before + 1, "first after $before");
-
- $before = count(curdir());
- gisle('2nd', 1);
- is(count(curdir()), $before + 1, "second after $before");
-
- chdir updir();
- rmtree 'solo';
-}
-
-{
- mkdir 'solo', 0755;
- chdir 'solo';
- open my $f, '>', 'foo.dat';
- close $f;
- my $before = count(curdir());
- cmp_ok($before, '>', 0, "ARGV $before");
- {
- local @ARGV = (1);
- mkpath('3rd', !shift, 0755);
- }
- is(count(curdir()), $before + 1, "third after $before");
-
- $before = count(curdir());
- {
- local @ARGV = (1);
- mkpath('4th', !shift, 0755);
- }
- is(count(curdir()), $before + 1, "fourth after $before");
-
- chdir updir();
- rmtree 'solo';
-}
-
-SKIP: {
- # tests for rmtree() of ancestor directory
- my $nr_tests = 6;
- my $cwd = getcwd() or skip "failed to getcwd: $!", $nr_tests;
- my $dir = catdir($cwd, 'remove');
- my $dir2 = catdir($cwd, 'remove', 'this', 'dir');
-
- skip "failed to mkpath '$dir2': $!", $nr_tests
- unless mkpath($dir2, {verbose => 0});
- skip "failed to chdir dir '$dir2': $!", $nr_tests
- unless chdir($dir2);
-
- rmtree($dir, {error => \$error});
- my $nr_err = @$error;
- is($nr_err, 1, "ancestor error");
-
- if ($nr_err) {
- my ($file, $message) = each %{$error->[0]};
- is($file, $dir, "ancestor named");
- my $ortho_dir = $^O eq 'MSWin32' ? File::Path::_slash_lc($dir2) : $dir2;
- $^O eq 'MSWin32' and $message
- =~ s/\A(cannot remove path when cwd is )(.*)\Z/$1 . File::Path::_slash_lc($2)/e;
- is($message, "cannot remove path when cwd is $ortho_dir", "ancestor reason");
- ok(-d $dir2, "child not removed");
- ok(-d $dir, "ancestor not removed");
- }
- else {
- fail( "ancestor 1");
- fail( "ancestor 2");
- fail( "ancestor 3");
- fail( "ancestor 4");
- }
- chdir $cwd;
- rmtree($dir);
- ok(!(-d $dir), "ancestor now removed");
-};
-
-my $count = rmtree({error => \$error});
-is( $count, 0, 'rmtree of nothing, count of zero' );
-is( scalar(@$error), 0, 'no diagnostic captured' );
-
- at created = mkpath($tmp_base, 0);
-is(scalar(@created), 0, "skipped making existing directories (old style 1)")
- or diag("unexpectedly recreated @created");
-
-$dir = catdir($tmp_base,'C');
-# mkpath returns unix syntax filespecs on VMS
-$dir = VMS::Filespec::unixify($dir) if $Is_VMS;
- at created = make_path($tmp_base, $dir);
-is(scalar(@created), 1, "created directory (new style 1)");
-is($created[0], $dir, "created directory (new style 1) cross-check");
-
- at created = mkpath($tmp_base, 0, 0700);
-is(scalar(@created), 0, "skipped making existing directories (old style 2)")
- or diag("unexpectedly recreated @created");
-
-$dir2 = catdir($tmp_base,'D');
-# mkpath returns unix syntax filespecs on VMS
-$dir2 = VMS::Filespec::unixify($dir2) if $Is_VMS;
- at created = make_path($tmp_base, $dir, $dir2);
-is(scalar(@created), 1, "created directory (new style 2)");
-is($created[0], $dir2, "created directory (new style 2) cross-check");
-
-$count = rmtree($dir, 0);
-is($count, 1, "removed directory unsafe mode");
-
-$count = rmtree($dir2, 0, 1);
-my $removed = $Is_VMS ? 0 : 1;
-is($count, $removed, "removed directory safe mode");
-
-# mkdir foo ./E/../Y
-# Y should exist
-# existence of E is neither here nor there
-$dir = catdir($tmp_base, 'E', updir(), 'Y');
- at created =mkpath($dir);
-cmp_ok(scalar(@created), '>=', 1, "made one or more dirs because of ..");
-cmp_ok(scalar(@created), '<=', 2, "made less than two dirs because of ..");
-ok( -d catdir($tmp_base, 'Y'), "directory after parent" );
-
- at created = make_path(catdir(curdir(), $tmp_base));
-is(scalar(@created), 0, "nothing created")
- or diag(@created);
-
-$dir = catdir($tmp_base, 'a');
-$dir2 = catdir($tmp_base, 'z');
-
-rmtree( $dir, $dir2,
- {
- error => \$error,
- result => \$list,
- keep_root => 1,
- }
-);
-
-is(scalar(@$error), 0, "no errors unlinking a and z");
-is(scalar(@$list), 4, "list contains 4 elements")
- or diag("@$list");
-
-ok(-d $dir, "dir a still exists");
-ok(-d $dir2, "dir z still exists");
-
-$dir = catdir($tmp_base,'F');
-# mkpath returns unix syntax filespecs on VMS
-$dir = VMS::Filespec::unixify($dir) if $Is_VMS;
-
- at created = mkpath($dir, undef, 0770);
-is(scalar(@created), 1, "created directory (old style 2 verbose undef)");
-is($created[0], $dir, "created directory (old style 2 verbose undef) cross-check");
-is(rmtree($dir, undef, 0), 1, "removed directory 2 verbose undef");
-
- at created = mkpath($dir, undef);
-is(scalar(@created), 1, "created directory (old style 2a verbose undef)");
-is($created[0], $dir, "created directory (old style 2a verbose undef) cross-check");
-is(rmtree($dir, undef), 1, "removed directory 2a verbose undef");
-
- at created = mkpath($dir, 0, undef);
-is(scalar(@created), 1, "created directory (old style 3 mode undef)");
-is($created[0], $dir, "created directory (old style 3 mode undef) cross-check");
-is(rmtree($dir, 0, undef), 1, "removed directory 3 verbose undef");
-
-$dir = catdir($tmp_base,'G');
-$dir = VMS::Filespec::unixify($dir) if $Is_VMS;
-
- at created = mkpath($dir, undef, 0200);
-is(scalar(@created), 1, "created write-only dir");
-is($created[0], $dir, "created write-only directory cross-check");
-is(rmtree($dir), 1, "removed write-only dir");
-
-# borderline new-style heuristics
-if (chdir $tmp_base) {
- pass("chdir to temp dir");
-}
-else {
- fail("chdir to temp dir: $!");
-}
-
-$dir = catdir('a', 'd1');
-$dir2 = catdir('a', 'd2');
-
- at created = make_path( $dir, 0, $dir2 );
-is(scalar @created, 3, 'new-style 3 dirs created');
-
-$count = remove_tree( $dir, 0, $dir2, );
-is($count, 3, 'new-style 3 dirs removed');
-
- at created = make_path( $dir, $dir2, 1 );
-is(scalar @created, 3, 'new-style 3 dirs created (redux)');
-
-$count = remove_tree( $dir, $dir2, 1 );
-is($count, 3, 'new-style 3 dirs removed (redux)');
-
- at created = make_path( $dir, $dir2 );
-is(scalar @created, 2, 'new-style 2 dirs created');
-
-$count = remove_tree( $dir, $dir2 );
-is($count, 2, 'new-style 2 dirs removed');
-
-if (chdir updir()) {
- pass("chdir parent");
-}
-else {
- fail("chdir parent: $!");
-}
-
-SKIP: {
- skip "This is not a MSWin32 platform", 1
- unless $^O eq 'MSWin32';
-
- my $UNC_path_taint = $ENV{PERL_FILE_PATH_UNC_TESTDIR};
- skip "PERL_FILE_PATH_UNC_TESTDIR environment variable not set", 1
- unless defined($UNC_path_taint);
-
- my ($UNC_path) = ($UNC_path_taint =~ m{^([/\\]{2}\w+[/\\]\w+[/\\]\w+)$});
-
- skip "PERL_FILE_PATH_UNC_TESTDIR environment variable does not point to a directory", 1
- unless -d $UNC_path;
-
- my $removed = rmtree($UNC_path);
- cmp_ok($removed, '>', 0, "removed $removed entries from $UNC_path");
-}
-
-SKIP: {
- # test bug http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=487319
- skip "Don't need Force_Writeable semantics on $^O", 4
- if grep {$^O eq $_} qw(amigaos dos epoc MSWin32 MacOS os2);
- skip "Symlinks not available", 4 unless $Config{d_symlink};
- $dir = 'bug487319';
- $dir2 = 'bug487319-symlink';
- @created = make_path($dir, {mask => 0700});
- is(scalar @created, 1, 'bug 487319 setup');
- symlink($dir, $dir2);
- ok(-e $dir2, "debian bug 487319 setup symlink") or diag($dir2);
-
- chmod 0500, $dir;
- my $mask_initial = (stat $dir)[2];
- remove_tree($dir2);
-
- my $mask = (stat $dir)[2];
- is( $mask, $mask_initial, 'mask of symlink target dir unchanged (debian bug 487319)');
-
- # now try a file
- my $file = catfile($dir, 'file');
- open my $out, '>', $file;
- close $out;
-
- chmod 0500, $file;
- $mask_initial = (stat $file)[2];
-
- my $file2 = catfile($dir, 'symlink');
- symlink($file, $file2);
- remove_tree($file2);
-
- $mask = (stat $file)[2];
- is( $mask, $mask_initial, 'mask of symlink target file unchanged (debian bug 487319)');
-
- remove_tree($dir);
-}
-
-# see what happens if a file exists where we want a directory
-SKIP: {
- my $entry = catdir($tmp_base, "file");
- skip "Cannot create $entry", 4 unless open OUT, "> $entry";
- print OUT "test file, safe to delete\n", scalar(localtime), "\n";
- close OUT;
- ok(-e $entry, "file exists in place of directory");
-
- mkpath( $entry, {error => \$error} );
- is( scalar(@$error), 1, "caught error condition" );
- ($file, $message) = each %{$error->[0]};
- is( $entry, $file, "and the message is: $message");
-
- eval {@created = mkpath($entry, 0, 0700)};
- $error = $@;
- chomp $error; # just to remove silly # in TAP output
- cmp_ok( $error, 'ne', "", "no directory created (old-style) err=$error" )
- or diag(@created);
-}
-
-my $extra = catdir(curdir(), qw(EXTRA 1 a));
-
-SKIP: {
- skip "extra scenarios not set up, see eg/setup-extra-tests", 14
- unless -e $extra;
- skip "Symlinks not available", 14 unless $Config{d_symlink};
-
- my ($list, $err);
- $dir = catdir( 'EXTRA', '1' );
- rmtree( $dir, {result => \$list, error => \$err} );
- is(scalar(@$list), 2, "extra dir $dir removed");
- is(scalar(@$err), 1, "one error encountered");
-
- $dir = catdir( 'EXTRA', '3', 'N' );
- rmtree( $dir, {result => \$list, error => \$err} );
- is( @$list, 1, q{remove a symlinked dir} );
- is( @$err, 0, q{with no errors} );
-
- $dir = catdir('EXTRA', '3', 'S');
- rmtree($dir, {error => \$error});
- is( scalar(@$error), 1, 'one error for an unreadable dir' );
- eval { ($file, $message) = each %{$error->[0]}};
- is( $file, $dir, 'unreadable dir reported in error' )
- or diag($message);
-
- $dir = catdir('EXTRA', '3', 'T');
- rmtree($dir, {error => \$error});
- is( scalar(@$error), 1, 'one error for an unreadable dir T' );
- eval { ($file, $message) = each %{$error->[0]}};
- is( $file, $dir, 'unreadable dir reported in error T' );
-
- $dir = catdir( 'EXTRA', '4' );
- rmtree($dir, {result => \$list, error => \$err} );
- is( scalar(@$list), 0, q{don't follow a symlinked dir} );
- is( scalar(@$err), 2, q{two errors when removing a symlink in r/o dir} );
- eval { ($file, $message) = each %{$err->[0]} };
- is( $file, $dir, 'symlink reported in error' );
-
- $dir = catdir('EXTRA', '3', 'U');
- $dir2 = catdir('EXTRA', '3', 'V');
- rmtree($dir, $dir2, {verbose => 0, error => \$err, result => \$list});
- is( scalar(@$list), 1, q{deleted 1 out of 2 directories} );
- is( scalar(@$error), 1, q{left behind 1 out of 2 directories} );
- eval { ($file, $message) = each %{$err->[0]} };
- is( $file, $dir, 'first dir reported in error' );
-}
-
-{
- $dir = catdir($tmp_base, 'ZZ');
- @created = mkpath($dir);
- is(scalar(@created), 1, "create a ZZ directory");
-
- local @ARGV = ($dir);
- rmtree( [grep -e $_, @ARGV], 0, 0 );
- ok(!-e $dir, "blow it away via \@ARGV");
-}
-
-SKIP: {
- my $skip_count = 8; # DRY
- skip "getpwent() not implemented on $^O", $skip_count
- unless $Config{d_getpwent};
- skip "getgrent() not implemented on $^O", $skip_count
- unless $Config{d_getgrent};
- skip 'not running as root', $skip_count
- unless $< == 0;
-
- my $dir_stem = $dir = catdir($tmp_base, 'owned-by');
-
- # find the highest uid ('nobody' or similar)
- my $max_uid = 0;
- my $max_user = undef;
- while (my @u = getpwent()) {
- if ($max_uid < $u[2]) {
- $max_uid = $u[2];
- $max_user = $u[0];
- }
- }
- skip 'getpwent() appears to be insane', $skip_count
- unless $max_uid > 0;
-
- # find the highest gid ('nogroup' or similar)
- my $max_gid = 0;
- my $max_group = undef;
- while (my @g = getgrent()) {
- if ($max_gid < $g[2]) {
- $max_gid = $g[2];
- $max_group = $g[0];
- }
- }
- skip 'getgrent() appears to be insane', $skip_count
- unless $max_gid > 0;
-
- $dir = catdir($dir_stem, 'aaa');
- @created = make_path($dir, {owner => $max_user});
- is(scalar(@created), 2, "created a directory owned by $max_user...");
- my $dir_uid = (stat $created[0])[4];
- is($dir_uid, $max_uid, "... owned by $max_uid");
-
- $dir = catdir($dir_stem, 'aab');
- @created = make_path($dir, {group => $max_group});
- is(scalar(@created), 1, "created a directory owned by group $max_group...");
- my $dir_gid = (stat $created[0])[5];
- is($dir_gid, $max_gid, "... owned by group $max_gid");
-
- $dir = catdir($dir_stem, 'aac');
- @created = make_path($dir, {user => $max_user, group => $max_group});
- is(scalar(@created), 1, "created a directory owned by $max_user:$max_group...");
- ($dir_uid, $dir_gid) = (stat $created[0])[4,5];
- is($dir_uid, $max_uid, "... owned by $max_uid");
- is($dir_gid, $max_gid, "... owned by group $max_gid");
-
- SKIP: {
- skip 'Test::Output not available', 1
- unless $has_Test_Output;
-
- # invent a user and group that don't exist
- do { ++$max_user } while (getpwnam($max_user));
- do { ++$max_group } while (getgrnam($max_group));
-
- $dir = catdir($dir_stem, 'aad');
- stderr_like(
- sub {make_path($dir, {user => $max_user, group => $max_group})},
- qr{\Aunable to map $max_user to a uid, ownership not changed: .* at \S+ line \d+
-unable to map $max_group to a gid, group ownership not changed: .* at \S+ line \d+\b},
- "created a directory not owned by $max_user:$max_group..."
- );
- }
-}
-
-SKIP: {
- skip 'Test::Output not available', 14
- unless $has_Test_Output;
-
- SKIP: {
- $dir = catdir('EXTRA', '3');
- skip "extra scenarios not set up, see eg/setup-extra-tests", 3
- unless -e $dir;
-
- $dir = catdir('EXTRA', '3', 'U');
- stderr_like(
- sub {rmtree($dir, {verbose => 0})},
- qr{\Acannot make child directory read-write-exec for [^:]+: .* at \S+ line \d+},
- q(rmtree can't chdir into root dir)
- );
-
- $dir = catdir('EXTRA', '3');
- stderr_like(
- sub {rmtree($dir, {})},
- qr{\Acannot make child directory read-write-exec for [^:]+: .* at (\S+) line (\d+)
-cannot make child directory read-write-exec for [^:]+: .* at \1 line \2
-cannot make child directory read-write-exec for [^:]+: .* at \1 line \2
-cannot remove directory for [^:]+: .* at \1 line \2},
- 'rmtree with file owned by root'
- );
-
- stderr_like(
- sub {rmtree('EXTRA', {})},
- qr{\Acannot remove directory for [^:]+: .* at (\S+) line (\d+)
-cannot remove directory for [^:]+: .* at \1 line \2
-cannot make child directory read-write-exec for [^:]+: .* at \1 line \2
-cannot make child directory read-write-exec for [^:]+: .* at \1 line \2
-cannot make child directory read-write-exec for [^:]+: .* at \1 line \2
-cannot remove directory for [^:]+: .* at \1 line \2
-cannot unlink file for [^:]+: .* at \1 line \2
-cannot restore permissions to \d+ for [^:]+: .* at \1 line \2
-cannot make child directory read-write-exec for [^:]+: .* at \1 line \2
-cannot remove directory for [^:]+: .* at \1 line \2},
- 'rmtree with insufficient privileges'
- );
- }
-
- my $base = catdir($tmp_base,'output');
- $dir = catdir($base,'A');
- $dir2 = catdir($base,'B');
-
- stderr_like(
- sub { rmtree( undef, 1 ) },
- qr/\ANo root path\(s\) specified\b/,
- "rmtree of nothing carps sensibly"
- );
-
- stderr_like(
- sub { rmtree( '', 1 ) },
- qr/\ANo root path\(s\) specified\b/,
- "rmtree of empty dir carps sensibly"
- );
-
- stderr_is( sub { make_path() }, '', "make_path no args does not carp" );
- stderr_is( sub { remove_tree() }, '', "remove_tree no args does not carp" );
-
- stdout_is(
- sub {@created = mkpath($dir, 1)},
- "mkdir $base\nmkdir $dir\n",
- 'mkpath verbose (old style 1)'
- );
-
- stdout_is(
- sub {@created = mkpath([$dir2], 1)},
- "mkdir $dir2\n",
- 'mkpath verbose (old style 2)'
- );
-
- stdout_is(
- sub {$count = rmtree([$dir, $dir2], 1, 1)},
- "rmdir $dir\nrmdir $dir2\n",
- 'rmtree verbose (old style)'
- );
-
- stdout_is(
- sub {@created = mkpath($dir, {verbose => 1, mask => 0750})},
- "mkdir $dir\n",
- 'mkpath verbose (new style 1)'
- );
-
- stdout_is(
- sub {@created = mkpath($dir2, 1, 0771)},
- "mkdir $dir2\n",
- 'mkpath verbose (new style 2)'
- );
-
- SKIP: {
- $file = catdir($dir2, "file");
- skip "Cannot create $file", 2 unless open OUT, "> $file";
- print OUT "test file, safe to delete\n", scalar(localtime), "\n";
- close OUT;
-
- ok(-e $file, "file created in directory");
-
- stdout_is(
- sub {$count = rmtree($dir, $dir2, {verbose => 1, safe => 1})},
- "rmdir $dir\nunlink $file\nrmdir $dir2\n",
- 'rmtree safe verbose (new style)'
- );
- }
-}
-
-SKIP: {
- skip "extra scenarios not set up, see eg/setup-extra-tests", 11
- unless -d catdir(qw(EXTRA 1));
-
- rmtree 'EXTRA', {safe => 0, error => \$error};
- is( scalar(@$error), 10, 'seven deadly sins' ); # well there used to be 7
-
- rmtree 'EXTRA', {safe => 1, error => \$error};
- is( scalar(@$error), 9, 'safe is better' );
- for (@$error) {
- ($file, $message) = each %$_;
- if ($file =~ /[123]\z/) {
- is(index($message, 'cannot remove directory: '), 0, "failed to remove $file with rmdir")
- or diag($message);
- }
- else {
- like($message, qr(\Acannot (?:restore permissions to \d+|chdir to child|unlink file): ), "failed to remove $file with unlink")
- or diag($message)
- }
- }
-}
-
-SKIP: {
- my $nr_tests = 6;
- my $cwd = getcwd() or skip "failed to getcwd: $!", $nr_tests;
- rmtree($tmp_base, {result => \$list} );
- is(ref($list), 'ARRAY', "received a final list of results");
- ok( !(-d $tmp_base), "test base directory gone" );
-
- my $p = getcwd();
- my $x = "x$$";
- my $xx = $x . "x";
-
- # setup
- ok(mkpath($xx), "make $xx");
- ok(chdir($xx), "... and chdir $xx");
- END {
- ok(chdir($p), "... now chdir $p");
- ok(rmtree($xx), "... and finally rmtree $xx");
- }
-
- # create and delete directory
- my $px = catdir($p, $x);
- ok(mkpath($px), 'create and delete directory 2.07');
- ok(rmtree($px), '.. rmtree fails in File-Path-2.07');
-}
diff --git a/3.8.8/sources/cpan-File-Remove/vendor/Makefile.PL b/3.8.8/sources/cpan-File-Remove/vendor/Makefile.PL
deleted file mode 100644
index 5c2ba72..0000000
--- a/3.8.8/sources/cpan-File-Remove/vendor/Makefile.PL
+++ /dev/null
@@ -1,10 +0,0 @@
-use inc::Module::Install 0.76;
-
-all_from 'lib/File/Remove.pm';
-requires 'File::Copy' => 0;
-requires 'File::Path' => 0;
-requires 'File::Glob' => 0;
-requires 'File::Spec' => '0.80';
-test_requires 'Test::More' => '0.42';
-
-WriteAll;
diff --git a/3.8.8/sources/cpan-File-Remove/vendor/inc/Module/Install/Can.pm b/3.8.8/sources/cpan-File-Remove/vendor/inc/Module/Install/Can.pm
deleted file mode 100644
index 2dbba40..0000000
--- a/3.8.8/sources/cpan-File-Remove/vendor/inc/Module/Install/Can.pm
+++ /dev/null
@@ -1,82 +0,0 @@
-#line 1
-package Module::Install::Can;
-
-use strict;
-use Module::Install::Base;
-use Config ();
-### This adds a 5.005 Perl version dependency.
-### This is a bug and will be fixed.
-use File::Spec ();
-use ExtUtils::MakeMaker ();
-
-use vars qw{$VERSION $ISCORE @ISA};
-BEGIN {
- $VERSION = '0.76';
- $ISCORE = 1;
- @ISA = qw{Module::Install::Base};
-}
-
-# check if we can load some module
-### Upgrade this to not have to load the module if possible
-sub can_use {
- my ($self, $mod, $ver) = @_;
- $mod =~ s{::|\\}{/}g;
- $mod .= '.pm' unless $mod =~ /\.pm$/i;
-
- my $pkg = $mod;
- $pkg =~ s{/}{::}g;
- $pkg =~ s{\.pm$}{}i;
-
- local $@;
- eval { require $mod; $pkg->VERSION($ver || 0); 1 };
-}
-
-# check if we can run some command
-sub can_run {
- my ($self, $cmd) = @_;
-
- my $_cmd = $cmd;
- return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));
-
- for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
- my $abs = File::Spec->catfile($dir, $_[1]);
- return $abs if (-x $abs or $abs = MM->maybe_command($abs));
- }
-
- return;
-}
-
-# can we locate a (the) C compiler
-sub can_cc {
- my $self = shift;
- my @chunks = split(/ /, $Config::Config{cc}) or return;
-
- # $Config{cc} may contain args; try to find out the program part
- while (@chunks) {
- return $self->can_run("@chunks") || (pop(@chunks), next);
- }
-
- return;
-}
-
-# Fix Cygwin bug on maybe_command();
-if ( $^O eq 'cygwin' ) {
- require ExtUtils::MM_Cygwin;
- require ExtUtils::MM_Win32;
- if ( ! defined(&ExtUtils::MM_Cygwin::maybe_command) ) {
- *ExtUtils::MM_Cygwin::maybe_command = sub {
- my ($self, $file) = @_;
- if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
- ExtUtils::MM_Win32->maybe_command($file);
- } else {
- ExtUtils::MM_Unix->maybe_command($file);
- }
- }
- }
-}
-
-1;
-
-__END__
-
-#line 157
diff --git a/3.8.8/sources/cpan-File-Remove/vendor/lib/File/Remove.pm b/3.8.8/sources/cpan-File-Remove/vendor/lib/File/Remove.pm
deleted file mode 100644
index 15df470..0000000
--- a/3.8.8/sources/cpan-File-Remove/vendor/lib/File/Remove.pm
+++ /dev/null
@@ -1,329 +0,0 @@
-package File::Remove;
-
-use 5.005;
-use strict;
-
-use vars qw{$VERSION @ISA @EXPORT_OK};
-use vars qw{$debug $unlink $rmdir};
-BEGIN {
- $VERSION = '1.42';
- @ISA = qw{ Exporter};
- @EXPORT_OK = qw{ remove rm clear trash };
-}
-
-# If we ever need a Mac::Glue object we will want to cache it.
-my $glue;
-
-use File::Spec ();
-use File::Path ();
-use File::Glob ();
-
-sub expand (@) {
- map { -e $_ ? $_ : File::Glob::bsd_glob($_) } @_;
-}
-
-# $debug variable must be set before loading File::Remove.
-# Convert to a constant to allow debugging code to be pruned out.
-use constant DEBUG => !! $debug;
-
-# Are we on VMS?
-# If so copy File::Path and assume VMS::Filespec is loaded
-use constant IS_VMS => !! ( $^O eq 'VMS' );
-
-# Are we on Mac?
-# If so we'll need to do some special trash work
-use constant IS_MAC => !! ( $^O eq 'darwin' );
-
-# Are we on Win32?
-# If so write permissions does not imply deletion permissions
-use constant IS_WIN32 => !! ( $^O =~ /^MSWin/ or $^O eq 'cygwin' );
-
-
-
-
-
-#####################################################################
-# Main Functions
-
-my @END_DELETE = ();
-
-sub clear (@) {
- my @files = expand( @_ );
-
- # Do the initial deletion
- foreach my $file ( @files ) {
- next unless -e $file;
- remove( \1, $file );
- }
-
- # Delete again at END-time
- push @END_DELETE, @files;
-}
-
-END {
- foreach my $file ( @END_DELETE ) {
- next unless -e $file;
- remove( \1, $file );
- }
-}
-
-# acts like unlink would until given a directory as an argument, then
-# it acts like rm -rf ;) unless the recursive arg is zero which it is by
-# default
-sub remove (@) {
- my $recursive = (ref $_[0] eq 'SCALAR') ? shift : \0;
- my @files = expand(@_);
-
- # Iterate over the files
- my @removes;
- foreach my $path ( @files ) {
- # need to check for symlink first
- # could be pointing to nonexisting/non-readable destination
- if ( -l $path ) {
- print "link: $path\n" if DEBUG;
- if ( $unlink ? $unlink->($path) : unlink($path) ) {
- push @removes, $path;
- }
- next;
- }
- unless ( -e $path ) {
- print "missing: $path\n" if DEBUG;
- push @removes, $path; # Say we deleted it
- next;
- }
- my $can_delete;
- if ( IS_VMS ) {
- $can_delete = VMS::Filespec::candelete($path);
- } elsif ( IS_WIN32 ) {
- # Assume we can delete it for the moment
- $can_delete = 1;
- } elsif ( -w $path ) {
- # We have write permissions already
- $can_delete = 1;
- } elsif ( $< == 0 ) {
- # Unixy and root
- $can_delete = 1;
- } elsif ( (lstat($path))[4] == $< ) {
- # I own the file
- $can_delete = 1;
- } else {
- # I don't think we can delete it
- $can_delete = 0;
- }
- unless ( $can_delete ) {
- print "nowrite: $path\n" if DEBUG;
- next;
- }
-
- if ( -f $path ) {
- print "file: $path\n" if DEBUG;
- unless ( -w $path ) {
- # Make the file writable (implementation from File::Path)
- (undef, undef, my $rp) = lstat $path or next;
- $rp &= 07777; # Don't forget setuid, setgid, sticky bits
- $rp |= 0600; # Turn on user read/write
- chmod $rp, $path;
- }
- if ( $unlink ? $unlink->($path) : unlink($path) ) {
- # Failed to delete the file
- next if -e $path;
- push @removes, $path;
- }
-
- } elsif ( -d $path ) {
- print "dir: $path\n" if DEBUG;
- my $dir = File::Spec->canonpath( $path );
- if ( $$recursive ) {
- if ( File::Path::rmtree( [ $dir ], DEBUG, 0 ) ) {
- # Failed to delete the directory
- next if -e $path;
- push @removes, $path;
- }
-
- } else {
- my ($save_mode) = (stat $dir)[2];
- chmod $save_mode & 0777, $dir; # just in case we cannot remove it.
- if ( $rmdir ? $rmdir->($dir) : rmdir($dir) ) {
- # Failed to delete the directory
- next if -e $path;
- push @removes, $path;
- }
- }
-
- } else {
- print "???: $path\n" if DEBUG;
- }
- }
-
- return @removes;
-}
-
-sub rm (@) {
- goto &remove;
-}
-
-sub trash (@) {
- local $unlink = $unlink;
- local $rmdir = $rmdir;
-
- if ( ref $_[0] eq 'HASH' ) {
- my %options = %{+shift @_};
- $unlink = $options{unlink};
- $rmdir = $options{rmdir};
-
- } elsif ( IS_WIN32 ) {
- local $@;
- eval 'use Win32::FileOp ();';
- die "Can't load Win32::FileOp to support the Recycle Bin: \$@ = $@" if length $@;
- $unlink = \&Win32::FileOp::Recycle;
- $rmdir = \&Win32::FileOp::Recycle;
-
- } elsif ( IS_MAC ) {
- unless ( $glue ) {
- local $@;
- eval 'use Mac::Glue ();';
- die "Can't load Mac::Glue::Finder to support the Trash Can: \$@ = $@" if length $@;
- $glue = Mac::Glue->new('Finder');
- }
- my $code = sub {
- my @files = map {
- Mac::Glue::param_type(
- Mac::Glue::typeAlias() => $_
- )
- } @_;
- $glue->delete(\@files);
- };
- $unlink = $code;
- $rmdir = $code;
- } else {
- die "Support for trash() on platform '$^O' not available at this time.\n";
- }
-
- goto &remove;
-}
-
-sub undelete (@) {
- goto &trash;
-}
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-File::Remove - Remove files and directories
-
-=head1 SYNOPSIS
-
- use File::Remove 'remove';
-
- # removes (without recursion) several files
- remove( '*.c', '*.pl' );
-
- # removes (with recursion) several directories
- remove( \1, qw{directory1 directory2} );
-
- # removes (with recursion) several files and directories
- remove( \1, qw{file1 file2 directory1 *~} );
-
- # trashes (with support for undeleting later) several files
- trash( '*~' );
-
-=head1 DESCRIPTION
-
-B<File::Remove::remove> removes files and directories. It acts like
-B</bin/rm>, for the most part. Although C<unlink> can be given a list
-of files, it will not remove directories; this module remedies that.
-It also accepts wildcards, * and ?, as arguments for filenames.
-
-B<File::Remove::trash> accepts the same arguments as B<remove>, with
-the addition of an optional, infrequently used "other platforms"
-hashref.
-
-=head1 SUBROUTINES
-
-=head2 remove
-
-Removes files and directories. Directories are removed recursively like
-in B<rm -rf> if the first argument is a reference to a scalar that
-evaluates to true. If the first arguemnt is a reference to a scalar
-then it is used as the value of the recursive flag. By default it's
-false so only pass \1 to it.
-
-In list context it returns a list of files/directories removed, in
-scalar context it returns the number of files/directories removed. The
-list/number should match what was passed in if everything went well.
-
-=head2 rm
-
-Just calls B<remove>. It's there for people who get tired of typing
-B<remove>.
-
-=head2 clear
-
-The C<clear> function is a version of C<remove> designed for
-use in test scripts. It takes a list of paths that it will both
-initially delete during the current test run, and then further
-flag for deletion at END-time as a convenience for the next test
-run.
-
-=head2 trash
-
-Removes files and directories, with support for undeleting later.
-Accepts an optional "other platforms" hashref, passing the remaining
-arguments to B<remove>.
-
-=over 4
-
-=item Win32
-
-Requires L<Win32::FileOp>.
-
-Installation not actually enforced on Win32 yet, since L<Win32::FileOp>
-has badly failing dependencies at time of writing.
-
-=item OS X
-
-Requires L<Mac::Glue>.
-
-=item Other platforms
-
-The first argument to trash() must be a hashref with two keys,
-'rmdir' and 'unlink', each referencing a coderef. The coderefs
-will be called with the filenames that are to be deleted.
-
-=back
-
-=head1 SUPPORT
-
-Bugs should always be submitted via the CPAN bug tracker
-
-L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=File-Remove>
-
-For other issues, contact the maintainer.
-
-=head1 AUTHOR
-
-Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-
-=head1 COPYRIGHT
-
-Some parts copyright 2006 - 2008 Adam Kennedy.
-
-Taken over by Adam Kennedy E<lt>adamk at cpan.orgE<gt>, to fix the
-"deep readonly files" bug, and do some more cleaning up.
-
-Some parts copyright 2004 - 2005 Richard Soderberg.
-
-Taken over by Richard Soderberg E<lt>perl at crystalflame.netE<gt>, so as
-to port it to L<File::Spec> and add tests.
-
-Original copyright: 1998 by Gabor Egressy, E<lt>gabor at vmunix.comE<gt>.
-
-This program is free software; you can redistribute and/or modify it under
-the same terms as Perl itself.
-
-=cut
diff --git a/3.8.8/sources/cpan-File-Remove/vendor/t/04_can_delete.t b/3.8.8/sources/cpan-File-Remove/vendor/t/04_can_delete.t
deleted file mode 100644
index 7fbef81..0000000
--- a/3.8.8/sources/cpan-File-Remove/vendor/t/04_can_delete.t
+++ /dev/null
@@ -1,87 +0,0 @@
-#!/usr/bin/perl
-
-# Test that File::Remove can recursively remove a directory that
-# deeply contains a readonly file that is owned by the current user.
-use strict;
-BEGIN {
- $| = 1;
- $^W = 1;
-}
-
-use Test::More qw(no_plan);
-use File::Spec::Functions ':ALL';
-use File::Copy ();
-use File::Remove ();
-
-
-
-
-
-#####################################################################
-# Set up for the test
-
-my $in = catdir( curdir(), 't' );
-ok( -d $in, 'Found t dir' );
-my $d1 = catdir( $in, 'd1' );
-my $d2 = catdir( $d1, 'd2' );
-my $f3 = catfile( $d2, 'f3.txt' );
-
-sub create_directory {
- mkdir $d1 or die "Failed to create $d1";
- ok( -d $d1, "Created $d1 ok" );
- ok( -r $d1, "Created $d1 -r" );
- ok( -w $d1, "Created $d1 -w" );
- mkdir $d2 or die "Failed to create $d2";
- ok( -d $d2, "Created $d2 ok" );
- ok( -r $d2, "Created $d2 -r" );
- ok( -w $d2, "Created $d2 -w" );
- # Copy in a known-readonly file (in this case, the File::Spec lib we are using
- File::Copy::copy( $INC{'File/Spec.pm'} => $f3 );
- chmod( 0400, $f3 );
- ok( -f $f3, "Created $f3 ok" );
- ok( -r $f3, "Created $f3 -r" );
- SKIP: {
- if ( $^O ne 'MSWin32' and $< == 0 ) {
- skip("This test doesn't work as root", 1);
- }
- ok( ! -w $f3, "Created $f3 ! -w" );
- };
-}
-
-sub clear_directory {
- if ( -e $f3 ) {
- chmod( 0700, $f3 ) or die "chmod 0700 $f3 failed";
- unlink( $f3 ) or die "unlink: $f3 failed";
- ! -e $f3 or die "unlink didn't work";
- }
- if ( -e $d2 ) {
- rmdir( $d2 ) or die "rmdir: $d2 failed";
- ! -e $d2 or die "rmdir didn't work";
- }
- if ( -e $d1 ) {
- rmdir( $d1 ) or die "rmdir: $d1 failed";
- ! -e $d1 or die "rmdir didn't work";
- }
-}
-
-# Make sure there is no directory from a previous run
-clear_directory();
-
-# Create the directory
-create_directory();
-
-# Schedule cleanup
-END {
- clear_directory();
-}
-
-
-
-
-
-#####################################################################
-# Main Testing
-
-# Call a recursive remove of the directory, nothing should be left after
-is_deeply( [ File::Remove::remove( $f3 ) ], [ $f3 ], "remove('$f3') ok" );
-ok( ! -e $f3, "Removed the file ok" );
diff --git a/3.8.8/sources/cpan-File-Temp/vendor/ChangeLog b/3.8.8/sources/cpan-File-Temp/vendor/ChangeLog
deleted file mode 100644
index 25324c5..0000000
--- a/3.8.8/sources/cpan-File-Temp/vendor/ChangeLog
+++ /dev/null
@@ -1,377 +0,0 @@
-2008-11-12 Tim Jenness <timj at poma.jach.hawaii.edu>
-
- ---- Release V0.21 CPAN ----
-
- * Temp.pm: Clean out $FILES_CREATED_BY_OBJECT when the destructor
- runs. Otherwise memory does not get returned. Really bad idea for
- daemons. (Thanks to Maxime Therreault RT #37621)
-
- * Temp.pm: Integrate patches from bleadperl for cygwin. (thanks to
- Jari Aalto RT #36376)
-
- * t/seekable.t: seekable test was failing on perl 5.6.0 so we now
- skip the specific test. (thanks to Zefram)
-
- * Temp.pm: Remove the test on the parent directory to see if a file
- can be written. This will be found out anyway as soon as the file open
- is attempted. AFS systems may fail a -w test but still allow a file to
- be created. (thanks to Christopher Ellison)
-
- * Temp.pm: Put an eval around rmtree. Some versions of rmtree croak
- if you attempt to remove a directory that you are inside. (debian bug
- 479317 and RT #35779).
-
-2008-03-15 Tim Jenness <tjenness at cpan.org>
-
- * Temp.pm: Localize special variables in END blocks and destructors.
-
-2007-12-20 Tim Jenness <tjenness at cpan.org>
-
- ---- Release V0.20 CPAN ----
-
- * t/lock.t: Fix logic problem with BEGIN block that was causing grief on some
- systems (thanks to Steve Peters for patch).
-
-2007-11-19 Tim Jenness <tjenness at cpan.org>
-
- ----- Release V0.19 CPAN -----
-
- * Temp.pm (tempfile): Add EXLOCK option which can be used to disable O_EXLOCK
-
- * t/lock.t: Test ability to disable O_EXLOCK
-
-2007-11-16 Tim Jenness <tjenness at cpan.org>
-
- * Temp.pm (newdir): Add object oriented interface to "tempdir". Use
- File::Temp->newdir()
-
-2007-11-15 Tim Jenness <tjenness at cpan.org>
-
- * Temp.pm (tempdir): Add a note to the tempdir documentation to
- clarify that the default is for the directory not to be temporary
- and that use of an OO approach may be required (thanks to David
- Golden's annotation on CPAN).
-
- * Temp.pm (_randchar): Remove _randchar function (no longer used)
-
- * Temp.pm: Add note about File::Tempdir module
-
-2007-11-14 Tim Jenness <tjenness at cpan.org>
-
- * Temp.pm (new): Track pid used when file created and make sure
- object destructor deletes the file only when the current pid
- matches the original pid (RT#11067 again - thanks to Grousse)
- Added new test (fork.t) to test this behaviour.
-
- * t/seekable.t: Add tests to verify fix for RT#22052
-
-2007-11-01 Tim Jenness <tjenness at cpan.org>
-
- * Temp.pm (_is_safe): Correct cluck message to match uid check
- (thanks to Alexey Tourbin RT #14218)
-
- * Temp.pm: Add note on use of binmode to modify encoding. (prompted
- by Wolfgang Husmann)
-
-2007-10-31 Tim Jenness <tjenness at cpan.org>
-
- * Temp.pm (tempfile): Add TMPDIR flag to simplify
- tempdir(template, DIR => File::Spec->tmpdir) and to remove confusion
- for tempdir interface. (thanks to Brendan O'Dea - debian bug #351373)
-
- * META.yml: Update to v1.0 spec YAML spec. (thanks to Alexandr Ciornii RT# 23524)
-
- * Temp.pm: Localize $@ when using eval to prevent leakage (prompted by Zefram)
-
- * Makefile.PL: Support LICENSE in newer ExtUtils::MakeMaker implementations
- (thanks to Alexandr Ciornii RT #23524)
-
-2007-10-31 Tim Jenness <tjenness at cpan.org>
-
- * t/seekable.t: Skip seek test on older IO::Seekable versions.
- (thanks to Sebastien Aperghis-Tramoni RT #23524)
-
- * Temp.pm: Allow XXX replacement to run on perl 5.005 and 5.004.
- (thanks to Sebastien Aperghis-Tramoni RT #23524)
-
-2007-10-29 Tim Jenness <tjenness at cpan.org>
-
- * Temp.pm: Fix range of random character determination such that the last character
- in the list (_) will appear occassionally. (Thanks to Peter Dintelmann perl RT# 41345)
-
- * Temp.pm: Clarify error message when parent directory does not exist (thanks to
- Peter Dintelmann perl RT # 41346)
-
- * Temp.pm: Carp::Heavy does not exist on older perls (eg 5.005) so wrap the require
- in an eval (Thanks to Sebastien Aperghis-Tramoni, Jesse Vincent, Slaven Rezic
- and Robin Barker RT #26841)
-
- * Temp.pm: Replace "new File::Temp" with "File::Temp->new" at the behest of H. Merijn
- Brand
-
-2007-01-21 Tim Jenness <tjenness at cpan.org>
-
- --- RELEASE 0.18 CPAN ---
-
- * Temp.pm: Provide "cmp" overloading so File::Temp object can
- be compared to filename directly. (Rafael Garcia-Suarez)
-
- * Temp.pm: Remove umask control (was not thread-safe)
- (thanks to Peter Dintelmann, Gisle Aas)
-
- * t/cmp.t: New test file
-
- * Temp.pm: Export SEEK_* constants (Matt Lawrence RT #22052)
-
-2006-08-18 Tim Jenness <tjenness at cpan.org>
-
- --- RELEASE 0.17 CPAN ----
-
- * Temp.pm: Also inherit from IO::Seekable so that seek and tell
- methods can work on filehandles (thanks to Rick Myers and Toby Corkindale).
-
- * t/seekable.t: Add test script from Rick Myers.
-
- * Temp.pm: Add note about forking and resetting the random number generator
- to prevent multiple clashes of temp file names. (pointed out by Brent Cowgill)
-
- * Temp.pm: 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. (pointed out by bjoern_at_hoehrmann.de RT #14151)
-
- * Temp.pm: Remove eg. from comments and replace with e.g. In pod
- replace "e.g." with "for example". (David Landgren)
-
- * Temp.pm: Correct synopsis concerning the arguments to the
- File::Temp constructor (Peter Valdemar Moerch).
-
- * Temp.pm: Update documentation to note that croak() will be
- called by tempfile() and File::Temp->new if a problem occurs (thanks to Steve
- Hay for pointing this out).
-
-2005-09-01 Tim Jenness <tjenness at cpan.org>
-
- * Temp.pm: Sebastien Aperghis-Tramoni indicates that File::Temp
- works with perl 5.004 so change the minimum perl version. (RT #14149)
-
- * Temp.pm: Use effective uid rather than real uid (Alexey Tourbin RT #14218)
-
-2005-02-22 Tim Jenness <tjenness at cpan.org>
-
- --- RELEASE V0.16 ---
-
- * Temp.pm: Remove spurious debug statement
-
-2005-02-21 Tim Jenness <tjenness at cpan.org>
-
- --- RELEASE V0.15 ---
-
- * Temp.pm (unlink_on_destroy): Add post-object creation method to
- control whether the temp file will be unlinked when the object
- goes out of scope.
-
- * Temp.pm: Increase maximum number of tries before aborting.
-
- * Temp.pm: Add $KEEP_ALL to allow the temporary files to be
- retained whilst debugging (suggestion from Ed Avis [and others]).
-
- * Temp.pm: Temp files should have been opened O_NOFOLLOW rather
- than O_FOLLOW! (thanks to Marc Tardif)
-
- * Temp.pm: Add cleanup() function so that temp files that would be
- removed by an END block can be removed by a daemon. (RT wishlist
- item #6928 by Robert Rothenberg)
-
- * Temp.pm: Force chmod on file before unlinking it. This can be a
- problem on windows (see RT bug #6935). tempdir() has been fixed by
- Slaven's earlier patch to change the rmtree arguments.
-
- * Temp.pm (top_system_uid): Add interix patch from Todd Vierling
-
- * Temp.pm (_gettemp): Pod patch from Steven Lembark clarifying the
- error message associated with two few XXXXs
-
- * Temp.pm: Add note on forking and make sure that END blocks only
- remove temporary files created by the current process ID (prompted
- by Daniel Macks in RT bug #11067)
-
- * Temp.pm (cmpstat): Roman Vasicek reported problems with the _
- filehandle. Play it safe and remove that handle. (see RT bug #8822)
-
- * t/tempfile.t: Add test for write proteceted temp file (thanks to
- Slaven Rezic)
-
- * Temp.pm (_can_do_level): Change argument to rmtree to make it
- attempt to remove write-protected files on cleanup (thanks to
- Slaven Rezic)
-
- * Temp.pm: Add note on binmode usage
-
-2003-08-16 Tim Jenness <tjenness at cpan.org>
-
- --- RELEASE V0.14 ---
-
- * t/object.t: Add test of OO interface and switch to Test::More
-
- * Temp.pm: Add object-oriented interface.
-
- * Temp.pm: mpeix fixes from Ken Hirsch <hirschk at labcorp.com>
-
-2003-08-15 Tim Jenness <tjenness at cpan.org>
-
- --- RELEASE V0.13 ---
-
- * Temp.pm: Integrate doc fixes from bleadperl (Slaven Rezic and
- Jeffrey Friedl)
-
- * Makefile.PL: Add INSTALLDIRS switch on perl version so that the
- module installs into the correct place for perl 5.6.1 and newer.
-
-2002-08-28 Tim Jenness <tjenness at cpan.org>
-
- * Temp.pm: Synch with perl 5.8.0 v0.13 MacOS fixes (Chris Nandor)
-
-2001-02-22 Tim Jenness <tjenness at cpan.org>
-
- --- RELEASE V0.12 ---
-
- * t/posix.t: The unlink0 tests now skip on failure
-
- * t/mktemp.t: The unlink0 tests now skip on failure
-
- * Temp.pm (tmpfile): tmpfile returns undef on failure rather than
- croaking.
-
-2001-02-21 Tim Jenness <tjenness at cpan.org>
-
- * Temp.pm:
- -Add fix for CGI::Carp
- [Thanks to John Labovitz <johnl at valiha.inside.sealabs.com>]
- - Use error string to propogate reason rather than a carp
-
-2000-11-24 Tim Jenness <tjenness at cpan.org>
-
- --- RELEASE V0.11 ----
-
- * t/tempfile.t: Add a test to make sure the file is present after
- close and another to use tempfile in a scalar context.
-
- * Temp.pm: Fix bug on NT with O_TEMPORARY causing the file to be
- removed before the program exits.
-
- ---- RELEASE V0.10 ----
-
- * Temp.pm: Incorporate fixes up to bleedperl 7825. Cross platform
- fixes.
-
- * t/security.t: Incorporate fixes from bleedperl 7825 - adds more
- cross platform support and more skips on the basis that this is
- not testing your system security, just the module.
-
-2000-08-16 Tim Jenness <tjenness at cpan.org>
-
- * Temp.pm (_gettemp): Dont use VMS::Stdio if we want the file
- to remain after closing.
-
-2000-08-15 Tim Jenness <tjenness at cpan.org>
-
- * Temp.pm (_can_do_level): cygwin patch
-
-2000-08-14 Tim Jenness <tjenness at cpan.org>
-
- * Temp.pm: Add OPENTEMPFLAGS to support UNLINK=>0
- More tweaks to VMS support (now uses VMS::Stdio)
-
-2000-07-26 Tim Jenness <tjenness at cpan.org>
-
- * Release V0.09 to CPAN
-
- * README: Update for V0.09
-
-2000-07-25 Tim Jenness <tjenness at cpan.org>
-
- * t/security.t: OS/2 can not do the security tests.
-
- * Temp.pm: Add Support for VMS and OS/2
-
-2000-05-15 Tim Jenness <tjenness at cpan.org>
-
- * Release V0.08 to CPAN
-
- * t/mktemp.t: Skip the test for unlink0 if it fails since in most
- cases this indicates an NFS problem.
-
- * Temp.pm (_can_do_level): Add check to make sure an OS can handle
- the required safe level
- (safe_level): Check the level can be supported before allowing it
- to change
- (END): Change order of cleanup so that files are removed ahead of
- temp dirs (since files may be in the temp dirs)
-
-2000-05-08 Tim Jenness <tjenness at cpan.org>
-
- * Temp.pm: Reorganize END block
-
- * t/tempfile.t: Correct tests for new position of END{} block
-
- * t/security.t: Correct tests for new position of END{} block
-
- * t/posix.t: add # to print output
-
- * t/tempfile.t: Add # to print output
-
- * t/mktemp.t: Add # to print output
-
- * t/security.t: Add # to print output
-
-2000-04-28 Tim Jenness <tjenness at cpan.org>
-
- * Temp.pm: Calculate OPENFLAGS outside of subroutine. This
- improves speed of the commands by nearly a factor of 3.
- (_replace_XX): Inline the character replacement code rather than
- using _randchar subroutine. Improves performance by an additional 8%.
-
-2000-04-27 Tim Jenness <tjenness at cpan.org>
-
- * t/posix.t: Add explicit autoflush on filehandle
-
- * t/mktemp.t: Add explicit autoflush on filehandle
-
- * Temp.pm: (unlink0): Disallow HIGH and MEDIUM tests if running
- perl 5.005 or earlier.
-
- * t/security.t: Specify perl version to allow for tests
-
- * Add support for perl 5.005 (remove 'our' and auto-vivifying file
- handles). VERSION NUMBER NOW 0.07
-
- * README: Update in preparation for V0.06
-
- * Temp.pm (_deferred_unlink): Add new internal routine to centralise the
- configuring of END blocks. This also fixes a bug where only the
- first file was being unlinked in the END block (due to scoping).
-
- (_can_unlink_opened_file): Rename from _can_unlink. Will now
- return false if running on Windows.
-
- (_is_verysafe): If _PC_CHOWN_RESTRICTED is not available assume
- that "chown giveaway" is possible anyway.
-
- (unlink0): If can not unlink an open file, simply defer removal
- until later.
-
- (_gettemp): Add O_NOINHERIT and O_TEMPORARY flags to sysopen if
- they are available (Thanks to Tom Christiansen for this)
-
- * t/mktemp.t: Add test
-
- * t/posix.t: Add test
-
- * t/security.t: Add test
-
- * t/tempfile.t: Add test
-
-2000-03-14 Tim Jenness <tjenness at cpan.org>
-
- * Release v0.05 to CPAN
diff --git a/3.8.8/sources/cpan-File-Temp/vendor/Temp.pm b/3.8.8/sources/cpan-File-Temp/vendor/Temp.pm
deleted file mode 100644
index a2d4ae0..0000000
--- a/3.8.8/sources/cpan-File-Temp/vendor/Temp.pm
+++ /dev/null
@@ -1,2452 +0,0 @@
-package File::Temp;
-
-=head1 NAME
-
-File::Temp - return name and handle of a temporary file safely
-
-=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 C<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 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.
-
-=cut
-
-# 5.6.0 gives us S_IWOTH, S_IWGRP, our and auto-vivifying filehandls
-# People would like a version on 5.004 so give them what they want :-)
-use 5.004;
-use strict;
-use Carp;
-use File::Spec 0.8;
-use File::Path qw/ rmtree /;
-use Fcntl 1.03;
-use IO::Seekable; # For SEEK_*
-use Errno;
-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 base qw/ IO::Handle IO::Seekable /;
-use overload '""' => "STRINGIFY", fallback => 1;
-
-# use 'our' on v5.6.0
-use vars qw($VERSION @EXPORT_OK %EXPORT_TAGS $DEBUG $KEEP_ALL);
-
-$DEBUG = 0;
-$KEEP_ALL = 0;
-
-# We are exporting functions
-
-use base qw/Exporter/;
-
-# Export list - to allow fine tuning of export table
-
- at 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');
-
-# Version number
-
-$VERSION = '0.22';
-
-# 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 occassionally
-# 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 avialable 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 ($^O eq 'MSWin32' || $^O eq 'os2' || $^O eq 'VMS' || $^O eq 'dos' || $^O eq 'MacOS') {
- 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 expclicitly 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();
- }
-
- # Cleanup function. Always triggered on END but can be invoked
- # manually.
- sub cleanup {
- 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 dont 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{$$} } : () );
- foreach my $dir (@dirs) {
- if (-d $dir) {
- # 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
- # cleanup and so can not be caught by the user.
- eval { rmtree($dir, $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;
-
- # 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;
- }
-
- }
-
- }
-
-
-}
-
-=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. Also,
-the object is configured such that it stringifies to the name of the
-temporary file, and can be compared to a filename directly. The object
-isa C<IO::Handle> and isa C<IO::Seekable> so all those methods are
-available.
-
-=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.
-
-=cut
-
-sub new {
- my $proto = shift;
- my $class = ref($proto) || $proto;
-
- # read arguments and convert keys to upper case
- my %args = @_;
- %args = map { uc($_), $args{$_} } keys %args;
-
- # see if they are unlinking (defaulting to yes)
- my $unlink = (exists $args{UNLINK} ? $args{UNLINK} : 1 );
- delete $args{UNLINK};
-
- # template (store it in an array so that it will
- # disappear from the arg list of tempfile)
- my @template = ( exists $args{TEMPLATE} ? $args{TEMPLATE} : () );
- delete $args{TEMPLATE};
-
- # Protect OPEN
- delete $args{OPEN};
-
- # Open the file and retain file handle and file name
- my ($fh, $path) = tempfile( @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;
-}
-
-=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 );
-
-=cut
-
-sub newdir {
- my $self = shift;
-
- # need to handle args as in tempdir because we have to force CLEANUP
- # default without passing CLEANUP to tempdir
- my $template = (scalar(@_) % 2 == 1 ? shift(@_) : undef );
- my %options = @_;
- my $cleanup = (exists $options{CLEANUP} ? $options{CLEANUP} : 1 );
-
- delete $options{CLEANUP};
-
- my $tempdir;
- if (defined $template) {
- $tempdir = tempdir( $template, %options );
- } else {
- $tempdir = tempdir( %options );
- }
- return bless { DIRNAME => $tempdir,
- CLEANUP => $cleanup,
- LAUNCHPID => $$,
- }, "File::Temp::Dir";
-}
-
-=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.
-
-=cut
-
-sub filename {
- my $self = shift;
- return ${*$self};
-}
-
-sub STRINGIFY {
- my $self = shift;
- return $self->filename;
-}
-
-=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.
-
-=cut
-
-sub unlink_on_destroy {
- my $self = shift;
- if (@_) {
- ${*$self}{UNLINK} = shift;
- }
- return ${*$self}{UNLINK};
-}
-
-=item B<DESTROY>
-
-When the object goes out of scope, the destructor is called. This
-destructor will attempt to unlink the file (using C<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.
-
-If the global variable $KEEP_ALL is true, the file or directory
-will not be removed.
-
-=cut
-
-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);
- }
-}
-
-=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.
-
-=cut
-
-sub tempfile {
-
- # 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 $template = (scalar(@_) % 2 == 1 ? shift(@_) : undef);
-
- # Read the options and merge with defaults
- %options = (%options, @_) if @_;
-
- # 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: $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;
- }
-
-
-}
-
-=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.
-
-=cut
-
-# '
-
-sub tempdir {
-
- # 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 $template = (scalar(@_) % 2 == 1 ? shift(@_) : undef );
-
- # Read the options and merge with defaults
- %options = (%options, @_) if @_;
-
- # 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;
-
-}
-
-=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.
-
-=cut
-
-
-
-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;
- }
-
-}
-
-
-=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.
-
-=cut
-
-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;
- }
-
-}
-
-=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.
-
-=cut
-
-#' # 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;
-
-}
-
-=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.
-
-=cut
-
-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;
-}
-
-=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.
-
-=cut
-
-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);
- }
-
-}
-
-=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.
-
-=cut
-
-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;
-
-}
-
-=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.
-
-=cut
-
-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);
-
-}
-
-=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.
-
-=cut
-
-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 cant know that
- # we are on NFS
- return ( $fh[3] == 0 or $^O eq 'cygwin' ? 1 : 0);
-
- } else {
- _deferred_unlink($fh, $path, 0);
- return 1;
- }
-
-}
-
-=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.
-
-=cut
-
-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;
-}
-
-=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.
-
-=cut
-
-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);
-}
-
-=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.
-
-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;
-
-=cut
-
-{
- # 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 {
- # Dont 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;
- }
-}
-
-=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.
-
-=cut
-
-{
- 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;
- }
-}
-
-=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, use C<"/dev/fd/" . fileno($fh)> for arbitrary
-programs, or more generally C<< "+<=&" . fileno($fh) >> for Perl
-programs. 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 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.
-
-=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.
-
-=head1 AUTHOR
-
-Tim Jenness E<lt>tjenness at cpan.orgE<gt>
-
-Copyright (C) 2007-2009 Tim Jenness.
-Copyright (C) 1999-2007 Tim Jenness and the UK Particle Physics and
-Astronomy Research Council. All Rights Reserved. This program is free
-software; you can redistribute it and/or modify it under the same
-terms as Perl itself.
-
-Original Perl implementation loosely based on the OpenBSD C code for
-mkstemp(). Thanks to Tom Christiansen for suggesting that this module
-should be written and providing ideas for code improvements and
-security enhancements.
-
-=cut
-
-package File::Temp::Dir;
-
-use File::Path qw/ rmtree /;
-use strict;
-use overload '""' => "STRINGIFY", 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->{DIRNAME}) {
- # 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->{DIRNAME}, $File::Temp::DEBUG, 0); };
- warn $@ if ($@ && $^W);
- }
- }
-}
-
-
-1;
diff --git a/3.8.8/sources/cpan-File-Temp/vendor/misc/benchmark.pl b/3.8.8/sources/cpan-File-Temp/vendor/misc/benchmark.pl
deleted file mode 100755
index bdea837..0000000
--- a/3.8.8/sources/cpan-File-Temp/vendor/misc/benchmark.pl
+++ /dev/null
@@ -1,42 +0,0 @@
-#!/usr/local/bin/perl -w
-
-# Simple benchmark of temporary file creation (no filename just a handle)
-# Uses the following:
-# - temporary file creation created by IO::File
-# - temporary file creation using File::Temp (uses security checking)
-# - A roll-our-own wrapper on top of POSIX::tempnam (essentially
-# a compact form of File::Temp without all the extras) taken from
-# the Perl cookbook
-
-# Would not
-
-use strict;
-use Benchmark;
-use IO::File;
-use POSIX qw/ tmpnam /;
-use File::Temp qw/ tempfile /;
-use Symbol;
-
-# Benchmark IO::File and File::Temp
-
-timethese(10000, {
- 'IO::File' => sub {
- my $fh = IO::File::new_tmpfile || die $ !;
- },
- 'File::Temp::tempfile' => sub {
- my $fh = tempfile() || die $ !;
- },
- 'POSIX::tmpnam' => sub {
- my $fh = gensym;;
- my $name;
- for (;;) {
- $name = tmpnam();
- sysopen( $fh, $name, O_RDWR | O_CREAT | O_EXCL )
- && last;
- }
- unlink $name;
- }
- }
- );
-
-
diff --git a/3.8.8/sources/cpan-Filter/vendor/Call/Call.pm.bak b/3.8.8/sources/cpan-Filter/vendor/Call/Call.pm.bak
deleted file mode 100644
index 1d1b261..0000000
--- a/3.8.8/sources/cpan-Filter/vendor/Call/Call.pm.bak
+++ /dev/null
@@ -1,498 +0,0 @@
-
-# Call.pm
-#
-# Copyright (c) 1995-2009 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.
-
-package Filter::Util::Call ;
-
-require 5.005 ;
-require DynaLoader;
-require Exporter;
-use Carp ;
-use strict;
-use warnings;
-use vars qw($VERSION @ISA @EXPORT) ;
-
- at ISA = qw(Exporter DynaLoader);
- at EXPORT = qw( filter_add filter_del filter_read filter_read_exact) ;
-$VERSION = "1.08" ;
-
-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.
- $obj = \$obj unless ref $obj ;
-
- $obj = bless ($obj, (caller)[0]) unless $coderef ;
-
- # 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>.
-
-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>.
-
-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.
-
-=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://www.cpan.org/modules/by-author/Damian_Conway/Filter-Simple.tar.gz
- http://www.csse.monash.edu.au/~damian/CPAN/Filter-Simple.tar.gz
-
-=head1 AUTHOR
-
-Paul Marquess
-
-=head1 DATE
-
-26th January 1996
-
-=cut
-
diff --git a/3.8.8/sources/cpan-Filter/vendor/Changes b/3.8.8/sources/cpan-Filter/vendor/Changes
deleted file mode 100644
index 4f6c332..0000000
--- a/3.8.8/sources/cpan-Filter/vendor/Changes
+++ /dev/null
@@ -1,308 +0,0 @@
-
-1.02 Tuesday 20th June 1995
-----
-
- * First release.
-
-1.03 Sunday 25th June 1995
-----
-
- * Tidied up the build process so that it doesn't need an empty
- Filter.xs file.
-
-1.04 Sunday 25th June 1995
-----
-
- * The test harness now uses $^X to invoke Perl.
-
-
-1.05 Monday 26th June 1995
-----
-
- * updated MANIFEST
-
- * tee.t test 5 has been hard-wired to return true if run as root.
-
- * The test files don't use $^X to invoke perl any more. I've passed
- the MakeMaker symbol FULLPERL via an environment variable. A bit
- of a kludge, but it does work :-)
-
- * added a mytest target to allow users to play with the Filters
- without having to install them.
-
- * The EWOULDBLOCK/EAGAIN stuff has been wrapped in preprocessor code.
-
- * The hints files don't seem to be needed anymore.
-
-
-1.06 Sunday 2nd July 1995
-----
-
- * Renamed decrypt.test to decrypt.tst.
-
- * Renamed mytest.pl to mytest - it was getting installed.
-
- * exec.xs had a bit of debugging code lurking around. This meant
- that O_NONBLOCK was *always* being used to set non-blocking i/o.
- This has been removed.
-
- * Changed the way O_NONBLOCK/O_NDELAY was being detected. The Tk
- method is now used.
-
- * Addition of Filter::call - first go at implementation of perl filters.
-
-
-1.07 Wednesday 29th November 1995
-----
-
- * exec now uses the non-blocking IO constants from Configure. Thanks
- to Raphael for writing the dist module and to Andy for including it
- in Configure.
-
- * The decrypt filter has been enhanced to detect when it is
- executing as a dynamically linked module and if DEBUGGING is
- enabled. Thanks to Tim for providing the dynamic module test.
-
- * Tim provided a pile of bug fixes for decrypt.xs
-
- * Filter::call has been renamed Filter::Util::Call and the logic for
- installing it has been changed.
-
- * The workings of the filter method in Filter::Util::Call has been
- changed.
-
-
-1.08 Friday 15th December 1995
-----
-
- * Fixed a bug in Exec.xs - wait was being called without a parameter.
-
- * Added a closure option to Call
-
-
-1.09 Wednesday 22nd April 1996
-----
-
- * Fixed a warning in Exec.xs - added a cast to safefree
-
- * Makefile.PL now uses VERSION_FROM
-
- * Made all filter modules strict clean.
-
- * The simple encrypt script supplied with the decryption filter will
- now preserve the original file permissions. In addition if the
- first line of the script begins with "#!", the line will be
- preserved in the encrypted version.
-
-1.10 Thursday 20th June 1996
-----
-
- * decrypt now calls filter_del.
-
-1.11 Tuesday 29th October 1996
-----
-
- * test harness for decrypt doesn't display the debugger banner
- message any more.
-
- * casted uses of IoTOP_GV in Call.xs, decrypt.xs and Exec.xs to keep
- the IRIX compiler happy.
-
-1.12 Tuesday 25th March 1997
-----
-
- * Patch from Andreas Koenig to make tee.xs compile when useperio is
- enabled.
-
- * Fix Call interface to work with 5.003_94
-
-
-1.13 Monday 29th December 1997
-----
-
- * added the order test harness.
-
- * patch from Gurusamy Sarathy to get the filters to build and pass
- all tests on NT.
-
-1.14 Thursday 1st January 1998
-----
-
- * patch from Gurusamy Sarathy to allow the filters to build when
- threading is enabled.
-
-1.15 Monday 26th October 1998
-----
-
- * Fixed a bug in the tee filter.
-
- * Applied patch from Gurusamy Sarathy which prevents Exec from coredump
- when perl |is run with PERL_DESTRUCT_LEVEL.
-
-1.16 wednesday 17th March 1999
-----
-
- * Upgraded to use the new PL_* symbols. Means the module can build with
- Perl5.005_5*.
-
-1.17 Friday 10th December 1999
-----
-
- * Addition of perlfilter.pod. This is the Source Filters article from
- The Perl Journal, issue 11 and is identical to the file that is
- distributed with Perl starting withversion 5.005_63.
-
-1.18 Sunday 2nd April 2000
-----
-
- * Test harnesses are more robust on Win32.
-
- * Fixed a problem where an __END__ or __DATA__ could crash Perl.
-
-1.19 Thursday 20th July 2000
-----
-
- * Added a test in decrypt.xs to check if the Compiler backend is in use.
- Thanks to Andrew Johnson for bringing this to my attention.
-
-1.20 Sunday 7th January 2001
-----
-
- * Added a SYNOPSIS to Call.pm & Exec.pm
-
- * Integrated perl core patches 7849, 7913 & 7931.
-
- * Modified decrypt.t to fix a case where HP-UX didn't pass test 4.
-
-
-1.21 Monday 19th February 20001
-----
-
- * Added logic in Makefile.PL to toggle between using $^W and
- the warnings pragma in the module.
-
- * The module, the examples & the test harness are now all strict
- & warnings clean.
-
-1.22 Wednesday 21st February 20001
-----
-
- * Added Michael G Schwern's example of a practical use of Filter::cpp
- into the pod.
-
- * Filter::cpp assumed that cpp.exe is always available on MSWin32. Logic
- has been added to check for the existence of cpp.exe.
-
- * Added a reference to Damian Conway's excellent Filter::Simple module.
-
- * Merged Core patch 9176
-
-1.23 Monday 23rd April 2001
-----
-
- * Modified Makefile.PL to only enable the warnings pragma if using perl
- 5.6.1 or better.
-
-1.24
-----
-
- * Fixed sh.t, exec.t & cpp.t to work properly on NT
- patch courtesy of Steve Hay.
-
- * The detection of cpp in cpp.pm is now more robust
- patch courtesy of Michael Schwern
-
- * Changed na to PL_na in decrypt.xs
-
- * Merged Core patches 10752, 11434
-
-1.25
-----
-
- * Fixed minor typo in Makefile.PL
-
-1.26
-----
-
- * Call & Exec now use the CXT* macros
-
- * moved all backward compatability code into ppport.h
-
-1.27
-----
-
- * Patch from Wim Verhaegen to allow cpp to be an absolute path
-
- * Patch from Gurusamy Sarathy to fix a Windods core dump in Exec.xs --
- dMY_CXT was being accessed before it was ititialised.
-
- * Merged core patch 13940
-
-1.28
-----
-
- * Fixed bug in Filter::cpp where $Config{cppstdin} refered to an executable
- with an absolute path. Bug spotted by P. Kent.
-
-1.29 29 June 2002
-----
-
- * Fixed problem with sleep in Exec.xs. Patch provided by Charles Randall.
-
- * Exec.xs now used waitpid, when available, instead or wait. Patch provided
- by Richard Clamp.
-
- * Also the place where the wait is called has been changed.
- Deadlock condition spotted by Andrej Czapszys.
-
-1.30 16 August 2003
-----
-
- * rewording of reference to Filter::Simple
-
- * merged core patch 18269
-
-1.31 31 August 2005
-----
-
- * added 'libscan' to Makefile.PL to stop .bak files being installed.
- [rt.cpan.org: Ticket #14356 .bak files are being installed ]
-
-1.32 3 January 2006
-----
-
- * Added core patch 26509 -- fix out by one bug in Call.xs
- Problem reported & fixed by Gisle Aas.
-
-1.33 1 March 2007
-----
-
- * fixed ninstr issue for 5.8.9
-
- * added t/pod.t
-
-1.34 7 July 2007
-----
-
- * Included Core patch #31200 - change to support perl 5.10 for
- Filter::Util::Call
-
- * Also included the equivalent changes for the other filters. Patch
- kindly provided by Steve Hay.
-
-1.35 25 February 2009
-----
-
- * Included Core patches 32864, 33341 & 34776
-
- * Side effect of above patches means that Filters needs at least Perl 5.005
-
-1.36 28 February 2009
-----
-
- * Fixed install issue [RT #28232]
-
-1.37 9 June 2009
-----
-
- * No new feature or bug fixes - just sync with perl core.
diff --git a/3.8.8/sources/cpan-Filter/vendor/MANIFEST b/3.8.8/sources/cpan-Filter/vendor/MANIFEST
deleted file mode 100644
index 451c2fb..0000000
--- a/3.8.8/sources/cpan-Filter/vendor/MANIFEST
+++ /dev/null
@@ -1,50 +0,0 @@
-Changes
-MANIFEST
-Makefile.PL
-README
-Call/typemap
-Call/Makefile.PL
-Call/Call.pm
-Call/Call.xs
-Call/ppport.h
-Exec/Makefile.PL
-Exec/Exec.pm
-Exec/Exec.xs
-decrypt/Makefile.PL
-decrypt/decr
-decrypt/decrypt.pm
-decrypt/decrypt.xs
-decrypt/encrypt
-examples/method/Count.pm
-examples/method/NewSubst.pm
-examples/method/UUdecode.pm
-examples/method/Decompress.pm
-examples/method/Joe2Jim.pm
-examples/method/Subst.pm
-examples/closure/Count.pm
-examples/closure/NewSubst.pm
-examples/closure/UUdecode.pm
-examples/closure/Decompress.pm
-examples/closure/Include.pm
-examples/closure/Joe2Jim.pm
-examples/closure/Subst.pm
-examples/filtdef
-examples/filtuu
-lib/Filter/cpp.pm
-lib/Filter/exec.pm
-lib/Filter/sh.pm
-mytest
-t/call.t
-t/cpp.t
-t/decrypt.t
-t/exec.t
-t/order.t
-t/pod.t
-t/sh.t
-t/tee.t
-tee/Makefile.PL
-tee/tee.pm
-tee/tee.xs
-filter-util.pl
-perlfilter.pod
-META.yml Module meta-data (added by MakeMaker)
diff --git a/3.8.8/sources/cpan-Filter/vendor/README b/3.8.8/sources/cpan-Filter/vendor/README
deleted file mode 100644
index 3c1aa9e..0000000
--- a/3.8.8/sources/cpan-Filter/vendor/README
+++ /dev/null
@@ -1,76 +0,0 @@
- Source Filters
-
- Version 1.36
-
- 28th February 2009
-
- Copyright (c) 1995-2009 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.
-
-
-
-DESCRIPTION
------------
-
-This distribution consists of a number of Source Filters.
-
-For more details see the pod documentation embedded in the .pm files.
-
-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://www.cpan.org/modules/by-author/Damian_Conway/Filter-Simple.tar.gz
- http://www.csse.monash.edu.au/~damian/CPAN/Filter-Simple.tar.gz
-
-PREREQUISITES
--------------
-
-Before you can build the Source Filters you need to have the following
-installed on your system:
-
- * Perl 5.005 or better. 5.6.0 or better is recommended for Win32.
-
-If your Perl is less than version 5.004_55, the "order" test harness
-will be skipped.
-
-
-BUILDING THE MODULES
---------------------
-
-Assuming you have met all the prerequisites, building the modules
-should be relatively straightforward.
-
-The modules can now be built using this sequence of commands:
-
- perl Makefile.PL
- make
- make test
-
-The filters have been successfully built and tested on the following
-systems (at least):
-
- SunOS 4.1.3 (Sun C compiler & gcc 2.7.2.3)
- Solaris 2.3 (Sun C Compiler)
- irix 5.3
- irix 6.x
- Windows NT 4.0 (Visual C++ 5.0 and Borland C++ 5.02)
-
-GNU tr and GNU cpp must be installed somewhere on the path for the
-testsuite to pass successfully on Windows NT.
-
-INSTALLATION
-------------
-
- make install
-
-UPDATES
--------
-
-The most recent version of the Filters is always available at
-
- http://www.cpan.org/modules/by-module/Filter
diff --git a/3.8.8/sources/cpan-Filter/vendor/decrypt/decr b/3.8.8/sources/cpan-Filter/vendor/decrypt/decr
deleted file mode 100644
index 592414e..0000000
--- a/3.8.8/sources/cpan-Filter/vendor/decrypt/decr
+++ /dev/null
@@ -1,70 +0,0 @@
-#!/usr/local/bin/perl
-
-# This script will decrypt a Perl script that has been encrypted using the
-# "encrypt" script. It cannot decrypt any other kind of encrypted Perl script.
-#
-# Usage is decr file...
-#
-
-use strict;
-use warnings;
-
-use vars qw($XOR $BLOCKSIZE $HEADERSIZE $CRYPT_MAGIC_1 $CRYPT_MAGIC_2
- $size $mode $line $Fingerprint $file $block $sharp_bang $f
- ) ;
-$XOR = 'Perl' ;
-$BLOCKSIZE = length $XOR ;
-$HEADERSIZE = 2 ;
-$CRYPT_MAGIC_1 = 0xff ;
-$CRYPT_MAGIC_2 = 0x00 ;
-my $Version = 1 ;
-my $module_name = 'Filter::decrypt' ;
-
-my $Fingerprint = pack ("C*", $CRYPT_MAGIC_1, $CRYPT_MAGIC_2) ;
-
-die "Usage: decrypt file...\n"
- unless @ARGV ;
-
-
-# Loop through each file in turn.
-foreach $file (@ARGV)
-{
- if (! -f $file)
- {
- print "Skipping directory $file\n" if -d $file ;
- #print "Skipping strange file $file\n" if ! -d $file ;
- next ;
- }
-
- open (F, "<$file") || die "Cannot open $file: $!\n" ;
-
- # skip the #! line
- $a = <F> ;
- if ($a =~ /^#!/)
- {
- $sharp_bang = $a ;
- $a = <F> ;
- }
-
- # skip "use decrypt;" line
- die "No use $module_name in $file\n"
- unless $a =~ /use\s+$module_name\s*;/ ;
-
- read(F, $f, length($Fingerprint)) || die "Cannot read from $file: $!\n" ;
- (print "skipping file '$file': not encrypted\n"), next
- unless $f eq $Fingerprint ;
-
- print "decrypting $file to $file.pd\n" ;
- open (O, ">${file}.pd") || die "Cannot open ${file}.pd: $!\n" ;
- print O $sharp_bang if $sharp_bang ;
- while ($size = read(F, $block, $BLOCKSIZE) )
- {
- print O ($block ^ substr($XOR, 0, $size)) ;
- }
-
-
- close F ;
- close O ;
-
-}
-
diff --git a/3.8.8/sources/cpan-Filter/vendor/decrypt/decr.bak b/3.8.8/sources/cpan-Filter/vendor/decrypt/decr.bak
deleted file mode 100644
index 592414e..0000000
--- a/3.8.8/sources/cpan-Filter/vendor/decrypt/decr.bak
+++ /dev/null
@@ -1,70 +0,0 @@
-#!/usr/local/bin/perl
-
-# This script will decrypt a Perl script that has been encrypted using the
-# "encrypt" script. It cannot decrypt any other kind of encrypted Perl script.
-#
-# Usage is decr file...
-#
-
-use strict;
-use warnings;
-
-use vars qw($XOR $BLOCKSIZE $HEADERSIZE $CRYPT_MAGIC_1 $CRYPT_MAGIC_2
- $size $mode $line $Fingerprint $file $block $sharp_bang $f
- ) ;
-$XOR = 'Perl' ;
-$BLOCKSIZE = length $XOR ;
-$HEADERSIZE = 2 ;
-$CRYPT_MAGIC_1 = 0xff ;
-$CRYPT_MAGIC_2 = 0x00 ;
-my $Version = 1 ;
-my $module_name = 'Filter::decrypt' ;
-
-my $Fingerprint = pack ("C*", $CRYPT_MAGIC_1, $CRYPT_MAGIC_2) ;
-
-die "Usage: decrypt file...\n"
- unless @ARGV ;
-
-
-# Loop through each file in turn.
-foreach $file (@ARGV)
-{
- if (! -f $file)
- {
- print "Skipping directory $file\n" if -d $file ;
- #print "Skipping strange file $file\n" if ! -d $file ;
- next ;
- }
-
- open (F, "<$file") || die "Cannot open $file: $!\n" ;
-
- # skip the #! line
- $a = <F> ;
- if ($a =~ /^#!/)
- {
- $sharp_bang = $a ;
- $a = <F> ;
- }
-
- # skip "use decrypt;" line
- die "No use $module_name in $file\n"
- unless $a =~ /use\s+$module_name\s*;/ ;
-
- read(F, $f, length($Fingerprint)) || die "Cannot read from $file: $!\n" ;
- (print "skipping file '$file': not encrypted\n"), next
- unless $f eq $Fingerprint ;
-
- print "decrypting $file to $file.pd\n" ;
- open (O, ">${file}.pd") || die "Cannot open ${file}.pd: $!\n" ;
- print O $sharp_bang if $sharp_bang ;
- while ($size = read(F, $block, $BLOCKSIZE) )
- {
- print O ($block ^ substr($XOR, 0, $size)) ;
- }
-
-
- close F ;
- close O ;
-
-}
-
diff --git a/3.8.8/sources/cpan-Filter/vendor/decrypt/encrypt b/3.8.8/sources/cpan-Filter/vendor/decrypt/encrypt
deleted file mode 100755
index 314612a..0000000
--- a/3.8.8/sources/cpan-Filter/vendor/decrypt/encrypt
+++ /dev/null
@@ -1,71 +0,0 @@
-
-require 5.002 ;
-
-use strict;
-use warnings;
-
-use vars qw($XOR $BLOCKSIZE $HEADERSIZE $CRYPT_MAGIC_1 $CRYPT_MAGIC_2
- $size $mode $line $Fingerprint $file $block
- ) ;
-
-$XOR = 'Perl' ;
-$BLOCKSIZE = length $XOR ;
-$HEADERSIZE = 2 ;
-$CRYPT_MAGIC_1 = 0xff ;
-$CRYPT_MAGIC_2 = 0x00 ;
-
-$Fingerprint = pack ("C*", $CRYPT_MAGIC_1, $CRYPT_MAGIC_2) ;
-
-die "Usage: encrypt file...\n"
- unless @ARGV ;
-
-# Loop throught each file in turn.
-foreach $file (@ARGV)
-{
-
- if (! -T $file)
- {
- print "Skipping directory $file\n" if -d $file ;
- print "Skipping non-text $file\n" if ! -d $file ;
- next ;
- }
-
- open (F, "<$file") or die "Cannot open $file: $!\n" ;
- open (O, ">${file}.pe") or die "Cannot open ${file}.pe: $!\n" ;
- binmode O;
-
- # Get the mode
- $mode = (stat F)[2] ;
-
- # Check for "#!perl" line
- $line = <F> ;
-
- if ( $line =~ /^#!/ )
- { print O $line }
- else
- { seek F, 0, 0 }
-
- print O "use Filter::decrypt ;\n" ;
- print O $Fingerprint ;
-
-
- $block = '';
- while ($size = read(F, $block, $BLOCKSIZE) )
- {
- print O ($block ^ substr($XOR, 0, length $block)) ;
- }
-
- close F ;
- close O ;
-
- unlink ($file)
- or die "Could not remove '$file': $!\n" ;
-
- rename ("${file}.pe", $file)
- or die "Could not rename $file.pe to $file: $!\n" ;
-
- chmod $mode, $file unless $^O eq 'MSWin32' ;
-
- print "encrypted $file\n" ;
-}
-
diff --git a/3.8.8/sources/cpan-Filter/vendor/examples/closure/Decompress.pm.bak b/3.8.8/sources/cpan-Filter/vendor/examples/closure/Decompress.pm.bak
deleted file mode 100644
index b086324..0000000
--- a/3.8.8/sources/cpan-Filter/vendor/examples/closure/Decompress.pm.bak
+++ /dev/null
@@ -1,33 +0,0 @@
-package Filter::Decompress ;
-
-use Filter::Util::Call ;
-use Compress::Zlib ;
-use Carp ;
-
-use strict ;
-use warnings ;
-
-my $VERSION = '1.01' ;
-
-sub import
-{
- my ($self) = @_ ;
-
- # Initialise an inflation stream.
- my $x = inflateInit()
- or croak "Internal Error" ;
- filter_add(
- sub
- {
- my ($status, $err) ;
-
- if (($status = filter_read()) >0) {
- ($_, $err) = $x->inflate($_) ;
- return -1 unless $err == Z_OK or $err == Z_STREAM_END ;
- }
- $status ;
- })
-}
-
-1 ;
-__END__
diff --git a/3.8.8/sources/cpan-Filter/vendor/examples/closure/Joe2Jim.pm.bak b/3.8.8/sources/cpan-Filter/vendor/examples/closure/Joe2Jim.pm.bak
deleted file mode 100644
index acdaa9a..0000000
--- a/3.8.8/sources/cpan-Filter/vendor/examples/closure/Joe2Jim.pm.bak
+++ /dev/null
@@ -1,23 +0,0 @@
-package Joe2Jim ;
-
-use Filter::Util::Call ;
-
-use strict ;
-use warnings ;
-
-sub import
-{
- my($type) = @_ ;
-
- filter_add(
- sub
- {
- my($status) ;
- s/Joe/Jim/g
- if ($status = filter_read()) > 0 ;
- $status ;
- })
-}
-
-1 ;
-
diff --git a/3.8.8/sources/cpan-Filter/vendor/examples/closure/UUdecode.pm b/3.8.8/sources/cpan-Filter/vendor/examples/closure/UUdecode.pm
deleted file mode 100644
index b74017b..0000000
--- a/3.8.8/sources/cpan-Filter/vendor/examples/closure/UUdecode.pm
+++ /dev/null
@@ -1,52 +0,0 @@
-
-package Filter::UUdecode ;
-
-use Filter::Util::Call ;
-
-use strict ;
-use warnings ;
-
-my $VERSION = '1.00' ;
-
-sub import
-{
- my($self) = @_ ;
- my ($count) = 0 ;
-
- filter_add(
- sub
- {
- my ($status) ;
-
- while (1) {
-
- return $status
- if ($status = filter_read() ) <= 0;
-
- chomp ;
- ++ $count ;
-
- # Skip the begin line (if it is there)
- ($_ = ''), next if $count == 1 and /^begin/ ;
-
- # is this the last line?
- if ($_ eq " " or length $_ <= 1) {
- $_ = '' ;
- # If there is an end line, skip it too
- return $status
- if ($status = filter_read() ) <= 0 ;
- $_ = "\n" if /^end/ ;
- filter_del() ;
- return 1 ;
- }
-
- # uudecode the line
- $_ = unpack("u", $_) ;
-
- # return the uudecoded data
- return $status ;
- }
- })
-
-}
-1 ;
diff --git a/3.8.8/sources/cpan-Filter/vendor/examples/filtuu.bak b/3.8.8/sources/cpan-Filter/vendor/examples/filtuu.bak
deleted file mode 100755
index e16ab39..0000000
--- a/3.8.8/sources/cpan-Filter/vendor/examples/filtuu.bak
+++ /dev/null
@@ -1,5 +0,0 @@
-
-print "use Filter::UUdecode ;\n" ;
-while (<>) {
- print pack("u", $_) ;
-}
diff --git a/3.8.8/sources/cpan-Filter/vendor/examples/method/Joe2Jim.pm b/3.8.8/sources/cpan-Filter/vendor/examples/method/Joe2Jim.pm
deleted file mode 100644
index 901bef5..0000000
--- a/3.8.8/sources/cpan-Filter/vendor/examples/method/Joe2Jim.pm
+++ /dev/null
@@ -1,26 +0,0 @@
-package Joe2Jim ;
-
-use Filter::Util::Call ;
-
-use strict ;
-use warnings ;
-
-sub import
-{
- my($type) = @_ ;
-
- filter_add(bless []) ;
-}
-
-sub filter
-{
- my($self) = @_ ;
- my($status) ;
-
- s/Joe/Jim/g
- if ($status = filter_read()) > 0 ;
- $status ;
-}
-
-1 ;
-
diff --git a/3.8.8/sources/cpan-Filter/vendor/examples/method/Subst.pm b/3.8.8/sources/cpan-Filter/vendor/examples/method/Subst.pm
deleted file mode 100644
index 3d10c0b..0000000
--- a/3.8.8/sources/cpan-Filter/vendor/examples/method/Subst.pm
+++ /dev/null
@@ -1,30 +0,0 @@
-package Subst ;
-
-use Filter::Util::Call ;
-use Carp ;
-
-use strict ;
-use warnings ;
-
-sub filter
-{
- my ($self) = @_ ;
- my ($status) ;
- my ($from) = $self->[0] ;
- my ($to) = $self->[1] ;
-
- s/$from/$to/
- if ($status = filter_read()) > 0 ;
- $status ;
-}
-
-sub import
-{
- my ($self, @args) = @_ ;
- croak("usage: use Subst qw(from to)")
- unless @args == 2 ;
- filter_add([ @args ]) ;
-}
-
-1 ;
-
diff --git a/3.8.8/sources/cpan-Filter/vendor/examples/method/UUdecode.pm b/3.8.8/sources/cpan-Filter/vendor/examples/method/UUdecode.pm
deleted file mode 100644
index 1d8bbbb..0000000
--- a/3.8.8/sources/cpan-Filter/vendor/examples/method/UUdecode.pm
+++ /dev/null
@@ -1,54 +0,0 @@
-
-package Filter::UUdecode ;
-
-use Filter::Util::Call ;
-
-use strict ;
-use warnings ;
-
-my $VERSION = '1.00' ;
-
-sub import
-{
- my($self) = @_ ;
- my ($count) = 0 ;
-
- filter_add( \$count ) ;
-}
-
-sub filter
-{
- my ($self) = @_ ;
- my ($status) ;
-
- while (1) {
-
- return $status
- if ($status = filter_read() ) <= 0;
-
- chomp ;
- ++ $$self ;
-
- # Skip the begin line (if it is there)
- ($_ = ''), next if $$self == 1 and /^begin/ ;
-
- # is this the last line?
- if ($_ eq " " or length $_ <= 1) {
- $_ = '' ;
- # If there is an end line, skip it too
- return $status
- if ($status = filter_read() ) <= 0 ;
- $_ = "\n" if /^end/ ;
- filter_del() ;
- return 1 ;
- }
-
- # uudecode the line
- $_ = unpack("u", $_) ;
-
- # return the uudecoded data
- return $status ;
- }
-}
-
-1 ;
diff --git a/3.8.8/sources/cpan-Filter/vendor/lib/Filter/sh.pm.bak b/3.8.8/sources/cpan-Filter/vendor/lib/Filter/sh.pm.bak
deleted file mode 100644
index e0bd755..0000000
--- a/3.8.8/sources/cpan-Filter/vendor/lib/Filter/sh.pm.bak
+++ /dev/null
@@ -1,78 +0,0 @@
-package Filter::sh;
-
-use Carp ;
-use strict ;
-use warnings ;
-use vars qw($VERSION) ;
-$VERSION = "1.01" ;
-
-use Filter::Util::Exec ;
-
-sub import
-{
- my($self, @args) = @_ ;
-
- croak ("Usage: use Filter::sh 'command'")
- unless @args ;
-
- #require "Filter/exec.pm" ;
- #Filter::exec::import ($self, 'sh', '-c', "@args") ;
- if ($^O eq 'MSWin32') {
- Filter::Util::Exec::filter_add ($self, 'cmd', '/c', "@args") ;
- }
- else {
- Filter::Util::Exec::filter_add ($self, 'sh', '-c', "@args") ;
- }
-}
-
-1 ;
-__END__
-
-=head1 NAME
-
-Filter::sh - sh source filter
-
-=head1 SYNOPSIS
-
- use Filter::sh 'command' ;
-
-=head1 DESCRIPTION
-
-This filter pipes the current source file through the program which
-corresponds to the C<command> parameter using the Bourne shell.
-
-As with all source filters its scope is limited to the current source
-file only. Every file you want to be processed by the filter must have a
-
- use Filter::sh 'command' ;
-
-near the top.
-
-Here is an example script which uses the filter:
-
- use Filter::sh 'tr XYZ PQR' ;
- $a = 1 ;
- print "XYZ a = $a\n" ;
-
-And here is what it will output:
-
- PQR = 1
-
-=head1 WARNING
-
-You should be I<very> careful when using this filter. Because of the
-way the filter is implemented it is possible to end up with deadlock.
-
-Be especially careful when stacking multiple instances of the filter in
-a single source file.
-
-=head1 AUTHOR
-
-Paul Marquess
-
-=head1 DATE
-
-11th December 1995.
-
-=cut
-
diff --git a/3.8.8/sources/cpan-Filter/vendor/t/cpp.t b/3.8.8/sources/cpan-Filter/vendor/t/cpp.t
deleted file mode 100644
index 6ad0a62..0000000
--- a/3.8.8/sources/cpan-Filter/vendor/t/cpp.t
+++ /dev/null
@@ -1,84 +0,0 @@
-
-use strict;
-use warnings;
-use Config;
-
-BEGIN
-{
- my $cpp;
- my $sep;
- if ($^O eq 'MSWin32') {
- $cpp = 'cpp.exe' ;
- $sep = ';';
- }
- else {
- ($cpp) = $Config{cppstdin} =~ /^(\S+)/;
- $sep = ':';
- }
-
- if (! $cpp) {
- print "1..0 # Skipping cpp not found on this system.\n" ;
- exit 0 ;
- }
-
- # Check if cpp is installed
- if ( ! -x $cpp) {
- my $foundCPP = 0 ;
- foreach my $dir (split($sep, $ENV{PATH}), '')
- {
- if (-x "$dir/$cpp")
- {
- $foundCPP = 1;
- last ;
- }
- }
-
- if (! $foundCPP) {
- print "1..0 # Skipping cpp not found on this system.\n" ;
- exit 0 ;
- }
- }
-}
-
-use vars qw( $Inc $Perl ) ;
-
-require "./filter-util.pl" ;
-
-my $script = <<'EOF' ;
-use Filter::cpp ;
-#define FRED 1
-#define JOE
-
-#a perl comment, not a cpp line
-
-$a = FRED + 2 ;
-print "a = $a\n" ;
-
-require "./fred" ;
-
-#ifdef JOE
- print "Hello Joe\n" ;
-#else
- print "Where is Joe?\n" ;
-#endif
-EOF
-
-my $cpp_script = 'cpp.script' ;
-writeFile($cpp_script, $script) ;
-writeFile('fred', 'print "This is FRED, not JOE\n" ; 1 ;') ;
-
-my $expected_output = <<'EOM' ;
-a = 3
-This is FRED, not JOE
-Hello Joe
-EOM
-
-$a = `$Perl $Inc $cpp_script 2>&1` ;
-
-print "1..2\n" ;
-ok(1, ($? >>8) == 0) ;
-#print "|$a| vs |$expected_output|\n";
-ok(2, $a eq $expected_output) ;
-
-unlink $cpp_script ;
-unlink 'fred' ;
diff --git a/3.8.8/sources/cpan-Filter/vendor/t/cpp.t.bak b/3.8.8/sources/cpan-Filter/vendor/t/cpp.t.bak
deleted file mode 100644
index 6ad0a62..0000000
--- a/3.8.8/sources/cpan-Filter/vendor/t/cpp.t.bak
+++ /dev/null
@@ -1,84 +0,0 @@
-
-use strict;
-use warnings;
-use Config;
-
-BEGIN
-{
- my $cpp;
- my $sep;
- if ($^O eq 'MSWin32') {
- $cpp = 'cpp.exe' ;
- $sep = ';';
- }
- else {
- ($cpp) = $Config{cppstdin} =~ /^(\S+)/;
- $sep = ':';
- }
-
- if (! $cpp) {
- print "1..0 # Skipping cpp not found on this system.\n" ;
- exit 0 ;
- }
-
- # Check if cpp is installed
- if ( ! -x $cpp) {
- my $foundCPP = 0 ;
- foreach my $dir (split($sep, $ENV{PATH}), '')
- {
- if (-x "$dir/$cpp")
- {
- $foundCPP = 1;
- last ;
- }
- }
-
- if (! $foundCPP) {
- print "1..0 # Skipping cpp not found on this system.\n" ;
- exit 0 ;
- }
- }
-}
-
-use vars qw( $Inc $Perl ) ;
-
-require "./filter-util.pl" ;
-
-my $script = <<'EOF' ;
-use Filter::cpp ;
-#define FRED 1
-#define JOE
-
-#a perl comment, not a cpp line
-
-$a = FRED + 2 ;
-print "a = $a\n" ;
-
-require "./fred" ;
-
-#ifdef JOE
- print "Hello Joe\n" ;
-#else
- print "Where is Joe?\n" ;
-#endif
-EOF
-
-my $cpp_script = 'cpp.script' ;
-writeFile($cpp_script, $script) ;
-writeFile('fred', 'print "This is FRED, not JOE\n" ; 1 ;') ;
-
-my $expected_output = <<'EOM' ;
-a = 3
-This is FRED, not JOE
-Hello Joe
-EOM
-
-$a = `$Perl $Inc $cpp_script 2>&1` ;
-
-print "1..2\n" ;
-ok(1, ($? >>8) == 0) ;
-#print "|$a| vs |$expected_output|\n";
-ok(2, $a eq $expected_output) ;
-
-unlink $cpp_script ;
-unlink 'fred' ;
diff --git a/3.8.8/sources/cpan-Filter/vendor/t/sh.t.bak b/3.8.8/sources/cpan-Filter/vendor/t/sh.t.bak
deleted file mode 100644
index 8a9d93f..0000000
--- a/3.8.8/sources/cpan-Filter/vendor/t/sh.t.bak
+++ /dev/null
@@ -1,75 +0,0 @@
-
-use strict;
-use warnings;
-use Config;
-
-BEGIN
-{
- my $foundTR = 0 ;
- if ($^O eq 'MSWin32') {
- # Check if tr is installed
- foreach (split ";", $ENV{PATH}) {
- if (-e "$_/tr.exe") {
- $foundTR = 1;
- last ;
- }
- }
- }
- else {
- $foundTR = 1
- if $Config{'tr'} ne '' ;
- }
-
- if (! $foundTR) {
- print "1..0 # Skipping tr not found on this system.\n" ;
- exit 0 ;
- }
-}
-
-require "filter-util.pl" ;
-
-use vars qw( $Inc $Perl $script ) ;
-
-$script = <<'EOF' ;
-
-use Filter::sh q(tr '[A-E][I-M]' '[a-e][i-m]') ;
-use Filter::sh q(tr '[N-Z]' '[n-z]') ;
-
-EOF
-
-$script .= <<'EOF' ;
-
-$A = 2 ;
-PRINT "A = $A\N" ;
-
-PRINT "HELLO JOE\N" ;
-PRINT <<EOM ;
-MARY HAD
-A
-LITTLE
-LAMB
-EOM
-PRINT "A (AGAIN) = $A\N" ;
-EOF
-
-my $filename = 'sh.test' ;
-writeFile($filename, $script) ;
-
-my $expected_output = <<'EOM' ;
-a = 2
-Hello joe
-mary Had
-a
-little
-lamb
-a (aGain) = 2
-EOM
-
-my $a = `$Perl $Inc $filename 2>&1` ;
-
-print "1..2\n" ;
-ok(1, ($? >> 8) == 0) ;
-ok(2, $a eq $expected_output) ;
-
-unlink $filename ;
-
diff --git a/3.8.8/sources/cpan-Filter/vendor/tee/tee.xs b/3.8.8/sources/cpan-Filter/vendor/tee/tee.xs
deleted file mode 100644
index 0d1b347..0000000
--- a/3.8.8/sources/cpan-Filter/vendor/tee/tee.xs
+++ /dev/null
@@ -1,63 +0,0 @@
-/*
- * Filename : tee.xs
- *
- * Author : Paul Marquess
- * Date : 26th March 2000
- * Version : 1.01
- *
- */
-
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-#include "../Call/ppport.h"
-
-static I32
-filter_tee(pTHX_ int idx, SV *buf_sv, int maxlen)
-{
- I32 len;
- PerlIO * fil = (PerlIO*) SvIV(FILTER_DATA(idx)) ;
- int old_len = SvCUR(buf_sv) ;
-
- if ( (len = FILTER_READ(idx+1, buf_sv, maxlen)) <=0 ) {
- /* error or eof */
- PerlIO_close(fil) ;
- filter_del(filter_tee); /* remove me from filter stack */
- return len;
- }
-
- /* write to the tee'd file */
- PerlIO_write(fil, SvPVX(buf_sv) + old_len, len - old_len) ;
-
- return SvCUR(buf_sv);
-}
-
-MODULE = Filter::tee PACKAGE = Filter::tee
-
-PROTOTYPES: DISABLE
-
-void
-import(module, filename)
- SV * module = NO_INIT
- char * filename
- CODE:
- SV * stream = newSViv(0) ;
- PerlIO * fil ;
- char * mode = "wb" ;
-
- filter_add(filter_tee, stream);
- /* check for append */
- if (*filename == '>') {
- ++ filename ;
- if (*filename == '>') {
- ++ filename ;
- mode = "ab" ;
- }
- }
- if ((fil = PerlIO_open(filename, mode)) == NULL)
- croak("Filter::tee - cannot open file '%s': %s",
- filename, Strerror(errno)) ;
-
- /* save the tee'd file handle */
- SvIV_set(stream, (IV)fil) ;
-
diff --git a/3.8.8/sources/cpan-FreezeThaw/vendor/Makefile.PL b/3.8.8/sources/cpan-FreezeThaw/vendor/Makefile.PL
deleted file mode 100755
index 07a13db..0000000
--- a/3.8.8/sources/cpan-FreezeThaw/vendor/Makefile.PL
+++ /dev/null
@@ -1,8 +0,0 @@
-use ExtUtils::MakeMaker;
-# See lib/ExtUtils/MakeMaker.pm for details of how to influence
-# the contents of the Makefile that is written.
-WriteMakefile(
- NAME => 'FreezeThaw',
- VERSION_FROM => "FreezeThaw.pm",
- AUTHOR => 'Ilya Zakharevich <ilyaz at cpan.org>',
- );
diff --git a/3.8.8/sources/cpan-Getopt-Long/vendor/INSTALL b/3.8.8/sources/cpan-Getopt-Long/vendor/INSTALL
deleted file mode 100644
index 4d07e7e..0000000
--- a/3.8.8/sources/cpan-Getopt-Long/vendor/INSTALL
+++ /dev/null
@@ -1,35 +0,0 @@
-INSTALLATION
-============
-
-First unpack the kit, if you have not already done so:
-
- gzip -d < Getopt-Long-x.y.tar.gz | tar xf -
- cd Getopt-Long-x.y
-
-Getopt::Long can be installed with:
-
- perl Makefile.PL
- make all test
- make install
-
-This will install Getopt/Long.pm, newgetopt.pl and the Getopt::Long
-documentation. Note that "make install" will usually require super
-user privilege unless your Perl is installed in a location you have
-write access to.
-
-It is also possible to use the CPAN or CPANPLUS tools to install
-Getopt::Long directly from CPAN, e.g.,
-
- perl -MCPAN -e "install Getopt::Long"
-
-RPM fans can try "rpm -ta Getopt-Long-x.y.tar.gz".
-
-The kit contains an "examples" directory with some program skeleton
-files that can be used to start writing application programs. It uses
-Getopt::Long in a standard way, automatically providing version and
-help information. For the latter, it uses the Pod::Usage module to
-extracts help texts from the embedded documentation. The Pod::Usage
-module is part of standard Perl as of Perl version 5.6. For older
-versions of Perl, it can be fetched from CPAN. Use
-http://search.cpan.org/search?dist=Pod-Parser.
-
diff --git a/3.8.8/sources/cpan-Getopt-Long/vendor/MANIFEST b/3.8.8/sources/cpan-Getopt-Long/vendor/MANIFEST
deleted file mode 100644
index 98e99d2..0000000
--- a/3.8.8/sources/cpan-Getopt-Long/vendor/MANIFEST
+++ /dev/null
@@ -1,22 +0,0 @@
-Announce Getopt::Long Announcement
-MANIFEST List of files in this kit
-README Introductionary text
-INSTALL Installation information
-CHANGES List of changes
-lib/Getopt/Long.pm Getopt::Long
-lib/newgetopt.pl newgetopt.pl (subroutine NGetOpt)
-Makefile.PL Makefile for installation
-t/gol-basic.t Test basic functionality
-t/gol-compat.t Test compatibility
-t/gol-linkage.t Test user linkage
-t/gol-oo.t Test OO interface
-t/gol-xargv.t Test parsing from array
-t/gol-xstring.t Test parsing from string
-examples/README Explanation of skeleton programs
-examples/skel1.pl Skeleton program to use Getopt::Long
-examples/skel2.pl Skeleton program to use Getopt::Long
-examples/skel3.pl Skeleton program to use Getopt::Long
-examples/skel4.pl Skeleton program to use Getopt::Long
-examples/parsetime.pl Sample user handler for options
-perl-Getopt-Long.spec RPM spec file for (some) RedHat based systems
-META.yml Meta information
diff --git a/3.8.8/sources/cpan-Getopt-Long/vendor/Makefile.PL b/3.8.8/sources/cpan-Getopt-Long/vendor/Makefile.PL
deleted file mode 100644
index d9fe1d1..0000000
--- a/3.8.8/sources/cpan-Getopt-Long/vendor/Makefile.PL
+++ /dev/null
@@ -1,113 +0,0 @@
-# $Id: Makefile.PL,v 1.19 2006/07/18 21:20:12 jv Exp $
-
-use Config;
-use ExtUtils::MakeMaker 5.0;
-
-use lib "./lib";
-use Getopt::Long;
-my $version = $Getopt::Long::VERSION_STRING || $Getopt::Long::VERSION;
-
-sub MY::postamble {
- my $ret = "";
- my $mandir = $Config{installman3dir};
- my $obsolete = "$mandir/Getopt::GetoptLong.3";
- if ( -e $obsolete ) {
- print STDERR (<<EOD);
-
-I found a left-over manual page from a previous version of Getopt::Long.
-This manual page has a wrong name, and should be removed.
-I can add instructions to the Makefile to remove it when you
-install this version.
-EOD
- my $ans = prompt ("Shall I add the remove instructions?");
- if ( $ans =~ /^y/i ) {
- $ret .= <<EOD;
-install ::
- \$(RM_F) "$obsolete"
-
-EOD
- }
- }
- my $libdir = $Config{installprivlib};
- my $obsolete = "$libdir/auto/Getopt/Long";
- if ( -d $obsolete ) {
- print STDERR (<<EOD);
-
-I found left-over files from a previous version of Getopt::Long.
-These should be removed.
-I can add instructions to the Makefile to remove them when you
-install this version.
-EOD
- my $ans = prompt ("Shall I add the remove instructions?");
- if ( $ans =~ /^y/i ) {
- $ret .= <<EOD;
-install ::
- \$(RM_RF) "$libdir/auto/Getopt/Long"
-EOD
- }
- }
- $ret;
-}
-
-if ( $version =~ /_/ ) {
- print STDERR <<EOD;
-
-WARNING: This is Getopt::Long version $version.
-The underscore in the version number indicates that this is
-an intermediate, preview or beta release.
-Please keep checking CPAN for the official release.
-EOD
-}
-
-unless ( eval { require Pod::Usage } ) {
- print STDERR <<EOD;
-
-WARNING: Getopt::Long needs the module Pod::Usage for its built-in
-help facility. Pod::Usage seems not to be installed on this system.
-That is not a problem as long as the new help facility is not used.
-However, please consider installing Pod::Usage from CPAN as soon as
-convenient.
-EOD
-}
-
-print STDERR ("\n");
-
-my $x =
-WriteMakefile(
- NAME => "Getopt::Long",
- VERSION => $version,
-
- ( $] < 5.005 ) ? () : (
- AUTHOR => 'Johan Vromans (jvromans at squirrel.nl)',
- ABSTRACT => 'Module to handle parsing command line options',
- ),
-
- INSTALLDIRS => 'perl',
- PM => { "lib/newgetopt.pl" => '$(INST_LIB)/newgetopt.pl',
- "lib/Getopt/Long.pm" => '$(INST_LIB)/Getopt/Long.pm',
- },
- dist => { COMPRESS => 'gzip', SUFFIX => 'gz',
- },
- PREREQ_PM => { "Pod::Usage" => 1.14 },
- );
-
-# Write .spec file.
-# Note that $x->{...} is not supported in older Perls.
-WriteSpecfile($x->{DISTNAME}, $x->{VERSION}) if $] >= 5.008;
-
-sub WriteSpecfile {
- my $name = shift;
- my $version = shift;
-
- if ( open (FH, "rpm/$name.spec.in") ) {
- print "Writing RPM spec file...\n";
- open (NEWFH, ">perl-$name.spec");
- while ( <FH> ) {
- s/%define modname [\w---]+/%define modname $name/;
- s/%define modversion \d+\.\d+/%define modversion $version/;
- print NEWFH $_;
- }
- close(NEWFH);
- close(FH);
- }
-}
diff --git a/3.8.8/sources/cpan-Getopt-Long/vendor/lib/newgetopt.pl b/3.8.8/sources/cpan-Getopt-Long/vendor/lib/newgetopt.pl
deleted file mode 100644
index 1de6a6e..0000000
--- a/3.8.8/sources/cpan-Getopt-Long/vendor/lib/newgetopt.pl
+++ /dev/null
@@ -1,75 +0,0 @@
-# $Id: newgetopt.pl,v 1.18 2001/09/21 13:34:59 jv Exp $
-
-# This library is no longer being maintained, and is included for backward
-# compatibility with Perl 4 programs which may require it.
-# It is now just a wrapper around the Getopt::Long module.
-#
-# In particular, this should not be used as an example of modern Perl
-# programming techniques.
-#
-# Suggested alternative: Getopt::Long
-
-{ package newgetopt;
-
- # Values for $order. See GNU getopt.c for details.
- $REQUIRE_ORDER = 0;
- $PERMUTE = 1;
- $RETURN_IN_ORDER = 2;
-
- # Handle POSIX compliancy.
- if ( defined $ENV{"POSIXLY_CORRECT"} ) {
- $autoabbrev = 0; # no automatic abbrev of options (???)
- $getopt_compat = 0; # disallow '+' to start options
- $option_start = "(--|-)";
- $order = $REQUIRE_ORDER;
- $bundling = 0;
- $passthrough = 0;
- }
- else {
- $autoabbrev = 1; # automatic abbrev of options
- $getopt_compat = 1; # allow '+' to start options
- $option_start = "(--|-|\\+)";
- $order = $PERMUTE;
- $bundling = 0;
- $passthrough = 0;
- }
-
- # Other configurable settings.
- $debug = 0; # for debugging
- $ignorecase = 1; # ignore case when matching options
- $argv_end = "--"; # don't change this!
-}
-
-use Getopt::Long;
-
-################ Subroutines ################
-
-sub NGetOpt {
-
- $Getopt::Long::debug = $newgetopt::debug
- if defined $newgetopt::debug;
- $Getopt::Long::autoabbrev = $newgetopt::autoabbrev
- if defined $newgetopt::autoabbrev;
- $Getopt::Long::getopt_compat = $newgetopt::getopt_compat
- if defined $newgetopt::getopt_compat;
- $Getopt::Long::option_start = $newgetopt::option_start
- if defined $newgetopt::option_start;
- $Getopt::Long::order = $newgetopt::order
- if defined $newgetopt::order;
- $Getopt::Long::bundling = $newgetopt::bundling
- if defined $newgetopt::bundling;
- $Getopt::Long::ignorecase = $newgetopt::ignorecase
- if defined $newgetopt::ignorecase;
- $Getopt::Long::ignorecase = $newgetopt::ignorecase
- if defined $newgetopt::ignorecase;
- $Getopt::Long::passthrough = $newgetopt::passthrough
- if defined $newgetopt::passthrough;
-
- &GetOptions;
-}
-
-################ Package return ################
-
-1;
-
-################ End of newgetopt.pl ################
diff --git a/3.8.8/sources/cpan-Getopt-Long/vendor/t/gol-compat.t b/3.8.8/sources/cpan-Getopt-Long/vendor/t/gol-compat.t
deleted file mode 100644
index c123ef2..0000000
--- a/3.8.8/sources/cpan-Getopt-Long/vendor/t/gol-compat.t
+++ /dev/null
@@ -1,29 +0,0 @@
-#!./perl -w
-
-no strict;
-
-BEGIN {
- if ($ENV{PERL_CORE}) {
- @INC = '../lib';
- chdir 't';
- }
-}
-
-require "newgetopt.pl";
-
-print "1..9\n";
-
- at ARGV = qw(-Foo -baR --foo bar);
-$newgetopt::ignorecase = 0;
-$newgetopt::ignorecase = 0;
-undef $opt_baR;
-undef $opt_bar;
-print "ok 1\n" if NGetOpt ("foo", "Foo=s");
-print ((defined $opt_foo) ? "" : "not ", "ok 2\n");
-print (($opt_foo == 1) ? "" : "not ", "ok 3\n");
-print ((defined $opt_Foo) ? "" : "not ", "ok 4\n");
-print (($opt_Foo eq "-baR") ? "" : "not ", "ok 5\n");
-print ((@ARGV == 1) ? "" : "not ", "ok 6\n");
-print (($ARGV[0] eq "bar") ? "" : "not ", "ok 7\n");
-print (!(defined $opt_baR) ? "" : "not ", "ok 8\n");
-print (!(defined $opt_bar) ? "" : "not ", "ok 9\n");
diff --git a/3.8.8/sources/cpan-Getopt-Long/vendor/t/gol-xargv.t b/3.8.8/sources/cpan-Getopt-Long/vendor/t/gol-xargv.t
deleted file mode 100644
index 52294e8..0000000
--- a/3.8.8/sources/cpan-Getopt-Long/vendor/t/gol-xargv.t
+++ /dev/null
@@ -1,33 +0,0 @@
-#!./perl -w
-
-no strict;
-
-BEGIN {
- if ($ENV{PERL_CORE}) {
- @INC = '../lib';
- chdir 't';
- }
-}
-
-use Getopt::Long qw(GetOptionsFromArray :config no_ignore_case);
-my $want_version="2.3501";
-die("Getopt::Long version $want_version required--this is only version ".
- $Getopt::Long::VERSION)
- unless $Getopt::Long::VERSION ge $want_version;
-
-print "1..10\n";
-
-my @argv = qw(-Foo -baR --foo bar);
- at ARGV = qw(foo bar);
-undef $opt_baR;
-undef $opt_bar;
-print (GetOptionsFromArray(\@argv, "foo", "Foo=s") ? "" : "not ", "ok 1\n");
-print ((defined $opt_foo) ? "" : "not ", "ok 2\n");
-print (($opt_foo == 1) ? "" : "not ", "ok 3\n");
-print ((defined $opt_Foo) ? "" : "not ", "ok 4\n");
-print (($opt_Foo eq "-baR") ? "" : "not ", "ok 5\n");
-print ((@argv == 1) ? "" : "not ", "ok 6\n");
-print (($argv[0] eq "bar") ? "" : "not ", "ok 7\n");
-print (!(defined $opt_baR) ? "" : "not ", "ok 8\n");
-print (!(defined $opt_bar) ? "" : "not ", "ok 9\n");
-print ("@ARGV" eq "foo bar" ? "" : "not ", "ok 10\n");
diff --git a/3.8.8/sources/cpan-IO-Compress/vendor/examples/compress-zlib/filtdef b/3.8.8/sources/cpan-IO-Compress/vendor/examples/compress-zlib/filtdef
deleted file mode 100755
index 57dfeb9..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/examples/compress-zlib/filtdef
+++ /dev/null
@@ -1,29 +0,0 @@
-#!/usr/local/bin/perl
-
-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 ;
diff --git a/3.8.8/sources/cpan-IO-Compress/vendor/examples/compress-zlib/gzcat b/3.8.8/sources/cpan-IO-Compress/vendor/examples/compress-zlib/gzcat
deleted file mode 100755
index 5241a5a..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/examples/compress-zlib/gzcat
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/local/bin/perl
-
-use strict ;
-use warnings ;
-
-use Compress::Zlib ;
-
-#die "Usage: gzcat file...\n"
-# unless @ARGV ;
-
-my $filename ;
-
- at ARGV = '-' unless @ARGV ;
-
-foreach my $filename (@ARGV) {
- my $buffer ;
-
- my $gz = gzopen($filename, "rb")
- or die "Cannot open $filename: $gzerrno\n" ;
-
- print $buffer while $gz->gzread($buffer) > 0 ;
-
- die "Error reading from $filename: $gzerrno" . ($gzerrno+0) . "\n"
- if $gzerrno != Z_STREAM_END ;
-
- $gz->gzclose() ;
-}
diff --git a/3.8.8/sources/cpan-IO-Compress/vendor/examples/io/bzip2/bzcat b/3.8.8/sources/cpan-IO-Compress/vendor/examples/io/bzip2/bzcat
deleted file mode 100755
index 8112320..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/examples/io/bzip2/bzcat
+++ /dev/null
@@ -1,29 +0,0 @@
-#!/usr/local/bin/perl
-
-use IO::Uncompress::Bunzip2 qw( $Bunzip2Error );
-use strict ;
-use warnings ;
-
-#die "Usage: gzcat file...\n"
-# unless @ARGV ;
-
-my $file ;
-my $buffer ;
-my $s;
-
- at ARGV = '-' unless @ARGV ;
-
-foreach $file (@ARGV) {
-
- my $gz = new IO::Uncompress::Bunzip2 $file
- or die "Cannot open $file: $Bunzip2Error\n" ;
-
- print $buffer
- while ($s = $gz->read($buffer)) > 0 ;
-
- die "Error reading from $file: $Bunzip2Error\n"
- if $s < 0 ;
-
- $gz->close() ;
-}
-
diff --git a/3.8.8/sources/cpan-IO-Compress/vendor/examples/io/gzip/gzstream b/3.8.8/sources/cpan-IO-Compress/vendor/examples/io/gzip/gzstream
deleted file mode 100755
index 9d03bc5..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/examples/io/gzip/gzstream
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/usr/local/bin/perl
-
-use strict ;
-use warnings ;
-use IO::Compress::Gzip qw(gzip $GzipError);
-
-gzip '-' => '-', Minimal => 1
- or die "gzstream: $GzipError\n" ;
-
-#exit 0;
-
-__END__
-
-#my $gz = new IO::Compress::Gzip *STDOUT
-my $gz = new IO::Compress::Gzip '-'
- or die "gzstream: Cannot open stdout as gzip stream: $GzipError\n" ;
-
-while (<>) {
- $gz->write($_)
- or die "gzstream: Error writing gzip output stream: $GzipError\n" ;
-}
-
-$gz->close
- or die "gzstream: Error closing gzip output stream: $GzipError\n" ;
diff --git a/3.8.8/sources/cpan-IO-Compress/vendor/lib/IO/Compress/Adapter/Identity.pm b/3.8.8/sources/cpan-IO-Compress/vendor/lib/IO/Compress/Adapter/Identity.pm
deleted file mode 100644
index e6d589e..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/lib/IO/Compress/Adapter/Identity.pm
+++ /dev/null
@@ -1,101 +0,0 @@
-package IO::Compress::Adapter::Identity ;
-
-use strict;
-use warnings;
-use bytes;
-
-use IO::Compress::Base::Common 2.027 qw(:Status);
-our ($VERSION);
-
-$VERSION = '2.027';
-
-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/3.8.8/sources/cpan-IO-Compress/vendor/lib/IO/Compress/Gzip/Constants.pm b/3.8.8/sources/cpan-IO-Compress/vendor/lib/IO/Compress/Gzip/Constants.pm
deleted file mode 100644
index 0d57db6..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/lib/IO/Compress/Gzip/Constants.pm
+++ /dev/null
@@ -1,148 +0,0 @@
-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.027';
-
- at ISA = qw(Exporter);
-
- at 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/3.8.8/sources/cpan-IO-Compress/vendor/lib/IO/Uncompress/Adapter/Bunzip2.pm b/3.8.8/sources/cpan-IO-Compress/vendor/lib/IO/Uncompress/Adapter/Bunzip2.pm
deleted file mode 100644
index a325365..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/lib/IO/Uncompress/Adapter/Bunzip2.pm
+++ /dev/null
@@ -1,112 +0,0 @@
-package IO::Uncompress::Adapter::Bunzip2;
-
-use strict;
-use warnings;
-use bytes;
-
-use IO::Compress::Base::Common 2.027 qw(:Status);
-
-use Compress::Raw::Bzip2 2.027 ;
-
-our ($VERSION, @ISA);
-$VERSION = '2.027';
-
-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/3.8.8/sources/cpan-IO-Compress/vendor/lib/IO/Uncompress/Adapter/Identity.pm b/3.8.8/sources/cpan-IO-Compress/vendor/lib/IO/Uncompress/Adapter/Identity.pm
deleted file mode 100755
index 2ba1a62..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/lib/IO/Uncompress/Adapter/Identity.pm
+++ /dev/null
@@ -1,105 +0,0 @@
-package IO::Uncompress::Adapter::Identity;
-
-use warnings;
-use strict;
-use bytes;
-
-use IO::Compress::Base::Common 2.027 qw(:Status);
-
-our ($VERSION);
-
-$VERSION = '2.027';
-
-use Compress::Raw::Zlib 2.027 ();
-
-sub mkUncompObject
-{
- my $crc32 = 1; #shift ;
- my $adler32 = shift;
-
- bless { 'CompSize' => 0,
- 'UnCompSize' => 0,
- 'wantCRC32' => $crc32,
- 'CRC32' => Compress::Raw::Zlib::crc32(''),
- 'wantADLER32'=> $adler32,
- 'ADLER32' => Compress::Raw::Zlib::adler32(''),
- 'ConsumesInput' => 1,
-
- } ;
-}
-
-sub uncompr
-{
- my $self = shift;
- my $eof = $_[2];
-
- if (defined ${ $_[0] } && length ${ $_[0] }) {
- $self->{CompSize} += length ${ $_[0] } ;
- $self->{UnCompSize} = $self->{CompSize} ;
-
- $self->{CRC32} = Compress::Raw::Zlib::crc32($_[0], $self->{CRC32})
- if $self->{wantCRC32};
-
- $self->{ADLER32} = Compress::Zlib::adler32($_[0], $self->{ADLER32})
- if $self->{wantADLER32};
-
- ${ $_[1] } .= ${ $_[0] };
- ${ $_[0] } = "";
- }
-
- 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->{UnCompSize} ;
-}
-
-sub uncompressedBytes
-{
- my $self = shift ;
- return $self->{UnCompSize} ;
-}
-
-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/3.8.8/sources/cpan-IO-Compress/vendor/lib/IO/Uncompress/AnyUncompress.pm b/3.8.8/sources/cpan-IO-Compress/vendor/lib/IO/Uncompress/AnyUncompress.pm
deleted file mode 100644
index 206a0ed..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/lib/IO/Uncompress/AnyUncompress.pm
+++ /dev/null
@@ -1,1018 +0,0 @@
-package IO::Uncompress::AnyUncompress ;
-
-use strict;
-use warnings;
-use bytes;
-
-use IO::Compress::Base::Common 2.027 qw(createSelfTiedObject);
-
-use IO::Uncompress::Base 2.027 ;
-
-
-require Exporter ;
-
-our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError);
-
-$VERSION = '2.027';
-$AnyUncompressError = '';
-
- at ISA = qw( Exporter IO::Uncompress::Base );
- at 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
-{
- eval ' use IO::Uncompress::Adapter::Inflate 2.027 ;';
- eval ' use IO::Uncompress::Adapter::Bunzip2 2.027 ;';
- eval ' use IO::Uncompress::Adapter::LZO 2.027 ;';
- eval ' use IO::Uncompress::Adapter::Lzf 2.027 ;';
- eval ' use IO::Uncompress::Adapter::UnLzma 2.020 ;';
- eval ' use IO::Uncompress::Adapter::UnXz 2.020 ;';
-
- eval ' use IO::Uncompress::Bunzip2 2.027 ;';
- eval ' use IO::Uncompress::UnLzop 2.027 ;';
- eval ' use IO::Uncompress::Gunzip 2.027 ;';
- eval ' use IO::Uncompress::Inflate 2.027 ;';
- eval ' use IO::Uncompress::RawInflate 2.027 ;';
- eval ' use IO::Uncompress::Unzip 2.027 ;';
- eval ' use IO::Uncompress::UnLzf 2.027 ;';
- eval ' use IO::Uncompress::UnLzma 2.027 ;';
- eval ' use IO::Uncompress::UnXz 2.027 ;';
-}
-
-sub new
-{
- my $class = shift ;
- my $obj = createSelfTiedObject($class, \$AnyUncompressError);
- $obj->_create(undef, 0, @_);
-}
-
-sub anyuncompress
-{
- my $obj = createSelfTiedObject(undef, \$AnyUncompressError);
- return $obj->_inf(@_) ;
-}
-
-sub getExtraParams
-{
- use IO::Compress::Base::Common 2.027 qw(:Parse);
- return ( 'RawInflate' => [1, 1, Parse_boolean, 0] ,
- 'UnLzma' => [1, 1, Parse_boolean, 0] ) ;
-}
-
-sub ckParams
-{
- my $self = shift ;
- my $got = shift ;
-
- # any always needs both crc32 and adler32
- $got->value('CRC32' => 1);
- $got->value('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->value('RawInflate');
-
- $magic = $self->ckMagic( @possible );
-
- if ($magic) {
- *$self->{Info} = $self->readHeader($magic)
- or return undef ;
-
- return 1;
- }
- }
-
- if (defined $IO::Uncompress::UnLzma::VERSION && $got->value('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->value('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 => $output [,OPTS]
- or die "anyuncompress failed: $AnyUncompressError\n";
-
-The functional interface needs Perl5.005 or better.
-
-=head2 anyuncompress $input => $output [, OPTS]
-
-C<anyuncompress> expects at least two parameters, C<$input> and C<$output>.
-
-=head3 The C<$input> parameter
-
-The parameter, C<$input>, 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 C<$input> 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> 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> is a scalar reference, the input data will be read
-from C<$$input>.
-
-=item An array reference
-
-If C<$input> 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> 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> parameter is any other type, C<undef> will be returned.
-
-=head3 The C<$output> parameter
-
-The parameter C<$output> 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> 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> 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> is a scalar reference, the uncompressed data will be
-stored in C<$$output>.
-
-=item An Array Reference
-
-If C<$output> is an array reference, the uncompressed data will be
-pushed onto the array.
-
-=item An Output FileGlob
-
-If C<$output> 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> is an fileglob string, C<$input> 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> parameter is any other type, C<undef> will be returned.
-
-=head2 Notes
-
-When C<$input> maps to multiple compressed files/buffers and C<$output> is
-a single file/buffer, after uncompression C<$output> 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 appened 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<$$output>.
-
-=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/bufffer 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 the 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 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.
-
-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 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 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<Compress::Zlib::FAQ|Compress::Zlib::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 at cpan.org>.
-
-=head1 MODIFICATION HISTORY
-
-See the Changes file.
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright (c) 2005-2010 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/3.8.8/sources/cpan-IO-Compress/vendor/lib/IO/Uncompress/Base.pm b/3.8.8/sources/cpan-IO-Compress/vendor/lib/IO/Uncompress/Base.pm
deleted file mode 100644
index e73bb9d..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/lib/IO/Uncompress/Base.pm
+++ /dev/null
@@ -1,1474 +0,0 @@
-
-package IO::Uncompress::Base ;
-
-use strict ;
-use warnings;
-use bytes;
-
-our (@ISA, $VERSION, @EXPORT_OK, %EXPORT_TAGS);
- at ISA = qw(Exporter IO::File);
-
-
-$VERSION = '2.027';
-
-use constant G_EOF => 0 ;
-use constant G_ERR => -1 ;
-
-use IO::Compress::Base::Common 2.027 ;
-#use Parse::Parameters ;
-
-use IO::File ;
-use Symbol;
-use Scalar::Util qw(readonly);
-use List::Util qw(min);
-use Carp ;
-
-%EXPORT_TAGS = ( );
-push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
-#Exporter::export_ok_tags('all') ;
-
-
-
-sub smartRead
-{
- my $self = $_[0];
- my $out = $_[1];
- my $size = $_[2];
- $$out = "" ;
-
- my $offset = 0 ;
-
-
- if (defined *$self->{InputLength}) {
- return 0
- if *$self->{InputLengthRemaining} <= 0 ;
- $size = min($size, *$self->{InputLengthRemaining});
- }
-
- if ( length *$self->{Prime} ) {
- #$$out = substr(*$self->{Prime}, 0, $size, '') ;
- $$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 = '';
- *$self->{FH}->read($tmp, $get_size) &&
- (substr($$out, $offset) = $tmp);
- }
- else
- { *$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), '');
- *$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 ;
- #$$out = '' unless defined $$out ;
- 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};
-
- $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;
- #print "smartSeek to $offset\n";
-
- # TODO -- need to take prime into account
- if (defined *$self->{FH})
- { *$self->{FH}->seek($offset, SEEK_SET) }
- else {
- *$self->{BufferOffset} = $offset ;
- substr(${ *$self->{Buffer} }, *$self->{BufferOffset}) = ''
- if $truncate;
- return 1;
- }
-}
-
-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 ;
- #return $errno unless $errno || ! defined *$self->{ErrorNo};
- #return $errno unless $errno ;
-
- *$self->{ErrorNo} = $errno;
- ${ *$self->{Error} } = '' ;
-
- return *$self->{ErrorNo} ;
-}
-
-
-sub saveErrorString
-{
- my $self = shift ;
- my $retval = shift ;
-
- #return $retval if ${ *$self->{Error} };
-
- ${ *$self->{Error} } = shift ;
- *$self->{ErrorNo} = shift() + 0 if @_ ;
-
- #warn "saveErrorString: " . ${ *$self->{Error} } . " " . *$self->{Error} . "\n" ;
- 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' => [1, 1, Parse_unsigned, 16 * 1024],
- 'AutoClose' => [1, 1, Parse_boolean, 0],
- 'Strict' => [1, 1, Parse_boolean, 0],
- 'Append' => [1, 1, Parse_boolean, 0],
- 'Prime' => [1, 1, Parse_any, undef],
- 'MultiStream' => [1, 1, Parse_boolean, 0],
- 'Transparent' => [1, 1, Parse_any, 1],
- 'Scan' => [1, 1, Parse_boolean, 0],
- 'InputLength' => [1, 1, Parse_unsigned, undef],
- 'BinModeOut' => [1, 1, Parse_boolean, 0],
- #'Encode' => [1, 1, Parse_any, undef],
-
- #'ConsumeInput' => [1, 1, Parse_boolean, 0],
-
- $self->getExtraParams(),
-
- #'Todo - Revert to ordinary file on end Z_STREAM_END'=> 0,
- # ContinueAfterEof
- } ;
-
- $Valid->{TrailingData} = [1, 1, Parse_writable_scalar, undef]
- if *$self->{OneShot} ;
-
- $got->parse($Valid, @_ )
- or $self->croakError("${class}: $got->{Error}") ;
-
- $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->value('Scan');
- }
- else {
- no warnings ;
- my $mode = '<';
- $mode = '+<' if $got->value('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->parsed('Encode')) {
- my $want_encoding = $got->value('Encode');
- *$obj->{Encoding} = getEncoding($obj, $class, $want_encoding);
- }
-
-
- *$obj->{InputLength} = $got->parsed('InputLength')
- ? $got->value('InputLength')
- : undef ;
- *$obj->{InputLengthRemaining} = $got->value('InputLength');
- *$obj->{BufferOffset} = 0 ;
- *$obj->{AutoClose} = $got->value('AutoClose');
- *$obj->{Strict} = $got->value('Strict');
- *$obj->{BlockSize} = $got->value('BlockSize');
- *$obj->{Append} = $got->value('Append');
- *$obj->{AppendOutput} = $append_mode || $got->value('Append');
- *$obj->{ConsumeInput} = $got->value('ConsumeInput');
- *$obj->{Transparent} = $got->value('Transparent');
- *$obj->{MultiStream} = $got->value('MultiStream');
-
- # TODO - move these two into RawDeflate
- *$obj->{Scan} = $got->value('Scan');
- *$obj->{ParseExtra} = $got->value('ParseExtra')
- || $got->value('Strict') ;
- *$obj->{Type} = '';
- *$obj->{Prime} = $got->value('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;
-
- if ( ! $status) {
- return undef
- unless *$obj->{Transparent};
-
- $obj->clearError();
- *$obj->{Type} = 'plain';
- *$obj->{Plain} = 1;
- #$status = $obj->mkIdentityUncomp($class, $got);
- $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'))
- {
- *$obj->{TrailingData} = $got->value('TrailingData');
- }
-
- *$obj->{MultiStream} = $got->value('MultiStream');
- $got->value('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}->value('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}->value('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}->value('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}->value('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 = 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) {
- 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 if $status < 0 ;
-
- 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 = min($size, *$self->{CompressedInputLengthRemaining} );
- *$self->{CompressedInputLengthRemaining} -= $size ;
- }
-
- my $status = $self->smartRead($buff, $size) ;
- return $self->saveErrorString(STATUS_ERROR, "Error Reading Data")
- if $status < 0 ;
-
- 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 !length *$self->{Pending} && *$self->{EndStream} ;
- 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 < 0 ;
-
- 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);
-
- if (*$self->{Encoding}) {
- $$buffer = *$self->{Encoding}->decode($$buffer);
- }
- }
-
- if ($status == STATUS_ENDSTREAM) {
-
- *$self->{EndStream} = 1 ;
-#$self->pushBack($temp_buf) ;
-#$temp_buf = '';
-
- 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 to file 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->reset();
- *$self->{UnCompSize}->reset();
- *$self->{CompSize}->reset();
-
- my $magic = $self->ckMagic();
- #*$self->{EndStream} = 0 ;
-
- if ( ! defined $magic) {
- if (! *$self->{Transparent} )
- {
- *$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
-{
- # return codes
- # >0 - ok, number of bytes read
- # =0 - ok, eof
- # <0 - not ok
-
- my $self = shift ;
-
- return G_EOF if *$self->{Closed} ;
-
- my $buffer ;
-
- if (ref $_[0] ) {
- $self->croakError(*$self->{ClassName} . "::read: buffer parameter is read-only")
- if 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 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) = '';
- }
- }
- }
-
- 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($$buffer, $offset) = substr($$out_buffer, 0, $length) ;
- substr($$out_buffer, 0, $length) = '' ;
-
- return $length ;
-}
-
-sub _getline
-{
- my $self = shift ;
-
- # Slurp Mode
- if ( ! defined $/ ) {
- my $data ;
- 1 while $self->read($data) > 0 ;
- return \$data ;
- }
-
- # Record Mode
- if ( ref $/ eq 'SCALAR' && ${$/} =~ /^\d+$/ && ${$/} > 0) {
- my $reclen = ${$/} ;
- my $data ;
- $self->read($data, $reclen) ;
- return \$data ;
- }
-
- # Paragraph Mode
- if ( ! length $/ ) {
- my $paragraph ;
- while ($self->read($paragraph) > 0 ) {
- if ($paragraph =~ s/^(.*?\n\n+)//s) {
- *$self->{Pending} = $paragraph ;
- my $par = $1 ;
- return \$par ;
- }
- }
- return \$paragraph;
- }
-
- # $/ isn't empty, or a reference, so it's Line Mode.
- {
- my $line ;
- my $offset;
- my $p = \*$self->{Pending} ;
-
- if (length(*$self->{Pending}) &&
- ($offset = index(*$self->{Pending}, $/)) >=0) {
- my $l = substr(*$self->{Pending}, 0, $offset + length $/ );
- substr(*$self->{Pending}, 0, $offset + length $/) = '';
- return \$l;
- }
-
- while ($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 \$l;
- }
- }
-
- return \$line;
- }
-}
-
-sub getline
-{
- my $self = shift;
- my $current_append = *$self->{AppendOutput} ;
- *$self->{AppendOutput} = 1;
- my $lineref = $self->_getline();
- $. = ++ *$self->{LineNo} if defined $$lineref ;
- *$self->{AppendOutput} = $current_append;
- 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}) {
- #if ( *$self->{AutoClose}) {
- 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, 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" ; } ;
- 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 if to to be sub-classed by IO::Unompress 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<Compress::Zlib::FAQ|Compress::Zlib::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 at cpan.org>.
-
-=head1 MODIFICATION HISTORY
-
-See the Changes file.
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright (c) 2005-2010 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/3.8.8/sources/cpan-IO-Compress/vendor/pod/FAQ.pod b/3.8.8/sources/cpan-IO-Compress/vendor/pod/FAQ.pod
deleted file mode 100644
index 671148d..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/pod/FAQ.pod
+++ /dev/null
@@ -1,514 +0,0 @@
-
-=head1 NAME
-
-IO::Compress::FAQ -- Frequently Asked Questions about IO::Compress
-
-=head1 DESCRIPTION
-
-Common questions answered.
-
-=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 Accessing Zip Files
-
-This module provides support for reading/writing zip files using the
-C<IO::Compress::Zip> and C<IO::Uncompress::Unzip> modules.
-
-The primary focus of the C<IO::Compress::Zip> and C<IO::Uncompress::Unzip>
-modules is to provide an C<IO::File> compatible streaming read/write
-interface to zip files/buffers. They are not fully flegged archivers. If
-you are looking for an archiver check out the C<Archive::Zip> module. You
-can find it on CPAN at
-
- http://www.cpan.org/modules/by-module/Archive/Archive-Zip-*.tar.gz
-
-=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";
-
-=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 usign the technique above.
-
-=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 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 comnpresion, 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<Compress::Zlib::FAQ|Compress::Zlib::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 at cpan.org>.
-
-=head1 MODIFICATION HISTORY
-
-See the Changes file.
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright (c) 2005-2010 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/3.8.8/sources/cpan-IO-Compress/vendor/private/MakeUtil.pm b/3.8.8/sources/cpan-IO-Compress/vendor/private/MakeUtil.pm
deleted file mode 100644
index 47aebd6..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/private/MakeUtil.pm
+++ /dev/null
@@ -1,381 +0,0 @@
-package MakeUtil ;
-package main ;
-
-use strict ;
-
-use Config qw(%Config);
-use File::Copy;
-
-my $VERSION = '1.0';
-
-
-BEGIN
-{
- eval { require File::Spec::Functions ; File::Spec::Functions->import() } ;
- if ($@)
- {
- *catfile = sub { return "$_[0]/$_[1]" }
- }
-}
-
-require VMS::Filespec if $^O eq 'VMS';
-
-
-unless($ENV{PERL_CORE}) {
- $ENV{PERL_CORE} = 1 if grep { $_ eq 'PERL_CORE=1' } @ARGV;
-}
-
-$ENV{SKIP_FOR_CORE} = 1 if $ENV{PERL_CORE} || $ENV{MY_PERL_CORE} ;
-
-
-
-sub MY::libscan
-{
- my $self = shift;
- my $path = shift;
-
- return undef
- if $path =~ /(~|\.bak|_bak)$/ ||
- $path =~ /\..*\.sw(o|p)$/ ||
- $path =~ /\B\.svn\b/;
-
- return $path;
-}
-
-sub MY::postamble
-{
- return ''
- if $ENV{PERL_CORE} ;
-
- my @files = getPerlFiles('MANIFEST');
-
- # Note: Once you remove all the layers of shell/makefile escaping
- # the regular expression below reads
- #
- # /^\s*local\s*\(\s*\$^W\s*\)/
- #
- my $postamble = '
-
-MyTrebleCheck:
- @echo Checking for $$^W in files: '. "@files" . '
- perl -ne \' \
- exit 1 if /^\s*local\s*\(\s*\$$\^W\s*\)/; \' \
- ' . " @files || " . ' \
- (echo found unexpected $$^W ; exit 1)
- @echo All is ok.
-
-';
-
- return $postamble;
-}
-
-sub getPerlFiles
-{
- my @manifests = @_ ;
-
- my @files = ();
-
- for my $manifest (@manifests)
- {
- my $prefix = './';
-
- $prefix = $1
- if $manifest =~ m#^(.*/)#;
-
- open M, "<$manifest"
- or die "Cannot open '$manifest': $!\n";
- while (<M>)
- {
- chomp ;
- next if /^\s*#/ || /^\s*$/ ;
-
- s/^\s+//;
- s/\s+$//;
-
- /^(\S+)\s*(.*)$/;
-
- my ($file, $rest) = ($1, $2);
-
- if ($file =~ /\.(pm|pl|t)$/ and $file !~ /MakeUtil.pm/)
- {
- push @files, "$prefix$file";
- }
- elsif ($rest =~ /perl/i)
- {
- push @files, "$prefix$file";
- }
-
- }
- close M;
- }
-
- return @files;
-}
-
-sub UpDowngrade
-{
- return if defined $ENV{TipTop};
-
- my @files = @_ ;
-
- # our and use bytes/utf8 is stable from 5.6.0 onward
- # warnings is stable from 5.6.1 onward
-
- # Note: this code assumes that each statement it modifies is not
- # split across multiple lines.
-
-
- my $warn_sub = '';
- my $our_sub = '' ;
-
- my $upgrade ;
- my $downgrade ;
- my $do_downgrade ;
-
- my $caller = (caller(1))[3] || '';
-
- if ($caller =~ /downgrade/)
- {
- $downgrade = 1;
- }
- elsif ($caller =~ /upgrade/)
- {
- $upgrade = 1;
- }
- else
- {
- $do_downgrade = 1
- if $] < 5.006001 ;
- }
-
-# else
-# {
-# my $opt = shift @ARGV || '' ;
-# $upgrade = ($opt =~ /^-upgrade/i);
-# $downgrade = ($opt =~ /^-downgrade/i);
-# push @ARGV, $opt unless $downgrade || $upgrade;
-# }
-
-
- if ($downgrade || $do_downgrade) {
- # From: use|no warnings "blah"
- # To: local ($^W) = 1; # use|no warnings "blah"
- $warn_sub = sub {
- s/^(\s*)(no\s+warnings)/${1}local (\$^W) = 0; #$2/ ;
- s/^(\s*)(use\s+warnings)/${1}local (\$^W) = 1; #$2/ ;
- };
- }
- #elsif ($] >= 5.006001 || $upgrade) {
- elsif ($upgrade) {
- # From: local ($^W) = 1; # use|no warnings "blah"
- # To: use|no warnings "blah"
- $warn_sub = sub {
- s/^(\s*)local\s*\(\$\^W\)\s*=\s*\d+\s*;\s*#\s*((no|use)\s+warnings.*)/$1$2/ ;
- };
- }
-
- if ($downgrade || $do_downgrade) {
- $our_sub = sub {
- if ( /^(\s*)our\s+\(\s*([^)]+\s*)\)/ ) {
- my $indent = $1;
- my $vars = join ' ', split /\s*,\s*/, $2;
- $_ = "${indent}use vars qw($vars);\n";
- }
- elsif ( /^(\s*)((use|no)\s+(bytes|utf8)\s*;.*)$/)
- {
- $_ = "$1# $2\n";
- }
- };
- }
- #elsif ($] >= 5.006000 || $upgrade) {
- elsif ($upgrade) {
- $our_sub = sub {
- if ( /^(\s*)use\s+vars\s+qw\((.*?)\)/ ) {
- my $indent = $1;
- my $vars = join ', ', split ' ', $2;
- $_ = "${indent}our ($vars);\n";
- }
- elsif ( /^(\s*)#\s*((use|no)\s+(bytes|utf8)\s*;.*)$/)
- {
- $_ = "$1$2\n";
- }
- };
- }
-
- if (! $our_sub && ! $warn_sub) {
- warn "Up/Downgrade not needed.\n";
- if ($upgrade || $downgrade)
- { exit 0 }
- else
- { return }
- }
-
- foreach (@files) {
- #if (-l $_ )
- { doUpDown($our_sub, $warn_sub, $_) }
- #else
- #{ doUpDownViaCopy($our_sub, $warn_sub, $_) }
- }
-
- warn "Up/Downgrade complete.\n" ;
- exit 0 if $upgrade || $downgrade;
-
-}
-
-
-sub doUpDown
-{
- my $our_sub = shift;
- my $warn_sub = shift;
-
- return if -d $_[0];
-
- local ($^I) = ($^O eq 'VMS') ? "_bak" : ".bak";
- local (@ARGV) = shift;
-
- while (<>)
- {
- print, last if /^__(END|DATA)__/ ;
-
- &{ $our_sub }() if $our_sub ;
- &{ $warn_sub }() if $warn_sub ;
- print ;
- }
-
- return if eof ;
-
- while (<>)
- { print }
-}
-
-sub doUpDownViaCopy
-{
- my $our_sub = shift;
- my $warn_sub = shift;
- my $file = shift ;
-
- use File::Copy ;
-
- return if -d $file ;
-
- my $backup = $file . ($^O eq 'VMS') ? "_bak" : ".bak";
-
- copy($file, $backup)
- or die "Cannot copy $file to $backup: $!";
-
- my @keep = ();
-
- {
- open F, "<$file"
- or die "Cannot open $file: $!\n" ;
- while (<F>)
- {
- if (/^__(END|DATA)__/)
- {
- push @keep, $_;
- last ;
- }
-
- &{ $our_sub }() if $our_sub ;
- &{ $warn_sub }() if $warn_sub ;
- push @keep, $_;
- }
-
- if (! eof F)
- {
- while (<F>)
- { push @keep, $_ }
- }
- close F;
- }
-
- {
- open F, ">$file"
- or die "Cannot open $file: $!\n";
- print F @keep ;
- close F;
- }
-}
-
-
-sub FindBrokenDependencies
-{
- my $version = shift ;
- my %thisModule = map { $_ => 1} @_;
-
- my @modules = qw(
- IO::Compress::Base
- IO::Compress::Base::Common
- IO::Uncompress::Base
-
- Compress::Raw::Zlib
- Compress::Raw::Bzip2
-
- IO::Compress::RawDeflate
- IO::Uncompress::RawInflate
- IO::Compress::Deflate
- IO::Uncompress::Inflate
- IO::Compress::Gzip
- IO::Compress::Gzip::Constants
- IO::Uncompress::Gunzip
- IO::Compress::Zip
- IO::Uncompress::Unzip
-
- IO::Compress::Bzip2
- IO::Uncompress::Bunzip2
-
- IO::Compress::Lzf
- IO::Uncompress::UnLzf
-
- IO::Compress::Lzop
- IO::Uncompress::UnLzop
-
- Compress::Zlib
- );
-
- my @broken = ();
-
- foreach my $module ( grep { ! $thisModule{$_} } @modules)
- {
- my $hasVersion = getInstalledVersion($module);
-
- # No need to upgrade if the module isn't installed at all
- next
- if ! defined $hasVersion;
-
- # If already have C::Z version 1, then an upgrade to any of the
- # IO::Compress modules will not break it.
- next
- if $module eq 'Compress::Zlib' && $hasVersion < 2;
-
- if ($hasVersion < $version)
- {
- push @broken, $module
- }
- }
-
- return @broken;
-}
-
-sub getInstalledVersion
-{
- my $module = shift;
- my $version;
-
- eval " require $module; ";
-
- if ($@ eq '')
- {
- no strict 'refs';
- $version = ${ $module . "::VERSION" };
- $version = 0
- }
-
- return $version;
-}
-
-package MakeUtil ;
-
-1;
-
-
diff --git a/3.8.8/sources/cpan-IO-Compress/vendor/t/001zlib-generic-zip.t b/3.8.8/sources/cpan-IO-Compress/vendor/t/001zlib-generic-zip.t
deleted file mode 100644
index a9c7555..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/t/001zlib-generic-zip.t
+++ /dev/null
@@ -1,20 +0,0 @@
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = ("../lib", "lib/compress");
- }
-}
-
-use lib qw(t t/compress);
-use strict;
-use warnings;
-
-use IO::Compress::Zip qw($ZipError) ;
-use IO::Uncompress::Unzip qw($UnzipError) ;
-
-sub identify
-{
- 'IO::Compress::Zip';
-}
-
-require "zlib-generic.pl" ;
diff --git a/3.8.8/sources/cpan-IO-Compress/vendor/t/002any-deflate.t b/3.8.8/sources/cpan-IO-Compress/vendor/t/002any-deflate.t
deleted file mode 100644
index 6a4387e..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/t/002any-deflate.t
+++ /dev/null
@@ -1,29 +0,0 @@
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = ("../lib", "lib/compress");
- }
-}
-
-use lib qw(t t/compress);
-use strict;
-use warnings;
-
-
-use IO::Uncompress::AnyInflate qw($AnyInflateError) ;
-
-use IO::Compress::Deflate qw($DeflateError) ;
-use IO::Uncompress::Inflate qw($InflateError) ;
-
-sub getClass
-{
- 'AnyInflate';
-}
-
-sub identify
-{
- 'IO::Compress::Deflate';
-}
-
-require "any.pl" ;
-run();
diff --git a/3.8.8/sources/cpan-IO-Compress/vendor/t/002any-zip.t b/3.8.8/sources/cpan-IO-Compress/vendor/t/002any-zip.t
deleted file mode 100644
index 27f1714..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/t/002any-zip.t
+++ /dev/null
@@ -1,29 +0,0 @@
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = ("../lib", "lib/compress");
- }
-}
-
-use lib qw(t t/compress);
-use strict;
-use warnings;
-
-use IO::Uncompress::AnyInflate qw($AnyInflateError) ;
-
-use IO::Compress::Zip qw($ZipError) ;
-use IO::Uncompress::Unzip qw($UnzipError) ;
-
-sub getClass
-{
- 'AnyInflate';
-}
-
-
-sub identify
-{
- 'IO::Compress::Zip';
-}
-
-require "any.pl" ;
-run();
diff --git a/3.8.8/sources/cpan-IO-Compress/vendor/t/010examples-bzip2.t b/3.8.8/sources/cpan-IO-Compress/vendor/t/010examples-bzip2.t
deleted file mode 100644
index 9bb5eb2..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/t/010examples-bzip2.t
+++ /dev/null
@@ -1,145 +0,0 @@
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = ("../lib", "lib/compress");
- }
-}
-
-use lib qw(t t/compress);
-
-use strict;
-use warnings;
-use bytes;
-
-use Test::More ;
-use CompTestUtils;
-use IO::Compress::Bzip2 'bzip2' ;
-
-BEGIN
-{
- plan(skip_all => "Examples needs Perl 5.005 or better - you have Perl $]" )
- if $] < 5.005 ;
-
- # use Test::NoWarnings, if available
- my $extra = 0 ;
- $extra = 1
- if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 };
-
- plan tests => 19 + $extra ;
-}
-
-
-my $Inc = join " ", map qq["-I$_"] => @INC;
-$Inc = '"-MExtUtils::testlib"'
- if ! $ENV{PERL_CORE} && eval " require ExtUtils::testlib; " ;
-
-my $Perl = ($ENV{'FULLPERL'} or $^X or 'perl') ;
-$Perl = qq["$Perl"] if $^O eq 'MSWin32' ;
-
-$Perl = "$Perl $Inc -w" ;
-#$Perl .= " -Mblib " ;
-my $examples = $ENV{PERL_CORE} ? "../ext/IO-Compress/examples/io/bzip2"
- : "./examples/io/bzip2";
-
-my $hello1 = <<EOM ;
-hello
-this is
-a test
-message
-x ttttt
-xuuuuuu
-the end
-EOM
-
-my @hello1 = grep(s/$/\n/, split(/\n/, $hello1)) ;
-
-my $hello2 = <<EOM;
-
-Howdy
-this is the
-second
-file
-x ppppp
-xuuuuuu
-really the end
-EOM
-
-my @hello2 = grep(s/$/\n/, split(/\n/, $hello2)) ;
-
-my $file1 = "hello1.gz" ;
-my $file2 = "hello2.gz" ;
-my $stderr = "err.out" ;
-
-for ($file1, $file2, $stderr) { 1 while unlink $_ } ;
-
-
-bzip2 \$hello1 => $file1 ;
-bzip2 \$hello2 => $file2 ;
-
-sub check
-{
- my $command = shift ;
- my $expected = shift ;
-
- my $stderr = 'err.out';
- 1 while unlink $stderr;
-
- my $cmd = "$command 2>$stderr";
- my $stdout = `$cmd` ;
-
- my $aok = 1 ;
-
- $aok &= is $?, 0, " exit status is 0" ;
-
- $aok &= is readFile($stderr), '', " no stderr" ;
-
- $aok &= is $stdout, $expected, " expected content is ok"
- if defined $expected ;
-
- if (! $aok) {
- diag "Command line: $cmd";
- my ($file, $line) = (caller)[1,2];
- diag "Test called from $file, line $line";
- }
-
- 1 while unlink $stderr;
-}
-
-# bzcat
-# #####
-
-title "bzcat - command line" ;
-check "$Perl ${examples}/bzcat $file1 $file2", $hello1 . $hello2;
-
-title "bzcat - stdin" ;
-check "$Perl ${examples}/bzcat <$file1 ", $hello1;
-
-
-# bzgrep
-# ######
-
-title "bzgrep";
-check "$Perl ${examples}/bzgrep the $file1 $file2",
- join('', grep(/the/, @hello1, @hello2));
-
-for ($file1, $file2, $stderr) { 1 while unlink $_ } ;
-
-
-
-# bzstream
-# ########
-
-{
- title "bzstream" ;
- writeFile($file1, $hello1) ;
- check "$Perl ${examples}/bzstream <$file1 >$file2";
-
- title "bzcat" ;
- check "$Perl ${examples}/bzcat $file2", $hello1 ;
-}
-
-END
-{
- for ($file1, $file2, $stderr) { 1 while unlink $_ } ;
-}
-
diff --git a/3.8.8/sources/cpan-IO-Compress/vendor/t/100generic-bzip2.t b/3.8.8/sources/cpan-IO-Compress/vendor/t/100generic-bzip2.t
deleted file mode 100644
index a9f430e..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/t/100generic-bzip2.t
+++ /dev/null
@@ -1,21 +0,0 @@
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = ("../lib", "lib/compress");
- }
-}
-
-use lib qw(t t/compress);
-use strict;
-use warnings;
-
-use IO::Compress::Bzip2 qw($Bzip2Error) ;
-use IO::Uncompress::Bunzip2 qw($Bunzip2Error) ;
-
-sub identify
-{
- 'IO::Compress::Bzip2';
-}
-
-require "generic.pl" ;
-run();
diff --git a/3.8.8/sources/cpan-IO-Compress/vendor/t/100generic-rawdeflate.t b/3.8.8/sources/cpan-IO-Compress/vendor/t/100generic-rawdeflate.t
deleted file mode 100644
index b5a4369..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/t/100generic-rawdeflate.t
+++ /dev/null
@@ -1,21 +0,0 @@
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = ("../lib", "lib/compress");
- }
-}
-
-use lib qw(t t/compress);
-use strict;
-use warnings;
-
-use IO::Compress::RawDeflate qw($RawDeflateError) ;
-use IO::Uncompress::RawInflate qw($RawInflateError) ;
-
-sub identify
-{
- 'IO::Compress::RawDeflate';
-}
-
-require "generic.pl" ;
-run();
diff --git a/3.8.8/sources/cpan-IO-Compress/vendor/t/101truncate-gzip.t b/3.8.8/sources/cpan-IO-Compress/vendor/t/101truncate-gzip.t
deleted file mode 100644
index 1e546b4..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/t/101truncate-gzip.t
+++ /dev/null
@@ -1,36 +0,0 @@
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = ("../lib", "lib/compress");
- }
-}
-
-use lib qw(t t/compress);
-use strict;
-use warnings;
-
-#use Test::More skip_all => "not implemented yet";
-use Test::More ;
-
-BEGIN {
- # use Test::NoWarnings, if available
- my $extra = 0 ;
- $extra = 1
- if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 };
-
- plan tests => 978 + $extra;
-
-};
-
-
-
-use IO::Compress::Gzip qw($GzipError) ;
-use IO::Uncompress::Gunzip qw($GunzipError) ;
-
-sub identify
-{
- return 'IO::Compress::Gzip';
-}
-
-require "truncate.pl" ;
-run();
diff --git a/3.8.8/sources/cpan-IO-Compress/vendor/t/101truncate-rawdeflate.t b/3.8.8/sources/cpan-IO-Compress/vendor/t/101truncate-rawdeflate.t
deleted file mode 100644
index d81b54a..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/t/101truncate-rawdeflate.t
+++ /dev/null
@@ -1,130 +0,0 @@
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = ("../lib", "lib/compress");
- }
-}
-
-use lib qw(t t/compress);
-use strict;
-use warnings;
-
-use Test::More ;
-
-BEGIN {
- # use Test::NoWarnings, if available
- my $extra = 0 ;
- $extra = 1
- if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 };
-
- plan tests => 625 + $extra;
-
-};
-
-
-use IO::Compress::RawDeflate qw($RawDeflateError) ;
-use IO::Uncompress::RawInflate qw($RawInflateError) ;
-
-#sub identify
-#{
-# 'IO::Compress::RawDeflate';
-#}
-#
-#require "truncate.pl" ;
-#run();
-
-use CompTestUtils;
-
-my $hello = <<EOM ;
-hello world
-this is a test
-some more stuff on this line
-ad finally...
-EOM
-
-my $blocksize = 10 ;
-
-
-foreach my $CompressClass ( 'IO::Compress::RawDeflate')
-{
- my $UncompressClass = getInverse($CompressClass);
- my $Error = getErrorRef($UncompressClass);
-
- my $compressed ;
- ok( my $x = new IO::Compress::RawDeflate \$compressed);
- ok $x->write($hello) ;
- ok $x->close ;
-
-
- my $cc = $compressed ;
-
- my $gz ;
- ok($gz = new $UncompressClass(\$cc,
- -Transparent => 0))
- or diag "$$Error\n";
- my $un;
- is $gz->read($un, length($hello)), length($hello);
- ok $gz->close();
- is $un, $hello ;
-
- for my $trans (0 .. 1)
- {
- title "Testing $CompressClass, Transparent = $trans";
-
- my $info = $gz->getHeaderInfo() ;
- my $header_size = $info->{HeaderLength};
- my $trailer_size = $info->{TrailerLength};
- ok 1, "Compressed size is " . length($compressed) ;
- ok 1, "Header size is $header_size" ;
- ok 1, "Trailer size is $trailer_size" ;
-
-
- title "Compressed Data Truncation";
- foreach my $i (0 .. $blocksize)
- {
-
- my $lex = new LexFile my $name ;
-
- ok 1, "Length $i" ;
- my $part = substr($compressed, 0, $i);
- writeFile($name, $part);
- my $gz = new $UncompressClass $name,
- -BlockSize => $blocksize,
- -Transparent => $trans;
- if ($trans) {
- ok $gz;
- ok ! $gz->error() ;
- my $buff = '';
- is $gz->read($buff, length $part), length $part ;
- is $buff, $part ;
- ok $gz->eof() ;
- $gz->close();
- }
- else {
- ok !$gz;
- }
- }
-
- foreach my $i ($blocksize+1 .. length($compressed)-1)
- {
-
- my $lex = new LexFile my $name ;
-
- ok 1, "Length $i" ;
- my $part = substr($compressed, 0, $i);
- writeFile($name, $part);
- ok my $gz = new $UncompressClass $name,
- -BlockSize => $blocksize,
- -Transparent => $trans;
- my $un ;
- my $status = 1 ;
- $status = $gz->read($un) while $status > 0 ;
- ok $status < 0 ;
- ok $gz->eof() ;
- ok $gz->error() ;
- $gz->close();
- }
- }
-
-}
-
diff --git a/3.8.8/sources/cpan-IO-Compress/vendor/t/102tied-bzip2.t b/3.8.8/sources/cpan-IO-Compress/vendor/t/102tied-bzip2.t
deleted file mode 100644
index 8503e02..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/t/102tied-bzip2.t
+++ /dev/null
@@ -1,21 +0,0 @@
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = ("../lib", "lib/compress");
- }
-}
-
-use lib qw(t t/compress);
-use strict;
-use warnings;
-
-use IO::Compress::Bzip2 qw($Bzip2Error) ;
-use IO::Uncompress::Bunzip2 qw($Bunzip2Error) ;
-
-sub identify
-{
- 'IO::Compress::Bzip2';
-}
-
-require "tied.pl" ;
-run();
diff --git a/3.8.8/sources/cpan-IO-Compress/vendor/t/103newtied-deflate.t b/3.8.8/sources/cpan-IO-Compress/vendor/t/103newtied-deflate.t
deleted file mode 100644
index 42a3d3c..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/t/103newtied-deflate.t
+++ /dev/null
@@ -1,21 +0,0 @@
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = ("../lib", "lib/compress");
- }
-}
-
-use lib qw(t t/compress);
-use strict;
-use warnings;
-
-use IO::Compress::Deflate qw($DeflateError) ;
-use IO::Uncompress::Inflate qw($InflateError) ;
-
-sub identify
-{
- 'IO::Compress::Deflate';
-}
-
-require "newtied.pl" ;
-run();
diff --git a/3.8.8/sources/cpan-IO-Compress/vendor/t/106prime-bzip2.t b/3.8.8/sources/cpan-IO-Compress/vendor/t/106prime-bzip2.t
deleted file mode 100644
index d5a0d98..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/t/106prime-bzip2.t
+++ /dev/null
@@ -1,21 +0,0 @@
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = ("../lib", "lib/compress");
- }
-}
-
-use lib qw(t t/compress);
-use strict;
-use warnings;
-
-use IO::Compress::Bzip2 qw($Bzip2Error) ;
-use IO::Uncompress::Bunzip2 qw($Bunzip2Error) ;
-
-sub identify
-{
- 'IO::Compress::Bzip2';
-}
-
-require "prime.pl" ;
-run();
diff --git a/3.8.8/sources/cpan-IO-Compress/vendor/t/106prime-deflate.t b/3.8.8/sources/cpan-IO-Compress/vendor/t/106prime-deflate.t
deleted file mode 100644
index 0ef9bd8..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/t/106prime-deflate.t
+++ /dev/null
@@ -1,21 +0,0 @@
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = ("../lib", "lib/compress");
- }
-}
-
-use lib qw(t t/compress);
-use strict;
-use warnings;
-
-use IO::Compress::Deflate qw($DeflateError) ;
-use IO::Uncompress::Inflate qw($InflateError) ;
-
-sub identify
-{
- 'IO::Compress::Deflate';
-}
-
-require "prime.pl" ;
-run();
diff --git a/3.8.8/sources/cpan-IO-Compress/vendor/t/106prime-rawdeflate.t b/3.8.8/sources/cpan-IO-Compress/vendor/t/106prime-rawdeflate.t
deleted file mode 100644
index 4c81f7c..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/t/106prime-rawdeflate.t
+++ /dev/null
@@ -1,21 +0,0 @@
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = ("../lib", "lib/compress");
- }
-}
-
-use lib qw(t t/compress);
-use strict;
-use warnings;
-
-use IO::Compress::RawDeflate qw($RawDeflateError) ;
-use IO::Uncompress::RawInflate qw($RawInflateError) ;
-
-sub identify
-{
- 'IO::Compress::RawDeflate';
-}
-
-require "prime.pl" ;
-run();
diff --git a/3.8.8/sources/cpan-IO-Compress/vendor/t/107multi-zip.t b/3.8.8/sources/cpan-IO-Compress/vendor/t/107multi-zip.t
deleted file mode 100644
index fea653f..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/t/107multi-zip.t
+++ /dev/null
@@ -1,21 +0,0 @@
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = ("../lib", "lib/compress");
- }
-}
-
-use lib qw(t t/compress);
-use strict;
-use warnings;
-
-use IO::Compress::Zip qw($ZipError) ;
-use IO::Uncompress::Unzip qw($UnzipError) ;
-
-sub identify
-{
- 'IO::Compress::Zip';
-}
-
-require "multi.pl" ;
-run();
diff --git a/3.8.8/sources/cpan-IO-Compress/vendor/t/108anyunc-transparent.t b/3.8.8/sources/cpan-IO-Compress/vendor/t/108anyunc-transparent.t
deleted file mode 100644
index 687b1f5..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/t/108anyunc-transparent.t
+++ /dev/null
@@ -1,72 +0,0 @@
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = ("../lib", "lib/compress");
- }
-}
-
-use lib qw(t t/compress);
-
-use strict;
-use warnings;
-use bytes;
-
-use Test::More ;
-use CompTestUtils;
-
-BEGIN {
- # use Test::NoWarnings, if available
- my $extra = 0 ;
- $extra = 1
- if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 };
-
- plan tests => 15 + $extra ;
-
- use_ok('IO::Uncompress::AnyUncompress', qw($AnyUncompressError)) ;
-
-}
-
-{
-
- my $string = <<EOM;
-This is not compressed data
-EOM
-
- my $buffer = $string ;
-
- for my $file (0, 1)
- {
- title "AnyUncompress with Non-compressed data (File $file)" ;
-
- my $lex = new LexFile my $output;
- my $input ;
-
- if ($file) {
- writeFile($output, $buffer);
- $input = $output;
- }
- else {
- $input = \$buffer;
- }
-
-
- my $unc ;
- my $keep = $buffer ;
- $unc = new IO::Uncompress::AnyUncompress $input, -Transparent => 0 ;
- ok ! $unc," no AnyUncompress object when -Transparent => 0" ;
- is $buffer, $keep ;
-
- $buffer = $keep ;
- $unc = new IO::Uncompress::AnyUncompress \$buffer, -Transparent => 1 ;
- ok $unc, " AnyUncompress object when -Transparent => 1" ;
-
- my $uncomp ;
- ok $unc->read($uncomp) > 0 ;
- ok $unc->eof() ;
- #ok $unc->type eq $Type;
-
- is $uncomp, $string ;
- }
-}
-
-1;
diff --git a/3.8.8/sources/cpan-IO-Compress/vendor/t/110encode-rawdeflate.t b/3.8.8/sources/cpan-IO-Compress/vendor/t/110encode-rawdeflate.t
deleted file mode 100644
index 58fa741..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/t/110encode-rawdeflate.t
+++ /dev/null
@@ -1,21 +0,0 @@
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = ("../lib", "lib/compress");
- }
-}
-
-use lib qw(t t/compress);
-use strict;
-use warnings;
-
-use IO::Compress::RawDeflate qw($RawDeflateError) ;
-use IO::Uncompress::RawInflate qw($RawInflateError) ;
-
-sub identify
-{
- 'IO::Compress::RawDeflate';
-}
-
-require "encode.pl" ;
-run();
diff --git a/3.8.8/sources/cpan-IO-Compress/vendor/t/Test/Simple.pm b/3.8.8/sources/cpan-IO-Compress/vendor/t/Test/Simple.pm
deleted file mode 100644
index 2317f54..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/t/Test/Simple.pm
+++ /dev/null
@@ -1,236 +0,0 @@
-package Test::Simple;
-
-use 5.004;
-
-use strict 'vars';
-our ($VERSION);
-$VERSION = '0.60';
-$VERSION = eval $VERSION; # make the alpha version come out as a number
-
-
-use Test::Builder;
-my $Test = Test::Builder->new;
-
-sub import {
- my $self = shift;
- my $caller = caller;
- *{$caller.'::ok'} = \&ok;
-
- $Test->exported_to($caller);
- $Test->plan(@_);
-}
-
-
-=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 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 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 );
-
-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.
-
-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 ($;$) {
- $Test->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 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
- 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 (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.004.
-
-Test::Simple is thread-safe in perl 5.8.0 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
-Test::More. Test::Simple is 100% forward compatible with Test::More
-(i.e. you can just use Test::More instead of Test::Simple in your
-programs and things will still work).
-
-=item L<Test>
-
-The original Perl testing module.
-
-=item L<Test::Unit>
-
-Elaborate unit testing.
-
-=item L<Test::Inline>, L<SelfTest>
-
-Embed tests in your code!
-
-=item L<Test::Harness>
-
-Interprets the output of your test program.
-
-=back
-
-
-=head1 AUTHORS
-
-Idea by Tony Bowden and Paul Johnson, code by Michael G Schwern
-E<lt>schwern at pobox.comE<gt>, wardrobe by Calvin Klein.
-
-
-=head1 COPYRIGHT
-
-Copyright 2001, 2002, 2004 by Michael G Schwern E<lt>schwern at 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/3.8.8/sources/cpan-IO-Compress/vendor/t/compress/newtied.pl b/3.8.8/sources/cpan-IO-Compress/vendor/t/compress/newtied.pl
deleted file mode 100644
index 41861e9..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/t/compress/newtied.pl
+++ /dev/null
@@ -1,374 +0,0 @@
-use lib 't';
-use strict;
-use warnings;
-use bytes;
-
-use Test::More ;
-use CompTestUtils;
-
-our ($BadPerl, $UncompressClass);
-
-BEGIN
-{
- plan(skip_all => "Extra Tied Filehandle needs Perl 5.6 or better - you have Perl $]" )
- if $] < 5.006 ;
-
- my $tests ;
-
- $BadPerl = ($] >= 5.006 and $] <= 5.008) ;
-
- if ($BadPerl) {
- $tests = 78 ;
- }
- else {
- $tests = 84 ;
- }
-
- # use Test::NoWarnings, if available
- my $extra = 0 ;
- $extra = 1
- if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 };
-
- plan tests => $tests + $extra ;
-
-}
-
-
-use IO::Handle qw(SEEK_SET SEEK_CUR SEEK_END);
-
-
-
-sub myGZreadFile
-{
- my $filename = shift ;
- my $init = shift ;
-
-
- my $fil = new $UncompressClass $filename,
- -Strict => 1,
- -Append => 1
- ;
-
- my $data ;
- $data = $init if defined $init ;
- 1 while $fil->read($data) > 0;
-
- $fil->close ;
- return $data ;
-}
-
-
-sub run
-{
-
- my $CompressClass = identify();
- $UncompressClass = getInverse($CompressClass);
- my $Error = getErrorRef($CompressClass);
- my $UnError = getErrorRef($UncompressClass);
-
- {
- title "Testing $CompressClass and $UncompressClass";
-
-
-
- {
- # Write
- # these tests come almost 100% from IO::String
-
- my $lex = new LexFile my $name ;
-
- my $io = $CompressClass->new($name);
-
- is tell($io), 0 ;
- is $io->tell(), 0 ;
-
- my $heisan = "Heisan\n";
- print $io $heisan ;
-
- ok ! eof($io);
- ok ! $io->eof();
-
- is tell($io), length($heisan) ;
- is $io->tell(), length($heisan) ;
-
- $io->print("a", "b", "c");
-
- {
- local($\) = "\n";
- print $io "d", "e";
- local($,) = ",";
- print $io "f", "g", "h";
- }
-
- my $foo = "1234567890";
-
- ok syswrite($io, $foo, length($foo)) == length($foo) ;
- if ( $] < 5.6 )
- { is $io->syswrite($foo, length $foo), length $foo }
- else
- { is $io->syswrite($foo), length $foo }
- ok $io->syswrite($foo, length($foo)) == length $foo;
- ok $io->write($foo, length($foo), 5) == 5;
- ok $io->write("xxx\n", 100, -1) == 1;
-
- for (1..3) {
- printf $io "i(%d)", $_;
- $io->printf("[%d]\n", $_);
- }
- select $io;
- print "\n";
- select STDOUT;
-
- close $io ;
-
- ok eof($io);
- ok $io->eof();
-
- is myGZreadFile($name), "Heisan\nabcde\nf,g,h\n" .
- ("1234567890" x 3) . "67890\n" .
- "i(1)[1]\ni(2)[2]\ni(3)[3]\n\n";
-
-
- }
-
- {
- # Read
- my $str = <<EOT;
-This is an example
-of a paragraph
-
-
-and a single line.
-
-EOT
-
- my $lex = new LexFile my $name ;
-
- my $iow = new $CompressClass $name ;
- print $iow $str ;
- close $iow;
-
- my @tmp;
- my $buf;
- {
- my $io = new $UncompressClass $name ;
-
- ok ! $io->eof;
- ok ! eof $io;
- is $io->tell(), 0 ;
- is tell($io), 0 ;
- my @lines = <$io>;
- is @lines, 6
- or print "# Got " . scalar(@lines) . " lines, expected 6\n" ;
- is $lines[1], "of a paragraph\n" ;
- is join('', @lines), $str ;
- is $., 6;
- #print "TELL says " . tell($io) , " should be ${ \length($str) }\n" ;
- is $io->tell(), length($str) ;
- is tell($io), length($str) ;
-
- ok $io->eof;
- ok eof $io;
-
- ok ! ( defined($io->getline) ||
- (@tmp = $io->getlines) ||
- defined(<$io>) ||
- defined($io->getc) ||
- read($io, $buf, 100) != 0) ;
- }
-
-
- {
- local $/; # slurp mode
- my $io = $UncompressClass->new($name);
- ok ! $io->eof;
- my @lines = $io->getlines;
- ok $io->eof;
- ok @lines == 1 && $lines[0] eq $str;
-
- $io = $UncompressClass->new($name);
- ok ! $io->eof;
- my $line = <$io>;
- ok $line eq $str;
- ok $io->eof;
- }
-
- {
- local $/ = ""; # paragraph mode
- my $io = $UncompressClass->new($name);
- ok ! $io->eof;
- my @lines = <$io>;
- ok $io->eof;
- ok @lines == 2
- or print "# Got " . scalar(@lines) . " lines, expected 2\n" ;
- ok $lines[0] eq "This is an example\nof a paragraph\n\n\n"
- or print "# $lines[0]\n";
- ok $lines[1] eq "and a single line.\n\n";
- }
-
- {
- local $/ = "is";
- my $io = $UncompressClass->new($name);
- my @lines = ();
- my $no = 0;
- my $err = 0;
- ok ! $io->eof;
- while (<$io>) {
- push(@lines, $_);
- $err++ if $. != ++$no;
- }
-
- ok $err == 0 ;
- ok $io->eof;
-
- ok @lines == 3
- or print "# Got " . scalar(@lines) . " lines, expected 3\n" ;
- ok join("-", @lines) eq
- "This- is- an example\n" .
- "of a paragraph\n\n\n" .
- "and a single line.\n\n";
- }
-
-
- # Test read
-
- {
- my $io = $UncompressClass->new($name);
-
- ok $io, "opened ok" ;
-
- #eval { read($io, $buf, -1); } ;
- #like $@, mkErr("length parameter is negative"), "xxx $io $UncompressClass $RawInflateError" ;
-
- #eval { read($io, 1) } ;
- #like $@, mkErr("buffer parameter is read-only");
-
- is read($io, $buf, 0), 0, "Requested 0 bytes" ;
-
- ok read($io, $buf, 3) == 3 ;
- ok $buf eq "Thi";
-
- ok sysread($io, $buf, 3, 2) == 3 ;
- ok $buf eq "Ths i"
- or print "# [$buf]\n" ;;
- ok ! $io->eof;
-
- # $io->seek(-4, 2);
- #
- # ok ! $io->eof;
- #
- # ok read($io, $buf, 20) == 4 ;
- # ok $buf eq "e.\n\n";
- #
- # ok read($io, $buf, 20) == 0 ;
- # ok $buf eq "";
- #
- # ok ! $io->eof;
- }
-
- }
-
-
-
- {
- title "seek tests" ;
-
- my $lex = new LexFile my $name ;
-
- my $first = "beginning" ;
- my $last = "the end" ;
- my $iow = new $CompressClass $name ;
- print $iow $first ;
- ok seek $iow, 10, SEEK_CUR ;
- is tell($iow), length($first)+10;
- ok $iow->seek(0, SEEK_CUR) ;
- is tell($iow), length($first)+10;
- print $iow $last ;
- close $iow;
-
- my $io = $UncompressClass->new($name);
- ok myGZreadFile($name) eq $first . "\x00" x 10 . $last ;
-
- $io = $UncompressClass->new($name);
- ok seek $io, length($first)+10, SEEK_CUR ;
- ok ! $io->eof;
- is tell($io), length($first)+10;
- ok seek $io, 0, SEEK_CUR ;
- is tell($io), length($first)+10;
- my $buff ;
- ok read $io, $buff, 100 ;
- ok $buff eq $last ;
- ok $io->eof;
- }
-
- if (! $BadPerl)
- {
- # seek error cases
- my $b ;
- my $a = new $CompressClass(\$b) ;
-
- ok ! $a->error() ;
- eval { seek($a, -1, 10) ; };
- like $@, mkErr("seek: unknown value, 10, for whence parameter");
-
- eval { seek($a, -1, SEEK_END) ; };
- like $@, mkErr("cannot seek backwards");
-
- print $a "fred";
- close $a ;
-
-
- my $u = new $UncompressClass(\$b) ;
-
- eval { seek($u, -1, 10) ; };
- like $@, mkErr("seek: unknown value, 10, for whence parameter");
-
- eval { seek($u, -1, SEEK_END) ; };
- like $@, mkErr("seek: SEEK_END not allowed");
-
- eval { seek($u, -1, SEEK_CUR) ; };
- like $@, mkErr("cannot seek backwards");
- }
-
- {
- title 'fileno' ;
-
- my $lex = new LexFile my $name ;
-
- my $hello = <<EOM ;
-hello world
-this is a test
-EOM
-
- {
- my $fh ;
- ok $fh = new IO::File ">$name" ;
- my $x ;
- ok $x = new $CompressClass $fh ;
-
- ok $x->fileno() == fileno($fh) ;
- ok $x->fileno() == fileno($x) ;
- ok $x->write($hello) ;
- ok $x->close ;
- $fh->close() ;
- }
-
- my $uncomp;
- {
- my $x ;
- ok my $fh1 = new IO::File "<$name" ;
- ok $x = new $UncompressClass $fh1, -Append => 1 ;
- ok $x->fileno() == fileno $fh1 ;
- ok $x->fileno() == fileno $x ;
-
- 1 while $x->read($uncomp) > 0 ;
-
- ok $x->close ;
- }
-
- ok $hello eq $uncomp ;
- }
- }
-}
-
-1;
diff --git a/3.8.8/sources/cpan-IO-Compress/vendor/t/cz-01version.t b/3.8.8/sources/cpan-IO-Compress/vendor/t/cz-01version.t
deleted file mode 100644
index ff10f32..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/t/cz-01version.t
+++ /dev/null
@@ -1,45 +0,0 @@
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = ("../lib", "lib/compress");
- }
-}
-
-use lib qw(t t/compress);
-use strict ;
-use warnings ;
-
-use Test::More ;
-
-BEGIN
-{
- # use Test::NoWarnings, if available
- my $extra = 0 ;
- $extra = 1
- if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 };
-
- plan tests => 2 + $extra ;
-
- use_ok('Compress::Zlib', 2) ;
-}
-
-# Check zlib_version and ZLIB_VERSION are the same.
-
-SKIP: {
- skip "TEST_SKIP_VERSION_CHECK is set", 1
- if $ENV{TEST_SKIP_VERSION_CHECK};
- my $zlib_h = ZLIB_VERSION ;
- my $libz = Compress::Zlib::zlib_version;
-
- is($zlib_h, $libz, "ZLIB_VERSION ($zlib_h) matches Compress::Zlib::zlib_version")
- or diag <<EOM;
-
-The version of zlib.h does not match the version of libz
-
-You have zlib.h version $zlib_h
- and libz version $libz
-
-You probably have two versions of zlib installed on your system.
-Try removing the one you don't want to use and rebuild.
-EOM
-}
diff --git a/3.8.8/sources/cpan-IO-Compress/vendor/t/cz-14gzopen.t b/3.8.8/sources/cpan-IO-Compress/vendor/t/cz-14gzopen.t
deleted file mode 100644
index fa05a9f..0000000
--- a/3.8.8/sources/cpan-IO-Compress/vendor/t/cz-14gzopen.t
+++ /dev/null
@@ -1,650 +0,0 @@
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = ("../lib", "lib/compress");
- }
-}
-
-use lib qw(t t/compress);
-use strict;
-use warnings;
-use bytes;
-
-use Test::More ;
-use CompTestUtils;
-use IO::File ;
-
-BEGIN {
- # use Test::NoWarnings, if available
- my $extra = 0 ;
- $extra = 1
- if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 };
-
- plan tests => 255 + $extra ;
-
- use_ok('Compress::Zlib', 2) ;
- use_ok('IO::Compress::Gzip::Constants') ;
-}
-
-{
- SKIP: {
- skip "TEST_SKIP_VERSION_CHECK is set", 1
- if $ENV{TEST_SKIP_VERSION_CHECK};
- # Check zlib_version and ZLIB_VERSION are the same.
- is Compress::Zlib::zlib_version, ZLIB_VERSION,
- "ZLIB_VERSION matches Compress::Zlib::zlib_version" ;
- }
-}
-
-{
- # gzip tests
- #===========
-
- #my $name = "test.gz" ;
- my $lex = new LexFile my $name ;
-
- my $hello = <<EOM ;
-hello world
-this is a test
-EOM
-
- my $len = length $hello ;
-
- my ($x, $uncomp) ;
-
- ok my $fil = gzopen($name, "wb") ;
-
- is $gzerrno, 0, 'gzerrno is 0';
- is $fil->gzerror(), 0, "gzerror() returned 0";
-
- is $fil->gztell(), 0, "gztell returned 0";
- is $gzerrno, 0, 'gzerrno is 0';
-
- is $fil->gzwrite($hello), $len ;
- is $gzerrno, 0, 'gzerrno is 0';
-
- is $fil->gztell(), $len, "gztell returned $len";
- is $gzerrno, 0, 'gzerrno is 0';
-
- ok ! $fil->gzclose ;
-
- ok $fil = gzopen($name, "rb") ;
-
- ok ! $fil->gzeof() ;
- is $gzerrno, 0, 'gzerrno is 0';
- is $fil->gztell(), 0;
-
- is $fil->gzread($uncomp), $len;
-
- is $fil->gztell(), $len;
- ok $fil->gzeof() ;
-
- # gzread after eof bahavior
-
- my $xyz = "123" ;
- is $fil->gzread($xyz), 0, "gzread returns 0 on eof" ;
- is $xyz, "", "gzread on eof zaps the output buffer [Match 1,x behavior]" ;
-
- ok ! $fil->gzclose ;
- ok $fil->gzeof() ;
-
- ok $hello eq $uncomp ;
-}
-
-{
- title 'check that a number can be gzipped';
- my $lex = new LexFile my $name ;
-
-
- my $number = 7603 ;
- my $num_len = 4 ;
-
- ok my $fil = gzopen($name, "wb") ;
-
- is $gzerrno, 0;
-
- is $fil->gzwrite($number), $num_len, "gzwrite returned $num_len" ;
- is $gzerrno, 0, 'gzerrno is 0';
- ok ! $fil->gzflush(Z_FINISH) ;
-
- is $gzerrno, 0, 'gzerrno is 0';
-
- ok ! $fil->gzclose ;
-
- cmp_ok $gzerrno, '==', 0;
-
- ok $fil = gzopen($name, "rb") ;
-
- my $uncomp;
- ok ((my $x = $fil->gzread($uncomp)) == $num_len) ;
-
- ok $fil->gzerror() == 0 || $fil->gzerror() == Z_STREAM_END;
- ok $gzerrno == 0 || $gzerrno == Z_STREAM_END;
- ok $fil->gzeof() ;
-
- ok ! $fil->gzclose ;
- ok $fil->gzeof() ;
-
- ok $gzerrno == 0
- or print "# gzerrno is $gzerrno\n" ;
-
- 1 while unlink $name ;
-
- ok $number == $uncomp ;
- ok $number eq $uncomp ;
-}
-
-{
- title "now a bigger gzip test";
-
- my $text = 'text' ;
- my $lex = new LexFile my $file ;
-
-
- ok my $f = gzopen($file, "wb") ;
-
- # generate a long random string
- my $contents = '' ;
- foreach (1 .. 5000)
- { $contents .= chr int rand 256 }
-
- my $len = length $contents ;
-
- is $f->gzwrite($contents), $len ;
-
- ok ! $f->gzclose ;
-
- ok $f = gzopen($file, "rb") ;
-
- ok ! $f->gzeof() ;
-
- my $uncompressed ;
- is $f->gzread($uncompressed, $len), $len ;
-
- is $contents, $uncompressed
-
- or print "# Length orig $len" .
- ", Length uncompressed " . length($uncompressed) . "\n" ;
-
- ok $f->gzeof() ;
- ok ! $f->gzclose ;
-
-}
-
-{
- title "gzip - readline tests";
- # ======================
-
- # first create a small gzipped text file
- my $lex = new LexFile my $name ;
-
- my @text = (<<EOM, <<EOM, <<EOM, <<EOM) ;
-this is line 1
-EOM
-the second line
-EOM
-the line after the previous line
-EOM
-the final line
-EOM
-
- my $text = join("", @text) ;
-
- ok my $fil = gzopen($name, "wb") ;
- is $fil->gzwrite($text), length($text) ;
- ok ! $fil->gzclose ;
-
- # now try to read it back in
- ok $fil = gzopen($name, "rb") ;
- ok ! $fil->gzeof() ;
- my $line = '';
- for my $i (0 .. @text -2)
- {
- ok $fil->gzreadline($line) > 0;
- is $line, $text[$i] ;
- ok ! $fil->gzeof() ;
- }
-
- # now read the last line
- ok $fil->gzreadline($line) > 0;
- is $line, $text[-1] ;
- ok $fil->gzeof() ;
-
- # read past the eof
- is $fil->gzreadline($line), 0;
-
- ok $fil->gzeof() ;
- ok ! $fil->gzclose ;
- ok $fil->gzeof() ;
-}
-
-{
- title "A text file with a very long line (bigger than the internal buffer)";
- my $lex = new LexFile my $name ;
-
- my $line1 = ("abcdefghijklmnopq" x 2000) . "\n" ;
- my $line2 = "second line\n" ;
- my $text = $line1 . $line2 ;
- ok my $fil = gzopen($name, "wb"), " gzopen ok" ;
- is $fil->gzwrite($text), length $text, " gzwrite ok" ;
- ok ! $fil->gzclose, " gzclose" ;
-
- # now try to read it back in
- ok $fil = gzopen($name, "rb"), " gzopen" ;
- ok ! $fil->gzeof(), "! eof" ;
- my $i = 0 ;
- my @got = ();
- my $line;
- while ($fil->gzreadline($line) > 0) {
- $got[$i] = $line ;
- ++ $i ;
- }
- is $i, 2, " looped twice" ;
- is $got[0], $line1, " got line 1" ;
- is $got[1], $line2, " hot line 2" ;
-
- ok $fil->gzeof(), " gzeof" ;
- ok ! $fil->gzclose, " gzclose" ;
- ok $fil->gzeof(), " gzeof" ;
-}
-
-{
- title "a text file which is not termined by an EOL";
-
- my $lex = new LexFile my $name ;
-
- my $line1 = "hello hello, I'm back again\n" ;
- my $line2 = "there is no end in sight" ;
-
- my $text = $line1 . $line2 ;
- ok my $fil = gzopen($name, "wb"), " gzopen" ;
- is $fil->gzwrite($text), length $text, " gzwrite" ;
- ok ! $fil->gzclose, " gzclose" ;
-
- # now try to read it back in
- ok $fil = gzopen($name, "rb"), " gzopen" ;
- my @got = () ;
- my $i = 0 ;
- my $line;
- while ($fil->gzreadline($line) > 0) {
- $got[$i] = $line ;
- ++ $i ;
- }
- is $i, 2, " got 2 lines" ;
- is $got[0], $line1, " line 1 ok" ;
- is $got[1], $line2, " line 2 ok" ;
-
- ok $fil->gzeof(), " gzeof" ;
- ok ! $fil->gzclose, " gzclose" ;
-}
-
-{
-
- title 'mix gzread and gzreadline';
-
- # case 1: read a line, then a block. The block is
- # smaller than the internal block used by
- # gzreadline
- my $lex = new LexFile my $name ;
- my $line1 = "hello hello, I'm back again\n" ;
- my $line2 = "abc" x 200 ;
- my $line3 = "def" x 200 ;
- my $line;
-
- my $text = $line1 . $line2 . $line3 ;
- my $fil;
- ok $fil = gzopen($name, "wb"), ' gzopen for write ok' ;
- is $fil->gzwrite($text), length $text, ' gzwrite ok' ;
- is $fil->gztell(), length $text, ' gztell ok' ;
- ok ! $fil->gzclose, ' gzclose ok' ;
-
- # now try to read it back in
- ok $fil = gzopen($name, "rb"), ' gzopen for read ok' ;
- ok ! $fil->gzeof(), ' !gzeof' ;
- cmp_ok $fil->gzreadline($line), '>', 0, ' gzreadline' ;
- is $fil->gztell(), length $line1, ' gztell ok' ;
- ok ! $fil->gzeof(), ' !gzeof' ;
- is $line, $line1, ' got expected line' ;
- cmp_ok $fil->gzread($line, length $line2), '>', 0, ' gzread ok' ;
- is $fil->gztell(), length($line1)+length($line2), ' gztell ok' ;
- ok ! $fil->gzeof(), ' !gzeof' ;
- is $line, $line2, ' read expected block' ;
- cmp_ok $fil->gzread($line, length $line3), '>', 0, ' gzread ok' ;
- is $fil->gztell(), length($text), ' gztell ok' ;
- ok $fil->gzeof(), ' !gzeof' ;
- is $line, $line3, ' read expected block' ;
- ok ! $fil->gzclose, ' gzclose' ;
-}
-
-{
- title "Pass gzopen a filehandle - use IO::File" ;
-
- my $lex = new LexFile my $name ;
-
- my $hello = "hello" ;
- my $len = length $hello ;
-
- my $f = new IO::File ">$name" ;
- ok $f;
-
- my $fil;
- ok $fil = gzopen($f, "wb") ;
-
- ok $fil->gzwrite($hello) == $len ;
-
- ok ! $fil->gzclose ;
-
- $f = new IO::File "<$name" ;
- ok $fil = gzopen($name, "rb") ;
-
- my $uncomp; my $x;
- ok (($x = $fil->gzread($uncomp)) == $len)
- or print "# length $x, expected $len\n" ;
-
- ok $fil->gzeof() ;
- ok ! $fil->gzclose ;
- ok $fil->gzeof() ;
-
- is $uncomp, $hello, "got expected output" ;
-}
-
-
-{
- title "Pass gzopen a filehandle - use open" ;
-
- my $lex = new LexFile my $name ;
-
- my $hello = "hello" ;
- my $len = length $hello ;
-
- open F, ">$name" ;
-
- my $fil;
- ok $fil = gzopen(*F, "wb") ;
-
- is $fil->gzwrite($hello), $len ;
-
- ok ! $fil->gzclose ;
-
- open F, "<$name" ;
- ok $fil = gzopen(*F, "rb") ;
-
- my $uncomp; my $x;
- $x = $fil->gzread($uncomp);
- is $x, $len ;
-
- ok $fil->gzeof() ;
- ok ! $fil->gzclose ;
- ok $fil->gzeof() ;
-
- is $uncomp, $hello ;
-
-
-}
-
-foreach my $stdio ( ['-', '-'], [*STDIN, *STDOUT])
-{
- my $stdin = $stdio->[0];
- my $stdout = $stdio->[1];
-
- title "Pass gzopen a filehandle - use $stdin" ;
-
- my $lex = new LexFile my $name ;
-
- my $hello = "hello" ;
- my $len = length $hello ;
-
- ok open(SAVEOUT, ">&STDOUT"), " save STDOUT";
- my $dummy = fileno SAVEOUT;
- ok open(STDOUT, ">$name"), " redirect STDOUT" ;
-
- my $status = 0 ;
-
- my $fil = gzopen($stdout, "wb") ;
-
- $status = $fil &&
- ($fil->gzwrite($hello) == $len) &&
- ($fil->gzclose == 0) ;
-
- open(STDOUT, ">&SAVEOUT");
-
- ok $status, " wrote to stdout";
-
- open(SAVEIN, "<&STDIN");
- ok open(STDIN, "<$name"), " redirect STDIN";
- $dummy = fileno SAVEIN;
-
- ok $fil = gzopen($stdin, "rb") ;
-
- my $uncomp; my $x;
- ok (($x = $fil->gzread($uncomp)) == $len)
- or print "# length $x, expected $len\n" ;
-
- ok $fil->gzeof() ;
- ok ! $fil->gzclose ;
- ok $fil->gzeof() ;
-
- open(STDIN, "<&SAVEIN");
-
- is $uncomp, $hello ;
-
-
-}
-
-{
- title 'test parameters for gzopen';
- my $lex = new LexFile my $name ;
-
- my $fil;
-
- # missing parameters
- eval ' $fil = gzopen() ' ;
- like $@, mkEvalErr('Not enough arguments for Compress::Zlib::gzopen'),
- ' gzopen with missing mode fails' ;
-
- # unknown parameters
- $fil = gzopen($name, "xy") ;
- ok ! defined $fil, ' gzopen with unknown mode fails' ;
-
- $fil = gzopen($name, "ab") ;
- ok $fil, ' gzopen with mode "ab" is ok' ;
-
- $fil = gzopen($name, "wb6") ;
- ok $fil, ' gzopen with mode "wb6" is ok' ;
-
- $fil = gzopen($name, "wbf") ;
- ok $fil, ' gzopen with mode "wbf" is ok' ;
-
- $fil = gzopen($name, "wbh") ;
- ok $fil, ' gzopen with mode "wbh" is ok' ;
-}
-
-{
- title 'Read operations when opened for writing';
-
- my $lex = new LexFile my $name ;
- my $fil;
- ok $fil = gzopen($name, "wb"), ' gzopen for writing' ;
- ok !$fil->gzeof(), ' !eof'; ;
- is $fil->gzread(), Z_STREAM_ERROR, " gzread returns Z_STREAM_ERROR" ;
- ok ! $fil->gzclose, " gzclose ok" ;
-}
-
-{
- title 'write operations when opened for reading';
-
- my $lex = new LexFile my $name ;
- my $text = "hello" ;
- my $fil;
- ok $fil = gzopen($name, "wb"), " gzopen for writing" ;
- is $fil->gzwrite($text), length $text, " gzwrite ok" ;
- ok ! $fil->gzclose, " gzclose ok" ;
-
- ok $fil = gzopen($name, "rb"), " gzopen for reading" ;
- is $fil->gzwrite(), Z_STREAM_ERROR, " gzwrite returns Z_STREAM_ERROR" ;
-}
-
-{
- title 'read/write a non-readable/writable file';
-
- SKIP:
- {
- my $lex = new LexFile my $name ;
- writeFile($name, "abc");
- chmod 0444, $name ;
-
- skip "Cannot create non-writable file", 3
- if -w $name ;
-
- ok ! -w $name, " input file not writable";
-
- my $fil = gzopen($name, "wb") ;
- ok !$fil, " gzopen returns undef" ;
- ok $gzerrno, " gzerrno ok" or
- diag " gzerrno $gzerrno\n";
-
- chmod 0777, $name ;
- }
-
- SKIP:
- {
- my $lex = new LexFile my $name ;
- skip "Cannot create non-readable file", 3
- if $^O eq 'cygwin';
-
- writeFile($name, "abc");
- chmod 0222, $name ;
-
- skip "Cannot create non-readable file", 3
- if -r $name ;
-
- ok ! -r $name, " input file not readable";
- $gzerrno = 0;
- my $fil = gzopen($name, "rb") ;
- ok !$fil, " gzopen returns undef" ;
- ok $gzerrno, " gzerrno ok";
- chmod 0777, $name ;
- }
-
-}
-
-{
- title "gzseek" ;
-
- my $buff ;
- my $lex = new LexFile my $name ;
-
- my $first = "beginning" ;
- my $last = "the end" ;
- my $iow = gzopen($name, "w");
- $iow->gzwrite($first) ;
- ok $iow->gzseek(5, SEEK_CUR) ;
- is $iow->gztell(), length($first)+5;
- ok $iow->gzseek(0, SEEK_CUR) ;
- is $iow->gztell(), length($first)+5;
- ok $iow->gzseek(length($first)+10, SEEK_SET) ;
- is $iow->gztell(), length($first)+10;
-
- $iow->gzwrite($last) ;
- $iow->gzclose ;
-
- ok GZreadFile($name) eq $first . "\x00" x 10 . $last ;
-
- my $io = gzopen($name, "r");
- ok $io->gzseek(length($first), SEEK_CUR) ;
- ok ! $io->gzeof;
- is $io->gztell(), length($first);
-
- ok $io->gzread($buff, 5) ;
- is $buff, "\x00" x 5 ;
- is $io->gztell(), length($first) + 5;
-
- is $io->gzread($buff, 0), 0 ;
- #is $buff, "\x00" x 5 ;
- is $io->gztell(), length($first) + 5;
-
- ok $io->gzseek(0, SEEK_CUR) ;
- my $here = $io->gztell() ;
- is $here, length($first)+5;
-
- ok $io->gzseek($here+5, SEEK_SET) ;
- is $io->gztell(), $here+5 ;
- ok $io->gzread($buff, 100) ;
- ok $buff eq $last ;
- ok $io->gzeof;
-}
-
-{
- # seek error cases
- my $lex = new LexFile my $name ;
-
- my $a = gzopen($name, "w");
-
- ok ! $a->gzerror()
- or print "# gzerrno is $Compress::Zlib::gzerrno \n" ;
- eval { $a->gzseek(-1, 10) ; };
- like $@, mkErr("gzseek: unknown value, 10, for whence parameter");
-
- eval { $a->gzseek(-1, SEEK_END) ; };
- like $@, mkErr("gzseek: cannot seek backwards");
-
- $a->gzwrite("fred");
- $a->gzclose ;
-
-
- my $u = gzopen($name, "r");
-
- eval { $u->gzseek(-1, 10) ; };
- like $@, mkErr("gzseek: unknown value, 10, for whence parameter");
-
- eval { $u->gzseek(-1, SEEK_END) ; };
- like $@, mkErr("gzseek: SEEK_END not allowed");
-
- eval { $u->gzseek(-1, SEEK_CUR) ; };
- like $@, mkErr("gzseek: cannot seek backwards");
-}
-
-{
- title "gzread ver 1.x compat -- the output buffer is always zapped.";
- my $lex = new LexFile my $name ;
-
- my $a = gzopen($name, "w");
- $a->gzwrite("fred");
- $a->gzclose ;
-
- my $u = gzopen($name, "r");
-
- my $buf1 ;
- is $u->gzread($buf1, 0), 0, " gzread returns 0";
- ok defined $buf1, " output buffer defined";
- is $buf1, "", " output buffer empty string";
-
- my $buf2 = "qwerty";
- is $u->gzread($buf2, 0), 0, " gzread returns 0";
- ok defined $buf2, " output buffer defined";
- is $buf2, "", " output buffer empty string";
-}
-
-{
- title 'gzreadline does not support $/';
-
- my $lex = new LexFile my $name ;
-
- my $a = gzopen($name, "w");
- my $text = "fred\n";
- my $len = length $text;
- $a->gzwrite($text);
- $a->gzwrite("\n\n");
- $a->gzclose ;
-
- for my $delim ( undef, "", 0, 1, "abc", $text, "\n\n", "\n" )
- {
- local $/ = $delim;
- my $u = gzopen($name, "r");
- my $line;
- is $u->gzreadline($line), length $text, " read $len bytes";
- is $line, $text, " got expected line";
- ok ! $u->gzclose, " closed" ;
- is $/, $delim, ' $/ unchanged by gzreadline';
- }
-}
diff --git a/3.8.8/sources/cpan-IO-String/vendor/String.pm b/3.8.8/sources/cpan-IO-String/vendor/String.pm
deleted file mode 100644
index 4bc8e71..0000000
--- a/3.8.8/sources/cpan-IO-String/vendor/String.pm
+++ /dev/null
@@ -1,551 +0,0 @@
-package IO::String;
-
-# Copyright 1998-2005 Gisle Aas.
-#
-# This library is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-
-require 5.005_03;
-use strict;
-use vars qw($VERSION $DEBUG $IO_CONSTANTS);
-$VERSION = "1.08"; # $Date: 2005/12/05 12:00:47 $
-
-use Symbol ();
-
-sub new
-{
- my $class = shift;
- my $self = bless Symbol::gensym(), ref($class) || $class;
- tie *$self, $self;
- $self->open(@_);
- return $self;
-}
-
-sub open
-{
- my $self = shift;
- return $self->new(@_) unless ref($self);
-
- if (@_) {
- my $bufref = ref($_[0]) ? $_[0] : \$_[0];
- $$bufref = "" unless defined $$bufref;
- *$self->{buf} = $bufref;
- }
- else {
- my $buf = "";
- *$self->{buf} = \$buf;
- }
- *$self->{pos} = 0;
- *$self->{lno} = 0;
- return $self;
-}
-
-sub pad
-{
- my $self = shift;
- my $old = *$self->{pad};
- *$self->{pad} = substr($_[0], 0, 1) if @_;
- return "\0" unless defined($old) && length($old);
- return $old;
-}
-
-sub dump
-{
- require Data::Dumper;
- my $self = shift;
- print Data::Dumper->Dump([$self], ['*self']);
- print Data::Dumper->Dump([*$self{HASH}], ['$self{HASH}']);
- return;
-}
-
-sub TIEHANDLE
-{
- print "TIEHANDLE @_\n" if $DEBUG;
- return $_[0] if ref($_[0]);
- my $class = shift;
- my $self = bless Symbol::gensym(), $class;
- $self->open(@_);
- return $self;
-}
-
-sub DESTROY
-{
- print "DESTROY @_\n" if $DEBUG;
-}
-
-sub close
-{
- my $self = shift;
- delete *$self->{buf};
- delete *$self->{pos};
- delete *$self->{lno};
- undef *$self if $] eq "5.008"; # workaround for some bug
- return 1;
-}
-
-sub opened
-{
- my $self = shift;
- return defined *$self->{buf};
-}
-
-sub binmode
-{
- my $self = shift;
- return 1 unless @_;
- # XXX don't know much about layers yet :-(
- return 0;
-}
-
-sub getc
-{
- my $self = shift;
- my $buf;
- return $buf if $self->read($buf, 1);
- return undef;
-}
-
-sub ungetc
-{
- my $self = shift;
- $self->setpos($self->getpos() - 1);
- return 1;
-}
-
-sub eof
-{
- my $self = shift;
- return length(${*$self->{buf}}) <= *$self->{pos};
-}
-
-sub print
-{
- my $self = shift;
- if (defined $\) {
- if (defined $,) {
- $self->write(join($,, @_).$\);
- }
- else {
- $self->write(join("", at _).$\);
- }
- }
- else {
- if (defined $,) {
- $self->write(join($,, @_));
- }
- else {
- $self->write(join("", at _));
- }
- }
- return 1;
-}
-*printflush = \*print;
-
-sub printf
-{
- my $self = shift;
- print "PRINTF(@_)\n" if $DEBUG;
- my $fmt = shift;
- $self->write(sprintf($fmt, @_));
- return 1;
-}
-
-
-my($SEEK_SET, $SEEK_CUR, $SEEK_END);
-
-sub _init_seek_constants
-{
- if ($IO_CONSTANTS) {
- require IO::Handle;
- $SEEK_SET = &IO::Handle::SEEK_SET;
- $SEEK_CUR = &IO::Handle::SEEK_CUR;
- $SEEK_END = &IO::Handle::SEEK_END;
- }
- else {
- $SEEK_SET = 0;
- $SEEK_CUR = 1;
- $SEEK_END = 2;
- }
-}
-
-
-sub seek
-{
- my($self,$off,$whence) = @_;
- my $buf = *$self->{buf} || return 0;
- my $len = length($$buf);
- my $pos = *$self->{pos};
-
- _init_seek_constants() unless defined $SEEK_SET;
-
- if ($whence == $SEEK_SET) { $pos = $off }
- elsif ($whence == $SEEK_CUR) { $pos += $off }
- elsif ($whence == $SEEK_END) { $pos = $len + $off }
- else { die "Bad whence ($whence)" }
- print "SEEK(POS=$pos,OFF=$off,LEN=$len)\n" if $DEBUG;
-
- $pos = 0 if $pos < 0;
- $self->truncate($pos) if $pos > $len; # extend file
- *$self->{pos} = $pos;
- return 1;
-}
-
-sub pos
-{
- my $self = shift;
- my $old = *$self->{pos};
- if (@_) {
- my $pos = shift || 0;
- my $buf = *$self->{buf};
- my $len = $buf ? length($$buf) : 0;
- $pos = $len if $pos > $len;
- *$self->{pos} = $pos;
- }
- return $old;
-}
-
-sub getpos { shift->pos; }
-
-*sysseek = \&seek;
-*setpos = \&pos;
-*tell = \&getpos;
-
-
-
-sub getline
-{
- my $self = shift;
- my $buf = *$self->{buf} || return;
- my $len = length($$buf);
- my $pos = *$self->{pos};
- return if $pos >= $len;
-
- unless (defined $/) { # slurp
- *$self->{pos} = $len;
- return substr($$buf, $pos);
- }
-
- unless (length $/) { # paragraph mode
- # XXX slow&lazy implementation using getc()
- my $para = "";
- my $eol = 0;
- my $c;
- while (defined($c = $self->getc)) {
- if ($c eq "\n") {
- $eol++;
- next if $eol > 2;
- }
- elsif ($eol > 1) {
- $self->ungetc($c);
- last;
- }
- else {
- $eol = 0;
- }
- $para .= $c;
- }
- return $para; # XXX wantarray
- }
-
- my $idx = index($$buf,$/,$pos);
- if ($idx < 0) {
- # return rest of it
- *$self->{pos} = $len;
- $. = ++ *$self->{lno};
- return substr($$buf, $pos);
- }
- $len = $idx - $pos + length($/);
- *$self->{pos} += $len;
- $. = ++ *$self->{lno};
- return substr($$buf, $pos, $len);
-}
-
-sub getlines
-{
- die "getlines() called in scalar context\n" unless wantarray;
- my $self = shift;
- my($line, @lines);
- push(@lines, $line) while defined($line = $self->getline);
- return @lines;
-}
-
-sub READLINE
-{
- goto &getlines if wantarray;
- goto &getline;
-}
-
-sub input_line_number
-{
- my $self = shift;
- my $old = *$self->{lno};
- *$self->{lno} = shift if @_;
- return $old;
-}
-
-sub truncate
-{
- my $self = shift;
- my $len = shift || 0;
- my $buf = *$self->{buf};
- if (length($$buf) >= $len) {
- substr($$buf, $len) = '';
- *$self->{pos} = $len if $len < *$self->{pos};
- }
- else {
- $$buf .= ($self->pad x ($len - length($$buf)));
- }
- return 1;
-}
-
-sub read
-{
- my $self = shift;
- my $buf = *$self->{buf};
- return undef unless $buf;
-
- my $pos = *$self->{pos};
- my $rem = length($$buf) - $pos;
- my $len = $_[1];
- $len = $rem if $len > $rem;
- return undef if $len < 0;
- if (@_ > 2) { # read offset
- substr($_[0],$_[2]) = substr($$buf, $pos, $len);
- }
- else {
- $_[0] = substr($$buf, $pos, $len);
- }
- *$self->{pos} += $len;
- return $len;
-}
-
-sub write
-{
- my $self = shift;
- my $buf = *$self->{buf};
- return unless $buf;
-
- my $pos = *$self->{pos};
- my $slen = length($_[0]);
- my $len = $slen;
- my $off = 0;
- if (@_ > 1) {
- $len = $_[1] if $_[1] < $len;
- if (@_ > 2) {
- $off = $_[2] || 0;
- die "Offset outside string" if $off > $slen;
- if ($off < 0) {
- $off += $slen;
- die "Offset outside string" if $off < 0;
- }
- my $rem = $slen - $off;
- $len = $rem if $rem < $len;
- }
- }
- substr($$buf, $pos, $len) = substr($_[0], $off, $len);
- *$self->{pos} += $len;
- return $len;
-}
-
-*sysread = \&read;
-*syswrite = \&write;
-
-sub stat
-{
- my $self = shift;
- return unless $self->opened;
- return 1 unless wantarray;
- my $len = length ${*$self->{buf}};
-
- return (
- undef, undef, # dev, ino
- 0666, # filemode
- 1, # links
- $>, # user id
- $), # group id
- undef, # device id
- $len, # size
- undef, # atime
- undef, # mtime
- undef, # ctime
- 512, # blksize
- int(($len+511)/512) # blocks
- );
-}
-
-sub FILENO {
- return undef; # XXX perlfunc says this means the file is closed
-}
-
-sub blocking {
- my $self = shift;
- my $old = *$self->{blocking} || 0;
- *$self->{blocking} = shift if @_;
- return $old;
-}
-
-my $notmuch = sub { return };
-
-*fileno = $notmuch;
-*error = $notmuch;
-*clearerr = $notmuch;
-*sync = $notmuch;
-*flush = $notmuch;
-*setbuf = $notmuch;
-*setvbuf = $notmuch;
-
-*untaint = $notmuch;
-*autoflush = $notmuch;
-*fcntl = $notmuch;
-*ioctl = $notmuch;
-
-*GETC = \&getc;
-*PRINT = \&print;
-*PRINTF = \&printf;
-*READ = \&read;
-*WRITE = \&write;
-*SEEK = \&seek;
-*TELL = \&getpos;
-*EOF = \&eof;
-*CLOSE = \&close;
-*BINMODE = \&binmode;
-
-
-sub string_ref
-{
- my $self = shift;
- return *$self->{buf};
-}
-*sref = \&string_ref;
-
-1;
-
-__END__
-
-=head1 NAME
-
-IO::String - Emulate file interface for in-core strings
-
-=head1 SYNOPSIS
-
- use IO::String;
- $io = IO::String->new;
- $io = IO::String->new($var);
- tie *IO, 'IO::String';
-
- # read data
- <$io>;
- $io->getline;
- read($io, $buf, 100);
-
- # write data
- print $io "string\n";
- $io->print(@data);
- syswrite($io, $buf, 100);
-
- select $io;
- printf "Some text %s\n", $str;
-
- # seek
- $pos = $io->getpos;
- $io->setpos(0); # rewind
- $io->seek(-30, -1);
- seek($io, 0, 0);
-
-=head1 DESCRIPTION
-
-The C<IO::String> module provides the C<IO::File> interface for in-core
-strings. An C<IO::String> object can be attached to a string, and
-makes it possible to use the normal file operations for reading or
-writing data, as well as for seeking to various locations of the string.
-This is useful when you want to use a library module that only
-provides an interface to file handles on data that you have in a string
-variable.
-
-Note that perl-5.8 and better has built-in support for "in memory"
-files, which are set up by passing a reference instead of a filename
-to the open() call. The reason for using this module is that it
-makes the code backwards compatible with older versions of Perl.
-
-The C<IO::String> module provides an interface compatible with
-C<IO::File> as distributed with F<IO-1.20>, but the following methods
-are not available: new_from_fd, fdopen, format_write,
-format_page_number, format_lines_per_page, format_lines_left,
-format_name, format_top_name.
-
-The following methods are specific to the C<IO::String> class:
-
-=over 4
-
-=item $io = IO::String->new
-
-=item $io = IO::String->new( $string )
-
-The constructor returns a newly-created C<IO::String> object. It
-takes an optional argument, which is the string to read from or write
-into. If no $string argument is given, then an internal buffer
-(initially empty) is allocated.
-
-The C<IO::String> object returned is tied to itself. This means
-that you can use most Perl I/O built-ins on it too: readline, <>, getc,
-print, printf, syswrite, sysread, close.
-
-=item $io->open
-
-=item $io->open( $string )
-
-Attaches an existing IO::String object to some other $string, or
-allocates a new internal buffer (if no argument is given). The
-position is reset to 0.
-
-=item $io->string_ref
-
-Returns a reference to the string that is attached to
-the C<IO::String> object. Most useful when you let the C<IO::String>
-create an internal buffer to write into.
-
-=item $io->pad
-
-=item $io->pad( $char )
-
-Specifies the padding to use if
-the string is extended by either the seek() or truncate() methods. It
-is a single character and defaults to "\0".
-
-=item $io->pos
-
-=item $io->pos( $newpos )
-
-Yet another interface for reading and setting the current read/write
-position within the string (the normal getpos/setpos/tell/seek
-methods are also available). The pos() method always returns the
-old position, and if you pass it an argument it sets the new
-position.
-
-There is (deliberately) a difference between the setpos() and seek()
-methods in that seek() extends the string (with the specified
-padding) if you go to a location past the end, whereas setpos()
-just snaps back to the end. If truncate() is used to extend the string,
-then it works as seek().
-
-=back
-
-=head1 BUGS
-
-In Perl versions < 5.6, the TIEHANDLE interface was incomplete.
-If you use such a Perl, then seek(), tell(), eof(), fileno(), binmode() will
-not do anything on an C<IO::String> handle. See L<perltie> for
-details.
-
-=head1 SEE ALSO
-
-L<IO::File>, L<IO::Stringy>, L<perlfunc/open>
-
-=head1 COPYRIGHT
-
-Copyright 1998-2005 Gisle Aas.
-
-This library is free software; you can redistribute it and/or
-modify it under the same terms as Perl itself.
-
-=cut
diff --git a/3.8.8/sources/cpan-IO-String/vendor/t/seek.t b/3.8.8/sources/cpan-IO-String/vendor/t/seek.t
deleted file mode 100644
index 42c6cc0..0000000
--- a/3.8.8/sources/cpan-IO-String/vendor/t/seek.t
+++ /dev/null
@@ -1,63 +0,0 @@
-print "1..10\n";
-
-$str = "abcd";
-
-#$IO::String::DEBUG++;
-
-use IO::String;
-$io = IO::String->new($str);
-
-sub all_pos
-{
- my($io, $expect) = @_;
- $io->getpos == $expect &&
- $io->pos == $expect &&
- $io->tell == $expect &&
- $io->seek(0, 1) == $expect &&
- $io->sysseek(0, 1) == $expect &&
- $] >= 5.006 ? ( tell($io) == $expect &&
- seek($io, 0, 1) == $expect &&
- sysseek($io, 0, 1) == $expect
- )
- : 1;
-}
-
-print "not " unless all_pos($io, 0);
-print "ok 1\n";
-
-$io->setpos(2);
-print "not " unless all_pos($io, 2);
-print "ok 2\n";
-
-$io->setpos(10); # XXX should it be defined in terms of seek??
-print "not " unless all_pos($io, 4);
-print "ok 3\n";
-
-$io->seek(10, 0);
-print "not " unless all_pos($io, 10);
-print "ok 4\n";
-
-$io->print("æøå");
-print "not " unless all_pos($io, 13);
-print "ok 5\n";
-
-$io->seek(-4, 2);
-print "not " unless all_pos($io, 9);
-print "ok 6\n";
-
-print "not " unless $io->read($buf, 20) == 4 && $buf eq "\0æøå";
-print "ok 7\n";
-
-print "not " unless $io->seek(-10,1) && all_pos($io, 3);
-print "ok 8\n";
-
-$io->seek(0,0);
-print "not " unless all_pos($io, 0);
-print "ok 9\n";
-
-if ($] >= 5.006) {
- seek($io, 1, 0);
- print "not " unless all_pos($io, 1);
-}
-print "ok 10\n";
-
diff --git a/3.8.8/sources/cpan-IO/vendor/SIGNATURE b/3.8.8/sources/cpan-IO/vendor/SIGNATURE
deleted file mode 100644
index 8249626..0000000
--- a/3.8.8/sources/cpan-IO/vendor/SIGNATURE
+++ /dev/null
@@ -1,60 +0,0 @@
-This file contains message digests of all files listed in MANIFEST,
-signed via the Module::Signature module, version 0.55.
-
-To verify the content in this distribution, first make sure you have
-Module::Signature installed, then type:
-
- % cpansign -v
-
-It will check each file's integrity, as well as the signature's
-validity. If "==> Signature verified OK! <==" is not displayed,
-the distribution may already have been compromised, and you should
-not run its Makefile.PL or Build.PL.
-
------BEGIN PGP SIGNED MESSAGE-----
-Hash: SHA1
-
-SHA1 56fc4a6898ff79b079270c786c4171577eba66fe ChangeLog
-SHA1 b41e60d1f0074df55cab2eb6917b1d02e152d7fb IO.pm
-SHA1 dfaa60111f7f4b4802462c16a808afdbf4ee776b IO.xs
-SHA1 68740fe4a2ceb1d615fe72602c7343ccdfed11ff MANIFEST
-SHA1 f486bb9de8eaf932f6e71cddb14bcbf998c5e936 META.yml
-SHA1 5b300042817f21160bd7757b46907cc39de8ed95 Makefile.PL
-SHA1 95dd3cdd177410b7e05e8be47257de3fd0e5a2de README
-SHA1 cbebed0054993f8554975e8423ad87810c4703e3 lib/IO/Dir.pm
-SHA1 5cd96bae6ea66c6697becd5de9deb33833165646 lib/IO/File.pm
-SHA1 f4998c4be5d802dd2c0e212af6e31673fcc0874b lib/IO/Handle.pm
-SHA1 8e27e33e1c1412fc5e8fc69a94426e2a94d47d79 lib/IO/Pipe.pm
-SHA1 641773c8d7232af97945b5a0fad5524c43198c6f lib/IO/Poll.pm
-SHA1 fb2c1270260aae4a464c47a7592aa471c9105dfa lib/IO/Seekable.pm
-SHA1 378fe48b732975a6955c55bbe62680c2b59824c3 lib/IO/Select.pm
-SHA1 2636d31ddc4e9f0186359de2050a6c280615b8ed lib/IO/Socket.pm
-SHA1 8075ebe07903acf2f8fb96df319ce1602f9b4a72 lib/IO/Socket/INET.pm
-SHA1 62ac6d72686dd4deb56baa1606af9e94082ee15f lib/IO/Socket/UNIX.pm
-SHA1 5f8c30523272b59c8952b2c63579f78de5e5f239 poll.c
-SHA1 20378e1968187ad569e3d69bb5077badb8c83fd1 poll.h
-SHA1 0b7ca8e23654a2d02ef533b0037ceec9fb0ada47 t/IO.t
-SHA1 8637fc119bff67af0d76e3ca2ff3bbd93d03c5df t/io_const.t
-SHA1 93299b25099d76015507f478f7c0ea627a4455e0 t/io_dir.t
-SHA1 09674bf9199ae652efad49eb9d1d1f428357f824 t/io_dup.t
-SHA1 7a245c6f1ea59b7e7f5d20d95a532f18434274d1 t/io_file.t
-SHA1 4e9c13f5b4573814318d4fe7068de542a3404341 t/io_linenum.t
-SHA1 3c1b6e51ab7c21887c4519824abbda4c4911ebe3 t/io_multihomed.t
-SHA1 f8d3184feb386124230d07d0919f4d172322e023 t/io_pipe.t
-SHA1 d0565aff22dd3eb8bea90952ba57244278c00a30 t/io_poll.t
-SHA1 997bf026a7ce78ebc8c9dc70d8969e05273d1eb3 t/io_sel.t
-SHA1 03339c7176c1920f416f74c1a27d7fa29a0c7628 t/io_sock.t
-SHA1 c858bc6901927912902ccaa6fee103f513671290 t/io_taint.t
-SHA1 dfd2dc1376acd3cc61185ce43112bf2124750c2a t/io_tell.t
-SHA1 03780c5fb6553a80f2ce896e008ce8cdefc55e46 t/io_udp.t
-SHA1 6221ba862c949dca9e0febd8855ad02c6d3caa2c t/io_unix.t
-SHA1 9fa2fc325b11d87c3097cca61e3af3a016709219 t/io_utf8.t
-SHA1 3b445ba14e47c16f0a72a99cdce8e4021e6b526a t/io_xs.t
-SHA1 2393b3e585978305e31ad3d898649f058f451ee9 t/test.pl
------BEGIN PGP SIGNATURE-----
-Version: GnuPG v1.4.9 (Darwin)
-
-iEYEARECAAYFAkoLXDMACgkQR0BL4gbYw3QzgACffPbJi9/fepQYL+PFY8KdgrPA
-VxkAoI38XKkjL6rNzdyxO1dZLOi7XsMh
-=LbxT
------END PGP SIGNATURE-----
diff --git a/3.8.8/sources/cpan-IO/vendor/lib/IO/Seekable.pm b/3.8.8/sources/cpan-IO/vendor/lib/IO/Seekable.pm
deleted file mode 100644
index db1effd..0000000
--- a/3.8.8/sources/cpan-IO/vendor/lib/IO/Seekable.pm
+++ /dev/null
@@ -1,128 +0,0 @@
-#
-
-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 at 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;
-
- at EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END);
- at 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/3.8.8/sources/cpan-IO/vendor/t/io_linenum.t b/3.8.8/sources/cpan-IO/vendor/t/io_linenum.t
deleted file mode 100755
index a1b1bc6..0000000
--- a/3.8.8/sources/cpan-IO/vendor/t/io_linenum.t
+++ /dev/null
@@ -1,78 +0,0 @@
-#!./perl
-
-# test added 29th April 1999 by Paul Johnson (pjcj at transeda.com)
-# updated 28th May 1999 by Paul Johnson
-
-my $File;
-
-BEGIN {
- $File = __FILE__;
- unless(grep /blib/, @INC) {
- chdir 't' if -d 't';
- $File =~ s/^t\W+//; # Remove first directory
- @INC = '../lib';
- }
- require strict; import strict;
-}
-
-use Test;
-
-BEGIN { plan tests => 12 }
-
-use IO::File;
-
-sub lineno
-{
- my ($f) = @_;
- my $l;
- $l .= "$. ";
- $l .= $f->input_line_number;
- $l .= " $."; # check $. before and after input_line_number
- $l;
-}
-
-my $t;
-
-open (F, $File) or die $!;
-my $io = IO::File->new($File) or die $!;
-
-<F> for (1 .. 10);
-ok(lineno($io), "10 0 10");
-
-$io->getline for (1 .. 5);
-ok(lineno($io), "5 5 5");
-
-<F>;
-ok(lineno($io), "11 5 11");
-
-$io->getline;
-ok(lineno($io), "6 6 6");
-
-$t = tell F; # tell F; provokes a warning
-ok(lineno($io), "11 6 11");
-
-<F>;
-ok(lineno($io), "12 6 12");
-
-select F;
-ok(lineno($io), "12 6 12");
-
-<F> for (1 .. 10);
-ok(lineno($io), "22 6 22");
-
-$io->getline for (1 .. 5);
-ok(lineno($io), "11 11 11");
-
-$t = tell F;
-# We used to have problems here before local $. worked.
-# input_line_number() used to use select and tell. When we did the
-# same, that mechanism broke. It should work now.
-ok(lineno($io), "22 11 22");
-
-{
- local $.;
- $io->getline for (1 .. 5);
- ok(lineno($io), "16 16 16");
-}
-
-ok(lineno($io), "22 16 22");
diff --git a/3.8.8/sources/cpan-IO/vendor/t/io_unix.t b/3.8.8/sources/cpan-IO/vendor/t/io_unix.t
deleted file mode 100644
index 33ee056..0000000
--- a/3.8.8/sources/cpan-IO/vendor/t/io_unix.t
+++ /dev/null
@@ -1,120 +0,0 @@
-#!./perl
-
-BEGIN {
- unless(grep /blib/, @INC) {
- chdir 't' if -d 't';
- @INC = '../lib';
- }
-}
-
-use Config;
-
-BEGIN {
- my $reason;
- if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bSocket\b/) {
- $reason = 'Socket extension unavailable';
- }
- elsif ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bIO\b/) {
- $reason = 'IO extension unavailable';
- }
- elsif ($^O eq 'os2') {
- require IO::Socket;
-
- eval {IO::Socket::pack_sockaddr_un('/foo/bar') || 1}
- or $@ !~ /not implemented/ or
- $reason = 'compiled without TCP/IP stack v4';
- }
- elsif ($^O =~ m/^(?:qnx|nto|vos|MSWin32)$/ ) {
- $reason = "UNIX domain sockets not implemented on $^O";
- }
- elsif (! $Config{'d_fork'}) {
- $reason = 'no fork';
- }
- if ($reason) {
- print "1..0 # Skip: $reason\n";
- exit 0;
- }
-}
-
-$PATH = "sock-$$";
-
-if ($^O eq 'os2') { # Can't create sockets with relative path...
- require Cwd;
- my $d = Cwd::cwd();
- $d =~ s/^[a-z]://i;
- $PATH = "$d/$PATH";
-}
-
-# Test if we can create the file within the tmp directory
-if (-e $PATH or not open(TEST, ">$PATH") and $^O ne 'os2') {
- print "1..0 # Skip: cannot open '$PATH' for write\n";
- exit 0;
-}
-close(TEST);
-unlink($PATH) or $^O eq 'os2' or die "Can't unlink $PATH: $!";
-
-# Start testing
-$| = 1;
-print "1..5\n";
-
-use IO::Socket;
-
-$listen = IO::Socket::UNIX->new(Local => $PATH, Listen => 0);
-
-# Sometimes UNIX filesystems are mounted for security reasons
-# with "nodev" option which spells out "no" for creating UNIX
-# local sockets. Therefore we will retry with a File::Temp
-# generated filename from a temp directory.
-unless (defined $listen) {
- eval { require File::Temp };
- unless ($@) {
- import File::Temp 'mktemp';
- for my $TMPDIR ($ENV{TMPDIR}, "/tmp") {
- if (defined $TMPDIR && -d $TMPDIR && -w $TMPDIR) {
- $PATH = mktemp("$TMPDIR/sXXXXXXXX");
- last if $listen = IO::Socket::UNIX->new(Local => $PATH,
- Listen => 0);
- }
- }
- }
- defined $listen or die "$PATH: $!";
-}
-print "ok 1\n";
-
-if($pid = fork()) {
-
- $sock = $listen->accept();
-
- if (defined $sock) {
- print "ok 2\n";
-
- print $sock->getline();
-
- print $sock "ok 4\n";
-
- $sock->close;
-
- waitpid($pid,0);
- unlink($PATH) || $^O eq 'os2' || warn "Can't unlink $PATH: $!";
-
- print "ok 5\n";
- } else {
- print "# accept() failed: $!\n";
- for (2..5) {
- print "not ok $_ # accept failed\n";
- }
- }
-} elsif(defined $pid) {
-
- $sock = IO::Socket::UNIX->new(Peer => $PATH) or die "$!";
-
- print $sock "ok 3\n";
-
- print $sock->getline();
-
- $sock->close;
-
- exit;
-} else {
- die;
-}
diff --git a/3.8.8/sources/cpan-Lingua-EN-Sentence/vendor/Changes b/3.8.8/sources/cpan-Lingua-EN-Sentence/vendor/Changes
deleted file mode 100644
index 39bbf4f..0000000
--- a/3.8.8/sources/cpan-Lingua-EN-Sentence/vendor/Changes
+++ /dev/null
@@ -1,78 +0,0 @@
-Revision history for Perl extension Lingua::EN::Sentence.
-
-0.01 Thu Feb 22 12:16:17 2001
- - original version;
-0.02 Fri Feb 23 14:25:01 2001
- (Thanks to Itai Nahshon for his comments!!)
- - Supporting 'no' abbreviation.
- - Exporting OK set_acronyms(),get_acronyms().
- - Don't break on "." and a-like...
- - Fixed bug causing wrong breaking sentence if abbreviation is the first word.
-0.03 Sun Feb 25 18:00:01 2001
- (Thanks to Offer Kaye for his comments about the documentation)
- - Changes in the documentation.
- - Build package looks different now to support CPAN installer.
- - EOS changed to something which is \W.
- - Added get_EOS() set_EOS() to get/set the end-of-sentence mark.
- - Added a test for the installation.
-0.04 Mon Mar 12 15:15:51 2001
- - Added word boundary before correcting EOS with abbreviations. (bugfix)
-0.05 Mon Mar 26 12:35:31 2001
- - fix: "bla bla... yada yada" from being broken to: "bla bla..." and "yada yada"
-0.06 Sun Apr 1 09:00:02 2001
- - Added PLACES abbreviations
- (Thanks to Kim Ryan: kimaryan at ozemail.com.au)
-0.07 Mon May 14 16:12:12 2001
- - bug fix.
-0.08 Mon May 21 05:55:23 2001
- - Added months abbreviations.
-0.09 Tue Aug 21 08:11:07 2001
- - More abbreviations
- - Fixed bug where single letter before '.'/'?'/'!' didn't cause insertion of $EOS
-0.10 Tue Aug 28 15:07:47 2001
- - Fixed bug when processing stuff like " U.S. "
-0.11 Tue Sep 4 15:12:55 2001
- - Don't split |John P. Stenbit| into |John P.| and |Stenbit|
-0.12 Thu Sep 20 11:28:45 2001
- - Should be a final fix for same thing as reported in 0.11
-0.13 Thu Oct 4 10:08:12 2001
- - Bugfix splitting (wrongly!) after i.e. and e.g. and such
- - Previously, sentences like "They won the game 0-3. We lost" didn't get split.
-0.14 Wed Oct 28 11:19:59 2001
- - Added some more abbreviations
- - added symbol '»' as another possibility of end-quote.
- - Abbreviations added from: http://englishplus.com/grammar/00000057.htm
- - Abbreviations added from: http://www.nyu.edu/classes/copyXediting/STABBREV.html
-0.15 Sun Nov 18 13:12:07 2001
- - French use M. for Mr.
- - Don't split sentences starting with a quote after the quote if the following text is not a capital letter.
-0.16 Sun Nov 18 17:00:04 2001
- - testbench reduced to "nothing" again...
-0.17 Sun Nov 18 18:01:14 2001
- - Considering French as well - some french characters are considered as \W - I had to exclude them by literaly writing them.
-0.18 Wed Nov 21 19:36:17 2001
- - Using locale for allowing usage of iso8859-1. I'm expecting to find English and French (like) text, so I want my \w and \W to match the right things.
-0.19 Sun Dec 23 09:26:39 2001
- - Added some more abbreviations.
- - Trying not to break: text . . some more text
-0.20 Wed Dec 26 09:43:09 2001
- - Break at the dot: concretizar-se-á. Astiazaram
- - Fixed bugs with abbreviation 'no.'.
-0.21 Sun Jan 13 08:22:13 2002
- - break sentence when: <punctuation><end-quote><whitespaces><open bracket>...
- - break on: ... Bush's. Bla Bla
- - Added abbreviation 'Capt.'
-0.22 Wed Jan 30 13:15:31 2002
- - Added more acronyms.
- - Hopefully not breaking anymore NY like street addresses.
- - In general, don't break on single letter followed by a dot.
- - Special attention to abbreviation 'no.'.
- - bugfix conserning internal variable $PAP
- - added set_locale()
-0.23 Sun Feb 17 09:00:00 2002
- - Break sentence after seeing "a.m." or "p.m." followed by a capital letter.
- - Added some abbreviations
-0.24 Mon Sep 23 12:30:02 2002
- - Changing the "rights" notice.
-0.25 Tue Sep 24 13:28:33 IDT 2002
- - changed the email address.
diff --git a/3.8.8/sources/cpan-Lingua-EN-Sentence/vendor/INSTALL b/3.8.8/sources/cpan-Lingua-EN-Sentence/vendor/INSTALL
deleted file mode 100644
index 7c5bbf3..0000000
--- a/3.8.8/sources/cpan-Lingua-EN-Sentence/vendor/INSTALL
+++ /dev/null
@@ -1,6 +0,0 @@
-To install the script and create man pages use the commands:
-
- perl Makefile.PL
- make
- make test
- make install
diff --git a/3.8.8/sources/cpan-Lingua-EN-Sentence/vendor/MANIFEST b/3.8.8/sources/cpan-Lingua-EN-Sentence/vendor/MANIFEST
deleted file mode 100644
index f651635..0000000
--- a/3.8.8/sources/cpan-Lingua-EN-Sentence/vendor/MANIFEST
+++ /dev/null
@@ -1,5 +0,0 @@
-Changes
-INSTALL
-MANIFEST
-Makefile.PL
-lib/Lingua/EN/Sentence.pm
diff --git a/3.8.8/sources/cpan-Lingua-EN-Sentence/vendor/lib/Lingua/EN/Sentence.pm b/3.8.8/sources/cpan-Lingua-EN-Sentence/vendor/lib/Lingua/EN/Sentence.pm
deleted file mode 100644
index 62213ec..0000000
--- a/3.8.8/sources/cpan-Lingua-EN-Sentence/vendor/lib/Lingua/EN/Sentence.pm
+++ /dev/null
@@ -1,378 +0,0 @@
-package Lingua::EN::Sentence;
-
-#==============================================================================
-#
-# Start of POD
-#
-#==============================================================================
-
-=head1 NAME
-
-Lingua::EN::Sentence - Module for splitting text into sentences.
-
-=head1 SYNOPSIS
-
- use Lingua::EN::Sentence qw( get_sentences add_acronyms );
-
- add_acronyms('lt','gen'); ## adding support for 'Lt. Gen.'
- my $sentences=get_sentences($text); ## Get the sentences.
- foreach my $sentence (@$sentences) {
- ## do something with $sentence
- }
-
-
-=head1 DESCRIPTION
-
-The C<Lingua::EN::Sentence> module contains the function get_sentences, which splits text into its constituent sentences, based on a regular expression and a list of abbreviations (built in and given).
-
-Certain well know exceptions, such as abreviations, may cause incorrect segmentations. But some of them are already integrated into this code and are being taken care of. Still, if you see that there are words causing the get_sentences() to fail, you can add those to the module, so it notices them.
-
-=head1 ALGORITHM
-
-Basically, I use a 'brute' regular expression to split the text into sentences. (Well, nothing is yet split - I just mark the end-of-sentence). Then I look into a set of rules which decide when an end-of-sentence is justified and when it's a mistake. In case of a mistake, the end-of-sentence mark is removed.
-
-What are such mistakes? Cases of abbreviations, for example. I have a list of such abbreviations (Please see `Acronym/Abbreviations list' section), and more general rules (for example, the abbreviations 'i.e.' and '.e.g.' need not to be in the list as a special rule takes care of all single letter abbreviations).
-
-=head1 FUNCTIONS
-
-All functions used should be requested in the 'use' clause. None is exported by default.
-
-=item get_sentences( $text )
-
-The get sentences function takes a scalar containing ascii text as an argument and returns a reference to an array of sentences that the text has been split into.
-Returned sentences will be trimmed (beginning and end of sentence) of white-spaces.
-Strings with no alpha-numeric characters in them, won't be returned as sentences.
-
-=item add_acronyms( @acronyms )
-
-This function is used for adding acronyms not supported by this code. Please see `Acronym/Abbreviations list' section for the abbreviations already supported by this module.
-
-=item get_acronyms( )
-
-This function will return the defined list of acronyms.
-
-=item set_acronyms( @my_acronyms )
-
-This function replaces the predefined acroym list with the given list.
-
-=item get_EOS( )
-
-This function returns the value of the string used to mark the end of sentence. You might want to see what it is, and to make sure your text doesn't contain it. You can use set_EOS() to alter the end-of-sentence string to whatever you desire.
-
-=item set_EOS( $new_EOS_string )
-
-This function alters the end-of-sentence string used to mark the end of sentences.
-
-=item set_locale( $new_locale )
-Revceives language locale in the form language.country.character-set
-for example:
- "fr_CA.ISO8859-1"
-for Canadian French using character set ISO8859-1.
-
-Returns a reference to a hash containing the current locale formatting values.
-Returns undef if got undef.
-
-
-The following will set the LC_COLLATE behaviour to Argentinian Spanish. NOTE: The naming and avail ability of locales depends on your operating sys tem. Please consult the perllocale manpage for how to find out which locales are available in your system.
-
-$loc = set_locale( "es_AR.ISO8859-1" );
-
-This actually does this:
-
-$loc = setlocale( LC_ALL, "es_AR.ISO8859-1" );
-
-=head1 Acronym/Abbreviations list
-
-You can use the get_acronyms() function to get acronyms.
-It has become too long to specify in the documentation.
-
-If I come across a good general-purpose list - I'll incorporate it into this module.
-Feel free to suggest such lists.
-
-=head1 FUTURE WORK
-[1] Object Oriented like usage
-[2] Supporting more than just English/French
-[3] Code optimization. Currently everything is RE based and not so optimized RE
-[4] Possibly use more semantic heuristics for detecting a beginning of a sentence
-
-=head1 SEE ALSO
-
- Text::Sentence
-
-=head1 AUTHOR
-
-Shlomo Yona shlomo at cs.haifa.ac.il
-
-=head1 COPYRIGHT
-
-Copyright (c) 2001, 2002 Shlomo Yona. All rights reserved.
-
-This library is free software.
-You can redistribute it and/or modify it under the same terms as Perl itself.
-
-=cut
-
-#==============================================================================
-#
-# End of POD
-#
-#==============================================================================
-
-
-#==============================================================================
-#
-# Pragmas
-#
-#==============================================================================
-require 5.005_03;
-use strict;
-use POSIX qw(locale_h);
-#==============================================================================
-#
-# Modules
-#
-#==============================================================================
-require Exporter;
-
-#==============================================================================
-#
-# Public globals
-#
-#==============================================================================
-use vars qw/$VERSION @ISA @EXPORT_OK $EOS $LOC $AP $P $PAP @ABBREVIATIONS/;
-use Carp qw/cluck/;
-
-$VERSION = '0.25';
-
-# LC_CTYPE now in locale "French, Canada, codeset ISO 8859-1"
-$LOC=setlocale(LC_CTYPE, "fr_CA.ISO8859-1");
-use locale;
-
- at ISA = qw( Exporter );
- at EXPORT_OK = qw( get_sentences
- add_acronyms get_acronyms set_acronyms
- get_EOS set_EOS);
-
-$EOS="\001";
-$P = q/[\.!?]/; ## PUNCTUATION
-$AP = q/(?:'|"|»|\)|\]|\})?/; ## AFTER PUNCTUATION
-$PAP = $P.$AP;
-
-my @PEOPLE = ( 'jr', 'mr', 'mrs', 'ms', 'dr', 'prof', 'sr', "sens?", "reps?", 'gov',
- "attys?", 'supt', 'det', 'rev' );
-
-
-my @ARMY = ( 'col','gen', 'lt', 'cmdr', 'adm', 'capt', 'sgt', 'cpl', 'maj' );
-my @INSTITUTES = ( 'dept', 'univ', 'assn', 'bros' );
-my @COMPANIES = ( 'inc', 'ltd', 'co', 'corp' );
-my @PLACES = ( 'arc', 'al', 'ave', "blv?d", 'cl', 'ct', 'cres', 'dr', "expy?",
- 'dist', 'mt', 'ft',
- "fw?y", "hwa?y", 'la', "pde?", 'pl', 'plz', 'rd', 'st', 'tce',
- 'Ala' , 'Ariz', 'Ark', 'Cal', 'Calif', 'Col', 'Colo', 'Conn',
- 'Del', 'Fed' , 'Fla', 'Ga', 'Ida', 'Id', 'Ill', 'Ind', 'Ia',
- 'Kan', 'Kans', 'Ken', 'Ky' , 'La', 'Me', 'Md', 'Is', 'Mass',
- 'Mich', 'Minn', 'Miss', 'Mo', 'Mont', 'Neb', 'Nebr' , 'Nev',
- 'Mex', 'Okla', 'Ok', 'Ore', 'Penna', 'Penn', 'Pa' , 'Dak',
- 'Tenn', 'Tex', 'Ut', 'Vt', 'Va', 'Wash', 'Wis', 'Wisc', 'Wy',
- 'Wyo', 'USAFA', 'Alta' , 'Man', 'Ont', 'Qué', 'Sask', 'Yuk');
-my @MONTHS = ('jan','feb','mar','apr','may','jun','jul','aug','sep','oct','nov','dec','sept');
-my @MISC = ( 'vs', 'etc', 'no', 'esp' );
-
- at ABBREVIATIONS = (@PEOPLE, @ARMY, @INSTITUTES, @COMPANIES, @PLACES, @MONTHS, @MISC );
-
-
-#==============================================================================
-#
-# Public methods
-#
-#==============================================================================
-
-#------------------------------------------------------------------------------
-# get_sentences - takes text input and splits it into sentences.
-# A regular expression cuts viciously the text into sentences,
-# and then a list of rules (some of them consist of a list of abbreviations)
-# is applied on the marked text in order to fix end-of-sentence markings on
-# places which are not indeed end-of-sentence.
-#------------------------------------------------------------------------------
-sub get_sentences {
- my ($text)=@_;
- return [] unless defined $text;
- my $marked_text = first_sentence_breaking($text);
- my $fixed_marked_text = remove_false_end_of_sentence($marked_text);
- $fixed_marked_text = split_unsplit_stuff($fixed_marked_text);
- my @sentences = split(/$EOS/,$fixed_marked_text);
- my $cleaned_sentences = clean_sentences(\@sentences);
- return $cleaned_sentences;
-}
-
-#------------------------------------------------------------------------------
-# add_acronyms - user can add a list of acronyms/abbreviations.
-#------------------------------------------------------------------------------
-sub add_acronyms {
- push @ABBREVIATIONS, @_;
-}
-
-#------------------------------------------------------------------------------
-# get_acronyms - get defined list of acronyms.
-#------------------------------------------------------------------------------
-sub get_acronyms {
- return @ABBREVIATIONS;
-}
-
-#------------------------------------------------------------------------------
-# set_acronyms - run over the predefined acronyms list with your own list.
-#------------------------------------------------------------------------------
-sub set_acronyms {
- @ABBREVIATIONS=@_;
-}
-
-#------------------------------------------------------------------------------
-# get_EOS - get the value of the $EOS (end-of-sentence mark).
-#------------------------------------------------------------------------------
-sub get_EOS {
- return $EOS;
-}
-
-#------------------------------------------------------------------------------
-# set_EOS - set the value of the $EOS (end-of-sentence mark).
-#------------------------------------------------------------------------------
-sub set_EOS {
- my ($new_EOS) = @_;
- if (not defined $new_EOS) {
- cluck "Won't set \$EOS to undefined value!\n";
- return $EOS;
- }
- return $EOS = $new_EOS;
-}
-
-#------------------------------------------------------------------------------
-# set_locale - set the value of the locale.
-#
-# Revceives language locale in the form
-# language.country.character-set
-# for example:
-# "fr_CA.ISO8859-1"
-# for Canadian French using character set ISO8859-1.
-#
-# Returns a reference to a hash containing the current locale
-# formatting values.
-# Returns undef if got undef.
-#
-#
-# The following will set the LC_COLLATE behaviour to
-# Argentinian Spanish. NOTE: The naming and avail
-# ability of locales depends on your operating sys
-# tem. Please consult the perllocale manpage for how
-# to find out which locales are available in your
-# system.
-#
-# $loc = set_locale( "es_AR.ISO8859-1" );
-#
-#
-# This actually does this:
-#
-# $loc = setlocale( LC_ALL, "es_AR.ISO8859-1" );
-#------------------------------------------------------------------------------
-sub set_locale {
- my ($new_locale) = @_;
- if (not defined $new_locale) {
- cluck "Won't set locale to undefined value!\n";
- return undef;
- }
- $LOC = setlocale(LC_CTYPE, $new_locale);
- return $LOC;
-}
-
-
-#==============================================================================
-#
-# Private methods
-#
-#==============================================================================
-
-## Please email me any suggestions for optimizing these RegExps.
-sub remove_false_end_of_sentence {
- my ($marked_segment) = @_;
-## ## don't do u.s.a.
-## $marked_segment=~s/(\.\w$PAP)$EOS/$1/sg;
- $marked_segment=~s/([^-\w]\w$PAP\s)$EOS/$1/sg;
- $marked_segment=~s/([^-\w]\w$P)$EOS/$1/sg;
-
- # don't plit after a white-space followed by a single letter followed
- # by a dot followed by another whitespace.
- $marked_segment=~s/(\s\w\.\s+)$EOS/$1/sg;
-
- # fix: bla bla... yada yada
- $marked_segment=~s/(\.\.\. )$EOS([[:lower:]])/$1$2/sg;
- # fix "." "?" "!"
- $marked_segment=~s/(['"]$P['"]\s+)$EOS/$1/sg;
- ## fix where abbreviations exist
- foreach (@ABBREVIATIONS) { $marked_segment=~s/(\b$_$PAP\s)$EOS/$1/isg; }
-
- # don't break after quote unless its a capital letter.
- $marked_segment=~s/(["']\s*)$EOS(\s*[[:lower:]])/$1$2/sg;
-
- # don't break: text . . some more text.
- $marked_segment=~s/(\s\.\s)$EOS(\s*)/$1$2/sg;
-
- $marked_segment=~s/(\s$PAP\s)$EOS/$1/sg;
- return $marked_segment;
-}
-
-sub split_unsplit_stuff {
- my ($text) = @_;
-
- $text=~s/(\D\d+)($P)(\s+)/$1$2$EOS$3/sg;
- $text=~s/($PAP\s)(\s*\()/$1$EOS$2/gs;
- $text=~s/('\w$P)(\s)/$1$EOS$2/gs;
-
-
- $text=~s/(\sno\.)(\s+)(?!\d)/$1$EOS$2/gis;
-
-## # split where single capital letter followed by dot makes sense to break.
-## # notice these are exceptions to the general rule NOT to split on single
-## # letter.
-## # notice also that sibgle letter M is missing here, due to French 'mister'
-## # which is representes as M.
-## #
-## # the rule will not split on names begining or containing
-## # single capital letter dot in the first or second name
-## # assuming 2 or three word name.
-## $text=~s/(\s[[:lower:]]\w+\s+[^[[:^upper:]M]\.)(?!\s+[[:upper:]]\.)/$1$EOS/sg;
-
-
- # add EOS when you see "a.m." or "p.m." followed by a capital letter.
- $text=~s/([ap]\.m\.\s+)([[:upper:]])/$1$EOS$2/gs;
-
- return $text;
-}
-
-sub clean_sentences {
- my ($sentences) = @_;
- my $cleaned_sentences;
- foreach my $s (@$sentences) {
- next if not defined $s;
- next if $s!~m/\w+/;
- $s=~s/^\s*//;
- $s=~s/\s*$//;
-## $s=~s/\s+/ /g;
- push @$cleaned_sentences,$s;
- }
- return $cleaned_sentences;
-}
-
-sub first_sentence_breaking {
- my ($text) = @_;
- $text=~s/\n\s*\n/$EOS/gs; ## double new-line means a different sentence.
- $text=~s/($PAP\s)/$1$EOS/gs;
- $text=~s/(\s\w$P)/$1$EOS/gs; # breake also when single letter comes before punc.
- return $text;
-}
-
-#==============================================================================
-#
-# Return TRUE
-#
-#==============================================================================
-
-1;
diff --git a/3.8.8/sources/cpan-Lingua-EN-Sentence/vendor/t/test_nothing.t b/3.8.8/sources/cpan-Lingua-EN-Sentence/vendor/t/test_nothing.t
deleted file mode 100755
index 75f9ea8..0000000
--- a/3.8.8/sources/cpan-Lingua-EN-Sentence/vendor/t/test_nothing.t
+++ /dev/null
@@ -1,7 +0,0 @@
-
-BEGIN { $| = 1; print "1..1\n"; }
-use Lingua::EN::Sentence (get_sentences);
-$loaded = 1;
-print "ok 1\n";
-END {print "not ok 1\n" unless $loaded;}
-
diff --git a/3.8.8/sources/cpan-Locale-Maketext/vendor/README b/3.8.8/sources/cpan-Locale-Maketext/vendor/README
deleted file mode 100644
index 55a2ff7..0000000
--- a/3.8.8/sources/cpan-Locale-Maketext/vendor/README
+++ /dev/null
@@ -1,67 +0,0 @@
-README for Locale::Maketext
- Time-stamp: "2004-03-30 16:02:27 AST"
-
- Locale::Maketext
-
-Locale::Maketext is a base class providing a framework for
-localization and inheritance-based lexicons, as described in my
-article in The Perl Journal #13 (a corrected version of which appears
-in this dist).
-
-
-PREREQUISITES
-
-This suite requires Perl 5. It also requires a recent version
-of I18N::LangTags. MSWin users should also get Win32::Locale.
-File::Findgrep is also useful example code, as is the rather
-larger Apache::MP3 source (even if you don't run Apache).
-
-
-INSTALLATION
-
-You install Locale::Maketext, as you would install any Perl module
-distribution, by running these commands:
-
- perl Makefile.PL
- make
- make test
- make install
-
-If you want to install a private copy of Maketext in your home directory,
-then you should try to produce the initial Makefile with something
-like this command:
-
- perl Makefile.PL LIB=~/perl
-
-See perldoc perlmodinstall for more information.
-
-
-DOCUMENTATION
-
-See the pod in Locale::Maketext and Locale::Maketext::TPJ13,
-and see also File::Findgrep.
-
-
-SUPPORT
-
-Questions, bug reports, useful code bits, and suggestions for
-Worms should be sent to me at sburke at cpan.org
-
-
-AVAILABILITY
-
-The latest version of Locale::Maketext is available from the
-Comprehensive Perl Archive Network (CPAN). Visit
-<http://www.perl.com/CPAN/> to find a CPAN site near you.
-
-
-COPYRIGHT
-
-Copyright 1999-2004, Sean M. Burke <sburke at cpan.org>, all rights
-reserved. This program is free software; you can redistribute it
-and/or modify it under the same terms as Perl itself.
-
-
-AUTHOR
-
-Sean M. Burke <sburke at cpan.org>
diff --git a/3.8.8/sources/cpan-Locale-Maketext/vendor/lib/Locale/Maketext/GutsLoader.pm b/3.8.8/sources/cpan-Locale-Maketext/vendor/lib/Locale/Maketext/GutsLoader.pm
deleted file mode 100644
index daa9840..0000000
--- a/3.8.8/sources/cpan-Locale-Maketext/vendor/lib/Locale/Maketext/GutsLoader.pm
+++ /dev/null
@@ -1,49 +0,0 @@
-package Locale::Maketext::GutsLoader;
-
-$VERSION = '1.13';
-
-use strict;
-sub zorp { return scalar @_ }
-
-BEGIN {
- $Locale::Maketext::GutsLoader::GUTSPATH = __FILE__;
- *Locale::Maketext::DEBUG = sub () {0}
- unless defined &Locale::Maketext::DEBUG;
-}
-
-#
-# This whole drama is so that we can load the utf8'd code
-# in Locale::Maketext::Guts, but if that fails, snip the
-# utf8 and then try THAT.
-#
-
-$Locale::Maketext::GUTSPATH = '';
-Locale::Maketext::DEBUG and warn "Requiring Locale::Maketext::Guts...\n";
-eval 'require Locale::Maketext::Guts';
-
-if ($@) {
- my $path = $Locale::Maketext::GUTSPATH;
-
- die "Can't load Locale::Maketext::Guts\nAborting" unless $path;
-
- die "No readable file $Locale::Maketext::GutsLoader::GUTSPATH\nAborting"
- unless -e $path and -f _ and -r _;
-
- open(IN, $path) or die "Can't read-open $path\nAborting";
-
- my $source;
- { local $/; $source = <IN>; }
- close(IN);
- unless( $source =~ s/\b(use utf8)/# $1/ ) {
- Locale::Maketext::DEBUG and
- print "I didn't see 'use utf8' in $path\n";
- }
- eval $source;
- die "Can't compile $path\n...The error I got was:\n$@\nAborting" if $@;
- Locale::Maketext::DEBUG and warn "Non-utf8'd Locale::Maketext::Guts fine\n";
-}
-else {
- Locale::Maketext::DEBUG and warn "Loaded Locale::Maketext::Guts fine\n";
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Locale-Maketext/vendor/lib/Locale/Maketext/TPJ13.pod b/3.8.8/sources/cpan-Locale-Maketext/vendor/lib/Locale/Maketext/TPJ13.pod
deleted file mode 100644
index b5e2c0b..0000000
--- a/3.8.8/sources/cpan-Locale-Maketext/vendor/lib/Locale/Maketext/TPJ13.pod
+++ /dev/null
@@ -1,775 +0,0 @@
-# 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 accomodate 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 feasable 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, possbily 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 quanitified
-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 Ukranian 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 degerate 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 straightfoward.
-
-=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, feasable 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<ftp://ftp.isi.edu/in-notes/rfc1766.txt>
-[Now see RFC 3066.]
-
-Callon, Ross, editor. 1996. I<RFC 1925: The Twelve
-Networking Truths.>
-C<ftp://ftp.isi.edu/in-notes/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/3.8.8/sources/cpan-Locale-Maketext/vendor/t/50_super.t b/3.8.8/sources/cpan-Locale-Maketext/vendor/t/50_super.t
deleted file mode 100644
index d253d78..0000000
--- a/3.8.8/sources/cpan-Locale-Maketext/vendor/t/50_super.t
+++ /dev/null
@@ -1,71 +0,0 @@
-#!/usr/bin/perl -Tw
-
-use strict;
-use Test::More tests => 26;
-
-BEGIN {
- use_ok( 'Locale::Maketext' );
-}
-
-print "#\n# Testing tight insertion of super-ordinate language tags...\n#\n";
-
-my @in = grep m/\S/, split /[\n\r]/, q{
- NIX => NIX
- sv => sv
- en => en
- hai => hai
-
- pt-br => pt-br pt
- pt-br fr => pt-br pt fr
- pt-br fr pt => pt-br fr pt
-
- pt-br fr pt de => pt-br fr pt de
- de pt-br fr pt => de pt-br fr pt
- de pt-br fr => de pt-br pt fr
- hai pt-br fr => hai pt-br pt fr
-
- # Now test multi-part complicateds:
- pt-br-janeiro => pt-br-janeiro pt-br pt
- pt-br-janeiro fr => pt-br-janeiro pt-br pt fr
- pt-br-janeiro de fr => pt-br-janeiro pt-br pt de fr
- pt-br-janeiro de pt fr => pt-br-janeiro pt-br de pt fr
-
- pt-br-janeiro pt-br-saopaolo => pt-br-janeiro pt-br pt pt-br-saopaolo
- pt-br-janeiro fr pt-br-saopaolo => pt-br-janeiro pt-br pt fr pt-br-saopaolo
- pt-br-janeiro de pt-br-saopaolo fr => pt-br-janeiro pt-br pt de pt-br-saopaolo fr
- pt-br-janeiro de pt-br fr pt-br-saopaolo => pt-br-janeiro de pt-br pt fr pt-br-saopaolo
-
- pt-br de en fr pt-br-janeiro => pt-br pt de en fr pt-br-janeiro
- pt-br de en fr => pt-br pt de en fr
-
- ja pt-br-janeiro fr => ja pt-br-janeiro pt-br pt fr
- ja pt-br-janeiro de fr => ja pt-br-janeiro pt-br pt de fr
- ja pt-br-janeiro de pt fr => ja pt-br-janeiro pt-br de pt fr
-
- pt-br-janeiro de pt-br fr => pt-br-janeiro de pt-br pt fr
-# an odd case, since we don't filter for uniqueness in this sub
-
-};
-
-sub uniq { my %seen; return grep(!($seen{$_}++), @_); }
-
-foreach my $in ( @in ) {
- $in =~ s/^\s+//s;
- $in =~ s/\s+$//s;
- $in =~ s/#.+//s;
- next unless $in =~ m/\S/;
-
- die "What kind of line is <$in>?!"
- unless $in =~ m/^(.+)=>(.+)$/s;
-
- my ($i,$s) = ($1, $2);
- my @in = ($i =~ m/(\S+)/g);
- my @should = ($s =~ m/(\S+)/g);
-
- my @out = uniq( Locale::Maketext->_add_supers(
- ("@in" eq 'NIX') ? () : @in
- ) );
- @out = 'NIX' unless @out;
-
- is_deeply( \@out, \@should, "Happily got [@out] from $in" );
-}
diff --git a/3.8.8/sources/cpan-MIME-Base64/vendor/MANIFEST b/3.8.8/sources/cpan-MIME-Base64/vendor/MANIFEST
deleted file mode 100644
index d23ea0a..0000000
--- a/3.8.8/sources/cpan-MIME-Base64/vendor/MANIFEST
+++ /dev/null
@@ -1,13 +0,0 @@
-Base64.pm Bootstrap implementation of MIME::Base64
-Base64.xs Encoder and decoder written in C
-Changes What's new
-MANIFEST This file
-Makefile.PL Writes the Makefile
-QuotedPrint.pm Bootstrap implementation of MIME::QuotedPrint
-README Please do!
-t/bad-sv.t
-t/base64.t Test that it works
-t/quoted-print.t
-t/unicode.t
-t/warn.t
-META.yml Module meta-data (added by MakeMaker)
diff --git a/3.8.8/sources/cpan-MIME-Base64/vendor/META.yml b/3.8.8/sources/cpan-MIME-Base64/vendor/META.yml
deleted file mode 100644
index 27a51f2..0000000
--- a/3.8.8/sources/cpan-MIME-Base64/vendor/META.yml
+++ /dev/null
@@ -1,20 +0,0 @@
---- #YAML:1.0
-name: MIME-Base64
-version: 3.09
-abstract: ~
-author: []
-license: unknown
-distribution_type: module
-configure_requires:
- ExtUtils::MakeMaker: 0
-build_requires:
- ExtUtils::MakeMaker: 0
-requires: {}
-no_index:
- directory:
- - t
- - inc
-generated_by: ExtUtils::MakeMaker version 6.55_02
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
diff --git a/3.8.8/sources/cpan-MIME-Base64/vendor/t/unicode.t b/3.8.8/sources/cpan-MIME-Base64/vendor/t/unicode.t
deleted file mode 100644
index b09a328..0000000
--- a/3.8.8/sources/cpan-MIME-Base64/vendor/t/unicode.t
+++ /dev/null
@@ -1,33 +0,0 @@
-BEGIN {
- unless ($] >= 5.006) {
- print "1..0\n";
- exit(0);
- }
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = '../lib';
- }
-}
-
-print "1..2\n";
-
-require MIME::Base64;
-
-eval {
- my $tmp = MIME::Base64::encode(v300);
- print "# enc: $tmp\n";
-};
-print "# $@" if $@;
-print "not " unless $@;
-print "ok 1\n";
-
-require MIME::QuotedPrint;
-
-eval {
- my $tmp = MIME::QuotedPrint::encode(v300);
- print "# enc: $tmp\n";
-};
-print "# $@" if $@;
-print "not " unless $@;
-print "ok 2\n";
-
diff --git a/3.8.8/sources/cpan-Math-Complex/vendor/lib/Math/Trig.pm b/3.8.8/sources/cpan-Math-Complex/vendor/lib/Math/Trig.pm
deleted file mode 100644
index b7767be..0000000
--- a/3.8.8/sources/cpan-Math-Complex/vendor/lib/Math/Trig.pm
+++ /dev/null
@@ -1,768 +0,0 @@
-#
-# Trigonometric functions, mostly inherited from Math::Complex.
-# -- Jarkko Hietaniemi, since April 1997
-# -- Raphael Manfredi, September 1996 (indirectly: because of Math::Complex)
-#
-
-require Exporter;
-package Math::Trig;
-
-use 5.005;
-use strict;
-
-use Math::Complex 1.56;
-use Math::Complex qw(:trig :pi);
-
-use vars qw($VERSION $PACKAGE @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-
- at ISA = qw(Exporter);
-
-$VERSION = 1.20;
-
-my @angcnv = qw(rad2deg rad2grad
- deg2rad deg2grad
- grad2rad grad2deg);
-
-my @areal = qw(asin_real acos_real);
-
- at 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);
-
- at 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
-
-%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 $distance = great_circle_distance($theta0, $phi0, $theta1, $phi1);
-
- my $lat0 = pip2 - $phi0;
- my $lat1 = pip2 - $phi1;
-
- my $direction =
- acos_real((sin($lat1) - sin($lat0) * cos($distance)) /
- (cos($lat0) * sin($distance)));
-
- $direction = pi2 - $direction
- if sin($theta1 - $theta0) < 0;
-
- return rad2rad($direction);
-}
-
-*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>> and
-Raphael Manfredi <F<Raphael_Manfredi!at!pobox.com>>.
-
-=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/3.8.8/sources/cpan-Math-Complex/vendor/t/Trig.t b/3.8.8/sources/cpan-Math-Complex/vendor/t/Trig.t
deleted file mode 100755
index 91f5486..0000000
--- a/3.8.8/sources/cpan-Math-Complex/vendor/t/Trig.t
+++ /dev/null
@@ -1,393 +0,0 @@
-#!./perl
-
-#
-# Regression tests for the Math::Trig package
-#
-# The tests here are quite modest as the Math::Complex tests exercise
-# these interfaces quite vigorously.
-#
-# -- Jarkko Hietaniemi, April 1997
-
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = '../lib';
- }
-}
-
-BEGIN {
- eval { require Test::More };
- if ($@) {
- # We are willing to lose testing in e.g. 5.00504.
- print "1..0 # No Test::More, skipping\n";
- exit(0);
- } else {
- import Test::More;
- }
-}
-
-plan(tests => 153);
-
-use Math::Trig 1.18;
-use Math::Trig 1.18 qw(:pi Inf);
-
-my $pip2 = pi / 2;
-
-use strict;
-
-use vars qw($x $y $z);
-
-my $eps = 1e-11;
-
-if ($^O eq 'unicos') { # See lib/Math/Complex.pm and t/lib/complex.t.
- $eps = 1e-10;
-}
-
-sub near ($$;$) {
- my $e = defined $_[2] ? $_[2] : $eps;
- my $d = $_[1] ? abs($_[0]/$_[1] - 1) : abs($_[0]);
- print "# near? $_[0] $_[1] : $d : $e\n";
- $_[1] ? ($d < $e) : abs($_[0]) < $e;
-}
-
-print "# Sanity checks\n";
-
-ok(near(sin(1), 0.841470984807897));
-ok(near(cos(1), 0.54030230586814));
-ok(near(tan(1), 1.5574077246549));
-
-ok(near(sec(1), 1.85081571768093));
-ok(near(csc(1), 1.18839510577812));
-ok(near(cot(1), 0.642092615934331));
-
-ok(near(asin(1), 1.5707963267949));
-ok(near(acos(1), 0));
-ok(near(atan(1), 0.785398163397448));
-
-ok(near(asec(1), 0));
-ok(near(acsc(1), 1.5707963267949));
-ok(near(acot(1), 0.785398163397448));
-
-ok(near(sinh(1), 1.1752011936438));
-ok(near(cosh(1), 1.54308063481524));
-ok(near(tanh(1), 0.761594155955765));
-
-ok(near(sech(1), 0.648054273663885));
-ok(near(csch(1), 0.850918128239322));
-ok(near(coth(1), 1.31303528549933));
-
-ok(near(asinh(1), 0.881373587019543));
-ok(near(acosh(1), 0));
-ok(near(atanh(0.9), 1.47221948958322)); # atanh(1.0) would be an error.
-
-ok(near(asech(0.9), 0.467145308103262));
-ok(near(acsch(2), 0.481211825059603));
-ok(near(acoth(2), 0.549306144334055));
-
-print "# Basics\n";
-
-$x = 0.9;
-ok(near(tan($x), sin($x) / cos($x)));
-
-ok(near(sinh(2), 3.62686040784702));
-
-ok(near(acsch(0.1), 2.99822295029797));
-
-$x = asin(2);
-is(ref $x, 'Math::Complex');
-
-# avoid using Math::Complex here
-$x =~ /^([^-]+)(-[^i]+)i$/;
-($y, $z) = ($1, $2);
-ok(near($y, 1.5707963267949));
-ok(near($z, -1.31695789692482));
-
-ok(near(deg2rad(90), pi/2));
-
-ok(near(rad2deg(pi), 180));
-
-use Math::Trig ':radial';
-
-{
- my ($r,$t,$z) = cartesian_to_cylindrical(1,1,1);
-
- ok(near($r, sqrt(2)));
- ok(near($t, deg2rad(45)));
- ok(near($z, 1));
-
- ($x,$y,$z) = cylindrical_to_cartesian($r, $t, $z);
-
- ok(near($x, 1));
- ok(near($y, 1));
- ok(near($z, 1));
-
- ($r,$t,$z) = cartesian_to_cylindrical(1,1,0);
-
- ok(near($r, sqrt(2)));
- ok(near($t, deg2rad(45)));
- ok(near($z, 0));
-
- ($x,$y,$z) = cylindrical_to_cartesian($r, $t, $z);
-
- ok(near($x, 1));
- ok(near($y, 1));
- ok(near($z, 0));
-}
-
-{
- my ($r,$t,$f) = cartesian_to_spherical(1,1,1);
-
- ok(near($r, sqrt(3)));
- ok(near($t, deg2rad(45)));
- ok(near($f, atan2(sqrt(2), 1)));
-
- ($x,$y,$z) = spherical_to_cartesian($r, $t, $f);
-
- ok(near($x, 1));
- ok(near($y, 1));
- ok(near($z, 1));
-
- ($r,$t,$f) = cartesian_to_spherical(1,1,0);
-
- ok(near($r, sqrt(2)));
- ok(near($t, deg2rad(45)));
- ok(near($f, deg2rad(90)));
-
- ($x,$y,$z) = spherical_to_cartesian($r, $t, $f);
-
- ok(near($x, 1));
- ok(near($y, 1));
- ok(near($z, 0));
-}
-
-{
- my ($r,$t,$z) = cylindrical_to_spherical(spherical_to_cylindrical(1,1,1));
-
- ok(near($r, 1));
- ok(near($t, 1));
- ok(near($z, 1));
-
- ($r,$t,$z) = spherical_to_cylindrical(cylindrical_to_spherical(1,1,1));
-
- ok(near($r, 1));
- ok(near($t, 1));
- ok(near($z, 1));
-}
-
-{
- use Math::Trig 'great_circle_distance';
-
- ok(near(great_circle_distance(0, 0, 0, pi/2), pi/2));
-
- ok(near(great_circle_distance(0, 0, pi, pi), pi));
-
- # London to Tokyo.
- my @L = (deg2rad(-0.5), deg2rad(90 - 51.3));
- my @T = (deg2rad(139.8), deg2rad(90 - 35.7));
-
- my $km = great_circle_distance(@L, @T, 6378);
-
- ok(near($km, 9605.26637021388));
-}
-
-{
- my $R2D = 57.295779513082320876798154814169;
-
- sub frac { $_[0] - int($_[0]) }
-
- my $lotta_radians = deg2rad(1E+20, 1);
- ok(near($lotta_radians, 1E+20/$R2D));
-
- my $negat_degrees = rad2deg(-1E20, 1);
- ok(near($negat_degrees, -1E+20*$R2D));
-
- my $posit_degrees = rad2deg(-10000, 1);
- ok(near($posit_degrees, -10000*$R2D));
-}
-
-{
- use Math::Trig 'great_circle_direction';
-
- ok(near(great_circle_direction(0, 0, 0, pi/2), pi));
-
-# Retired test: Relies on atan2(0, 0), which is not portable.
-# ok(near(great_circle_direction(0, 0, pi, pi), -pi()/2));
-
- my @London = (deg2rad( -0.167), deg2rad(90 - 51.3));
- my @Tokyo = (deg2rad( 139.5), deg2rad(90 - 35.7));
- my @Berlin = (deg2rad ( 13.417), deg2rad(90 - 52.533));
- my @Paris = (deg2rad ( 2.333), deg2rad(90 - 48.867));
-
- ok(near(rad2deg(great_circle_direction(@London, @Tokyo)),
- 31.791945393073));
-
- ok(near(rad2deg(great_circle_direction(@Tokyo, @London)),
- 336.069766430326));
-
- ok(near(rad2deg(great_circle_direction(@Berlin, @Paris)),
- 246.800348034667));
-
- ok(near(rad2deg(great_circle_direction(@Paris, @Berlin)),
- 58.2079877553156));
-
- use Math::Trig 'great_circle_bearing';
-
- ok(near(rad2deg(great_circle_bearing(@Paris, @Berlin)),
- 58.2079877553156));
-
- use Math::Trig 'great_circle_waypoint';
- use Math::Trig 'great_circle_midpoint';
-
- my ($lon, $lat);
-
- ($lon, $lat) = great_circle_waypoint(@London, @Tokyo, 0.0);
-
- ok(near($lon, $London[0]));
-
- ok(near($lat, $London[1]));
-
- ($lon, $lat) = great_circle_waypoint(@London, @Tokyo, 1.0);
-
- ok(near($lon, $Tokyo[0]));
-
- ok(near($lat, $Tokyo[1]));
-
- ($lon, $lat) = great_circle_waypoint(@London, @Tokyo, 0.5);
-
- ok(near($lon, 1.55609593577679)); # 89.16 E
-
- ok(near($lat, 0.36783532946162)); # 68.93 N
-
- ($lon, $lat) = great_circle_midpoint(@London, @Tokyo);
-
- ok(near($lon, 1.55609593577679)); # 89.16 E
-
- ok(near($lat, 0.367835329461615)); # 68.93 N
-
- ($lon, $lat) = great_circle_waypoint(@London, @Tokyo, 0.25);
-
- ok(near($lon, 0.516073562850837)); # 29.57 E
-
- ok(near($lat, 0.400231313403387)); # 67.07 N
-
- ($lon, $lat) = great_circle_waypoint(@London, @Tokyo, 0.75);
-
- ok(near($lon, 2.17494903805952)); # 124.62 E
-
- ok(near($lat, 0.617809294053591)); # 54.60 N
-
- use Math::Trig 'great_circle_destination';
-
- my $dir1 = great_circle_direction(@London, @Tokyo);
- my $dst1 = great_circle_distance(@London, @Tokyo);
-
- ($lon, $lat) = great_circle_destination(@London, $dir1, $dst1);
-
- ok(near($lon, $Tokyo[0]));
-
- ok(near($lat, $pip2 - $Tokyo[1]));
-
- my $dir2 = great_circle_direction(@Tokyo, @London);
- my $dst2 = great_circle_distance(@Tokyo, @London);
-
- ($lon, $lat) = great_circle_destination(@Tokyo, $dir2, $dst2);
-
- ok(near($lon, $London[0]));
-
- ok(near($lat, $pip2 - $London[1]));
-
- my $dir3 = (great_circle_destination(@London, $dir1, $dst1))[2];
-
- ok(near($dir3, 2.69379263839118)); # about 154.343 deg
-
- my $dir4 = (great_circle_destination(@Tokyo, $dir2, $dst2))[2];
-
- ok(near($dir4, 3.6993902625701)); # about 211.959 deg
-
- ok(near($dst1, $dst2));
-}
-
-print "# Infinity\n";
-
-my $BigDouble = 1e40;
-
-# E.g. netbsd-alpha core dumps on Inf arith without this.
-local $SIG{FPE} = sub { };
-
-ok(Inf() > $BigDouble); # This passes in netbsd-alpha.
-ok(Inf() + $BigDouble > $BigDouble); # This coredumps in netbsd-alpha.
-ok(Inf() + $BigDouble == Inf());
-ok(Inf() - $BigDouble > $BigDouble);
-ok(Inf() - $BigDouble == Inf());
-ok(Inf() * $BigDouble > $BigDouble);
-ok(Inf() * $BigDouble == Inf());
-ok(Inf() / $BigDouble > $BigDouble);
-ok(Inf() / $BigDouble == Inf());
-
-ok(-Inf() < -$BigDouble);
-ok(-Inf() + $BigDouble < $BigDouble);
-ok(-Inf() + $BigDouble == -Inf());
-ok(-Inf() - $BigDouble < -$BigDouble);
-ok(-Inf() - $BigDouble == -Inf());
-ok(-Inf() * $BigDouble < -$BigDouble);
-ok(-Inf() * $BigDouble == -Inf());
-ok(-Inf() / $BigDouble < -$BigDouble);
-ok(-Inf() / $BigDouble == -Inf());
-
-print "# sinh/sech/cosh/csch/tanh/coth unto infinity\n";
-
-ok(near(sinh(100), 1.3441e+43, 1e-3));
-ok(near(sech(100), 7.4402e-44, 1e-3));
-ok(near(cosh(100), 1.3441e+43, 1e-3));
-ok(near(csch(100), 7.4402e-44, 1e-3));
-ok(near(tanh(100), 1));
-ok(near(coth(100), 1));
-
-ok(near(sinh(-100), -1.3441e+43, 1e-3));
-ok(near(sech(-100), 7.4402e-44, 1e-3));
-ok(near(cosh(-100), 1.3441e+43, 1e-3));
-ok(near(csch(-100), -7.4402e-44, 1e-3));
-ok(near(tanh(-100), -1));
-ok(near(coth(-100), -1));
-
-cmp_ok(sinh(1e5), '==', Inf());
-cmp_ok(sech(1e5), '==', 0);
-cmp_ok(cosh(1e5), '==', Inf());
-cmp_ok(csch(1e5), '==', 0);
-cmp_ok(tanh(1e5), '==', 1);
-cmp_ok(coth(1e5), '==', 1);
-
-cmp_ok(sinh(-1e5), '==', -Inf());
-cmp_ok(sech(-1e5), '==', 0);
-cmp_ok(cosh(-1e5), '==', Inf());
-cmp_ok(csch(-1e5), '==', 0);
-cmp_ok(tanh(-1e5), '==', -1);
-cmp_ok(coth(-1e5), '==', -1);
-
-print "# great_circle_distance with small angles\n";
-
-for my $e (qw(1e-2 1e-3 1e-4 1e-5)) {
- # Can't assume == 0 because of floating point fuzz,
- # but let's hope for at least < $e.
- cmp_ok(great_circle_distance(0, $e, 0, $e), '<', $e);
-}
-
-print "# asin_real, acos_real\n";
-
-is(acos_real(-2.0), pi);
-is(acos_real(-1.0), pi);
-is(acos_real(-0.5), acos(-0.5));
-is(acos_real( 0.0), acos( 0.0));
-is(acos_real( 0.5), acos( 0.5));
-is(acos_real( 1.0), 0);
-is(acos_real( 2.0), 0);
-
-is(asin_real(-2.0), -&pip2);
-is(asin_real(-1.0), -&pip2);
-is(asin_real(-0.5), asin(-0.5));
-is(asin_real( 0.0), asin( 0.0));
-is(asin_real( 0.5), asin( 0.5));
-is(asin_real( 1.0), pip2);
-is(asin_real( 2.0), pip2);
-
-# eof
diff --git a/3.8.8/sources/cpan-Math-Complex/vendor/t/pod.t b/3.8.8/sources/cpan-Math-Complex/vendor/t/pod.t
deleted file mode 100644
index 9480b2f..0000000
--- a/3.8.8/sources/cpan-Math-Complex/vendor/t/pod.t
+++ /dev/null
@@ -1,12 +0,0 @@
-BEGIN {
- eval { require Test::More };
- if ($@) {
- print "1..0 # No Test::More, skipping\n";
- exit(0);
- } else {
- import Test::More;
- }
-}
-eval "use Test::Pod 1.00";
-plan(skip_all => "Test::Pod 1.00 required for testing POD") if $@;
-all_pod_files_ok();
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/LICENSE b/3.8.8/sources/cpan-Module-Build/vendor/LICENSE
deleted file mode 100644
index 38c78d5..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/LICENSE
+++ /dev/null
@@ -1,380 +0,0 @@
-This software is copyright (c) 2010 by Ken Williams <kwilliams at cpan.org> & Development questions, bug reports, and patches should be sent to the
-Module-Build mailing list at <module-build at perl.org>..
-
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
-
-Terms of the Perl programming language system itself
-
-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"
-
---- The GNU General Public License, Version 1, February 1989 ---
-
-This software is Copyright (c) 2010 by Ken Williams <kwilliams at cpan.org> & Development questions, bug reports, and patches should be sent to the
-Module-Build mailing list at <module-build at perl.org>..
-
-This is free software, licensed under:
-
- The GNU General Public License, Version 1, February 1989
-
- GNU GENERAL PUBLIC LICENSE
- Version 1, February 1989
-
- Copyright (C) 1989 Free Software Foundation, Inc.
- 59 Temple Place, Suite 330, Boston, MA 02111-1307, 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307, 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!
-
-
---- The Artistic License 1.0 ---
-
-This software is Copyright (c) 2010 by Ken Williams <kwilliams at cpan.org> & Development questions, bug reports, and patches should be sent to the
-Module-Build mailing list at <module-build at perl.org>..
-
-This is free software, licensed under:
-
- The Artistic License 1.0
-
-The Artistic License
-
-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.
-
-Definitions:
-
- - "Package" refers to the collection of files distributed by the Copyright
- Holder, and derivatives of that collection of files created through
- textual modification.
- - "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.
- - "Copyright Holder" is whoever is named in the copyright or copyrights for
- the package.
- - "You" is you, if you're thinking about copying or distributing this Package.
- - "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.)
- - "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.
-
-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.
-
-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.
-
-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:
-
- 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 ftp.uu.net, or by allowing the Copyright Holder to include your
- modifications in the Standard Version of the Package.
-
- b) use the modified Package only within your corporation or organization.
-
- 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.
-
- d) make other distribution arrangements with the Copyright Holder.
-
-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:
-
- 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.
-
- b) accompany the distribution with the machine-readable source of the Package
- with your modifications.
-
- c) accompany any non-standard executables with their corresponding Standard
- Version executables, giving the non-standard executables non-standard
- names, and clearly documenting the differences in manual pages (or
- equivalent), together with instructions on where to get the Standard
- Version.
-
- d) make other distribution arrangements with the Copyright Holder.
-
-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.
-
-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 whomever generated them, and may be sold
-commercially, and may be aggregated with this Package.
-
-7. C or perl subroutines supplied by you and linked into this Package shall not
-be considered part of this Package.
-
-8. The name of the Copyright Holder may not be used to endorse or promote
-products derived from this software without specific prior written permission.
-
-9. 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.
-
-The End
-
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/META.yml b/3.8.8/sources/cpan-Module-Build/vendor/META.yml
deleted file mode 100644
index ba170d2..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/META.yml
+++ /dev/null
@@ -1,129 +0,0 @@
----
-abstract: 'Build and install Perl modules'
-author:
- - 'Ken Williams <kwilliams at cpan.org>'
- - "Development questions, bug reports, and patches should be sent to the\nModule-Build mailing list at <module-build at perl.org>."
-build_requires:
- File::Temp: 0.15
- Test::Harness: 3.16
- Test::More: 0.49
-generated_by: 'Module::Build version 0.3607'
-license: perl
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
-name: Module-Build
-provides:
- Module::Build:
- file: lib/Module/Build.pm
- version: 0.3607
- Module::Build::Base:
- file: lib/Module/Build/Base.pm
- version: 0.3607
- Module::Build::Compat:
- file: lib/Module/Build/Compat.pm
- version: 0.3607
- Module::Build::Config:
- file: lib/Module/Build/Config.pm
- version: 0.3607
- Module::Build::Cookbook:
- file: lib/Module/Build/Cookbook.pm
- version: 0.3607
- Module::Build::Dumper:
- file: lib/Module/Build/Dumper.pm
- version: 0.3607
- Module::Build::ModuleInfo:
- file: lib/Module/Build/ModuleInfo.pm
- version: 0.3607
- Module::Build::Notes:
- file: lib/Module/Build/Notes.pm
- version: 0.3607
- Module::Build::PPMMaker:
- file: lib/Module/Build/PPMMaker.pm
- version: 0.3607
- Module::Build::Platform::Amiga:
- file: lib/Module/Build/Platform/Amiga.pm
- version: 0.3607
- Module::Build::Platform::Default:
- file: lib/Module/Build/Platform/Default.pm
- version: 0.3607
- Module::Build::Platform::EBCDIC:
- file: lib/Module/Build/Platform/EBCDIC.pm
- version: 0.3607
- Module::Build::Platform::MPEiX:
- file: lib/Module/Build/Platform/MPEiX.pm
- version: 0.3607
- Module::Build::Platform::MacOS:
- file: lib/Module/Build/Platform/MacOS.pm
- version: 0.3607
- Module::Build::Platform::RiscOS:
- file: lib/Module/Build/Platform/RiscOS.pm
- version: 0.3607
- Module::Build::Platform::Unix:
- file: lib/Module/Build/Platform/Unix.pm
- version: 0.3607
- Module::Build::Platform::VMS:
- file: lib/Module/Build/Platform/VMS.pm
- version: 0.3607
- Module::Build::Platform::VOS:
- file: lib/Module/Build/Platform/VOS.pm
- version: 0.3607
- Module::Build::Platform::Windows:
- file: lib/Module/Build/Platform/Windows.pm
- version: 0.3607
- Module::Build::Platform::aix:
- file: lib/Module/Build/Platform/aix.pm
- version: 0.3607
- Module::Build::Platform::cygwin:
- file: lib/Module/Build/Platform/cygwin.pm
- version: 0.3607
- Module::Build::Platform::darwin:
- file: lib/Module/Build/Platform/darwin.pm
- version: 0.3607
- Module::Build::Platform::os2:
- file: lib/Module/Build/Platform/os2.pm
- version: 0.3607
- Module::Build::PodParser:
- file: lib/Module/Build/PodParser.pm
- version: 0.3607
- Module::Build::Version:
- file: lib/Module/Build/Version.pm
- version: 0.77
- Module::Build::YAML:
- file: lib/Module/Build/YAML.pm
- version: 1.40
- inc::latest:
- file: lib/inc/latest.pm
- version: 0.3607
- inc::latest::private:
- file: lib/inc/latest/private.pm
- version: 0.3607
-recommends:
- ExtUtils::Install: 0.3
- ExtUtils::Manifest: 1.54
- version: 0.74
-requires:
- Cwd: 0
- Data::Dumper: 0
- ExtUtils::CBuilder: 0.27
- ExtUtils::Install: 0
- ExtUtils::Manifest: 0
- ExtUtils::Mkbootstrap: 0
- ExtUtils::ParseXS: 2.21
- File::Basename: 0
- File::Compare: 0
- File::Copy: 0
- File::Find: 0
- File::Path: 0
- File::Spec: 0.82
- Getopt::Long: 0
- IO::File: 0
- Test::Harness: 0
- Text::Abbrev: 0
- Text::ParseWords: 0
- perl: 5.006001
-resources:
- MailingList: mailto:module-build at perl.org
- license: http://dev.perl.org/licenses/
- repository: http://github.com/dagolden/module-build/
-version: 0.3607
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build.pm b/3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build.pm
deleted file mode 100644
index bd70097..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build.pm
+++ /dev/null
@@ -1,1149 +0,0 @@
-package Module::Build;
-
-# This module doesn't do much of anything itself, it inherits from the
-# modules that do the real work. The only real thing it has to do is
-# figure out which OS-specific module to pull in. Many of the
-# OS-specific modules don't do anything either - most of the work is
-# done in Module::Build::Base.
-
-use strict;
-use File::Spec ();
-use File::Path ();
-use File::Basename ();
-
-use Module::Build::Base;
-
-use vars qw($VERSION @ISA);
- at ISA = qw(Module::Build::Base);
-$VERSION = '0.3607';
-$VERSION = eval $VERSION;
-
-# Okay, this is the brute-force method of finding out what kind of
-# platform we're on. I don't know of a systematic way. These values
-# came from the latest (bleadperl) perlport.pod.
-
-my %OSTYPES = qw(
- aix Unix
- bsdos Unix
- beos Unix
- dgux Unix
- dragonfly Unix
- dynixptx Unix
- freebsd Unix
- linux Unix
- haiku Unix
- hpux Unix
- irix Unix
- darwin Unix
- machten Unix
- midnightbsd Unix
- mirbsd Unix
- next Unix
- openbsd Unix
- netbsd Unix
- dec_osf Unix
- nto Unix
- svr4 Unix
- svr5 Unix
- sco_sv Unix
- unicos Unix
- unicosmk Unix
- solaris Unix
- sunos Unix
- cygwin Unix
- os2 Unix
- interix Unix
- gnu Unix
- gnukfreebsd Unix
- nto 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
- );
-
-# Inserts the given module into the @ISA hierarchy between
-# Module::Build and its immediate parent
-sub _interpose_module {
- my ($self, $mod) = @_;
- eval "use $mod";
- die $@ if $@;
-
- no strict 'refs';
- my $top_class = $mod;
- while (@{"${top_class}::ISA"}) {
- last if ${"${top_class}::ISA"}[0] eq $ISA[0];
- $top_class = ${"${top_class}::ISA"}[0];
- }
-
- @{"${top_class}::ISA"} = @ISA;
- @ISA = ($mod);
-}
-
-if (grep {-e File::Spec->catfile($_, qw(Module Build Platform), $^O) . '.pm'} @INC) {
- __PACKAGE__->_interpose_module("Module::Build::Platform::$^O");
-
-} elsif (exists $OSTYPES{$^O}) {
- __PACKAGE__->_interpose_module("Module::Build::Platform::$OSTYPES{$^O}");
-
-} else {
- warn "Unknown OS type '$^O' - using default settings\n";
-}
-
-sub os_type { $OSTYPES{$^O} }
-
-sub is_vmsish { return ((os_type() || '') eq 'VMS') }
-sub is_windowsish { return ((os_type() || '') eq 'Windows') }
-sub is_unixish { return ((os_type() || '') eq 'Unix') }
-
-1;
-
-__END__
-
-=for :stopwords
-bindoc binhtml destdir distcheck distclean distdir distmeta distsign disttest
-fakeinstall html installdirs installsitebin installsitescript installvendorbin
-installvendorscript libdoc libhtml pardist ppd ppmdist realclean skipcheck
-testall testcover testdb testpod testpodcoverage versioninstall
-
-=head1 NAME
-
-Module::Build - Build and install Perl modules
-
-
-=head1 SYNOPSIS
-
-Standard process for building & installing modules:
-
- perl Build.PL
- ./Build
- ./Build test
- ./Build install
-
-Or, if you're on a platform (like DOS or Windows) that doesn't require
-the "./" notation, you can do this:
-
- perl Build.PL
- Build
- Build test
- Build install
-
-
-=head1 DESCRIPTION
-
-C<Module::Build> is a system for building, testing, and installing
-Perl modules. It is meant to be an alternative to
-C<ExtUtils::MakeMaker>. Developers may alter the behavior of the
-module through subclassing in a much more straightforward way than
-with C<MakeMaker>. It also does not require a C<make> on your system
-- most of the C<Module::Build> code is pure-perl and written in a very
-cross-platform way. In fact, you don't even need a shell, so even
-platforms like MacOS (traditional) can use it fairly easily. Its only
-prerequisites are modules that are included with perl 5.6.0, and it
-works fine on perl 5.005 if you can install a few additional modules.
-
-See L<"MOTIVATIONS"> for more comparisons between C<ExtUtils::MakeMaker>
-and C<Module::Build>.
-
-To install C<Module::Build>, and any other module that uses
-C<Module::Build> for its installation process, do the following:
-
- perl Build.PL # 'Build.PL' script creates the 'Build' script
- ./Build # Need ./ to ensure we're using this "Build" script
- ./Build test # and not another one that happens to be in the PATH
- ./Build install
-
-This illustrates initial configuration and the running of three
-'actions'. In this case the actions run are 'build' (the default
-action), 'test', and 'install'. Other actions defined so far include:
-
- build manpages
- checkchanges pardist
- checkgit patch_blead
- clean ppd
- code ppmdist
- config_data prereq_data
- diff prereq_report
- dist pure_install
- distcheck realclean
- distclean retest
- distdir skipcheck
- distmeta tag_git
- distsign test
- disttest testall
- docs testcover
- fakeinstall testdb
- help testpod
- html testpodcoverage
- install upload
- installdeps versioninstall
- manifest
-
-You can run the 'help' action for a complete list of actions.
-
-
-=head1 GUIDE TO DOCUMENTATION
-
-The documentation for C<Module::Build> is broken up into three sections:
-
-=over
-
-=item General Usage (L<Module::Build>)
-
-This is the document you are currently reading. It describes basic
-usage and background information. Its main purpose is to assist the
-user who wants to learn how to invoke and control C<Module::Build>
-scripts at the command line.
-
-=item Authoring Reference (L<Module::Build::Authoring>)
-
-This document describes the structure and organization of
-C<Module::Build>, and the relevant concepts needed by authors who are
-writing F<Build.PL> scripts for a distribution or controlling
-C<Module::Build> processes programmatically.
-
-=item API Reference (L<Module::Build::API>)
-
-This is a reference to the C<Module::Build> API.
-
-=item Cookbook (L<Module::Build::Cookbook>)
-
-This document demonstrates how to accomplish many common tasks. It
-covers general command line usage and authoring of F<Build.PL>
-scripts. Includes working examples.
-
-=back
-
-
-=head1 ACTIONS
-
-There are some general principles at work here. First, each task when
-building a module is called an "action". These actions are listed
-above; they correspond to the building, testing, installing,
-packaging, etc., tasks.
-
-Second, arguments are processed in a very systematic way. Arguments
-are always key=value pairs. They may be specified at C<perl Build.PL>
-time (i.e. C<perl Build.PL destdir=/my/secret/place>), in which case
-their values last for the lifetime of the C<Build> script. They may
-also be specified when executing a particular action (i.e.
-C<Build test verbose=1>), in which case their values last only for the
-lifetime of that command. Per-action command line parameters take
-precedence over parameters specified at C<perl Build.PL> time.
-
-The build process also relies heavily on the C<Config.pm> module.
-If the user wishes to override any of the
-values in C<Config.pm>, she may specify them like so:
-
- perl Build.PL --config cc=gcc --config ld=gcc
-
-The following build actions are provided by default.
-
-=over 4
-
-=item build
-
-[version 0.01]
-
-If you run the C<Build> script without any arguments, it runs the
-C<build> action, which in turn runs the C<code> and C<docs> actions.
-
-This is analogous to the C<MakeMaker> I<make all> target.
-
-=item clean
-
-[version 0.01]
-
-This action will clean up any files that the build process may have
-created, including the C<blib/> directory (but not including the
-C<_build/> directory and the C<Build> script itself).
-
-=item code
-
-[version 0.20]
-
-This action builds your code base.
-
-By default it just creates a C<blib/> directory and copies any C<.pm>
-and C<.pod> files from your C<lib/> directory into the C<blib/>
-directory. It also compiles any C<.xs> files from C<lib/> and places
-them in C<blib/>. Of course, you need a working C compiler (probably
-the same one that built perl itself) for the compilation to work
-properly.
-
-The C<code> action also runs any C<.PL> files in your F<lib/>
-directory. Typically these create other files, named the same but
-without the C<.PL> ending. For example, a file F<lib/Foo/Bar.pm.PL>
-could create the file F<lib/Foo/Bar.pm>. The C<.PL> files are
-processed first, so any C<.pm> files (or other kinds that we deal
-with) will get copied correctly.
-
-=item config_data
-
-[version 0.26]
-
-...
-
-=item diff
-
-[version 0.14]
-
-This action will compare the files about to be installed with their
-installed counterparts. For .pm and .pod files, a diff will be shown
-(this currently requires a 'diff' program to be in your PATH). For
-other files like compiled binary files, we simply report whether they
-differ.
-
-A C<flags> parameter may be passed to the action, which will be passed
-to the 'diff' program. Consult your 'diff' documentation for the
-parameters it will accept - a good one is C<-u>:
-
- ./Build diff flags=-u
-
-=item dist
-
-[version 0.02]
-
-This action is helpful for module authors who want to package up their
-module for source distribution through a medium like CPAN. It will create a
-tarball of the files listed in F<MANIFEST> and compress the tarball using
-GZIP compression.
-
-By default, this action will use the C<Archive::Tar> module. However, you can
-force it to use binary "tar" and "gzip" executables by supplying an explicit
-C<tar> (and optional C<gzip>) parameter:
-
- ./Build dist --tar C:\path\to\tar.exe --gzip C:\path\to\zip.exe
-
-=item distcheck
-
-[version 0.05]
-
-Reports which files are in the build directory but not in the
-F<MANIFEST> file, and vice versa. (See L<manifest> for details.)
-
-=item distclean
-
-[version 0.05]
-
-Performs the 'realclean' action and then the 'distcheck' action.
-
-=item distdir
-
-[version 0.05]
-
-Creates a "distribution directory" named C<$dist_name-$dist_version>
-(if that directory already exists, it will be removed first), then
-copies all the files listed in the F<MANIFEST> file to that directory.
-This directory is what the distribution tarball is created from.
-
-=item distmeta
-
-[version 0.21]
-
-Creates the F<META.yml> file that describes the distribution.
-
-F<META.yml> is a file containing various bits of I<metadata> about the
-distribution. The metadata includes the distribution name, version,
-abstract, prerequisites, license, and various other data about the
-distribution. This file is created as F<META.yml> in YAML format.
-It is recommended that the C<YAML::Tiny> module be installed to create it.
-If the C<YAML::Tiny> module is not installed, an internal module supplied
-with Module::Build will be used to write the META.yml file, and this
-will most likely be fine.
-
-F<META.yml> file must also be listed in F<MANIFEST> - if it's not, a
-warning will be issued.
-
-The current version of the F<META.yml> specification can be found at
-L<http://module-build.sourceforge.net/META-spec-current.html>
-
-=item distsign
-
-[version 0.16]
-
-Uses C<Module::Signature> to create a SIGNATURE file for your
-distribution, and adds the SIGNATURE file to the distribution's
-MANIFEST.
-
-=item disttest
-
-[version 0.05]
-
-Performs the 'distdir' action, then switches into that directory and
-runs a C<perl Build.PL>, followed by the 'build' and 'test' actions in
-that directory.
-
-=item docs
-
-[version 0.20]
-
-This will generate documentation (e.g. Unix man pages and HTML
-documents) for any installable items under B<blib/> that
-contain POD. If there are no C<bindoc> or C<libdoc> installation
-targets defined (as will be the case on systems that don't support
-Unix manpages) no action is taken for manpages. If there are no
-C<binhtml> or C<libhtml> installation targets defined no action is
-taken for HTML documents.
-
-=item fakeinstall
-
-[version 0.02]
-
-This is just like the C<install> action, but it won't actually do
-anything, it will just report what it I<would> have done if you had
-actually run the C<install> action.
-
-=item help
-
-[version 0.03]
-
-This action will simply print out a message that is meant to help you
-use the build process. It will show you a list of available build
-actions too.
-
-With an optional argument specifying an action name (e.g. C<Build help
-test>), the 'help' action will show you any POD documentation it can
-find for that action.
-
-=item html
-
-[version 0.26]
-
-This will generate HTML documentation for any binary or library files
-under B<blib/> that contain POD. The HTML documentation will only be
-installed if the install paths can be determined from values in
-C<Config.pm>. You can also supply or override install paths on the
-command line by specifying C<install_path> values for the C<binhtml>
-and/or C<libhtml> installation targets.
-
-=item install
-
-[version 0.01]
-
-This action will use C<ExtUtils::Install> to install the files from
-C<blib/> into the system. See L<"INSTALL PATHS">
-for details about how Module::Build determines where to install
-things, and how to influence this process.
-
-If you want the installation process to look around in C<@INC> for
-other versions of the stuff you're installing and try to delete it,
-you can use the C<uninst> parameter, which tells C<ExtUtils::Install> to
-do so:
-
- ./Build install uninst=1
-
-This can be a good idea, as it helps prevent multiple versions of a
-module from being present on your system, which can be a confusing
-situation indeed.
-
-=item installdeps
-
-[version 0.36]
-
-This action will use the C<cpan_client> parameter as a command to install
-missing prerequisites. You will be prompted whether to install
-optional dependencies.
-
-The C<cpan_client> option defaults to 'cpan' but can be set as an option or in
-F<.modulebuildrc>. It must be a shell command that takes a list of modules to
-install as arguments (e.g. 'cpanp -i' for CPANPLUS). If the program part is a
-relative path (e.g. 'cpan' or 'cpanp'), it will be located relative to the perl
-program that executed Build.PL.
-
- /opt/perl/5.8.9/bin/perl Build.PL
- ./Build installdeps --cpan_client 'cpanp -i'
- # installs to 5.8.9
-
-=item manifest
-
-[version 0.05]
-
-This is an action intended for use by module authors, not people
-installing modules. It will bring the F<MANIFEST> up to date with the
-files currently present in the distribution. You may use a
-F<MANIFEST.SKIP> file to exclude certain files or directories from
-inclusion in the F<MANIFEST>. F<MANIFEST.SKIP> should contain a bunch
-of regular expressions, one per line. If a file in the distribution
-directory matches any of the regular expressions, it won't be included
-in the F<MANIFEST>.
-
-The following is a reasonable F<MANIFEST.SKIP> starting point, you can
-add your own stuff to it:
-
- ^_build
- ^Build$
- ^blib
- ~$
- \.bak$
- ^MANIFEST\.SKIP$
- CVS
-
-See the L<distcheck> and L<skipcheck> actions if you want to find out
-what the C<manifest> action would do, without actually doing anything.
-
-=item manpages
-
-[version 0.28]
-
-This will generate man pages for any binary or library files under
-B<blib/> that contain POD. The man pages will only be installed if the
-install paths can be determined from values in C<Config.pm>. You can
-also supply or override install paths by specifying there values on
-the command line with the C<bindoc> and C<libdoc> installation
-targets.
-
-=item pardist
-
-[version 0.2806]
-
-Generates a PAR binary distribution for use with L<PAR> or L<PAR::Dist>.
-
-It requires that the PAR::Dist module (version 0.17 and up) is
-installed on your system.
-
-=item ppd
-
-[version 0.20]
-
-Build a PPD file for your distribution.
-
-This action takes an optional argument C<codebase> which is used in
-the generated PPD file to specify the (usually relative) URL of the
-distribution. By default, this value is the distribution name without
-any path information.
-
-Example:
-
- ./Build ppd --codebase "MSWin32-x86-multi-thread/Module-Build-0.21.tar.gz"
-
-=item ppmdist
-
-[version 0.23]
-
-Generates a PPM binary distribution and a PPD description file. This
-action also invokes the C<ppd> action, so it can accept the same
-C<codebase> argument described under that action.
-
-This uses the same mechanism as the C<dist> action to tar & zip its
-output, so you can supply C<tar> and/or C<gzip> parameters to affect
-the result.
-
-=item prereq_data
-
-[version 0.32]
-
-This action prints out a Perl data structure of all prerequisites and the versions
-required. The output can be loaded again using C<eval()>. This can be useful for
-external tools that wish to query a Build script for prerequisites.
-
-=item prereq_report
-
-[version 0.28]
-
-This action prints out a list of all prerequisites, the versions required, and
-the versions actually installed. This can be useful for reviewing the
-configuration of your system prior to a build, or when compiling data to send
-for a bug report.
-
-=item pure_install
-
-[version 0.28]
-
-This action is identical to the C<install> action. In the future,
-though, when C<install> starts writing to the file
-F<$(INSTALLARCHLIB)/perllocal.pod>, C<pure_install> won't, and that
-will be the only difference between them.
-
-=item realclean
-
-[version 0.01]
-
-This action is just like the C<clean> action, but also removes the
-C<_build> directory and the C<Build> script. If you run the
-C<realclean> action, you are essentially starting over, so you will
-have to re-create the C<Build> script again.
-
-=item retest
-
-[version 0.2806]
-
-This is just like the C<test> action, but doesn't actually build the
-distribution first, and doesn't add F<blib/> to the load path, and
-therefore will test against a I<previously> installed version of the
-distribution. This can be used to verify that a certain installed
-distribution still works, or to see whether newer versions of a
-distribution still pass the old regression tests, and so on.
-
-=item skipcheck
-
-[version 0.05]
-
-Reports which files are skipped due to the entries in the
-F<MANIFEST.SKIP> file (See L<manifest> for details)
-
-=item test
-
-[version 0.01]
-
-This will use C<Test::Harness> or C<TAP::Harness> to run any regression
-tests and report their results. Tests can be defined in the standard
-places: a file called C<test.pl> in the top-level directory, or several
-files ending with C<.t> in a C<t/> directory.
-
-If you want tests to be 'verbose', i.e. show details of test execution
-rather than just summary information, pass the argument C<verbose=1>.
-
-If you want to run tests under the perl debugger, pass the argument
-C<debugger=1>.
-
-If you want to have Module::Build find test files with different file
-name extensions, pass the C<test_file_exts> argument with an array
-of extensions, such as C<[qw( .t .s .z )]>.
-
-If you want test to be run by C<TAP::Harness>, rather than C<Test::Harness>,
-pass the argument C<tap_harness_args> as an array reference of arguments to
-pass to the TAP::Harness constructor.
-
-In addition, if a file called C<visual.pl> exists in the top-level
-directory, this file will be executed as a Perl script and its output
-will be shown to the user. This is a good place to put speed tests or
-other tests that don't use the C<Test::Harness> format for output.
-
-To override the choice of tests to run, you may pass a C<test_files>
-argument whose value is a whitespace-separated list of test scripts to
-run. This is especially useful in development, when you only want to
-run a single test to see whether you've squashed a certain bug yet:
-
- ./Build test --test_files t/something_failing.t
-
-You may also pass several C<test_files> arguments separately:
-
- ./Build test --test_files t/one.t --test_files t/two.t
-
-or use a C<glob()>-style pattern:
-
- ./Build test --test_files 't/01-*.t'
-
-=item testall
-
-[version 0.2807]
-
-[Note: the 'testall' action and the code snippets below are currently
-in alpha stage, see
-L<"http://www.nntp.perl.org/group/perl.module.build/2007/03/msg584.html"> ]
-
-Runs the C<test> action plus each of the C<test$type> actions defined by
-the keys of the C<test_types> parameter.
-
-Currently, you need to define the ACTION_test$type method yourself and
-enumerate them in the test_types parameter.
-
- my $mb = Module::Build->subclass(
- code => q(
- sub ACTION_testspecial { shift->generic_test(type => 'special'); }
- sub ACTION_testauthor { shift->generic_test(type => 'author'); }
- )
- )->new(
- ...
- test_types => {
- special => '.st',
- author => ['.at', '.pt' ],
- },
- ...
-
-=item testcover
-
-[version 0.26]
-
-Runs the C<test> action using C<Devel::Cover>, generating a
-code-coverage report showing which parts of the code were actually
-exercised during the tests.
-
-To pass options to C<Devel::Cover>, set the C<$DEVEL_COVER_OPTIONS>
-environment variable:
-
- DEVEL_COVER_OPTIONS=-ignore,Build ./Build testcover
-
-=item testdb
-
-[version 0.05]
-
-This is a synonym for the 'test' action with the C<debugger=1>
-argument.
-
-=item testpod
-
-[version 0.25]
-
-This checks all the files described in the C<docs> action and
-produces C<Test::Harness>-style output. If you are a module author,
-this is useful to run before creating a new release.
-
-=item testpodcoverage
-
-[version 0.28]
-
-This checks the pod coverage of the distribution and
-produces C<Test::Harness>-style output. If you are a module author,
-this is useful to run before creating a new release.
-
-=item versioninstall
-
-[version 0.16]
-
-** Note: since C<only.pm> is so new, and since we just recently added
-support for it here too, this feature is to be considered
-experimental. **
-
-If you have the C<only.pm> module installed on your system, you can
-use this action to install a module into the version-specific library
-trees. This means that you can have several versions of the same
-module installed and C<use> a specific one like this:
-
- use only MyModule => 0.55;
-
-To override the default installation libraries in C<only::config>,
-specify the C<versionlib> parameter when you run the C<Build.PL> script:
-
- perl Build.PL --versionlib /my/version/place/
-
-To override which version the module is installed as, specify the
-C<versionlib> parameter when you run the C<Build.PL> script:
-
- perl Build.PL --version 0.50
-
-See the C<only.pm> documentation for more information on
-version-specific installs.
-
-=back
-
-
-=head1 OPTIONS
-
-=head2 Command Line Options
-
-The following options can be used during any invocation of C<Build.PL>
-or the Build script, during any action. For information on other
-options specific to an action, see the documentation for the
-respective action.
-
-NOTE: There is some preliminary support for options to use the more
-familiar long option style. Most options can be preceded with the
-C<--> long option prefix, and the underscores changed to dashes
-(e.g. C<--use-rcfile>). Additionally, the argument to boolean options is
-optional, and boolean options can be negated by prefixing them with
-C<no> or C<no-> (e.g. C<--noverbose> or C<--no-verbose>).
-
-=over 4
-
-=item quiet
-
-Suppress informative messages on output.
-
-=item verbose
-
-Display extra information about the Build on output.
-
-=item cpan_client
-
-Sets the C<cpan_client> command for use with the C<installdeps> action.
-See C<installdeps> for more details.
-
-=item use_rcfile
-
-Load the F<~/.modulebuildrc> option file. This option can be set to
-false to prevent the custom resource file from being loaded.
-
-=item allow_mb_mismatch
-
-Suppresses the check upon startup that the version of Module::Build
-we're now running under is the same version that was initially invoked
-when building the distribution (i.e. when the C<Build.PL> script was
-first run). As of 0.3601, a mismatch results in a warning instead of
-a fatal error, so this option effectively just suppresses the warning.
-
-=item debug
-
-Prints Module::Build debugging information to STDOUT, such as a trace of
-executed build actions.
-
-=back
-
-=head2 Default Options File (F<.modulebuildrc>)
-
-[version 0.28]
-
-When Module::Build starts up, it will look first for a file,
-F<$ENV{HOME}/.modulebuildrc>. If it's not found there, it will look
-in the the F<.modulebuildrc> file in the directories referred to by
-the environment variables C<HOMEDRIVE> + C<HOMEDIR>, C<USERPROFILE>,
-C<APPDATA>, C<WINDIR>, C<SYS$LOGIN>. If the file exists, the options
-specified there will be used as defaults, as if they were typed on the
-command line. The defaults can be overridden by specifying new values
-on the command line.
-
-The action name must come at the beginning of the line, followed by any
-amount of whitespace and then the options. Options are given the same
-as they would be on the command line. They can be separated by any
-amount of whitespace, including newlines, as long there is whitespace at
-the beginning of each continued line. Anything following a hash mark (C<#>)
-is considered a comment, and is stripped before parsing. If more than
-one line begins with the same action name, those lines are merged into
-one set of options.
-
-Besides the regular actions, there are two special pseudo-actions: the
-key C<*> (asterisk) denotes any global options that should be applied
-to all actions, and the key 'Build_PL' specifies options to be applied
-when you invoke C<perl Build.PL>.
-
- * verbose=1 # global options
- diff flags=-u
- install --install_base /home/ken
- --install_path html=/home/ken/docs/html
- installdeps --cpan_client 'cpanp -i'
-
-If you wish to locate your resource file in a different location, you
-can set the environment variable C<MODULEBUILDRC> to the complete
-absolute path of the file containing your options.
-
-=head2 Environment variables
-
-=over
-
-=item MODULEBUILDRC
-
-[version 0.28]
-
-Specifies an alternate location for a default options file as described above.
-
-=item PERL_MB_OPT
-
-[version 0.36]
-
-Command line options that are applied to Build.PL or any Build action. The
-string is split as the shell would (e.g. whitespace) and the result is
-prepended to any actual command-line arguments.
-
-=back
-
-=head1 INSTALL PATHS
-
-[version 0.19]
-
-When you invoke Module::Build's C<build> action, it needs to figure
-out where to install things. The nutshell version of how this works
-is that default installation locations are determined from
-F<Config.pm>, and they may be overridden by using the C<install_path>
-parameter. An C<install_base> parameter lets you specify an
-alternative installation root like F</home/foo>, and a C<destdir> lets
-you specify a temporary installation directory like F</tmp/install> in
-case you want to create bundled-up installable packages.
-
-Natively, Module::Build provides default installation locations for
-the following types of installable items:
-
-=over 4
-
-=item lib
-
-Usually pure-Perl module files ending in F<.pm>.
-
-=item arch
-
-"Architecture-dependent" module files, usually produced by compiling
-XS, L<Inline>, or similar code.
-
-=item script
-
-Programs written in pure Perl. In order to improve reuse, try to make
-these as small as possible - put the code into modules whenever
-possible.
-
-=item bin
-
-"Architecture-dependent" executable programs, i.e. compiled C code or
-something. Pretty rare to see this in a perl distribution, but it
-happens.
-
-=item bindoc
-
-Documentation for the stuff in C<script> and C<bin>. Usually
-generated from the POD in those files. Under Unix, these are manual
-pages belonging to the 'man1' category.
-
-=item libdoc
-
-Documentation for the stuff in C<lib> and C<arch>. This is usually
-generated from the POD in F<.pm> files. Under Unix, these are manual
-pages belonging to the 'man3' category.
-
-=item binhtml
-
-This is the same as C<bindoc> above, but applies to HTML documents.
-
-=item libhtml
-
-This is the same as C<bindoc> above, but applies to HTML documents.
-
-=back
-
-Four other parameters let you control various aspects of how
-installation paths are determined:
-
-=over 4
-
-=item installdirs
-
-The default destinations for these installable things come from
-entries in your system's C<Config.pm>. You can select from three
-different sets of default locations by setting the C<installdirs>
-parameter as follows:
-
- 'installdirs' set to:
- core site vendor
-
- uses the following defaults from Config.pm:
-
- lib => installprivlib installsitelib installvendorlib
- arch => installarchlib installsitearch installvendorarch
- script => installscript installsitebin installvendorbin
- bin => installbin installsitebin installvendorbin
- bindoc => installman1dir installsiteman1dir installvendorman1dir
- libdoc => installman3dir installsiteman3dir installvendorman3dir
- binhtml => installhtml1dir installsitehtml1dir installvendorhtml1dir [*]
- libhtml => installhtml3dir installsitehtml3dir installvendorhtml3dir [*]
-
- * Under some OS (eg. MSWin32) the destination for HTML documents is
- determined by the C<Config.pm> entry C<installhtmldir>.
-
-The default value of C<installdirs> is "site". If you're creating
-vendor distributions of module packages, you may want to do something
-like this:
-
- perl Build.PL --installdirs vendor
-
-or
-
- ./Build install --installdirs vendor
-
-If you're installing an updated version of a module that was included
-with perl itself (i.e. a "core module"), then you may set
-C<installdirs> to "core" to overwrite the module in its present
-location.
-
-(Note that the 'script' line is different from C<MakeMaker> -
-unfortunately there's no such thing as "installsitescript" or
-"installvendorscript" entry in C<Config.pm>, so we use the
-"installsitebin" and "installvendorbin" entries to at least get the
-general location right. In the future, if C<Config.pm> adds some more
-appropriate entries, we'll start using those.)
-
-=item install_path
-
-Once the defaults have been set, you can override them.
-
-On the command line, that would look like this:
-
- perl Build.PL --install_path lib=/foo/lib --install_path arch=/foo/lib/arch
-
-or this:
-
- ./Build install --install_path lib=/foo/lib --install_path arch=/foo/lib/arch
-
-=item install_base
-
-You can also set the whole bunch of installation paths by supplying the
-C<install_base> parameter to point to a directory on your system. For
-instance, if you set C<install_base> to "/home/ken" on a Linux
-system, you'll install as follows:
-
- lib => /home/ken/lib/perl5
- arch => /home/ken/lib/perl5/i386-linux
- script => /home/ken/bin
- bin => /home/ken/bin
- bindoc => /home/ken/man/man1
- libdoc => /home/ken/man/man3
- binhtml => /home/ken/html
- libhtml => /home/ken/html
-
-Note that this is I<different> from how C<MakeMaker>'s C<PREFIX>
-parameter works. C<install_base> just gives you a default layout under the
-directory you specify, which may have little to do with the
-C<installdirs=site> layout.
-
-The exact layout under the directory you specify may vary by system -
-we try to do the "sensible" thing on each platform.
-
-=item destdir
-
-If you want to install everything into a temporary directory first
-(for instance, if you want to create a directory tree that a package
-manager like C<rpm> or C<dpkg> could create a package from), you can
-use the C<destdir> parameter:
-
- perl Build.PL --destdir /tmp/foo
-
-or
-
- ./Build install --destdir /tmp/foo
-
-This will effectively install to "/tmp/foo/$sitelib",
-"/tmp/foo/$sitearch", and the like, except that it will use
-C<File::Spec> to make the pathnames work correctly on whatever
-platform you're installing on.
-
-=item prefix
-
-Provided for compatibility with C<ExtUtils::MakeMaker>'s PREFIX argument.
-C<prefix> should be used when you wish Module::Build to install your
-modules, documentation and scripts in the same place
-C<ExtUtils::MakeMaker> does.
-
-The following are equivalent.
-
- perl Build.PL --prefix /tmp/foo
- perl Makefile.PL PREFIX=/tmp/foo
-
-Because of the very complex nature of the prefixification logic, the
-behavior of PREFIX in C<MakeMaker> has changed subtly over time.
-Module::Build's --prefix logic is equivalent to the PREFIX logic found
-in C<ExtUtils::MakeMaker> 6.30.
-
-If you do not need to retain compatibility with C<ExtUtils::MakeMaker> or
-are starting a fresh Perl installation we recommend you use
-C<install_base> instead (and C<INSTALL_BASE> in C<ExtUtils::MakeMaker>).
-See L<Module::Build::Cookbook/Instaling in the same location as
-ExtUtils::MakeMaker> for further information.
-
-
-=back
-
-
-=head1 MOTIVATIONS
-
-There are several reasons I wanted to start over, and not just fix
-what I didn't like about C<MakeMaker>:
-
-=over 4
-
-=item *
-
-I don't like the core idea of C<MakeMaker>, namely that C<make> should be
-involved in the build process. Here are my reasons:
-
-=over 4
-
-=item +
-
-When a person is installing a Perl module, what can you assume about
-their environment? Can you assume they have C<make>? No, but you can
-assume they have some version of Perl.
-
-=item +
-
-When a person is writing a Perl module for intended distribution, can
-you assume that they know how to build a Makefile, so they can
-customize their build process? No, but you can assume they know Perl,
-and could customize that way.
-
-=back
-
-For years, these things have been a barrier to people getting the
-build/install process to do what they want.
-
-=item *
-
-There are several architectural decisions in C<MakeMaker> that make it
-very difficult to customize its behavior. For instance, when using
-C<MakeMaker> you do C<use ExtUtils::MakeMaker>, but the object created in
-C<WriteMakefile()> is actually blessed into a package name that's
-created on the fly, so you can't simply subclass
-C<ExtUtils::MakeMaker>. There is a workaround C<MY> package that lets
-you override certain C<MakeMaker> methods, but only certain explicitly
-preselected (by C<MakeMaker>) methods can be overridden. Also, the method
-of customization is very crude: you have to modify a string containing
-the Makefile text for the particular target. Since these strings
-aren't documented, and I<can't> be documented (they take on different
-values depending on the platform, version of perl, version of
-C<MakeMaker>, etc.), you have no guarantee that your modifications will
-work on someone else's machine or after an upgrade of C<MakeMaker> or
-perl.
-
-=item *
-
-It is risky to make major changes to C<MakeMaker>, since it does so many
-things, is so important, and generally works. C<Module::Build> is an
-entirely separate package so that I can work on it all I want, without
-worrying about backward compatibility.
-
-=item *
-
-Finally, Perl is said to be a language for system administration.
-Could it really be the case that Perl isn't up to the task of building
-and installing software? Even if that software is a bunch of stupid
-little C<.pm> files that just need to be copied from one place to
-another? My sense was that we could design a system to accomplish
-this in a flexible, extensible, and friendly manner. Or die trying.
-
-=back
-
-
-=head1 TO DO
-
-The current method of relying on time stamps to determine whether a
-derived file is out of date isn't likely to scale well, since it
-requires tracing all dependencies backward, it runs into problems on
-NFS, and it's just generally flimsy. It would be better to use an MD5
-signature or the like, if available. See C<cons> for an example.
-
- - append to perllocal.pod
- - add a 'plugin' functionality
-
-
-=head1 AUTHOR
-
-Ken Williams <kwilliams at cpan.org>
-
-Development questions, bug reports, and patches should be sent to the
-Module-Build mailing list at <module-build at perl.org>.
-
-Bug reports are also welcome at
-<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Module-Build>.
-
-The latest development version is available from the Subversion
-repository at <https://svn.perl.org/modules/Module-Build/trunk/>
-
-
-=head1 COPYRIGHT
-
-Copyright (c) 2001-2006 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), L<Module::Build::Cookbook>, L<Module::Build::Authoring>,
-L<Module::Build::API>, L<ExtUtils::MakeMaker>, L<YAML::Tiny>
-
-F<META.yml> Specification:
-L<http://module-build.sourceforge.net/META-spec-current.html>
-
-L<http://www.dsmit.com/cons/>
-
-L<http://search.cpan.org/dist/PerlBuildSystem/>
-
-=cut
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build/Authoring.pod b/3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build/Authoring.pod
deleted file mode 100644
index 38fb3f0..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build/Authoring.pod
+++ /dev/null
@@ -1,323 +0,0 @@
-=head1 NAME
-
-Module::Build::Authoring - Authoring Module::Build modules
-
-
-=head1 DESCRIPTION
-
-When creating a C<Build.PL> script for a module, something like the
-following code will typically be used:
-
- use Module::Build;
- my $build = Module::Build->new
- (
- module_name => 'Foo::Bar',
- license => 'perl',
- requires => {
- 'perl' => '5.6.1',
- 'Some::Module' => '1.23',
- 'Other::Module' => '>= 1.2, != 1.5, < 2.0',
- },
- );
- $build->create_build_script;
-
-A simple module could get away with something as short as this for its
-C<Build.PL> script:
-
- use Module::Build;
- Module::Build->new(
- module_name => 'Foo::Bar',
- license => 'perl',
- )->create_build_script;
-
-The model used by C<Module::Build> is a lot like the C<MakeMaker>
-metaphor, with the following correspondences:
-
- In Module::Build In ExtUtils::MakeMaker
- --------------------------- ------------------------
- Build.PL (initial script) Makefile.PL (initial script)
- Build (a short perl script) Makefile (a long Makefile)
- _build/ (saved state info) various config text in the Makefile
-
-Any customization can be done simply by subclassing C<Module::Build>
-and adding a method called (for example) C<ACTION_test>, overriding
-the default 'test' action. You could also add a method called
-C<ACTION_whatever>, and then you could perform the action C<Build
-whatever>.
-
-For information on providing compatibility with
-C<ExtUtils::MakeMaker>, see L<Module::Build::Compat> and
-L<http://www.makemaker.org/wiki/index.cgi?ModuleBuildConversionGuide>.
-
-
-=head1 STRUCTURE
-
-Module::Build creates a class hierarchy conducive to customization.
-Here is the parent-child class hierarchy in classy ASCII art:
-
- /--------------------\
- | Your::Parent | (If you subclass Module::Build)
- \--------------------/
- |
- |
- /--------------------\ (Doesn't define any functionality
- | Module::Build | of its own - just figures out what
- \--------------------/ other modules to load.)
- |
- |
- /-----------------------------------\ (Some values of $^O may
- | Module::Build::Platform::$^O | define specialized functionality.
- \-----------------------------------/ Otherwise it's ...::Default, a
- | pass-through class.)
- |
- /--------------------------\
- | Module::Build::Base | (Most of the functionality of
- \--------------------------/ Module::Build is defined here.)
-
-
-=head1 SUBCLASSING
-
-Right now, there are two ways to subclass Module::Build. The first
-way is to create a regular module (in a C<.pm> file) that inherits
-from Module::Build, and use that module's class instead of using
-Module::Build directly:
-
- ------ in Build.PL: ----------
- #!/usr/bin/perl
-
- use lib q(/nonstandard/library/path);
- use My::Builder; # Or whatever you want to call it
-
- my $build = My::Builder->new
- (
- module_name => 'Foo::Bar', # All the regular args...
- license => 'perl',
- dist_author => 'A N Other <me at here.net.au>',
- requires => { Carp => 0 }
- );
- $build->create_build_script;
-
-This is relatively straightforward, and is the best way to do things
-if your My::Builder class contains lots of code. The
-C<create_build_script()> method will ensure that the current value of
-C<@INC> (including the C</nonstandard/library/path>) is propagated to
-the Build script, so that My::Builder can be found when running build
-actions. If you find that you need to C<chdir> into a different directories
-in your subclass methods or actions, be sure to always return to the original
-directory (available via the C<base_dir()> method before returning control
-to the parent class. This is important to avoid data serialization problems.
-
-For very small additions, Module::Build provides a C<subclass()>
-method that lets you subclass Module::Build more conveniently, without
-creating a separate file for your module:
-
- ------ in Build.PL: ----------
- #!/usr/bin/perl
-
- use Module::Build;
- my $class = Module::Build->subclass
- (
- class => 'My::Builder',
- code => q{
- sub ACTION_foo {
- print "I'm fooing to death!\n";
- }
- },
- );
-
- my $build = $class->new
- (
- module_name => 'Foo::Bar', # All the regular args...
- license => 'perl',
- dist_author => 'A N Other <me at here.net.au>',
- requires => { Carp => 0 }
- );
- $build->create_build_script;
-
-Behind the scenes, this actually does create a C<.pm> file, since the
-code you provide must persist after Build.PL is run if it is to be
-very useful.
-
-See also the documentation for the L<Module::Build::API/"subclass()">
-method.
-
-
-=head1 PREREQUISITES
-
-=head2 Types of prerequisites
-
-To specify what versions of other modules are used by this
-distribution, several types of prerequisites can be defined with the
-following parameters:
-
-=over 3
-
-=item configure_requires
-
-Items that must be installed I<before> configuring this distribution
-(i.e. before running the F<Build.PL> script). This might be a
-specific minimum version of C<Module::Build> or any other module the
-F<Build.PL> needs in order to do its stuff. Clients like C<CPAN.pm>
-or C<CPANPLUS> will be expected to pick C<configure_requires> out of the
-F<META.yml> file and install these items before running the
-C<Build.PL>.
-
-If no configure_requires is specified, the current version of Module::Build
-is automatically added to configure_requires.
-
-=item build_requires
-
-Items that are necessary for building and testing this distribution,
-but aren't necessary after installation. This can help users who only
-want to install these items temporarily. It also helps reduce the
-size of the CPAN dependency graph if everything isn't smooshed into
-C<requires>.
-
-=item requires
-
-Items that are necessary for basic functioning.
-
-=item recommends
-
-Items that are recommended for enhanced functionality, but there are
-ways to use this distribution without having them installed. You
-might also think of this as "can use" or "is aware of" or "changes
-behavior in the presence of".
-
-=item conflicts
-
-Items that can cause problems with this distribution when installed.
-This is pretty rare.
-
-=back
-
-=head2 Format of prerequisites
-
-The prerequisites are given in a hash reference, where the keys are
-the module names and the values are version specifiers:
-
- requires => {
- Foo::Module => '2.4',
- Bar::Module => 0,
- Ken::Module => '>= 1.2, != 1.5, < 2.0',
- perl => '5.6.0'
- },
-
-The above four version specifiers have different effects. The value
-C<'2.4'> means that B<at least> version 2.4 of C<Foo::Module> must be
-installed. The value C<0> means that B<any> version of C<Bar::Module>
-is acceptable, even if C<Bar::Module> doesn't define a version. The
-more verbose value C<'E<gt>= 1.2, != 1.5, E<lt> 2.0'> means that
-C<Ken::Module>'s version must be B<at least> 1.2, B<less than> 2.0,
-and B<not equal to> 1.5. The list of criteria is separated by commas,
-and all criteria must be satisfied.
-
-A special C<perl> entry lets you specify the versions of the Perl
-interpreter that are supported by your module. The same version
-dependency-checking semantics are available, except that we also
-understand perl's new double-dotted version numbers.
-
-=head2 XS Extensions
-
-Modules which need to compile XS code should list C<ExtUtils::CBuilder>
-as a C<build_requires> element.
-
-
-=head1 SAVING CONFIGURATION INFORMATION
-
-Module::Build provides a very convenient way to save configuration
-information that your installed modules (or your regression tests) can
-access. If your Build process calls the C<feature()> or
-C<config_data()> methods, then a C<Foo::Bar::ConfigData> module will
-automatically be created for you, where C<Foo::Bar> is the
-C<module_name> parameter as passed to C<new()>. This module provides
-access to the data saved by these methods, and a way to update the
-values. There is also a utility script called C<config_data>
-distributed with Module::Build that provides a command line interface
-to this same functionality. See also the generated
-C<Foo::Bar::ConfigData> documentation, and the C<config_data>
-script's documentation, for more information.
-
-
-=head1 STARTING MODULE DEVELOPMENT
-
-When starting development on a new module, it's rarely worth your time
-to create a tree of all the files by hand. Some automatic
-module-creators are available: the oldest is C<h2xs>, which has
-shipped with perl itself for a long time. Its name reflects the fact
-that modules were originally conceived of as a way to wrap up a C
-library (thus the C<h> part) into perl extensions (thus the C<xs>
-part).
-
-These days, C<h2xs> has largely been superseded by modules like
-C<ExtUtils::ModuleMaker>, and C<Module::Starter>. They have varying
-degrees of support for C<Module::Build>.
-
-
-=head1 AUTOMATION
-
-One advantage of Module::Build is that since it's implemented as Perl
-methods, you can invoke these methods directly if you want to install
-a module non-interactively. For instance, the following Perl script
-will invoke the entire build/install procedure:
-
- my $build = Module::Build->new(module_name => 'MyModule');
- $build->dispatch('build');
- $build->dispatch('test');
- $build->dispatch('install');
-
-If any of these steps encounters an error, it will throw a fatal
-exception.
-
-You can also pass arguments as part of the build process:
-
- my $build = Module::Build->new(module_name => 'MyModule');
- $build->dispatch('build');
- $build->dispatch('test', verbose => 1);
- $build->dispatch('install', sitelib => '/my/secret/place/');
-
-Building and installing modules in this way skips creating the
-C<Build> script.
-
-
-=head1 MIGRATION
-
-Note that if you want to provide both a F<Makefile.PL> and a
-F<Build.PL> for your distribution, you probably want to add the
-following to C<WriteMakefile> in your F<Makefile.PL> so that C<MakeMaker>
-doesn't try to run your F<Build.PL> as a normal F<.PL> file:
-
- PL_FILES => {},
-
-You may also be interested in looking at the C<Module::Build::Compat>
-module, which can automatically create various kinds of F<Makefile.PL>
-compatibility layers.
-
-
-=head1 AUTHOR
-
-Ken Williams <kwilliams at cpan.org>
-
-Development questions, bug reports, and patches should be sent to the
-Module-Build mailing list at <module-build at perl.org>.
-
-Bug reports are also welcome at
-<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Module-Build>.
-
-The latest development version is available from the Subversion
-repository at <https://svn.perl.org/modules/Module-Build/trunk/>
-
-
-=head1 SEE ALSO
-
-perl(1), L<Module::Build>(3), L<Module::Build::API>(3),
-L<Module::Build::Cookbook>(3), L<ExtUtils::MakeMaker>(3), L<YAML>(3)
-
-F<META.yml> Specification:
-L<http://module-build.sourceforge.net/META-spec-current.html>
-
-L<http://www.dsmit.com/cons/>
-
-L<http://search.cpan.org/dist/PerlBuildSystem/>
-
-=cut
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build/ModuleInfo.pm b/3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build/ModuleInfo.pm
deleted file mode 100644
index 531d13b..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build/ModuleInfo.pm
+++ /dev/null
@@ -1,491 +0,0 @@
-# -*- mode: cperl; tab-width: 8; indent-tabs-mode: nil; basic-offset: 2 -*-
-# vim:ts=8:sw=2:et:sta:sts=2
-package Module::Build::ModuleInfo;
-
-# 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).
-
-use strict;
-use vars qw($VERSION);
-$VERSION = '0.3607';
-$VERSION = eval $VERSION;
-
-use File::Spec;
-use IO::File;
-use Module::Build::Version;
-
-my $V_NUM_REGEXP = qr{v?[0-9._]+}; # crudely, a v-string or decimal
-
-my $PKG_REGEXP = qr{ # match a package declaration
- ^[\s\{;]* # intro chars on a line
- package # the word 'package'
- \s+ # whitespace
- ([\w:]+) # a package name
- \s* # optional whitespace
- ($V_NUM_REGEXP)? # optional version number
- \s* # optional whitesapce
- ; # semicolon line terminator
-}x;
-
-my $VARNAME_REGEXP = qr{ # match fully-qualified VERSION name
- ([\$*]) # sigil - $ or *
- (
- ( # optional leading package name
- (?:::|\')? # possibly starting like just :: (Ì 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 =~
-}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_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);
-}
-
-sub _init {
- my $class = shift;
- my $module = shift;
- my $filename = shift;
- my %props = @_;
-
- 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);
-
- $self->_parse_file();
-
- 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 {
- if(grep /main/, @{$self->{packages}}) {
- $self->{module} = 'main';
- }
- else {
- $self->{module} = $self->{packages}[0] || '';
- }
- }
- }
-
- $self->{version} = $self->{versions}{$self->{module}}
- if defined( $self->{module} );
-
- return $self;
-}
-
-# class method
-sub _do_find_module {
- my $class = shift;
- my $module = shift || die '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
- return [ File::Spec->rel2abs( "$testfile.pm" ), $dir ]
- if -e "$testfile.pm";
- }
- 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( $sig, $var, $pkg );
- if ( $line =~ $VERS_REGEXP ) {
- ( $sig, $var, $pkg ) = $2 ? ( $1, $2, $3 ) : ( $4, $5, $6 );
- if ( $pkg ) {
- $pkg = ($pkg eq '::') ? 'main' : $pkg;
- $pkg =~ s/::$//;
- }
- }
-
- return ( $sig, $var, $pkg );
-}
-
-sub _parse_file {
- my $self = shift;
-
- my $filename = $self->{filename};
- my $fh = IO::File->new( $filename )
- or die( "Can't open '$filename': $!" );
-
- $self->_parse_fh($fh);
-}
-
-sub _parse_fh {
- my ($self, $fh) = @_;
-
- my( $in_pod, $seen_end, $need_vers ) = ( 0, 0, 0 );
- my( @pkgs, %vers, %pod, @pod );
- my $pkg = 'main';
- my $pod_sect = '';
- my $pod_data = '';
-
- while (defined( my $line = <$fh> )) {
- my $line_num = $.;
-
- chomp( $line );
- next if $line =~ /^\s*#/;
-
- $in_pod = ($line =~ /^=(?!cut)/) ? 1 : ($line =~ /^=cut/) ? 0 : $in_pod;
-
- # Would be nice if we could also check $in_string or something too
- last if !$in_pod && $line =~ /^__(?:DATA|END)__$/;
-
- if ( $in_pod || $line =~ /^=cut/ ) {
-
- if ( $line =~ /^=head\d\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";
-
- }
-
- } else {
-
- $pod_sect = '';
- $pod_data = '';
-
- # parse $line to see if it's a $VERSION declaration
- my( $vers_sig, $vers_fullname, $vers_pkg ) =
- $self->_parse_version_expression( $line );
-
- if ( $line =~ $PKG_REGEXP ) {
- $pkg = $1;
- push( @pkgs, $pkg ) unless grep( $pkg eq $_, @pkgs );
- $vers{$pkg} = (defined $2 ? $2 : undef) unless exists( $vers{$pkg} );
- $need_vers = defined $2 ? 0 : 1;
-
- # VERSION defined with full package spec, i.e. $Module::VERSION
- } elsif ( $vers_fullname && $vers_pkg ) {
- push( @pkgs, $vers_pkg ) unless grep( $vers_pkg eq $_, @pkgs );
- $need_vers = 0 if $vers_pkg eq $pkg;
-
- unless ( defined $vers{$vers_pkg} && length $vers{$vers_pkg} ) {
- $vers{$vers_pkg} =
- $self->_evaluate_version_line( $vers_sig, $vers_fullname, $line );
- } else {
- # Warn unless the user is using the "$VERSION = eval
- # $VERSION" idiom (though there are probably other idioms
- # that we should watch out for...)
- warn <<"EOM" unless $line =~ /=\s*eval/;
-Package '$vers_pkg' already declared with version '$vers{$vers_pkg}',
-ignoring subsequent declaration on line $line_num.
-EOM
- }
-
- # first non-comment line in undeclared package main is VERSION
- } elsif ( !exists($vers{main}) && $pkg eq 'main' && $vers_fullname ) {
- $need_vers = 0;
- my $v =
- $self->_evaluate_version_line( $vers_sig, $vers_fullname, $line );
- $vers{$pkg} = $v;
- push( @pkgs, 'main' );
-
- # first non-comment line in undeclared package defines package main
- } elsif ( !exists($vers{main}) && $pkg eq 'main' && $line =~ /\w+/ ) {
- $need_vers = 1;
- $vers{main} = '';
- push( @pkgs, 'main' );
-
- # only keep if this is the first $VERSION seen
- } elsif ( $vers_fullname && $need_vers ) {
- $need_vers = 0;
- my $v =
- $self->_evaluate_version_line( $vers_sig, $vers_fullname, $line );
-
-
- unless ( defined $vers{$pkg} && length $vers{$pkg} ) {
- $vers{$pkg} = $v;
- } else {
- warn <<"EOM";
-Package '$pkg' already declared with version '$vers{$pkg}'
-ignoring new version '$v' on line $line_num.
-EOM
- }
-
- }
-
- }
-
- }
-
- if ( $self->{collect_pod} && length($pod_data) ) {
- $pod{$pod_sect} = $pod_data;
- }
-
- $self->{versions} = \%vers;
- $self->{packages} = \@pkgs;
- $self->{pod} = \%pod;
- $self->{pod_headings} = \@pod;
-}
-
-{
-my $pn = 0;
-sub _evaluate_version_line {
- my $self = shift;
- my( $sigil, $var, $line ) = @_;
-
- # Some of this code came from the ExtUtils:: hierarchy.
-
- # We compile into $vsub because 'use version' would cause
- # compiletime/runtime issues with local()
- my $vsub;
- $pn++; # everybody gets their own package
- my $eval = qq{BEGIN { q# Hide from _packages_inside()
- #; package Module::Build::ModuleInfo::_version::p$pn;
- use Module::Build::Version;
- no strict;
-
- local $sigil$var;
- \$$var=undef;
- \$vsub = sub {
- $line;
- \$$var
- };
- }};
-
- local $^W;
- # Try to get the $VERSION
- eval $eval;
- # some modules say $VERSION = $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', at INC);
- eval $eval;
- }
- warn "Error evaling version line '$eval' in $self->{filename}: $@\n"
- if $@;
- (ref($vsub) eq 'CODE') or
- die "failed to build version sub for $self->{filename}";
- my $result = eval { $vsub->() };
- die "Could not get version from $self->{filename} by executing:\n$eval\n\nThe fatal error was: $@\n"
- if $@;
-
- # Activestate apparently creates custom versions like '1.23_45_01', which
- # cause M::B::Version to think it's an invalid alpha. So check for that
- # and strip them
- my $num_dots = () = $result =~ m{\.}g;
- my $num_unders = () = $result =~ m{_}g;
- if ( substr($result,0,1) ne 'v' && $num_dots < 2 && $num_unders > 1 ) {
- $result =~ s{_}{}g;
- }
-
- # Bless it into our own version class
- eval { $result = Module::Build::Version->new($result) };
- die "Version '$result' from $self->{filename} does not appear to be valid:\n$eval\n\nThe fatal error was: $@\n"
- if $@;
-
- return $result;
-}
-}
-
-
-############################################################
-
-# accessors
-sub name { $_[0]->{module} }
-
-sub filename { $_[0]->{filename} }
-sub packages_inside { @{$_[0]->{packages}} }
-sub pod_inside { @{$_[0]->{pod_headings}} }
-sub contains_pod { $#{$_[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;
- }
-}
-
-1;
-
-__END__
-
-=for :stopwords ModuleInfo
-
-=head1 NAME
-
-ModuleInfo - Gather package and POD information from a perl module file
-
-
-=head1 DESCRIPTION
-
-=over 4
-
-=item new_from_file($filename, collect_pod => 1)
-
-Construct a C<ModuleInfo> object given the path to a file. Takes an optional
-argument C<collect_pod> which is a boolean that determines whether
-POD data is collected and stored for reference. POD data is not
-collected by default. POD headings are always collected.
-
-=item new_from_module($module, collect_pod => 1, inc => \@dirs)
-
-Construct a C<ModuleInfo> object given a module or package name. 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
-of directories to search for the module. If none are given, the
-default is @INC.
-
-=item name()
-
-Returns the name of the package represented by this module. If there
-are more than one packages, it makes a best guess based on the
-filename. If it's a script (i.e. not a *.pm) the package name is
-'main'.
-
-=item 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.
-
-=item filename()
-
-Returns the absolute path to the file.
-
-=item packages_inside()
-
-Returns a list of packages.
-
-=item pod_inside()
-
-Returns a list of POD sections.
-
-=item contains_pod()
-
-Returns true if there is any POD in the file.
-
-=item pod($section)
-
-Returns the POD data in the given section.
-
-=item 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
- at INC is searched.
-
-Can be called as either an object or a class method.
-
-=item 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.
-
-=back
-
-
-=head1 AUTHOR
-
-Ken Williams <kwilliams at cpan.org>, Randy W. Sims <RandyS at ThePierianSpring.org>
-
-
-=head1 COPYRIGHT
-
-Copyright (c) 2001-2006 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), L<Module::Build>(3)
-
-=cut
-
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build/Platform/Default.pm b/3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build/Platform/Default.pm
deleted file mode 100644
index 79c391b..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build/Platform/Default.pm
+++ /dev/null
@@ -1,33 +0,0 @@
-package Module::Build::Platform::Default;
-
-use strict;
-use vars qw($VERSION);
-$VERSION = '0.3607';
-$VERSION = eval $VERSION;
-use Module::Build::Base;
-
-use vars qw(@ISA);
- at ISA = qw(Module::Build::Base);
-
-1;
-__END__
-
-
-=head1 NAME
-
-Module::Build::Platform::Default - Stub class for unknown platforms
-
-=head1 DESCRIPTION
-
-The sole purpose of this module is to inherit from
-C<Module::Build::Base>. Please see the L<Module::Build> for the docs.
-
-=head1 AUTHOR
-
-Ken Williams <kwilliams at cpan.org>
-
-=head1 SEE ALSO
-
-perl(1), Module::Build(3), ExtUtils::MakeMaker(3)
-
-=cut
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build/Platform/EBCDIC.pm b/3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build/Platform/EBCDIC.pm
deleted file mode 100644
index a0ee31e..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build/Platform/EBCDIC.pm
+++ /dev/null
@@ -1,34 +0,0 @@
-package Module::Build::Platform::EBCDIC;
-
-use strict;
-use vars qw($VERSION);
-$VERSION = '0.3607';
-$VERSION = eval $VERSION;
-use Module::Build::Base;
-
-use vars qw(@ISA);
- at ISA = qw(Module::Build::Base);
-
-
-1;
-__END__
-
-
-=head1 NAME
-
-Module::Build::Platform::EBCDIC - Builder class for EBCDIC platforms
-
-=head1 DESCRIPTION
-
-The sole purpose of this module is to inherit from
-C<Module::Build::Base>. Please see the L<Module::Build> for the docs.
-
-=head1 AUTHOR
-
-Ken Williams <kwilliams at cpan.org>
-
-=head1 SEE ALSO
-
-perl(1), Module::Build(3), ExtUtils::MakeMaker(3)
-
-=cut
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build/Platform/MPEiX.pm b/3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build/Platform/MPEiX.pm
deleted file mode 100644
index 25a0aa5..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build/Platform/MPEiX.pm
+++ /dev/null
@@ -1,34 +0,0 @@
-package Module::Build::Platform::MPEiX;
-
-use strict;
-use vars qw($VERSION);
-$VERSION = '0.3607';
-$VERSION = eval $VERSION;
-use Module::Build::Base;
-
-use vars qw(@ISA);
- at ISA = qw(Module::Build::Base);
-
-
-1;
-__END__
-
-
-=head1 NAME
-
-Module::Build::Platform::MPEiX - Builder class for MPEiX platforms
-
-=head1 DESCRIPTION
-
-The sole purpose of this module is to inherit from
-C<Module::Build::Base>. Please see the L<Module::Build> for the docs.
-
-=head1 AUTHOR
-
-Ken Williams <kwilliams at cpan.org>
-
-=head1 SEE ALSO
-
-perl(1), Module::Build(3), ExtUtils::MakeMaker(3)
-
-=cut
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build/Platform/VMS.pm b/3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build/Platform/VMS.pm
deleted file mode 100644
index 15394dd..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/lib/Module/Build/Platform/VMS.pm
+++ /dev/null
@@ -1,558 +0,0 @@
-package Module::Build::Platform::VMS;
-
-use strict;
-use vars qw($VERSION);
-$VERSION = '0.3607';
-$VERSION = eval $VERSION;
-use Module::Build::Base;
-use Config;
-
-use vars qw(@ISA);
- at ISA = qw(Module::Build::Base);
-
-
-
-=head1 NAME
-
-Module::Build::Platform::VMS - Builder class for VMS platforms
-
-=head1 DESCRIPTION
-
-This module inherits from C<Module::Build::Base> and alters a few
-minor details of its functionality. Please see L<Module::Build> for
-the general docs.
-
-=head2 Overridden Methods
-
-=over 4
-
-=item _set_defaults
-
-Change $self->{build_script} to 'Build.com' so @Build works.
-
-=cut
-
-sub _set_defaults {
- my $self = shift;
- $self->SUPER::_set_defaults(@_);
-
- $self->{properties}{build_script} = 'Build.com';
-}
-
-
-=item cull_args
-
-'@Build foo' on VMS will not preserve the case of 'foo'. Rather than forcing
-people to write '@Build "foo"' we'll dispatch case-insensitively.
-
-=cut
-
-sub cull_args {
- my $self = shift;
- my($action, $args) = $self->SUPER::cull_args(@_);
- my @possible_actions = grep { lc $_ eq lc $action } $self->known_actions;
-
- die "Ambiguous action '$action'. Could be one of @possible_actions"
- if @possible_actions > 1;
-
- return ($possible_actions[0], $args);
-}
-
-
-=item manpage_separator
-
-Use '__' instead of '::'.
-
-=cut
-
-sub manpage_separator {
- return '__';
-}
-
-
-=item prefixify
-
-Prefixify taking into account VMS' filepath syntax.
-
-=cut
-
-# Translated from ExtUtils::MM_VMS::prefixify()
-
-sub _catprefix {
- my($self, $rprefix, $default) = @_;
-
- my($rvol, $rdirs) = File::Spec->splitpath($rprefix);
- if( $rvol ) {
- return File::Spec->catpath($rvol,
- File::Spec->catdir($rdirs, $default),
- ''
- )
- }
- else {
- return File::Spec->catdir($rdirs, $default);
- }
-}
-
-
-sub _prefixify {
- my($self, $path, $sprefix, $type) = @_;
- my $rprefix = $self->prefix;
-
- return '' unless defined $path;
-
- $self->log_verbose(" prefixify $path from $sprefix to $rprefix\n");
-
- # Translate $(PERLPREFIX) to a real path.
- $rprefix = VMS::Filespec::vmspath($rprefix) if $rprefix;
- $sprefix = VMS::Filespec::vmspath($sprefix) if $sprefix;
-
- $self->log_verbose(" rprefix translated to $rprefix\n".
- " sprefix translated to $sprefix\n");
-
- if( length($path) == 0 ) {
- $self->log_verbose(" no path to prefixify.\n")
- }
- elsif( !File::Spec->file_name_is_absolute($path) ) {
- $self->log_verbose(" path is relative, not prefixifying.\n");
- }
- elsif( $sprefix eq $rprefix ) {
- $self->log_verbose(" no new prefix.\n");
- }
- else {
- my($path_vol, $path_dirs) = File::Spec->splitpath( $path );
- my $vms_prefix = $self->config('vms_prefix');
- if( $path_vol eq $vms_prefix.':' ) {
- $self->log_verbose(" $vms_prefix: seen\n");
-
- $path_dirs =~ s{^\[}{\[.} unless $path_dirs =~ m{^\[\.};
- $path = $self->_catprefix($rprefix, $path_dirs);
- }
- else {
- $self->log_verbose(" cannot prefixify.\n");
- return $self->prefix_relpaths($self->installdirs, $type);
- }
- }
-
- $self->log_verbose(" now $path\n");
-
- return $path;
-}
-
-=item _quote_args
-
-Command-line arguments (but not the command itself) must be quoted
-to ensure case preservation.
-
-=cut
-
-sub _quote_args {
- # Returns a string that can become [part of] a command line 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 and return the reference.
- my ($self, @args) = @_;
- my $got_arrayref = (scalar(@args) == 1
- && UNIVERSAL::isa($args[0], 'ARRAY'))
- ? 1
- : 0;
-
- # Do not quote qualifiers that begin with '/'.
- map { if (!/^\//) {
- $_ =~ s/\"/""/g; # escape C<"> by doubling
- $_ = q(").$_.q(");
- }
- }
- ($got_arrayref ? @{$args[0]}
- : @args
- );
-
- return $got_arrayref ? $args[0]
- : join(' ', @args);
-}
-
-=item have_forkpipe
-
-There is no native fork(), so some constructs depending on it are not
-available.
-
-=cut
-
-sub have_forkpipe { 0 }
-
-=item _backticks
-
-Override to ensure that we quote the arguments but not the command.
-
-=cut
-
-sub _backticks {
- # The command must not be quoted but the arguments to it must be.
- my ($self, @cmd) = @_;
- my $cmd = shift @cmd;
- my $args = $self->_quote_args(@cmd);
- return `$cmd $args`;
-}
-
-=item find_command
-
-Local an executable program
-
-=cut
-
-sub find_command {
- 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 );
- }
-
- $self->SUPER::find_command($command);
-}
-
-# _maybe_command copied from ExtUtils::MM_VMS::maybe_command
-
-=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;
-}
-
-=item do_system
-
-Override to ensure that we quote the arguments but not the command.
-
-=cut
-
-sub do_system {
- # The command must not be quoted but the arguments to it must be.
- my ($self, @cmd) = @_;
- $self->log_verbose("@cmd\n");
- my $cmd = shift @cmd;
- my $args = $self->_quote_args(@cmd);
- return !system("$cmd $args");
-}
-
-=item oneliner
-
-Override to ensure that we do not quote the command.
-
-=cut
-
-sub oneliner {
- my $self = shift;
- my $oneliner = $self->SUPER::oneliner(@_);
-
- $oneliner =~ s/^\"\S+\"//;
-
- return "MCR $^X $oneliner";
-}
-
-=item _infer_xs_spec
-
-Inherit the standard version but tweak the library file name to be
-something Dynaloader can find.
-
-=cut
-
-sub _infer_xs_spec {
- my $self = shift;
- my $file = shift;
-
- my $spec = $self->SUPER::_infer_xs_spec($file);
-
- # Need to create with the same name as DynaLoader will load with.
- if (defined &DynaLoader::mod2fname) {
- my $file = $$spec{module_name} . '.' . $self->{config}->get('dlext');
- $file =~ tr/:/_/;
- $file = DynaLoader::mod2fname([$file]);
- $$spec{lib_file} = File::Spec->catfile($$spec{archdir}, $file);
- }
-
- return $spec;
-}
-
-=item rscan_dir
-
-Inherit the standard version but remove dots at end of name.
-If the extended character set is in effect, do not remove dots from filenames
-with Unix path delimiters.
-
-=cut
-
-sub rscan_dir {
- my ($self, $dir, $pattern) = @_;
-
- my $result = $self->SUPER::rscan_dir( $dir, $pattern );
-
- for my $file (@$result) {
- if (!_efs() && ($file =~ m#/#)) {
- $file =~ s/\.$//;
- }
- }
- return $result;
-}
-
-=item dist_dir
-
-Inherit the standard version but replace embedded dots with underscores because
-a dot is the directory delimiter on VMS.
-
-=cut
-
-sub dist_dir {
- my $self = shift;
-
- my $dist_dir = $self->SUPER::dist_dir;
- $dist_dir =~ s/\./_/g unless _efs();
- return $dist_dir;
-}
-
-=item man3page_name
-
-Inherit the standard version but chop the extra manpage delimiter off the front if
-there is one. The VMS version of splitdir('[.foo]') returns '', 'foo'.
-
-=cut
-
-sub man3page_name {
- my $self = shift;
-
- my $mpname = $self->SUPER::man3page_name( shift );
- my $sep = $self->manpage_separator;
- $mpname =~ s/^$sep//;
- return $mpname;
-}
-
-=item expand_test_dir
-
-Inherit the standard version but relativize the paths as the native glob() doesn't
-do that for us.
-
-=cut
-
-sub expand_test_dir {
- my ($self, $dir) = @_;
-
- my @reldirs = $self->SUPER::expand_test_dir( $dir );
-
- for my $eachdir (@reldirs) {
- my ($v,$d,$f) = File::Spec->splitpath( $eachdir );
- my $reldir = File::Spec->abs2rel( File::Spec->catpath( $v, $d, '' ) );
- $eachdir = File::Spec->catfile( $reldir, $f );
- }
- return @reldirs;
-}
-
-=item _detildefy
-
-The home-grown glob() does not currently handle tildes, so provide limited support
-here. Expect only UNIX format file specifications for now.
-
-=cut
-
-sub _detildefy {
- my ($self, $arg) = @_;
-
- # Apparently double ~ are not translated.
- return $arg if ($arg =~ /^~~/);
-
- # Apparently ~ followed by whitespace are not translated.
- return $arg if ($arg =~ /^~ /);
-
- if ($arg =~ /^~/) {
- my $spec = $arg;
-
- # Remove the tilde
- $spec =~ s/^~//;
-
- # Remove any slash following the tilde if present.
- $spec =~ s#^/##;
-
- # break up the paths for the merge
- my $home = VMS::Filespec::unixify($ENV{HOME});
-
- # In the default VMS mode, the trailing slash is present.
- # In Unix report mode it is not. The parsing logic assumes that
- # it is present.
- $home .= '/' unless $home =~ m#/$#;
-
- # Trivial case of just ~ by it self
- if ($spec eq '') {
- $home =~ s#/$##;
- return $home;
- }
-
- my ($hvol, $hdir, $hfile) = File::Spec::Unix->splitpath($home);
- if ($hdir eq '') {
- # Someone has tampered with $ENV{HOME}
- # So hfile is probably the directory since this should be
- # a path.
- $hdir = $hfile;
- }
-
- my ($vol, $dir, $file) = File::Spec::Unix->splitpath($spec);
-
- my @hdirs = File::Spec::Unix->splitdir($hdir);
- my @dirs = File::Spec::Unix->splitdir($dir);
-
- my $newdirs;
-
- # Two cases of tilde handling
- if ($arg =~ m#^~/#) {
-
- # Simple case, just merge together
- $newdirs = File::Spec::Unix->catdir(@hdirs, @dirs);
-
- } else {
-
- # Complex case, need to add an updir - No delimiters
- my @backup = File::Spec::Unix->splitdir(File::Spec::Unix->updir);
-
- $newdirs = File::Spec::Unix->catdir(@hdirs, @backup, @dirs);
-
- }
-
- # Now put the two cases back together
- $arg = File::Spec::Unix->catpath($hvol, $newdirs, $file);
-
- }
- return $arg;
-
-}
-
-=item find_perl_interpreter
-
-On VMS, $^X returns the fully qualified absolute path including version
-number. It's logically impossible to improve on it for getting the perl
-we're currently running, and attempting to manipulate it is usually
-lossy.
-
-=cut
-
-sub find_perl_interpreter {
- return VMS::Filespec::vmsify($^X);
-}
-
-=item localize_file_path
-
-Convert the file path to the local syntax
-
-=cut
-
-sub localize_file_path {
- my ($self, $path) = @_;
- $path = VMS::Filespec::vmsify($path);
- $path =~ s/\.\z//;
- return $path;
-}
-
-=item localize_dir_path
-
-Convert the directory path to the local syntax
-
-=cut
-
-sub localize_dir_path {
- my ($self, $path) = @_;
- return VMS::Filespec::vmspath($path);
-}
-
-=item ACTION_clean
-
-The home-grown glob() expands a bit too aggressively when given a bare name,
-so default in a zero-length extension.
-
-=cut
-
-sub ACTION_clean {
- my ($self) = @_;
- foreach my $item (map glob(VMS::Filespec::rmsexpand($_, '.;0')), $self->cleanup) {
- $self->delete_filetree($item);
- }
-}
-
-
-# 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__}; 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;
-}
-
-# Need to look up the EFS character set mode. This may become a dynamic
-# mode in the future.
-sub _efs {
- my $efs;
- if ($use_feature) {
- $efs = VMS::Feature::current("efs_charset");
- } else {
- my $env_efs = $ENV{'DECC$EFS_CHARSET'} || '';
- $efs = $env_efs =~ /^[ET1]/i;
- }
- return $efs;
-}
-
-=back
-
-=head1 AUTHOR
-
-Michael G Schwern <schwern at pobox.com>
-Ken Williams <kwilliams at cpan.org>
-Craig A. Berry <craigberry at mac.com>
-
-=head1 SEE ALSO
-
-perl(1), Module::Build(3), ExtUtils::MakeMaker(3)
-
-=cut
-
-1;
-__END__
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/scripts/config_data b/3.8.8/sources/cpan-Module-Build/vendor/scripts/config_data
deleted file mode 100644
index 40c8ea4..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/scripts/config_data
+++ /dev/null
@@ -1,249 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use Module::Build 0.25;
-use Getopt::Long;
-
-my %opt_defs = (
- module => {type => '=s',
- desc => 'The name of the module to configure (required)'},
- feature => {type => ':s',
- desc => 'Print the value of a feature or all features'},
- config => {type => ':s',
- desc => 'Print the value of a config option'},
- set_feature => {type => '=s%',
- desc => "Set a feature to 'true' or 'false'"},
- set_config => {type => '=s%',
- desc => 'Set a config option to the given value'},
- eval => {type => '',
- desc => 'eval() config values before setting'},
- help => {type => '',
- desc => 'Print a help message and exit'},
- );
-
-my %opts;
-GetOptions( \%opts, map "$_$opt_defs{$_}{type}", keys %opt_defs ) or die usage(%opt_defs);
-print usage(%opt_defs) and exit(0)
- if $opts{help};
-
-my @exclusive = qw(feature config set_feature set_config);
-die "Exactly one of the options '" . join("', '", @exclusive) . "' must be specified\n" . usage(%opt_defs)
- unless grep(exists $opts{$_}, @exclusive) == 1;
-
-die "Option --module is required\n" . usage(%opt_defs)
- unless $opts{module};
-
-my $cf = load_config($opts{module});
-
-if (exists $opts{feature}) {
-
- if (length $opts{feature}) {
- print $cf->feature($opts{feature});
- } else {
- my %auto;
- # note: need to support older ConfigData.pm's
- @auto{$cf->auto_feature_names} = () if $cf->can("auto_feature_names");
-
- print " Features defined in $cf:\n";
- foreach my $name (sort $cf->feature_names) {
- print " $name => ", $cf->feature($name), (exists $auto{$name} ? " (dynamic)" : ""), "\n";
- }
- }
-
-} elsif (exists $opts{config}) {
-
- require Data::Dumper;
- local $Data::Dumper::Terse = 1;
-
- if (length $opts{config}) {
- print Data::Dumper::Dumper($cf->config($opts{config})), "\n";
- } else {
- print " Configuration defined in $cf:\n";
- foreach my $name (sort $cf->config_names) {
- print " $name => ", Data::Dumper::Dumper($cf->config($name)), "\n";
- }
- }
-
-} elsif (exists $opts{set_feature}) {
- my %to_set = %{$opts{set_feature}};
- while (my ($k, $v) = each %to_set) {
- die "Feature value must be 0 or 1\n" unless $v =~ /^[01]$/;
- $cf->set_feature($k, 0+$v); # Cast to a number, not a string
- }
- $cf->write;
- print "Feature" . 's'x(keys(%to_set)>1) . " saved\n";
-
-} elsif (exists $opts{set_config}) {
-
- my %to_set = %{$opts{set_config}};
- while (my ($k, $v) = each %to_set) {
- if ($opts{eval}) {
- $v = eval($v);
- die $@ if $@;
- }
- $cf->set_config($k, $v);
- }
- $cf->write;
- print "Config value" . 's'x(keys(%to_set)>1) . " saved\n";
-}
-
-sub load_config {
- my $mod = shift;
-
- $mod =~ /^([\w:]+)$/
- or die "Invalid module name '$mod'";
-
- my $cf = $mod . "::ConfigData";
- eval "require $cf";
- die $@ if $@;
-
- return $cf;
-}
-
-sub usage {
- my %defs = @_;
-
- my $out = "\nUsage: $0 [options]\n\n Options include:\n";
-
- foreach my $name (sort keys %defs) {
- $out .= " --$name";
-
- for ($defs{$name}{type}) {
- /^=s$/ and $out .= " <string>";
- /^=s%$/ and $out .= " <string>=<value>";
- }
-
- pad_line($out, 35);
- $out .= "$defs{$name}{desc}\n";
- }
-
- $out .= <<EOF;
-
- Examples:
- $0 --module Foo::Bar --feature bazzable
- $0 --module Foo::Bar --config magic_number
- $0 --module Foo::Bar --set_feature bazzable=1
- $0 --module Foo::Bar --set_config magic_number=42
-
-EOF
-
- return $out;
-}
-
-sub pad_line { $_[0] .= ' ' x ($_[1] - length($_[0]) + rindex($_[0], "\n")) }
-
-
-__END__
-
-=head1 NAME
-
-config_data - Query or change configuration of Perl modules
-
-=head1 SYNOPSIS
-
- # Get config/feature values
- config_data --module Foo::Bar --feature bazzable
- config_data --module Foo::Bar --config magic_number
-
- # Set config/feature values
- config_data --module Foo::Bar --set_feature bazzable=1
- config_data --module Foo::Bar --set_config magic_number=42
-
- # Print a usage message
- config_data --help
-
-=head1 DESCRIPTION
-
-The C<config_data> tool provides a command-line interface to the
-configuration of Perl modules. By "configuration", we mean something
-akin to "user preferences" or "local settings". This is a
-formalization and abstraction of the systems that people like Andreas
-Koenig (C<CPAN::Config>), Jon Swartz (C<HTML::Mason::Config>), Andy
-Wardley (C<Template::Config>), and Larry Wall (perl's own Config.pm)
-have developed independently.
-
-The configuration system emplyed here was developed in the context of
-C<Module::Build>. Under this system, configuration information for a
-module C<Foo>, for example, is stored in a module called
-C<Foo::ConfigData>) (I would have called it C<Foo::Config>, but that
-was taken by all those other systems mentioned in the previous
-paragraph...). These C<...::ConfigData> modules contain the
-configuration data, as well as publically accessible methods for
-querying and setting (yes, actually re-writing) the configuration
-data. The C<config_data> script (whose docs you are currently
-reading) is merely a front-end for those methods. If you wish, you
-may create alternate front-ends.
-
-The two types of data that may be stored are called C<config> values
-and C<feature> values. A C<config> value may be any perl scalar,
-including references to complex data structures. It must, however, be
-serializable using C<Data::Dumper>. A C<feature> is a boolean (1 or
-0) value.
-
-=head1 USAGE
-
-This script functions as a basic getter/setter wrapper around the
-configuration of a single module. On the command line, specify which
-module's configuration you're interested in, and pass options to get
-or set C<config> or C<feature> values. The following options are
-supported:
-
-=over 4
-
-=item module
-
-Specifies the name of the module to configure (required).
-
-=item feature
-
-When passed the name of a C<feature>, shows its value. The value will
-be 1 if the feature is enabled, 0 if the feature is not enabled, or
-empty if the feature is unknown. When no feature name is supplied,
-the names and values of all known features will be shown.
-
-=item config
-
-When passed the name of a C<config> entry, shows its value. The value
-will be displayed using C<Data::Dumper> (or similar) as perl code.
-When no config name is supplied, the names and values of all known
-config entries will be shown.
-
-=item set_feature
-
-Sets the given C<feature> to the given boolean value. Specify the value
-as either 1 or 0.
-
-=item set_config
-
-Sets the given C<config> entry to the given value.
-
-=item eval
-
-If the C<--eval> option is used, the values in C<set_config> will be
-evaluated as perl code before being stored. This allows moderately
-complicated data structures to be stored. For really complicated
-structures, you probably shouldn't use this command-line interface,
-just use the Perl API instead.
-
-=item help
-
-Prints a help message, including a few examples, and exits.
-
-=back
-
-=head1 AUTHOR
-
-Ken Williams, kwilliams at cpan.org
-
-=head1 COPYRIGHT
-
-Copyright (c) 1999, 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
-
-Module::Build(3), perl(1).
-
-=cut
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/t/00-compile.t b/3.8.8/sources/cpan-Module-Build/vendor/t/00-compile.t
deleted file mode 100644
index 21bae84..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/t/00-compile.t
+++ /dev/null
@@ -1,17 +0,0 @@
-use strict;
-use warnings;
-use lib 't/lib';
-use MBTest;
-use File::Find qw/find/;
-
-my @files;
-find( sub { -f && /\.pm$/ && push @files, $File::Find::name }, 'lib' );
-
-plan tests => scalar @files;
-
-for my $f ( sort @files ) {
- my $ec;
- my $output = stdout_stderr_of( sub { $ec = system( $^X, '-c', $f ) } );
- ok( ! $ec, "compiling $f" ) or diag $output;
-}
-
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/t/add_property.t b/3.8.8/sources/cpan-Module-Build/vendor/t/add_property.t
deleted file mode 100644
index e0b25ae..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/t/add_property.t
+++ /dev/null
@@ -1,94 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use lib 't/lib';
-use MBTest tests => 27;
-#use MBTest 'no_plan';
-use DistGen;
-
-blib_load 'Module::Build';
-
-my $tmp = MBTest->tmpdir;
-my $dist = DistGen->new( dir => $tmp );
-$dist->regen;
-$dist->chdir_in;
-
-ADDPROP: {
- package My::Build::Prop;
- use base 'Module::Build';
- __PACKAGE__->add_property( 'foo' );
- __PACKAGE__->add_property( 'bar', 'howdy' );
- __PACKAGE__->add_property( 'baz', default => 'howdy' );
- __PACKAGE__->add_property( 'code', default => sub { 'yay' } );
- __PACKAGE__->add_property(
- 'check',
- default => sub { 'howdy' },
- check => sub {
- return 1 if $_ eq 'howdy';
- shift->property_error(qq{"$_" is invalid});
- return 0;
- },
- );
- __PACKAGE__->add_property(
- 'hash',
- default => { foo => 1 },
- check => sub {
- return 1 if !defined $_ or exists $_->{foo};
- shift->property_error(qq{hash is invalid});
- return 0;
- },
- );
-}
-
-ok my $build = My::Build::Prop->new(
- 'module_name' => 'Simple',
- quiet => 1,
-), 'Create new build object';
-
-is $build->foo, undef, 'Property "foo" should be undef';
-ok $build->foo(42), 'Set "foo"';
-is $build->foo, 42, 'Now "foo" should have new value';
-
-is $build->bar, 'howdy', 'Property "bar" should be its default';
-ok $build->bar('yo'), 'Set "bar"';
-is $build->bar, 'yo', 'Now "bar" should have new value';
-
-is $build->check, 'howdy', 'Property "check" should be its default';
-
-eval { $build->check('yo') };
-ok my $err = $@, 'Should get an error for an invalid value';
-like $err, qr/^ERROR: "yo" is invalid/, 'It should be the correct error';
-
-is $build->code, 'yay', 'Property "code" should have its code value';
-
-is_deeply $build->hash, { foo => 1 }, 'Property "hash" should be default';
-is $build->hash('foo'), 1, 'Should be able to get key in hash';
-ok $build->hash( bar => 3 ), 'Add a key to the hash prop';
-is_deeply $build->hash, { foo => 1, bar => 3 }, 'New key should be in hash';
-
-eval { $build->hash({ bar => 3 }) };
-ok $err = $@, 'Should get exception for assigning invalid hash';
-like $err, qr/^ERROR: hash is invalid/, 'It should be the correct error';
-
-eval { $build->hash( []) };
-ok $err = $@, 'Should get exception for assigning an array for a hash';
-like $err, qr/^Unexpected arguments for property 'hash'/,
- 'It should be the proper error';
-is $build->hash(undef), undef, 'Should be able to set hash to undef';
-
-# Check core properties.
-is $build->installdirs, 'site', 'Property "installdirs" should be default';
-ok $build->installdirs('core'), 'Set "installdirst" to "core"';
-is $build->installdirs, 'core', 'Now "installdirs" should be "core"';
-
-eval { $build->installdirs('perl') };
-ok $err = $@, 'Should have caught exception setting "installdirs" to "perl"';
-like $err, qr/^ERROR: Perhaps you meant installdirs to be "core" rather than "perl"\?/,
- 'And it should suggest "core" in the error message';
-
-eval { $build->installdirs('foo') };
-ok $err = $@, 'Should catch exception for invalid "installdirs" value';
-like $err, qr/ERROR: installdirs must be one of "core", "site", or "vendor"/,
- 'And it should suggest the proper values in the error message';
-
-$dist->chdir_original if $dist->did_chdir;
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/t/bundled/Tie/CPHash.pm b/3.8.8/sources/cpan-Module-Build/vendor/t/bundled/Tie/CPHash.pm
deleted file mode 100644
index b167622..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/t/bundled/Tie/CPHash.pm
+++ /dev/null
@@ -1,194 +0,0 @@
-#---------------------------------------------------------------------
-package Tie::CPHash;
-#
-# Copyright 1997 Christopher J. Madsen
-#
-# Author: Christopher J. Madsen <cjm at pobox.com>
-# Created: 08 Nov 1997
-# $Revision$ $Date$
-#
-# This program 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. See either the
-# GNU General Public License or the Artistic License for more details.
-#
-# Case preserving but case insensitive hash
-#---------------------------------------------------------------------
-
-require 5.000;
-use strict;
-use vars qw(@ISA $VERSION);
-
- at ISA = qw();
-
-#=====================================================================
-# Package Global Variables:
-
-$VERSION = '1.02';
-
-#=====================================================================
-# Tied Methods:
-#---------------------------------------------------------------------
-# TIEHASH classname
-# The method invoked by the command `tie %hash, classname'.
-# Associates a new hash instance with the specified class.
-
-sub TIEHASH
-{
- bless {}, $_[0];
-} # end TIEHASH
-
-#---------------------------------------------------------------------
-# STORE this, key, value
-# Store datum *value* into *key* for the tied hash *this*.
-
-sub STORE
-{
- $_[0]->{lc $_[1]} = [ $_[1], $_[2] ];
-} # end STORE
-
-#---------------------------------------------------------------------
-# FETCH this, key
-# Retrieve the datum in *key* for the tied hash *this*.
-
-sub FETCH
-{
- my $v = $_[0]->{lc $_[1]};
- ($v ? $v->[1] : undef);
-} # end FETCH
-
-#---------------------------------------------------------------------
-# FIRSTKEY this
-# Return the (key, value) pair for the first key in the hash.
-
-sub FIRSTKEY
-{
- my $a = scalar keys %{$_[0]};
- &NEXTKEY;
-} # end FIRSTKEY
-
-#---------------------------------------------------------------------
-# NEXTKEY this, lastkey
-# Return the next (key, value) pair for the hash.
-
-sub NEXTKEY
-{
- my $v = (each %{$_[0]})[1];
- ($v ? $v->[0] : undef );
-} # end NEXTKEY
-
-#---------------------------------------------------------------------
-# SCALAR this
-# Return bucket usage information for the hash (0 if empty).
-
-sub SCALAR
-{
- scalar %{$_[0]};
-} # end SCALAR
-
-#---------------------------------------------------------------------
-# EXISTS this, key
-# Verify that *key* exists with the tied hash *this*.
-
-sub EXISTS
-{
- exists $_[0]->{lc $_[1]};
-} # end EXISTS
-
-#---------------------------------------------------------------------
-# DELETE this, key
-# Delete the key *key* from the tied hash *this*.
-# Returns the old value, or undef if it didn't exist.
-
-sub DELETE
-{
- my $v = delete $_[0]->{lc $_[1]};
- ($v ? $v->[1] : undef);
-} # end DELETE
-
-#---------------------------------------------------------------------
-# CLEAR this
-# Clear all values from the tied hash *this*.
-
-sub CLEAR
-{
- %{$_[0]} = ();
-} # end CLEAR
-
-#=====================================================================
-# Other Methods:
-#---------------------------------------------------------------------
-# Return the case of KEY.
-
-sub key
-{
- my $v = $_[0]->{lc $_[1]};
- ($v ? $v->[0] : undef);
-}
-
-#=====================================================================
-# Package Return Value:
-
-1;
-
-__END__
-
-=head1 NAME
-
-Tie::CPHash - Case preserving but case insensitive hash table
-
-=head1 SYNOPSIS
-
- require Tie::CPHash;
- tie %cphash, 'Tie::CPHash';
-
- $cphash{'Hello World'} = 'Hi there!';
- printf("The key `%s' was used to store `%s'.\n",
- tied(%cphash)->key('HELLO WORLD'),
- $cphash{'HELLO world'});
-
-=head1 DESCRIPTION
-
-The B<Tie::CPHash> module provides a hash table that is case
-preserving but case insensitive. This means that
-
- $cphash{KEY} $cphash{key}
- $cphash{Key} $cphash{keY}
-
-all refer to the same entry. Also, the hash remembers which form of
-the key was last used to store the entry. The C<keys> and C<each>
-functions will return the key that was used to set the value.
-
-An example should make this clear:
-
- tie %h, 'Tie::CPHash';
- $h{Hello} = 'World';
- print $h{HELLO}; # Prints 'World'
- print keys(%h); # Prints 'Hello'
- $h{HELLO} = 'WORLD';
- print $h{hello}; # Prints 'WORLD'
- print keys(%h); # Prints 'HELLO'
-
-The additional C<key> method lets you fetch the case of a specific key:
-
- # When run after the previous example, this prints 'HELLO':
- print tied(%h)->key('Hello');
-
-(The C<tied> function returns the object that C<%h> is tied to.)
-
-If you need a case insensitive hash, but don't need to preserve case,
-just use C<$hash{lc $key}> instead of C<$hash{$key}>. This has a lot
-less overhead than B<Tie::CPHash>.
-
-=head1 AUTHOR
-
-Christopher J. Madsen E<lt>F<cjm at pobox.com>E<gt>
-
-=cut
-
-# Local Variables:
-# tmtrack-file-task: "Tie::CPHash.pm"
-# End:
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/t/debug.t b/3.8.8/sources/cpan-Module-Build/vendor/t/debug.t
deleted file mode 100644
index e0b8f60..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/t/debug.t
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use lib 't/lib';
-use MBTest tests => 1;
-
-blib_load('Module::Build');
-
-my $tmp = MBTest->tmpdir;
-
-use DistGen;
-my $dist = DistGen->new( dir => $tmp );
-$dist->regen;
-$dist->chdir_in;
-
-#########################
-
-# Test debug output
-{
- my $output;
- $output = stdout_of sub { $dist->run_build_pl };
- $output = stdout_of sub { $dist->run_build('--debug') };
- like($output, '/Starting ACTION_build.*?Starting ACTION_code.*?Finished ACTION_code.*?Finished ACTION_build/ms',
- "found nested ACTION_* debug statements"
- );
-}
-
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/t/ext.t b/3.8.8/sources/cpan-Module-Build/vendor/t/ext.t
deleted file mode 100644
index 3c60a65..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/t/ext.t
+++ /dev/null
@@ -1,161 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use lib 't/lib';
-use MBTest;
-
-my @unix_splits =
- (
- { q{one t'wo th'ree f"o\"ur " "five" } => [ 'one', 'two three', 'fo"ur ', 'five' ] },
- { q{ foo bar } => [ 'foo', 'bar' ] },
- { q{ D\'oh f\{g\'h\"i\]\* } => [ "D'oh", "f{g'h\"i]*" ] },
- { q{ D\$foo } => [ 'D$foo' ] },
- { qq{one\\\ntwo} => [ "one\ntwo" ] }, # TODO
- );
-
-my @win_splits =
- (
- { 'a" "b\\c" "d' => [ 'a b\c d' ] },
- { '"a b\\c d"' => [ 'a b\c d' ] },
- { '"a b"\\"c d"' => [ 'a b"c', 'd' ] },
- { '"a b"\\\\"c d"' => [ 'a b\c d' ] },
- { '"a"\\"b" "a\\"b"' => [ 'a"b a"b' ] },
- { '"a"\\\\"b" "a\\\\"b"' => [ 'a\b', 'a\b' ] },
- { '"a"\\"b a\\"b"' => [ 'a"b', 'a"b' ] },
- { 'a"\\"b" "a\\"b' => [ 'a"b', 'a"b' ] },
- { 'a"\\"b" "a\\"b' => [ 'a"b', 'a"b' ] },
- { 'a b' => [ 'a', 'b' ] },
- { 'a"\\"b a\\"b' => [ 'a"b a"b' ] },
- { '"a""b" "a"b"' => [ 'a"b ab' ] },
- { '\\"a\\"' => [ '"a"' ] },
- { '"a"" "b"' => [ 'a"', 'b' ] },
- { 'a"b' => [ 'ab' ] },
- { 'a""b' => [ 'ab' ] },
- { 'a"""b' => [ 'a"b' ] },
- { 'a""""b' => [ 'a"b' ] },
- { 'a"""""b' => [ 'a"b' ] },
- { 'a""""""b' => [ 'a""b' ] },
- { '"a"b"' => [ 'ab' ] },
- { '"a""b"' => [ 'a"b' ] },
- { '"a"""b"' => [ 'a"b' ] },
- { '"a""""b"' => [ 'a"b' ] },
- { '"a"""""b"' => [ 'a""b' ] },
- { '"a""""""b"' => [ 'a""b' ] },
- { '' => [ ] },
- { ' ' => [ ] },
- { '""' => [ '' ] },
- { '" "' => [ ' ' ] },
- { '""a' => [ 'a' ] },
- { '""a b' => [ 'a', 'b' ] },
- { 'a""' => [ 'a' ] },
- { 'a"" b' => [ 'a', 'b' ] },
- { '"" a' => [ '', 'a' ] },
- { 'a ""' => [ 'a', '' ] },
- { 'a "" b' => [ 'a', '', 'b' ] },
- { 'a " " b' => [ 'a', ' ', 'b' ] },
- { 'a " b " c' => [ 'a', ' b ', 'c' ] },
-);
-
-plan tests => 9 + 4*@unix_splits + 4*@win_splits;
-
-blib_load('Module::Build');
-blib_load('Module::Build::Platform::Unix');
-blib_load('Module::Build::Platform::Windows');
-
-#########################
-
-# Should always return an array unscathed
-foreach my $platform ('', '::Platform::Unix', '::Platform::Windows') {
- my $pkg = "Module::Build$platform";
- my @result = $pkg->split_like_shell(['foo', 'bar', 'baz']);
- is @result, 3, "Split using $pkg";
- is "@result", "foo bar baz", "Split using $pkg";
-}
-
-# I think 3.24 isn't actually the majik version, my 3.23 seems to pass...
-my $low_TPW_version = Text::ParseWords->VERSION < 3.24;
-foreach my $test (@unix_splits) {
- # Text::ParseWords bug:
- local $TODO = $low_TPW_version && ((keys %$test)[0] =~ m{\\\n});
-
- do_split_tests('Module::Build::Platform::Unix', $test);
-}
-
-foreach my $test (@win_splits) {
- do_split_tests('Module::Build::Platform::Windows', $test);
-}
-
-
-{
- # Make sure read_args() functions properly as a class method
- my @args = qw(foo=bar --food bard --foods=bards);
- my ($args) = Module::Build->read_args(@args);
- is_deeply($args, {foo => 'bar', food => 'bard', foods => 'bards', ARGV => []});
-}
-
-{
- # Make sure data can make a round-trip through unparse_args() and read_args()
- my %args = (foo => 'bar', food => 'bard', config => {a => 1, b => 2}, ARGV => []);
- my ($args) = Module::Build->read_args( Module::Build->unparse_args(\%args) );
- is_deeply($args, \%args);
-}
-
-{
- # Make sure data can make a round-trip through an external perl
- # process, which can involve the shell command line
-
- # silence the printing for easier matching
- local *Module::Build::log_info = sub {};
-
- my @data = map values(%$_), @unix_splits, @win_splits;
- for my $d (@data) {
- my $out = stdout_of
- ( sub {
- Module::Build->run_perl_script('-le', [], ['print join " ", map "{$_}", @ARGV', @$d]);
- } );
- chomp $out;
- is($out, join(' ', map "{$_}", @$d), "perl round trip for ".join('',map "{$_}", @$d));
- }
-}
-
-{
- # Make sure data can make a round-trip through an external backtick
- # process, which can involve the shell command line
-
- # silence the printing for easier matching
- local *Module::Build::log_info = sub {};
-
- my @data = map values(%$_), @unix_splits, @win_splits;
- for my $d (@data) {
- chomp(my $out = Module::Build->_backticks($^X, '-le', 'print join " ", map "{$_}", @ARGV', @$d));
- is($out, join(' ', map "{$_}", @$d), "backticks round trip for ".join('',map "{$_}", @$d));
- }
-}
-
-{
- # Make sure run_perl_script() propagates @INC
- my $dir = MBTest->tmpdir;
- if ($^O eq 'VMS') {
- # VMS can store INC paths in Unix format with out the trailing
- # directory delimiter.
- $dir = VMS::Filespec::unixify($dir);
- $dir =~ s#/$##;
- }
- local @INC = ($dir, @INC);
- my $output = stdout_of( sub { Module::Build->run_perl_script('-le', [], ['print for @INC']) } );
- like $output, qr{^\Q$dir\E}m;
-}
-
-##################################################################
-sub do_split_tests {
- my ($package, $test) = @_;
-
- my ($string, $expected) = %$test;
- my @result = $package->split_like_shell($string);
- is( 0 + grep( !defined(), @result ), # all defined
- 0,
- "'$string' result all defined" );
- is_deeply(\@result, $expected) or
- diag("$package split_like_shell error \n" .
- ">$string< is not splitting as >" . join("|", @$expected) . '<');
-}
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/t/extend.t b/3.8.8/sources/cpan-Module-Build/vendor/t/extend.t
deleted file mode 100644
index 505a473..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/t/extend.t
+++ /dev/null
@@ -1,275 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use lib 't/lib';
-use MBTest tests => 64;
-
-blib_load('Module::Build');
-
-my $tmp = MBTest->tmpdir;
-
-use DistGen;
-my $dist = DistGen->new( dir => $tmp );
-$dist->regen;
-
-$dist->chdir_in;
-
-#########################
-
-# Here we make sure actions are only called once per dispatch()
-$::x = 0;
-my $mb = Module::Build->subclass
- (
- code => "sub ACTION_loop { die 'recursed' if \$::x++; shift->depends_on('loop'); }"
- )->new( module_name => $dist->name );
-ok $mb;
-
-$mb->dispatch('loop');
-ok $::x;
-
-$mb->dispatch('realclean');
-
-# Make sure the subclass can be subclassed
-my $build2class = ref($mb)->subclass
- (
- code => "sub ACTION_loop2 {}",
- class => 'MBB',
- );
-can_ok( $build2class, 'ACTION_loop' );
-can_ok( $build2class, 'ACTION_loop2' );
-
-
-{ # Make sure globbing works in filenames
- $dist->add_file( 'script', <<'---' );
-#!perl -w
-print "Hello, World!\n";
----
- $dist->regen;
-
- $mb->test_files('*t*');
- my $files = $mb->test_files;
- ok grep {$_ eq 'script'} @$files;
- my $t_basic_t = File::Spec->catfile('t', 'basic.t');
- $t_basic_t = VMS::Filespec::vmsify($t_basic_t) if $^O eq 'VMS';
- ok grep {$_ eq $t_basic_t} @$files;
- ok !grep {$_ eq 'Build.PL' } @$files;
-
- # Make sure order is preserved
- $mb->test_files('foo', 'bar');
- $files = $mb->test_files;
- is @$files, 2;
- is $files->[0], 'foo';
- is $files->[1], 'bar';
-
- $dist->remove_file( 'script' );
- $dist->regen( clean => 1 );
-}
-
-
-{
- # Make sure we can add new kinds of stuff to the build sequence
-
- $dist->add_file( 'test.foo', "content\n" );
- $dist->regen;
-
- my $mb = Module::Build->new( module_name => $dist->name,
- foo_files => {'test.foo', 'lib/test.foo'} );
- ok $mb;
-
- $mb->add_build_element('foo');
- $mb->add_build_element('foo');
- is_deeply $mb->build_elements, [qw(PL support pm xs share_dir pod script foo)],
- 'The foo element should be in build_elements only once';
-
- $mb->dispatch('build');
- ok -e File::Spec->catfile($mb->blib, 'lib', 'test.foo');
-
- $mb->dispatch('realclean');
-
- # revert distribution to a pristine state
- $dist->remove_file( 'test.foo' );
- $dist->regen( clean => 1 );
-}
-
-
-{
- package MBSub;
- use Test::More;
- use vars qw($VERSION @ISA);
- @ISA = qw(Module::Build);
- $VERSION = 0.01;
-
- # Add a new property.
- ok(__PACKAGE__->add_property('foo'));
- # Add a new property with a default value.
- ok(__PACKAGE__->add_property('bar', 'hey'));
- # Add a hash property.
- ok(__PACKAGE__->add_property('hash', {}));
-
-
- # Catch an exception adding an existing property.
- eval { __PACKAGE__->add_property('module_name')};
- like "$@", qr/already exists/;
-}
-
-{
- package MBSub2;
- use Test::More;
- use vars qw($VERSION @ISA);
- @ISA = qw(Module::Build);
- $VERSION = 0.01;
-
- # Add a new property with a different default value than MBSub has.
- ok(__PACKAGE__->add_property('bar', 'yow'));
-}
-
-
-{
- ok my $mb = MBSub->new( module_name => $dist->name );
- isa_ok $mb, 'Module::Build';
- isa_ok $mb, 'MBSub';
- ok $mb->valid_property('foo');
- can_ok $mb, 'module_name';
-
- # Check foo property.
- can_ok $mb, 'foo';
- ok ! $mb->foo;
- ok $mb->foo(1);
- ok $mb->foo;
-
- # Check bar property.
- can_ok $mb, 'bar';
- is $mb->bar, 'hey';
- ok $mb->bar('you');
- is $mb->bar, 'you';
-
- # Check hash property.
- ok $mb = MBSub->new(
- module_name => $dist->name,
- hash => { foo => 'bar', bin => 'foo'}
- );
-
- can_ok $mb, 'hash';
- isa_ok $mb->hash, 'HASH';
- is $mb->hash->{foo}, 'bar';
- is $mb->hash->{bin}, 'foo';
-
- # Check hash property passed via the command-line.
- {
- local @ARGV = (
- '--hash', 'foo=bar',
- '--hash', 'bin=foo',
- );
- ok $mb = MBSub->new( module_name => $dist->name );
- }
-
- can_ok $mb, 'hash';
- isa_ok $mb->hash, 'HASH';
- is $mb->hash->{foo}, 'bar';
- is $mb->hash->{bin}, 'foo';
-
- # Make sure that a different subclass with the same named property has a
- # different default.
- ok $mb = MBSub2->new( module_name => $dist->name );
- isa_ok $mb, 'Module::Build';
- isa_ok $mb, 'MBSub2';
- ok $mb->valid_property('bar');
- can_ok $mb, 'bar';
- is $mb->bar, 'yow';
-}
-
-{
- # Test the meta_add and meta_merge stuff
- ok my $mb = Module::Build->new(
- module_name => $dist->name,
- license => 'perl',
- meta_add => {foo => 'bar'},
- conflicts => {'Foo::Barxx' => 0},
- );
- my $data = $mb->get_metadata;
- is $data->{foo}, 'bar';
-
- $mb->meta_merge(foo => 'baz');
- $data = $mb->get_metadata;
- is $data->{foo}, 'baz';
-
- $mb->meta_merge(conflicts => {'Foo::Fooxx' => 0});
- $data = $mb->get_metadata;
- is_deeply $data->{conflicts}, {'Foo::Barxx' => 0, 'Foo::Fooxx' => 0};
-
- $mb->meta_add(conflicts => {'Foo::Bazxx' => 0});
- $data = $mb->get_metadata;
- is_deeply $data->{conflicts}, {'Foo::Bazxx' => 0, 'Foo::Fooxx' => 0};
-}
-
-{
- # Test interactive prompting
-
- my $ans;
- local $ENV{PERL_MM_USE_DEFAULT};
-
- local $^W = 0;
- local *{Module::Build::_readline} = sub { 'y' };
-
- ok my $mb = Module::Build->new(
- module_name => $dist->name,
- license => 'perl',
- );
-
- eval{ $mb->prompt() };
- like $@, qr/called without a prompt/, 'prompt() requires a prompt';
-
- eval{ $mb->y_n() };
- like $@, qr/called without a prompt/, 'y_n() requires a prompt';
-
- eval{ $mb->y_n('Prompt?', 'invalid default') };
- like $@, qr/Invalid default/, "y_n() requires a default of 'y' or 'n'";
-
-
- $ENV{PERL_MM_USE_DEFAULT} = 1;
-
- eval{ $mb->y_n('Is this a question?') };
- print "\n"; # fake <enter> because the prompt prints before the checks
- like $@, qr/ERROR:/,
- 'Do not allow default-less y_n() for unattended builds';
-
- eval{ $ans = $mb->prompt('Is this a question?') };
- print "\n"; # fake <enter> because the prompt prints before the checks
- like $@, qr/ERROR:/,
- 'Do not allow default-less prompt() for unattended builds';
-
-
- # When running Test::Smoke under a cron job, STDIN will be closed which
- # will fool our _is_interactive() method causing various failures.
- {
- local *{Module::Build::_is_interactive} = sub { 1 };
-
- $ENV{PERL_MM_USE_DEFAULT} = 0;
-
- $ans = $mb->prompt('Is this a question?');
- print "\n"; # fake <enter> after input
- is $ans, 'y', "prompt() doesn't require default for interactive builds";
-
- $ans = $mb->y_n('Say yes');
- print "\n"; # fake <enter> after input
- ok $ans, "y_n() doesn't require default for interactive build";
-
-
- # Test Defaults
- *{Module::Build::_readline} = sub { '' };
-
- $ans = $mb->prompt("Is this a question");
- is $ans, '', "default for prompt() without a default is ''";
-
- $ans = $mb->prompt("Is this a question", 'y');
- is $ans, 'y', " prompt() with a default";
-
- $ans = $mb->y_n("Is this a question", 'y');
- ok $ans, " y_n() with a default";
-
- my @ans = $mb->prompt("Is this a question", undef);
- is_deeply([@ans], [undef], " prompt() with undef() default");
- }
-
-}
-
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/t/files.t b/3.8.8/sources/cpan-Module-Build/vendor/t/files.t
deleted file mode 100644
index 625a473..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/t/files.t
+++ /dev/null
@@ -1,47 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use lib 't/lib';
-use MBTest tests => 4;
-
-blib_load('Module::Build');
-
-use IO::File;
-my $tmp = MBTest->tmpdir;
-
-use DistGen;
-my $dist = DistGen->new( dir => $tmp );
-$dist->regen;
-
-$dist->chdir_in;
-
-my $mb = Module::Build->new_from_context;
-
-{
- # Make sure copy_if_modified() can handle spaces in filenames
-
- my @tmp;
- push @tmp, MBTest->tmpdir for (0 .. 1);
-
- my $filename = 'file with spaces.txt';
-
- my $file = File::Spec->catfile($tmp[0], $filename);
- my $fh = IO::File->new($file, '>') or die "Can't create $file: $!";
- print $fh "Foo\n";
- $fh->close;
- ok -e $file;
-
-
- my $file2 = $mb->copy_if_modified(from => $file, to_dir => $tmp[1]);
- ok $file2;
- ok -e $file2;
-}
-
-{
- # Try some dir_contains() combinations
- my $first = File::Spec->catdir('', 'one', 'two');
- my $second = File::Spec->catdir('', 'one', 'two', 'three');
-
- ok( Module::Build->dir_contains($first, $second) );
-}
-
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/t/install.t b/3.8.8/sources/cpan-Module-Build/vendor/t/install.t
deleted file mode 100644
index ffe8afc..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/t/install.t
+++ /dev/null
@@ -1,241 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use lib 't/lib';
-use MBTest tests => 34;
-
-blib_load('Module::Build');
-
-use Config;
-use Cwd ();
-my $cwd = Cwd::cwd;
-my $tmp = MBTest->tmpdir;
-
-use DistGen;
-my $dist = DistGen->new( dir => $tmp );
-$dist->regen;
-$dist->chdir_in;
-
-#########################
-
-
-$dist->add_file( 'script', <<'---' );
-#!perl -w
-print "Hello, World!\n";
----
-$dist->change_build_pl
-({
- module_name => $dist->name,
- scripts => [ 'script' ],
- license => 'perl',
- requires => { 'File::Spec' => 0 },
-});
-$dist->regen;
-
-
-use File::Spec::Functions qw( catdir );
-
-my $mb = Module::Build->new_from_context(
- # need default install paths to ensure manpages & HTML get generated
- installdirs => 'site',
- config => {
- installman1dir => catdir($tmp, 'man', 'man1'),
- installman3dir => catdir($tmp, 'man', 'man3'),
- installhtml1dir => catdir($tmp, 'html'),
- installhtml3dir => catdir($tmp, 'html'),
-
- installsiteman1dir => catdir($tmp, 'site', 'man', 'man1'),
- installsiteman3dir => catdir($tmp, 'site', 'man', 'man3'),
- installsitehtml1dir => catdir($tmp, 'site', 'html'),
- installsitehtml3dir => catdir($tmp, 'site', 'html'),
- }
-
-);
-
-ok $mb;
-
-
-my $destdir = File::Spec->catdir($cwd, 't', 'install_test' . $$);
-$mb->add_to_cleanup($destdir);
-
-{
- eval {$mb->dispatch('install', destdir => $destdir)};
- is $@, '';
-
- my @libdir = strip_volume( $mb->install_destination('lib') );
- my $install_to = File::Spec->catfile($destdir, @libdir, $dist->name ) . '.pm';
- file_exists($install_to);
-
- local @INC = (@INC, File::Spec->catdir($destdir, @libdir));
- eval "require @{[$dist->name]}";
- is $@, '';
-
- # Make sure there's a packlist installed
- my $archdir = $mb->install_destination('arch');
- my @dirs = strip_volume($archdir);
- my $packlist = File::Spec->catfile
- ($destdir, @dirs, 'auto', $dist->name, '.packlist');
- is -e $packlist, 1, "$packlist should be written";
-}
-
-{
- eval {$mb->dispatch('install', installdirs => 'core', destdir => $destdir)};
- is $@, '';
- my @libdir = strip_volume( $Config{installprivlib} );
- my $install_to = File::Spec->catfile($destdir, @libdir, $dist->name ) . '.pm';
- file_exists($install_to);
-}
-
-{
- my $libdir = File::Spec->catdir(File::Spec->rootdir, 'foo', 'bar');
- eval {$mb->dispatch('install', install_path => {lib => $libdir}, destdir => $destdir)};
- is $@, '';
- my @dirs = strip_volume($libdir);
- my $install_to = File::Spec->catfile($destdir, @dirs, $dist->name ) . '.pm';
- file_exists($install_to);
-}
-
-{
- my $libdir = File::Spec->catdir(File::Spec->rootdir, 'foo', 'base');
- eval {$mb->dispatch('install', install_base => $libdir, destdir => $destdir)};
- is $@, '';
- my @dirs = strip_volume($libdir);
- my $install_to = File::Spec->catfile($destdir, @dirs, 'lib', 'perl5', $dist->name ) . '.pm';
- file_exists($install_to);
-}
-
-{
- # Test the ConfigData stuff
-
- $mb->config_data(foo => 'bar');
- $mb->features(baz => 1);
- $mb->auto_features(auto_foo => {requires => {'File::Spec' => 0}});
- eval {$mb->dispatch('install', destdir => $destdir)};
- is $@, '';
-
- my @libdir = strip_volume( $mb->install_destination('lib') );
- local @INC = (@INC, File::Spec->catdir($destdir, @libdir));
- eval "require @{[$dist->name]}::ConfigData";
-
- is $mb->feature('auto_foo'), 1;
-
- SKIP: {
- skip $@, 5 if @_;
-
- # Make sure the values are present
- my $config = $dist->name . '::ConfigData';
- is( $config->config('foo'), 'bar' );
- ok( $config->feature('baz') );
- ok( $config->feature('auto_foo') );
- ok( not $config->feature('nonexistent') );
-
- # Add a new value to the config set
- $config->set_config(floo => 'bhlar');
- is( $config->config('floo'), 'bhlar' );
-
- # Make sure it actually got written
- $config->write;
- delete $INC{"@{[$dist->name]}/ConfigData.pm"};
- {
- local $^W; # Avoid warnings for subroutine redefinitions
- eval "require $config";
- }
- is( $config->config('floo'), 'bhlar' );
- }
-}
-
-
-eval {$mb->dispatch('realclean')};
-is $@, '';
-
-{
- # Try again by running the script rather than with programmatic interface
- my $libdir = File::Spec->catdir('', 'foo', 'lib');
- eval {$mb->run_perl_script('Build.PL', [], ['--install_path', "lib=$libdir"])};
- is $@, '';
-
- my $cmd = 'Build';
- $cmd .= ".COM" if $^O eq 'VMS';
- eval {$mb->run_perl_script($cmd, [], ['install', '--destdir', $destdir])};
- is $@, '';
- my $install_to = File::Spec->catfile($destdir, $libdir, $dist->name ) . '.pm';
- file_exists($install_to);
-
- my $basedir = File::Spec->catdir('', 'bar');
- eval {$mb->run_perl_script($cmd, [], ['install', '--destdir', $destdir,
- '--install_base', $basedir])};
- is $@, '';
-
- $install_to = File::Spec->catfile($destdir, $libdir, $dist->name ) . '.pm';
- is -e $install_to, 1, "Look for file at $install_to";
-
- eval {$mb->dispatch('realclean')};
- is $@, '';
-}
-
-{
- # Make sure 'install_path' overrides 'install_base'
- my $mb = Module::Build->new( module_name => $dist->name,
- install_base => File::Spec->catdir('', 'foo'),
- install_path => {
- lib => File::Spec->catdir('', 'bar')
- }
- );
- ok $mb;
- is $mb->install_destination('lib'), File::Spec->catdir('', 'bar');
-}
-
-{
- $dist->add_file( 'lib/Simple/Docs.pod', <<'---' );
-=head1 NAME
-
-Simple::Docs - Simple pod
-
-=head1 AUTHOR
-
-Simple Man <simple at example.com>
-
-=cut
----
- $dist->regen;
-
- # _find_file_by_type() isn't a public method, but this is currently
- # the only easy way to test that it works properly.
- my $pods = $mb->_find_file_by_type('pod', 'lib');
- is keys %$pods, 1;
- my $expect = $mb->localize_file_path('lib/Simple/Docs.pod');
-
- # TODO:
- # True for traditional VMS, but will need to be changed when ODS-5 support
- # for case preserved filenames is active.
- # The issue is that the keys to the $pods hash are currently being set to
- # lowercase on VMS so can not be found in exact case.
-
- $expect = lc($expect) if $^O eq 'VMS';
-
- is $pods->{$expect}, $expect;
-
- my $pms = $mb->_find_file_by_type('awefawef', 'lib');
- ok $pms;
- is keys %$pms, 0;
-
- $pms = $mb->_find_file_by_type('pod', 'awefawef');
- ok $pms;
- is keys %$pms, 0;
-
- # revert to pristine state
- $dist->regen( clean => 1 );
-}
-
-sub strip_volume {
- my $dir = shift;
- (undef, $dir) = File::Spec->splitpath( $dir, 1 );
- my @dirs = File::Spec->splitdir($dir);
- return @dirs;
-}
-
-sub file_exists {
- my $file = shift;
- ok -e $file or diag("Expected $file to exist, but it doesn't");
-}
-
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/t/install_extra_target.t b/3.8.8/sources/cpan-Module-Build/vendor/t/install_extra_target.t
deleted file mode 100644
index 09d2cbe..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/t/install_extra_target.t
+++ /dev/null
@@ -1,135 +0,0 @@
-#!perl -w
-# Contributed by: Thorben Jaendling
-
-use strict;
-use lib 't/lib';
-use MBTest tests => 6;
-
-blib_load('Module::Build');
-
-use File::Spec::Functions qw( catdir catfile );
-
-my $tmp = MBTest->tmpdir;
-my $output;
-
-use DistGen;
-my $dist = DistGen->new( dir => $tmp );
-
-# note("Dist is in $tmp\n");
-
-$dist->add_file("Build.PL", <<'===EOF===');
-#!perl -w
-
-use strict;
-use Module::Build;
-
-my $subclass = Module::Build->subclass(code => <<'=EOF=');
-sub copy_files
-{
- my $self = shift;
- my $dir = shift;
-
- my $files = $self->rscan_dir($dir, sub {-f $_ and not m!/\.|[#~]$!});
-
- foreach my $file (@$files) {
- $self->copy_if_modified(from => $file, to_dir => "blib");
- }
-}
-
-#Copy etc files to blib
-sub process_etc_files
-{
- my $self = shift;
-
- $self->copy_files("etc");
-}
-
-#Copy share files to blib
-sub process_shared_files
-{
- my $self = shift;
-
- $self->copy_files("shared");
-}
-
-1;
-=EOF=
-
-my $build = $subclass->new(
- module_name => 'Simple',
- license => 'perl'
-);
-
-$build->add_build_element('etc');
-$build->add_build_element('shared');
-
-my $distdir = lc $build->dist_name();
-
-foreach my $id ('core', 'site', 'vendor') {
- #Where to install these build types when using prefix symantics
- $build->prefix_relpaths($id, 'shared' => "shared/$distdir");
- $build->prefix_relpaths($id, 'etc' => "etc/$distdir");
-
- #Where to install these build types when using default symantics
- my $set = $build->install_sets($id);
- $set->{'shared'} = '/usr/'.($id eq 'site' ? 'local/':'')."shared/$distdir";
- $set->{'etc'} = ($id eq 'site' ? '/usr/local/etc/':'/etc/').$distdir;
-}
-
-#Where to install these types when using install_base symantics
-$build->install_base_relpaths('shared' => "shared/$distdir");
-$build->install_base_relpaths('etc' => "etc/$distdir");
-
-$build->create_build_script();
-
-===EOF===
-
-#Test Build.PL exists ok?
-
-$dist->add_file("etc/config", <<'===EOF===');
-[main]
-Foo = bar
-Jim = bob
-
-[supplemental]
-stardate = 1234344
-
-===EOF===
-
-$dist->add_file("shared/data", <<'===EOF===');
-7 * 9 = 42?
-
-===EOF===
-
-$dist->add_file("shared/html/index.html", <<'===EOF===');
-<HTML>
- <BODY>
- <H1>Hello World!</H1>
- </BODY>
-</HTML>
-
-===EOF===
-
-$dist->regen;
-$dist->chdir_in;
-
-my $installdest = catdir($tmp, 't', "install_extra_targets-$$");
-
-$output = stdout_of sub { $dist->run_build_pl("--install_base=$installdest") };
-
-$output .= stdout_of sub { $dist->run_build };
-
-my $error;
-$error++ unless ok(-e "blib/etc/config", "Built etc/config");
-$error++ unless ok(-e "blib/shared/data", "Built shared/data");
-$error++ unless ok(-e "blib/shared/html/index.html", "Built shared/html");
-diag "OUTPUT:\n$output" if $error;
-
-$output = stdout_of sub { $dist->run_build('install') };
-
-$error = 0;
-$error++ unless ok(-e catfile($installdest, qw/etc simple config/), "installed etc/config");
-$error++ unless ok(-e catfile($installdest, qw/shared simple data/), "installed shared/data");
-$error++ unless ok(-e catfile($installdest, qw/shared simple html index.html/), "installed shared/html");
-diag "OUTPUT:\n$output" if $error;
-
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/t/lib/MBTest.pm b/3.8.8/sources/cpan-Module-Build/vendor/t/lib/MBTest.pm
deleted file mode 100644
index 005920f..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/t/lib/MBTest.pm
+++ /dev/null
@@ -1,279 +0,0 @@
-package MBTest;
-
-use strict;
-
-use IO::File ();
-use File::Spec;
-use File::Temp ();
-use File::Path ();
-
-
-# Setup the code to clean out %ENV
-BEGIN {
- # Environment variables which might effect our testing
- my @delete_env_keys = qw(
- HOME
- DEVEL_COVER_OPTIONS
- MODULEBUILDRC
- PERL_MB_OPT
- HARNESS_TIMER
- HARNESS_OPTIONS
- HARNESS_VERBOSE
- PREFIX
- INSTALL_BASE
- INSTALLDIRS
- );
-
- # Remember the ENV values because on VMS %ENV is global
- # to the user, not the process.
- my %restore_env_keys;
-
- sub clean_env {
- for my $key (@delete_env_keys) {
- if( exists $ENV{$key} ) {
- $restore_env_keys{$key} = delete $ENV{$key};
- }
- else {
- delete $ENV{$key};
- }
- }
- }
-
- END {
- while( my($key, $val) = each %restore_env_keys ) {
- $ENV{$key} = $val;
- }
- }
-}
-
-
-BEGIN {
- clean_env();
-
- # In case the test wants to use our other bundled
- # modules, make sure they can be loaded.
- my $t_lib = File::Spec->catdir('t', 'bundled');
- push @INC, $t_lib; # Let user's installed version override
-
- if ($ENV{PERL_CORE}) {
- # We change directories, so expand @INC and $^X to absolute paths
- # Also add .
- @INC = (map(File::Spec->rel2abs($_), @INC), ".");
- $^X = File::Spec->rel2abs($^X);
- }
-}
-
-use Exporter;
-use Test::More;
-use Config;
-use Cwd ();
-
-# We pass everything through to Test::More
-use vars qw($VERSION @ISA @EXPORT %EXPORT_TAGS $TODO);
-$VERSION = 0.01_01;
- at ISA = qw(Test::More); # Test::More isa Exporter
- at EXPORT = @Test::More::EXPORT;
-%EXPORT_TAGS = %Test::More::EXPORT_TAGS;
-
-# We have a few extra exports, but Test::More has a special import()
-# that won't take extra additions.
-my @extra_exports = qw(
- stdout_of
- stderr_of
- stdout_stderr_of
- slurp
- find_in_path
- check_compiler
- have_module
- blib_load
- timed_out
-);
-push @EXPORT, @extra_exports;
-__PACKAGE__->export(scalar caller, @extra_exports);
-# XXX ^-- that should really happen in import()
-
-
-########################################################################
-
-# always return to the current directory
-{
- my $cwd = File::Spec->rel2abs(Cwd::cwd);
-
- sub original_cwd { return $cwd }
-
- END {
- # Go back to where you came from!
- chdir $cwd or die "Couldn't chdir to $cwd";
- }
-}
-########################################################################
-
-{ # backwards compatible temp filename recipe adapted from perlfaq
- my $tmp_count = 0;
- my $tmp_base_name = sprintf("MB-%d-%d", $$, time());
- sub temp_file_name {
- sprintf("%s-%04d", $tmp_base_name, ++$tmp_count)
- }
-}
-########################################################################
-
-# Setup a temp directory
-sub tmpdir {
- my ($self, @args) = @_;
- my $dir = $ENV{PERL_CORE} ? MBTest->original_cwd : File::Spec->tmpdir;
- return File::Temp::tempdir('MB-XXXXXXXX', CLEANUP => 1, DIR => $dir, @args);
-}
-
-BEGIN {
- $ENV{HOME} = tmpdir; # don't want .modulebuildrc or other things interfering
-}
-
-sub save_handle {
- my ($handle, $subr) = @_;
- my $outfile = File::Spec->catfile(File::Spec->tmpdir, temp_file_name());
-
- local *SAVEOUT;
- open SAVEOUT, ">&" . fileno($handle)
- or die "Can't save output handle: $!";
- open $handle, "> $outfile" or die "Can't create $outfile: $!";
-
- eval {$subr->()};
- open $handle, ">&SAVEOUT" or die "Can't restore output: $!";
-
- my $ret = slurp($outfile);
- 1 while unlink $outfile;
- return $ret;
-}
-
-sub stdout_of { save_handle(\*STDOUT, @_) }
-sub stderr_of { save_handle(\*STDERR, @_) }
-sub stdout_stderr_of {
- my $subr = shift;
- my ($stdout, $stderr);
- $stdout = stdout_of ( sub {
- $stderr = stderr_of( $subr )
- });
- return wantarray ? ($stdout, $stderr) : $stdout . $stderr;
-}
-
-sub slurp {
- my $fh = IO::File->new($_[0]) or die "Can't open $_[0]: $!";
- local $/;
- return scalar <$fh>;
-}
-
-# Some extensions we should know about if we're looking for executables
-sub exe_exts {
-
- if ($^O eq 'MSWin32') {
- return split($Config{path_sep}, $ENV{PATHEXT} || '.com;.exe;.bat');
- }
- if ($^O eq 'os2') {
- return qw(.exe .com .pl .cmd .bat .sh .ksh);
- }
- return;
-}
-
-sub find_in_path {
- my $thing = shift;
-
- my @exe_ext = exe_exts();
- if ( File::Spec->file_name_is_absolute( $thing ) ) {
- foreach my $ext ( '', @exe_ext ) {
- return "$thing$ext" if -e "$thing$ext";
- }
- }
- else {
- my @path = split $Config{path_sep}, $ENV{PATH};
- foreach (@path) {
- my $fullpath = File::Spec->catfile($_, $thing);
- foreach my $ext ( '', @exe_ext ) {
- return "$fullpath$ext" if -e "$fullpath$ext";
- }
- }
- }
- return;
-}
-
-sub check_compiler {
- return (1,1) if $ENV{PERL_CORE};
-
- local $SIG{__WARN__} = sub {};
-
- blib_load('Module::Build');
- my $mb = Module::Build->current;
- $mb->verbose( 0 );
-
- my $have_c_compiler;
- stderr_of( sub {$have_c_compiler = $mb->have_c_compiler} );
-
- # check noexec tmpdir
- my $tmp_exec;
- if ( $have_c_compiler ) {
- my $dir = MBTest->tmpdir;
- my $c_file = File::Spec->catfile($dir,'test.c');
- open my $fh, ">", $c_file;
- print {$fh} "int main() { return 0; }\n";
- close $fh;
- my $exe = $mb->cbuilder->link_executable(
- objects => $mb->cbuilder->compile( source => $c_file )
- );
- $tmp_exec = 0 == system( $exe );
- }
- return ($have_c_compiler, $tmp_exec);
-}
-
-sub have_module {
- my $module = shift;
- return eval "require $module; 1";
-}
-
-sub blib_load {
- # Load the given module and ensure it came from blib/, not the larger system
- my $mod = shift;
- have_module($mod) or die "Error loading $mod\: $@\n";
-
- (my $path = $mod) =~ s{::}{/}g;
- $path .= ".pm";
- my ($pkg, $file, $line) = caller;
- unless($ENV{PERL_CORE}) {
- unless($INC{$path} =~ m/\bblib\b/) {
- (my $load_from = $INC{$path}) =~ s{$path$}{};
- die "$mod loaded from '$load_from'\nIt should have been loaded from blib. \@INC contains:\n ",
- join("\n ", @INC) . "\nFatal error occured in blib_load() at $file, line $line.\n";
- }
- }
-}
-
-sub timed_out {
- my ($sub, $timeout) = @_;
- return unless $sub;
- $timeout ||= 60;
-
- my $saw_alarm = 0;
- eval {
- local $SIG{ALRM} = sub { $saw_alarm++; die "alarm\n"; }; # NB: \n required
- alarm $timeout;
- $sub->();
- alarm 0;
- };
- if ($@) {
- die unless $@ eq "alarm\n"; # propagate unexpected errors
- }
- return $saw_alarm;
-}
-
-sub check_EUI {
- my $timed_out;
- stdout_stderr_of( sub {
- $timed_out = timed_out( sub {
- ExtUtils::Installed->new(extra_libs => [@INC])
- }
- );
- }
- );
- return ! $timed_out;
-}
-
-1;
-# vim:ts=2:sw=2:et:sta
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/t/metadata.t b/3.8.8/sources/cpan-Module-Build/vendor/t/metadata.t
deleted file mode 100644
index 1ac35b2..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/t/metadata.t
+++ /dev/null
@@ -1,603 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use lib 't/lib';
-use MBTest tests => 51;
-
-blib_load('Module::Build');
-blib_load('Module::Build::ConfigData');
-
-my $tmp = MBTest->tmpdir;
-
-my %metadata =
- (
- module_name => 'Simple',
- dist_version => '3.14159265',
- dist_author => [ 'Simple Simon <ss\@somewhere.priv>' ],
- dist_abstract => 'Something interesting',
- license => 'perl',
- meta_add => {
- keywords => [qw(super duper something)],
- resources => {homepage => 'http://foo.example.com'},
- },
- );
-
-
-use DistGen;
-my $dist = DistGen->new( dir => $tmp );
-$dist->change_build_pl( \%metadata );
-$dist->regen;
-
-my $simple_file = 'lib/Simple.pm';
-my $simple2_file = 'lib/Simple2.pm';
-
- # Traditional VMS will return the file in in lower case, and is_deeply
- # does exact case comparisons.
- # When ODS-5 support is active for preserved case file names we do not
- # change the case.
- if ($^O eq 'VMS') {
- my $lower_case_expect = 1;
- my $vms_efs_case = 0;
- if (eval 'require VMS::Feature') {
- $vms_efs_case = VMS::Feature::current("efs_case_preserve");
- } else {
- my $efs_case = $ENV{'DECC$EFS_CASE_PRESERVE'} || '';
- $vms_efs_case = $efs_case =~ /^[ET1]/i;
- }
- $lower_case_expect = 0 if $vms_efs_case;
- if ($lower_case_expect) {
- $simple_file = lc($simple_file);
- $simple2_file = lc($simple2_file);
- }
- }
-
-
-$dist->chdir_in;
-
-my $mb = Module::Build->new_from_context;
-
-##################################################
-#
-# Test for valid META.yml
-
-{
- my $mb_prereq = { 'Module::Build' => $Module::Build::VERSION };
- my $mb_config_req = {
- 'Module::Build' => int($Module::Build::VERSION * 100)/100
- };
- my $node = $mb->get_metadata( );
-
- # exists() doesn't seem to work here
- is $node->{name}, $metadata{module_name};
- is $node->{version}, $metadata{dist_version};
- is $node->{abstract}, $metadata{dist_abstract};
- is_deeply $node->{author}, $metadata{dist_author};
- is $node->{license}, $metadata{license};
- is_deeply $node->{configure_requires}, $mb_config_req, 'Add M::B to configure_requires';
- like $node->{generated_by}, qr{Module::Build};
- ok defined( $node->{'meta-spec'}{version} ),
- "'meta-spec' -> 'version' field present in META.yml";
- ok defined( $node->{'meta-spec'}{url} ),
- "'meta-spec' -> 'url' field present in META.yml";
- is_deeply $node->{keywords}, $metadata{meta_add}{keywords};
- is_deeply $node->{resources}, $metadata{meta_add}{resources};
-}
-
-{
- my $mb_prereq = { 'Module::Build' => 0 };
- $mb->configure_requires( $mb_prereq );
- my $node = $mb->get_metadata( );
-
-
- # exists() doesn't seem to work here
- is_deeply $node->{configure_requires}, $mb_prereq, 'Add M::B to configure_requires';
-}
-
-$dist->clean;
-
-
-##################################################
-#
-# Tests to ensure that the correct packages and versions are
-# recorded for the 'provides' field of META.yml
-
-my $provides; # Used a bunch of times below
-
-sub new_build { return Module::Build->new_from_context( quiet => 1, @_ ) }
-
-############################## Single Module
-
-# File with corresponding package (w/ or w/o version)
-# Simple.pm => Simple v1.23
-
-$dist->change_file( 'lib/Simple.pm', <<'---' );
-package Simple;
-$VERSION = '1.23';
----
-$dist->regen( clean => 1 );
-$mb = new_build();
-is_deeply($mb->find_dist_packages,
- {'Simple' => {file => $simple_file,
- version => '1.23'}});
-
-$dist->change_file( 'lib/Simple.pm', <<'---' );
-package Simple;
----
-$dist->regen( clean => 1 );
-$mb = new_build();
-is_deeply($mb->find_dist_packages,
- {'Simple' => {file => $simple_file}});
-
-# File with no corresponding package (w/ or w/o version)
-# Simple.pm => Foo::Bar v1.23
-
-$dist->change_file( 'lib/Simple.pm', <<'---' );
-package Foo::Bar;
-$VERSION = '1.23';
----
-$dist->regen( clean => 1 );
-$mb = new_build();
-is_deeply($mb->find_dist_packages,
- {'Foo::Bar' => { file => $simple_file,
- version => '1.23' }});
-
-$dist->change_file( 'lib/Simple.pm', <<'---' );
-package Foo::Bar;
----
-$dist->regen( clean => 1 );
-$mb = new_build();
-is_deeply($mb->find_dist_packages,
- {'Foo::Bar' => { file => $simple_file}});
-
-
-# Single file with multiple differing packages (w/ or w/o version)
-# Simple.pm => Simple
-# Simple.pm => Foo::Bar
-
-$dist->change_file( 'lib/Simple.pm', <<'---' );
-package Simple;
-$VERSION = '1.23';
-package Foo::Bar;
-$VERSION = '1.23';
----
-$dist->regen( clean => 1 );
-$mb = new_build();
-is_deeply($mb->find_dist_packages,
- {'Simple' => { file => $simple_file,
- version => '1.23' },
- 'Foo::Bar' => { file => $simple_file,
- version => '1.23' }});
-
-{
- $dist->change_file( 'lib/Simple.pm', <<'---' );
-package Simple;
-$VERSION = version->new('0.60.' . (qw$Revision: 128 $)[1]);
-package Simple::Simon;
-$VERSION = version->new('0.61.' . (qw$Revision: 129 $)[1]);
----
- $dist->regen;
- my $provides = new_build()->get_metadata()->{provides};
- is $provides->{'Simple'}{version}, 'v0.60.128', "Check version";
- is $provides->{'Simple::Simon'}{version}, 'v0.61.129', "Check version";
- is ref($provides->{'Simple'}{version}), '', "Versions from get_metadata() aren't refs";
- is ref($provides->{'Simple::Simon'}{version}), '', "Versions from get_metadata() aren't refs";
-}
-
-
-# Single file with multiple differing packages, no corresponding package
-# Simple.pm => Foo
-# Simple.pm => Foo::Bar
-
-$dist->change_file( 'lib/Simple.pm', <<'---' );
-package Foo;
-$VERSION = '1.23';
-package Foo::Bar;
-$VERSION = '1.23';
----
-$dist->regen( clean => 1 );
-$mb = new_build();
-is_deeply($mb->find_dist_packages,
- {'Foo' => { file => $simple_file,
- version => '1.23' },
- 'Foo::Bar' => { file => $simple_file,
- version => '1.23' }});
-
-
-# Single file with same package appearing multiple times, no version
-# only record a single instance
-# Simple.pm => Simple
-# Simple.pm => Simple
-
-$dist->change_file( 'lib/Simple.pm', <<'---' );
-package Simple;
-package Simple;
----
-$dist->regen( clean => 1 );
-$mb = new_build();
-is_deeply($mb->find_dist_packages,
- {'Simple' => { file => $simple_file }});
-
-
-# Single file with same package appearing multiple times, single
-# version 1st package:
-# Simple.pm => Simple v1.23
-# Simple.pm => Simple
-
-$dist->change_file( 'lib/Simple.pm', <<'---' );
-package Simple;
-$VERSION = '1.23';
-package Simple;
----
-$dist->regen( clean => 1 );
-$mb = new_build();
-is_deeply($mb->find_dist_packages,
- {'Simple' => { file => $simple_file,
- version => '1.23' }});
-
-
-# Single file with same package appearing multiple times, single
-# version 2nd package
-# Simple.pm => Simple
-# Simple.pm => Simple v1.23
-
-$dist->change_file( 'lib/Simple.pm', <<'---' );
-package Simple;
-package Simple;
-$VERSION = '1.23';
----
-$dist->regen( clean => 1 );
-$mb = new_build();
-is_deeply($mb->find_dist_packages,
- {'Simple' => { file => $simple_file,
- version => '1.23' }});
-
-
-# Single file with same package appearing multiple times, conflicting versions
-# Simple.pm => Simple v1.23
-# Simple.pm => Simple v2.34
-
-$dist->change_file( 'lib/Simple.pm', <<'---' );
-package Simple;
-$VERSION = '1.23';
-package Simple;
-$VERSION = '2.34';
----
-$dist->regen( clean => 1 );
-my $err = '';
-$err = stderr_of( sub { $mb = new_build() } );
-$err = stderr_of( sub { $provides = $mb->find_dist_packages } );
-is_deeply($provides,
- {'Simple' => { file => $simple_file,
- version => '1.23' }}); # XXX should be 2.34?
-like( $err, qr/already declared/, ' with conflicting versions reported' );
-
-
-# (Same as above three cases except with no corresponding package)
-# Simple.pm => Foo v1.23
-# Simple.pm => Foo v2.34
-
-$dist->change_file( 'lib/Simple.pm', <<'---' );
-package Foo;
-$VERSION = '1.23';
-package Foo;
-$VERSION = '2.34';
----
-$dist->regen( clean => 1 );
-$err = stderr_of( sub { $mb = new_build() } );
-$err = stderr_of( sub { $provides = $mb->find_dist_packages } );
-is_deeply($provides,
- {'Foo' => { file => $simple_file,
- version => '1.23' }}); # XXX should be 2.34?
-like( $err, qr/already declared/, ' with conflicting versions reported' );
-
-
-
-############################## Multiple Modules
-
-# Multiple files with same package, no version
-# Simple.pm => Simple
-# Simple2.pm => Simple
-
-$dist->change_file( 'lib/Simple.pm', <<'---' );
-package Simple;
----
-$dist->add_file( 'lib/Simple2.pm', <<'---' );
-package Simple;
----
-$dist->regen( clean => 1 );
-$mb = new_build();
-is_deeply($mb->find_dist_packages,
- {'Simple' => { file => $simple_file }});
-$dist->remove_file( 'lib/Simple2.pm' );
-
-
-# Multiple files with same package, single version in corresponding package
-# Simple.pm => Simple v1.23
-# Simple2.pm => Simple
-
-$dist->change_file( 'lib/Simple.pm', <<'---' );
-package Simple;
-$VERSION = '1.23';
----
-$dist->add_file( 'lib/Simple2.pm', <<'---' );
-package Simple;
----
-$dist->regen( clean => 1 );
-$mb = new_build();
-is_deeply($mb->find_dist_packages,
- {'Simple' => { file => $simple_file,
- version => '1.23' }});
-$dist->remove_file( 'lib/Simple2.pm' );
-
-
-# Multiple files with same package,
-# single version in non-corresponding package
-# Simple.pm => Simple
-# Simple2.pm => Simple v1.23
-
-$dist->change_file( 'lib/Simple.pm', <<'---' );
-package Simple;
----
-$dist->add_file( 'lib/Simple2.pm', <<'---' );
-package Simple;
-$VERSION = '1.23';
----
-$dist->regen( clean => 1 );
-$mb = new_build();
-is_deeply($mb->find_dist_packages,
- {'Simple' => { file => $simple2_file,
- version => '1.23' }});
-$dist->remove_file( 'lib/Simple2.pm' );
-
-
-# Multiple files with same package, conflicting versions
-# Simple.pm => Simple v1.23
-# Simple2.pm => Simple v2.34
-
-$dist->change_file( 'lib/Simple.pm', <<'---' );
-package Simple;
-$VERSION = '1.23';
----
-$dist->add_file( 'lib/Simple2.pm', <<'---' );
-package Simple;
-$VERSION = '2.34';
----
-$dist->regen( clean => 1 );
-stderr_of( sub { $mb = new_build(); } );
-$err = stderr_of( sub { $provides = $mb->find_dist_packages } );
-is_deeply($provides,
- {'Simple' => { file => $simple_file,
- version => '1.23' }});
-like( $err, qr/Found conflicting versions for package/,
- ' with conflicting versions reported' );
-$dist->remove_file( 'lib/Simple2.pm' );
-
-
-# Multiple files with same package, multiple agreeing versions
-# Simple.pm => Simple v1.23
-# Simple2.pm => Simple v1.23
-
-$dist->change_file( 'lib/Simple.pm', <<'---' );
-package Simple;
-$VERSION = '1.23';
----
-$dist->add_file( 'lib/Simple2.pm', <<'---' );
-package Simple;
-$VERSION = '1.23';
----
-$dist->regen( clean => 1 );
-$mb = new_build();
-$err = stderr_of( sub { $provides = $mb->find_dist_packages } );
-is_deeply($provides,
- {'Simple' => { file => $simple_file,
- version => '1.23' }});
-$dist->remove_file( 'lib/Simple2.pm' );
-
-
-############################################################
-#
-# (Same as above five cases except with non-corresponding package)
-#
-
-# Multiple files with same package, no version
-# Simple.pm => Foo
-# Simple2.pm => Foo
-
-$dist->change_file( 'lib/Simple.pm', <<'---' );
-package Foo;
----
-$dist->add_file( 'lib/Simple2.pm', <<'---' );
-package Foo;
----
-$dist->regen( clean => 1 );
-$mb = new_build();
-$provides = $mb->find_dist_packages;
-ok( exists( $provides->{Foo} ) ); # it exist, can't predict which file
-$dist->remove_file( 'lib/Simple2.pm' );
-
-
-# Multiple files with same package, version in first file
-# Simple.pm => Foo v1.23
-# Simple2.pm => Foo
-
-$dist->change_file( 'lib/Simple.pm', <<'---' );
-package Foo;
-$VERSION = '1.23';
----
-$dist->add_file( 'lib/Simple2.pm', <<'---' );
-package Foo;
----
-$dist->regen( clean => 1 );
-$mb = new_build();
-is_deeply($mb->find_dist_packages,
- {'Foo' => { file => $simple_file,
- version => '1.23' }});
-$dist->remove_file( 'lib/Simple2.pm' );
-
-
-# Multiple files with same package, version in second file
-# Simple.pm => Foo
-# Simple2.pm => Foo v1.23
-
-$dist->change_file( 'lib/Simple.pm', <<'---' );
-package Foo;
----
-$dist->add_file( 'lib/Simple2.pm', <<'---' );
-package Foo;
-$VERSION = '1.23';
----
-$dist->regen( clean => 1 );
-$mb = new_build();
-is_deeply($mb->find_dist_packages,
- {'Foo' => { file => $simple2_file,
- version => '1.23' }});
-$dist->remove_file( 'lib/Simple2.pm' );
-
-
-# Multiple files with same package, conflicting versions
-# Simple.pm => Foo v1.23
-# Simple2.pm => Foo v2.34
-
-$dist->change_file( 'lib/Simple.pm', <<'---' );
-package Foo;
-$VERSION = '1.23';
----
-$dist->add_file( 'lib/Simple2.pm', <<'---' );
-package Foo;
-$VERSION = '2.34';
----
-$dist->regen( clean => 1 );
-stderr_of( sub { $mb = new_build(); } );
-$err = stderr_of( sub { $provides = $mb->find_dist_packages } );
-# XXX Should 'Foo' exist ??? Can't predict values for file & version
-ok( exists( $provides->{Foo} ) );
-like( $err, qr/Found conflicting versions for package/,
- ' with conflicting versions reported' );
-$dist->remove_file( 'lib/Simple2.pm' );
-
-
-# Multiple files with same package, multiple agreeing versions
-# Simple.pm => Foo v1.23
-# Simple2.pm => Foo v1.23
-
-$dist->change_file( 'lib/Simple.pm', <<'---' );
-package Foo;
-$VERSION = '1.23';
----
-$dist->add_file( 'lib/Simple2.pm', <<'---' );
-package Foo;
-$VERSION = '1.23';
----
-$dist->regen( clean => 1 );
-$mb = new_build();
-$err = stderr_of( sub { $provides = $mb->find_dist_packages } );
-ok( exists( $provides->{Foo} ) );
-is( $provides->{Foo}{version}, '1.23' );
-ok( exists( $provides->{Foo}{file} ) ); # Can't predict which file
-is( $err, '', ' no conflicts reported' );
-$dist->remove_file( 'lib/Simple2.pm' );
-
-############################################################
-# Conflicts among primary & multiple alternatives
-
-# multiple files, conflicting version in corresponding file
-$dist->change_file( 'lib/Simple.pm', <<'---' );
-package Simple;
-$VERSION = '1.23';
----
-$dist->add_file( 'lib/Simple2.pm', <<'---' );
-package Simple;
-$VERSION = '2.34';
----
-$dist->add_file( 'lib/Simple3.pm', <<'---' );
-package Simple;
-$VERSION = '2.34';
----
-$dist->regen( clean => 1 );
-$err = stderr_of( sub {
- $mb = new_build();
-} );
-$err = stderr_of( sub { $provides = $mb->find_dist_packages } );
-is_deeply($provides,
- {'Simple' => { file => $simple_file,
- version => '1.23' }});
-like( $err, qr/Found conflicting versions for package/,
- ' corresponding package conflicts with multiple alternatives' );
-$dist->remove_file( 'lib/Simple2.pm' );
-$dist->remove_file( 'lib/Simple3.pm' );
-
-# multiple files, conflicting version in non-corresponding file
-$dist->change_file( 'lib/Simple.pm', <<'---' );
-package Simple;
-$VERSION = '1.23';
----
-$dist->add_file( 'lib/Simple2.pm', <<'---' );
-package Simple;
-$VERSION = '1.23';
----
-$dist->add_file( 'lib/Simple3.pm', <<'---' );
-package Simple;
-$VERSION = '2.34';
----
-$dist->regen( clean => 1 );
-$err = stderr_of( sub {
- $mb = new_build();
-} );
-$err = stderr_of( sub { $provides = $mb->find_dist_packages } );
-is_deeply($provides,
- {'Simple' => { file => $simple_file,
- version => '1.23' }});
-like( $err, qr/Found conflicting versions for package/,
- ' only one alternative conflicts with corresponding package' );
-$dist->remove_file( 'lib/Simple2.pm' );
-$dist->remove_file( 'lib/Simple3.pm' );
-
-
-############################################################
-# Don't record private packages (beginning with underscore)
-# Simple.pm => Simple::_private
-# Simple.pm => Simple::_private::too
-
-$dist->change_file( 'lib/Simple.pm', <<'---' );
-package Simple;
-$VERSION = '1.23';
-package Simple::_private;
-$VERSION = '2.34';
-package Simple::_private::too;
-$VERSION = '3.45';
----
-$dist->regen( clean => 1 );
-$mb = new_build();
-is_deeply($mb->find_dist_packages,
- {'Simple' => { file => $simple_file,
- version => '1.23' }});
-
-
-############################################################
-# Files with no packages?
-
-# Simple.pm => <empty>
-
-$dist->change_file( 'lib/Simple.pm', '' );
-$dist->regen( clean => 1 );
-$mb = new_build();
-is_deeply( $mb->find_dist_packages, {} );
-
-# Simple.pm => =pod..=cut (no package declaration)
-$dist->change_file( 'lib/Simple.pm', <<'---' );
-=pod
-
-=head1 NAME
-
-Simple - Pure Documentation
-
-=head1 DESCRIPTION
-
-Doesn't do anything.
-
-=cut
----
-$dist->regen( clean => 1 );
-$mb = new_build();
-is_deeply($mb->find_dist_packages, {});
-
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/t/metadata2.t b/3.8.8/sources/cpan-Module-Build/vendor/t/metadata2.t
deleted file mode 100644
index a0fdd60..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/t/metadata2.t
+++ /dev/null
@@ -1,131 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use lib 't/lib';
-use MBTest tests => 18;
-
-blib_load('Module::Build');
-blib_load('Module::Build::ConfigData');
-
-use DistGen;
-
-
-############################## ACTION distmeta works without a MANIFEST file
-
-SKIP: {
- skip( 'YAML_support feature is not enabled', 4 )
- unless Module::Build::ConfigData->feature('YAML_support');
-
- my $dist = DistGen->new( no_manifest => 1 )->chdir_in->regen;
-
- ok ! -e 'MANIFEST';
-
- my $mb;
- stderr_of( sub { $mb = Module::Build->new_from_context } );
-
- my $out;
- $out = eval { stderr_of(sub{$mb->dispatch('distmeta')}) };
- is $@, '';
-
- like $out, qr/Nothing to enter for 'provides'/;
-
- ok -e 'META.yml';
-
-}
-
-
-############################## Check generation of README file
-
-# TODO: We need to test faking the absence of Pod::Readme when present
-# so Pod::Text will be used. Also fake the absence of both to
-# test that we fail gracefully.
-
-my $provides; # Used a bunch of times below
-
-my $pod_text = <<'---';
-=pod
-
-=head1 NAME
-
-Simple - A simple module
-
-=head1 AUTHOR
-
-Simple Simon <simon at simple.sim>
-
-=cut
----
-
-my $dist = DistGen->new->chdir_in;
-
-$dist->change_build_pl
-({
- module_name => $dist->name,
- dist_version => '3.14159265',
- license => 'perl',
- create_readme => 1,
-});
-
-# .pm File with pod
-#
-
-$dist->change_file( 'lib/Simple.pm', <<'---' . $pod_text);
-package Simple;
-$VERSION = '1.23';
----
-$dist->regen( clean => 1 );
-ok( -e "lib/Simple.pm", "Creating Simple.pm" );
-my $mb = Module::Build->new_from_context;
-$mb->do_create_readme;
-like( slurp("README"), qr/NAME/,
- "Generating README from .pm");
-is( $mb->dist_author->[0], 'Simple Simon <simon at simple.sim>',
- "Extracting AUTHOR from .pm");
-is( $mb->dist_abstract, "A simple module",
- "Extracting abstract from .pm");
-
-# .pm File with pod in separate file
-#
-
-$dist->change_file( 'lib/Simple.pm', <<'---');
-package Simple;
-$VERSION = '1.23';
----
-$dist->change_file( 'lib/Simple.pod', $pod_text );
-$dist->regen( clean => 1 );
-
-ok( -e "lib/Simple.pm", "Creating Simple.pm" );
-ok( -e "lib/Simple.pod", "Creating Simple.pod" );
-$mb = Module::Build->new_from_context;
-$mb->do_create_readme;
-like( slurp("README"), qr/NAME/, "Generating README from .pod");
-is( $mb->dist_author->[0], 'Simple Simon <simon at simple.sim>',
- "Extracting AUTHOR from .pod");
-is( $mb->dist_abstract, "A simple module",
- "Extracting abstract from .pod");
-
-# .pm File with pod and separate pod file
-#
-
-$dist->change_file( 'lib/Simple.pm', <<'---' );
-package Simple;
-$VERSION = '1.23';
-
-=pod
-
-=head1 DONT USE THIS FILE FOR POD
-
-=cut
----
-$dist->change_file( 'lib/Simple.pod', $pod_text );
-$dist->regen( clean => 1 );
-ok( -e "lib/Simple.pm", "Creating Simple.pm" );
-ok( -e "lib/Simple.pod", "Creating Simple.pod" );
-$mb = Module::Build->new_from_context;
-$mb->do_create_readme;
-like( slurp("README"), qr/NAME/, "Generating README from .pod over .pm");
-is( $mb->dist_author->[0], 'Simple Simon <simon at simple.sim>',
- "Extracting AUTHOR from .pod over .pm");
-is( $mb->dist_abstract, "A simple module",
- "Extracting abstract from .pod over .pm");
-
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/t/mymeta.t b/3.8.8/sources/cpan-Module-Build/vendor/t/mymeta.t
deleted file mode 100644
index 91a2690..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/t/mymeta.t
+++ /dev/null
@@ -1,123 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use lib 't/lib';
-use MBTest;
-plan tests => 24;
-
-blib_load('Module::Build');
-blib_load('Module::Build::YAML');
-
-my $tmp = MBTest->tmpdir;
-
-use DistGen;
-my $dist = DistGen->new( dir => $tmp );
-$dist->change_file('Build.PL', <<"---");
-use strict;
-use Module::Build;
-
-my \$builder = Module::Build->new(
- module_name => '$dist->{name}',
- license => 'perl',
- requires => {
- 'File::Spec' => ( \$ENV{BUMP_PREREQ} ? 0.86 : 0 ),
- },
-);
-
-\$builder->create_build_script();
----
-$dist->regen;
-$dist->chdir_in;
-
-#########################
-
-# Test MYMETA generation
-{
- ok( ! -e "META.yml", "META.yml doesn't exist before Build.PL runs" );
- ok( ! -e "MYMETA.yml", "MYMETA.yml doesn't exist before Build.PL runs" );
- my $output;
- $output = stdout_of sub { $dist->run_build_pl };
- like($output, qr/Creating new 'MYMETA.yml' with configuration results/,
- "Ran Build.PL and saw MYMETA.yml creation message"
- );
- ok( -e "MYMETA.yml", "MYMETA.yml exists" );
-}
-
-#########################
-
-# Test interactions between META/MYMETA
-{
- my $output = stdout_of sub { $dist->run_build('distmeta') };
- like($output, qr/Creating META.yml/,
- "Ran Build distmeta to create META.yml");
- my $meta = Module::Build::YAML->read('META.yml')->[0];
- my $mymeta = Module::Build::YAML->read('MYMETA.yml')->[0];
- is( delete $mymeta->{dynamic_config}, 0,
- "MYMETA 'dynamic_config' is 0"
- );
- is_deeply( $meta, $mymeta, "Other generated MYMETA matches generated META" );
- $output = stdout_stderr_of sub { $dist->run_build('realclean') };
- like( $output, qr/Cleaning up/, "Ran realclean");
- ok( ! -e 'Build', "Build file removed" );
- ok( ! -e 'MYMETA.yml', "MYMETA file removed" );
-
- # test that dynamic prereq is picked up
- local $ENV{BUMP_PREREQ} = 1;
- $output = stdout_of sub { $dist->run_build_pl };
- like($output, qr/Creating new 'MYMETA.yml' with configuration results/,
- "Ran Build.PL with dynamic config"
- );
- ok( -e "MYMETA.yml", "MYMETA.yml exists" );
- $mymeta = Module::Build::YAML->read('MYMETA.yml')->[0];
- isnt( $meta->{requires}{'File::Spec'},
- $mymeta->{requires}{'File::Spec'},
- "MYMETA requires differs from META"
- );
- $output = stdout_stderr_of sub { $dist->run_build('realclean') };
- like( $output, qr/Cleaning up/, "Ran realclean");
- ok( ! -e 'Build', "Build file removed" );
- ok( ! -e 'MYMETA.yml', "MYMETA file removed" );
-
- # manually change META and check that changes are preserved
- $meta->{author} = ['John Gault'];
- ok( Module::Build::YAML->new($meta)->write('META.yml'),
- "Wrote manually modified META.yml" );
-
- $output = stdout_of sub { $dist->run_build_pl };
- like($output, qr/Creating new 'MYMETA.yml' with configuration results/,
- "Ran Build.PL"
- );
- my $mymeta2 = Module::Build::YAML->read('MYMETA.yml')->[0];
- is_deeply( $mymeta2->{author}, [ 'John Gault' ],
- "MYMETA preserved META modifications"
- );
-
-
-
-}
-
-#########################
-
-# Test cleanup
-{
- my $output = stdout_stderr_of sub { $dist->run_build('distcheck') };
- like($output, qr/Creating a temporary 'MANIFEST.SKIP'/,
- "MANIFEST.SKIP created for distcheck"
- );
- unlike($output, qr/MYMETA/,
- "MYMETA not flagged by distcheck"
- );
-}
-
-
-{
- my $output = stdout_of sub { $dist->run_build_pl };
- like($output, qr/Creating new 'MYMETA.yml' with configuration results/,
- "Ran Build.PL and saw MYMETA.yml creation message"
- );
- $output = stdout_stderr_of sub { $dist->run_build('distclean') };
- ok( ! -f 'MYMETA.yml', "No MYMETA.yml after distclean" );
- ok( ! -f 'MANIFEST.SKIP', "No MANIFEST.SKIP after distclean" );
-}
-
-
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/t/parents.t b/3.8.8/sources/cpan-Module-Build/vendor/t/parents.t
deleted file mode 100644
index 825f79a..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/t/parents.t
+++ /dev/null
@@ -1,61 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use lib 't/lib';
-use MBTest tests => 26;
-
-blib_load('Module::Build');
-
-#########################
-
-package Foo;
-sub foo;
-
-package MySub1;
-use base 'Module::Build';
-
-package MySub2;
-use base 'MySub1';
-
-package MySub3;
-use base qw(MySub2 Foo);
-
-package MyTest;
-use base 'Module::Build';
-
-package MyBulk;
-use base qw(MySub2 MyTest);
-
-package main;
-
-ok my @parents = MySub1->mb_parents;
-# There will be at least one platform class in between.
-ok @parents >= 2;
-# They should all inherit from Module::Build::Base;
-ok ! grep { !$_->isa('Module::Build::Base') } @parents;
-is $parents[0], 'Module::Build';
-is $parents[-1], 'Module::Build::Base';
-
-ok @parents = MySub2->mb_parents;
-ok @parents >= 3;
-ok ! grep { !$_->isa('Module::Build::Base') } @parents;
-is $parents[0], 'MySub1';
-is $parents[1], 'Module::Build';
-is $parents[-1], 'Module::Build::Base';
-
-ok @parents = MySub3->mb_parents;
-ok @parents >= 4;
-ok ! grep { !$_->isa('Module::Build::Base') } @parents;
-is $parents[0], 'MySub2';
-is $parents[1], 'MySub1';
-is $parents[2], 'Module::Build';
-is $parents[-1], 'Module::Build::Base';
-
-ok @parents = MyBulk->mb_parents;
-ok @parents >= 5;
-ok ! grep { !$_->isa('Module::Build::Base') } @parents;
-is $parents[0], 'MySub2';
-is $parents[1], 'MySub1';
-is $parents[2], 'Module::Build';
-is $parents[-2], 'Module::Build::Base';
-is $parents[-1], 'MyTest';
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/t/perl_mb_opt.t b/3.8.8/sources/cpan-Module-Build/vendor/t/perl_mb_opt.t
deleted file mode 100644
index 70089ee..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/t/perl_mb_opt.t
+++ /dev/null
@@ -1,62 +0,0 @@
-# sample.t -- a sample test file for Module::Build
-
-use strict;
-use lib 't/lib';
-use MBTest;
-use DistGen;
-
-plan tests => 8; # or 'no_plan'
-
-# Ensure any Module::Build modules are loaded from correct directory
-blib_load('Module::Build');
-
-# create dist object in a temp directory
-# enter the directory and generate the skeleton files
-my $dist = DistGen->new->chdir_in->regen;
-
-$dist->add_file('t/subtest/foo.t', <<'END_T');
-use strict;
-use Test::More tests => 1;
-ok(1, "this is a recursive test");
-END_T
-
-$dist->regen;
-
-# get a Module::Build object and test with it
-my $mb = $dist->new_from_context(); # quiet by default
-isa_ok( $mb, "Module::Build" );
-is( $mb->dist_name, "Simple", "dist_name is 'Simple'" );
-ok( ! $mb->recursive_test_files, "set for no recursive testing" );
-
-# set for recursive testing using PERL_MB_OPT
-{
- local $ENV{PERL_MB_OPT} = "--verbose --recursive_test_files 1";
-
- my $out = stdout_stderr_of( sub {
- $dist->run_build('test');
- });
- like( $out, qr/this is a recursive test/,
- "recursive tests run via PERL_MB_OPT"
- );
-}
-
-# set Build.PL opts using PERL_MB_OPT
-{
- local $ENV{PERL_MB_OPT} = "--verbose --recursive_test_files 1";
- my $mb = $dist->new_from_context(); # quiet by default
- ok( $mb->recursive_test_files, "PERL_MB_OPT set recusive tests in Build.PL" );
- ok( $mb->verbose, "PERL_MB_OPT set verbose in Build.PL" );
-}
-
-# verify settings preserved during 'Build test'
-{
- ok( !$ENV{PERL_MB_OPT}, "PERL_MB_OPT cleared" );
- my $out = stdout_stderr_of( sub {
- $dist->run_build('test');
- });
- like( $out, qr/this is a recursive test/,
- "recursive tests run via Build object"
- );
-}
-
-# vim:ts=2:sw=2:et:sta:sts=2
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/t/ppm.t b/3.8.8/sources/cpan-Module-Build/vendor/t/ppm.t
deleted file mode 100644
index 9de28ec..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/t/ppm.t
+++ /dev/null
@@ -1,221 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use lib 't/lib';
-use MBTest;
-use Config;
-
-blib_load('Module::Build');
-blib_load('Module::Build::ConfigData');
-my $PPM_support = Module::Build::ConfigData->feature('PPM_support');
-my $manpage_support = Module::Build::ConfigData->feature('manpage_support');
-my $HTML_support = Module::Build::ConfigData->feature('HTML_support');
-
-my $tmp;
-
-{
- my ($have_c_compiler, $tmp_exec) = check_compiler();
- if ( ! $have_c_compiler ) {
- plan skip_all => 'No compiler found';
- } elsif ( ! $PPM_support ) {
- plan skip_all => 'PPM support modules not installed';
- } elsif ( !$Config{usedl} ) {
- plan skip_all => 'Perl not compiled for dynamic loading';
- } elsif ( ! $HTML_support ) {
- plan skip_all => "HTML support not installed";
- } elsif ( ! eval {require Archive::Tar} ) {
- plan skip_all => "Archive::Tar not installed to read archives.";
- } elsif ( ! eval {IO::Zlib->VERSION(1.01)} ) {
- plan skip_all => "IO::Zlib 1.01 required to read compressed archives.";
- } elsif ( $^O eq 'VMS' ) {
- plan skip_all => "Needs porting work on VMS";
- } else {
- plan tests => 12;
- }
- require Cwd;
- $tmp = MBTest->tmpdir( $tmp_exec ? () : (DIR => Cwd::cwd) );
-}
-
-
-use DistGen;
-my $dist = DistGen->new( dir => $tmp, xs => 1 );
-$dist->add_file( 'hello', <<'---' );
-#!perl -w
-print "Hello, World!\n";
-__END__
-
-=pod
-
-=head1 NAME
-
-hello
-
-=head1 DESCRIPTION
-
-Says "Hello"
-
-=cut
----
-$dist->change_build_pl
-({
- module_name => $dist->name,
- license => 'perl',
- scripts => [ 'hello' ],
-});
-$dist->regen;
-
-$dist->chdir_in;
-
-use File::Spec::Functions qw(catdir);
-
-my @installstyle = qw(lib perl5);
-my $mb = Module::Build->new_from_context(
- verbose => 0,
- quiet => 1,
-
- installdirs => 'site',
- config => {
- manpage_reset(), html_reset(),
- ( $manpage_support ?
- ( installsiteman1dir => catdir($tmp, 'site', 'man', 'man1'),
- installsiteman3dir => catdir($tmp, 'site', 'man', 'man3') ) : () ),
- ( $HTML_support ?
- ( installsitehtml1dir => catdir($tmp, 'site', 'html'),
- installsitehtml3dir => catdir($tmp, 'site', 'html') ) : () ),
- },
-);
-
-
-
-$mb->dispatch('ppd', args => {codebase => '/path/to/codebase-xs'});
-
-(my $dist_filename = $dist->name) =~ s/::/-/g;
-my $ppd = slurp($dist_filename . '.ppd');
-
-my $perl_version = Module::Build::PPMMaker->_ppd_version($mb->perl_version);
-my $varchname = Module::Build::PPMMaker->_varchname($mb->config);
-
-# This test is quite a hack since with XML you don't really want to
-# do a strict string comparison, but absent an XML parser it's the
-# best we can do.
-is $ppd, <<"---";
-<SOFTPKG NAME="$dist_filename" VERSION="0.01">
- <ABSTRACT>Perl extension for blah blah blah</ABSTRACT>
- <AUTHOR>A. U. Thor, a.u.thor\@a.galaxy.far.far.away</AUTHOR>
- <IMPLEMENTATION>
- <ARCHITECTURE NAME="$varchname" />
- <CODEBASE HREF="/path/to/codebase-xs" />
- </IMPLEMENTATION>
-</SOFTPKG>
----
-
-
-
-$mb->dispatch('ppmdist');
-is $@, '';
-
-my $tar = Archive::Tar->new;
-
-my $tarfile = $mb->ppm_name . '.tar.gz';
-$tar->read( $tarfile, 1 );
-
-my $files = { map { $_ => 1 } $tar->list_files };
-
-my $fname = 'Simple';
-$fname = DynaLoader::mod2fname([$fname]) if defined &DynaLoader::mod2fname;
-exists_ok($files, "blib/arch/auto/Simple/$fname." . $mb->config('dlext'));
-exists_ok($files, 'blib/lib/Simple.pm');
-exists_ok($files, 'blib/script/hello');
-
-SKIP: {
- skip( "manpage_support not enabled.", 2 ) unless $manpage_support;
-
- exists_ok($files, 'blib/man3/Simple.' . $mb->config('man3ext'));
- exists_ok($files, 'blib/man1/hello.' . $mb->config('man1ext'));
-}
-
-SKIP: {
- skip( "HTML_support not enabled.", 2 ) unless $HTML_support;
-
- exists_ok($files, 'blib/html/site/lib/Simple.html');
- exists_ok($files, 'blib/html/bin/hello.html');
-}
-
-$tar->clear;
-undef( $tar );
-
-$mb->dispatch('realclean');
-$dist->clean;
-
-
-SKIP: {
- skip( "HTML_support not enabled.", 3 ) unless $HTML_support;
-
- # Make sure html documents are generated for the ppm distro even when
- # they would not be built during a normal build.
- $mb = Module::Build->new_from_context(
- verbose => 0,
- quiet => 1,
-
- installdirs => 'site',
- config => {
- html_reset(),
- installsiteman1dir => catdir($tmp, 'site', 'man', 'man1'),
- installsiteman3dir => catdir($tmp, 'site', 'man', 'man3'),
- },
- );
-
- $mb->dispatch('ppmdist');
- is $@, '';
-
- $tar = Archive::Tar->new;
- $tar->read( $tarfile, 1 );
-
- $files = {map { $_ => 1 } $tar->list_files};
-
- exists_ok($files, 'blib/html/site/lib/Simple.html');
- exists_ok($files, 'blib/html/bin/hello.html');
-
- $tar->clear;
-
- $mb->dispatch('realclean');
- $dist->clean;
-}
-
-
-########################################
-
-sub exists_ok {
- my $files = shift;
- my $file = shift;
- local $Test::Builder::Level = $Test::Builder::Level + 1;
- ok exists( $files->{$file} ) && $files->{$file}, $file;
-}
-
-# A hash of all Config.pm settings related to installing
-# manpages with values set to an empty string.
-sub manpage_reset {
- return (
- installman1dir => '',
- installman3dir => '',
- installsiteman1dir => '',
- installsiteman3dir => '',
- installvendorman1dir => '',
- installvendorman3dir => '',
- );
-}
-
-# A hash of all Config.pm settings related to installing
-# html documents with values set to an empty string.
-sub html_reset {
- return (
- installhtmldir => '',
- installhtml1dir => '',
- installhtml3dir => '',
- installsitehtml1dir => '',
- installsitehtml3dir => '',
- installvendorhtml1dir => '',
- installvendorhtml3dir => '',
- );
-}
-
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/t/properties/needs_compiler.t b/3.8.8/sources/cpan-Module-Build/vendor/t/properties/needs_compiler.t
deleted file mode 100644
index f616dfc..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/t/properties/needs_compiler.t
+++ /dev/null
@@ -1,125 +0,0 @@
-# sample.t -- a sample test file for Module::Build
-
-use strict;
-use lib 't/lib';
-use MBTest;
-use DistGen;
-
-plan tests => 19;
-
-# Ensure any Module::Build modules are loaded from correct directory
-blib_load('Module::Build');
-
-my $dist = DistGen->new->regen->chdir_in;
-
-# get a Module::Build object and test with it
-my $mb;
-stderr_of(sub {
- ok( $mb = $dist->new_from_context, "Default Build.PL" );
-});
-
-ok( ! $mb->needs_compiler, "needs_compiler is false" );
-ok( ! exists $mb->{properties}{build_requires}{'ExtUtils::CBuilder'},
- "ExtUtils::CBuilder is not in build_requires"
-);
-
-#--------------------------------------------------------------------------#
-# try with c_source
-#--------------------------------------------------------------------------#
-$dist->change_build_pl({
- module_name => $dist->name,
- license => 'perl',
- c_source => 'src',
-});
-$dist->regen;
-stderr_of(sub {
- ok( $mb = $dist->new_from_context,
- "Build.PL with c_source"
- );
-});
-is( $mb->c_source, 'src', "c_source is set" );
-ok( $mb->needs_compiler, "needs_compiler is true" );
-ok( exists $mb->{properties}{build_requires}{'ExtUtils::CBuilder'},
- "ExtUtils::CBuilder was added to build_requires"
-);
-
-#--------------------------------------------------------------------------#
-# try with xs files
-#--------------------------------------------------------------------------#
-$dist = DistGen->new(dir => 'MBTest', xs => 1);
-$dist->regen;
-$dist->chdir_in;
-
-stderr_of(sub {
- ok( $mb = $dist->new_from_context,
- "Build.PL with xs files"
- );
-});
-ok( $mb->needs_compiler, "needs_compiler is true" );
-ok( exists $mb->{properties}{build_requires}{'ExtUtils::CBuilder'},
- "ExtUtils::CBuilder was added to build_requires"
-);
-
-#--------------------------------------------------------------------------#
-# force needs_compiler off, despite xs modules
-#--------------------------------------------------------------------------#
-
-$dist->change_build_pl({
- module_name => $dist->name,
- license => 'perl',
- needs_compiler => 0,
-});
-$dist->regen;
-
-stderr_of(sub {
- ok( $mb = $dist->new_from_context ,
- "Build.PL with xs files, but needs_compiler => 0"
- );
-});
-is( $mb->needs_compiler, 0, "needs_compiler is false" );
-ok( ! exists $mb->{properties}{build_requires}{'ExtUtils::CBuilder'},
- "ExtUtils::CBuilder is not in build_requires"
-);
-
-#--------------------------------------------------------------------------#
-# don't override specific EU::CBuilder build_requires
-#--------------------------------------------------------------------------#
-
-$dist->change_build_pl({
- module_name => $dist->name,
- license => 'perl',
- build_requires => { 'ExtUtils::CBuilder' => 0.2 },
-});
-$dist->regen;
-
-stderr_of(sub {
- ok( $mb = $dist->new_from_context ,
- "Build.PL with xs files, build_requires EU::CB 0.2"
- );
-});
-ok( $mb->needs_compiler, "needs_compiler is true" );
-is( $mb->build_requires->{'ExtUtils::CBuilder'}, 0.2,
- "build_requires for ExtUtils::CBuilder is correct version"
-);
-
-#--------------------------------------------------------------------------#
-# falsify compiler and test error handling
-#--------------------------------------------------------------------------#
-
-# clear $ENV{CC} so we are sure to fail to find our fake compiler :-)
-local $ENV{CC};
-
-my $err = stderr_of( sub {
- $mb = $dist->new_from_context( config => { cc => "adfasdfadjdjk" } )
-});
-ok( $mb, "Build.PL while hiding compiler" );
-like( $err, qr/no compiler detected/,
- "hidden compiler resulted in warning message during Build.PL"
-);
-eval { $mb->dispatch('build') };
-like( $@, qr/no compiler detected/,
- "hidden compiler resulted in fatal message during Build"
-);
-
-
-# vim:ts=2:sw=2:et:sta:sts=2
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/t/test_types.t b/3.8.8/sources/cpan-Module-Build/vendor/t/test_types.t
deleted file mode 100644
index bcb58c4..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/t/test_types.t
+++ /dev/null
@@ -1,174 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use lib 't/lib';
-use MBTest tests => 25;
-
-blib_load('Module::Build');
-
-use DistGen;
-
-my $dist = DistGen->new()->chdir_in;
-
-$dist->add_file('t/special_ext.st', <<'---');
-#!perl
-use Test::More tests => 2;
-ok(1, 'first test in special_ext');
-ok(1, 'second test in special_ext');
----
-
-$dist->add_file('t/another_ext.at', <<'---');
-#!perl
-use Test::More tests => 2;
-ok(1, 'first test in another_ext');
-ok(1, 'second test in another_ext');
----
-$dist->add_file('t/foo.txt', <<'---');
-#!perl
-use Test::More tests => 1;
-ok 0, "don't run this non-test file";
-die "don't run this non-test file";
----
-
-$dist->regen;
-#########################
-
-my $mb = Module::Build->subclass(
- code => q#
- sub ACTION_testspecial {
- shift->generic_test(type => 'special');
- }
-
- sub ACTION_testanother {
- shift->generic_test(type => 'another');
- }
- #
- )->new(
- module_name => $dist->name,
- test_types => {
- special => '.st',
- another => '.at',
- },
- );
-
-
-ok $mb;
-
-my $special_output = uc(stdout_of(
- sub {$mb->dispatch('testspecial', verbose => 1)}
-));
-
-like($special_output, qr/^OK 1 - FIRST TEST IN SPECIAL_EXT/m,
- 'saw expected output from first test');
-like($special_output, qr/^OK 2 - SECOND TEST IN SPECIAL_EXT/m,
- 'saw expected output from second test');
-
-my $another_output = uc(stdout_of(
- sub {$mb->dispatch('testanother', verbose => 1)}
-));
-
-ok($another_output, 'we have some test output');
-
-like($another_output, qr/^OK 1 - FIRST TEST IN ANOTHER_EXT/m,
- 'saw expected output from first test');
-like($another_output, qr/^OK 2 - SECOND TEST IN ANOTHER_EXT/m,
- 'saw expected output from second test');
-
-
-my $all_output = uc(stdout_of(
- sub {$mb->dispatch('testall', verbose => 1)}
-));
-
-0 and warn "\ntestall said >>>\n$all_output\n<<<\n";
-
-like($all_output, qr/^OK 1 - FIRST TEST IN SPECIAL_EXT/m,
- 'expected output from basic.t');
-like($all_output, qr/^OK 2 - SECOND TEST IN SPECIAL_EXT/m,
- 'expected output from basic.t');
-
-like($all_output, qr/^OK 1 - FIRST TEST IN ANOTHER_EXT/m);
-like($all_output, qr/^OK 2 - SECOND TEST IN ANOTHER_EXT/m);
-
-# we get a third one from basic.t
-is(scalar(@{[$all_output =~ m/OK 1/mg]}), 3 );
-is(scalar(@{[$all_output =~ m/OK/mg]}), 8 );
-is(scalar(@{[$all_output =~ m/ALL TESTS SUCCESSFUL\./mg]}), 1);
-
-{ # once-again
-
-$dist->revert;
-
-$dist->add_file('t/foo/special.st', <<'---');
-#!perl
-use Test::More tests => 2;
-ok(1, 'first test in special_ext');
-ok(1, 'second test in special_ext');
----
-$dist->add_file('t/foo/basic_foo.t', <<'---');
-use Test::More tests => 1;
-use strict; use Simple;
-ok 1;
----
-$dist->regen;
-
-my $mb = Module::Build->subclass(
- code => q#
- sub ACTION_testspecial {
- shift->generic_test(type => 'special');
- }
-
- sub ACTION_testanother {
- shift->generic_test(type => 'another');
- }
- #
- )->new(
- recursive_test_files => 1,
- module_name => $dist->name,
- test_types => {
- special => '.st',
- another => '.at',
- },
- );
-
-ok $mb;
-
-my $special_output = uc(stdout_of(
- sub {$mb->dispatch('testspecial', verbose => 1)}
-));
-
-like($special_output, qr/^OK 1 - FIRST TEST IN SPECIAL_EXT/m,
- 'saw expected output from first test');
-like($special_output, qr/^OK 2 - SECOND TEST IN SPECIAL_EXT/m,
- 'saw expected output from second test');
-
-my $another_output = uc(stdout_of(
- sub {$mb->dispatch('testanother', verbose => 1)}
-));
-
-ok($another_output, 'we have some test output');
-
-like($another_output, qr/^OK 1 - FIRST TEST IN ANOTHER_EXT/m,
- 'saw expected output from first test');
-like($another_output, qr/^OK 2 - SECOND TEST IN ANOTHER_EXT/m,
- 'saw expected output from second test');
-
-
-my $all_output = uc(stdout_of(
- sub {$mb->dispatch('testall', verbose => 1)}
-));
-
-like($all_output, qr/^OK 1 - FIRST TEST IN SPECIAL_EXT/m,
- 'expected output from basic.t');
-like($all_output, qr/^OK 2 - SECOND TEST IN SPECIAL_EXT/m,
- 'expected output from basic.t');
-
-like($all_output, qr/^OK 1 - FIRST TEST IN ANOTHER_EXT/m);
-like($all_output, qr/^OK 2 - SECOND TEST IN ANOTHER_EXT/m);
-
-# we get a third one from basic.t
-is(scalar(@{[$all_output =~ m/(OK 1)/mg]}), 5 );
-is(scalar(@{[$all_output =~ m/(OK)/mg]}), 13 );
-
-} # end once-again
-
-# vim:ts=4:sw=4:et:sta
diff --git a/3.8.8/sources/cpan-Module-Build/vendor/t/versions.t b/3.8.8/sources/cpan-Module-Build/vendor/t/versions.t
deleted file mode 100644
index 5eafbac..0000000
--- a/3.8.8/sources/cpan-Module-Build/vendor/t/versions.t
+++ /dev/null
@@ -1,21 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use lib 't/lib';
-use MBTest tests => 2;
-
-blib_load('Module::Build');
-
-my $tmp = MBTest->tmpdir;
-
-use DistGen;
-my $dist = DistGen->new( dir => $tmp );
-$dist->regen;
-
-#########################
-
-my @mod = split( /::/, $dist->name );
-my $file = File::Spec->catfile( $dist->dirname, 'lib', @mod ) . '.pm';
-is( Module::Build->version_from_file( $file ), '0.01', 'version_from_file' );
-
-ok( Module::Build->compare_versions( '1.01_01', '>', '1.01' ), 'compare: 1.0_01 > 1.0' );
diff --git a/3.8.8/sources/cpan-NEXT/vendor/demo/demo_actual.pl b/3.8.8/sources/cpan-NEXT/vendor/demo/demo_actual.pl
deleted file mode 100644
index 6b14624..0000000
--- a/3.8.8/sources/cpan-NEXT/vendor/demo/demo_actual.pl
+++ /dev/null
@@ -1,24 +0,0 @@
-# A B
-# / \ /
-# C D
-# \ /
-# E
-
-use NEXT;
-
-package A;
-sub foo { print "called A::foo\n"; shift()->NEXT::ACTUAL::foo() }
-
-package B;
-sub foo { print "called B::foo\n"; shift()->NEXT::ACTUAL::foo() }
-
-package C; @ISA = qw( A );
-sub foo { print "called C::foo\n"; shift()->NEXT::ACTUAL::foo() }
-
-package D; @ISA = qw(A B);
-sub foo { print "called D::foo\n"; shift()->NEXT::ACTUAL::foo() }
-
-package E; @ISA = qw(C D);
-sub foo { print "called E::foo\n"; shift()->NEXT::ACTUAL::foo() }
-
-E->foo()
diff --git a/3.8.8/sources/cpan-NEXT/vendor/demo/demo_diamond.pl b/3.8.8/sources/cpan-NEXT/vendor/demo/demo_diamond.pl
deleted file mode 100644
index 5eabaf1..0000000
--- a/3.8.8/sources/cpan-NEXT/vendor/demo/demo_diamond.pl
+++ /dev/null
@@ -1,24 +0,0 @@
-# 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()
diff --git a/3.8.8/sources/cpan-NEXT/vendor/demo/demo_unseen_actual.pl b/3.8.8/sources/cpan-NEXT/vendor/demo/demo_unseen_actual.pl
deleted file mode 100644
index b4e3f05..0000000
--- a/3.8.8/sources/cpan-NEXT/vendor/demo/demo_unseen_actual.pl
+++ /dev/null
@@ -1,24 +0,0 @@
-# A B
-# / \ /
-# C D
-# \ /
-# E
-
-use NEXT;
-
-package A;
-sub foo { print "called A::foo\n"; shift->NEXT::ACTUAL::UNSEEN::foo() }
-
-package B;
-sub foo { print "called B::foo\n"; shift->NEXT::UNSEEN::ACTUAL::foo() }
-
-package C; @ISA = qw( A );
-sub foo { print "called C::foo\n"; shift->NEXT::ACTUAL::UNSEEN::foo() }
-
-package D; @ISA = qw(A B);
-sub foo { print "called D::foo\n"; shift->NEXT::UNSEEN::ACTUAL::foo() }
-
-package E; @ISA = qw(C D);
-sub foo { print "called E::foo\n"; shift->NEXT::ACTUAL::UNSEEN::foo() }
-
-E->foo();
diff --git a/3.8.8/sources/cpan-NEXT/vendor/lib/NEXT.pm b/3.8.8/sources/cpan-NEXT/vendor/lib/NEXT.pm
deleted file mode 100644
index 1e59280..0000000
--- a/3.8.8/sources/cpan-NEXT/vendor/lib/NEXT.pm
+++ /dev/null
@@ -1,563 +0,0 @@
-package NEXT;
-$VERSION = '0.64';
-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 at 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/3.8.8/sources/cpan-NEXT/vendor/t/unseen.t b/3.8.8/sources/cpan-NEXT/vendor/t/unseen.t
deleted file mode 100644
index 5166816..0000000
--- a/3.8.8/sources/cpan-NEXT/vendor/t/unseen.t
+++ /dev/null
@@ -1,54 +0,0 @@
-use Test::More tests => 7;
-
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir('t') if -d 't';
- @INC = qw(../lib);
- }
-}
-
-BEGIN { use_ok('NEXT') };
-my $order = 0;
-
-package A;
- at ISA = qw/B C D/;
-
-sub test { ::ok(++$order==1,"test A"); $_[0]->NEXT::UNSEEN::test; 1}
-
-package B;
- at ISA = qw/D C/;
-sub test { ::ok(++$order==2,"test B"); $_[0]->NEXT::UNSEEN::test; 1}
-
-package C;
- at ISA = qw/D/;
-sub test { ::ok(++$order==4,"test C"); $_[0]->NEXT::UNSEEN::test; 1}
-
-package D;
-
-sub test { ::ok(++$order==3,"test D"); $_[0]->NEXT::UNSEEN::test; 1}
-
-package main;
-
-my $foo = {};
-
-bless($foo,"A");
-
-eval{ $foo->test }
- ? pass("Correctly survives after C")
- : fail("Shouldn't die on missing ancestor");
-
-package Diamond::Base;
-my $seen;
-sub test {
- $seen++ ? ::fail("Can't visit inherited test twice")
- : ::pass("First diamond is okay");
- shift->NEXT::UNSEEN::test;
-}
-
-package Diamond::Left; @ISA = qw[Diamond::Base];
-package Diamond::Right; @ISA = qw[Diamond::Base];
-package Diamond::Top; @ISA = qw[Diamond::Left Diamond::Right];
-
-package main;
-
-Diamond::Top->test;
diff --git a/3.8.8/sources/cpan-PPI/vendor/Changes b/3.8.8/sources/cpan-PPI/vendor/Changes
deleted file mode 100644
index 942c6f4..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/Changes
+++ /dev/null
@@ -1,1242 +0,0 @@
-Revision history for Perl extension PPI
-
-1.212 Sun 9 May 2010
- Summary:
- - Minor bug fixes and development support
-
- Details:
- - Fixed #48819: Bug in ForLoop back-compatilbilty warning
- - Added support for $ENV{X_TOKENIZER} --> $PPI::Lexer::X_TOKENIZER
-
-1.211_01 Sun 21 Feb 2010
- Summary:
- - Experimentation support and bug fixes
-
- Details:
- - Upgraded to Module::Install 0.93
- - Added support for $PPI::Lexer::X_TOKENIZER, so that alternate
- experimentatal tokenizers can be swapped in for testing.
- - Added an extra 14_charsets.t case to validate we handle byte
- order marks properly.
- - Moved author tests from t to xt to reduce spurious test failures
- in CPAN Testers, when the testing modules change across versions
- - Fixed #26082: scalar { %x } is misparsed
- - Fixed #26591: VMS patch for PPI 1.118
- - Fixed #44862: PPI cannot parse "package Foo::100;" correctly
- - Fixed #54208: PPI::Token::Quote::Literal::literal is missing due
- to case-sensitivity error
-
-1.210 Mon 15 Feb 2010
- Summary:
- - Packaging fixes
-
- Details:
- - No functional changes
- - Upgrading to Module::Install 0.93
- - Added missing test_requires dependency for Class::Inspector
-
-1.209 Sat 6 Feb 2010
- Summary:
- - Small optimisation release
-
- Details:
- - No functional changes
- - Upgrading to Module::Install 0.92
- - Moved the Test::ClassAPI test to only run during RELEASE_TESTING
- to reduce the dependency load (and occasionally Test::ClassAPI seems
- to FAIL on CPAN Testers.
-
-1.208 Thu 14 Jan 2010
- Summary:
- - THIS IS THE 100TH RELEASE OF PPI!
- - Fixes some tiny issues, otherwise unchanged from 1.207_01
-
- Details:
- - Don't assign '' to $^W, it generates a warning on Gentoo
- - Added missing PPI::Token::Regexp fix to Changes file
- - Updating Copyright to the new year (yet again)
-
-1.207_01 Thu 10 Dec 2009
- Summary:
- - This is a general bug fix and accuracy release
-
- Details:
- - Fixed #50309: literal() wrong result on "qw (a b c)"
- - PPI::Dumper no longer causes Elements to flush location data.
- Also it no longer disables location information for non-Documents.
- - +{ package => 1 } doesn't create a PPI::Statement::Package
- - PPI::Token::Regexp and PPI::Token::QuoteLike::Regexp how have methods
- for getting at the various components (delimiters, modifiers, match &
- substitution strings).
-
-1.206 Sun 9 Aug 2009
- Summary:
- - This is an optimisation release (1-2% speed up)
- (Using information uncovered by a Devel::NYTProf 3 alpha)
-
- Details:
- - Removing som superfluous 1; returns
- - Using defined and ref to avoid highly excessive calls
- to PPI::Util::TRUE
-
-1.205 Mon 3 Aug 2009
- Summary:
- - This is a production release
-
- Details:
- - No changes from 1.204_07
-
-1.204_07 Fri 31 Jul 2009
- Summary:
- - Minor tweaks
-
- Details:
- - Allow ::For and ::List to return true to ->isa(::ForLoop)
- and do a once-per-process warning when we do.
- - Fixed a bug in Class::XSAccessor prototype.
-
-1.204_06 Wed 22 Jul 2009
- Summary:
- - API Change
-
- Details:
- - Changing PPI::Structure::ForLoop to PPI::Structure::For
-
-1.204_05 Tue 21 Jul 2009
- Summary:
- - Bug fixes in preparation for production release
-
- Details:
- - There is no longer any real reason to bundle the testing modules
- except as a potential source of more bugs.
- - Removed quantifier ? on zero-length ^ in /^?for(?:each)?\z/
- - Run-time load PPI::Document instal of compile-time loading it
- - Tweak a few load orders to get PPI::Util loaded earlier.
- - Fixed location access methods on PPI::Element
- - New PPI::Statement::Include::version_literal() method.
-
-1.204_04 Thu 16 Jul 2009
- Summary:
- - Dependency tweaks
-
- Details:
- - Because we bundle Test::ClassAPI, we need to explicitly match its
- dependencies. Bumped Params::Util to 1.00.
- - Bumped a couple of deps a couple of revisions to get better XS.
-
-1.204_03 Tue 14 Jul 2009
- Summary:
- - More bug fixing, clean up, and optimisation
- - Cleaning up contributed APIs
- - Adding some demonstration classes
-
- Details:
- - Implemented PPI::Transform::UpdateCopyright
- - Removed the use of 'use base'
- - Various minor simplifications
- - Renamed PPI::Statement::Switch to ::Given
- - Renamed PPI::Structure::WhenMatch to ::When
- - Converted the Lexer internals to use exception-based error
- handling.
- - Take advantage of the removal of all those "or return undef"
- to simplify the Lexer code, remove variable declarations, and
- inline calls to several hot-code-path functions. The Lexer
- should be significantly faster (FSDO "significant").
- - The v6 key on Tokenizer broke support for Perl 5.6
- (perl thought it was a numeric v-string)
-
-1.204_02 Sun 10 May 2009
- Summary:
- - Various bug fixing and stabilisation work
- - It's a perl 5.10 extravaganza!
-
- Details:
- - Updated Module::Install to 0.87
- - Added Test::NoWarnings to the test suite
- - Added support for qw{foo} in addition to for ('foo')
- - Added support for vstrings again
- - Now supports the 5.10 "state" keyword.
- (As far as PPI is concerned it's a synonym for "my")
- - Now supports switch statements.
- - Now supports the smart match operator (~~).
- - Now supports keeping track of line numbers and file names as
- affected by the #line directive.
- - Now supports UNITCHECK blocks.
- - Statement::Include::module_version() implemented.
- - Statement::Include::arguments() implemented.
- - Statement::Variable::symbols() implemented.
- - Token::QuoteLike::Words::literal() implemented.
- - Token::Quote::Double::simplify() fixed.
- - Element line_number(), column_number(), visual_column_number(),
- logical_line_number(), and logical_filename() implemented.
- - Support for Unicode byte order marks (PPI::Token::BOM) added.
- - Token::Word::method_call() implemented.
- - Element::descendant_of() and Element::ancestor_of() implemented.
- - Statement::specialized() implemented.
- - Now can handle files named "0".
- (Perl::Critic got a complaint about this)
- - foreach loop variables can be declared using "our".
- - Much more comprehensive testing of compound statement detection.
-
-1.204_01 Sun 18 May 2008
- Summary:
- - Unicode cleanup and bug fixing
- - Taking the opportunity to do some house cleaning while the
- code base is relatively stable, before things get crazy again.
-
- Details:
- - For completeness sake, add support for empty documents
- - Moved capability detection into PPI::Util
- - POD test script now skips on install properly
- - Removed 200 lines of old dead "rawinput" code from PPI::Tokenizer
- - 100% of PPI::Tokenizer is now exception-driven
- - Workaround for "RT#35917 - charsets.t eats all available VM"
- (unicode bug in 5.8.6, works in 5.8.8)
- - Temporarily disable round-trip testing of 14_charset.t
-
-
-1.203 Wed 14 May 2008
- Summary:
- - No change, switching to production version
-
-1.202_03 Wed 14 May 2008
- Summary:
- - Initial Perl 6 support
- - Bug fixes and final 1.203 release candidate
- - I finally catch up with all the failing test cases
- that Chris Dolan keeps commiting :)
-
- Details:
- - Adding initial support for "use v6-alpha;"
- - Adding new class Perl::Statement::Include::Perl6
- - Adding a test on the KindaPerl6::Grammar,
- which triggered a bug in the tokenizer during
- CPAN::Metrics tinderboxing.
- - All open() calls now use three-argument form
- - Upgrading explicit Perl dependency to 5.006,
- because of the previous item.
- - Better support for labels, including tricky ones like "BEGIN : { ... }"
-
-1.202_02 Wed 2 Jan 2008
- Summary:
- - Back-compatibility and 1.203 release candidate
-
- Details:
- - Removing the use of use base 'Exporter';
- - Updating Test::SubCalls dep to 1.07 to get
- the use base 'Exporter' fix for that too.
-
-1.202_01 Tue 20 Nov 2007
- Summary:
- - Minor bug fix release
-
- Details:
- - RT #30469: calling length() on PPI::Token gives error
- - 14_charsets.t was incorrectly skipping in situations
- that it should have been running.
-
-1.201 Mon 22 Oct 2007
- Summary:
- - Minor bug fix release
-
- Details:
- - The internal exception class PPI::Exception::ParserTimeout was
- inheriting from itself.
-
-1.200 Mon 15 Oct 2007
- Summary:
- - Production Release
-
- Details:
- - Zero changes from 1.199_07
- - Updated version from 1.199_07 to 1.200
-
-1.199_07 Fri 12 Oct 2007
- Summary:
- - This is the third release candidate for 1.200
- - Minor tweak
-
- Details:
- - Changed the way to detect Perl 5.6 to ignore the 1_0e1_0 failure
-
-1.199_06 Wed 10 Oct 2007
- Summary:
- - This is the second release candidate for 1.200
- - Some small bug fixes
-
- Details:
- - Remove -w from test scripts to allow taint'enabled testing
- - Skip the failing 1_0e1_0 test on Perl 5.6.2
-
-1.199_05 Tue 9 Oct 2007
- Summary:
- - This is the first release candidate for 1.200
- - Fix some parser corner cases
-
- Details:
- - Fixed parsing of %!, $^\w, and %^H
- - Fixed parsing of @{$foo}-1
- - Fixed parsing of <$fh1>, <$fh2>
-
-1.199_04
- Summary:
- - Build tweaks
- - More regression changes
-
- Details:
- - Increasing List::Util dependency to 1.19
- (Removes a memory leak on Win32)
-
-1.199_03 Thu 12 Jul 2007
- Summary:
- - Support for a few more rare/legacy Perl syntax
- - Tokenizer simplification, optimization and exception'ification
-
- Details:
- - Added support for the <<\EOF heredoc style
- - Always create ->{type} in full-quote sections
- - Converted more of the Tokenizer to use exceptions
- - Optimized away a bunch of now-unneeded "or return undef"
- - Optimized _set_token_class down to a single statement
- - Inlined _set_token_class out of existance
- - Cache and fast-clone PPI::Token::Whitespace->null
- - Removed some superfluous parameter checks on private methods,
- for conditions that would cause explosions and be noticed anyway.
- - Removed the fancy options from PPI::Token::new
- - More consistent structure of incomplete quotes
-
-1.199_02 Mon 5 Mar 2007
- Summary:
- - Added parser timeout support
- - Fixing various regression cases
- - Adding some housekeeping tweaks
-
- Details:
- - Created PPI::Exception with an eye to moving towards
- using exceptions more for error handling (for speed).
- The goal is to get rid of the "or return undef"s.
- - Added the timeout param to the PPI::Document constructor
- which uses alarm to implement basic timeout support.
- This should help when parsing a large corpus on Unix.
- (Not available on Win32)
- - Fixed incorrect location() for PPI::Structure instances.
- - Adding better parsing of hash constructors.
- - Pushing Clone dependency to 0.22 to get closer to taint support)
- - Pushing deps on bundled test modules to prevent accidentally
- bundling old versions.
-
-1.199_01 Tue 31 Oct 2006
- Summary:
- - Improved lexing correctness
- - Partial implementation of literal
- - Initial implementation of Number classes (Chris Dolan)
-
- Details:
- - Split out PPI::Token::Number subclasses
- - Implement numbers with exponential notation
- - Implement literal() for ::Number classes (except ::Version)
- - Implement literal() for ::Token::Quote::Single
- - Added -T for inline tests
- - Add tests for nested statements and nested structures
- - Fixed some bugs as a result
- - Improved detection of the correct curly brace structure types
-
-1.118 Fri 22 Sep 2006
- Summary:
- - Better 5.10 support
- - Fixing various (mostly parsing) bugs
-
- Details:
- - Upgraded to Module::Install 0.64
- - Improving support for dor and added //= operators
- - Fixed parsing of binary, octal and hex numbers
- - Fixed parsing of /= and *=
- - Fixed #21571 symbol() returns just sigil with adjacent braces
- - Fixed #21575 variables() chokes on list with whitespace
- - Fixed #20480 (Misparse of some floating-point numbers.)
- - Fixed #19999: Make test fails (undeclared global variable $document) under Perl 5.6.2
- (or at least, I think I have. This needs double-checking on Perl 5.6.2)
- - Partially Fixed #16952: [PATCH] Speed up tokenizer char-by-char
- (Did not apply the patch, but fixed a bug noted as an aside in the report)
- - PPI::Document::File was returning a plain PPI::Document object, fixed.
- - FINALLY added some basic POD for PPI::Structure, the one class I somehow
- keep forgetting to do.
-
-1.117 Sat 02 Sep 2006
- Summary:
- - Fixing bugs introduced in 1.116
-
- Details:
- - Simple compound statements "{ 1 }" were not end-detecting properly
- - The new handling for the "-" character was shortcutting naively
- - Labelled compound statements were not end-detecting properly
- - { package => 1 } was treating package incorrectly
- - Fixed bugs in test cases submitted by the Perl::Critic team
- - Added a number of extra test cases, and introduced Test::Object
- based testing for PPI::Document objects.
-
-1.116 Thu 31 Aug 2006
- Summary:
- - PPI::Document::File first release
- - Adding readonly attribute
- - Fixed various accumulated bugs
-
- Details:
- - Upgraded to Module::Install 0.63
- - Add a new file-only subclass of PPI::Document
- - Added the readonly attribute to the PPI::Document->new constructor
- - Added method PPI::Document->readonly method
- - 'goto' is a PPI::Statement::Break
- - Re-fixed #19629: End of list mistakenly seen as end of statement
- - Applied #16892: [PATCH] docs and comments
- - Fixed #16815 (location of Structure::List is not defined.)
- - Fixed misparsing of C< 1-1 >
- - Fixed #18413: PPI::Node prune() implementation broken
- - Fixed #20428 (minor doc bug in PPI::Token::Symbol)
- - Resolved NOTABUG #20031 (PPI installation)
- - Resolved NOTABUG #20038 (PPI installation)
- - Fixed #19883: 'package' bareword used as hash key is detected as package statement
- - Fixed #19629: End of list mistakenly seen as end of statement
- - Fixed #15043: (no description) # He wanted PPI::Document::File
-
-1.115 Sat 03 Jun 2006
- Summary:
- - Fixing rt.cpan.org bugs
-
- Details:
- - Fixed #19614: Suspicious code in PPI::Structure
- - Fixed #16831: until () { } not parsed as compound statement
- - NOTABUG #16834: "$a = 1 if ($a == 2)" vs "$a = 1 if $a == 2"
- - Fixed #19629: End of list mistakenly seen as end of statement
- - Fixed #18413: PPI::Node prune() implementation broken
-
-1.114 Thu 25 May 2006
- Summary:
- - This release addresses only dependency issues
-
- Details:
- - Changed over from IO::Scalar to IO::String
- - Added a dependency on Task::Weaken so that we can make
- various not-so-clueful downstream packagers play nicely.
-
-1.113 Wed 10 May 2006
- Summary:
- - This release contains only build-time changes
-
- Details:
- - Upgraded to Module::Install 0.62
- - No features() used in this dist, so removing auto_install
-
-1.112 Mon 24 Apr 2006
- Summary:
- - Emergency release to fix a bug that prevents install on perl > 5.8.4
-
- Details:
- - Small typo in the unicode-specific section of 14_charsets.t
- prevents tests passing for anyone with a unicode-sane Perl version.
- - Added a test for strange locales that can't handle unicode,
- and skip the unicode tests.
-
-1.111 Sat 22 Apr 2006
- General
- - Moved from SourceForge CVS to new collaborative SVN repository
- - Fixed regressions other people had added since 1.110
- - Upgraded to Module::Install 0.62
-
- Details:
- - SourceForge was too hard to get into, so moved to specially designed
- new SVN repository to make it easy for others to help out.
- - Moved t.data to t/data in line with current style and to reduce complexity.
- - Fixed t/data/08_regression/11_multiply_vs_glob_cast (added by unknown)
- - Fixed t/data/08_regression/12_pow (added by unknown)
- - Removed every use of UNIVERSAL::isa in the tests
- - Upgraded to Module::Install 0.62 (my private prerelease)
-
-1.110 Fri Jan 27 2005
- General
- - Added test support for the third location component (Arjen Laarhoven)
- - Various bug fixes
- (Releasing early with only small changes at the request of Perl::Critic)
-
- Details:
- - Fixed CPAN #16924: PPI::Statement::Sub.pm fix to use Params::Util line to resolve _INSTANCE error
- - Fixed CPAN #16837: typo in PPI::Statement::Expression POD
- - Fixed CPAN #16973: PPI 1.109 shouldn't require List::Util 1.18
- (We do need 1.18 to avoid a leak, but it doesn't work everywhere)
- - Fixed CPAN #16814: _INSTANCE method not defined in PPI::Statement::Sub (dupe)
- - Arjen Laarhoven added to CVS committers
- - Added a third element to ->location return arrayref that contains the visual
- starting column of the token, taking into account tabbing.
-
-1.109 Fri Dec 30 2005
- Summary:
- - Various bug fixes
- - Minor structural cleanup
-
- Details:
- - Removed every single use of UNIVERSAL::isa
- - PPI::Normal was quite broken, cleaned it up
- - Fixed PPI::Normal::Standard::remove_statement_seperator
- - Fixed CPAN #16674 PPI::Token::Quote::Double->interpolations
- (awigley)
- - Fixed CPAN #15131 PPI::Node->find() behavior not completely
- documented (Jeffrey Thalhammer)
- - Fixed CPAN 13743 PPI::Statement::Scheduled api (johanl)
- - PPI::Statement::Scheduled is now a subclass of PPI::Statement::Sub
- - Removed breaking circular include in PPI::Util
- - Removed an 'our' variable in t/04_element.t that created a 5.6.0 dependency
- - Only do the PPI::Cache tests that use Test::SubCalls if >= 5.006
- - (Except for File::Remove, we should ACTUALLY depend on 5.005 now)
- - Fixed CPAN #16671 $_ is not localized (JPIERCE)
- (I missed an unlocaled $_ hiding in the Node object destructor)
-
-1.108 Thu Dec 15 2005
- Summary:
- - Fixing of some very minor bugs
-
- Details:
- - 8 wasn't an illegal character in an octal number (fixed)
- - Two <<heredocs with no content on the final line didn't round-trip (fixed)
-
-1.107 Wed Dec 14 2005
- Summary:
- - PPI is now Editor-compatible.
- - You can create a PPI::Document from random ASCII line noise!
-
- Details:
- - Added a dozen various patches to complete round-trip Tokenizer
- and Lexer support for absolutely anything (i.e. line noise)
- inside the normal set of ASCII characters used in Perl programs.
- - Does not include Latin-1 and Unicode line noise (yet).
- - Completely the 21_exhaustive.t test script.
- - Tested 21_exhaustive.t against 500,000 x 120-character
- completely random line noise Perl programs.
- (Apparently I'm still leaking 1k per document somewhere)
-
-1.106 Sun Dec 11 2005
- Summary:
- - More changes to support all possible 4-character programs
-
- Details:
- - Various fixes to weird things like *::'
-
-1.105 Sat Dec 10 2005
- Summary:
- - Improvements driven by Audrey Tang's pugs wishlist.
- (So pugs can parse Perl 5, eep)
- - Latin-1/Unicode improvements (but now requires perl >= 5.8.5)
- (not pre-checked and enforced yet, but will be)
- - Starting new generation of "exhaustive" testing
-
- Details:
- - Added 20_tokenizer_regressions, which tests all
- detectably-failing 3-or-less character long Perl programs
- (not inclusive of latin-1 or Unicode). (Audrey Tang)
- - Fixed bug for incomplete <READLINE> quotes at EOF
- (there may be a few more similar cases)
- - Fixed bug with $'0 (where 0 is only legal after ::)
- - No longer die for illegal chars in hex/bin number types
- (Attach the error to $token->{_warning} instead)
- - Caught a number of cases with trailing colons for $things
- (Both at EOF and end of token)
- - Convert [^\W\d]\w* to (?!\d)\w+ to improve unicode support
- in symbols etc (Audrey Tang)
- - Miscellaneous doc bugs in the SYNOPSIS (Audrey Tang)
-
-1.104 Thu Nov 10 2005
- General
- - No change to code
- - Both List::Util and List::MoreUtil contain memory leaks,
- and we use them extensively. Pushed the dependencies up
- to versions with the memory leaks fixed.
-
-1.103 Thu Oct 6 2005
- General
- - Small bug fix that shouldn't have escaped
-
- Details:
- - Changed md5hex_file to act more like the PPI::Documeny way.
- That is, localise and THEN convert to \015
-
-1.102 Wed Oct 5 2005
- General
- - Small things to support Perl::Metrics
-
- Details:
- - Added undocumented PPI::Util::md5hex_file function
-
-1.101 Thu Sep 29 2005
- General
- - Bug fix release
-
- Details:
- - Fixed CPAN bug #14436 and #14440, misparse for my ($foo) ...
- - Added an self-analysis test script for PPI-testable problems
- - Fixed some minor bugs it threw up.
-
-1.100_03
- General
- - Major bug fixing
- - Some additions to help simplify Perl::Metrics
-
- Details:
- - A whole bunch (practically all) of the sibling code was breaking
- under non-trivial use. Fixed, with a number of new tests added.
- - Added function PPI::Util::md5hex
- - Added method PPI::Document::hex_id
-
-1.100_02
- General
- - Various bug fixes
- - Completed the first version of PPI::Cache
-
- Details:
- - Expanded round-trip testing coverage to all the lexer and
- regression test files
- - 06_round_trip.t wasn't doing the round-trip test properly.
- Fortunately, this only resulted in false failures, so no
- actual damage was done as a result of this.
-
-1.100_01 Sat Sep 03 2005
- Summary:
- - Added integrated cache support
-
- Details:
- - Added PPI::Cache class
- - Removed warning in 99_pod.t
- - Added a common PPI::Util::_slurp function
- - PPI::Document can be given a cache to use
-
-1.003 Tue Aug 18 2005
- Summary:
- - Bug fix release
-
- Details:
- - Add support for 'for $foo () {}'
- - Add support for 'for my $foo () {}'
- - Fixed bug where "'Hello..." crashed the Tokenizer
- - Fixed bug where '"Hello...' crashed the Tokenizer
- - Fixed bug where 's' crashed the Tokenizer
-
-1.002 Thu Jul 14 2005
- Summary:
- - Bug fix release
-
- Details:
- - Fixed CPAN #13655 - insert_before and insert_after broken.
-
-1.001 Tue Jul 12 2005
- Summary:
- - Turning on Test::Inline scripts
-
- Details:
- - Bug fix: ->string returns wrong for qq <foo> and all braced quotes
- - Added Test::Inline 2.100-type inline2test.conf and inline2test.tpl files
- - Added t/ppi_token__quoteengine_full.t
- - Added t/ppi_token_quote_single.t
- - Added t/ppi_token_quote_double.t
- - Added t/ppi_token_quote_literal.t
- - Added t/ppi_token_quote_interpolate.t
-
-1.000 Sat Jul 9 2005
- Summary:
- - FIRST PRODUCTION RELEASE
- - Finalising POD, corrected the Copyright dates
- - Rewrote much of the main PPI.pm docs
- - Removing more unneeded dependencies
- - Added native Storable support
-
- Details:
- - Removed dependency on Class::Inspector
- - Added build dependency on Class::Inspector and include() it
- (although it's still needed at build time, this still does manage to
- reduce the number of files to download by one more)
- - Added PPI::Document::STORABLE_freeze and PPI::Document::STORABLE_thaw
-
-0.996 Fri Jul 8 2005
- Summary:
- - RELEASE CANDIDATE 2
- - Clearing all remaining RT bugs
- - Removing and inlining dependencies
-
- Details:
- - Resolved PDOM bug CPAN #13454 ( while ( $s = $s->sprevious_sibling ) infinite loops )
- Mental Note: Doing an auto-decrement in an array subscript is BAD
- - Resolved Lexer bug CPAN #13425 ( $p{package} creates a PPI::Statement::Package )
- Added smarts to resolve word-started statements as ::Expression in subscripts
- - Resolved PDOM bug CPAN #13326 ( problems in index_locations )
- Patch and comprehensive additional tests provided by johanl[ÄT]DarSerMan.com
- - Removed dependency on Class::Autouse. Just load Tokenizer and Lexer up front.
- - Removed dependency on File::Slurp. Only use it 3 times and it's not worth it
- when almost all the files we will read are under 50k.
-
-0.995 Sun Jul 3 2005
- Summary:
- - RELEASE CANDIDATE 1
- - Added some internals to help with XML compatibility
- - Completed primary POD docs
- - Completed first versions of insert_before and insert_after
- - Removed last uses of _isa
- - Added final missing POD docs
-
- Details:
- - Added convenience method PPI::Element::class
- - Added docs for all PPI::Structure classes
- - Added additional tests to check for ::Unknown classes
- - Added PPI::Document::insert_before to return an error
- - Added PPI::Document::insert_after to return an error
- - Added PPI::Document::replace to return an error
- - Removed a number of unneeded UNIVERSAL::isa imports
- - Removed PPI::Token::_isa before anyone starts using it.
- It was hacky and unsuitable to a production release
-
-0.994 skipped
-
-0.993 Tue Jun 21 2005
- Summary:
- - Various minor code, packaging and POD cleanups
-
- Details:
- - Corrected a POD bug in PPI::Dumper
- - Upgraded PPI::Dumper param checking to Params::Util
- - Restored PPI::Element->clone to using Clone::clone ( 0.17+ )
- - Removed dependency on Storable
- - Until it fixes the problem, explicitly include ExtUtils::AutoInstall
-
-0.992 Sun Jun 12 2005
- Summary:
- - Added the PPI::Transform API
-
-0.991 Fri Jun 10 2005
- - Typo. I wasn't dieing on newlines to PPI::Document->new( string )
- correctly, and thus dieing without the API CHANGE message.
- This was confusing people as to why.
-
-0.990 Wed Jun 8 2005
- Summary:
- - Last version (hopefully) to make API changes
- - Slight API shuffle in the constructors
- - Completed all PPI::Statement::* API documentation
- - Enabled latin-1 support in the appropriate places
-
-0.906 Thu Apr 28 2005
- Summary:
- - Completed location support and added related unit tests
- - Added API for future support of tab widths
-
- Details:
- - Removed PPI::Element::_line
- - Removed PPI::Element::_col
- - Fixed bugs in PPI::Document::index_location
- - Fixed bugs in PPI::Element::location
- - Added 12_location.t unit test
- - Added PPI::Document::tab_width method
- - Added PPI::Normal::Standard::remove_useless_attributes
- (to remove the ->{tab_width} attributes and later other things)
-
-0.905 Wed Apr 20 2005
- Summary:
- - Completely forgot to write unit tests for PPI::Util,
- and a bug slipped in. Fixed and added tests
-
- Details:
- - Fixed bug in PPI::Util::_Document
- - Added 11_util.t
-
-0.904 Wed Apr 20 2005
- Summary:
- - Improvements to PPI::Normal
- - Method renaming to parse-time PDOM private methods
- - Various bug fixes and POD tweaks
- - Added PPI::Util
-
- Details:
- - Partly added Layer 2 to PPI::Normal
- - Added function PPI::Normal::Standard::remove_useless_pragma
- - Added function PPI::Normal::Standard::remove_statement_seperator
- - Added function PPI::Normal::Standard::remove_useless_return
- - Renamed _on_line_start to __TOKENIZER__on_line_start
- - Renamed _on_line_end to __TOKENIZER__on_line_end
- - Renamed _on_char to __TOKENIZER__on_char
- - Renamed _scan_for_end to __TOKENIZER__scan_for_end
- - Renamed _commit to __TOKENIZER__commit
- - Renamed _is_an_attribute to __TOKENIZER__is_an_attribute
- - Renamed _literal to __TOKENIZER__literal
- - Renamed _opposite to __LEXER__opposite
- - Fixed bug in PPI::Statement::Package::namespace
- - Added unit tests for PPI::Statement::Package
- - Added (currently mostly internal) PPI::Util
- - Added exportable function PPI::Util::_Document
-
-0.903 Fri Mar 25 2005
- Summary:
- - PPI::Document and other PPI::Node-subclasses will now implicitly
- DESTROY correctly.
- - Now that PPI.pm is just a module loader, merge the main
- documentation from PPI::Manual back into it again.
-
- Details:
- - Added use of Scalar::Util::weaken for all %_PARENT writes
- - Uncovered critical bug in Clone, so we use Storable::dclone
- for now, until Clone is fixed.
- This resolves rt.cpan.org #11552
- - Added dependency on Storable 1.13
- - Moved all PPI::Manual content to PPI and relinked
- This resolves rt.cpan.org #11803
- - Removed lib/PPI/Manual.pod
- - Added the standard 99_pod.t to check POD
- - Fixed a POD bug in Element.pm
-
-0.902 Sun Feb 6 2005
- Summary:
- - Added Document Normalization functions from old Perl::Compare
- (although it is very very limited in function at this point)
-
- Details:
- - Added class PPI::Normal
- - Added class PPI::Normal::Standard
- - Added class PPI::Document::Normalized
- - Added method PPI::Document->normalize
- - Bug: ->clone was going to all the trouble to build a clone,
- but then returning the original :( Fixed
-
-0.901 Sat Jan 29 2005
- Summary:
- - Moved all up-to-date code over to SourceForge
- - Various fixes to allow the release of File::Find::Rule::PPI
-
- Details:
- - Got all modules synchronising their versions correctly
- - Moved to SourceForge CVS repository
- - Changed all files over to the new CVS directory layout
- - Fixed bug in PPI::Node::find_first
- - Added unit tests for PPI::Node::find_first
- - Added unit tests for PPI::Node::find_any
- - Added a stub and docs for PPI::Statement::stable
-
-0.900 Mon Jan 17 2005
- Summary:
- - Final removal of PPI::Base
- - Completed majority of crash bugs in the Tokenizer
-
- Details:
- - Fixed Tokenizer Bug C< @foo = <<EOF; > seen as ::Readline
- - Fixed Tokenizer Bug C< (<<EOF) > seen as ::Readline
- - Fixed Tokenizer Bug C< q'foo bar' > parsed incorrectly
- - Fixed bug in PPI::Token::_QuoteEngine::_scan_quote_like_operator_gap
- - Fixed Tokenizer Bug C< $foo:'<undef>' > sees symbol $foo:'
- - Fixed Tokenizer Bug C< $#arrayindex > was seen as a Symbol
- - Fixed Tokenizer Bug C< %2 > was seen as a Symbol
- - Fixed Tokenizer Bug C< &64 > was seen as a Symbol
- - Fixed Tokenizer Bug C< $::| > is actually a Magic
- - Fixed Tokenizer Bug C< @0 > is a Magic
- - Deleted PPI::Base
- - Added $PPI::Element::errstr
- - Added basic private error methods to PPI::Element
- - PPI::Element::significant now returns '' as false
- - PPI::XS - Added all C<significant> methods
-
-0.846 Mon Jan 17 2005
- Summary:
- - Added proper support for <FILE>
- - Last release before beta 1 if all looks good
-
- Details:
- - Added class PPI::Token::QuoteLike::Readline
- - Added t.data/05_lexer_practical/10_readline.code/dump
- - Added support for <>
- - A few other minor bug fixes
-
-0.845 Sat Jan 15 2005
- Summary:
- - Adding integration with PPI::XS, autoloading if installed
-
- Details:
- - Added $PPI::XS_COMPATIBLE and $PPI::XS_EXCLUDE variables to guide integration
- - Don't autoload PPI::Document, always load
- - Load in PPI::XS whenever it is installed
- - Loading and depending on Class::Inspector
- - PPI::Element::significant implemented in XS (as a trial)
-
-0.844 Fri Jan 14 2005
- Summary:
- - Found a massive performance bug when parsing large perl constructs
- - Fixed some install problems
-
- Details:
- - PPI::Node::schild was copying the entire of it's child array each call.
- This was causing massive slowdowns when ->{children} got large. Fixed.
- - The core tests still expect Transform to be in the core. Fixed.
-
-0.843 Tue Jan 12 2005
- Summary:
- - Starting the process of removing PPI::Base.
- It only does does error handling now, which will be split up.
- - Fixing some packaging and "play well with others" issues
-
- Details:
- - Randal Schwartz pointed out t/06... wouldn't working for him.
- It appears when Test::More bug CPAN #8385 was fixed, we broke.
- - We now include build-time-only dependencies in the installer
- - Although unusable, PPI::Document::Normalized's version fell out
- of sync with the rest of the distribution. Fixed.
- - PPI::Tokenizer no longer inherits from PPI::Base
- - Added class variable $PPI::Tokenizer::errstr
- - Added class method PPI::Tokenizer->errstr
- - Fixed Tokenizer Bug: C< y => 1 > was being seen as a regex
- - Fixed Tokenizer Bug: C< <<''; > was dying because I expected at
- least one character
- - Fixed Tokenizer Bug: C< $foo->{s} > was being seen as a regex
-
-0.842 Tue Jan 11 2005
- Summary:
- - Lots of debugging based on Tinderbox results
-
- Details:
- - Fixed MANIFEST.SKIP to removed PPI::Transform and PPI::Tinderbox
- from the core PPI distribution (like they should be)
- - Optimised the previous #9582 to not have to run for EVERY word,
- only those where it might be needed.
- - Corrected a use of QuoteLike::Execute to QuoteLike::Backtick
- - Fixed CPAN #9598 Tokenizer Bug: C< qx( $command ) >
- - Fixed CPAN #9614 Tokenizer Bug: C< $foo << 16 >
- - Set the properly includive regex for << '...' here-doc
- - Added an very early filter to prevent non-basic chars going in
-
-0.841 Mon Jan 10 2005
- Summary:
- - Completed much more documentation on the core classes
- - PPI::Tester back in sync again (seperate distribution)
- - PPI::Processor and PPI::Tinderbox completed (seperate distribution)
-
- Details:
- - Documented PPI::Tokenizer
- - PPI::Document->new( $source ) added as a convenience
- - PPI::Lexer::lex_file can now be called statically
- - PPI::Lexer::lex_source can now be called statically
- - PPI::Lexer::lex_tokenizer can now be called statically
- - Fixed a small bug in PPI::Dumper::print
- - Fixed CPAN #9582 Tokenizer Bug: C< sub y { } # Comment >
- - Fixed similar case with C< foo->y() >
-
-0.840 Thu Dec 21 2004
- Summary:
- - Changed the PPI summary to no longer use the devisive word "parse"
- Now: "PPI - Analyze and manipulate Perl code without using perl itself"
- - Total rewrite of all the ->location code
- - Upgrading MakeFile.PL to Module::Install
- - Fixed #CPAN 8752 (a round-trip edge case bug)
- - Added 08_regression.t to do code/dump regression testing for lexer bugs
- - Completed (hopefully) HereDocs conversion to a single complex token
- - PPI is now compatible with prefork.pm (although not dependant)
-
- Details:
- - Added PPI::Node::find_first object method
- - Changed PPI::Node::find_any to just call PPI::Node::find_first
- - Added PPI::Element::first_token object method
- - Added PPI::Element::last_token object method
- - Made a partial-removal-capable PPI::Element::_flush_locations
- - PPI::Document::flush_locations uses PPI::Element::_flush_locations
- - PPI::Document::index_locations is here-doc sane
- - Added PPI::Token::HereDoc::heredoc object method
- - Added PPI::Token::HereDoc::terminator object method
- - Documented PPI::Token::HereDoc
- - Added a HereDoc code/dump test to 05_lexer_practical.t
- - Added PPI::Document::serialize, which replaces the use of
- ->content for generating the actual string to write out to
- files when saving Documents.
- - File::Spec reduced from dependency to build dependency
- - Updated Test::ClassAPI dependency to newest version
- - Enabled API collision detection in 02_api.t
- - Updated Class::Autouse dependency to newest version
-
-0.840_01 Tue Dec 21 2004
- Summary:
- - Perl Foundation Funding Commences
- - Changes separated into General and Details from here on
- - Complete re-organisation of the quote-like token classes.
- Any and all code that works with quotes will be broken.
- - Gave up on the old PPI::Query code and wrote a complete new and
- much thinner implementation based roughly on the API of
- File::Find::Rule.
- PPI::Find uses the &wanted function (which also has a slightly
- different API to the old one) but has the ->in style search methods.
- It should be relatively easy for someone to write PPI::Find::Rule
- on top of it.
- - PPI::Transform is thus temporarily stale
-
- Details:
- - Introduced a bug for C< foreach $foo () > and caught/fixed it
- during the changeover.
- - Changed PPI::Lexer::Dump to PPI::Dumper
- - API Freeze PPI::Find
- - API Freeze PPI::Dumper
- - Documented PPI::Find
- - Documented PPI::Dumper
-
-0.831 Fri Nov 5 2004
- - Overloaded PPI::Document bool => true
- - Overloaded PPI::Document "" => content
- (That is, ::Documents stringify to their content)
- - Fixed PPI::Document::save
- - Merged Leon Brocard's docs patch
- - Cleaned up PPI::Node::_condition and documented conditions better (fixed #7799)
- - Allow dropping of the initial PPI:: in class search conditions
- - Fixed two instances of File::Slurp::read_file being called as a method
-
-0.830 Mon Sep 27 2004
- - Added PPI::Statement::Package::file_scoped object method
- - Handle potentially dangerous C< sub foo ($$ > safer
- - Resolve C< sub BEGIN { } > to PPI::Statement::Scheduled correctly
- - Resolve C< sub () { 1 }; > to PPI::Statement correctly
- - API Freeze PPI::Statement::Package
- - API Freeze PPI::Statement::Scheduled
- - API Freeze PPI::Statement::Sub
- - Documented PPI::Statement
- - Documented PPI::Statement::Package
- - Documented PPI::Statement::Scheduled
- - Documented PPI::Statement::Sub
- - Documented PPI::Document::Fragment
-
-0.829 Sat Sep 25 2004
- - BREAKS API COMPATIBILITY
- - Changed PPI::Token::SubPrototype to PPI::Token::Prototype
- - Added PPI::Token::Prototype::prototype object method
- - Added PPI::Statement::Sub::prototype object method
- - Added PPI::Statement::Sub::block object method
- - Fixed PPI::Statement::Include::version
-
-0.828 Sun Aug 8 2004
- - BREAKS API COMPATIBILITY
- - Changed PPI::Token::DashedBareword to PPI::Token::Quote::Dashed
- - Changed PPI::Token::Bareword to PPI::Token::Word
- - Vastly improved PPI::Manual
-
-0.827 Thu Aug 5 2004
- - Added PPI::Token::Seperator class ( for __DATA__ and __END__ )
- - Added better Tokenizer handling of __DATA__ and __END__
- - Added better Lexer handling of __DATA__ and __END__
- - Fixed some version inconsistencies
-
-0.826 Sat Jul 31 2004
- - Added PPI::Element::statement object method
- - Added PPI::Transform abstract class
- - Sped up the 'bool' overload for PPI::Element
- - Added PPI::Element::snext_sibling object method
- - Added PPI::Element::sprevious_sibling object method
- - Added PPI::Element::insert_before object method placeholder
- - Added PPI::Element::insert_after object method placeholder
- - Changed {elements} to {children} to match PPI::Node definitions
- - Added PPI::Node::first_element object method
- - Added PPI::Node::last_element object method
- - Added PPI::Element::next_token object method
- - Added PPI::Element::previous_token object method
- - Added PPI::Token::Symbol::symbol object method
-
-0.825 Mon Jul 26 2004
- - Added PPI::Statement::Include::type object method
- - Added PPI::Statement::Include::module object method
- - Added PPI::Statement::Include::pragma object method
- - Added PPI::Statement::Include::version object method
- - Overloaded == as "the same object" for PPI::Element
- - Overloaded eq as "->content is the same" for PPI::Element
- - Overloaded bool as always true, to prevent an error
- - Added PPI::Statement::Package::namespace object method
- - 100% round-trip safe. What goes in, will come out.
- - Reduced leaks by 95%. Process size 30meg after 5000 files.
- Still some leaks remaining when Lexing errors out.
- - Seperated largest Tokens into their own files.
- This aligns token class structure with that of ::Statement and ::Structure
- - Rewrote PPI::Node::DESTROY several times while hunting down more leaks
- - Fixed Tokenizer crash on empty subroutine prototypes such as C< sub foo() {} >
- - Treat unexpected braces as an implicit close, to make the lexer more resilient
- - Added PPI::Statement::UnmatchedBrace (name suggested by Abhijit Menon-Sen)
- to handle closing braces found at the base of a Document.
- - Enabled foo'bar package notation again.
- - Getting close to the first 0.900 series beta release
-
-0.824 Wed Jul 21 2004
- - Removed a 6 meg tmon.out file I accidentally bundled
-
-0.823 Wed Jul 21 2004
- - Added PPI::Document::Fragment class
- - Added PPI::Node::schildren object method
- - Completed compound statement parsing
- - Lexer is now officially feature complete
-
-0.822 Wed Jul 21 2004
- - Filling out the API test as much as possible
- - Added PPI::Statement::label object method
- - Moved PPI::Structure::elements object method to PPI::Node::elements
- - Re-organised statement parsing to better implement ::Compound statements
- - Added PPI::Statement::Data class
- - Added PPI::Statement::End class
- - Re-organised the _lex_statement, _statement_continues stuff, ready for while
- - Added PPI::Lexer::_lex_statement_end to handle PPI::Statement::End properly
- - Organising 02_api.t was getting hard, so added implicit Module=class to Test::ClassAPI
-
-0.821 Mon Jul 19 2004
- - Cleaned up test data files directories
- - Added PPI::Statement::Variable::type object method
- - Added PPI::Statement::Variable::variables object method
- - Added some more classes to the API testing
- - Started 07_tokens.t for testing particular token classes
- - Added PPI::Token::Symbol::canonical object method (and tests)
- - PPI::Token::Magic now ISA PPI::Token::Symbol
- - PPI::Element::clone now fixes _PARENT links for Nodes
-
-0.820 Mon Jul 19 2004
- - Added Round-Trip-Safe testing for all PPI files
- - Added PPI::Node::find_any object method
- - Added PPI::Node::contains object method
- - Continuing the never ending addition of tests
- - Structure open and close brace tokens now see the Structure as their parent
- - Removed the sample application, to streamline the core install
- - Removed dependencies for the sample application
- - Removed custom META.yml, as now no longer needed
-
-0.819 Mon Jul 14 2004
- - Many parts of PPI are VASTLY changed in this revision
- - Breaks API compatibility heavily
- - Adds dependency on List::MoreUtils
- - Added PPI::Lexer support for CHECK blocks
- - Added PPI::Document::load method
- - Added PPI::Document::save method
- - Added PPI::Document::index_locations method
- - Added PPI::Document::flush_locations method
- - Added PPI::Element::top method
- - Added PPI::Element::document method
- - Renamed PPI::Element::extract -> PPI::Element::remove
- - Added test script for element-y stuff
- - Optimisation across the board using List::Any
- - Added PPI::Node::first_child method
- - Added PPI::Node::last_child method
- - Added PPI::Element::clone method
- - Removed Filehandle support from PPI::Tokenizer, to allow the
- ability to rollback source lines into the buffer if needed.
- - Added POD documentation for PPI::Element
- - Added POD documentation for PPI::Node
- - Added POD documentation for PPI::Document
-
-0.818 Mon Jul 5 2004
- - Changed lib/PPI/Manual.pm to lib/PPI/Manual.pod
- - Added documentation for PPI::Lexer
- - Fixed the misparsing of s{//}{\}
- - More clues added for deciding "slash or regex"
- - Removed PPI::Batch from the default distribution
- - Replaced File::Flat with File::Slurp to reduce dependencies
-
-0.817 Thu Jul 1 2004
- - Fixed the misparsing of $#{ }
- - Changed PPI::ParentElement to PPI::Node and moved it to it's own file
- - Changed PPI::Common to PPI::Base
- - Fixed PPI::Node::find
- - Added PPI::Node::prune
- - Started to add a little more class structure documentation
- - Tried to make the DESTROY sequence of events work better
-
-0.816 Tue Jun 29 2004
- - Solved the "last token in file parses wrong" bug
-
-0.815 Sun Jun 27 2004
- - Fixed a bug with the detection of @- and @+
- - Added support for @*
- - Added missing classmap entry for ^ to ::Token::WhiteSpace
- - Added support for arcane "foo"x10 idiosyncracy
-
-0.814 Sat Jun 26 2004
- - Added the PPI tester, a desktop-based interactive debugger, which
- should greatly accelerate finding and fixing both ::Tokenizer
- and ::Lexer bugs. This will probably end up as a seperate
- distribution though, as it has a dependency on wxPerl.
-
- - Fixed the misparsing of Foo::Bar::Baz
- - Fixed the misparsing of *100
- - Fixed the misparsing of Class::->method properly, or rather Foo::
- - Tokenizer correctly identifies labels
- - Changed PPI::Statement::Flow to PPI::Statement::Compound
- - Removed the extra null whitespace token appearing after a bareword
- at the end of a file.
- - -X operator are recognised correctly, although not at end of file
- - Lexer detects subroutine and if () statement ends correctly
-
-0.813 Sat Jun 26 2004
- - PPI::Lexer is now structurally complete
-
-0.812 Tue Jun 22 2004
- - No changes to PPI itself.
- - With the addition of Test::ClassAPI 'complete' support,
- upgraded 02_api.t to use it. Fixed a few small house-keeping bugs.
-
-0.811 Mon Jun 21 2004
- - Added support for subroutine attributes
- - Fixed some problems with anonymous subroutines and prototypes
- - $#$foo parses as (Cast,Symbol) now, not (Magic,Symbol)
-
-0.810 Mon Jun 14 2004
- - Recognise the _ magic filehandle
-
-0.809 Sat Apr 17 2004
- - No changes to PPI itself.
- Set the correct number of tests to match changes to Test::ClassAPI
-
-0.808 Sat Apr 17 2004
- - No changes to PPI itself.
- Upgraded 02_api.t to match changes to Test::ClassAPI
-
-0.807 Sat Apr 3 2004
- - Added a manual META.yml file to stop the bundled private AppLib
- library from being indexed by CPAN
-
-0.806 Mon Mar 22 2004
- - The $} magic variable is now supported
- - Fixed a "tight sub property" bug ( sub foo:lvalue )
-
-0.805 Sun Sep 28 2003
- - The maximum line length regressed, reseting it to 5000.
- - In PPI::Format::HTML, not any parsing error causing a
- premature end of tokenizer by adding it in a comment at
- the end of the file.
-
-0.804 Sat Sep 06 2003
- - Statement and Structure resolution preliminarily work.
- Some basic types of statements and structures are identified.
- - PPI::Format::Apache has been seperated into a different module
-
-0.803 Sat Sep 06 2003
- - Added very long line protection support.
- Maximum line length is now 5000.
- - Added bug fixes to the Lexer so that block tree building works
- mostly OK again, without adding broken duplicate tokens.
- - Added the PPI::Lexer::Dump module, to do Lexer object dumps.
-
-0.802 Sat Aug 23 2003
- - PPI::Format::HTML sends the correct content headers
-
-0.801 Fri Aug 22 2003
- - Moved to a new numbering scheme to get more room before 1.0
- - Always fully load when called under mod_perl
- - Add mod_perl hook to PPI::Format::HTML
-
-0.8 Fixes to the quote parsing engine
-
-0.7 Fixed some minor bugs
-
-0.6 Fixed POD, fixed version number, included $'a as a symbol
-
-0.5 Missing
-
-0.4 Mon Dec 23 10:24:21
- - Some more minor parsing fixes in Tokenizer
- - Completely changed the API from doThis to do_this style
- - Changed API to indicate private methods properly
-
-0.3 Tue Dec 17 10:29:27
- - Restructured a little bit
- - Fixed some mis-parsing cases
-
-0.2 Unknown
- - Added test script
-
-0.1 Thu Dec 06 16:50:23 2002
- - original version
diff --git a/3.8.8/sources/cpan-PPI/vendor/LICENSE b/3.8.8/sources/cpan-PPI/vendor/LICENSE
deleted file mode 100644
index 05e86e0..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/LICENSE
+++ /dev/null
@@ -1,378 +0,0 @@
-
-Terms of Perl itself
-
-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"
-
-----------------------------------------------------------------------------
-
-The General Public License (GPL)
-Version 2, June 1991
-
-Copyright (C) 1989, 1991 Free Software Foundation, Inc. 675 Mass Ave,
-Cambridge, MA 02139, USA. Everyone is permitted to copy and distribute
-verbatim copies of this license document, but changing it is not allowed.
-
-Preamble
-
-The licenses for most software are designed to take away your freedom to share
-and change it. By contrast, the GNU 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. This General Public License applies to most of
-the Free Software Foundation's software and to any other program whose
-authors commit to using it. (Some other Free Software Foundation software is
-covered by the GNU Library General Public License instead.) You can apply it to
-your programs, too.
-
-When we speak of free software, we are referring to freedom, not price. Our
-General Public Licenses are designed to make sure that you have the freedom
-to distribute copies of free software (and charge for this service if you wish), 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 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 show
-them these terms so they know 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.
-
-Finally, any free program is threatened constantly by software patents. We wish
-to avoid the danger that redistributors of a free program will individually obtain
-patent licenses, in effect making the program proprietary. To prevent this, we
-have made it clear that any patent must be licensed for everyone's free use or
-not licensed at all.
-
-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 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
-derivative work under copyright law: that is to say, a work containing the
-Program or a portion of it, either verbatim or with modifications and/or translated
-into another language. (Hereinafter, translation is included without limitation in
-the term "modification".) Each licensee is addressed as "you".
-
-Activities other than copying, distribution and modification are not covered by
-this License; they are outside its scope. The act of running the Program is not
-restricted, and the output from the Program is covered only if its contents
-constitute a work based on the Program (independent of having been made by
-running the Program). Whether that is true depends on what the Program does.
-
-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 License and to the absence of any
-warranty; and give any other recipients of the Program a copy of this License
-along with the Program.
-
-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.
-
-2. You may modify your copy or copies of the Program or any portion of it, thus
-forming a work based on the Program, and copy and distribute such
-modifications or work under the terms of Section 1 above, provided that you also
-meet all of these conditions:
-
-a) You must cause the modified files to carry prominent notices stating that you
-changed the files and the date of any change.
-
-b) You must cause any work that you distribute or publish, that in whole or in
-part contains or is derived from the Program or any part thereof, to be licensed
-as a whole at no charge to all third parties under the terms of this License.
-
-c) If the modified program normally reads commands interactively when run, you
-must cause it, when started running for such interactive use in the most ordinary
-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 License. (Exception: if the
-Program itself is interactive but does not normally print such an announcement,
-your work based on the Program is not required to print an announcement.)
-
-These requirements apply to the modified work as a whole. If identifiable
-sections of that work are not derived from the Program, and can be reasonably
-considered independent and separate works in themselves, then this License,
-and its terms, do not apply to those sections when you distribute them as
-separate works. But when you distribute the same sections as part of a whole
-which is a work based on the Program, the distribution of the whole must be on
-the terms of this License, whose permissions for other licensees extend to the
-entire whole, and thus to each and every part regardless of who wrote it.
-
-Thus, it is not the intent of this section to claim rights or contest your rights to
-work written entirely by you; rather, the intent is to exercise the right to control
-the distribution of derivative or collective works based on the Program.
-
-In addition, mere aggregation of another work not based on the Program with the
-Program (or with a work based on the Program) on a volume of a storage or
-distribution medium does not bring the other work under the scope of this
-License.
-
-3. You may copy and distribute the Program (or a work based on it, under
-Section 2) in object code or executable form under the terms of Sections 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 Sections 1 and 2 above on a
-medium customarily used for software interchange; or,
-
-b) Accompany it with a written offer, valid for at least three years, to give any
-third party, for a charge no more than your cost of physically performing source
-distribution, a complete machine-readable copy of the corresponding source
-code, to be distributed under the terms of Sections 1 and 2 above on a medium
-customarily used for software interchange; or,
-
-c) Accompany it with the information you received as to the offer to distribute
-corresponding source code. (This alternative is allowed only for noncommercial
-distribution and only if you received the program in object code or executable
-form with such an offer, in accord with Subsection b above.)
-
-The source code for a work means the preferred form of the work for making
-modifications to it. For an executable work, complete source code means all the
-source code for all modules it contains, plus any associated interface definition
-files, plus the scripts used to control compilation and installation of the
-executable. However, as a special exception, the source code distributed need
-not include anything that is normally distributed (in either source or binary form)
-with the major components (compiler, kernel, and so on) of the operating system
-on which the executable runs, unless that component itself accompanies the
-executable.
-
-If distribution of executable or object code is made by offering access to copy
-from a designated place, then offering equivalent access to copy the source
-code from the same place counts as distribution of the source code, even though
-third parties are not compelled to copy the source along with the object code.
-
-4. You may not copy, modify, sublicense, or distribute the Program except as
-expressly provided under this License. Any attempt otherwise to copy, modify,
-sublicense or distribute the Program is void, and will automatically terminate
-your rights under this License. However, parties who have received copies, or
-rights, from you under this License will not have their licenses terminated so long
-as such parties remain in full compliance.
-
-5. You are not required to accept this License, since you have not signed it.
-However, nothing else grants you permission to modify or distribute the Program
-or its derivative works. These actions are prohibited by law if you do not accept
-this License. Therefore, by modifying or distributing 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 for copying, distributing or modifying the
-Program or works based on it.
-
-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. You are not responsible for enforcing compliance by third parties
-to this License.
-
-7. If, as a consequence of a court judgment or allegation of patent infringement
-or for any other reason (not limited to patent issues), conditions are imposed on
-you (whether by court order, agreement or otherwise) that contradict the
-conditions of this License, they do not excuse you from the conditions of this
-License. If you cannot distribute so as to satisfy simultaneously your obligations
-under this License and any other pertinent obligations, then as a consequence
-you may not distribute the Program at all. For example, if a patent license would
-not permit royalty-free redistribution of the Program by all those who receive
-copies directly or indirectly through you, then the only way you could satisfy
-both it and this License would be to refrain entirely from distribution of the
-Program.
-
-If any portion of this section is held invalid or unenforceable under any particular
-circumstance, the balance of the section is intended to apply and the section as
-a whole is intended to apply in other circumstances.
-
-It is not the purpose of this section to induce you to infringe any patents or other
-property right claims or to contest validity of any such claims; this section has
-the sole purpose of protecting the integrity of the free software distribution
-system, which is implemented by public license practices. Many people have
-made generous contributions to the wide range of software distributed through
-that system in reliance on consistent application of that system; it is up to the
-author/donor to decide if he or she is willing to distribute software through any
-other system and a licensee cannot impose that choice.
-
-This section is intended to make thoroughly clear what is believed to be a
-consequence of the rest of this License.
-
-8. If the distribution and/or use of the Program is restricted in certain countries
-either by patents or by copyrighted interfaces, the original copyright holder who
-places the Program under this License may add an explicit geographical
-distribution limitation excluding those countries, so that distribution is permitted
-only in or among countries not thus excluded. In such case, this License
-incorporates the limitation as if written in the body of this License.
-
-9. 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 this 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 this License, you may choose any version ever
-published by the Free Software Foundation.
-
-10. 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
-
-11. 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.
-
-12. 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
-
-
-----------------------------------------------------------------------------
-
-The Artistic License
-
-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.
-
-Definitions:
-
-- "Package" refers to the collection of files distributed by the Copyright
- Holder, and derivatives of that collection of files created through textual
- modification.
-- "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.
-- "Copyright Holder" is whoever is named in the copyright or copyrights for
- the package.
-- "You" is you, if you're thinking about copying or distributing this Package.
-- "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.)
-- "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.
-
-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.
-
-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.
-
-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:
-
- 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 ftp.uu.net, or by allowing the
- Copyright Holder to include your modifications in the Standard
- Version of the Package.
-
- b) use the modified Package only within your corporation or
- organization.
-
- 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.
-
- d) make other distribution arrangements with the Copyright Holder.
-
-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:
-
- 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.
-
- b) accompany the distribution with the machine-readable source of
- the Package with your modifications.
-
- c) accompany any non-standard executables with their
- corresponding Standard Version executables, giving the
- non-standard executables non-standard names, and clearly
- documenting the differences in manual pages (or equivalent),
- together with instructions on where to get the Standard Version.
-
- d) make other distribution arrangements with the Copyright Holder.
-
-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.
-
-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 whomever generated them, and may be sold
-commercially, and may be aggregated with this Package.
-
-7. C or perl subroutines supplied by you and linked into this Package shall not
-be considered part of this Package.
-
-8. The name of the Copyright Holder may not be used to endorse or promote
-products derived from this software without specific prior written permission.
-
-9. 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.
-
-The End
-
-
diff --git a/3.8.8/sources/cpan-PPI/vendor/META.yml b/3.8.8/sources/cpan-PPI/vendor/META.yml
deleted file mode 100644
index 26f5f42..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/META.yml
+++ /dev/null
@@ -1,43 +0,0 @@
----
-abstract: 'Parse, Analyze and Manipulate Perl (without perl)'
-author:
- - 'Adam Kennedy <adamk at cpan.org>'
-build_requires:
- Class::Inspector: 1.22
- ExtUtils::MakeMaker: 6.42
- File::Remove: 1.42
- Test::More: 0.86
- Test::NoWarnings: 0.084
- Test::Object: 0.07
- Test::SubCalls: 1.07
-configure_requires:
- ExtUtils::MakeMaker: 6.42
-distribution_type: module
-generated_by: 'Module::Install version 0.95'
-license: perl
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
-module_name: PPI
-name: PPI
-no_index:
- directory:
- - inc
- - t
- - xt
-requires:
- Clone: 0.30
- Digest::MD5: 2.35
- File::Spec: 0.84
- IO::String: 1.07
- List::MoreUtils: 0.16
- List::Util: 1.20
- Params::Util: 1.00
- Storable: 2.17
- Task::Weaken: 0
- perl: 5.6.0
-resources:
- ChangeLog: http://fisheye2.atlassian.com/changelog/cpan/trunk/PPI
- license: http://dev.perl.org/licenses/
- repository: http://svn.ali.as/cpan/trunk/PPI
-version: 1.212
diff --git a/3.8.8/sources/cpan-PPI/vendor/README b/3.8.8/sources/cpan-PPI/vendor/README
deleted file mode 100644
index e14c966..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/README
+++ /dev/null
@@ -1,769 +0,0 @@
-NAME
- PPI - Parse, Analyze and Manipulate Perl (without perl)
-
-SYNOPSIS
- use PPI;
-
- # Create a new empty document
- my $Document = PPI::Document->new;
-
- # Create a document from source
- $Document = PPI::Document->new(\'print "Hello World!\n"');
-
- # Load a Document from a file
- $Document = PPI::Document->new('Module.pm');
-
- # Does it contain any POD?
- if ( $Document->find_any('PPI::Token::Pod') ) {
- print "Module contains POD\n";
- }
-
- # Get the name of the main package
- $pkg = $Document->find_first('PPI::Statement::Package')->namespace;
-
- # Remove all that nasty documentation
- $Document->prune('PPI::Token::Pod');
- $Document->prune('PPI::Token::Comment');
-
- # Save the file
- $Document->save('Module.pm.stripped');
-
-DESCRIPTION
- About this Document
- This is the PPI manual. It describes its reason for existing, its
- general structure, its use, an overview of the API, and provides a few
- implementation samples.
-
- Background
- The ability to read, and manipulate Perl (the language) programmatically
- other than with perl (the application) was one that caused difficulty
- for a long time.
-
- The cause of this problem was Perl's complex and dynamic grammar.
- Although there is typically not a huge diversity in the grammar of most
- Perl code, certain issues cause large problems when it comes to parsing.
-
- Indeed, quite early in Perl's history Tom Christenson introduced the
- Perl community to the quote *"Nothing but perl can parse Perl"*, or as
- it is more often stated now as a truism:
-
- "Only perl can parse Perl"
-
- One example of the sorts of things the prevent Perl being easily parsed
- are function signatures, as demonstrated by the following.
-
- @result = (dothis $foo, $bar);
-
- # Which of the following is it equivalent to?
- @result = (dothis($foo), $bar);
- @result = dothis($foo, $bar);
-
- The first line above can be interpreted in two different ways, depending
- on whether the &dothis function is expecting one argument, or two, or
- several.
-
- A "code parser" (something that parses for the purpose of execution)
- such as perl needs information that is not found in the immediate
- vicinity of the statement being parsed.
-
- The information might not just be elsewhere in the file, it might not
- even be in the same file at all. It might also not be able to determine
- this information without the prior execution of a "BEGIN {}" block, or
- the loading and execution of one or more external modules. Or worse the
- &dothis function may not even have been written yet.
-
- When parsing Perl as code, you must also execute it
-
- Even perl itself never really fully understands the structure of the
- source code after and indeed as it processes it, and in that sense
- doesn't "parse" Perl source into anything remotely like a structured
- document. This makes it of no real use for any task that needs to treat
- the source code as a document, and do so reliably and robustly.
-
- For more information on why it is impossible to parse perl, see Randal
- Schwartz's seminal response to the question of "Why can't you parse
- Perl".
-
- <http://www.perlmonks.org/index.pl?node_id=44722>
-
- The purpose of PPI is not to parse Perl *Code*, but to parse Perl
- *Documents*. By treating the problem this way, we are able to parse a
- single file containing Perl source code "isolated" from any other
- resources, such as libraries upon which the code may depend, and without
- needing to run an instance of perl alongside or inside the parser.
-
- Historically, using an embedded perl parser was widely considered to be
- the most likely avenue for finding a solution to "Parse::Perl". It was
- investigated from time to time and attempts have generally failed or
- suffered from sufficiently bad corner cases that they were abandoned.
-
- What Does PPI Stand For?
- "PPI" is an acronym for the longer original module name
- "Parse::Perl::Isolated". And in the spirit or the silly acronym games
- played by certain unnamed Open Source projects you may have *hurd* of,
- it also a reverse backronym of "I Parse Perl".
-
- Of course, I could just be lying and have just made that second bit up
- 10 minutes before the release of PPI 1.000. Besides, all the cool Perl
- packages have TLAs (Three Letter Acronyms). It's a rule or something.
-
- Why don't you just think of it as the Perl Parsing Interface for
- simplicity.
-
- The original name was shortened to prevent the author (and you the
- users) from contracting RSI by having to type crazy things like
- "Parse::Perl::Isolated::Token::QuoteLike::Backtick" 100 times a day.
-
- In acknowledgment that someone may some day come up with a valid
- solution for the grammar problem it was decided at the commencement of
- the project to leave the "Parse::Perl" namespace free for any such
- effort.
-
- Since that time I've been able to prove to my own satisfaction that it
- is truly impossible to accurately parse Perl as both code and document
- at once. For the academics, parsing Perl suffers from the "Halting
- Problem".
-
- With this in mind "Parse::Perl" has now been co-opted as the title for
- the SourceForge project that publishes PPI and a large collection of
- other applications and modules related to the (document) parsing of Perl
- source code.
-
- You can find this project at <http://sf.net/projects/parseperl>, however
- we no longer use the SourceForge CVS server. Instead, the current
- development version of PPI is available via SVN at
- <http://svn.ali.as/cpan/trunk/PPI/>.
-
- Why Parse Perl?
- Once you can accept that we will never be able to parse Perl well enough
- to meet the standards of things that treat Perl as code, it is worth
- re-examining "why" we want to "parse" Perl at all.
-
- What are the things that people might want a "Perl parser" for.
-
- Documentation
- Analyzing the contents of a Perl document to automatically generate
- documentation, in parallel to, or as a replacement for, POD
- documentation.
-
- Allow an indexer to to locate and process all the comments and
- documentation from code for "full text search" applications.
-
- Structural and Quality Analysis
- Determine quality or other metrics across a body of code, and
- identify situations relating to particular phrases, techniques or
- locations.
-
- Index functions, variables and packages within Perl code, and doing
- search and graph (in the node/edge sense) analysis of large code
- bases.
-
- Refactoring
- Make structural, syntax, or other changes to code in an automated
- manner, either independently or in assistance to an editor. This
- sort of task list includes backporting, forward porting, partial
- evaluation, "improving" code, or whatever. All the sort of things
- you'd want from a Perl::Editor.
-
- Layout
- Change the layout of code without changing its meaning. This
- includes techniques such as tidying (like perltidy), obfuscation,
- compressing and "squishing", or to implement formatting preferences
- or policies.
-
- Presentation
- This includes methods of improving the presentation of code, without
- changing the content of the code. Modify, improve, syntax colour etc
- the presentation of a Perl document. Generating "IntelliText"-like
- functions.
-
- If we treat this as a baseline for the sort of things we are going to
- have to build on top of Perl, then it becomes possible to identify a
- standard for how good a Perl parser needs to be.
-
- How good is Good Enough(TM)
- PPI seeks to be good enough to achieve all of the above tasks, or to
- provide a sufficiently good API on which to allow others to implement
- modules in these and related areas.
-
- However, there are going to be limits to this process. Because PPI
- cannot adapt to changing grammars, any code written using source filters
- should not be assumed to be parsable.
-
- At one extreme, this includes anything munged by Acme::Bleach, as well
- as (arguably) more common cases like Switch. We do not pretend to be
- able to always parse code using these modules, although as long as it
- still follows a format that looks like Perl syntax, it may be possible
- to extend the lexer to handle them.
-
- The ability to extend PPI to handle lexical additions to the language is
- on the drawing board to be done some time post-1.0
-
- The goal for success was originally to be able to successfully parse 99%
- of all Perl documents contained in CPAN. This means the entire file in
- each case.
-
- PPI has succeeded in this goal far beyond the expectations of even the
- author. At time of writing there are only 28 non-Acme Perl modules in
- CPAN that PPI is incapable of parsing. Most of these are so badly broken
- they do not compile as Perl code anyway.
-
- So unless you are actively going out of your way to break PPI, you
- should expect that it will handle your code just fine.
-
- Internationalisation
- PPI provides partial support for internationalisation and localisation.
-
- Specifically, it allows the use characters from the Latin-1 character
- set to be used in quotes, comments, and POD. Primarily, this covers
- languages from Europe and South America.
-
- PPI does not currently provide support for Unicode, although there is an
- initial implementation available in a development branch from CVS.
-
- If you need Unicode support, and would like to help stress test the
- Unicode support so we can move it to the main branch and enable it in
- the main release should contact the author. (contact details below)
-
- Round Trip Safe
- When PPI parses a file it builds everything into the model, including
- whitespace. This is needed in order to make the Document fully "Round
- Trip" safe.
-
- The general concept behind a "Round Trip" parser is that it knows what
- it is parsing is somewhat uncertain, and so expects to get things wrong
- from time to time. In the cases where it parses code wrongly the tree
- will serialize back out to the same string of code that was read in,
- repairing the parser's mistake as it heads back out to the file.
-
- The end result is that if you parse in a file and serialize it back out
- without changing the tree, you are guaranteed to get the same file you
- started with. PPI does this correctly and reliably for 100% of all known
- cases.
-
- What goes in, will come out. Every time.
-
- The one minor exception at this time is that if the newlines for your
- file are wrong (meaning not matching the platform newline format), PPI
- will localise them for you. (It isn't to be convenient, supporting
- arbitrary newlines would make some of the code more complicated)
-
- Better control of the newline type is on the wish list though, and
- anyone wanting to help out is encouraged to contact the author.
-
-IMPLEMENTATION
- General Layout
- PPI is built upon two primary "parsing" components, PPI::Tokenizer and
- PPI::Lexer, and a large tree of about 50 classes which implement the
- various the *Perl Document Object Model* (PDOM).
-
- The PDOM is conceptually similar in style and intent to the regular DOM
- or other code Abstract Syntax Trees (ASTs), but contains some
- differences to handle perl-specific cases, and to assist in treating the
- code as a document. Please note that it is not an implementation of the
- official Document Object Model specification, only somewhat similar to
- it.
-
- On top of the Tokenizer, Lexer and the classes of the PDOM, sit a number
- of classes intended to make life a little easier when dealing with PDOM
- trees.
-
- Both the major parsing components were hand-coded from scratch with only
- plain Perl code and a few small utility modules. There are no grammar or
- patterns mini-languages, no YACC or LEX style tools and only a small
- number of regular expressions.
-
- This is primarily because of the sheer volume of accumulated cruft that
- exists in Perl. Not even perl itself is capable of parsing Perl
- documents (remember, it just parses and executes it as code).
-
- As a result, PPI needed to be cruftier than perl itself. Feel free to
- shudder at this point, and hope you never have to understand the
- Tokenizer codebase. Speaking of which...
-
- The Tokenizer
- The Tokenizer takes source code and converts it into a series of tokens.
- It does this using a slow but thorough character by character manual
- process, rather than using a pattern system or complex regexes.
-
- Or at least it does so conceptually. If you were to actually trace the
- code you would find it's not truly character by character due to a
- number of regexps and optimisations throughout the code. This lets the
- Tokenizer "skip ahead" when it can find shortcuts, so it tends to jump
- around a line a bit wildly at times.
-
- In practice, the number of times the Tokenizer will actually move the
- character cursor itself is only about 5% - 10% higher than the number of
- tokens contained in the file. This makes it about as optimal as it can
- be made without implementing it in something other than Perl.
-
- In 2001 when PPI was started, this structure made PPI quite slow, and
- not really suitable for interactive tasks. This situation has improved
- greatly with multi-gigahertz processors, but can still be painful when
- working with very large files.
-
- The target parsing rate for PPI is about 5000 lines per gigacycle. It is
- currently believed to be at about 1500, and main avenue for making it to
- the target speed has now become PPI::XS, a drop-in XS accelerator for
- PPI.
-
- Since PPI::XS has only just gotten off the ground and is currently only
- at proof-of-concept stage, this may take a little while. Anyone
- interested in helping out with PPI::XS is highly encouraged to contact
- the author. In fact, the design of PPI::XS means it's possible to port
- one function at a time safely and reliably. So every little bit will
- help.
-
- The Lexer
- The Lexer takes a token stream, and converts it to a lexical tree.
- Because we are parsing Perl documents this includes whitespace,
- comments, and all number of weird things that have no relevance when
- code is actually executed.
-
- An instantiated PPI::Lexer consumes PPI::Tokenizer objects and produces
- PPI::Document objects. However you should probably never be working with
- the Lexer directly. You should just be able to create PPI::Document
- objects and work with them directly.
-
- The Perl Document Object Model
- The PDOM is a structured collection of data classes that together
- provide a correct and scalable model for documents that follow the
- standard Perl syntax.
-
- The PDOM Class Tree
- The following lists all of the 67 current PDOM classes, listing with
- indentation based on inheritance.
-
- PPI::Element
- PPI::Node
- PPI::Document
- PPI::Document::Fragment
- PPI::Statement
- PPI::Statement::Package
- PPI::Statement::Include
- PPI::Statement::Sub
- PPI::Statement::Scheduled
- PPI::Statement::Compound
- PPI::Statement::Break
- PPI::Statement::Given
- PPI::Statement::When
- PPI::Statement::Data
- PPI::Statement::End
- PPI::Statement::Expression
- PPI::Statement::Variable
- PPI::Statement::Null
- PPI::Statement::UnmatchedBrace
- PPI::Statement::Unknown
- PPI::Structure
- PPI::Structure::Block
- PPI::Structure::Subscript
- PPI::Structure::Constructor
- PPI::Structure::Condition
- PPI::Structure::List
- PPI::Structure::For
- PPI::Structure::Given
- PPI::Structure::When
- PPI::Structure::Unknown
- PPI::Token
- PPI::Token::Whitespace
- PPI::Token::Comment
- PPI::Token::Pod
- PPI::Token::Number
- PPI::Token::Number::Binary
- PPI::Token::Number::Octal
- PPI::Token::Number::Hex
- PPI::Token::Number::Float
- PPI::Token::Number::Exp
- PPI::Token::Number::Version
- PPI::Token::Word
- PPI::Token::DashedWord
- PPI::Token::Symbol
- PPI::Token::Magic
- PPI::Token::ArrayIndex
- PPI::Token::Operator
- PPI::Token::Quote
- PPI::Token::Quote::Single
- PPI::Token::Quote::Double
- PPI::Token::Quote::Literal
- PPI::Token::Quote::Interpolate
- PPI::Token::QuoteLike
- PPI::Token::QuoteLike::Backtick
- PPI::Token::QuoteLike::Command
- PPI::Token::QuoteLike::Regexp
- PPI::Token::QuoteLike::Words
- PPI::Token::QuoteLike::Readline
- PPI::Token::Regexp
- PPI::Token::Regexp::Match
- PPI::Token::Regexp::Substitute
- PPI::Token::Regexp::Transliterate
- PPI::Token::HereDoc
- PPI::Token::Cast
- PPI::Token::Structure
- PPI::Token::Label
- PPI::Token::Separator
- PPI::Token::Data
- PPI::Token::End
- PPI::Token::Prototype
- PPI::Token::Attribute
- PPI::Token::Unknown
-
- To summarize the above layout, all PDOM objects inherit from the
- PPI::Element class.
-
- Under this are PPI::Token, strings of content with a known type, and
- PPI::Node, syntactically significant containers that hold other
- Elements.
-
- The three most important of these are the PPI::Document, the
- PPI::Statement and the PPI::Structure classes.
-
- The Document, Statement and Structure
- At the top of all complete PDOM trees is a PPI::Document object. It
- represents a complete file of Perl source code as you might find it on
- disk.
-
- There are some specialised types of document, such as
- PPI::Document::File and PPI::Document::Normalized but for the purposes
- of the PDOM they are all just considered to be the same thing.
-
- Each Document will contain a number of Statements, Structures and
- Tokens.
-
- A PPI::Statement is any series of Tokens and Structures that are treated
- as a single contiguous statement by perl itself. You should note that a
- Statement is as close as PPI can get to "parsing" the code in the sense
- that perl-itself parses Perl code when it is building the op-tree.
-
- Because of the isolation and Perl's syntax, it is provably impossible
- for PPI to accurately determine precedence of operators or which tokens
- are implicit arguments to a sub call.
-
- So rather than lead you on with a bad guess that has a strong chance of
- being wrong, PPI does not attempt to determine precedence or sub
- parameters at all.
-
- At a fundamental level, it only knows that this series of elements
- represents a single Statement as perl sees it, but it can do so with
- enough certainty that it can be trusted.
-
- However, for specific Statement types the PDOM is able to derive
- additional useful information about their meaning. For the best, most
- useful, and most heavily used example, see PPI::Statement::Include.
-
- A PPI::Structure is any series of tokens contained within matching
- braces. This includes code blocks, conditions, function argument braces,
- anonymous array and hash constructors, lists, scoping braces and all
- other syntactic structures represented by a matching pair of braces,
- including (although it may not seem obvious at first) "<READLINE>"
- braces.
-
- Each Structure contains none, one, or many Tokens and Structures (the
- rules for which vary for the different Structure subclasses)
-
- Under the PDOM structure rules, a Statement can never directly contain
- another child Statement, a Structure can never directly contain another
- child Structure, and a Document can never contain another Document
- anywhere in the tree.
-
- Aside from these three rules, the PDOM tree is extremely flexible.
-
- The PDOM at Work
- To demonstrate the PDOM in use lets start with an example showing how
- the tree might look for the following chunk of simple Perl code.
-
- #!/usr/bin/perl
-
- print( "Hello World!" );
-
- exit();
-
- Translated into a PDOM tree it would have the following structure (as
- shown via the included PPI::Dumper).
-
- PPI::Document
- PPI::Token::Comment '#!/usr/bin/perl\n'
- PPI::Token::Whitespace '\n'
- PPI::Statement::Expression
- PPI::Token::Bareword 'print'
- PPI::Structure::List ( ... )
- PPI::Token::Whitespace ' '
- PPI::Statement::Expression
- PPI::Token::Quote::Double '"Hello World!"'
- PPI::Token::Whitespace ' '
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Token::Whitespace '\n'
- PPI::Statement::Expression
- PPI::Token::Bareword 'exit'
- PPI::Structure::List ( ... )
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
-
- Please note that in this this example, strings are only listed for the
- actual PPI::Token that contains that string. Structures are listed with
- the type of brace characters it represents noted.
-
- The PPI::Dumper module can be used to generate similar trees yourself.
-
- We can make that PDOM dump a little easier to read if we strip out all
- the whitespace. Here it is again, sans the distracting whitespace
- tokens.
-
- PPI::Document
- PPI::Token::Comment '#!/usr/bin/perl\n'
- PPI::Statement::Expression
- PPI::Token::Bareword 'print'
- PPI::Structure::List ( ... )
- PPI::Statement::Expression
- PPI::Token::Quote::Double '"Hello World!"'
- PPI::Token::Structure ';'
- PPI::Statement::Expression
- PPI::Token::Bareword 'exit'
- PPI::Structure::List ( ... )
- PPI::Token::Structure ';'
-
- As you can see, the tree can get fairly deep at time, especially when
- every isolated token in a bracket becomes its own statement. This is
- needed to allow anything inside the tree the ability to grow. It also
- makes the search and analysis algorithms much more flexible.
-
- Because of the depth and complexity of PDOM trees, a vast number of very
- easy to use methods have been added wherever possible to help people
- working with PDOM trees do normal tasks relatively quickly and
- efficiently.
-
- Overview of the Primary Classes
- The main PPI classes, and links to their own documentation, are listed
- here in alphabetical order.
-
- PPI::Document
- The Document object, the root of the PDOM.
-
- PPI::Document::Fragment
- A cohesive fragment of a larger Document. Although not of any real
- current use, it is needed for use in certain internal tree
- manipulation algorithms.
-
- For example, doing things like cut/copy/paste etc. Very similar to a
- PPI::Document, but has some additional methods and does not
- represent a lexical scope boundary.
-
- A document fragment is also non-serializable, and so cannot be
- written out to a file.
-
- PPI::Dumper
- A simple class for dumping readable debugging versions of PDOM
- structures, such as in the demonstration above.
-
- PPI::Element
- The Element class is the abstract base class for all objects within
- the PDOM
-
- PPI::Find
- Implements an instantiable object form of a PDOM tree search.
-
- PPI::Lexer
- The PPI Lexer. Converts Token streams into PDOM trees.
-
- PPI::Node
- The Node object, the abstract base class for all PDOM objects that
- can contain other Elements, such as the Document, Statement and
- Structure objects.
-
- PPI::Statement
- The base class for all Perl statements. Generic "evaluate for
- side-effects" statements are of this actual type. Other more
- interesting statement types belong to one of its children.
-
- See it's own documentation for a longer description and list of all
- of the different statement types and sub-classes.
-
- PPI::Structure
- The abstract base class for all structures. A Structure is a
- language construct consisting of matching braces containing a set of
- other elements.
-
- See the PPI::Structure documentation for a description and list of
- all of the different structure types and sub-classes.
-
- PPI::Token
- A token is the basic unit of content. At its most basic, a Token is
- just a string tagged with metadata (its class, and some additional
- flags in some cases).
-
- PPI::Token::_QuoteEngine
- The PPI::Token::Quote and PPI::Token::QuoteLike classes provide
- abstract base classes for the many and varied types of quote and
- quote-like things in Perl. However, much of the actual quote login
- is implemented in a separate quote engine, based at
- PPI::Token::_QuoteEngine.
-
- Classes that inherit from PPI::Token::Quote, PPI::Token::QuoteLike
- and PPI::Token::Regexp are generally parsed only by the Quote
- Engine.
-
- PPI::Tokenizer
- The PPI Tokenizer. One Tokenizer consumes a chunk of text and
- provides access to a stream of PPI::Token objects.
-
- The Tokenizer is very very complicated, to the point where even the
- author treads carefully when working with it.
-
- Most of the complication is the result of optimizations which have
- tripled the tokenization speed, at the expense of maintainability.
- We cope with the spaghetti by heavily commenting everything.
-
- PPI::Transform
- The Perl Document Transformation API. Provides a standard interface
- and abstract base class for objects and classes that manipulate
- Documents.
-
-INSTALLING
- The core PPI distribution is pure Perl and has been kept as tight as
- possible and with as few dependencies as possible.
-
- It should download and install normally on any platform from within the
- CPAN and CPANPLUS applications, or directly using the distribution
- tarball. If installing by hand, you may need to install a few small
- utility modules first. The exact ones will depend on your version of
- perl.
-
- There are no special install instructions for PPI, and the normal "Perl
- Makefile.PL", "make", "make test", "make install" instructions apply.
-
-EXTENDING
- The PPI namespace itself is reserved for the sole use of the modules
- under the umbrella of the "Parse::Perl" SourceForge project.
-
- <http://sf.net/projects/parseperl>
-
- You are recommended to use the PPIx:: namespace for PPI-specific
- modifications or prototypes thereof, or Perl:: for modules which provide
- a general Perl language-related functions.
-
- If what you wish to implement looks like it fits into PPIx:: namespace,
- you should consider contacting the "Parse::Perl" mailing list (detailed
- on the SourceForge site) first, as what you want may already be in
- progress, or you may wish to consider joining the team and doing it
- within the "Parse::Perl" project itself.
-
-TO DO
- - Many more analysis and utility methods for PDOM classes
-
- - Creation of a PPI::Tutorial document
-
- - Add many more key functions to PPI::XS
-
- - We can always write more and better unit tests
-
- - Complete the full implementation of ->literal (1.200)
-
- - Full understanding of scoping (due 1.300)
-
-SUPPORT
- This module is stored in an Open Repository at the following address.
-
- <http://svn.ali.as/cpan/trunk/PPI>
-
- Write access to the repository is made available automatically to any
- published CPAN author, and to most other volunteers on request.
-
- If you are able to submit your bug report in the form of new (failing)
- unit tests, or can apply your fix directly instead of submitting a
- patch, you are strongly encouraged to do so, as the author currently
- maintains over 100 modules and it can take some time to deal with
- non-"Critical" bug reports or patches.
-
- This will also guarentee that your issue will be addressed in the next
- release of the module.
-
- For large changes though, please consider creating a branch so that they
- can be properly reviewed and trialed before being applied to the trunk.
-
- If you cannot provide a direct test or fix, or don't have time to do so,
- then regular bug reports are still accepted and appreciated via the CPAN
- bug tracker.
-
- <http://rt.cpan.org/NoAuth/ReportBug.html?Queue=PPI>
-
- For other issues or questions, contact the "Parse::Perl" project mailing
- list.
-
- For commercial or media-related enquiries, or to have your SVN commit
- bit enabled, contact the author.
-
-AUTHOR
- Adam Kennedy <adamk at cpan.org>
-
-ACKNOWLEDGMENTS
- A huge thank you to Phase N Australia (<http://phase-n.com/>) for
- permitting the original open sourcing and release of this distribution
- from what was originally several thousand hours of commercial work.
-
- Another big thank you to The Perl Foundation
- (<http://www.perlfoundation.org/>) for funding for the final big
- refactoring and completion run.
-
- Also, to the various co-maintainers that have contributed both large and
- small with tests and patches and especially to those rare few who have
- deep-dived into the guts to (gasp) add a feature.
-
- - Dan Brook : PPIx::XPath, Acme::PerlML
- - Audrey Tang : "Line Noise" Testing
- - Arjen Laarhoven : Three-element ->location support
- - Elliot Shank : Perl 5.10 support, five-element ->location
-
- And finally, thanks to those brave ( and foolish :) ) souls willing to
- dive in and use, test drive and provide feedback on PPI before version
- 1.000, in some cases before it made it to beta quality, and still did
- extremely distasteful things (like eating 50 meg of RAM a second).
-
- I owe you all a beer. Corner me somewhere and collect at your
- convenience. If I missed someone who wasn't in my email history, thank
- you too :)
-
- # In approximate order of appearance
- - Claes Jacobsson
- - Michael Schwern
- - Jeff T. Parsons
- - CPAN Author "CHOCOLATEBOY"
- - Robert Rotherberg
- - CPAN Author "PODMASTER"
- - Richard Soderberg
- - Nadim ibn Hamouda el Khemir
- - Graciliano M. P.
- - Leon Brocard
- - Jody Belka
- - Curtis Ovid
- - Yuval Kogman
- - Michael Schilli
- - Slaven Rezic
- - Lars Thegler
- - Tony Stubblebine
- - Tatsuhiko Miyagawa
- - CPAN Author "CHROMATIC"
- - Matisse Enzer
- - Roy Fulbright
- - Dan Brook
- - Johnny Lee
- - Johan Lindstrom
-
- And to single one person out, thanks go to Randal Schwartz who spent a
- great number of hours in IRC over a critical 6 month period explaining
- why Perl is impossibly unparsable and constantly shoving evil and ugly
- corner cases in my face. He remained a tireless devil's advocate, and
- without his support this project genuinely could never have been
- completed.
-
- So for my schooling in the Deep Magiks, you have my deepest gratitude
- Randal.
-
-COPYRIGHT
- Copyright 2001 - 2010 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.
-
diff --git a/3.8.8/sources/cpan-PPI/vendor/inc/Module/Install/Can.pm b/3.8.8/sources/cpan-PPI/vendor/inc/Module/Install/Can.pm
deleted file mode 100644
index c9f91d1..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/inc/Module/Install/Can.pm
+++ /dev/null
@@ -1,81 +0,0 @@
-#line 1
-package Module::Install::Can;
-
-use strict;
-use Config ();
-use File::Spec ();
-use ExtUtils::MakeMaker ();
-use Module::Install::Base ();
-
-use vars qw{$VERSION @ISA $ISCORE};
-BEGIN {
- $VERSION = '0.95';
- @ISA = 'Module::Install::Base';
- $ISCORE = 1;
-}
-
-# check if we can load some module
-### Upgrade this to not have to load the module if possible
-sub can_use {
- my ($self, $mod, $ver) = @_;
- $mod =~ s{::|\\}{/}g;
- $mod .= '.pm' unless $mod =~ /\.pm$/i;
-
- my $pkg = $mod;
- $pkg =~ s{/}{::}g;
- $pkg =~ s{\.pm$}{}i;
-
- local $@;
- eval { require $mod; $pkg->VERSION($ver || 0); 1 };
-}
-
-# check if we can run some command
-sub can_run {
- my ($self, $cmd) = @_;
-
- my $_cmd = $cmd;
- return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));
-
- for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
- next if $dir eq '';
- my $abs = File::Spec->catfile($dir, $_[1]);
- return $abs if (-x $abs or $abs = MM->maybe_command($abs));
- }
-
- return;
-}
-
-# can we locate a (the) C compiler
-sub can_cc {
- my $self = shift;
- my @chunks = split(/ /, $Config::Config{cc}) or return;
-
- # $Config{cc} may contain args; try to find out the program part
- while (@chunks) {
- return $self->can_run("@chunks") || (pop(@chunks), next);
- }
-
- return;
-}
-
-# Fix Cygwin bug on maybe_command();
-if ( $^O eq 'cygwin' ) {
- require ExtUtils::MM_Cygwin;
- require ExtUtils::MM_Win32;
- if ( ! defined(&ExtUtils::MM_Cygwin::maybe_command) ) {
- *ExtUtils::MM_Cygwin::maybe_command = sub {
- my ($self, $file) = @_;
- if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
- ExtUtils::MM_Win32->maybe_command($file);
- } else {
- ExtUtils::MM_Unix->maybe_command($file);
- }
- }
- }
-}
-
-1;
-
-__END__
-
-#line 156
diff --git a/3.8.8/sources/cpan-PPI/vendor/inc/Module/Install/Fetch.pm b/3.8.8/sources/cpan-PPI/vendor/inc/Module/Install/Fetch.pm
deleted file mode 100644
index c728bcd..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/inc/Module/Install/Fetch.pm
+++ /dev/null
@@ -1,93 +0,0 @@
-#line 1
-package Module::Install::Fetch;
-
-use strict;
-use Module::Install::Base ();
-
-use vars qw{$VERSION @ISA $ISCORE};
-BEGIN {
- $VERSION = '0.95';
- @ISA = 'Module::Install::Base';
- $ISCORE = 1;
-}
-
-sub get_file {
- my ($self, %args) = @_;
- my ($scheme, $host, $path, $file) =
- $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
-
- if ( $scheme eq 'http' and ! eval { require LWP::Simple; 1 } ) {
- $args{url} = $args{ftp_url}
- or (warn("LWP support unavailable!\n"), return);
- ($scheme, $host, $path, $file) =
- $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
- }
-
- $|++;
- print "Fetching '$file' from $host... ";
-
- unless (eval { require Socket; Socket::inet_aton($host) }) {
- warn "'$host' resolve failed!\n";
- return;
- }
-
- return unless $scheme eq 'ftp' or $scheme eq 'http';
-
- require Cwd;
- my $dir = Cwd::getcwd();
- chdir $args{local_dir} or return if exists $args{local_dir};
-
- if (eval { require LWP::Simple; 1 }) {
- LWP::Simple::mirror($args{url}, $file);
- }
- elsif (eval { require Net::FTP; 1 }) { eval {
- # use Net::FTP to get past firewall
- my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
- $ftp->login("anonymous", 'anonymous at example.com');
- $ftp->cwd($path);
- $ftp->binary;
- $ftp->get($file) or (warn("$!\n"), return);
- $ftp->quit;
- } }
- elsif (my $ftp = $self->can_run('ftp')) { eval {
- # no Net::FTP, fallback to ftp.exe
- require FileHandle;
- my $fh = FileHandle->new;
-
- local $SIG{CHLD} = 'IGNORE';
- unless ($fh->open("|$ftp -n")) {
- warn "Couldn't open ftp: $!\n";
- chdir $dir; return;
- }
-
- my @dialog = split(/\n/, <<"END_FTP");
-open $host
-user anonymous anonymous\@example.com
-cd $path
-binary
-get $file $file
-quit
-END_FTP
- foreach (@dialog) { $fh->print("$_\n") }
- $fh->close;
- } }
- else {
- warn "No working 'ftp' program available!\n";
- chdir $dir; return;
- }
-
- unless (-f $file) {
- warn "Fetching failed: $@\n";
- chdir $dir; return;
- }
-
- return if exists $args{size} and -s $file != $args{size};
- system($args{run}) if exists $args{run};
- unlink($file) if $args{remove};
-
- print(((!exists $args{check_for} or -e $args{check_for})
- ? "done!" : "failed! ($!)"), "\n");
- chdir $dir; return !$?;
-}
-
-1;
diff --git a/3.8.8/sources/cpan-PPI/vendor/inline2test.conf b/3.8.8/sources/cpan-PPI/vendor/inline2test.conf
deleted file mode 100644
index 98af1e9..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/inline2test.conf
+++ /dev/null
@@ -1,3 +0,0 @@
-readonly=1
-input=lib
-output=t
diff --git a/3.8.8/sources/cpan-PPI/vendor/lib/PPI.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI.pm
deleted file mode 100644
index 8de1e40..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI.pm
+++ /dev/null
@@ -1,846 +0,0 @@
-package PPI;
-
-# See POD at end for documentation
-
-use 5.006;
-use strict;
-
-# Set the version for CPAN
-use vars qw{$VERSION $XS_COMPATIBLE @XS_EXCLUDE};
-BEGIN {
- $VERSION = '1.212';
- $XS_COMPATIBLE = '0.845';
- @XS_EXCLUDE = ();
-}
-
-# Load everything
-use PPI::Util ();
-use PPI::Exception ();
-use PPI::Element ();
-use PPI::Token ();
-use PPI::Statement ();
-use PPI::Structure ();
-use PPI::Document ();
-use PPI::Document::File ();
-use PPI::Document::Fragment ();
-use PPI::Document::Normalized ();
-use PPI::Normal ();
-use PPI::Tokenizer ();
-use PPI::Lexer ();
-
-# If it is installed, load in PPI::XS
-unless ( $PPI::XS_DISABLE ) {
- eval { require PPI::XS };
- # Only ignore the failure to load PPI::XS if not installed
- die if $@ && $@ !~ /^Can't locate .*? at /;
-}
-
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-PPI - Parse, Analyze and Manipulate Perl (without perl)
-
-=head1 SYNOPSIS
-
- use PPI;
-
- # Create a new empty document
- my $Document = PPI::Document->new;
-
- # Create a document from source
- $Document = PPI::Document->new(\'print "Hello World!\n"');
-
- # Load a Document from a file
- $Document = PPI::Document->new('Module.pm');
-
- # Does it contain any POD?
- if ( $Document->find_any('PPI::Token::Pod') ) {
- print "Module contains POD\n";
- }
-
- # Get the name of the main package
- $pkg = $Document->find_first('PPI::Statement::Package')->namespace;
-
- # Remove all that nasty documentation
- $Document->prune('PPI::Token::Pod');
- $Document->prune('PPI::Token::Comment');
-
- # Save the file
- $Document->save('Module.pm.stripped');
-
-=head1 DESCRIPTION
-
-=head2 About this Document
-
-This is the PPI manual. It describes its reason for existing, its general
-structure, its use, an overview of the API, and provides a few
-implementation samples.
-
-=head2 Background
-
-The ability to read, and manipulate Perl (the language) programmatically
-other than with perl (the application) was one that caused difficulty
-for a long time.
-
-The cause of this problem was Perl's complex and dynamic grammar.
-Although there is typically not a huge diversity in the grammar of most
-Perl code, certain issues cause large problems when it comes to parsing.
-
-Indeed, quite early in Perl's history Tom Christenson introduced the Perl
-community to the quote I<"Nothing but perl can parse Perl">, or as it is
-more often stated now as a truism:
-
-B<"Only perl can parse Perl">
-
-One example of the sorts of things the prevent Perl being easily parsed are
-function signatures, as demonstrated by the following.
-
- @result = (dothis $foo, $bar);
-
- # Which of the following is it equivalent to?
- @result = (dothis($foo), $bar);
- @result = dothis($foo, $bar);
-
-The first line above can be interpreted in two different ways, depending
-on whether the C<&dothis> function is expecting one argument, or two,
-or several.
-
-A "code parser" (something that parses for the purpose of execution) such
-as perl needs information that is not found in the immediate vicinity of
-the statement being parsed.
-
-The information might not just be elsewhere in the file, it might not even be
-in the same file at all. It might also not be able to determine this
-information without the prior execution of a C<BEGIN {}> block, or the
-loading and execution of one or more external modules. Or worse the &dothis
-function may not even have been written yet.
-
-B<When parsing Perl as code, you must also execute it>
-
-Even perl itself never really fully understands the structure of the source
-code after and indeed B<as> it processes it, and in that sense doesn't
-"parse" Perl source into anything remotely like a structured document.
-This makes it of no real use for any task that needs to treat the source
-code as a document, and do so reliably and robustly.
-
-For more information on why it is impossible to parse perl, see Randal
-Schwartz's seminal response to the question of "Why can't you parse Perl".
-
-L<http://www.perlmonks.org/index.pl?node_id=44722>
-
-The purpose of PPI is B<not> to parse Perl I<Code>, but to parse Perl
-I<Documents>. By treating the problem this way, we are able to parse a
-single file containing Perl source code "isolated" from any other
-resources, such as libraries upon which the code may depend, and
-without needing to run an instance of perl alongside or inside the parser.
-
-Historically, using an embedded perl parser was widely considered to be
-the most likely avenue for finding a solution to C<Parse::Perl>. It was
-investigated from time to time and attempts have generally failed or
-suffered from sufficiently bad corner cases that they were abandoned.
-
-=head2 What Does PPI Stand For?
-
-C<PPI> is an acronym for the longer original module name
-C<Parse::Perl::Isolated>. And in the spirit or the silly acronym games
-played by certain unnamed Open Source projects you may have I<hurd> of,
-it also a reverse backronym of "I Parse Perl".
-
-Of course, I could just be lying and have just made that second bit up
-10 minutes before the release of PPI 1.000. Besides, B<all> the cool
-Perl packages have TLAs (Three Letter Acronyms). It's a rule or something.
-
-Why don't you just think of it as the B<Perl Parsing Interface> for simplicity.
-
-The original name was shortened to prevent the author (and you the users)
-from contracting RSI by having to type crazy things like
-C<Parse::Perl::Isolated::Token::QuoteLike::Backtick> 100 times a day.
-
-In acknowledgment that someone may some day come up with a valid solution
-for the grammar problem it was decided at the commencement of the project
-to leave the C<Parse::Perl> namespace free for any such effort.
-
-Since that time I've been able to prove to my own satisfaction that it
-B<is> truly impossible to accurately parse Perl as both code and document
-at once. For the academics, parsing Perl suffers from the "Halting Problem".
-
-With this in mind C<Parse::Perl> has now been co-opted as the title for
-the SourceForge project that publishes PPI and a large collection of other
-applications and modules related to the (document) parsing of Perl source
-code.
-
-You can find this project at L<http://sf.net/projects/parseperl>,
-however we no longer use the SourceForge CVS server. Instead, the
-current development version of PPI is available via SVN at
-L<http://svn.ali.as/cpan/trunk/PPI/>.
-
-=head2 Why Parse Perl?
-
-Once you can accept that we will never be able to parse Perl well enough
-to meet the standards of things that treat Perl as code, it is worth
-re-examining C<why> we want to "parse" Perl at all.
-
-What are the things that people might want a "Perl parser" for.
-
-=over 4
-
-=item Documentation
-
-Analyzing the contents of a Perl document to automatically generate
-documentation, in parallel to, or as a replacement for, POD documentation.
-
-Allow an indexer to to locate and process all the comments and
-documentation from code for "full text search" applications.
-
-=item Structural and Quality Analysis
-
-Determine quality or other metrics across a body of code, and identify
-situations relating to particular phrases, techniques or locations.
-
-Index functions, variables and packages within Perl code, and doing search
-and graph (in the node/edge sense) analysis of large code bases.
-
-=item Refactoring
-
-Make structural, syntax, or other changes to code in an automated manner,
-either independently or in assistance to an editor. This sort of task list
-includes backporting, forward porting, partial evaluation, "improving" code,
-or whatever. All the sort of things you'd want from a L<Perl::Editor>.
-
-=item Layout
-
-Change the layout of code without changing its meaning. This includes
-techniques such as tidying (like L<perltidy>), obfuscation, compressing and
-"squishing", or to implement formatting preferences or policies.
-
-=item Presentation
-
-This includes methods of improving the presentation of code, without changing
-the content of the code. Modify, improve, syntax colour etc the presentation
-of a Perl document. Generating "IntelliText"-like functions.
-
-=back
-
-If we treat this as a baseline for the sort of things we are going to have
-to build on top of Perl, then it becomes possible to identify a standard
-for how good a Perl parser needs to be.
-
-=head2 How good is Good Enough(TM)
-
-PPI seeks to be good enough to achieve all of the above tasks, or to provide
-a sufficiently good API on which to allow others to implement modules in
-these and related areas.
-
-However, there are going to be limits to this process. Because PPI cannot
-adapt to changing grammars, any code written using source filters should not
-be assumed to be parsable.
-
-At one extreme, this includes anything munged by L<Acme::Bleach>, as well
-as (arguably) more common cases like L<Switch>. We do not pretend to be
-able to always parse code using these modules, although as long as it still
-follows a format that looks like Perl syntax, it may be possible to extend
-the lexer to handle them.
-
-The ability to extend PPI to handle lexical additions to the language is on
-the drawing board to be done some time post-1.0
-
-The goal for success was originally to be able to successfully parse 99% of
-all Perl documents contained in CPAN. This means the entire file in each
-case.
-
-PPI has succeeded in this goal far beyond the expectations of even the
-author. At time of writing there are only 28 non-Acme Perl modules in CPAN
-that PPI is incapable of parsing. Most of these are so badly broken they
-do not compile as Perl code anyway.
-
-So unless you are actively going out of your way to break PPI, you should
-expect that it will handle your code just fine.
-
-=head2 Internationalisation
-
-PPI provides partial support for internationalisation and localisation.
-
-Specifically, it allows the use characters from the Latin-1 character
-set to be used in quotes, comments, and POD. Primarily, this covers
-languages from Europe and South America.
-
-PPI does B<not> currently provide support for Unicode, although there
-is an initial implementation available in a development branch from
-CVS.
-
-If you need Unicode support, and would like to help stress test the
-Unicode support so we can move it to the main branch and enable it
-in the main release should contact the author. (contact details below)
-
-=head2 Round Trip Safe
-
-When PPI parses a file it builds B<everything> into the model, including
-whitespace. This is needed in order to make the Document fully "Round Trip"
-safe.
-
-The general concept behind a "Round Trip" parser is that it knows what it
-is parsing is somewhat uncertain, and so B<expects> to get things wrong
-from time to time. In the cases where it parses code wrongly the tree
-will serialize back out to the same string of code that was read in,
-repairing the parser's mistake as it heads back out to the file.
-
-The end result is that if you parse in a file and serialize it back out
-without changing the tree, you are guaranteed to get the same file you
-started with. PPI does this correctly and reliably for 100% of all known
-cases.
-
-B<What goes in, will come out. Every time.>
-
-The one minor exception at this time is that if the newlines for your file
-are wrong (meaning not matching the platform newline format), PPI will
-localise them for you. (It isn't to be convenient, supporting
-arbitrary newlines would make some of the code more complicated)
-
-Better control of the newline type is on the wish list though, and
-anyone wanting to help out is encouraged to contact the author.
-
-=head1 IMPLEMENTATION
-
-=head2 General Layout
-
-PPI is built upon two primary "parsing" components, L<PPI::Tokenizer>
-and L<PPI::Lexer>, and a large tree of about 50 classes which implement
-the various the I<Perl Document Object Model> (PDOM).
-
-The PDOM is conceptually similar in style and intent to the regular DOM or
-other code Abstract Syntax Trees (ASTs), but contains some differences
-to handle perl-specific cases, and to assist in treating the code as a
-document. Please note that it is B<not> an implementation of the official
-Document Object Model specification, only somewhat similar to it.
-
-On top of the Tokenizer, Lexer and the classes of the PDOM, sit a number
-of classes intended to make life a little easier when dealing with PDOM
-trees.
-
-Both the major parsing components were hand-coded from scratch with only
-plain Perl code and a few small utility modules. There are no grammar or
-patterns mini-languages, no YACC or LEX style tools and only a small number
-of regular expressions.
-
-This is primarily because of the sheer volume of accumulated cruft that
-exists in Perl. Not even perl itself is capable of parsing Perl documents
-(remember, it just parses and executes it as code).
-
-As a result, PPI needed to be cruftier than perl itself. Feel free to
-shudder at this point, and hope you never have to understand the Tokenizer
-codebase. Speaking of which...
-
-=head2 The Tokenizer
-
-The Tokenizer takes source code and converts it into a series of tokens. It
-does this using a slow but thorough character by character manual process,
-rather than using a pattern system or complex regexes.
-
-Or at least it does so conceptually. If you were to actually trace the code
-you would find it's not truly character by character due to a number of
-regexps and optimisations throughout the code. This lets the Tokenizer
-"skip ahead" when it can find shortcuts, so it tends to jump around a line
-a bit wildly at times.
-
-In practice, the number of times the Tokenizer will B<actually> move the
-character cursor itself is only about 5% - 10% higher than the number of
-tokens contained in the file. This makes it about as optimal as it can be
-made without implementing it in something other than Perl.
-
-In 2001 when PPI was started, this structure made PPI quite slow, and not
-really suitable for interactive tasks. This situation has improved greatly
-with multi-gigahertz processors, but can still be painful when working with
-very large files.
-
-The target parsing rate for PPI is about 5000 lines per gigacycle. It is
-currently believed to be at about 1500, and main avenue for making it to
-the target speed has now become L<PPI::XS>, a drop-in XS accelerator for
-PPI.
-
-Since L<PPI::XS> has only just gotten off the ground and is currently only
-at proof-of-concept stage, this may take a little while. Anyone interested
-in helping out with L<PPI::XS> is B<highly> encouraged to contact the
-author. In fact, the design of L<PPI::XS> means it's possible to port
-one function at a time safely and reliably. So every little bit will help.
-
-=head2 The Lexer
-
-The Lexer takes a token stream, and converts it to a lexical tree. Because
-we are parsing Perl B<documents> this includes whitespace, comments, and
-all number of weird things that have no relevance when code is actually
-executed.
-
-An instantiated L<PPI::Lexer> consumes L<PPI::Tokenizer> objects and
-produces L<PPI::Document> objects. However you should probably never be
-working with the Lexer directly. You should just be able to create
-L<PPI::Document> objects and work with them directly.
-
-=head2 The Perl Document Object Model
-
-The PDOM is a structured collection of data classes that together provide
-a correct and scalable model for documents that follow the standard Perl
-syntax.
-
-=head2 The PDOM Class Tree
-
-The following lists all of the 67 current PDOM classes, listing with indentation
-based on inheritance.
-
- PPI::Element
- PPI::Node
- PPI::Document
- PPI::Document::Fragment
- PPI::Statement
- PPI::Statement::Package
- PPI::Statement::Include
- PPI::Statement::Sub
- PPI::Statement::Scheduled
- PPI::Statement::Compound
- PPI::Statement::Break
- PPI::Statement::Given
- PPI::Statement::When
- PPI::Statement::Data
- PPI::Statement::End
- PPI::Statement::Expression
- PPI::Statement::Variable
- PPI::Statement::Null
- PPI::Statement::UnmatchedBrace
- PPI::Statement::Unknown
- PPI::Structure
- PPI::Structure::Block
- PPI::Structure::Subscript
- PPI::Structure::Constructor
- PPI::Structure::Condition
- PPI::Structure::List
- PPI::Structure::For
- PPI::Structure::Given
- PPI::Structure::When
- PPI::Structure::Unknown
- PPI::Token
- PPI::Token::Whitespace
- PPI::Token::Comment
- PPI::Token::Pod
- PPI::Token::Number
- PPI::Token::Number::Binary
- PPI::Token::Number::Octal
- PPI::Token::Number::Hex
- PPI::Token::Number::Float
- PPI::Token::Number::Exp
- PPI::Token::Number::Version
- PPI::Token::Word
- PPI::Token::DashedWord
- PPI::Token::Symbol
- PPI::Token::Magic
- PPI::Token::ArrayIndex
- PPI::Token::Operator
- PPI::Token::Quote
- PPI::Token::Quote::Single
- PPI::Token::Quote::Double
- PPI::Token::Quote::Literal
- PPI::Token::Quote::Interpolate
- PPI::Token::QuoteLike
- PPI::Token::QuoteLike::Backtick
- PPI::Token::QuoteLike::Command
- PPI::Token::QuoteLike::Regexp
- PPI::Token::QuoteLike::Words
- PPI::Token::QuoteLike::Readline
- PPI::Token::Regexp
- PPI::Token::Regexp::Match
- PPI::Token::Regexp::Substitute
- PPI::Token::Regexp::Transliterate
- PPI::Token::HereDoc
- PPI::Token::Cast
- PPI::Token::Structure
- PPI::Token::Label
- PPI::Token::Separator
- PPI::Token::Data
- PPI::Token::End
- PPI::Token::Prototype
- PPI::Token::Attribute
- PPI::Token::Unknown
-
-To summarize the above layout, all PDOM objects inherit from the
-L<PPI::Element> class.
-
-Under this are L<PPI::Token>, strings of content with a known type,
-and L<PPI::Node>, syntactically significant containers that hold other
-Elements.
-
-The three most important of these are the L<PPI::Document>, the
-L<PPI::Statement> and the L<PPI::Structure> classes.
-
-=head2 The Document, Statement and Structure
-
-At the top of all complete PDOM trees is a L<PPI::Document> object. It
-represents a complete file of Perl source code as you might find it on
-disk.
-
-There are some specialised types of document, such as L<PPI::Document::File>
-and L<PPI::Document::Normalized> but for the purposes of the PDOM they are
-all just considered to be the same thing.
-
-Each Document will contain a number of B<Statements>, B<Structures> and
-B<Tokens>.
-
-A L<PPI::Statement> is any series of Tokens and Structures that are treated
-as a single contiguous statement by perl itself. You should note that a
-Statement is as close as PPI can get to "parsing" the code in the sense that
-perl-itself parses Perl code when it is building the op-tree.
-
-Because of the isolation and Perl's syntax, it is provably impossible for
-PPI to accurately determine precedence of operators or which tokens are
-implicit arguments to a sub call.
-
-So rather than lead you on with a bad guess that has a strong chance of
-being wrong, PPI does not attempt to determine precedence or sub parameters
-at all.
-
-At a fundamental level, it only knows that this series of elements
-represents a single Statement as perl sees it, but it can do so with
-enough certainty that it can be trusted.
-
-However, for specific Statement types the PDOM is able to derive additional
-useful information about their meaning. For the best, most useful, and most
-heavily used example, see L<PPI::Statement::Include>.
-
-A L<PPI::Structure> is any series of tokens contained within matching braces.
-This includes code blocks, conditions, function argument braces, anonymous
-array and hash constructors, lists, scoping braces and all other syntactic
-structures represented by a matching pair of braces, including (although it
-may not seem obvious at first) C<E<lt>READLINEE<gt>> braces.
-
-Each Structure contains none, one, or many Tokens and Structures (the rules
-for which vary for the different Structure subclasses)
-
-Under the PDOM structure rules, a Statement can B<never> directly contain
-another child Statement, a Structure can B<never> directly contain another
-child Structure, and a Document can B<never> contain another Document
-anywhere in the tree.
-
-Aside from these three rules, the PDOM tree is extremely flexible.
-
-=head2 The PDOM at Work
-
-To demonstrate the PDOM in use lets start with an example showing how the
-tree might look for the following chunk of simple Perl code.
-
- #!/usr/bin/perl
-
- print( "Hello World!" );
-
- exit();
-
-Translated into a PDOM tree it would have the following structure (as shown
-via the included L<PPI::Dumper>).
-
- PPI::Document
- PPI::Token::Comment '#!/usr/bin/perl\n'
- PPI::Token::Whitespace '\n'
- PPI::Statement::Expression
- PPI::Token::Bareword 'print'
- PPI::Structure::List ( ... )
- PPI::Token::Whitespace ' '
- PPI::Statement::Expression
- PPI::Token::Quote::Double '"Hello World!"'
- PPI::Token::Whitespace ' '
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Token::Whitespace '\n'
- PPI::Statement::Expression
- PPI::Token::Bareword 'exit'
- PPI::Structure::List ( ... )
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
-
-Please note that in this this example, strings are only listed for the
-B<actual> L<PPI::Token> that contains that string. Structures are listed
-with the type of brace characters it represents noted.
-
-The L<PPI::Dumper> module can be used to generate similar trees yourself.
-
-We can make that PDOM dump a little easier to read if we strip out all the
-whitespace. Here it is again, sans the distracting whitespace tokens.
-
- PPI::Document
- PPI::Token::Comment '#!/usr/bin/perl\n'
- PPI::Statement::Expression
- PPI::Token::Bareword 'print'
- PPI::Structure::List ( ... )
- PPI::Statement::Expression
- PPI::Token::Quote::Double '"Hello World!"'
- PPI::Token::Structure ';'
- PPI::Statement::Expression
- PPI::Token::Bareword 'exit'
- PPI::Structure::List ( ... )
- PPI::Token::Structure ';'
-
-As you can see, the tree can get fairly deep at time, especially when every
-isolated token in a bracket becomes its own statement. This is needed to
-allow anything inside the tree the ability to grow. It also makes the
-search and analysis algorithms much more flexible.
-
-Because of the depth and complexity of PDOM trees, a vast number of very easy
-to use methods have been added wherever possible to help people working with
-PDOM trees do normal tasks relatively quickly and efficiently.
-
-=head2 Overview of the Primary Classes
-
-The main PPI classes, and links to their own documentation, are listed
-here in alphabetical order.
-
-=over 4
-
-=item L<PPI::Document>
-
-The Document object, the root of the PDOM.
-
-=item L<PPI::Document::Fragment>
-
-A cohesive fragment of a larger Document. Although not of any real current
-use, it is needed for use in certain internal tree manipulation
-algorithms.
-
-For example, doing things like cut/copy/paste etc. Very similar to a
-L<PPI::Document>, but has some additional methods and does not represent
-a lexical scope boundary.
-
-A document fragment is also non-serializable, and so cannot be written out
-to a file.
-
-=item L<PPI::Dumper>
-
-A simple class for dumping readable debugging versions of PDOM structures,
-such as in the demonstration above.
-
-=item L<PPI::Element>
-
-The Element class is the abstract base class for all objects within the PDOM
-
-=item L<PPI::Find>
-
-Implements an instantiable object form of a PDOM tree search.
-
-=item L<PPI::Lexer>
-
-The PPI Lexer. Converts Token streams into PDOM trees.
-
-=item L<PPI::Node>
-
-The Node object, the abstract base class for all PDOM objects that can
-contain other Elements, such as the Document, Statement and Structure
-objects.
-
-=item L<PPI::Statement>
-
-The base class for all Perl statements. Generic "evaluate for side-effects"
-statements are of this actual type. Other more interesting statement types
-belong to one of its children.
-
-See it's own documentation for a longer description and list of all of the
-different statement types and sub-classes.
-
-=item L<PPI::Structure>
-
-The abstract base class for all structures. A Structure is a language
-construct consisting of matching braces containing a set of other elements.
-
-See the L<PPI::Structure> documentation for a description and
-list of all of the different structure types and sub-classes.
-
-=item L<PPI::Token>
-
-A token is the basic unit of content. At its most basic, a Token is just
-a string tagged with metadata (its class, and some additional flags in
-some cases).
-
-=item L<PPI::Token::_QuoteEngine>
-
-The L<PPI::Token::Quote> and L<PPI::Token::QuoteLike> classes provide
-abstract base classes for the many and varied types of quote and
-quote-like things in Perl. However, much of the actual quote login is
-implemented in a separate quote engine, based at
-L<PPI::Token::_QuoteEngine>.
-
-Classes that inherit from L<PPI::Token::Quote>, L<PPI::Token::QuoteLike>
-and L<PPI::Token::Regexp> are generally parsed only by the Quote Engine.
-
-=item L<PPI::Tokenizer>
-
-The PPI Tokenizer. One Tokenizer consumes a chunk of text and provides
-access to a stream of L<PPI::Token> objects.
-
-The Tokenizer is very very complicated, to the point where even the author
-treads carefully when working with it.
-
-Most of the complication is the result of optimizations which have tripled
-the tokenization speed, at the expense of maintainability. We cope with the
-spaghetti by heavily commenting everything.
-
-=item L<PPI::Transform>
-
-The Perl Document Transformation API. Provides a standard interface and
-abstract base class for objects and classes that manipulate Documents.
-
-=back
-
-=head1 INSTALLING
-
-The core PPI distribution is pure Perl and has been kept as tight as
-possible and with as few dependencies as possible.
-
-It should download and install normally on any platform from within
-the CPAN and CPANPLUS applications, or directly using the distribution
-tarball. If installing by hand, you may need to install a few small
-utility modules first. The exact ones will depend on your version of
-perl.
-
-There are no special install instructions for PPI, and the normal
-C<Perl Makefile.PL>, C<make>, C<make test>, C<make install> instructions
-apply.
-
-=head1 EXTENDING
-
-The PPI namespace itself is reserved for the sole use of the modules under
-the umbrella of the C<Parse::Perl> SourceForge project.
-
-L<http://sf.net/projects/parseperl>
-
-You are recommended to use the PPIx:: namespace for PPI-specific
-modifications or prototypes thereof, or Perl:: for modules which provide
-a general Perl language-related functions.
-
-If what you wish to implement looks like it fits into PPIx:: namespace,
-you should consider contacting the C<Parse::Perl> mailing list (detailed on
-the SourceForge site) first, as what you want may already be in progress,
-or you may wish to consider joining the team and doing it within the
-C<Parse::Perl> project itself.
-
-=head1 TO DO
-
-- Many more analysis and utility methods for PDOM classes
-
-- Creation of a PPI::Tutorial document
-
-- Add many more key functions to PPI::XS
-
-- We can B<always> write more and better unit tests
-
-- Complete the full implementation of -E<gt>literal (1.200)
-
-- Full understanding of scoping (due 1.300)
-
-=head1 SUPPORT
-
-This module is stored in an Open Repository at the following address.
-
-L<http://svn.ali.as/cpan/trunk/PPI>
-
-Write access to the repository is made available automatically to any
-published CPAN author, and to most other volunteers on request.
-
-If you are able to submit your bug report in the form of new (failing)
-unit tests, or can apply your fix directly instead of submitting a patch,
-you are B<strongly> encouraged to do so, as the author currently maintains
-over 100 modules and it can take some time to deal with non-"Critical" bug
-reports or patches.
-
-This will also guarentee that your issue will be addressed in the next
-release of the module.
-
-For large changes though, please consider creating a branch so that they
-can be properly reviewed and trialed before being applied to the trunk.
-
-If you cannot provide a direct test or fix, or don't have time to do so,
-then regular bug reports are still accepted and appreciated via the CPAN
-bug tracker.
-
-L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=PPI>
-
-For other issues or questions, contact the C<Parse::Perl> project mailing
-list.
-
-For commercial or media-related enquiries, or to have your SVN commit bit
-enabled, contact the author.
-
-=head1 AUTHOR
-
-Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-
-=head1 ACKNOWLEDGMENTS
-
-A huge thank you to Phase N Australia (L<http://phase-n.com/>) for
-permitting the original open sourcing and release of this distribution
-from what was originally several thousand hours of commercial work.
-
-Another big thank you to The Perl Foundation
-(L<http://www.perlfoundation.org/>) for funding for the final big
-refactoring and completion run.
-
-Also, to the various co-maintainers that have contributed both large and
-small with tests and patches and especially to those rare few who have
-deep-dived into the guts to (gasp) add a feature.
-
- - Dan Brook : PPIx::XPath, Acme::PerlML
- - Audrey Tang : "Line Noise" Testing
- - Arjen Laarhoven : Three-element ->location support
- - Elliot Shank : Perl 5.10 support, five-element ->location
-
-And finally, thanks to those brave ( and foolish :) ) souls willing to dive
-in and use, test drive and provide feedback on PPI before version 1.000,
-in some cases before it made it to beta quality, and still did extremely
-distasteful things (like eating 50 meg of RAM a second).
-
-I owe you all a beer. Corner me somewhere and collect at your convenience.
-If I missed someone who wasn't in my email history, thank you too :)
-
- # In approximate order of appearance
- - Claes Jacobsson
- - Michael Schwern
- - Jeff T. Parsons
- - CPAN Author "CHOCOLATEBOY"
- - Robert Rotherberg
- - CPAN Author "PODMASTER"
- - Richard Soderberg
- - Nadim ibn Hamouda el Khemir
- - Graciliano M. P.
- - Leon Brocard
- - Jody Belka
- - Curtis Ovid
- - Yuval Kogman
- - Michael Schilli
- - Slaven Rezic
- - Lars Thegler
- - Tony Stubblebine
- - Tatsuhiko Miyagawa
- - CPAN Author "CHROMATIC"
- - Matisse Enzer
- - Roy Fulbright
- - Dan Brook
- - Johnny Lee
- - Johan Lindstrom
-
-And to single one person out, thanks go to Randal Schwartz who
-spent a great number of hours in IRC over a critical 6 month period
-explaining why Perl is impossibly unparsable and constantly shoving evil
-and ugly corner cases in my face. He remained a tireless devil's advocate,
-and without his support this project genuinely could never have been
-completed.
-
-So for my schooling in the Deep Magiks, you have my deepest gratitude Randal.
-
-=head1 COPYRIGHT
-
-Copyright 2001 - 2010 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/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Cache.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Cache.pm
deleted file mode 100644
index 2d468eb..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Cache.pm
+++ /dev/null
@@ -1,304 +0,0 @@
-package PPI::Cache;
-
-=pod
-
-=head1 NAME
-
-PPI::Cache - The PPI Document Caching Layer
-
-=head1 SYNOPSIS
-
- # Set the cache
- use PPI::Cache path => '/var/cache/ppi-cache';
-
- # Manually create a cache
- my $Cache = PPI::Cache->new(
- path => '/var/cache/perl/class-PPI',
- readonly => 1,
- );
-
-=head1 DESCRIPTION
-
-C<PPI::Cache> provides the default caching functionality for L<PPI>.
-
-It integrates automatically with L<PPI> itself. Once enabled, any attempt
-to load a document from the filesystem will be cached via cache.
-
-Please note that creating a L<PPI::Document> from raw source or something
-other object will B<not> be cached.
-
-=head2 Using PPI::Cache
-
-The most common way of using C<PPI::Cache> is to provide parameters to
-the C<use> statement at the beginning of your program.
-
- # Load the class but do not set a cache
- use PPI::Cache;
-
- # Use a fairly normal cache location
- use PPI::Cache path => '/var/cache/ppi-cache';
-
-Any of the arguments that can be provided to the C<new> constructor can
-also be provided to C<use>.
-
-=head1 METHODS
-
-=cut
-
-use strict;
-use Carp ();
-use File::Spec ();
-use File::Path ();
-use Storable ();
-use Digest::MD5 ();
-use Params::Util qw{_INSTANCE _SCALAR};
-use PPI::Document ();
-
-use vars qw{$VERSION};
-BEGIN {
- $VERSION = '1.212';
-}
-
-use constant VMS => !! ( $^O eq 'VMS' );
-
-sub import {
- my $class = ref $_[0] ? ref shift : shift;
- return 1 unless @_;
-
- # Create a cache from the params provided
- my $cache = $class->new(@_);
-
- # Make PPI::Document use it
- unless ( PPI::Document->set_cache( $cache ) ) {
- Carp::croak("Failed to set cache in PPI::Document");
- }
-
- 1;
-}
-
-
-
-
-
-#####################################################################
-# Constructor and Accessors
-
-=pod
-
-=head2 new param => $value, ...
-
-The C<new> constructor creates a new standalone cache object.
-
-It takes a number of parameters to control the cache.
-
-=over
-
-=item path
-
-The C<path> param sets the base directory for the cache. It must already
-exist, and must be writable.
-
-=item readonly
-
-The C<readonly> param is a true/false flag that allows the use of an
-existing cache by a less-privileged user (such as the web user).
-
-Existing documents will be retrieved from the cache, but new documents
-will not be written to it.
-
-=back
-
-Returns a new C<PPI::Cache> object, or dies on error.
-
-=cut
-
-sub new {
- my $class = shift;
- my %params = @_;
-
- # Path should exist and be usable
- my $path = $params{path}
- or Carp::croak("Cannot create PPI::Cache, no path provided");
- unless ( -d $path ) {
- Carp::croak("Cannot create PPI::Cache, path does not exist");
- }
- unless ( -r $path and -x $path ) {
- Carp::croak("Cannot create PPI::Cache, no read permissions for path");
- }
- if ( ! $params{readonly} and ! -w $path ) {
- Carp::croak("Cannot create PPI::Cache, no write permissions for path");
- }
-
- # Create the basic object
- my $self = bless {
- path => $path,
- readonly => !! $params{readonly},
- }, $class;
-
- $self;
-}
-
-=pod
-
-=head2 path
-
-The C<path> accessor returns the path on the local filesystem that is the
-root of the cache.
-
-=cut
-
-sub path { $_[0]->{path} }
-
-=pod
-
-=head2 readonly
-
-The C<readonly> accessor returns true if documents should not be written
-to the cache.
-
-=cut
-
-sub readonly { $_[0]->{readonly} }
-
-
-
-
-
-#####################################################################
-# PPI::Cache Methods
-
-=pod
-
-=head2 get_document $md5sum | \$source
-
-The C<get_document> method checks to see if a Document is stored in the
-cache and retrieves it if so.
-
-=cut
-
-sub get_document {
- my $self = ref $_[0]
- ? shift
- : Carp::croak('PPI::Cache::get_document called as static method');
- my $md5hex = $self->_md5hex(shift) or return undef;
- $self->_load($md5hex);
-}
-
-=pod
-
-=head2 store_document $Document
-
-The C<store_document> method takes a L<PPI::Document> as argument and
-explicitly adds it to the cache.
-
-Returns true if saved, or C<undef> (or dies) on error.
-
-FIXME (make this return either one or the other, not both)
-
-=cut
-
-sub store_document {
- my $self = shift;
- my $Document = _INSTANCE(shift, 'PPI::Document') or return undef;
-
- # Shortcut if we are readonly
- return 1 if $self->readonly;
-
- # Find the filename to save to
- my $md5hex = $Document->hex_id or return undef;
-
- # Store the file
- $self->_store( $md5hex, $Document );
-}
-
-
-
-
-
-#####################################################################
-# Support Methods
-
-# Store an arbitrary PPI::Document object (using Storable) to a particular
-# path within the cache filesystem.
-sub _store {
- my ($self, $md5hex, $object) = @_;
- my ($dir, $file) = $self->_paths($md5hex);
-
- # Save the file
- File::Path::mkpath( $dir, 0, 0755 ) unless -d $dir;
- if ( VMS ) {
- Storable::lock_nstore( $object, $file );
- } else {
- Storable::nstore( $object, $file );
- }
-}
-
-# Load an arbitrary object (using Storable) from a particular
-# path within the cache filesystem.
-sub _load {
- my ($self, $md5hex) = @_;
- my (undef, $file) = $self->_paths($md5hex);
-
- # Load the file
- return '' unless -f $file;
- my $object = VMS
- ? Storable::retrieve( $file )
- : Storable::lock_retrieve( $file );
-
- # Security check
- unless ( _INSTANCE($object, 'PPI::Document') ) {
- Carp::croak("Security Violation: Object in '$file' is not a PPI::Document");
- }
-
- $object;
-}
-
-# Convert a md5 to a dir and file name
-sub _paths {
- my $self = shift;
- my $md5hex = lc shift;
- my $dir = File::Spec->catdir( $self->path, substr($md5hex, 0, 1), substr($md5hex, 0, 2) );
- my $file = File::Spec->catfile( $dir, $md5hex . '.ppi' );
- return ($dir, $file);
-}
-
-# Check a md5hex param
-sub _md5hex {
- my $either = shift;
- my $it = _SCALAR($_[0])
- ? PPI::Util::md5hex(${$_[0]})
- : $_[0];
- return (defined $it and ! ref $it and $it =~ /^[a-f0-9]{32}\z/si)
- ? lc $it
- : undef;
-}
-
-1;
-
-=pod
-
-=head1 TO DO
-
-- Finish the basic functionality
-
-- Add support for use PPI::Cache auto-setting $PPI::Document::CACHE
-
-=head1 SUPPORT
-
-See the L<support section|PPI/SUPPORT> in the main module.
-
-=head1 AUTHOR
-
-Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2005 - 2010 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/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Document/Normalized.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Document/Normalized.pm
deleted file mode 100644
index b7d3189..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Document/Normalized.pm
+++ /dev/null
@@ -1,316 +0,0 @@
-package PPI::Document::Normalized;
-
-=pod
-
-=head1 NAME
-
-PPI::Document::Normalized - A normalized Perl Document
-
-=head1 DESCRIPTION
-
-A C<Normalized Document> object is the result of the normalization process
-contained in the L<PPI::Normal> class. See the documentation for
-L<PPI::Normal> for more information.
-
-The object contains a version stamp and function list for the version
-of L<PPI::Normal> used to create it, and a processed and delinked
-L<PPI::Document> object.
-
-Typically, the Document object will have been mangled by the normalization
-process in a way that would make it fatal to try to actually DO anything
-with it.
-
-Put simply, B<never> use the Document object after normalization.
-B<YOU HAVE BEEN WARNED!>
-
-The object is designed the way it is to provide a bias towards false
-negatives. A comparison between two ::Normalized object will only return
-true if they were produced by the same version of PPI::Normal, with the
-same set of normalization functions (in the same order).
-
-You may get false negatives if you are caching objects across an upgrade.
-
-Please note that this is done for security purposes, as there are many
-cases in which low layer normalization is likely to be done as part of
-a code security process, and false positives could be highly dangerous.
-
-=head1 METHODS
-
-=cut
-
-# For convenience (and since this isn't really a public class), import
-# the methods we will need from Scalar::Util.
-use strict;
-use Scalar::Util qw{refaddr reftype blessed};
-use Params::Util qw{_INSTANCE _ARRAY};
-use PPI::Util ();
-
-use vars qw{$VERSION};
-BEGIN {
- $VERSION = '1.212';
-}
-
-use overload 'bool' => \&PPI::Util::TRUE;
-use overload '==' => 'equal';
-
-
-
-
-
-
-#####################################################################
-# Constructor and Accessors
-
-=pod
-
-=head2 new
-
-The C<new> method is intended for use only by the L<PPI::Normal> class,
-and to get ::Normalized objects, you are highly recommended to use
-either that module, or the C<normalized> method of the L<PPI::Document>
-object itself.
-
-=cut
-
-sub new {
- my $class = shift;
- my %args = @_;
-
- # Check the required params
- my $Document = _INSTANCE($args{Document}, 'PPI::Document') or return undef;
- my $version = $args{version} or return undef;
- my $functions = _ARRAY($args{functions}) or return undef;
-
- # Create the object
- my $self = bless {
- Document => $Document,
- version => $version,
- functions => $functions,
- }, $class;
-
- $self;
-}
-
-sub _Document { $_[0]->{Document} }
-
-=pod
-
-=head2 version
-
-The C<version> accessor returns the L<PPI::Normal> version used to create
-the object.
-
-=cut
-
-sub version { $_[0]->{version} }
-
-=pod
-
-=head2 functions
-
-The C<functions> accessor returns a reference to an array of the
-normalization functions (in order) that were called when creating
-the object.
-
-=cut
-
-sub functions { $_[0]->{functions} }
-
-
-
-
-
-#####################################################################
-# Comparison Methods
-
-=pod
-
-=head2 equal $Normalized
-
-The C<equal> method is the primary comparison method, taking another
-PPI::Document::Normalized object, and checking for equivalence to it.
-
-The C<==> operator is also overload to this method, so that you can
-do something like the following:
-
- my $first = PPI::Document->load('first.pl');
- my $second = PPI::Document->load('second.pl');
-
- if ( $first->normalized == $second->normalized ) {
- print "The two documents are equivalent";
- }
-
-Returns true if the normalized documents are equivalent, false if not,
-or C<undef> if there is an error.
-
-=cut
-
-sub equal {
- my $self = shift;
- my $other = _INSTANCE(shift, 'PPI::Document::Normalized') or return undef;
-
- # Prevent multiple concurrent runs
- return undef if $self->{processing};
-
- # Check the version and function list first
- return '' unless $self->version eq $other->version;
- $self->_equal_ARRAY( $self->functions, $other->functions ) or return '';
-
- # Do the main comparison run
- $self->{seen} = {};
- my $rv = $self->_equal_blessed( $self->_Document, $other->_Document );
- delete $self->{seen};
-
- $rv;
-}
-
-# Check that two objects are matched
-sub _equal_blessed {
- my ($self, $this, $that) = @_;
- my ($bthis, $bthat) = (blessed $this, blessed $that);
- $bthis and $bthat and $bthis eq $bthat or return '';
-
- # Check the object as a reference
- $self->_equal_reference( $this, $that );
-}
-
-# Check that two references match their types
-sub _equal_reference {
- my ($self, $this, $that) = @_;
- my ($rthis, $rthat) = (refaddr $this, refaddr $that);
- $rthis and $rthat or return undef;
-
- # If we have seen this before, are the pointing
- # is it the same one we saw in both sides
- my $seen = $self->{seen}->{$rthis};
- if ( $seen and $seen ne $rthat ) {
- return '';
- }
-
- # Check the reference types
- my ($tthis, $tthat) = (reftype $this, reftype $that);
- $tthis and $tthat and $tthis eq $tthat or return undef;
-
- # Check the children of the reference type
- $self->{seen}->{$rthis} = $rthat;
- my $method = "_equal_$tthat";
- my $rv = $self->$method( $this, $that );
- delete $self->{seen}->{$rthis};
- $rv;
-}
-
-# Compare the children of two SCALAR references
-sub _equal_SCALAR {
- my ($self, $this, $that) = @_;
- my ($cthis, $cthat) = ($$this, $$that);
- return $self->_equal_blessed( $cthis, $cthat ) if blessed $cthis;
- return $self->_equal_reference( $cthis, $cthat ) if ref $cthis;
- return (defined $cthat and $cthis eq $cthat) if defined $cthis;
- ! defined $cthat;
-}
-
-# For completeness sake, lets just treat REF as a specialist SCALAR case
-sub _equal_REF { shift->_equal_SCALAR(@_) }
-
-# Compare the children of two ARRAY references
-sub _equal_ARRAY {
- my ($self, $this, $that) = @_;
-
- # Compare the number of elements
- scalar(@$this) == scalar(@$that) or return '';
-
- # Check each element in the array.
- # Descend depth-first.
- foreach my $i ( 0 .. scalar(@$this) ) {
- my ($cthis, $cthat) = ($this->[$i], $that->[$i]);
- if ( blessed $cthis ) {
- return '' unless $self->_equal_blessed( $cthis, $cthat );
- } elsif ( ref $cthis ) {
- return '' unless $self->_equal_reference( $cthis, $cthat );
- } elsif ( defined $cthis ) {
- return '' unless (defined $cthat and $cthis eq $cthat);
- } else {
- return '' if defined $cthat;
- }
- }
-
- 1;
-}
-
-# Compare the children of a HASH reference
-sub _equal_HASH {
- my ($self, $this, $that) = @_;
-
- # Compare the number of keys
- return '' unless scalar(keys %$this) == scalar(keys %$that);
-
- # Compare each key, descending depth-first.
- foreach my $k ( keys %$this ) {
- return '' unless exists $that->{$k};
- my ($cthis, $cthat) = ($this->{$k}, $that->{$k});
- if ( blessed $cthis ) {
- return '' unless $self->_equal_blessed( $cthis, $cthat );
- } elsif ( ref $cthis ) {
- return '' unless $self->_equal_reference( $cthis, $cthat );
- } elsif ( defined $cthis ) {
- return '' unless (defined $cthat and $cthis eq $cthat);
- } else {
- return '' if defined $cthat;
- }
- }
-
- 1;
-}
-
-# We do not support GLOB comparisons
-sub _equal_GLOB {
- my ($self, $this, $that) = @_;
- warn('GLOB comparisons are not supported');
- '';
-}
-
-# We do not support CODE comparisons
-sub _equal_CODE {
- my ($self, $this, $that) = @_;
- refaddr $this == refaddr $that;
-}
-
-# We don't support IO comparisons
-sub _equal_IO {
- my ($self, $this, $that) = @_;
- warn('IO comparisons are not supported');
- '';
-}
-
-sub DESTROY {
- # Take the screw up Document with us
- if ( $_[0]->{Document} ) {
- $_[0]->{Document}->DESTROY;
- delete $_[0]->{Document};
- }
-}
-
-1;
-
-=pod
-
-=head1 SUPPORT
-
-See the L<support section|PPI/SUPPORT> in the main module.
-
-=head1 AUTHOR
-
-Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2005 - 2010 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/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Exception.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Exception.pm
deleted file mode 100644
index 0ef1da1..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Exception.pm
+++ /dev/null
@@ -1,60 +0,0 @@
-package PPI::Exception;
-
-use strict;
-use Params::Util qw{_INSTANCE};
-
-use vars qw{$VERSION};
-BEGIN {
- $VERSION = '1.212';
-}
-
-
-
-
-
-#####################################################################
-# Constructor and Accessors
-
-sub new {
- my $class = shift;
- return bless { @_ }, $class if @_ > 1;
- return bless { message => $_[0] }, $class if @_;
- return bless { message => 'Unknown Exception' }, $class;
-}
-
-sub message {
- $_[0]->{message};
-}
-
-sub callers {
- @{ $_[0]->{callers} || [] };
-}
-
-
-
-
-
-#####################################################################
-# Main Methods
-
-sub throw {
- my $it = shift;
- if ( _INSTANCE($it, 'PPI::Exception') ) {
- if ( $it->{callers} ) {
- push @{ $it->{callers} }, [ caller(0) ];
- } else {
- $it->{callers} ||= [];
- }
- } else {
- my $message = $_[0] || 'Unknown Exception';
- $it = $it->new(
- message => $message,
- callers => [
- [ caller(0) ],
- ],
- );
- }
- die $it;
-}
-
-1;
diff --git a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Exception/ParserRejection.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Exception/ParserRejection.pm
deleted file mode 100644
index 5b3ad43..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Exception/ParserRejection.pm
+++ /dev/null
@@ -1,12 +0,0 @@
-package PPI::Exception::ParserRejection;
-
-use strict;
-use PPI::Exception ();
-
-use vars qw{$VERSION @ISA};
-BEGIN {
- $VERSION = '1.212';
- @ISA = 'PPI::Exception';
-}
-
-1;
diff --git a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Normal.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Normal.pm
deleted file mode 100644
index b282d9c..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Normal.pm
+++ /dev/null
@@ -1,332 +0,0 @@
-package PPI::Normal;
-
-=pod
-
-=head1 NAME
-
-PPI::Normal - Normalize Perl Documents
-
-=head2 DESCRIPTION
-
-Perl Documents, as created by PPI, are typically filled with all sorts of
-mess such as whitespace and comments and other things that don't effect
-the actual meaning of the code.
-
-In addition, because there is more than one way to do most things, and the
-syntax of Perl itself is quite flexible, there are many ways in which the
-"same" code can look quite different.
-
-PPI::Normal attempts to resolve this by providing a variety of mechanisms
-and algorithms to "normalize" Perl Documents, and determine a sort of base
-form for them (although this base form will be a memory structure, and
-not something that can be turned back into Perl source code).
-
-The process itself is quite complex, and so for convenience and
-extensibility it has been separated into a number of layers. At a later
-point, it will be possible to write Plugin classes to insert additional
-normalization steps into the various different layers.
-
-In addition, you can choose to do the normalization only as deep as a
-particular layer, depending on aggressively you want the normalization
-process to be.
-
-=head1 METHODS
-
-=cut
-
-use strict;
-use Carp ();
-use List::MoreUtils ();
-use PPI::Util '_Document';
-use PPI::Document::Normalized ();
-
-use vars qw{$VERSION %LAYER};
-BEGIN {
- $VERSION = '1.212';
-
- # Registered function store
- %LAYER = (
- 1 => [],
- 2 => [],
- );
-}
-
-
-
-
-
-#####################################################################
-# Configuration
-
-=pod
-
-=head2 register $function => $layer, ...
-
-The C<register> method is used by normalization method providers to
-tell the normalization engines which functions need to be run, and
-in which layer they apply.
-
-Provide a set of key/value pairs, where the key is the full name of the
-function (in string form), and the value is the layer (see description
-of the layers above) in which it should be run.
-
-Returns true if all functions are registered, or C<undef> on error.
-
-=cut
-
-sub register {
- my $class = shift;
- while ( @_ ) {
- # Check the function
- my $function = shift;
- SCOPE: {
- no strict 'refs';
- defined $function and defined &{"$function"}
- or Carp::croak("Bad function name provided to PPI::Normal");
- }
-
- # Has it already been added?
- if ( List::MoreUtils::any { $_ eq $function } ) {
- return 1;
- }
-
- # Check the layer to add it to
- my $layer = shift;
- defined $layer and $layer =~ /^(?:1|2)$/
- or Carp::croak("Bad layer provided to PPI::Normal");
-
- # Add to the layer data store
- push @{ $LAYER{$layer} }, $function;
- }
-
- 1;
-}
-
-# With the registration mechanism in place, load in the main set of
-# normalization methods to initialize the store.
-use PPI::Normal::Standard;
-
-
-
-
-
-#####################################################################
-# Constructor and Accessors
-
-=pod
-
-=head2 new
-
- my $level_1 = PPI::Normal->new;
- my $level_2 = PPI::Normal->new(2);
-
-Creates a new normalization object, to which Document objects
-can be passed to be normalized.
-
-Of course, what you probably REALLY want is just to call
-L<PPI::Document>'s C<normalize> method.
-
-Takes an optional single parameter of the normalisation layer
-to use, which at this time can be either "1" or "2".
-
-Returns a new C<PPI::Normal> object, or C<undef> on error.
-
-=begin testing new after PPI::Document 12
-
-# Check we actually set the layer at creation
-my $layer_1 = PPI::Normal->new;
-isa_ok( $layer_1, 'PPI::Normal' );
-is( $layer_1->layer, 1, '->new creates a layer 1' );
-my $layer_1a = PPI::Normal->new(1);
-isa_ok( $layer_1a, 'PPI::Normal' );
-is( $layer_1a->layer, 1, '->new(1) creates a layer 1' );
-my $layer_2 = PPI::Normal->new(2);
-isa_ok( $layer_2, 'PPI::Normal' );
-is( $layer_2->layer, 2, '->new(2) creates a layer 2' );
-
-# Test bad things
-is( PPI::Normal->new(3), undef, '->new only allows up to layer 2' );
-is( PPI::Normal->new(undef), undef, '->new(evil) returns undef' );
-is( PPI::Normal->new("foo"), undef, '->new(evil) returns undef' );
-is( PPI::Normal->new(\"foo"), undef, '->new(evil) returns undef' );
-is( PPI::Normal->new([]), undef, '->new(evil) returns undef' );
-is( PPI::Normal->new({}), undef, '->new(evil) returns undef' );
-
-=end testing
-
-=cut
-
-sub new {
- my $class = shift;
- my $layer = @_ ?
- (defined $_[0] and ! ref $_[0] and $_[0] =~ /^[12]$/) ? shift : return undef
- : 1;
-
- # Create the object
- my $object = bless {
- layer => $layer,
- }, $class;
-
- $object;
-}
-
-=pod
-
-=head1 layer
-
-The C<layer> accessor returns the normalisation layer of the object.
-
-=cut
-
-sub layer { $_[0]->{layer} }
-
-
-
-
-
-#####################################################################
-# Main Methods
-
-=pod
-
-=head2 process
-
-The C<process> method takes anything that can be converted to a
-L<PPI::Document> (object, SCALAR ref, filename), loads it and
-applies the normalisation process to the document.
-
-Returns a L<PPI::Document::Normalized> object, or C<undef> on error.
-
-=begin testing process after new 15
-
-my $doc1 = PPI::Document->new(\'print "Hello World!\n";');
-isa_ok( $doc1, 'PPI::Document' );
-my $doc2 = \'print "Hello World!\n";';
-my $doc3 = \' print "Hello World!\n"; # comment';
-my $doc4 = \'print "Hello World!\n"';
-
-# Normalize them at level 1
-my $layer1 = PPI::Normal->new(1);
-isa_ok( $layer1, 'PPI::Normal' );
-my $nor11 = $layer1->process($doc1->clone);
-my $nor12 = $layer1->process($doc2);
-my $nor13 = $layer1->process($doc3);
-isa_ok( $nor11, 'PPI::Document::Normalized' );
-isa_ok( $nor12, 'PPI::Document::Normalized' );
-isa_ok( $nor13, 'PPI::Document::Normalized' );
-
-# The first 3 should be the same, the second not
-is_deeply( { %$nor11 }, { %$nor12 }, 'Layer 1: 1 and 2 match' );
-is_deeply( { %$nor11 }, { %$nor13 }, 'Layer 1: 1 and 3 match' );
-
-# Normalize them at level 2
-my $layer2 = PPI::Normal->new(2);
-isa_ok( $layer2, 'PPI::Normal' );
-my $nor21 = $layer2->process($doc1);
-my $nor22 = $layer2->process($doc2);
-my $nor23 = $layer2->process($doc3);
-my $nor24 = $layer2->process($doc4);
-isa_ok( $nor21, 'PPI::Document::Normalized' );
-isa_ok( $nor22, 'PPI::Document::Normalized' );
-isa_ok( $nor23, 'PPI::Document::Normalized' );
-isa_ok( $nor24, 'PPI::Document::Normalized' );
-
-# The first 3 should be the same, the second not
-is_deeply( { %$nor21 }, { %$nor22 }, 'Layer 2: 1 and 2 match' );
-is_deeply( { %$nor21 }, { %$nor23 }, 'Layer 2: 1 and 3 match' );
-is_deeply( { %$nor21 }, { %$nor24 }, 'Layer 2: 1 and 4 match' );
-
-=end testing
-
-=cut
-
-sub process {
- my $self = ref $_[0] ? shift : shift->new;
-
- # PPI::Normal objects are reusable, but not re-entrant
- return undef if $self->{Document};
-
- # Get or create the document
- $self->{Document} = _Document(shift) or return undef;
-
- # Work out what functions we need to call
- my @functions = ();
- foreach ( 1 .. $self->layer ) {
- push @functions, @{ $LAYER{$_} };
- }
-
- # Execute each function
- foreach my $function ( @functions ) {
- no strict 'refs';
- &{"$function"}( $self->{Document} );
- }
-
- # Create the normalized Document object
- my $Normalized = PPI::Document::Normalized->new(
- Document => $self->{Document},
- version => $VERSION,
- functions => \@functions,
- ) or return undef;
-
- # Done, clean up
- delete $self->{Document};
- return $Normalized;
-}
-
-1;
-
-=pod
-
-=head1 NOTES
-
-The following normalisation layers are implemented. When writing
-plugins, you should register each transformation function with the
-appropriate layer.
-
-=head2 Layer 1 - Insignificant Data Removal
-
-The basic step common to all normalization, layer 1 scans through the
-Document and removes all whitespace, comments, POD, and anything else
-that returns false for its C<significant> method.
-
-It also checks each Element and removes known-useless sub-element
-metadata such as the Element's physical position in the file.
-
-=head2 Layer 2 - Significant Element Removal
-
-After the removal of the insignificant data, Layer 2 removed larger, more
-complex, and superficially "significant" elements, that can be removed
-for the purposes of normalisation.
-
-Examples from this layer include pragmas, now-useless statement
-separators (since the PDOM tree is holding statement elements), and
-several other minor bits and pieces.
-
-=head2 Layer 3 - TO BE COMPLETED
-
-This version of the forward-port of the Perl::Compare functionality
-to the 0.900+ API of PPI only implements Layer 1 and 2 at this time.
-
-=head1 TO DO
-
-- Write the other 4-5 layers :)
-
-=head1 SUPPORT
-
-See the L<support section|PPI/SUPPORT> in the main module.
-
-=head1 AUTHOR
-
-Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2005 - 2010 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/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Statement/Include.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Statement/Include.pm
deleted file mode 100644
index 2275718..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Statement/Include.pm
+++ /dev/null
@@ -1,492 +0,0 @@
-package PPI::Statement::Include;
-
-=pod
-
-=head1 NAME
-
-PPI::Statement::Include - Statements that include other code
-
-=head1 SYNOPSIS
-
- # The following are all includes
- use 5.006;
- use strict;
- use My::Module;
- use constant FOO => 'Foo';
- require Foo::Bar;
- require "Foo/Bar.pm";
- require $foo if 1;
- no strict 'refs';
-
-=head1 INHERITANCE
-
- PPI::Statement::Include
- isa PPI::Statement
- isa PPI::Node
- isa PPI::Element
-
-=head1 DESCRIPTION
-
-Despite its name, the C<PPI::Statement::Include> class covers a number
-of different types of statement that cover all statements starting with
-C<use>, C<no> and C<require>.
-
-But basically, they cover three situations.
-
-Firstly, a dependency on a particular version of perl (for which the
-C<version> method returns true), a pragma (for which the C<pragma> method
-returns true, or the loading (and unloading via no) of modules.
-
-=head1 METHODS
-
-C<PPI::Statement::Include> has a number of methods in addition to the standard
-L<PPI::Statement>, L<PPI::Node> and L<PPI::Element> methods.
-
-=cut
-
-use strict;
-use PPI::Statement ();
-use PPI::Statement::Include::Perl6 ();
-
-use vars qw{$VERSION @ISA};
-BEGIN {
- $VERSION = '1.212';
- @ISA = 'PPI::Statement';
-}
-
-=pod
-
-=head2 type
-
-The C<type> method returns the general type of statement (C<'use'>, C<'no'>
-or C<'require'>).
-
-Returns the type as a string, or C<undef> if the type cannot be detected.
-
-=begin testing type 9
-
-my $document = PPI::Document->new(\<<'END_PERL');
-require 5.6;
-require Module;
-require 'Module.pm';
-use 5.6;
-use Module;
-use Module 1.00;
-no Module;
-END_PERL
-
-isa_ok( $document, 'PPI::Document' );
-my $statements = $document->find('PPI::Statement::Include');
-is( scalar(@$statements), 7, 'Found 7 include statements' );
-my @expected = qw{ require require require use use use no };
-foreach ( 0 .. 6 ) {
- is( $statements->[$_]->type, $expected[$_], "->type $_ ok" );
-}
-
-=end testing
-
-=cut
-
-sub type {
- my $self = shift;
- my $keyword = $self->schild(0) or return undef;
- $keyword->isa('PPI::Token::Word') and $keyword->content;
-}
-
-=pod
-
-=head2 module
-
-The C<module> method returns the module name specified in any include
-statement. This C<includes> pragma names, because pragma are implemented
-as modules. (And lets face it, the definition of a pragma can be fuzzy
-at the best of times in any case)
-
-This covers all of these...
-
- use strict;
- use My::Module;
- no strict;
- require My::Module;
-
-...but does not cover any of these...
-
- use 5.006;
- require 5.005;
- require "explicit/file/name.pl";
-
-Returns the module name as a string, or C<undef> if the include does
-not specify a module name.
-
-=cut
-
-sub module {
- my $self = shift;
- my $module = $self->schild(1) or return undef;
- $module->isa('PPI::Token::Word') and $module->content;
-}
-
-=pod
-
-=head2 module_version
-
-The C<module_version> method returns the minimum version of the module
-required by the statement, if there is one.
-
-=begin testing module_version 9
-
-my $document = PPI::Document->new(\<<'END_PERL');
-use Integer::Version 1;
-use Float::Version 1.5;
-use Version::With::Argument 1 2;
-use No::Version;
-use No::Version::With::Argument 'x';
-use No::Version::With::Arguments 1, 2;
-use 5.005;
-END_PERL
-
-isa_ok( $document, 'PPI::Document' );
-my $statements = $document->find('PPI::Statement::Include');
-is( scalar @{$statements}, 7, 'Found expected include statements.' );
-is( $statements->[0]->module_version, 1, 'Integer version' );
-is( $statements->[1]->module_version, 1.5, 'Float version' );
-is( $statements->[2]->module_version, 1, 'Version and argument' );
-is( $statements->[3]->module_version, undef, 'No version, no arguments' );
-is( $statements->[4]->module_version, undef, 'No version, with argument' );
-is( $statements->[5]->module_version, undef, 'No version, with arguments' );
-is( $statements->[6]->module_version, undef, 'Version include, no module' );
-
-=end testing
-
-=cut
-
-sub module_version {
- my $self = shift;
- my $argument = $self->schild(3);
- if ( $argument and $argument->isa('PPI::Token::Operator') ) {
- return undef;
- }
-
- my $version = $self->schild(2) or return undef;
- return undef unless $version->isa('PPI::Token::Number');
-
- return $version;
-}
-
-=pod
-
-=head2 pragma
-
-The C<pragma> method checks for an include statement's use as a
-pragma, and returns it if so.
-
-Or at least, it claims to. In practice it's a lot harder to say exactly
-what is or isn't a pragma, because the definition is fuzzy.
-
-The C<intent> of a pragma is to modify the way in which the parser works.
-This is done though the use of modules that do various types of internals
-magic.
-
-For now, PPI assumes that any "module name" that is only a set of
-lowercase letters (and perhaps numbers, like C<use utf8;>). This
-behaviour is expected to change, most likely to something that knows
-the specific names of the various "pragmas".
-
-Returns the name of the pragma, or false ('') if the include is not a
-pragma.
-
-=cut
-
-sub pragma {
- my $self = shift;
- my $module = $self->module or return '';
- $module =~ /^[a-z][a-z\d]*$/ ? $module : '';
-}
-
-=pod
-
-=head2 version
-
-The C<version> method checks for an include statement that introduces a
-dependency on the version of C<perl> the code is compatible with.
-
-This covers two specific statements.
-
- use 5.006;
- require 5.006;
-
-Currently the version is returned as a string, although in future the version
-may be returned as a L<version> object. If you want a numeric representation,
-use C<version_literal()>. Returns false if the statement is not a version
-dependency.
-
-=begin testing version 13
-
-my $document = PPI::Document->new(\<<'END_PERL');
-# Examples from perlfunc in 5.10.
-use v5.6.1;
-use 5.6.1;
-use 5.006_001;
-use 5.006; use 5.6.1;
-
-# Same, but using require.
-require v5.6.1;
-require 5.6.1;
-require 5.006_001;
-require 5.006; require 5.6.1;
-
-# Module.
-use Float::Version 1.5;
-END_PERL
-
-isa_ok( $document, 'PPI::Document' );
-my $statements = $document->find('PPI::Statement::Include');
-is( scalar @{$statements}, 11, 'Found expected include statements.' );
-
-is( $statements->[0]->version, 'v5.6.1', 'use v-string' );
-is( $statements->[1]->version, '5.6.1', 'use v-string, no leading "v"' );
-is( $statements->[2]->version, '5.006_001', 'use developer release' );
-is( $statements->[3]->version, '5.006', 'use back-compatible version, followed by...' );
-is( $statements->[4]->version, '5.6.1', '... use v-string, no leading "v"' );
-
-is( $statements->[5]->version, 'v5.6.1', 'require v-string' );
-is( $statements->[6]->version, '5.6.1', 'require v-string, no leading "v"' );
-is( $statements->[7]->version, '5.006_001', 'require developer release' );
-is( $statements->[8]->version, '5.006', 'require back-compatible version, followed by...' );
-is( $statements->[9]->version, '5.6.1', '... require v-string, no leading "v"' );
-
-is( $statements->[10]->version, '', 'use module version' );
-
-=end testing
-
-=cut
-
-sub version {
- my $self = shift;
- my $version = $self->schild(1) or return undef;
- $version->isa('PPI::Token::Number') ? $version->content : '';
-}
-
-=pod
-
-=head2 version_literal
-
-The C<version_literal> method has the same behavior as C<version()>, but the
-version is returned as a numeric literal. Returns false if the statement is
-not a version dependency.
-
-=begin testing version_literal 13
-
-my $document = PPI::Document->new(\<<'END_PERL');
-# Examples from perlfunc in 5.10.
-use v5.6.1;
-use 5.6.1;
-use 5.006_001;
-use 5.006; use 5.6.1;
-
-# Same, but using require.
-require v5.6.1;
-require 5.6.1;
-require 5.006_001;
-require 5.006; require 5.6.1;
-
-# Module.
-use Float::Version 1.5;
-END_PERL
-
-isa_ok( $document, 'PPI::Document' );
-my $statements = $document->find('PPI::Statement::Include');
-is( scalar @{$statements}, 11, 'Found expected include statements.' );
-
-is( $statements->[0]->version_literal, v5.6.1, 'use v-string' );
-is( $statements->[1]->version_literal, 5.6.1, 'use v-string, no leading "v"' );
-is( $statements->[2]->version_literal, 5.006_001, 'use developer release' );
-is( $statements->[3]->version_literal, 5.006, 'use back-compatible version, followed by...' );
-is( $statements->[4]->version_literal, 5.6.1, '... use v-string, no leading "v"' );
-
-is( $statements->[5]->version_literal, v5.6.1, 'require v-string' );
-is( $statements->[6]->version_literal, 5.6.1, 'require v-string, no leading "v"' );
-is( $statements->[7]->version_literal, 5.006_001, 'require developer release' );
-is( $statements->[8]->version_literal, 5.006, 'require back-compatible version, followed by...' );
-is( $statements->[9]->version_literal, 5.6.1, '... require v-string, no leading "v"' );
-
-is( $statements->[10]->version_literal, '', 'use module version' );
-
-=end testing
-
-=cut
-
-sub version_literal {
- my $self = shift;
- my $version = $self->schild(1) or return undef;
- $version->isa('PPI::Token::Number') ? $version->literal : '';
-}
-
-=pod
-
-The C<arguments> method gives you the rest of the statement after the the
-module/pragma and module version, i.e. the stuff that will be used to
-construct what gets passed to the module's C<import()> subroutine. This does
-include the comma, etc. operators, but doesn't include non-significant direct
-children or any final semicolon.
-
-=begin testing arguments 19
-
-my $document = PPI::Document->new(\<<'END_PERL');
-use 5.006; # Don't expect anything.
-use Foo; # Don't expect anything.
-use Foo 5; # Don't expect anything.
-use Foo 'bar'; # One thing.
-use Foo 5 'bar'; # One thing.
-use Foo qw< bar >, "baz";
-use Test::More tests => 5 * 9 # Don't get tripped up by the lack of the ";"
-END_PERL
-
-isa_ok( $document, 'PPI::Document' );
-my $statements = $document->find('PPI::Statement::Include');
-is( scalar @{$statements}, 7, 'Found expected include statements.' );
-
-is(
- scalar $statements->[0]->arguments, undef, 'arguments for perl version',
-);
-is(
- scalar $statements->[1]->arguments,
- undef,
- 'arguments with no arguments',
-);
-is(
- scalar $statements->[2]->arguments,
- undef,
- 'arguments with no arguments but module version',
-);
-
-my @arguments = $statements->[3]->arguments;
-is( scalar @arguments, 1, 'arguments with single argument' );
-is( $arguments[0]->content, q<'bar'>, 'arguments with single argument' );
-
- at arguments = $statements->[4]->arguments;
-is(
- scalar @arguments,
- 1,
- 'arguments with single argument and module version',
-);
-is(
- $arguments[0]->content,
- q<'bar'>,
- 'arguments with single argument and module version',
-);
-
- at arguments = $statements->[5]->arguments;
-is(
- scalar @arguments,
- 3,
- 'arguments with multiple arguments',
-);
-is(
- $arguments[0]->content,
- q/qw< bar >/,
- 'arguments with multiple arguments',
-);
-is(
- $arguments[1]->content,
- q<,>,
- 'arguments with multiple arguments',
-);
-is(
- $arguments[2]->content,
- q<"baz">,
- 'arguments with multiple arguments',
-);
-
- at arguments = $statements->[6]->arguments;
-is(
- scalar @arguments,
- 5,
- 'arguments with Test::More',
-);
-is(
- $arguments[0]->content,
- 'tests',
- 'arguments with Test::More',
-);
-is(
- $arguments[1]->content,
- q[=>],
- 'arguments with Test::More',
-);
-is(
- $arguments[2]->content,
- 5,
- 'arguments with Test::More',
-);
-is(
- $arguments[3]->content,
- '*',
- 'arguments with Test::More',
-);
-is(
- $arguments[4]->content,
- 9,
- 'arguments with Test::More',
-);
-
-=end testing
-
-=cut
-
-sub arguments {
- my $self = shift;
- my @args = $self->schildren;
-
- # Remove the "use", "no" or "require"
- shift @args;
-
- # Remove the statement terminator
- if (
- $args[-1]->isa('PPI::Token::Structure')
- and
- $args[-1]->content eq ';'
- ) {
- pop @args;
- }
-
- # Remove the module or perl version.
- shift @args;
-
- return unless @args;
-
- if ( $args[0]->isa('PPI::Token::Number') ) {
- my $after = $args[1] or return;
- $after->isa('PPI::Token::Operator') or shift @args;
- }
-
- return @args;
-}
-
-1;
-
-=pod
-
-=head1 TO DO
-
-- Write specific unit tests for this package
-
-=head1 SUPPORT
-
-See the L<support section|PPI/SUPPORT> in the main module.
-
-=head1 AUTHOR
-
-Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2001 - 2010 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/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Statement/Package.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Statement/Package.pm
deleted file mode 100644
index 9bacac3..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Statement/Package.pm
+++ /dev/null
@@ -1,148 +0,0 @@
-package PPI::Statement::Package;
-
-=pod
-
-=head1 NAME
-
-PPI::Statement::Package - A package statement
-
-=head1 INHERITANCE
-
- PPI::Statement::Package
- isa PPI::Statement
- isa PPI::Node
- isa PPI::Element
-
-=head1 DESCRIPTION
-
-Most L<PPI::Statement> subclasses are assigned based on the value of the
-first token or word found in the statement. When PPI encounters a statement
-starting with 'package', it converts it to a C<PPI::Statement::Package>
-object.
-
-When working with package statements, please remember that packages only
-exist within their scope, and proper support for scoping has yet to be
-completed in PPI.
-
-However, if the immediate parent of the package statement is the
-top level L<PPI::Document> object, then it can be considered to define
-everything found until the next top-level "file scoped" package statement.
-
-A file may, however, contain nested temporary package, in which case you
-are mostly on your own :)
-
-
-=begin testing hash_constructors_dont_contain_packages_rt52259 2
-
-my $Document = PPI::Document->new(\<<'END_PERL');
-{ package => "", };
-+{ package => "", };
-{ 'package' => "", };
-+{ 'package' => "", };
-{ 'package' , "", };
-+{ 'package' , "", };
-END_PERL
-
-isa_ok( $Document, 'PPI::Document' );
-
-my $packages = $Document->find('PPI::Statement::Package');
-my $test_name = 'Found no package statements in hash constructors - RT #52259';
-if (not $packages) {
- pass $test_name;
-} elsif ( not is(scalar @{$packages}, 0, $test_name) ) {
- diag 'Package statements found:';
- diag $_->parent()->parent()->content() foreach @{$packages};
-}
-
-=end testing
-
-
-=head1 METHODS
-
-C<PPI::Statement::Package> has a number of methods in addition to the standard
-L<PPI::Statement>, L<PPI::Node> and L<PPI::Element> methods.
-
-=cut
-
-use strict;
-use PPI::Statement ();
-
-use vars qw{$VERSION @ISA};
-BEGIN {
- $VERSION = '1.212';
- @ISA = 'PPI::Statement';
-}
-
-=pod
-
-=head2 namespace
-
-Most package declarations are simple, and just look something like
-
- package Foo::Bar;
-
-The C<namespace> method returns the name of the declared package, in the
-above case 'Foo::Bar'. It returns this exactly as written and does not
-attempt to clean up or resolve things like ::Foo to main::Foo.
-
-If the package statement is done any different way, it returns false.
-
-=cut
-
-sub namespace {
- my $self = shift;
- my $namespace = $self->schild(1) or return '';
- $namespace->isa('PPI::Token::Word')
- ? $namespace->content
- : '';
-}
-
-=pod
-
-=head2 file_scoped
-
-Regardless of whether it is named or not, the C<file_scoped> method will
-test to see if the package declaration is a top level "file scoped"
-statement or not, based on its location.
-
-In general, returns true if it is a "file scoped" package declaration with
-an immediate parent of the top level Document, or false if not.
-
-Note that if the PPI DOM tree B<does not> have a PPI::Document object at
-as the root element, this will return false. Likewise, it will also return
-false if the root element is a L<PPI::Document::Fragment>, as a fragment of
-a file does not represent a scope.
-
-=cut
-
-sub file_scoped {
- my $self = shift;
- my ($Parent, $Document) = ($self->parent, $self->top);
- $Parent and $Document and $Parent == $Document
- and $Document->isa('PPI::Document')
- and ! $Document->isa('PPI::Document::Fragment');
-}
-
-1;
-
-=pod
-
-=head1 SUPPORT
-
-See the L<support section|PPI/SUPPORT> in the main module.
-
-=head1 AUTHOR
-
-Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2001 - 2010 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/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Statement/Scheduled.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Statement/Scheduled.pm
deleted file mode 100644
index 247d3c3..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Statement/Scheduled.pm
+++ /dev/null
@@ -1,126 +0,0 @@
-package PPI::Statement::Scheduled;
-
-=pod
-
-=head1 NAME
-
-PPI::Statement::Scheduled - A scheduled code block
-
-=head1 INHERITANCE
-
- PPI::Statement::Scheduled
- isa PPI::Statement::Sub
- isa PPI::Statement
- isa PPI::Node
- isa PPI::Element
-
-=head1 DESCRIPTION
-
-A scheduled code block is one that is intended to be run at a specific
-time during the loading process.
-
-There are five types of scheduled block:
-
- BEGIN {
- # Executes as soon as this block is fully defined
- ...
- }
-
- CHECK {
- # Executes after overall compile-phase in reverse order
- ...
- }
-
- UNITCHECK {
- # Executes after compile-phase of individual module in reverse order
- ...
- }
-
- INIT {
- # Executes just before run-time
- ...
- }
-
- END {
- # Executes as late as possible in reverse order
- ...
- }
-
-Technically these scheduled blocks are actually subroutines, and in fact
-may have 'sub' in front of them.
-
-=head1 METHODS
-
-=cut
-
-use strict;
-use PPI::Statement::Sub ();
-
-use vars qw{$VERSION @ISA};
-BEGIN {
- $VERSION = '1.212';
- @ISA = 'PPI::Statement::Sub';
-}
-
-sub __LEXER__normal { '' }
-
-sub _complete {
- my $child = $_[0]->schild(-1);
- return !! (
- defined $child
- and
- $child->isa('PPI::Structure::Block')
- and
- $child->complete
- );
-}
-
-=pod
-
-=head2 type
-
-The C<type> method returns the type of scheduled block, which should always be
-one of C<'BEGIN'>, C<'CHECK'>, C<'UNITCHECK'>, C<'INIT'> or C<'END'>.
-
-=cut
-
-sub type {
- my $self = shift;
- my @children = $self->schildren or return undef;
- $children[0]->content eq 'sub'
- ? $children[1]->content
- : $children[0]->content;
-}
-
-# This is actually the same as Sub->name
-sub name {
- shift->type(@_);
-}
-
-1;
-
-=pod
-
-=head1 TO DO
-
-- Write unit tests for this package
-
-=head1 SUPPORT
-
-See the L<support section|PPI/SUPPORT> in the main module.
-
-=head1 AUTHOR
-
-Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2001 - 2010 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/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Statement/Unknown.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Statement/Unknown.pm
deleted file mode 100644
index 1fbe51d..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Statement/Unknown.pm
+++ /dev/null
@@ -1,70 +0,0 @@
-package PPI::Statement::Unknown;
-
-=pod
-
-=head1 NAME
-
-PPI::Statement::Unknown - An unknown or transient statement
-
-=head1 INHERITANCE
-
- PPI::Statement::Unknown
- isa PPI::Statement
- isa PPI::Node
- isa PPI::Element
-
-=head1 DESCRIPTION
-
-The C<PPI::Statement::Unknown> class is used primarily during the lexing
-process to hold elements that are known to be statement, but for which
-the exact C<type> of statement is as yet unknown, and requires further
-tokens in order to resolve the correct type.
-
-They should not exist in a fully parse B<valid> document, and if any
-exists they indicate either a problem in Document, or possibly (by
-allowing it to get through unresolved) a bug in L<PPI::Lexer>.
-
-=head1 METHODS
-
-C<PPI::Statement::Unknown> has no additional methods beyond the
-default ones provided by L<PPI::Statement>, L<PPI::Node> and
-L<PPI::Element>.
-
-=cut
-
-use strict;
-use PPI::Statement ();
-
-use vars qw{$VERSION @ISA};
-BEGIN {
- $VERSION = '1.212';
- @ISA = 'PPI::Statement';
-}
-
-# If one of these ends up in the final document,
-# we're pretty much screwed. Just call it a day.
-sub _complete () { 1 }
-
-1;
-
-=pod
-
-=head1 SUPPORT
-
-See the L<support section|PPI/SUPPORT> in the main module.
-
-=head1 AUTHOR
-
-Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2001 - 2010 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/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Structure/Block.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Structure/Block.pm
deleted file mode 100644
index 02c9320..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Structure/Block.pm
+++ /dev/null
@@ -1,86 +0,0 @@
-package PPI::Structure::Block;
-
-=pod
-
-=head1 NAME
-
-PPI::Structure::Block - Curly braces representing a code block
-
-=head1 SYNOPSIS
-
- sub foo { ... }
-
- grep { ... } @list;
-
- if ( condition ) {
- ...
- }
-
- LABEL: {
- ...
- }
-
-=head1 INHERITANCE
-
- PPI::Structure::Block
- isa PPI::Structure
- isa PPI::Node
- isa PPI::Element
-
-=head1 DESCRIPTION
-
-C<PPI::Structure::Block> is the class used for all curly braces that
-represent code blocks. This includes subroutines, compound statements
-and any other block braces.
-
-=head1 METHODS
-
-C<PPI::Structure::Block> has no methods beyond those provided by the
-standard L<PPI::Structure>, L<PPI::Node> and L<PPI::Element> methods.
-
-Got any ideas for methods? Submit a report to rt.cpan.org!
-
-=cut
-
-use strict;
-use PPI::Structure ();
-
-use vars qw{$VERSION @ISA};
-BEGIN {
- $VERSION = '1.212';
- @ISA = 'PPI::Structure';
-}
-
-
-
-
-
-#####################################################################
-# PPI::Element Methods
-
-# This is a scope boundary
-sub scope { 1 }
-
-1;
-
-=pod
-
-=head1 SUPPORT
-
-See the L<support section|PPI/SUPPORT> in the main module.
-
-=head1 AUTHOR
-
-Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2001 - 2010 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/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Structure/For.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Structure/For.pm
deleted file mode 100644
index f91cfe2..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Structure/For.pm
+++ /dev/null
@@ -1,81 +0,0 @@
-package PPI::Structure::For;
-
-=pod
-
-=head1 NAME
-
-PPI::Structure::For - Circular braces for a for expression
-
-=head1 SYNOPSIS
-
- for ( var $i = 0; $i < $max; $i++ ) {
- ...
- }
-
-=head1 INHERITANCE
-
- PPI::Structure::For
- isa PPI::Structure
- isa PPI::Node
- isa PPI::Element
-
-=head1 DESCRIPTION
-
-C<PPI::Structure::For> is the class used for circular braces that
-contain the three part C<for> expression.
-
-=head1 METHODS
-
-C<PPI::Structure::For> has no methods beyond those provided by the
-standard L<PPI::Structure>, L<PPI::Node> and L<PPI::Element> methods.
-
-Got any ideas for methods? Submit a report to rt.cpan.org!
-
-=cut
-
-use strict;
-use PPI::Structure ();
-
-use vars qw{$VERSION @ISA};
-BEGIN {
- $VERSION = '1.212';
- @ISA = 'PPI::Structure';
-}
-
-# Highly special custom isa method that will continue to respond
-# positively to ->isa('PPI::Structure::ForLoop') but warns.
-my $has_warned = 0;
-sub isa {
- if ( $_[1] and $_[1] eq 'PPI::Structure::ForLoop' ) {
- unless ( $has_warned ) {
- warn("PPI::Structure::ForLoop has been deprecated");
- $has_warned = 1;
- }
- return 1;
- }
- return shift->SUPER::isa(@_);
-}
-
-1;
-
-=pod
-
-=head1 SUPPORT
-
-See the L<support section|PPI/SUPPORT> in the main module.
-
-=head1 AUTHOR
-
-Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2001 - 2010 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/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Structure/List.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Structure/List.pm
deleted file mode 100644
index c2d08db..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Structure/List.pm
+++ /dev/null
@@ -1,91 +0,0 @@
-package PPI::Structure::List;
-
-=pod
-
-=head1 NAME
-
-PPI::Structure::List - Explicit list or precedence ordering braces
-
-=head1 SYNOPSIS
-
- # A list used for params
- function( 'param', 'param' );
-
- # Explicit list
- return ( 'foo', 'bar' );
-
-=head1 INHERITANCE
-
- PPI::Structure::List
- isa PPI::Structure
- isa PPI::Node
- isa PPI::Element
-
-=head1 DESCRIPTION
-
-C<PPI::Structure::List> is the class used for circular braces that
-represent lists, and related.
-
-=head1 METHODS
-
-C<PPI::Structure::List> has no methods beyond those provided by the
-standard L<PPI::Structure>, L<PPI::Node> and L<PPI::Element> methods.
-
-Got any ideas for methods? Submit a report to rt.cpan.org!
-
-=cut
-
-use strict;
-use Carp ();
-use PPI::Structure ();
-
-use vars qw{$VERSION @ISA};
-BEGIN {
- $VERSION = '1.212';
- @ISA = 'PPI::Structure';
-}
-
-# Highly special custom isa method that will continue to respond
-# positively to ->isa('PPI::Structure::ForLoop') but warns.
-my $has_warned = 0;
-sub isa {
- if ( $_[1] and $_[1] eq 'PPI::Structure::ForLoop' ) {
- if (
- $_[0]->parent->isa('PPI::Statement::Compound')
- and
- $_[0]->parent->type =~ /^for/
- ) {
- unless ( $has_warned ) {
- local $Carp::CarpLevel = $Carp::CarpLevel + 1;
- Carp::carp("PPI::Structure::ForLoop has been deprecated");
- $has_warned = 1;
- }
- return 1;
- }
- }
- return shift->SUPER::isa(@_);
-}
-
-1;
-
-=pod
-
-=head1 SUPPORT
-
-See the L<support section|PPI/SUPPORT> in the main module.
-
-=head1 AUTHOR
-
-Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2001 - 2010 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/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/DashedWord.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/DashedWord.pm
deleted file mode 100644
index a307c09..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/DashedWord.pm
+++ /dev/null
@@ -1,120 +0,0 @@
-package PPI::Token::DashedWord;
-
-=pod
-
-=head1 NAME
-
-PPI::Token::DashedWord - A dashed bareword token
-
-=head1 INHERITANCE
-
- PPI::Token::DashedWord
- isa PPI::Token
- isa PPI::Element
-
-=head1 DESCRIPTION
-
-The "dashed bareword" token represents literal values like C<-foo>.
-
-NOTE: this class is currently unused. All tokens that should be
-PPI::Token::DashedWords are just normal PPI::Token::Word instead.
-That actually makes sense, since there really is nothing special about
-this class except that dashed words cannot be subroutine names or
-keywords. As such, this class may be removed from PPI in the future.
-
-=head1 METHODS
-
-=cut
-
-use strict;
-use PPI::Token ();
-
-use vars qw{$VERSION @ISA};
-BEGIN {
- $VERSION = '1.212';
- @ISA = 'PPI::Token';
-}
-
-=pod
-
-=head2 literal
-
-Returns the value of the dashed word as a string. This differs from
-C<content> because C<-Foo'Bar> expands to C<-Foo::Bar>.
-
-=begin testing literal 9
-
-my @pairs = (
- "-foo", '-foo',
- "-Foo::Bar", '-Foo::Bar',
- "-Foo'Bar", '-Foo::Bar',
-);
-while ( @pairs ) {
- my $from = shift @pairs;
- my $to = shift @pairs;
- my $doc = PPI::Document->new( \"( $from => 1 );" );
- isa_ok( $doc, 'PPI::Document' );
- my $word = $doc->find_first('Token::DashedWord');
- SKIP: {
- skip( "PPI::Token::DashedWord is deactivated", 2 );
- isa_ok( $word, 'PPI::Token::DashedWord' );
- is( $word && $word->literal, $to, "The source $from becomes $to ok" );
- }
-}
-
-=end testing
-
-=cut
-
-*literal = *PPI::Token::Word::literal;
-
-
-
-#####################################################################
-# Tokenizer Methods
-
-sub __TOKENIZER__on_char {
- my $t = $_[1];
-
- # Suck to the end of the dashed bareword
- my $line = substr( $t->{line}, $t->{line_cursor} );
- if ( $line =~ /^(\w+)/ ) {
- $t->{token}->{content} .= $1;
- $t->{line_cursor} += length $1;
- }
-
- # Are we a file test operator?
- if ( $t->{token}->{content} =~ /^\-[rwxoRWXOezsfdlpSbctugkTBMAC]$/ ) {
- # File test operator
- $t->{class} = $t->{token}->set_class( 'Operator' );
- } else {
- # No, normal dashed bareword
- $t->{class} = $t->{token}->set_class( 'Word' );
- }
-
- $t->_finalize_token->__TOKENIZER__on_char( $t );
-}
-
-1;
-
-=pod
-
-=head1 SUPPORT
-
-See the L<support section|PPI/SUPPORT> in the main module.
-
-=head1 AUTHOR
-
-Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2001 - 2010 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/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Magic.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Magic.pm
deleted file mode 100644
index e308894..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Magic.pm
+++ /dev/null
@@ -1,256 +0,0 @@
-package PPI::Token::Magic;
-
-=pod
-
-=head1 NAME
-
-PPI::Token::Magic - Tokens representing magic variables
-
-=head1 INHERITANCE
-
- PPI::Token::Magic
- isa PPI::Token::Symbol
- isa PPI::Token
- isa PPI::Element
-
-=head1 SYNOPSIS
-
- # When we say magic variables, we mean these...
- $1 $2 $3 $4 $5 $6 $7 $8 $9
- $_ $& $` $' $+ @+ %+ $* $. $/ $|
- $\\ $" $; $% $= $- @- %- $) $#
- $~ $^ $: $? $! %! $@ $$ $< $>
- $( $0 $[ $] @_ @* $} $, $#+ $#-
- $^L $^A $^E $^C $^D $^F $^H
- $^I $^M $^N $^O $^P $^R $^S
- $^T $^V $^W $^X
-
-=head1 DESCRIPTION
-
-C<PPI::Token::Magic> is a sub-class of L<PPI::Token::Symbol> which
-identifies the token as "magic variable", one of the strange and
-unusual variables that are connected to "things" behind the scenes.
-
-Some are extremely common, like C<$_>, and others you will quite
-probably never encounter in your Perl career.
-
-=head1 METHODS
-
-The class provides no additional methods, beyond those provided by it's
-L<PPI::Token::Symbol>, L<PPI::Token> and L<PPI::Element>.
-
-=cut
-
-use strict;
-use PPI::Token::Symbol ();
-use PPI::Token::Unknown ();
-
-use vars qw{$VERSION @ISA %magic};
-BEGIN {
- $VERSION = '1.212';
- @ISA = 'PPI::Token::Symbol';
-
- # Magic variables taken from perlvar.
- # Several things added separately to avoid warnings.
- foreach ( qw{
- $1 $2 $3 $4 $5 $6 $7 $8 $9
- $_ $& $` $' $+ @+ %+ $* $. $/ $|
- $\\ $" $; $% $= $- @- %- $)
- $~ $^ $: $? $! %! $@ $$ $< $>
- $( $0 $[ $] @_ @*
-
- $^L $^A $^E $^C $^D $^F $^H
- $^I $^M $^N $^O $^P $^R $^S
- $^T $^V $^W $^X %^H
-
- $::|
- }, '$}', '$,', '$#', '$#+', '$#-' ) {
- $magic{$_} = 1;
- }
-}
-
-=pod
-
-=begin testing __TOKENIZER_on_char 30
-
-my $document = PPI::Document->new(\<<'END_PERL');
-$[; # Magic $[
-$$; # Magic $$
-%-; # Magic %-
-$#-; # Magic $#-
-$$foo; # Symbol $foo Dereference of $foo
-$^W; # Magic $^W
-$^WIDE_SYSTEM_CALLS; # Magic $^WIDE_SYSTEM_CALLS
-${^MATCH}; # Magic ${^MATCH}
-@{^_Bar}; # Magic @{^_Bar}
-${^_Bar}[0]; # Magic @{^_Bar}
-%{^_Baz}; # Magic %{^_Baz}
-${^_Baz}{burfle}; # Magic %{^_Baz}
-$${^MATCH}; # Magic ${^MATCH} Dereference of ${^MATCH}
-\${^MATCH}; # Magic ${^MATCH}
-END_PERL
-
-isa_ok( $document, 'PPI::Document' );
-
-$document->index_locations();
-
-my $symbols = $document->find( 'PPI::Token::Symbol' );
-
-is( scalar(@$symbols), 14, 'Found 14 symbols' );
-my $comments = $document->find( 'PPI::Token::Comment' );
-
-foreach my $token ( @$symbols ) {
- my ($hash, $class, $name, $remk) =
- split '\s+', $comments->[$token->line_number - 1], 4;
- isa_ok( $token, "PPI::Token::$class" );
- is( $token->symbol, $name, $remk || "The symbol is $name" );
-}
-
-=end testing
-
-=cut
-
-sub __TOKENIZER__on_char {
- my $t = $_[1];
-
- # $c is the candidate new content
- my $c = $t->{token}->{content} . substr( $t->{line}, $t->{line_cursor}, 1 );
-
- # Do a quick first test so we don't have to do more than this one.
- # All of the tests below match this one, so it should provide a
- # small speed up. This regex should be updated to match the inside
- # tests if they are changed.
- if ( $c =~ /^ \$ .* [ \w : \$ \{ ] $/x ) {
-
- if ( $c =~ /^(\$(?:\_[\w:]|::))/ or $c =~ /^\$\'[\w]/ ) {
- # If and only if we have $'\d, it is not a
- # symbol. (this was apparently a concious choice)
- # Note that $::0 on the other hand is legal
- if ( $c =~ /^\$\'\d$/ ) {
- # In this case, we have a magic plus a digit.
- # Save the CURRENT token, and rerun the on_char
- return $t->_finalize_token->__TOKENIZER__on_char( $t );
- }
-
- # A symbol in the style $_foo or $::foo or $'foo.
- # Overwrite the current token
- $t->{class} = $t->{token}->set_class('Symbol');
- return PPI::Token::Symbol->__TOKENIZER__on_char( $t );
- }
-
- if ( $c =~ /^\$\$\w/ ) {
- # This is really a scalar dereference. ( $$foo )
- # Add the current token as the cast...
- $t->{token} = PPI::Token::Cast->new( '$' );
- $t->_finalize_token;
-
- # ... and create a new token for the symbol
- return $t->_new_token( 'Symbol', '$' );
- }
-
- if ( $c eq '$${' ) {
- # This _might_ be a dereference of one of the
- # control-character symbols.
- my $line = substr $t->{line}, $t->{line_cursor} + 1;
- if ( $line =~ m/$PPI::Token::Unknown::CURLY_SYMBOL/ ) {
- # This is really a dereference. ( $${^_foo} )
- # Add the current token as the cast...
- $t->{token} = PPI::Token::Cast->new( '$' );
- $t->_finalize_token;
-
- # ... and create a new token for the symbol
- return $t->_new_token( 'Magic', '$' );
- }
- }
-
- if ( $c eq '$#$' or $c eq '$#{' ) {
- # This is really an index dereferencing cast, although
- # it has the same two chars as the magic variable $#.
- $t->{class} = $t->{token}->set_class('Cast');
- return $t->_finalize_token->__TOKENIZER__on_char( $t );
- }
-
- if ( $c =~ /^(\$\#)\w/ ) {
- # This is really an array index thingy ( $#array )
- $t->{token} = PPI::Token::ArrayIndex->new( "$1" );
- return PPI::Token::ArrayIndex->__TOKENIZER__on_char( $t );
- }
-
- if ( $c =~ /^\$\^\w+$/o ) {
- # It's an escaped char magic... maybe ( like $^M )
- my $next = substr( $t->{line}, $t->{line_cursor}+1, 1 ); # Peek ahead
- if ($magic{$c} && (!$next || $next !~ /\w/)) {
- $t->{token}->{content} = $c;
- $t->{line_cursor}++;
- } else {
- # Maybe it's a long magic variable like $^WIDE_SYSTEM_CALLS
- return 1;
- }
- }
-
- if ( $c =~ /^\$\#\{/ ) {
- # The $# is actually a case, and { is its block
- # Add the current token as the cast...
- $t->{token} = PPI::Token::Cast->new( '$#' );
- $t->_finalize_token;
-
- # ... and create a new token for the block
- return $t->_new_token( 'Structure', '{' );
- }
- } elsif ($c =~ /^%\^/) {
- return 1 if $c eq '%^';
- # It's an escaped char magic... maybe ( like %^H )
- if ($magic{$c}) {
- $t->{token}->{content} = $c;
- $t->{line_cursor}++;
- } else {
- # Back off, treat '%' as an operator
- chop $t->{token}->{content};
- bless $t->{token}, $t->{class} = 'PPI::Token::Operator';
- $t->{line_cursor}--;
- }
- }
-
- if ( $magic{$c} ) {
- # $#+ and $#-
- $t->{line_cursor} += length( $c ) - length( $t->{token}->{content} );
- $t->{token}->{content} = $c;
- } else {
- my $line = substr( $t->{line}, $t->{line_cursor} );
- if ( $line =~ /($PPI::Token::Unknown::CURLY_SYMBOL)/ ) {
- # control character symbol (e.g. ${^MATCH})
- $t->{token}->{content} .= $1;
- $t->{line_cursor} += length $1;
- }
- }
-
- # End the current magic token, and recheck
- $t->_finalize_token->__TOKENIZER__on_char( $t );
-}
-
-# Our version of canonical is plain simple
-sub canonical { $_[0]->content }
-
-1;
-
-=pod
-
-=head1 SUPPORT
-
-See the L<support section|PPI/SUPPORT> in the main module.
-
-=head1 AUTHOR
-
-Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2001 - 2010 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/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Number/Exp.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Number/Exp.pm
deleted file mode 100644
index c05c6b6..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Number/Exp.pm
+++ /dev/null
@@ -1,124 +0,0 @@
-package PPI::Token::Number::Exp;
-
-=pod
-
-=head1 NAME
-
-PPI::Token::Number::Exp - Token class for an exponential notation number
-
-=head1 SYNOPSIS
-
- $n = 1.0e-2;
- $n = 1e+2;
-
-=head1 INHERITANCE
-
- PPI::Token::Number::Exp
- isa PPI::Token::Number::Float
- isa PPI::Token::Number
- isa PPI::Token
- isa PPI::Element
-
-=head1 DESCRIPTION
-
-The C<PPI::Token::Number::Exp> class is used for tokens that
-represent floating point numbers with exponential notation.
-
-=head1 METHODS
-
-=cut
-
-use strict;
-use PPI::Token::Number::Float ();
-
-use vars qw{$VERSION @ISA};
-BEGIN {
- $VERSION = '1.212';
- @ISA = 'PPI::Token::Number::Float';
-}
-
-=pod
-
-=head2 literal
-
-Return the numeric value of this token.
-
-=cut
-
-sub literal {
- my $self = shift;
- return if $self->{_error};
- my ($mantissa, $exponent) = split m/e/i, $self->_literal;
- my $neg = $mantissa =~ s/^\-//;
- $mantissa =~ s/^\./0./;
- $exponent =~ s/^\+//;
- my $val = $mantissa * 10 ** $exponent;
- return $neg ? -$val : $val;
-}
-
-
-
-
-
-#####################################################################
-# Tokenizer Methods
-
-sub __TOKENIZER__on_char {
- my $class = shift;
- my $t = shift;
- my $char = substr( $t->{line}, $t->{line_cursor}, 1 );
-
- # To get here, the token must have already encountered an 'E'
-
- # Allow underscores straight through
- return 1 if $char eq '_';
-
- # Allow digits
- return 1 if $char =~ /\d/o;
-
- # Start of exponent is special
- if ( $t->{token}->{content} =~ /e$/i ) {
- # Allow leading +/- in exponent
- return 1 if $char eq '-' || $char eq '+';
-
- # Invalid character in exponent. Recover
- if ( $t->{token}->{content} =~ s/\.(e)$//i ) {
- my $word = $1;
- $t->{class} = $t->{token}->set_class('Number');
- $t->_new_token('Operator', '.');
- $t->_new_token('Word', $word);
- return $t->{class}->__TOKENIZER__on_char( $t );
- }
- else {
- $t->{token}->{_error} = "Illegal character in exponent '$char'";
- }
- }
-
- # Doesn't fit a special case, or is after the end of the token
- # End of token.
- $t->_finalize_token->__TOKENIZER__on_char( $t );
-}
-
-1;
-
-=pod
-
-=head1 SUPPORT
-
-See the L<support section|PPI/SUPPORT> in the main module.
-
-=head1 AUTHOR
-
-Chris Dolan E<lt>cdolan at cpan.orgE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2006 Chris Dolan.
-
-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/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Number/Octal.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Number/Octal.pm
deleted file mode 100644
index 2c51b00..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Number/Octal.pm
+++ /dev/null
@@ -1,115 +0,0 @@
-package PPI::Token::Number::Octal;
-
-=pod
-
-=head1 NAME
-
-PPI::Token::Number::Octal - Token class for a binary number
-
-=head1 SYNOPSIS
-
- $n = 0777; # octal integer
-
-=head1 INHERITANCE
-
- PPI::Token::Number::Octal
- isa PPI::Token::Number
- isa PPI::Token
- isa PPI::Element
-
-=head1 DESCRIPTION
-
-The C<PPI::Token::Number::Octal> class is used for tokens that
-represent base-8 numbers.
-
-=head1 METHODS
-
-=cut
-
-use strict;
-use PPI::Token::Number ();
-
-use vars qw{$VERSION @ISA};
-BEGIN {
- $VERSION = '1.212';
- @ISA = 'PPI::Token::Number';
-}
-
-=pod
-
-=head2 base
-
-Returns the base for the number: 8.
-
-=cut
-
-sub base () { 8 }
-
-=pod
-
-=head2 literal
-
-Return the numeric value of this token.
-
-=cut
-
-sub literal {
- my $self = shift;
- return if $self->{_error};
- my $str = $self->_literal;
- my $neg = $str =~ s/^\-//;
- my $val = oct $str;
- return $neg ? -$val : $val;
-}
-
-
-
-
-
-#####################################################################
-# Tokenizer Methods
-
-sub __TOKENIZER__on_char {
- my $class = shift;
- my $t = shift;
- my $char = substr( $t->{line}, $t->{line_cursor}, 1 );
-
- # Allow underscores straight through
- return 1 if $char eq '_';
-
- if ( $char =~ /\d/ ) {
- # You cannot have 8s and 9s on octals
- if ( $char eq '8' or $char eq '9' ) {
- $t->{token}->{_error} = "Illegal character in octal number '$char'";
- }
- return 1;
- }
-
- # Doesn't fit a special case, or is after the end of the token
- # End of token.
- $t->_finalize_token->__TOKENIZER__on_char( $t );
-}
-
-1;
-
-=pod
-
-=head1 SUPPORT
-
-See the L<support section|PPI/SUPPORT> in the main module.
-
-=head1 AUTHOR
-
-Chris Dolan E<lt>cdolan at cpan.orgE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2006 Chris Dolan.
-
-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/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Number/Version.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Number/Version.pm
deleted file mode 100644
index f95e7fd..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Number/Version.pm
+++ /dev/null
@@ -1,171 +0,0 @@
-package PPI::Token::Number::Version;
-
-=pod
-
-=head1 NAME
-
-PPI::Token::Number::Version - Token class for a byte-packed number
-
-=head1 SYNOPSIS
-
- $n = 1.1.0;
- $n = 127.0.0.1;
- $n = 10_000.10_000.10_000;
- $n = v1.2.3.4
-
-=head1 INHERITANCE
-
- PPI::Token::Number::Version
- isa PPI::Token::Number
- isa PPI::Token
- isa PPI::Element
-
-=head1 DESCRIPTION
-
-The C<PPI::Token::Number::Version> class is used for tokens that have
-multiple decimal points. In truth, these aren't treated like numbers
-at all by Perl, but they look like numbers to a parser.
-
-=head1 METHODS
-
-=cut
-
-use strict;
-use PPI::Token::Number ();
-
-use vars qw{$VERSION @ISA};
-BEGIN {
- $VERSION = '1.212';
- @ISA = 'PPI::Token::Number';
-}
-
-=pod
-
-=head2 base
-
-Returns the base for the number: 256.
-
-=cut
-
-sub base {
- return 256;
-}
-
-=pod
-
-=head2 literal
-
-Return the numeric value of this token.
-
-=cut
-
-sub literal {
- my $self = shift;
- my $content = $self->{content};
- $content =~ s/^v//;
- return join '', map { chr $_ } ( split /\./, $content );
-}
-
-
-
-
-
-#####################################################################
-# Tokenizer Methods
-
-=pod
-
-=begin testing 9
-
-my $doc1 = new_ok( 'PPI::Document' => [ \'1.2.3.4' ] );
-my $doc2 = new_ok( 'PPI::Document' => [ \'v1.2.3.4' ] );
-isa_ok( $doc1->child(0), 'PPI::Statement' );
-isa_ok( $doc2->child(0), 'PPI::Statement' );
-isa_ok( $doc1->child(0)->child(0), 'PPI::Token::Number::Version' );
-isa_ok( $doc2->child(0)->child(0), 'PPI::Token::Number::Version' );
-
-my $literal1 = $doc1->child(0)->child(0)->literal;
-my $literal2 = $doc2->child(0)->child(0)->literal;
-is( length($literal1), 4, 'The literal length of doc1 is 4' );
-is( length($literal2), 4, 'The literal length of doc1 is 4' );
-is( $literal1, $literal2, 'Literals match for 1.2.3.4 vs v1.2.3.4' );
-
-=end testing
-
-=cut
-
-sub __TOKENIZER__on_char {
- my $class = shift;
- my $t = shift;
- my $char = substr( $t->{line}, $t->{line_cursor}, 1 );
-
- # Allow digits
- return 1 if $char =~ /\d/o;
-
- # Is this a second decimal point in a row? Then the '..' operator
- if ( $char eq '.' ) {
- if ( $t->{token}->{content} =~ /\.$/ ) {
- # We have a .., which is an operator.
- # Take the . off the end of the token..
- # and finish it, then make the .. operator.
- chop $t->{token}->{content};
- $t->_new_token('Operator', '..');
- return 0;
- } else {
- return 1;
- }
- }
-
- # Doesn't fit a special case, or is after the end of the token
- # End of token.
- $t->_finalize_token->__TOKENIZER__on_char( $t );
-}
-
-sub __TOKENIZER__commit {
- my $t = $_[1];
-
- # Get the rest of the line
- my $rest = substr( $t->{line}, $t->{line_cursor} );
- unless ( $rest =~ /^(v\d+(?:\.\d+)*)/ ) {
- # This was not a v-string after all (it's a word)
- return PPI::Token::Word->__TOKENIZER__commit($t);
- }
-
- # This is a v-string
- my $vstring = $1;
- $t->{line_cursor} += length($vstring);
- $t->_new_token('Number::Version', $vstring);
- $t->_finalize_token->__TOKENIZER__on_char($t);
-}
-
-1;
-
-=pod
-
-=head1 BUGS
-
-- Does not handle leading minus sign correctly. Should translate to a DashedWord.
-See L<http://perlmonks.org/?node_id=574573>
-
- -95.0.1.0 --> "-_\000\cA\000"
- -96.0.1.0 --> Argument "`\0^A\0" isn't numeric in negation (-)
-
-=head1 SUPPORT
-
-See the L<support section|PPI/SUPPORT> in the main module.
-
-=head1 AUTHOR
-
-Chris Dolan E<lt>cdolan at cpan.orgE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2006 Chris Dolan.
-
-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/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Operator.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Operator.pm
deleted file mode 100644
index e3feeb9..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Operator.pm
+++ /dev/null
@@ -1,137 +0,0 @@
-package PPI::Token::Operator;
-
-=pod
-
-=head1 NAME
-
-PPI::Token::Operator - Token class for operators
-
-=head1 INHERITANCE
-
- PPI::Token::Operator
- isa PPI::Token
- isa PPI::Element
-
-=head1 SYNOPSIS
-
- # This is the list of valid operators
- ++ -- ** ! ~ + -
- =~ !~ * / % x
- << >> lt gt le ge cmp ~~
- == != <=> . .. ... ,
- & | ^ && || //
- ? : = += -= *= .= //=
- < > <= >= <> => ->
- and or dor not eq ne
-
-=head1 DESCRIPTION
-
-All operators in PPI are created as C<PPI::Token::Operator> objects,
-including the ones that may superficially look like a L<PPI::Token::Word>
-object.
-
-=head1 METHODS
-
-There are no additional methods beyond those provided by the parent
-L<PPI::Token> and L<PPI::Element> classes.
-
-Got any ideas for methods? Submit a report to rt.cpan.org!
-
-=cut
-
-use strict;
-use PPI::Token ();
-
-use vars qw{$VERSION @ISA %OPERATOR};
-BEGIN {
- $VERSION = '1.212';
- @ISA = 'PPI::Token';
-
- # Build the operator index
- ### NOTE - This is accessed several times explicitly
- ### in PPI::Token::Word. Do not rename this
- ### without also correcting them.
- %OPERATOR = map { $_ => 1 } (
- qw{
- -> ++ -- ** ! ~ + -
- =~ !~ * / % x . << >>
- < > <= >= lt gt le ge
- == != <=> eq ne cmp ~~
- & | ^ && || // .. ...
- ? : = += -= *= .= /= //=
- => <>
- and or xor not
- }, ',' # Avoids "comma in qw{}" warning
- );
-}
-
-
-
-
-
-#####################################################################
-# Tokenizer Methods
-
-sub __TOKENIZER__on_char {
- my $t = $_[1];
- my $char = substr( $t->{line}, $t->{line_cursor}, 1 );
-
- # Are we still an operator if we add the next character
- my $content = $t->{token}->{content};
- return 1 if $OPERATOR{ $content . $char };
-
- # Handle the special case of a .1234 decimal number
- if ( $content eq '.' ) {
- if ( $char =~ /^[0-9]$/ ) {
- # This is a decimal number
- $t->{class} = $t->{token}->set_class('Number::Float');
- return $t->{class}->__TOKENIZER__on_char( $t );
- }
- }
-
- # Handle the special case if we might be a here-doc
- if ( $content eq '<<' ) {
- my $line = substr( $t->{line}, $t->{line_cursor} );
- # Either <<FOO or << 'FOO' or <<\FOO
- ### Is the zero-width look-ahead assertion really
- ### supposed to be there?
- if ( $line =~ /^(?: (?!\d)\w | \s*['"`] | \\\w ) /x ) {
- # This is a here-doc.
- # Change the class and move to the HereDoc's own __TOKENIZER__on_char method.
- $t->{class} = $t->{token}->set_class('HereDoc');
- return $t->{class}->__TOKENIZER__on_char( $t );
- }
- }
-
- # Handle the special case of the null Readline
- if ( $content eq '<>' ) {
- $t->{class} = $t->{token}->set_class('QuoteLike::Readline');
- }
-
- # Finalize normally
- $t->_finalize_token->__TOKENIZER__on_char( $t );
-}
-
-1;
-
-=pod
-
-=head1 SUPPORT
-
-See the L<support section|PPI/SUPPORT> in the main module.
-
-=head1 AUTHOR
-
-Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2001 - 2010 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/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Quote.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Quote.pm
deleted file mode 100644
index 846727b..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Quote.pm
+++ /dev/null
@@ -1,144 +0,0 @@
-package PPI::Token::Quote;
-
-=pod
-
-=head1 NAME
-
-PPI::Token::Quote - String quote abstract base class
-
-=head1 INHERITANCE
-
- PPI::Token::Quote
- isa PPI::Token
- isa PPI::Element
-
-=head1 DESCRIPTION
-
-The C<PPI::Token::Quote> class is never instantiated, and simply
-provides a common abstract base class for the four quote classes.
-In PPI, a "quote" is limited to only the quote-like things that
-themselves directly represent a string. (although this includes
-double quotes with interpolated elements inside them).
-
-The subclasses of C<PPI::Token::Quote> are:
-
-=over 2
-
-=item C<''> - L<PPI::Token::Quote::Single>
-
-=item C<q{}> - L<PPI::Token::Quote::Literal>
-
-=item C<""> - L<PPI::Token::Quote::Double>
-
-=item C<qq{}> - L<PPI::Token::Quote::Interpolate>
-
-=back
-
-The names are hopefully obvious enough not to have to explain what
-each class is here. See their respective pages for more details.
-
-Please note that although the here-doc B<does> represent a literal
-string, it is such a nasty piece of work that in L<PPI> it is given the
-honor of its own token class (L<PPI::Token::HereDoc>).
-
-=head1 METHODS
-
-=cut
-
-use strict;
-use PPI::Token ();
-
-use vars qw{$VERSION @ISA};
-BEGIN {
- $VERSION = '1.212';
- @ISA = 'PPI::Token';
-}
-
-
-
-
-
-#####################################################################
-# PPI::Token::Quote Methods
-
-=pod
-
-=head2 string
-
-The C<string> method is provided by all four ::Quote classes. It won't
-get you the actual literal Perl value, but it will strip off the wrapping
-of the quotes.
-
- # The following all return foo from the ->string method
- 'foo'
- "foo"
- q{foo}
- qq <foo>
-
-=begin testing string 15
-
-# Prove what we say in the ->string docs
-my $Document = PPI::Document->new(\<<'END_PERL');
- 'foo'
- "foo"
- q{foo}
- qq <foo>
-END_PERL
-isa_ok( $Document, 'PPI::Document' );
-
-my $quotes = $Document->find('Token::Quote');
-is( ref($quotes), 'ARRAY', 'Found quotes' );
-is( scalar(@$quotes), 4, 'Found 4 quotes' );
-foreach my $Quote ( @$quotes ) {
- isa_ok( $Quote, 'PPI::Token::Quote');
- can_ok( $Quote, 'string' );
- is( $Quote->string, 'foo', '->string returns "foo" for '
- . $Quote->content );
-}
-
-=end testing
-
-=cut
-
-#sub string {
-# my $class = ref $_[0] || $_[0];
-# die "$class does not implement method ->string";
-#}
-
-=pod
-
-=head2 literal
-
-The C<literal> method is provided by ::Quote:Literal and
-::Quote::Single. This returns the value of the string as Perl sees
-it: without the quote marks and with C<\\> and C<\'> resolved to C<\>
-and C<'>.
-
-The C<literal> method is not implemented by ::Quote::Double or
-::Quote::Interpolate yet.
-
-=cut
-
-1;
-
-=pod
-
-=head1 SUPPORT
-
-See the L<support section|PPI/SUPPORT> in the main module.
-
-=head1 AUTHOR
-
-Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2001 - 2010 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/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Quote/Double.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Quote/Double.pm
deleted file mode 100644
index 307a2ee..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Quote/Double.pm
+++ /dev/null
@@ -1,198 +0,0 @@
-package PPI::Token::Quote::Double;
-
-=pod
-
-=head1 NAME
-
-PPI::Token::Quote::Double - A standard "double quote" token
-
-=head1 INHERITANCE
-
- PPI::Token::Quote::Double
- isa PPI::Token::Quote
- isa PPI::Token
- isa PPI::Element
-
-=head1 DESCRIPTION
-
-A C<PPI::Token::Quote::Double> object represents a double-quoted
-interpolating string.
-
-The string is treated as a single entity, L<PPI> will not try to
-understand what is in the string during the parsing process.
-
-=head1 METHODS
-
-There are several methods available for C<PPI::Token::Quote::Double>, beyond
-those provided by the parent L<PPI::Token::Quote>, L<PPI::Token> and
-L<PPI::Element> classes.
-
-Got any ideas for methods? Submit a report to rt.cpan.org!
-
-=cut
-
-use strict;
-use Params::Util qw{_INSTANCE};
-use PPI::Token::Quote ();
-use PPI::Token::_QuoteEngine::Simple ();
-
-use vars qw{$VERSION @ISA};
-BEGIN {
- $VERSION = '1.212';
- @ISA = qw{
- PPI::Token::_QuoteEngine::Simple
- PPI::Token::Quote
- };
-}
-
-
-
-
-
-#####################################################################
-# PPI::Token::Quote::Double Methods
-
-=pod
-
-=head2 interpolations
-
-The interpolations method checks to see if the double quote actually
-contains any interpolated variables.
-
-Returns true if the string contains interpolations, or false if not.
-
-=begin testing interpolations 8
-
-# Get a set of objects
-my $Document = PPI::Document->new(\<<'END_PERL');
-"no interpolations"
-"no \@interpolations"
-"has $interpolation"
-"has @interpolation"
-"has \\@interpolation"
-"" # False content to test double-negation scoping
-END_PERL
-isa_ok( $Document, 'PPI::Document' );
-my $strings = $Document->find('Token::Quote::Double');
-is( scalar @{$strings}, 6, 'Found the 6 test strings' );
-is( $strings->[0]->interpolations, '', 'String 1: No interpolations' );
-is( $strings->[1]->interpolations, '', 'String 2: No interpolations' );
-is( $strings->[2]->interpolations, 1, 'String 3: Has interpolations' );
-is( $strings->[3]->interpolations, 1, 'String 4: Has interpolations' );
-is( $strings->[4]->interpolations, 1, 'String 5: Has interpolations' );
-is( $strings->[5]->interpolations, '', 'String 6: No interpolations' );
-
-=end testing
-
-=cut
-
-# Upgrade: Return the interpolated substrings.
-# Upgrade: Returns parsed expressions.
-sub interpolations {
- # Are there any unescaped $things in the string
- !! ($_[0]->content =~ /(?<!\\)(?:\\\\)*[\$\@]/);
-}
-
-=pod
-
-=head2 simplify
-
-For various reasons, some people find themselves compelled to have
-their code in the simplest form possible.
-
-The C<simply> method will turn a simple double-quoted string into the
-equivalent single-quoted string.
-
-If the double can be simplified, it will be modified in place and
-returned as a convenience, or returns false if the string cannot be
-simplified.
-
-=begin testing simplify 8
-
-my $Document = PPI::Document->new(\<<'END_PERL');
-"no special characters"
-"has \"double\" quotes"
-"has 'single' quotes"
-"has $interpolation"
-"has @interpolation"
-""
-END_PERL
-isa_ok( $Document, 'PPI::Document' );
-my $strings = $Document->find('Token::Quote::Double');
-is( scalar @{$strings}, 6, 'Found the 6 test strings' );
-is( $strings->[0]->simplify, q<'no special characters'>, 'String 1: No special characters' );
-is( $strings->[1]->simplify, q<"has \"double\" quotes">, 'String 2: Double quotes' );
-is( $strings->[2]->simplify, q<"has 'single' quotes">, 'String 3: Single quotes' );
-is( $strings->[3]->simplify, q<"has $interpolation">, 'String 3: Has interpolation' );
-is( $strings->[4]->simplify, q<"has @interpolation">, 'String 4: Has interpolation' );
-is( $strings->[5]->simplify, q<''>, 'String 6: Empty string' );
-
-=end testing
-
-=cut
-
-sub simplify {
- # This only works on EXACTLY this class
- my $self = _INSTANCE(shift, 'PPI::Token::Quote::Double') or return undef;
-
- # Don't bother if there are characters that could complicate things
- my $content = $self->content;
- my $value = substr($content, 1, length($content) - 2);
- return $self if $value =~ /[\\\$@\'\"]/;
-
- # Change the token to a single string
- $self->{content} = "'$value'";
- bless $self, 'PPI::Token::Quote::Single';
-}
-
-
-
-
-
-
-
-#####################################################################
-# PPI::Token::Quote Methods
-
-=pod
-
-=begin testing string 3
-
-my $Document = PPI::Document->new( \'print "foo";' );
-isa_ok( $Document, 'PPI::Document' );
-my $Double = $Document->find_first('Token::Quote::Double');
-isa_ok( $Double, 'PPI::Token::Quote::Double' );
-is( $Double->string, 'foo', '->string returns as expected' );
-
-=end testing
-
-=cut
-
-sub string {
- my $str = $_[0]->{content};
- substr( $str, 1, length($str) - 2 );
-}
-
-1;
-
-=pod
-
-=head1 SUPPORT
-
-See the L<support section|PPI/SUPPORT> in the main module.
-
-=head1 AUTHOR
-
-Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2001 - 2010 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/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Quote/Single.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Quote/Single.pm
deleted file mode 100644
index 9009d26..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Quote/Single.pm
+++ /dev/null
@@ -1,137 +0,0 @@
-package PPI::Token::Quote::Single;
-
-=pod
-
-=head1 NAME
-
-PPI::Token::Quote::Single - A 'single quote' token
-
-=head1 INHERITANCE
-
- PPI::Token::Quote::Single
- isa PPI::Token::Quote
- isa PPI::Token
- isa PPI::Element
-
-=head1 SYNOPSIS
-
- 'This is a single quote'
-
- q{This is a literal, but NOT a single quote}
-
-=head1 DESCRIPTION
-
-A C<PPI::Token::Quote::Single> object represents a single quoted string
-literal.
-
-=head1 METHODS
-
-There are no methods available for C<PPI::Token::Quote::Single> beyond
-those provided by the parent L<PPI::Token::Quote>, L<PPI::Token> and
-L<PPI::Element> classes.
-
-Got any ideas for methods? Submit a report to rt.cpan.org!
-
-=cut
-
-use strict;
-use PPI::Token::Quote ();
-use PPI::Token::_QuoteEngine::Simple ();
-
-use vars qw{$VERSION @ISA};
-BEGIN {
- $VERSION = '1.212';
- @ISA = qw{
- PPI::Token::_QuoteEngine::Simple
- PPI::Token::Quote
- };
-}
-
-
-
-
-
-#####################################################################
-# PPI::Token::Quote Methods
-
-=pod
-
-=begin testing string 3
-
-my $Document = PPI::Document->new( \"print 'foo';" );
-isa_ok( $Document, 'PPI::Document' );
-my $Single = $Document->find_first('Token::Quote::Single');
-isa_ok( $Single, 'PPI::Token::Quote::Single' );
-is( $Single->string, 'foo', '->string returns as expected' );
-
-=end testing
-
-=cut
-
-sub string {
- my $str = $_[0]->{content};
- substr( $str, 1, length($str) - 2 );
-}
-
-=pod
-
-=begin testing literal 21
-
-my @pairs = (
- "''", '',
- "'f'", 'f',
- "'f\\'b'", "f\'b",
- "'f\\nb'", "f\\nb",
- "'f\\\\b'", "f\\b",
- "'f\\\\\\b'", "f\\\\b",
- "'f\\\\\\\''", "f\\'",
-);
-while ( @pairs ) {
- my $from = shift @pairs;
- my $to = shift @pairs;
- my $doc = PPI::Document->new( \"print $from;" );
- isa_ok( $doc, 'PPI::Document' );
- my $quote = $doc->find_first('Token::Quote::Single');
- isa_ok( $quote, 'PPI::Token::Quote::Single' );
- is( $quote->literal, $to, "The source $from becomes $to ok" );
-}
-
-=end testing
-
-=cut
-
-my %UNESCAPE = (
- "\\'" => "'",
- "\\\\" => "\\",
-);
-
-sub literal {
- # Unescape \\ and \' ONLY
- my $str = $_[0]->string;
- $str =~ s/(\\.)/$UNESCAPE{$1} || $1/ge;
- return $str;
-}
-
-1;
-
-=pod
-
-=head1 SUPPORT
-
-See the L<support section|PPI/SUPPORT> in the main module.
-
-=head1 AUTHOR
-
-Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2001 - 2010 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/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/QuoteLike/Backtick.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/QuoteLike/Backtick.pm
deleted file mode 100644
index 299e693..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/QuoteLike/Backtick.pm
+++ /dev/null
@@ -1,66 +0,0 @@
-package PPI::Token::QuoteLike::Backtick;
-
-=pod
-
-=head1 NAME
-
-PPI::Token::QuoteLike::Backtick - A `backticks` command token
-
-=head1 INHERITANCE
-
- PPI::Token::QuoteLike::Backtick
- isa PPI::Token::QuoteLike
- isa PPI::Token
- isa PPI::Element
-
-=head1 DESCRIPTION
-
-A C<PPI::Token::QuoteLike::Backtick> object represents a command output
-capturing quote.
-
-=head1 METHODS
-
-There are no methods available for C<PPI::Token::QuoteLike::Backtick>
-beyond those provided by the parent L<PPI::Token::QuoteLike>, L<PPI::Token>
-and L<PPI::Element> classes.
-
-Got any ideas for methods? Submit a report to rt.cpan.org!
-
-=cut
-
-use strict;
-use PPI::Token::QuoteLike ();
-use PPI::Token::_QuoteEngine::Simple ();
-
-use vars qw{$VERSION @ISA};
-BEGIN {
- $VERSION = '1.212';
- @ISA = qw{
- PPI::Token::_QuoteEngine::Simple
- PPI::Token::QuoteLike
- };
-}
-
-1;
-
-=pod
-
-=head1 SUPPORT
-
-See the L<support section|PPI/SUPPORT> in the main module.
-
-=head1 AUTHOR
-
-Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2001 - 2010 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/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/QuoteLike/Readline.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/QuoteLike/Readline.pm
deleted file mode 100644
index 5d32fc4..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/QuoteLike/Readline.pm
+++ /dev/null
@@ -1,75 +0,0 @@
-package PPI::Token::QuoteLike::Readline;
-
-=pod
-
-=head1 NAME
-
-PPI::Token::QuoteLike::Readline - The readline quote-like operator
-
-=head1 INHERITANCE
-
- PPI::Token::QuoteLike::Readline
- isa PPI::Token::QuoteLike
- isa PPI::Token
- isa PPI::Element
-
-=head1 DESCRIPTION
-
-The C<readline> quote-like operator is used to read either a single
-line from a file, or all the lines from a file, as follows.
-
- # Read in a single line
- $line = <FILE>;
-
- # From a scalar handle
- $line = <$filehandle>;
-
- # Read all the lines
- @lines = <FILE>;
-
-=head1 METHODS
-
-There are no methods available for C<PPI::Token::QuoteLike::Readline>
-beyond those provided by the parent L<PPI::Token::QuoteLike>, L<PPI::Token>
-and L<PPI::Element> classes.
-
-Got any ideas for methods? Submit a report to rt.cpan.org!
-
-=cut
-
-use strict;
-use PPI::Token::QuoteLike ();
-use PPI::Token::_QuoteEngine::Full ();
-
-use vars qw{$VERSION @ISA};
-BEGIN {
- $VERSION = '1.212';
- @ISA = qw{
- PPI::Token::_QuoteEngine::Full
- PPI::Token::QuoteLike
- };
-}
-
-1;
-
-=pod
-
-=head1 SUPPORT
-
-See the L<support section|PPI/SUPPORT> in the main module.
-
-=head1 AUTHOR
-
-Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2001 - 2010 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/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Separator.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Separator.pm
deleted file mode 100644
index 9327273..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Separator.pm
+++ /dev/null
@@ -1,66 +0,0 @@
-package PPI::Token::Separator;
-
-=pod
-
-=head1 NAME
-
-PPI::Token::Separator - The __DATA__ and __END__ tags
-
-=head1 INHERITANCE
-
- PPI::Token::Separator
- isa PPI::Token::Word
- isa PPI::Token
- isa PPI::Element
-
-=head1 DESCRIPTION
-
-Although superficially looking like a normal L<PPI::Token::Word> object,
-when the C<__DATA__> and C<__END__> compiler tags appear at the beginning of
-a line (on supposedly) their own line, these tags become file section
-separators.
-
-The indicate that the time for Perl code is over, and the rest of the
-file is dedicated to something else (data in the case of C<__DATA__>) or
-to nothing at all (in the case of C<__END__>).
-
-=head1 METHODS
-
-This class has no methods beyond what is provided by its
-L<PPI::Token::Word>, L<PPI::Token> and L<PPI::Element>
-parent classes.
-
-=cut
-
-use strict;
-use PPI::Token::Word ();
-
-use vars qw{$VERSION @ISA};
-BEGIN {
- $VERSION = '1.212';
- @ISA = 'PPI::Token::Word';
-}
-
-1;
-
-=pod
-
-=head1 SUPPORT
-
-See the L<support section|PPI/SUPPORT> in the main module.
-
-=head1 AUTHOR
-
-Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2001 - 2010 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/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Whitespace.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Whitespace.pm
deleted file mode 100644
index e6b0ffb..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/Token/Whitespace.pm
+++ /dev/null
@@ -1,441 +0,0 @@
-package PPI::Token::Whitespace;
-
-=pod
-
-=head1 NAME
-
-PPI::Token::Whitespace - Tokens representing ordinary white space
-
-=head1 INHERITANCE
-
- PPI::Token::Whitespace
- isa PPI::Token
- isa PPI::Element
-
-=head1 DESCRIPTION
-
-As a full "round-trip" parser, PPI records every last byte in a
-file and ensure that it is included in the L<PPI::Document> object.
-
-This even includes whitespace. In fact, Perl documents are seen
-as "floating in a sea of whitespace", and thus any document will
-contain vast quantities of C<PPI::Token::Whitespace> objects.
-
-For the most part, you shouldn't notice them. Or at least, you
-shouldn't B<have> to notice them.
-
-This means doing things like consistently using the "S for significant"
-series of L<PPI::Node> and L<PPI::Element> methods to do things.
-
-If you want the nth child element, you should be using C<schild> rather
-than C<child>, and likewise C<snext_sibling>, C<sprevious_sibling>, and
-so on and so forth.
-
-=head1 METHODS
-
-Again, for the most part you should really B<not> need to do anything
-very significant with whitespace.
-
-But there are a couple of convenience methods provided, beyond those
-provided by the parent L<PPI::Token> and L<PPI::Element> classes.
-
-=cut
-
-use strict;
-use Clone ();
-use PPI::Token ();
-
-use vars qw{$VERSION @ISA};
-BEGIN {
- $VERSION = '1.212';
- @ISA = 'PPI::Token';
-}
-
-=pod
-
-=head2 null
-
-Because L<PPI> sees documents as sitting on a sort of substrate made of
-whitespace, there are a couple of corner cases that get particularly
-nasty if they don't find whitespace in certain places.
-
-Imagine walking down the beach to go into the ocean, and then quite
-unexpectedly falling off the side of the planet. Well it's somewhat
-equivalent to that, including the whole screaming death bit.
-
-The C<null> method is a convenience provided to get some internals
-out of some of these corner cases.
-
-Specifically it create a whitespace token that represents nothing,
-or at least the null string C<''>. It's a handy way to have some
-"whitespace" right where you need it, without having to have any
-actual characters.
-
-=cut
-
-my $null = undef;
-
-sub null {
- $null ||= $_[0]->new('');
- Clone::clone($null);
-}
-
-### XS -> PPI/XS.xs:_PPI_Token_Whitespace__significant 0.900+
-sub significant { '' }
-
-=pod
-
-=head2 tidy
-
-C<tidy> is a convenience method for removing unneeded whitespace.
-
-Specifically, it removes any whitespace from the end of a line.
-
-Note that this B<doesn't> include POD, where you may well need
-to keep certain types of whitespace. The entire POD chunk lives
-in its own L<PPI::Token::Pod> object.
-
-=cut
-
-sub tidy {
- $_[0]->{content} =~ s/^\s+?(?>\n)//;
- 1;
-}
-
-
-
-
-
-#####################################################################
-# Parsing Methods
-
-# Build the class and commit maps
-use vars qw{@CLASSMAP @COMMITMAP};
-BEGIN {
- @CLASSMAP = ();
- @COMMITMAP = ();
- foreach (
- 'a' .. 'u', 'w', 'y', 'z', 'A' .. 'Z', '_'
- ) {
- $COMMITMAP[ord $_] = 'PPI::Token::Word';
- }
- foreach ( qw!; [ ] { } )! ) { $COMMITMAP[ord $_] = 'PPI::Token::Structure' }
- foreach ( 0 .. 9 ) { $CLASSMAP[ord $_] = 'Number' }
- foreach ( qw{= ? | + > . ! ~ ^} ) { $CLASSMAP[ord $_] = 'Operator' }
- foreach ( qw{* $ @ & : %} ) { $CLASSMAP[ord $_] = 'Unknown' }
-
- # Miscellaneous remainder
- $COMMITMAP[ord '#'] = 'PPI::Token::Comment';
- $COMMITMAP[ord 'v'] = 'PPI::Token::Number::Version';
- $CLASSMAP[ord ','] = 'PPI::Token::Operator';
- $CLASSMAP[ord "'"] = 'Quote::Single';
- $CLASSMAP[ord '"'] = 'Quote::Double';
- $CLASSMAP[ord '`'] = 'QuoteLike::Backtick';
- $CLASSMAP[ord '\\'] = 'Cast';
- $CLASSMAP[ord '_'] = 'Word';
- $CLASSMAP[9] = 'Whitespace'; # A horizontal tab
- $CLASSMAP[10] = 'Whitespace'; # A newline
- $CLASSMAP[13] = 'Whitespace'; # A carriage return
- $CLASSMAP[32] = 'Whitespace'; # A normal space
-}
-
-sub __TOKENIZER__on_line_start {
- my $t = $_[1];
- my $line = $t->{line};
-
- # Can we classify the entire line in one go
- if ( $line =~ /^\s*$/ ) {
- # A whitespace line
- $t->_new_token( 'Whitespace', $line );
- return 0;
-
- } elsif ( $line =~ /^\s*#/ ) {
- # A comment line
- $t->_new_token( 'Comment', $line );
- $t->_finalize_token;
- return 0;
-
- } elsif ( $line =~ /^=(\w+)/ ) {
- # A Pod tag... change to pod mode
- $t->_new_token( 'Pod', $line );
- if ( $1 eq 'cut' ) {
- # This is an error, but one we'll ignore
- # Don't go into Pod mode, since =cut normally
- # signals the end of Pod mode
- } else {
- $t->{class} = 'PPI::Token::Pod';
- }
- return 0;
-
- } elsif ( $line =~ /^use v6\-alpha\;/ ) {
- # Indicates a Perl 6 block. Make the initial
- # implementation just suck in the entire rest of the
- # file.
- my @perl6 = ();
- while ( 1 ) {
- my $line6 = $t->_get_line;
- last unless defined $line6;
- push @perl6, $line6;
- }
- push @{ $t->{perl6} }, join '', @perl6;
-
- # We only sucked in the block, we don't actially do
- # anything to the "use v6..." line. So return as if
- # we didn't find anything at all.
- return 1;
- }
-
- 1;
-}
-
-sub __TOKENIZER__on_char {
- my $t = $_[1];
- my $char = ord substr $t->{line}, $t->{line_cursor}, 1;
-
- # Do we definately know what something is?
- return $COMMITMAP[$char]->__TOKENIZER__commit($t) if $COMMITMAP[$char];
-
- # Handle the simple option first
- return $CLASSMAP[$char] if $CLASSMAP[$char];
-
- if ( $char == 40 ) { # $char eq '('
- # Finalise any whitespace token...
- $t->_finalize_token if $t->{token};
-
- # Is this the beginning of a sub prototype?
- # We are a sub prototype IF
- # 1. The previous significant token is a bareword.
- # 2. The one before that is the word 'sub'.
- # 3. The one before that is a 'structure'
-
- # Get the three previous significant tokens
- my $tokens = $t->_previous_significant_tokens(3);
- if ( $tokens ) {
- # A normal subroutine declaration
- my $p1 = $tokens->[1];
- my $p2 = $tokens->[2];
- if (
- $tokens->[0]->isa('PPI::Token::Word')
- and
- $p1->isa('PPI::Token::Word')
- and
- $p1->content eq 'sub'
- and (
- $p2->isa('PPI::Token::Structure')
- or (
- $p2->isa('PPI::Token::Whitespace')
- and
- $p2->content eq ''
- )
- )
- ) {
- # This is a sub prototype
- return 'Prototype';
- }
-
- # An prototyped anonymous subroutine
- my $p0 = $tokens->[0];
- if ( $p0->isa('PPI::Token::Word') and $p0->content eq 'sub') {
- return 'Prototype';
- }
- }
-
- # This is a normal open bracket
- return 'Structure';
-
- } elsif ( $char == 60 ) { # $char eq '<'
- # Finalise any whitespace token...
- $t->_finalize_token if $t->{token};
-
- # This is either "less than" or "readline quote-like"
- # Do some context stuff to guess which.
- my $prev = $t->_last_significant_token;
-
- # The most common group of less-thans are used like
- # $foo < $bar
- # 1 < $bar
- # $#foo < $bar
- return 'Operator' if $prev->isa('PPI::Token::Symbol');
- return 'Operator' if $prev->isa('PPI::Token::Magic');
- return 'Operator' if $prev->isa('PPI::Token::Number');
- return 'Operator' if $prev->isa('PPI::Token::ArrayIndex');
-
- # If it is <<... it's a here-doc instead
- my $next_char = substr( $t->{line}, $t->{line_cursor} + 1, 1 );
- if ( $next_char eq '<' ) {
- return 'Operator';
- }
-
- # The most common group of readlines are used like
- # while ( <...> )
- # while <>;
- my $prec = $prev->content;
- if ( $prev->isa('PPI::Token::Structure') and $prec eq '(' ) {
- return 'QuoteLike::Readline';
- }
- if ( $prev->isa('PPI::Token::Word') and $prec eq 'while' ) {
- return 'QuoteLike::Readline';
- }
- if ( $prev->isa('PPI::Token::Operator') and $prec eq '=' ) {
- return 'QuoteLike::Readline';
- }
- if ( $prev->isa('PPI::Token::Operator') and $prec eq ',' ) {
- return 'QuoteLike::Readline';
- }
-
- if ( $prev->isa('PPI::Token::Structure') and $prec eq '}' ) {
- # Could go either way... do a regex check
- # $foo->{bar} < 2;
- # grep { .. } <foo>;
- my $line = substr( $t->{line}, $t->{line_cursor} );
- if ( $line =~ /^<(?!\d)\w+>/ ) {
- # Almost definitely readline
- return 'QuoteLike::Readline';
- }
- }
-
- # Otherwise, we guess operator, which has been the default up
- # until this more comprehensive section was created.
- return 'Operator';
-
- } elsif ( $char == 47 ) { # $char eq '/'
- # Finalise any whitespace token...
- $t->_finalize_token if $t->{token};
-
- # This is either a "divided by" or a "start regex"
- # Do some context stuff to guess ( ack ) which.
- # Hopefully the guess will be good enough.
- my $prev = $t->_last_significant_token;
- my $prec = $prev->content;
-
- # Most times following an operator, we are a regex.
- # This includes cases such as:
- # , - As an argument in a list
- # .. - The second condition in a flip flop
- # =~ - A bound regex
- # !~ - Ditto
- return 'Regexp::Match' if $prev->isa('PPI::Token::Operator');
-
- # After a symbol
- return 'Operator' if $prev->isa('PPI::Token::Symbol');
- return 'Operator' if $prev->isa('PPI::Token::Structure') && $prec eq ']';
-
- # After another number
- return 'Operator' if $prev->isa('PPI::Token::Number');
-
- # After going into scope/brackets
- if (
- $prev->isa('PPI::Token::Structure')
- and (
- $prec eq '('
- or
- $prec eq '{'
- or
- $prec eq ';'
- )
- ) {
- return 'Regexp::Match';
- }
-
- # Functions that we know commonly use regexs as an argument
- if (
- $prev->isa('PPI::Token::Word')
- and
- $prec eq 'split'
- ) {
- return 'Regexp::Match';
- }
-
- # After a keyword
- if (
- $prev->isa('PPI::Token::Word')
- and (
- $prec eq 'if'
- or
- $prec eq 'unless'
- or
- $prec eq 'grep'
- )
- ) {
- return 'Regexp::Match';
- }
-
- # Or as the very first thing in a file
- return 'Regexp::Match' if $prec eq '';
-
- # What about the char after the slash? There's some things
- # that would be highly illogical to see if its an operator.
- my $next_char = substr $t->{line}, $t->{line_cursor} + 1, 1;
- if ( defined $next_char and length $next_char ) {
- if ( $next_char =~ /(?:\^|\[|\\)/ ) {
- return 'Regexp::Match';
- }
- }
-
- # Otherwise... erm... assume operator?
- # Add more tests here as potential cases come to light
- return 'Operator';
-
- } elsif ( $char == 120 ) { # $char eq 'x'
- # Handle an arcane special case where "string"x10 means the x is an operator.
- # String in this case means ::Single, ::Double or ::Execute, or the operator versions or same.
- my $nextchar = substr $t->{line}, $t->{line_cursor} + 1, 1;
- my $prev = $t->_previous_significant_tokens(1);
- $prev = ref $prev->[0];
- if ( $nextchar =~ /\d/ and $prev ) {
- if ( $prev =~ /::Quote::(?:Operator)?(?:Single|Double|Execute)$/ ) {
- return 'Operator';
- }
- }
-
- # Otherwise, commit like a normal bareword
- return PPI::Token::Word->__TOKENIZER__commit($t);
-
- } elsif ( $char == 45 ) { # $char eq '-'
- # Look for an obvious operator operand context
- my $context = $t->_opcontext;
- if ( $context eq 'operator' ) {
- return 'Operator';
- } else {
- # More logic needed
- return 'Unknown';
- }
-
- } elsif ( $char >= 128 ) { # Outside ASCII
- return 'PPI::Token::Word'->__TOKENIZER__commit($t) if $t =~ /\w/;
- return 'Whitespace' if $t =~ /\s/;
- }
-
-
- # All the whitespaces are covered, so what to do
- ### For now, die
- PPI::Exception->throw("Encountered unexpected character '$char'");
-}
-
-sub __TOKENIZER__on_line_end {
- $_[1]->_finalize_token if $_[1]->{token};
-}
-
-1;
-
-=pod
-
-=head1 SUPPORT
-
-See the L<support section|PPI/SUPPORT> in the main module.
-
-=head1 AUTHOR
-
-Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2001 - 2010 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/3.8.8/sources/cpan-PPI/vendor/lib/PPI/XSAccessor.pm b/3.8.8/sources/cpan-PPI/vendor/lib/PPI/XSAccessor.pm
deleted file mode 100644
index d869991..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/lib/PPI/XSAccessor.pm
+++ /dev/null
@@ -1,154 +0,0 @@
-package PPI::XSAccessor;
-
-# This is an experimental prototype, use at your own risk.
-# Provides optional enhancement of PPI with Class::XSAccessor (if installed)
-
-use 5.006;
-use strict;
-use PPI ();
-
-use vars qw{$VERSION};
-BEGIN {
- $VERSION = '1.212';
-}
-
-
-
-
-
-######################################################################
-# Replacement Methods
-
-# Packages are implemented here in alphabetical order
-
-package PPI::Document;
-
-use Class::XSAccessor
- replace => 1,
- getters => {
- readonly => 'readonly',
- },
- true => [
- 'scope'
- ];
-
-package PPI::Document::File;
-
-use Class::XSAccessor
- replace => 1,
- getters => {
- filename => 'filename',
- };
-
-package PPI::Document::Fragment;
-
-use Class::XSAccessor
- replace => 1,
- false => [
- 'scope',
- ];
-
-package PPI::Document::Normalized;
-
-use Class::XSAccessor
- replace => 1,
- getters => {
- '_Document' => 'Document',
- 'version' => 'version',
- 'functions' => 'functions',
- };
-
-package PPI::Element;
-
-use Class::XSAccessor
- replace => 1,
- true => [
- 'significant',
- ];
-
-package PPI::Exception;
-
-use Class::XSAccessor
- replace => 1,
- getters => {
- message => 'message',
- };
-
-package PPI::Node;
-
-use Class::XSAccessor
- replace => 1,
- false => [
- 'scope',
- ];
-
-package PPI::Normal;
-
-use Class::XSAccessor
- replace => 1,
- getters => {
- 'layer' => 'layer',
- };
-
-package PPI::Statement;
-
-use Class::XSAccessor
- replace => 1,
- true => [
- '__LEXER__normal',
- ];
-
-package PPI::Statement::Compound;
-
-use Class::XSAccessor
- replace => 1,
- true => [
- 'scope',
- ],
- false => [
- '__LEXER__normal',
- ];
-
-package PPI::Statement::Data;
-
-use Class::XSAccessor
- replace => 1,
- false => [
- '_complete',
- ];
-
-package PPI::Statement::End;
-
-use Class::XSAccessor
- replace => 1,
- true => [
- '_complete',
- ];
-
-package PPI::Statement::Given;
-
-use Class::XSAccessor
- replace => 1,
- true => [
- 'scope',
- ],
- false => [
- '__LEXER__normal',
- ];
-
-package PPI::Token;
-
-use Class::XSAccessor
- replace => 1,
- getters => {
- content => 'content',
- },
- setters => {
- set_content => 'content',
- },
- true => [
- '__TOKENIZER__on_line_start',
- '__TOKENIZER__on_line_end',
- ];
-
-1;
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/03_document.t b/3.8.8/sources/cpan-PPI/vendor/t/03_document.t
deleted file mode 100644
index 8de424d..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/03_document.t
+++ /dev/null
@@ -1,81 +0,0 @@
-#!/usr/bin/perl
-
-# PPI::Document tests
-
-use strict;
-use File::Spec::Functions ':ALL';
-BEGIN {
- no warnings 'once';
- $| = 1;
- $PPI::XS_DISABLE = 1;
- $PPI::Lexer::X_TOKENIZER ||= $ENV{X_TOKENIZER};
-}
-use PPI;
-
-# Execute the tests
-use Test::More tests => 14;
-use Test::NoWarnings;
-
-# Test file
-my $file = catfile(qw{ t data 03_document test.dat });
-my $empty = catfile(qw{ t data 03_document empty.dat });
-ok( -f $file, 'Found test file' );
-ok( -f $empty, 'Found test file' );
-
-# Test script
-my $script = <<'END_PERL';
-#!/usr/bin/perl
-
-# A simple test script
-
-print "Hello World!\n";
-END_PERL
-
-
-
-
-
-#####################################################################
-# Test a basic document
-
-# Parse a simple document in all possible ways
-SCOPE: {
- my $doc1 = PPI::Document->new( $file );
- isa_ok( $doc1, 'PPI::Document' );
-
- my $doc2 = PPI::Document->new( \$script );
- isa_ok( $doc2, 'PPI::Document' );
-
- my $doc3 = PPI::Document->new( [
- "#!/usr/bin/perl",
- "",
- "# A simple test script",
- "",
- "print \"Hello World!\\n\";",
- ] );
- isa_ok( $doc3, 'PPI::Document' );
-
- # Compare the three forms
- is_deeply( $doc1, $doc2, 'Stringref form matches file form' );
- is_deeply( $doc1, $doc3, 'Arrayref form matches file form' );
-}
-
-# Repeat the above with a null document
-SCOPE: {
- my $doc1 = PPI::Document->new( $empty );
- isa_ok( $doc1, 'PPI::Document' );
-
- my $doc2 = PPI::Document->new( \'' );
- isa_ok( $doc2, 'PPI::Document' );
-
- my $doc3 = PPI::Document->new( [ ] );
- isa_ok( $doc3, 'PPI::Document' );
-
- # Compare the three forms
- is_deeply( $doc1, $doc2, 'Stringref form matches file form' );
- is_deeply( $doc1, $doc3, 'Arrayref form matches file form' );
-
- # Make sure the null document round-trips
- my $string = $doc1->serialize;
- is( $string, '', '->serialize ok' );
-}
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/06_round_trip.t b/3.8.8/sources/cpan-PPI/vendor/t/06_round_trip.t
deleted file mode 100644
index 5f43af8..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/06_round_trip.t
+++ /dev/null
@@ -1,120 +0,0 @@
-#!/usr/bin/perl
-
-# Load ALL of the PPI files, lex them in, dump them
-# out, and verify that the code goes in and out cleanly.
-
-use strict;
-BEGIN {
- no warnings 'once';
- $| = 1;
- $PPI::XS_DISABLE = 1;
- $PPI::Lexer::X_TOKENIZER ||= $ENV{X_TOKENIZER};
-}
-use Test::More; # Plan comes later
-use Test::NoWarnings;
-use File::Spec::Functions ':ALL';
-use PPI;
-
-
-
-
-
-#####################################################################
-# Prepare
-
-# Find all of the files to be checked
-my %tests = map { $_ => $INC{$_} } grep { ! /\bXS\.pm/ } grep { /^PPI\b/ } keys %INC;
-my @files = sort values %tests;
-unless ( @files ) {
- Test::More::plan( tests => 2 );
- ok( undef, "Failed to find any files to test" );
- exit();
-}
-
-# Find all the testable perl files in t/data
-foreach my $dir (
- '05_lexer',
- '07_token',
- '08_regression',
- '11_util',
- '13_data',
- '15_transform'
-) {
- my @perl = find_files( catdir( 't', 'data', $dir ) );
- push @files, @perl;
-}
-
-# Add the test scripts themselves
-push @files, find_files( 't' );
-
-# Declare our plan
-Test::More::plan( tests => 1 + scalar(@files) * 9 );
-
-
-
-
-
-#####################################################################
-# Run the Tests
-
-foreach my $file ( @files ) {
- roundtrip_ok( $file );
-}
-
-
-
-
-
-#####################################################################
-# Test Functions
-
-sub roundtrip_ok {
- my $file = shift;
- local *FILE;
- my $rv = open( FILE, '<', $file );
- ok( $rv, "$file: Found file " );
- SKIP: {
- skip "No file to test", 7 unless $rv;
- my $source = do { local $/ = undef; <FILE> };
- close FILE;
- ok( length $source, "$file: Loaded cleanly" );
- $source =~ s/(?:\015{1,2}\012|\015|\012)/\n/g;
-
- # Load the file as a Document
- SKIP: {
- skip( 'Ignoring 14_charset.t', 7 ) if $file =~ /14_charset/;
-
- my $Document = PPI::Document->new( $file );
- ok( $Document, "$file: ->new returned true" );
- isa_ok( $Document, 'PPI::Document' );
-
- # Serialize it back out, and compare with the raw version
- skip( "Ignoring failed parse of $file", 5 ) unless defined $Document;
- my $content = $Document->serialize;
- ok( length($content), "$file: PPI::Document serializes" );
- is( $content, $source, "$file: Round trip was successful" );
-
- # Are there any unknown things?
- is( $Document->find_any('Token::Unknown'), '',
- "$file: Contains no PPI::Token::Unknown elements" );
- is( $Document->find_any('Structure::Unknown'), '',
- "$file: Contains no PPI::Structure::Unknown elements" );
- is( $Document->find_any('Statement::Unknown'), '',
- "$file: Contains no PPI::Statement::Unknown elements" );
- }
- }
-}
-
-# Find file names in named t/data dirs
-sub find_files {
- my $testdir = shift;
-
- # Does the test directory exist?
- -e $testdir and -d $testdir and -r $testdir or die "Failed to find test directory $testdir";
-
- # Find the .code test files
- opendir( TESTDIR, $testdir ) or die "opendir: $!";
- my @perl = map { catfile( $testdir, $_ ) } sort grep { /\.(?:code|pm|t)$/ } readdir(TESTDIR);
- closedir( TESTDIR ) or die "closedir: $!";
- return @perl;
-}
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/14_charsets.t b/3.8.8/sources/cpan-PPI/vendor/t/14_charsets.t
deleted file mode 100644
index a114ba9..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/14_charsets.t
+++ /dev/null
@@ -1,79 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-BEGIN {
- no warnings 'once';
- $| = 1;
- $PPI::XS_DISABLE = 1;
- $PPI::Lexer::X_TOKENIZER ||= $ENV{X_TOKENIZER};
-}
-use Test::More;
-
-BEGIN {
- if ($] < 5.008007) {
- Test::More->import( skip_all => "Unicode support requires perl 5.8.7" );
- exit(0);
- }
- plan( tests => 13 );
-}
-
-use Test::NoWarnings;
-use utf8;
-use File::Spec::Functions ':ALL';
-use Params::Util qw{_INSTANCE};
-use PPI;
-
-sub good_ok {
- my $source = shift;
- my $message = shift;
- my $doc = PPI::Document->new( \$source );
- ok( _INSTANCE($doc, 'PPI::Document'), $message );
- if ( ! _INSTANCE($doc, 'PPI::Document') ) {
- diag($PPI::Document::errstr);
- }
-}
-
-
-
-
-
-#####################################################################
-# Begin Tests
-
-# We cannot reliably support Unicode on anything less than 5.8.5
-SKIP: {
- # In some (weird) cases with custom locales, things aren't words
- # that should be
- unless ( "ä" =~ /\w/ ) {
- skip( "Unicode-incompatible locale in use (apparently)", 11 );
- }
-
- # Notorious test case.
- # In 1.203 this test case causes a memory leaking infinite loop
- # that consumes all available memory and then crashes the process.
- good_ok( '一();', "Function with Chinese characters" );
-
- # Byte order mark with no unicode content
- good_ok( "\xef\xbb\xbf1;\n", "BOM without actual unicode content" );
-
- # Testing accented characters in UTF-8
- good_ok( 'sub func { }', "Parsed code without accented chars" );
- good_ok( 'rätselhaft();', "Function with umlaut" );
- good_ok( 'ätselhaft()', "Starting with umlaut" );
- good_ok( '"rätselhaft"', "In double quotes" );
- good_ok( "'rätselhaft'", "In single quotes" );
- good_ok( 'sub func { s/a/ä/g; }', "Regex with umlaut" );
- good_ok( 'sub func { $ä=1; }', "Variable with umlaut" );
- good_ok( '$一 = "壹";', "Variables with Chinese characters" );
- good_ok( '$a=1; # ä is an umlaut', "Comment with umlaut" );
- good_ok( <<'END_CODE', "POD with umlaut" );
-sub func { }
-
-=pod
-
-=head1 Umlauts like ä
-
-}
-END_CODE
-
-}
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/18_cache.t b/3.8.8/sources/cpan-PPI/vendor/t/18_cache.t
deleted file mode 100644
index 6ba30ce..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/18_cache.t
+++ /dev/null
@@ -1,156 +0,0 @@
-#!/usr/bin/perl
-
-# Test compatibility with Storable
-
-use strict;
-BEGIN {
- no warnings 'once';
- $| = 1;
- $PPI::XS_DISABLE = 1;
- $PPI::Lexer::X_TOKENIZER ||= $ENV{X_TOKENIZER};
-}
-
-use Test::More tests => 43;
-use Test::NoWarnings;
-use File::Spec::Unix;
-use File::Spec::Functions ':ALL';
-use Scalar::Util 'refaddr';
-use File::Remove ();
-use PPI::Document ();
-use PPI::Cache ();
-
-use constant VMS => !! ( $^O eq 'VMS' );
-use constant FILE => VMS ? 'File::Spec::Unix' : 'File::Spec';
-
-my $this_file = FILE->catdir( 't', 'data', '03_document', 'test.dat' );
-my $cache_dir = FILE->catdir( 't', 'data', '18_cache' );
-
-# Define, create and clear the test cache
-File::Remove::remove( \1, $cache_dir ) if -e $cache_dir;
-ok( ! -e $cache_dir, 'The cache path does not exist' );
-END { File::Remove::remove( \1, $cache_dir ) if -e $cache_dir }
-ok( scalar(mkdir $cache_dir), 'mkdir $cache_dir returns true' );
-ok( -d $cache_dir, 'Verified the cache path exists' );
-ok( -w $cache_dir, 'Can write to the cache path' );
-
-my $sample_document = \'print "Hello World!\n";';
-
-
-
-
-
-#####################################################################
-# Basic Testing
-
-# Create a basic cache object
-my $Cache = PPI::Cache->new(
- path => $cache_dir,
- );
-isa_ok( $Cache, 'PPI::Cache' );
-is( scalar($Cache->path), $cache_dir, '->path returns the original path' );
-is( scalar($Cache->readonly), '', '->readonly returns false by default' );
-
-# Create a test document
-my $doc = PPI::Document->new( $sample_document );
-isa_ok( $doc, 'PPI::Document' );
-my $doc_md5 = '64568092e7faba16d99fa04706c46517';
-is( $doc->hex_id, $doc_md5, '->hex_id specifically matches the UNIX newline md5' );
-my $doc_file = catfile($cache_dir, '6', '64', '64568092e7faba16d99fa04706c46517.ppi');
-my $bad_md5 = 'abcdef1234567890abcdef1234567890';
-my $bad_file = catfile($cache_dir, 'a', 'ab', 'abcdef1234567890abcdef1234567890.ppi');
-
-# Save to an arbitrary location
-ok( $Cache->_store($bad_md5, $doc), '->_store returns true' );
-ok( -f $bad_file, 'Created file where expected' );
-my $loaded = $Cache->_load($bad_md5);
-isa_ok( $loaded, 'PPI::Document' );
-is_deeply( $doc, $loaded, '->_load loads the same document back in' );
-
-# Store the test document in the cache in it's proper place
-is( scalar( $Cache->store_document($doc) ), 1,
- '->store_document(Document) returns true' );
-ok( -f $doc_file, 'The document was stored in the expected location' );
-
-# Check the _md5hex method
-is( PPI::Cache->_md5hex($sample_document), $doc_md5,
- '->_md5hex returns as expected for sample document' );
-is( PPI::Cache->_md5hex($doc_md5), $doc_md5,
- '->_md5hex null transform works as expected' );
-is( $Cache->_md5hex($sample_document), $doc_md5,
- '->_md5hex returns as expected for sample document' );
-is( $Cache->_md5hex($doc_md5), $doc_md5,
- '->_md5hex null transform works as expected' );
-
-# Retrieve the Document by content
-$loaded = $Cache->get_document( $sample_document );
-isa_ok( $loaded, 'PPI::Document' );
-is_deeply( $doc, $loaded, '->get_document(\$source) loads the same document back in' );
-
-# Retrieve the Document by md5 directly
-$loaded = $Cache->get_document( $doc_md5 );
-isa_ok( $loaded, 'PPI::Document' );
-is_deeply( $doc, $loaded, '->get_document($md5hex) loads the same document back in' );
-
-
-
-
-
-
-#####################################################################
-# Empiric Testing
-
-# Load a test document twice, and see how many tokenizer objects get
-# created internally.
-is( PPI::Document->get_cache, undef, 'PPI::Document cache initially undef' );
-ok( PPI::Document->set_cache( $Cache ), 'PPI::Document->set_cache returned true' );
-isa_ok( PPI::Document->get_cache, 'PPI::Cache' );
-is( refaddr($Cache), refaddr(PPI::Document->get_cache),
- '->get_cache returns the same cache object' );
-
-SKIP: {
- skip("Test::SubCalls requires >= 5.6", 7 ) if $] < 5.006;
- require Test::SubCalls;
-
- # Set the tracking on the Tokenizer constructor
- ok( Test::SubCalls::sub_track( 'PPI::Tokenizer::new' ), 'Tracking calls to PPI::Tokenizer::new' );
- Test::SubCalls::sub_calls( 'PPI::Tokenizer::new', 0 );
- my $doc1 = PPI::Document->new( $this_file );
- my $doc2 = PPI::Document->new( $this_file );
- isa_ok( $doc1, 'PPI::Document' );
- isa_ok( $doc2, 'PPI::Document' );
-
- unless ( $doc1 and $doc2 ) {
- skip( "Skipping due to previous failures", 3 );
- }
- Test::SubCalls::sub_calls( 'PPI::Tokenizer::new', 1,
- 'Two calls to PPI::Document->new results in one Tokenizer object creation' );
- ok( refaddr($doc1) != refaddr($doc2),
- 'PPI::Document->new with cache enabled does NOT return the same object' );
- is_deeply( $doc1, $doc2,
- 'PPI::Document->new with cache enabled returns two identical objects' );
-}
-
-SKIP: {
- skip("Test::SubCalls requires >= 5.6", 8 ) if $] < 5.006;
-
- # Done now, can we clear the cache?
- is( PPI::Document->set_cache(undef), 1, '->set_cache(undef) returns true' );
- is( PPI::Document->get_cache, undef, '->get_cache returns undef' );
-
- # Next, test the import mechanism
- local $@;
- eval "use PPI::Cache path => '$cache_dir';";
- is( $@, '', 'use PPI::Cache path => ...; succeeded' );
- isa_ok( PPI::Document->get_cache, 'PPI::Cache' );
- is( scalar(PPI::Document->get_cache->path), $cache_dir, '->path returns the original path' );
- is( scalar(PPI::Document->get_cache->readonly), '', '->readonly returns false by default' );
-
- # Does it still keep the previously cached documents
- Test::SubCalls::sub_reset( 'PPI::Tokenizer::new' );
- my $doc3 = PPI::Document->new( $this_file );
- isa_ok( $doc3, 'PPI::Document' );
- Test::SubCalls::sub_calls( 'PPI::Tokenizer::new', 0,
- 'Tokenizer was not created. Previous cache used ok' );
-}
-
-1;
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/25_increment.t b/3.8.8/sources/cpan-PPI/vendor/t/25_increment.t
deleted file mode 100644
index 8c4061d..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/25_increment.t
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/perl
-
-# code/dump-style regression tests for known lexing problems.
-
-# Some other regressions tests are included here for simplicity.
-
-use strict;
-BEGIN {
- no warnings 'once';
- $| = 1;
- $PPI::XS_DISABLE = 1;
- $PPI::Lexer::X_TOKENIZER ||= $ENV{X_TOKENIZER};
-}
-
-# For each new item in t/data/08_regression add another 14 tests
-use Test::More tests => 3606;
-use Test::NoWarnings;
-use File::Spec::Functions ':ALL';
-use Params::Util qw{_INSTANCE};
-use PPI::Lexer;
-use PPI::Dumper;
-use t::lib::PPI;
-
-
-
-
-
-#####################################################################
-# Code/Dump Testing
-# ntests = 2 + 14 * nfiles
-
-t::lib::PPI->increment_testdir(qw{ t data 08_regression });
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/28_foreach_qw.t b/3.8.8/sources/cpan-PPI/vendor/t/28_foreach_qw.t
deleted file mode 100644
index 1b0d3fe..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/28_foreach_qw.t
+++ /dev/null
@@ -1,55 +0,0 @@
-#!/usr/bin/perl
-
-# Standalone tests to check "foreach qw{foo} {}"
-
-use strict;
-BEGIN {
- no warnings 'once';
- $| = 1;
- $PPI::XS_DISABLE = 1;
- $PPI::Lexer::X_TOKENIZER ||= $ENV{X_TOKENIZER};
-}
-
-use Test::More tests => 13;
-use Test::NoWarnings;
-use File::Spec::Functions ':ALL';
-use PPI;
-
-
-
-
-
-#####################################################################
-# Parse the canonical cases
-
-SCOPE: {
- my $string = 'for qw{foo} {} foreach';
- my $document = PPI::Document->new( \$string );
- isa_ok( $document, 'PPI::Document' );
- my $statements = $document->find('Statement::Compound');
- is( scalar(@$statements), 2, 'Found 2 statements' );
- is( $statements->[0]->type, 'foreach', '->type ok' );
- is( $statements->[1]->type, 'foreach', '->type ok' );
-}
-
-SCOPE: {
- my $string = 'foreach qw{foo} {} foreach';
- my $document = PPI::Document->new( \$string );
- isa_ok( $document, 'PPI::Document' );
- my $statements = $document->find('Statement::Compound');
- is( scalar(@$statements), 2, 'Found 2 statements' );
- is( $statements->[0]->type, 'foreach', '->type ok' );
- is( $statements->[1]->type, 'foreach', '->type ok' );
-}
-
-SCOPE: {
- my $string = 'for my $foo qw{bar} {} foreach';
- my $document = PPI::Document->new( \$string );
- isa_ok( $document, 'PPI::Document' );
- my $statements = $document->find('Statement::Compound');
- is( scalar(@$statements), 2, 'Found 2 statements' );
- is( $statements->[0]->type, 'foreach', '->type ok' );
- is( $statements->[1]->type, 'foreach', '->type ok' );
-}
-
-1;
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/01_simpleassign.code b/3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/01_simpleassign.code
deleted file mode 100644
index a655e6e..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/01_simpleassign.code
+++ /dev/null
@@ -1,2 +0,0 @@
-my $a = 1;
-state $b = 1;
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/03_subroutine_attributes.code b/3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/03_subroutine_attributes.code
deleted file mode 100644
index 3ae9ee5..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/03_subroutine_attributes.code
+++ /dev/null
@@ -1,3 +0,0 @@
-sub foo : bar(quax => &#"Foo") {}
-sub foo($) :bar(quax => &#"Foo") {}
-sub foo (&$@): bar : baz : bingo(blah flasd: fasdf) { }
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/08_subroutines.code b/3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/08_subroutines.code
deleted file mode 100644
index 14a5f4a..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/08_subroutines.code
+++ /dev/null
@@ -1,6 +0,0 @@
-BEGIN {}
-sub BEGIN {}
-sub {};
-sub () {};
-sub foo {}
-sub foo () {}
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/09_heredoc.dump b/3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/09_heredoc.dump
deleted file mode 100644
index 29951b1..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/09_heredoc.dump
+++ /dev/null
@@ -1,59 +0,0 @@
-PPI::Document
- PPI::Token::Comment '# Bareword\n'
- PPI::Statement
- PPI::Token::Word 'print'
- PPI::Token::Whitespace ' '
- PPI::Token::HereDoc '<<END'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Token::Whitespace '\n'
- PPI::Token::Comment '# Literal\n'
- PPI::Statement
- PPI::Token::Word 'print'
- PPI::Token::Whitespace ' '
- PPI::Token::HereDoc '<<'END''
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Token::Whitespace '\n'
- PPI::Token::Comment '# Interpolate\n'
- PPI::Statement
- PPI::Token::Word 'print'
- PPI::Token::Whitespace ' '
- PPI::Token::HereDoc '<<"END"'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Token::Whitespace '\n'
- PPI::Token::Comment '# Command\n'
- PPI::Statement
- PPI::Token::Word 'print'
- PPI::Token::Whitespace ' '
- PPI::Token::HereDoc '<<`END`'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Token::Whitespace '\n'
- PPI::Token::Comment '# No lines\n'
- PPI::Statement
- PPI::Token::Word 'print'
- PPI::Token::Whitespace ' '
- PPI::Token::HereDoc '<<END'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Token::Whitespace '\n'
- PPI::Token::Comment '# Multiple\n'
- PPI::Statement
- PPI::Token::Word 'print'
- PPI::Token::Whitespace ' '
- PPI::Token::HereDoc '<<FIRST'
- PPI::Token::Operator ','
- PPI::Token::Whitespace ' '
- PPI::Token::HereDoc '<<SECOND'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Token::Whitespace '\n'
- PPI::Token::Comment '# End of document (missing newline)\n'
- PPI::Statement
- PPI::Token::Word 'print'
- PPI::Token::Whitespace ' '
- PPI::Token::HereDoc '<<END'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/11_dor.code b/3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/11_dor.code
deleted file mode 100644
index dfcf646..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/11_dor.code
+++ /dev/null
@@ -1 +0,0 @@
-$a //= 1 // die "foo";
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/11_dor.dump b/3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/11_dor.dump
deleted file mode 100644
index 111d5c0..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/11_dor.dump
+++ /dev/null
@@ -1,15 +0,0 @@
-PPI::Document
- PPI::Statement
- PPI::Token::Symbol '$a'
- PPI::Token::Whitespace ' '
- PPI::Token::Operator '//='
- PPI::Token::Whitespace ' '
- PPI::Token::Number '1'
- PPI::Token::Whitespace ' '
- PPI::Token::Operator '//'
- PPI::Token::Whitespace ' '
- PPI::Token::Word 'die'
- PPI::Token::Whitespace ' '
- PPI::Token::Quote::Double '"foo"'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/12_switch.code b/3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/12_switch.code
deleted file mode 100644
index 294cd47..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/05_lexer/12_switch.code
+++ /dev/null
@@ -1,4 +0,0 @@
-given ($foo) {
- when (@blah) { }
- default { }
-}
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/07_token/exp.code b/3.8.8/sources/cpan-PPI/vendor/t/data/07_token/exp.code
deleted file mode 100644
index d337ace..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/07_token/exp.code
+++ /dev/null
@@ -1,10 +0,0 @@
-0E0;
-1.0e-02;
-1.0E-2;
-1e+10;
-1E+10;
-e-1;
-0 e0;
-1.e();
-1.exp(1);
-1__E+__1__0;
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/07_token/exp.dump b/3.8.8/sources/cpan-PPI/vendor/t/data/07_token/exp.dump
deleted file mode 100644
index 2439b5f..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/07_token/exp.dump
+++ /dev/null
@@ -1,52 +0,0 @@
-PPI::Document
- PPI::Statement
- PPI::Token::Number::Exp '0E0'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Statement
- PPI::Token::Number::Exp '1.0e-02'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Statement
- PPI::Token::Number::Exp '1.0E-2'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Statement
- PPI::Token::Number::Exp '1e+10'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Statement
- PPI::Token::Number::Exp '1E+10'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Statement
- PPI::Token::Word 'e'
- PPI::Token::Number '-1'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Statement
- PPI::Token::Number '0'
- PPI::Token::Whitespace ' '
- PPI::Token::Word 'e0'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Statement
- PPI::Token::Number '1'
- PPI::Token::Operator '.'
- PPI::Token::Word 'e'
- PPI::Structure::List ( ... )
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Statement
- PPI::Token::Number '1'
- PPI::Token::Operator '.'
- PPI::Token::Word 'exp'
- PPI::Structure::List ( ... )
- PPI::Statement::Expression
- PPI::Token::Number '1'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Statement
- PPI::Token::Number::Exp '1__E+__1__0'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/07_token/range_operator.code b/3.8.8/sources/cpan-PPI/vendor/t/data/07_token/range_operator.code
deleted file mode 100644
index b3c9506..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/07_token/range_operator.code
+++ /dev/null
@@ -1 +0,0 @@
-1..2
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/07_token/range_operator.dump b/3.8.8/sources/cpan-PPI/vendor/t/data/07_token/range_operator.dump
deleted file mode 100644
index c3928c9..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/07_token/range_operator.dump
+++ /dev/null
@@ -1,5 +0,0 @@
-PPI::Document
- PPI::Statement
- PPI::Token::Number '1'
- PPI::Token::Operator '..'
- PPI::Token::Number '2'
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/07_token/smart_match.code b/3.8.8/sources/cpan-PPI/vendor/t/data/07_token/smart_match.code
deleted file mode 100644
index cb7cb13..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/07_token/smart_match.code
+++ /dev/null
@@ -1 +0,0 @@
- at foo~~@bar
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/01_rt_cpan_19629b.dump b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/01_rt_cpan_19629b.dump
deleted file mode 100644
index f7afb79..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/01_rt_cpan_19629b.dump
+++ /dev/null
@@ -1,15 +0,0 @@
-PPI::Document
- PPI::Statement::Compound
- PPI::Structure::Block { ... }
- PPI::Statement
- PPI::Structure::List ( ... )
- PPI::Statement::Expression
- PPI::Token::Number '0'
- PPI::Token::Whitespace ' '
- PPI::Token::Operator '||'
- PPI::Token::Whitespace ' '
- PPI::Structure::List ( ... )
- PPI::Statement::Expression
- PPI::Token::Number '1'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/04_tinderbox.dump b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/04_tinderbox.dump
deleted file mode 100644
index d0a3094..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/04_tinderbox.dump
+++ /dev/null
@@ -1,52 +0,0 @@
-PPI::Document
- PPI::Statement
- PPI::Token::ArrayIndex '$#arrayindex'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Statement
- PPI::Token::Symbol '$foo'
- PPI::Token::Whitespace ' '
- PPI::Token::Operator '%'
- PPI::Token::Number '2'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Statement
- PPI::Token::Symbol '$foo'
- PPI::Token::Whitespace ' '
- PPI::Token::Operator '&'
- PPI::Token::Number '64'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Statement
- PPI::Token::Symbol '$foo'
- PPI::Token::Whitespace ' '
- PPI::Token::Operator '*'
- PPI::Token::Number '2'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Statement
- PPI::Token::Symbol '%::'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Statement
- PPI::Token::Symbol '$'foo'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Statement
- PPI::Token::Symbol '$::foo'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Statement
- PPI::Token::Magic '$::|'
- PPI::Token::Operator '='
- PPI::Token::Number '1'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Statement
- PPI::Token::Magic '@0'
- PPI::Token::Whitespace ' '
- PPI::Token::Operator '='
- PPI::Token::Whitespace ' '
- PPI::Token::Symbol '@c'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/05_rt_cpan_13425.code b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/05_rt_cpan_13425.code
deleted file mode 100644
index 917b707..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/05_rt_cpan_13425.code
+++ /dev/null
@@ -1,2 +0,0 @@
-$p{package};
-$p{ package };
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/05_rt_cpan_13425.dump b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/05_rt_cpan_13425.dump
deleted file mode 100644
index cc2ebdc..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/05_rt_cpan_13425.dump
+++ /dev/null
@@ -1,17 +0,0 @@
-PPI::Document
- PPI::Statement
- PPI::Token::Symbol '$p'
- PPI::Structure::Subscript { ... }
- PPI::Statement::Expression
- PPI::Token::Word 'package'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Statement
- PPI::Token::Symbol '$p'
- PPI::Structure::Subscript { ... }
- PPI::Token::Whitespace ' '
- PPI::Statement::Expression
- PPI::Token::Word 'package'
- PPI::Token::Whitespace ' '
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/07_partial_quote_single.code b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/07_partial_quote_single.code
deleted file mode 100644
index 7f72e5a..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/07_partial_quote_single.code
+++ /dev/null
@@ -1 +0,0 @@
-print 'Hello...
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/08_partial_regex_substitution.code b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/08_partial_regex_substitution.code
deleted file mode 100644
index 18d3bc0..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/08_partial_regex_substitution.code
+++ /dev/null
@@ -1 +0,0 @@
-$foo =~ s
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/09_for_var.dump b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/09_for_var.dump
deleted file mode 100644
index 8f115d8..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/09_for_var.dump
+++ /dev/null
@@ -1,10 +0,0 @@
-PPI::Document
- PPI::Statement::Compound
- PPI::Token::Word 'for'
- PPI::Token::Whitespace ' '
- PPI::Token::Symbol '$foo'
- PPI::Token::Whitespace ' '
- PPI::Structure::List ( ... )
- PPI::Token::Whitespace ' '
- PPI::Structure::Block { ... }
- PPI::Token::Whitespace '\n'
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/10_leading_regexp.code b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/10_leading_regexp.code
deleted file mode 100644
index 44dd12c..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/10_leading_regexp.code
+++ /dev/null
@@ -1 +0,0 @@
-/./ ; print 1
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/10_leading_regexp.dump b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/10_leading_regexp.dump
deleted file mode 100644
index 0edb44f..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/10_leading_regexp.dump
+++ /dev/null
@@ -1,11 +0,0 @@
-PPI::Document
- PPI::Statement
- PPI::Token::Regexp::Match '/./'
- PPI::Token::Whitespace ' '
- PPI::Token::Structure ';'
- PPI::Token::Whitespace ' '
- PPI::Statement
- PPI::Token::Word 'print'
- PPI::Token::Whitespace ' '
- PPI::Token::Number '1'
- PPI::Token::Whitespace '\n'
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/12_pow.dump b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/12_pow.dump
deleted file mode 100644
index 4d34a6a..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/12_pow.dump
+++ /dev/null
@@ -1,7 +0,0 @@
-PPI::Document
- PPI::Statement
- PPI::Token::Symbol '$one'
- PPI::Token::Operator '**'
- PPI::Token::Whitespace ' '
- PPI::Token::Symbol '$two'
- PPI::Token::Whitespace '\n'
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/13_goto.dump b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/13_goto.dump
deleted file mode 100644
index 22eb17d..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/13_goto.dump
+++ /dev/null
@@ -1,13 +0,0 @@
-PPI::Document
- PPI::Statement
- PPI::Token::Word 'sub'
- PPI::Token::Whitespace ' '
- PPI::Structure::Block { ... }
- PPI::Token::Whitespace ' '
- PPI::Statement::Break
- PPI::Token::Word 'goto'
- PPI::Token::Whitespace ' '
- PPI::Token::Word 'FOO'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace ' '
- PPI::Token::Whitespace '\n'
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/14_minus.code b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/14_minus.code
deleted file mode 100644
index 5a566dd..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/14_minus.code
+++ /dev/null
@@ -1 +0,0 @@
-1-1
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/14b_minus.code b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/14b_minus.code
deleted file mode 100644
index bdb454a..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/14b_minus.code
+++ /dev/null
@@ -1 +0,0 @@
-@{$arr_ref}-1
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/16_sub_declaration.dump b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/16_sub_declaration.dump
deleted file mode 100644
index 4a19482..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/16_sub_declaration.dump
+++ /dev/null
@@ -1,16 +0,0 @@
-PPI::Document
- PPI::Statement::Compound
- PPI::Structure::Block { ... }
- PPI::Statement
- PPI::Token::Word 'print'
- PPI::Token::Whitespace ' '
- PPI::Token::Number '123'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Statement::Sub
- PPI::Token::Word 'sub'
- PPI::Token::Whitespace ' '
- PPI::Token::Word 'foo'
- PPI::Token::Whitespace ' '
- PPI::Structure::Block { ... }
- PPI::Token::Whitespace '\n'
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/18_decimal_point.dump b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/18_decimal_point.dump
deleted file mode 100644
index 706a02e..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/18_decimal_point.dump
+++ /dev/null
@@ -1,3 +0,0 @@
-PPI::Document
- PPI::Statement
- PPI::Token::Number::Float '.1234'
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/19_long_operators.dump b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/19_long_operators.dump
deleted file mode 100644
index dc17fb1..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/19_long_operators.dump
+++ /dev/null
@@ -1,7 +0,0 @@
-PPI::Document
- PPI::Statement
- PPI::Token::Symbol '$a'
- PPI::Token::Whitespace ' '
- PPI::Token::Operator '/='
- PPI::Token::Whitespace ' '
- PPI::Token::Number '2'
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/19_long_operators2.code b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/19_long_operators2.code
deleted file mode 100644
index 18f5957..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/19_long_operators2.code
+++ /dev/null
@@ -1 +0,0 @@
-$a *= 2
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/21_list_of_refs.code b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/21_list_of_refs.code
deleted file mode 100644
index 7473c10..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/21_list_of_refs.code
+++ /dev/null
@@ -1 +0,0 @@
-([],[]);({},{});
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/22_hash_vs_brace.code b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/22_hash_vs_brace.code
deleted file mode 100644
index 9a7516c..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/22_hash_vs_brace.code
+++ /dev/null
@@ -1,4 +0,0 @@
-map {$_ => 1} @foo;
-map({$_ => 1} @foo);
-foo {$_ => 1}, @foo;
-foo({$_ => 1}, @foo);
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/22_hash_vs_brace.dump b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/22_hash_vs_brace.dump
deleted file mode 100644
index 44f8b32..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/22_hash_vs_brace.dump
+++ /dev/null
@@ -1,61 +0,0 @@
-PPI::Document
- PPI::Statement
- PPI::Token::Word 'map'
- PPI::Token::Whitespace ' '
- PPI::Structure::Block { ... }
- PPI::Statement
- PPI::Token::Magic '$_'
- PPI::Token::Whitespace ' '
- PPI::Token::Operator '=>'
- PPI::Token::Whitespace ' '
- PPI::Token::Number '1'
- PPI::Token::Whitespace ' '
- PPI::Token::Symbol '@foo'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Statement
- PPI::Token::Word 'map'
- PPI::Structure::List ( ... )
- PPI::Statement
- PPI::Structure::Block { ... }
- PPI::Statement
- PPI::Token::Magic '$_'
- PPI::Token::Whitespace ' '
- PPI::Token::Operator '=>'
- PPI::Token::Whitespace ' '
- PPI::Token::Number '1'
- PPI::Token::Whitespace ' '
- PPI::Token::Symbol '@foo'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Statement
- PPI::Token::Word 'foo'
- PPI::Token::Whitespace ' '
- PPI::Structure::Block { ... }
- PPI::Statement
- PPI::Token::Magic '$_'
- PPI::Token::Whitespace ' '
- PPI::Token::Operator '=>'
- PPI::Token::Whitespace ' '
- PPI::Token::Number '1'
- PPI::Token::Operator ','
- PPI::Token::Whitespace ' '
- PPI::Token::Symbol '@foo'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Statement
- PPI::Token::Word 'foo'
- PPI::Structure::List ( ... )
- PPI::Statement
- PPI::Structure::Constructor { ... }
- PPI::Statement
- PPI::Token::Magic '$_'
- PPI::Token::Whitespace ' '
- PPI::Token::Operator '=>'
- PPI::Token::Whitespace ' '
- PPI::Token::Number '1'
- PPI::Token::Operator ','
- PPI::Token::Whitespace ' '
- PPI::Token::Symbol '@foo'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/23_rt_cpan_8752.dump b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/23_rt_cpan_8752.dump
deleted file mode 100644
index b0994e0..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/23_rt_cpan_8752.dump
+++ /dev/null
@@ -1,17 +0,0 @@
-PPI::Document
- PPI::Statement
- PPI::Token::Word 'ok'
- PPI::Structure::List ( ... )
- PPI::Token::Whitespace ' '
- PPI::Statement
- PPI::Token::Word 'sub'
- PPI::Token::Whitespace ' '
- PPI::Structure::Block { ... }
- PPI::Statement
- PPI::Token::Word 'die'
- PPI::Structure::List ( ... )
- PPI::Statement::Expression
- PPI::Token::Quote::Double '"goodbye"'
- PPI::Token::Whitespace ' '
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/24_compound.code b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/24_compound.code
deleted file mode 100644
index 868e299..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/24_compound.code
+++ /dev/null
@@ -1 +0,0 @@
-eval( {some_code() } );
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/25_hash_block.code b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/25_hash_block.code
deleted file mode 100644
index 925cf64..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/25_hash_block.code
+++ /dev/null
@@ -1 +0,0 @@
-$x = { f => { f => 1 } }
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/25_hash_block.dump b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/25_hash_block.dump
deleted file mode 100644
index 2341d62..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/25_hash_block.dump
+++ /dev/null
@@ -1,24 +0,0 @@
-PPI::Document
- PPI::Statement
- PPI::Token::Symbol '$x'
- PPI::Token::Whitespace ' '
- PPI::Token::Operator '='
- PPI::Token::Whitespace ' '
- PPI::Structure::Constructor { ... }
- PPI::Token::Whitespace ' '
- PPI::Statement::Expression
- PPI::Token::Word 'f'
- PPI::Token::Whitespace ' '
- PPI::Token::Operator '=>'
- PPI::Token::Whitespace ' '
- PPI::Structure::Constructor { ... }
- PPI::Token::Whitespace ' '
- PPI::Statement::Expression
- PPI::Token::Word 'f'
- PPI::Token::Whitespace ' '
- PPI::Token::Operator '=>'
- PPI::Token::Whitespace ' '
- PPI::Token::Number '1'
- PPI::Token::Whitespace ' '
- PPI::Token::Whitespace ' '
- PPI::Token::Whitespace '\n'
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/27_constant_hash.dump b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/27_constant_hash.dump
deleted file mode 100644
index 970a02b..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/27_constant_hash.dump
+++ /dev/null
@@ -1,35 +0,0 @@
-PPI::Document
- PPI::Statement::Include
- PPI::Token::Word 'use'
- PPI::Token::Whitespace ' '
- PPI::Token::Word 'constant'
- PPI::Token::Whitespace ' '
- PPI::Structure::Constructor { ... }
- PPI::Token::Whitespace ' '
- PPI::Statement::Expression
- PPI::Token::Word 'foo'
- PPI::Token::Whitespace ' '
- PPI::Token::Operator '=>'
- PPI::Token::Whitespace ' '
- PPI::Token::Quote::Single ''bar''
- PPI::Token::Whitespace ' '
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
- PPI::Statement::Variable
- PPI::Token::Word 'my'
- PPI::Token::Whitespace ' '
- PPI::Token::Symbol '$code'
- PPI::Token::Whitespace ' '
- PPI::Token::Operator '='
- PPI::Token::Whitespace ' '
- PPI::Structure::Constructor { ... }
- PPI::Token::Whitespace ' '
- PPI::Statement::Expression
- PPI::Token::Word 'foo'
- PPI::Token::Whitespace ' '
- PPI::Token::Operator '=>'
- PPI::Token::Whitespace ' '
- PPI::Token::Quote::Single ''bar''
- PPI::Token::Whitespace ' '
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/28_backref_style_heredoc.dump b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/28_backref_style_heredoc.dump
deleted file mode 100644
index d0eb90f..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/28_backref_style_heredoc.dump
+++ /dev/null
@@ -1,5 +0,0 @@
-PPI::Document
- PPI::Statement
- PPI::Token::HereDoc '<<\EOF'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace '\n'
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/29_chained_casts.code b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/29_chained_casts.code
deleted file mode 100755
index ec07067..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/29_chained_casts.code
+++ /dev/null
@@ -1 +0,0 @@
-my $bar = \%*$foo;
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/30_hash_bang.dump b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/30_hash_bang.dump
deleted file mode 100644
index 810cbff..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/30_hash_bang.dump
+++ /dev/null
@@ -1,8 +0,0 @@
-PPI::Document
- PPI::Statement
- PPI::Token::Magic '%!'
- PPI::Token::Whitespace ' '
- PPI::Token::Operator '='
- PPI::Token::Whitespace ' '
- PPI::Structure::List ( ... )
- PPI::Token::Whitespace '\n'
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/31_hash_carat_H.code b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/31_hash_carat_H.code
deleted file mode 100644
index f507155..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/31_hash_carat_H.code
+++ /dev/null
@@ -1 +0,0 @@
-%^H=()
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/32_readline.code b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/32_readline.code
deleted file mode 100644
index 0934a65..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/32_readline.code
+++ /dev/null
@@ -1 +0,0 @@
- at foo = (<$fh1>, <$fh2>)
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/34_attr_whitespace.code b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/34_attr_whitespace.code
deleted file mode 100644
index d24fd04..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/34_attr_whitespace.code
+++ /dev/null
@@ -1 +0,0 @@
-sub foo: Attr { }
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/34_attr_whitespace.dump b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/34_attr_whitespace.dump
deleted file mode 100644
index 66005db..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/34_attr_whitespace.dump
+++ /dev/null
@@ -1,12 +0,0 @@
-PPI::Document
- PPI::Statement::Sub
- PPI::Token::Word 'sub'
- PPI::Token::Whitespace ' '
- PPI::Token::Word 'foo'
- PPI::Token::Operator ':'
- PPI::Token::Whitespace ' '
- PPI::Token::Attribute 'Attr'
- PPI::Token::Whitespace ' '
- PPI::Structure::Block { ... }
- PPI::Token::Whitespace ' '
- PPI::Token::Whitespace '\n'
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/37_partial_prototype.code b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/37_partial_prototype.code
deleted file mode 100644
index b717969..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/37_partial_prototype.code
+++ /dev/null
@@ -1 +0,0 @@
-sub (
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/39_foreach_our.dump b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/39_foreach_our.dump
deleted file mode 100644
index 608e90b..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/39_foreach_our.dump
+++ /dev/null
@@ -1,14 +0,0 @@
-PPI::Document
- PPI::Statement::Compound
- PPI::Token::Word 'for'
- PPI::Token::Whitespace ' '
- PPI::Token::Word 'our'
- PPI::Token::Whitespace ' '
- PPI::Token::Symbol '$k'
- PPI::Token::Whitespace ' '
- PPI::Structure::List ( ... )
- PPI::Statement
- PPI::Token::Symbol '@foo'
- PPI::Token::Whitespace ' '
- PPI::Structure::Block { ... }
- PPI::Token::Whitespace '\n'
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/40_foreach_eval.code b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/40_foreach_eval.code
deleted file mode 100644
index cead62e..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/40_foreach_eval.code
+++ /dev/null
@@ -1 +0,0 @@
-foreach my $thingy ( eval { bar; } ) { 1 }
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/40_foreach_eval.dump b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/40_foreach_eval.dump
deleted file mode 100644
index 86cc01a..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/40_foreach_eval.dump
+++ /dev/null
@@ -1,27 +0,0 @@
-PPI::Document
- PPI::Statement::Compound
- PPI::Token::Word 'foreach'
- PPI::Token::Whitespace ' '
- PPI::Token::Word 'my'
- PPI::Token::Whitespace ' '
- PPI::Token::Symbol '$thingy'
- PPI::Token::Whitespace ' '
- PPI::Structure::List ( ... )
- PPI::Token::Whitespace ' '
- PPI::Statement
- PPI::Token::Word 'eval'
- PPI::Token::Whitespace ' '
- PPI::Structure::Block { ... }
- PPI::Token::Whitespace ' '
- PPI::Statement
- PPI::Token::Word 'bar'
- PPI::Token::Structure ';'
- PPI::Token::Whitespace ' '
- PPI::Token::Whitespace ' '
- PPI::Token::Whitespace ' '
- PPI::Structure::Block { ... }
- PPI::Token::Whitespace ' '
- PPI::Statement
- PPI::Token::Number '1'
- PPI::Token::Whitespace ' '
- PPI::Token::Whitespace '\n'
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/41_scalar_hash.code b/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/41_scalar_hash.code
deleted file mode 100644
index 9f808bf..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/08_regression/41_scalar_hash.code
+++ /dev/null
@@ -1 +0,0 @@
-scalar { %x }
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/13_data/Foo.pm b/3.8.8/sources/cpan-PPI/vendor/t/data/13_data/Foo.pm
deleted file mode 100644
index 1b6e169..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/13_data/Foo.pm
+++ /dev/null
@@ -1,7 +0,0 @@
-package Foo;
-
-print "Hello World!\n";
-
-__DATA__
-This is data
-So is this
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/15_transform/sample1.pm b/3.8.8/sources/cpan-PPI/vendor/t/data/15_transform/sample1.pm
deleted file mode 100644
index 27cc3f6..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/15_transform/sample1.pm
+++ /dev/null
@@ -1,3 +0,0 @@
-my $foo = 'bar';
-
-
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/data/26_bom/utf8.code b/3.8.8/sources/cpan-PPI/vendor/t/data/26_bom/utf8.code
deleted file mode 100644
index 1378961..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/data/26_bom/utf8.code
+++ /dev/null
@@ -1 +0,0 @@
-print 1;
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/ppi_node.t b/3.8.8/sources/cpan-PPI/vendor/t/ppi_node.t
deleted file mode 100644
index ee79d5f..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/ppi_node.t
+++ /dev/null
@@ -1,47 +0,0 @@
-#!/usr/bin/perl
-
-# Unit testing for PPI, generated by Test::Inline
-
-use strict;
-use File::Spec::Functions ':ALL';
-BEGIN {
- $| = 1;
- $^W = 1;
- no warnings 'once';
- $PPI::XS_DISABLE = 1;
- $PPI::Lexer::X_TOKENIZER ||= $ENV{X_TOKENIZER};
-}
-use PPI;
-
-# Execute the tests
-use Test::More tests => 2;
-
-# =begin testing prune 2
-{
-# Avoids a bug in old Perls relating to the detection of scripts
-# Known to occur in ActivePerl 5.6.1 and at least one 5.6.2 install.
-my $hashbang = reverse 'lrep/nib/rsu/!#';
-my $document = PPI::Document->new( \<<"END_PERL" );
-$hashbang
-
-use strict;
-
-sub one { 1 }
-sub two { 2 }
-sub three { 3 }
-
-print one;
-print "\n";
-print three;
-print "\n";
-
-exit;
-END_PERL
-
-isa_ok( $document, 'PPI::Document' );
-ok( defined($document->prune ('PPI::Statement::Sub')),
- 'Pruned multiple subs ok' );
-}
-
-
-1;
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/ppi_normal.t b/3.8.8/sources/cpan-PPI/vendor/t/ppi_normal.t
deleted file mode 100644
index 18f57dc..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/ppi_normal.t
+++ /dev/null
@@ -1,84 +0,0 @@
-#!/usr/bin/perl
-
-# Unit testing for PPI, generated by Test::Inline
-
-use strict;
-use File::Spec::Functions ':ALL';
-BEGIN {
- $| = 1;
- $^W = 1;
- no warnings 'once';
- $PPI::XS_DISABLE = 1;
- $PPI::Lexer::X_TOKENIZER ||= $ENV{X_TOKENIZER};
-}
-use PPI;
-
-# Execute the tests
-use Test::More tests => 27;
-
-# =begin testing new after PPI::Document 12
-{
-# Check we actually set the layer at creation
-my $layer_1 = PPI::Normal->new;
-isa_ok( $layer_1, 'PPI::Normal' );
-is( $layer_1->layer, 1, '->new creates a layer 1' );
-my $layer_1a = PPI::Normal->new(1);
-isa_ok( $layer_1a, 'PPI::Normal' );
-is( $layer_1a->layer, 1, '->new(1) creates a layer 1' );
-my $layer_2 = PPI::Normal->new(2);
-isa_ok( $layer_2, 'PPI::Normal' );
-is( $layer_2->layer, 2, '->new(2) creates a layer 2' );
-
-# Test bad things
-is( PPI::Normal->new(3), undef, '->new only allows up to layer 2' );
-is( PPI::Normal->new(undef), undef, '->new(evil) returns undef' );
-is( PPI::Normal->new("foo"), undef, '->new(evil) returns undef' );
-is( PPI::Normal->new(\"foo"), undef, '->new(evil) returns undef' );
-is( PPI::Normal->new([]), undef, '->new(evil) returns undef' );
-is( PPI::Normal->new({}), undef, '->new(evil) returns undef' );
-}
-
-
-
-# =begin testing process after new 15
-{
-my $doc1 = PPI::Document->new(\'print "Hello World!\n";');
-isa_ok( $doc1, 'PPI::Document' );
-my $doc2 = \'print "Hello World!\n";';
-my $doc3 = \' print "Hello World!\n"; # comment';
-my $doc4 = \'print "Hello World!\n"';
-
-# Normalize them at level 1
-my $layer1 = PPI::Normal->new(1);
-isa_ok( $layer1, 'PPI::Normal' );
-my $nor11 = $layer1->process($doc1->clone);
-my $nor12 = $layer1->process($doc2);
-my $nor13 = $layer1->process($doc3);
-isa_ok( $nor11, 'PPI::Document::Normalized' );
-isa_ok( $nor12, 'PPI::Document::Normalized' );
-isa_ok( $nor13, 'PPI::Document::Normalized' );
-
-# The first 3 should be the same, the second not
-is_deeply( { %$nor11 }, { %$nor12 }, 'Layer 1: 1 and 2 match' );
-is_deeply( { %$nor11 }, { %$nor13 }, 'Layer 1: 1 and 3 match' );
-
-# Normalize them at level 2
-my $layer2 = PPI::Normal->new(2);
-isa_ok( $layer2, 'PPI::Normal' );
-my $nor21 = $layer2->process($doc1);
-my $nor22 = $layer2->process($doc2);
-my $nor23 = $layer2->process($doc3);
-my $nor24 = $layer2->process($doc4);
-isa_ok( $nor21, 'PPI::Document::Normalized' );
-isa_ok( $nor22, 'PPI::Document::Normalized' );
-isa_ok( $nor23, 'PPI::Document::Normalized' );
-isa_ok( $nor24, 'PPI::Document::Normalized' );
-
-# The first 3 should be the same, the second not
-is_deeply( { %$nor21 }, { %$nor22 }, 'Layer 2: 1 and 2 match' );
-is_deeply( { %$nor21 }, { %$nor23 }, 'Layer 2: 1 and 3 match' );
-is_deeply( { %$nor21 }, { %$nor24 }, 'Layer 2: 1 and 4 match' );
-}
-
-
-1;
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/ppi_statement.t b/3.8.8/sources/cpan-PPI/vendor/t/ppi_statement.t
deleted file mode 100644
index e9533a8..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/ppi_statement.t
+++ /dev/null
@@ -1,60 +0,0 @@
-#!/usr/bin/perl
-
-# Unit testing for PPI, generated by Test::Inline
-
-use strict;
-use File::Spec::Functions ':ALL';
-BEGIN {
- $| = 1;
- $^W = 1;
- no warnings 'once';
- $PPI::XS_DISABLE = 1;
- $PPI::Lexer::X_TOKENIZER ||= $ENV{X_TOKENIZER};
-}
-use PPI;
-
-# Execute the tests
-use Test::More tests => 22;
-
-# =begin testing specialized 22
-{
-my $Document = PPI::Document->new(\<<'END_PERL');
-package Foo;
-use strict;
-;
-while (1) { last; }
-BEGIN { }
-sub foo { }
-state $x;
-$x = 5;
-END_PERL
-
-isa_ok( $Document, 'PPI::Document' );
-
-my $statements = $Document->find('Statement');
-is( scalar @{$statements}, 10, 'Found the 10 test statements' );
-
-isa_ok( $statements->[0], 'PPI::Statement::Package', 'Statement 1: isa Package' );
-ok( $statements->[0]->specialized, 'Statement 1: is specialized' );
-isa_ok( $statements->[1], 'PPI::Statement::Include', 'Statement 2: isa Include' );
-ok( $statements->[1]->specialized, 'Statement 2: is specialized' );
-isa_ok( $statements->[2], 'PPI::Statement::Null', 'Statement 3: isa Null' );
-ok( $statements->[2]->specialized, 'Statement 3: is specialized' );
-isa_ok( $statements->[3], 'PPI::Statement::Compound', 'Statement 4: isa Compound' );
-ok( $statements->[3]->specialized, 'Statement 4: is specialized' );
-isa_ok( $statements->[4], 'PPI::Statement::Expression', 'Statement 5: isa Expression' );
-ok( $statements->[4]->specialized, 'Statement 5: is specialized' );
-isa_ok( $statements->[5], 'PPI::Statement::Break', 'Statement 6: isa Break' );
-ok( $statements->[5]->specialized, 'Statement 6: is specialized' );
-isa_ok( $statements->[6], 'PPI::Statement::Scheduled', 'Statement 7: isa Scheduled' );
-ok( $statements->[6]->specialized, 'Statement 7: is specialized' );
-isa_ok( $statements->[7], 'PPI::Statement::Sub', 'Statement 8: isa Sub' );
-ok( $statements->[7]->specialized, 'Statement 8: is specialized' );
-isa_ok( $statements->[8], 'PPI::Statement::Variable', 'Statement 9: isa Variable' );
-ok( $statements->[8]->specialized, 'Statement 9: is specialized' );
-is( ref $statements->[9], 'PPI::Statement', 'Statement 10: is a simple Statement' );
-ok( ! $statements->[9]->specialized, 'Statement 10: is not specialized' );
-}
-
-
-1;
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/ppi_token__quoteengine_full.t b/3.8.8/sources/cpan-PPI/vendor/t/ppi_token__quoteengine_full.t
deleted file mode 100644
index b27872a..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/ppi_token__quoteengine_full.t
+++ /dev/null
@@ -1,104 +0,0 @@
-#!/usr/bin/perl
-
-# Unit testing for PPI, generated by Test::Inline
-
-use strict;
-use File::Spec::Functions ':ALL';
-BEGIN {
- $| = 1;
- $^W = 1;
- no warnings 'once';
- $PPI::XS_DISABLE = 1;
- $PPI::Lexer::X_TOKENIZER ||= $ENV{X_TOKENIZER};
-}
-use PPI;
-
-# Execute the tests
-use Test::More tests => 90;
-
-# =begin testing new 90
-{
-# Verify that Token::Quote, Token::QuoteLike and Token::Regexp
-# do not have ->new functions
-my $RE_SYMBOL = qr/\A(?!\d)\w+\z/;
-foreach my $name ( qw{Token::Quote Token::QuoteLike Token::Regexp} ) {
- no strict 'refs';
- my @functions = sort
- grep { defined &{"${name}::$_"} }
- grep { /$RE_SYMBOL/o }
- keys %{"PPI::${name}::"};
- is( scalar(grep { $_ eq 'new' } @functions), 0,
- "$name does not have a new function" );
-}
-
-# This primarily to ensure that qw() with non-balanced types
-# are treated the same as those with balanced types.
-SCOPE: {
- my @seps = ( undef, undef, '/', '#', ',' );
- my @types = ( '()', '<>', '//', '##', ',,' );
- my @braced = ( qw{ 1 1 0 0 0 } );
- my $i = 0;
- for my $q ('qw()', 'qw<>', 'qw//', 'qw##', 'qw,,') {
- my $d = PPI::Document->new(\$q);
- my $o = $d->{children}->[0]->{children}->[0];
- my $s = $o->{sections}->[0];
- is( $o->{operator}, 'qw', "$q correct operator" );
- is( $o->{_sections}, 1, "$q correct _sections" );
- is( $o->{braced}, $braced[$i], "$q correct braced" );
- is( $o->{separator}, $seps[$i], "$q correct seperator" );
- is( $o->{content}, $q, "$q correct content" );
- is( $s->{position}, 3, "$q correct position" );
- is( $s->{type}, $types[$i], "$q correct type" );
- is( $s->{size}, 0, "$q correct size" );
- $i++;
- }
-}
-
-SCOPE: {
- my @stuff = ( qw-( ) < > / / -, '#', '#', ',',',' );
- my @seps = ( undef, undef, '/', '#', ',' );
- my @types = ( '()', '<>', '//', '##', ',,' );
- my @braced = ( qw{ 1 1 0 0 0 } );
- my @secs = ( qw{ 1 1 0 0 0 } );
- my $i = 0;
- while ( @stuff ) {
- my $opener = shift @stuff;
- my $closer = shift @stuff;
- my $d = PPI::Document->new(\"qw$opener");
- my $o = $d->{children}->[0]->{children}->[0];
- my $s = $o->{sections}->[0];
- is( $o->{operator}, 'qw', "qw$opener correct operator" );
- is( $o->{_sections}, $secs[$i], "qw$opener correct _sections" );
- is( $o->{braced}, $braced[$i], "qw$opener correct braced" );
- is( $o->{separator}, $seps[$i], "qw$opener correct seperator" );
- is( $o->{content}, "qw$opener", "qw$opener correct content" );
- if ( $secs[$i] ) {
- is( $s->{type}, "$opener$closer", "qw$opener correct type" );
- }
- $i++;
- }
-}
-
-SCOPE: {
- foreach (
- [ '/foo/i', 'foo', undef, { i => 1 }, [ '//' ] ],
- [ 'm<foo>x', 'foo', undef, { x => 1 }, [ '<>' ] ],
- [ 's{foo}[bar]g', 'foo', 'bar', { g => 1 }, [ '{}', '[]' ] ],
- [ 'tr/fo/ba/', 'fo', 'ba', {}, [ '//', '//' ] ],
- [ 'qr{foo}smx', 'foo', undef, { s => 1, m => 1, x => 1 },
- [ '{}' ] ],
- ) {
- my ( $code, $match, $subst, $mods, $delims ) = @{ $_ };
- my $doc = PPI::Document->new( \$code );
- $doc or warn "'$code' did not create a document";
- my $obj = $doc->child( 0 )->child( 0 );
- is( $obj->_section_content( 0 ), $match, "$code correct match" );
- is( $obj->_section_content( 1 ), $subst, "$code correct subst" );
- is_deeply( { $obj->_modifiers() }, $mods, "$code correct modifiers" );
- is_deeply( [ $obj->_delimiters() ], $delims, "$code correct delimiters" );
- }
-}
-}
-
-
-1;
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/ppi_token_magic.t b/3.8.8/sources/cpan-PPI/vendor/t/ppi_token_magic.t
deleted file mode 100644
index 18a3113..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/ppi_token_magic.t
+++ /dev/null
@@ -1,56 +0,0 @@
-#!/usr/bin/perl
-
-# Unit testing for PPI, generated by Test::Inline
-
-use strict;
-use File::Spec::Functions ':ALL';
-BEGIN {
- $| = 1;
- $^W = 1;
- no warnings 'once';
- $PPI::XS_DISABLE = 1;
- $PPI::Lexer::X_TOKENIZER ||= $ENV{X_TOKENIZER};
-}
-use PPI;
-
-# Execute the tests
-use Test::More tests => 30;
-
-# =begin testing __TOKENIZER_on_char 30
-{
-my $document = PPI::Document->new(\<<'END_PERL');
-$[; # Magic $[
-$$; # Magic $$
-%-; # Magic %-
-$#-; # Magic $#-
-$$foo; # Symbol $foo Dereference of $foo
-$^W; # Magic $^W
-$^WIDE_SYSTEM_CALLS; # Magic $^WIDE_SYSTEM_CALLS
-${^MATCH}; # Magic ${^MATCH}
-@{^_Bar}; # Magic @{^_Bar}
-${^_Bar}[0]; # Magic @{^_Bar}
-%{^_Baz}; # Magic %{^_Baz}
-${^_Baz}{burfle}; # Magic %{^_Baz}
-$${^MATCH}; # Magic ${^MATCH} Dereference of ${^MATCH}
-\${^MATCH}; # Magic ${^MATCH}
-END_PERL
-
-isa_ok( $document, 'PPI::Document' );
-
-$document->index_locations();
-
-my $symbols = $document->find( 'PPI::Token::Symbol' );
-
-is( scalar(@$symbols), 14, 'Found 14 symbols' );
-my $comments = $document->find( 'PPI::Token::Comment' );
-
-foreach my $token ( @$symbols ) {
- my ($hash, $class, $name, $remk) =
- split '\s+', $comments->[$token->line_number - 1], 4;
- isa_ok( $token, "PPI::Token::$class" );
- is( $token->symbol, $name, $remk || "The symbol is $name" );
-}
-}
-
-
-1;
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/ppi_token_quote_double.t b/3.8.8/sources/cpan-PPI/vendor/t/ppi_token_quote_double.t
deleted file mode 100644
index 6ebc554..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/ppi_token_quote_double.t
+++ /dev/null
@@ -1,76 +0,0 @@
-#!/usr/bin/perl
-
-# Unit testing for PPI, generated by Test::Inline
-
-use strict;
-use File::Spec::Functions ':ALL';
-BEGIN {
- $| = 1;
- $^W = 1;
- no warnings 'once';
- $PPI::XS_DISABLE = 1;
- $PPI::Lexer::X_TOKENIZER ||= $ENV{X_TOKENIZER};
-}
-use PPI;
-
-# Execute the tests
-use Test::More tests => 19;
-
-# =begin testing interpolations 8
-{
-# Get a set of objects
-my $Document = PPI::Document->new(\<<'END_PERL');
-"no interpolations"
-"no \@interpolations"
-"has $interpolation"
-"has @interpolation"
-"has \\@interpolation"
-"" # False content to test double-negation scoping
-END_PERL
-isa_ok( $Document, 'PPI::Document' );
-my $strings = $Document->find('Token::Quote::Double');
-is( scalar @{$strings}, 6, 'Found the 6 test strings' );
-is( $strings->[0]->interpolations, '', 'String 1: No interpolations' );
-is( $strings->[1]->interpolations, '', 'String 2: No interpolations' );
-is( $strings->[2]->interpolations, 1, 'String 3: Has interpolations' );
-is( $strings->[3]->interpolations, 1, 'String 4: Has interpolations' );
-is( $strings->[4]->interpolations, 1, 'String 5: Has interpolations' );
-is( $strings->[5]->interpolations, '', 'String 6: No interpolations' );
-}
-
-
-
-# =begin testing simplify 8
-{
-my $Document = PPI::Document->new(\<<'END_PERL');
-"no special characters"
-"has \"double\" quotes"
-"has 'single' quotes"
-"has $interpolation"
-"has @interpolation"
-""
-END_PERL
-isa_ok( $Document, 'PPI::Document' );
-my $strings = $Document->find('Token::Quote::Double');
-is( scalar @{$strings}, 6, 'Found the 6 test strings' );
-is( $strings->[0]->simplify, q<'no special characters'>, 'String 1: No special characters' );
-is( $strings->[1]->simplify, q<"has \"double\" quotes">, 'String 2: Double quotes' );
-is( $strings->[2]->simplify, q<"has 'single' quotes">, 'String 3: Single quotes' );
-is( $strings->[3]->simplify, q<"has $interpolation">, 'String 3: Has interpolation' );
-is( $strings->[4]->simplify, q<"has @interpolation">, 'String 4: Has interpolation' );
-is( $strings->[5]->simplify, q<''>, 'String 6: Empty string' );
-}
-
-
-
-# =begin testing string 3
-{
-my $Document = PPI::Document->new( \'print "foo";' );
-isa_ok( $Document, 'PPI::Document' );
-my $Double = $Document->find_first('Token::Quote::Double');
-isa_ok( $Double, 'PPI::Token::Quote::Double' );
-is( $Double->string, 'foo', '->string returns as expected' );
-}
-
-
-1;
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/ppi_token_quote_literal.t b/3.8.8/sources/cpan-PPI/vendor/t/ppi_token_quote_literal.t
deleted file mode 100644
index 321bb00..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/ppi_token_quote_literal.t
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/usr/bin/perl
-
-# Unit testing for PPI, generated by Test::Inline
-
-use strict;
-use File::Spec::Functions ':ALL';
-BEGIN {
- $| = 1;
- $^W = 1;
- no warnings 'once';
- $PPI::XS_DISABLE = 1;
- $PPI::Lexer::X_TOKENIZER ||= $ENV{X_TOKENIZER};
-}
-use PPI;
-
-# Execute the tests
-use Test::More tests => 12;
-
-# =begin testing string 8
-{
-my $Document = PPI::Document->new( \"print q{foo}, q!bar!, q <foo>;" );
-isa_ok( $Document, 'PPI::Document' );
-my $literal = $Document->find('Token::Quote::Literal');
-is( scalar(@$literal), 3, '->find returns three objects' );
-isa_ok( $literal->[0], 'PPI::Token::Quote::Literal' );
-isa_ok( $literal->[1], 'PPI::Token::Quote::Literal' );
-isa_ok( $literal->[2], 'PPI::Token::Quote::Literal' );
-is( $literal->[0]->string, 'foo', '->string returns as expected' );
-is( $literal->[1]->string, 'bar', '->string returns as expected' );
-is( $literal->[2]->string, 'foo', '->string returns as expected' );
-}
-
-
-
-# =begin testing literal 4
-{
-my $Document = PPI::Document->new( \"print q{foo}, q!bar!, q <foo>;" );
-isa_ok( $Document, 'PPI::Document' );
-my $literal = $Document->find('Token::Quote::Literal');
-is( $literal->[0]->literal, 'foo', '->literal returns as expected' );
-is( $literal->[1]->literal, 'bar', '->literal returns as expected' );
-is( $literal->[2]->literal, 'foo', '->literal returns as expected' );
-}
-
-
-1;
diff --git a/3.8.8/sources/cpan-PPI/vendor/t/ppi_token_word.t b/3.8.8/sources/cpan-PPI/vendor/t/ppi_token_word.t
deleted file mode 100644
index f55487e..0000000
--- a/3.8.8/sources/cpan-PPI/vendor/t/ppi_token_word.t
+++ /dev/null
@@ -1,219 +0,0 @@
-#!/usr/bin/perl
-
-# Unit testing for PPI, generated by Test::Inline
-
-use strict;
-use File::Spec::Functions ':ALL';
-BEGIN {
- $| = 1;
- $^W = 1;
- no warnings 'once';
- $PPI::XS_DISABLE = 1;
- $PPI::Lexer::X_TOKENIZER ||= $ENV{X_TOKENIZER};
-}
-use PPI;
-
-# Execute the tests
-use Test::More tests => 60;
-
-# =begin testing literal 9
-{
-my @pairs = (
- "F", 'F',
- "Foo::Bar", 'Foo::Bar',
- "Foo'Bar", 'Foo::Bar',
-);
-while ( @pairs ) {
- my $from = shift @pairs;
- my $to = shift @pairs;
- my $doc = PPI::Document->new( \"$from;" );
- isa_ok( $doc, 'PPI::Document' );
- my $word = $doc->find_first('Token::Word');
- isa_ok( $word, 'PPI::Token::Word' );
- is( $word->literal, $to, "The source $from becomes $to ok" );
-}
-}
-
-
-
-# =begin testing method_call 24
-{
-my $Document = PPI::Document->new(\<<'END_PERL');
-indirect $foo;
-indirect_class_with_colon Foo::;
-$bar->method_with_parentheses;
-print SomeClass->method_without_parentheses + 1;
-sub_call();
-$baz->chained_from->chained_to;
-a_first_thing a_middle_thing a_last_thing;
-(first_list_element, second_list_element, third_list_element);
-first_comma_separated_word, second_comma_separated_word, third_comma_separated_word;
-single_bareword_statement;
-{ bareword_no_semicolon_end_of_block }
-$buz{hash_key};
-fat_comma_left_side => $thingy;
-END_PERL
-
-isa_ok( $Document, 'PPI::Document' );
-my $words = $Document->find('Token::Word');
-is( scalar @{$words}, 23, 'Found the 23 test words' );
-my %words = map { $_ => $_ } @{$words};
-is(
- scalar $words{indirect}->method_call,
- undef,
- 'Indirect notation is unknown.',
-);
-is(
- scalar $words{indirect_class_with_colon}->method_call,
- 1,
- 'Indirect notation with following word ending with colons is true.',
-);
-is(
- scalar $words{method_with_parentheses}->method_call,
- 1,
- 'Method with parentheses is true.',
-);
-is(
- scalar $words{method_without_parentheses}->method_call,
- 1,
- 'Method without parentheses is true.',
-);
-is(
- scalar $words{print}->method_call,
- undef,
- 'Plain print is unknown.',
-);
-is(
- scalar $words{SomeClass}->method_call,
- undef,
- 'Class in class method call is unknown.',
-);
-is(
- scalar $words{sub_call}->method_call,
- 0,
- 'Subroutine call is false.',
-);
-is(
- scalar $words{chained_from}->method_call,
- 1,
- 'Method that is chained from is true.',
-);
-is(
- scalar $words{chained_to}->method_call,
- 1,
- 'Method that is chained to is true.',
-);
-is(
- scalar $words{a_first_thing}->method_call,
- undef,
- 'First bareword is unknown.',
-);
-is(
- scalar $words{a_middle_thing}->method_call,
- undef,
- 'Bareword in the middle is unknown.',
-);
-is(
- scalar $words{a_last_thing}->method_call,
- 0,
- 'Bareword at the end is false.',
-);
-foreach my $false_word (
- qw<
- first_list_element second_list_element third_list_element
- first_comma_separated_word second_comma_separated_word third_comma_separated_word
- single_bareword_statement
- bareword_no_semicolon_end_of_block
- hash_key
- fat_comma_left_side
- >
-) {
- is(
- scalar $words{$false_word}->method_call,
- 0,
- "$false_word is false.",
- );
-}
-}
-
-
-
-# =begin testing __TOKENIZER__on_char 27
-{
-my $Document = PPI::Document->new(\<<'END_PERL');
-$foo eq'bar';
-$foo ne'bar';
-$foo ge'bar';
-$foo le'bar';
-$foo gt'bar';
-$foo lt'bar';
-END_PERL
-
-isa_ok( $Document, 'PPI::Document' );
-my $words = $Document->find('Token::Operator');
-is( scalar @{$words}, 6, 'Found the 6 test operators' );
-
-is( $words->[0], 'eq', q{$foo eq'bar'} );
-is( $words->[1], 'ne', q{$foo ne'bar'} );
-is( $words->[2], 'ge', q{$foo ge'bar'} );
-is( $words->[3], 'le', q{$foo le'bar'} );
-is( $words->[4], 'gt', q{$foo ht'bar'} );
-is( $words->[5], 'lt', q{$foo lt'bar'} );
-
-$Document = PPI::Document->new(\<<'END_PERL');
-q'foo';
-qq'foo';
-END_PERL
-
-isa_ok( $Document, 'PPI::Document' );
-$words = $Document->find('Token::Quote');
-is( scalar @{$words}, 2, 'Found the 2 test quotes' );
-
-is( $words->[0], q{q'foo'}, q{q'foo'} );
-is( $words->[1], q{qq'foo'}, q{qq'foo'} );
-
-$Document = PPI::Document->new(\<<'END_PERL');
-qx'foo';
-qw'foo';
-qr'foo';
-END_PERL
-
-isa_ok( $Document, 'PPI::Document' );
-$words = $Document->find('Token::QuoteLike');
-is( scalar @{$words}, 3, 'Found the 3 test quotelikes' );
-
-is( $words->[0], q{qx'foo'}, q{qx'foo'} );
-is( $words->[1], q{qw'foo'}, q{qw'foo'} );
-is( $words->[2], q{qr'foo'}, q{qr'foo'} );
-
-$Document = PPI::Document->new(\<<'END_PERL');
-m'foo';
-s'foo'bar';
-tr'fo'ba';
-y'fo'ba';
-END_PERL
-
-isa_ok( $Document, 'PPI::Document' );
-$words = $Document->find('Token::Regexp');
-is( scalar @{$words}, 4, 'Found the 4 test quotelikes' );
-
-is( $words->[0], q{m'foo'}, q{m'foo'} );
-is( $words->[1], q{s'foo'bar'}, q{s'foo'bar'} );
-is( $words->[2], q{tr'fo'ba'}, q{tr'fo'ba'} );
-is( $words->[3], q{y'fo'ba'}, q{y'fo'ba'} );
-
-$Document = PPI::Document->new(\<<'END_PERL');
-pack'H*',$data;
-unpack'H*',$data;
-END_PERL
-
-isa_ok( $Document, 'PPI::Document' );
-$words = $Document->find('Token::Word');
-is( scalar @{$words}, 2, 'Found the 2 test words' );
-
-is( $words->[0], 'pack', q{pack'H*',$data} );
-is( $words->[1], 'unpack', q{unpack'H*',$data} );
-}
-
-
-1;
diff --git a/3.8.8/sources/cpan-Params-Util/vendor/MANIFEST b/3.8.8/sources/cpan-Params-Util/vendor/MANIFEST
deleted file mode 100644
index 51f6d41..0000000
--- a/3.8.8/sources/cpan-Params-Util/vendor/MANIFEST
+++ /dev/null
@@ -1,37 +0,0 @@
-Changes
-lib/Params/Util.pm
-LICENSE
-Makefile.PL
-MANIFEST This list of files
-META.yml
-README
-t/01_compile.t
-t/02_main.t
-t/03_all.t
-t/04_codelike.t
-t/05_typelike.t
-t/06_invocant.t
-t/07_handle.t
-t/08_driver.t
-t/09_insideout.t
-t/11_compile.t
-t/12_main.t
-t/13_all.t
-t/14_codelike.t
-t/15_typelike.t
-t/16_invocant.t
-t/17_handle.t
-t/18_driver.t
-t/19_insideout.t
-t/driver/A.pm
-t/driver/B.pm
-t/driver/D.pm
-t/driver/E.pm
-t/driver/F.pm
-t/driver/My_B.pm
-t/handles/handle.txt
-t/handles/readfile.txt
-Util.xs
-xt/meta.t
-xt/pmv.t
-xt/pod.t
diff --git a/3.8.8/sources/cpan-Params-Util/vendor/META.yml b/3.8.8/sources/cpan-Params-Util/vendor/META.yml
deleted file mode 100644
index bb04171..0000000
--- a/3.8.8/sources/cpan-Params-Util/vendor/META.yml
+++ /dev/null
@@ -1,29 +0,0 @@
----
-abstract: 'Simple, compact and correct param-checking functions'
-author:
- - 'Adam Kennedy <adamk at cpan.org>'
-build_requires:
- ExtUtils::MakeMaker: 6.42
- File::Spec: 0.80
- Test::More: 0.42
-configure_requires:
- ExtUtils::MakeMaker: 6.42
-distribution_type: module
-generated_by: hand
-license: perl
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
-module_name: Params::Util
-name: Params-Util
-no_index:
- directory:
- - inc
- - t
-requires:
- Scalar::Util: 1.18
- perl: 5.00503
-resources:
- ChangeLog: http://fisheye2.atlassian.com/changelog/cpan/trunk/Params-Util
- repository: http://svn.ali.as/cpan/trunk/Params-Util
-version: 1.01
diff --git a/3.8.8/sources/cpan-Params-Util/vendor/t/01_compile.t b/3.8.8/sources/cpan-Params-Util/vendor/t/01_compile.t
deleted file mode 100644
index 7b0ca65..0000000
--- a/3.8.8/sources/cpan-Params-Util/vendor/t/01_compile.t
+++ /dev/null
@@ -1,20 +0,0 @@
-#!/usr/bin/perl
-
-use 5.00503;
-use strict;
-BEGIN {
- $| = 1;
- $^W = 1;
- $ENV{PERL_PARAMS_UTIL_PP} ||= 0;
-}
-
-use Test::More tests => 4;
-use File::Spec::Functions ':ALL';
-
-# Does the module load
-use_ok('Params::Util');
-
-# Double check that Scalar::Util is valid
-require_ok( 'Scalar::Util' );
-ok( $Scalar::Util::VERSION >= 1.18, 'Scalar::Util version is at least 1.18' );
-ok( defined &Scalar::Util::refaddr, 'Scalar::Util has a refaddr implementation' );
diff --git a/3.8.8/sources/cpan-Params-Util/vendor/t/02_main.t b/3.8.8/sources/cpan-Params-Util/vendor/t/02_main.t
deleted file mode 100644
index 4384aa3..0000000
--- a/3.8.8/sources/cpan-Params-Util/vendor/t/02_main.t
+++ /dev/null
@@ -1,905 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-BEGIN {
- $| = 1;
- $^W = 1;
- $ENV{PERL_PARAMS_UTIL_PP} ||= 0;
-}
-
-use Test::More tests => 612;
-use File::Spec::Functions ':ALL';
-use Scalar::Util 'refaddr';
-use Params::Util ();
-
-# Utility functions
-sub true { is( shift, 1, shift || () ) }
-sub false { is( shift, '', shift || () ) }
-sub null { is( shift, undef, shift || () ) }
-sub dies {
- my ($code, $regexp, $message) = @_;
- eval "$code";
- ok( (defined($@) and length($@)), $message );
- if ( defined $regexp ) {
- like( $@, $regexp, '... with expected error message' );
- }
-}
-
-
-
-
-
-#####################################################################
-# Tests for _STRING
-
-# Test bad things against the actual function
-dies( "Params::Util::_STRING()", qr/Not enough arguments/, '...::_STRING() dies' );
-null( Params::Util::_STRING(undef), '...::_STRING(undef) returns undef' );
-null( Params::Util::_STRING(''), '...::_STRING(nullstring) returns undef' );
-null( Params::Util::_STRING({ foo => 1 }), '...::_STRING(HASH) returns undef' );
-null( Params::Util::_STRING(sub () { 1 }), '...::_STRING(CODE) returns undef' );
-null( Params::Util::_STRING([]), '...::_STRING(ARRAY) returns undef' );
-null( Params::Util::_STRING(\""), '...::_STRING(null constant) returns undef' );
-null( Params::Util::_STRING(\"foo"), '...::_STRING(SCALAR) returns undef' );
-
-# Test good things against the actual function (carefully)
-foreach my $ident ( qw{0 1 foo _foo foo1 __foo_1 Foo::Bar}, ' ', ' foo' ) {
- is( Params::Util::_STRING($ident), $ident, "...::_STRING('$ident') returns ok" );
-}
-
-# Import the function
-use_ok( 'Params::Util', '_STRING' );
-ok( defined *_STRING{CODE}, '_STRING imported ok' );
-
-# Test bad things against the actual function
-dies( "_STRING()", qr/Not enough arguments/, '...::_STRING() dies' );
-null( _STRING(undef), '_STRING(undef) returns undef' );
-null( _STRING(''), '_STRING(nullstring) returns undef' );
-null( _STRING({ foo => 1 }), '_STRING(HASH) returns undef' );
-null( _STRING(sub () { 1 }), '_STRING(CODE) returns undef' );
-null( _STRING([]), '_STRING(ARRAY) returns undef' );
-null( _STRING(\""), '_STRING(null constant) returns undef' );
-null( _STRING(\"foo"), '_STRING(SCALAR) returns undef' );
-
-# Test good things against the actual function (carefully)
-foreach my $ident ( qw{0 1 foo _foo foo1 __foo_1 Foo::Bar}, ' ', ' foo' ) {
- is( _STRING($ident), $ident, "...::_STRING('$ident') returns ok" );
-}
-
-
-
-
-
-#####################################################################
-# Tests for _IDENTIFIER
-
-# Test bad things against the actual function
-dies( "Params::Util::_IDENTIFIER()", qr/Not enough arguments/, '...::_IDENTIFIER() dies' );
-null( Params::Util::_IDENTIFIER(undef), '...::_IDENTIFIER(undef) returns undef' );
-null( Params::Util::_IDENTIFIER(''), '...::_IDENTIFIER(nullstring) returns undef' );
-null( Params::Util::_IDENTIFIER(1), '...::_IDENTIFIER(number) returns undef' );
-null( Params::Util::_IDENTIFIER(' foo'), '...::_IDENTIFIER(string) returns undef' );
-null( Params::Util::_IDENTIFIER({ foo => 1 }), '...::_IDENTIFIER(HASH) returns undef' );
-null( Params::Util::_IDENTIFIER(sub () { 1 }), '...::_IDENTIFIER(CODE) returns undef' );
-null( Params::Util::_IDENTIFIER([]), '...::_IDENTIFIER(ARRAY) returns undef' );
-null( Params::Util::_IDENTIFIER(\""), '...::_IDENTIFIER(null constant) returns undef' );
-null( Params::Util::_IDENTIFIER(\"foo"), '...::_IDENTIFIER(SCALAR) returns undef' );
-null( Params::Util::_IDENTIFIER("Foo::Bar"), '...::_IDENTIFIER(CLASS) returns undef' );
-null( Params::Util::_IDENTIFIER("foo\n"), '...::_IDENTIFIER(BAD) returns undef' );
-
-# Test good things against the actual function (carefully)
-foreach my $ident ( qw{foo _foo foo1 __foo_1} ) {
- is( Params::Util::_IDENTIFIER($ident), $ident, "...::_IDENTIFIER('$ident') returns ok" );
-}
-
-# Import the function
-use_ok( 'Params::Util', '_IDENTIFIER' );
-ok( defined *_IDENTIFIER{CODE}, '_IDENTIFIER imported ok' );
-
-# Test bad things against the actual function
-dies( "_IDENTIFIER()", qr/Not enough arguments/, '...::_IDENTIFIER() dies' );
-null( _IDENTIFIER(undef), '_IDENTIFIER(undef) returns undef' );
-null( _IDENTIFIER(''), '_IDENTIFIER(nullstring) returns undef' );
-null( _IDENTIFIER(1), '_IDENTIFIER(number) returns undef' );
-null( _IDENTIFIER(' foo'), '_IDENTIFIER(string) returns undef' );
-null( _IDENTIFIER({ foo => 1 }), '_IDENTIFIER(HASH) returns undef' );
-null( _IDENTIFIER(sub () { 1 }), '_IDENTIFIER(CODE) returns undef' );
-null( _IDENTIFIER([]), '_IDENTIFIER(ARRAY) returns undef' );
-null( _IDENTIFIER(\""), '_IDENTIFIER(null constant) returns undef' );
-null( _IDENTIFIER(\"foo"), '_IDENTIFIER(SCALAR) returns undef' );
-null( _IDENTIFIER("Foo::Bar"), '_IDENTIFIER(CLASS) returns undef' );
-null( _IDENTIFIER("foo\n"), '_IDENTIFIER(BAD) returns undef' );
-
-# Test good things against the actual function (carefully)
-foreach my $ident ( qw{foo _foo foo1 __foo_1} ) {
- is( _IDENTIFIER($ident), $ident, "...::_IDENTIFIER('$ident') returns ok" );
-}
-
-
-
-
-
-#####################################################################
-# Tests for _CLASS
-
-# Test bad things against the actual function
-dies( "Params::Util::_CLASS()", qr/Not enough arguments/, '...::_CLASS() dies' );
-null( Params::Util::_CLASS(undef), '...::_CLASS(undef) returns undef' );
-null( Params::Util::_CLASS(''), '...::_CLASS(nullstring) returns undef' );
-null( Params::Util::_CLASS(1), '...::_CLASS(number) returns undef' );
-null( Params::Util::_CLASS(' foo'), '...::_CLASS(string) returns undef' );
-null( Params::Util::_CLASS({ foo => 1 }), '...::_CLASS(HASH) returns undef' );
-null( Params::Util::_CLASS(sub () { 1 }), '...::_CLASS(CODE) returns undef' );
-null( Params::Util::_CLASS([]), '...::_CLASS(ARRAY) returns undef' );
-null( Params::Util::_CLASS(\""), '...::_CLASS(null constant) returns undef' );
-null( Params::Util::_CLASS(\"foo"), '...::_CLASS(SCALAR) returns undef' );
-null( Params::Util::_CLASS("D'oh"), '...::_CLASS(bad class) returns undef' );
-null( Params::Util::_CLASS("::Foo"), '...::_CLASS(bad class) returns undef' );
-null( Params::Util::_CLASS("1::X"), '...::_CLASS(bad class) returns undef' );
-
-# Test good things against the actual function (carefully)
-foreach my $ident ( qw{foo _foo foo1 __foo_1 Foo::Bar _Foo::Baaar::Baz X::1} ) {
- is( Params::Util::_CLASS($ident), $ident, "...::_CLASS('$ident') returns ok" );
-}
-
-# Import the function
-use_ok( 'Params::Util', '_CLASS' );
-ok( defined *_CLASS{CODE}, '_CLASS imported ok' );
-
-# Test bad things against the actual function
-dies( "_CLASS()", qr/Not enough arguments/, '_CLASS() dies' );
-null( _CLASS(undef), '_CLASS(undef) returns undef' );
-null( _CLASS(''), '_CLASS(nullstring) returns undef' );
-null( _CLASS(1), '_CLASS(number) returns undef' );
-null( _CLASS(' foo'), '_CLASS(string) returns undef' );
-null( _CLASS({ foo => 1 }), '_CLASS(HASH) returns undef' );
-null( _CLASS(sub () { 1 }), '_CLASS(CODE) returns undef' );
-null( _CLASS([]), '_CLASS(ARRAY) returns undef' );
-null( _CLASS(\""), '_CLASS(null constant) returns undef' );
-null( _CLASS(\"foo"), '_CLASS(SCALAR) returns undef' );
-null( _CLASS("D'oh"), '_CLASS(bad class) returns undef' );
-null( _CLASS("::Foo"), '_CLASS(bad class) returns undef' );
-null( _CLASS("1::X"), '_CLASS(bad class) returns undef' );
-
-# Test good things against the actual function (carefully)
-foreach my $ident ( qw{foo _foo foo1 __foo_1 Foo::Bar _Foo::Baaar::Baz X::1} ) {
- is( _CLASS($ident), $ident, "_CLASS('$ident') returns ok" );
-}
-
-
-
-
-
-#####################################################################
-# Tests for _NUMBER
-
-# Test bad things against the actual function
-dies( "Params::Util::_NUMBER()", qr/Not enough arguments/, '...::_NUMBER() dies' );
-null( Params::Util::_NUMBER(undef), '...::_NUMBER(undef) returns undef' );
-null( Params::Util::_NUMBER(''), '...::_NUMBER(nullstring) returns undef' );
-null( Params::Util::_NUMBER(' foo'), '...::_NUMBER(string) returns undef' );
-null( Params::Util::_NUMBER({ foo => 1 }), '...::_NUMBER(HASH) returns undef' );
-null( Params::Util::_NUMBER(sub () { 1 }), '...::_NUMBER(CODE) returns undef' );
-null( Params::Util::_NUMBER([]), '...::_NUMBER(ARRAY) returns undef' );
-null( Params::Util::_NUMBER(\""), '...::_NUMBER(null constant) returns undef' );
-null( Params::Util::_NUMBER(\"foo"), '...::_NUMBER(SCALAR) returns undef' );
-null( Params::Util::_NUMBER("D'oh"), '...::_NUMBER(bad class) returns undef' );
-
-# Test good things against the actual function (carefully)
-foreach my $id ( qw{1 2 10 123456789 -1 0 +1 02 .1 0.013e-3 1e1} ) {
- is( Params::Util::_NUMBER($id), $id, "...::_NUMBER('$id') returns ok" );
-}
-
-# Import the function
-use_ok( 'Params::Util', '_NUMBER' );
-ok( defined *_NUMBER{CODE}, '_NUMBER imported ok' );
-
-# Test bad things against the actual function
-dies( "_NUMBER()", qr/Not enough arguments/, '_NUMBER() dies' );
-null( _NUMBER(undef), '_NUMBER(undef) returns undef' );
-null( _NUMBER(''), '_NUMBER(nullstring) returns undef' );
-null( _NUMBER(' foo'), '_NUMBER(string) returns undef' );
-null( _NUMBER({ foo => 1 }), '_NUMBER(HASH) returns undef' );
-null( _NUMBER(sub () { 1 }), '_NUMBER(CODE) returns undef' );
-null( _NUMBER([]), '_NUMBER(ARRAY) returns undef' );
-null( _NUMBER(\""), '_NUMBER(null constant) returns undef' );
-null( _NUMBER(\"foo"), '_NUMBER(SCALAR) returns undef' );
-null( _NUMBER("D'oh"), '_NUMBER(bad class) returns undef' );
-
-# Test good things against the actual function (carefully)
-foreach my $id ( qw{1 2 10 123456789 -1 0 +1 02 .1 0.013e-3 1e1} ) {
- is( _NUMBER($id), $id, "_NUMBER('$id') returns ok" );
-}
-
-
-
-
-
-#####################################################################
-# Tests for _POSINT
-
-# Test bad things against the actual function
-dies( "Params::Util::_POSINT()", qr/Not enough arguments/, '...::_POSINT() dies' );
-null( Params::Util::_POSINT(undef), '...::_POSINT(undef) returns undef' );
-null( Params::Util::_POSINT(''), '...::_POSINT(nullstring) returns undef' );
-null( Params::Util::_POSINT(' foo'), '...::_POSINT(string) returns undef' );
-null( Params::Util::_POSINT({ foo => 1 }), '...::_POSINT(HASH) returns undef' );
-null( Params::Util::_POSINT(sub () { 1 }), '...::_POSINT(CODE) returns undef' );
-null( Params::Util::_POSINT([]), '...::_POSINT(ARRAY) returns undef' );
-null( Params::Util::_POSINT(\""), '...::_POSINT(null constant) returns undef' );
-null( Params::Util::_POSINT(\"foo"), '...::_POSINT(SCALAR) returns undef' );
-null( Params::Util::_POSINT("D'oh"), '...::_POSINT(bad class) returns undef' );
-null( Params::Util::_POSINT(-1), '...::_POSINT(negative) returns undef' );
-null( Params::Util::_POSINT(0), '...::_POSINT(zero) returns undef' );
-null( Params::Util::_POSINT("+1"), '...::_POSINT(explicit positive) returns undef' );
-null( Params::Util::_POSINT("02"), '...::_POSINT(zero lead) returns undef' );
-
-# Test good things against the actual function (carefully)
-foreach my $id ( qw{1 2 10 123456789} ) {
- is( Params::Util::_POSINT($id), $id, "...::_POSINT('$id') returns ok" );
-}
-
-# Import the function
-use_ok( 'Params::Util', '_POSINT' );
-ok( defined *_POSINT{CODE}, '_POSINT imported ok' );
-
-# Test bad things against the actual function
-dies( "_POSINT()", qr/Not enough arguments/, '_POSINT() dies' );
-null( _POSINT(undef), '_POSINT(undef) returns undef' );
-null( _POSINT(''), '_POSINT(nullstring) returns undef' );
-null( _POSINT(' foo'), '_POSINT(string) returns undef' );
-null( _POSINT({ foo => 1 }), '_POSINT(HASH) returns undef' );
-null( _POSINT(sub () { 1 }), '_POSINT(CODE) returns undef' );
-null( _POSINT([]), '_POSINT(ARRAY) returns undef' );
-null( _POSINT(\""), '_POSINT(null constant) returns undef' );
-null( _POSINT(\"foo"), '_POSINT(SCALAR) returns undef' );
-null( _POSINT("D'oh"), '_POSINT(bad class) returns undef' );
-null( _POSINT(-1), '_POSINT(negative) returns undef' );
-null( _POSINT(0), '_POSINT(zero) returns undef' );
-null( _POSINT("+1"), '_POSINT(explicit positive) returns undef' );
-null( _POSINT("02"), '_POSINT(zero lead) returns undef' );
-
-# Test good things against the actual function (carefully)
-foreach my $id ( qw{1 2 10 123456789} ) {
- is( _POSINT($id), $id, "_POSINT('$id') returns ok" );
-}
-
-
-
-
-
-#####################################################################
-# Tests for _NONNEGINT
-
-# Test bad things against the actual function
-dies( "Params::Util::_NONNEGINT()", qr/Not enough arguments/, '...::_NONNEGINT() dies' );
-null( Params::Util::_NONNEGINT(undef), '...::_NONNEGINT(undef) returns undef' );
-null( Params::Util::_NONNEGINT(''), '...::_NONNEGINT(nullstring) returns undef' );
-null( Params::Util::_NONNEGINT(' foo'), '...::_NONNEGINT(string) returns undef' );
-null( Params::Util::_NONNEGINT({ foo => 1 }), '...::_NONNEGINT(HASH) returns undef' );
-null( Params::Util::_NONNEGINT(sub () { 1 }), '...::_NONNEGINT(CODE) returns undef' );
-null( Params::Util::_NONNEGINT([]), '...::_NONNEGINT(ARRAY) returns undef' );
-null( Params::Util::_NONNEGINT(\""), '...::_NONNEGINT(null constant) returns undef' );
-null( Params::Util::_NONNEGINT(\"foo"), '...::_NONNEGINT(SCALAR) returns undef' );
-null( Params::Util::_NONNEGINT("D'oh"), '...::_NONNEGINT(bad class) returns undef' );
-null( Params::Util::_NONNEGINT(-1), '...::_NONNEGINT(negative) returns undef' );
-null( Params::Util::_NONNEGINT("+1"), '...::_NONNEGINT(explicit positive) returns undef' );
-null( Params::Util::_NONNEGINT("02"), '...::_NONNEGINT(zero lead) returns undef' );
-
-# Test good things against the actual function (carefully)
-foreach my $id ( qw{0 1 2 10 123456789} ) {
- is( Params::Util::_NONNEGINT($id), $id, "...::_NONNEGINT('$id') returns ok" );
-}
-
-# Import the function
-use_ok( 'Params::Util', '_NONNEGINT' );
-ok( defined *_NONNEGINT{CODE}, '_NONNEGINT imported ok' );
-
-# Test bad things against the actual function
-dies( "_NONNEGINT()", qr/Not enough arguments/, '_NONNEGINT() dies' );
-null( _NONNEGINT(undef), '_NONNEGINT(undef) returns undef' );
-null( _NONNEGINT(''), '_NONNEGINT(nullstring) returns undef' );
-null( _NONNEGINT(' foo'), '_NONNEGINT(string) returns undef' );
-null( _NONNEGINT({ foo => 1 }), '_NONNEGINT(HASH) returns undef' );
-null( _NONNEGINT(sub () { 1 }), '_NONNEGINT(CODE) returns undef' );
-null( _NONNEGINT([]), '_NONNEGINT(ARRAY) returns undef' );
-null( _NONNEGINT(\""), '_NONNEGINT(null constant) returns undef' );
-null( _NONNEGINT(\"foo"), '_NONNEGINT(SCALAR) returns undef' );
-null( _NONNEGINT("D'oh"), '_NONNEGINT(bad class) returns undef' );
-null( _NONNEGINT(-1), '_NONNEGINT(negative) returns undef' );
-null( _NONNEGINT("+1"), '_NONNEGINT(explicit positive) returns undef' );
-null( _NONNEGINT("02"), '_NONNEGINT(zero lead) returns undef' );
-
-# Test good things against the actual function (carefully)
-foreach my $id ( qw{0 1 2 10 123456789} ) {
- is( _NONNEGINT($id), $id, "_NONNEGINT('$id') returns ok" );
-}
-
-
-
-
-
-#####################################################################
-# Tests for _SCALAR
-
-my $foo = "foo";
-my $scalar = \$foo;
-
-# Test bad things against the actual function
-dies( "Params::Util::_SCALAR()", qr/Not enough arguments/, '...::_SCALAR() dies' );
-null( Params::Util::_SCALAR(undef), '...::_SCALAR(undef) returns undef' );
-null( Params::Util::_SCALAR(\undef), '...::_SCALAR(\undef) returns undef' );
-null( Params::Util::_SCALAR(''), '...::_SCALAR(nullstring) returns undef' );
-null( Params::Util::_SCALAR(1), '...::_SCALAR(number) returns undef' );
-null( Params::Util::_SCALAR('foo'), '...::_SCALAR(string) returns undef' );
-null( Params::Util::_SCALAR({ foo => 1 }), '...::_SCALAR(HASH) returns undef' );
-null( Params::Util::_SCALAR(sub () { 1 }), '...::_SCALAR(CODE) returns undef' );
-null( Params::Util::_SCALAR([]), '...::_SCALAR(ARRAY) returns undef' );
-null( Params::Util::_SCALAR(\""), '...::_SCALAR(null constant) returns undef' );
-
-# Test good things against the actual function (carefully)
-is( ref(Params::Util::_SCALAR(\"foo")), 'SCALAR', '...::_SCALAR(constant) returns true' );
-is( ref(Params::Util::_SCALAR($scalar)), 'SCALAR', "...::_SCALAR(['foo']) returns true" );
-is( refaddr(Params::Util::_SCALAR($scalar)), refaddr($scalar),
- '...::_SCALAR returns the same SCALAR reference');
-
-# Import the function
-use_ok( 'Params::Util', '_SCALAR' );
-ok( defined *_SCALAR{CODE}, '_SCALAR imported ok' );
-
-# Test bad things against the imported function
-dies( "_SCALAR()", qr/Not enough arguments/, '...::_SCALAR() dies' );
-null( _SCALAR(undef), '...::_SCALAR(undef) returns undef' );
-null( _SCALAR(\undef), '...::_SCALAR(\undef) returns undef' );
-null( _SCALAR(''), '...::_SCALAR(nullstring) returns undef' );
-null( _SCALAR(1), '...::_SCALAR(number) returns undef' );
-null( _SCALAR('foo'), '...::_SCALAR(string) returns undef' );
-null( _SCALAR({ foo => 1 }), '...::_SCALAR(HASH) returns undef' );
-null( _SCALAR(sub () { 1 }), '...::_SCALAR(CODE) returns undef' );
-null( _SCALAR([]), '...::_SCALAR(ARRAY) returns undef' );
-null( _SCALAR(\""), '...::_SCALAR(null constant) returns undef' );
-
-# Test good things against the actual function (carefully)
-is( ref(_SCALAR(\"foo")), 'SCALAR', '...::_SCALAR(constant) returns true' );
-is( ref(_SCALAR($scalar)), 'SCALAR', "...::_SCALAR(SCALAR) returns true" );
-is( refaddr(_SCALAR($scalar)), refaddr($scalar),
- '...::_SCALAR returns the same SCALAR reference');
-
-
-
-
-#####################################################################
-# Tests for _SCALAR0
-
-my $null = "";
-my $scalar0 = \$null;
-
-# Test bad things against the actual function
-dies( "Params::Util::_SCALAR0()", qr/Not enough arguments/, '...::_SCALAR0() dies' );
-null( Params::Util::_SCALAR0(undef), '...::_SCALAR0(undef) returns undef' );
-null( Params::Util::_SCALAR0(''), '...::_SCALAR0(nullstring) returns undef' );
-null( Params::Util::_SCALAR0(1), '...::_SCALAR0(number) returns undef' );
-null( Params::Util::_SCALAR0('foo'), '...::_SCALAR0(string) returns undef' );
-null( Params::Util::_SCALAR0({ foo => 1 }), '...::_SCALAR0(HASH) returns undef' );
-null( Params::Util::_SCALAR0(sub () { 1 }), '...::_SCALAR0(CODE) returns undef' );
-null( Params::Util::_SCALAR0([]), '...::_SCALAR0(ARRAY) returns undef' );
-
-# Test good things against the actual function (carefully)
-is( ref(Params::Util::_SCALAR0(\"foo")), 'SCALAR', '...::_SCALAR0(constant) returns true' );
-is( ref(Params::Util::_SCALAR0(\"")), 'SCALAR', '...::_SCALAR0(constant) returns true' );
-is( ref(Params::Util::_SCALAR0(\undef)), 'SCALAR', '...::_SCALAR0(\undef) returns true' );
-is( ref(Params::Util::_SCALAR0($scalar)), 'SCALAR', "...::_SCALAR0(constant) returns true" );
-is( ref(Params::Util::_SCALAR0($scalar0)), 'SCALAR', "...::_SCALAR0(constant) returns true" );
-is( refaddr(Params::Util::_SCALAR0($scalar)), refaddr($scalar),
- '...::_SCALAR returns the same SCALAR reference');
-is( refaddr(Params::Util::_SCALAR0($scalar0)), refaddr($scalar0),
- '...::_SCALAR returns the same SCALAR reference');
-
-# Import the function
-use_ok( 'Params::Util', '_SCALAR0' );
-ok( defined *_SCALAR0{CODE}, '_SCALAR0 imported ok' );
-
-# Test bad things against the imported function
-dies( "_SCALAR0()", qr/Not enough arguments/, '...::_SCALAR0() dies' );
-null( _SCALAR0(undef), '...::_SCALAR0(undef) returns undef' );
-null( _SCALAR0(''), '...::_SCALAR0(nullstring) returns undef' );
-null( _SCALAR0(1), '...::_SCALAR0(number) returns undef' );
-null( _SCALAR0('foo'), '...::_SCALAR0(string) returns undef' );
-null( _SCALAR0({ foo => 1 }), '...::_SCALAR0(HASH) returns undef' );
-null( _SCALAR0(sub () { 1 }), '...::_SCALAR0(CODE) returns undef' );
-null( _SCALAR0([]), '...::_SCALAR0(ARRAY) returns undef' );
-
-# Test good things against the actual function (carefully)
-is( ref(_SCALAR0(\"foo")), 'SCALAR', '...::_SCALAR0(constant) returns true' );
-is( ref(_SCALAR0(\"")), 'SCALAR', '...::_SCALAR0(constant) returns true' );
-is( ref(_SCALAR0(\undef)), 'SCALAR', '...::_SCALAR0(\undef) returns true' );
-is( ref(_SCALAR0($scalar)), 'SCALAR', "...::_SCALAR0(constant) returns true" );
-is( ref(_SCALAR0($scalar0)), 'SCALAR', "...::_SCALAR0(constant) returns true" );
-is( refaddr(_SCALAR0($scalar)), refaddr($scalar),
- '...::_SCALAR returns the same SCALAR reference');
-is( refaddr(_SCALAR0($scalar0)), refaddr($scalar0),
- '...::_SCALAR returns the same SCALAR reference');
-
-
-
-
-
-#####################################################################
-# Tests for _ARRAY
-
-my $array = [ 'foo', 'bar' ];
-
-# Test bad things against the actual function
-dies( "Params::Util::_ARRAY()", qr/Not enough arguments/, '...::_ARRAY() dies' );
-null( Params::Util::_ARRAY(undef), '...::_ARRAY(undef) returns undef' );
-null( Params::Util::_ARRAY(''), '...::_ARRAY(nullstring) returns undef' );
-null( Params::Util::_ARRAY(1), '...::_ARRAY(number) returns undef' );
-null( Params::Util::_ARRAY('foo'), '...::_ARRAY(string) returns undef' );
-null( Params::Util::_ARRAY(\'foo'), '...::_ARRAY(SCALAR) returns undef' );
-null( Params::Util::_ARRAY({ foo => 1 }), '...::_ARRAY(HASH) returns undef' );
-null( Params::Util::_ARRAY(sub () { 1 }), '...::_ARRAY(CODE) returns undef' );
-null( Params::Util::_ARRAY([]), '...::_ARRAY(empty ARRAY) returns undef' );
-
-# Test good things against the actual function (carefully)
-is( ref(Params::Util::_ARRAY([ undef ])), 'ARRAY', '...::_ARRAY([undef]) returns true' );
-is( ref(Params::Util::_ARRAY([ 'foo' ])), 'ARRAY', "...::_ARRAY(['foo']) returns true" );
-is( ref(Params::Util::_ARRAY($array)), 'ARRAY', '...::_ARRAY returns an ARRAY ok' );
-is( refaddr(Params::Util::_ARRAY($array)), refaddr($array),
- '...::_ARRAY($array) returns the same ARRAY reference');
-
-# Import the function
-use_ok( 'Params::Util', '_ARRAY' );
-ok( defined *_ARRAY{CODE}, '_ARRAY imported ok' );
-
-# Test bad things against the actual function
-dies( "_ARRAY();", qr/Not enough arguments/, '_ARRAY() dies' );
-null( _ARRAY(undef), '_ARRAY(undef) returns undef' );
-null( _ARRAY(''), '_ARRAY(nullstring) returns undef' );
-null( _ARRAY(1), '_ARRAY(number) returns undef' );
-null( _ARRAY('foo'), '_ARRAY(string) returns undef' );
-null( _ARRAY(\'foo'), '_ARRAY(SCALAR) returns undef' );
-null( _ARRAY({ foo => 1 }), '_ARRAY(HASH) returns undef' );
-null( _ARRAY(sub () { 1 }), '_ARRAY(CODE) returns undef' );
-null( _ARRAY([]), '_ARRAY(empty ARRAY) returns undef' );
-
-# Test good things against the actual function (carefully)
-is( ref(_ARRAY([ undef ])), 'ARRAY', '_ARRAY([undef]) returns true' );
-is( ref(_ARRAY([ 'foo' ])), 'ARRAY', "_ARRAY(['foo']) returns true" );
-is( ref(_ARRAY($array)), 'ARRAY', '_ARRAY returns an ARRAY ok' );
-is( refaddr(_ARRAY($array)), refaddr($array),
- '_ARRAY($array) returns the same ARRAY reference');
-
-
-
-
-
-#####################################################################
-# Tests for _ARRAY0
-
-# Test bad things against the actual function
-dies( "Params::Util::_ARRAY0();", qr/Not enough arguments/, '...::_ARRAY0() dies' );
-null( Params::Util::_ARRAY0(undef), '...::_ARRAY0(undef) returns undef' );
-null( Params::Util::_ARRAY0(''), '...::_ARRAY0(nullstring) returns undef' );
-null( Params::Util::_ARRAY0(1), '...::_ARRAY0(number) returns undef' );
-null( Params::Util::_ARRAY0('foo'), '...::_ARRAY0(string) returns undef' );
-null( Params::Util::_ARRAY0(\'foo'), '...::_ARRAY0(SCALAR) returns undef' );
-null( Params::Util::_ARRAY0({ foo => 1 }), '...::_ARRAY0(HASH) returns undef' );
-null( Params::Util::_ARRAY0(sub () { 1 }), '...::_ARRAY0(CODE) returns undef' );
-
-# Test good things against the actual function (carefully)
-is( ref(Params::Util::_ARRAY0([])), 'ARRAY', '...::_ARRAY0(empty ARRAY) returns undef' );
-is( ref(Params::Util::_ARRAY0([ undef ])), 'ARRAY', '...::_ARRAY0([undef]) returns true' );
-is( ref(Params::Util::_ARRAY0([ 'foo' ])), 'ARRAY', "...::_ARRAY0(['foo']) returns true" );
-is( ref(Params::Util::_ARRAY0($array)), 'ARRAY', '...::_ARRAY0 returns an ARRAY ok' );
-is( refaddr(Params::Util::_ARRAY0($array)), refaddr($array),
- '...::_ARRAY0($array) returns the same ARRAY reference');
-
-# Import the function
-use_ok( 'Params::Util', '_ARRAY0' );
-ok( defined *_ARRAY0{CODE}, '_ARRAY0 imported ok' );
-
-# Test bad things against the actual function
-dies( "_ARRAY0();", qr/Not enough arguments/, '_ARRAY0() dies' );
-null( _ARRAY0(undef), '_ARRAY0(undef) returns undef' );
-null( _ARRAY0(''), '_ARRAY0(nullstring) returns undef' );
-null( _ARRAY0(1), '_ARRAY0(number) returns undef' );
-null( _ARRAY0('foo'), '_ARRAY0(string) returns undef' );
-null( _ARRAY0(\'foo'), '_ARRAY0(SCALAR) returns undef' );
-null( _ARRAY0({ foo => 1 }), '_ARRAY0(HASH) returns undef' );
-null( _ARRAY0(sub () { 1 }), '_ARRAY0(CODE) returns undef' );
-
-# Test good things against the actual function (carefully)
-is( ref(_ARRAY0([])), 'ARRAY', '_ARRAY0(empty ARRAY) returns undef' );
-is( ref(_ARRAY0([ undef ])), 'ARRAY', '_ARRAY0([undef]) returns true' );
-is( ref(_ARRAY0([ 'foo' ])), 'ARRAY', "_ARRAY0(['foo']) returns true" );
-is( ref(_ARRAY0($array)), 'ARRAY', '_ARRAY0 returns an ARRAY ok' );
-is( refaddr(_ARRAY0($array)), refaddr($array),
- '_ARRAY0($array) returns the same reference');
-
-
-
-
-
-#####################################################################
-# Tests for _HASH
-
-my $hash = { 'foo' => 'bar' };
-
-# Test bad things against the actual function
-dies( "Params::Util::_HASH();", qr/Not enough arguments/, '...::_HASH() dies' );
-null( Params::Util::_HASH(undef), '...::_HASH(undef) returns undef' );
-null( Params::Util::_HASH(''), '...::_HASH(nullstring) returns undef' );
-null( Params::Util::_HASH(1), '...::_HASH(number) returns undef' );
-null( Params::Util::_HASH('foo'), '...::_HASH(string) returns undef' );
-null( Params::Util::_HASH(\'foo'), '...::_HASH(SCALAR) returns undef' );
-null( Params::Util::_HASH([ 'foo' ]), '...::_HASH(ARRAY) returns undef' );
-null( Params::Util::_HASH(sub () { 1 }), '...::_HASH(CODE) returns undef' );
-null( Params::Util::_HASH({}), '...::_HASH(empty HASH) returns undef' );
-
-# Test good things against the actual function (carefully)
-is( ref(Params::Util::_HASH({ foo => 1 })), 'HASH', '...::_HASH([undef]) returns ok' );
-is( ref(Params::Util::_HASH($hash)), 'HASH', '...::_HASH returns an HASH ok' );
-is(
- refaddr(Params::Util::_HASH($hash)),
- refaddr($hash),
- '...::_HASH($hash) returns the same reference',
-);
-
-# Import the function
-use_ok( 'Params::Util', '_HASH' );
-ok( defined *_HASH{CODE}, '_HASH imported ok' );
-
-# Test bad things against the actual function
-dies( "_HASH();", qr/Not enough arguments/, '_HASH() dies' );
-null( _HASH(undef), '_HASH(undef) returns undef' );
-null( _HASH(''), '_HASH(nullstring) returns undef' );
-null( _HASH(1), '_HASH(number) returns undef' );
-null( _HASH('foo'), '_HASH(string) returns undef' );
-null( _HASH(\'foo'), '_HASH(SCALAR) returns undef' );
-null( _HASH([]), '_HASH(ARRAY) returns undef' );
-null( _HASH(sub () { 1 }), '_HASH(CODE) returns undef' );
-null( _HASH({}), '...::_HASH(empty HASH) returns undef' );
-
-# Test good things against the actual function (carefully)
-is( ref(_HASH({ foo => 1 })), 'HASH', '_HASH([undef]) returns true' );
-is( ref(_HASH($hash)), 'HASH', '_HASH returns an ARRAY ok' );
-is(
- refaddr(_HASH($hash)),
- refaddr($hash),
- '_HASH($hash) returns the same reference',
-);
-
-
-
-
-
-#####################################################################
-# Tests for _HASH0
-
-# Test bad things against the actual function
-dies( "Params::Util::_HASH0();", qr/Not enough arguments/, '...::_HASH0() dies' );
-null( Params::Util::_HASH0(undef), '...::_HASH0(undef) returns undef' );
-null( Params::Util::_HASH0(''), '...::_HASH0(nullstring) returns undef' );
-null( Params::Util::_HASH0(1), '...::_HASH0(number) returns undef' );
-null( Params::Util::_HASH0('foo'), '...::_HASH0(string) returns undef' );
-null( Params::Util::_HASH0(\'foo'), '...::_HASH0(SCALAR) returns undef' );
-null( Params::Util::_HASH0([ 'foo' ]), '...::_HASH0(ARRAY) returns undef' );
-null( Params::Util::_HASH0(sub () { 1 }), '...::_HASH0(CODE) returns undef' );
-
-# Test good things against the actual function (carefully)
-is( ref(Params::Util::_HASH0({})), 'HASH', '...::_HASH0(empty ARRAY) returns undef' );
-is( ref(Params::Util::_HASH0({ foo => 1 })), 'HASH', '...::_HASH0([undef]) returns true' );
-is( ref(Params::Util::_HASH0($hash)), 'HASH', '...::_HASH0 returns an ARRAY ok' );
-is(
- refaddr(Params::Util::_HASH0($hash)),
- refaddr($hash),
- '...::_HASH0($hash) returns the same reference',
-);
-
-# Import the function
-use_ok( 'Params::Util', '_HASH0' );
-ok( defined *_HASH0{CODE}, '_HASH0 imported ok' );
-
-# Test bad things against the actual function
-dies( "_HASH0();", qr/Not enough arguments/, '_HASH0() dies' );
-null( _HASH0(undef), '_HASH0(undef) returns undef' );
-null( _HASH0(''), '_HASH0(nullstring) returns undef' );
-null( _HASH0(1), '_HASH0(number) returns undef' );
-null( _HASH0('foo'), '_HASH0(string) returns undef' );
-null( _HASH0(\'foo'), '_HASH0(SCALAR) returns undef' );
-null( _HASH0([]), '_HASH0(ARRAY) returns undef' );
-null( _HASH0(sub () { 1 }), '_HASH0(CODE) returns undef' );
-
-# Test good things against the actual function (carefully)
-is( ref(_HASH0({})), 'HASH', '_HASH0(empty ARRAY) returns undef' );
-is( ref(_HASH0({ foo => 1 })), 'HASH', '_HASH0([undef]) returns true' );
-is( ref(_HASH0($hash)), 'HASH', '_HASH0 returns an ARRAY ok' );
-is(
- refaddr(_HASH0($hash)),
- refaddr($hash),
- '_HASH0($hash) returns the same reference',
-);
-
-
-
-
-
-#####################################################################
-# Tests for _CODE
-
-my $code = sub () { 1 };
-sub testcode { 3 };
-
-# Import the function
-use_ok( 'Params::Util', '_CODE' );
-ok( defined *_CODE{CODE}, '_CODE imported ok' );
-
-# Test bad things against the actual function
-dies( "Params::Util::_CODE();", qr/Not enough arguments/, '...::_CODE() dies' );
-null( Params::Util::_CODE(undef), '...::_CODE(undef) returns undef' );
-null( Params::Util::_CODE(''), '...::_CODE(nullstring) returns undef' );
-null( Params::Util::_CODE(1), '...::_CODE(number) returns undef' );
-null( Params::Util::_CODE('foo'), '...::_CODE(string) returns undef' );
-null( Params::Util::_CODE(\'foo'), '...::_CODE(SCALAR) returns undef' );
-null( Params::Util::_CODE([ 'foo' ]), '...::_CODE(ARRAY) returns undef' );
-null( Params::Util::_CODE({}), '...::_CODE(empty HASH) returns undef' );
-
-# Test bad things against the actual function
-dies( "_CODE();", qr/Not enough arguments/, '_CODE() dies' );
-null( _CODE(undef), '_CODE(undef) returns undef' );
-null( _CODE(''), '_CODE(nullstring) returns undef' );
-null( _CODE(1), '_CODE(number) returns undef' );
-null( _CODE('foo'), '_CODE(string) returns undef' );
-null( _CODE(\'foo'), '_CODE(SCALAR) returns undef' );
-null( _CODE([]), '_CODE(ARRAY) returns undef' );
-null( _CODE({}), '...::_CODE(empty HASH) returns undef' );
-
-# Test good things against the actual function
-is( ref(Params::Util::_CODE(sub { 2 })), 'CODE', '...::_CODE(anon) returns ok' );
-is( ref(Params::Util::_CODE($code)), 'CODE', '...::_CODE(ref) returns ok' );
-is( ref(Params::Util::_CODE(\&testsub)), 'CODE', '...::_CODE(\&func) returns ok' );
-is( refaddr(Params::Util::_CODE($code)), refaddr($code),
- '...::_CODE(ref) returns the same reference');
-is( refaddr(Params::Util::_CODE(\&testsub)), refaddr(\&testsub),
- '...::_CODE(\&func) returns the same reference');
-
-# Test good things against the imported function
-is( ref(_CODE(sub { 2 })), 'CODE', '_CODE(anon) returns ok' );
-is( ref(_CODE($code)), 'CODE', '_CODE(ref) returns ok' );
-is( ref(_CODE(\&testsub)), 'CODE', '_CODE(\&func) returns ok' );
-is( refaddr(_CODE($code)), refaddr($code),
- '_CODE(ref) returns the same reference');
-is( refaddr(_CODE(\&testsub)), refaddr(\&testsub),
- '_CODE(\&func) returns the same reference');
-
-
-
-
-
-#####################################################################
-# Tests for _INSTANCE
-
-my $s1 = "foo";
-my $s2 = "bar";
-my $s3 = "baz";
-my $scalar1 = \$s1;
-my $scalar2 = \$s2;
-my $scalar3 = \$s3;
-my @objects = (
- bless( {}, 'Foo'),
- bless( [], 'Foo'),
- bless( $scalar1, 'Foo'),
- bless( {}, 'Bar'),
- bless( [], 'Bar'),
- bless( $scalar1, 'Bar'),
- bless( {}, 'Baz'),
- bless( [], 'Baz'),
- bless( $scalar3, 'Baz'),
- );
-
-# Test bad things against the actual function
-dies( "Params::Util::_INSTANCE()", qr/Not enough arguments/, '...::_INSTANCE() dies' );
-dies( "Params::Util::_INSTANCE(bless {}, 'Foo')", qr/Not enough arguments/, '...::_INSTANCE(object) dies' );
-null( Params::Util::_INSTANCE(undef, 'Foo'), '...::_INSTANCE(undef) returns undef' );
-null( Params::Util::_INSTANCE('', 'Foo'), '...::_INSTANCE(nullstring) returns undef' );
-null( Params::Util::_INSTANCE(1, 'Foo'), '...::_INSTANCE(number) returns undef' );
-null( Params::Util::_INSTANCE('foo', 'Foo'), '...::_INSTANCE(string) returns undef' );
-null( Params::Util::_INSTANCE({ foo => 1 }, 'Foo'), '...::_INSTANCE(HASH) returns undef' );
-null( Params::Util::_INSTANCE(sub () { 1 }, 'Foo'), '...::_INSTANCE(CODE) returns undef' );
-null( Params::Util::_INSTANCE([], 'Foo'), '...::_INSTANCE(ARRAY) returns undef' );
-null( Params::Util::_INSTANCE(\"", 'Foo'), '...::_INSTANCE(null constant) returns undef' );
-null( Params::Util::_INSTANCE(\"foo", 'Foo'), '...::_INSTANCE(SCALAR) returns undef' );
-null( Params::Util::_INSTANCE(bless({},'Bad'), 'Foo'), '...::_INSTANCE(bad object) returns undef' );
-
-# Import the function
-use_ok( 'Params::Util', '_INSTANCE' );
-ok( defined *_INSTANCE{CODE}, '_INSTANCE imported ok' );
-
-# Test bad things against the actual function
-dies( "_INSTANCE()", qr/Not enough arguments/, '_INSTANCE() dies' );
-dies( "_INSTANCE(bless {}, 'Foo')", qr/Not enough arguments/, '_INSTANCE(object) dies' );
-null( _INSTANCE(undef, 'Foo'), '_INSTANCE(undef) returns undef' );
-null( _INSTANCE('', 'Foo'), '_INSTANCE(nullstring) returns undef' );
-null( _INSTANCE(1, 'Foo'), '_INSTANCE(number) returns undef' );
-null( _INSTANCE('foo', 'Foo'), '_INSTANCE(string) returns undef' );
-null( _INSTANCE({ foo => 1 }, 'Foo'), '_INSTANCE(HASH) returns undef' );
-null( _INSTANCE(sub () { 1 }, 'Foo'), '_INSTANCE(CODE) returns undef' );
-null( _INSTANCE([], 'Foo'), '_INSTANCE(ARRAY) returns undef' );
-null( _INSTANCE(\"", 'Foo'), '_INSTANCE(null constant) returns undef' );
-null( _INSTANCE(\"foo", 'Foo'), '_INSTANCE(SCALAR) returns undef' );
-null( _INSTANCE(bless({},'Bad'), 'Foo'), '_INSTANCE(bad object) returns undef' );
-
-# Testing good things is a little more complicated in this case,
-# so lets do the basic ones first.
-foreach my $object ( @objects ) {
- ok( Params::Util::_INSTANCE($object, 'Foo'), '...::_INSTANCE(object, class) returns true when expected' );
- is( refaddr(Params::Util::_INSTANCE($object, 'Foo')), refaddr($object), '...::_INSTANCE(object, class) returns the same object' );
-}
-
-# Testing good things is a little more complicated in this case,
-# so lets do the basic ones first.
-foreach my $object ( @objects ) {
- ok( _INSTANCE($object, 'Foo'), '_INSTANCE(object, class) returns true when expected' );
- is( refaddr(_INSTANCE($object, 'Foo')), refaddr($object), '_INSTANCE(object, class) returns the same object' );
-}
-
-
-
-
-
-#####################################################################
-# Tests for _REGEX
-
-# Test bad things against the actual function
-dies( "Params::Util::_REGEX();", qr/Not enough arguments/, '...::_REGEX() dies' );
-null( Params::Util::_REGEX(undef), '...::_REGEX(undef) returns undef' );
-null( Params::Util::_REGEX(''), '...::_REGEX(STRING0) returns undef' );
-null( Params::Util::_REGEX(1), '...::_REGEX(number) returns undef' );
-null( Params::Util::_REGEX('foo'), '...::_REGEX(string) returns undef' );
-null( Params::Util::_REGEX(\'foo'), '...::_REGEX(SCALAR) returns undef' );
-null( Params::Util::_REGEX([ 'foo' ]), '...::_REGEX(ARRAY) returns undef' );
-null( Params::Util::_REGEX(sub () { 1 }), '...::_REGEX(CODE) returns undef' );
-null( Params::Util::_REGEX({}), '...::_REGEX(HASH0) returns undef' );
-null( Params::Util::_REGEX({ foo => 1 }), '...::_REGEX(HASH) returns undef' );
-ok( Params::Util::_REGEX(qr//), '...::_REGEX(qr//) ok' );
-ok( Params::Util::_REGEX(qr/foo/), '...::_REGEX(qr//) ok' );
-
-# Import the function
-use_ok( 'Params::Util', '_REGEX' );
-ok( defined *_REGEX{CODE}, '_REGEX imported ok' );
-
-# Test bad things against the actual function
-dies( "_REGEX();", qr/Not enough arguments/, '_REGEX() dies' );
-null( _REGEX(undef), '_REGEX(undef) returns undef' );
-null( _REGEX(''), '_REGEX(STRING0) returns undef' );
-null( _REGEX(1), '_REGEX(number) returns undef' );
-null( _REGEX('foo'), '_REGEX(string) returns undef' );
-null( _REGEX(\'foo'), '_REGEX(SCALAR) returns undef' );
-null( _REGEX([]), '_REGEX(ARRAY) returns undef' );
-null( _REGEX(sub () { 1 }), '_REGEX(CODE) returns undef' );
-null( _REGEX({}), 'REGEX(HASH0) returns undef' );
-null( _REGEX({ foo => 1 }), 'REGEX(HASH) returns undef' );
-ok( _REGEX(qr//), '_REGEX(qr//) ok' );
-ok( _REGEX(qr/foo/), '_REGEX(qr//) ok' );
-
-
-
-
-
-#####################################################################
-# Tests for _SET
-
-my %set = (
- good => [ map { bless {} => 'Foo' } qw(1..3) ],
- mixed => [ map { bless {} => "Foo$_" } qw(1..3) ],
- unblessed => [ map { {} } qw(1..3) ],
-);
-
-# Test bad things against the actual function
-dies( "Params::Util::_SET()", qr/Not enough arguments/, '...::_SET() dies' );
-dies( "Params::Util::_SET([])", qr/Not enough arguments/, '...::_SET(single) dies' );
-null( Params::Util::_SET(undef, 'Foo'), '...::_SET(undef) returns undef' );
-null( Params::Util::_SET('', 'Foo'), '...::_SET(nullstring) returns undef' );
-null( Params::Util::_SET(1, 'Foo'), '...::_SET(number) returns undef' );
-null( Params::Util::_SET('foo', 'Foo'), '...::_SET(string) returns undef' );
-null( Params::Util::_SET(\'foo', 'Foo'), '...::_SET(SCALAR) returns undef' );
-null( Params::Util::_SET({ foo => 1 }, 'Foo'), '...::_SET(HASH) returns undef' );
-null( Params::Util::_SET(sub () { 1 }, 'Foo'), '...::_SET(CODE) returns undef' );
-null( Params::Util::_SET([], 'Foo'), '...::_SET(empty ARRAY) returns undef' );
-ok( Params::Util::_SET($set{good}, 'Foo'), '...::_SET(homogenous ARRAY) returns true' );
-null( Params::Util::_SET($set{mixed}, 'Foo'), '...::_SET(mixed ARRAY) returns undef' );
-null( Params::Util::_SET($set{unblessed}, 'Foo'), '...::_SET(unblessed ARRAY) returns undef' );
-
-# Import the function
-use_ok( 'Params::Util', '_SET' );
-ok( defined *_SET{CODE}, '_SET imported ok' );
-
-# Test bad things against the actual function
-dies( "_SET()", qr/Not enough arguments/, '_SET() dies' );
-dies( "_SET([])", qr/Not enough arguments/, '_SET(single) dies' );
-null( _SET(undef, 'Foo'), '_SET(undef) returns undef' );
-null( _SET('', 'Foo'), '_SET(nullstring) returns undef' );
-null( _SET(1, 'Foo'), '_SET(number) returns undef' );
-null( _SET('foo', 'Foo'), '_SET(string) returns undef' );
-null( _SET(\'foo', 'Foo'), '_SET(SCALAR) returns undef' );
-null( _SET({ foo => 1 }, 'Foo'), '_SET(HASH) returns undef' );
-null( _SET(sub () { 1 }, 'Foo'), '_SET(CODE) returns undef' );
-null( _SET([], 'Foo'), '_SET(empty ARRAY) returns undef' );
-
-ok( _SET($set{good}, 'Foo'), '_SET(homogenous ARRAY) returns true');
-null( _SET($set{mixed}, 'Foo'), '_SET(mixed ARRAY) returns undef');
-null( _SET($set{unblessed}, 'Foo'), '_SET(unblessed ARRAY) returns undef');
-
-
-
-
-#####################################################################
-# Tests for _SET0
-
-# Test bad things against the actual function
-dies( "Params::Util::_SET0()", qr/Not enough arguments/, '...::_SET0() dies' );
-dies( "Params::Util::_SET0([])", qr/Not enough arguments/, '...::_SET0(single) dies' );
-null( Params::Util::_SET0(undef, 'Foo'), '...::_SET0(undef) returns undef' );
-null( Params::Util::_SET0('', 'Foo'), '...::_SET0(nullstring) returns undef' );
-null( Params::Util::_SET0(1, 'Foo'), '...::_SET0(number) returns undef' );
-null( Params::Util::_SET0('foo', 'Foo'), '...::_SET0(string) returns undef' );
-null( Params::Util::_SET0(\'foo', 'Foo'), '...::_SET0(SCALAR) returns undef' );
-null( Params::Util::_SET0({ foo => 1 }, 'Foo'), '...::_SET0(HASH) returns undef' );
-null( Params::Util::_SET0(sub () { 1 }, 'Foo'), '...::_SET0(CODE) returns undef' );
-ok( Params::Util::_SET0([], 'Foo'), '...::_SET0(empty ARRAY) returns true' );
-ok( Params::Util::_SET0($set{good}, 'Foo'), '...::_SET0(homogenous ARRAY) returns true' );
-null( Params::Util::_SET0($set{mixed}, 'Foo'), '...::_SET0(mixed ARRAY) returns undef' );
-null( Params::Util::_SET0($set{unblessed}, 'Foo'), '...::_SET0(unblessed ARRAY) returns undef' );
-
-# Import the function
-use_ok( 'Params::Util', '_SET0' );
-ok( defined *_SET0{CODE}, '_SET0 imported ok' );
-
-# Test bad things against the actual function
-dies( "_SET0()", qr/Not enough arguments/, '_SET0() dies' );
-dies( "_SET0([])", qr/Not enough arguments/, '_SET0(single) dies' );
-null( _SET0(undef, 'Foo'), '_SET0(undef) returns undef' );
-null( _SET0('', 'Foo'), '_SET0(nullstring) returns undef' );
-null( _SET0(1, 'Foo'), '_SET0(number) returns undef' );
-null( _SET0('foo', 'Foo'), '_SET0(string) returns undef' );
-null( _SET0(\'foo', 'Foo'), '_SET0(SCALAR) returns undef' );
-null( _SET0({ foo => 1 }, 'Foo'), '_SET0(HASH) returns undef' );
-null( _SET0(sub () { 1 }, 'Foo'), '_SET0(CODE) returns undef' );
-ok( _SET0([], 'Foo'), '_SET0(empty ARRAY) returns true' );
-ok( _SET0($set{good}, 'Foo'), '_SET0(homogenous ARRAY) returns true' );
-null( _SET0($set{mixed}, 'Foo'), '_SET0(mixed ARRAY) returns undef' );
-null( _SET0($set{unblessed}, 'Foo'), '_SET0(unblessed ARRAY) returns undef' );
-
-
-
-
-
-exit(0);
-
-# Base class
-package Foo;
-
-sub foo { 1 }
-
-# Normal inheritance
-package Bar;
-
-use vars qw{@ISA};
-BEGIN {
- @ISA = 'Foo';
-}
-
-# Coded isa
-package Baz;
-
-sub isa {
- return 1 if $_[1] eq 'Foo';
- shift->SUPER::isa(@_);
-}
-
-# Not a subclass
-package Bad;
-
-sub bad { 1 }
-
-1;
diff --git a/3.8.8/sources/cpan-Params-Util/vendor/t/04_codelike.t b/3.8.8/sources/cpan-Params-Util/vendor/t/04_codelike.t
deleted file mode 100644
index 2762c71..0000000
--- a/3.8.8/sources/cpan-Params-Util/vendor/t/04_codelike.t
+++ /dev/null
@@ -1,134 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-BEGIN {
- $| = 1;
- $^W = 1;
- $ENV{PERL_PARAMS_UTIL_PP} ||= 0;
-}
-
-sub _CODELIKE($);
-
-use Test::More;
-use File::Spec::Functions ':ALL';
-use Scalar::Util qw(
- blessed
- reftype
- refaddr
-);
-use overload;
-
-sub c_ok { is(
- refaddr(_CODELIKE($_[0])),
- refaddr($_[0]),
- "callable: $_[1]",
-) }
-
-sub nc_ok {
- my $left = shift;
- $left = _CODELIKE($left);
- is( $left, undef, "not callable: $_[0]" );
-}
-
-my @callables = (
- "callable itself" => \&_CODELIKE,
- "a boring plain code ref" => sub {},
- 'an object with overloaded &{}' => C::O->new,
- 'a object build from a coderef' => C::C->new,
- 'an object with inherited overloaded &{}' => C::O::S->new,
- 'a coderef blessed into CODE' => (bless sub {} => 'CODE'),
-);
-
-my @uncallables = (
- "undef" => undef,
- "a string" => "a string",
- "a number" => 19780720,
- "a ref to a ref to code" => \(sub {}),
- "a boring plain hash ref" => {},
- 'a class that builds from coderefs' => "C::C",
- 'a class with overloaded &{}' => "C::O",
- 'a class with inherited overloaded &{}' => "C::O::S",
- 'a plain boring hash-based object' => UC->new,
- 'a non-coderef blessed into CODE' => (bless {} => 'CODE'),
-);
-
-my $tests = (@callables + @uncallables) / 2 + 2;
-
-if ( $] > 5.006 ) {
- push @uncallables, 'a regular expression', qr/foo/;
- $tests += 1;
-}
-
-plan tests => $tests;
-
-# Import the function
-use_ok( 'Params::Util', '_CODELIKE' );
-ok( defined *_CODELIKE{CODE}, '_CODELIKE imported ok' );
-
-while ( @callables ) {
- my $name = shift @callables;
- my $object = shift @callables;
- c_ok( $object, $name );
-}
-
-while ( @uncallables ) {
- my $name = shift @uncallables;
- my $object = shift @uncallables;
- nc_ok( $object, $name );
-}
-
-
-
-
-
-######################################################################
-# callable: is a blessed code ref
-
-package C::C;
-
-sub new {
- bless sub {} => shift;
-}
-
-
-
-
-
-######################################################################
-# callable: overloads &{}
-# but only objects are callable, not class
-
-package C::O;
-
-sub new {
- bless {} => shift;
-}
-use overload '&{}' => sub { sub {} };
-use overload 'bool' => sub () { 1 };
-
-
-
-
-
-######################################################################
-# callable: subclasses C::O
-
-package C::O::S;
-
-use vars qw{@ISA};
-BEGIN {
- @ISA = 'C::O';
-}
-
-
-
-
-
-######################################################################
-# uncallable: some boring object with no codey magic
-
-package UC;
-
-sub new {
- bless {} => shift;
-}
diff --git a/3.8.8/sources/cpan-Params-Util/vendor/t/05_typelike.t b/3.8.8/sources/cpan-Params-Util/vendor/t/05_typelike.t
deleted file mode 100644
index f5f4391..0000000
--- a/3.8.8/sources/cpan-Params-Util/vendor/t/05_typelike.t
+++ /dev/null
@@ -1,87 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-BEGIN {
- $| = 1;
- $^W = 1;
- $ENV{PERL_PARAMS_UTIL_PP} ||= 0;
-}
-
-use Test::More tests => 44;
-use Scalar::Util 'refaddr';
-use File::Spec::Functions ':ALL';
-use Params::Util qw{_ARRAYLIKE _HASHLIKE};
-
-# Tests that two objects are the same object
-sub addr {
- my $have = shift;
- my $want = shift;
- is( refaddr($have), refaddr($want), 'Objects are the same object' );
-}
-
-my $listS = bless \do { my $i } => 'Foo::Listy';
-my $hashS = bless \do { my $i } => 'Foo::Hashy';
-my $bothS = bless \do { my $i } => 'Foo::Bothy';
-
-my $listH = bless {} => 'Foo::Listy';
-my $hashH = bless {} => 'Foo::Hashy';
-my $bothH = bless {} => 'Foo::Bothy';
-
-my $listA = bless [] => 'Foo::Listy';
-my $hashA = bless [] => 'Foo::Hashy';
-my $bothA = bless [] => 'Foo::Bothy';
-
-my @data = (# A H
- [ undef , 0, 0, 'undef' ],
- [ 1000 => 0, 0, '1000' ],
- [ 'Foo' => 0, 0, '"Foo"' ],
- [ [] => 1, 0, '[]' ],
- [ {} => 0, 1, '{}' ],
- [ $listS => 1, 0, 'scalar-based Foo::Listy' ],
- [ $hashS => 0, 1, 'scalar-based Foo::Hashy' ],
- [ $bothS => 1, 1, 'scalar-based Foo::Bothy' ],
- [ $listH => 1, 1, 'hash-based Foo::Listy' ],
- [ $hashH => 0, 1, 'hash-based Foo::Hashy' ],
- [ $bothH => 1, 1, 'hash-based Foo::Bothy' ],
- [ $listA => 1, 0, 'array-based Foo::Listy' ],
- [ $hashA => 1, 1, 'array-based Foo::Hashy' ],
- [ $bothA => 1, 1, 'array-based Foo::Bothy' ],
-);
-
-for my $t (@data) {
- is(
- _ARRAYLIKE($t->[0]) ? 1 : 0,
- $t->[1],
- "$t->[3] " . ($t->[1] ? 'is' : "isn't") . ' @ish'
- );
- if ( _ARRAYLIKE($t->[0]) ) {
- addr( _ARRAYLIKE($t->[0]), $t->[0] );
- }
- is(
- _HASHLIKE( $t->[0]) ? 1 : 0,
- $t->[2],
- "$t->[3] " . ($t->[2] ? 'is' : "isn't") . ' %ish'
- );
- if ( _HASHLIKE($t->[0]) ) {
- addr( _HASHLIKE($t->[0]), $t->[0] );
- }
-}
-
-package Foo;
-# this package is totally unremarkable;
-
-package Foo::Listy;
-use overload
- '@{}' => sub { [] },
- fallback => 1;
-
-package Foo::Hashy;
-use overload
- '%{}' => sub { {} },
- fallback => 1;
-
-package Foo::Bothy;
-use overload
- '@{}' => sub { [] },
- '%{}' => sub { {} },
- fallback => 1;
diff --git a/3.8.8/sources/cpan-Params-Util/vendor/t/09_insideout.t b/3.8.8/sources/cpan-Params-Util/vendor/t/09_insideout.t
deleted file mode 100644
index 90cb327..0000000
--- a/3.8.8/sources/cpan-Params-Util/vendor/t/09_insideout.t
+++ /dev/null
@@ -1,53 +0,0 @@
-#!/usr/bin/perl
-
-# Test for a custom isa method that returns the same way that
-# Object::InsideOut does.
-
-use strict;
-BEGIN {
- $| = 1;
- $^W = 1;
- $ENV{PERL_PARAMS_UTIL_PP} ||= 0;
-}
-
-use Test::More tests => 2;
-use Scalar::Util ();
-use Params::Util ();
-
-
-
-
-
-#####################################################################
-# Create an object and test it
-
-SCOPE: {
- my $object = Foo->new;
- ok( Scalar::Util::blessed($object), 'Foo' );
- my $instance = Params::Util::_INSTANCE($object, 'Foo');
- is( $instance, undef, '_INSTANCE correctly returns undef' );
-}
-
-
-
-
-
-#####################################################################
-# Create a package to simulate Object::InsideOut
-
-CLASS: {
- package Foo;
-
- sub new {
- my $foo = 1234;
- my $self = \$foo;
- bless $self, $_[0];
- return $self;
- }
-
- sub isa {
- return ('');
- }
-
- 1;
-}
diff --git a/3.8.8/sources/cpan-Params-Util/vendor/t/driver/D.pm b/3.8.8/sources/cpan-Params-Util/vendor/t/driver/D.pm
deleted file mode 100644
index 1b147a5..0000000
--- a/3.8.8/sources/cpan-Params-Util/vendor/t/driver/D.pm
+++ /dev/null
@@ -1,16 +0,0 @@
-package D;
-
-# This is our broken driver class
-
-use strict;
-
-use A ();
-use vars qw{$VERSION @ISA};
-BEGIN {
- $VERSION = '0.01';
- @ISA = 'A';
-}
-
-sub dummy { 1 }
-
-0;
diff --git a/3.8.8/sources/cpan-Params-Util/vendor/t/driver/F.pm b/3.8.8/sources/cpan-Params-Util/vendor/t/driver/F.pm
deleted file mode 100644
index e7592d6..0000000
--- a/3.8.8/sources/cpan-Params-Util/vendor/t/driver/F.pm
+++ /dev/null
@@ -1,24 +0,0 @@
-package F;
-
-# This is a driver with a faked ->isa
-
-use strict;
-
-use vars qw{$VERSION};
-BEGIN {
- $VERSION = '0.01';
-}
-
-sub isa {
- my $class = shift;
- my $parent = shift;
- if ( defined $parent and ! ref $parent and $parent eq 'A' ) {
- return !!1;
- } else {
- return !1;
- }
-}
-
-sub dummy { 1 }
-
-1;
diff --git a/3.8.8/sources/cpan-Params-Util/vendor/xt/meta.t b/3.8.8/sources/cpan-Params-Util/vendor/xt/meta.t
deleted file mode 100644
index 3dfec73..0000000
--- a/3.8.8/sources/cpan-Params-Util/vendor/xt/meta.t
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/bin/perl
-
-# Test that our META.yml file matches the current specification.
-
-use strict;
-BEGIN {
- $| = 1;
- $^W = 1;
-}
-
-my $MODULE = 'Test::CPAN::Meta 0.12';
-
-# Don't run tests for installs
-use Test::More;
-unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
- plan( skip_all => "Author tests not required for installation" );
-}
-
-# Load the testing module
-eval "use $MODULE";
-if ( $@ ) {
- $ENV{RELEASE_TESTING}
- ? die( "Failed to load required release-testing module $MODULE" )
- : plan( skip_all => "$MODULE not available for testing" );
-}
-
-meta_yaml_ok();
diff --git a/3.8.8/sources/cpan-Params-Util/vendor/xt/pmv.t b/3.8.8/sources/cpan-Params-Util/vendor/xt/pmv.t
deleted file mode 100644
index aaf6a65..0000000
--- a/3.8.8/sources/cpan-Params-Util/vendor/xt/pmv.t
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/perl
-
-# Test that our declared minimum Perl version matches our syntax
-
-use strict;
-BEGIN {
- $| = 1;
- $^W = 1;
-}
-
-my @MODULES = (
- 'Perl::MinimumVersion 1.20',
- 'Test::MinimumVersion 0.008',
-);
-
-# Don't run tests for installs
-use Test::More;
-unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
- plan( skip_all => "Author tests not required for installation" );
-}
-
-# Load the testing modules
-foreach my $MODULE ( @MODULES ) {
- eval "use $MODULE";
- if ( $@ ) {
- $ENV{RELEASE_TESTING}
- ? die( "Failed to load required release-testing module $MODULE" )
- : plan( skip_all => "$MODULE not available for testing" );
- }
-}
-
-all_minimum_version_from_metayml_ok();
diff --git a/3.8.8/sources/cpan-PathTools/vendor/Cwd.xs b/3.8.8/sources/cpan-PathTools/vendor/Cwd.xs
deleted file mode 100644
index 123be68..0000000
--- a/3.8.8/sources/cpan-PathTools/vendor/Cwd.xs
+++ /dev/null
@@ -1,492 +0,0 @@
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-#define NEED_my_strlcpy
-#define NEED_my_strlcat
-#include "ppport.h"
-
-#ifdef I_UNISTD
-# include <unistd.h>
-#endif
-
-/* The realpath() implementation from OpenBSD 3.9 to 4.2 (realpath.c 1.13)
- * Renamed here to bsd_realpath() to avoid library conflicts.
- */
-
-/* See
- * http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2004-11/msg00979.html
- * for the details of why the BSD license is compatible with the
- * AL/GPL standard perl license.
- */
-
-/*
- * Copyright (c) 2003 Constantin S. Svintsoff <kostik at iclub.nsu.ru>
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions
- * are met:
- * 1. Redistributions of source code must retain the above copyright
- * notice, this list of conditions and the following disclaimer.
- * 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.
- * 3. The names of the authors may not be used to endorse or promote
- * products derived from this software without specific prior written
- * permission.
- *
- * THIS SOFTWARE IS PROVIDED BY THE AUTHOR 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 AUTHOR 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.
- */
-
-/* OpenBSD system #includes removed since the Perl ones should do. --jhi */
-
-#ifndef MAXSYMLINKS
-#define MAXSYMLINKS 8
-#endif
-
-/*
- * char *realpath(const char *path, char resolved[MAXPATHLEN]);
- *
- * Find the real name of path, by removing all ".", ".." and symlink
- * components. Returns (resolved) on success, or (NULL) on failure,
- * in which case the path which caused trouble is left in (resolved).
- */
-static
-char *
-bsd_realpath(const char *path, char resolved[MAXPATHLEN])
-{
-#ifdef VMS
- dTHX;
- return Perl_rmsexpand(aTHX_ (char*)path, resolved, NULL, 0);
-#else
- char *p, *q, *s;
- size_t left_len, resolved_len;
- unsigned symlinks;
- int serrno;
- char left[MAXPATHLEN], next_token[MAXPATHLEN], symlink[MAXPATHLEN];
-
- serrno = errno;
- symlinks = 0;
- if (path[0] == '/') {
- resolved[0] = '/';
- resolved[1] = '\0';
- if (path[1] == '\0')
- return (resolved);
- resolved_len = 1;
- left_len = my_strlcpy(left, path + 1, sizeof(left));
- } else {
- if (getcwd(resolved, MAXPATHLEN) == NULL) {
- my_strlcpy(resolved, ".", MAXPATHLEN);
- return (NULL);
- }
- resolved_len = strlen(resolved);
- left_len = my_strlcpy(left, path, sizeof(left));
- }
- if (left_len >= sizeof(left) || resolved_len >= MAXPATHLEN) {
- errno = ENAMETOOLONG;
- return (NULL);
- }
-
- /*
- * Iterate over path components in `left'.
- */
- while (left_len != 0) {
- /*
- * Extract the next path component and adjust `left'
- * and its length.
- */
- p = strchr(left, '/');
- s = p ? p : left + left_len;
- if (s - left >= sizeof(next_token)) {
- errno = ENAMETOOLONG;
- return (NULL);
- }
- memcpy(next_token, left, s - left);
- next_token[s - left] = '\0';
- left_len -= s - left;
- if (p != NULL)
- memmove(left, s + 1, left_len + 1);
- if (resolved[resolved_len - 1] != '/') {
- if (resolved_len + 1 >= MAXPATHLEN) {
- errno = ENAMETOOLONG;
- return (NULL);
- }
- resolved[resolved_len++] = '/';
- resolved[resolved_len] = '\0';
- }
- if (next_token[0] == '\0')
- continue;
- else if (strcmp(next_token, ".") == 0)
- continue;
- else if (strcmp(next_token, "..") == 0) {
- /*
- * Strip the last path component except when we have
- * single "/"
- */
- if (resolved_len > 1) {
- resolved[resolved_len - 1] = '\0';
- q = strrchr(resolved, '/') + 1;
- *q = '\0';
- resolved_len = q - resolved;
- }
- continue;
- }
-
- /*
- * Append the next path component and lstat() it. If
- * lstat() fails we still can return successfully if
- * there are no more path components left.
- */
- resolved_len = my_strlcat(resolved, next_token, MAXPATHLEN);
- if (resolved_len >= MAXPATHLEN) {
- errno = ENAMETOOLONG;
- return (NULL);
- }
- #if defined(HAS_LSTAT) && defined(HAS_READLINK) && defined(HAS_SYMLINK)
- {
- struct stat sb;
- if (lstat(resolved, &sb) != 0) {
- if (errno == ENOENT && p == NULL) {
- errno = serrno;
- return (resolved);
- }
- return (NULL);
- }
- if (S_ISLNK(sb.st_mode)) {
- int slen;
-
- if (symlinks++ > MAXSYMLINKS) {
- errno = ELOOP;
- return (NULL);
- }
- slen = readlink(resolved, symlink, sizeof(symlink) - 1);
- if (slen < 0)
- return (NULL);
- symlink[slen] = '\0';
- if (symlink[0] == '/') {
- resolved[1] = 0;
- resolved_len = 1;
- } else if (resolved_len > 1) {
- /* Strip the last path component. */
- resolved[resolved_len - 1] = '\0';
- q = strrchr(resolved, '/') + 1;
- *q = '\0';
- resolved_len = q - resolved;
- }
-
- /*
- * If there are any path components left, then
- * append them to symlink. The result is placed
- * in `left'.
- */
- if (p != NULL) {
- if (symlink[slen - 1] != '/') {
- if (slen + 1 >= sizeof(symlink)) {
- errno = ENAMETOOLONG;
- return (NULL);
- }
- symlink[slen] = '/';
- symlink[slen + 1] = 0;
- }
- left_len = my_strlcat(symlink, left, sizeof(left));
- if (left_len >= sizeof(left)) {
- errno = ENAMETOOLONG;
- return (NULL);
- }
- }
- left_len = my_strlcpy(left, symlink, sizeof(left));
- }
- }
- #endif
- }
-
- /*
- * Remove trailing slash except when the resolved pathname
- * is a single "/".
- */
- if (resolved_len > 1 && resolved[resolved_len - 1] == '/')
- resolved[resolved_len - 1] = '\0';
- return (resolved);
-#endif
-}
-
-#ifndef SV_CWD_RETURN_UNDEF
-#define SV_CWD_RETURN_UNDEF \
-sv_setsv(sv, &PL_sv_undef); \
-return FALSE
-#endif
-
-#ifndef OPpENTERSUB_HASTARG
-#define OPpENTERSUB_HASTARG 32 /* Called from OP tree. */
-#endif
-
-#ifndef dXSTARG
-#define dXSTARG SV * targ = ((PL_op->op_private & OPpENTERSUB_HASTARG) \
- ? PAD_SV(PL_op->op_targ) : sv_newmortal())
-#endif
-
-#ifndef XSprePUSH
-#define XSprePUSH (sp = PL_stack_base + ax - 1)
-#endif
-
-#ifndef SV_CWD_ISDOT
-#define SV_CWD_ISDOT(dp) \
- (dp->d_name[0] == '.' && (dp->d_name[1] == '\0' || \
- (dp->d_name[1] == '.' && dp->d_name[2] == '\0')))
-#endif
-
-#ifndef getcwd_sv
-/* Taken from perl 5.8's util.c */
-#define getcwd_sv(a) Perl_getcwd_sv(aTHX_ a)
-int Perl_getcwd_sv(pTHX_ register SV *sv)
-{
-#ifndef PERL_MICRO
-
-#ifndef INCOMPLETE_TAINTS
- SvTAINTED_on(sv);
-#endif
-
-#ifdef HAS_GETCWD
- {
- char buf[MAXPATHLEN];
-
- /* Some getcwd()s automatically allocate a buffer of the given
- * size from the heap if they are given a NULL buffer pointer.
- * The problem is that this behaviour is not portable. */
- if (getcwd(buf, sizeof(buf) - 1)) {
- STRLEN len = strlen(buf);
- sv_setpvn(sv, buf, len);
- return TRUE;
- }
- else {
- sv_setsv(sv, &PL_sv_undef);
- return FALSE;
- }
- }
-
-#else
- {
- Stat_t statbuf;
- int orig_cdev, orig_cino, cdev, cino, odev, oino, tdev, tino;
- int namelen, pathlen=0;
- DIR *dir;
- Direntry_t *dp;
-
- (void)SvUPGRADE(sv, SVt_PV);
-
- if (PerlLIO_lstat(".", &statbuf) < 0) {
- SV_CWD_RETURN_UNDEF;
- }
-
- orig_cdev = statbuf.st_dev;
- orig_cino = statbuf.st_ino;
- cdev = orig_cdev;
- cino = orig_cino;
-
- for (;;) {
- odev = cdev;
- oino = cino;
-
- if (PerlDir_chdir("..") < 0) {
- SV_CWD_RETURN_UNDEF;
- }
- if (PerlLIO_stat(".", &statbuf) < 0) {
- SV_CWD_RETURN_UNDEF;
- }
-
- cdev = statbuf.st_dev;
- cino = statbuf.st_ino;
-
- if (odev == cdev && oino == cino) {
- break;
- }
- if (!(dir = PerlDir_open("."))) {
- SV_CWD_RETURN_UNDEF;
- }
-
- while ((dp = PerlDir_read(dir)) != NULL) {
-#ifdef DIRNAMLEN
- namelen = dp->d_namlen;
-#else
- namelen = strlen(dp->d_name);
-#endif
- /* skip . and .. */
- if (SV_CWD_ISDOT(dp)) {
- continue;
- }
-
- if (PerlLIO_lstat(dp->d_name, &statbuf) < 0) {
- SV_CWD_RETURN_UNDEF;
- }
-
- tdev = statbuf.st_dev;
- tino = statbuf.st_ino;
- if (tino == oino && tdev == odev) {
- break;
- }
- }
-
- if (!dp) {
- SV_CWD_RETURN_UNDEF;
- }
-
- if (pathlen + namelen + 1 >= MAXPATHLEN) {
- SV_CWD_RETURN_UNDEF;
- }
-
- SvGROW(sv, pathlen + namelen + 1);
-
- if (pathlen) {
- /* shift down */
- Move(SvPVX(sv), SvPVX(sv) + namelen + 1, pathlen, char);
- }
-
- /* prepend current directory to the front */
- *SvPVX(sv) = '/';
- Move(dp->d_name, SvPVX(sv)+1, namelen, char);
- pathlen += (namelen + 1);
-
-#ifdef VOID_CLOSEDIR
- PerlDir_close(dir);
-#else
- if (PerlDir_close(dir) < 0) {
- SV_CWD_RETURN_UNDEF;
- }
-#endif
- }
-
- if (pathlen) {
- SvCUR_set(sv, pathlen);
- *SvEND(sv) = '\0';
- SvPOK_only(sv);
-
- if (PerlDir_chdir(SvPVX(sv)) < 0) {
- SV_CWD_RETURN_UNDEF;
- }
- }
- if (PerlLIO_stat(".", &statbuf) < 0) {
- SV_CWD_RETURN_UNDEF;
- }
-
- cdev = statbuf.st_dev;
- cino = statbuf.st_ino;
-
- if (cdev != orig_cdev || cino != orig_cino) {
- Perl_croak(aTHX_ "Unstable directory path, "
- "current directory changed unexpectedly");
- }
-
- return TRUE;
- }
-#endif
-
-#else
- return FALSE;
-#endif
-}
-
-#endif
-
-
-MODULE = Cwd PACKAGE = Cwd
-
-PROTOTYPES: ENABLE
-
-void
-fastcwd()
-PROTOTYPE: DISABLE
-PPCODE:
-{
- dXSTARG;
- getcwd_sv(TARG);
- XSprePUSH; PUSHTARG;
-#ifndef INCOMPLETE_TAINTS
- SvTAINTED_on(TARG);
-#endif
-}
-
-void
-getcwd(...)
-PROTOTYPE: DISABLE
-PPCODE:
-{
- dXSTARG;
- getcwd_sv(TARG);
- XSprePUSH; PUSHTARG;
-#ifndef INCOMPLETE_TAINTS
- SvTAINTED_on(TARG);
-#endif
-}
-
-void
-abs_path(pathsv=Nullsv)
- SV *pathsv
-PROTOTYPE: DISABLE
-PPCODE:
-{
- dXSTARG;
- char *path;
- char buf[MAXPATHLEN];
-
- path = pathsv ? SvPV_nolen(pathsv) : (char *)".";
-
- if (bsd_realpath(path, buf)) {
- sv_setpvn(TARG, buf, strlen(buf));
- SvPOK_only(TARG);
- SvTAINTED_on(TARG);
- }
- else
- sv_setsv(TARG, &PL_sv_undef);
-
- XSprePUSH; PUSHTARG;
-#ifndef INCOMPLETE_TAINTS
- SvTAINTED_on(TARG);
-#endif
-}
-
-#if defined(WIN32) && !defined(UNDER_CE)
-
-void
-getdcwd(...)
-PPCODE:
-{
- dXSTARG;
- int drive;
- char *dir;
-
- /* Drive 0 is the current drive, 1 is A:, 2 is B:, 3 is C: and so on. */
- if ( items == 0 ||
- (items == 1 && (!SvOK(ST(0)) || (SvPOK(ST(0)) && !SvCUR(ST(0))))))
- drive = 0;
- else if (items == 1 && SvPOK(ST(0)) && SvCUR(ST(0)) &&
- isALPHA(SvPVX(ST(0))[0]))
- drive = toUPPER(SvPVX(ST(0))[0]) - 'A' + 1;
- else
- croak("Usage: getdcwd(DRIVE)");
-
- New(0,dir,MAXPATHLEN,char);
- if (_getdcwd(drive, dir, MAXPATHLEN)) {
- sv_setpvn(TARG, dir, strlen(dir));
- SvPOK_only(TARG);
- }
- else
- sv_setsv(TARG, &PL_sv_undef);
-
- Safefree(dir);
-
- XSprePUSH; PUSHTARG;
-#ifndef INCOMPLETE_TAINTS
- SvTAINTED_on(TARG);
-#endif
-}
-
-#endif
diff --git a/3.8.8/sources/cpan-PathTools/vendor/lib/File/Spec.pm b/3.8.8/sources/cpan-PathTools/vendor/lib/File/Spec.pm
deleted file mode 100644
index 40c7316..0000000
--- a/3.8.8/sources/cpan-PathTools/vendor/lib/File/Spec.pm
+++ /dev/null
@@ -1,336 +0,0 @@
-package File::Spec;
-
-use strict;
-use vars qw(@ISA $VERSION);
-
-$VERSION = '3.31';
-$VERSION = eval $VERSION;
-
-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');
-
-
-my $module = $module{$^O} || 'Unix';
-
-require "File/Spec/$module.pm";
- at 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.
-
- $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 at cpan.org> >>.
-
-The vast majority of the code was written by
-Kenneth Albanowski C<< <kjahds at kjahds.com> >>,
-Andy Dougherty C<< <doughera at lafayette.edu> >>,
-Andreas KE<ouml>nig C<< <A.Koenig at franz.ww.TU-Berlin.DE> >>,
-Tim Bunce C<< <Tim.Bunce at ig.co.uk> >>.
-VMS support by Charles Bailey C<< <bailey at newman.upenn.edu> >>.
-OS/2 support by Ilya Zakharevich C<< <ilya at math.ohio-state.edu> >>.
-Mac support by Paul Schinder C<< <schinder at pobox.com> >>, and
-Thomas Wegner C<< <wegner_thomas at yahoo.com> >>.
-abs2rel() and rel2abs() written by Shigio Yamaguchi C<< <shigio at tamacom.com> >>,
-modified by Barrie Slaymaker C<< <barries at slaysys.com> >>.
-splitpath(), splitdir(), catpath() and catdir() by Barrie Slaymaker.
-
-=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/3.8.8/sources/cpan-PathTools/vendor/lib/File/Spec/Epoc.pm b/3.8.8/sources/cpan-PathTools/vendor/lib/File/Spec/Epoc.pm
deleted file mode 100644
index 54ff667..0000000
--- a/3.8.8/sources/cpan-PathTools/vendor/lib/File/Spec/Epoc.pm
+++ /dev/null
@@ -1,79 +0,0 @@
-package File::Spec::Epoc;
-
-use strict;
-use vars qw($VERSION @ISA);
-
-$VERSION = '3.30';
-$VERSION = eval $VERSION;
-
-require File::Spec::Unix;
- at 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 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 at 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/3.8.8/sources/cpan-PathTools/vendor/lib/File/Spec/Mac.pm b/3.8.8/sources/cpan-PathTools/vendor/lib/File/Spec/Mac.pm
deleted file mode 100644
index 8b47470..0000000
--- a/3.8.8/sources/cpan-PathTools/vendor/lib/File/Spec/Mac.pm
+++ /dev/null
@@ -1,781 +0,0 @@
-package File::Spec::Mac;
-
-use strict;
-use vars qw(@ISA $VERSION);
-require File::Spec::Unix;
-
-$VERSION = '3.30';
-$VERSION = eval $VERSION;
-
- at 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
-
-my $tmpdir;
-sub tmpdir {
- return $tmpdir if defined $tmpdir;
- $tmpdir = $_[0]->_tmpdir( $ENV{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
-
- # igonore $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 at pobox.com> and Thomas Wegner <wegner_thomas at 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/3.8.8/sources/cpan-PathTools/vendor/lib/File/Spec/VMS.pm b/3.8.8/sources/cpan-PathTools/vendor/lib/File/Spec/VMS.pm
deleted file mode 100644
index 34b592a..0000000
--- a/3.8.8/sources/cpan-PathTools/vendor/lib/File/Spec/VMS.pm
+++ /dev/null
@@ -1,1165 +0,0 @@
-package File::Spec::VMS;
-
-use strict;
-use vars qw(@ISA $VERSION);
-require File::Spec::Unix;
-
-$VERSION = '3.30';
-$VERSION = eval $VERSION;
-
- at 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 mode of operation of these routines depend on the VMS features that
-are controlled by the DECC features C<DECC$FILENAME_REPORT_UNIX> and
-C<DECC$EFS_CHARSET>.
-
-Perl needs to be at least at 5.10 for these feature settings to work.
-Use of them on older perl versions on VMS will result in unpredictable
-operations.
-
-The default and traditional mode of these routines have been to expect VMS
-syntax on input and to return VMS syntax on output, even when Unix syntax was
-given on input.
-
-The default and traditional mode is also incompatible with the VMS
-C<EFS>, Extended File system character set, and with running Perl scripts
-under <GNV>, Gnu is not VMS, an optional Unix like runtime environment on VMS.
-
-If the C<DECC$EFS_CHARSET> feature is enabled, These routines will now accept
-either VMS or UNIX syntax. If the input parameters are clearly VMS syntax,
-the return value will be in VMS syntax. If the input parameters are clearly
-in Unix syntax, the output will be in Unix syntax.
-
-This corresponds to the way that the VMS C library routines have always
-handled filenames, and what a programmer who has not specifically read this
-pod before would also expect.
-
-If the C<DECC$FILENAME_REPORT_UNIX> feature is enabled, then if the output
-syntax can not be determined from the input syntax, the output syntax will be
-UNIX. If the feature is not enabled, VMS output will be the default.
-
-=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__}; 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;
-}
-
-# Need to look up the EFS character set mode. This may become a dynamic
-# mode in the future.
-sub _efs {
- my $efs;
- if ($use_feature) {
- $efs = VMS::Feature::current("efs_charset");
- } else {
- my $env_efs = $ENV{'DECC$EFS_CHARSET'} || '';
- $efs = $env_efs =~ /^[ET1]/i;
- }
- return $efs;
-}
-
-=item canonpath (override)
-
-Removes redundant portions of file specifications according to the syntax
-detected.
-
-=cut
-
-
-sub canonpath {
- my($self,$path) = @_;
-
- return undef unless defined $path;
-
- my $efs = $self->_efs;
-
- if ($path =~ m|/|) { # Fake Unix
- my $pathify = $path =~ m|/\Z(?!\n)|;
- $path = $self->SUPER::canonpath($path);
-
- # Do not convert to VMS when EFS character sets are in use
- return $path if $efs;
-
- if ($pathify) { return vmspath($path); }
- else { return vmsify($path); }
- }
- else {
-
-#FIXME - efs parsing has different rules. Characters in a VMS filespec
-# are only delimiters if not preceded by '^';
-
- $path =~ tr/<>/[]/; # < and > ==> [ and ]
- $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.-] ==> ]
- $path =~ s/\[[^\]\.]+\.-\]/\[000000\]/g;# [foo.-] ==> [000000]
- $path =~ s/\[\]// unless $path eq '[]'; # [] ==>
- return $path;
- }
-}
-
-=item catdir (override)
-
-Concatenates a list of file specifications, and returns the result as a
-directory specification. 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 $efs = $self->_efs;
- my $unix_rpt = $self->_unix_rpt;
-
-
- my @dirs = grep {defined() && length()} @_;
- if ($efs) {
- # Legacy mode removes blank entries.
- # But that breaks existing generic perl code that
- # uses a blank path at the beginning of the array
- # to indicate an absolute path.
- # So put it back if found.
- if (@_) {
- if ($_[0] eq '') {
- unshift @dirs, '';
- }
- }
- }
-
- my $rslt;
- if (@dirs) {
- my $path = (@dirs == 1 ? $dirs[0] : $self->catdir(@dirs));
- my ($spath,$sdir) = ($path,$dir);
-
- if ($efs) {
- # Extended character set in use, go into DWIM mode.
-
- # Now we need to identify what the directory is in
- # of the specification in order to merge them.
- my $path_unix = 0;
- $path_unix = 1 if ($path =~ m#/#);
- $path_unix = 1 if ($path =~ /^\.\.?$/);
- my $path_vms = 0;
- $path_vms = 1 if ($path =~ m#[\[<\]]#);
- $path_vms = 1 if ($path =~ /^--?$/);
- my $dir_unix = 0;
- $dir_unix = 1 if ($dir =~ m#/#);
- $dir_unix = 1 if ($dir =~ /^\.\.?$/);
- my $dir_vms = 0;
- $dir_vms = 1 if ($dir =~ m#[\[<\]]#);
- $dir_vms = 1 if ($dir =~ /^--?$/);
-
- my $unix_mode = 0;
- if (($path_unix != $dir_unix) && ($path_vms != $dir_vms)) {
- # Ambiguous, so if in $unix_rpt mode then assume UNIX.
- $unix_mode = 1 if $unix_rpt;
- } else {
- $unix_mode = 1 if (!$path_vms && !$dir_vms && $unix_rpt);
- $unix_mode = 1 if ($path_unix || $dir_unix);
- }
-
- if ($unix_mode) {
-
- # Fix up mixed syntax imput as good as possible - GIGO
- $path = unixify($path) if $path_vms;
- $dir = unixify($dir) if $dir_vms;
-
- $rslt = $path;
- # Append a path delimiter
- $rslt .= '/' unless ($rslt =~ m#/$#);
-
- $rslt .= $dir;
- return $self->SUPER::canonpath($rslt);
- } else {
-
- #with <> posible instead of [.
- # Normalize the brackets
- # Fixme - need to not switch when preceded by ^.
- $path =~ s/</\[/g;
- $path =~ s/>/\]/g;
- $dir =~ s/</\[/g;
- $dir =~ s/>/\]/g;
-
- # Fix up mixed syntax imput as good as possible - GIGO
- $path = vmsify($path) if $path_unix;
- $dir = vmsify($dir) if $dir_unix;
-
- #Possible path values: foo: [.foo] [foo] foo, and $(foo)
- #or starting with '-', or foo.dir
- #If path is foo, it needs to be converted to [.foo]
-
- # Fix up a bare path name.
- unless ($path_vms) {
- $path =~ s/\.dir\Z(?!\n)//i;
- if (($path ne '') && ($path !~ /^-/)) {
- # Non blank and not prefixed with '-', add a dot
- $path = '[.' . $path;
- } else {
- # Just start a directory.
- $path = '[' . $path;
- }
- } else {
- $path =~ s/\]$//;
- }
-
- #Possible dir values: [.dir] dir and $(foo)
-
- # No punctuation may have a trailing .dir
- unless ($dir_vms) {
- $dir =~ s/\.dir\Z(?!\n)//i;
- } else {
-
- #strip off the brackets
- $dir =~ s/^\[//;
- $dir =~ s/\]$//;
- }
-
- #strip off the leading dot if present.
- $dir =~ s/^\.//;
-
- # Now put the specifications together.
- if ($dir ne '') {
- # Add a separator unless this is an absolute path
- $path .= '.' if ($path ne '[');
- $rslt = $path . $dir . ']';
- } else {
- $rslt = $path . ']';
- }
- }
-
- } else {
- # Traditional ODS-2 mode.
- $spath =~ s/\.dir\Z(?!\n)//i; $sdir =~ s/\.dir\Z(?!\n)//i;
-
- $sdir = $self->eliminate_macros($sdir)
- unless $sdir =~ /^[\w\-]+\Z(?!\n)/s;
- $rslt = $self->fixpath($self->eliminate_macros($spath)."/$sdir",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 ($spath =~ /^[\[<][^.\-]/s) { $rslt =~ s/^[^\[<]+//s; }
- }
- } else {
- # Single directory, just make sure it is in directory format
- # Return an empty string on null input, and pass through macros.
-
- if (not defined $dir or not length $dir) { $rslt = ''; }
- elsif ($dir =~ /^\$\([^\)]+\)\Z(?!\n)/s) {
- $rslt = $dir;
- } else {
- my $unix_mode = 0;
-
- if ($efs) {
- my $dir_unix = 0;
- $dir_unix = 1 if ($dir =~ m#/#);
- $dir_unix = 1 if ($dir =~ /^\.\.?$/);
- my $dir_vms = 0;
- $dir_vms = 1 if ($dir =~ m#[\[<\]]#);
- $dir_vms = 1 if ($dir =~ /^--?$/);
-
- if ($dir_vms == $dir_unix) {
- # Ambiguous, so if in $unix_rpt mode then assume UNIX.
- $unix_mode = 1 if $unix_rpt;
- } else {
- $unix_mode = 1 if $dir_unix;
- }
- }
-
- if ($unix_mode) {
- return $dir;
- } else {
- # For VMS, force it to be in directory format
- $rslt = 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 $efs = $self->_efs;
- my $unix_rpt = $self->_unix_rpt;
-
- # Assume VMS mode
- my $unix_mode = 0;
- my $file_unix = 0;
- my $file_vms = 0;
- if ($efs) {
-
- # Now we need to identify format the file is in
- # of the specification in order to merge them.
- $file_unix = 1 if ($tfile =~ m#/#);
- $file_unix = 1 if ($tfile =~ /^\.\.?$/);
- $file_vms = 1 if ($tfile =~ m#[\[<\]]#);
- $file_vms = 1 if ($tfile =~ /^--?$/);
-
- # We may know for sure what the format is.
- if (($file_unix != $file_vms)) {
- $unix_mode = 1 if ($file_unix && $unix_rpt);
- }
- }
-
- my $rslt;
- if (@files) {
- # concatenate the directories.
- my $path;
- if (@files == 1) {
- $path = $files[0];
- } else {
- if ($file_vms) {
- # We need to make sure this is in VMS mode to avoid doing
- # both a vmsify and unixfy on the same path, as that may
- # lose significant data.
- my $i = @files - 1;
- my $tdir = $files[$i];
- my $tdir_vms = 0;
- my $tdir_unix = 0;
- $tdir_vms = 1 if ($tdir =~ m#[\[<\]]#);
- $tdir_unix = 1 if ($tdir =~ m#/#);
- $tdir_unix = 1 if ($tdir =~ /^\.\.?$/);
-
- if (!$tdir_vms) {
- if ($tdir_unix) {
- $tdir = vmspath($tdir);
- } else {
- $tdir =~ s/\.dir\Z(?!\n)//i;
- $tdir = '[.' . $tdir . ']';
- }
- $files[$i] = $tdir;
- }
- }
- $path = $self->catdir(@files);
- }
- my $spath = $path;
-
- # Some thing 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 concat them.
- # FIX-ME: In VMS format "[]<>:" are not delimiters if preceded by '^'
- # Quite a bit of Perl does not know that yet.
- if ($spath =~ /^[^\)\]\/:>]+\)\Z(?!\n)/s && basename($file) eq $file) {
- $rslt = "$spath$file";
- } else {
- if ($efs) {
-
- # Now we need to identify what the directory is in
- # of the specification in order to merge them.
- my $spath_unix = 0;
- $spath_unix = 1 if ($spath =~ m#/#);
- $spath_unix = 1 if ($spath =~ /^\.\.?$/);
- my $spath_vms = 0;
- $spath_vms = 1 if ($spath =~ m#[\[<\]]#);
- $spath_vms = 1 if ($spath =~ /^--?$/);
-
- # Assume VMS mode
- if (($spath_unix == $spath_vms) &&
- ($file_unix == $file_vms)) {
- # Ambigous, so if in $unix_rpt mode then assume UNIX.
- $unix_mode = 1 if $unix_rpt;
- } else {
- $unix_mode = 1
- if (($spath_unix || $file_unix) && $unix_rpt);
- }
-
- if (!$unix_mode) {
- if ($spath_vms) {
- $spath = '[' . $spath . ']' if $spath =~ /^-/;
- $rslt = vmspath($spath);
- } else {
- $rslt = '[.' . $spath . ']';
- }
- $file = vmsify($file) if ($file_unix);
- } else {
- $spath = unixify($spath) if ($spath_vms);
- $rslt = $spath;
- $file = unixify($file) if ($file_vms);
-
- # Unix merge may need a directory delimitor.
- # A null path indicates root on Unix.
- $rslt .= '/' unless ($rslt =~ m#/$#);
- }
-
- $rslt .= $file;
- $rslt =~ s/\]\[//;
-
- } else {
- # Traditional VMS Perl mode expects that this is done.
- # Note for future maintainers:
- # This is left here for compatibility with perl scripts
- # that have come to expect this behavior, even though
- # usually the Perl scripts ported to VMS have to be
- # patched because of it changing Unix syntax file
- # to VMS format.
-
- $rslt = $self->eliminate_macros($spath);
-
-
- $rslt = vmsify($rslt.((defined $rslt) &&
- ($rslt ne '') ? '/' : '').unixify($file));
- }
- }
- }
- else {
- # Only passed a single file?
- my $xfile = $file;
-
- # Traditional VMS perl expects this conversion.
- $xfile = vmsify($file) unless ($efs);
-
- $rslt = (defined($file) && length($file)) ? $xfile : '';
- }
- return $self->canonpath($rslt) unless $unix_rpt;
-
- # In Unix report mode, do not strip off redundent 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_REPORT_UNIX> is enabled.
- sys$scratch:
- $ENV{TMPDIR}
-
-Since perl 5.8.0, if running under taint mode, and if $ENV{TMPDIR}
-is tainted, it is not used.
-
-=cut
-
-my $tmpdir;
-sub tmpdir {
- my $self = shift @_;
- return $tmpdir if defined $tmpdir;
- if ($self->_unix_rpt) {
- $tmpdir = $self->_tmpdir('/tmp', '/sys$scratch', $ENV{TMPDIR});
- return $tmpdir;
- }
-
- $tmpdir = $self->_tmpdir( 'sys$scratch:', $ENV{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 =~ /:[^<\[]/);
-}
-
-=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 $efs = $self->_efs;
- my $vmsify_path = vmsify($path);
- if ($efs) {
- my $path_vms = 0;
- $path_vms = 1 if ($path =~ m#[\[<\]]#);
- $path_vms = 1 if ($path =~ /^--?$/);
- if (!$path_vms) {
- return $self->SUPER::splitpath($path, $nofile);
- }
- $vmsify_path = $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) );
-
- my $efs = $self->_efs;
-
- my $dir_unix = 0;
- $dir_unix = 1 if ($dirspec =~ m#/#);
- $dir_unix = 1 if ($dirspec =~ /^\.\.?$/);
-
- # Unix filespecs in EFS mode handled by Unix routines.
- if ($efs && $dir_unix) {
- return $self->SUPER::splitdir($dirspec);
- }
-
- # FIX ME, only split for VMS delimiters not prefixed with '^'.
-
- $dirspec =~ tr/<>/[]/; # < and > ==> [ and ]
- $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) = @_;
-
- my $efs = $self->_efs;
- my $unix_rpt = $self->_unix_rpt;
-
- my $unix_mode = 0;
- my $dir_unix = 0;
- $dir_unix = 1 if ($dir =~ m#/#);
- $dir_unix = 1 if ($dir =~ /^\.\.?$/);
- my $dir_vms = 0;
- $dir_vms = 1 if ($dir =~ m#[\[<\]]#);
- $dir_vms = 1 if ($dir =~ /^--?$/);
-
- if ($efs && (length($dev) == 0)) {
- if ($dir_unix == $dir_vms) {
- $unix_mode = $unix_rpt;
- } else {
- $unix_mode = $dir_unix;
- }
- }
-
- # We look for a volume in $dev, then in $dir, but not both
- # but only if using VMS syntax.
- if (!$unix_mode) {
- $dir = vmspath($dir) if $dir_unix;
- 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)) {
- if ($efs) {
- if ($unix_mode) {
- $dir .= '/' unless ($dir =~ m#/$#);
- } else {
- $dir = vmspath($dir) if (($dir =~ m#/#) || ($dir =~ /^\.\.?$/));
- $dir = "[$dir]" unless $dir =~ /^[\[<]/;
- }
- } else {
- $dir = "[$dir]" unless $dir =~ /[\[<\/]/;
- $dir = vmspath($dir);
- }
- }
- "$dev$dir$file";
-}
-
-=item abs2rel (override)
-
-Attempt to convert a file specification to a relative specification.
-On a system with volumes, like VMS, this may not be possible.
-
-=cut
-
-sub abs2rel {
- my $self = shift;
- my($path,$base) = @_;
-
- my $efs = $self->_efs;
- my $unix_rpt = $self->_unix_rpt;
-
- if (!$efs) {
- return vmspath(File::Spec::Unix::abs2rel( $self, @_ ))
- if grep m{/}, @_;
- }
-
- # We need to identify what the directory is in
- # of the specification in order to process them
- my $path_unix = 0;
- $path_unix = 1 if ($path =~ m#/#);
- $path_unix = 1 if ($path =~ /^\.\.?$/);
- my $path_vms = 0;
- $path_vms = 1 if ($path =~ m#[\[<\]]#);
- $path_vms = 1 if ($path =~ /^--?$/);
-
- my $unix_mode = 0;
- if ($path_vms == $path_unix) {
- $unix_mode = $unix_rpt;
- } else {
- $unix_mode = $path_unix;
- }
-
- my $base_unix = 0;
- my $base_vms = 0;
-
- if (defined $base) {
- $base_unix = 1 if ($base =~ m#/#);
- $base_unix = 1 if ($base =~ /^\.\.?$/);
- $base_vms = 1 if ($base =~ m#[\[<\]]#);
- $base_vms = 1 if ($base =~ /^--?$/);
-
- if ($path_vms == $path_unix) {
- if ($base_vms == $base_unix) {
- $unix_mode = $unix_rpt;
- } else {
- $unix_mode = $base_unix;
- }
- } else {
- $unix_mode = 0 if $base_vms;
- }
- }
-
- if ($efs) {
- if ($unix_mode) {
- # We are UNIX mode.
- $base = unixpath($base) if $base_vms;
- $base = unixify($path) if $path_vms;
-
- # Here VMS is different, and in order to do this right
- # we have to take the realpath for both the path and the base
- # so that we can remove the common components.
-
- if ($path =~ m#^/#) {
- if (defined $base) {
-
- # For the shorterm, if the starting directories are
- # common, remove them.
- my $bq = qq($base);
- $bq =~ s/\$/\\\$/;
- $path =~ s/^$bq//i;
- }
- return $path;
- }
-
- return File::Spec::Unix::abs2rel( $self, $path, $base );
-
- } else {
- $base = vmspath($base) if $base_unix;
- $path = vmsify($path) if $path_unix;
- }
- }
-
- unless (defined $base and length $base) {
- $base = $self->_cwd();
- if ($efs) {
- $base_unix = 1 if ($base =~ m#/#);
- $base_unix = 1 if ($base =~ /^\.\.?$/);
- $base = vmspath($base) if $base_unix;
- }
- }
-
- for ($path, $base) { $_ = $self->canonpath($_) }
-
- # 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 $path unless lc($path_volume) eq lc($base_volume);
-
- for ($path, $base) { $_ = $self->rel2abs($_) }
-
- # 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;
-
- my $efs = $self->_efs;
- my $unix_rpt = $self->_unix_rpt;
-
- # We need to identify what the directory is in
- # of the specification in order to process them
- my $path_unix = 0;
- $path_unix = 1 if ($path =~ m#/#);
- $path_unix = 1 if ($path =~ /^\.\.?$/);
- my $path_vms = 0;
- $path_vms = 1 if ($path =~ m#[\[<\]]#);
- $path_vms = 1 if ($path =~ /^--?$/);
-
- my $unix_mode = 0;
- if ($path_vms == $path_unix) {
- $unix_mode = $unix_rpt;
- } else {
- $unix_mode = $path_unix;
- }
-
- my $base_unix = 0;
- my $base_vms = 0;
-
- if (defined $base) {
- $base_unix = 1 if ($base =~ m#/#);
- $base_unix = 1 if ($base =~ /^\.\.?$/);
- $base_vms = 1 if ($base =~ m#[\[<\]]#);
- $base_vms = 1 if ($base =~ /^--?$/);
-
- # If we could not determine the path mode, see if we can find out
- # from the base.
- if ($path_vms == $path_unix) {
- if ($base_vms != $base_unix) {
- $unix_mode = $base_unix;
- }
- }
- }
-
- if (!$efs) {
- # Legacy behavior, convert to VMS syntax.
- $unix_mode = 0;
- if (defined $base) {
- $base = vmspath($base) if $base =~ m/\//;
- }
-
- if ($path =~ m/\//) {
- $path = ( -d $path || $path =~ m/\/\z/ # educated guessing about
- ? vmspath($path) # whether it's a directory
- : vmsify($path) );
- }
- }
-
- # 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 ) ;
- }
-
- if ($efs) {
- # base may have changed, so need to look up format again.
- if ($unix_mode) {
- $base_vms = 1 if ($base =~ m#[\[<\]]#);
- $base_vms = 1 if ($base =~ /^--?$/);
- $base = unixpath($base) if $base_vms;
- $base .= '/' unless ($base =~ m#/$#);
- } else {
- $base_unix = 1 if ($base =~ m#/#);
- $base_unix = 1 if ($base =~ /^\.\.?$/);
- $base = vmspath($base) if $base_unix;
- }
- }
-
- # 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 = '' ;
-
- if ($efs) {
- # Merge the paths assuming that the base is absolute.
- $base_directories = $self->catdir('',
- $base_directories,
- $path_directories);
- } else {
- # Legacy behavior assumes VMS only paths
- $sep = '.'
- if ( $base_directories =~ m{[^.\]>]\Z(?!\n)} &&
- $path_directories =~ m{^[^.\[<]}s
- ) ;
- $base_directories = "$base_directories$sep$path_directories";
- $base_directories =~ s{\.?[\]>][\[<]\.?}{.};
- }
-
- $path_file = '' if ($path_file eq '.') && $unix_mode;
-
- $path = $self->catpath( $base_volume, $base_directories, $path_file );
- }
-
- return $self->canonpath( $path ) ;
-}
-
-
-# eliminate_macros() and fixpath() are MakeMaker-specific methods
-# which are used inside catfile() and catdir(). MakeMaker has its own
-# copies as of 6.06_03 which are the canonical ones. We leave these
-# here, in peace, so that File::Spec continues to work with MakeMakers
-# prior to 6.06_03.
-#
-# Please consider these two methods deprecated. Do not patch them,
-# patch the ones in ExtUtils::MM_VMS instead.
-#
-# Update: MakeMaker 6.48 is still using these routines on VMS.
-# so they need to be kept up to date with ExtUtils::MM_VMS.
-#
-# The traditional VMS mode using ODS-2 disks depends on these routines
-# being here. These routines should not be called in when the
-# C<DECC$EFS_CHARSET> or C<DECC$FILENAME_REPORT_UNIX> modes are enabled.
-
-sub eliminate_macros {
- my($self,$path) = @_;
- return '' unless (defined $path) && ($path ne '');
- $self = {} unless ref $self;
-
- if ($path =~ /\s/) {
- return join ' ', map { $self->eliminate_macros($_) } split /\s+/, $path;
- }
-
- 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;
-}
-
-# Deprecated. See the note above for eliminate_macros().
-
-# 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.
-
-sub fixpath {
- my($self,$path,$force_path) = @_;
- return '' unless $path;
- $self = bless {}, $self unless ref $self;
- my($fixedpath,$prefix,$name);
-
- if ($path =~ /\s/) {
- return join ' ',
- map { $self->fixpath($_,$force_path) }
- split /\s+/, $path;
- }
-
- 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/^[^\[<]+//; }
- $fixedpath;
-}
-
-
-=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.
-
-=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/3.8.8/sources/cpan-PathTools/vendor/lib/File/Spec/Win32.pm b/3.8.8/sources/cpan-PathTools/vendor/lib/File/Spec/Win32.pm
deleted file mode 100644
index 93301ac..0000000
--- a/3.8.8/sources/cpan-PathTools/vendor/lib/File/Spec/Win32.pm
+++ /dev/null
@@ -1,444 +0,0 @@
-package File::Spec::Win32;
-
-use strict;
-
-use vars qw(@ISA $VERSION);
-require File::Spec::Unix;
-
-$VERSION = '3.30';
-$VERSION = eval $VERSION;
-
- at 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).
-
-Since Perl 5.8.0, if running under taint mode, and if the environment
-variables are tainted, they are not used.
-
-=cut
-
-my $tmpdir;
-sub tmpdir {
- return $tmpdir if defined $tmpdir;
- $tmpdir = $_[0]->_tmpdir( map( $ENV{$_}, qw(TMPDIR TEMP TMP) ),
- 'SYS:/temp',
- 'C:\system\temp',
- 'C:/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 { 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/3.8.8/sources/cpan-PathTools/vendor/ppport.h b/3.8.8/sources/cpan-PathTools/vendor/ppport.h
deleted file mode 100644
index c565ccd..0000000
--- a/3.8.8/sources/cpan-PathTools/vendor/ppport.h
+++ /dev/null
@@ -1,6377 +0,0 @@
-#if 0
-<<'SKIP';
-#endif
-/*
-----------------------------------------------------------------------
-
- ppport.h -- Perl/Pollution/Portability Version 3.13
-
- Automatically created by Devel::PPPort running under perl 5.008006.
-
- 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 3.13
-
-=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.10.0.
-
-=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
-automagially 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_signals NEED_PL_signals NEED_PL_signals_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
- my_snprintf() NEED_my_snprintf NEED_my_snprintf_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
- newSVpvn_share() NEED_newSVpvn_share NEED_newSVpvn_share_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
- 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 using the CPAN Request Tracker at L<http://rt.cpan.org/>.
-
-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-2007, 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 = 3.13;
-
-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(
-AvFILLp|5.004050||p
-AvFILL|||
-CLASS|||n
-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||p
-Copy|||
-CvPADLIST|||
-CvSTASH|||
-CvWEAKOUTSIDE|||
-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_NOARGS|||
-G_SCALAR|||
-G_VOID||5.004000|
-GetVars|||
-GvSV|||
-Gv_AMupdate|||
-HEf_SVKEY||5.004000|
-HeHASH||5.004000|
-HeKEY||5.004000|
-HeKLEN||5.004000|
-HePV||5.004000|
-HeSVKEY_force||5.004000|
-HeSVKEY_set||5.004000|
-HeSVKEY||5.004000|
-HeVAL||5.004000|
-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|||
-LVRET|||
-MARK|||
-MULTICALL||5.009005|
-MY_CXT_CLONE|5.009002||p
-MY_CXT_INIT|5.007003||p
-MY_CXT|5.007003||p
-MoveD|5.009002||p
-Move|||
-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|||
-ORIGMARK|||
-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|||
-PERL_ABS|5.008001||p
-PERL_BCDVERSION|5.009005||p
-PERL_GCC_BRACE_GROUPS_FORBIDDEN|5.008001||p
-PERL_HASH|5.004000||p
-PERL_INT_MAX|5.004000||p
-PERL_INT_MIN|5.004000||p
-PERL_LONG_MAX|5.004000||p
-PERL_LONG_MIN|5.004000||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.009005||p
-PERL_MAGIC_isaelem|5.007002||p
-PERL_MAGIC_isa|5.007002||p
-PERL_MAGIC_mutex|5.009005||p
-PERL_MAGIC_nkeys|5.007002||p
-PERL_MAGIC_overload_elem|5.007002||p
-PERL_MAGIC_overload_table|5.007002||p
-PERL_MAGIC_overload|5.007002||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_QUAD_MAX|5.004000||p
-PERL_QUAD_MIN|5.004000||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.004000||p
-PERL_SHORT_MIN|5.004000||p
-PERL_SIGNALS_UNSAFE_FLAG|5.008001||p
-PERL_SUBVERSION|5.006000||p
-PERL_UCHAR_MAX|5.004000||p
-PERL_UCHAR_MIN|5.004000||p
-PERL_UINT_MAX|5.004000||p
-PERL_UINT_MIN|5.004000||p
-PERL_ULONG_MAX|5.004000||p
-PERL_ULONG_MIN|5.004000||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.004000||p
-PERL_UQUAD_MIN|5.004000||p
-PERL_USE_GCC_BRACE_GROUPS|5.009004||p
-PERL_USHORT_MAX|5.004000||p
-PERL_USHORT_MIN|5.004000||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_compiling|5.004050||p
-PL_copline|5.009005||p
-PL_curcop|5.004050||p
-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_expect|5.009005||p
-PL_hexdigit|5.005000||p
-PL_hints|5.005000||p
-PL_last_in_gv|||n
-PL_laststatval|5.005000||p
-PL_modglobal||5.005000|n
-PL_na|5.004050||pn
-PL_no_modify|5.006000||p
-PL_ofs_sv|||n
-PL_perl_destruct_level|5.004050||p
-PL_perldb|5.004050||p
-PL_ppaddr|5.006000||p
-PL_rsfp_filters|5.004050||p
-PL_rsfp|5.004050||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
-POP_MULTICALL||5.009005|
-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
-PTR2ul|5.007001||p
-PTRV|5.006000||p
-PUSHMARK|||
-PUSH_MULTICALL||5.009005|
-PUSHi|||
-PUSHmortal|5.009002||p
-PUSHn|||
-PUSHp|||
-PUSHs|||
-PUSHu|5.004000||p
-PUTBACK|||
-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_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
-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
-SVf|5.006000||p
-SVt_IV|||
-SVt_NV|||
-SVt_PVAV|||
-SVt_PVCV|||
-SVt_PVHV|||
-SVt_PVMG|||
-SVt_PV|||
-Safefree|||
-Slab_Alloc|||
-Slab_Free|||
-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_set|||
-SvNVx|||
-SvNV|||
-SvOK|||
-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|5.007002||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|||
-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|||
-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.009005||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
-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
-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_VERSION_BOOTCHECK|||
-XS_VERSION|||
-XSprePUSH|5.006000||p
-XS|||
-ZeroD|5.009002||p
-Zero|||
-_aMY_CXT|5.007003||p
-_pMY_CXT|5.007003||p
-aMY_CXT_|5.007003||p
-aMY_CXT|5.007003||p
-aTHXR_|5.009005||p
-aTHXR|5.009005||p
-aTHX_|5.006000||p
-aTHX|5.006000||p
-add_data|||n
-addmad|||
-allocmy|||
-amagic_call|||
-amagic_cmp_locale|||
-amagic_cmp|||
-amagic_i_ncmp|||
-amagic_ncmp|||
-any_dup|||
-ao|||
-append_elem|||
-append_list|||
-append_madprops|||
-apply_attrs_my|||
-apply_attrs_string||5.006001|
-apply_attrs|||
-apply|||
-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|||
-av_fake|||
-av_fetch|||
-av_fill|||
-av_len|||
-av_make|||
-av_pop|||
-av_push|||
-av_reify|||
-av_shift|||
-av_store|||
-av_undef|||
-av_unshift|||
-ax|||n
-bad_type|||
-bind_match|||
-block_end|||
-block_gimme||5.004000|
-block_start|||
-boolSV|5.004000||p
-boot_core_PerlIO|||
-boot_core_UNIVERSAL|||
-boot_core_mro|||
-boot_core_xsutils|||
-bytes_from_utf8||5.007001|
-bytes_to_uni|||n
-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
-calloc||5.007002|n
-cando|||
-cast_i32||5.006000|
-cast_iv||5.006000|
-cast_ulong||5.006000|
-cast_uv||5.006000|
-check_type_and_open|||
-check_uni|||
-checkcomma|||
-checkposixcc|||
-ckWARN|5.006000||p
-ck_anoncode|||
-ck_bitop|||
-ck_concat|||
-ck_defined|||
-ck_delete|||
-ck_die|||
-ck_eof|||
-ck_eval|||
-ck_exec|||
-ck_exists|||
-ck_exit|||
-ck_ftst|||
-ck_fun|||
-ck_glob|||
-ck_grep|||
-ck_index|||
-ck_join|||
-ck_lengthconst|||
-ck_lfun|||
-ck_listiob|||
-ck_match|||
-ck_method|||
-ck_null|||
-ck_open|||
-ck_readline|||
-ck_repeat|||
-ck_require|||
-ck_retarget|||
-ck_return|||
-ck_rfun|||
-ck_rvconst|||
-ck_sassign|||
-ck_select|||
-ck_shift|||
-ck_sort|||
-ck_spair|||
-ck_split|||
-ck_subr|||
-ck_substr|||
-ck_svconst|||
-ck_trunc|||
-ck_unpack|||
-ckwarn_d||5.009003|
-ckwarn||5.009003|
-cl_and|||n
-cl_anything|||n
-cl_init_zero|||n
-cl_init|||n
-cl_is_anything|||n
-cl_or|||n
-clear_placeholders|||
-closest_cop|||
-convert|||
-cop_free|||
-cr_textfilter|||
-create_eval_scope|||
-croak_nocontext|||vn
-croak|||v
-csighandler||5.009003|n
-curmad|||
-custom_op_desc||5.007003|
-custom_op_name||5.007003|
-cv_ckproto_len|||
-cv_ckproto|||
-cv_clone|||
-cv_const_sv||5.004000|
-cv_dump|||
-cv_undef|||
-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.009005||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
-del_sv|||
-delete_eval_scope|||
-delimcpy||5.004000|
-deprecate_old|||
-deprecate|||
-despatch_signals||5.007001|
-destroy_matcher|||
-die_nocontext|||vn
-die_where|||
-die|||v
-dirp_dup|||
-div128|||
-djSP|||
-do_aexec5|||
-do_aexec|||
-do_aspawn|||
-do_binmode||5.004050|
-do_chomp|||
-do_chop|||
-do_close|||
-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_kv|||
-do_magic_dump||5.006000|
-do_msgrcv|||
-do_msgsnd|||
-do_oddball|||
-do_op_dump||5.006000|
-do_op_xmldump|||
-do_open9||5.006000|
-do_openn||5.007001|
-do_open||5.004000|
-do_pipe|||
-do_pmop_dump||5.006000|
-do_pmop_xmldump|||
-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_body|||
-docatch|||
-doeval|||
-dofile|||
-dofindlabel|||
-doform|||
-doing_taint||5.008001|n
-dooneliner|||
-doopen_pm|||
-doparseform|||
-dopoptoeval|||
-dopoptogiven|||
-dopoptolabel|||
-dopoptoloop|||
-dopoptosub_at|||
-dopoptosub|||
-dopoptowhen|||
-doref||5.009003|
-dounwind|||
-dowantarray|||
-dump_all||5.006000|
-dump_eval||5.006000|
-dump_exec_pos|||
-dump_fds|||
-dump_form||5.006000|
-dump_indent||5.006000|v
-dump_mstats|||
-dump_packsubs||5.006000|
-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|||
-emulate_eaccess|||
-eval_pv|5.006000||p
-eval_sv|5.006000||p
-exec_failed|||
-expect_number|||
-fbm_compile||5.005000|
-fbm_instr||5.005000|
-fd_on_nosuid_fs|||
-feature_is_enabled|||
-filter_add|||
-filter_del|||
-filter_gets|||
-filter_read|||
-find_and_forget_pmops|||
-find_array_subscript|||
-find_beginning|||
-find_byclass|||
-find_hash_subscript|||
-find_in_my_stash|||
-find_runcv||5.008001|
-find_rundefsvoffset||5.009002|
-find_script|||
-find_uninit_var|||
-first_symbol|||n
-fold_constants|||
-forbid_setid|||
-force_ident|||
-force_list|||
-force_next|||
-force_version|||
-force_word|||
-forget_pmop|||
-form_nocontext|||vn
-form||5.004000|v
-fp_dup|||
-fprintf_nocontext|||vn
-free_global_struct|||
-free_tied_hv_pool|||
-free_tmps|||
-gen_constant_list|||
-get_arena|||
-get_av|5.006000||p
-get_context||5.006000|n
-get_cvn_flags||5.009005|
-get_cv|5.006000||p
-get_db_sub|||
-get_debug_opts|||
-get_hash_seed|||
-get_hv|5.006000||p
-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_2pv|||
-glob_assign_glob|||
-glob_assign_ref|||
-gp_dup|||
-gp_free|||
-gp_ref|||
-grok_bin|5.007003||p
-grok_hex|5.007003||p
-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_autoload4||5.004000|
-gv_check|||
-gv_const_sv||5.009003|
-gv_dump||5.006000|
-gv_efullname3||5.004000|
-gv_efullname4||5.006001|
-gv_efullname|||
-gv_ename|||
-gv_fetchfile_flags||5.009005|
-gv_fetchfile|||
-gv_fetchmeth_autoload||5.007003|
-gv_fetchmethod_autoload||5.004000|
-gv_fetchmethod|||
-gv_fetchmeth|||
-gv_fetchpvn_flags||5.009002|
-gv_fetchpv|||
-gv_fetchsv||5.009002|
-gv_fullname3||5.004000|
-gv_fullname4||5.006001|
-gv_fullname|||
-gv_handler||5.007001|
-gv_init_sv|||
-gv_init|||
-gv_name_set||5.009004|
-gv_stashpvn|5.004000||p
-gv_stashpvs||5.009003|
-gv_stashpv|||
-gv_stashsv|||
-he_dup|||
-hek_dup|||
-hfreeentries|||
-hsplit|||
-hv_assert||5.009005|
-hv_auxinit|||n
-hv_backreferences_p|||
-hv_clear_placeholders||5.009001|
-hv_clear|||
-hv_copy_hints_hv|||
-hv_delayfree_ent||5.004000|
-hv_delete_common|||
-hv_delete_ent||5.004000|
-hv_delete|||
-hv_eiter_p||5.009003|
-hv_eiter_set||5.009003|
-hv_exists_ent||5.004000|
-hv_exists|||
-hv_fetch_common|||
-hv_fetch_ent||5.004000|
-hv_fetchs|5.009003||p
-hv_fetch|||
-hv_free_ent||5.004000|
-hv_iterinit|||
-hv_iterkeysv||5.004000|
-hv_iterkey|||
-hv_iternext_flags||5.008000|
-hv_iternextsv|||
-hv_iternext|||
-hv_iterval|||
-hv_kill_backrefs|||
-hv_ksplit||5.004000|
-hv_magic_check|||n
-hv_magic_uvar_xkey|||
-hv_magic|||
-hv_name_set||5.009003|
-hv_notallowed|||
-hv_placeholders_get||5.009003|
-hv_placeholders_p||5.009003|
-hv_placeholders_set||5.009003|
-hv_riter_p||5.009003|
-hv_riter_set||5.009003|
-hv_scalar||5.009001|
-hv_store_ent||5.004000|
-hv_store_flags||5.008000|
-hv_stores|5.009004||p
-hv_store|||
-hv_undef|||
-ibcmp_locale||5.004000|
-ibcmp_utf8||5.007003|
-ibcmp|||
-incl_perldb|||
-incline|||
-incpush_if_exists|||
-incpush|||
-ingroup|||
-init_argv_symbols|||
-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|
-instr|||
-intro_my|||
-intuit_method|||
-intuit_more|||
-invert|||
-io_close|||
-isALNUM|||
-isALPHA|||
-isDIGIT|||
-isLOWER|||
-isSPACE|||
-isUPPER|||
-is_an_int|||
-is_gv_magical_sv|||
-is_gv_magical|||
-is_handle_constructor|||n
-is_list_assignment|||
-is_lvalue_sub||5.007001|
-is_uni_alnum_lc||5.006000|
-is_uni_alnumc_lc||5.006000|
-is_uni_alnumc||5.006000|
-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_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.006000|
-is_utf8_alnum||5.006000|
-is_utf8_alpha||5.006000|
-is_utf8_ascii||5.006000|
-is_utf8_char_slow|||n
-is_utf8_char||5.006000|
-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_print||5.006000|
-is_utf8_punct||5.006000|
-is_utf8_space||5.006000|
-is_utf8_string_loclen||5.009003|
-is_utf8_string_loc||5.008001|
-is_utf8_string||5.006001|
-is_utf8_upper||5.006000|
-is_utf8_xdigit||5.006000|
-isa_lookup|||
-items|||n
-ix|||n
-jmaybe|||
-join_exact|||
-keyword|||
-leave_scope|||
-lex_end|||
-lex_start|||
-linklist|||
-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
-mPUSHu|5.009002||p
-mXPUSHi|5.009002||p
-mXPUSHn|5.009002||p
-mXPUSHp|5.009002||p
-mXPUSHu|5.009002||p
-mad_free|||
-madlex|||
-madparse|||
-magic_clear_all_env|||
-magic_clearenv|||
-magic_clearhint|||
-magic_clearpack|||
-magic_clearsig|||
-magic_dump||5.006000|
-magic_existspack|||
-magic_freearylen_p|||
-magic_freeovrld|||
-magic_freeregexp|||
-magic_getarylen|||
-magic_getdefelem|||
-magic_getnkeys|||
-magic_getpack|||
-magic_getpos|||
-magic_getsig|||
-magic_getsubstr|||
-magic_gettaint|||
-magic_getuvar|||
-magic_getvec|||
-magic_get|||
-magic_killbackrefs|||
-magic_len|||
-magic_methcall|||
-magic_methpack|||
-magic_nextpack|||
-magic_regdata_cnt|||
-magic_regdatum_get|||
-magic_regdatum_set|||
-magic_scalarpack|||
-magic_set_all_env|||
-magic_setamagic|||
-magic_setarylen|||
-magic_setbm|||
-magic_setcollxfrm|||
-magic_setdbline|||
-magic_setdefelem|||
-magic_setenv|||
-magic_setfm|||
-magic_setglob|||
-magic_sethint|||
-magic_setisa|||
-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|||
-magicname|||
-make_matcher|||
-make_trie_failtable|||
-make_trie|||
-malloced_size|||n
-malloc||5.007002|n
-markstack_grow|||
-matcher_matches_sv|||
-measure_struct|||
-memEQ|5.004000||p
-memNE|5.004000||p
-mem_collxfrm|||
-mess_alloc|||
-mess_nocontext|||vn
-mess||5.006000|v
-method_common|||
-mfree||5.007002|n
-mg_clear|||
-mg_copy|||
-mg_dup|||
-mg_find|||
-mg_free|||
-mg_get|||
-mg_length||5.005000|
-mg_localize|||
-mg_magical|||
-mg_set|||
-mg_size||5.005000|
-mini_mktime||5.007002|
-missingterm|||
-mode_from_discipline|||
-modkids|||
-mod|||
-more_bodies|||
-more_sv|||
-moreswitches|||
-mro_get_linear_isa_c3||5.009005|
-mro_get_linear_isa_dfs||5.009005|
-mro_get_linear_isa||5.009005|
-mro_isa_changed_in|||
-mro_meta_dup|||
-mro_meta_init|||
-mro_method_changed_in||5.009005|
-mul128|||
-mulexp10|||n
-my_atof2||5.007002|
-my_atof||5.006000|
-my_attrs|||
-my_bcopy|||n
-my_betoh16|||n
-my_betoh32|||n
-my_betoh64|||n
-my_betohi|||n
-my_betohl|||n
-my_betohs|||n
-my_bzero|||n
-my_chsize|||
-my_clearenv|||
-my_cxt_index|||
-my_cxt_init|||
-my_dirfd||5.009005|
-my_exit_jump|||
-my_exit|||
-my_failure_exit||5.004000|
-my_fflush_all||5.006000|
-my_fork||5.007003|n
-my_htobe16|||n
-my_htobe32|||n
-my_htobe64|||n
-my_htobei|||n
-my_htobel|||n
-my_htobes|||n
-my_htole16|||n
-my_htole32|||n
-my_htole64|||n
-my_htolei|||n
-my_htolel|||n
-my_htoles|||n
-my_htonl|||
-my_kid|||
-my_letoh16|||n
-my_letoh32|||n
-my_letoh64|||n
-my_letohi|||n
-my_letohl|||n
-my_letohs|||n
-my_lstat|||
-my_memcmp||5.004000|n
-my_memset|||n
-my_ntohl|||
-my_pclose||5.004000|
-my_popen_list||5.007001|
-my_popen||5.004000|
-my_setenv|||
-my_snprintf|5.009004||pvn
-my_socketpair||5.007003|n
-my_sprintf||5.009003|vn
-my_stat|||
-my_strftime||5.007002|
-my_strlcat|5.009004||pn
-my_strlcpy|5.009004||pn
-my_swabn|||n
-my_swap|||
-my_unexec|||
-my_vsnprintf||5.009004|n
-my|||
-need_utf8|||n
-newANONATTRSUB||5.006000|
-newANONHASH|||
-newANONLIST|||
-newANONSUB|||
-newASSIGNOP|||
-newATTRSUB||5.006000|
-newAVREF|||
-newAV|||
-newBINOP|||
-newCONDOP|||
-newCONSTSUB|5.004050||p
-newCVREF|||
-newDEFSVOP|||
-newFORM|||
-newFOROP|||
-newGIVENOP||5.009003|
-newGIVWHENOP|||
-newGP|||
-newGVOP|||
-newGVREF|||
-newGVgen|||
-newHVREF|||
-newHVhv||5.005000|
-newHV|||
-newIO|||
-newLISTOP|||
-newLOGOP|||
-newLOOPEX|||
-newLOOPOP|||
-newMADPROP|||
-newMADsv|||
-newMYSUB|||
-newNULLLIST|||
-newOP|||
-newPADOP|||
-newPMOP|||
-newPROG|||
-newPVOP|||
-newRANGE|||
-newRV_inc|5.004000||p
-newRV_noinc|5.004000||p
-newRV|||
-newSLICEOP|||
-newSTATEOP|||
-newSUB|||
-newSVOP|||
-newSVREF|||
-newSV_type||5.009005|
-newSVhek||5.009003|
-newSViv|||
-newSVnv|||
-newSVpvf_nocontext|||vn
-newSVpvf||5.004000|v
-newSVpvn_share|5.007001||p
-newSVpvn|5.004050||p
-newSVpvs_share||5.009003|
-newSVpvs|5.009003||p
-newSVpv|||
-newSVrv|||
-newSVsv|||
-newSVuv|5.006000||p
-newSV|||
-newTOKEN|||
-newUNOP|||
-newWHENOP||5.009003|
-newWHILEOP||5.009003|
-newXS_flags||5.009004|
-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|||
-no_bareword_allowed|||
-no_fh_allowed|||
-no_op|||
-not_a_number|||
-nothreadhook||5.008000|
-nuke_stacks|||
-num_overflow|||n
-offer_nice_chunk|||
-oopsAV|||
-oopsCV|||
-oopsHV|||
-op_clear|||
-op_const_sv|||
-op_dump||5.006000|
-op_free|||
-op_getmad_weak|||
-op_getmad|||
-op_null||5.007002|
-op_refcnt_dec|||
-op_refcnt_inc|||
-op_refcnt_lock||5.009002|
-op_refcnt_unlock||5.009002|
-op_xmldump|||
-open_script|||
-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|||
-packlist||5.008001|
-pad_add_anon|||
-pad_add_name|||
-pad_alloc|||
-pad_block_start|||
-pad_check_dup|||
-pad_compname_type|||
-pad_findlex|||
-pad_findmy|||
-pad_fixup_inner_anons|||
-pad_free|||
-pad_leavemy|||
-pad_new|||
-pad_peg|||n
-pad_push|||
-pad_reset|||
-pad_setsv|||
-pad_sv||5.009005|
-pad_swipe|||
-pad_tidy|||
-pad_undef|||
-parse_body|||
-parse_unicode_opts|||
-parser_dup|||
-parser_free|||
-path_is_absolute|||n
-peep|||
-pending_Slabs_to_ro|||
-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|||
-pmflag|||
-pmop_dump||5.006000|
-pmop_xmldump|||
-pmruntime|||
-pmtrans|||
-pop_scope|||
-pregcomp||5.009005|
-pregexec|||
-pregfree|||
-prepend_elem|||
-prepend_madprops|||
-printbuf|||
-printf_nocontext|||vn
-process_special_blocks|||
-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_byte|||
-pv_display||5.006000|
-pv_escape||5.009004|
-pv_pretty||5.009004|
-pv_uni_display||5.007003|
-qerror|||
-qsortsvu|||
-re_compile||5.009005|
-re_croak2|||
-re_dup|||
-re_intuit_start||5.009005|
-re_intuit_string||5.006000|
-readpipe_override|||
-realloc||5.007002|n
-reentrant_free|||
-reentrant_init|||
-reentrant_retry|||vn
-reentrant_size|||
-ref_array_or_hash|||
-refcounted_he_chain_2hv|||
-refcounted_he_fetch|||
-refcounted_he_free|||
-refcounted_he_new|||
-refcounted_he_value|||
-refkids|||
-refto|||
-ref||5.009003|
-reg_check_named_buff_matched|||
-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_namedseq|||
-reg_node|||
-reg_numbered_buff_fetch|||
-reg_numbered_buff_length|||
-reg_numbered_buff_store|||
-reg_qr_package|||
-reg_recode|||
-reg_scan_name|||
-reg_skipcomment|||
-reg_stringify||5.009005|
-reg_temp_copy|||
-reganode|||
-regatom|||
-regbranch|||
-regclass_swash||5.009004|
-regclass|||
-regcppop|||
-regcppush|||
-regcurly|||n
-regdump_extflags|||
-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|
-regpiece|||
-regpposixcc|||
-regprop|||
-regrepeat|||
-regtail_study|||
-regtail|||
-regtry|||
-reguni|||
-regwhite|||n
-reg|||
-repeatcpy|||
-report_evil_fh|||
-report_uninit|||
-require_pv||5.006000|
-require_tie_mod|||
-restore_magic|||
-rninstr|||
-rsignal_restore|||
-rsignal_save|||
-rsignal_state||5.004000|
-rsignal||5.004000|
-run_body|||
-run_user_filter|||
-runops_debug||5.005000|
-runops_standard||5.005000|
-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_aelem||5.004050|
-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_hek_flags|||n
-save_helem||5.004050|
-save_hints||5.005000|
-save_hptr|||
-save_int|||
-save_item|||
-save_iv||5.005000|
-save_lines|||
-save_list|||
-save_long|||
-save_magic|||
-save_mortalizesv||5.007001|
-save_nogv|||
-save_op|||
-save_padsv||5.007001|
-save_pptr|||
-save_re_context||5.006000|
-save_scalar_at|||
-save_scalar|||
-save_set_svflags||5.009000|
-save_shared_pvref||5.007003|
-save_sptr|||
-save_svref|||
-save_vptr||5.006000|
-savepvn|||
-savepvs||5.009003|
-savepv|||
-savesharedpvn||5.009005|
-savesharedpv||5.007003|
-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|||
-scope|||
-screaminstr||5.005000|
-seed||5.008001|
-sequence_num|||
-sequence_tail|||
-sequence|||
-set_context||5.006000|n
-set_csh|||
-set_numeric_local||5.006000|
-set_numeric_radix||5.006000|
-set_numeric_standard||5.006000|
-setdefout|||
-setenv_getix|||
-share_hek_flags|||
-share_hek||5.004000|
-si_dup|||
-sighandler|||n
-simplify_sort|||
-skipspace0|||
-skipspace1|||
-skipspace2|||
-skipspace|||
-softref2xv|||
-sortcv_stacked|||
-sortcv_xsub|||
-sortcv|||
-sortsv_flags||5.009003|
-sortsv||5.007003|
-space_join_names_mortal|||
-ss_dup|||
-stack_grow|||
-start_force|||
-start_glob|||
-start_subparse||5.004000|
-stashpv_hvname_match||5.009005|
-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|||
-sv_2cv|||
-sv_2io|||
-sv_2iuv_common|||
-sv_2iuv_non_preserve|||
-sv_2iv_flags||5.009001|
-sv_2iv|||
-sv_2mortal|||
-sv_2nv|||
-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|||
-sv_bless|||
-sv_cat_decode||5.008001|
-sv_catpv_mg|5.004050||p
-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|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_catxmlpvn|||
-sv_catxmlsv|||
-sv_chop|||
-sv_clean_all|||
-sv_clean_objs|||
-sv_clear|||
-sv_cmp_locale||5.004000|
-sv_cmp|||
-sv_collxfrm|||
-sv_compile_2op||5.008001|
-sv_copypv||5.007003|
-sv_dec|||
-sv_del_backref|||
-sv_derived_from||5.004000|
-sv_does||5.009004|
-sv_dump|||
-sv_dup|||
-sv_eq|||
-sv_exp_grow|||
-sv_force_normal_flags||5.007001|
-sv_force_normal||5.006000|
-sv_free2|||
-sv_free_arenas|||
-sv_free|||
-sv_gets||5.004000|
-sv_grow|||
-sv_i_ncmp|||
-sv_inc|||
-sv_insert|||
-sv_isa|||
-sv_isobject|||
-sv_iv||5.005000|
-sv_kill_backrefs|||
-sv_len_utf8||5.006000|
-sv_len|||
-sv_magic_portable|5.009005|5.004000|p
-sv_magicext||5.007003|
-sv_magic|||
-sv_mortalcopy|||
-sv_ncmp|||
-sv_newmortal|||
-sv_newref|||
-sv_nolocking||5.007003|
-sv_nosharing||5.007003|
-sv_nounlocking|||
-sv_nv||5.005000|
-sv_peek||5.005000|
-sv_pos_b2u_midway|||
-sv_pos_b2u||5.006000|
-sv_pos_u2b_cached|||
-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||p
-sv_pvn|||
-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_release_COW|||
-sv_replace|||
-sv_report_used|||
-sv_reset|||
-sv_rvweaken||5.006000|
-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|5.009004||p
-sv_setpv|||
-sv_setref_iv|||
-sv_setref_nv|||
-sv_setref_pvn|||
-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_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||5.007002|
-sv_utf8_upgrade||5.007001|
-sv_uv|5.005000||p
-sv_vcatpvf_mg|5.006000|5.004000|p
-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
-sv_xmlpeek|||
-svtype|||
-swallow_bom|||
-swap_match_buff|||
-swash_fetch||5.007002|
-swash_get|||
-swash_init||5.006000|
-sys_intern_clear|||
-sys_intern_dup|||
-sys_intern_init|||
-taint_env|||
-taint_proper|||
-tmps_grow||5.006000|
-toLOWER|||
-toUPPER|||
-to_byte_substr|||
-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.007003|
-to_utf8_lower||5.007003|
-to_utf8_substr|||
-to_utf8_title||5.007003|
-to_utf8_upper||5.007003|
-token_free|||
-token_getmad|||
-tokenize_use|||
-tokeq|||
-tokereport|||
-too_few_arguments|||
-too_many_arguments|||
-uiv_2buf|||n
-unlnk|||
-unpack_rec|||
-unpack_str||5.007003|
-unpackstring||5.008001|
-unshare_hek_or_pvn|||
-unshare_hek|||
-unsharepvn||5.004000|
-unwind_handler_stack|||
-update_debugger_info|||
-upg_version||5.009005|
-usage|||
-utf16_to_utf8_reversed||5.006001|
-utf16_to_utf8||5.006001|
-utf8_distance||5.006000|
-utf8_hop||5.006000|
-utf8_length||5.007001|
-utf8_mg_pos_cache_update|||
-utf8_to_bytes||5.006001|
-utf8_to_uvchr||5.007001|
-utf8_to_uvuni||5.007001|
-utf8n_to_uvchr|||
-utf8n_to_uvuni||5.007001|
-utilize|||
-uvchr_to_utf8_flags||5.007003|
-uvchr_to_utf8|||
-uvuni_to_utf8_flags||5.007003|
-uvuni_to_utf8||5.007001|
-validate_suid|||
-varname|||
-vcmp||5.009000|
-vcroak||5.006000|
-vdeb||5.007003|
-vdie_common|||
-vdie_croak_common|||
-vdie|||
-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
-warner_nocontext|||vn
-warner|5.006000|5.004000|pv
-warn|||v
-watch|||
-whichsig|||
-write_no_mem|||
-write_to_stderr|||
-xmldump_all|||
-xmldump_attr|||
-xmldump_eval|||
-xmldump_form|||
-xmldump_indent|||v
-xmldump_packsubs|||
-xmldump_sub|||
-xmldump_vindent|||
-yyerror|||
-yylex|||
-yyparse|||
-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 $define;
- }
- 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+depends\s+on\s+(\w+(\s*,\s*\w+)*)\s+$rcce\s*$}) {
- push @{$depends{$1}}, map { s/\s+//g; $_ } split /,/, $2;
- }
-
- $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 (\$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 */
-
-#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 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 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 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
-
-# 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)
-
-# if PTRSIZE == LONGSIZE
-# define PTR2ul(p) (unsigned long)(p)
-# else
-# define PTR2ul(p) INT2PTR(unsigned long,p)
-# endif
-
-#endif /* !INT2PTR */
-
-#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
-
-/* Older perls (<=5.003) lack AvFILLp */
-#ifndef AvFILLp
-# define AvFILLp AvFILL
-#endif
-#ifndef ERRSV
-# define ERRSV get_sv("@",FALSE)
-#endif
-#ifndef newSVpvn
-# define newSVpvn(data,len) ((data) \
- ? ((len) ? newSVpv((data), (len)) : newSVpv("", 0)) \
- : newSV(0))
-#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 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 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 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_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_expect expect
-# define PL_hexdigit hexdigit
-# define PL_hints hints
-# define PL_laststatval laststatval
-# 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
-/* Replace: 0 */
-#endif
-
-/* Warning: PL_expect, PL_copline, PL_rsfp, PL_rsfp_filters
- * Do not use this variable. It is internal to the perl parser
- * and may change or even be removed in the future. Note that
- * as of perl 5.9.5 you cannot assign to this variable anymore.
- */
-
-/* TODO: cannot assign to these vars; is it worth fixing? */
-#if (PERL_BCDVERSION >= 0x5009005)
-# define PL_expect (PL_parser ? PL_parser->expect : 0)
-# define PL_copline (PL_parser ? PL_parser->copline : 0)
-# define PL_rsfp (PL_parser ? PL_parser->rsfp : (PerlIO *) 0)
-# define PL_rsfp_filters (PL_parser ? PL_parser->rsfp_filters : (AV *) 0)
-#endif
-#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
-#ifndef PUSHmortal
-# define PUSHmortal PUSHs(sv_newmortal())
-#endif
-
-#ifndef mPUSHp
-# define mPUSHp(p,l) sv_setpvn_mg(PUSHmortal, (p), (l))
-#endif
-
-#ifndef mPUSHn
-# define mPUSHn(n) sv_setnv_mg(PUSHmortal, (NV)(n))
-#endif
-
-#ifndef mPUSHi
-# define mPUSHi(i) sv_setiv_mg(PUSHmortal, (IV)(i))
-#endif
-
-#ifndef mPUSHu
-# define mPUSHu(u) sv_setuv_mg(PUSHmortal, (UV)(u))
-#endif
-#ifndef XPUSHmortal
-# define XPUSHmortal XPUSHs(sv_newmortal())
-#endif
-
-#ifndef mXPUSHp
-# define mXPUSHp(p,l) STMT_START { EXTEND(sp,1); sv_setpvn_mg(PUSHmortal, (p), (l)); } STMT_END
-#endif
-
-#ifndef mXPUSHn
-# define mXPUSHn(n) STMT_START { EXTEND(sp,1); sv_setnv_mg(PUSHmortal, (NV)(n)); } STMT_END
-#endif
-
-#ifndef mXPUSHi
-# define mXPUSHi(i) STMT_START { EXTEND(sp,1); sv_setiv_mg(PUSHmortal, (IV)(i)); } STMT_END
-#endif
-
-#ifndef mXPUSHu
-# define mXPUSHu(u) STMT_START { EXTEND(sp,1); sv_setuv_mg(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
-#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
-
-/* Replace: 0 */
-
-/* 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);
-#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)
-
-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 = 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"
-# else
-# if IVSIZE == INTSIZE
-# define IVdf "d"
-# define UVuf "u"
-# define UVof "o"
-# define UVxf "x"
-# define UVXf "X"
-# endif
-# endif
-#endif
-
-#ifndef NVef
-# if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) && \
- defined(PERL_PRIfldbl) /* 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
-
-/* 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
-#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, 0, 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, 0, 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, 0, 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, 0, 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 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
-
-#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 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 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 SvGETMAGIC
-# define SvGETMAGIC(x) STMT_START { if (SvGMAGICAL(x)) mg_get(x); } STMT_END
-#endif
-#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
-
-#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 */
-#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 >= (int)len)
- Perl_croak(aTHX_ "panic: my_snprintf buffer overflow");
- return retval;
-}
-
-#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
-
-#endif /* _P_P_PORTABILITY_H_ */
-
-/* End of File ppport.h */
-
diff --git a/3.8.8/sources/cpan-PathTools/vendor/t/Functions.t b/3.8.8/sources/cpan-PathTools/vendor/t/Functions.t
deleted file mode 100644
index 457f53c..0000000
--- a/3.8.8/sources/cpan-PathTools/vendor/t/Functions.t
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/usr/bin/perl -w
-
-use Test;
-use File::Spec::Functions qw/:ALL/;
-plan tests => 2;
-
-ok catfile('a','b','c'), File::Spec->catfile('a','b','c');
-
-# seems to return 0 or 1, so see if we can call it - 2003-07-07 tels
-ok case_tolerant(), '/^0|1$/';
diff --git a/3.8.8/sources/cpan-PathTools/vendor/t/crossplatform.t b/3.8.8/sources/cpan-PathTools/vendor/t/crossplatform.t
deleted file mode 100644
index b7c76fc..0000000
--- a/3.8.8/sources/cpan-PathTools/vendor/t/crossplatform.t
+++ /dev/null
@@ -1,173 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use File::Spec;
-use lib File::Spec->catfile('t', 'lib');
-use Test::More;
-local $|=1;
-
-my @platforms = qw(Cygwin Epoc Mac OS2 Unix VMS Win32);
-my $tests_per_platform = 10;
-
-my $vms_unix_rpt = 0;
-my $vms_efs = 0;
-my $vms_unix_mode = 0;
-my $vms_real_root = 0;
-
-if ($^O eq 'VMS') {
- $vms_unix_mode = 0;
- if (eval 'require VMS::Feature') {
- $vms_unix_rpt = VMS::Feature::current("filename_unix_report");
- $vms_efs = VMS::Feature::current("efs_charset");
- } else {
- my $unix_rpt = $ENV{'DECC$FILENAME_UNIX_REPORT'} || '';
- my $efs_charset = $ENV{'DECC$EFS_CHARSET'} || '';
- $vms_unix_rpt = $unix_rpt =~ /^[ET1]/i;
- $vms_efs = $efs_charset =~ /^[ET1]/i;
- }
-
- # Traditional VMS mode only if VMS is not in UNIX compatible mode.
- $vms_unix_mode = ($vms_efs && $vms_unix_rpt);
-
- # If we are in UNIX mode, we may or may not have a real root.
- if ($vms_unix_mode) {
- my $rootdir = File::Spec->rootdir;
- $vms_real_root = 1 if ($rootdir eq '/');
- }
-
-}
-
-
-plan tests => 1 + @platforms * $tests_per_platform;
-
-my %volumes = (
- Mac => 'Macintosh HD',
- OS2 => 'A:',
- Win32 => 'A:',
- VMS => 'v',
- );
-my %other_vols = (
- Mac => 'Mounted Volume',
- OS2 => 'B:',
- Win32 => 'B:',
- VMS => 'w',
- );
-
-ok 1, "Loaded";
-
-foreach my $platform (@platforms) {
- my $module = "File::Spec::$platform";
-
- SKIP:
- {
- eval "require $module; 1";
-
- skip "Can't load $module", $tests_per_platform
- if $@;
-
- my $v = $volumes{$platform} || '';
- my $other_v = $other_vols{$platform} || '';
-
- # Fake out the environment on MacOS and Win32
- no strict 'refs';
- my $save_w = $^W;
- $^W = 0;
- local *{"File::Spec::Mac::rootdir"} = sub { "Macintosh HD:" };
- local *{"File::Spec::Win32::_cwd"} = sub { "C:\\foo" };
- $^W = $save_w;
- use strict 'refs';
-
-
- my ($file, $base, $result);
-
- $base = $module->catpath($v, $module->catdir('', 'foo'), '');
- $base = $module->catdir($module->rootdir, 'foo');
-
- is $module->file_name_is_absolute($base), 1, "$base is absolute on $platform";
-
- # splitdir('') -> ()
- my @result = $module->splitdir('');
- is @result, 0, "$platform->splitdir('') -> ()";
-
- # canonpath() -> undef
- $result = $module->canonpath();
- is $result, undef, "$platform->canonpath() -> undef";
-
- # canonpath(undef) -> undef
- $result = $module->canonpath(undef);
- is $result, undef, "$platform->canonpath(undef) -> undef";
-
- # abs2rel('A:/foo/bar', 'A:/foo') -> 'bar'
- $file = $module->catpath($v, $module->catdir($module->rootdir, 'foo', 'bar'), 'file');
- $base = $module->catpath($v, $module->catdir($module->rootdir, 'foo'), '');
- $result = $module->catfile('bar', 'file');
-
- if ($vms_unix_mode and $platform eq 'VMS') {
- # test 56 special
- # If VMS is in UNIX mode, so is the result, but having the volume
- # parameter present forces the abs2rel into VMS mode.
- $result = VMS::Filespec::vmsify($result);
- $result =~ s/\.$//;
-
- # If we have a real root, then we are dealing with absolute directories
- $result =~ s/\[\./\[/ if $vms_real_root;
- }
-
- is $module->abs2rel($file, $base), $result, "$platform->abs2rel($file, $base)";
-
-
- # abs2rel('A:/foo/bar', 'B:/foo') -> 'A:/foo/bar'
- $base = $module->catpath($other_v, $module->catdir($module->rootdir, 'foo'), '');
- $result = volumes_differ($module, $file, $base) ? $file : $module->catfile('bar', 'file');
- is $module->abs2rel($file, $base), $result, "$platform->abs2rel($file, $base)";
-
-
- # abs2rel('A:/foo/bar', '/foo') -> 'A:/foo/bar'
- $base = $module->catpath('', $module->catdir($module->rootdir, 'foo'), '');
- $result = volumes_differ($module, $file, $base) ? $file : $module->catfile('bar', 'file');
- is $module->abs2rel($file, $base), $result, "$platform->abs2rel($file, $base)";
-
-
- # abs2rel('/foo/bar/file', 'A:/foo') -> '/foo/bar'
- $file = $module->catpath('', $module->catdir($module->rootdir, 'foo', 'bar'), 'file');
- $base = $module->catpath($v, $module->catdir($module->rootdir, 'foo'), '');
- $result = volumes_differ($module, $file, $base) ? $module->rel2abs($file) : $module->catfile('bar', 'file');
-
- if ($vms_unix_mode and $platform eq 'VMS') {
- # test 59 special
- # If VMS is in UNIX mode, so is the result, but having the volume
- # parameter present forces the abs2rel into VMS mode.
- $result = VMS::Filespec::vmsify($result);
- }
-
- is $module->abs2rel($file, $base), $result, "$platform->abs2rel($file, $base)";
-
-
- # abs2rel('/foo/bar', 'B:/foo') -> '/foo/bar'
- $base = $module->catpath($other_v, $module->catdir($module->rootdir, 'foo'), '');
- $result = volumes_differ($module, $file, $base) ? $module->rel2abs($file) : $module->catfile('bar', 'file');
-
- if ($vms_unix_mode and $platform eq 'VMS') {
- # test 60 special
- # If VMS is in UNIX mode, so is the result, but having the volume
- # parameter present forces the abs2rel into VMS mode.
- $result = VMS::Filespec::vmsify($result);
- }
-
- is $module->abs2rel($file, $base), $result, "$platform->abs2rel($file, $base)";
-
-
- # abs2rel('/foo/bar', '/foo') -> 'bar'
- $base = $module->catpath('', $module->catdir($module->rootdir, 'foo'), '');
- $result = $module->catfile('bar', 'file');
-
- is $module->abs2rel($file, $base), $result, "$platform->abs2rel($file, $base)";
- }
-}
-
-sub volumes_differ {
- my ($module, $one, $two) = @_;
- my ($one_v) = $module->splitpath( $module->rel2abs($one) );
- my ($two_v) = $module->splitpath( $module->rel2abs($two) );
- return $one_v ne $two_v;
-}
diff --git a/3.8.8/sources/cpan-PathTools/vendor/t/cwd.t b/3.8.8/sources/cpan-PathTools/vendor/t/cwd.t
deleted file mode 100644
index 256b2a1..0000000
--- a/3.8.8/sources/cpan-PathTools/vendor/t/cwd.t
+++ /dev/null
@@ -1,277 +0,0 @@
-#!./perl -w
-
-use strict;
-
-use Cwd;
-
-chdir 't';
-
-use Config;
-use File::Spec;
-use File::Path;
-
-use lib File::Spec->catdir('t', 'lib');
-use Test::More;
-
-my $IsVMS = $^O eq 'VMS';
-my $IsMacOS = $^O eq 'MacOS';
-
-my $vms_unix_rpt = 0;
-my $vms_efs = 0;
-my $vms_mode = 0;
-
-if ($IsVMS) {
- require VMS::Filespec;
- use Carp;
- use Carp::Heavy;
- $vms_mode = 1;
- if (eval 'require VMS::Feature') {
- $vms_unix_rpt = VMS::Feature::current("filename_unix_report");
- $vms_efs = VMS::Feature::current("efs_charset");
- } else {
- my $unix_rpt = $ENV{'DECC$FILENAME_UNIX_REPORT'} || '';
- my $efs_charset = $ENV{'DECC$EFS_CHARSET'} || '';
- $vms_unix_rpt = $unix_rpt =~ /^[ET1]/i;
- $vms_efs = $efs_charset =~ /^[ET1]/i;
- }
- $vms_mode = 0 if ($vms_unix_rpt);
-}
-
-my $tests = 30;
-# _perl_abs_path() currently only works when the directory separator
-# is '/', so don't test it when it won't work.
-my $EXTRA_ABSPATH_TESTS = ($Config{prefix} =~ m/\//) && $^O ne 'cygwin';
-$tests += 4 if $EXTRA_ABSPATH_TESTS;
-plan tests => $tests;
-
-SKIP: {
- skip "no need to check for blib/ in the core", 1 if $ENV{PERL_CORE};
- like $INC{'Cwd.pm'}, qr{blib}i, "Cwd should be loaded from blib/ during testing";
-}
-
-
-# check imports
-can_ok('main', qw(cwd getcwd fastcwd fastgetcwd));
-ok( !defined(&chdir), 'chdir() not exported by default' );
-ok( !defined(&abs_path), ' nor abs_path()' );
-ok( !defined(&fast_abs_path), ' nor fast_abs_path()');
-
-{
- my @fields = qw(PATH IFS CDPATH ENV BASH_ENV);
- my $before = grep exists $ENV{$_}, @fields;
- cwd();
- my $after = grep exists $ENV{$_}, @fields;
- is($before, $after, "cwd() shouldn't create spurious entries in %ENV");
-}
-
-# XXX force Cwd to bootsrap its XSUBs since we have set @INC = "../lib"
-# XXX and subsequent chdir()s can make them impossible to find
-eval { fastcwd };
-
-# Must find an external pwd (or equivalent) command.
-
-my $pwd = $^O eq 'MSWin32' ? "cmd" : "pwd";
-my $pwd_cmd =
- ($^O eq "NetWare") ?
- "cd" :
- ($IsMacOS) ?
- "pwd" :
- (grep { -x && -f } map { "$_/$pwd$Config{exe_ext}" }
- split m/$Config{path_sep}/, $ENV{PATH})[0];
-
-$pwd_cmd = 'SHOW DEFAULT' if $IsVMS;
-if ($^O eq 'MSWin32') {
- $pwd_cmd =~ s,/,\\,g;
- $pwd_cmd = "$pwd_cmd /c cd";
-}
-$pwd_cmd =~ s=\\=/=g if ($^O eq 'dos');
-
-SKIP: {
- skip "No native pwd command found to test against", 4 unless $pwd_cmd;
-
- print "# native pwd = '$pwd_cmd'\n";
-
- local @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)};
- my ($pwd_cmd_untainted) = $pwd_cmd =~ /^(.+)$/; # Untaint.
- chomp(my $start = `$pwd_cmd_untainted`);
-
- # Win32's cd returns native C:\ style
- $start =~ s,\\,/,g if ($^O eq 'MSWin32' || $^O eq "NetWare");
- if ($IsVMS) {
- # DCL SHOW DEFAULT has leading spaces
- $start =~ s/^\s+//;
-
- # When in UNIX report mode, need to convert to compare it.
- if ($vms_unix_rpt) {
- $start = VMS::Filespec::unixpath($start);
- # Remove trailing slash.
- $start =~ s#/$##;
- }
- }
- SKIP: {
- skip("'$pwd_cmd' failed, nothing to test against", 4) if $?;
- skip("/afs seen, paths unlikely to match", 4) if $start =~ m|/afs/|;
-
- # Darwin's getcwd(3) (which Cwd.xs:bsd_realpath() uses which
- # Cwd.pm:getcwd uses) has some magic related to the PWD
- # environment variable: if PWD is set to a directory that
- # looks about right (guess: has the same (dev,ino) as the '.'?),
- # the PWD is returned. However, if that path contains
- # symlinks, the path will not be equal to the one returned by
- # /bin/pwd (which probably uses the usual walking upwards in
- # the path -trick). This situation is easy to reproduce since
- # /tmp is a symlink to /private/tmp. Therefore we invalidate
- # the PWD to force getcwd(3) to (re)compute the cwd in full.
- # Admittedly fixing this in the Cwd module would be better
- # long-term solution but deleting $ENV{PWD} should not be
- # done light-heartedly. --jhi
- delete $ENV{PWD} if $^O eq 'darwin';
-
- my $cwd = cwd;
- my $getcwd = getcwd;
- my $fastcwd = fastcwd;
- my $fastgetcwd = fastgetcwd;
-
- is($cwd, $start, 'cwd()');
- is($getcwd, $start, 'getcwd()');
- is($fastcwd, $start, 'fastcwd()');
- is($fastgetcwd, $start, 'fastgetcwd()');
- }
-}
-
-my @test_dirs = qw{_ptrslt_ _path_ _to_ _a_ _dir_};
-my $Test_Dir = File::Spec->catdir(@test_dirs);
-
-mkpath([$Test_Dir], 0, 0777);
-Cwd::chdir $Test_Dir;
-
-foreach my $func (qw(cwd getcwd fastcwd fastgetcwd)) {
- my $result = eval "$func()";
- is $@, '';
- dir_ends_with( $result, $Test_Dir, "$func()" );
-}
-
-{
- # Some versions of File::Path (e.g. that shipped with perl 5.8.5)
- # call getcwd() with an argument (perhaps by calling it as a
- # method?), so make sure that doesn't die.
- is getcwd(), getcwd('foo'), "Call getcwd() with an argument";
-}
-
-# Cwd::chdir should also update $ENV{PWD}
-dir_ends_with( $ENV{PWD}, $Test_Dir, 'Cwd::chdir() updates $ENV{PWD}' );
-my $updir = File::Spec->updir;
-
-for (1.. at test_dirs) {
- Cwd::chdir $updir;
- print "#$ENV{PWD}\n";
-}
-
-rmtree($test_dirs[0], 0, 0);
-
-{
- my $check = ($vms_mode ? qr|\b((?i)t)\]$| :
- $IsMacOS ? qr|\bt:$| :
- qr|\bt$| );
-
- like($ENV{PWD}, $check);
-}
-
-{
- # Make sure abs_path() doesn't trample $ENV{PWD}
- my $start_pwd = $ENV{PWD};
- mkpath([$Test_Dir], 0, 0777);
- Cwd::abs_path($Test_Dir);
- is $ENV{PWD}, $start_pwd;
- rmtree($test_dirs[0], 0, 0);
-}
-
-SKIP: {
- skip "no symlinks on this platform", 2+$EXTRA_ABSPATH_TESTS unless $Config{d_symlink};
-
- my $file = "linktest";
- mkpath([$Test_Dir], 0, 0777);
- symlink $Test_Dir, $file;
-
- my $abs_path = Cwd::abs_path($file);
- my $fast_abs_path = Cwd::fast_abs_path($file);
- my $want = quotemeta(
- File::Spec->rel2abs( $Test_Dir )
- );
- if ($^O eq 'VMS') {
- # Not easy to predict the physical volume name
- $want = $ENV{PERL_CORE} ? $Test_Dir : File::Spec->catdir('t', $Test_Dir);
-
- # So just use the relative volume name
- $want =~ s/^\[//;
-
- $want = quotemeta($want);
- }
-
- like($abs_path, qr|$want$|i);
- like($fast_abs_path, qr|$want$|i);
- like(Cwd::_perl_abs_path($file), qr|$want$|i) if $EXTRA_ABSPATH_TESTS;
-
- rmtree($test_dirs[0], 0, 0);
- 1 while unlink $file;
-}
-
-# Make sure we can run abs_path() on files, not just directories
-my $path = 'cwd.t';
-path_ends_with(Cwd::abs_path($path), 'cwd.t', 'abs_path() can be invoked on a file');
-path_ends_with(Cwd::fast_abs_path($path), 'cwd.t', 'fast_abs_path() can be invoked on a file');
-path_ends_with(Cwd::_perl_abs_path($path), 'cwd.t', '_perl_abs_path() can be invoked on a file')
- if $EXTRA_ABSPATH_TESTS;
-
-$path = File::Spec->catfile(File::Spec->updir, 't', $path);
-path_ends_with(Cwd::abs_path($path), 'cwd.t', 'abs_path() can be invoked on a file');
-path_ends_with(Cwd::fast_abs_path($path), 'cwd.t', 'fast_abs_path() can be invoked on a file');
-path_ends_with(Cwd::_perl_abs_path($path), 'cwd.t', '_perl_abs_path() can be invoked on a file')
- if $EXTRA_ABSPATH_TESTS;
-
-
-
-SKIP: {
- my $file;
- {
- my $root = Cwd::abs_path(File::Spec->rootdir); # Add drive letter?
- local *FH;
- opendir FH, $root or skip("Can't opendir($root): $!", 2+$EXTRA_ABSPATH_TESTS);
- ($file) = grep {-f $_ and not -l $_} map File::Spec->catfile($root, $_), readdir FH;
- closedir FH;
- }
- skip "No plain file in root directory to test with", 2+$EXTRA_ABSPATH_TESTS unless $file;
-
- $file = VMS::Filespec::rmsexpand($file) if $^O eq 'VMS';
- is Cwd::abs_path($file), $file, 'abs_path() works on files in the root directory';
- is Cwd::fast_abs_path($file), $file, 'fast_abs_path() works on files in the root directory';
- is Cwd::_perl_abs_path($file), $file, '_perl_abs_path() works on files in the root directory'
- if $EXTRA_ABSPATH_TESTS;
-}
-
-
-#############################################
-# These routines give us sort of a poor-man's cross-platform
-# directory or path comparison capability.
-
-sub bracketed_form_dir {
- return join '', map "[$_]",
- grep length, File::Spec->splitdir(File::Spec->canonpath( shift() ));
-}
-
-sub dir_ends_with {
- my ($dir, $expect) = (shift, shift);
- my $bracketed_expect = quotemeta bracketed_form_dir($expect);
- like( bracketed_form_dir($dir), qr|$bracketed_expect$|i, (@_ ? shift : ()) );
-}
-
-sub bracketed_form_path {
- return join '', map "[$_]",
- grep length, File::Spec->splitpath(File::Spec->canonpath( shift() ));
-}
-
-sub path_ends_with {
- my ($dir, $expect) = (shift, shift);
- my $bracketed_expect = quotemeta bracketed_form_path($expect);
- like( bracketed_form_path($dir), qr|$bracketed_expect$|i, (@_ ? shift : ()) );
-}
diff --git a/3.8.8/sources/cpan-PathTools/vendor/t/lib/Test/Simple.pm b/3.8.8/sources/cpan-PathTools/vendor/t/lib/Test/Simple.pm
deleted file mode 100644
index d7c5cbe..0000000
--- a/3.8.8/sources/cpan-PathTools/vendor/t/lib/Test/Simple.pm
+++ /dev/null
@@ -1,235 +0,0 @@
-package Test::Simple;
-
-use 5.004;
-
-use strict 'vars';
-use vars qw($VERSION);
-$VERSION = '0.49';
-
-
-use Test::Builder;
-my $Test = Test::Builder->new;
-
-sub import {
- my $self = shift;
- my $caller = caller;
- *{$caller.'::ok'} = \&ok;
-
- $Test->exported_to($caller);
- $Test->plan(@_);
-}
-
-
-=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 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 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 );
-
-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.
-
-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 ($;$) {
- $Test->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 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
- 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) and 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 (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.004.
-
-Test::Simple is thread-safe in perl 5.8.0 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
-Test::More. Test::Simple is 100% forward compatible with Test::More
-(i.e. you can just use Test::More instead of Test::Simple in your
-programs and things will still work).
-
-=item L<Test>
-
-The original Perl testing module.
-
-=item L<Test::Unit>
-
-Elaborate unit testing.
-
-=item L<Test::Inline>, L<SelfTest>
-
-Embed tests in your code!
-
-=item L<Test::Harness>
-
-Interprets the output of your test program.
-
-=back
-
-
-=head1 AUTHORS
-
-Idea by Tony Bowden and Paul Johnson, code by Michael G Schwern
-E<lt>schwern at pobox.comE<gt>, wardrobe by Calvin Klein.
-
-
-=head1 COPYRIGHT
-
-Copyright 2001 by Michael G Schwern E<lt>schwern at 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/3.8.8/sources/cpan-PathTools/vendor/t/rel2abs2rel.t b/3.8.8/sources/cpan-PathTools/vendor/t/rel2abs2rel.t
deleted file mode 100644
index 0959d57..0000000
--- a/3.8.8/sources/cpan-PathTools/vendor/t/rel2abs2rel.t
+++ /dev/null
@@ -1,73 +0,0 @@
-#!/usr/bin/perl -w
-
-# Here we make sure File::Spec can properly deal with executables.
-# VMS has some trouble with these.
-
-use File::Spec;
-use lib File::Spec->catdir('t', 'lib');
-
-use Test::More (-x $^X
- ? (tests => 5)
- : (skip_all => "Can't find an executable file")
- );
-
-BEGIN { # Set up a tiny script file
- local *F;
- open(F, ">rel2abs2rel$$.pl")
- or die "Can't open rel2abs2rel$$.pl file for script -- $!\n";
- print F qq(print "ok\\n"\n);
- close(F);
-}
-END {
- 1 while unlink("rel2abs2rel$$.pl");
- 1 while unlink("rel2abs2rel$$.tmp");
-}
-
-use Config;
-
-
-# Change 'perl' to './perl' so the shell doesn't go looking through PATH.
-sub safe_rel {
- my($perl) = shift;
- $perl = File::Spec->catfile(File::Spec->curdir, $perl) unless
- File::Spec->file_name_is_absolute($perl);
-
- return $perl;
-}
-# Make a putative perl binary say "ok\n". We have to do it this way
-# because the filespec of the binary may contain characters that a
-# command interpreter considers special, so we can't use the obvious
-# `$perl -le "print 'ok'"`. And, for portability, we can't use fork().
-sub sayok{
- my $perl = shift;
- open(STDOUTDUP, '>&STDOUT');
- open(STDOUT, ">rel2abs2rel$$.tmp")
- or die "Can't open scratch file rel2abs2rel$$.tmp -- $!\n";
- system($perl, "rel2abs2rel$$.pl");
- open(STDOUT, '>&STDOUTDUP');
- close(STDOUTDUP);
-
- local *F;
- open(F, "rel2abs2rel$$.tmp");
- local $/ = undef;
- my $output = <F>;
- close(F);
- return $output;
-}
-
-print "# Checking manipulations of \$^X=$^X\n";
-
-my $perl = safe_rel($^X);
-is( sayok($perl), "ok\n", "`$perl rel2abs2rel$$.pl` works" );
-
-$perl = File::Spec->rel2abs($^X);
-is( sayok($perl), "ok\n", "`$perl rel2abs2rel$$.pl` works" );
-
-$perl = File::Spec->canonpath($perl);
-is( sayok($perl), "ok\n", "canonpath(rel2abs($^X)) = $perl" );
-
-$perl = safe_rel(File::Spec->abs2rel($perl));
-is( sayok($perl), "ok\n", "safe_rel(abs2rel(canonpath(rel2abs($^X)))) = $perl" );
-
-$perl = safe_rel(File::Spec->canonpath($^X));
-is( sayok($perl), "ok\n", "safe_rel(canonpath($^X)) = $perl" );
diff --git a/3.8.8/sources/cpan-Pod-Escapes/vendor/META.yml b/3.8.8/sources/cpan-Pod-Escapes/vendor/META.yml
deleted file mode 100644
index cc39d1f..0000000
--- a/3.8.8/sources/cpan-Pod-Escapes/vendor/META.yml
+++ /dev/null
@@ -1,10 +0,0 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: Pod-Escapes
-version: 1.04
-version_from: lib/Pod/Escapes.pm
-installdirs: site
-requires:
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
diff --git a/3.8.8/sources/cpan-Pod-Parser/vendor/lib/Pod/InputObjects.pm b/3.8.8/sources/cpan-Pod-Parser/vendor/lib/Pod/InputObjects.pm
deleted file mode 100644
index 13a8618..0000000
--- a/3.8.8/sources/cpan-Pod-Parser/vendor/lib/Pod/InputObjects.pm
+++ /dev/null
@@ -1,936 +0,0 @@
-#############################################################################
-# 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.31'; ## 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
-
-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:
-
-=over 4
-
-=begin __PRIVATE__
-
-=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.
-
-=end __PRIVATE__
-
-=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 havent 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 = \⊤
-
-##---------------------------------------------------------------------------
-
-=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
-
-See L<Pod::Parser>, L<Pod::Select>
-
-=head1 AUTHOR
-
-Please report bugs using L<http://rt.cpan.org>.
-
-Brad Appleton E<lt>bradapp at enteract.comE<gt>
-
-=cut
-
-1;
diff --git a/3.8.8/sources/cpan-Pod-Parser/vendor/scripts/pod2usage.PL b/3.8.8/sources/cpan-Pod-Parser/vendor/scripts/pod2usage.PL
deleted file mode 100644
index b9e6c77..0000000
--- a/3.8.8/sources/cpan-Pod-Parser/vendor/scripts/pod2usage.PL
+++ /dev/null
@@ -1,180 +0,0 @@
-#!/usr/local/bin/perl
-
-use Config;
-use File::Basename qw(&basename &dirname);
-use Cwd;
-
-# List explicitly here the variables you want Configure to
-# generate. Metaconfig only looks for shell variables, so you
-# have to mention them as if they were shell variables, not
-# %Config entries. Thus you write
-# $startperl
-# to ensure Configure will look for $Config{startperl}.
-
-# This forces PL files to create target in same directory as PL file.
-# This is so that make depend always knows where to find PL derivatives.
-$origdir = cwd;
-chdir(dirname($0));
-$file = basename($0, '.PL');
-$file .= '.com' if $^O eq 'VMS';
-
-open OUT,">$file" or die "Can't create $file: $!";
-
-print "Extracting $file (with variable substitutions)\n";
-
-# In this section, perl variables will be expanded during extraction.
-# You can use $Config{...} to use Configure variables.
-
-print OUT <<"!GROK!THIS!";
-$Config{'startperl'}
- eval 'exec perl -S \$0 "\$@"'
- if 0;
-!GROK!THIS!
-
-# In the following, perl variables are not expanded during extraction.
-
-print OUT <<'!NO!SUBS!';
-
-#############################################################################
-# pod2usage -- command to print usage messages from embedded 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.
-#############################################################################
-
-use strict;
-#use diagnostics;
-
-=head1 NAME
-
-pod2usage - print usage messages from embedded pod docs in files
-
-=head1 SYNOPSIS
-
-=over 12
-
-=item B<pod2usage>
-
-[B<-help>]
-[B<-man>]
-[B<-exit>S< >I<exitval>]
-[B<-output>S< >I<outfile>]
-[B<-verbose> I<level>]
-[B<-pathlist> I<dirlist>]
-I<file>
-
-=back
-
-=head1 OPTIONS AND ARGUMENTS
-
-=over 8
-
-=item B<-help>
-
-Print a brief help message and exit.
-
-=item B<-man>
-
-Print this command's manual page and exit.
-
-=item B<-exit> I<exitval>
-
-The exit status value to return.
-
-=item B<-output> I<outfile>
-
-The output file to print to. If the special names "-" or ">&1" or ">&STDOUT"
-are used then standard output is used. If ">&2" or ">&STDERR" is used then
-standard error is used.
-
-=item B<-verbose> I<level>
-
-The desired level of verbosity to use:
-
- 1 : print SYNOPSIS only
- 2 : print SYNOPSIS sections and any OPTIONS/ARGUMENTS sections
- 3 : print the entire manpage (similar to running pod2text)
-
-=item B<-pathlist> I<dirlist>
-
-Specifies one or more directories to search for the input file if it
-was not supplied with an absolute path. Each directory path in the given
-list should be separated by a ':' on Unix (';' on MSWin32 and DOS).
-
-=item I<file>
-
-The pathname of a file containing pod documentation to be output in
-usage message format (defaults to standard input).
-
-=back
-
-=head1 DESCRIPTION
-
-B<pod2usage> will read the given input file looking for pod
-documentation and will print the corresponding usage message.
-If no input file is specified then standard input is read.
-
-B<pod2usage> invokes the B<pod2usage()> function in the B<Pod::Usage>
-module. Please see L<Pod::Usage/pod2usage()>.
-
-=head1 SEE ALSO
-
-L<Pod::Usage>, L<pod2text(1)>
-
-=head1 AUTHOR
-
-Please report bugs using L<http://rt.cpan.org>.
-
-Brad Appleton E<lt>bradapp at enteract.comE<gt>
-
-Based on code for B<pod2text(1)> written by
-Tom Christiansen E<lt>tchrist at mox.perl.comE<gt>
-
-=cut
-
-use Pod::Usage;
-use Getopt::Long;
-
-## Define options
-my %options = ();
-my @opt_specs = (
- 'help',
- 'man',
- 'exit=i',
- 'output=s',
- 'pathlist=s',
- 'verbose=i',
-);
-
-## Parse options
-GetOptions(\%options, @opt_specs) || pod2usage(2);
-pod2usage(1) if ($options{help});
-pod2usage(VERBOSE => 2) if ($options{man});
-
-## Dont default to STDIN if connected to a terminal
-pod2usage(2) if ((@ARGV == 0) && (-t STDIN));
-
- at ARGV = ('-') unless (@ARGV);
-if (@ARGV > 1) {
- print STDERR "pod2usage: Too many filenames given\n\n";
- pod2usage(2);
-}
-
-my %usage = ();
-$usage{-input} = shift(@ARGV);
-$usage{-exitval} = $options{'exit'} if (defined $options{'exit'});
-$usage{-output} = $options{'output'} if (defined $options{'output'});
-$usage{-verbose} = $options{'verbose'} if (defined $options{'verbose'});
-$usage{-pathlist} = $options{'pathlist'} if (defined $options{'pathlist'});
-
-pod2usage(\%usage);
-
-
-!NO!SUBS!
-
-close OUT or die "Can't close $file: $!";
-chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
-exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
-chdir $origdir;
diff --git a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/contains_bad_pod.xr b/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/contains_bad_pod.xr
deleted file mode 100644
index ad65663..0000000
--- a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/contains_bad_pod.xr
+++ /dev/null
@@ -1,5 +0,0 @@
-=head foo
-
-bar baz.
-
-=cut
diff --git a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/contains_pod.t b/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/contains_pod.t
deleted file mode 100644
index a52bfaa..0000000
--- a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/contains_pod.t
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/bin/env perl
-
-# Copyright (C) 2005 Joshua Hoblitt
-#
-# $Id$
-
-use strict;
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = '../lib';
- } else {
- use lib qw( ./lib );
- }
-}
-
-use Test::More tests => 2;
-
-use Pod::Find qw( contains_pod );
-
-{
- ok(contains_pod('t/pod/contains_pod.xr'), "contains pod");
-}
-
-{
- ok(contains_pod('t/pod/contains_bad_pod.xr'), "contains bad pod");
-}
diff --git a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/emptycmd.t b/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/emptycmd.t
deleted file mode 100644
index 59e395e..0000000
--- a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/emptycmd.t
+++ /dev/null
@@ -1,21 +0,0 @@
-BEGIN {
- use File::Basename;
- my $THISDIR = dirname $0;
- unshift @INC, $THISDIR;
- require "testp2pt.pl";
- import TestPodIncPlainText;
-}
-
-my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash
-my $passed = testpodplaintext \%options, $0;
-exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE};
-
-__END__
-
-=pod
-
-= this is a test
-of the emergency
-broadcast system
-
-=cut
diff --git a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/find.t b/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/find.t
deleted file mode 100644
index bfd66cd..0000000
--- a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/find.t
+++ /dev/null
@@ -1,161 +0,0 @@
-# Testing of Pod::Find
-# Author: Marek Rouchal <marek at saftsack.fs.uni-bayreuth.de>
-
-BEGIN {
- if($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- # The ../../../../../lib is for finding lib/utf8.pm
- # when running under all-utf8 settings (pod/find.t)
- # does not directly require lib/utf8.pm but regular
- # expressions will need that.
- @INC = qw(../lib ../../../../../lib);
- }
-}
-
-$| = 1;
-
-use Test::More tests => 4;
-
-BEGIN {
- # 1. load successful
- use_ok('Pod::Find', qw(pod_find pod_where));
-}
-
-use File::Spec;
-
-require Cwd;
-my $THISDIR = Cwd::cwd();
-my $VERBOSE = $ENV{PERL_CORE} ? 0 : ($ENV{TEST_VERBOSE} || 0);
-my $lib_dir = $ENV{PERL_CORE} ?
- File::Spec->catdir('pod', 'testpods', 'lib')
- : File::Spec->catdir($THISDIR,'lib');
-
-my $vms_unix_rpt = 0;
-my $vms_efs = 0;
-my $unix_mode = 1;
-
-if ($^O eq 'VMS') {
- $lib_dir = $ENV{PERL_CORE} ?
- VMS::Filespec::unixify(File::Spec->catdir('pod', 'testpods', 'lib'))
- : VMS::Filespec::unixify(File::Spec->catdir($THISDIR,'-','lib','pod'));
- $Qlib_dir = $lib_dir;
- $Qlib_dir =~ s#\/#::#g;
-
- $unix_mode = 0;
- if (eval 'require VMS::Feature') {
- $vms_unix_rpt = VMS::Feature::current("filename_unix_report");
- $vms_efs = VMS::Feature::current("efs_charset");
- } else {
- my $unix_rpt = $ENV{'DECC$FILENAME_UNIX_REPORT'} || '';
- my $efs_charset = $ENV{'DECC$EFS_CHARSET'} || '';
- $vms_unix_rpt = $unix_rpt =~ /^[ET1]/i;
- $vms_efs = $efs_charset =~ /^[ET1]/i;
- }
-
- # Traditional VMS mode only if VMS is not in UNIX compatible mode.
- $unix_mode = ($vms_efs && $vms_unix_rpt);
-}
-
-print "### 2. searching $lib_dir\n";
-my %pods = pod_find($lib_dir);
-my $result = join(',', sort values %pods);
-print "### found $result\n";
-my $compare = $ENV{PERL_CORE} ?
- join(',', sort qw(
- Pod::Stuff
-))
- : join(',', sort qw(
- Pod::Checker
- Pod::Find
- Pod::InputObjects
- Pod::ParseUtils
- Pod::Parser
- Pod::PlainText
- Pod::Select
- Pod::Usage
-));
-if ($^O eq 'VMS') {
- $compare = lc($compare);
- my $undollared = $Qlib_dir;
- $undollared =~ s/\$/\\\$/g;
- $undollared =~ s/\-/\\\-/g;
- $result =~ s/$undollared/pod::/g;
- $result =~ s/\$//g;
- my $count = 0;
- my @result = split(/,/,$result);
- my @compare = split(/,/,$compare);
- foreach(@compare) {
- $count += grep {/$_/} @result;
- }
- is($count/($#result+1)-1,$#compare);
-}
-elsif (File::Spec->case_tolerant || $^O eq 'dos') {
- is(lc $result,lc $compare);
-}
-else {
- is($result,$compare);
-}
-
-print "### 3. searching for File::Find\n";
-$result = pod_where({ -inc => 1, -verbose => $VERBOSE }, 'File::Find')
- || 'undef - pod not found!';
-print "### found $result\n";
-
-require Config;
-if ($^O eq 'VMS') { # privlib is perl_root:[lib] OK but not under mms
- if ($unix_mode) {
- $compare = "../lib/File/Find.pm";
- } else {
- $compare = "lib.File]Find.pm";
- }
- $result =~ s/perl_root:\[\-?\.?//i;
- $result =~ s/\[\-?\.?//i; # needed under `mms test`
- is($result,$compare);
-}
-else {
- $compare = $ENV{PERL_CORE} ?
- File::Spec->catfile(File::Spec->updir, 'lib','File','Find.pm')
- : File::Spec->catfile($Config::Config{privlibexp},"File","Find.pm");
- my $resfile = _canon($result);
- my $cmpfile = _canon($compare);
- if($^O =~ /dos|win32/i && $resfile =~ /~\d(?=\\|$)/) {
- # we have ~1 short filenames
- $resfile = quotemeta($resfile);
- $resfile =~ s/\\~\d(?=\\|$)/[^\\\\]+/g;
- ok($cmpfile =~ /^$resfile$/, "pod_where found File::Find (with long filename matching)") ||
- diag("'$cmpfile' does not match /^$resfile\$/");
- } else {
- is($resfile,$cmpfile,"pod_where found File::Find");
- }
-}
-
-# Search for a documentation pod rather than a module
-my $searchpod = 'Stuff';
-print "### 4. searching for $searchpod.pod\n";
-$result = pod_where(
- { -dirs => [ File::Spec->catdir(
- $ENV{PERL_CORE} ? () : qw(t), 'pod', 'testpods', 'lib', 'Pod') ],
- -verbose => $VERBOSE }, $searchpod)
- || "undef - $searchpod.pod not found!";
-print "### found $result\n";
-
-$compare = File::Spec->catfile(
- $ENV{PERL_CORE} ? () : qw(t),
- 'pod', 'testpods', 'lib', 'Pod' ,'Stuff.pm');
-is(_canon($result),_canon($compare));
-
-
-# make the path as generic as possible
-sub _canon
-{
- my ($path) = @_;
- $path = File::Spec->canonpath($path);
- my @comp = File::Spec->splitpath($path);
- my @dir = File::Spec->splitdir($comp[1]);
- $comp[1] = File::Spec->catdir(@dir);
- $path = File::Spec->catpath(@comp);
- $path = uc($path) if File::Spec->case_tolerant;
- print "### general path: $path\n" if $VERBOSE;
- $path;
-}
-
diff --git a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/for.t b/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/for.t
deleted file mode 100644
index 44af44f..0000000
--- a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/for.t
+++ /dev/null
@@ -1,59 +0,0 @@
-BEGIN {
- use File::Basename;
- my $THISDIR = dirname $0;
- unshift @INC, $THISDIR;
- require "testp2pt.pl";
- import TestPodIncPlainText;
-}
-
-my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash
-my $passed = testpodplaintext \%options, $0;
-exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE};
-
-
-__END__
-
-
-=pod
-
-This is a test
-
-=for theloveofpete
-You shouldn't see this
-or this
-or this
-
-=for text
-pod2text should see this
-and this
-and this
-
-and everything should see this!
-
-=begin text
-
-Similarly, this line ...
-
-and this one ...
-
-as well this one,
-
-should all be in pod2text output
-
-=end text
-
-Tweedley-deedley-dee, Im as happy as can be!
-Tweedley-deedley-dum, cuz youre my honey sugar plum!
-
-=begin atthebeginning
-
-But I expect to see neither hide ...
-
-nor tail ...
-
-of this text
-
-=end atthebeginning
-
-The rest of this should show up in everything.
-
diff --git a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/for.xr b/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/for.xr
deleted file mode 100644
index 5f6b8b2..0000000
--- a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/for.xr
+++ /dev/null
@@ -1,21 +0,0 @@
- This is a test
-
- pod2text should see this
- and this
- and this
-
- and everything should see this!
-
-Similarly, this line ...
-
-and this one ...
-
-as well this one,
-
-should all be in pod2text output
-
- Tweedley-deedley-dee, Im as happy as can be! Tweedley-deedley-dum, cuz
- youre my honey sugar plum!
-
- The rest of this should show up in everything.
-
diff --git a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/headings.t b/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/headings.t
deleted file mode 100644
index 78608d0..0000000
--- a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/headings.t
+++ /dev/null
@@ -1,140 +0,0 @@
-BEGIN {
- use File::Basename;
- my $THISDIR = dirname $0;
- unshift @INC, $THISDIR;
- require "testp2pt.pl";
- import TestPodIncPlainText;
-}
-
-my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash
-my $passed = testpodplaintext \%options, $0;
-exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE};
-
-
-__END__
-
-
-#################################################################
- use Pod::Usage;
- pod2usage( VERBOSE => 2, EXIT => 1 );
-
-=pod
-
-=head1 NAME
-
-B<rdb2pg> - insert an rdb table into a PostgreSQL database
-
-=head1 SYNOPSIS
-
-B<rdb2pg> [I<param>=I<value> ...]
-
-=head1 PARAMETERS
-
-B<rdb2pg> uses an IRAF-compatible parameter interface.
-A template parameter file is in F</proj/axaf/simul/lib/uparm/rdb2pg.par>.
-
-=over 4
-
-=item B<input> I<file>
-
-The B<RDB> file to insert into the database. If the given name
-is the string C<stdin>, it reads from the UNIX standard input stream.
-
-
-=back
-
-=head1 DESCRIPTION
-
-B<rdb2pg> will enter the data from an B<RDB> database into a
-PostgreSQL database table, optionally creating the database and the
-table if they do not exist. It automatically determines the
-PostgreSQL data type from the column definition in the B<RDB> file,
-but may be overriden via a series of definition files or directly
-via one of its parameters.
-
-The target database and table are specified by the C<db> and C<table>
-parameters. If they do not exist, and the C<createdb> parameter is
-set, they will be created. Table field definitions are determined
-in the following order:
-
-=cut
-
-#################################################################
-
-results in:
-
-
-#################################################################
-
- rdb2pg - insert an rdb table into a PostgreSQL database
-
- rdb2pg [*param*=*value* ...]
-
- rdb2pg uses an IRAF-compatible parameter interface. A template
- parameter file is in /proj/axaf/simul/lib/uparm/rdb2pg.par.
-
- The RDB file to insert into the database. If the given name is
- the string `stdin', it reads from the UNIX standard input
- stream.
-
- rdb2pg will enter the data from an RDB database into a
- PostgreSQL database table, optionally creating the database and
- the table if they do not exist. It automatically determines the
- PostgreSQL data type from the column definition in the RDB file,
- but may be overriden via a series of definition files or
- directly via one of its parameters.
-
- The target database and table are specified by the `db' and
- `table' parameters. If they do not exist, and the `createdb'
- parameter is set, they will be created. Table field definitions
- are determined in the following order:
-
-
-#################################################################
-
-while the original version of Text (using pod2text) gives
-
-#################################################################
-
-NAME
- rdb2pg - insert an rdb table into a PostgreSQL database
-
-SYNOPSIS
- rdb2pg [*param*=*value* ...]
-
-PARAMETERS
- rdb2pg uses an IRAF-compatible parameter interface. A template
- parameter file is in /proj/axaf/simul/lib/uparm/rdb2pg.par.
-
- input *file*
- The RDB file to insert into the database. If the given name
- is the string `stdin', it reads from the UNIX standard input
- stream.
-
-DESCRIPTION
- rdb2pg will enter the data from an RDB database into a
- PostgreSQL database table, optionally creating the database and
- the table if they do not exist. It automatically determines the
- PostgreSQL data type from the column definition in the RDB file,
- but may be overriden via a series of definition files or
- directly via one of its parameters.
-
- The target database and table are specified by the `db' and
- `table' parameters. If they do not exist, and the `createdb'
- parameter is set, they will be created. Table field definitions
- are determined in the following order:
-
-
-#################################################################
-
-
-Thanks for any help. If, as your email indicates, you've not much
-time to look at this, I can work around things by calling pod2text()
-directly using the official Text.pm.
-
-Diab
-
--------------
-Diab Jerius
-djerius at cfa.harvard.edu
-
diff --git a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/include.xr b/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/include.xr
deleted file mode 100644
index 624ee44..0000000
--- a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/include.xr
+++ /dev/null
@@ -1,22 +0,0 @@
- This file tries to demonstrate a simple =include directive for pods. It
- is used as follows:
-
- =include filename
-
- where "filename" is expected to be an absolute pathname, or else reside
- be relative to the directory in which the current processed podfile
- resides, or be relative to the current directory.
-
- Lets try it out with the file "included.t" shall we.
-
- ***THIS TEXT IS IMMEDIATELY BEFORE THE INCLUDE***
-
-###### begin =include included.t #####
- This is the text of the included file named "included.t". It should
- appear in the final pod document from pod2xxx
-
-###### end =include included.t #####
- ***THIS TEXT IS IMMEDIATELY AFTER THE INCLUDE***
-
- So how did we do???
-
diff --git a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/included.xr b/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/included.xr
deleted file mode 100644
index 54142fa..0000000
--- a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/included.xr
+++ /dev/null
@@ -1,3 +0,0 @@
- This is the text of the included file named "included.t". It should
- appear in the final pod document from pod2xxx
-
diff --git a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/lref.xr b/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/lref.xr
deleted file mode 100644
index 297053b..0000000
--- a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/lref.xr
+++ /dev/null
@@ -1,40 +0,0 @@
- Try out *LOTS* of different ways of specifying references:
-
- Reference the the section entry in the manpage manpage
-
- Reference the the section entry in the manpage manpage
-
- Reference the the section entry in the manpage manpage
-
- Reference the the section entry in the manpage manpage
-
- Reference the the section on "manpage/section"
-
- Reference the the section entry in the "manpage" manpage
-
- Reference the the section on "section" in the manpage manpage
-
- Reference the the section entry in the manpage manpage
-
- Reference the the section entry in the manpage manpage
-
- Now try it using the new "|" stuff ...
-
- Reference the thistext
-
- Reference the thistext
-
- Reference the thistext
-
- Reference the thistext
-
- Reference the thistext
-
- Reference the thistext
-
- Reference the thistext
-
- Reference the thistext
-
- Reference the thistext
-
diff --git a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/multiline_items.t b/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/multiline_items.t
deleted file mode 100644
index 0fe410a..0000000
--- a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/multiline_items.t
+++ /dev/null
@@ -1,31 +0,0 @@
-BEGIN {
- use File::Basename;
- my $THISDIR = dirname $0;
- unshift @INC, $THISDIR;
- require "testp2pt.pl";
- import TestPodIncPlainText;
-}
-
-my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash
-my $passed = testpodplaintext \%options, $0;
-exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE};
-
-
-__END__
-
-
-=head1 Test multiline item lists
-
-This is a test to ensure that multiline =item paragraphs
-get indented appropriately.
-
-=over 4
-
-=item This
-is
-a
-test.
-
-=back
-
-=cut
diff --git a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/nested_seqs.xr b/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/nested_seqs.xr
deleted file mode 100644
index f981061..0000000
--- a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/nested_seqs.xr
+++ /dev/null
@@ -1,3 +0,0 @@
- The statement: `This is dog kind's *finest* hour!' is a parody of a
- quotation from Winston Churchill.
-
diff --git a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/pod2usage.xr b/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/pod2usage.xr
deleted file mode 100644
index b7c3da5..0000000
--- a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/pod2usage.xr
+++ /dev/null
@@ -1,57 +0,0 @@
-###### begin =include pod2usage.PL #####
-NAME
- pod2usage - print usage messages from embedded pod docs in files
-
-SYNOPSIS
- pod2usage [-help] [-man] [-exit *exitval*] [-output *outfile*]
- [-verbose *level*] [-pathlist *dirlist*] *file*
-
-OPTIONS AND ARGUMENTS
- -help Print a brief help message and exit.
-
- -man Print this command's manual page and exit.
-
- -exit *exitval*
- The exit status value to return.
-
- -output *outfile*
- The output file to print to. If the special names "-" or ">&1"
- or ">&STDOUT" are used then standard output is used. If ">&2" or
- ">&STDERR" is used then standard error is used.
-
- -verbose *level*
- The desired level of verbosity to use:
-
- 1 : print SYNOPSIS only
- 2 : print SYNOPSIS sections and any OPTIONS/ARGUMENTS sections
- 3 : print the entire manpage (similar to running pod2text)
-
- -pathlist *dirlist*
- Specifies one or more directories to search for the input file
- if it was not supplied with an absolute path. Each directory
- path in the given list should be separated by a ':' on Unix (';'
- on MSWin32 and DOS).
-
- *file* The pathname of a file containing pod documentation to be output
- in usage message format (defaults to standard input).
-
-DESCRIPTION
- pod2usage will read the given input file looking for pod documentation
- and will print the corresponding usage message. If no input file is
- specified then standard input is read.
-
- pod2usage invokes the pod2usage() function in the Pod::Usage module.
- Please see the pod2usage() entry in the Pod::Usage manpage.
-
-SEE ALSO
- the Pod::Usage manpage, the pod2text(1) manpage
-
-AUTHOR
- Please report bugs using http://rt.cpan.org.
-
- Brad Appleton <bradapp at enteract.com>
-
- Based on code for pod2text(1) written by Tom Christiansen
- <tchrist at mox.perl.com>
-
-###### end =include pod2usage.PL #####
diff --git a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/pod2usage2.t b/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/pod2usage2.t
deleted file mode 100644
index d0097ee..0000000
--- a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/pod2usage2.t
+++ /dev/null
@@ -1,365 +0,0 @@
-#!/usr/bin/perl -w
-
-use Test::More;
-use strict;
-
-BEGIN {
- if ($^O eq 'MSWin32' || $^O eq 'VMS') {
- plan skip_all => "Not portable on Win32 or VMS\n";
- }
- else {
- plan tests => 34;
- }
- use_ok ("Pod::Usage");
-}
-
-sub getoutput
-{
- my ($code) = @_;
- my $pid = open(TEST_IN, "-|");
- unless(defined $pid) {
- die "Cannot fork: $!";
- }
- if($pid) {
- # parent
- my @out = <TEST_IN>;
- close(TEST_IN);
- my $exit = $?>>8;
- s/^/#/ for @out;
- local $" = "";
- print "#EXIT=$exit OUTPUT=+++#@out#+++\n";
- return($exit, join("", at out));
- }
- # child
- open(STDERR, ">&STDOUT");
- Test::More->builder->no_ending(1);
- &$code;
- print "--NORMAL-RETURN--\n";
- exit 0;
-}
-
-sub compare
-{
- my ($left,$right) = @_;
- $left =~ s/^#\s+/#/gm;
- $right =~ s/^#\s+/#/gm;
- $left =~ s/\s+/ /gm;
- $right =~ s/\s+/ /gm;
- $left eq $right;
-}
-
-SKIP: {
-if('Pod::Usage'->isa('Pod::Text') && $Pod::Text::VERSION < 2.18) {
- skip("Formatting with Pod::Text $Pod::Text::VERSION not reliable", 33);
-}
-
-my ($exit, $text) = getoutput( sub { pod2usage() } );
-is ($exit, 2, "Exit status pod2usage ()");
-ok (compare ($text, <<'EOT'), "Output test pod2usage ()");
-#Usage:
-# frobnicate [ -r | --recursive ] [ -f | --force ] file ...
-#
-EOT
-
-($exit, $text) = getoutput( sub { pod2usage(
- -message => 'You naughty person, what did you say?',
- -verbose => 1 ) });
-is ($exit, 1, "Exit status pod2usage (-message => '...', -verbose => 1)");
-ok (compare ($text, <<'EOT'), "Output test pod2usage (-message => '...', -verbose => 1)") or diag("Got:\n$text\n");
-#You naughty person, what did you say?
-# Usage:
-# frobnicate [ -r | --recursive ] [ -f | --force ] file ...
-#
-# Options:
-# -r | --recursive
-# Run recursively.
-#
-# -f | --force
-# Just do it!
-#
-# -n number
-# Specify number of frobs, default is 42.
-#
-EOT
-
-($exit, $text) = getoutput( sub { pod2usage(
- -verbose => 2, -exit => 42 ) } );
-is ($exit, 42, "Exit status pod2usage (-verbose => 2, -exit => 42)");
-ok (compare ($text, <<'EOT'), "Output test pod2usage (-verbose => 2, -exit => 42)");
-#NAME
-# frobnicate - do what I mean
-#
-# SYNOPSIS
-# frobnicate [ -r | --recursive ] [ -f | --force ] file ...
-#
-# DESCRIPTION
-# frobnicate does foo and bar and what not.
-#
-# OPTIONS
-# -r | --recursive
-# Run recursively.
-#
-# -f | --force
-# Just do it!
-#
-# -n number
-# Specify number of frobs, default is 42.
-#
-EOT
-
-($exit, $text) = getoutput( sub { pod2usage(0) } );
-is ($exit, 0, "Exit status pod2usage (0)");
-ok (compare ($text, <<'EOT'), "Output test pod2usage (0)");
-#Usage:
-# frobnicate [ -r | --recursive ] [ -f | --force ] file ...
-#
-# Options:
-# -r | --recursive
-# Run recursively.
-#
-# -f | --force
-# Just do it!
-#
-# -n number
-# Specify number of frobs, default is 42.
-#
-EOT
-
-($exit, $text) = getoutput( sub { pod2usage(42) } );
-is ($exit, 42, "Exit status pod2usage (42)");
-ok (compare ($text, <<'EOT'), "Output test pod2usage (42)");
-#Usage:
-# frobnicate [ -r | --recursive ] [ -f | --force ] file ...
-#
-EOT
-
-($exit, $text) = getoutput( sub { pod2usage(-verbose => 0, -exit => 'NOEXIT') } );
-is ($exit, 0, "Exit status pod2usage (-verbose => 0, -exit => 'NOEXIT')");
-ok (compare ($text, <<'EOT'), "Output test pod2usage (-verbose => 0, -exit => 'NOEXIT')");
-#Usage:
-# frobnicate [ -r | --recursive ] [ -f | --force ] file ...
-#
-# --NORMAL-RETURN--
-EOT
-
-($exit, $text) = getoutput( sub { pod2usage(-verbose => 99, -sections => 'DESCRIPTION') } );
-is ($exit, 1, "Exit status pod2usage (-verbose => 99, -sections => 'DESCRIPTION')");
-ok (compare ($text, <<'EOT'), "Output test pod2usage (-verbose => 99, -sections => 'DESCRIPTION')");
-#Description:
-# frobnicate does foo and bar and what not.
-#
-EOT
-
-# does the __DATA__ work ok as input
-my ($blib, $test_script, $pod_file1, , $pod_file2);
-if ($ENV{PERL_CORE}) {
- $blib = '-I../lib';
- $test_script = File::Spec->catfile(qw(pod p2u_data.pl));
- $pod_file1 = File::Spec->catfile(qw(pod usage.pod));
- $pod_file2 = File::Spec->catfile(qw(pod usage2.pod));
-} else {
- $blib = '-Mblib';
- $test_script = File::Spec->catfile(qw(t pod p2u_data.pl));
- $pod_file1 = File::Spec->catfile(qw(t pod usage.pod));
- $pod_file2 = File::Spec->catfile(qw(t pod usage2.pod));
-}
-
-($exit, $text) = getoutput( sub { system($^X, $blib, $test_script); exit($? >> 8); } );
-$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR
-is ($exit, 17, "Exit status pod2usage (-verbose => 2, -input => \*DATA)");
-ok (compare ($text, <<'EOT'), "Output test pod2usage (-verbose => 2, -input => \*DATA)") or diag "Got:\n$text\n";
-#NAME
-# Test
-#
-#SYNOPSIS
-# perl podusagetest.pl
-#
-#DESCRIPTION
-# This is a test.
-#
-EOT
-
-# test that SYNOPSIS and USAGE are printed
-($exit, $text) = getoutput( sub { pod2usage(-input => $pod_file1,
- -exitval => 0, -verbose => 0); });
-$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR
-is ($exit, 0, "Exit status pod2usage with USAGE");
-ok (compare ($text, <<'EOT'), "Output test pod2usage with USAGE") or diag "Got:\n$text\n";
-#Usage:
-# This is a test for CPAN#33020
-#
-#Usage:
-# And this will be also printed.
-#
-EOT
-
-# test that SYNOPSIS and USAGE are printed with options
-($exit, $text) = getoutput( sub { pod2usage(-input => $pod_file1,
- -exitval => 0, -verbose => 1); });
-$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR
-is ($exit, 0, "Exit status pod2usage with USAGE and verbose=1");
-ok (compare ($text, <<'EOT'), "Output test pod2usage with USAGE and verbose=1") or diag "Got:\n$text\n";
-#Usage:
-# This is a test for CPAN#33020
-#
-#Usage:
-# And this will be also printed.
-#
-#Options:
-# And this with verbose == 1
-#
-EOT
-
-# test that only USAGE is printed when requested
-($exit, $text) = getoutput( sub { pod2usage(-input => $pod_file1,
- -exitval => 0, -verbose => 99, -sections => 'USAGE'); });
-$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR
-is ($exit, 0, "Exit status pod2usage with USAGE and verbose=99");
-ok (compare ($text, <<'EOT'), "Output test pod2usage with USAGE and verbose=99") or diag "Got:\n$text\n";
-#Usage:
-# This is a test for CPAN#33020
-#
-EOT
-
-# test with pod_where
-use_ok('Pod::Find', qw(pod_where));
-# Exclude current dir when testing in CORE under Cygwin
-my @NO_CURDIR = ($^O eq 'cygwin' && $ENV{PERL_CORE})
- ? ('-dirs' => [])
- : ();
-
-($exit, $text) = getoutput( sub { pod2usage( -input => pod_where({-inc => 1, @NO_CURDIR}, 'Pod::Usage'),
- -exitval => 0, -verbose => 0) } );
-$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR
-is ($exit, 0, "Exit status pod2usage with Pod::Find");
-ok (compare ($text, <<'EOT'), "Output test pod2usage with Pod::Find") or diag "Got:\n$text\n";
-#Usage:
-# 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 )
-#
-EOT
-
-# verify that sections are correctly found after nested headings
-($exit, $text) = getoutput( sub { pod2usage(-input => $pod_file2,
- -exitval => 0, -verbose => 99,
- -sections => [qw(BugHeader BugHeader/.*')]) });
-$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR
-is ($exit, 0, "Exit status pod2usage with nested headings");
-ok (compare ($text, <<'EOT'), "Output test pod2usage with nested headings") or diag "Got:\n$text\n";
-#BugHeader:
-# Some text
-#
-# BugHeader2:
-# More
-# Still More
-#
-EOT
-
-# Verify that =over =back work OK
-($exit, $text) = getoutput( sub {
- pod2usage(-input => $pod_file2,
- -exitval => 0, -verbose => 99, -sections => 'BugHeader/BugHeader2') } );
-$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR
-is ($exit, 0, "Exit status pod2usage with over/back");
-ok (compare ($text, <<'EOT'), "Output test pod2usage with over/back") or diag "Got:\n$text\n";
-# BugHeader2:
-# More
-# Still More
-#
-EOT
-
-# new array API for -sections
-($exit, $text) = getoutput( sub {
- pod2usage(-input => $pod_file2,
- -exitval => 0, -verbose => 99, -sections => [qw(Heading-1/!.+ Heading-2/.+)]) } );
-$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR
-is ($exit, 0, "Exit status pod2usage with -sections => []");
-ok (compare ($text, <<'EOT'), "Output test pod2usage with -sections => []") or diag "Got:\n$text\n";
-#Heading-1:
-# One
-# Two
-#
-# Heading-2.2:
-# More text.
-#
-EOT
-
-# allow subheadings in OPTIONS and ARGUMENTS
-($exit, $text) = getoutput( sub {
- pod2usage(-input => $pod_file2,
- -exitval => 0, -verbose => 1) } );
-$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR
-$text =~ s{[*](destination|files)[*]}{$1}g; # strip * chars
-is ($exit, 0, "Exit status pod2usage with subheadings in OPTIONS");
-ok (compare ($text, <<'EOT'), "Output test pod2usage with subheadings in OPTIONS") or diag "Got:\n$text\n";
-#Options and Arguments:
-# Arguments:
-# The required arguments (which typically follow any options on the
-# command line) are:
-#
-# destination
-# files
-#
-# Options:
-# Options may be abbreviated. Options which take values may be separated
-# from the values by whitespace or the "=" character.
-#
-EOT
-} # end SKIP
-
-__END__
-
-=head1 NAME
-
-frobnicate - do what I mean
-
-=head1 SYNOPSIS
-
-B<frobnicate> S<[ B<-r> | B<--recursive> ]> S<[ B<-f> | B<--force> ]>
- file ...
-
-=head1 DESCRIPTION
-
-B<frobnicate> does foo and bar and what not.
-
-=head1 OPTIONS
-
-=over 4
-
-=item B<-r> | B<--recursive>
-
-Run recursively.
-
-=item B<-f> | B<--force>
-
-Just do it!
-
-=item B<-n> number
-
-Specify number of frobs, default is 42.
-
-=back
-
-=cut
-
diff --git a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/podchkenc.t b/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/podchkenc.t
deleted file mode 100644
index ccc2421..0000000
--- a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/podchkenc.t
+++ /dev/null
@@ -1,29 +0,0 @@
-#!/usr/bin/perl
-BEGIN {
- use File::Basename;
- my $THISDIR = dirname $0;
- unshift @INC, $THISDIR;
- require "testpchk.pl";
- import TestPodChecker;
-}
-
-# this tests Pod::Checker accepts =encoding directive
-
-my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash
-my $passed = testpodchecker \%options, $0;
-exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE};
-
-__END__
-
-=encoding utf8
-
-=encode utf8
-
-dummy error
-
-=head1 An example.
-
-'Twas brillig, and the slithy toves did gyre and gimble in the wabe.
-
-=cut
-
diff --git a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/podchkenc.xr b/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/podchkenc.xr
deleted file mode 100644
index 45ec573..0000000
--- a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/podchkenc.xr
+++ /dev/null
@@ -1 +0,0 @@
-*** ERROR: Unknown command 'encode' at line 20 in file t/pod/podchkenc.t
diff --git a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/poderrs.t b/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/poderrs.t
deleted file mode 100644
index 98c6320..0000000
--- a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/poderrs.t
+++ /dev/null
@@ -1,209 +0,0 @@
-BEGIN {
- use File::Basename;
- my $THISDIR = dirname $0;
- unshift @INC, $THISDIR;
- require "testpchk.pl";
- import TestPodChecker;
-}
-
-my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash
-my $passed = testpodchecker \%options, $0;
-exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE};
-
-### Deliberately throw in some blank but non-empty lines
-
-### The above line should contain spaces
-
-
-__END__
-
-=head2 This should cause a warning
-
-=head1 NAME
-
-poderrors.t - test Pod::Checker on some pod syntax errors
-
-=unknown1 this is an unknown command with two N<unknownA>
-and D<unknownB> interior sequences.
-
-This is some paragraph text with some unknown interior sequences,
-such as Q<unknown2>,
-A<unknown3>,
-and Y<unknown4 V<unknown5>>.
-
-Now try some unterminated sequences like
-I<hello mudda!
-B<hello fadda!
-
-Here I am at C<camp granada!
-
-Camps is very,
-entertaining.
-And they say we'll have some fun if it stops raining!
-
-Okay, now use a non-empty blank line to terminate a paragraph and make
-sure we get a warning.
-
-The above blank line contains tabs and spaces only
-
-=head1 Additional tests
-
-=head2 item without over
-
-=item oops
-
-=head2 back without over
-
-=back
-
-=head2 over without back
-
-=over 4
-
-=item aaps
-
-=head2 end without begin
-
-=end
-
-=head2 begin and begin
-
-=begin html
-
-=begin text
-
-=end
-
-=end
-
-second one results in end w/o begin
-
-=head2 begin w/o formatter
-
-=begin
-
-=end
-
-=head2 for w/o formatter
-
-=for
-
-something...
-
-=head2 Nested sequences of the same type
-
-C<code I<italic C<code again!>>>
-
-=head2 Garbled entities
-
-E<alea iacta est>
-E<C<auml>>
-E<abcI<bla>>
-E<0x100>
-E<07777>
-E<300>
-
-=head2 Unresolved internal links
-
-L</"begin or begin">
-L<"end with begin">
-L</OoPs>
-
-=head2 Some links with problems
-
-L<abc
-def>
-L<>
-L< aha>
-L<oho >
-L<"Warnings"> this one is ok
-L</unescaped> ok too, this POD has an X of the same name
-
-=head2 Warnings
-
-L<passwd(5)>
-L<some text with / in it|perlvar/$|> should give warnings as hell
-
-=over 4
-
-=item bla
-
-=back 200
-
-the 200 is evil
-
-=begin html
-
-What?
-
-=end xml
-
-X<unescaped>see these unescaped < and > in the text?
-
-=head2 Misc
-
-Z<ddd> should be empty
-
-X<> should not be empty
-
-=over four
-
-This paragrapgh is misplaced - it ought to be an item.
-
-=item four should be numeric!
-
-=item
-
-=item blah
-
-=item previous is all empty!!!
-
-=back
-
-All empty over/back:
-
-=over 4
-
-=back
-
-item w/o name
-
-=cut
-
-=pod bla
-
-bla is evil
-
-=cut blub
-
-blub is evil
-
-=head2 reoccurence
-
-=over 4
-
-=item Misc
-
-we already have a head Misc
-
-=back
-
-=head2 some heading
-
-=head2 another one
-
-previous section is empty!
-
-=head1 LINK TESTS
-
-Due to bug reported by Rafael Garcia-Suarez "rgarciasuarez at free.fr":
-
-The following hyperlinks :
-L<"I/O Operators">
-L<perlop/"I/O Operators">
-trigger a podchecker warning (using bleadperl) :
- node 'I/O Operators' contains non-escaped | or /
-
-=cut
-
-
diff --git a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/poderrs.xr b/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/poderrs.xr
deleted file mode 100644
index 5b40d7a..0000000
--- a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/poderrs.xr
+++ /dev/null
@@ -1,47 +0,0 @@
-*** WARNING: =head2 without preceding higher level at line 20 in file t/pod/poderrs.t
-*** WARNING: empty section in previous paragraph at line 22 in file t/pod/poderrs.t
-*** ERROR: Unknown command 'unknown1' at line 26 in file t/pod/poderrs.t
-*** ERROR: Unknown interior-sequence 'Q' at line 30 in file t/pod/poderrs.t
-*** ERROR: Unknown interior-sequence 'A' at line 31 in file t/pod/poderrs.t
-*** ERROR: Unknown interior-sequence 'Y' at line 32 in file t/pod/poderrs.t
-*** ERROR: Unknown interior-sequence 'V' at line 32 in file t/pod/poderrs.t
-*** ERROR: unterminated B<...> at line 36 in file t/pod/poderrs.t
-*** ERROR: unterminated I<...> at line 35 in file t/pod/poderrs.t
-*** ERROR: unterminated C<...> at line 38 in file t/pod/poderrs.t
-*** WARNING: line containing nothing but whitespace in paragraph at line 46 in file t/pod/poderrs.t
-*** ERROR: =item without previous =over at line 53 in file t/pod/poderrs.t
-*** ERROR: =back without previous =over at line 57 in file t/pod/poderrs.t
-*** ERROR: =over on line 61 without closing =back (at head2) at line 65 in file t/pod/poderrs.t
-*** ERROR: =end without =begin at line 67 in file t/pod/poderrs.t
-*** ERROR: Nested =begin's (first at line 71:html) at line 73 in file t/pod/poderrs.t
-*** ERROR: =end without =begin at line 77 in file t/pod/poderrs.t
-*** ERROR: No argument for =begin at line 83 in file t/pod/poderrs.t
-*** ERROR: =for without formatter specification at line 89 in file t/pod/poderrs.t
-*** WARNING: nested commands C<...C<...>...> at line 95 in file t/pod/poderrs.t
-*** ERROR: garbled entity E<alea iacta est> at line 99 in file t/pod/poderrs.t
-*** ERROR: garbled entity E<C<auml>> at line 100 in file t/pod/poderrs.t
-*** ERROR: garbled entity E<abcI<bla>> at line 101 in file t/pod/poderrs.t
-*** ERROR: Entity number out of range E<0x100> at line 102 in file t/pod/poderrs.t
-*** ERROR: Entity number out of range E<07777> at line 103 in file t/pod/poderrs.t
-*** ERROR: Entity number out of range E<300> at line 104 in file t/pod/poderrs.t
-*** ERROR: malformed link L<> : empty link at line 116 in file t/pod/poderrs.t
-*** WARNING: ignoring leading whitespace in link at line 117 in file t/pod/poderrs.t
-*** WARNING: ignoring trailing whitespace in link at line 118 in file t/pod/poderrs.t
-*** WARNING: (section) in 'passwd(5)' deprecated at line 124 in file t/pod/poderrs.t
-*** WARNING: node '$|' contains non-escaped | or / at line 125 in file t/pod/poderrs.t
-*** WARNING: alternative text '$|' contains non-escaped | or / at line 125 in file t/pod/poderrs.t
-*** ERROR: Spurious character(s) after =back at line 131 in file t/pod/poderrs.t
-*** ERROR: Nonempty Z<> at line 145 in file t/pod/poderrs.t
-*** ERROR: Empty X<> at line 147 in file t/pod/poderrs.t
-*** WARNING: preceding non-item paragraph(s) at line 153 in file t/pod/poderrs.t
-*** WARNING: No argument for =item at line 155 in file t/pod/poderrs.t
-*** WARNING: previous =item has no contents at line 157 in file t/pod/poderrs.t
-*** WARNING: No items in =over (at line 165) / =back list at line 167 in file t/pod/poderrs.t
-*** ERROR: Spurious text after =pod at line 173 in file t/pod/poderrs.t
-*** ERROR: Spurious text after =cut at line 177 in file t/pod/poderrs.t
-*** WARNING: empty section in previous paragraph at line 193 in file t/pod/poderrs.t
-*** ERROR: unresolved internal link 'begin or begin' at line 108 in file t/pod/poderrs.t
-*** ERROR: unresolved internal link 'end with begin' at line 109 in file t/pod/poderrs.t
-*** ERROR: unresolved internal link 'OoPs' at line 110 in file t/pod/poderrs.t
-*** ERROR: unresolved internal link 'abc def' at line 114 in file t/pod/poderrs.t
-*** ERROR: unresolved internal link 'I/O Operators' at line 202 in file t/pod/poderrs.t
diff --git a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/podselect.t b/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/podselect.t
deleted file mode 100644
index 0004548..0000000
--- a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/podselect.t
+++ /dev/null
@@ -1,18 +0,0 @@
-BEGIN {
- use File::Basename;
- my $THISDIR = dirname $0;
- unshift @INC, $THISDIR;
- require "testp2pt.pl";
- import TestPodIncPlainText;
-}
-
-my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash
-my $passed = testpodplaintext \%options, $0;
-exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE};
-
-
-__END__
-
-=include podselect.PL
-
-
diff --git a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/podselect.xr b/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/podselect.xr
deleted file mode 100644
index c288e91..0000000
--- a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/podselect.xr
+++ /dev/null
@@ -1,44 +0,0 @@
-###### begin =include podselect.PL #####
-NAME
- podselect - print selected sections of pod documentation on standard
- output
-
-SYNOPSIS
- podselect [-help] [-man] [-section *section-spec*] [*file* ...]
-
-OPTIONS AND ARGUMENTS
- -help Print a brief help message and exit.
-
- -man Print the manual page and exit.
-
- -section *section-spec*
- Specify a section to include in the output. See the section on
- "SECTION SPECIFICATIONS" in the Pod::Parser manpage for the
- format to use for *section-spec*. This option may be given
- multiple times on the command line.
-
- *file* The pathname of a file from which to select sections of pod
- documentation (defaults to standard input).
-
-DESCRIPTION
- podselect will read the given input files looking for pod documentation
- and will print out (in raw pod format) all sections that match one ore
- more of the given section specifications. If no section specifications
- are given than all pod sections encountered are output.
-
- podselect invokes the podselect() function exported by Pod::Select
- Please see the podselect() entry in the Pod::Select manpage for more
- details.
-
-SEE ALSO
- the Pod::Parser manpage and the Pod::Select manpage
-
-AUTHOR
- Please report bugs using http://rt.cpan.org.
-
- Brad Appleton <bradapp at enteract.com>
-
- Based on code for Pod::Text::pod2text(1) written by Tom Christiansen
- <tchrist at mox.perl.com>
-
-###### end =include podselect.PL #####
diff --git a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/testp2pt.pl b/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/testp2pt.pl
deleted file mode 100644
index a828e85..0000000
--- a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/testp2pt.pl
+++ /dev/null
@@ -1,188 +0,0 @@
-package TestPodIncPlainText;
-
-BEGIN {
- use File::Basename;
- use File::Spec;
- use Cwd qw(abs_path);
- push @INC, '..';
- my $THISDIR = abs_path(dirname $0);
- unshift @INC, $THISDIR;
- require "testcmp.pl";
- import TestCompare;
- my $PARENTDIR = dirname $THISDIR;
- push @INC, map { File::Spec->catfile($_, 'lib') } ($PARENTDIR, $THISDIR);
-}
-
-#use strict;
-#use diagnostics;
-use Carp;
-use Exporter;
-#use File::Compare;
-#use Cwd qw(abs_path);
-
-use vars qw($MYPKG @EXPORT @ISA);
-$MYPKG = eval { (caller)[0] };
- at EXPORT = qw(&testpodplaintext);
-BEGIN {
- require Pod::PlainText;
- @ISA = qw( Pod::PlainText );
- require VMS::Filespec if $^O eq 'VMS';
-}
-
-## Hardcode settings for TERMCAP and COLUMNS so we can try to get
-## reproducible results between environments
- at ENV{qw(TERMCAP COLUMNS)} = ('co=76:do=^J', 76);
-
-sub catfile(@) { File::Spec->catfile(@_); }
-
-my $INSTDIR = abs_path(dirname $0);
-$INSTDIR = VMS::Filespec::unixpath($INSTDIR) if $^O eq 'VMS';
-$INSTDIR =~ s#/$## if $^O eq 'VMS';
-$INSTDIR =~ s#:$## if $^O eq 'MacOS';
-$INSTDIR = (dirname $INSTDIR) if (basename($INSTDIR) eq 'pod');
-$INSTDIR =~ s#:$## if $^O eq 'MacOS';
-$INSTDIR = (dirname $INSTDIR) if (basename($INSTDIR) eq 't');
-my @PODINCDIRS = ( catfile($INSTDIR, 'lib', 'Pod'),
- catfile($INSTDIR, 'scripts'),
- catfile($INSTDIR, 'pod'),
- catfile($INSTDIR, 't', 'pod')
- );
-
-## Find the path to the file to =include
-sub findinclude {
- my $self = shift;
- my $incname = shift;
-
- ## See if its already found w/out any "searching;
- return $incname if (-r $incname);
-
- ## Need to search for it. Look in the following directories ...
- ## 1. the directory containing this pod file
- my $thispoddir = dirname $self->input_file;
- ## 2. the parent directory of the above
- my $parentdir = dirname $thispoddir;
- my @podincdirs = ($thispoddir, $parentdir, @PODINCDIRS);
-
- for (@podincdirs) {
- my $incfile = catfile($_, $incname);
- return $incfile if (-r $incfile);
- }
- warn("*** Can't find =include file $incname in @podincdirs\n");
- return "";
-}
-
-sub command {
- my $self = shift;
- my ($cmd, $text, $line_num, $pod_para) = @_;
- $cmd = '' unless (defined $cmd);
- local $_ = $text || '';
- my $out_fh = $self->output_handle;
-
- ## Defer to the superclass for everything except '=include'
- return $self->SUPER::command(@_) unless ($cmd eq "include");
-
- ## We have an '=include' command
- my $incdebug = 1; ## debugging
- my @incargs = split;
- if (@incargs == 0) {
- warn("*** No filename given for '=include'\n");
- return;
- }
- my $incfile = $self->findinclude(shift @incargs) or return;
- my $incbase = basename $incfile;
- print $out_fh "###### begin =include $incbase #####\n" if ($incdebug);
- $self->parse_from_file( {-cutting => 1}, $incfile );
- print $out_fh "###### end =include $incbase #####\n" if ($incdebug);
-}
-
-sub begin_input {
- $_[0]->{_INFILE} = VMS::Filespec::unixify($_[0]->{_INFILE}) if $^O eq 'VMS';
-}
-
-sub podinc2plaintext( $ $ ) {
- my ($infile, $outfile) = @_;
- local $_;
- my $text_parser = $MYPKG->new;
- $text_parser->parse_from_file($infile, $outfile);
-}
-
-sub testpodinc2plaintext( @ ) {
- my %args = @_;
- my $infile = $args{'-In'} || croak "No input file given!";
- my $outfile = $args{'-Out'} || croak "No output file given!";
- my $cmpfile = $args{'-Cmp'} || croak "No compare-result file given!";
-
- my $different = '';
- my $testname = basename $cmpfile, '.t', '.xr';
-
- unless (-e $cmpfile) {
- my $msg = "*** Can't find comparison file $cmpfile for testing $infile";
- warn "$msg\n";
- return $msg;
- }
-
- print "# Running testpodinc2plaintext for '$testname'...\n";
- ## Compare the output against the expected result
- podinc2plaintext($infile, $outfile);
- if ( testcmp($outfile, $cmpfile) ) {
- $different = "$outfile is different from $cmpfile";
- }
- else {
- unlink($outfile);
- }
- return $different;
-}
-
-sub testpodplaintext( @ ) {
- my %opts = (ref $_[0] eq 'HASH') ? %{shift()} : ();
- my @testpods = @_;
- my ($testname, $testdir) = ("", "");
- my ($podfile, $cmpfile) = ("", "");
- my ($outfile, $errfile) = ("", "");
- my $passes = 0;
- my $failed = 0;
- local $_;
-
- print "1..", scalar @testpods, "\n" unless ($opts{'-xrgen'});
-
- for $podfile (@testpods) {
- ($testname, $_) = fileparse($podfile);
- $testdir ||= $_;
- $testname =~ s/\.t$//;
- $cmpfile = $testdir . $testname . '.xr';
- $outfile = $testdir . $testname . '.OUT';
-
- if ($opts{'-xrgen'}) {
- if ($opts{'-force'} or ! -e $cmpfile) {
- ## Create the comparison file
- print "# Creating expected result for \"$testname\"" .
- " pod2plaintext test ...\n";
- podinc2plaintext($podfile, $cmpfile);
- }
- else {
- print "# File $cmpfile already exists" .
- " (use '-force' to regenerate it).\n";
- }
- next;
- }
-
- my $failmsg = testpodinc2plaintext
- -In => $podfile,
- -Out => $outfile,
- -Cmp => $cmpfile;
- if ($failmsg) {
- ++$failed;
- print "#\tFAILED. ($failmsg)\n";
- print "not ok ", $failed+$passes, "\n";
- }
- else {
- ++$passes;
- unlink($outfile);
- print "#\tPASSED.\n";
- print "ok ", $failed+$passes, "\n";
- }
- }
- return $passes;
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/testpchk.pl b/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/testpchk.pl
deleted file mode 100644
index 8aa10b9..0000000
--- a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/testpchk.pl
+++ /dev/null
@@ -1,129 +0,0 @@
-package TestPodChecker;
-
-BEGIN {
- use File::Basename;
- use File::Spec;
- push @INC, '..';
- my $THISDIR = dirname $0;
- unshift @INC, $THISDIR;
- require "testcmp.pl";
- import TestCompare;
- my $PARENTDIR = dirname $THISDIR;
- push @INC, map { File::Spec->catfile($_, 'lib') } ($PARENTDIR, $THISDIR);
- require VMS::Filespec if $^O eq 'VMS';
-}
-
-use Pod::Checker;
-use vars qw(@ISA @EXPORT $MYPKG);
-#use strict;
-#use diagnostics;
-use Carp;
-use Exporter;
-#use File::Compare;
-
- at ISA = qw(Exporter);
- at EXPORT = qw(&testpodchecker);
-$MYPKG = eval { (caller)[0] };
-
-sub stripname( $ ) {
- local $_ = shift;
- return /(\w[.\w]*)\s*$/ ? $1 : $_;
-}
-
-sub msgcmp( $ $ ) {
- ## filter out platform-dependent aspects of error messages
- my ($line1, $line2) = @_;
- for ($line1, $line2) {
- ## remove filenames from error messages to avoid any
- ## filepath naming differences between OS platforms
- s/(at line \S+ in file) .*\W(\w+\.[tT])\s*$/$1 \L$2\E/;
- s/.*\W(\w+\.[tT]) (has \d+ pod syntax error)/\L$1\E $2/;
- }
- return ($line1 ne $line2);
-}
-
-sub testpodcheck( @ ) {
- my %args = @_;
- my $infile = $args{'-In'} || croak "No input file given!";
- my $outfile = $args{'-Out'} || croak "No output file given!";
- my $cmpfile = $args{'-Cmp'} || croak "No compare-result file given!";
-
- my $different = '';
- my $testname = basename $cmpfile, '.t', '.xr';
-
- unless (-e $cmpfile) {
- my $msg = "*** Can't find comparison file $cmpfile for testing $infile";
- warn "$msg\n";
- return $msg;
- }
-
- print "# Running podchecker for '$testname'...\n";
- ## Compare the output against the expected result
- if ($^O eq 'VMS') {
- for ($infile, $outfile, $cmpfile) {
- $_ = VMS::Filespec::unixify($_) unless ref;
- }
- }
- podchecker($infile, $outfile);
- if ( testcmp({'-cmplines' => \&msgcmp}, $outfile, $cmpfile) ) {
- $different = "$outfile is different from $cmpfile";
- }
- else {
- unlink($outfile);
- }
- return $different;
-}
-
-sub testpodchecker( @ ) {
- my %opts = (ref $_[0] eq 'HASH') ? %{shift()} : ();
- my @testpods = @_;
- my ($testname, $testdir) = ("", "");
- my ($podfile, $cmpfile) = ("", "");
- my ($outfile, $errfile) = ("", "");
- my $passes = 0;
- my $failed = 0;
- local $_;
-
- print "1..", scalar @testpods, "\n" unless ($opts{'-xrgen'});
-
- for $podfile (@testpods) {
- ($testname, $_) = fileparse($podfile);
- $testdir ||= $_;
- $testname =~ s/\.t$//;
- $cmpfile = $testdir . $testname . '.xr';
- $outfile = $testdir . $testname . '.OUT';
-
- if ($opts{'-xrgen'}) {
- if ($opts{'-force'} or ! -e $cmpfile) {
- ## Create the comparison file
- print "# Creating expected result for \"$testname\"" .
- " podchecker test ...\n";
- podchecker($podfile, $cmpfile);
- }
- else {
- print "# File $cmpfile already exists" .
- " (use '-force' to regenerate it).\n";
- }
- next;
- }
-
- my $failmsg = testpodcheck
- -In => $podfile,
- -Out => $outfile,
- -Cmp => $cmpfile;
- if ($failmsg) {
- ++$failed;
- print "#\tFAILED. ($failmsg)\n";
- print "not ok ", $failed+$passes, "\n";
- }
- else {
- ++$passes;
- unlink($outfile);
- print "#\tPASSED.\n";
- print "ok ", $failed+$passes, "\n";
- }
- }
- return $passes;
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/testpods/lib/Pod/Stuff.pm b/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/testpods/lib/Pod/Stuff.pm
deleted file mode 100644
index d5c1120..0000000
--- a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/testpods/lib/Pod/Stuff.pm
+++ /dev/null
@@ -1,20 +0,0 @@
-=head1 NAME
-
-Pod::Stuff - dummy testing pod
-
-=head1 DESCRIPTION
-
-This isn't really anything, its just some dummy pod code.
-And stuff.
-
-Lots of stuff.
-
-=head2 STUFF
-
-For all your stuff [tm]
-
-Stuffit
-
-Mmmm, stuffed pizza bread.
-
-=cut
diff --git a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/usage2.pod b/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/usage2.pod
deleted file mode 100644
index 5c4817b..0000000
--- a/3.8.8/sources/cpan-Pod-Parser/vendor/t/pod/usage2.pod
+++ /dev/null
@@ -1,56 +0,0 @@
-=head1 Heading-1
-
-=over 100
-
-=item One
-
-=item Two
-
-=back
-
-=head2 Heading 2
-
-Some text
-
-=head1 BugHeader
-
-Some text
-
-=head2 BugHeader2
-
-=over 4
-
-=item More
-
-=item Still More
-
-=back
-
-=head1 Heading-2
-
-=head2 Heading-2.2
-
-More text.
-
-=head1 OPTIONS AND ARGUMENTS
-
-=head2 Arguments
-
-The required arguments (which typically follow any options on the
-command line) are:
-
-=over
-
-=item I<destination>
-
-=item I<files>
-
-=back
-
-=head2 Options
-
-Options may be abbreviated. Options which take values may be separated
-from the values by whitespace or the "=" character.
-
-=cut
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/ChangeLog b/3.8.8/sources/cpan-Pod-Simple/vendor/ChangeLog
deleted file mode 100644
index fa17d2c..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/ChangeLog
+++ /dev/null
@@ -1,453 +0,0 @@
-# ChangeLog for Pod::Simple dist
-#---------------------------------------------------------------------------
-
-2009-04-27
- * Release 3.14
-
- Removed explicit loading of UNIVERSAL. RJBS.
-
- Reversed the change applied in release 3.09 to fix RT #12239. POD
- tag found inside a complex POD tag (e.g., "C<<< I<foo> >>>") is
- again parsed as a tag embedded in a tag instead of text and
- entities. The previous interpretation of `perldoc perlpod` was
- mistaken. (RT #55602 from Christopher J. Madsen).
-
-2009-12-17 David E. Wheeler <david at justatheory.org>
- * Release 3.13
-
- Removed deleted test file from MANIFEST.
-
-2009-12-17 David E. Wheeler <david at justatheory.org>
- * Release 3.12
-
- Removed "All rights reserved" from all files.
-
- Added acknowledgements to man.he.net and search.cpan.org for
- permission to link man pages and Perl module links to their sites
- in the output of Pod::Simple::HTML and Pod::Simple::XHTML.
-
- Add "html_h_level" option to Pod::Simple::XHTML and ::HTML to allow
- a =head1 to become an <h2> and so on. RJBS.
-
- Add batch_mode_page_object_init() method to Pod::Simple::XHTML.
- This allows it to be used by Pod::Simple::HTMLBatch.
-
- Fixed a regression in Pod::Simple::XHTML where '=begin html' blocks
- were incorrectly escaped rather than simply passed through unmolested.
- RJBS.
-
- Removed the undocumented "fullstop_space_harden" attribute, which
- apparently was only used by Pod::Text a very long time ago.
-
-2009-12-09 David E. Wheeler <david at justatheory.org>
- * Release 3.11
-
- Restored code to HTMLBatch that allows the TOC (index) to be created
- in batch jobs (RT #52324 from Martin J. Evans).
-
- Added resources to META.yml, including bug tracker, license, and
- repository.
-
- Turned man page links into links to man.he.net in Pod::Simple::HTML
- and Pod::Simple::XHTML output. Subclass and override
- resolve_man_page_link() to use a different URL.
-
- Added the resolve_pod_page_link() and resolve_man_page_link() methods
- to Pod::Simple::XHTML to make it easier for subclasses to change the
- URLs created for POD and man page links.
-
- Fixed the output of entities in L<> tags by Pod::Simple::XHTML.
-
- Fixed the output of POD links from Pod::Simple::XHTML so that the
- section part (/foo) is turned into a proper fragment identfier (#foo)
- in the resulting search.cpan.org link.
-
- Pod::Simple::Text now outputs URLs for links created in the
- L<text|URL> format. For example, L<Perl|http://perl.org> is now
- output as "Perl <http://perl.org>" rather than just as "Perl".
-
- Updated perlpod.pod and perlpodspec.pod to sync up with Perl core
- (and to be released in Perl 5.12). Changes include:
- * Removing the prohibition against L<text|href>
- * Deprecation of L<section> and L<"section">
- * Legalization of "=begin formatname parameter"
-
- A couple of bug fixes in Pod::Simple::HTML from Graham Barr.
-
- Added the do_section() method to Pod::Simple::HTML. Graham Barr.
-
- Word-smithed the "DESCRIPTION" a bit and wrote the README.
-
- Synced up all module version numbers to 3.11 except for
- Pod::Simple::HTMLLegacy, which is at 5.01 and should not have its
- version number lowered.
-
-2009-11-12 David E. Wheeler <david at justatheory.org>
- * Release 3.10
-
- Converted test files that had DOS endings to have Unix endings
- (RT #50922 from Steve Hay).
-
- Skip tests on VMS where the lack of filename case preservation can
- wreak havoc (RT #51184 from Craig A. Berry).
-
- Fix nested definition list format in the XHTML output
- (RT #51187 from Lars Dɪᴇᴄᴋá´á´¡).
-
- Added some files missing from the MANIFEST (and therefore the
- distribution) in the last two releases.
-
-2009-10-27 Allison Randal <allison at perl.org>
- * Release 3.09
-
- Add support for an index (TOC) in the XHTML output from David E.
- Wheeler.
-
- Add strip_verbatim_indent() from David E. Wheeler.
-
- Added the "nocase" option to PullParser's get_title(),
- get_version(), get_description(), and get_author() methods. This
- allows one to fetch the contents of those sections regardless of
- the case of the labels (e.g., "NAME" and "Name" and "name" are all
- valid). Graham Barr.
-
- Added the search_class() accessor to Pod::Simple::HTMLBatch.
- David E. Wheeler.
-
- XHTML output now properly encodes entities in all places, not just
- in verbatim blocks and code spans. David E. Wheeler.
-
- Fixed XHTML to output definition lists when it should, rather than
- (broken) unordered lists. David E. Wheeler.
-
- Fixed XHTML so that multiparagraph list items work correctly.
- David E. Wheeler.
-
- Fixed XHTML ordered list output so that it does not include the
- number specified in the POD in the output. This is on a par with
- out the HTML output works. David E. Wheeler.
-
- Applied URL patch from Leon Brocard for The Perl Journal archives.
-
- Fixed test failures with older versions of HTML::Entities (RT #43903
- from Salvador Tercia).
-
- Changed CSS files generated by HTMLBatch to be no more than 8.3
- characters long. (RT #40450 from Renee Baecker)
-
- Added entity handling for E<sol> and E<verbar> to Pod::Simple::XHTML.
- (RT #49615 from Chas Owens.)
-
- Fixed a bug in Pod::Simple::HTML where a definition term item with
- no corresponding definition item would be output with no closing
- </a></dt>. (RT # 37107 from Kevin Ryde).
-
- Added entity handling for numeric entities to Pod::Simple::XHTML,
- following perlpod specification.
-
- A POD tag found inside a complex POD tag (e.g., "C<<< C<foo> >>>")
- is now properly parsed as text and entities instead of a tag
- embedded in a tag. This is in compliance with `perldoc perlpod`
- (RT #12239 from Michael Schwern).
-
- Thanks to David E. Wheeler for applying patches, resolving bugs,
- and generally getting ready for the release.
-
-2009-07-16 Allison Randal <allison at perl.org>
- * Release 3.08
-
- Fix installdirs for Perl versions where Pod::Simple was core;
- RT#36446 & RT#39709, thanks to Jerry Hedden.
-
- Fix encoding handling for code in paragraphs; RT#45829, thanks
- to David Wheeler.
-
-2008-06-04 Allison Randal <allison at perl.org>
- * Release 3.07
-
- Fix module dependencies, make HTML::Entities optional and require
- Test::More.
-
-2008-06-03 Allison Randal <allison at perl.org>
- * Release 3.06
-
- Fix bugs related to passing $1 to File::Spec, reported by Andrew Hamlin and
- John McNamara.
-
- Applied a suggested fix from Kevin Ryde to return a successful exit
- code when Pod::Simple::HTML is run from the command line.
-
- Fix handling of complex L<URL> entries, thanks to tests supplied in RT#4896.
-
- Fix incorrect handling of S<> entries made up of entirely whitespace, thanks
- to test case from Andreas Koenig.
-
- Launch Pod::Simple::XHTML, an XHTML compliant, more easily extensible
- HTML formatter.
-
- Add feature to parse additional text after =begin target as a block
- title, requested by Adam Kennedy.
-
- Thanks to Hans Dieter Pearcey for applying patches, resolving bugs,
- and generally getting ready for the release.
-
-2007-03-03 Allison Randal <allison at perl.org>
- * Release 3.05
-
- Standardized all test files on 8.3 naming scheme for Perl core.
-
- Applied test patches from Jerry Hedden for Perl core when
- Encode not installed.
-
- Applied test patch from Ken Williams for 5.005_04 compatibility.
-
- Applied a patch from Christopher Madsen to fix architecture
- directory searches on Gentoo.
-
- Fixed a failing search test on Debian-based distributions caused
- by Debian stripping Pod documentation out of core modules.
- (Three cheers to the CPAN testers and James Ponza for sending
- enough reports that I could work out the pattern.)
-
-2006-01-18 Allison Randal <allison at perl.org>
- * Release 3.04
-
- Applied test patches for Perl core integration from Steve Peters.
-
- Added a 'reinit' method to Pod::Simple::BlackBox for Russ Allbery
- so Pod::Man can provide backward compatibility to existing users
- (such as Module::Build and ExtUtils::MakeMaker).
-
- Applied patch for extracting case-preserved package names on VMS
- from Craig Berry.
-
-2005-11-21 Allison Randal <allison at perl.org>
- * Release 3.03
-
- Applied whitespace patches for Pod::Man and Pod::Text from
- Russ Allbery.
-
- Applied validation patches to Pod::Simple::HTML from Graham Barr.
-
-2004-05-24 Sean M. Burke <sburke at cpan.org>
- * Release 3.02
-
- Just fixing some typos in the CSS generated by Pod::Simple:HTMLBatch.
-
-
-2004-05-24 Sean M. Burke <sburke at cpan.org>
- * Release 3.01
-
- No big changes to the main modules, but there's many changes to
- the important Pod::Simple::HTML module.
-
- Also, new modules:
- Pod::Simple::HTMLBatch
- Pod::Simple::HTMLLegacy
- Pod::Simple::Progress
- Pod::Simple::Search
- and tests for these (well, most).
-
- Some prettying up of the Makefile.PL.
-
- The test 00about.t is a bit more careful and verbose now.
-
- The docs are still incomplete, esp. for Pod::Simple::HTML and
- Pod::Simple::HTMLBatch, which I hope to improve quite soon.
-
-
-
-2004-05-07 Sean M. Burke <sburke at cpan.org>
- * Release 2.06
-
- Allison Randal brilliantly refactors a huge monolithic sub in
- Blackbox.pm. Code is now actually sanely readable!
-
- I add the new option-attributes fullstop_space_harden and
- codes_in_verbatim, and the two methods abandon_output_string and
- abandon_output_fh. Not yet documented.
-
- New test fullstop_spaces.t and new corpus document
- greek_iso_8859_7.pod.
-
- Another version should be forthcoming in a few days that has the
- new Pod::Simple::HTML stuff in it.
-
- Note to self: document =extend and =encoding in perlpodspec ASAP!
-
-
-2003-11-04 Sean M. Burke <sburke at cpan.org>
- * Release 2.05 -- bugfix version
-
- In an attempt to stop Perl 5.6 versions from going completely
- crazy, I've tried to basically turn off all Unicode/utf8 support
- under 5.6. Under 5.8 and above, Unicode should work fine, and
- under 5.6, all Unicode characters should be replaced with a little
- "can't render" symbol, either a "¤" or a "?".
- Many many thanks to Jarkko Hietaniemi for helping out.
-
- (Works under 5.005 now too?)
-
-2003-10-10 Sean M. Burke <sburke at cpan.org>
- * Release 2.04 -- minor bugfix version
-
- * Added some code to insulate Pod::Simple to runtime changes in
- the value of $/. Thanks to Iain Truskett for catching this.
- * Added FILENO method to TiedOutFH.pm, to work quietly under some
- perls. Thanks to Jochen Stenzel for catching this.
- * Fixed some tests that erroneously failed under some 5.6's
- because of chdir()s in *.t files messing up @INC Thanks to many
- who caught this, including Rocco Caputo.
-
-2003-09-07 Sean M. Burke <sburke at cpan.org>
- * Release 2.03 -- minor upgrade
- * A =head[1234] command now closes any currently open =over, and
- warns.
- * Fixing a few obscure bugs, including one to do with the
- Makefile.
- * Added some tests for those bugs.
-
-2003-09-02 Sean M. Burke <sburke at cpan.org>
- * Release 2.02 -- fixing a testing bug
- * Autrijus Tang found a silly bug of mine in corpustest.t's
- testing of corpus/t/nonesuch.txt. Fixed,
- * I add encoding_nonesuch.t to test corpus/t/nonesuch.txt better.
-
-
-2003-09-01 Sean M. Burke <sburke at cpan.org>
- * Release 2.01
- * Moved all version numbers up to 2.01 for reasons of Tibetan
- numerology.
-
- * Implemented =encoding. Thanks a million to Jarkko, Autrijus,
- Dan Kogai, and many others for their help, patience, and
- encouragement.
-
- It's not yet documented, but see ./t/corpus/*.txt for examples at
- least.
-
- * Added 'use utf8' to all the modules. Byebye perl-5.005
- compatibility, hello decent perl-5.6 compatibility.
-
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-
-2003-09-01 Sean M. Burke <sburke at cpan.org>
- * Release 0.98
- * At Michael Schwern's suggestion, a list that begins with a
- "=item [number]" line where number isn't a 1, is no longer
- treated as an error, but instead is silently coerced into being a
- text-item list, just as if it were "=item wubble" or whatever.
-
-2003-08-12 Sean M. Burke <sburke at cpan.org>
- * Release 0.97
- * Loooking goooooood. Not smelling so much like beta anymore!
- * I think this might be the last version before I go
- putting "use utf8" all over the place.
-
- * Added placefolders for "=encoding" support. If you use
- "=encoding", you'll get an error about "not yet implemented"
- instead of "unknown directive".
-
- * Rewrote Pod::Simple::Pullparser's get_title, and added
- get_version, get_author, and get_description. Documented them.
- Thanks to Graham Barr for contributing an initial get_title and
- then being patient while I seemed to do nothing with it for months
- on end!
-
- * More tests.
-
- Otherwise just minor changes since last version:
- * Fixed error in Pod::Simple::RTF.
- * Added new but undocumented methods to Pod::Simple:
- unaccept_directive(s) unaccept_target(s) unaccept_code(s)
- * Corrected '=back without =open' error to '=back without =over'
- * A little tweaking to the _verbatim_format code.
- * Dump routines may use \x{NN} instead of \xNN format.
- * Pod::Simple::HTML now uses VerbatimFormatted
- * A few changes ot DEBUG messages -- nothing you'd normally see.
-
-2002-11-19 Sean M. Burke <sburke at cpan.org>
- * Release 0.96
- * Still kinda sorta beta.
-
- * Much much more docs in this version. Only a few feature
- changes:
-
- * Added any_errata_seen to Pod::Simple. Should've been in there
- ages ago. Oops!
- * Fixed some errors in the experimental VerbatimFormatted code.
- * Added is_tagname / is_tag to Pod::Simple::PullParserStartToken
- and Pod::Simple::PullParserEndToken
- * Added RTFDEFLANG stuff to Pod::Simple::RTF.
-
-2002-11-10 Sean M. Burke <sburke at cpan.org>
- * Release 0.95
- * Beta release. Much documentation still to write, many features
- still to add. The APIs might change in future versions.
-
- * Now including perlpod and perlpodspec in the dist.
-
- * Pod::Simple -- added parse_from_file
- * Pod::Simple::RTF -- minor style changes, and minor change to the
- RTF-wrapping logic.
- * Pod::Simple::BlackBox -- a =cut opening a block is no longer a
- fatal(ish) error.
- * Pod::Simple::BlackBox -- added experimental new
- VerbatimFormatted stuff.
-
-
-2002-10-16 Sean M. Burke <sburke at cpan.org>
- * Release 0.94
- * Beta release. Much documentation still to write, many features
- still to add. The APIs might change in future versions.
-
- * Pod::Simple::RTF -- minor style tweaks
- * Pod::Simple::PullParserEndToken and ::PullParserStartToken --
- added ->tag as an alias for ->tagname.
- * Pod::Simple and Pod::Simple::BlackBox -- added tolerance for
- "=item * Foo" as a variant syntax for "=item *\n\nFoo". Tests
- added/changed accordingly.
- * Pod::Simple::HTML -- added <a name="..."> stuff, and a hack at
- doing something with X<...>'s.
-
-
-2002-09-29 Sean M. Burke <sburke at cpan.org>
- * Release 0.93
- * Beta release. Much documentation still to write, many features
- still to add. The APIs might change in future versions.
-
- * Pod::Simple -- added errors_seen attribute
- * Pod::Simple::HTML -- added support for =for HTML ... directives,
- and =extend directives.
- * Oh, and I added Pod::Simple::RTF in 0.92 but forgot to note it
- until now.
-
-2002-09-29 Sean M. Burke <sburke at cpan.org>
- * Release 0.92
- * Beta release. Much documentation still to write, many features
- still to add. The APIs might change in future versions.
-
- * Fixing bungled distribution.
-
-2002-09-29 Sean M. Burke <sburke at cpan.org>
- * Release 0.91
- * Beta release. Much documentation still to write, many features
- still to add. The APIs might change in future versions.
-
- * Pod::Simple::PullParserTextToken -- added 'text_r'
-
- * Pod::Simple::PullParser -- added 'get_title' and
- 'get_title_short' to
-
- * Pod::Simple -- corrected wording of "Format for second =extend
- parameter" error message.
-
- * Pod::PullParser -- made its filter() run as intended, like
- Pod::Simple's filter.
-
- * Pod::Subclassing -- more docs
-
-2002-09-11 Sean M. Burke <sburke at cpan.org>
- * Release 0.90
- * Beta release. Much documentation still to write, many features
- still to add. The APIs might change in future versions.
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/MANIFEST b/3.8.8/sources/cpan-Pod-Simple/vendor/MANIFEST
deleted file mode 100644
index 9860013..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/MANIFEST
+++ /dev/null
@@ -1,181 +0,0 @@
-ChangeLog
-lib/perlpod.pod
-lib/perlpodspec.pod
-lib/Pod/Simple.pm
-lib/Pod/Simple.pod
-lib/Pod/Simple/BlackBox.pm
-lib/Pod/Simple/Checker.pm
-lib/Pod/Simple/Debug.pm
-lib/Pod/Simple/DumpAsText.pm
-lib/Pod/Simple/DumpAsXML.pm
-lib/Pod/Simple/HTML.pm
-lib/Pod/Simple/HTMLBatch.pm
-lib/Pod/Simple/HTMLLegacy.pm
-lib/Pod/Simple/LinkSection.pm
-lib/Pod/Simple/Methody.pm
-lib/Pod/Simple/Progress.pm
-lib/Pod/Simple/PullParser.pm
-lib/Pod/Simple/PullParserEndToken.pm
-lib/Pod/Simple/PullParserStartToken.pm
-lib/Pod/Simple/PullParserTextToken.pm
-lib/Pod/Simple/PullParserToken.pm
-lib/Pod/Simple/RTF.pm
-lib/Pod/Simple/Search.pm
-lib/Pod/Simple/SimpleTree.pm
-lib/Pod/Simple/Subclassing.pod
-lib/Pod/Simple/Text.pm
-lib/Pod/Simple/TextContent.pm
-lib/Pod/Simple/TiedOutFH.pm
-lib/Pod/Simple/Transcode.pm
-lib/Pod/Simple/TranscodeDumb.pm
-lib/Pod/Simple/TranscodeSmart.pm
-lib/Pod/Simple/XHTML.pm
-lib/Pod/Simple/XMLOutStream.pm
-Makefile.PL
-MANIFEST
-META.yml Module meta-data (added by MakeMaker)
-README
-t/00about.t
-t/20_skip.t
-t/ac_d.t
-t/accept01.t
-t/accept05.t
-t/basic.t
-t/begin.t
-t/cbacks.t
-t/chunking.t
-t/closeys.t
-t/corpus.t
-t/corpus/2202jp.txt
-t/corpus/2202jp.xml
-t/corpus/2202jpx.txt
-t/corpus/2202jpx.xml
-t/corpus/2202jpy.txt
-t/corpus/2202jpy.xml
-t/corpus/2202jpz.txt
-t/corpus/2202jpz.xml
-t/corpus/8859_7.pod
-t/corpus/8859_7.xml
-t/corpus/cp1256.txt
-t/corpus/cp1256.xml
-t/corpus/fet_cont.txt
-t/corpus/fet_cont.xml
-t/corpus/fet_dup.txt
-t/corpus/fet_dup.xml
-t/corpus/iso6.txt
-t/corpus/iso6.xml
-t/corpus/koi8r.txt
-t/corpus/koi8r.xml
-t/corpus/laozi38.txt
-t/corpus/laozi38.xml
-t/corpus/laozi38b.txt
-t/corpus/laozi38b.xml
-t/corpus/laozi38p.pod
-t/corpus/laozi38p.xml
-t/corpus/lat1fr.txt
-t/corpus/lat1fr.xml
-t/corpus/lat1frim.txt
-t/corpus/lat1frim.xml
-t/corpus/nonesuch.txt
-t/corpus/nonesuch.xml
-t/corpus/pasternak_cp1251.txt
-t/corpus/pasternak_cp1251.xml
-t/corpus/plain.txt
-t/corpus/plain.xml
-t/corpus/plain_explicit.txt
-t/corpus/plain_explicit.xml
-t/corpus/plain_latin1.txt
-t/corpus/plain_latin1.xml
-t/corpus/plain_utf8.txt
-t/corpus/plain_utf8.xml
-t/corpus/polish_utf8.txt
-t/corpus/polish_utf8.xml
-t/corpus/s2763_sjis.txt
-t/corpus/s2763_sjis.xml
-t/corpus/thai_iso11.txt
-t/corpus/thai_iso11.xml
-t/corpus2/fiqhakbar_iso6.txt
-t/corpus2/fiqhakbar_iso6.xml
-t/corpus2/polish_implicit_utf8.txt
-t/corpus2/polish_utf16be_bom.txt
-t/corpus2/polish_utf16le_bom.txt
-t/corpus2/polish_utf8_bom.txt
-t/corpus2/polish_utf8_bom.xml
-t/corpus2/polish_utf8_bom2.txt
-t/corpus2/polish_utf8_bom2.xml
-t/corpus2/README
-t/encod01.t
-t/encod02.t
-t/encod03.t
-t/end_over.t
-t/fcodes.t
-t/fcodes_e.t
-t/fcodes_l.t
-t/fcodes_s.t
-t/for.t
-t/fornot.t
-t/heads.t
-t/html01.t
-t/html02.t
-t/html03.t
-t/htmlbat.t
-t/items.t
-t/items02.t
-t/itemstar.t
-t/junk1.pod
-t/junk1o.txt
-t/junk2.pod
-t/junk2o.txt
-t/linkclas.t
-t/perlcyg.pod
-t/perlcygo.txt
-t/perlfaq.pod
-t/perlfaqo.txt
-t/perlvar.pod
-t/perlvaro.txt
-t/puller.t
-t/pulltitl.t
-t/reinit.t
-t/render.t
-t/search05.t
-t/search10.t
-t/search12.t
-t/search20.t
-t/search22.t
-t/search25.t
-t/search26.t
-t/search27.t
-t/search28.t
-t/search29.t
-t/search50.t
-t/stree.t
-t/strpvbtm.t
-t/testlib1/Blorm.pm
-t/testlib1/hinkhonk/Glunk.pod
-t/testlib1/hinkhonk/readme.txt
-t/testlib1/hinkhonk/Vliff.pm
-t/testlib1/pod/perlflif.pod
-t/testlib1/pod/perlthng.pod
-t/testlib1/squaa.pm
-t/testlib1/squaa/Glunk.pod
-t/testlib1/squaa/Vliff.pm
-t/testlib1/zikzik.pod
-t/testlib1/Zonk/Fiddle.txt
-t/testlib1/Zonk/Pronk.pm
-t/testlib1/Zonk/Veng.pm
-t/testlib2/hinkhonk/Glunk.pod
-t/testlib2/hinkhonk/readme.txt
-t/testlib2/hinkhonk/Vliff.pm
-t/testlib2/pod/perlthng.pod
-t/testlib2/pod/perlzuk.pod
-t/testlib2/squaa/Vliff.pm
-t/testlib2/squaa/Wowo.pod
-t/testlib2/Suzzle.pm
-t/testlib3/squaa/Vliff.pm
-t/tiedfh.t
-t/verb_fmt.t
-t/verbatim.t
-t/x_nixer.t
-t/xhtml01.t
-t/xhtml05.t
-t/xhtml10.t
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/META.yml b/3.8.8/sources/cpan-Pod-Simple/vendor/META.yml
deleted file mode 100644
index aa64491..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/META.yml
+++ /dev/null
@@ -1,40 +0,0 @@
---- #YAML:1.0
-name: Pod-Simple
-version: 3.14
-abstract: framework for parsing Pod
-author:
- - Allison Randal <allison at perl.org>
-license: perl
-distribution_type: module
-configure_requires:
- ExtUtils::MakeMaker: 0
-build_requires:
- ExtUtils::MakeMaker: 0
-requires:
- Carp: 0
- Config: 0
- constant: 0
- Cwd: 0
- File::Basename: 0
- File::Find: 0
- File::Spec: 0
- integer: 0
- overload: 0
- Pod::Escapes: 1.04
- strict: 0
- Symbol: 0
- Test: 1.25
- Test::More: 0
- Text::Wrap: 98.112902
-resources:
- bugtracker: mailto:bug-pod-simple at rt.cpan.org
- license: http://dev.perl.org/licenses/
- repository: git://github.com/theory/pod-simple.git
-no_index:
- directory:
- - t
- - inc
-generated_by: ExtUtils::MakeMaker version 6.56
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/Makefile.PL b/3.8.8/sources/cpan-Pod-Simple/vendor/Makefile.PL
deleted file mode 100644
index 6650b00..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/Makefile.PL
+++ /dev/null
@@ -1,56 +0,0 @@
-# This -*- perl -*- script writes the Makefile for Pod::Simple
-#
-# Time-stamp: "2004-05-24 00:21:20 ADT"
-#
-# See lib/ExtUtils/MakeMaker.pm for details of how to influence
-# the contents of the Makefile that is written.
-#
-
-require 5;
-
-use strict;
-use ExtUtils::MakeMaker;
-
-WriteMakefile(
- NAME => 'Pod::Simple',
- VERSION_FROM => 'lib/Pod/Simple.pm',
- ABSTRACT_FROM => 'lib/Pod/Simple.pod',
- PREREQ_PM => {
- 'Text::Wrap' => '98.112902',
- 'Pod::Escapes' => '1.04',
-
- # RT#29439
- 'Test' => '1.25',
-
- # And finally, things I don't have any particular version in mind for:
- map {; $_ => 0 } qw[
- File::Spec File::Basename Cwd Config Carp overload Symbol strict
- constant integer File::Find Test::More
- ]
- },
-
- INSTALLDIRS => $] >= 5.009003 ? 'perl' : 'site',
-
- LICENSE => 'perl',
- AUTHOR => 'Allison Randal <allison at perl.org>',
- META_MERGE => {
- resources => {
- repository => 'git://github.com/theory/pod-simple.git',
- bugtracker => 'mailto:bug-pod-simple at rt.cpan.org',
- license => 'http://dev.perl.org/licenses/',
-
- },
- },
-
-);
-
-package MY;
-
-sub libscan
-{ # Determine things that should *not* be installed
- my($self, $path) = @_;
- return '' if $path =~ m/~/;
- $path;
-}
-
-__END__
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/README b/3.8.8/sources/cpan-Pod-Simple/vendor/README
deleted file mode 100644
index 9ab762b..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/README
+++ /dev/null
@@ -1,61 +0,0 @@
-=head1 Pod::Simple version 3.14
-
-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
-L<perlpod>; the most common formatter is called C<perldoc>.
-
-Pod formatters can use Pod::Simple to parse Pod documents and render them into
-plain text, HTML, or any number of other formats.
-
-=head2 Installation
-
-To install this module, type the following:
-
- perl Makefile.PL
- make
- make test
- make install
-
-=head2 Support
-
-Questions or discussion about POD and Pod::Simple should be sent to the
-pod-people at perl.org mail list. Send an empty email to
-pod-people-subscribe at perl.org to subscribe.
-
-This module is managed in an open GitHub repository,
-L<http://github.com/theory/pod-simple/>. Feel free to fork and contribute, or
-to clone L<git://github.com/theory/pod-simple.git> and send patches!
-
-Patches against Pod::Simple are welcome. Please send bug reports to
-<bug-pod-simple at rt.cpan.org>.
-
-=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
-
-Pod::Simple was created by Sean M. Burke <sburke at cpan.org>.
-But don't bother him, he's retired.
-
-Pod::Simple is maintained by:
-
-=over
-
-=item * Allison Randal C<allison at perl.org>
-
-=item * Hans Dieter Pearcey C<hdp at cpan.org>
-
-=item * David E. Wheeler C<dwheeler at cpan.org>
-
-=back
-
-=cut
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/DumpAsXML.pm b/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/DumpAsXML.pm
deleted file mode 100644
index d83f8d3..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/DumpAsXML.pm
+++ /dev/null
@@ -1,170 +0,0 @@
-
-require 5;
-package Pod::Simple::DumpAsXML;
-$VERSION = '3.14';
-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');
- return $new;
-}
-
-#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
-
-sub _handle_element_start {
- # ($self, $element_name, $attr_hash_r)
- my $fh = $_[0]{'output_fh'};
- my($key, $value);
- DEBUG and print "++ $_[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 "== \"$_[1]\"\n";
- if(length $_[1]) {
- my $indent = ' ' x $_[0]{'indent'};
- my $text = $_[1];
- _xml_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
- )
- \x20{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 "-- $_[1]\n";
- print {$_[0]{'output_fh'}}
- ' ' x --$_[0]{'indent'}, "</", $_[1], ">\n";
- return;
-}
-
-# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
-
-sub _xml_escape {
- foreach my $x (@_) {
- # Escape things very cautiously:
- $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.
- # Altho, hmm, what about that ord? Presumably that won't work right
- # under non-ASCII charsets. Something should be done about that.
- }
- 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 ignoreable 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 at perl.org mail list. Send an empty email to
-pod-people-subscribe at perl.org to subscribe.
-
-This module is managed in an open GitHub repository,
-L<http://github.com/theory/pod-simple/>. Feel free to fork and contribute, or
-to clone L<git://github.com/theory/pod-simple.git> and send patches!
-
-Patches against Pod::Simple are welcome. Please send bug reports to
-<bug-pod-simple at 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 at cpan.org>.
-But don't bother him, he's retired.
-
-Pod::Simple is maintained by:
-
-=over
-
-=item * Allison Randal C<allison at perl.org>
-
-=item * Hans Dieter Pearcey C<hdp at cpan.org>
-
-=item * David E. Wheeler C<dwheeler at cpan.org>
-
-=back
-
-=cut
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/LinkSection.pm b/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/LinkSection.pm
deleted file mode 100644
index e426b2c..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/LinkSection.pm
+++ /dev/null
@@ -1,174 +0,0 @@
-
-require 5;
-package Pod::Simple::LinkSection;
- # Based somewhat dimly on Array::Autojoin
-use vars qw($VERSION );
-$VERSION = '3.14';
-
-use strict;
-use Pod::Simple::BlackBox;
-use vars qw($VERSION );
-$VERSION = '3.14';
-
-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 at perl.org mail list. Send an empty email to
-pod-people-subscribe at perl.org to subscribe.
-
-This module is managed in an open GitHub repository,
-L<http://github.com/theory/pod-simple/>. Feel free to fork and contribute, or
-to clone L<git://github.com/theory/pod-simple.git> and send patches!
-
-Patches against Pod::Simple are welcome. Please send bug reports to
-<bug-pod-simple at 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 at cpan.org>.
-But don't bother him, he's retired.
-
-Pod::Simple is maintained by:
-
-=over
-
-=item * Allison Randal C<allison at perl.org>
-
-=item * Hans Dieter Pearcey C<hdp at cpan.org>
-
-=item * David E. Wheeler C<dwheeler at cpan.org>
-
-=back
-
-=cut
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/PullParserStartToken.pm b/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/PullParserStartToken.pm
deleted file mode 100644
index 37d68ef..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/PullParserStartToken.pm
+++ /dev/null
@@ -1,161 +0,0 @@
-
-require 5;
-package Pod::Simple::PullParserStartToken;
-use Pod::Simple::PullParserToken ();
-use strict;
-use vars qw(@ISA $VERSION);
- at ISA = ('Pod::Simple::PullParserToken');
-$VERSION = '3.14';
-
-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 at perl.org mail list. Send an empty email to
-pod-people-subscribe at perl.org to subscribe.
-
-This module is managed in an open GitHub repository,
-L<http://github.com/theory/pod-simple/>. Feel free to fork and contribute, or
-to clone L<git://github.com/theory/pod-simple.git> and send patches!
-
-Patches against Pod::Simple are welcome. Please send bug reports to
-<bug-pod-simple at 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 at cpan.org>.
-But don't bother him, he's retired.
-
-Pod::Simple is maintained by:
-
-=over
-
-=item * Allison Randal C<allison at perl.org>
-
-=item * Hans Dieter Pearcey C<hdp at cpan.org>
-
-=item * David E. Wheeler C<dwheeler at cpan.org>
-
-=back
-
-=cut
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/PullParserTextToken.pm b/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/PullParserTextToken.pm
deleted file mode 100644
index ed6340d..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/PullParserTextToken.pm
+++ /dev/null
@@ -1,128 +0,0 @@
-
-require 5;
-package Pod::Simple::PullParserTextToken;
-use Pod::Simple::PullParserToken ();
-use strict;
-use vars qw(@ISA $VERSION);
- at ISA = ('Pod::Simple::PullParserToken');
-$VERSION = '3.14';
-
-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...
- }
-
-=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 at perl.org mail list. Send an empty email to
-pod-people-subscribe at perl.org to subscribe.
-
-This module is managed in an open GitHub repository,
-L<http://github.com/theory/pod-simple/>. Feel free to fork and contribute, or
-to clone L<git://github.com/theory/pod-simple.git> and send patches!
-
-Patches against Pod::Simple are welcome. Please send bug reports to
-<bug-pod-simple at 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 at cpan.org>.
-But don't bother him, he's retired.
-
-Pod::Simple is maintained by:
-
-=over
-
-=item * Allison Randal C<allison at perl.org>
-
-=item * Hans Dieter Pearcey C<hdp at cpan.org>
-
-=item * David E. Wheeler C<dwheeler at cpan.org>
-
-=back
-
-=cut
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/PullParserToken.pm b/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/PullParserToken.pm
deleted file mode 100644
index 2234ccf..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/PullParserToken.pm
+++ /dev/null
@@ -1,163 +0,0 @@
-
-require 5;
-package Pod::Simple::PullParserToken;
- # Base class for tokens gotten from Pod::Simple::PullParser's $parser->get_token
- at ISA = ();
-$VERSION = '3.14';
-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 "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 "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 at perl.org mail list. Send an empty email to
-pod-people-subscribe at perl.org to subscribe.
-
-This module is managed in an open GitHub repository,
-L<http://github.com/theory/pod-simple/>. Feel free to fork and contribute, or
-to clone L<git://github.com/theory/pod-simple.git> and send patches!
-
-Patches against Pod::Simple are welcome. Please send bug reports to
-<bug-pod-simple at 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 at cpan.org>.
-But don't bother him, he's retired.
-
-Pod::Simple is maintained by:
-
-=over
-
-=item * Allison Randal C<allison at perl.org>
-
-=item * Hans Dieter Pearcey C<hdp at cpan.org>
-
-=item * David E. Wheeler C<dwheeler at cpan.org>
-
-=back
-
-=cut
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/RTF.pm b/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/RTF.pm
deleted file mode 100644
index f476d37..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/RTF.pm
+++ /dev/null
@@ -1,699 +0,0 @@
-
-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.14';
-use Pod::Simple::PullParser ();
-BEGIN {@ISA = ('Pod::Simple::PullParser')}
-
-use Carp ();
-BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG }
-
-$WRAP = 1 unless defined $WRAP;
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-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 "To accept: ", join(' ', at _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 " $type " , $token->text, " in verbatim!\n";
- rtf_esc_codely($scratch = $token->text);
- print $fh $scratch;
- next;
- }
-
- DEBUG > 1 and print " $type " , $token->text, "\n";
-
- $scratch = $token->text;
- $scratch =~ tr/\t\cb\cc/ /d;
-
- $self->{'no_proofing_exemptions'} or $scratch =~
- s/(?:
- ^
- |
- (?<=[\cm\cj\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'\x80-\xFF]+[\$\@\:_<>\(\\\*]\S+
- )
- )
- /\cb$1\cc/xsg
- ;
-
- rtf_esc($scratch);
- $scratch =~
- s/(
- [^\cm\cj\n]{65} # Snare 65 characters from a line
- [^\cm\cj\n\x20]{0,50} # and finish any current word
- )
- (\x20{1,10})(?![\cm\cj\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 " +$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 " 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 " 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 " 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 " 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 "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 " 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 "\\'95 \n";
- #for funky testing: print $fh '', rtf_esc("\x{4E4B}\x{9053}");
- }
-
- } elsif( $type eq 'end' ) {
- DEBUG > 1 and print " -$type ",$token->tagname,"\n";
- if( ($tagname = $token->tagname) =~ m/^over-/s ) {
- DEBUG and print "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 "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 "Title0: <$title>\n";
- $title = rtf_esc($title);
- DEBUG and print "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\x00-\x1F\-\\\{\}\x7F-\xFF])/$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\x00-\x1F\-\\\{\}\x7F-\xFF])/$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\x00-\x1F\-\\\{\}\x7F-\xFF])/$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\x00-\x1F\\\{\}\x7F-\xFF])/$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\x00-\x1F\\\{\}\x7F-\xFF])/$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\x00-\x1F\\\{\}\x7F-\xFF])/$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 = (
- 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),
-
- # 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:
- "\cm" => "\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
- "\xA0" => "\\~", # Latin-1 non-breaking space
- "\xAD" => "\\-", # 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 at perl.org mail list. Send an empty email to
-pod-people-subscribe at perl.org to subscribe.
-
-This module is managed in an open GitHub repository,
-L<http://github.com/theory/pod-simple/>. Feel free to fork and contribute, or
-to clone L<git://github.com/theory/pod-simple.git> and send patches!
-
-Patches against Pod::Simple are welcome. Please send bug reports to
-<bug-pod-simple at 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 at cpan.org>.
-But don't bother him, he's retired.
-
-Pod::Simple is maintained by:
-
-=over
-
-=item * Allison Randal C<allison at perl.org>
-
-=item * Hans Dieter Pearcey C<hdp at cpan.org>
-
-=item * David E. Wheeler C<dwheeler at cpan.org>
-
-=back
-
-=cut
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/Search.pm b/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/Search.pm
deleted file mode 100644
index 762701a..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/Search.pm
+++ /dev/null
@@ -1,1043 +0,0 @@
-
-require 5.005;
-package Pod::Simple::Search;
-use strict;
-
-use vars qw($VERSION $MAX_VERSION_WITHIN $SLEEPY);
-$VERSION = '3.14'; ## 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;
-
-#############################################################################
-
-#use diagnostics;
-use File::Spec ();
-use File::Basename qw( basename );
-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',
-);
-#==========================================================================
-
-sub new {
- my $class = shift;
- my $self = bless {}, ref($class) || $class;
- $self->init;
- return $self;
-}
-
-sub init {
- my $self = shift;
- $self->inc(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->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");
-
- 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) =
- map scalar($self->$_()),
- qw(laborious verbose shadows limit_re callback progress path2name name2path);
-
- 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
-
- 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 $name2path->{$name} ) {
- $verbose and print "Not worth considering $file ",
- "-- already saw $name as ",
- join(' ', grep($path2name->{$_} eq $name, keys %$path2name)), "\n";
- return;
- }
-
- # Put off until as late as possible the expense of
- # actually reading the file:
- if( m/\.pod\z/is ) {
- # just assume it has pod, okay?
- } else {
- $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( $name2path->{$name} ) {
- $verbose and print
- "Duplicate POD found (shadowing?): $name ($file)\n",
- " Already seen in ",
- join(' ', grep($path2name->{$_} eq $name, keys %$path2name)), "\n";
- } else {
- $name2path->{$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
- }
- my @items = sort 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'};
-
- if ($^O eq 'MacOS') {
- push @$search_dirs,
- grep $_ ne File::Spec->curdir, $self->_mac_whammy(@INC);
- # Any other OSs need custom handling here?
- } else {
- push @$search_dirs, grep $_ ne File::Spec->curdir, @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, at 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 at jach.hawaii.edu>
-
-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;
-
- if( $self->inc ) {
- if( $^O eq 'MacOS' ) {
- push @search_dirs, $self->_mac_whammy(@INC);
- } else {
- 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'};
- # and if that's undef or q{} or nonexistent, we just ignore it later
- }
-
- my %seen_dir;
- Dir:
- foreach my $dir ( @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;
- next Dir;
- }
-
- 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;
- return $fullext;
- }
- }
- my $subdir = File::Spec->catdir($dir,'pod');
- if(-d $subdir) { # slip in the ./pod dir too
- $verbose and print "Noticing $subdir and stopping there...\n";
- $dir = $subdir;
- redo Dir;
- }
- }
-
- 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->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 expressable 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, teh
-
-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 at perl.org mail list. Send an empty email to
-pod-people-subscribe at perl.org to subscribe.
-
-This module is managed in an open GitHub repository,
-L<http://github.com/theory/pod-simple/>. Feel free to fork and contribute, or
-to clone L<git://github.com/theory/pod-simple.git> and send patches!
-
-Patches against Pod::Simple are welcome. Please send bug reports to
-<bug-pod-simple at 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 at 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 at perl.org>
-
-=item * Hans Dieter Pearcey C<hdp at cpan.org>
-
-=item * David E. Wheeler C<dwheeler at cpan.org>
-
-=back
-
-=cut
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/SimpleTree.pm b/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/SimpleTree.pm
deleted file mode 100644
index 32db4b6..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/SimpleTree.pm
+++ /dev/null
@@ -1,180 +0,0 @@
-
-
-require 5;
-package Pod::Simple::SimpleTree;
-use strict;
-use Carp ();
-use Pod::Simple ();
-use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
-$VERSION = '3.14';
-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 "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 " 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 "Stack is now: ",
- join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n";
- return;
-}
-
-sub _handle_element_end { # self, tagname
- DEBUG > 2 and print "Handling $_[1] end-event\n";
- shift @{$_[0]{'_currpos'}};
- DEBUG > 3 and print "Stack is now: ",
- join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n";
- return;
-}
-
-sub _handle_text { # self, text
- DEBUG > 2 and print "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 "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 whather 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 at perl.org mail list. Send an empty email to
-pod-people-subscribe at perl.org to subscribe.
-
-This module is managed in an open GitHub repository,
-L<http://github.com/theory/pod-simple/>. Feel free to fork and contribute, or
-to clone L<git://github.com/theory/pod-simple.git> and send patches!
-
-Patches against Pod::Simple are welcome. Please send bug reports to
-<bug-pod-simple at 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 at cpan.org>.
-But don't bother him, he's retired.
-
-Pod::Simple is maintained by:
-
-=over
-
-=item * Allison Randal C<allison at perl.org>
-
-=item * Hans Dieter Pearcey C<hdp at cpan.org>
-
-=item * David E. Wheeler C<dwheeler at cpan.org>
-
-=back
-
-=cut
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/Subclassing.pod b/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/Subclassing.pod
deleted file mode 100644
index f2011d5..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/Subclassing.pod
+++ /dev/null
@@ -1,946 +0,0 @@
-
-=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) = @_;
- ...
- }
-
- 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>.
-
-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.
-
-The first step in writing a Pod processor is to read L<perlpodspec>,
-which contains notes 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.
-
-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.
-
-The third step is to pick which of Pod::Simple's interfaces you want to
-use -- the basic interface via Pod::Simple or L<Pod::Simple::Methody> is
-event-based, sort of like L<HTML::Parser>'s interface, or sort of like
-L<XML::Parser>'s "Handlers" interface), but L<Pod::Simple::PullParser>
-provides a token-stream interface, sort of like L<HTML::TokeParser>'s
-interface; L<Pod::Simple::SimpleTree> provides a simple tree interface,
-rather like XML::Parser's "Tree" interface. Users familiar with
-XML-handling will find one of these styles relatively familiar; but if
-you would be even more at home with XML, there are classes 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.
-
-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 sure to consider how to escape
-text nodes containing arbitrary text, and also 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" 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" 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" 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" to="crontab(5)" type="man">
- crontab(5)
- </L>
-
-In the rare cases where a man page link has a 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" 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 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" to="Net::Ping" type="pod">
- podpage
- </L>
-
-For example, this Pod source:
-
- L<Net::Ping>
-
-produces this event structure:
-
- <L content-implicit="yes" 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 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" 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 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" 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 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, namely:
-
- <L content-implicit="yes" section="Member Data" type="pod">
- "Member Data"
- </L>
-
-=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" thru "=head4" directives are the same, except for the element
-names in the event structure.
-
-=item events with an element_name of over-bullet
-
-When an "=over ... Z<>=back" block is parsed where the items are
-a bulletted 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>
-
-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 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 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> attribute is 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 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> attribute is 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.
-
- =cut
-
-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 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
-capabilites 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 targetted to "html" (or whatever
-the formatter name is).
-
-If you want to process all sections, even if they're not targetted 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
-parset 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->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->whine( I<linenumber>, I<complaint string> ) >>
-
-This notes a problem in the Pod, which will be reported to in the "Pod
-Errors" section of the document and/or send 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
-suppressable 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 indescriminately 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).
-
-=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 the 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<perlpod|perlpod>
-
-L<perlpodspec|perlpodspec>
-
-L<perldoc>
-
-=head1 SUPPORT
-
-Questions or discussion about POD and Pod::Simple should be sent to the
-pod-people at perl.org mail list. Send an empty email to
-pod-people-subscribe at perl.org to subscribe.
-
-This module is managed in an open GitHub repository,
-L<http://github.com/theory/pod-simple/>. Feel free to fork and contribute, or
-to clone L<git://github.com/theory/pod-simple.git> and send patches!
-
-Patches against Pod::Simple are welcome. Please send bug reports to
-<bug-pod-simple at 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 at cpan.org>.
-But don't bother him, he's retired.
-
-Pod::Simple is maintained by:
-
-=over
-
-=item * Allison Randal C<allison at perl.org>
-
-=item * Hans Dieter Pearcey C<hdp at cpan.org>
-
-=item * David E. Wheeler C<dwheeler at 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/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/XMLOutStream.pm b/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/XMLOutStream.pm
deleted file mode 100644
index 2e6b428..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/lib/Pod/Simple/XMLOutStream.pm
+++ /dev/null
@@ -1,185 +0,0 @@
-
-require 5;
-package Pod::Simple::XMLOutStream;
-use strict;
-use Carp ();
-use Pod::Simple ();
-use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
-$VERSION = '3.14';
-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->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 "++ $_[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 "== \"$_[1]\"\n";
- if(length $_[1]) {
- my $text = $_[1];
- _xml_escape($text);
- print {$_[0]{'output_fh'}} $text;
- }
- return;
-}
-
-sub _handle_element_end {
- DEBUG and print "-- $_[1]\n";
- print {$_[0]{'output_fh'}} "</", $_[1], ">";
- return;
-}
-
-# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
-#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
-
-sub _xml_escape {
- foreach my $x (@_) {
- # Escape things very cautiously:
- $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.
- # Altho, hmm, what about that ord? Presumably that won't work right
- # under non-ASCII charsets. Something should be done about that.
- }
- 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 ASK ME!
-
-If you actually want to use Pod as a format that you want to render to
-XML (particularly if to an XML instance with more elements than normal
-Pod has), please email me (C<sburke at cpan.org>) and I'll probably have
-some recommendations.
-
-For reasons of concision and energetic laziness, some methods and
-options in this module (and the dozen modules it depends on) are
-undocumented; but one of those undocumented bits might be just what
-you're looking for.
-
-=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 at perl.org mail list. Send an empty email to
-pod-people-subscribe at perl.org to subscribe.
-
-This module is managed in an open GitHub repository,
-L<http://github.com/theory/pod-simple/>. Feel free to fork and contribute, or
-to clone L<git://github.com/theory/pod-simple.git> and send patches!
-
-Patches against Pod::Simple are welcome. Please send bug reports to
-<bug-pod-simple at 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 at cpan.org>.
-But don't bother him, he's retired.
-
-Pod::Simple is maintained by:
-
-=over
-
-=item * Allison Randal C<allison at perl.org>
-
-=item * Hans Dieter Pearcey C<hdp at cpan.org>
-
-=item * David E. Wheeler C<dwheeler at cpan.org>
-
-=back
-
-=cut
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/lib/perlpod.pod b/3.8.8/sources/cpan-Pod-Simple/vendor/lib/perlpod.pod
deleted file mode 100644
index 55ea57e..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/lib/perlpod.pod
+++ /dev/null
@@ -1,732 +0,0 @@
-
-=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. (Note that
-head3 and head4 are recent additions, not supported in older Pod
-translators.) 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 inbetween. (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 or Latin-1,
-then put a C<=encoding I<encodingname>> command 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. Examples:
-
- =encoding utf8
-
- =encoding koi8-r
-
- =encoding ShiftJIS
-
- =encoding big5
-
-=back
-
-C<=encoding> affects the whole document, and must occur only once.
-
-And don't forget, when using any other command, that the command lasts 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.
-
-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<é> 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 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. With
-the Pod formatters that are standard starting with perl5.5.660, 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>
-
-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. Perl
-will ignore the Pod text. 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 __END__ or __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/3.8.8/sources/cpan-Pod-Simple/vendor/t/chunking.t b/3.8.8/sources/cpan-Pod-Simple/vendor/t/chunking.t
deleted file mode 100644
index f51766d..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/chunking.t
+++ /dev/null
@@ -1,49 +0,0 @@
-BEGIN {
- if($ENV{PERL_CORE}) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-#use Pod::Simple::Debug (2);
-
-use strict;
-use Test;
-BEGIN { plan tests => 11 };
-
-
-ok 1;
-
-use Pod::Simple::DumpAsXML;
-use Pod::Simple::XMLOutStream;
-print "# Pod::Simple version $Pod::Simple::VERSION\n";
-sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
-
-ok( Pod::Simple::XMLOutStream->_out("=head1 =head1"),
- '<Document><head1>=head1</head1></Document>'
-);
-
-ok( Pod::Simple::XMLOutStream->_out("\n=head1 =head1"),
- '<Document><head1>=head1</head1></Document>'
-);
-
-ok( Pod::Simple::XMLOutStream->_out("\n=head1 =head1\n"),
- '<Document><head1>=head1</head1></Document>'
-);
-
-ok( Pod::Simple::XMLOutStream->_out("\n=head1 =head1\n\n"),
- '<Document><head1>=head1</head1></Document>'
-);
-
-&ok(e "\n=head1 =head1\n\n" , "\n=head1 =head1\n\n");
-
-&ok(e "\n=head1\n=head1\n\n", "\n=head1 =head1\n\n");
-
-&ok(e "\n=pod\n\nCha cha cha\n\n" , "\n=pod\n\nCha cha cha\n\n");
-&ok(e "\n=pod\n\nCha\tcha cha\n\n" , "\n=pod\n\nCha cha cha\n\n");
-&ok(e "\n=pod\n\nCha\ncha cha\n\n" , "\n=pod\n\nCha cha cha\n\n");
-
-print "# Wrapping up... one for the road...\n";
-ok 1;
-print "# --- Done with ", __FILE__, " --- \n";
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/closeys.t b/3.8.8/sources/cpan-Pod-Simple/vendor/t/closeys.t
deleted file mode 100644
index 683ce13..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/closeys.t
+++ /dev/null
@@ -1,39 +0,0 @@
-BEGIN {
- if($ENV{PERL_CORE}) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-use strict;
-use Test;
-BEGIN { plan tests => 3 };
-
-my $d;
-#use Pod::Simple::Debug (\$d,0);
-#use Pod::Simple::Debug (10);
-
-ok 1;
-
-use Pod::Simple::DumpAsXML;
-use Pod::Simple::XMLOutStream;
-print "# Pod::Simple version $Pod::Simple::VERSION\n";
-sub e ($$) { Pod::Simple::XMLOutStream::->_duo(\&nowhine, @_) }
-
-sub nowhine {
-# $_[0]->{'no_whining'} = 1;
- $_[0]->accept_targets("*");
-}
-
-&ok(e(
-"=begin :foo\n\n=begin :bar\n\nZaz\n\n",
-"=begin :foo\n\n=begin :bar\n\nZaz\n\n=end :bar\n\n=end :foo\n\n",
-));
-
-
-print "# Ending ", __FILE__, "\n";
-ok 1;
-
-__END__
-
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus.t b/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus.t
deleted file mode 100644
index 3427b91..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus.t
+++ /dev/null
@@ -1,182 +0,0 @@
-# Testing a corpus of Pod files
-BEGIN {
- if($ENV{PERL_CORE}) {
- chdir 't';
- @INC = '../lib';
- }
-
- use Config;
- if ($Config::Config{'extensions'} !~ /\bEncode\b/) {
- print "1..0 # Skip: Encode was not built\n";
- exit 0;
- }
-}
-
-#use Pod::Simple::Debug (10);
-use Test qw(plan ok skip);
-
-use File::Spec;
-#use utf8;
-use strict;
-my(@testfiles, %xmlfiles, %wouldxml);
-#use Pod::Simple::Debug (10);
-BEGIN {
-
-sub source_path {
- my $file = shift;
- if ($ENV{PERL_CORE}) {
- require File::Spec;
- my $updir = File::Spec->updir;
- my $dir = File::Spec->catdir($updir, 'lib', 'Pod', 'Simple', 't');
- return File::Spec->catdir ($dir, $file);
- } else {
- return $file;
- }
-}
- my @bits;
- if(-e( File::Spec::->catdir( @bits =
- source_path('corpus') ) ) )
- {
- # OK
- print "# 1Bits: @bits\n";
- } elsif( -e (File::Spec::->catdir( @bits =
- (File::Spec::->curdir, 'corpus') ) )
- ) {
- # OK
- print "# 2Bits: @bits\n";
- } elsif ( -e (File::Spec::->catdir( @bits =
- (File::Spec::->curdir, 't', 'corpus') ) )
- ) {
- # OK
- print "# 3Bits: @bits\n";
- } else {
- die "Can't find the corpusdir";
- }
- my $corpusdir = File::Spec::->catdir( @bits);
- print "#Corpusdir: $corpusdir\n";
-
- opendir(INDIR, $corpusdir) or die "Can't opendir corpusdir : $!";
- my @f = map File::Spec::->catfile(@bits, $_), readdir(INDIR);
- closedir(INDIR);
- my %f;
- @f{@f} = ();
- foreach my $maybetest (sort @f) {
- my $xml = $maybetest;
- $xml =~ s/\.(txt|pod)$/\.xml/is or next;
- $wouldxml{$maybetest} = $xml;
- push @testfiles, $maybetest;
- foreach my $x ($xml, uc($xml), lc($xml)) {
- next unless exists $f{$x};
- $xmlfiles{$maybetest} = $x;
- last;
- }
- }
- die "Too few test files (". at testfiles.")" unless @ARGV or @testfiles > 20;
-
- @testfiles = @ARGV if @ARGV and !grep !m/\.txt/, @ARGV;
-
- plan tests => (2 + 2*@testfiles - 1);
-}
-
-my $HACK = 1;
-#@testfiles = ('nonesuch.txt');
-
-ok 1;
-
-my $skippy = ($] < 5.008) ? "skip because perl ($]) pre-dates v5.8.0" : 0;
-if($skippy) {
- print "# This is just perl v$], so I'm skipping many many tests.\n";
-}
-
-{
- my @x = @testfiles;
- print "# Files to test:\n";
- while(@x) { print "# ", join(' ', splice @x,0,3), "\n" }
-}
-
-require Pod::Simple::DumpAsXML;
-
-
-foreach my $f (@testfiles) {
- my $xml = $xmlfiles{$f};
- if($xml) {
- print "#\n#To test $f against $xml\n";
- } else {
- print "#\n# $f has no xml to test it against\n";
- }
-
- my $outstring;
- eval {
- my $p = Pod::Simple::DumpAsXML->new;
- $p->output_string( \$outstring );
- $p->parse_file( $f );
- undef $p;
- };
-
- if($@) {
- my $x = "#** Couldn't parse $f:\n $@";
- $x =~ s/([\n\r]+)/\n#** /g;
- print $x, "\n";
- ok 0;
- ok 0;
- next;
- } else {
- print "# OK, parsing $f generated ", length($outstring), " bytes\n";
- ok 1;
- }
-
- die "Null outstring?" unless $outstring;
-
- next if $f =~ /nonesuch/;
-
- my $outfilename = ($HACK > 1) ? $wouldxml{$f} : "$wouldxml{$f}\_out";
- if($HACK) {
- open OUT, ">$outfilename" or die "Can't write-open $outfilename: $!\n";
- binmode(OUT);
- print OUT $outstring;
- close(OUT);
- }
- unless($xml) {
- print "# (no comparison done)\n";
- ok 1;
- next;
- }
-
- open(IN, "<$xml") or die "Can't read-open $xml: $!";
- #binmode(IN);
- local $/;
- my $xmlsource = <IN>;
- close(IN);
-
- print "# There's errata!\n" if $outstring =~ m/start_line="-321"/;
-
- if(
- $xmlsource eq $outstring
- or do {
- $xmlsource =~ s/[\n\r]+/\n/g;
- $outstring =~ s/[\n\r]+/\n/g;
- $xmlsource eq $outstring;
- }
- ) {
- print "# (Perfect match to $xml)\n";
- unlink $outfilename unless $outfilename =~ m/\.xml$/is;
- ok 1;
- next;
- }
-
- if($skippy) {
- skip $skippy, 0;
- } else {
- print "# $outfilename and $xml don't match!\n";
- ok 0;
- }
-
-}
-
-
-print "#\n# I've been using Encode v",
- $Encode::VERSION ? $Encode::VERSION : "(NONE)", "\n";
-print "# Byebye\n";
-ok 1;
-print "# --- Done with ", __FILE__, " --- \n";
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/2202jp.txt b/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/2202jp.txt
deleted file mode 100644
index 212eaa1..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/2202jp.txt
+++ /dev/null
@@ -1,101 +0,0 @@
-
-
-=head1 NAME
-
-haiku-iso2022jp -- a test Japanese document in iso-2022-jp
-
-=head1 DESCRIPTION
-
-=encoding iso-2022-jp
-
-This is a test Pod document in ISO-2202-JP. Its content is some
-Japanese haiku by famous poets.
-
-
-=head2 MATSUO BASHO ($B>>HxGN>V(B 1644 - 1694) :
-
-$B8ECS$d3?$H$S9~$`?e$N2;(B
-
-(furuike ya / kawazu tobikomu / mizu no oto)
-
-As verbatim:
-
- $B8ECS$d3?$H$S9~$`?e$N2;(B
-
-
-
-=head2 YOSA BUSON ($BM?<UIsB<(B1716 - 1783)
-
-$BJ}H,N$1+1@$h$;$L24C0$+$J(B
-
-(ho hachiri / amagumo yosenu / botan kana)
-
-As verbatim:
-
- $BJ}H,N$1+1@$h$;$L24C0$+$J(B
-
-=head2 MASAOKA SHIKI ($B at 52,;R5,(B 1867 - 1902)
-
-$B$$$A$O$D$N0lNXGr$7=U$NJk(B
-
-(ichihatsu no / ichirin shiroshi / haruno kure)
-
-As verbatim:
-
- $B$$$A$O$D$N0lNXGr$7=U$NJk(B
-
-$BM>L?$$$/$P$/$+$"$kLkC;$7(B
-
-(yomei / ikubakuka aru / yo mijikashi)
-
- $BM>L?$$$/$P$/$+$"$kLkC;$7(B
-
-=head1 AS A LIST
-
-=over
-
-=item MATSUO BASHO ($B>>HxGN>V(B 1644 - 1694) :
-
-$B8ECS$d3?$H$S9~$`?e$N2;(B
-
-(furuike ya / kawazu tobikomu / mizu no oto)
-
-As verbatim:
-
- $B8ECS$d3?$H$S9~$`?e$N2;(B
-
-
-
-=item YOSA BUSON ($BM?<UIsB<(B1716 - 1783)
-
-$BJ}H,N$1+1@$h$;$L24C0$+$J(B
-
-(ho hachiri / amagumo yosenu / botan kana)
-
-As verbatim:
-
- $BJ}H,N$1+1@$h$;$L24C0$+$J(B
-
-=item MASAOKA SHIKI ($B at 52,;R5,(B 1867 - 1902)
-
-$B$$$A$O$D$N0lNXGr$7=U$NJk(B
-
-(ichihatsu no / ichirin shiroshi / haruno kure)
-
-As verbatim:
-
- $B$$$A$O$D$N0lNXGr$7=U$NJk(B
-
-$BM>L?$$$/$P$/$+$"$kLkC;$7(B
-
-(yomei / ikubakuka aru / yo mijikashi)
-
- $BM>L?$$$/$P$/$+$"$kLkC;$7(B
-
-=back
-
-[end]
-
-=cut
-
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/2202jp.xml b/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/2202jp.xml
deleted file mode 100644
index e030495..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/2202jp.xml
+++ /dev/null
@@ -1,133 +0,0 @@
-<Document start_line="3">
- <head1 start_line="3">
- NAME
- </head1>
- <Para start_line="5">
- haiku-iso2022jp -- a test Japanese document in iso-2022-jp
- </Para>
- <head1 start_line="7">
- DESCRIPTION
- </head1>
- <Para start_line="11">
- This is a test Pod document in ISO-2202-JP. Its content
- is some Japanese haiku by famous poets.
- </Para>
- <head2 start_line="15">
- MATSUO BASHO (松尾芭蕉 1644 - 1694)
- :
- </head2>
- <Para start_line="17">
- 古池や蛙とび込む水の音
- </Para>
- <Para start_line="19">
- (furuike ya / kawazu tobikomu / mizu no oto)
- </Para>
- <Para start_line="21">
- As verbatim:
- </Para>
- <VerbatimFormatted start_line="23" xml:space="preserve">
- 古池や蛙とび込む水の音
- </VerbatimFormatted>
- <head2 start_line="27">
- YOSA BUSON (与謝蕪村1716 - 1783)
- </head2>
- <Para start_line="29">
- 方八里雨雲よせぬ牡丹かな
- </Para>
- <Para start_line="31">
- (ho hachiri / amagumo yosenu / botan kana)
- </Para>
- <Para start_line="33">
- As verbatim:
- </Para>
- <VerbatimFormatted start_line="35" xml:space="preserve">
- 方八里雨雲よせぬ牡丹かな
- </VerbatimFormatted>
- <head2 start_line="37">
- MASAOKA SHIKI (正岡子規 1867 - 1902)
- </head2>
- <Para start_line="39">
- いちはつの一輪白し春の暮
- </Para>
- <Para start_line="41">
- (ichihatsu no / ichirin shiroshi / haruno kure)
- </Para>
- <Para start_line="43">
- As verbatim:
- </Para>
- <VerbatimFormatted start_line="45" xml:space="preserve">
- いちはつの一輪白し春の暮
- </VerbatimFormatted>
- <Para start_line="47">
- 余命いくばくかある夜短し
- </Para>
- <Para start_line="49">
- (yomei / ikubakuka aru / yo mijikashi)
- </Para>
- <VerbatimFormatted start_line="51" xml:space="preserve">
- 余命いくばくかある夜短し
- </VerbatimFormatted>
- <head1 start_line="53">
- AS A LIST
- </head1>
- <over-text indent="4" start_line="55">
- <item-text start_line="57">
- MATSUO BASHO (松尾芭蕉 1644 - 1694)
- :
- </item-text>
- <Para start_line="59">
- 古池や蛙とび込む水の音
- </Para>
- <Para start_line="61">
- (furuike ya / kawazu tobikomu / mizu no oto)
- </Para>
- <Para start_line="63">
- As verbatim:
- </Para>
- <VerbatimFormatted start_line="65" xml:space="preserve">
- 古池や蛙とび込む水の音
- </VerbatimFormatted>
- <item-text start_line="69">
- YOSA BUSON (与謝蕪村1716 - 1783)
- </item-text>
- <Para start_line="71">
- 方八里雨雲よせぬ牡丹かな
- </Para>
- <Para start_line="73">
- (ho hachiri / amagumo yosenu / botan kana)
- </Para>
- <Para start_line="75">
- As verbatim:
- </Para>
- <VerbatimFormatted start_line="77" xml:space="preserve">
- 方八里雨雲よせぬ牡丹かな
- </VerbatimFormatted>
- <item-text start_line="79">
- MASAOKA SHIKI (正岡子規 1867 - 1902)
- </item-text>
- <Para start_line="81">
- いちはつの一輪白し春の暮
- </Para>
- <Para start_line="83">
- (ichihatsu no / ichirin shiroshi / haruno kure)
- </Para>
- <Para start_line="85">
- As verbatim:
- </Para>
- <VerbatimFormatted start_line="87" xml:space="preserve">
- いちはつの一輪白し春の暮
- </VerbatimFormatted>
- <Para start_line="89">
- 余命いくばくかある夜短し
- </Para>
- <Para start_line="91">
- (yomei / ikubakuka aru / yo mijikashi)
- </Para>
- <VerbatimFormatted start_line="93" xml:space="preserve">
- 余命いくばくかある夜短し
- </VerbatimFormatted>
- </over-text>
- <Para start_line="97">
- [end]
- </Para>
-</Document>
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/2202jpx.txt b/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/2202jpx.txt
deleted file mode 100644
index fb25310..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/2202jpx.txt
+++ /dev/null
@@ -1,101 +0,0 @@
-
-
-=head1 NAME
-
-haiku-iso2022jp -- a test Japanese document in iso-2022-jp
-
-=head1 DESCRIPTION
-
-=encoding iso-2022-jp
-
-This is a test Pod document in ISO-2202-JP. Its content is some
-Japanese haiku by famous poets.
-
-
-=head2 MATSUO BASHO ($B>>HxGN>V(B 1644 - 1694) :
-
-$B8ECS$d3?$H$S9~$`?e$N2;(B
-
-(furuike ya / kawazu tobikomu / mizu no oto)
-
-As verbatim:
-
- $B8ECS$d3?$H$S9~$`?e$N2;(B
-
-
-
-=head2 YOSA BUSON ($BM?<UIsB<(B1716 - 1783)
-
-$BJ}H,N$1+1@$h$;$L24C0$+$J(B
-
-(ho hachiri / amagumo yosenu / botan kana)
-
-As verbatim:
-
- $BJ}H,N$1+1@$h$;$L24C0$+$J(B
-
-=head2 MASAOKA SHIKI ($B at 52,;R5,(B 1867 - 1902)
-
-$B$$$A$O$D$N0lNXGr$7=U$NJk(B
-
-(ichihatsu no / ichirin shiroshi / haruno kure)
-
-As verbatim:
-
- $B$$$A$O$D$N0lNXGr$7=U$NJk(B
-
-$BM>L?$$$/$P$/$+$"$kLkC;$7(B
-
-(yomei / ikubakuka aru / yo mijikashi)
-
- $BM>L?$$$/$P$/$+$"$kLkC;$7(B
-
-=head1 AS A LIST
-
-=over
-
-=item MATSUO BASHO ($B>>HxGN>V(B 1644 - 1694) :
-
-$B8ECS$d3?$H$S9~$`?e$N2;(B
-
-(furuike ya / kawazu tobikomu / mizu no oto)
-
-As verbatim:
-
- $B8ECS$d3?$H$S9~$`?e$N2;(B
-
-
-
-=item YOSA BUSON ($BM?<UIsB<(B1716 - 1783)
-
-$BJ}H,N$1+1@$h$;$L24C0$+$J(B
-
-(ho hachiri / amagumo yosenu / botan kana)
-
-As verbatim:
-
- $BJ}H,N$1+1@$h$;$L24C0$+$J(B
-
-=item MASAOKA SHIKI ($B at 52,;R5,(B 1867 - 1902)
-
-$B$$$A$O$D$N0lNXGr$7=U$NJk(B
-
-(ichihatsu no / ichirin shiroshi / haruno kure)
-
-As verbatim:
-
- $B$$$A$O$D$N0lNXGr$7=U$NJk(B
-
-$BM>L?$$$/$P$/$+$"$kLkC;$7(B
-
-(yomei / ikubakuka aru / yo mijikashi)
-
- $BM>L?$$$/$P$/$+$"$kLkC;$7(B
-
-=back
-
-.end.
-
-=cut
-
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/2202jpy.txt b/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/2202jpy.txt
deleted file mode 100644
index dbfcc4e..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/2202jpy.txt
+++ /dev/null
@@ -1,101 +0,0 @@
-
-=head1 NAME
-
-haiku-iso2022jp -- a test Japanese document in iso-2022-jp
-
-=head1 DESCRIPTION
-
-=encoding iso-2022-jp
-
-This is a test Pod document in ISO-2202-JP. Its content is some
-Japanese haiku by famous poets.
-
-
-=head2 MATSUO BASHO ($B>>HxGN>V(B 1644 - 1694) :
-
-$B8ECS$d3?$H$S9~$`?e$N2;(B
-
-(furuike ya / kawazu tobikomu / mizu no oto)
-
-As verbatim:
-
- $B8ECS$d3?$H$S9~$`?e$N2;(B
-
-
-
-=head2 YOSA BUSON ($BM?<UIsB<(B1716 - 1783)
-
-$BJ}H,N$1+1@$h$;$L24C0$+$J(B
-
-(ho hachiri / amagumo yosenu / botan kana)
-
-As verbatim:
-
- $BJ}H,N$1+1@$h$;$L24C0$+$J(B
-
-=head2 MASAOKA SHIKI ($B at 52,;R5,(B 1867 - 1902)
-
-$B$$$A$O$D$N0lNXGr$7=U$NJk(B
-
-(ichihatsu no / ichirin shiroshi / haruno kure)
-
-As verbatim:
-
- $B$$$A$O$D$N0lNXGr$7=U$NJk(B
-
-$BM>L?$$$/$P$/$+$"$kLkC;$7(B
-
-(yomei / ikubakuka aru / yo mijikashi)
-
- $BM>L?$$$/$P$/$+$"$kLkC;$7(B
-
-=head1 AS A LIST
-
-=over
-
-=item MATSUO BASHO ($B>>HxGN>V(B 1644 - 1694) :
-
-$B8ECS$d3?$H$S9~$`?e$N2;(B
-
-(furuike ya / kawazu tobikomu / mizu no oto)
-
-As verbatim:
-
- $B8ECS$d3?$H$S9~$`?e$N2;(B
-
-
-
-=item YOSA BUSON ($BM?<UIsB<(B1716 - 1783)
-
-$BJ}H,N$1+1@$h$;$L24C0$+$J(B
-
-(ho hachiri / amagumo yosenu / botan kana)
-
-As verbatim:
-
- $BJ}H,N$1+1@$h$;$L24C0$+$J(B
-
-=item MASAOKA SHIKI ($B at 52,;R5,(B 1867 - 1902)
-
-$B$$$A$O$D$N0lNXGr$7=U$NJk(B
-
-(ichihatsu no / ichirin shiroshi / haruno kure)
-
-As verbatim:
-
- $B$$$A$O$D$N0lNXGr$7=U$NJk(B
-
-$BM>L?$$$/$P$/$+$"$kLkC;$7(B
-
-(yomei / ikubakuka aru / yo mijikashi)
-
- $BM>L?$$$/$P$/$+$"$kLkC;$7(B
-
-=back
-
-"end"
-
-=cut
-
-
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/8859_7.xml b/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/8859_7.xml
deleted file mode 100644
index ffbf0d0..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/8859_7.xml
+++ /dev/null
@@ -1,59 +0,0 @@
-<Document start_line="2">
- <head1 start_line="4">
- NAME
- </head1>
- <Para start_line="6">
- Ολυμπιακός
- Ύμνος -- Κωστής
- Παλαμάς
- </Para>
- <head1 start_line="8">
- DESCRIPTION
- </head1>
- <Para start_line="10">
- Αρχαίο Πνεύμ'
- αθάνατον, αγνέ
- πατέρα του
- ωραίου, του
- μεγάλου και
- τ' αληθινού,
- </Para>
- <Para start_line="13">
- κατέβα, φανερώσου
- κι άστραψ' εδώ
- πέρα στη δόξα
- της δικής σου
- γης και τ' ουρανού.
- </Para>
- <Para start_line="16">
- Στο δρόμο και
- στο πάλεμα
- και στο λιθάρι,
- στων ευγενών
- Αγώνων λάμψε
- την ορμή,
- </Para>
- <Para start_line="19">
- και με τ' αμάραντο
- στεφάνωσε κλωνάρι
- και σιδερένιο
- πλάσε κι άξιο
- το κορμί.
- </Para>
- <Para start_line="22">
- Κάμποι, βουνά
- και πέλαγα
- φέγγουν μαζί
- σου σαν ένας
- λευκοπόρφυρος
- μέγας ναός,
- </Para>
- <Para start_line="25">
- και τρέχει
- στο ναό εδώ
- προσκυνητής
- σου. Αρχαίο
- Πνεύμ' αθάνατο,
- κάθε λαός.
- </Para>
-</Document>
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/cp1256.xml b/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/cp1256.xml
deleted file mode 100644
index deacfd6..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/cp1256.xml
+++ /dev/null
@@ -1,98 +0,0 @@
-<Document start_line="2">
- <head1 start_line="2">
- NAME
- </head1>
- <Para start_line="4">
- buniya1256 -- test document: a paragraph in Arabic as CP-1256
- </Para>
- <head1 start_line="6">
- DESCRIPTION
- </head1>
- <Para start_line="8">
- This Pod document is a paragraph in Arabic from "The
- Five Pillars of Islam" as CP-1256.
- </Para>
- <Para start_line="13">
- وعن عمارة
- بن حزم قال
- قال رسول الله
- صلى الله عليه
- وسلم:
- </Para>
- <Para start_line="15">
- اربع فرضهن
- الله عز وجل
- في الاسلام
- فمن جاء بثلاث
- لم يغنين عنه
- </Para>
- <Para start_line="17">
- شيئا حتى يأتي
- بهن جميعا
- الصلاة والزكاة
- وصيام رمضان
- وحج
- </Para>
- <Para start_line="19">
- البيت. رواه
- احمد والطبراني
- في الكبير
- وفي اسناده
- ابن لهيعة.
- </Para>
- <Para start_line="21">
- And now as a real single paragraph:
- </Para>
- <Para start_line="23">
- وعن عمارة
- بن حزم قال
- قال رسول الله
- صلى الله عليه
- وسلم: اربع
- فرضهن الله
- عز وجل في الاسلام
- فمن جاء بثلاث
- لم يغنين عنه
- شيئا حتى يأتي
- بهن جميعا
- الصلاة والزكاة
- وصيام رمضان
- وحج البيت.
- رواه احمد
- والطبراني
- في الكبير
- وفي اسناده
- ابن لهيعة.
- </Para>
- <Para start_line="28">
- And now as a verbatim paragraph:
- </Para>
- <VerbatimFormatted start_line="30" xml:space="preserve">
- وعن عمارة
- بن حزم قال
- قال رسول الله
- صلى الله عليه
- وسلم:
-
- اربع فرضهن
- الله عز وجل
- في الاسلام
- فمن جاء بثلاث
- لم يغنين عنه
-
- شيئا حتى يأتي
- بهن جميعا
- الصلاة والزكاة
- وصيام رمضان
- وحج
-
- البيت. رواه
- احمد والطبراني
- في الكبير
- وفي اسناده
- ابن لهيعة.
- </VerbatimFormatted>
- <Para start_line="35">
- [end]
- </Para>
-</Document>
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/fet_dup.txt b/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/fet_dup.txt
deleted file mode 100644
index 616168a..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/fet_dup.txt
+++ /dev/null
@@ -1,56 +0,0 @@
-
-We have deliberately reduntant =encoding statements here.
-This should generate no errata.
-
-=encoding koi8-r
-
-=head1 NAME
-
-ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading"
-
-=head1 TEXT
-
-(This is a test Pod pocument in KOI8-R.)
-
-ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ, /
-çÄÅ ÓÅÒÄÃÁ Ú×ÕÞÎÙÊ ÐÙÌ ÓÉÑÎØÅ ÌØÅÔ ËÒÕÇÏÍ /
-é ÓÔÒÁÓÔÉ ÒÏËÏ×ÏÊ ×ÚÄÙÍÁÀÔÓÑ ÐÏÔÏËÉ,- /
- îÅ ×ÓÐÏÍÎÉÌÁ ÌØ Ï ÞÅÍ?
-
-ñ ×ÅÒÉÔØ ÎÅ ÈÏÞÕ! ëÏÇÄÁ × ÓÔÅÐÉ, ËÁË ÄÉ×Ï, /
-÷ ÐÏÌÎÏÞÎÏÊ ÔÅÍÎÏÔÅ ÂÅÚ×ÒÅÍÅÎÎÏ ÇÏÒÑ, /
-÷ÄÁÌÉ ÐÅÒÅÄ ÔÏÂÏÊ ÐÒÏÚÒÁÞÎÏ É ËÒÁÓÉ×Ï /
- ÷ÓÔÁ×ÁÌÁ ×ÄÒÕÇÚÁÒÑ.
-
-é × ÜÔÕ ËÒÁÓÏÔÕ ÎÅ×ÏÌØÎÏ ×ÚÏÒ ÔÑÎÕÌÏ, /
-÷ ÔÏÔ ×ÅÌÉÞÁ×ÙÊ ÂÌÅÓË ÚÁ ÔÅÍÎÙÊ ×ÅÓØ ÐÒÅÄÅÌ,- /
-õÖÅÌØ ÎÉÞÔÏ ÔÅÂÅ × ÔÏ ×ÒÅÍÑ ÎÅ ÛÅÐÎÕÌÏ: /
- ôÁÍ ÞÅÌÏ×ÅË ÓÇÏÒÅÌ!
-
-15 ÆÅ×ÒÁÌÑ 1887
-
-And now, as a verbatim section:
-
- ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ,
- çÄÅ ÓÅÒÄÃÁ Ú×ÕÞÎÙÊ ÐÙÌ ÓÉÑÎØÅ ÌØÅÔ ËÒÕÇÏÍ
- é ÓÔÒÁÓÔÉ ÒÏËÏ×ÏÊ ×ÚÄÙÍÁÀÔÓÑ ÐÏÔÏËÉ,-
- îÅ ×ÓÐÏÍÎÉÌÁ ÌØ Ï ÞÅÍ?
-
- ñ ×ÅÒÉÔØ ÎÅ ÈÏÞÕ! ëÏÇÄÁ × ÓÔÅÐÉ, ËÁË ÄÉ×Ï,
- ÷ ÐÏÌÎÏÞÎÏÊ ÔÅÍÎÏÔÅ ÂÅÚ×ÒÅÍÅÎÎÏ ÇÏÒÑ,
- ÷ÄÁÌÉ ÐÅÒÅÄ ÔÏÂÏÊ ÐÒÏÚÒÁÞÎÏ É ËÒÁÓÉ×Ï
- ÷ÓÔÁ×ÁÌÁ ×ÄÒÕÇÚÁÒÑ.
-
-=encoding koi8-r
-
- é × ÜÔÕ ËÒÁÓÏÔÕ ÎÅ×ÏÌØÎÏ ×ÚÏÒ ÔÑÎÕÌÏ,
- ÷ ÔÏÔ ×ÅÌÉÞÁ×ÙÊ ÂÌÅÓË ÚÁ ÔÅÍÎÙÊ ×ÅÓØ ÐÒÅÄÅÌ,-
- õÖÅÌØ ÎÉÞÔÏ ÔÅÂÅ × ÔÏ ×ÒÅÍÑ ÎÅ ÛÅÐÎÕÌÏ:
- ôÁÍ ÞÅÌÏ×ÅË ÓÇÏÒÅÌ!
-
- 15 ÆÅ×ÒÁÌÑ 1887
-
-[end]
-
-=cut
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/laozi38p.pod b/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/laozi38p.pod
deleted file mode 100644
index d48b032..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/laozi38p.pod
+++ /dev/null
@@ -1,46 +0,0 @@
-
-=encoding big5
-
-=head1 NAME
-
-¦Ñ¤l¹D¼w¸g¡@¤T¤Q¤K³¹ -- Big5 (Chinese) encoding test
-
-=head1 DESCRIPTION
-
-This is a test Pod document in the Big5 encoding. Its content is
-the 38th canto from the I<Dao De Jing>.
-
-=head2 ¦Ñ¤l¹D¼w¸g¡@¤T¤Q¤K³¹
-
-¤W¼w¤£¼w¡A¬O¥H¦³¼w¡Q
-¤U¼w¤£¥¢¼w¡A¬O¥HµL¼w¡C
-¤W¼wµL¬°¦ÓµL¥H¬°¡Q
-¤U¼wµL¬°¦Ó¦³¥H¬°¡C
-¤W¤¯¬°¤§¦ÓµL¥H¬°¡Q
-¤W¸q¬°¤§¦Ó¦³¥H¬°¡C
-¤W§¬°¤§¦Ó²ö¤§À³¡A«hÄcÁu¦Ó¥µ¤§¡C
-
-¬G¥¢¹D¦Ó¦Z¼w¡A¥¢¼w¦Ó¦Z¤¯¡A¥¢¤¯¦Ó¦Z¸q¡A¥¢¸q¦Ó¦Z§¡C¤Ò§ªÌ¡A©¾«H¤§Á¡¡A¦Ó¶Ã¤§º¡C
-«eÃѪ̡A¹D¤§µØ¡A¦Ó·M¤§©l¡C
-¬O¥H¤j¤V¤Ò©~¨ä«p¡A¤£©~¨äÁ¡¡Q©~¨ä¹ê¡A¤£©~¨äµØ¡C
-¬G¥h©¼¨ú¦¹¡C
-
-And as a verbatim section:
-
- ¤W¼w¤£¼w¡A¬O¥H¦³¼w¡Q
- ¤U¼w¤£¥¢¼w¡A¬O¥HµL¼w¡C
- ¤W¼wµL¬°¦ÓµL¥H¬°¡Q
- ¤U¼wµL¬°¦Ó¦³¥H¬°¡C
- ¤W¤¯¬°¤§¦ÓµL¥H¬°¡Q
- ¤W¸q¬°¤§¦Ó¦³¥H¬°¡C
- ¤W§¬°¤§¦Ó²ö¤§À³¡A«hÄcÁu¦Ó¥µ¤§¡C
-
- ¬G¥¢¹D¦Ó¦Z¼w¡A¥¢¼w¦Ó¦Z¤¯¡A¥¢¤¯¦Ó¦Z¸q¡A¥¢¸q¦Ó¦Z§¡C¤Ò§ªÌ¡A©¾«H¤§Á¡¡A¦Ó¶Ã¤§º¡C
- «eÃѪ̡A¹D¤§µØ¡A¦Ó·M¤§©l¡C
- ¬O¥H¤j¤V¤Ò©~¨ä«p¡A¤£©~¨äÁ¡¡Q©~¨ä¹ê¡A¤£©~¨äµØ¡C
- ¬G¥h©¼¨ú¦¹¡C
-
-[end]
-
-=cut
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/lat1fr.txt b/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/lat1fr.txt
deleted file mode 100644
index 130ce11..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/lat1fr.txt
+++ /dev/null
@@ -1,38 +0,0 @@
-
-=encoding iso-8859-1
-
-=head1 NAME
-
-French-Latin-1 -- explicitly Latin-1 test document in French
-
-=head1 DESCRIPTION
-
-This is a test Pod document in Latin-1. Its content is the last two
-paragraphs of Baudelaire's I<Le Joujou du pauvre>.
-
-A travers ces barreaux symboliques séparant deux mondes, la grande route
-et le château, l'enfant pauvre montrait à l'enfant riche son propre
-joujou, que celui-ci examinait avidement comme un objet rare et inconnu.
-Or, ce joujou, que le petit souillon agaçait, agitait et secouait dans
-une boîte grillée, c'était un rat vivantE<160>! Les parents, par économie
-sans doute, avaient tiré le joujou de la vie elle-même.
-
-Et les deux enfants se riaient l'un à l'autre fraternellement, avec des
-dents d'une I<égale> blancheur.
-
-=head2 As Verbatim
-
- A travers ces barreaux symboliques séparant deux mondes, la grande route
- et le château, l'enfant pauvre montrait à l'enfant riche son propre
- joujou, que celui-ci examinait avidement comme un objet rare et inconnu.
- Or, ce joujou, que le petit souillon agaçait, agitait et secouait dans
- une boîte grillée, c'était un rat vivant ! Les parents, par économie
- sans doute, avaient tiré le joujou de la vie elle-même.
-
- Et les deux enfants se riaient l'un à l'autre fraternellement, avec des
- dents d'une égale blancheur.
-
-[end]
-
-=cut
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/nonesuch.txt b/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/nonesuch.txt
deleted file mode 100644
index 57a3f9c..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/nonesuch.txt
+++ /dev/null
@@ -1,11 +0,0 @@
-=encoding blorpy
-
-=head1 nonesuch -- Document in an unknown encoding
-
-Blorp.
-
-[end]
-
-=cut
-
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/plain.txt b/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/plain.txt
deleted file mode 100644
index 081aaac..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/plain.txt
+++ /dev/null
@@ -1,20 +0,0 @@
-
-=head1 NAME
-
-simple_text_document -- an implicitly US-ASCII test document.
-
-=head1 TEXT
-
-The quick brown fox jumps over the lazy dog.
-
-Military Intelligence Yukon rhosts penrep Weekly World News DSD Time
-Cohiba finks rail gun DF ~ Corporate Security NATOA CCS DEVGRP
-
-CONUS Khaddafi NATIA data havens Spetznaz afsatcom BOP Semtex garbage
-KGB ^? 737 1080H 1080H Satellite imagery smuggle
-
-[end]
-
-=cut
-
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/plain_explicit.txt b/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/plain_explicit.txt
deleted file mode 100644
index 0e8f6c5..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/plain_explicit.txt
+++ /dev/null
@@ -1,22 +0,0 @@
-
-=encoding ascii
-
-=head1 NAME
-
-simple_text_document -- an explicitly US-ASCII test document.
-
-=head1 TEXT
-
-The quick brown fox jumps over the lazy dog.
-
-Military Intelligence Yukon rhosts penrep Weekly World News DSD Time
-Cohiba finks rail gun DF ~ Corporate Security NATOA CCS DEVGRP
-
-CONUS Khaddafi NATIA data havens Spetznaz afsatcom BOP Semtex garbage
-KGB ^? 737 1080H 1080H Satellite imagery smuggle
-
-[end]
-
-=cut
-
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/plain_explicit.xml b/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/plain_explicit.xml
deleted file mode 100644
index 1db06b8..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/plain_explicit.xml
+++ /dev/null
@@ -1,26 +0,0 @@
-<Document start_line="2">
- <head1 start_line="4">
- NAME
- </head1>
- <Para start_line="6">
- simple_text_document -- an explicitly US-ASCII test document.
- </Para>
- <head1 start_line="8">
- TEXT
- </head1>
- <Para start_line="10">
- The quick brown fox jumps over the lazy dog.
- </Para>
- <Para start_line="12">
- Military Intelligence Yukon rhosts penrep Weekly World News
- DSD Time Cohiba finks rail gun DF ~ Corporate Security NATOA
- CCS DEVGRP
- </Para>
- <Para start_line="15">
- CONUS Khaddafi NATIA data havens Spetznaz afsatcom BOP Semtex
- garbage KGB ^? 737 1080H 1080H Satellite imagery smuggle
- </Para>
- <Para start_line="18">
- [end]
- </Para>
-</Document>
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/plain_latin1.txt b/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/plain_latin1.txt
deleted file mode 100644
index 8be2ed6..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/plain_latin1.txt
+++ /dev/null
@@ -1,24 +0,0 @@
-
-#Doesn't actually use any of the Latin-1 bytes.
-
-=encoding iso-8859-1
-
-=head1 NAME
-
-simple_text_document -- an explicitly Latin-1 (ASCII subset) test document
-
-=head1 TEXT
-
-The quick brown fox jumps over the lazy dog.
-
-Military Intelligence Yukon rhosts penrep Weekly World News DSD Time
-Cohiba finks rail gun DF ~ Corporate Security NATOA CCS DEVGRP
-
-CONUS Khaddafi NATIA data havens Spetznaz afsatcom BOP Semtex garbage
-KGB ^? 737 1080H 1080H Satellite imagery smuggle
-
-[end]
-
-=cut
-
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/polish_utf8.txt b/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/polish_utf8.txt
deleted file mode 100644
index 32c763e..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/polish_utf8.txt
+++ /dev/null
@@ -1,69 +0,0 @@
-
-=encoding utf8
-
-=head1 NAME
-
-WŚRÓD NOCNEJ CISZY -- explicitly utf8 test document in Polish
-
-=head1 DESCRIPTION
-
-This is a test Pod document in UTF8. Its content is the lyrics to
-the Polish Christmas carol "Wśród nocnej ciszy".
-
-Wśród nocnej ciszy głos się rozchodzi: /
-Wstańcie, pasterze, Bóg się nam rodzi! /
-Czym prędzej się wybierajcie, /
-Do Betlejem pospieszajcie /
-Przywitać Pana.
-
-Poszli, znaleźli Dzieciątko w żłobie /
-Z wszystkimi znaki danymi sobie. /
-Jako Bogu cześć Mu dali, /
-A witając zawołali /
-Z wielkiej radości:
-
-Ach, witaj Zbawco z dawno żądany, /
-Wiele tysięcy lat wyglądany /
-Na Ciebie króle, prorocy /
-Czekali, a TyÅ› tej nocy /
-Nam się objawił.
-
-I my czekamy na Ciebie, Pana, /
-A skoro przyjdziesz na głos kapłana, /
-Padniemy na twarz przed TobÄ…, /
-Wierząc, żeś jest pod osłoną /
-Chleba i wina.
-
-=head2 As Verbatim
-
-And now as verbatim text:
-
- Wśród nocnej ciszy głos się rozchodzi:
- Wstańcie, pasterze, Bóg się nam rodzi!
- Czym prędzej się wybierajcie,
- Do Betlejem pospieszajcie
- Przywitać Pana.
-
- Poszli, znaleźli Dzieciątko w żłobie
- Z wszystkimi znaki danymi sobie.
- Jako Bogu cześć Mu dali,
- A witając zawołali
- Z wielkiej radości:
-
- Ach, witaj Zbawco z dawno żądany,
- Wiele tysięcy lat wyglądany
- Na Ciebie króle, prorocy
- Czekali, a TyÅ› tej nocy
- Nam się objawił.
-
- I my czekamy na Ciebie, Pana,
- A skoro przyjdziesz na głos kapłana,
- Padniemy na twarz przed TobÄ…,
- Wierząc, żeś jest pod osłoną
- Chleba i wina.
-
-[end]
-
-=cut
-
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/s2763_sjis.txt b/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/s2763_sjis.txt
deleted file mode 100644
index 101b582..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/s2763_sjis.txt
+++ /dev/null
@@ -1,48 +0,0 @@
-
-=encoding shiftjis
-
-=head1 NAME
-
-Œ^”ÔS2763 -- test document in Shift-JIS
-
-=head1 DESCRIPTION
-
-This is a test Pod document in Shift-JIS. Its content is
-some uninteresting product specs I found on the Net.
-
-It's an textitem list:
-
-=over
-
-=item Œ^”Ô
-
-S2763
-
-=item ŒõŒ¹
-
-GZ4 ƒ_ƒCƒNƒƒCƒbƒNƒ~ƒ‰[ƒ‰ƒ“ƒv 12V 10W~1
-
-=item ¡–@
-
-‚E295 •E365 ‰œE76mm
-
-=item Ž¿—Ê
-
-8.0kg
-
-=item ÞŽ¿
-
-Ž÷Ž‰@ƒAƒ‹ƒ~AƒAƒ‹ƒ}ƒCƒgŽdã@ƒKƒ‰ƒX
-
-=item ‰¿Ši
-
-76,000‰~iƒ‰ƒ“ƒvEƒgƒ‰ƒ“ƒXž‚Ýj
-
-=back
-
-2001”N10ŒŽ3“úi…j””„ŠJŽn
-
-[end]
-
-=cut
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/thai_iso11.txt b/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/thai_iso11.txt
deleted file mode 100644
index 79e1bf0..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus/thai_iso11.txt
+++ /dev/null
@@ -1,64 +0,0 @@
-
-=head1 NAME
-
-Khun::Thong::Dang -- a test Thai document in ISO-8859-11
-
-=head1 DESCRIPTION
-
-=encoding iso-8859-11
-
-This is a test Pod document in ISO-8859-11. Its content is a poem to (by?)
-Khun Thong Dang (ÀÒ¾ÁÔè§Á§¤Å), the pet of Bhumibol, the King of
-Thailand.
-
-As four flowed paragraphs:
-
-ï ¾ÃÐàÁµµÒá¨èÁ¨Ñºã¨ä¼·ÊÂÒÁ /
-¾ÃзѧÒÁ...ÁͧÀÒ¾¶èÒÂÁÔ¶èÒ¶͹ /
-à¡ÅéÒÏ ¹éÍÁà¡ÅéÒÏ ¾¨¹ìàÃÕ§༴Õ§¡Å͹ /
-Ê×èÍÊзé͹¾ÃСÒÃسÂìÍØ蹴ǧÁÒ¹ú
-
-ï ·Ø¡ÀÒ¾ÁÔè§Á§¤ÅÂÅáÅéÇÂÔéÁ /
-àÍ×éÍÍ¡ÍÔèÁÅéÓ¤èÒÁËÒÈÒÅ /
-ÍÂÒ¡à»ç¹¤Ø³·Í§á´§¹Ñ¡¨Ñ¡ÍÂÙè§Ò¹ /
-à½éÒ¤ÅÍà¤ÅÕº·ÁÒÅÂì¾ÃÐÀÙÁÔ¾Åú
-
-ï ¾ÃÐËѵ¶ìºØ·Ã§àºÔ¡ËÅéÒ¾ÅÔ¡ËÅéÒà¢ÕÂÇ /
-¾ÃÐâÍÉ°ìàÃÕÂǵÃÑÊËéÒÁʧ¤ÃÒÁ©Å /
-¾ÃзÑ ¸ âÍÀÒʼèͧ¶èͧʡŠ/
-¾ÃÐÂؤźҷÂèÒ§Ê׺ÊÃéÒ§ä·Âú
-
-ï ¹éÍÁà¡ÅéÒà·Ô´Í§¤ìÃҪѹÈÃѹÂìÈÃÕ /
-ºÒÃÁÕËÁ×蹤Ù褧Íʧä¢Â /
-¡ÃôÔÃÒª¡ÄɮҡéͧËÅéÒä¡Å /
-»Å×éÁ»ÃзѺ¶éǹ·Ø¡ã¨áËè§ä·éàÍÂúÐû
-
-=head2 Verbatim Section
-
-And as a verbatim section:
-
- ï ¾ÃÐàÁµµÒá¨èÁ¨Ñºã¨ä¼·ÊÂÒÁ
- ¾ÃзѧÒÁ...ÁͧÀÒ¾¶èÒÂÁÔ¶èÒ¶͹
- à¡ÅéÒÏ ¹éÍÁà¡ÅéÒÏ ¾¨¹ìàÃÕ§༴Õ§¡Å͹
- Ê×èÍÊзé͹¾ÃСÒÃسÂìÍØ蹴ǧÁÒ¹ú
-
- ï ·Ø¡ÀÒ¾ÁÔè§Á§¤ÅÂÅáÅéÇÂÔéÁ
- àÍ×éÍÍ¡ÍÔèÁÅéÓ¤èÒÁËÒÈÒÅ
- ÍÂÒ¡à»ç¹¤Ø³·Í§á´§¹Ñ¡¨Ñ¡ÍÂÙè§Ò¹
- à½éÒ¤ÅÍà¤ÅÕº·ÁÒÅÂì¾ÃÐÀÙÁÔ¾Åú
-
- ï ¾ÃÐËѵ¶ìºØ·Ã§àºÔ¡ËÅéÒ¾ÅÔ¡ËÅéÒà¢ÕÂÇ
- ¾ÃÐâÍÉ°ìàÃÕÂǵÃÑÊËéÒÁʧ¤ÃÒÁ©Å
- ¾ÃзÑ ¸ âÍÀÒʼèͧ¶èͧʡÅ
- ¾ÃÐÂؤźҷÂèÒ§Ê׺ÊÃéÒ§ä·Âú
-
- ï ¹éÍÁà¡ÅéÒà·Ô´Í§¤ìÃҪѹÈÃѹÂìÈÃÕ
- ºÒÃÁÕËÁ×蹤Ù褧Íʧä¢Â
- ¡ÃôÔÃÒª¡ÄɮҡéͧËÅéÒä¡Å
- »Å×éÁ»ÃзѺ¶éǹ·Ø¡ã¨áËè§ä·éàÍÂúÐû
-
-[end]
-
-=cut
-
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus2/fiqhakbar_iso6.txt b/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus2/fiqhakbar_iso6.txt
deleted file mode 100644
index db124ab..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus2/fiqhakbar_iso6.txt
+++ /dev/null
@@ -1,84 +0,0 @@
-
-=encoding iso-8859-6
-
-=head1 NAME
-
-åÊæ Çäáâç ÇäÇãÈÑ -- test document: "al-Fiqh al-Akbar" as ISO-8859-6
-
-=head1 DESCRIPTION
-
-This document is Abu Hanifah's "al-Fiqh al-Akbar" as ISO-8859-6, presented
-as an item-number list:
-
-åÊæ Çäáâç ÇäÇãÈÑ
-
-ÇäåæÓèÈ Çäé ÇÈê ÍæêáÉ ÇäæÙåÇæ Èæ ËÇÈÊ
-
-=over
-
-=item 1
-
-äÇ æãáÑ ÃÍÏÇ ÈÐæÈ èäÇ ææáê ÃÍÏÇ åæ ÇäÇêåÇæ .
-
-=item 2
-
-ÅæÇ æÃåÑ ÈÇäåÙÑèá èææçê Ùæ ÇäåæãÑ .
-
-=item 3
-
-èÇÙäå Ãæ åÇ ÃÕÇÈã äå êãæ äêÎ×Æã ¬ èåÇ ÃÎ×Ãã äå êãæ äêÕêÈã .
-
-=item 4
-
-äÇ æÊÈÑà åæ ÃÍÏ åæ ÃÕÍÇÈ ÑÓèä Çääç Õäé Çääç Ùäêç èÓäå èäÇ êÊèÇäé ÃÍÏ Ïèæ ÃÍÏ .
-
-=item 5
-
-ÅæÇ æÑÏ ÃåÑ ÙËåÇæ èÙäê Çäé Çääç èçè ÙÇäå ÇäÓÑ èÇäÎáêÇÊ .
-
-=item 6
-
-Çäáâç áê ÇäÏêæ ÃáÖä åæ Çäáâç áê ÇäÙäå .
-
-=item 7
-
-èÇÎÊäÇá ÇäÇåÉ ÑÍåÉ .
-
-=item 8
-
-åæ Âåæ ÈÌåêÙ åÇ êÄåÑ Èç ÇäÇ Ãæç âÇä äÇ ÃÙÑá åèÓé èÙêÓé ÙäêçåÇ ÇäÓäÇå Ãåæ ÇäåÑÓäêæ Ãå åæ ÚêÑ ÇäåÑÓäêæ áÅæç êãáÑ .
-
-=item 9
-
-åæ âÇä äÇ ÃÙÑá Çääç Ãáê ÇäÓåÇÁ Ãå áê ÇäÇÑÖ áâÏ ãáÑ .
-
-=item 10
-
-åæ âÇä äÇ ÃÙÑá ÙÐÇÈ ÇäâÈÑ áçè åæ Çä×ÈâÉ ÇäÌçåêÉ èÇäçÇäãêÉ .
-
-=back
-
-And now run together as a paragraph:
-
-äÇ æãáÑ ÃÍÏÇ ÈÐæÈ èäÇ ææáê ÃÍÏÇ åæ ÇäÇêåÇæ .
-ÅæÇ æÃåÑ ÈÇäåÙÑèá èææçê Ùæ ÇäåæãÑ .
-èÇÙäå Ãæ åÇ ÃÕÇÈã äå êãæ äêÎ×Æã ¬ èåÇ ÃÎ×Ãã äå êãæ äêÕêÈã .
-äÇ æÊÈÑà åæ ÃÍÏ åæ ÃÕÍÇÈ ÑÓèä Çääç Õäé Çääç Ùäêç èÓäå èäÇ êÊèÇäé ÃÍÏ Ïèæ ÃÍÏ .
-ÅæÇ æÑÏ ÃåÑ ÙËåÇæ èÙäê Çäé Çääç èçè ÙÇäå ÇäÓÑ èÇäÎáêÇÊ .
-Çäáâç áê ÇäÏêæ ÃáÖä åæ Çäáâç áê ÇäÙäå .
-èÇÎÊäÇá ÇäÇåÉ ÑÍåÉ .
-åæ Âåæ ÈÌåêÙ åÇ êÄåÑ Èç ÇäÇ Ãæç âÇä äÇ ÃÙÑá åèÓé èÙêÓé ÙäêçåÇ ÇäÓäÇå Ãåæ ÇäåÑÓäêæ Ãå åæ ÚêÑ ÇäåÑÓäêæ áÅæç êãáÑ .
-åæ âÇä äÇ ÃÙÑá Çääç Ãáê ÇäÓåÇÁ Ãå áê ÇäÇÑÖ áâÏ ãáÑ .
-åæ âÇä äÇ ÃÙÑá ÙÐÇÈ ÇäâÈÑ áçè åæ Çä×ÈâÉ ÇäÌçåêÉ èÇäçÇäãêÉ .
-
-And now the first three as a verbatim section:
-
- äÇ æãáÑ ÃÍÏÇ ÈÐæÈ èäÇ ææáê ÃÍÏÇ åæ ÇäÇêåÇæ .
- ÅæÇ æÃåÑ ÈÇäåÙÑèá èææçê Ùæ ÇäåæãÑ .
- èÇÙäå Ãæ åÇ ÃÕÇÈã äå êãæ äêÎ×Æã ¬ èåÇ ÃÎ×Ãã äå êãæ äêÕêÈã .
-
-[end]
-
-=cut
-
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus2/polish_utf8_bom.xml b/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus2/polish_utf8_bom.xml
deleted file mode 100644
index 08a1145..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus2/polish_utf8_bom.xml
+++ /dev/null
@@ -1,101 +0,0 @@
-<Document start_line="2">
- <head1 start_line="2">
- NAME
- </head1>
- <Para start_line="4">
- WŚRÓD NOCNEJ CISZY -- implicitly utf8
- test document in Polish
- </Para>
- <head1 start_line="6">
- DESCRIPTION
- </head1>
- <Para start_line="8">
- This is a test Pod document in UTF8. Its content is the
- lyrics to the Polish Christmas carol "Wśród
- nocnej ciszy".
- </Para>
- <Para start_line="11">
- Wśród nocnej ciszy głos
- się rozchodzi: / Wstańcie, pasterze,
- Bóg się nam rodzi! / Czym prędzej
- siÄ™ wybierajcie, / Do Betlejem pospieszajcie
- / Przywitać Pana.
- </Para>
- <Para start_line="17">
- Poszli, znaleźli DzieciÄ tko w żłobie
- / Z wszystkimi znaki danymi sobie. / Jako Bogu cześć
- Mu dali, / A witajÄ c zawoÅ‚ali / Z wielkiej
- radości:
- </Para>
- <Para start_line="23">
- Ach, witaj Zbawco z dawno Å¼Ä dany, / Wiele
- tysiÄ™cy lat wyglÄ dany / Na Ciebie króle,
- prorocy / Czekali, a TyÅ› tej nocy / Nam siÄ™
- objawił.
- </Para>
- <Para start_line="29">
- I my czekamy na Ciebie, Pana, / A skoro przyjdziesz na głos
- kapÅ‚ana, / Padniemy na twarz przed TobÄ
- , / WierzÄ c, żeÅ› jest pod osÅ‚onÄ
- / Chleba i wina.
- </Para>
- <head2 start_line="35">
- As Verbatim
- </head2>
- <Para start_line="37">
- And now as verbatim text:
- </Para>
- <VerbatimFormatted start_line="39" xml:space="preserve">
- Wśród nocnej ciszy głos
- siÄ™ rozchodzi:
-
- Wstańcie, pasterze, Bóg się
- nam rodzi!
-
- Czym prędzej się wybierajcie,
-
- Do Betlejem pospieszajcie
-
- Przywitać Pana.
-
-
-
- Poszli, znaleźli Dzieciątko w żłobie
-
- Z wszystkimi znaki danymi sobie.
-
- Jako Bogu cześć Mu dali,
-
- A witając zawołali
-
- Z wielkiej radości:
-
-
-
- Ach, witaj Zbawco z dawno żądany,
-
- Wiele tysięcy lat wyglądany
-
- Na Ciebie króle, prorocy
-
- Czekali, a TyÅ› tej nocy
-
- Nam się objawił.
-
-
-
- I my czekamy na Ciebie, Pana,
-
- A skoro przyjdziesz na głos kapłana,
-
- Padniemy na twarz przed TobÄ…,
-
- Wierząc, żeś jest pod
- osłoną
-
- Chleba i wina.
- </VerbatimFormatted>
- <Para start_line="63">
- [end]
- </Para>
-</Document>
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus2/polish_utf8_bom2.txt b/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus2/polish_utf8_bom2.txt
deleted file mode 100644
index 5ecc7a6..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/corpus2/polish_utf8_bom2.txt
+++ /dev/null
@@ -1,67 +0,0 @@
-=head1 NAME
-
-
-WŚRÓD NOCNEJ CISZY -- implicitly utf8 test document in Polish
-
-=head1 DESCRIPTION
-
-This is a test Pod document in UTF8. Its content is the lyrics to
-the Polish Christmas carol "Wśród nocnej ciszy".
-
-Wśród nocnej ciszy głos się rozchodzi: /
-Wstańcie, pasterze, Bóg się nam rodzi! /
-Czym prędzej się wybierajcie, /
-Do Betlejem pospieszajcie /
-Przywitać Pana.
-
-Poszli, znaleźli Dzieciątko w żłobie /
-Z wszystkimi znaki danymi sobie. /
-Jako Bogu cześć Mu dali, /
-A witając zawołali /
-Z wielkiej radości:
-
-Ach, witaj Zbawco z dawno żądany, /
-Wiele tysięcy lat wyglądany /
-Na Ciebie króle, prorocy /
-Czekali, a TyÅ› tej nocy /
-Nam się objawił.
-
-I my czekamy na Ciebie, Pana, /
-A skoro przyjdziesz na głos kapłana, /
-Padniemy na twarz przed TobÄ…, /
-Wierząc, żeś jest pod osłoną /
-Chleba i wina.
-
-=head2 As Verbatim
-
-And now as verbatim text:
-
- Wśród nocnej ciszy głos się rozchodzi:
- Wstańcie, pasterze, Bóg się nam rodzi!
- Czym prędzej się wybierajcie,
- Do Betlejem pospieszajcie
- Przywitać Pana.
-
- Poszli, znaleźli Dzieciątko w żłobie
- Z wszystkimi znaki danymi sobie.
- Jako Bogu cześć Mu dali,
- A witając zawołali
- Z wielkiej radości:
-
- Ach, witaj Zbawco z dawno żądany,
- Wiele tysięcy lat wyglądany
- Na Ciebie króle, prorocy
- Czekali, a TyÅ› tej nocy
- Nam się objawił.
-
- I my czekamy na Ciebie, Pana,
- A skoro przyjdziesz na głos kapłana,
- Padniemy na twarz przed TobÄ…,
- Wierząc, żeś jest pod osłoną
- Chleba i wina.
-
-[end]
-
-=cut
-
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/encod02.t b/3.8.8/sources/cpan-Pod-Simple/vendor/t/encod02.t
deleted file mode 100644
index a29cbdc..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/encod02.t
+++ /dev/null
@@ -1,77 +0,0 @@
-# encoding not error
-BEGIN {
- if($ENV{PERL_CORE}) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-use strict;
-use Test;
-BEGIN { plan tests => 4 };
-
-#use Pod::Simple::Debug (5);
-
-ok 1;
-
-use Pod::Simple::DumpAsXML;
-use Pod::Simple::XMLOutStream;
-print "# Pod::Simple version $Pod::Simple::VERSION\n";
-
-{
-my @output_lines = split m/[\cm\cj]+/, Pod::Simple::XMLOutStream->_out( q{
-
-=encoding koi8-r
-
-=head1 NAME
-
-ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading"
-
-=cut
-
-} );
-
-
-if(grep m/Unknown directive/i, @output_lines ) {
- ok 0;
- print "# I saw an Unknown directive warning here! :\n",
- map("#==> $_\n", @output_lines), "#\n#\n";
-} else {
- ok 1;
-}
-
-}
-
-# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-print "# Now a control group, to make sure that =fishbladder DOES\n",
- "# cause an 'unknown directive' error...\n";
-
-{
-my @output_lines = split m/[\cm\cj]+/, Pod::Simple::XMLOutStream->_out( q{
-
-=fishbladder
-
-=head1 NAME
-
-Fet's "When you were reading"
-
-=cut
-
-} );
-
-
-if(grep m/Unknown directive/i, @output_lines ) {
- ok 1;
-} else {
- ok 0;
- print "# But I didn't see an Unknows directive warning here! :\n",
- map("#==> $_\n", @output_lines), "#\n#\n";
-}
-
-}
-
-
-
-print "#\n# And one for the road...\n";
-ok 1;
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/encod03.t b/3.8.8/sources/cpan-Pod-Simple/vendor/t/encod03.t
deleted file mode 100644
index 48ab2f4..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/encod03.t
+++ /dev/null
@@ -1,77 +0,0 @@
-# encoding not error 0
-BEGIN {
- if($ENV{PERL_CORE}) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-use strict;
-use Test;
-BEGIN { plan tests => 4 };
-
-#use Pod::Simple::Debug (5);
-
-ok 1;
-
-use Pod::Simple::DumpAsXML;
-use Pod::Simple::XMLOutStream;
-print "# Pod::Simple version $Pod::Simple::VERSION\n";
-
-{
-my @output_lines = split m/[\cm\cj]+/, Pod::Simple::XMLOutStream->_out( q{
-
-=encoding koi8-r
-
-=head1 NAME
-
-Bippitty Boppity Boo -- Yormp
-
-=cut
-
-} );
-
-
-if(grep m/Unknown directive/i, @output_lines ) {
- ok 0;
- print "# I saw an Unknown directive warning here! :\n",
- map("#==> $_\n", @output_lines), "#\n#\n";
-} else {
- ok 1;
-}
-
-}
-
-# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-print "# Now a control group, to make sure that =fishbladder DOES\n",
- "# cause an 'unknown directive' error...\n";
-
-{
-my @output_lines = split m/[\cm\cj]+/, Pod::Simple::XMLOutStream->_out( q{
-
-=fishbladder
-
-=head1 NAME
-
-Fet's "When you were reading"
-
-=cut
-
-} );
-
-
-if(grep m/Unknown directive/i, @output_lines ) {
- ok 1;
-} else {
- ok 0;
- print "# But I didn't see an Unknows directive warning here! :\n",
- map("#==> $_\n", @output_lines), "#\n#\n";
-}
-
-}
-
-
-
-print "#\n# And one for the road...\n";
-ok 1;
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/fcodes_l.t b/3.8.8/sources/cpan-Pod-Simple/vendor/t/fcodes_l.t
deleted file mode 100644
index 17be5db..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/fcodes_l.t
+++ /dev/null
@@ -1,434 +0,0 @@
-# fcodes L
-BEGIN {
- if($ENV{PERL_CORE}) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-use strict;
-use Test;
-BEGIN { plan tests => 99 };
-
-#use Pod::Simple::Debug (10);
-
-ok 1;
-
-use Pod::Simple::DumpAsXML;
-use Pod::Simple::XMLOutStream;
-print "# Pod::Simple version $Pod::Simple::VERSION\n";
-sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
-my $x = 'Pod::Simple::XMLOutStream';
-
-print "##### Testing L codes via x class $x...\n";
-
-$Pod::Simple::XMLOutStream::ATTR_PAD = ' ';
-$Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output
-
-print "# Simple/moderate L<stuff> tests...\n";
-
-ok($x->_out(qq{=pod\n\nL<Net::Ping>\n}),
- '<Document><Para><L content-implicit="yes" to="Net::Ping" type="pod">Net::Ping</L></Para></Document>'
-);
-
-ok($x->_out(qq{=pod\n\nL<crontab(5)>\n}),
- '<Document><Para><L content-implicit="yes" to="crontab(5)" type="man">crontab(5)</L></Para></Document>'
-);
-
-ok( $x->_out(qq{=pod\n\nL<Net::Ping/Ping-pong>\n}),
- '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>'
-);
-
-ok( $x->_out(qq{=pod\n\nL<Net::Ping/"Ping-pong">\n}),
- '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>'
-);
-
-ok( $x->_out(qq{=pod\n\nL</"Object Methods">\n}),
- '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL</Object Methods>\n}),
- '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<"Object Methods">\n}),
- '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>'
-);
-
-
-print "# Complex L<stuff> tests...\n";
-print "# Ents in the middle...\n";
-
-ok($x->_out(qq{=pod\n\nL<Net::Ping>\n}),
- '<Document><Para><L content-implicit="yes" to="Net::Ping" type="pod">Net::Ping</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<Net::Ping/Ping-E<112>ong>\n}),
- '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<Net::Ping/"Ping-E<112>ong">\n}),
- '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>'
-);
-
-ok( $x->_out(qq{=pod\n\nL</"Object E<77>ethods">\n}),
- '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL</Object E<77>ethods>\n}),
- '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<"Object E<77>ethods">\n}),
- '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>'
-);
-
-
-
-print "# Ents in the middle and at the start...\n";
-
-ok($x->_out(qq{=pod\n\nL<E<78>et::Ping>\n}),
- '<Document><Para><L content-implicit="yes" to="Net::Ping" type="pod">Net::Ping</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<E<78>et::Ping/Ping-E<112>ong>\n}),
- '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<E<78>et::Ping/"Ping-E<112>ong">\n}),
- '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>'
-);
-
-ok( $x->_out(qq{=pod\n\nL</"E<79>bject E<77>ethods">\n}),
- '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL</E<79>bject E<77>ethods>\n}),
- '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<"E<79>bject E<77>ethods">\n}),
- '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>'
-);
-
-
-print "# Ents in the middle and at the start and at the end...\n";
-
-ok($x->_out(qq{=pod\n\nL<E<78>et::PinE<103>>\n}),
- '<Document><Para><L content-implicit="yes" to="Net::Ping" type="pod">Net::Ping</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<E<78>et::PinE<103>/Ping-E<112>onE<103>>\n}),
- '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<E<78>et::PinE<103>/"Ping-E<112>onE<103>">\n}),
- '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>'
-);
-
-ok( $x->_out(qq{=pod\n\nL</"E<79>bject E<77>ethodE<115>">\n}),
- '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL</E<79>bject E<77>ethodE<115>>\n}),
- '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<"E<79>bject E<77>ethodE<115>">\n}),
- '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>'
-);
-
-
-print "# Even more complex L<stuff> tests...\n";
-
-
-print "# Ents in the middle...\n";
-
-ok($x->_out(qq{=pod\n\nL<Net::Ping>\n}),
- '<Document><Para><L content-implicit="yes" to="Net::Ping" type="pod">Net::Ping</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<Net::Ping/Ping-E<112>ong>\n}),
- '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<Net::Ping/"Ping-E<112>ong">\n}),
- '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>'
-);
-
-ok( $x->_out(qq{=pod\n\nL</"Object E<77>ethods">\n}),
- '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL</Object E<77>ethods>\n}),
- '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<"Object E<77>ethods">\n}),
- '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>'
-);
-
-
-###########################################################################
-
-print "# VERY complex L sequences...\n";
-print "# Ents in the middle and at the start...\n";
-
-
-ok($x->_out(qq{=pod\n\nL<Net::Ping>\n}),
- '<Document><Para><L content-implicit="yes" to="Net::Ping" type="pod">Net::Ping</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<Net::Ping/Ping-B<E<112>ong>>\n}),
- '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-<B>pong</B>" in Net::Ping</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<Net::Ping/"Ping-B<E<112>ong>">\n}),
- '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-<B>pong</B>" in Net::Ping</L></Para></Document>'
-);
-
-ok( $x->_out(qq{=pod\n\nL</"B<Object> E<77>ethods">\n}),
- '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL</B<Object> E<77>ethods>\n}),
- '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<"B<Object> E<77>ethods">\n}),
- '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>'
-);
-
-
-
-print "# Ents in the middle and at the start...\n";
-
-ok($x->_out(qq{=pod\n\nL<E<78>et::Ping>\n}),
- '<Document><Para><L content-implicit="yes" to="Net::Ping" type="pod">Net::Ping</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<E<78>et::Ping/Ping-B<E<112>ong>>\n}),
- '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-<B>pong</B>" in Net::Ping</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<E<78>et::Ping/"Ping-B<E<112>ong>">\n}),
- '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-<B>pong</B>" in Net::Ping</L></Para></Document>'
-);
-
-ok( $x->_out(qq{=pod\n\nL</"B<E<79>bject> E<77>ethods">\n}),
- '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL</B<E<79>bject> E<77>ethods>\n}),
- '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<"B<E<79>bject> E<77>ethods">\n}),
- '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>'
-);
-
-
-print "# Ents in the middle and at the start and at the end...\n";
-
-ok($x->_out(qq{=pod\n\nL<E<78>et::PinE<103>>\n}),
- '<Document><Para><L content-implicit="yes" to="Net::Ping" type="pod">Net::Ping</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<E<78>et::PinE<103>/Ping-B<E<112>onE<103>>>\n}),
- '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-<B>pong</B>" in Net::Ping</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<E<78>et::PinE<103>/"Ping-B<E<112>onE<103>>">\n}),
- '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-<B>pong</B>" in Net::Ping</L></Para></Document>'
-);
-
-ok( $x->_out(qq{=pod\n\nL</"B<E<79>bject> E<77>ethodE<115>">\n}),
- '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL</B<E<79>bject> E<77>ethodE<115>>\n}),
- '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<"B<E<79>bject> E<77>ethodE<115>">\n}),
- '<Document><Para><L content-implicit="yes" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>'
-);
-
-
-###########################################################################
-
-print "#\n# L<url> tests...\n";
-
-ok( $x->_out(qq{=pod\n\nL<news:comp.lang.perl.misc>\n}),
- '<Document><Para><L content-implicit="yes" to="news:comp.lang.perl.misc" type="url">news:comp.lang.perl.misc</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<http://www.perl.com>\n}),
- '<Document><Para><L content-implicit="yes" to="http://www.perl.com" type="url">http://www.perl.com</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<http://www.perl.com/CPAN/authors/id/S/SB/SBURKE/>\n}),
- '<Document><Para><L content-implicit="yes" to="http://www.perl.com/CPAN/authors/id/S/SB/SBURKE/" type="url">http://www.perl.com/CPAN/authors/id/S/SB/SBURKE/</L></Para></Document>'
-);
-
-print "# L<url> tests with entities...\n";
-
-ok( $x->_out(qq{=pod\n\nL<news:compE<46>lang.perl.misc>\n}),
- '<Document><Para><L content-implicit="yes" to="news:comp.lang.perl.misc" type="url">news:comp.lang.perl.misc</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<http://wwwE<46>perl.com>\n}),
- '<Document><Para><L content-implicit="yes" to="http://www.perl.com" type="url">http://www.perl.com</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<http://wwwE<46>perl.com/CPAN/authors/id/S/SB/SBURKE/>\n}),
- '<Document><Para><L content-implicit="yes" to="http://www.perl.com/CPAN/authors/id/S/SB/SBURKE/" type="url">http://www.perl.com/CPAN/authors/id/S/SB/SBURKE/</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<http://wwwE<46>perl.com/CPAN/authors/id/S/SB/SBURKEE<47>>\n}),
- '<Document><Para><L content-implicit="yes" to="http://www.perl.com/CPAN/authors/id/S/SB/SBURKE/" type="url">http://www.perl.com/CPAN/authors/id/S/SB/SBURKE/</L></Para></Document>'
-);
-
-
-###########################################################################
-
-
-print "# L<text|stuff> tests...\n";
-
-ok($x->_out(qq{=pod\n\nL<things|crontab(5)>\n}),
- '<Document><Para><L to="crontab(5)" type="man">things</L></Para></Document>'
-);
-ok($x->_out(qq{=pod\n\nL<things|crontab(5)/ENVIRONMENT>\n}),
- '<Document><Para><L section="ENVIRONMENT" to="crontab(5)" type="man">things</L></Para></Document>'
-);
-ok($x->_out(qq{=pod\n\nL<things|crontab(5)/"ENVIRONMENT">\n}),
- '<Document><Para><L section="ENVIRONMENT" to="crontab(5)" type="man">things</L></Para></Document>'
-);
-
-ok( $x->_out(qq{=pod\n\nL<Perl Error Messages|perldiag>\n}),
- '<Document><Para><L to="perldiag" type="pod">Perl Error Messages</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<Perl\nError\nMessages|perldiag>\n}),
- '<Document><Para><L to="perldiag" type="pod">Perl Error Messages</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<Perl\nError\t Messages|perldiag>\n}),
- '<Document><Para><L to="perldiag" type="pod">Perl Error Messages</L></Para></Document>'
-);
-
-
-ok( $x->_out(qq{=pod\n\nL<SWITCH statements|perlsyn/"Basic BLOCKs and Switch Statements">\n}),
- '<Document><Para><L section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH statements</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<SWITCH statements|perlsyn/Basic BLOCKs and Switch Statements>\n}),
- '<Document><Para><L section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH statements</L></Para></Document>'
-);
-
-
-ok( $x->_out(qq{=pod\n\nL<the various attributes|/"Member Data">\n}),
- '<Document><Para><L section="Member Data" type="pod">the various attributes</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<the various attributes|/Member Data>\n}),
- '<Document><Para><L section="Member Data" type="pod">the various attributes</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<the various attributes|"Member Data">\n}),
- '<Document><Para><L section="Member Data" type="pod">the various attributes</L></Para></Document>'
-);
-
-
-print "#\n# Now some very complex L<text|stuff> tests...\n";
-
-
-ok( $x->_out(qq{=pod\n\nL<Perl B<Error E<77>essages>|perldiag>\n}),
- '<Document><Para><L to="perldiag" type="pod">Perl <B>Error Messages</B></L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<Perl\nB<Error\nE<77>essages>|perldiag>\n}),
- '<Document><Para><L to="perldiag" type="pod">Perl <B>Error Messages</B></L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<Perl\nB<Error\t E<77>essages>|perldiag>\n}),
- '<Document><Para><L to="perldiag" type="pod">Perl <B>Error Messages</B></L></Para></Document>'
-);
-
-
-ok( $x->_out(qq{=pod\n\nL<SWITCH B<E<115>tatements>|perlsyn/"Basic I<BLOCKs> and Switch StatementE<115>">\n}),
- '<Document><Para><L section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH <B>statements</B></L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<SWITCH B<E<115>tatements>|perlsyn/Basic I<BLOCKs> and Switch StatementE<115>>\n}),
- '<Document><Para><L section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH <B>statements</B></L></Para></Document>'
-);
-
-
-ok( $x->_out(qq{=pod\n\nL<the F<various> attributes|/"Member Data">\n}),
- '<Document><Para><L section="Member Data" type="pod">the <F>various</F> attributes</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<the F<various> attributes|/Member Data>\n}),
- '<Document><Para><L section="Member Data" type="pod">the <F>various</F> attributes</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<the F<various> attributes|"Member Data">\n}),
- '<Document><Para><L section="Member Data" type="pod">the <F>various</F> attributes</L></Para></Document>'
-);
-
-
-print "#\n# Now some very complex L<text|stuff> tests with variant syntax...\n";
-
-
-ok( $x->_out(qq{=pod\n\nL<< Perl B<<< Error E<77>essages >>>|perldiag >>\n}),
- '<Document><Para><L to="perldiag" type="pod">Perl <B>Error Messages</B></L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<< Perl\nB<<< Error\nE<77>essages >>>|perldiag >>\n}),
- '<Document><Para><L to="perldiag" type="pod">Perl <B>Error Messages</B></L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<< Perl\nB<<< Error\t E<77>essages >>>|perldiag >>\n}),
- '<Document><Para><L to="perldiag" type="pod">Perl <B>Error Messages</B></L></Para></Document>'
-);
-
-
-ok( $x->_out(qq{=pod\n\nL<< SWITCH B<<< E<115>tatements >>>|perlsyn/"Basic I<<<< BLOCKs >>>> and Switch StatementE<115>" >>\n}),
- '<Document><Para><L section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH <B>statements</B></L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<< SWITCH B<<< E<115>tatements >>>|perlsyn/Basic I<<<< BLOCKs >>>> and Switch StatementE<115> >>\n}),
- '<Document><Para><L section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH <B>statements</B></L></Para></Document>'
-);
-
-
-ok( $x->_out(qq{=pod\n\nL<<< the F<< various >> attributes|/"Member Data" >>>\n}),
- '<Document><Para><L section="Member Data" type="pod">the <F>various</F> attributes</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<<< the F<< various >> attributes|/Member Data >>>\n}),
- '<Document><Para><L section="Member Data" type="pod">the <F>various</F> attributes</L></Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nL<<< the F<< various >> attributes|"Member Data" >>>\n}),
- '<Document><Para><L section="Member Data" type="pod">the <F>various</F> attributes</L></Para></Document>'
-);
-
-###########################################################################
-
-print "#\n# Now some very complex L<text|stuff> tests with variant syntax and text around it...\n";
-
-
-ok( $x->_out(qq{=pod\n\nI like L<< Perl B<<< Error E<77>essages >>>|perldiag >>.\n}),
- '<Document><Para>I like <L to="perldiag" type="pod">Perl <B>Error Messages</B></L>.</Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nI like L<< Perl\nB<<< Error\nE<77>essages >>>|perldiag >>.\n}),
- '<Document><Para>I like <L to="perldiag" type="pod">Perl <B>Error Messages</B></L>.</Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nI like L<< Perl\nB<<< Error\t E<77>essages >>>|perldiag >>.\n}),
- '<Document><Para>I like <L to="perldiag" type="pod">Perl <B>Error Messages</B></L>.</Para></Document>'
-);
-
-
-ok( $x->_out(qq{=pod\n\nI like L<< SWITCH B<<< E<115>tatements >>>|perlsyn/"Basic I<<<< BLOCKs >>>> and Switch StatementE<115>" >>.\n}),
- '<Document><Para>I like <L section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH <B>statements</B></L>.</Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nI like L<< SWITCH B<<< E<115>tatements >>>|perlsyn/Basic I<<<< BLOCKs >>>> and Switch StatementE<115> >>.\n}),
- '<Document><Para>I like <L section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH <B>statements</B></L>.</Para></Document>'
-);
-
-
-ok( $x->_out(qq{=pod\n\nI like L<<< the F<< various >> attributes|/"Member Data" >>>.\n}),
- '<Document><Para>I like <L section="Member Data" type="pod">the <F>various</F> attributes</L>.</Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nI like L<<< the F<< various >> attributes|/Member Data >>>.\n}),
- '<Document><Para>I like <L section="Member Data" type="pod">the <F>various</F> attributes</L>.</Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nI like L<<< the F<< various >> attributes|"Member Data" >>>.\n}),
- '<Document><Para>I like <L section="Member Data" type="pod">the <F>various</F> attributes</L>.</Para></Document>'
-);
-
-ok( $x->_out(qq{=pod\n\nI like L<<< B<text>s|http://text.com >>>.\n}),
-'<Document><Para>I like <L to="http://text.com" type="url"><B>text</B>s</L>.</Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nI like L<<< text|https://text.com/1/2 >>>.\n}),
-'<Document><Para>I like <L to="https://text.com/1/2" type="url">text</L>.</Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nI like L<<< I<text>|http://text.com >>>.\n}),
-'<Document><Para>I like <L to="http://text.com" type="url"><I>text</I></L>.</Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nI like L<<< C<text>|http://text.com >>>.\n}),
-'<Document><Para>I like <L to="http://text.com" type="url"><C>text</C></L>.</Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nI like L<<< I<tI<eI<xI<t>>>>|mailto:earlE<64>text.com >>>.\n}),
-'<Document><Para>I like <L to="mailto:earl at text.com" type="url"><I>t<I>e<I>x<I>t</I></I></I></I></L>.</Para></Document>'
-);
-ok( $x->_out(qq{=pod\n\nI like L<<< textZ<>|http://text.com >>>.\n}),
-'<Document><Para>I like <L to="http://text.com" type="url">text</L>.</Para></Document>'
-);
-
-
-
-
-#
-# TODO: S testing.
-#
-
-###########################################################################
-
-print "# Wrapping up... one for the road...\n";
-ok 1;
-print "# --- Done with ", __FILE__, " --- \n";
-
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/fcodes_s.t b/3.8.8/sources/cpan-Pod-Simple/vendor/t/fcodes_s.t
deleted file mode 100644
index 0983388..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/fcodes_s.t
+++ /dev/null
@@ -1,464 +0,0 @@
-# fcodes S
-BEGIN {
- if($ENV{PERL_CORE}) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-use strict;
-use Test;
-BEGIN { plan tests => 80 };
-
-#use Pod::Simple::Debug (6);
-
-ok 1;
-
-use Pod::Simple::XMLOutStream;
-print "# Pod::Simple version $Pod::Simple::VERSION\n";
-my $x = 'Pod::Simple::XMLOutStream';
-sub e ($$) { $x->_duo(@_) }
-
-$Pod::Simple::XMLOutStream::ATTR_PAD = ' ';
-$Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output
-
-
-print "# S as such...\n";
-
-ok( $x->_out("=pod\n\nI like S<bric-a-brac>.\n"),
- => '<Document><Para>I like <S>bric-a-brac</S>.</Para></Document>' );
-ok( $x->_out("=pod\n\nI like S<bric-a-brac a gogo >.\n"),
- => '<Document><Para>I like <S>bric-a-brac a gogo </S>.</Para></Document>' );
-ok( $x->_out("=pod\n\nI like S<< bric-a-brac a gogo >>.\n"),
- => '<Document><Para>I like <S>bric-a-brac a gogo</S>.</Para></Document>' );
-
-my $unless_ascii = (chr(65) eq 'A') ? '' :
- "Skip because not in ASCIIland";
-
-skip( $unless_ascii,
- $x->_out( sub { $_[0]->nbsp_for_S(1) },
- "=pod\n\nI like S<bric-a-brac a gogo>.\n"),
-'<Document><Para>I like bric-a-brac a gogo.</Para></Document>'
-);
-skip( $unless_ascii,
- $x->_out( sub { $_[0]->nbsp_for_S(1) },
- qq{=pod\n\nI like S<L</"bric-a-brac a gogo">>.\n}),
-'<Document><Para>I like <L content-implicit="yes" section="bric-a-brac a gogo" type="pod">"bric-a-brac a gogo"</L>.</Para></Document>'
-);
-skip( $unless_ascii,
- $x->_out( sub { $_[0]->nbsp_for_S(1) },
- qq{=pod\n\nI like S<L<Stuff like that|/"bric-a-brac a gogo">>.\n}),
-'<Document><Para>I like <L section="bric-a-brac a gogo" type="pod">Stuff like that</L>.</Para></Document>'
-);
-skip( $unless_ascii,
- $x->_out( sub { $_[0]->nbsp_for_S(1) },
- qq{=pod\n\nI like S<L<Stuff I<like that>|/"bric-a-brac a gogo">>.\n}),
-'<Document><Para>I like <L section="bric-a-brac a gogo" type="pod">Stuff <I>like that</I></L>.</Para></Document>'
-);
-
-&ok( $x->_duo( sub { $_[0]->nbsp_for_S(1) },
- "=pod\n\nI like S<bric-a-brac a gogo>.\n",
- "=pod\n\nI like bric-a-bracE<160>aE<160>gogo.\n",
-));
-&ok(
- map {my $z = $_; $z =~ s/content-implicit="yes" //g; $z }
- $x->_duo( sub { $_[0]->nbsp_for_S(1) },
- qq{=pod\n\nI like S<L</"bric-a-brac a gogo">>.\n},
- qq{=pod\n\nI like L<"bric-a-bracE<160>aE<160>gogo"|/"bric-a-brac a gogo">.\n},
-));
-&ok( $x->_duo( sub { $_[0]->nbsp_for_S(1) },
- qq{=pod\n\nI like S<L<Stuff like that|"bric-a-brac a gogo">>.\n},
- qq{=pod\n\nI like L<StuffE<160>likeE<160>that|"bric-a-brac a gogo">.\n},
-));
-&ok(
- map {my $z = $_; $z =~ s/content-implicit="yes" //g; $z }
- $x->_duo( sub { $_[0]->nbsp_for_S(1) },
- qq{=pod\n\nI like S<L<Stuff I<like that>|"bric-a-brac a gogo">>.\n},
- qq{=pod\n\nI like L<StuffE<160>I<likeE<160>that>|"bric-a-brac a gogo">.\n},
-));
-
-use Pod::Simple::Text;
-$x = Pod::Simple::Text->new;
-$x->preserve_whitespace(1);
-# RT#25679
-ok(
- $x->_out(<<END
-=head1 The Tk::mega manpage showed me how C<< SE<lt> > foo >> is being rendered
-
-Both pod2text and pod2man S< > lose the rest of the line
-
-=head1 Do they always S< > lose the rest of the line?
-
-=cut
-END
- ),
- <<END
-The Tk::mega manpage showed me how S< > foo is being rendered
-
- Both pod2text and pod2man lose the rest of the line
-
-Do they always lose the rest of the line?
-
-END
-);
-
-$x = 'Pod::Simple::Text';
-# Test text output of links.
-ok(
- $x->_out(qq{=pod\n\nL<Net::Ping>\n}),
- " Net::Ping\n\n"
-);
-
-ok(
- $x->_out(qq{=pod\n\nBe sure to read the L<Net::Ping> docs\n}),
- " Be sure to read the Net::Ping docs\n\n"
-);
-
-ok(
- $x->_out(qq{=pod\n\nL<http://www.perl.com>\n}),
- " http://www.perl.com\n\n"
-);
-
-ok(
- $x->_out(qq{=pod\n\nL<crontab(5)>\n}),
- " crontab(5)\n\n"
-);
-
-ok(
- $x->_out(qq{=pod\n\nL<Net::Ping/Ping-pong>\n}),
- qq{ "Ping-pong" in Net::Ping\n\n}
-);
-
-ok(
- $x->_out(qq{=pod\n\nL</"Object Methods">\n}),
- qq{ "Object Methods"\n\n}
-);
-
-ok(
- $x->_out(qq{=pod\n\nL</Object Methods>\n}),
- qq{ "Object Methods"\n\n}
-);
-
-ok(
- $x->_out(qq{=pod\n\nL<"Object Methods">\n}),
- qq{ "Object Methods"\n\n}
-);
-
-ok(
- $x->_out(qq{=pod\n\nL<Net::Ping/Ping-E<112>ong>\n}),
- qq{ "Ping-pong" in Net::Ping\n\n}
-);
-
-ok(
- $x->_out(qq{=pod\n\nL<news:comp.lang.perl.misc>\n}),
- " news:comp.lang.perl.misc\n\n"
-);
-
-ok(
- $x->_out(qq{=pod\n\nL<http://www.perl.org>\n}),
- " http://www.perl.org\n\n"
-);
-
-ok(
- $x->_out(qq{=pod\n\nSee L<http://www.perl.org>\n}),
- " See http://www.perl.org\n\n"
-);
-
-ok(
- $x->_out(qq{=pod\n\nL<http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/>\n}),
- " http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/\n\n"
-);
-
-ok(
- $x->_out(qq{=pod\n\nL<news:compE<46>lang.perl.misc>\n}),
- " news:comp.lang.perl.misc\n\n"
-);
-
-ok(
- $x->_out(qq{=pod\n\nL<http://wwwE<46>perl.org>\n}),
- " http://www.perl.org\n\n"
-);
-
-ok(
- $x->_out(qq{=pod\n\nL<things|crontab(5)>\n}),
- " things\n\n"
-);
-
-ok(
- $x->_out(qq{=pod\n\nL<things|crontab(5)/ENVIRONMENT>\n}),
- " things\n\n"
-);
-
-ok(
- $x->_out(qq{=pod\n\nL<Perl Error Messages|perldiag>\n}),
- " Perl Error Messages\n\n"
-);
-
-ok(
- $x->_out(qq{=pod\n\nL<Perl\nError\nMessages|perldiag>\n}),
- " Perl Error Messages\n\n"
-);
-
-ok(
- $x->_out(qq{=pod\n\nL<Perl\nError\t Messages|perldiag>\n}),
- " Perl Error Messages\n\n"
-);
-
-ok(
- $x->_out(qq{=pod\n\nL<perl.org|http://www.perl.org>\n}),
- " perl.org <http://www.perl.org>\n\n"
-);
-
-ok(
- $x->_out(qq{=pod\n\nSee L<perl.org|http://www.perl.org>\n}),
- " See perl.org <http://www.perl.org>\n\n"
-);
-
-
-# Test HTML output of links.
-use Pod::Simple::HTML;
-my $PERLDOC = "http://search.cpan.org/perldoc";
-my $MANURL = "http://man.he.net/man";
-sub x ($) {
- Pod::Simple::HTML->_out(
- sub { $_[0]->bare_output(1) },
- "=pod\n\n$_[0]",
- )
-}
-
-ok(
- x(qq{L<Net::Ping>\n}),
- qq{\n<p><a href="$PERLDOC?Net%3A%3APing" class="podlinkpod"\n>Net::Ping</a></p>\n}
-);
-
-ok(
- x(qq{Be sure to read the L<Net::Ping> docs\n}),
- qq{\n<p>Be sure to read the <a href="$PERLDOC?Net%3A%3APing" class="podlinkpod"\n>Net::Ping</a> docs</p>\n}
-);
-
-ok(
- x(qq{L<http://www.perl.com>\n}),
- qq{\n<p><a href="http://www.perl.com" class="podlinkurl"\n>http://www.perl.com</a></p>\n}
-);
-
-ok(
- x(qq{L<crontab(5)>\n}),
- qq{\n<p><a href="${MANURL}5/crontab" class="podlinkman"\n>crontab(5)</a></p>\n}
-);
-
-ok(
- x(qq{L<Net::Ping/Ping-pong>\n}),
- qq{\n<p><a href="$PERLDOC?Net%3A%3APing#Ping-pong" class="podlinkpod"\n>"Ping-pong" in Net::Ping</a></p>\n}
-);
-
-ok(
- x(qq{L</"Object Methods">\n}),
- qq{\n<p><a href="#Object_Methods" class="podlinkpod"\n>"Object Methods"</a></p>\n}
-);
-
-ok(
- x(qq{L</Object Methods>\n}),
- qq{\n<p><a href="#Object_Methods" class="podlinkpod"\n>"Object Methods"</a></p>\n}
-);
-
-ok(
- x(qq{L<"Object Methods">\n}),
- qq{\n<p><a href="#Object_Methods" class="podlinkpod"\n>"Object Methods"</a></p>\n}
-);
-
-ok(
- x(qq{L<Net::Ping/Ping-E<112>ong>\n}),
- qq{\n<p><a href="$PERLDOC?Net%3A%3APing#Ping-pong" class="podlinkpod"\n>"Ping-pong" in Net::Ping</a></p>\n}
-);
-
-ok(
- x(qq{L<news:comp.lang.perl.misc>\n}),
- qq{\n<p><a href="news:comp.lang.perl.misc" class="podlinkurl"\n>news:comp.lang.perl.misc</a></p>\n}
-);
-
-ok(
- x(qq{L<http://www.perl.org>\n}),
- qq{\n<p><a href="http://www.perl.org" class="podlinkurl"\n>http://www.perl.org</a></p>\n}
-);
-
-ok(
- x(qq{See L<http://www.perl.org>\n}),
- qq{\n<p>See <a href="http://www.perl.org" class="podlinkurl"\n>http://www.perl.org</a></p>\n}
-);
-
-ok(
- x(qq{L<http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/>\n}),
- qq{\n<p><a href="http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/" class="podlinkurl"\n>http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/</a></p>\n}
-);
-
-ok(
- x(qq{L<news:compE<46>lang.perl.misc>\n}),
- qq{\n<p><a href="news:comp.lang.perl.misc" class="podlinkurl"\n>news:comp.lang.perl.misc</a></p>\n}
-);
-
-ok(
- x(qq{L<http://wwwE<46>perl.org>\n}),
- qq{\n<p><a href="http://www.perl.org" class="podlinkurl"\n>http://www.perl.org</a></p>\n}
-);
-
-ok(
- x(qq{L<things|crontab(5)>\n}),
- qq{\n<p><a href="${MANURL}5/crontab" class="podlinkman"\n>things</a></p>\n}
-);
-
-ok(
- x(qq{L<things|crontab(5)/ENVIRONMENT>\n}),
- qq{\n<p><a href="${MANURL}5/crontab" class="podlinkman"\n>things</a></p>\n}
-);
-
-ok(
- x(qq{L<Perl Error Messages|perldiag>\n}),
- qq{\n<p><a href="$PERLDOC?perldiag" class="podlinkpod"\n>Perl Error Messages</a></p>\n}
-);
-
-ok(
- x(qq{L<Perl\nError\nMessages|perldiag>\n}),
- qq{\n<p><a href="$PERLDOC?perldiag" class="podlinkpod"\n>Perl Error Messages</a></p>\n}
-);
-
-ok(
- x(qq{L<Perl\nError\t Messages|perldiag>\n}),
- qq{\n<p><a href="$PERLDOC?perldiag" class="podlinkpod"\n>Perl Error Messages</a></p>\n}
-);
-
-ok(
- x(qq{L<perl.org|http://www.perl.org>\n}),
- qq{\n<p><a href="http://www.perl.org" class="podlinkurl"\n>perl.org</a></p>\n}
-);
-
-ok(
- x(qq{See L<perl.org|http://www.perl.org>\n}),
- qq{\n<p>See <a href="http://www.perl.org" class="podlinkurl"\n>perl.org</a></p>\n}
-);
-
-# Test link output in XHTML.
-use Pod::Simple::XHTML;
-sub o ($) {
- my $p = Pod::Simple::XHTML->new;
- $p->html_header("");
- $p->html_footer("");
- my $results = '';
- $p->output_string( \$results ); # Send the resulting output to a string
- $p->parse_string_document("=pod\n\n$_[0]");
- return $results;
-}
-
-ok(
- o(qq{L<Net::Ping>}),
- qq{<p><a href="$PERLDOC?Net::Ping">Net::Ping</a></p>\n\n}
-);
-
-ok(
- o(qq{Be sure to read the L<Net::Ping> docs}),
- qq{<p>Be sure to read the <a href="$PERLDOC?Net::Ping">Net::Ping</a> docs</p>\n\n}
-);
-
-ok(
- o(qq{L<http://www.perl.com>}),
- qq{<p><a href="http://www.perl.com">http://www.perl.com</a></p>\n\n}
-);
-
-ok(
- o(qq{L<crontab(5)>}),
- qq{<p><a href="${MANURL}5/crontab">crontab(5)</a></p>\n\n}
-);
-
-ok(
- o(qq{L<Net::Ping/Ping-pong>}),
- qq{<p><a href="$PERLDOC?Net::Ping#Ping-pong">"Ping-pong" in Net::Ping</a></p>\n\n}
-);
-
-ok(
- o(qq{L</"Object Methods">}),
- qq{<p><a href="#Object-Methods">"Object Methods"</a></p>\n\n}
-);
-
-ok(
- o(qq{L</Object Methods>}),
- qq{<p><a href="#Object-Methods">"Object Methods"</a></p>\n\n}
-);
-
-ok(
- o(qq{L<"Object Methods">}),
- qq{<p><a href="#Object-Methods">"Object Methods"</a></p>\n\n}
-);
-
-ok(
- o(qq{L<Net::Ping/Ping-E<112>ong>}),
- qq{<p><a href="$PERLDOC?Net::Ping#Ping-pong">"Ping-pong" in Net::Ping</a></p>\n\n}
-);
-
-ok(
- o(qq{L<news:comp.lang.perl.misc>}),
- qq{<p><a href="news:comp.lang.perl.misc">news:comp.lang.perl.misc</a></p>\n\n}
-);
-
-ok(
- o(qq{L<http://www.perl.org>}),
- qq{<p><a href="http://www.perl.org">http://www.perl.org</a></p>\n\n}
-);
-
-ok(
- o(qq{See L<http://www.perl.org>}),
- qq{<p>See <a href="http://www.perl.org">http://www.perl.org</a></p>\n\n}
-);
-
-ok(
- o(qq{L<http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/>}),
- qq{<p><a href="http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/">http://www.perl.org/CPAN/authors/id/S/SB/SBURKE/</a></p>\n\n}
-);
-
-ok(
- o(qq{L<news:compE<46>lang.perl.misc>}),
- qq{<p><a href="news:comp.lang.perl.misc">news:comp.lang.perl.misc</a></p>\n\n}
-);
-
-ok(
- o(qq{L<http://wwwE<46>perl.org>}),
- qq{<p><a href="http://www.perl.org">http://www.perl.org</a></p>\n\n}
-);
-
-ok(
- o(qq{L<things|crontab(5)>}),
- qq{<p><a href="${MANURL}5/crontab">things</a></p>\n\n}
-);
-
-ok(
- o(qq{L<things|crontab(5)/ENVIRONMENT>}),
- qq{<p><a href="${MANURL}5/crontab">things</a></p>\n\n}
-);
-
-ok(
- o(qq{L<Perl Error Messages|perldiag>}),
- qq{<p><a href="$PERLDOC?perldiag">Perl Error Messages</a></p>\n\n}
-);
-
-ok(
- o(qq{L<Perl\nError\nMessages|perldiag>}),
- qq{<p><a href="$PERLDOC?perldiag">Perl Error Messages</a></p>\n\n}
-);
-
-ok(
- o(qq{L<Perl\nError\t Messages|perldiag>}),
- qq{<p><a href="$PERLDOC?perldiag">Perl Error Messages</a></p>\n\n}
-);
-
-ok(
- o(qq{L<perl.org|http://www.perl.org>}),
- qq{<p><a href="http://www.perl.org">perl.org</a></p>\n\n}
-);
-
-ok(
- o(qq{See L<perl.org|http://www.perl.org>}),
- qq{<p>See <a href="http://www.perl.org">perl.org</a></p>\n\n}
-);
-
-print "# Wrapping up... one for the road...\n";
-ok 1;
-print "# --- Done with ", __FILE__, " --- \n";
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/heads.t b/3.8.8/sources/cpan-Pod-Simple/vendor/t/heads.t
deleted file mode 100644
index bd04ce3..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/heads.t
+++ /dev/null
@@ -1,92 +0,0 @@
-BEGIN {
- if($ENV{PERL_CORE}) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-use strict;
-use Test;
-BEGIN { plan tests => 19 };
-
-#use Pod::Simple::Debug (6);
-
-ok 1;
-
-use Pod::Simple::DumpAsXML;
-use Pod::Simple::XMLOutStream;
-print "# Pod::Simple version $Pod::Simple::VERSION\n";
-sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
-
-
-print "# Simple tests for head1 - head4...\n";
-ok( Pod::Simple::XMLOutStream->_out("\n=head1 Chacha\n\n"),
- '<Document><head1>Chacha</head1></Document>'
-);
-ok( Pod::Simple::XMLOutStream->_out("\n=head2 Chacha\n\n"),
- '<Document><head2>Chacha</head2></Document>'
-);
-ok( Pod::Simple::XMLOutStream->_out("\n=head3 Chacha\n\n"),
- '<Document><head3>Chacha</head3></Document>'
-);
-ok( Pod::Simple::XMLOutStream->_out("\n=head4 Chacha\n\n"),
- '<Document><head4>Chacha</head4></Document>'
-);
-
-print "# Testing whitespace equivalence...\n";
-
-&ok(e "\n=head1 Chacha\n\n", "\n=head1 Chacha\n\n");
-&ok(e "\n=head1 Chacha\n\n", "\n=head1\tChacha\n\n");
-&ok(e "\n=head1 Chacha\n\n", "\n=head1\tChacha \n\n");
-
-
-
-ok( Pod::Simple::XMLOutStream->_out("=head1 Chachacha"),
- '<Document><head1>Chachacha</head1></Document>'
-);
-
-
-print "# Testing whitespace variance ...\n";
-ok( Pod::Simple::XMLOutStream->_out("=head1 Cha cha cha \n"),
- '<Document><head1>Cha cha cha</head1></Document>'
-);
-ok( Pod::Simple::XMLOutStream->_out("=head1 Cha cha\tcha \n"),
- '<Document><head1>Cha cha cha</head1></Document>'
-);
-
-
-
-
-print "# Testing head2, head3, head4 more...\n";
-
-ok( Pod::Simple::XMLOutStream->_out("=head2 Cha cha\tcha \n"),
- '<Document><head2>Cha cha cha</head2></Document>'
-);
-ok( Pod::Simple::XMLOutStream->_out("=head3 Cha cha\tcha \n"),
- '<Document><head3>Cha cha cha</head3></Document>'
-);
-ok( Pod::Simple::XMLOutStream->_out("=head4 Cha cha\tcha \n"),
- '<Document><head4>Cha cha cha</head4></Document>'
-);
-
-print "# Testing entity expansion...\n";
-
-ok( Pod::Simple::XMLOutStream->_out("=head4 fooE<64>bar!\n"),
- Pod::Simple::XMLOutStream->_out("\n=head4 foo\@bar!\n\n"),
-);
-
-# TODO: a mode so that DumpAsXML can ask for all contiguous string
-# sequences to be fused?
-# &ok( e "=head4 fooE<64>bar!\n", "\n=head4 foo\@bar!\n\n");
-
-print "# Testing formatting sequences...\n";
-
-# True only if the sequences resolve, as they should...
-&ok( e "=head4 C<foobar!>\n", "\n=head4 C<< foobar! >>\n\n");
-&ok( e "=head4 C<foobar!>\n", "\n\n=head4 C<<< foobar! >>>\n");
-&ok( e "=head4 C<foobar!>\n", "\n=head4 C<< foobar!\n\t>>\n\n");
-
-print "# Wrapping up... one for the road...\n";
-ok 1;
-print "# --- Done with ", __FILE__, " --- \n";
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/html01.t b/3.8.8/sources/cpan-Pod-Simple/vendor/t/html01.t
deleted file mode 100644
index 9616370..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/html01.t
+++ /dev/null
@@ -1,118 +0,0 @@
-# Testing HTML paragraphs
-
-BEGIN {
- if($ENV{PERL_CORE}) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-use strict;
-use Test;
-BEGIN { plan tests => 11 };
-
-#use Pod::Simple::Debug (10);
-
-use Pod::Simple::HTML;
-
-sub x ($;&) {
- my $code = $_[1];
- Pod::Simple::HTML->_out(
- sub{ $_[0]->bare_output(1); $code->($_[0]) if $code },
- "=pod\n\n$_[0]",
-) }
-
-ok( x(
-q{
-=pod
-
-This is a paragraph
-
-=cut
-}),
- qq{\n<p>This is a paragraph</p>\n},
- "paragraph building"
-);
-
-
-ok( x(qq{=pod\n\nThis is a paragraph}),
- qq{\n<p>This is a paragraph</p>\n},
- "paragraph building"
-);
-
-
-ok( x(qq{This is a paragraph}),
- qq{\n<p>This is a paragraph</p>\n},
- "paragraph building"
-);
-
-
-
-ok(x(
-'=head1 This is a heading')
- => q{/\s*<h1><a[^<>]+>This\s+is\s+a\s+heading</a></h1>\s*$/},
- "heading building"
-);
-
-ok(x('=head1 This is a heading', sub { $_[0]->html_h_level(2) })
- => q{/\s*<h2><a[^<>]+>This\s+is\s+a\s+heading</a></h2>\s*$/},
- "heading building"
-);
-
-ok(x(
-'=head2 This is a heading too')
- => q{/\s*<h2><a[^<>]+>This\s+is\s+a\s+heading\s+too</a></h2>\s*$/},
- "heading building"
-);
-
-ok(x(
-'=head3 Also, this is a heading')
- => q{/\s*<h3><a[^<>]+>Also,\s+this\s+is\s+a\s+heading</a></h3>\s*$/},
- "heading building"
-);
-
-
-ok(x(
-'=head4 This, too, is a heading')
- => q{/\s*<h4><a[^<>]+>This,\s+too,\s+is\s+a\s+heading</a></h4>\s*$/},
- "heading building"
-);
-
-ok(
- x("=over 4\n\n=item one\n\n=item two\n\nHello\n\n=back\n"),
- q{
-<dl>
-<dt><a name="one"
->one</a></dt>
-
-<dd>
-<dt><a name="two"
->two</a></dt>
-
-<dd>
-<p>Hello</p>
-</dd>
-</dl>
-}
-);
-
-# Check subclass.
-SUBCLASS: {
- package My::Pod::HTML;
- use vars '@ISA', '$VERSION';
- @ISA = ('Pod::Simple::HTML');
- $VERSION = '0.01';
- sub do_section { 'howdy' }
-}
-
-ok(
- My::Pod::HTML->_out(
- sub{ $_[0]->bare_output(1) },
- "=pod\n\n=over\n\n=item Foo\n\n",
- ),
- "\n<dl>\n<dt><a name=\"howdy\"\n>Foo</a></dt>\n</dl>\n",
-);
-
-print "# And one for the road...\n";
-ok 1;
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/html02.t b/3.8.8/sources/cpan-Pod-Simple/vendor/t/html02.t
deleted file mode 100644
index 02349f3..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/html02.t
+++ /dev/null
@@ -1,40 +0,0 @@
-# Testing HTML text styles
-
-BEGIN {
- if($ENV{PERL_CORE}) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-#use Pod::Simple::Debug (10);
-
-use strict;
-use Test;
-BEGIN { plan tests => 7};
-use Pod::Simple::HTML;
-
-sub x ($) { Pod::Simple::HTML->_out(
- sub{ $_[0]->bare_output(1) },
- "=pod\n\n$_[0]",
-) }
-
-ok 1;
-
-my @pairs = (
-[ "I<italicized>" => qq{\n<p><i>italicized</i></p>\n} ],
-[ 'B<bolded>' => qq{\n<p><b>bolded</b></p>\n} ],
-[ 'C<code>' => qq{\n<p><code>code</code></p>\n} ],
-[ 'F</tmp/foo>' => qq{\n<p><em>/tmp/foo</em></p>\n} ],
-[ 'F</tmp/foo>' => qq{\n<p><em>/tmp/foo</em></p>\n} ],
-);
-
-
-foreach( @pairs ) {
- print "# Testing pod source $$_[0] ...\n" unless $_->[0] =~ m/\n/;
- ok( x($_->[0]), $_->[1] )
-}
-print "# And one for the road...\n";
-ok 1;
-
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/items.t b/3.8.8/sources/cpan-Pod-Simple/vendor/t/items.t
deleted file mode 100644
index dcb695f..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/items.t
+++ /dev/null
@@ -1,226 +0,0 @@
-BEGIN {
- if($ENV{PERL_CORE}) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-use strict;
-use Test;
-BEGIN { plan tests => 24 };
-
-my $d;
-#use Pod::Simple::Debug (\$d,0);
-
-ok 1;
-
-use Pod::Simple::DumpAsXML;
-use Pod::Simple::XMLOutStream;
-print "# Pod::Simple version $Pod::Simple::VERSION\n";
-sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
-
-my $x = 'Pod::Simple::XMLOutStream';
-
-print "##### Tests for =item directives via class $x\n";
-
-$Pod::Simple::XMLOutStream::ATTR_PAD = ' ';
-$Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output
-
-
-print "#\n# Tests for simple =item *'s\n";
-ok( $x->_out("\n=over\n\n=item *\n\nStuff\n\n=item *\n\nBar I<baz>!\n\n=back\n\n"),
- '<Document><over-bullet indent="4"><item-bullet>Stuff</item-bullet><item-bullet>Bar <I>baz</I>!</item-bullet></over-bullet></Document>'
-);
-ok( $x->_out("\n=over\n\n=item *\n\nStuff\n\n=cut\n\nStuff\n\n=item *\n\nBar I<baz>!\n\n=back\n\n"),
- '<Document><over-bullet indent="4"><item-bullet>Stuff</item-bullet><item-bullet>Bar <I>baz</I>!</item-bullet></over-bullet></Document>'
-);
-ok( $x->_out("\n=over 10\n\n=item *\n\nStuff\n\n=cut\n\nStuff\n\n=item *\n\nBar I<baz>!\n\n=back\n\n"),
- '<Document><over-bullet indent="10"><item-bullet>Stuff</item-bullet><item-bullet>Bar <I>baz</I>!</item-bullet></over-bullet></Document>'
-);
-ok( $x->_out("\n=over\n\n=item *\n\nStuff\n=cut\nStuff\n\n=item *\n\nBar I<baz>!\n\n=back"),
- '<Document><over-bullet indent="4"><item-bullet>Stuff</item-bullet><item-bullet>Bar <I>baz</I>!</item-bullet></over-bullet></Document>'
-);
-
-
-
-
-print "#\n# Tests for simple =item 1.'s\n";
-ok( $x->_out("\n=over\n\n=item 1.\n\nStuff\n\n=item 2.\n\nBar I<baz>!\n\n=back\n\n"),
- '<Document><over-number indent="4"><item-number number="1">Stuff</item-number><item-number number="2">Bar <I>baz</I>!</item-number></over-number></Document>'
-);
-ok( $x->_out("\n=over\n\n=item 1.\n\nStuff\n\n=cut\n\nStuff\n\n=item 2.\n\nBar I<baz>!\n\n=back\n\n"),
- '<Document><over-number indent="4"><item-number number="1">Stuff</item-number><item-number number="2">Bar <I>baz</I>!</item-number></over-number></Document>'
-);
-# Now without a dot
-ok( $x->_out("\n=over\n\n=item 1\n\nStuff\n\n=cut\n\nStuff\n\n=item 2\n\nBar I<baz>!\n\n=back\n\n"),
- '<Document><over-number indent="4"><item-number number="1">Stuff</item-number><item-number number="2">Bar <I>baz</I>!</item-number></over-number></Document>'
-);
-ok( $x->_out("\n=over\n\n=item 1\n\nStuff\n=cut\nStuff\n\n=item 2\n\nBar I<baz>!\n\n=back"),
- '<Document><over-number indent="4"><item-number number="1">Stuff</item-number><item-number number="2">Bar <I>baz</I>!</item-number></over-number></Document>'
-);
-
-
-
-print "#\n# Tests for =over blocks (without =items)\n";
-ok( $x->_out("\n=over\n\nStuff\n\nBar I<baz>!\n\n=back\n\n"),
- '<Document><over-block indent="4"><Para>Stuff</Para><Para>Bar <I>baz</I>!</Para></over-block></Document>'
-);
-ok( $x->_out("\n=over\n\n Stuff\n\nBar I<baz>!\n\n=back\n\n"),
- '<Document><over-block indent="4"><Verbatim xml:space="preserve"> Stuff</Verbatim><Para>Bar <I>baz</I>!</Para></over-block></Document>'
-);
-ok( $x->_out("\n=over\n\nBar I<baz>!\n\n Stuff\n\n=back\n\n"),
- '<Document><over-block indent="4"><Para>Bar <I>baz</I>!</Para><Verbatim xml:space="preserve"> Stuff</Verbatim></over-block></Document>'
-);
-
-
-
-
-print "#\n# Tests for =item Text blocks...\n";
-ok( $x->_out("\n=over\n\n=item Foo\n\nStuff\n\n=cut\n\nCrunk\nZorp\n\n=item Bar I<baz>!\n\nQuux\n\n=back\n\n"),
- '<Document><over-text indent="4"><item-text>Foo</item-text><Para>Stuff</Para><item-text>Bar <I>baz</I>!</item-text><Para>Quux</Para></over-text></Document>'
-);
-ok( $x->_out("\n=over\n\n=item Foo\n\n Stuff\n\tSnork\n\n=cut\n\nCrunk\nZorp\n\n=item Bar I<baz>!\n\nQuux\n\n=back\n\n"),
- qq{<Document><over-text indent="4"><item-text>Foo</item-text><Verbatim xml:space="preserve"> Stuff\n Snork</Verbatim>}
- . qq{<item-text>Bar <I>baz</I>!</item-text><Para>Quux</Para></over-text></Document>}
-);
-ok( $x->_out("\n=over\n\n=item Foo\n\n Stuff\n\tSnork\n=cut\n\nCrunk\nZorp\n\n=item Bar I<baz>!\n\nQuux\n\n=back\n\n"),
- qq{<Document><over-text indent="4"><item-text>Foo</item-text><Verbatim xml:space="preserve"> Stuff\n Snork</Verbatim>}
- . qq{<item-text>Bar <I>baz</I>!</item-text><Para>Quux</Para></over-text></Document>}
-);
-
-
-
-print "#\n# Test for mixed =item blocks...\n";
-ok( $x->_out("\n=over\n\n=item Foo\n\nStuff\n\n=item 2.\n\nBar I<baz>!\n\nQuux\n\n=item *\n\nThwoong\n\n=back\n\n"),
- qq{<Document><over-text indent="4"><item-text>Foo</item-text><Para>Stuff</Para>}
- . qq{<item-text>2.</item-text><Para>Bar <I>baz</I>!</Para><Para>Quux</Para>}
- . qq{<item-text>*</item-text><Para>Thwoong</Para></over-text></Document>}
-);
-
-# ok( $x->_out("\n=over\n\n=item *\n\nStuff\n\n=item 2.\n\nBar I<baz>!\n\nQuux\n\n=item *\n\nThwoong\n\n=back\n\n"),
-# ok( $x->_out("\n=over\n\n=item 1.\n\nStuff\n\n=item 2.\n\nBar I<baz>!\n\nQuux\n\n=item *\n\nThwoong\n\n=back\n\n"),
-
-print "#\n# Tests for indenting\n";
-ok( $x->_out("\n=over 19\n\n=item *\n\nStuff\n\n=item *\n\nBar I<baz>!\n\n=back\n\n"),
- '<Document><over-bullet indent="19"><item-bullet>Stuff</item-bullet><item-bullet>Bar <I>baz</I>!</item-bullet></over-bullet></Document>'
-);
-ok( $x->_out("\n=over 19\n\n=item 1.\n\nStuff\n\n=item 2.\n\nBar I<baz>!\n\n=back\n\n"),
- '<Document><over-number indent="19"><item-number number="1">Stuff</item-number><item-number number="2">Bar <I>baz</I>!</item-number></over-number></Document>'
-);
-ok( $x->_out("\n=over 19\n\nStuff\n\nBar I<baz>!\n\n=back\n\n"),
- '<Document><over-block indent="19"><Para>Stuff</Para><Para>Bar <I>baz</I>!</Para></over-block></Document>'
-);
-ok( $x->_out("\n=over 19\n\n=item Foo\n\nStuff\n\n=cut\n\nCrunk\nZorp\n\n=item Bar I<baz>!\n\nQuux\n\n=back\n\n"),
- '<Document><over-text indent="19"><item-text>Foo</item-text><Para>Stuff</Para><item-text>Bar <I>baz</I>!</item-text><Para>Quux</Para></over-text></Document>'
-);
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-print "# Now testing nesting...\n";
-ok( $x->_out(join "\n\n", '',
- '=over',
- '=item *',
- 'Stuff',
- '=cut',
- 'Stuff',
- '=over',
- '=item 1.',
- '=item 2.',
- 'Bar I<baz>!',
- '=back',
- '=item *',
- 'Bar I<baz>!',
- '=back', ''
- ), join '',
- '<Document>',
- '<over-bullet indent="4">',
- '<item-bullet>Stuff</item-bullet>',
- '<over-number indent="4">',
- '<item-number number="1"></item-number>',
- '<item-number number="2">Bar <I>baz</I>!</item-number>',
- '</over-number>',
- '<item-bullet>Bar <I>baz</I>!</item-bullet>',
- '</over-bullet></Document>'
-);
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-ok( $x->_out( join "\n\n", '', '',
- '=over',
- '=item *',
- 'Stuff',
- '=cut',
- 'Stuff',
- '=over',
- '=item 1.',
- '=over 19',
- 'Gleiven',
- 'Squim F<.thingrc>!',
- '=back',
- '=item 2.',
- 'Bar I<baz>!',
- '=back',
- '=item *',
- 'Bar I<baz>!',
- '=back',
- '', ''
- ), join '',
- '<Document>',
- '<over-bullet indent="4">',
- '<item-bullet>Stuff</item-bullet>',
- '<over-number indent="4">',
- '<item-number number="1"></item-number>',
-
- '<over-block indent="19">',
- '<Para>Gleiven</Para>',
- '<Para>Squim <F>.thingrc</F>!</Para>',
- '</over-block>',
-
- '<item-number number="2">Bar <I>baz</I>!</item-number>',
- '</over-number>',
- '<item-bullet>Bar <I>baz</I>!</item-bullet>',
- '</over-bullet></Document>'
-);
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-$d = 11;
-print "# Now checking that document-end closes things right...\n";
-
-ok( $x->_out( join "\n\n", '', '',
- '=over',
- '=item *',
- 'Stuff',
- '=cut',
- 'Stuff',
- '=over',
- '=item 1.',
- '=over 19',
- 'Gleiven',
- 'Squim F<.thingrc>!',
- '', ''
- ), join '',
- '<Document>',
- '<over-bullet indent="4">',
- '<item-bullet>Stuff</item-bullet>',
- '<over-number indent="4">',
- '<item-number number="1"></item-number>',
-
- '<over-block indent="19">',
- '<Para>Gleiven</Para>',
- '<Para>Squim <F>.thingrc</F>!</Para>',
- '</over-block>',
- '</over-number>',
- '</over-bullet></Document>'
-);
-
-
-
-# TODO: more checking of coercion in nesting?
-
-
-
-print "# Wrapping up... one for the road...\n";
-ok 1;
-print "# --- Done with ", __FILE__, " --- \n";
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/items02.t b/3.8.8/sources/cpan-Pod-Simple/vendor/t/items02.t
deleted file mode 100644
index d604baa..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/items02.t
+++ /dev/null
@@ -1,44 +0,0 @@
-# Testing the =item directive
-BEGIN {
- if($ENV{PERL_CORE}) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-use strict;
-use Test;
-BEGIN { plan tests => 4 };
-
-my $d;
-#use Pod::Simple::Debug (\$d,0);
-
-ok 1;
-
-use Pod::Simple::DumpAsXML;
-use Pod::Simple::XMLOutStream;
-print "# Pod::Simple version $Pod::Simple::VERSION\n";
-sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
-
-my $x = 'Pod::Simple::XMLOutStream';
-
-print "##### Tests for =item directives via class $x\n";
-
-$Pod::Simple::XMLOutStream::ATTR_PAD = ' ';
-$Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output
-
-
-print "#\n# Tests for =item [number] that are icky...\n";
-ok( $x->_out("\n=over\n\n=item 5\n\nStuff\n\n=cut\n\nCrunk\nZorp\n\n=item 4\n\nQuux\n\n=back\n\n"),
- '<Document><over-text indent="4"><item-text>5</item-text><Para>Stuff</Para><item-text>4</item-text><Para>Quux</Para></over-text></Document>'
-);
-
-ok( $x->_out("\n=over\n\n=item 5.\n\nStuff\n\n=cut\n\nCrunk\nZorp\n\n=item 4.\n\nQuux\n\n=back\n\n"),
- '<Document><over-text indent="4"><item-text>5.</item-text><Para>Stuff</Para><item-text>4.</item-text><Para>Quux</Para></over-text></Document>'
-);
-
-
-print "# Wrapping up... one for the road...\n";
-ok 1;
-print "# --- Done with ", __FILE__, " --- \n";
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/itemstar.t b/3.8.8/sources/cpan-Pod-Simple/vendor/t/itemstar.t
deleted file mode 100644
index 4e6ac41..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/itemstar.t
+++ /dev/null
@@ -1,51 +0,0 @@
-BEGIN {
- if($ENV{PERL_CORE}) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-use strict;
-use Test;
-BEGIN { plan tests => 6 };
-
-#my $d;
-#use Pod::Simple::Debug (3);
-
-ok 1;
-
-use Pod::Simple::DumpAsXML;
-use Pod::Simple::XMLOutStream;
-print "# Pod::Simple version $Pod::Simple::VERSION\n";
-sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
-
-my $x = 'Pod::Simple::XMLOutStream';
-
-print "##### Tests for '=item * Foo' tolerance via class $x\n";
-
-$Pod::Simple::XMLOutStream::ATTR_PAD = ' ';
-$Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output
-
-
-print "#\n# Tests for simple =item *'s\n";
-ok( $x->_out("\n=over\n\n=item * Stuff\n\n=item * Bar I<baz>!\n\n=back\n\n"),
- '<Document><over-bullet indent="4"><item-bullet>Stuff</item-bullet><item-bullet>Bar <I>baz</I>!</item-bullet></over-bullet></Document>'
-);
-ok( $x->_out("\n=over\n\n=item * Stuff\n\n=cut\n\nStuff\n\n=item *\n\nBar I<baz>!\n\n=back\n\n"),
- '<Document><over-bullet indent="4"><item-bullet>Stuff</item-bullet><item-bullet>Bar <I>baz</I>!</item-bullet></over-bullet></Document>'
-);
-ok( $x->_out("\n=over 10\n\n=item * Stuff\n\n=cut\n\nStuff\n\n=item *\n\nBar I<baz>!\n\n=back\n\n"),
- '<Document><over-bullet indent="10"><item-bullet>Stuff</item-bullet><item-bullet>Bar <I>baz</I>!</item-bullet></over-bullet></Document>'
-);
-ok( $x->_out("\n=over\n\n=item * Stuff I<things\num> hoo!\n=cut\nStuff\n\n=item *\n\nBar I<baz>!\n\n=back"),
- '<Document><over-bullet indent="4"><item-bullet>Stuff <I>things um</I> hoo!</item-bullet><item-bullet>Bar <I>baz</I>!</item-bullet></over-bullet></Document>'
-);
-
-
-
-
-print "# Wrapping up... one for the road...\n";
-ok 1;
-print "# --- Done with ", __FILE__, " --- \n";
-
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/junk1.pod b/3.8.8/sources/cpan-Pod-Simple/vendor/t/junk1.pod
deleted file mode 100644
index 4028801..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/junk1.pod
+++ /dev/null
@@ -1,8 +0,0 @@
-
-=cut
-
-=head9 I like pie
-
-B<pie is nice
-
-E<puppies>
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/junk2o.txt b/3.8.8/sources/cpan-Pod-Simple/vendor/t/junk2o.txt
deleted file mode 100644
index 5612c7d..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/junk2o.txt
+++ /dev/null
@@ -1,13 +0,0 @@
-pie is nice
-
-E<puppies>
-
-POD ERRORS
-Hey! The above document had some coding errors, which are explained below:
-Around line 2:
- Unknown directive: =head9
-Around line 4:
- Unterminated B<...> sequence
-Around line 6:
- Unknown E content in E<puppies>
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/linkclas.t b/3.8.8/sources/cpan-Pod-Simple/vendor/t/linkclas.t
deleted file mode 100644
index 50fbfcc..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/linkclas.t
+++ /dev/null
@@ -1,71 +0,0 @@
-# Testing the LinkSection class
-BEGIN {
- if($ENV{PERL_CORE}) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-### Test the basic sanity of the link-section treelet class
-
-use strict;
-use Test;
-BEGIN { plan tests => 8 };
-
-#use Pod::Simple::Debug (6);
-
-ok 1;
-
-use Pod::Simple::LinkSection;
-use Pod::Simple::BlackBox; # for its pretty()
-
-my $bare_treelet =
- ['B', {'pie' => 'no'},
- 'a',
- ['C', {'bzrok' => 'plip'},
- 'b'
- ],
- 'c'
- ]
-;
-my $treelet = Pod::Simple::LinkSection->new($bare_treelet);
-
-# Make sure they're not the same
-
-ok ref($bare_treelet), 'ARRAY';
-ok ref($treelet), 'Pod::Simple::LinkSection';
-
-print "# Testing stringification...\n";
-
-ok $treelet->stringify, 'abc'; # explicit
-ok join('', $treelet), 'abc'; # implicit
-
-
-print "# Testing non-coreferentiality...\n";
-{
- my @stack = ($bare_treelet);
- my $this;
- while(@stack) {
- $this = shift @stack;
- if(ref($this || '') eq 'ARRAY') {
- push @stack, splice @$this;
- push @$this, ("BAD!") x 3;
- } elsif(ref($this || '') eq 'Pod::Simple::LinkSection') {
- push @stack, splice @$this;
- push @$this, ("BAD!") x 3;
- } elsif(ref($this || '') eq 'HASH') {
- %$this = ();
- }
- }
- # These will fail if $treelet and $bare_treelet are coreferential,
- # since we just conspicuously nuked $bare_treelet
-
- ok $treelet->stringify, 'abc'; # explicit
- ok join('', $treelet), 'abc'; # implicit
-}
-
-
-print "# Byebye...\n";
-ok 1;
-print "# --- Done with ", __FILE__, " --- \n";
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/perlfaq.pod b/3.8.8/sources/cpan-Pod-Simple/vendor/t/perlfaq.pod
deleted file mode 100644
index 49cae1a..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/perlfaq.pod
+++ /dev/null
@@ -1,814 +0,0 @@
-=head1 NAME
-
-perlfaq3 - Programming Tools ($Revision: 1.38 $, $Date: 1999/05/23 16:08:30 $)
-
-=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 man pages? Here's a brief index:
-
- Basics perldata, perlvar, perlsyn, perlop, perlsub
- Execution perlrun, perldebug
- Functions perlfunc
- Objects perlref, perlmod, perlobj, perltie
- Data Structures perlref, perllol, perldsc
- Modules perlmod, perlmodlib, perlsub
- Regexes perlre, perlfunc, perlop, perllocale
- Moving to perl5 perltrap, perl
- Linking w/C perlxstut, perlxs, perlcall, perlguts, perlembed
- Various http://www.perl.com/CPAN/doc/FMTEYEWTK/index.html
- (not a man-page but still useful)
-
-A crude table of contents for the Perl man page set is found in L<perltoc>.
-
-=head2 How can I use Perl interactively?
-
-The typical approach uses the Perl debugger, described in the
-perldebug(1) man page, 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.
-
-=head2 Is there a Perl shell?
-
-In general, no. The Shell.pm module (distributed with Perl) makes
-Perl try commands which aren't part of the Perl language as shell
-commands. perlsh from the source distribution is simplistic and
-uninteresting, but may still be what you want.
-
-=head2 How do I debug my Perl programs?
-
-Have you tried C<use warnings> or used C<-w>? They enable warnings
-to detect dubious practices.
-
-Have you tried C<use strict>? It prevents you from using symbolic
-references, makes you predeclare any subroutines that you call as bare
-words, and (probably most importantly) forces you to predeclare your
-variables with C<my>, C<our>, or C<use vars>.
-
-Did you check the return values of each and every system call? The operating
-system (and thus Perl) tells you whether they worked, and if not
-why.
-
- open(FH, "> /etc/cantwrite")
- or die "Couldn't write to /etc/cantwrite: $!\n";
-
-Did you read L<perltrap>? It's full of gotchas for old and new Perl
-programmers and even has sections for those of you who are upgrading
-from languages like I<awk> and I<C>.
-
-Have you tried the Perl debugger, described in L<perldebug>? You can
-step through your program and see what it's doing and thus work out
-why what it's doing isn't what it should be doing.
-
-=head2 How do I profile my Perl programs?
-
-You should get the Devel::DProf module from the standard distribution
-(or separately on CPAN) and also use Benchmark.pm from the standard
-distribution. The Benchmark module lets you time specific portions of
-your code, while Devel::DProf gives detailed breakdowns of where your
-code spends its time.
-
-Here's a sample use of Benchmark:
-
- use Benchmark;
-
- @junk = `cat /etc/motd`;
- $count = 10_000;
-
- timethese($count, {
- 'map' => sub { my @a = @junk;
- map { s/a/b/ } @a;
- return @a
- },
- 'for' => sub { my @a = @junk;
- local $_;
- for (@a) { s/a/b/ };
- return @a },
- });
-
-This is what it prints (on one machine--your results will be dependent
-on your hardware, operating system, and the load on your machine):
-
- Benchmark: timing 10000 iterations of for, map...
- for: 4 secs ( 3.97 usr 0.01 sys = 3.98 cpu)
- map: 6 secs ( 4.97 usr 0.00 sys = 4.97 cpu)
-
-Be aware that a good benchmark is very hard to write. It only tests the
-data you give it and proves little about the differing complexities
-of contrasting algorithms.
-
-=head2 How do I cross-reference my Perl programs?
-
-The B::Xref module, shipped with the new, alpha-release Perl compiler
-(not the general distribution prior to the 5.005 release), 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?
-
-There is no program that will reformat Perl as much as indent(1) does
-for C. The complex feedback between the scanner and the parser (this
-feedback is what confuses the vgrind and emacs programs) makes it
-challenging at best to write a stand-alone Perl parser.
-
-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 swears
-by the following settings in vi and its clones:
-
- set ai sw=4
- map! ^O {^M}^[O^T
-
-Now 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. If you haven't used the last one, you're missing
-a lot. A more complete example, with comments, can be found at
-http://www.perl.com/CPAN-local/authors/id/TOMC/scripts/toms.exrc.gz
-
-If you are used to using the I<vgrind> program for printing out nice code
-to a laser printer, you can take a stab at this using
-http://www.perl.com/CPAN/doc/misc/tips/working.vgrind.entry, but the
-results are not particularly satisfying for sophisticated code.
-
-The a2ps at http://www.infres.enst.fr/%7Edemaille/a2ps/ does lots of things
-related to generating nicely printed output of documents.
-
-=head2 Is there a ctags for Perl?
-
-There's a simple one at
-http://www.perl.com/CPAN/authors/id/TOMC/scripts/ptags.gz which may do
-the trick. And if not, it's easy to hack into what you want.
-
-=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 a Windows IDE, check the following:
-
-=over 4
-
-=item CodeMagicCD
-
-http://www.codemagiccd.com/
-
-=item Komodo
-
-ActiveState's cross-platform, multi-language IDE has Perl support,
-including a regular expression debugger and remote debugging
-(http://www.ActiveState.com/Products/Komodo/index.html).
-(Visual Perl, a Visual Studio.NET plug-in is currently (early 2001)
-in beta (http://www.ActiveState.com/Products/VisualPerl/index.html)).
-
-=item The Object System
-
-(http://www.castlelink.co.uk/object_system/) is a Perl web
-applications development IDE.
-
-=item PerlBuilder
-
-(http://www.solutionsoft.com/perl.htm) is an integrated development
-environment for Windows that supports Perl development.
-
-=item Perl code magic
-
-(http://www.petes-place.com/codemagic.html).
-
-=item visiPerl+
-
-http://helpconsulting.net/visiperl/, from Help Consulting.
-
-=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.
-
-For Windows editors: you can download an Emacs
-
-=over 4
-
-=item GNU Emacs
-
-http://www.gnu.org/software/emacs/windows/ntemacs.html
-
-=item MicroEMACS
-
-http://members.nbci.com/uemacs/
-
-=item XEmacs
-
-http://www.xemacs.org/Download/index.html
-
-=back
-
-or a vi clone such as
-
-=over 4
-
-=item Elvis
-
-ftp://ftp.cs.pdx.edu/pub/elvis/ http://www.fh-wedel.de/elvis/
-
-=item Vile
-
-http://vile.cx/
-
-=item Vim
-
-http://www.vim.org/
-
-win32: http://www.cs.vu.nl/%7Etmgil/vi.html
-
-=back
-
-For vi lovers in general, Windows or elsewhere:
-http://www.thomer.com/thomer/vi/vi.html.
-
-nvi (http://www.bostic.com/vi/, available from CPAN in src/misc/) is
-yet another vi clone, unfortunately not available for Windows, but in
-UNIX platforms you might be interested in trying it out, firstly because
-strictly speaking it is not a vi clone, it is the real vi, or the new
-incarnation of it, and secondly because you can embed Perl inside it
-to use Perl as the scripting language. nvi is not alone in this,
-though: at least also vim and vile offer an embedded Perl.
-
-The following are Win32 multilanguage editor/IDESs that support Perl:
-
-=over 4
-
-=item Codewright
-
-http://www.starbase.com/
-
-=item MultiEdit
-
-http://www.MultiEdit.com/
-
-=item SlickEdit
-
-http://www.slickedit.com/
-
-=back
-
-There is also a toyedit Text widget based editor written in Perl
-that is distributed with the Tk module on CPAN. The ptkdb
-(http://world.std.com/~aep/ptkdb/) is a Perl/tk based debugger that
-acts as a development environment of sorts. Perl Composer
-(http://perlcomposer.sourceforge.net/vperl.html) 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 (http://sources.redhat.com/cygwin/)
-
-=item Ksh
-
-from the MKS Toolkit (http://www.mks.com/), or the Bourne shell of
-the U/WIN environment (http://www.research.att.com/sw/tools/uwin/)
-
-=item Tcsh
-
-ftp://ftp.astron.com/pub/tcsh/, see also
-http://www.primate.wisc.edu/software/csh-tcsh-book/
-
-=item Zsh
-
-ftp://ftp.blarg.net/users/amol/zsh/, see also http://www.zsh.org/
-
-=back
-
-MKS and U/WIN are commercial (U/WIN is free for educational and
-research purposes), Cygwin is covered by the GNU Public License (but
-that shouldn't matter for Perl use). The Cygwin, MKS, and U/WIN all
-contain (in addition to the shells) a comprehensive set of standard
-UNIX toolkit utilities.
-
-If you're transferring text files between Unix and Windows using FTP
-be sure to transfer them in ASCII mode so the ends of lines are
-appropriately converted.
-
-On Mac OS the MacPerl Application comes with a simple 32k text editor
-that behaves like a rudimentary IDE. In contrast to the MacPerl Application
-the MPW Perl tool can make use of the MPW Shell itself as an editor (with
-no 32k limit).
-
-=over 4
-
-=item BBEdit and BBEdit Lite
-
-are text editors for Mac OS that have a Perl sensitivity mode
-(http://web.barebones.com/).
-
-=item Alpha
-
-is an editor, written and extensible in Tcl, that nonetheless has
-built in support for several popular markup and programming languages
-including Perl and HTML (http://alpha.olm.net/).
-
-=back
-
-Pepper and Pe are programming language sensitive text editors for Mac
-OS X and BeOS respectively (http://www.hekkelman.com/).
-
-=head2 Where can I get Perl macros for vi?
-
-For a complete version of Tom Christiansen's vi configuration file,
-see http://www.perl.com/CPAN/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 http://www.perl.com/CPAN/src/misc.
-
-=head2 Where can I get perl-mode for 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.
-
-In the Perl source directory, you'll find a directory called "emacs",
-which contains a cperl-mode that color-codes keywords, provides
-context-sensitive help, and other nifty things.
-
-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.
-
-=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 http://www.perl.com/CPAN/authors/Tom_Christiansen/scripts/rep;
-this program repeats a command and updates the screen as needed, rendering
-B<rep ps axu> similar to B<top>.
-
-=head2 How can I use X or Tk with Perl?
-
-Tk is a completely Perl-based, object-oriented interface to the Tk toolkit
-that doesn't force you to use Tcl just to get at Tk. Sx is an interface
-to the Athena Widget set. Both are available from CPAN. See the
-directory http://www.perl.com/CPAN/modules/by-category/08_User_Interfaces/
-
-Invaluable for Perl/Tk programming are the Perl/Tk FAQ at
-http://w4.lns.cornell.edu/%7Epvhp/ptk/ptkTOC.html , the Perl/Tk Reference
-Guide available at
-http://www.perl.com/CPAN-local/authors/Stephen_O_Lidie/ , and the
-online manpages at
-http://www-users.cs.umn.edu/%7Eamundson/perl/perltk/toc.html .
-
-=head2 How can I generate simple menus without using CGI or Tk?
-
-The http://www.perl.com/CPAN/authors/id/SKUNZ/perlmenu.v4.0.tar.gz
-module, which is curses-based, can help with this.
-
-=head2 What is undump?
-
-See the next question on ``How can I make my Perl program run faster?''
-
-=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
-``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.
-
-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).
-
-In some cases, it may be worth it to use the backend compiler to
-produce byte code (saving compilation time) or compile into C, which
-will certainly save compilation time and sometimes a small amount (but
-not much) execution time. See the question about compiling your Perl
-programs for more on the compiler--the wins aren't as obvious as you'd
-hope.
-
-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.
-
-Unsubstantiated reports allege that Perl interpreters that use sfio
-outperform those that don't (for I/O intensive applications). To try
-this, see the F<INSTALL> file in the source distribution, especially
-the ``Selecting File I/O mechanisms'' section.
-
-The undump program was an old attempt to speed up your 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>.
-
-=head2 Is it unsafe to return a pointer to local data?
-
-No, Perl's garbage collection system takes care of this.
-
- sub makeone {
- my @a = ( 1 .. 10 );
- return \@a;
- }
-
- for $i ( 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?
-
-You can't. 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,
-FreeBSD and Linux) allegedly reclaim large chunks of memory that is no
-longer used, but it doesn't appear to happen with Perl (yet). The Mac
-appears to be the only platform that will reliably (albeit, slowly)
-return memory to the OS.
-
-We've had reports that on Linux (Redhat 5.1) on Intel, C<undef
-$scalar> will return memory to the system, while on Solaris 2.6 it
-won't. In general, try it yourself and see.
-
-However, judicious use of my() on your variables will help make sure
-that they go out of scope so that Perl can free up that space for
-use in other parts of your program. A global variable, of course, never
-goes out of scope, so you can't get its space automatically reclaimed,
-although undef()ing and/or delete()ing it will achieve the same effect.
-In general, memory allocation and de-allocation isn't something you can
-or should be worrying about much in Perl, but even this capability
-(preallocation of data types) is in the works.
-
-=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 two popular ways to avoid this overhead. One solution
-involves running the Apache HTTP server (available from
-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
-http://perl.apache.org/
-
-With the FCGI module (from CPAN) and the mod_fastcgi
-module (available from http://www.fastcgi.com/) each of your Perl
-programs becomes a permanent CGI daemon process.
-
-Both of 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 http://www.perl.com/CPAN/modules/by-category/15_World_Wide_Web_HTML_HTTP_CGI/ .
-
-A non-free, commercial product, ``The Velocity Engine for Perl'',
-(http://www.binevolve.com/ or http://www.binevolve.com/velocigen/ )
-might also be worth looking at. It will allow you to increase the
-performance of your Perl programs, running programs up to 25 times
-faster than normal CGI Perl when running in persistent Perl mode or 4
-to 5 times faster without any modification to your existing CGI
-programs. Fully functional evaluation copies are available from the
-web site.
-
-=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 (Filter::* from CPAN),
-but any decent programmer will be able to decrypt it. You can try using
-the byte code compiler and interpreter described below, but the curious
-might still 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 (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.'' 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?
-
-Malcolm Beattie has written a multifunction backend compiler,
-available from CPAN, that can do both these things. It is included
-in the perl5.005 release, but is still considered experimental.
-This means it's fun to play with if you're a programmer but not
-really for people looking for turn-key solutions.
-
-Merely compiling into C does not in and of itself guarantee that your
-code will run very much faster. That's because except for lucky cases
-where a lot of native type inferencing is possible, the normal Perl
-run-time system is still present and so your program will take just as
-long to run and be just as big. Most programs save little more than
-compilation time, leaving execution no more than 10-30% faster. A few
-rare programs actually benefit significantly (even running several times
-faster), but this takes some tweaking of your code.
-
-You'll probably be astonished to learn that the current version of the
-compiler generates a compiled form of your script whose executable is
-just as big as the original perl executable, and then some. That's
-because as currently written, all programs are prepared for a full
-eval() statement. You can tremendously reduce this cost by building a
-shared I<libperl.so> library and linking against that. See the
-F<INSTALL> podfile in the Perl source distribution for details. If
-you link your main perl binary with this, it will make it minuscule.
-For example, on one author's system, F</usr/bin/perl> is only 11k in
-size!
-
-In general, the compiler will do nothing to make a Perl program smaller,
-faster, more portable, or more secure. In fact, it can make your
-situation worse. The executable will be bigger, your VM system may take
-longer to load the whole thing, the binary is fragile and hard to fix,
-and compilation never stopped software piracy in the form of crackers,
-viruses, or bootleggers. The real advantage of the compiler is merely
-packaging, and once you see the size of what it makes (well, unless
-you use a shared I<libperl.so>), you'll probably want a complete
-Perl install anyway.
-
-=head2 How can I compile Perl into Java?
-
-You can also integrate Java and Perl with the
-Perl Resource Kit from O'Reilly and Associates. See
-http://www.oreilly.com/catalog/prkunix/ .
-
-Perl 5.6 comes with Java Perl Lingo, or JPL. JPL, still in
-development, allows Perl code to be called from Java. See jpl/README
-in the Perl source tree.
-
-=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<ALTERNATIVE_SHEBANG> (see the
-F<INSTALL> 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>.
-
-Macintosh Perl programs will have the appropriate Creator and
-Type, so that double-clicking them will invoke the Perl application.
-
-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, at 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 at 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
- perl -e 'print "Hello world\n"'
-
- # DOS, etc.
- perl -e "print \"Hello world\n\""
-
- # Mac
- print "Hello world\n"
- (then Run "Myscript" or Shift-Command-R)
-
- # 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, pure and
-simple. Sucks to be away from Unix, huh? :-)
-
-[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 these sources:
-
- WWW Security FAQ
- http://www.w3.org/Security/Faq/
-
- Web FAQ
- http://www.boutell.com/faq/
-
- CGI FAQ
- http://www.webthing.com/tutorials/cgifaq.html
-
- HTTP Spec
- http://www.w3.org/pub/WWW/Protocols/HTTP/
-
- HTML Spec
- http://www.w3.org/TR/REC-html40/
- http://www.w3.org/pub/WWW/MarkUp/
-
- CGI Spec
- http://www.w3.org/CGI/
-
- CGI Security FAQ
- http://www.go2net.com/people/paulp/cgi-security/safe-cgi.txt
-
-=head2 Where can I learn about object-oriented Perl programming?
-
-A good place to start is L<perltoot>, and you can use L<perlobj>,
-L<perlboot>, and L<perlbot> for reference. Perltoot didn't come out
-until the 5.004 release; you can get a copy (in pod, html, or
-postscript) from http://www.perl.com/CPAN/doc/FMTEYEWTK/ .
-
-=head2 Where can I learn about linking C with Perl? [h2xs, xsubpp]
-
-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.
-
-=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?
-
-This module (part of the standard Perl distribution) is designed to
-write a Makefile for an extension module from a Makefile.PL. For more
-information, see L<ExtUtils::MakeMaker>.
-
-=head1 AUTHOR AND COPYRIGHT
-
-Copyright (c) 1997-1999 Tom Christiansen and Nathan Torkington.
-All rights reserved.
-
-When included as an integrated part of the Standard Distribution
-of Perl or of its documentation (printed or otherwise), this works is
-covered under Perl's Artistic License. For separate distributions of
-all or part of this FAQ outside of that, see L<perlfaq>.
-
-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/3.8.8/sources/cpan-Pod-Simple/vendor/t/puller.t b/3.8.8/sources/cpan-Pod-Simple/vendor/t/puller.t
deleted file mode 100644
index df0e00e..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/puller.t
+++ /dev/null
@@ -1,358 +0,0 @@
-BEGIN {
- if($ENV{PERL_CORE}) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-use strict;
-use Test;
-BEGIN { plan tests => 136 };
-
-#use Pod::Simple::Debug (5);
-
-#sub Pod::Simple::MANY_LINES () {1}
-#sub Pod::Simple::PullParser::DEBUG () {1}
-
-
-use Pod::Simple::PullParser;
-
-sub pump_it_up {
- my $p = Pod::Simple::PullParser->new;
- $p->set_source( \( $_[0] ) );
- my(@t, $t);
- while($t = $p->get_token) { push @t, $t }
- print "# Count of tokens: ", scalar(@t), "\n";
- print "# I.e., {", join("\n# + ",
- map ref($_) . ": " . $_->dump, @t), "} \n";
- return @t;
-}
-
-my @t;
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
- at t = pump_it_up(qq{\n\nProk\n\n=head1 Things\n\n=cut\n\nBzorch\n\n});
-
-if(not(
- ok scalar( grep { ref $_ and $_->can('type') } @t), 5
-)) {
- ok 0,1, "Wrong token count. Failing subsequent tests.\n";
- for ( 1 .. 12 ) {ok 0}
-} else {
- ok $t[0]->type, 'start';
- ok $t[1]->type, 'start';
- ok $t[2]->type, 'text';
- ok $t[3]->type, 'end';
- ok $t[4]->type, 'end';
-
- ok $t[0]->tagname, 'Document';
- ok $t[1]->tagname, 'head1';
- ok $t[2]->text, 'Things';
- ok $t[3]->tagname, 'head1';
- ok $t[4]->tagname, 'Document';
-
- ok $t[0]->attr('start_line'), '5';
- ok $t[1]->attr('start_line'), '5';
-}
-
-
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- at t = pump_it_up(
- qq{Woowoo\n\n=over\n\n=item *\n\nStuff L<HTML::TokeParser>\n\n}
- . qq{=item *\n\nThings I<like that>\n\n=back\n\n=cut\n\n}
-);
-
-if(
- not( ok scalar( grep { ref $_ and $_->can('type') } @t) => 16 )
-) {
- ok 0,1, "Wrong token count. Failing subsequent tests.\n";
- for ( 1 .. 32 ) {ok 0}
-} else {
- ok $t[ 0]->type, 'start';
- ok $t[ 1]->type, 'start';
- ok $t[ 2]->type, 'start';
- ok $t[ 3]->type, 'text';
- ok $t[ 4]->type, 'start';
- ok $t[ 5]->type, 'text';
- ok $t[ 6]->type, 'end';
- ok $t[ 7]->type, 'end';
-
- ok $t[ 8]->type, 'start';
- ok $t[ 9]->type, 'text';
- ok $t[10]->type, 'start';
- ok $t[11]->type, 'text';
- ok $t[12]->type, 'end';
- ok $t[13]->type, 'end';
- ok $t[14]->type, 'end';
- ok $t[15]->type, 'end';
-
-
-
- ok $t[ 0]->tagname, 'Document';
- ok $t[ 1]->tagname, 'over-bullet';
- ok $t[ 2]->tagname, 'item-bullet';
- ok $t[ 3]->text, 'Stuff ';
- ok $t[ 4]->tagname, 'L';
- ok $t[ 5]->text, 'HTML::TokeParser';
- ok $t[ 6]->tagname, 'L';
- ok $t[ 7]->tagname, 'item-bullet';
-
- ok $t[ 8]->tagname, 'item-bullet';
- ok $t[ 9]->text, 'Things ';
- ok $t[10]->tagname, 'I';
- ok $t[11]->text, 'like that';
- ok $t[12]->tagname, 'I';
- ok $t[13]->tagname, 'item-bullet';
- ok $t[14]->tagname, 'over-bullet';
- ok $t[15]->tagname, 'Document';
-
- ok $t[4]->attr("type"), "pod";
-}
-
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-{
-print "# Testing unget_token\n";
-
-my $p = Pod::Simple::PullParser->new;
-$p->set_source( \qq{\nBzorch\n\n=pod\n\nLala\n\n\=cut\n} );
-
-ok 1;
-my $t;
-$t = $p->get_token;
-ok $t && $t->type, 'start';
-ok $t && $t->tagname, 'Document';
-print "# ungetting ($t).\n";
-$p->unget_token($t);
-ok 1;
-
-$t = $p->get_token;
-ok $t && $t->type, 'start';
-ok $t && $t->tagname, 'Document';
-my @to_save = ($t);
-
-$t = $p->get_token;
-ok $t && $t->type, 'start';
-ok $t && $t->tagname, 'Para';
-push @to_save, $t;
-
-print "# ungetting (@to_save).\n";
-$p->unget_token(@to_save);
-splice @to_save;
-
-
-$t = $p->get_token;
-ok $t && $t->type, 'start';
-ok $t && $t->tagname, 'Document';
-
-$t = $p->get_token;
-ok $t && $t->type, 'start';
-ok $t && $t->tagname, 'Para';
-
-ok 1;
-
-}
-
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-{
-print "# Testing pullparsing from an arrayref\n";
-my $p = Pod::Simple::PullParser->new;
-ok 1;
-$p->set_source( ['','Bzorch', '','=pod', '', 'Lala', 'zaza', '', '=cut'] );
-ok 1;
-my( @t, $t );
-while($t = $p->get_token) {
- print "# Got a token: ", $t->dump, "\n#\n";
- push @t, $t;
-}
-ok scalar(@t), 5; # count of tokens
-ok $t[0]->type, 'start';
-ok $t[1]->type, 'start';
-ok $t[2]->type, 'text';
-ok $t[3]->type, 'end';
-ok $t[4]->type, 'end';
-
-ok $t[0]->tagname, 'Document';
-ok $t[1]->tagname, 'Para';
-ok $t[2]->text, 'Lala zaza';
-ok $t[3]->tagname, 'Para';
-ok $t[4]->tagname, 'Document';
-
-}
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-{
-print "# Testing pullparsing from an arrayref with terminal newlines\n";
-my $p = Pod::Simple::PullParser->new;
-ok 1;
-$p->set_source( [ map "$_\n",
- '','Bzorch', '','=pod', '', 'Lala', 'zaza', '', '=cut'] );
-ok 1;
-my( @t, $t );
-while($t = $p->get_token) {
- print "# Got a token: ", $t->dump, "\n#\n";
- push @t, $t;
-}
-ok scalar(@t), 5; # count of tokens
-ok $t[0]->type, 'start';
-ok $t[1]->type, 'start';
-ok $t[2]->type, 'text';
-ok $t[3]->type, 'end';
-ok $t[4]->type, 'end';
-
-ok $t[0]->tagname, 'Document';
-ok $t[1]->tagname, 'Para';
-ok $t[2]->text, 'Lala zaza';
-ok $t[3]->tagname, 'Para';
-ok $t[4]->tagname, 'Document';
-
-}
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-END { unlink "temp.pod" }
-{
-print "# Testing pullparsing from a file\n";
-my $p = Pod::Simple::PullParser->new;
-ok 1;
-open(OUT, ">temp.pod") || die "Can't write-open temp.pod: $!";
-print OUT
- map "$_\n",
- '','Bzorch', '','=pod', '', 'Lala', 'zaza', '', '=cut'
-;
-close(OUT);
-ok 1;
-sleep 1;
-
-$p->set_source("temp.pod");
-
-my( @t, $t );
-while($t = $p->get_token) {
- print "# Got a token: ", $t->dump, "\n#\n";
- push @t, $t;
- print "# That's token number ", scalar(@t), "\n";
-}
-ok scalar(@t), 5; # count of tokens
-ok $t[0]->type, 'start';
-ok $t[1]->type, 'start';
-ok $t[2]->type, 'text';
-ok $t[3]->type, 'end';
-ok $t[4]->type, 'end';
-
-ok $t[0]->tagname, 'Document';
-ok $t[1]->tagname, 'Para';
-ok $t[2]->text, 'Lala zaza';
-ok $t[3]->tagname, 'Para';
-ok $t[4]->tagname, 'Document';
-
-}
-
-# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
-
-{
-print "# Testing pullparsing from a glob\n";
-my $p = Pod::Simple::PullParser->new;
-ok 1;
-open(IN, "<temp.pod") || die "Can't read-open temp.pod: $!";
-$p->set_source(*IN);
-
-my( @t, $t );
-while($t = $p->get_token) {
- print "# Got a token: ", $t->dump, "\n#\n";
- push @t, $t;
- print "# That's token number ", scalar(@t), "\n";
-}
-ok scalar(@t), 5; # count of tokens
-ok $t[0]->type, 'start';
-ok $t[1]->type, 'start';
-ok $t[2]->type, 'text';
-ok $t[3]->type, 'end';
-ok $t[4]->type, 'end';
-
-ok $t[0]->tagname, 'Document';
-ok $t[1]->tagname, 'Para';
-ok $t[2]->text, 'Lala zaza';
-ok $t[3]->tagname, 'Para';
-ok $t[4]->tagname, 'Document';
-close(IN);
-
-}
-
-# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
-
-{
-print "# Testing pullparsing from a globref\n";
-my $p = Pod::Simple::PullParser->new;
-ok 1;
-open(IN, "<temp.pod") || die "Can't read-open temp.pod: $!";
-$p->set_source(\*IN);
-
-my( @t, $t );
-while($t = $p->get_token) {
- print "# Got a token: ", $t->dump, "\n#\n";
- push @t, $t;
- print "# That's token number ", scalar(@t), "\n";
-}
-ok scalar(@t), 5; # count of tokens
-ok $t[0]->type, 'start';
-ok $t[1]->type, 'start';
-ok $t[2]->type, 'text';
-ok $t[3]->type, 'end';
-ok $t[4]->type, 'end';
-
-ok $t[0]->tagname, 'Document';
-ok $t[1]->tagname, 'Para';
-ok $t[2]->text, 'Lala zaza';
-ok $t[3]->tagname, 'Para';
-ok $t[4]->tagname, 'Document';
-close(IN);
-
-}
-
-# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
-
-{
-print "# Testing pullparsing from a filehandle\n";
-my $p = Pod::Simple::PullParser->new;
-ok 1;
-open(IN, "<temp.pod") || die "Can't read-open temp.pod: $!";
-$p->set_source(*IN{IO});
-
-my( @t, $t );
-while($t = $p->get_token) {
- print "# Got a token: ", $t->dump, "\n#\n";
- push @t, $t;
- print "# That's token number ", scalar(@t), "\n";
-}
-ok scalar(@t), 5; # count of tokens
-ok $t[0]->type, 'start';
-ok $t[1]->type, 'start';
-ok $t[2]->type, 'text';
-ok $t[3]->type, 'end';
-ok $t[4]->type, 'end';
-
-ok $t[0]->tagname, 'Document';
-ok $t[1]->tagname, 'Para';
-ok $t[2]->text, 'Lala zaza';
-ok $t[3]->tagname, 'Para';
-ok $t[4]->tagname, 'Document';
-close(IN);
-
-}
-
-
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-
-print "# Wrapping up... one for the road...\n";
-ok 1;
-print "# --- Done with ", __FILE__, " --- \n";
-
-__END__
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/search05.t b/3.8.8/sources/cpan-Pod-Simple/vendor/t/search05.t
deleted file mode 100644
index a55ca72..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/search05.t
+++ /dev/null
@@ -1,40 +0,0 @@
-BEGIN {
- if($ENV{PERL_CORE}) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-use strict;
-use Pod::Simple::Search;
-use Test;
-BEGIN { plan tests => 15 }
-
-print "# Some basic sanity tests...\n";
-
-my $x = Pod::Simple::Search->new;
-die "Couldn't make an object!?" unless ok defined $x;
-print "# New object: $x\n";
-print "# Version: ", $x->VERSION, "\n";
-ok defined $x->can('callback');
-ok defined $x->can('dir_prefix');
-ok defined $x->can('inc');
-ok defined $x->can('laborious');
-ok defined $x->can('limit_glob');
-ok defined $x->can('limit_re');
-ok defined $x->can('shadows');
-ok defined $x->can('verbose');
-ok defined $x->can('survey');
-ok defined $x->can('_state_as_string');
-ok defined $x->can('contains_pod');
-ok defined $x->can('find');
-ok defined $x->can('simplify_name');
-
-print "# Testing state dumping...\n";
-print $x->_state_as_string;
-$x->inc("I\nLike Pie!\t!!");
-print $x->_state_as_string;
-
-print "# bye\n";
-ok 1;
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/search28.t b/3.8.8/sources/cpan-Pod-Simple/vendor/t/search28.t
deleted file mode 100644
index 9301232..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/search28.t
+++ /dev/null
@@ -1,85 +0,0 @@
-BEGIN {
- if($ENV{PERL_CORE}) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-use strict;
-use Pod::Simple::Search;
-use Test;
-BEGIN { plan tests => 4 }
-
-print "# ", __FILE__,
- ": Testing limit_glob ...\n";
-
-my $x = Pod::Simple::Search->new;
-die "Couldn't make an object!?" unless ok defined $x;
-
-$x->inc(0);
-$x->shadows(1);
-
-use File::Spec;
-use Cwd;
-my $cwd = cwd();
-print "# CWD: $cwd\n";
-
-sub source_path {
- my $file = shift;
- if ($ENV{PERL_CORE}) {
- my $updir = File::Spec->updir;
- my $dir = File::Spec->catdir($updir, 'lib', 'Pod', 'Simple', 't');
- return File::Spec->catdir ($dir, $file);
- } else {
- return $file;
- }
-}
-
-my($here1, $here2, $here3);
-
-if( -e ($here1 = source_path( 'testlib1' ))) {
- die "But where's $here2?"
- unless -e ($here2 = source_path( 'testlib2'));
- die "But where's $here3?"
- unless -e ($here3 = source_path( 'testlib3'));
-
-} elsif( -e ($here1 = File::Spec->catdir($cwd, 't', 'testlib1' ))) {
- die "But where's $here2?"
- unless -e ($here2 = File::Spec->catdir($cwd, 't', 'testlib2'));
- die "But where's $here3?"
- unless -e ($here3 = File::Spec->catdir($cwd, 't', 'testlib3'));
-
-} else {
- die "Can't find the test corpora";
-}
-print "# OK, found the test corpora\n# as $here1\n# and $here2\n# and $here3\n#\n";
-ok 1;
-
-print $x->_state_as_string;
-#$x->verbose(12);
-
-use Pod::Simple;
-*pretty = \&Pod::Simple::BlackBox::pretty;
-
-my $glob = '*z*k*';
-print "# Limiting to $glob\n";
-$x->limit_glob($glob);
-
-my($name2where, $where2name) = $x->survey($here1, $here2, $here3);
-
-my $p = pretty( $where2name, $name2where )."\n";
-$p =~ s/, +/,\n/g;
-$p =~ s/^/# /mg;
-print $p;
-
-{
-my $names = join "|", sort values %$where2name;
-ok $names, "Zonk::Pronk|perlzuk|zikzik";
-}
-
-
-print "# OK, bye from ", __FILE__, "\n";
-ok 1;
-
-__END__
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/strpvbtm.t b/3.8.8/sources/cpan-Pod-Simple/vendor/t/strpvbtm.t
deleted file mode 100644
index 9cb83f3..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/strpvbtm.t
+++ /dev/null
@@ -1,111 +0,0 @@
-#!/usr/bin/perl -w
-
-# t/strip_verbatim_indent.t.t - check verabtim indent stripping feature
-
-BEGIN {
- chdir 't' if -d 't';
-}
-
-use strict;
-use lib '../lib';
-use Test::More tests => 79;
-#use Test::More 'no_plan';
-
-use_ok('Pod::Simple::XHTML') or exit;
-use_ok('Pod::Simple::XMLOutStream') or exit;
-
-isa_ok my $parser = Pod::Simple::XHTML->new, 'Pod::Simple::XHTML';
-
-ok $parser->strip_verbatim_indent(' '), 'Should be able to set striper to " "';
-ok $parser->strip_verbatim_indent(' '), 'Should be able to set striper to " "';
-ok $parser->strip_verbatim_indent("t"), 'Should be able to set striper to "\\t"';
-ok $parser->strip_verbatim_indent(sub { ' ' }), 'Should be able to set striper to coderef';
-
-for my $spec (
- [
- "\n=pod\n\n foo bar baz\n",
- undef,
- qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz</Verbatim></Document>},
- "<pre><code> foo bar baz</code></pre>\n\n",
- 'undefined indent'
- ],
- [
- "\n=pod\n\n foo bar baz\n",
- ' ',
- qq{<Document><Verbatim\nxml:space="preserve">foo bar baz</Verbatim></Document>},
- "<pre><code>foo bar baz</code></pre>\n\n",
- 'single space indent'
- ],
- [
- "\n=pod\n\n foo bar baz\n",
- ' ',
- qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz</Verbatim></Document>},
- "<pre><code> foo bar baz</code></pre>\n\n",
- 'too large indent'
- ],
- [
- "\n=pod\n\n foo bar baz\n",
- ' ',
- qq{<Document><Verbatim\nxml:space="preserve">foo bar baz</Verbatim></Document>},
- "<pre><code>foo bar baz</code></pre>\n\n",
- 'double space indent'
- ],
- [
- "\n=pod\n\n foo bar baz\n",
- sub { ' ' },
- qq{<Document><Verbatim\nxml:space="preserve">foo bar baz</Verbatim></Document>},
- "<pre><code>foo bar baz</code></pre>\n\n",
- 'code ref stripper'
- ],
- [
- "\n=pod\n\n foo bar\n\n baz blez\n",
- ' ',
- qq{<Document><Verbatim\nxml:space="preserve">foo bar\n\nbaz blez</Verbatim></Document>},
- "<pre><code>foo bar\n\nbaz blez</code></pre>\n\n",
- 'single space indent and empty line'
- ],
- [
- "\n=pod\n\n foo bar\n\n baz blez\n",
- sub { ' ' },
- qq{<Document><Verbatim\nxml:space="preserve">foo bar\n\nbaz blez</Verbatim></Document>},
- "<pre><code>foo bar\n\nbaz blez</code></pre>\n\n",
- 'code ref indent and empty line'
- ],
- [
- "\n=pod\n\n foo bar\n\n baz blez\n",
- sub { (my $s = shift->[0]) =~ s/\S.*//; $s },
- qq{<Document><Verbatim\nxml:space="preserve">foo bar\n\nbaz blez</Verbatim></Document>},
- "<pre><code>foo bar\n\nbaz blez</code></pre>\n\n",
- 'heuristic code ref indent'
- ],
- [
- "\n=pod\n\n foo bar\n baz blez\n",
- sub { s/^\s+// for @{ $_[0] } },
- qq{<Document><Verbatim\nxml:space="preserve">foo bar\nbaz blez</Verbatim></Document>},
- "<pre><code>foo bar\nbaz blez</code></pre>\n\n",
- 'militant code ref'
- ],
-) {
- my ($pod, $indent, $xml, $xhtml, $desc) = @$spec;
- # Test XML output.
- ok my $p = Pod::Simple::XMLOutStream->new, "Construct XML parser to test $desc";
- $p->hide_line_numbers(1);
- my $output = '';
- $p->output_string( \$output );
- is $indent, $p->strip_verbatim_indent($indent),
- 'Set stripper for XML to ' . (defined $indent ? qq{"$indent"} : 'undef');
- ok $p->parse_string_document( $pod ), "Parse POD to XML for $desc";
- is $output, $xml, "Should have expected XML output for $desc";
-
-
- # Test XHTML output.
- ok $p = Pod::Simple::XHTML->new, "Construct XHMTL parser to test $desc";
- $p->html_header('');
- $p->html_footer('');
- $output = '';
- $p->output_string( \$output );
- is $indent, $p->strip_verbatim_indent($indent),
- 'Set stripper for XHTML to ' . (defined $indent ? qq{"$indent"} : 'undef');
- ok $p->parse_string_document( $pod ), "Parse POD to XHTML for $desc";
- is $output, $xhtml, "Should have expected XHTML output for $desc";
-}
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/Blorm.pm b/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/Blorm.pm
deleted file mode 100644
index 13499fa..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/Blorm.pm
+++ /dev/null
@@ -1,10 +0,0 @@
-=head1 NAME
-
-Blorm -- blorpoesu
-
-=head1 DESCRIPTION
-
-This is just a test file.
-
-=cut
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/Zonk/Fiddle.txt b/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/Zonk/Fiddle.txt
deleted file mode 100644
index 656827c..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/Zonk/Fiddle.txt
+++ /dev/null
@@ -1,4 +0,0 @@
-
-This is just a dummy file. It's podless and shouldn't even be scanned for pod.
-
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/hinkhonk/readme.txt b/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/hinkhonk/readme.txt
deleted file mode 100644
index 96ae070..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/hinkhonk/readme.txt
+++ /dev/null
@@ -1 +0,0 @@
-This directory should never be scanned.
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/pod/perlflif.pod b/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/pod/perlflif.pod
deleted file mode 100644
index 63ae3da..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/pod/perlflif.pod
+++ /dev/null
@@ -1,7 +0,0 @@
-
-=head1 NAME
-
-perlthang - This is just some test file
-
-=cut
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/pod/perlthng.pod b/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/pod/perlthng.pod
deleted file mode 100644
index 63ae3da..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/pod/perlthng.pod
+++ /dev/null
@@ -1,7 +0,0 @@
-
-=head1 NAME
-
-perlthang - This is just some test file
-
-=cut
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/squaa/Glunk.pod b/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/squaa/Glunk.pod
deleted file mode 100644
index 98e7624..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/squaa/Glunk.pod
+++ /dev/null
@@ -1,11 +0,0 @@
-
-=head1 NAME
-
-squaa::Glunk -- blorpoesu
-
-=head1 DESCRIPTION
-
-This is just a test file.
-
-=cut
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/squaa/Vliff.pm b/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/squaa/Vliff.pm
deleted file mode 100644
index 93d1b41..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib1/squaa/Vliff.pm
+++ /dev/null
@@ -1,14 +0,0 @@
-
-=head1 NAME
-
-squaa::Vliff -- blorpoesu
-
-=head1 DESCRIPTION
-
-This is just a test file.
-
-=cut
-
-print "HOOBOY!\n";
-1;
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib2/hinkhonk/Glunk.pod b/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib2/hinkhonk/Glunk.pod
deleted file mode 100644
index 98e7624..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib2/hinkhonk/Glunk.pod
+++ /dev/null
@@ -1,11 +0,0 @@
-
-=head1 NAME
-
-squaa::Glunk -- blorpoesu
-
-=head1 DESCRIPTION
-
-This is just a test file.
-
-=cut
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib2/squaa/Wowo.pod b/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib2/squaa/Wowo.pod
deleted file mode 100644
index 98e7624..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/testlib2/squaa/Wowo.pod
+++ /dev/null
@@ -1,11 +0,0 @@
-
-=head1 NAME
-
-squaa::Glunk -- blorpoesu
-
-=head1 DESCRIPTION
-
-This is just a test file.
-
-=cut
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/verb_fmt.t b/3.8.8/sources/cpan-Pod-Simple/vendor/t/verb_fmt.t
deleted file mode 100644
index 07dfad5..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/verb_fmt.t
+++ /dev/null
@@ -1,308 +0,0 @@
-# Testing verbatim formatted sections
-use strict;
-use Test;
-BEGIN { plan tests => 62 };
-
-#use Pod::Simple::Debug (6);
-
-ok 1;
-
-use Pod::Simple::DumpAsXML;
-use Pod::Simple::XMLOutStream;
-
-print "# Pod::Simple version $Pod::Simple::VERSION\n";
-sub e ($$) { Pod::Simple::DumpAsXML->_duo(\&without_vf, @_) }
-sub ev ($$) { Pod::Simple::DumpAsXML->_duo(\&with_vf, @_) }
-
-sub with_vf { $_[0]-> accept_codes('VerbatimFormatted') }
-sub without_vf { $_[0]->unaccept_codes('VerbatimFormatted') }
-
-# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
-
-print "# Testing VerbatimFormatted...\n";
- # 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]
- # #:^^^^^^^^^^^^^^^^^ /////////////
-
-
-&ok( Pod::Simple::XMLOutStream->_out(\&with_vf,
-q{=pod
-
- What do you want? i like pie. [or whatever]
-#:^^^^^^^^^^^^^^^^^ /////////////
- Hooboy.
-
-=cut
-
-}) => qq{<Document><VerbatimFormatted\nxml:space="preserve"> <VerbatimB>What do you want?</VerbatimB> i like pie. <VerbatimI>[or whatever]</VerbatimI>\n Hooboy.</VerbatimFormatted></Document>}
-);
-
-
-&ok( Pod::Simple::XMLOutStream->_out(\&with_vf,
-q{=pod
-
- What do you want? i like pie. [or whatever]
-#:^^^^^^^^^^^^^^^^^ /////////////
- Hooboy.
-
-=cut
-
-}) => qq{<Document><VerbatimFormatted\nxml:space="preserve"> <VerbatimB>What do you want?</VerbatimB> i like pie. <VerbatimI>[or whatever]</VerbatimI>\n Hooboy.</VerbatimFormatted></Document>}
-);
-
-
-&ok( Pod::Simple::XMLOutStream->_out(\&with_vf,
-q{=pod
-
- What do you want? i like pie. [or whatever]
-#:^^^^^^^^^^^^^^^^^ /////////////
-
-=cut
-
-}) => qq{<Document><VerbatimFormatted\nxml:space="preserve"> <VerbatimB>What do you want?</VerbatimB> i like pie. <VerbatimI>[or whatever]</VerbatimI></VerbatimFormatted></Document>}
-);
-
-
-&ok( Pod::Simple::XMLOutStream->_out(\&with_vf,
-q{=pod
-
- What do you want? i like pie. [or whatever]
-#:^^^^^^^^^^^^^^^^^ /////////////}
-) => qq{<Document><VerbatimFormatted\nxml:space="preserve"> <VerbatimB>What do you want?</VerbatimB> i like pie. <VerbatimI>[or whatever]</VerbatimI></VerbatimFormatted></Document>}
-);
-
-
-&ok( Pod::Simple::XMLOutStream->_out(\&with_vf,
-q{=pod
-
- What do you want? i like pie. [or whatever]
-#:^^^^^^^^^^^^^^^^^ //////////////////}
-) => qq{<Document><VerbatimFormatted\nxml:space="preserve"> <VerbatimB>What do you want?</VerbatimB> i like pie. <VerbatimI>[or whatever]</VerbatimI></VerbatimFormatted></Document>}
-);
-
-
-&ok( Pod::Simple::XMLOutStream->_out(\&with_vf,
-q{=pod
-
- What do you want? i like pie. [or whatever]
-#:^^^^^^^^^^^^^^^^^ ///}
-) => qq{<Document><VerbatimFormatted\nxml:space="preserve"> <VerbatimB>What do you want?</VerbatimB> i like pie. <VerbatimI>[or</VerbatimI> whatever]</VerbatimFormatted></Document>}
-);
-
-
-&ok( Pod::Simple::XMLOutStream->_out(\&with_vf,
-q{=pod
-
- What do you want? i like pie. [or whatever]
-#:^^^^^^^^^^^^^^^^^ ///
-#:^^^^^^^^^^^^^^^^^ ///}
-) => qq{<Document><VerbatimFormatted\nxml:space="preserve"> <VerbatimB>What do you want?</VerbatimB> i like pie. <VerbatimI>[or</VerbatimI> whatever]\n#:^^^^^^^^^^^^^^^^^ ///</VerbatimFormatted></Document>}
-);
-
-
-&ok( Pod::Simple::XMLOutStream->_out(\&with_vf,
-# with a tab:
-q{=pod
-
- What do you want? i like pie. [or whatever]
-#:^^^^^^^^^^^^^^^^^ /// }
-) => qq{<Document><VerbatimFormatted\nxml:space="preserve"> <VerbatimB>What do you want?</VerbatimB> i like pie. <VerbatimI>[or</VerbatimI> whatever]</VerbatimFormatted></Document>}
-);
-
-
-
-# Now testing the % too:
-&ok( Pod::Simple::XMLOutStream->_out(\&with_vf,
-q{=pod
-
- What do you want? i like pie. [or whatever]
-#:^^^^^^^^^^^^^^^^^ %%%% //////////////////}
-) => qq{<Document><VerbatimFormatted\nxml:space="preserve"> <VerbatimB>What do you want?</VerbatimB> i <VerbatimBI>like</VerbatimBI> pie. <VerbatimI>[or whatever]</VerbatimI></VerbatimFormatted></Document>}
-);
-
-
-&ok( Pod::Simple::XMLOutStream->_out(\&with_vf,
-q{=pod
-
- Hooboy!
- What do you want? i like pie. [or whatever]
-#: ^^^^^ %%%% //////////////////}
-) => qq{<Document><VerbatimFormatted\nxml:space="preserve"> Hooboy!\n What do you <VerbatimB>want?</VerbatimB> i <VerbatimBI>like</VerbatimBI> pie. <VerbatimI>[or whatever]</VerbatimI></VerbatimFormatted></Document>}
-);
-
-
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-
-
-
-
-# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
-
-print "# Now running some tests adapted from verbatims.t...\n#\n#\n";
-
-print "# Without VerbatimFormatted...\n";
-&ok( e "", "" );
-&ok( e "\n", "", );
-&ok( e "\n=pod\n\n foo bar baz", "\n=pod\n\n foo bar baz" );
-&ok( e "\n=pod\n\n foo bar baz", "\n=pod\n\n foo bar baz\n" );
-print "# With VerbatimFormatted...\n";
-&ok( ev "", "" );
-&ok( ev "\n", "", );
-&ok( ev "\n=pod\n\n foo bar baz", "\n=pod\n\n foo bar baz" );
-&ok( ev "\n=pod\n\n foo bar baz", "\n=pod\n\n foo bar baz\n" );
-
-
-print "# Now testing via XMLOutStream without VerbatimFormatted...\n";
-
-ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n"),
- qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz</Verbatim></Document>}
-);
-ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n quux\n"),
- qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz\n quux</Verbatim></Document>}
-);
-ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\nquux\n"),
- qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz\nquux</Verbatim></Document>}
-);
-
-print "# Contiguous verbatims...\n";
-ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n\n quux\n"),
- qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz\n\n quux</Verbatim></Document>}
-);
-ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n\n\n quux\n"),
- qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz\n\n\n quux</Verbatim></Document>}
-);
-
-print "# Testing =cut...\n";
-ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n=cut\n quux\n"),
- qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz</Verbatim></Document>}
-);
-
-
-
-
-print "#\n# Now retesting with VerbatimFormatted...\n";
-
-ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n"),
- qq{<Document><VerbatimFormatted\nxml:space="preserve"> foo bar baz</VerbatimFormatted></Document>}
-);
-ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n quux\n"),
- qq{<Document><VerbatimFormatted\nxml:space="preserve"> foo bar baz\n quux</VerbatimFormatted></Document>}
-);
-ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\nquux\n"),
- qq{<Document><VerbatimFormatted\nxml:space="preserve"> foo bar baz\nquux</VerbatimFormatted></Document>}
-);
-
-print "# Contiguous verbatims...\n";
-ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n\n quux\n"),
- qq{<Document><VerbatimFormatted\nxml:space="preserve"> foo bar baz\n\n quux</VerbatimFormatted></Document>}
-);
-ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n\n\n quux\n"),
- qq{<Document><VerbatimFormatted\nxml:space="preserve"> foo bar baz\n\n\n quux</VerbatimFormatted></Document>}
-);
-
-print "# Testing =cut...\n";
-ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n=cut\n quux\n"),
- qq{<Document><VerbatimFormatted\nxml:space="preserve"> foo bar baz</VerbatimFormatted></Document>}
-);
-
-
-
-
-# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
-
-{
-my $it =
-qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz</Verbatim><head1>Foo</head1><Verbatim\nxml:space="preserve"> quux\nquum</Verbatim></Document>}
-;
-
-
-print "# Various \\n-(in)significance sanity checks...\n";
-
-print "# verbatim/cut/head/verbatim sanity zero...\n";
-
-ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n=cut\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n=cut\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-
-print "# verbatim/cut/head/verbatim sanity one...\n";
-
-ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n=cut\n\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n\n=cut\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n\n=cut\n\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it);
-
-print "# verbatim/cut/head/verbatim sanity two...\n";
-
-ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n=cut\n\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n\n=cut\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n\n=cut\n\n\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-
-print "# verbatim/cut/head/verbatim sanity three...\n";
-
-ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n\n=cut\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-
-print "# verbatim/cut/head/verbatim sanity four...\n";
-
-ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n\n\n\n\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n\n\n\n\n\n=cut\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out(\&without_vf, "\n=pod\n\n foo bar baz\n\n\n\n\n\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-
-}
-
-
-# : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : :
-
-print "#\n# Now retesting with VerbatimFormatted...\n";
-
-{
-my $it =
-qq{<Document><VerbatimFormatted\nxml:space="preserve"> foo bar baz</VerbatimFormatted><head1>Foo</head1><VerbatimFormatted\nxml:space="preserve"> quux\nquum</VerbatimFormatted></Document>}
-;
-
-
-print "# Various \\n-(in)significance sanity checks...\n";
-
-print "# verbatim/cut/head/verbatim sanity zero...\n";
-
-ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n=cut\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n=cut\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-
-print "# verbatim/cut/head/verbatim sanity one...\n";
-
-ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n=cut\n\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n\n=cut\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n\n=cut\n\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it);
-
-print "# verbatim/cut/head/verbatim sanity two...\n";
-
-ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n=cut\n\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n\n=cut\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n\n=cut\n\n\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-
-print "# verbatim/cut/head/verbatim sanity three...\n";
-
-ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n\n=cut\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-
-print "# verbatim/cut/head/verbatim sanity four...\n";
-
-ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n\n\n\n\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n\n\n\n\n\n=cut\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out(\&with_vf, "\n=pod\n\n foo bar baz\n\n\n\n\n\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-
-}
-
-
-
-print "# Wrapping up... one for the road...\n";
-ok 1;
-print "# --- Done with ", __FILE__, " --- \n";
-
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/verbatim.t b/3.8.8/sources/cpan-Pod-Simple/vendor/t/verbatim.t
deleted file mode 100644
index 299356b..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/verbatim.t
+++ /dev/null
@@ -1,363 +0,0 @@
-# Testing verbatim sections
-use strict;
-use Test;
-BEGIN { plan tests => 31 };
-
-#use Pod::Simple::Debug (6);
-
-ok 1;
-
-use Pod::Simple::DumpAsXML;
-use Pod::Simple::XMLOutStream;
-print "# Pod::Simple version $Pod::Simple::VERSION\n";
-sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
-
-&ok( e "", "" );
-&ok( e "\n", "", );
-
-
-
-
-&ok( e "\n=pod\n\n foo bar baz", "\n=pod\n\n foo bar baz" );
-&ok( e "\n=pod\n\n foo bar baz", "\n=pod\n\n foo bar baz\n" );
-
-
-ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n"),
- qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz</Verbatim></Document>}
-);
-ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n quux\n"),
- qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz\n quux</Verbatim></Document>}
-);
-ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\nquux\n"),
- qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz\nquux</Verbatim></Document>}
-);
-
-print "# Contiguous verbatims...\n";
-ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n quux\n"),
- qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz\n\n quux</Verbatim></Document>}
-);
-ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n\n quux\n"),
- qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz\n\n\n quux</Verbatim></Document>}
-);
-
-print "# Testing =cut...\n";
-ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n=cut\n quux\n"),
- qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz</Verbatim></Document>}
-);
-
-
-# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
-
-{
-my $it =
-qq{<Document><Verbatim\nxml:space="preserve"> foo bar baz</Verbatim><head1>Foo</head1><Verbatim\nxml:space="preserve"> quux\nquum</Verbatim></Document>}
-;
-
-
-print "# Various \\n-(in)significance sanity checks...\n";
-
-print "# verbatim/cut/head/verbatim sanity zero...\n";
-
-ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n=cut\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n=cut\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-
-print "# verbatim/cut/head/verbatim sanity one...\n";
-
-ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n=cut\n\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n=cut\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n=cut\n\nsome code here...\n=head1 Foo\n\n quux\nquum\n"), $it);
-
-print "# verbatim/cut/head/verbatim sanity two...\n";
-
-ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n=cut\n\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n=cut\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n=cut\n\n\nsome code here...\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-
-print "# verbatim/cut/head/verbatim sanity three...\n";
-
-ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n=cut\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-
-print "# verbatim/cut/head/verbatim sanity four...\n";
-
-ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n\n\n\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n\n\n\n\n=cut\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-ok( Pod::Simple::XMLOutStream->_out("\n=pod\n\n foo bar baz\n\n\n\n\n\n=cut\n\nsome code here...\n\n\n=head1 Foo\n\n quux\nquum\n"), $it);
-
-}
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-print "# Testing tab expansion...\n";
-
-&ok( e
-q{=pod
-
- here we go now
-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
-},
-q{=pod
-
- here we go now
-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
-},
-);
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-&ok( e
-q{=pod
-
- here we go now
-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
-},
-q{=pod
-
- here we go now
-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
-},
-);
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-&ok( e
-q{=pod
-
- here we go now
-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
-},
-q{=pod
-
- here we go now
-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
-},
-);
-
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-&ok( e
-q{=pod
-
- here we go now
-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
-},
-q{=pod
-
- here we go now
-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
-},
-);
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-# TODO: long-line splitting?
-
-
-print "# Wrapping up... one for the road...\n";
-ok 1;
-print "# --- Done with ", __FILE__, " --- \n";
-
-
diff --git a/3.8.8/sources/cpan-Pod-Simple/vendor/t/x_nixer.t b/3.8.8/sources/cpan-Pod-Simple/vendor/t/x_nixer.t
deleted file mode 100644
index 488b72c..0000000
--- a/3.8.8/sources/cpan-Pod-Simple/vendor/t/x_nixer.t
+++ /dev/null
@@ -1,218 +0,0 @@
-
-
-use strict;
-use Test;
-BEGIN { plan tests => 11 };
-
-my $d;
-#use Pod::Simple::Debug (\$d, 0);
-
-ok 1;
-
-use Pod::Simple::XMLOutStream;
-use Pod::Simple::DumpAsXML;
-
-
-$Pod::Simple::XMLOutStream::ATTR_PAD = ' ';
-$Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output
-
-
-print "# A simple sanity test...\n";
-ok( Pod::Simple::XMLOutStream->_out("=pod\n\nZ<>F<C<Z<>fE<111>o> I<bar>> B<stuff X<thingZ<>>baz>\n"),
- '<Document><Para><F><C>foo</C> <I>bar</I></F> <B>stuff <X>thing</X>baz</B></Para></Document>'
-);
-
-print "# With lots of nesting, and Z's...\n";
-ok( Pod::Simple::XMLOutStream->_out("=pod\n\nZ<>F<C<Z<>fE<111>o> I<bar>> B<stuff X<thingZ<>>baz>\n"),
- '<Document><Para><F><C>foo</C> <I>bar</I></F> <B>stuff <X>thing</X>baz</B></Para></Document>'
-);
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-sub mergy {$_[0]->merge_text(1)}
-sub nixy {$_[0]->nix_X_codes(1)}
-sub nixy_mergy {$_[0]->merge_text(1); $_[0]->nix_X_codes(1);}
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-print "# With no F/X\n";
-
-ok( Pod::Simple::DumpAsXML->_out( "=pod\n\nZ<>F<C<Z<>fE<111>o> I<bar>> B<stuff X<thingZ<>>baz>\n"),
- join "\n",
-
- '<Document>',
- ' <Para>',
- ' <F>',
- ' <C>',
- ' f',
- ' o',
- ' o',
- ' </C>',
- ' ',
- ' <I>',
- ' bar',
- ' </I>',
- ' </F>',
- ' ',
- ' <B>',
- ' stuff ',
- ' <X>',
- ' thing',
- ' </X>',
- ' baz',
- ' </B>',
- ' </Para>',
- '</Document>',
- '',
-);
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-print "# with just X-nixing...\n";
-
-ok( Pod::Simple::DumpAsXML->_out( \&nixy, "=pod\n\nZ<>F<C<Z<>fE<111>o> I<bar>> B<stuff X<thingZ<>>baz>\n"),
- join "\n",
-
- '<Document>',
- ' <Para>',
- ' <F>',
- ' <C>',
- ' f',
- ' o',
- ' o',
- ' </C>',
- ' ',
- ' <I>',
- ' bar',
- ' </I>',
- ' </F>',
- ' ',
- ' <B>',
- ' stuff ',
- ' baz',
- ' </B>',
- ' </Para>',
- '</Document>',
- '',
-);
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-print "# With merging...\n";
-
-ok( Pod::Simple::DumpAsXML->_out( \&mergy, "=pod\n\nZ<>F<C<Z<>fE<111>o> I<bar>> B<stuff X<thingZ<>>baz>\n"),
- join "\n",
-
- '<Document>',
- ' <Para>',
- ' <F>',
- ' <C>',
- ' foo',
- ' </C>',
- ' ',
- ' <I>',
- ' bar',
- ' </I>',
- ' </F>',
- ' ',
- ' <B>',
- ' stuff ',
- ' <X>',
- ' thing',
- ' </X>',
- ' baz',
- ' </B>',
- ' </Para>',
- '</Document>',
- '',
-);
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-print "# With nixing and merging...\n";
-#$d = 10;
-ok( Pod::Simple::DumpAsXML->_out( \&nixy_mergy, "=pod\n\nZ<>F<C<Z<>fE<111>o> I<bar>> B<stuff X<thingZ<>>baz>\n"),
- join "\n",
-
- '<Document>',
- ' <Para>',
- ' <F>',
- ' <C>',
- ' foo',
- ' </C>',
- ' ',
- ' <I>',
- ' bar',
- ' </I>',
- ' </F>',
- ' ',
- ' <B>',
- ' stuff baz',
- ' </B>',
- ' </Para>',
- '</Document>',
- '',
-);
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-# Now the scary bits... with L's!
-print "# A wee L<...> sanity test...\n";
-ok( Pod::Simple::XMLOutStream->_out(qq{=pod\n\nL<E<78>et::Ping/Ping-E<112>ong>\n}),
- '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>'
-);
-print "# Now a wee L<...> with mergy...\n";
-
-$d = 10;
-
-ok( Pod::Simple::DumpAsXML->_out(\&mergy, qq{=pod\n\nL<E<78>et::Ping/Ping-E<112>ong>\n}),
- join "\n",
-
- '<Document>',
- ' <Para>',
- ' <L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">',
- ' "Ping-pong" in Net::Ping',
- ' </L>',
- ' </Para>',
- '</Document>',
- ''
-);
-
-
-print "# Now a complex tree with L's, with nixy+mergy...\n";
-
-ok( Pod::Simple::DumpAsXML->_out( \&nixy_mergy, "=pod\n\nZ<>F<C<Z<>fE<111>L<E<78>et::Ping/Ping-E<112>ong>o> I<bar>> B<stuff X<thingZ<>>baz>\n"),
- join "\n",
-
- '<Document>',
- ' <Para>',
- ' <F>',
- ' <C>',
- ' fo',
- ' <L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">',
- ' "Ping-pong" in Net::Ping',
- ' </L>',
- ' o',
- ' </C>',
- ' ',
- ' <I>',
- ' bar',
- ' </I>',
- ' </F>',
- ' ',
- ' <B>',
- ' stuff baz',
- ' </B>',
- ' </Para>',
- '</Document>',
- '',
-);
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-
-
-print "# Wrapping up... one for the road...\n";
-ok 1;
-print "# --- Done with ", __FILE__, " --- \n";
-
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/Changes b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/Changes
deleted file mode 100644
index 552a95a..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/Changes
+++ /dev/null
@@ -1,390 +0,0 @@
-1.23 -- Wed Mar 10 20:50:00 CST 2010
-
- * Add a test file to ensure 'GETMAGIC' called once [gfx]
- * "GETMAGIC" should be called only once [gfx]
- * Use PERL_NO_GET_CONTEXT for efficiency (see perlguts) [gfx]
- * Don't care about dVAR. ExtUtils::ParseXS deals with it. [gfx]
- * t/p_max.t, t/p_min.t fail on perl5.8.1. [tokuhirom]
- * avoid non-portable warnings
- * Fix PP::reftype in edge cases [gfx]
-
-1.22 -- Sat Nov 14 09:26:15 CST 2009
-
- * silence a compiler warning about an unreferenced local variable [Steve Hay]
- * RT#51484 Preserve utf8 flag of string passed to dualvar()
- * RT#51454 Check first argument to first/reduce is a code reference
- * RT#50528 [PATCH] p_tainted.t fix for VMS [Craig A. Berry]
- * RT#48550 fix pure perl looks_like_number not to match non-ascii digits
-
-1.21 -- Mon May 18 10:32:14 CDT 2009
-
- * Change build system for perl-only install not to need to modify blib
- * When building inside perl, tests for weaken should be always run (Alexandr Ciornii)
-
-1.20 -- Wed May 13 16:42:53 CDT 2009
-
-*** NOTE***
-This distribution now requires perl 5.6 or greater
-
-Bug Fixes
- * Fixed stack pop issue in POP_MULTICALL
- * Fixed error reporting in import when XS not compiled
- * Check first argument to reduce is a CODE reference to avoid segfault
- * Handle overloaded and tied values
- * Fix tainted test to run on Win32
-
-Enhancements
- * Added List::Util::XS so authors can depend on XS version
- * Removed need for dummy methods in UNIVERSAL for perl-only code
-
-
-1.19 -- Sun Dec 10 09:58:03 CST 2006
-
-Bug Fixes
- * Fix invalid conversion from `const char*' to `char*' warnings
- * Avoid Makefile error when building on Win32
- * Fix undefined symbol error for perl < 5.9.0
- * Fix hardcoded "/" in a filepath that causes p_tainted.t to fail on VMS
-
-Documentation
- * Document that reduce calls BLOCK in a scalar context
- * Add SEE ALSO sections to docs
-
-Enhancements
- * A new regression test for readonly, taking a reference to a constant passed to a sub
-
-1.18 -- Fri Nov 25 09:30:29 CST 2005
-
-Bug Fixes
- * Fix pure-perl version of refaddr to avoid blessing an un-blessed reference
- * Fix memory leak in first() and reduce()
- * Pure perl version of looks_like_number now matches XS version for
- references and undef. It will now return undef
-
-Enhancements
- * Support for using XSLoader instead of DynaLoader
- * Use new multicall API
-
-1.17 -- Mon May 23 08:55:26 CDT 2005
-
-Bug Fixes
- * Update XS code to declare PERL_UNUSED_DECL conditionally
-
-1.16 -- Fri May 20 10:22:49 CDT 2005
-
-Bug Fixes
- * Change to refaddr.t test to avoid false errors on some 64 bit platforms
- * Fix all perl only tests to work when in the core build environment
- * Fix looks like number test to work for 5.8.5 and above
-
-1.15 -- Fri May 13 11:01:15 CDT 2005
-
-Bug Fixes
- * Fixed memory leak in first()
-
-Enhancements
- * Converted tests to use Test::More
- * Improved test coverage
- * Changed Makefile.PL to use Module::Install
- * Refactor use of Sv..X() macros to be Sv.._set()
- * Changes from Jarkko for Symbian port of Perl
- * Documentation updates to weaken()
-
-1.14 -- Sat May 22 08:01:19 BST 2004
-
-Bug Fixes
- * Fixed memory leak in reduce()
- * Added tests to check passing a reference to a constant to weaken() in perl >= 5.008003
- * Fixed looks_like_number(undef) to return false for perl >= 5.009002
- * Fixed bug in refaddr() when passed a tied variable
-
-Switch to svn repository at http://svn.mutatus.co.uk/wsvn/Scalar-List-Utils/trunk/
-Old perforce revision log below
-
-Change 827 on 2003/09/25 by <gbarr at pobox.com> (Graham Barr)
-
- Release 1.13
-
-Change 826 on 2003/09/25 by <gbarr at pobox.com> (Graham Barr)
-
- Fix NV casting issue with some compilers
-
-Change 825 on 2003/08/14 by <gbarr at pobox.com> (Graham Barr)
-
- Release 1.12
-
-Change 824 on 2003/08/14 by <gbarr at pobox.com> (Graham Barr)
-
- Don't directly use the SV returned as $a in the next iteration,
- take a copy instead. Fixes problem if the code block result was from
- an eval or sub call
-
-Change 823 on 2003/08/14 by <gbarr at pobox.com> (Graham Barr)
-
- Install into the 'perl' installdirs for >= 5.008
-
-Change 822 on 2003/08/14 by <gbarr at pobox.com> (Graham Barr)
-
- Fix test for EBCDIC portability
-
-Change 771 on 2003/03/03 by <gbarr at pobox.com> (Graham Barr)
-
- Get path for make from $Config
-
-Change 770 on 2003/02/14 by <gbarr at pobox.com> (Graham Barr)
-
- Release 1.11
-
-Change 769 on 2003/02/14 by <gbarr at pobox.com> (Graham Barr)
-
- Add t/proto.t to MANIFEST
-
-Change 768 on 2003/02/14 by <gbarr at pobox.com> (Graham Barr)
-
- Add set_prototype from Rafael Garcia-Suarez
-
-Change 767 on 2003/02/14 by <gbarr at pobox.com> (Graham Barr)
-
- Fix t/isvstring.t so it does not cause perl5.004 to segv
- because of the exit from within BEGIN
-
-Change 766 on 2003/02/14 by <gbarr at pobox.com> (Graham Barr)
-
- Change how patchlevel.h is included and check we got what we wanted (from Jarkko)
-
-Change 765 on 2003/02/14 by <gbarr at pobox.com> (Graham Barr)
-
- Add -DPERL_EXT to DEFINEs, requested by Jarkko for 5.8.1
-
-Change 764 on 2003/02/04 by <gbarr at pobox.com> (Graham Barr)
-
- Release 1.10
-
-Change 763 on 2003/02/04 by <gbarr at pobox.com> (Graham Barr)
-
- Fix linking error for older perls
-
-Change 762 on 2003/02/04 by <gbarr at pobox.com> (Graham Barr)
-
- Make lln tests and perl implementation mimic changes to looks_like_number
- in different perl versions
-
-Change 761 on 2003/02/04 by <gbarr at pobox.com> (Graham Barr)
-
- Add looks_like_number
-
-Change 760 on 2003/02/04 by <gbarr at pobox.com> (Graham Barr)
-
- Ensure PERL_DL_NONLAZY is false so we don't catch link errors during
- bootstrap and then test the perl only version
-
-Change 759 on 2002/12/12 by <gbarr at pobox.com> (Graham Barr)
-
- Release 1.09
-
-Change 758 on 2002/12/12 by <gbarr at pobox.com> (Graham Barr)
-
- Use UV to return refaddr
-
-Change 757 on 2002/11/03 by <gbarr at pobox.com> (Graham Barr)
-
- Add XS_VERSION
-
-Change 756 on 2002/11/03 by <gbarr at pobox.com> (Graham Barr)
-
- Use PAD_* macros in 5.9
- Reuse our own target when calling pp_rand in shuffle() so we dont need to create a fake pad
-
-Change 751 on 2002/10/18 by <gbarr at pobox.com> (Graham Barr)
-
- Fix context so that sub for reduce/first is always in a scalar context
- Fix sum/min/max so that they don't upgrade their arguments to NVs
- if they are IV or UV
-
-Change 750 on 2002/10/14 by <gbarr at pobox.com> (Graham Barr)
-
- Add isvstring()
-
-Change 745 on 2002/09/23 by <gbarr at pobox.com> (Graham Barr)
-
- Scalar::Util
- - Add refaddr()
-
-Change 722 on 2002/04/29 by <gbarr at pobox.com> (Graham Barr)
-
- Release 1.0701
-
-Change 721 on 2002/04/29 by <gbarr at pobox.com> (Graham Barr)
-
- Add comment to README about failing tests on perl5.6.0
-
-Change 714 on 2002/03/18 by <gbarr at pobox.com> (Graham Barr)
-
- Release 1.07
-
-Change 713 on 2002/03/18 by <gbarr at pobox.com> (Graham Barr)
-
- Add Scalar::Util::openhandle()
-
-Change 647 on 2001/09/18 by <gbarr at pobox.com> (Graham Barr)
-
- Release 1.06
-
-Change 645 on 2001/09/07 by <gbarr at pobox.com> (Graham Barr)
-
- Some platforms require the main executable to export symbols
- needed by modules. In 5.7.2 and prior releases of perl
- Perl_cxinc was not exported so we need to duplicate its
- functionality
-
-Change 644 on 2001/09/07 by <gbarr at pobox.com> (Graham Barr)
-
- Generate a typemap for NV for all perl version up to and
- including 5.006
-
-Change 643 on 2001/09/07 by <gbarr at pobox.com> (Graham Barr)
-
- Document problems known with specific versions of perl
-
-Change 642 on 2001/09/05 by <gbarr at pobox.com> (Graham Barr)
-
- Release 1.05
-
-Change 641 on 2001/09/05 by <gbarr at pobox.com> (Graham Barr)
-
- Fix shuffle() to compile with threaded perl
-
-Change 640 on 2001/09/05 by <gbarr at pobox.com> (Graham Barr)
-
- Release 1.04
-
-Change 639 on 2001/09/05 by <gbarr at pobox.com> (Graham Barr)
-
- Fix context type (caused a core on Tru64)
- Call pp_rand via *(PL_ppaddr[OP_RAND])
-
-Change 638 on 2001/09/05 by <gbarr at pobox.com> (Graham Barr)
-
- Documentation updates
-
-Change 637 on 2001/09/03 by <gbarr at pobox.com> (Graham Barr)
-
- Release 1.03
-
-Change 636 on 2001/09/03 by <gbarr at pobox.com> (Graham Barr)
-
- More changes to help merging with core dist
-
-Change 635 on 2001/09/03 by <gbarr at pobox.com> (Graham Barr)
-
- Added List::Util::shuffle() similar to that described in
- the perl FAQ except it returns a shuffled list instead of
- modifying an array passed by reference
-
-Change 632 on 2001/09/03 by <gbarr at pobox.com> (Graham Barr)
-
- Handle tied variables passed for the number to dualvar()
- Preserve number type (IV/UV/NV) in dualvar()
-
-Change 631 on 2001/08/31 by <gbarr at pobox.com> (Graham Barr)
-
- Handle eval{} inside of the code blocks for first and reduce
-
-Change 629 on 2001/08/22 by <gbarr at pobox.com> (Graham Barr)
-
- perl5.004 does not like exit from within a BEGIN, it core dumps
-
-Change 628 on 2001/08/22 by <gbarr at pobox.com> (Graham Barr)
-
- Fix stack problem in first() and reduce()
- Align with core dist
-
-Change 483 on 2000/04/10 by <gbarr at pobox.com> (Graham Barr)
-
- Release 1.02
-
-Change 482 on 2000/04/10 by <gbarr at pobox.com> (Graham Barr)
-
- Check for SvMAGICAL on argument for reftype and blessed
-
-Change 366 on 2000/03/03 by <gbarr at pobox.com> (Graham Barr)
-
- Release 1.01
-
-Change 365 on 2000/03/03 by <gbarr at pobox.com> (Graham Barr)
-
- - Added auto-detection for a compiler and install the perl version
- if not found
- - Better perl implemenation of reftype, should be thread-safe now
-
-Change 364 on 2000/03/03 by <gbarr at pobox.com> (Graham Barr)
-
- - Added some examples of simple subs that have been requested
- but not added
- - Updated copyright dates
-
-Change 344 on 1999/11/10 by <gbarr at pobox.com> (Graham Barr)
-
- - Better testcase for reftype
-
-Change 343 on 1999/11/10 by <gbarr at pobox.com> (Graham Barr)
-
- - Modules are now called List::Util & Scalar::Util
- - Supports non-XS install
- - perl version of reftype now returns "REF" when it should
-
-Change 311 on 1999/06/01 by <gbarr at pobox.com> (Graham Barr)
-
- Updated README
-
-Change 275 on 1999/03/22 by <gbarr at pobox.com> (Graham Barr)
-
- Removed forall as it is very broken
-
-Change 274 on 1999/03/22 by <gbarr at pobox.com> (Graham Barr)
-
- Added List::Util::forall
-
-Change 273 on 1999/03/21 by <gbarr at pobox.com> (Graham Barr)
-
- Added weaken and isweak to Ref::Util
-
-Change 272 on 1999/03/21 by <gbarr at pobox.com> (Graham Barr)
-
- Add new .pm files to repository
-
-Change 271 on 1999/03/21 by <gbarr at pobox.com> (Graham Barr)
-
- - Split into three packages Ref::Util, List::Util and Scalar::DualVar
- - readonly and clock were removed in favor of other modules
-
-Change 270 on 1999/03/21 by <gbarr at pobox.com> (Graham Barr)
-
- Rename package
-
-Change 269 on 1999/03/21 by <gbarr at pobox.com> (Graham Barr)
-
- - Added reftype
- - improved reduce by not doing a sub call
- - reduce now uses $a and $b
- - now compiles with 5.005_5x
-
-Change 178 on 1998/07/26 by <gbarr at pobox.com> (Graham Barr)
-
- Modified XS code so it will compile with 5.004 and 5.005
-
-Change 115 on 1998/02/21 by <gbarr at pobox.com> (Graham Barr)
-
- Fri Feb 20 1998 Graham Barr <gbarr at pobox.com>
-
- t/min.t, t/max.t
- - Change sor to do a numerical sort
-
- Fri Dec 19 1997 Graham Barr <gbarr at pobox.com>
-
- - Added readonly()
-
- Wed Nov 19 1997 Graham Barr <gbarr at pobox.com>
-
- - Initial release
-
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/ListUtil.xs b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/ListUtil.xs
deleted file mode 100644
index 7da9b95..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/ListUtil.xs
+++ /dev/null
@@ -1,612 +0,0 @@
-/* Copyright (c) 1997-2000 Graham Barr <gbarr at 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.
- */
-#define PERL_NO_GET_CONTEXT /* we want efficiency */
-#include <EXTERN.h>
-#include <perl.h>
-#include <XSUB.h>
-
-#ifndef PERL_VERSION
-# include <patchlevel.h>
-# if !(defined(PERL_VERSION) || (SUBVERSION > 0 && defined(PATCHLEVEL)))
-# include <could_not_find_Perl_patchlevel.h>
-# endif
-# define PERL_REVISION 5
-# define PERL_VERSION PATCHLEVEL
-# define PERL_SUBVERSION SUBVERSION
-#endif
-
-#if PERL_VERSION >= 6
-# include "multicall.h"
-#endif
-
-#ifndef aTHX
-# define aTHX
-# define pTHX
-#endif
-/* Some platforms have strict exports. And before 5.7.3 cxinc (or Perl_cxinc)
- was not exported. Therefore platforms like win32, VMS etc have problems
- so we redefine it here -- GMB
-*/
-#if PERL_VERSION < 7
-/* Not in 5.6.1. */
-# define SvUOK(sv) SvIOK_UV(sv)
-# ifdef cxinc
-# undef cxinc
-# endif
-# define cxinc() my_cxinc(aTHX)
-static I32
-my_cxinc(pTHX)
-{
- cxstack_max = cxstack_max * 3 / 2;
- Renew(cxstack, cxstack_max + 1, struct context); /* XXX should fix CXINC macro */
- return cxstack_ix + 1;
-}
-#endif
-
-#if PERL_VERSION < 6
-# define NV double
-#endif
-
-#ifdef SVf_IVisUV
-# define slu_sv_value(sv) (SvIOK(sv)) ? (SvIOK_UV(sv)) ? (NV)(SvUVX(sv)) : (NV)(SvIVX(sv)) : (SvNV(sv))
-#else
-# define slu_sv_value(sv) (SvIOK(sv)) ? (NV)(SvIVX(sv)) : (SvNV(sv))
-#endif
-
-#ifndef Drand01
-# define Drand01() ((rand() & 0x7FFF) / (double) ((unsigned long)1 << 15))
-#endif
-
-#if PERL_VERSION < 5
-# ifndef gv_stashpvn
-# define gv_stashpvn(n,l,c) gv_stashpv(n,c)
-# endif
-# ifndef SvTAINTED
-
-static bool
-sv_tainted(pTHX_ SV *sv)
-{
- if (SvTYPE(sv) >= SVt_PVMG && SvMAGIC(sv)) {
- MAGIC *mg = mg_find(sv, 't');
- if (mg && ((mg->mg_len & 1) || (mg->mg_len & 2) && mg->mg_obj == sv))
- return TRUE;
- }
- return FALSE;
-}
-
-# define SvTAINTED_on(sv) sv_magic((sv), Nullsv, 't', Nullch, 0)
-# define SvTAINTED(sv) (SvMAGICAL(sv) && sv_tainted(aTHX_ sv))
-# endif
-# define PL_defgv defgv
-# define PL_op op
-# define PL_curpad curpad
-# define CALLRUNOPS runops
-# define PL_curpm curpm
-# define PL_sv_undef sv_undef
-# define PERL_CONTEXT struct context
-#endif
-#if (PERL_VERSION < 5) || (PERL_VERSION == 5 && PERL_SUBVERSION <50)
-# ifndef PL_tainting
-# define PL_tainting tainting
-# endif
-# ifndef PL_stack_base
-# define PL_stack_base stack_base
-# endif
-# ifndef PL_stack_sp
-# define PL_stack_sp stack_sp
-# endif
-# ifndef PL_ppaddr
-# define PL_ppaddr ppaddr
-# endif
-#endif
-
-#ifndef PTR2UV
-# define PTR2UV(ptr) (UV)(ptr)
-#endif
-
-#ifndef SvUV_set
-# define SvUV_set(sv, val) (((XPVUV*)SvANY(sv))->xuv_uv = (val))
-#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 dNOOP
-#define dNOOP extern int Perl___notused PERL_UNUSED_DECL
-#endif
-
-#ifndef GvSVn
-# define GvSVn GvSV
-#endif
-
-MODULE=List::Util PACKAGE=List::Util
-
-void
-min(...)
-PROTOTYPE: @
-ALIAS:
- min = 0
- max = 1
-CODE:
-{
- int index;
- NV retval;
- SV *retsv;
- int magic;
- if(!items) {
- XSRETURN_UNDEF;
- }
- retsv = ST(0);
- magic = SvAMAGIC(retsv);
- if (!magic) {
- retval = slu_sv_value(retsv);
- }
- for(index = 1 ; index < items ; index++) {
- SV *stacksv = ST(index);
- SV *tmpsv;
- if ((magic || SvAMAGIC(stacksv)) && (tmpsv = amagic_call(retsv, stacksv, gt_amg, 0))) {
- if (SvTRUE(tmpsv) ? !ix : ix) {
- retsv = stacksv;
- magic = SvAMAGIC(retsv);
- if (!magic) {
- retval = slu_sv_value(retsv);
- }
- }
- }
- else {
- NV val = slu_sv_value(stacksv);
- if (magic) {
- retval = slu_sv_value(retsv);
- magic = 0;
- }
- if(val < retval ? !ix : ix) {
- retsv = stacksv;
- retval = val;
- }
- }
- }
- ST(0) = retsv;
- XSRETURN(1);
-}
-
-
-
-void
-sum(...)
-PROTOTYPE: @
-CODE:
-{
- SV *sv;
- SV *retsv = NULL;
- int index;
- NV retval = 0;
- if(!items) {
- XSRETURN_UNDEF;
- }
- sv = ST(0);
- if (SvAMAGIC(sv)) {
- retsv = sv_newmortal();
- sv_setsv(retsv, sv);
- }
- else {
- retval = slu_sv_value(sv);
- }
- for(index = 1 ; index < items ; index++) {
- sv = ST(index);
- if (retsv || SvAMAGIC(sv)) {
- if (!retsv) {
- retsv = sv_newmortal();
- sv_setnv(retsv,retval);
- }
- if (!amagic_call(retsv, sv, add_amg, AMGf_assign)) {
- sv_setnv(retsv, SvNV(retsv) + SvNV(sv));
- }
- }
- else {
- retval += slu_sv_value(sv);
- }
- }
- if (!retsv) {
- retsv = sv_newmortal();
- sv_setnv(retsv,retval);
- }
- ST(0) = retsv;
- XSRETURN(1);
-}
-
-
-void
-minstr(...)
-PROTOTYPE: @
-ALIAS:
- minstr = 2
- maxstr = 0
-CODE:
-{
- SV *left;
- int index;
- if(!items) {
- XSRETURN_UNDEF;
- }
- /*
- sv_cmp & sv_cmp_locale return 1,0,-1 for gt,eq,lt
- so we set ix to the value we are looking for
- xsubpp does not allow -ve values, so we start with 0,2 and subtract 1
- */
- ix -= 1;
- left = ST(0);
-#ifdef OPpLOCALE
- if(MAXARG & OPpLOCALE) {
- for(index = 1 ; index < items ; index++) {
- SV *right = ST(index);
- if(sv_cmp_locale(left, right) == ix)
- left = right;
- }
- }
- else {
-#endif
- for(index = 1 ; index < items ; index++) {
- SV *right = ST(index);
- if(sv_cmp(left, right) == ix)
- left = right;
- }
-#ifdef OPpLOCALE
- }
-#endif
- ST(0) = left;
- XSRETURN(1);
-}
-
-
-
-#ifdef dMULTICALL
-
-void
-reduce(block,...)
- SV * block
-PROTOTYPE: &@
-CODE:
-{
- dMULTICALL;
- SV *ret = sv_newmortal();
- int index;
- GV *agv,*bgv,*gv;
- HV *stash;
- I32 gimme = G_SCALAR;
- SV **args = &PL_stack_base[ax];
- CV *cv;
-
- if(items <= 1) {
- XSRETURN_UNDEF;
- }
- cv = sv_2cv(block, &stash, &gv, 0);
- if (cv == Nullcv) {
- croak("Not a subroutine reference");
- }
- PUSH_MULTICALL(cv);
- agv = gv_fetchpv("a", TRUE, SVt_PV);
- bgv = gv_fetchpv("b", TRUE, SVt_PV);
- SAVESPTR(GvSV(agv));
- SAVESPTR(GvSV(bgv));
- GvSV(agv) = ret;
- SvSetSV(ret, args[1]);
- for(index = 2 ; index < items ; index++) {
- GvSV(bgv) = args[index];
- MULTICALL;
- SvSetSV(ret, *PL_stack_sp);
- }
- POP_MULTICALL;
- ST(0) = ret;
- XSRETURN(1);
-}
-
-void
-first(block,...)
- SV * block
-PROTOTYPE: &@
-CODE:
-{
- dMULTICALL;
- int index;
- GV *gv;
- HV *stash;
- I32 gimme = G_SCALAR;
- SV **args = &PL_stack_base[ax];
- CV *cv;
-
- if(items <= 1) {
- XSRETURN_UNDEF;
- }
- cv = sv_2cv(block, &stash, &gv, 0);
- if (cv == Nullcv) {
- croak("Not a subroutine reference");
- }
- PUSH_MULTICALL(cv);
- SAVESPTR(GvSV(PL_defgv));
-
- for(index = 1 ; index < items ; index++) {
- GvSV(PL_defgv) = args[index];
- MULTICALL;
- if (SvTRUE(*PL_stack_sp)) {
- POP_MULTICALL;
- ST(0) = ST(index);
- XSRETURN(1);
- }
- }
- POP_MULTICALL;
- XSRETURN_UNDEF;
-}
-
-#endif
-
-void
-shuffle(...)
-PROTOTYPE: @
-CODE:
-{
- int index;
-#if (PERL_VERSION < 9)
- struct op dmy_op;
- struct op *old_op = PL_op;
-
- /* We call pp_rand here so that Drand01 get initialized if rand()
- or srand() has not already been called
- */
- memzero((char*)(&dmy_op), sizeof(struct op));
- /* we let pp_rand() borrow the TARG allocated for this XS sub */
- dmy_op.op_targ = PL_op->op_targ;
- PL_op = &dmy_op;
- (void)*(PL_ppaddr[OP_RAND])(aTHX);
- PL_op = old_op;
-#else
- /* Initialize Drand01 if rand() or srand() has
- not already been called
- */
- if (!PL_srand_called) {
- (void)seedDrand01((Rand_seed_t)Perl_seed(aTHX));
- PL_srand_called = TRUE;
- }
-#endif
-
- for (index = items ; index > 1 ; ) {
- int swap = (int)(Drand01() * (double)(index--));
- SV *tmp = ST(swap);
- ST(swap) = ST(index);
- ST(index) = tmp;
- }
- XSRETURN(items);
-}
-
-
-MODULE=List::Util PACKAGE=Scalar::Util
-
-void
-dualvar(num,str)
- SV * num
- SV * str
-PROTOTYPE: $$
-CODE:
-{
- STRLEN len;
- char *ptr = SvPV(str,len);
- ST(0) = sv_newmortal();
- (void)SvUPGRADE(ST(0),SVt_PVNV);
- sv_setpvn(ST(0),ptr,len);
- if (SvUTF8(str))
- SvUTF8_on(ST(0));
- if(SvNOK(num) || SvPOK(num) || SvMAGICAL(num)) {
- SvNV_set(ST(0), SvNV(num));
- SvNOK_on(ST(0));
- }
-#ifdef SVf_IVisUV
- else if (SvUOK(num)) {
- SvUV_set(ST(0), SvUV(num));
- SvIOK_on(ST(0));
- SvIsUV_on(ST(0));
- }
-#endif
- else {
- SvIV_set(ST(0), SvIV(num));
- SvIOK_on(ST(0));
- }
- if(PL_tainting && (SvTAINTED(num) || SvTAINTED(str)))
- SvTAINTED_on(ST(0));
- XSRETURN(1);
-}
-
-char *
-blessed(sv)
- SV * sv
-PROTOTYPE: $
-CODE:
-{
- if (SvMAGICAL(sv))
- mg_get(sv);
- if(!(SvROK(sv) && SvOBJECT(SvRV(sv)))) {
- XSRETURN_UNDEF;
- }
- RETVAL = (char*)sv_reftype(SvRV(sv),TRUE);
-}
-OUTPUT:
- RETVAL
-
-char *
-reftype(sv)
- SV * sv
-PROTOTYPE: $
-CODE:
-{
- if (SvMAGICAL(sv))
- mg_get(sv);
- if(!SvROK(sv)) {
- XSRETURN_UNDEF;
- }
- RETVAL = (char*)sv_reftype(SvRV(sv),FALSE);
-}
-OUTPUT:
- RETVAL
-
-UV
-refaddr(sv)
- SV * sv
-PROTOTYPE: $
-CODE:
-{
- if (SvMAGICAL(sv))
- mg_get(sv);
- if(!SvROK(sv)) {
- XSRETURN_UNDEF;
- }
- RETVAL = PTR2UV(SvRV(sv));
-}
-OUTPUT:
- RETVAL
-
-void
-weaken(sv)
- SV *sv
-PROTOTYPE: $
-CODE:
-#ifdef SvWEAKREF
- sv_rvweaken(sv);
-#else
- croak("weak references are not implemented in this release of perl");
-#endif
-
-void
-isweak(sv)
- SV *sv
-PROTOTYPE: $
-CODE:
-#ifdef SvWEAKREF
- ST(0) = boolSV(SvROK(sv) && SvWEAKREF(sv));
- XSRETURN(1);
-#else
- croak("weak references are not implemented in this release of perl");
-#endif
-
-int
-readonly(sv)
- SV *sv
-PROTOTYPE: $
-CODE:
- RETVAL = SvREADONLY(sv);
-OUTPUT:
- RETVAL
-
-int
-tainted(sv)
- SV *sv
-PROTOTYPE: $
-CODE:
- RETVAL = SvTAINTED(sv);
-OUTPUT:
- RETVAL
-
-void
-isvstring(sv)
- SV *sv
-PROTOTYPE: $
-CODE:
-#ifdef SvVOK
- ST(0) = boolSV(SvVOK(sv));
- XSRETURN(1);
-#else
- croak("vstrings are not implemented in this release of perl");
-#endif
-
-int
-looks_like_number(sv)
- SV *sv
-PROTOTYPE: $
-CODE:
- SV *tempsv;
- if (SvAMAGIC(sv) && (tempsv = AMG_CALLun(sv, numer))) {
- sv = tempsv;
- }
- else if (SvMAGICAL(sv)) {
- SvGETMAGIC(sv);
- }
-#if (PERL_VERSION < 8) || (PERL_VERSION == 8 && PERL_SUBVERSION <5)
- if (SvPOK(sv) || SvPOKp(sv)) {
- RETVAL = looks_like_number(sv);
- }
- else {
- RETVAL = SvFLAGS(sv) & (SVf_NOK|SVp_NOK|SVf_IOK|SVp_IOK);
- }
-#else
- RETVAL = looks_like_number(sv);
-#endif
-OUTPUT:
- RETVAL
-
-void
-set_prototype(subref, proto)
- SV *subref
- SV *proto
-PROTOTYPE: &$
-CODE:
-{
- if (SvROK(subref)) {
- SV *sv = SvRV(subref);
- if (SvTYPE(sv) != SVt_PVCV) {
- /* not a subroutine reference */
- croak("set_prototype: not a subroutine reference");
- }
- if (SvPOK(proto)) {
- /* set the prototype */
- STRLEN len;
- char *ptr = SvPV(proto, len);
- sv_setpvn(sv, ptr, len);
- }
- else {
- /* delete the prototype */
- SvPOK_off(sv);
- }
- }
- else {
- croak("set_prototype: not a reference");
- }
- XSRETURN(1);
-}
-
-BOOT:
-{
- HV *lu_stash = gv_stashpvn("List::Util", 10, TRUE);
- GV *rmcgv = *(GV**)hv_fetch(lu_stash, "REAL_MULTICALL", 14, TRUE);
- SV *rmcsv;
-#if !defined(SvWEAKREF) || !defined(SvVOK)
- HV *su_stash = gv_stashpvn("Scalar::Util", 12, TRUE);
- GV *vargv = *(GV**)hv_fetch(su_stash, "EXPORT_FAIL", 11, TRUE);
- AV *varav;
- if (SvTYPE(vargv) != SVt_PVGV)
- gv_init(vargv, su_stash, "Scalar::Util", 12, TRUE);
- varav = GvAVn(vargv);
-#endif
- if (SvTYPE(rmcgv) != SVt_PVGV)
- gv_init(rmcgv, lu_stash, "List::Util", 12, TRUE);
- rmcsv = GvSVn(rmcgv);
-#ifndef SvWEAKREF
- av_push(varav, newSVpv("weaken",6));
- av_push(varav, newSVpv("isweak",6));
-#endif
-#ifndef SvVOK
- av_push(varav, newSVpv("isvstring",9));
-#endif
-#ifdef REAL_MULTICALL
- sv_setsv(rmcsv, &PL_sv_yes);
-#else
- sv_setsv(rmcsv, &PL_sv_no);
-#endif
-}
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/MANIFEST b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/MANIFEST
deleted file mode 100644
index 7af7300..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/MANIFEST
+++ /dev/null
@@ -1,52 +0,0 @@
-Changes
-lib/List/Util.pm
-lib/List/Util/PP.pm
-lib/List/Util/XS.pm
-lib/Scalar/Util.pm
-lib/Scalar/Util/PP.pm
-ListUtil.xs
-Makefile.PL
-MANIFEST This list of files
-multicall.h
-README
-t/00version.t
-t/blessed.t
-t/dualvar.t
-t/expfail.t
-t/first.t
-t/isvstring.t
-t/lln.t
-t/max.t
-t/maxstr.t
-t/min.t
-t/minstr.t
-t/openhan.t
-t/p_00version.t
-t/p_blessed.t
-t/p_first.t
-t/p_lln.t
-t/p_max.t
-t/p_maxstr.t
-t/p_min.t
-t/p_minstr.t
-t/p_openhan.t
-t/p_readonly.t
-t/p_reduce.t
-t/p_refaddr.t
-t/p_reftype.t
-t/p_shuffle.t
-t/p_sum.t
-t/p_tainted.t
-t/proto.t
-t/readonly.t
-t/reduce.t
-t/refaddr.t
-t/reftype.t
-t/shuffle.t
-t/stack-corruption.t
-t/sum.t
-t/tainted.t
-t/weak.t
-XS.pp
-META.yml Module meta-data (added by MakeMaker)
-SIGNATURE Public-key signature (added by MakeMaker)
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/META.yml b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/META.yml
deleted file mode 100644
index bf75d82..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/META.yml
+++ /dev/null
@@ -1,22 +0,0 @@
---- #YAML:1.0
-name: Scalar-List-Utils
-version: 1.23
-abstract: Common Scalar and List utility subroutines
-author:
- - Graham Barr <gbarr at cpan.org>
-license: perl
-distribution_type: module
-configure_requires:
- ExtUtils::MakeMaker: 0
-requires:
- Test::More: 0
-resources:
- repository: http://github.com/gbarr/Scalar-List-Utils
-no_index:
- directory:
- - t
- - inc
-generated_by: ExtUtils::MakeMaker version 6.48
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/Makefile.PL b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/Makefile.PL
deleted file mode 100644
index 1cba5ab..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/Makefile.PL
+++ /dev/null
@@ -1,86 +0,0 @@
-# -*- perl -*-
-BEGIN { require 5.006; } # allow CPAN testers to get the point
-use strict;
-use warnings;
-use Config;
-use File::Spec;
-use ExtUtils::MakeMaker;
-my $PERL_CORE = grep { $_ eq 'PERL_CORE=1' } @ARGV;
-
-my $do_xs = $PERL_CORE || can_cc();
-
-for (@ARGV) {
- /^-pm/ and $do_xs = 0;
- /^-xs/ and $do_xs = 1;
-}
-
-WriteMakefile(
- NAME => q[List::Util],
- ABSTRACT => q[Common Scalar and List utility subroutines],
- AUTHOR => q[Graham Barr <gbarr at cpan.org>],
- DEFINE => q[-DPERL_EXT],
- DISTNAME => q[Scalar-List-Utils],
- VERSION_FROM => 'lib/List/Util.pm',
-
- # We go through the ListUtil.xs trickery to foil platforms
- # that have the feature combination of
- # (1) static builds
- # (2) allowing only one object by the same name in the static library
- # (3) the object name matching being case-blind
- # This means that we can't have the top-level util.o
- # and the extension-level Util.o in the same build.
- # One such platform is the POSIX-BC BS2000 EBCDIC mainframe platform.
- XS => {'ListUtil.xs' => 'ListUtil.c'},
- OBJECT => 'ListUtil$(OBJ_EXT)',
- ( $PERL_CORE
- ? ()
- : (
- INSTALLDIRS => q[perl],
- PREREQ_PM => {'Test::More' => 0,},
- (eval { ExtUtils::MakeMaker->VERSION(6.31) } ? (LICENSE => 'perl') : ()),
- ($do_xs ? () : (XS => {}, C => [], OBJECT => '')),
- ( eval { ExtUtils::MakeMaker->VERSION(6.46) } ? (
- META_MERGE => {
- resources => { ##
- repository => 'http://github.com/gbarr/Scalar-List-Utils',
- },
- }
- )
- : ()
- ),
- )
- ),
-);
-
-
-sub can_cc {
-
- foreach my $cmd (split(/ /, $Config::Config{cc})) {
- my $_cmd = $cmd;
- return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));
-
- for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
- my $abs = File::Spec->catfile($dir, $_[1]);
- return $abs if (-x $abs or $abs = MM->maybe_command($abs));
- }
- }
-
- return;
-}
-
-package MY;
-
-sub init_PM {
- my $self = shift;
-
- $self->SUPER::init_PM(@_);
-
- return if $do_xs;
-
- my $pm = $self->{PM};
- my $pm_file = File::Spec->catfile(qw(lib List Util XS.pm));
-
- # When installing pure perl, install XS.pp as XS.pm
- $self->{PM}{'XS.pp'} = delete $self->{PM}{$pm_file};
-}
-
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/lib/List/Util.pm b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/lib/List/Util.pm
deleted file mode 100644
index aced6b1..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/lib/List/Util.pm
+++ /dev/null
@@ -1,233 +0,0 @@
-# List::Util.pm
-#
-# Copyright (c) 1997-2009 Graham Barr <gbarr at 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.
-#
-# This module is normally only loaded if the XS module is not available
-
-package List::Util;
-
-use strict;
-use vars qw(@ISA @EXPORT_OK $VERSION $XS_VERSION $TESTING_PERL_ONLY);
-require Exporter;
-
- at ISA = qw(Exporter);
- at EXPORT_OK = qw(first min max minstr maxstr reduce sum shuffle);
-$VERSION = "1.23";
-$XS_VERSION = $VERSION;
-$VERSION = eval $VERSION;
-
-eval {
- # PERL_DL_NONLAZY must be false, or any errors in loading will just
- # cause the perl code to be tested
- local $ENV{PERL_DL_NONLAZY} = 0 if $ENV{PERL_DL_NONLAZY};
- eval {
- require XSLoader;
- XSLoader::load('List::Util', $XS_VERSION);
- 1;
- } or do {
- require DynaLoader;
- local @ISA = qw(DynaLoader);
- bootstrap List::Util $XS_VERSION;
- };
-} unless $TESTING_PERL_ONLY;
-
-
-if (!defined &sum) {
- require List::Util::PP;
- List::Util::PP->import;
-}
-
-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. The
-subroutines defined are
-
-=over 4
-
-=item first BLOCK LIST
-
-Similar to C<grep> in that it evaluates BLOCK setting C<$_> to each element
-of LIST in turn. C<first> returns the first element where the result from
-BLOCK is a true value. If BLOCK never returns true or 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
-
-This function could be implemented using C<reduce> like this
-
- $foo = reduce { defined($a) ? $a : wanted($b) ? $b : undef } undef, @list
-
-for example wanted() could be defined() which would return the first
-defined value in @list
-
-=item 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
-
-This function could be implemented using C<reduce> like this
-
- $foo = reduce { $a > $b ? $a : $b } 1..10
-
-=item maxstr LIST
-
-Similar to C<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
-
-This function could be implemented using C<reduce> like this
-
- $foo = reduce { $a gt $b ? $a : $b } 'A'..'Z'
-
-=item min LIST
-
-Similar to C<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
-
-This function could be implemented using C<reduce> like this
-
- $foo = reduce { $a < $b ? $a : $b } 1..10
-
-=item minstr LIST
-
-Similar to C<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
-
-This function could be implemented using C<reduce> like this
-
- $foo = reduce { $a lt $b ? $a : $b } 'A'..'Z'
-
-=item reduce BLOCK LIST
-
-Reduces LIST by calling 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 BLOCK. If LIST is empty then
-C<undef> is returned. If LIST only contains one element then that
-element is returned and BLOCK is not executed.
-
- $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
-
-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
-
-=item shuffle LIST
-
-Returns the elements of LIST in a random order
-
- @cards = shuffle 0..51 # 0..51 in a random order
-
-=item sum LIST
-
-Returns the sum of all the elements in LIST. If LIST is empty then
-C<undef> is returned.
-
- $foo = sum 1..10 # 55
- $foo = sum 3,9,12 # 24
- $foo = sum @bar, @baz # whatever
-
-This function could be implemented using C<reduce> like this
-
- $foo = reduce { $a + $b } 1..10
-
-If your algorithm requires that C<sum> produce an identity of 0, then
-make sure that you always pass C<0> as the first argument to prevent
-C<undef> being returned
-
- $foo = sum 0, @values;
-
-=back
-
-=head1 KNOWN BUGS
-
-With perl versions prior to 5.005 there are some cases where reduce
-will return an incorrect result. This will show up as test 7 of
-reduce.t failing.
-
-=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
-
- # One argument is true
-
- sub any { $_ && return 1 for @_; 0 }
-
- # All arguments are true
-
- sub all { $_ || return 0 for @_; 1 }
-
- # All arguments are false
-
- sub none { $_ && return 0 for @_; 1 }
-
- # One argument is false
-
- sub notall { $_ || return 1 for @_; 0 }
-
- # 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 at 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/3.8.8/sources/cpan-Scalar-List-Utils/vendor/lib/List/Util/PP.pm b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/lib/List/Util/PP.pm
deleted file mode 100644
index 2771329..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/lib/List/Util/PP.pm
+++ /dev/null
@@ -1,83 +0,0 @@
-# List::Util::PP.pm
-#
-# Copyright (c) 1997-2009 Graham Barr <gbarr at 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 List::Util::PP;
-
-use strict;
-use warnings;
-use vars qw(@ISA @EXPORT $VERSION $a $b);
-require Exporter;
-
- at ISA = qw(Exporter);
- at EXPORT = qw(first min max minstr maxstr reduce sum shuffle);
-$VERSION = "1.23";
-$VERSION = eval $VERSION;
-
-sub reduce (&@) {
- my $code = shift;
- require Scalar::Util;
- my $type = Scalar::Util::reftype($code);
- unless($type and $type eq 'CODE') {
- require Carp;
- Carp::croak("Not a subroutine reference");
- }
- no strict 'refs';
-
- return shift unless @_ > 1;
-
- use vars qw($a $b);
-
- my $caller = caller;
- local(*{$caller."::a"}) = \my $a;
- local(*{$caller."::b"}) = \my $b;
-
- $a = shift;
- foreach (@_) {
- $b = $_;
- $a = &{$code}();
- }
-
- $a;
-}
-
-sub first (&@) {
- my $code = shift;
- require Scalar::Util;
- my $type = Scalar::Util::reftype($code);
- unless($type and $type eq 'CODE') {
- require Carp;
- Carp::croak("Not a subroutine reference");
- }
-
- foreach (@_) {
- return $_ if &{$code}();
- }
-
- undef;
-}
-
-
-sub sum (@) { reduce { $a + $b } @_ }
-
-sub min (@) { reduce { $a < $b ? $a : $b } @_ }
-
-sub max (@) { reduce { $a > $b ? $a : $b } @_ }
-
-sub minstr (@) { reduce { $a lt $b ? $a : $b } @_ }
-
-sub maxstr (@) { reduce { $a gt $b ? $a : $b } @_ }
-
-sub shuffle (@) {
- my @a=\(@_);
- my $n;
- my $i=@_;
- map {
- $n = rand($i--);
- (${$a[$n]}, $a[$n] = $a[$i])[0];
- } @_;
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/lib/Scalar/Util.pm b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/lib/Scalar/Util.pm
deleted file mode 100644
index 24138ca..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/lib/Scalar/Util.pm
+++ /dev/null
@@ -1,283 +0,0 @@
-# Scalar::Util.pm
-#
-# Copyright (c) 1997-2007 Graham Barr <gbarr at 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 Scalar::Util;
-
-use strict;
-use vars qw(@ISA @EXPORT_OK $VERSION @EXPORT_FAIL);
-require Exporter;
-require List::Util; # List::Util loads the XS
-
- at ISA = qw(Exporter);
- at EXPORT_OK = qw(blessed dualvar reftype weaken isweak tainted readonly openhandle refaddr isvstring looks_like_number set_prototype);
-$VERSION = "1.23";
-$VERSION = eval $VERSION;
-
-unless (defined &dualvar) {
- # Load Pure Perl version if XS not loaded
- require Scalar::Util::PP;
- Scalar::Util::PP->import;
- push @EXPORT_FAIL, qw(weaken isweak dualvar isvstring set_prototype);
-}
-
-sub export_fail {
- if (grep { /dualvar/ } @EXPORT_FAIL) { # no XS loaded
- my $pat = join("|", @EXPORT_FAIL);
- if (my ($err) = grep { /^($pat)$/ } @_ ) {
- require Carp;
- Carp::croak("$err is only available with the XS version of Scalar::Util");
- }
- }
-
- 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");
- }
-
- @_;
-}
-
-sub openhandle ($) {
- my $fh = shift;
- my $rt = reftype($fh) || '';
-
- return defined(fileno($fh)) ? $fh : undef
- if $rt eq 'IO';
-
- if (reftype(\$fh) eq 'GLOB') { # handle openhandle(*DATA)
- $fh = \(my $tmp=$fh);
- }
- elsif ($rt ne 'GLOB') {
- return undef;
- }
-
- (tied(*$fh) or defined(fileno($fh)))
- ? $fh : undef;
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Scalar::Util - A selection of general-utility scalar subroutines
-
-=head1 SYNOPSIS
-
- use Scalar::Util qw(blessed dualvar isweak readonly refaddr reftype tainted
- weaken 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. The
-subroutines defined are
-
-=over 4
-
-=item blessed EXPR
-
-If EXPR evaluates to 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"
-
-=item dualvar NUM, STRING
-
-Returns a scalar that has the value NUM in a numeric context and the
-value STRING in a string context.
-
- $foo = dualvar 10, "Hello";
- $num = $foo + 2; # 12
- $str = $foo . " world"; # Hello world
-
-=item isvstring EXPR
-
-If EXPR 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);
-
-=item isweak EXPR
-
-If EXPR is a scalar which is a weak reference the result is true.
-
- $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
-
-=item looks_like_number EXPR
-
-Returns true if perl thinks EXPR is a number. See
-L<perlapi/looks_like_number>.
-
-=item openhandle FH
-
-Returns FH if FH may be used as a filehandle and is open, or FH 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
-
-=item readonly SCALAR
-
-Returns true if SCALAR is readonly.
-
- sub foo { readonly($_[0]) }
-
- $readonly = foo($bar); # false
- $readonly = foo(0); # true
-
-=item refaddr EXPR
-
-If EXPR evaluates to a reference the internal memory address of
-the referenced value is returned. 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
-
-=item reftype EXPR
-
-If EXPR evaluates to a reference the type of the variable referenced
-is returned. Otherwise C<undef> is returned.
-
- $type = reftype "string"; # undef
- $type = reftype \$var; # SCALAR
- $type = reftype []; # ARRAY
-
- $obj = bless {}, "Foo";
- $type = reftype $obj; # HASH
-
-=item set_prototype CODEREF, PROTOTYPE
-
-Sets the prototype of the given function, or deletes it if PROTOTYPE is
-undef. Returns the CODEREF.
-
- set_prototype \&foo, '$$';
-
-=item tainted EXPR
-
-Return true if the result of EXPR is tainted
-
- $taint = tainted("constant"); # false
- $taint = tainted($ENV{PWD}); # true if running under -T
-
-=item weaken REF
-
-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, REF will be set to undef.
-
-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
- at object array.
-
-=back
-
-=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
-C<isweak> or C<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
-C<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 at 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.
-
-Except weaken and isweak which are
-
-Copyright (c) 1999 Tuomas J. Lukka <lukka at 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.
-
-=cut
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/lib/Scalar/Util/PP.pm b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/lib/Scalar/Util/PP.pm
deleted file mode 100644
index 7850e1b..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/lib/Scalar/Util/PP.pm
+++ /dev/null
@@ -1,108 +0,0 @@
-# Scalar::Util::PP.pm
-#
-# Copyright (c) 1997-2009 Graham Barr <gbarr at 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.
-#
-# This module is normally only loaded if the XS module is not available
-
-package Scalar::Util::PP;
-
-use strict;
-use warnings;
-use vars qw(@ISA @EXPORT $VERSION $recurse);
-require Exporter;
-use B qw(svref_2object);
-
- at ISA = qw(Exporter);
- at EXPORT = qw(blessed reftype tainted readonly refaddr looks_like_number);
-$VERSION = "1.23";
-$VERSION = eval $VERSION;
-
-sub blessed ($) {
- return undef unless length(ref($_[0]));
- my $b = svref_2object($_[0]);
- return undef unless $b->isa('B::PVMG');
- my $s = $b->SvSTASH;
- return $s->isa('B::HV') ? $s->NAME : undef;
-}
-
-sub refaddr($) {
- 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);
-}
-
-{
- my %tmap = qw(
- B::NULL SCALAR
-
- B::HV HASH
- B::AV ARRAY
- B::CV CODE
- B::IO IO
- B::GV GLOB
- B::REGEXP REGEXP
- );
-
- sub reftype ($) {
- my $r = shift;
-
- return undef unless length(ref($r));
-
- my $t = ref(svref_2object($r));
-
- return
- exists $tmap{$t} ? $tmap{$t}
- : length(ref($$r)) ? 'REF'
- : 'SCALAR';
- }
-}
-
-sub tainted {
- local($@, $SIG{__DIE__}, $SIG{__WARN__});
- local $^W = 0;
- no warnings;
- eval { kill 0 * $_[0] };
- $@ =~ /^Insecure/;
-}
-
-sub readonly {
- return 0 if tied($_[0]) || (ref(\($_[0])) ne "SCALAR");
-
- local($@, $SIG{__DIE__}, $SIG{__WARN__});
- my $tmp = $_[0];
-
- !eval { $_[0] = $tmp; 1 };
-}
-
-sub looks_like_number {
- local $_ = shift;
-
- # checks from perlfaq4
- return 0 if !defined($_);
- if (ref($_)) {
- require overload;
- return overload::Overloaded($_) ? defined(0 + $_) : 0;
- }
- return 1 if (/^[+-]?[0-9]+$/); # is a +/- integer
- return 1 if (/^([+-]?)(?=[0-9]|\.[0-9])[0-9]*(\.[0-9]*)?([Ee]([+-]?[0-9]+))?$/); # a C float
- return 1 if ($] >= 5.008 and /^(Inf(inity)?|NaN)$/i) or ($] >= 5.006001 and /^Inf$/i);
-
- 0;
-}
-
-
-1;
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/blessed.t b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/blessed.t
deleted file mode 100644
index f0a4c19..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/blessed.t
+++ /dev/null
@@ -1,54 +0,0 @@
-#!./perl
-
-BEGIN {
- unless (-d 'blib') {
- chdir 't' if -d 't';
- @INC = '../lib';
- require Config; import Config;
- keys %Config; # Silence warning
- if ($Config{extensions} !~ /\bList\/Util\b/) {
- print "1..0 # Skip: List::Util was not built\n";
- exit 0;
- }
- }
-}
-
-use Test::More tests => 11;
-use Scalar::Util qw(blessed);
-use vars qw($t $x);
-
-ok(!blessed(undef), 'undef is not blessed');
-ok(!blessed(1), 'Numbers are not blessed');
-ok(!blessed('A'), 'Strings are not blessed');
-ok(!blessed({}), 'Unblessed HASH-ref');
-ok(!blessed([]), 'Unblessed ARRAY-ref');
-ok(!blessed(\$t), 'Unblessed SCALAR-ref');
-
-$x = bless [], "ABC";
-is(blessed($x), "ABC", 'blessed ARRAY-ref');
-
-$x = bless {}, "DEF";
-is(blessed($x), "DEF", 'blessed HASH-ref');
-
-$x = bless {}, "0";
-cmp_ok(blessed($x), "eq", "0", 'blessed HASH-ref');
-
-{
- my $depth;
- {
- no warnings 'redefine';
- *UNIVERSAL::can = sub { die "Burp!" if ++$depth > 2; blessed(shift) };
- }
- $x = bless {}, "DEF";
- is(blessed($x), "DEF", 'recursion of UNIVERSAL::can');
-}
-
-{
- package Broken;
- sub isa { die };
- sub can { die };
-
- my $obj = bless [], __PACKAGE__;
- ::is( ::blessed($obj), __PACKAGE__, "blessed on broken isa() and can()" );
-}
-
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/dualvar.t b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/dualvar.t
deleted file mode 100644
index 5c0fe21..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/dualvar.t
+++ /dev/null
@@ -1,70 +0,0 @@
-#!./perl
-
-BEGIN {
- unless (-d 'blib') {
- chdir 't' if -d 't';
- @INC = '../lib';
- require Config; import Config;
- keys %Config; # Silence warning
- if ($Config{extensions} !~ /\bList\/Util\b/) {
- print "1..0 # Skip: List::Util was not built\n";
- exit 0;
- }
- }
-}
-
-use Scalar::Util ();
-use Test::More (grep { /dualvar/ } @Scalar::Util::EXPORT_FAIL)
- ? (skip_all => 'dualvar requires XS version')
- : (tests => 13);
-
-Scalar::Util->import('dualvar');
-
-$var = dualvar( 2.2,"string");
-
-ok( $var == 2.2, 'Numeric value');
-ok( $var eq "string", 'String value');
-
-$var2 = $var;
-
-ok( $var2 == 2.2, 'copy Numeric value');
-ok( $var2 eq "string", 'copy String value');
-
-$var++;
-
-ok( $var == 3.2, 'inc Numeric value');
-ok( $var ne "string", 'inc String value');
-
-my $numstr = "10.2";
-my $numtmp = int($numstr); # use $numstr as an int
-
-$var = dualvar($numstr, "");
-
-ok( $var == $numstr, 'NV');
-
-SKIP: {
- skip("dualvar with UV value known to fail with $]",2) if $] < 5.006_001;
- $var = dualvar(1<<31, "");
- ok( $var == (1<<31), 'UV 1');
- ok( $var > 0, 'UV 2');
-}
-
-
-{
- package Tied;
-
- sub TIESCALAR { bless {} }
- sub FETCH { 7.5 }
-}
-
-tie my $tied, 'Tied';
-$var = dualvar($tied, "ok");
-ok($var == 7.5, 'Tied num');
-ok($var eq 'ok', 'Tied str');
-
-
-SKIP: {
- skip("need utf8::is_utf8",2) unless defined &utf8::is_utf8;
- ok(!!utf8::is_utf8(dualvar(1,chr(400))), 'utf8');
- ok( !utf8::is_utf8(dualvar(1,"abc")), 'not utf8');
-}
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/expfail.t b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/expfail.t
deleted file mode 100644
index 02fc192..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/expfail.t
+++ /dev/null
@@ -1,29 +0,0 @@
-#!./perl
-
-BEGIN {
- unless (-d 'blib') {
- chdir 't' if -d 't';
- @INC = '../lib';
- require Config; import Config;
- keys %Config; # Silence warning
- if ($Config{extensions} !~ /\bList\/Util\b/) {
- print "1..0 # Skip: List::Util was not built\n";
- exit 0;
- }
- }
-}
-
-use Test::More tests => 3;
-use strict;
-
-$List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
-require Scalar::Util;
-
-for my $func (qw(dualvar set_prototype weaken)) {
- eval { Scalar::Util->import($func); };
- like(
- $@,
- qr/$func is only available with the XS/,
- "no pure perl $func: error raised",
- );
-}
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/min.t b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/min.t
deleted file mode 100644
index 13d1116..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/min.t
+++ /dev/null
@@ -1,70 +0,0 @@
-#!./perl
-
-BEGIN {
- unless (-d 'blib') {
- chdir 't' if -d 't';
- @INC = '../lib';
- require Config; import Config;
- keys %Config; # Silence warning
- if ($Config{extensions} !~ /\bList\/Util\b/) {
- print "1..0 # Skip: List::Util was not built\n";
- exit 0;
- }
- }
-}
-
-use strict;
-use Test::More tests => 8;
-use List::Util qw(min);
-
-my $v;
-
-ok(defined &min, 'defined');
-
-$v = min(9);
-is($v, 9, 'single arg');
-
-$v = min (1,2);
-is($v, 1, '2-arg ordered');
-
-$v = min(2,1);
-is($v, 1, '2-arg reverse ordered');
-
-my @a = map { rand() } 1 .. 20;
-my @b = sort { $a <=> $b } @a;
-$v = min(@a);
-is($v, $b[0], '20-arg random order');
-
-my $one = Foo->new(1);
-my $two = Foo->new(2);
-my $thr = Foo->new(3);
-
-$v = min($one,$two,$thr);
-is($v, 1, 'overload');
-
-$v = min($thr,$two,$one);
-is($v, 1, 'overload');
-
-{ package Foo;
-
-use overload
- '""' => sub { ${$_[0]} },
- '+0' => sub { ${$_[0]} },
- '<' => sub { ${$_[0]} < ${$_[1]} },
- fallback => 1;
- sub new {
- my $class = shift;
- my $value = shift;
- bless \$value, $class;
- }
-}
-
-SKIP: {
- eval { require bignum; } or skip("Need bignum for testing overloading",1);
-
- my $v1 = 2**65;
- my $v2 = $v1 - 1;
- my $v3 = $v2 - 1;
- $v = min($v1,$v2,$v1,$v3,$v1);
- is($v, $v3, 'bigint');
-}
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/minstr.t b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/minstr.t
deleted file mode 100644
index 021b309..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/minstr.t
+++ /dev/null
@@ -1,36 +0,0 @@
-#!./perl
-
-BEGIN {
- unless (-d 'blib') {
- chdir 't' if -d 't';
- @INC = '../lib';
- require Config; import Config;
- keys %Config; # Silence warning
- if ($Config{extensions} !~ /\bList\/Util\b/) {
- print "1..0 # Skip: List::Util was not built\n";
- exit 0;
- }
- }
-}
-
-use strict;
-use Test::More tests => 5;
-use List::Util qw(minstr);
-
-my $v;
-
-ok(defined &minstr, 'defined');
-
-$v = minstr('a');
-is($v, 'a', 'single arg');
-
-$v = minstr('a','b');
-is($v, 'a', '2-arg ordered');
-
-$v = minstr('B','A');
-is($v, 'A', '2-arg reverse ordered');
-
-my @a = map { pack("u", pack("C*",map { int(rand(256))} (0..int(rand(10) + 2)))) } 0 .. 20;
-my @b = sort { $a cmp $b } @a;
-$v = minstr(@a);
-is($v, $b[0], 'random ordered');
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/p_minstr.t b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/p_minstr.t
deleted file mode 100644
index 48e7ef7..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/p_minstr.t
+++ /dev/null
@@ -1,7 +0,0 @@
-#!./perl
-
-# force perl-only version to be tested
-$List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
-
-(my $f = __FILE__) =~ s/p_//;
-do $f; die $@ if $@;
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/p_refaddr.t b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/p_refaddr.t
deleted file mode 100644
index 48e7ef7..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/p_refaddr.t
+++ /dev/null
@@ -1,7 +0,0 @@
-#!./perl
-
-# force perl-only version to be tested
-$List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
-
-(my $f = __FILE__) =~ s/p_//;
-do $f; die $@ if $@;
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/p_reftype.t b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/p_reftype.t
deleted file mode 100644
index 48e7ef7..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/p_reftype.t
+++ /dev/null
@@ -1,7 +0,0 @@
-#!./perl
-
-# force perl-only version to be tested
-$List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
-
-(my $f = __FILE__) =~ s/p_//;
-do $f; die $@ if $@;
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/p_shuffle.t b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/p_shuffle.t
deleted file mode 100644
index 48e7ef7..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/p_shuffle.t
+++ /dev/null
@@ -1,7 +0,0 @@
-#!./perl
-
-# force perl-only version to be tested
-$List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
-
-(my $f = __FILE__) =~ s/p_//;
-do $f; die $@ if $@;
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/p_sum.t b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/p_sum.t
deleted file mode 100644
index 48e7ef7..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/p_sum.t
+++ /dev/null
@@ -1,7 +0,0 @@
-#!./perl
-
-# force perl-only version to be tested
-$List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
-
-(my $f = __FILE__) =~ s/p_//;
-do $f; die $@ if $@;
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/p_tainted.t b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/p_tainted.t
deleted file mode 100644
index 6a4cd22..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/p_tainted.t
+++ /dev/null
@@ -1,12 +0,0 @@
-#!./perl -T
-
-use File::Spec;
-
-# force perl-only version to be tested
-$List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
-
-(my $f = __FILE__) =~ s/p_//;
-my $filename = ($^O eq 'MSWin32' || $^O eq 'VMS')
- ? File::Spec->rel2abs(File::Spec->catfile(".", $f))
- : File::Spec->catfile(".", $f);
-do $filename; die $@ if $@;
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/readonly.t b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/readonly.t
deleted file mode 100644
index 42ed3d8..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/readonly.t
+++ /dev/null
@@ -1,51 +0,0 @@
-#!./perl
-
-BEGIN {
- unless (-d 'blib') {
- chdir 't' if -d 't';
- @INC = '../lib';
- require Config; import Config;
- keys %Config; # Silence warning
- if ($Config{extensions} !~ /\bList\/Util\b/) {
- print "1..0 # Skip: List::Util was not built\n";
- exit 0;
- }
- }
-}
-
-use Scalar::Util qw(readonly);
-use Test::More tests => 11;
-
-ok( readonly(1), 'number constant');
-
-my $var = 2;
-
-ok( !readonly($var), 'number variable');
-is( $var, 2, 'no change to number variable');
-
-ok( readonly("fred"), 'string constant');
-
-$var = "fred";
-
-ok( !readonly($var), 'string variable');
-is( $var, 'fred', 'no change to string variable');
-
-$var = \2;
-
-ok( !readonly($var), 'reference to constant');
-ok( readonly($$var), 'de-reference to constant');
-
-ok( !readonly(*STDOUT), 'glob');
-
-sub try
-{
- my $v = \$_[0];
- return readonly $$v;
-}
-
-$var = 123;
-{
- local $TODO = $Config::Config{useithreads} ? "doesn't work with threads" : undef;
- ok( try ("abc"), 'reference a constant in a sub');
-}
-ok( !try ($var), 'reference a non-constant in a sub');
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/reduce.t b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/reduce.t
deleted file mode 100644
index 2e12575..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/reduce.t
+++ /dev/null
@@ -1,162 +0,0 @@
-#!./perl
-
-BEGIN {
- unless (-d 'blib') {
- chdir 't' if -d 't';
- @INC = '../lib';
- require Config; import Config;
- keys %Config; # Silence warning
- if ($Config{extensions} !~ /\bList\/Util\b/) {
- print "1..0 # Skip: List::Util was not built\n";
- exit 0;
- }
- }
-}
-
-
-use List::Util qw(reduce min);
-use Test::More;
-plan tests => 27 + ($::PERL_ONLY ? 0 : 2);
-
-my $v = reduce {};
-
-is( $v, undef, 'no args');
-
-$v = reduce { $a / $b } 756,3,7,4;
-is( $v, 9, '4-arg divide');
-
-$v = reduce { $a / $b } 6;
-is( $v, 6, 'one arg');
-
- at a = map { rand } 0 .. 20;
-$v = reduce { $a < $b ? $a : $b } @a;
-is( $v, min(@a), 'min');
-
- at a = map { pack("C", int(rand(256))) } 0 .. 20;
-$v = reduce { $a . $b } @a;
-is( $v, join("", at a), 'concat');
-
-sub add {
- my($aa, $bb) = @_;
- return $aa + $bb;
-}
-
-$v = reduce { my $t="$a $b\n"; 0+add($a, $b) } 3, 2, 1;
-is( $v, 6, 'call sub');
-
-# Check that eval{} inside the block works correctly
-$v = reduce { eval { die }; $a + $b } 0,1,2,3,4;
-is( $v, 10, 'use eval{}');
-
-$v = !defined eval { reduce { die if $b > 2; $a + $b } 0,1,2,3,4 };
-ok($v, 'die');
-
-sub foobar { reduce { (defined(wantarray) && !wantarray) ? $a+1 : 0 } 0,1,2,3 }
-($v) = foobar();
-is( $v, 3, 'scalar context');
-
-sub add2 { $a + $b }
-
-$v = reduce \&add2, 1,2,3;
-is( $v, 6, 'sub reference');
-
-$v = reduce { add2() } 3,4,5;
-is( $v, 12, 'call sub');
-
-
-$v = reduce { eval "$a + $b" } 1,2,3;
-is( $v, 6, 'eval string');
-
-$a = 8; $b = 9;
-$v = reduce { $a * $b } 1,2,3;
-is( $a, 8, 'restore $a');
-is( $b, 9, 'restore $b');
-
-# Can we leave the sub with 'return'?
-$v = reduce {return $a+$b} 2,4,6;
-is($v, 12, 'return');
-
-# ... even in a loop?
-$v = reduce {while(1) {return $a+$b} } 2,4,6;
-is($v, 12, 'return from loop');
-
-# Does it work from another package?
-{ package Foo;
- $a = $b;
- ::is((List::Util::reduce {$a*$b} (1..4)), 24, 'other package');
-}
-
-# Can we undefine a reduce sub while it's running?
-sub self_immolate {undef &self_immolate; 1}
-eval { $v = reduce \&self_immolate, 1,2; };
-like($@, qr/^Can't undef active subroutine/, "undef active sub");
-
-# Redefining an active sub should not fail, but whether the
-# redefinition takes effect immediately depends on whether we're
-# running the Perl or XS implementation.
-
-sub self_updating { local $^W; *self_updating = sub{1} ;1 }
-eval { $v = reduce \&self_updating, 1,2; };
-is($@, '', 'redefine self');
-
-{ my $failed = 0;
-
- sub rec { my $n = shift;
- if (!defined($n)) { # No arg means we're being called by reduce()
- return 1; }
- if ($n<5) { rec($n+1); }
- else { $v = reduce \&rec, 1,2; }
- $failed = 1 if !defined $n;
- }
-
- rec(1);
- ok(!$failed, 'from active sub');
-}
-
-# Calling a sub from reduce should leave its refcount unchanged.
-SKIP: {
- skip("No Internals::SvREFCNT", 1) if !defined &Internals::SvREFCNT;
- sub mult {$a*$b}
- my $refcnt = &Internals::SvREFCNT(\&mult);
- $v = reduce \&mult, 1..6;
- is(&Internals::SvREFCNT(\&mult), $refcnt, "Refcount unchanged");
-}
-
-{
- my $ok = 'failed';
- local $SIG{__DIE__} = sub { $ok = $_[0] =~ /Not a (subroutine|CODE) reference/ ? '' : $_[0] };
- eval { &reduce('foo',1,2) };
- is($ok, '', 'Not a subroutine reference');
- $ok = 'failed';
- eval { &reduce({},1,2) };
- is($ok, '', 'Not a subroutine reference');
-}
-
-# The remainder of the tests are only relevant for the XS
-# implementation. The Perl-only implementation behaves differently
-# (and more flexibly) in a way that we can't emulate from XS.
-if (!$::PERL_ONLY) { SKIP: {
-
- $List::Util::REAL_MULTICALL ||= 0; # Avoid use only once
- skip("Poor man's MULTICALL can't cope", 2)
- if !$List::Util::REAL_MULTICALL;
-
- # Can we goto a label from the reduction sub?
- eval {()=reduce{goto foo} 1,2; foo: 1};
- like($@, qr/^Can't "goto" out of a pseudo block/, "goto label");
-
- # Can we goto a subroutine?
- eval {()=reduce{goto sub{}} 1,2;};
- like($@, qr/^Can't goto subroutine from a sort sub/, "goto sub");
-
-} }
-
-eval { &reduce(1,2) };
-ok($@ =~ /^Not a subroutine reference/, 'check for code reference');
-eval { &reduce(qw(a b)) };
-ok($@ =~ /^Not a subroutine reference/, 'check for code reference');
-eval { &reduce([],1,2,3) };
-ok($@ =~ /^Not a subroutine reference/, 'check for code reference');
-eval { &reduce(+{},1,2,3) };
-ok($@ =~ /^Not a subroutine reference/, 'check for code reference');
-
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/refaddr.t b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/refaddr.t
deleted file mode 100644
index 35ad40f..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/refaddr.t
+++ /dev/null
@@ -1,111 +0,0 @@
-#!./perl
-
-BEGIN {
- unless (-d 'blib') {
- chdir 't' if -d 't';
- @INC = '../lib';
- require Config; import Config;
- keys %Config; # Silence warning
- if ($Config{extensions} !~ /\bList\/Util\b/) {
- print "1..0 # Skip: List::Util was not built\n";
- exit 0;
- }
- }
-}
-
-
-use Test::More tests => 32;
-
-use Scalar::Util qw(refaddr);
-use vars qw($t $y $x *F $v $r);
-use Symbol qw(gensym);
-
-# Ensure we do not trigger and tied methods
-tie *F, 'MyTie';
-
-my $i = 1;
-foreach $v (undef, 10, 'string') {
- is(refaddr($v), undef, "not " . (defined($v) ? "'$v'" : "undef"));
-}
-
-foreach $r ({}, \$t, [], \*F, sub {}) {
- my $n = "$r";
- $n =~ /0x(\w+)/;
- my $addr = do { local $^W; hex $1 };
- my $before = ref($r);
- is( refaddr($r), $addr, $n);
- is( ref($r), $before, $n);
-
- my $obj = bless $r, 'FooBar';
- is( refaddr($r), $addr, "blessed with overload $n");
- is( ref($r), 'FooBar', $n);
-}
-
-{
- my $z = '77';
- my $y = \$z;
- my $a = '78';
- my $b = \$a;
- tie my %x, 'Hash3', {};
- $x{$y} = 22;
- $x{$b} = 23;
- my $xy = $x{$y};
- my $xb = $x{$b};
- ok(ref($x{$y}));
- ok(ref($x{$b}));
- ok(refaddr($xy) == refaddr($y));
- ok(refaddr($xb) == refaddr($b));
- ok(refaddr($x{$y}));
- ok(refaddr($x{$b}));
-}
-{
- my $z = bless {}, '0';
- ok(refaddr($z));
- @{"0::ISA"} = qw(FooBar);
- my $a = {};
- my $r = refaddr($a);
- $z = bless $a, '0';
- ok(refaddr($z) > 10);
- is(refaddr($z),$r,"foo");
-}
-
-package FooBar;
-
-use overload '0+' => sub { 10 },
- '+' => sub { 10 + $_[1] },
- '"' => sub { "10" };
-
-package MyTie;
-
-sub TIEHANDLE { bless {} }
-sub DESTROY {}
-
-sub AUTOLOAD {
- warn "$AUTOLOAD called";
- exit 1; # May be in an eval
-}
-
-package Hash3;
-
-use Scalar::Util qw(refaddr);
-
-sub TIEHASH
-{
- my $pkg = shift;
- return bless [ @_ ], $pkg;
-}
-sub FETCH
-{
- my $self = shift;
- my $key = shift;
- my ($underlying) = @$self;
- return $underlying->{refaddr($key)};
-}
-sub STORE
-{
- my $self = shift;
- my $key = shift;
- my $value = shift;
- my ($underlying) = @$self;
- return ($underlying->{refaddr($key)} = $key);
-}
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/reftype.t b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/reftype.t
deleted file mode 100644
index a7adafb..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/reftype.t
+++ /dev/null
@@ -1,61 +0,0 @@
-#!./perl
-
-BEGIN {
- unless (-d 'blib') {
- chdir 't' if -d 't';
- @INC = '../lib';
- require Config; import Config;
- keys %Config; # Silence warning
- if ($Config{extensions} !~ /\bList\/Util\b/) {
- print "1..0 # Skip: List::Util was not built\n";
- exit 0;
- }
- }
-}
-
-use Test::More tests => 29;
-
-use Scalar::Util qw(reftype);
-use vars qw($t $y $x *F);
-use Symbol qw(gensym);
-
-# Ensure we do not trigger and tied methods
-tie *F, 'MyTie';
-my $RE = $] < 5.011 ? 'SCALAR' : 'REGEXP';
-
- at test = (
- [ undef, 1, 'number' ],
- [ undef, 'A', 'string' ],
- [ HASH => {}, 'HASH ref' ],
- [ ARRAY => [], 'ARRAY ref' ],
- [ SCALAR => \$t, 'SCALAR ref' ],
- [ REF => \(\$t), 'REF ref' ],
- [ GLOB => \*F, 'tied GLOB ref' ],
- [ GLOB => gensym, 'GLOB ref' ],
- [ CODE => sub {}, 'CODE ref' ],
- [ IO => *STDIN{IO},'IO ref' ],
- [ $RE => qr/x/, 'REGEEXP' ],
-);
-
-foreach $test (@test) {
- my($type,$what, $n) = @$test;
-
- is( reftype($what), $type, $n);
- next unless ref($what);
-
- bless $what, "ABC";
- is( reftype($what), $type, $n);
-
- bless $what, "0";
- is( reftype($what), $type, $n);
-}
-
-package MyTie;
-
-sub TIEHANDLE { bless {} }
-sub DESTROY {}
-
-sub AUTOLOAD {
- warn "$AUTOLOAD called";
- exit 1; # May be in an eval
-}
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/shuffle.t b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/shuffle.t
deleted file mode 100644
index d3fbd6c..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/shuffle.t
+++ /dev/null
@@ -1,36 +0,0 @@
-#!./perl
-
-BEGIN {
- unless (-d 'blib') {
- chdir 't' if -d 't';
- @INC = '../lib';
- require Config; import Config;
- keys %Config; # Silence warning
- if ($Config{extensions} !~ /\bList\/Util\b/) {
- print "1..0 # Skip: List::Util was not built\n";
- exit 0;
- }
- }
-}
-
-use Test::More tests => 6;
-
-use List::Util qw(shuffle);
-
-my @r;
-
- at r = shuffle();
-ok( !@r, 'no args');
-
- at r = shuffle(9);
-is( 0+ at r, 1, '1 in 1 out');
-is( $r[0], 9, 'one arg');
-
-my @in = 1..100;
- at r = shuffle(@in);
-is( 0+ at r, 0+ at in, 'arg count');
-
-isnt( "@r", "@in", 'result different to args');
-
-my @s = sort { $a <=> $b } @r;
-is( "@in", "@s", 'values');
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/stack-corruption.t b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/stack-corruption.t
deleted file mode 100644
index dff5af0..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/stack-corruption.t
+++ /dev/null
@@ -1,30 +0,0 @@
-#!./perl
-
-BEGIN {
- unless (-d 'blib') {
- chdir 't' if -d 't';
- @INC = '../lib';
- require Config; import Config;
- keys %Config; # Silence warning
- if ($Config{extensions} !~ /\bList\/Util\b/) {
- print "1..0 # Skip: List::Util was not built\n";
- exit 0;
- }
- }
- if ($] eq "5.008009" or $] eq "5.010000" or $] le "5.006002") {
- print "1..0 # Skip: known to fail on $]\n";
- exit 0;
- }
-}
-
-use List::Util qw(reduce);
-use Test::More tests => 1;
-
-my $ret = "original";
-$ret = $ret . broken();
-is($ret, "originalreturn");
-
-sub broken {
- reduce { return "bogus"; } qw/some thing/;
- return "return";
-}
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/sum.t b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/sum.t
deleted file mode 100644
index ef484f9..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/sum.t
+++ /dev/null
@@ -1,69 +0,0 @@
-#!./perl
-
-BEGIN {
- unless (-d 'blib') {
- chdir 't' if -d 't';
- @INC = '../lib';
- require Config; import Config;
- keys %Config; # Silence warning
- if ($Config{extensions} !~ /\bList\/Util\b/) {
- print "1..0 # Skip: List::Util was not built\n";
- exit 0;
- }
- }
-}
-
-use Test::More tests => 8;
-
-use List::Util qw(sum);
-
-my $v = sum;
-is( $v, undef, 'no args');
-
-$v = sum(9);
-is( $v, 9, 'one arg');
-
-$v = sum(1,2,3,4);
-is( $v, 10, '4 args');
-
-$v = sum(-1);
-is( $v, -1, 'one -1');
-
-my $x = -3;
-
-$v = sum($x, 3);
-is( $v, 0, 'variable arg');
-
-$v = sum(-3.5,3);
-is( $v, -0.5, 'real numbers');
-
-my $one = Foo->new(1);
-my $two = Foo->new(2);
-my $thr = Foo->new(3);
-
-$v = sum($one,$two,$thr);
-is($v, 6, 'overload');
-
-
-{ package Foo;
-
-use overload
- '""' => sub { ${$_[0]} },
- '+0' => sub { ${$_[0]} },
- fallback => 1;
- sub new {
- my $class = shift;
- my $value = shift;
- bless \$value, $class;
- }
-}
-
-SKIP: {
- eval { require bignum; } or skip("Need bignum for testing overloading",1);
-
- my $v1 = 2**65;
- my $v2 = 2**65;
- my $v3 = $v1 + $v2;
- $v = sum($v1,$v2);
- is($v, $v3, 'bignum');
-}
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/tainted.t b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/tainted.t
deleted file mode 100644
index 09ad330..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/tainted.t
+++ /dev/null
@@ -1,34 +0,0 @@
-#!./perl -T
-
-BEGIN {
- unless (-d 'blib') {
- chdir 't' if -d 't';
- @INC = '../lib';
- require Config; import Config;
- keys %Config; # Silence warning
- if ($Config{extensions} !~ /\bList\/Util\b/) {
- print "1..0 # Skip: List::Util was not built\n";
- exit 0;
- }
- }
- elsif(!grep {/blib/} @INC) {
- unshift(@INC, qw(./inc ./blib/arch ./blib/lib));
- }
-}
-
-use Test::More tests => 4;
-
-use Scalar::Util qw(tainted);
-
-ok( !tainted(1), 'constant number');
-
-my $var = 2;
-
-ok( !tainted($var), 'known variable');
-
-my $key = (keys %ENV)[0];
-
-ok( tainted($ENV{$key}), 'environment variable');
-
-$var = $ENV{$key};
-ok( tainted($var), 'copy of environment variable');
diff --git a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/weak.t b/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/weak.t
deleted file mode 100644
index f014113..0000000
--- a/3.8.8/sources/cpan-Scalar-List-Utils/vendor/t/weak.t
+++ /dev/null
@@ -1,208 +0,0 @@
-#!./perl
-
-use strict;
-use Config;
-BEGIN {
- unless (-d 'blib') {
- chdir 't' if -d 't';
- @INC = '../lib';
- keys %Config; # Silence warning
- if ($Config{extensions} !~ /\bList\/Util\b/) {
- print "1..0 # Skip: List::Util was not built\n";
- exit 0;
- }
- }
-}
-
-use Scalar::Util ();
-use Test::More ((grep { /weaken/ } @Scalar::Util::EXPORT_FAIL) and !$ENV{PERL_CORE})
- ? (skip_all => 'weaken requires XS version')
- : (tests => 22);
-
-if (0) {
- require Devel::Peek;
- Devel::Peek->import('Dump');
-}
-else {
- *Dump = sub {};
-}
-
-Scalar::Util->import(qw(weaken isweak));
-
-if(1) {
-
-my ($y,$z);
-
-#
-# Case 1: two references, one is weakened, the other is then undef'ed.
-#
-
-{
- my $x = "foo";
- $y = \$x;
- $z = \$x;
-}
-print "# START\n";
-Dump($y); Dump($z);
-
-ok( ref($y) and ref($z));
-
-print "# WEAK:\n";
-weaken($y);
-Dump($y); Dump($z);
-
-ok( ref($y) and ref($z));
-
-print "# UNDZ:\n";
-undef($z);
-Dump($y); Dump($z);
-
-ok( not (defined($y) and defined($z)) );
-
-print "# UNDY:\n";
-undef($y);
-Dump($y); Dump($z);
-
-ok( not (defined($y) and defined($z)) );
-
-print "# FIN:\n";
-Dump($y); Dump($z);
-
-
-#
-# Case 2: one reference, which is weakened
-#
-
-print "# CASE 2:\n";
-
-{
- my $x = "foo";
- $y = \$x;
-}
-
-ok( ref($y) );
-print "# BW: \n";
-Dump($y);
-weaken($y);
-print "# AW: \n";
-Dump($y);
-ok( not defined $y );
-
-print "# EXITBLOCK\n";
-}
-
-#
-# Case 3: a circular structure
-#
-
-my $flag = 0;
-{
- my $y = bless {}, 'Dest';
- Dump($y);
- print "# 1: $y\n";
- $y->{Self} = $y;
- Dump($y);
- print "# 2: $y\n";
- $y->{Flag} = \$flag;
- print "# 3: $y\n";
- weaken($y->{Self});
- print "# WKED\n";
- ok( ref($y) );
- print "# VALS: HASH ",$y," SELF ",\$y->{Self}," Y ",\$y,
- " FLAG: ",\$y->{Flag},"\n";
- print "# VPRINT\n";
-}
-print "# OUT $flag\n";
-ok( $flag == 1 );
-
-print "# AFTER\n";
-
-undef $flag;
-
-print "# FLAGU\n";
-
-#
-# Case 4: a more complicated circular structure
-#
-
-$flag = 0;
-{
- my $y = bless {}, 'Dest';
- my $x = bless {}, 'Dest';
- $x->{Ref} = $y;
- $y->{Ref} = $x;
- $x->{Flag} = \$flag;
- $y->{Flag} = \$flag;
- weaken($x->{Ref});
-}
-ok( $flag == 2 );
-
-#
-# Case 5: deleting a weakref before the other one
-#
-
-my ($y,$z);
-{
- my $x = "foo";
- $y = \$x;
- $z = \$x;
-}
-
-print "# CASE5\n";
-Dump($y);
-
-weaken($y);
-Dump($y);
-undef($y);
-
-ok( not defined $y);
-ok( ref($z) );
-
-
-#
-# Case 6: test isweakref
-#
-
-$a = 5;
-ok(!isweak($a));
-$b = \$a;
-ok(!isweak($b));
-weaken($b);
-ok(isweak($b));
-$b = \$a;
-ok(!isweak($b));
-
-my $x = {};
-weaken($x->{Y} = \$a);
-ok(isweak($x->{Y}));
-ok(!isweak($x->{Z}));
-
-#
-# Case 7: test weaken on a read only ref
-#
-
-SKIP: {
- # Doesn't work for older perls, see bug [perl #24506]
- skip("Test does not work with perl < 5.8.3", 5) if $] < 5.008003;
-
- # in a MAD build, constants have refcnt 2, not 1
- skip("Test does not work with MAD", 5) if exists $Config{mad};
-
- $a = eval '\"hello"';
- ok(ref($a)) or print "# didn't get a ref from eval\n";
- $b = $a;
- eval{weaken($b)};
- # we didn't die
- ok($@ eq "") or print "# died with $@\n";
- ok(isweak($b));
- ok($$b eq "hello") or print "# b is '$$b'\n";
- $a="";
- ok(not $b) or print "# b didn't go away\n";
-}
-
-package Dest;
-
-sub DESTROY {
- print "# INCFLAG\n";
- ${$_[0]{Flag}} ++;
-}
diff --git a/3.8.8/sources/cpan-Storable/vendor/META.yml b/3.8.8/sources/cpan-Storable/vendor/META.yml
deleted file mode 100644
index 5fdba17..0000000
--- a/3.8.8/sources/cpan-Storable/vendor/META.yml
+++ /dev/null
@@ -1,12 +0,0 @@
---- #YAML:1.0
-name: Storable
-version: 2.21
-abstract: ~
-license: ~
-author: ~
-generated_by: ExtUtils::MakeMaker version 6.44
-distribution_type: module
-requires:
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
- version: 1.3
diff --git a/3.8.8/sources/cpan-Storable/vendor/Makefile.PL b/3.8.8/sources/cpan-Storable/vendor/Makefile.PL
deleted file mode 100644
index b840b39..0000000
--- a/3.8.8/sources/cpan-Storable/vendor/Makefile.PL
+++ /dev/null
@@ -1,39 +0,0 @@
-#
-# Copyright (c) 1995-2000, Raphael Manfredi
-#
-# You may redistribute only under the same terms as Perl 5, as specified
-# in the README file that comes with the distribution.
-#
-
-use ExtUtils::MakeMaker;
-use Config;
-
-WriteMakefile(
- NAME => 'Storable',
- DISTNAME => "Storable",
-# We now ship this in t/
-# PREREQ_PM => { 'Test::More' => '0.41' },
- INSTALLDIRS => $] >= 5.007 ? 'perl' : 'site',
- VERSION_FROM => 'Storable.pm',
- dist => { SUFFIX => 'gz', COMPRESS => 'gzip -f' },
-);
-
-my $ivtype = $Config{ivtype};
-
-# I don't know if the VMS folks ever supported long long on 5.6.x
-if ($ivtype and $ivtype eq 'long long' and $^O !~ /^MSWin/) {
- print <<'EOM';
-
-You appear to have a perl configured to use 64 bit integers in its scalar
-variables. If you have existing data written with an earlier version of
-Storable which this version of Storable refuses to load with a
-
- Byte order is not compatible
-
-error, then please read the section "64 bit data in perl 5.6.0 and 5.6.1"
-in the Storable documentation for instructions on how to read your data.
-
-(You can find the documentation at the end of Storable.pm in POD format)
-
-EOM
-}
diff --git a/3.8.8/sources/cpan-Storable/vendor/hints/linux.pl b/3.8.8/sources/cpan-Storable/vendor/hints/linux.pl
deleted file mode 100644
index 0c7d5e3..0000000
--- a/3.8.8/sources/cpan-Storable/vendor/hints/linux.pl
+++ /dev/null
@@ -1,15 +0,0 @@
-# gcc -O3 (and higher) can cause code produced from Storable.xs that
-# dumps core immediately in recurse.t and retrieve.t, in is_storing()
-# and last_op_in_netorder(), respectively. In both cases the cxt is
-# full of junk (and according to valgrind the cxt was never stack'd,
-# malloc'd or free'd). Observed in Debian 3.0 x86, with gccs 2.95.4
-# 20011002 and 3.3, and in Redhat 7.1 with gcc 3.3.1. The failures
-# happen only for unthreaded builds, threaded builds work okay.
-use Config;
-if ($Config{gccversion}) {
- my $optimize = $Config{optimize};
- if ($optimize =~ s/(^| )-O[3-9]( |$)/$1-O2$2/) {
- $self->{OPTIMIZE} = $optimize;
- }
-}
-
diff --git a/3.8.8/sources/cpan-Storable/vendor/t/HAS_OVERLOAD.pm b/3.8.8/sources/cpan-Storable/vendor/t/HAS_OVERLOAD.pm
deleted file mode 100644
index 8a622a4..0000000
--- a/3.8.8/sources/cpan-Storable/vendor/t/HAS_OVERLOAD.pm
+++ /dev/null
@@ -1,14 +0,0 @@
-package HAS_OVERLOAD;
-
-use overload
- '""' => sub { ${$_[0]} }, fallback => 1;
-
-sub make {
- my $package = shift;
- my $value = shift;
- bless \$value, $package;
-}
-
-++$loaded_count;
-
-1;
diff --git a/3.8.8/sources/cpan-Storable/vendor/t/Test/Builder.pm b/3.8.8/sources/cpan-Storable/vendor/t/Test/Builder.pm
deleted file mode 100644
index 6f3edd8..0000000
--- a/3.8.8/sources/cpan-Storable/vendor/t/Test/Builder.pm
+++ /dev/null
@@ -1,1408 +0,0 @@
-package Test::Builder;
-
-use 5.004;
-
-# $^C was only introduced in 5.005-ish. We do this to prevent
-# use of uninitialized value warnings in older perls.
-$^C ||= 0;
-
-use strict;
-use vars qw($VERSION $CLASS);
-$VERSION = '0.17';
-$CLASS = __PACKAGE__;
-
-my $IsVMS = $^O eq 'VMS';
-
-# Make Test::Builder thread-safe for ithreads.
-BEGIN {
- use Config;
- if( $] >= 5.008 && $Config{useithreads} ) {
- require threads;
- require threads::shared;
- threads::shared->import;
- }
- else {
- *share = sub { 0 };
- *lock = sub { 0 };
- }
-}
-
-use vars qw($Level);
-my($Test_Died) = 0;
-my($Have_Plan) = 0;
-my $Original_Pid = $$;
-my $Curr_Test = 0; share($Curr_Test);
-my @Test_Results = (); share(@Test_Results);
-my @Test_Details = (); share(@Test_Details);
-
-
-=head1 NAME
-
-Test::Builder - Backend for building test libraries
-
-=head1 SYNOPSIS
-
- package My::Test::Module;
- use Test::Builder;
- require Exporter;
- @ISA = qw(Exporter);
- @EXPORT = qw(ok);
-
- my $Test = Test::Builder->new;
- $Test->output('my_logfile');
-
- sub import {
- my($self) = shift;
- my $pack = caller;
-
- $Test->exported_to($pack);
- $Test->plan(@_);
-
- $self->export_to_level(1, $self, 'ok');
- }
-
- sub ok {
- my($test, $name) = @_;
-
- $Test->ok($test, $name);
- }
-
-
-=head1 DESCRIPTION
-
-Test::Simple and Test::More have proven to be popular testing modules,
-but they're not always flexible enough. Test::Builder provides the 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, there is B<one and only one>
-Test::Builder object. No matter how many times you call new(), you're
-getting the same object. (This is called a singleton).
-
-=cut
-
-my $Test;
-sub new {
- my($class) = shift;
- $Test ||= bless ['Move along, nothing to see here'], $class;
- return $Test;
-}
-
-=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<exported_to>
-
- my $pack = $Test->exported_to;
- $Test->exported_to($pack);
-
-Tells Test::Builder what package you exported your functions to.
-This is important for getting TODO tests right.
-
-=cut
-
-my $Exported_To;
-sub exported_to {
- my($self, $pack) = @_;
-
- if( defined $pack ) {
- $Exported_To = $pack;
- }
- return $Exported_To;
-}
-
-=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 plan(), don't call any of the other methods below.
-
-=cut
-
-sub plan {
- my($self, $cmd, $arg) = @_;
-
- return unless $cmd;
-
- if( $Have_Plan ) {
- die sprintf "You tried to plan twice! Second plan at %s line %d\n",
- ($self->caller)[1,2];
- }
-
- if( $cmd eq 'no_plan' ) {
- $self->no_plan;
- }
- elsif( $cmd eq 'skip_all' ) {
- return $self->skip_all($arg);
- }
- elsif( $cmd eq 'tests' ) {
- if( $arg ) {
- return $self->expected_tests($arg);
- }
- elsif( !defined $arg ) {
- die "Got an undefined number of tests. Looks like you tried to ".
- "say how many tests you plan to run but made a mistake.\n";
- }
- elsif( !$arg ) {
- die "You said to run 0 tests! You've got to run something.\n";
- }
- }
- else {
- require Carp;
- my @args = grep { defined } ($cmd, $arg);
- Carp::croak("plan() doesn't understand @args");
- }
-
- return 1;
-}
-
-=item B<expected_tests>
-
- my $max = $Test->expected_tests;
- $Test->expected_tests($max);
-
-Gets/sets the # of tests we expect this test to run and prints out
-the appropriate headers.
-
-=cut
-
-my $Expected_Tests = 0;
-sub expected_tests {
- my($self, $max) = @_;
-
- if( defined $max ) {
- $Expected_Tests = $max;
- $Have_Plan = 1;
-
- $self->_print("1..$max\n") unless $self->no_header;
- }
- return $Expected_Tests;
-}
-
-
-=item B<no_plan>
-
- $Test->no_plan;
-
-Declares that this test will run an indeterminate # of tests.
-
-=cut
-
-my($No_Plan) = 0;
-sub no_plan {
- $No_Plan = 1;
- $Have_Plan = 1;
-}
-
-=item B<has_plan>
-
- $plan = $Test->has_plan
-
-Find out whether a plan has been defined. $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 {
- return($Expected_Tests) if $Expected_Tests;
- return('no_plan') if $No_Plan;
- return(undef);
-};
-
-
-=item B<skip_all>
-
- $Test->skip_all;
- $Test->skip_all($reason);
-
-Skips all the tests, using the given $reason. Exits immediately with 0.
-
-=cut
-
-my $Skip_All = 0;
-sub skip_all {
- my($self, $reason) = @_;
-
- my $out = "1..0";
- $out .= " # Skip $reason" if $reason;
- $out .= "\n";
-
- $Skip_All = 1;
-
- $self->_print($out) unless $self->no_header;
- exit(0);
-}
-
-=back
-
-=head2 Running tests
-
-These actually run the tests, analogous to the functions in
-Test::More.
-
-$name is always optional.
-
-=over 4
-
-=item B<ok>
-
- $Test->ok($test, $name);
-
-Your basic test. Pass if $test is true, fail if $test is false. Just
-like Test::Simple's ok().
-
-=cut
-
-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;
-
- unless( $Have_Plan ) {
- require Carp;
- Carp::croak("You tried to run a test without a plan! Gotta have a plan.");
- }
-
- lock $Curr_Test;
- $Curr_Test++;
-
- $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
-
- my($pack, $file, $line) = $self->caller;
-
- my $todo = $self->todo($pack);
-
- my $out;
- my $result = {};
- share($result);
-
- unless( $test ) {
- $out .= "not ";
- @$result{ 'ok', 'actual_ok' } = ( ( $todo ? 1 : 0 ), 0 );
- }
- else {
- @$result{ 'ok', 'actual_ok' } = ( 1, $test );
- }
-
- $out .= "ok";
- $out .= " $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( $todo ) {
- my $what_todo = $todo;
- $out .= " # TODO $what_todo";
- $result->{reason} = $what_todo;
- $result->{type} = 'todo';
- }
- else {
- $result->{reason} = '';
- $result->{type} = '';
- }
-
- $Test_Results[$Curr_Test-1] = $result;
- $out .= "\n";
-
- $self->_print($out);
-
- unless( $test ) {
- my $msg = $todo ? "Failed (TODO)" : "Failed";
- $self->diag(" $msg test ($file at line $line)\n");
- }
-
- return $test ? 1 : 0;
-}
-
-=item B<is_eq>
-
- $Test->is_eq($got, $expected, $name);
-
-Like Test::More's is(). Checks if $got eq $expected. This is the
-string version.
-
-=item B<is_num>
-
- $Test->is_num($got, $expected, $name);
-
-Like Test::More's is(). Checks if $got == $expected. This is the
-numeric version.
-
-=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 _is_diag {
- my($self, $got, $type, $expect) = @_;
-
- foreach my $val (\$got, \$expect) {
- if( defined $$val ) {
- if( $type eq 'eq' ) {
- # quote and force string context
- $$val = "'$$val'"
- }
- else {
- # force numeric context
- $$val = $$val+0;
- }
- }
- else {
- $$val = 'undef';
- }
- }
-
- return $self->diag(sprintf <<DIAGNOSTIC, $got, $expect);
- got: %s
- expected: %s
-DIAGNOSTIC
-
-}
-
-=item B<isnt_eq>
-
- $Test->isnt_eq($got, $dont_expect, $name);
-
-Like Test::More's isnt(). Checks if $got ne $dont_expect. This is
-the string version.
-
-=item B<isnt_num>
-
- $Test->is_num($got, $dont_expect, $name);
-
-Like Test::More's isnt(). Checks if $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->_cmp_diag('ne', $got, $dont_expect) 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->_cmp_diag('!=', $got, $dont_expect) unless $test;
- return $test;
- }
-
- return $self->cmp_ok($got, '!=', $dont_expect, $name);
-}
-
-
-=item B<like>
-
- $Test->like($this, qr/$regex/, $name);
- $Test->like($this, '/$regex/', $name);
-
-Like Test::More's like(). Checks if $this matches the given $regex.
-
-You'll want to avoid qr// if you want your tests to work before 5.005.
-
-=item B<unlike>
-
- $Test->unlike($this, qr/$regex/, $name);
- $Test->unlike($this, '/$regex/', $name);
-
-Like Test::More's unlike(). Checks if $this B<does not match> the
-given $regex.
-
-=cut
-
-sub like {
- my($self, $this, $regex, $name) = @_;
-
- local $Level = $Level + 1;
- $self->_regex_ok($this, $regex, '=~', $name);
-}
-
-sub unlike {
- my($self, $this, $regex, $name) = @_;
-
- local $Level = $Level + 1;
- $self->_regex_ok($this, $regex, '!~', $name);
-}
-
-=item B<maybe_regex>
-
- $Test->maybe_regex(qr/$regex/);
- $Test->maybe_regex('/$regex/');
-
-Convenience method for building testing functions that take regular
-expressions as arguments, but need to work before perl 5.005.
-
-Takes a quoted regular expression produced by qr//, or a string
-representing a regular expression.
-
-Returns a Perl value which may be used instead of the corresponding
-regular expression, or undef if it's argument is not recognised.
-
-For example, a version of like(), sans the useful diagnostic messages,
-could be written as:
-
- sub laconic_like {
- my ($self, $this, $regex, $name) = @_;
- my $usable_regex = $self->maybe_regex($regex);
- die "expecting regex, found '$regex'\n"
- unless $usable_regex;
- $self->ok($this =~ m/$usable_regex/, $name);
- }
-
-=cut
-
-
-sub maybe_regex {
- my ($self, $regex) = @_;
- my $usable_regex = undef;
- if( ref $regex eq 'Regexp' ) {
- $usable_regex = $regex;
- }
- # Check if it looks like '/foo/'
- elsif( my($re, $opts) = $regex =~ m{^ /(.*)/ (\w*) $ }sx ) {
- $usable_regex = length $opts ? "(?$opts)$re" : $re;
- };
- return($usable_regex)
-};
-
-sub _regex_ok {
- my($self, $this, $regex, $cmp, $name) = @_;
-
- local $Level = $Level + 1;
-
- my $ok = 0;
- my $usable_regex = $self->maybe_regex($regex);
- unless (defined $usable_regex) {
- $ok = $self->ok( 0, $name );
- $self->diag(" '$regex' doesn't look much like a regex to me.");
- return $ok;
- }
-
- {
- local $^W = 0;
- my $test = $this =~ /$usable_regex/ ? 1 : 0;
- $test = !$test if $cmp eq '!~';
- $ok = $self->ok( $test, $name );
- }
-
- unless( $ok ) {
- $this = defined $this ? "'$this'" : 'undef';
- my $match = $cmp eq '=~' ? "doesn't match" : "matches";
- $self->diag(sprintf <<DIAGNOSTIC, $this, $match, $regex);
- %s
- %13s '%s'
-DIAGNOSTIC
-
- }
-
- return $ok;
-}
-
-=item B<cmp_ok>
-
- $Test->cmp_ok($this, $type, $that, $name);
-
-Works just like Test::More's cmp_ok().
-
- $Test->cmp_ok($big_num, '!=', $other_big_num);
-
-=cut
-
-sub cmp_ok {
- my($self, $got, $type, $expect, $name) = @_;
-
- my $test;
- {
- local $^W = 0;
- local($@,$!); # don't interfere with $@
- # eval() sometimes resets $!
- $test = eval "\$got $type \$expect";
- }
- local $Level = $Level + 1;
- my $ok = $self->ok($test, $name);
-
- unless( $ok ) {
- if( $type =~ /^(eq|==)$/ ) {
- $self->_is_diag($got, $type, $expect);
- }
- 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';
- return $self->diag(sprintf <<DIAGNOSTIC, $got, $type, $expect);
- %s
- %s
- %s
-DIAGNOSTIC
-}
-
-=item B<BAILOUT>
-
- $Test->BAILOUT($reason);
-
-Indicates to the 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 BAILOUT {
- my($self, $reason) = @_;
-
- $self->_print("Bail out! $reason");
- exit 255;
-}
-
-=item B<skip>
-
- $Test->skip;
- $Test->skip($why);
-
-Skips the current test, reporting $why.
-
-=cut
-
-sub skip {
- my($self, $why) = @_;
- $why ||= '';
-
- unless( $Have_Plan ) {
- require Carp;
- Carp::croak("You tried to run tests without a plan! Gotta have a plan.");
- }
-
- lock($Curr_Test);
- $Curr_Test++;
-
- my %result;
- share(%result);
- %result = (
- 'ok' => 1,
- actual_ok => 1,
- name => '',
- type => 'skip',
- reason => $why,
- );
- $Test_Results[$Curr_Test-1] = \%result;
-
- my $out = "ok";
- $out .= " $Curr_Test" if $self->use_numbers;
- $out .= " # skip $why\n";
-
- $Test->_print($out);
-
- return 1;
-}
-
-
-=item B<todo_skip>
-
- $Test->todo_skip;
- $Test->todo_skip($why);
-
-Like 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 ||= '';
-
- unless( $Have_Plan ) {
- require Carp;
- Carp::croak("You tried to run tests without a plan! Gotta have a plan.");
- }
-
- lock($Curr_Test);
- $Curr_Test++;
-
- my %result;
- share(%result);
- %result = (
- 'ok' => 1,
- actual_ok => 0,
- name => '',
- type => 'todo_skip',
- reason => $why,
- );
-
- $Test_Results[$Curr_Test-1] = \%result;
-
- my $out = "not ok";
- $out .= " $Curr_Test" if $self->use_numbers;
- $out .= " # TODO & SKIP $why\n";
-
- $Test->_print($out);
-
- return 1;
-}
-
-
-=begin _unimplemented
-
-=item B<skip_rest>
-
- $Test->skip_rest;
- $Test->skip_rest($reason);
-
-Like skip(), only it skips all the rest of the tests you plan to run
-and terminates the test.
-
-If you're running under no_plan, it skips once and terminates the
-test.
-
-=end _unimplemented
-
-=back
-
-
-=head2 Test style
-
-=over 4
-
-=item B<level>
-
- $Test->level($how_high);
-
-How far up the call stack should $Test look when reporting where the
-test failed.
-
-Defaults to 1.
-
-Setting $Test::Builder::Level overrides. This is typically useful
-localized:
-
- {
- local $Test::Builder::Level = 2;
- $Test->ok($test);
- }
-
-=cut
-
-sub level {
- my($self, $level) = @_;
-
- if( defined $level ) {
- $Level = $level;
- }
- return $Level;
-}
-
-$CLASS->level(1);
-
-
-=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.
-
-Test::Harness will accept either, but avoid mixing the two styles.
-
-Defaults to on.
-
-=cut
-
-my $Use_Nums = 1;
-sub use_numbers {
- my($self, $use_nums) = @_;
-
- if( defined $use_nums ) {
- $Use_Nums = $use_nums;
- }
- return $Use_Nums;
-}
-
-=item B<no_header>
-
- $Test->no_header($no_header);
-
-If set to true, no "1..N" header will be printed.
-
-=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 in Test::Simple.
-
-If this is true, none of that will be done.
-
-=cut
-
-my($No_Header, $No_Ending) = (0,0);
-sub no_header {
- my($self, $no_header) = @_;
-
- if( defined $no_header ) {
- $No_Header = $no_header;
- }
- return $No_Header;
-}
-
-sub no_ending {
- my($self, $no_ending) = @_;
-
- if( defined $no_ending ) {
- $No_Ending = $no_ending;
- }
- return $No_Ending;
-}
-
-
-=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 $message. Normally, it uses the failure_output()
-handle, but if this is for a TODO test, the 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 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 at twoshortplanks.com>
-
-=cut
-
-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;
- s/^/# /gms;
- }
-
- push @msgs, "\n" unless $msgs[-1] =~ /\n\Z/;
-
- local $Level = $Level + 1;
- my $fh = $self->todo ? $self->todo_output : $self->failure_output;
- local($\, $", $,) = (undef, ' ', '');
- print $fh @msgs;
-
- return 0;
-}
-
-=begin _private
-
-=item B<_print>
-
- $Test->_print(@msgs);
-
-Prints to the output() filehandle.
-
-=end _private
-
-=cut
-
-sub _print {
- my($self, @msgs) = @_;
-
- # Prevent printing headers when only compiling. Mostly for when
- # tests are deparsed with B::Deparse
- return if $^C;
-
- local($\, $", $,) = (undef, ' ', '');
- my $fh = $self->output;
-
- # Escape each line after the first with a # so we don't
- # confuse Test::Harness.
- foreach (@msgs) {
- s/\n(.)/\n# $1/sg;
- }
-
- push @msgs, "\n" unless $msgs[-1] =~ /\n\Z/;
-
- print $fh @msgs;
-}
-
-
-=item B<output>
-
- $Test->output($fh);
- $Test->output($file);
-
-Where normal "ok/not ok" test output should go.
-
-Defaults to STDOUT.
-
-=item B<failure_output>
-
- $Test->failure_output($fh);
- $Test->failure_output($file);
-
-Where diagnostic output on test failures and diag() should go.
-
-Defaults to STDERR.
-
-=item B<todo_output>
-
- $Test->todo_output($fh);
- $Test->todo_output($file);
-
-Where diagnostics about todo test failures and diag() should go.
-
-Defaults to STDOUT.
-
-=cut
-
-my($Out_FH, $Fail_FH, $Todo_FH);
-sub output {
- my($self, $fh) = @_;
-
- if( defined $fh ) {
- $Out_FH = _new_fh($fh);
- }
- return $Out_FH;
-}
-
-sub failure_output {
- my($self, $fh) = @_;
-
- if( defined $fh ) {
- $Fail_FH = _new_fh($fh);
- }
- return $Fail_FH;
-}
-
-sub todo_output {
- my($self, $fh) = @_;
-
- if( defined $fh ) {
- $Todo_FH = _new_fh($fh);
- }
- return $Todo_FH;
-}
-
-sub _new_fh {
- my($file_or_fh) = shift;
-
- my $fh;
- unless( UNIVERSAL::isa($file_or_fh, 'GLOB') ) {
- $fh = do { local *FH };
- open $fh, ">$file_or_fh" or
- die "Can't open test output log $file_or_fh: $!";
- }
- else {
- $fh = $file_or_fh;
- }
-
- return $fh;
-}
-
-unless( $^C ) {
- # 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: $!";
-
- # 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);
-
- $CLASS->output(\*TESTOUT);
- $CLASS->failure_output(\*TESTERR);
- $CLASS->todo_output(\*TESTOUT);
-}
-
-sub _autoflush {
- my($fh) = shift;
- my $old_fh = select $fh;
- $| = 1;
- select $old_fh;
-}
-
-
-=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 # we're on.
-
-You usually shouldn't have to set this.
-
-=cut
-
-sub current_test {
- my($self, $num) = @_;
-
- lock($Curr_Test);
- if( defined $num ) {
- unless( $Have_Plan ) {
- require Carp;
- Carp::croak("Can't change the current test number without a plan!");
- }
-
- $Curr_Test = $num;
- if( $num > @Test_Results ) {
- my $start = @Test_Results ? $#Test_Results + 1 : 0;
- for ($start..$num-1) {
- my %result;
- share(%result);
- %result = ( ok => 1,
- actual_ok => undef,
- reason => 'incrementing test number',
- type => 'unknown',
- name => undef
- );
- $Test_Results[$_] = \%result;
- }
- }
- }
- return $Curr_Test;
-}
-
-
-=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'} } @Test_Results;
-}
-
-=item B<details>
-
- my @tests = $Test->details;
-
-Like 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 current_test() is changed.
-In these cases, Test::Builder doesn't know the result of the test, so
-it's type is 'unkown'. These details for these tests are filled in.
-They are considered ok, but the name and actual_ok is left 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 it's todo
- actual_ok => 0, # in absolute terms, it failed
- name => 'hole count',
- type => 'todo',
- reason => 'insufficient donuts'
- };
-
-=cut
-
-sub details {
- return @Test_Results;
-}
-
-=item B<todo>
-
- my $todo_reason = $Test->todo;
- my $todo_reason = $Test->todo($pack);
-
-todo() looks for a $TODO variable in your tests. If set, all tests
-will be considered 'todo' (see Test::More and Test::Harness for
-details). Returns the reason (ie. the value of $TODO) if running as
-todo tests, false otherwise.
-
-todo() is pretty part about finding the right package to look for
-$TODO in. It uses the exported_to() package to find it. If that's
-not set, it's pretty good at guessing the right package to look at.
-
-Sometimes there is some confusion about where todo() should be looking
-for the $TODO variable. If you want to be sure, tell it explicitly
-what $pack to use.
-
-=cut
-
-sub todo {
- my($self, $pack) = @_;
-
- $pack = $pack || $self->exported_to || $self->caller(1);
-
- no strict 'refs';
- return defined ${$pack.'::TODO'} ? ${$pack.'::TODO'}
- : 0;
-}
-
-=item B<caller>
-
- my $package = $Test->caller;
- my($pack, $file, $line) = $Test->caller;
- my($pack, $file, $line) = $Test->caller($height);
-
-Like the normal caller(), except it reports according to your level().
-
-=cut
-
-sub caller {
- my($self, $height) = @_;
- $height ||= 0;
-
- my @caller = CORE::caller($self->level + $height + 1);
- return wantarray ? @caller : $caller[0];
-}
-
-=back
-
-=cut
-
-=begin _private
-
-=over 4
-
-=item B<_sanity_check>
-
- _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 {
- _whoa($Curr_Test < 0, 'Says here you ran a negative number of tests!');
- _whoa(!$Have_Plan and $Curr_Test,
- 'Somehow your tests ran without a plan!');
- _whoa($Curr_Test != @Test_Results,
- 'Somehow you got a different number of results than tests ran!');
-}
-
-=item B<_whoa>
-
- _whoa($check, $description);
-
-A sanity check, similar to assert(). If the $check is true, something
-has gone horribly wrong. It will die with the given $description and
-a note to contact the author.
-
-=cut
-
-sub _whoa {
- my($check, $desc) = @_;
- if( $check ) {
- die <<WHOA;
-WHOA! $desc
-This should never happen! Please contact the author immediately!
-WHOA
- }
-}
-
-=item B<_my_exit>
-
- _my_exit($exit_num);
-
-Perl seems to have some trouble with exiting inside an END block. 5.005_03
-and 5.6.1 both seem to do odd things. Instead, this function edits $?
-directly. It should ONLY be called from inside an END block. It
-doesn't actually exit, that's your job.
-
-=cut
-
-sub _my_exit {
- $? = $_[0];
-
- return 1;
-}
-
-
-=back
-
-=end _private
-
-=cut
-
-$SIG{__DIE__} = sub {
- # We don't want to muck with death in an eval, but $^S isn't
- # totally reliable. 5.005_03 and 5.6.1 both do the wrong thing
- # with it. Instead, we use caller. This also means it runs under
- # 5.004!
- my $in_eval = 0;
- for( my $stack = 1; my $sub = (CORE::caller($stack))[3]; $stack++ ) {
- $in_eval = 1 if $sub =~ /^\(eval\)/;
- }
- $Test_Died = 1 unless $in_eval;
-};
-
-sub _ending {
- my $self = shift;
-
- _sanity_check();
-
- # Don't bother with an ending if this is a forked copy. Only the parent
- # should do the ending.
- do{ _my_exit($?) && return } if $Original_Pid != $$;
-
- # Bailout if plan() was never called. This is so
- # "require Test::Simple" doesn't puke.
- do{ _my_exit(0) && return } if !$Have_Plan && !$Test_Died;
-
- # Figure out if we passed or failed and print helpful messages.
- if( @Test_Results ) {
- # The plan? We have no plan.
- if( $No_Plan ) {
- $self->_print("1..$Curr_Test\n") unless $self->no_header;
- $Expected_Tests = $Curr_Test;
- }
-
- # 5.8.0 threads bug. Shared arrays will not be auto-extended
- # by a slice. Worse, we have to fill in every entry else
- # we'll get an "Invalid value for shared scalar" error
- for my $idx ($#Test_Results..$Expected_Tests-1) {
- my %empty_result = ();
- share(%empty_result);
- $Test_Results[$idx] = \%empty_result
- unless defined $Test_Results[$idx];
- }
-
- my $num_failed = grep !$_->{'ok'}, @Test_Results[0..$Expected_Tests-1];
- $num_failed += abs($Expected_Tests - @Test_Results);
-
- if( $Curr_Test < $Expected_Tests ) {
- $self->diag(<<"FAIL");
-Looks like you planned $Expected_Tests tests but only ran $Curr_Test.
-FAIL
- }
- elsif( $Curr_Test > $Expected_Tests ) {
- my $num_extra = $Curr_Test - $Expected_Tests;
- $self->diag(<<"FAIL");
-Looks like you planned $Expected_Tests tests but ran $num_extra extra.
-FAIL
- }
- elsif ( $num_failed ) {
- $self->diag(<<"FAIL");
-Looks like you failed $num_failed tests of $Expected_Tests.
-FAIL
- }
-
- if( $Test_Died ) {
- $self->diag(<<"FAIL");
-Looks like your test died just after $Curr_Test.
-FAIL
-
- _my_exit( 255 ) && return;
- }
-
- _my_exit( $num_failed <= 254 ? $num_failed : 254 ) && return;
- }
- elsif ( $Skip_All ) {
- _my_exit( 0 ) && return;
- }
- elsif ( $Test_Died ) {
- $self->diag(<<'FAIL');
-Looks like your test died before it could output anything.
-FAIL
- }
- else {
- $self->diag("No tests run!\n");
- _my_exit( 255 ) && return;
- }
-}
-
-END {
- $Test->_ending if defined $Test and !$Test->no_ending;
-}
-
-=head1 THREADS
-
-In perl 5.8.0 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 current_test() they will all be effected.
-
-=head1 EXAMPLES
-
-CPAN can provide the best examples. Test::Simple, Test::More,
-Test::Exception and Test::Differences all use Test::Builder.
-
-=head1 SEE ALSO
-
-Test::Simple, Test::More, Test::Harness
-
-=head1 AUTHORS
-
-Original code by chromatic, maintained by Michael G Schwern
-E<lt>schwern at pobox.comE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2002 by chromatic E<lt>chromatic at wgz.orgE<gt>,
- Michael G Schwern E<lt>schwern at 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/3.8.8/sources/cpan-Storable/vendor/t/Test/Simple.pm b/3.8.8/sources/cpan-Storable/vendor/t/Test/Simple.pm
deleted file mode 100644
index 563528b..0000000
--- a/3.8.8/sources/cpan-Storable/vendor/t/Test/Simple.pm
+++ /dev/null
@@ -1,235 +0,0 @@
-package Test::Simple;
-
-use 5.004;
-
-use strict 'vars';
-use vars qw($VERSION);
-$VERSION = '0.47';
-
-
-use Test::Builder;
-my $Test = Test::Builder->new;
-
-sub import {
- my $self = shift;
- my $caller = caller;
- *{$caller.'::ok'} = \&ok;
-
- $Test->exported_to($caller);
- $Test->plan(@_);
-}
-
-
-=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 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 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 );
-
-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.
-
-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 ($;$) {
- $Test->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 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
- 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) and 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 (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.004.
-
-Test::Simple is thread-safe in perl 5.8.0 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
-Test::More. Test::Simple is 100% forward compatible with Test::More
-(i.e. you can just use Test::More instead of Test::Simple in your
-programs and things will still work).
-
-=item L<Test>
-
-The original Perl testing module.
-
-=item L<Test::Unit>
-
-Elaborate unit testing.
-
-=item L<Test::Inline>, L<SelfTest>
-
-Embed tests in your code!
-
-=item L<Test::Harness>
-
-Interprets the output of your test program.
-
-=back
-
-
-=head1 AUTHORS
-
-Idea by Tony Bowden and Paul Johnson, code by Michael G Schwern
-E<lt>schwern at pobox.comE<gt>, wardrobe by Calvin Klein.
-
-
-=head1 COPYRIGHT
-
-Copyright 2001 by Michael G Schwern E<lt>schwern at 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/3.8.8/sources/cpan-Storable/vendor/t/attach_errors.t b/3.8.8/sources/cpan-Storable/vendor/t/attach_errors.t
deleted file mode 100644
index 85971db..0000000
--- a/3.8.8/sources/cpan-Storable/vendor/t/attach_errors.t
+++ /dev/null
@@ -1,269 +0,0 @@
-#!./perl -w
-#
-# Copyright 2005, Adam Kennedy.
-#
-# You may redistribute only under the same terms as Perl 5, as specified
-# in the README file that comes with the distribution.
-#
-
-# Man, blessed.t scared the hell out of me. For a second there I thought
-# I'd lose Test::More...
-
-# This file tests several known-error cases relating to STORABLE_attach, in
-# which Storable should (correctly) throw errors.
-
-sub BEGIN {
- if ($ENV{PERL_CORE}){
- chdir('t') if -d 't';
- @INC = ('.', '../lib');
- } else {
- unshift @INC, 't';
- }
- require Config; import Config;
- if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
- print "1..0 # Skip: Storable was not built\n";
- exit 0;
- }
-}
-
-use Test::More tests => 35;
-use Storable ();
-
-
-
-
-
-#####################################################################
-# Error 1
-#
-# Classes that implement STORABLE_thaw _cannot_ have references
-# returned by their STORABLE_freeze method. When they do, Storable
-# should throw an exception
-
-
-
-# Good Case - should not die
-{
- my $goodfreeze = bless {}, 'My::GoodFreeze';
- my $frozen = undef;
- eval {
- $frozen = Storable::freeze( $goodfreeze );
- };
- ok( ! $@, 'Storable does not die when STORABLE_freeze does not return references' );
- ok( $frozen, 'Storable freezes to a string successfully' );
-
- package My::GoodFreeze;
-
- sub STORABLE_freeze {
- my ($self, $clone) = @_;
-
- # Illegally include a reference in this return
- return ('');
- }
-
- sub STORABLE_attach {
- my ($class, $clone, $string) = @_;
- return bless { }, 'My::GoodFreeze';
- }
-}
-
-
-
-# Error Case - should die on freeze
-{
- my $badfreeze = bless {}, 'My::BadFreeze';
- eval {
- Storable::freeze( $badfreeze );
- };
- ok( $@, 'Storable dies correctly when STORABLE_freeze returns a referece' );
- # Check for a unique substring of the error message
- ok( $@ =~ /cannot return references/, 'Storable dies with the expected error' );
-
- package My::BadFreeze;
-
- sub STORABLE_freeze {
- my ($self, $clone) = @_;
-
- # Illegally include a reference in this return
- return ('', []);
- }
-
- sub STORABLE_attach {
- my ($class, $clone, $string) = @_;
- return bless { }, 'My::BadFreeze';
- }
-}
-
-
-
-
-
-#####################################################################
-# Error 2
-#
-# If, for some reason, a STORABLE_attach object is accidentally stored
-# with references, this should be checked and and error should be throw.
-
-
-
-# Good Case - should not die
-{
- my $goodthaw = bless {}, 'My::GoodThaw';
- my $frozen = undef;
- eval {
- $frozen = Storable::freeze( $goodthaw );
- };
- ok( $frozen, 'Storable freezes to a string as expected' );
- my $thawed = eval {
- Storable::thaw( $frozen );
- };
- isa_ok( $thawed, 'My::GoodThaw' );
- is( $thawed->{foo}, 'bar', 'My::GoodThaw thawed correctly as expected' );
-
- package My::GoodThaw;
-
- sub STORABLE_freeze {
- my ($self, $clone) = @_;
-
- return ('');
- }
-
- sub STORABLE_attach {
- my ($class, $clone, $string) = @_;
- return bless { 'foo' => 'bar' }, 'My::GoodThaw';
- }
-}
-
-
-
-# Bad Case - should die on thaw
-{
- # Create the frozen string normally
- my $badthaw = bless { }, 'My::BadThaw';
- my $frozen = undef;
- eval {
- $frozen = Storable::freeze( $badthaw );
- };
- ok( $frozen, 'BadThaw was frozen with references correctly' );
-
- # Set up the error condition by deleting the normal STORABLE_thaw,
- # and creating a STORABLE_attach.
- *My::BadThaw::STORABLE_attach = *My::BadThaw::STORABLE_thaw;
- *My::BadThaw::STORABLE_attach = *My::BadThaw::STORABLE_thaw; # Suppress a warning
- delete ${'My::BadThaw::'}{STORABLE_thaw};
-
- # Trigger the error condition
- my $thawed = undef;
- eval {
- $thawed = Storable::thaw( $frozen );
- };
- ok( $@, 'My::BadThaw object dies when thawing as expected' );
- # Check for a snippet from the error message
- ok( $@ =~ /unexpected references/, 'Dies with the expected error message' );
-
- package My::BadThaw;
-
- sub STORABLE_freeze {
- my ($self, $clone) = @_;
-
- return ('', []);
- }
-
- # Start with no STORABLE_attach method so we can get a
- # frozen object-containing-a-reference into the freeze string.
- sub STORABLE_thaw {
- my ($class, $clone, $string) = @_;
- return bless { 'foo' => 'bar' }, 'My::BadThaw';
- }
-}
-
-
-
-
-#####################################################################
-# Error 3
-#
-# Die if what is returned by STORABLE_attach is not something of that class
-
-
-
-# Good Case - should not die
-{
- my $goodattach = bless { }, 'My::GoodAttach';
- my $frozen = Storable::freeze( $goodattach );
- ok( $frozen, 'My::GoodAttach return as expected' );
- my $thawed = eval {
- Storable::thaw( $frozen );
- };
- isa_ok( $thawed, 'My::GoodAttach' );
- is( ref($thawed), 'My::GoodAttach::Subclass',
- 'The slightly-tricky good "returns a subclass" case returns as expected' );
-
- package My::GoodAttach;
-
- sub STORABLE_freeze {
- my ($self, $cloning) = @_;
- return ('');
- }
-
- sub STORABLE_attach {
- my ($class, $cloning, $string) = @_;
-
- return bless { }, 'My::GoodAttach::Subclass';
- }
-
- package My::GoodAttach::Subclass;
-
- BEGIN {
- @ISA = 'My::GoodAttach';
- }
-}
-
-
-
-# Bad Cases - die on thaw
-{
- my $returnvalue = undef;
-
- # Create and freeze the object
- my $badattach = bless { }, 'My::BadAttach';
- my $frozen = Storable::freeze( $badattach );
- ok( $frozen, 'BadAttach freezes as expected' );
-
- # Try a number of different return values, all of which
- # should cause Storable to die.
- my @badthings = (
- undef,
- '',
- 1,
- [],
- {},
- \"foo",
- (bless { }, 'Foo'),
- );
- foreach ( @badthings ) {
- $returnvalue = $_;
-
- my $thawed = undef;
- eval {
- $thawed = Storable::thaw( $frozen );
- };
- ok( $@, 'BadAttach dies on thaw' );
- ok( $@ =~ /STORABLE_attach did not return a My::BadAttach object/,
- 'BadAttach dies on thaw with the expected error message' );
- is( $thawed, undef, 'Double checking $thawed was not set' );
- }
-
- package My::BadAttach;
-
- sub STORABLE_freeze {
- my ($self, $cloning) = @_;
- return ('');
- }
-
- sub STORABLE_attach {
- my ($class, $cloning, $string) = @_;
-
- return $returnvalue;
- }
-}
diff --git a/3.8.8/sources/cpan-Storable/vendor/t/attach_singleton.t b/3.8.8/sources/cpan-Storable/vendor/t/attach_singleton.t
deleted file mode 100644
index 475204f..0000000
--- a/3.8.8/sources/cpan-Storable/vendor/t/attach_singleton.t
+++ /dev/null
@@ -1,89 +0,0 @@
-#!./perl -w
-#
-# Copyright 2005, Adam Kennedy.
-#
-# You may redistribute only under the same terms as Perl 5, as specified
-# in the README file that comes with the distribution.
-#
-
-# Tests freezing/thawing structures containing Singleton objects,
-# which should see both structs pointing to the same object.
-
-sub BEGIN {
- if ($ENV{PERL_CORE}){
- chdir('t') if -d 't';
- @INC = ('.', '../lib');
- } else {
- unshift @INC, 't';
- }
- require Config; import Config;
- if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
- print "1..0 # Skip: Storable was not built\n";
- exit 0;
- }
-}
-
-use Test::More tests => 11;
-use Storable ();
-
-# Get the singleton
-my $object = My::Singleton->new;
-isa_ok( $object, 'My::Singleton' );
-
-# Confirm (for the record) that the class is actually a Singleton
-my $object2 = My::Singleton->new;
-isa_ok( $object2, 'My::Singleton' );
-is( "$object", "$object2", 'Class is a singleton' );
-
-############
-# Main Tests
-
-my $struct = [ 1, $object, 3 ];
-
-# Freeze the struct
-my $frozen = Storable::freeze( $struct );
-ok( (defined($frozen) and ! ref($frozen) and length($frozen)), 'freeze returns a string' );
-
-# Thaw the struct
-my $thawed = Storable::thaw( $frozen );
-
-# Now it should look exactly like the original
-is_deeply( $struct, $thawed, 'Struct superficially looks like the original' );
-
-# ... EXCEPT that the Singleton should be the same instance of the object
-is( "$struct->[1]", "$thawed->[1]", 'Singleton thaws correctly' );
-
-# We can also test this empirically
-$struct->[1]->{value} = 'Goodbye cruel world!';
-is_deeply( $struct, $thawed, 'Empiric testing corfirms correct behaviour' );
-
-# End Tests
-###########
-
-package My::Singleton;
-
-my $SINGLETON = undef;
-
-sub new {
- $SINGLETON or
- $SINGLETON = bless { value => 'Hello World!' }, $_[0];
-}
-
-sub STORABLE_freeze {
- my $self = shift;
-
- # We don't actually need to return anything, but provide a null string
- # to avoid the null-list-return behaviour.
- return ('foo');
-}
-
-sub STORABLE_attach {
- my ($class, $clone, $string) = @_;
- Test::More::ok( ! ref $class, 'STORABLE_attach passed class, and not an object' );
- Test::More::is( $class, 'My::Singleton', 'STORABLE_attach is passed the correct class name' );
- Test::More::is( $clone, 0, 'We are not in a dclone' );
- Test::More::is( $string, 'foo', 'STORABLE_attach gets the string back' );
-
- # Get the Singleton object and return it
- return $class->new;
-}
diff --git a/3.8.8/sources/cpan-Storable/vendor/t/blessed.t b/3.8.8/sources/cpan-Storable/vendor/t/blessed.t
deleted file mode 100644
index 842674f..0000000
--- a/3.8.8/sources/cpan-Storable/vendor/t/blessed.t
+++ /dev/null
@@ -1,200 +0,0 @@
-#!./perl
-#
-# Copyright (c) 1995-2000, Raphael Manfredi
-#
-# You may redistribute only under the same terms as Perl 5, as specified
-# in the README file that comes with the distribution.
-#
-
-sub BEGIN {
- if ($ENV{PERL_CORE}){
- chdir('t') if -d 't';
- @INC = ('.', '../lib', '../ext/Storable/t');
- } else {
- unshift @INC, 't';
- }
- require Config; import Config;
- if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
- print "1..0 # Skip: Storable was not built\n";
- exit 0;
- }
- require 'st-dump.pl';
-}
-
-sub ok;
-
-use Storable qw(freeze thaw);
-
-%::immortals
- = (u => \undef,
- 'y' => \(1 == 1),
- n => \(1 == 0)
-);
-
-my $test = 12;
-my $tests = $test + 6 + 2 * 6 * keys %::immortals;
-print "1..$tests\n";
-
-package SHORT_NAME;
-
-sub make { bless [], shift }
-
-package SHORT_NAME_WITH_HOOK;
-
-sub make { bless [], shift }
-
-sub STORABLE_freeze {
- my $self = shift;
- return ("", $self);
-}
-
-sub STORABLE_thaw {
- my $self = shift;
- my $cloning = shift;
- my ($x, $obj) = @_;
- die "STORABLE_thaw" unless $obj eq $self;
-}
-
-package main;
-
-# Still less than 256 bytes, so long classname logic not fully exercised
-# Wait until Perl removes the restriction on identifier lengths.
-my $name = "LONG_NAME_" . 'xxxxxxxxxxxxx::' x 14 . "final";
-
-eval <<EOC;
-package $name;
-
-\@ISA = ("SHORT_NAME");
-EOC
-die $@ if $@;
-ok 1, $@ eq '';
-
-eval <<EOC;
-package ${name}_WITH_HOOK;
-
-\@ISA = ("SHORT_NAME_WITH_HOOK");
-EOC
-ok 2, $@ eq '';
-
-# Construct a pool of objects
-my @pool;
-
-for (my $i = 0; $i < 10; $i++) {
- push(@pool, SHORT_NAME->make);
- push(@pool, SHORT_NAME_WITH_HOOK->make);
- push(@pool, $name->make);
- push(@pool, "${name}_WITH_HOOK"->make);
-}
-
-my $x = freeze \@pool;
-ok 3, 1;
-
-my $y = thaw $x;
-ok 4, ref $y eq 'ARRAY';
-ok 5, @{$y} == @pool;
-
-ok 6, ref $y->[0] eq 'SHORT_NAME';
-ok 7, ref $y->[1] eq 'SHORT_NAME_WITH_HOOK';
-ok 8, ref $y->[2] eq $name;
-ok 9, ref $y->[3] eq "${name}_WITH_HOOK";
-
-my $good = 1;
-for (my $i = 0; $i < 10; $i++) {
- do { $good = 0; last } unless ref $y->[4*$i] eq 'SHORT_NAME';
- do { $good = 0; last } unless ref $y->[4*$i+1] eq 'SHORT_NAME_WITH_HOOK';
- do { $good = 0; last } unless ref $y->[4*$i+2] eq $name;
- do { $good = 0; last } unless ref $y->[4*$i+3] eq "${name}_WITH_HOOK";
-}
-ok 10, $good;
-
-{
- my $blessed_ref = bless \\[1,2,3], 'Foobar';
- my $x = freeze $blessed_ref;
- my $y = thaw $x;
- ok 11, ref $y eq 'Foobar';
- ok 12, $$$y->[0] == 1;
-}
-
-package RETURNS_IMMORTALS;
-
-sub make { my $self = shift; bless [@_], $self }
-
-sub STORABLE_freeze {
- # Some reference some number of times.
- my $self = shift;
- my ($what, $times) = @$self;
- return ("$what$times", ($::immortals{$what}) x $times);
-}
-
-sub STORABLE_thaw {
- my $self = shift;
- my $cloning = shift;
- my ($x, @refs) = @_;
- my ($what, $times) = $x =~ /(.)(\d+)/;
- die "'$x' didn't match" unless defined $times;
- main::ok ++$test, @refs == $times;
- my $expect = $::immortals{$what};
- die "'$x' did not give a reference" unless ref $expect;
- my $fail;
- foreach (@refs) {
- $fail++ if $_ != $expect;
- }
- main::ok ++$test, !$fail;
-}
-
-package main;
-
-# $Storable::DEBUGME = 1;
-my $count;
-foreach $count (1..3) {
- my $immortal;
- foreach $immortal (keys %::immortals) {
- print "# $immortal x $count\n";
- my $i = RETURNS_IMMORTALS->make ($immortal, $count);
-
- my $f = freeze ($i);
- ok ++$test, $f;
- my $t = thaw $f;
- ok ++$test, 1;
- }
-}
-
-# Test automatic require of packages to find thaw hook.
-
-package HAS_HOOK;
-
-$loaded_count = 0;
-$thawed_count = 0;
-
-sub make {
- bless [];
-}
-
-sub STORABLE_freeze {
- my $self = shift;
- return '';
-}
-
-package main;
-
-my $f = freeze (HAS_HOOK->make);
-
-ok ++$test, $HAS_HOOK::loaded_count == 0;
-ok ++$test, $HAS_HOOK::thawed_count == 0;
-
-my $t = thaw $f;
-ok ++$test, $HAS_HOOK::loaded_count == 1;
-ok ++$test, $HAS_HOOK::thawed_count == 1;
-ok ++$test, $t;
-ok ++$test, ref $t eq 'HAS_HOOK';
-
-# Can't do this because the method is still cached by UNIVERSAL::can
-# delete $INC{"HAS_HOOK.pm"};
-# undef &HAS_HOOK::STORABLE_thaw;
-#
-# warn HAS_HOOK->can('STORABLE_thaw');
-# $t = thaw $f;
-# ok ++$test, $HAS_HOOK::loaded_count == 2;
-# ok ++$test, $HAS_HOOK::thawed_count == 2;
-# ok ++$test, $t;
-# ok ++$test, ref $t eq 'HAS_HOOK';
diff --git a/3.8.8/sources/cpan-Storable/vendor/t/circular_hook.t b/3.8.8/sources/cpan-Storable/vendor/t/circular_hook.t
deleted file mode 100644
index 782b3d3..0000000
--- a/3.8.8/sources/cpan-Storable/vendor/t/circular_hook.t
+++ /dev/null
@@ -1,91 +0,0 @@
-#!./perl -w
-#
-# Copyright 2005, Adam Kennedy.
-#
-# You may redistribute only under the same terms as Perl 5, as specified
-# in the README file that comes with the distribution.
-#
-
-# Man, blessed.t scared the hell out of me. For a second there I thought
-# I'd lose Test::More...
-
-# This file tests several known-error cases relating to STORABLE_attach, in
-# which Storable should (correctly) throw errors.
-
-sub BEGIN {
- if ($ENV{PERL_CORE}){
- chdir('t') if -d 't';
- @INC = ('.', '../lib');
- } else {
- unshift @INC, 't';
- }
- require Config; import Config;
- if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
- print "1..0 # Skip: Storable was not built\n";
- exit 0;
- }
-}
-
-use Storable ();
-use Test::More tests => 9;
-
-my $ddd = bless { }, 'Foo';
-my $eee = bless { Bar => $ddd }, 'Bar';
-$ddd->{Foo} = $eee;
-
-my $array = [ $ddd ];
-
-my $string = Storable::freeze( $array );
-my $thawed = Storable::thaw( $string );
-
-# is_deeply infinite loops in ciculars, so do it manually
-# is_deeply( $array, $thawed, 'Circular hooked objects work' );
-is( ref($thawed), 'ARRAY', 'Top level ARRAY' );
-is( scalar(@$thawed), 1, 'ARRAY contains one element' );
-isa_ok( $thawed->[0], 'Foo' );
-is( scalar(keys %{$thawed->[0]}), 1, 'Foo contains one element' );
-isa_ok( $thawed->[0]->{Foo}, 'Bar' );
-is( scalar(keys %{$thawed->[0]->{Foo}}), 1, 'Bar contains one element' );
-isa_ok( $thawed->[0]->{Foo}->{Bar}, 'Foo' );
-is( $thawed->[0], $thawed->[0]->{Foo}->{Bar}, 'Circular is... well... circular' );
-
-# Make sure the thawing went the way we expected
-is_deeply( \@Foo::order, [ 'Bar', 'Foo' ], 'thaw order is correct (depth first)' );
-
-
-
-
-
-package Foo;
-
- at order = ();
-
-sub STORABLE_freeze {
- my ($self, $clone) = @_;
- my $class = ref $self;
-
- # print "# Freezing $class\n";
-
- return ($class, $self->{$class});
-}
-
-sub STORABLE_thaw {
- my ($self, $clone, $string, @refs) = @_;
- my $class = ref $self;
-
- # print "# Thawing $class\n";
-
- $self->{$class} = shift @refs;
-
- push @order, $class;
-
- return;
-}
-
-package Bar;
-
-BEGIN {
- at ISA = 'Foo';
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Storable/vendor/t/compat01.t b/3.8.8/sources/cpan-Storable/vendor/t/compat01.t
deleted file mode 100644
index 536d85e..0000000
--- a/3.8.8/sources/cpan-Storable/vendor/t/compat01.t
+++ /dev/null
@@ -1,56 +0,0 @@
-#!perl -w
-
-BEGIN {
- if ($ENV{PERL_CORE}){
- chdir('t') if -d 't';
- @INC = ('.', '../lib', '../ext/Storable/t');
- } else {
- unshift @INC, 't';
- }
- require Config; import Config;
- if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
- print "1..0 # Skip: Storable was not built\n";
- exit 0;
- }
-
- use Config;
- if ($Config{byteorder} ne "1234") {
- print "1..0 # Skip: Test only works for 32 bit little-ending machines\n";
- exit 0;
- }
-}
-
-use strict;
-use Storable qw(retrieve);
-
-my $file = "xx-$$.pst";
-my @dumps = (
- # some sample dumps of the hash { one => 1 }
- "perl-store\x041234\4\4\4\x94y\22\b\3\1\0\0\0vxz\22\b\1\1\0\0\x001Xk\3\0\0\0oneX", # 0.1
- "perl-store\0\x041234\4\4\4\x94y\22\b\3\1\0\0\0vxz\22\b\b\x81Xk\3\0\0\0oneX", # 0.4 at 7
-);
-
-print "1.." . @dumps . "\n";
-
-my $testno;
-for my $dump (@dumps) {
- $testno++;
-
- open(FH, ">$file") || die "Can't create $file: $!";
- binmode(FH);
- print FH $dump;
- close(FH) || die "Can't write $file: $!";
-
- eval {
- my $data = retrieve($file);
- if (ref($data) eq "HASH" && $data->{one} eq "1") {
- print "ok $testno\n";
- }
- else {
- print "not ok $testno\n";
- }
- };
- warn $@ if $@;
-
- unlink($file);
-}
diff --git a/3.8.8/sources/cpan-Storable/vendor/t/compat06.t b/3.8.8/sources/cpan-Storable/vendor/t/compat06.t
deleted file mode 100644
index 7dbf1b8..0000000
--- a/3.8.8/sources/cpan-Storable/vendor/t/compat06.t
+++ /dev/null
@@ -1,151 +0,0 @@
-#!./perl
-#
-# Copyright (c) 1995-2000, Raphael Manfredi
-#
-# You may redistribute only under the same terms as Perl 5, as specified
-# in the README file that comes with the distribution.
-#
-
-BEGIN {
- if ($ENV{PERL_CORE}){
- chdir('t') if -d 't';
- @INC = ('.', '../lib', '../ext/Storable/t');
- } else {
- unshift @INC, 't';
- }
- require Config; import Config;
- if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
- print "1..0 # Skip: Storable was not built\n";
- exit 0;
- }
- require 'st-dump.pl';
-}
-
-sub ok;
-
-print "1..8\n";
-
-use Storable qw(freeze nfreeze thaw);
-
-package TIED_HASH;
-
-sub TIEHASH {
- my $self = bless {}, shift;
- return $self;
-}
-
-sub FETCH {
- my $self = shift;
- my ($key) = @_;
- $main::hash_fetch++;
- return $self->{$key};
-}
-
-sub STORE {
- my $self = shift;
- my ($key, $val) = @_;
- $self->{$key} = $val;
-}
-
-package SIMPLE;
-
-sub make {
- my $self = bless [], shift;
- my ($x) = @_;
- $self->[0] = $x;
- return $self;
-}
-
-package ROOT;
-
-sub make {
- my $self = bless {}, shift;
- my $h = tie %hash, TIED_HASH;
- $self->{h} = $h;
- $self->{ref} = \%hash;
- my @pool;
- for (my $i = 0; $i < 5; $i++) {
- push(@pool, SIMPLE->make($i));
- }
- $self->{obj} = \@pool;
- my @a = ('string', $h, $self);
- $self->{a} = \@a;
- $self->{num} = [1, 0, -3, -3.14159, 456, 4.5];
- $h->{key1} = 'val1';
- $h->{key2} = 'val2';
- return $self;
-};
-
-sub num { $_[0]->{num} }
-sub h { $_[0]->{h} }
-sub ref { $_[0]->{ref} }
-sub obj { $_[0]->{obj} }
-
-package main;
-
-my $is_EBCDIC = (ord('A') == 193) ? 1 : 0;
-
-my $r = ROOT->make;
-
-my $data = '';
-if (!$is_EBCDIC) { # ASCII machine
- while (<DATA>) {
- next if /^#/;
- $data .= unpack("u", $_);
- }
-} else {
- while (<DATA>) {
- next if /^#$/; # skip comments
- next if /^#\s+/; # skip comments
- next if /^[^#]/; # skip uuencoding for ASCII machines
- s/^#//; # prepare uuencoded data for EBCDIC machines
- $data .= unpack("u", $_);
- }
-}
-
-my $expected_length = $is_EBCDIC ? 217 : 278;
-ok 1, length $data == $expected_length;
-
-my $y = thaw($data);
-ok 2, 1;
-ok 3, ref $y eq 'ROOT';
-
-$Storable::canonical = 1; # Prevent "used once" warning
-$Storable::canonical = 1;
-# Allow for long double string conversions.
-$y->{num}->[3] += 0;
-$r->{num}->[3] += 0;
-ok 4, nfreeze($y) eq nfreeze($r);
-
-ok 5, $y->ref->{key1} eq 'val1';
-ok 6, $y->ref->{key2} eq 'val2';
-ok 7, $hash_fetch == 2;
-
-my $num = $r->num;
-my $ok = 1;
-for (my $i = 0; $i < @$num; $i++) {
- do { $ok = 0; last } unless $num->[$i] == $y->num->[$i];
-}
-ok 8, $ok;
-
-__END__
-#
-# using Storable-0.6 at 11, output of: print pack("u", nfreeze(ROOT->make));
-# original size: 278 bytes
-#
-M`P,````%!`(````&"(%8"(!8"'U8"@@M,RXQ-#$U.5@)```!R%@*`S0N-5A8
-M6`````-N=6T$`P````(*!'9A;#%8````!&ME>3$*!'9A;#)8````!&ME>3)B
-M"51)141?2$%32%A8`````6@$`@````,*!G-T<FEN9U@$``````I8!```````
-M6%A8`````6$$`@````4$`@````$(@%AB!E-)35!,15A8!`(````!"(%88 at 93
-M24U03$586`0"`````0B"6&(&4TE-4$Q%6%@$`@````$(@UAB!E-)35!,15A8
-M!`(````!"(188 at 9324U03$586%A8`````V]B:@0,!``````*6%A8`````W)E
-(9F($4D]/5%@`
-#
-# using Storable-0.6 at 11, output of: print '#' . pack("u", nfreeze(ROOT->make));
-# on OS/390 (cp 1047) original size: 217 bytes
-#
-#M!0,1!-G6UN,#````!00,!!$)X\G%Q&W(P>+(`P````(*!*6!D_$````$DH6H
-#M\0H$I8&3\@````22A:CR`````YF%A at 0"````!@B!"(`(?0H(8/-+\?3Q]?D)
-#M```!R`H#]$OU`````Y6DE`0"````!001!N+)U-?3Q0(````!"(`$$@("````
-#M`0B!!!("`@````$(@@02`@(````!"(,$$@("`````0B$`````Y:"D00`````
-#E!`````&(!`(````#"@:BHYF)E8<$``````0$```````````!@0``
diff --git a/3.8.8/sources/cpan-Storable/vendor/t/croak.t b/3.8.8/sources/cpan-Storable/vendor/t/croak.t
deleted file mode 100644
index 96c7cb3..0000000
--- a/3.8.8/sources/cpan-Storable/vendor/t/croak.t
+++ /dev/null
@@ -1,42 +0,0 @@
-#!./perl -w
-
-# Please keep this test this simple. (ie just one test.)
-# There's some sort of not-croaking properly problem in Storable when built
-# with 5.005_03. This test shows it up, whereas malice.t does not.
-# In particular, don't use Test; as this covers up the problem.
-
-sub BEGIN {
- if ($ENV{PERL_CORE}){
- chdir('t') if -d 't';
- @INC = ('.', '../lib');
- }
- if ($ENV{PERL_CORE}) {
- require Config; import Config;
- %Config=%Config if 0; # cease -w
- if ($Config{'extensions'} !~ /\bStorable\b/) {
- print "1..0 # Skip: Storable was not built\n";
- exit 0;
- }
- }
-}
-
-use strict;
-
-BEGIN {
- die "Oi! No! Don't change this test so that Carp is used before Storable"
- if defined &Carp::carp;
-}
-use Storable qw(freeze thaw);
-
-print "1..2\n";
-
-for my $test (1,2) {
- eval {thaw "\xFF\xFF"};
- if ($@ =~ /Storable binary image v127.255 more recent than I am \(v2\.\d+\)/)
- {
- print "ok $test\n";
- } else {
- chomp $@;
- print "not ok $test # Expected a meaningful croak. Got '$@'\n";
- }
-}
diff --git a/3.8.8/sources/cpan-Storable/vendor/t/downgrade.t b/3.8.8/sources/cpan-Storable/vendor/t/downgrade.t
deleted file mode 100644
index d977a00..0000000
--- a/3.8.8/sources/cpan-Storable/vendor/t/downgrade.t
+++ /dev/null
@@ -1,511 +0,0 @@
-#!./perl -w
-#
-# Copyright 2002, Larry Wall.
-#
-# You may redistribute only under the same terms as Perl 5, as specified
-# in the README file that comes with the distribution.
-#
-
-# I ought to keep this test easily backwards compatible to 5.004, so no
-# qr//;
-
-# This test checks downgrade behaviour on pre-5.8 perls when new 5.8 features
-# are encountered.
-
-sub BEGIN {
- if ($ENV{PERL_CORE}){
- chdir('t') if -d 't';
- @INC = ('.', '../lib');
- } else {
- unshift @INC, 't';
- }
- require Config; import Config;
- if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
- print "1..0 # Skip: Storable was not built\n";
- exit 0;
- }
-}
-
-use Test::More;
-use Storable 'thaw';
-
-use strict;
-use vars qw(@RESTRICT_TESTS %R_HASH %U_HASH $UTF8_CROAK $RESTRICTED_CROAK);
-
- at RESTRICT_TESTS = ('Locked hash', 'Locked hash placeholder',
- 'Locked keys', 'Locked keys placeholder',
- );
-%R_HASH = (perl => 'rules');
-
-if ($] > 5.007002) {
- # This is cheating. "\xdf" in Latin 1 is beta S, so will match \w if it
- # is stored in utf8, not bytes.
- # "\xdf" is y diaresis in EBCDIC (except for cp875, but so far no-one seems
- # to use that) which has exactly the same properties for \w
- # So the tests happen to pass.
- my $utf8 = "Schlo\xdf" . chr 256;
- chop $utf8;
-
- # \xe5 is V in EBCDIC. That doesn't have the same properties w.r.t. \w as
- # an a circumflex, so we need to be explicit.
-
- # and its these very properties we're trying to test - an edge case
- # involving whether scalars are being stored in bytes or in utf8.
- my $a_circumflex = (ord ('A') == 193 ? "\x47" : "\xe5");
- %U_HASH = (map {$_, $_} 'castle', "ch${a_circumflex}teau", $utf8, chr 0x57CE);
- plan tests => 169;
-} elsif ($] >= 5.006) {
- plan tests => 59;
-} else {
- plan tests => 67;
-}
-
-$UTF8_CROAK = "/^Cannot retrieve UTF8 data in non-UTF8 perl/";
-$RESTRICTED_CROAK = "/^Cannot retrieve restricted hash/";
-
-my %tests;
-{
- local $/ = "\n\nend\n";
- while (<DATA>) {
- next unless /\S/s;
- unless (/begin ([0-7]{3}) ([^\n]*)\n(.*)$/s) {
- s/\n.*//s;
- warn "Dodgy data in section starting '$_'";
- next;
- }
- next unless oct $1 == ord 'A'; # Skip ASCII on EBCDIC, and vice versa
- my $data = unpack 'u', $3;
- $tests{$2} = $data;
- }
-}
-
-# use Data::Dumper; $Data::Dumper::Useqq = 1; print Dumper \%tests;
-sub thaw_hash {
- my ($name, $expected) = @_;
- my $hash = eval {thaw $tests{$name}};
- is ($@, '', "Thawed $name without error?");
- isa_ok ($hash, 'HASH');
- ok (defined $hash && eq_hash($hash, $expected),
- "And it is the hash we expected?");
- $hash;
-}
-
-sub thaw_scalar {
- my ($name, $expected, $bug) = @_;
- my $scalar = eval {thaw $tests{$name}};
- is ($@, '', "Thawed $name without error?");
- isa_ok ($scalar, 'SCALAR', "Thawed $name?");
- if ($bug and $] == 5.006) {
- # Aargh. <expletive> <expletive> 5.6.0's harness doesn't even honour
- # TODO tests.
- warn "# Test skipped because eq is buggy for certain Unicode cases in 5.6.0";
- warn "# Please upgrade to 5.6.1\n";
- ok ("I'd really like to fail this test on 5.6.0 but I'm told that CPAN auto-dependancies mess up, and certain vendors only ship 5.6.0. Get your vendor to ugrade. Else upgrade your vendor.");
- # One such vendor being the folks who brought you LONG_MIN as a positive
- # integer.
- } else {
- is ($$scalar, $expected, "And it is the data we expected?");
- }
- $scalar;
-}
-
-sub thaw_fail {
- my ($name, $expected) = @_;
- my $thing = eval {thaw $tests{$name}};
- is ($thing, undef, "Thawed $name failed as expected?");
- like ($@, $expected, "Error as predicted?");
-}
-
-sub test_locked_hash {
- my $hash = shift;
- my @keys = keys %$hash;
- my ($key, $value) = each %$hash;
- eval {$hash->{$key} = reverse $value};
- like( $@, "/^Modification of a read-only value attempted/",
- 'trying to change a locked key' );
- is ($hash->{$key}, $value, "hash should not change?");
- eval {$hash->{use} = 'perl'};
- like( $@, "/^Attempt to access disallowed key 'use' in a restricted hash/",
- 'trying to add another key' );
- ok (eq_array([keys %$hash], \@keys), "Still the same keys?");
-}
-
-sub test_restricted_hash {
- my $hash = shift;
- my @keys = keys %$hash;
- my ($key, $value) = each %$hash;
- eval {$hash->{$key} = reverse $value};
- is( $@, '',
- 'trying to change a restricted key' );
- is ($hash->{$key}, reverse ($value), "hash should change");
- eval {$hash->{use} = 'perl'};
- like( $@, "/^Attempt to access disallowed key 'use' in a restricted hash/",
- 'trying to add another key' );
- ok (eq_array([keys %$hash], \@keys), "Still the same keys?");
-}
-
-sub test_placeholder {
- my $hash = shift;
- eval {$hash->{rules} = 42};
- is ($@, '', 'No errors');
- is ($hash->{rules}, 42, "New value added");
-}
-
-sub test_newkey {
- my $hash = shift;
- eval {$hash->{nms} = "http://nms-cgi.sourceforge.net/"};
- is ($@, '', 'No errors');
- is ($hash->{nms}, "http://nms-cgi.sourceforge.net/", "New value added");
-}
-
-# $Storable::DEBUGME = 1;
-thaw_hash ('Hash with utf8 flag but no utf8 keys', \%R_HASH);
-
-if (eval "use Hash::Util; 1") {
- print "# We have Hash::Util, so test that the restricted hashes in <DATA> are valid\n";
- for $Storable::downgrade_restricted (0, 1, undef, "cheese") {
- my $hash = thaw_hash ('Locked hash', \%R_HASH);
- test_locked_hash ($hash);
- $hash = thaw_hash ('Locked hash placeholder', \%R_HASH);
- test_locked_hash ($hash);
- test_placeholder ($hash);
-
- $hash = thaw_hash ('Locked keys', \%R_HASH);
- test_restricted_hash ($hash);
- $hash = thaw_hash ('Locked keys placeholder', \%R_HASH);
- test_restricted_hash ($hash);
- test_placeholder ($hash);
- }
-} else {
- print "# We don't have Hash::Util, so test that the restricted hashes downgrade\n";
- my $hash = thaw_hash ('Locked hash', \%R_HASH);
- test_newkey ($hash);
- $hash = thaw_hash ('Locked hash placeholder', \%R_HASH);
- test_newkey ($hash);
- $hash = thaw_hash ('Locked keys', \%R_HASH);
- test_newkey ($hash);
- $hash = thaw_hash ('Locked keys placeholder', \%R_HASH);
- test_newkey ($hash);
- local $Storable::downgrade_restricted = 0;
- thaw_fail ('Locked hash', $RESTRICTED_CROAK);
- thaw_fail ('Locked hash placeholder', $RESTRICTED_CROAK);
- thaw_fail ('Locked keys', $RESTRICTED_CROAK);
- thaw_fail ('Locked keys placeholder', $RESTRICTED_CROAK);
-}
-
-if ($] >= 5.006) {
- print "# We have utf8 scalars, so test that the utf8 scalars in <DATA> are valid\n";
- thaw_scalar ('Short 8 bit utf8 data', "\xDF", 1);
- thaw_scalar ('Long 8 bit utf8 data', "\xDF" x 256, 1);
- thaw_scalar ('Short 24 bit utf8 data', chr 0xC0FFEE);
- thaw_scalar ('Long 24 bit utf8 data', chr (0xC0FFEE) x 256);
-} else {
- print "# We don't have utf8 scalars, so test that the utf8 scalars downgrade\n";
- thaw_fail ('Short 8 bit utf8 data', $UTF8_CROAK);
- thaw_fail ('Long 8 bit utf8 data', $UTF8_CROAK);
- thaw_fail ('Short 24 bit utf8 data', $UTF8_CROAK);
- thaw_fail ('Long 24 bit utf8 data', $UTF8_CROAK);
- local $Storable::drop_utf8 = 1;
- my $bytes = thaw $tests{'Short 8 bit utf8 data as bytes'};
- thaw_scalar ('Short 8 bit utf8 data', $$bytes);
- thaw_scalar ('Long 8 bit utf8 data', $$bytes x 256);
- $bytes = thaw $tests{'Short 24 bit utf8 data as bytes'};
- thaw_scalar ('Short 24 bit utf8 data', $$bytes);
- thaw_scalar ('Long 24 bit utf8 data', $$bytes x 256);
-}
-
-if ($] > 5.007002) {
- print "# We have utf8 hashes, so test that the utf8 hashes in <DATA> are valid\n";
- my $hash = thaw_hash ('Hash with utf8 keys', \%U_HASH);
- my $a_circumflex = (ord ('A') == 193 ? "\x47" : "\xe5");
- for (keys %$hash) {
- my $l = 0 + /^\w+$/;
- my $r = 0 + $hash->{$_} =~ /^\w+$/;
- cmp_ok ($l, '==', $r, sprintf "key length %d", length $_);
- cmp_ok ($l, '==', $_ eq "ch${a_circumflex}teau" ? 0 : 1);
- }
- if (eval "use Hash::Util; 1") {
- print "# We have Hash::Util, so test that the restricted utf8 hash is valid\n";
- my $hash = thaw_hash ('Locked hash with utf8 keys', \%U_HASH);
- for (keys %$hash) {
- my $l = 0 + /^\w+$/;
- my $r = 0 + $hash->{$_} =~ /^\w+$/;
- cmp_ok ($l, '==', $r, sprintf "key length %d", length $_);
- cmp_ok ($l, '==', $_ eq "ch${a_circumflex}teau" ? 0 : 1);
- }
- test_locked_hash ($hash);
- } else {
- print "# We don't have Hash::Util, so test that the utf8 hash downgrades\n";
- fail ("You can't get here [perl version $]]. This is a bug in the test.
-# Please send the output of perl -V to perlbug\@perl.org");
- }
-} else {
- print "# We don't have utf8 hashes, so test that the utf8 hashes downgrade\n";
- thaw_fail ('Hash with utf8 keys', $UTF8_CROAK);
- thaw_fail ('Locked hash with utf8 keys', $UTF8_CROAK);
- local $Storable::drop_utf8 = 1;
- my $what = $] < 5.006 ? 'pre 5.6' : '5.6';
- my $expect = thaw $tests{"Hash with utf8 keys for $what"};
- thaw_hash ('Hash with utf8 keys', $expect);
- #foreach (keys %$expect) { print "'$_':\t'$expect->{$_}'\n"; }
- #foreach (keys %$got) { print "'$_':\t'$got->{$_}'\n"; }
- if (eval "use Hash::Util; 1") {
- print "# We have Hash::Util, so test that the restricted hashes in <DATA> are valid\n";
- fail ("You can't get here [perl version $]]. This is a bug in the test.
-# Please send the output of perl -V to perlbug\@perl.org");
- } else {
- print "# We don't have Hash::Util, so test that the restricted hashes downgrade\n";
- my $hash = thaw_hash ('Locked hash with utf8 keys', $expect);
- test_newkey ($hash);
- local $Storable::downgrade_restricted = 0;
- thaw_fail ('Locked hash with utf8 keys', $RESTRICTED_CROAK);
- # Which croak comes first is a bit of an implementation issue :-)
- local $Storable::drop_utf8 = 0;
- thaw_fail ('Locked hash with utf8 keys', $RESTRICTED_CROAK);
- }
-}
-__END__
-# A whole run of 2.x nfreeze data, uuencoded. The "mode bits" are the octal
-# value of 'A', the "file name" is the test name. Use make_downgrade.pl to
-# generate these.
-begin 101 Locked hash
-8!049`0````$*!7)U;&5S!`````1P97)L
-
-end
-
-begin 101 Locked hash placeholder
-C!049`0````(*!7)U;&5S!`````1P97)L#A0````%<G5L97,`
-
-end
-
-begin 101 Locked keys
-8!049`0````$*!7)U;&5S``````1P97)L
-
-end
-
-begin 101 Locked keys placeholder
-C!049`0````(*!7)U;&5S``````1P97)L#A0````%<G5L97,`
-
-end
-
-begin 101 Short 8 bit utf8 data
-&!047`L.?
-
-end
-
-begin 101 Short 8 bit utf8 data as bytes
-&!04*`L.?
-
-end
-
-begin 101 Long 8 bit utf8 data
-M!048```"`,.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?
-MPY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#
-MG\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?
-MPY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#
-MG\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?
-MPY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#
-MG\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?
-MPY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#
-MG\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?
-MPY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#
-MG\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?
-8PY_#G\.?PY_#G\.?PY_#G\.?PY_#G\.?
-
-end
-
-begin 101 Short 24 bit utf8 data
-)!047!?BPC[^N
-
-end
-
-begin 101 Short 24 bit utf8 data as bytes
-)!04*!?BPC[^N
-
-end
-
-begin 101 Long 24 bit utf8 data
-M!048```%`/BPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-MOZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N^+"/
-;OZ[XL(^_KOBPC[^N^+"/OZ[XL(^_KOBPC[^N
-
-end
-
-begin 101 Hash with utf8 flag but no utf8 keys
-8!049``````$*!7)U;&5S``````1P97)L
-
-end
-
-begin 101 Hash with utf8 keys
-M!049``````0*!F-A<W1L90`````&8V%S=&QE"@=C:.5T96%U``````=C:.5T
-D96%U%P/EGXX!`````^6?CA<'4V-H;&_#GP(````&4V-H;&_?
-
-end
-
-begin 101 Locked hash with utf8 keys
-M!049`0````0*!F-A<W1L900````&8V%S=&QE"@=C:.5T96%U!`````=C:.5T
-D96%U%P/EGXX%`````^6?CA<'4V-H;&_#GP8````&4V-H;&_?
-
-end
-
-begin 101 Hash with utf8 keys for pre 5.6
-M!049``````0*!F-A<W1L90`````&8V%S=&QE"@=C:.5T96%U``````=C:.5T
-D96%U"@/EGXX``````^6?C at H'4V-H;&_#GP(````&4V-H;&_?
-
-end
-
-begin 101 Hash with utf8 keys for 5.6
-M!049``````0*!F-A<W1L90`````&8V%S=&QE"@=C:.5T96%U``````=C:.5T
-D96%U%P/EGXX``````^6?CA<'4V-H;&_#GP(````&4V-H;&_?
-
-end
-
-begin 301 Locked hash
-8!049`0````$*!9FDDX6B!`````27A9F3
-
-end
-
-begin 301 Locked hash placeholder
-C!049`0````(.%`````69I).%H at H%F:23A:($````!)>%F9,`
-
-end
-
-begin 301 Locked keys
-8!049`0````$*!9FDDX6B``````27A9F3
-
-end
-
-begin 301 Locked keys placeholder
-C!049`0````(.%`````69I).%H at H%F:23A:(`````!)>%F9,`
-
-end
-
-begin 301 Short 8 bit utf8 data
-&!047`HMS
-
-end
-
-begin 301 Short 8 bit utf8 data as bytes
-&!04*`HMS
-
-end
-
-begin 301 Long 8 bit utf8 data
-M!048```"`(MSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMS
-MBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+
-M<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMS
-MBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+
-M<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMS
-MBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+
-M<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMS
-MBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+
-M<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMS
-MBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+
-M<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMS
-8BW.+<XMSBW.+<XMSBW.+<XMSBW.+<XMS
-
-end
-
-begin 301 Short 24 bit utf8 data
-*!047!OM30G-S50``
-
-end
-
-begin 301 Short 24 bit utf8 data as bytes
-*!04*!OM30G-S50``
-
-end
-
-begin 301 Long 24 bit utf8 data
-M!048```&`/M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3
-M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S
-M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3
-M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S
-M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3
-M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S
-M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3
-M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S
-M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3
-M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S
-M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3
-M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S
-M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3
-M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S
-M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3
-M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S
-M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3
-M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S
-M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3
-M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S
-M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3
-M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S
-M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3
-M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S
-M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3
-M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S
-M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3
-M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S
-M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3
-M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S
-M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3
-M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S
-M5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M3
-M0G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S5?M30G-S
--5?M30G-S5?M30G-S50``
-
-end
-
-begin 301 Hash with utf8 flag but no utf8 keys
-8!049``````$*!9FDDX6B``````27A9F3
-
-end
-
-begin 301 Hash with utf8 keys
-M!049``````0*!X.(1Z.%@:0`````!X.(1Z.%@:0*!H.!HJ.3A0`````&@X&B
-FHY.%%P3<9')5`0````3<9')5%P?B at XB3EHMS`@````;B at XB3EM\`
-
-end
-
-begin 301 Locked hash with utf8 keys
-M!049`0````0*!X.(1Z.%@:0$````!X.(1Z.%@:0*!H.!HJ.3A00````&@X&B
-FHY.%%P3<9')5!0````3<9')5%P?B at XB3EHMS!@````;B at XB3EM\`
-
-end
-
-begin 301 Hash with utf8 keys for pre 5.6
-M!049``````0*!H.!HJ.3A0`````&@X&BHY.%"@B#B(M&HX6!I``````'@XA'
-GHX6!I`H'XH.(DY:+<P(````&XH.(DY;?"@3<9')5``````3<9')5
-
-end
-
-begin 301 Hash with utf8 keys for 5.6
-M!049``````0*!H.!HJ.3A0`````&@X&BHY.%"@>#B$>CA8&D``````>#B$>C
-FA8&D%P?B at XB3EHMS`@````;B at XB3EM\7!-QD<E4`````!-QD<E4`
-
-end
diff --git a/3.8.8/sources/cpan-Storable/vendor/t/integer.t b/3.8.8/sources/cpan-Storable/vendor/t/integer.t
deleted file mode 100644
index ec7961e..0000000
--- a/3.8.8/sources/cpan-Storable/vendor/t/integer.t
+++ /dev/null
@@ -1,182 +0,0 @@
-#!./perl -w
-#
-# Copyright 2002, Larry Wall.
-#
-# You may redistribute only under the same terms as Perl 5, as specified
-# in the README file that comes with the distribution.
-#
-
-# I ought to keep this test easily backwards compatible to 5.004, so no
-# qr//;
-
-# This test checks downgrade behaviour on pre-5.8 perls when new 5.8 features
-# are encountered.
-
-sub BEGIN {
- if ($ENV{PERL_CORE}){
- chdir('t') if -d 't';
- @INC = ('.', '../lib');
- } else {
- unshift @INC, 't';
- }
- require Config; import Config;
- if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
- print "1..0 # Skip: Storable was not built\n";
- exit 0;
- }
-}
-
-use Test::More;
-use Storable qw (dclone store retrieve freeze thaw nstore nfreeze);
-use strict;
-
-my $max_uv = ~0;
-my $max_uv_m1 = ~0 ^ 1;
-# Express it in this way so as not to use any addition, as 5.6 maths would
-# do this in NVs on 64 bit machines, and we're overflowing IVs so can't use
-# use integer.
-my $max_iv_p1 = $max_uv ^ ($max_uv >> 1);
-my $lots_of_9C = do {
- my $temp = sprintf "%#x", ~0;
- $temp =~ s/ff/9c/g;
- local $^W;
- eval $temp;
-};
-
-my $max_iv = ~0 >> 1;
-my $min_iv = do {use integer; -$max_iv-1}; # 2s complement assumption
-
-my @processes = (["dclone", \&do_clone],
- ["freeze/thaw", \&freeze_and_thaw],
- ["nfreeze/thaw", \&nfreeze_and_thaw],
- ["store/retrieve", \&store_and_retrieve],
- ["nstore/retrieve", \&nstore_and_retrieve],
- );
-my @numbers =
- (# IV bounds of 8 bits
- -1, 0, 1, -127, -128, -129, 42, 126, 127, 128, 129, 254, 255, 256, 257,
- # IV bounds of 32 bits
- -2147483647, -2147483648, -2147483649, 2147483646, 2147483647, 2147483648,
- # IV bounds
- $min_iv, do {use integer; $min_iv + 1}, do {use integer; $max_iv - 1},
- $max_iv,
- # UV bounds at 32 bits
- 0x7FFFFFFF, 0x80000000, 0x80000001, 0xFFFFFFFF, 0xDEADBEEF,
- # UV bounds
- $max_iv_p1, $max_uv_m1, $max_uv, $lots_of_9C,
- # NV-UV conversion
- 2559831922.0,
- );
-
-plan tests => @processes * @numbers * 5;
-
-my $file = "integer.$$";
-die "Temporary file '$file' already exists" if -e $file;
-
-END { while (-f $file) {unlink $file or die "Can't unlink '$file': $!" }}
-
-sub do_clone {
- my $data = shift;
- my $copy = eval {dclone $data};
- is ($@, '', 'Should be no error dcloning');
- ok (1, "dlcone is only 1 process, not 2");
- return $copy;
-}
-
-sub freeze_and_thaw {
- my $data = shift;
- my $frozen = eval {freeze $data};
- is ($@, '', 'Should be no error freezing');
- my $copy = eval {thaw $frozen};
- is ($@, '', 'Should be no error thawing');
- return $copy;
-}
-
-sub nfreeze_and_thaw {
- my $data = shift;
- my $frozen = eval {nfreeze $data};
- is ($@, '', 'Should be no error nfreezing');
- my $copy = eval {thaw $frozen};
- is ($@, '', 'Should be no error thawing');
- return $copy;
-}
-
-sub store_and_retrieve {
- my $data = shift;
- my $frozen = eval {store $data, $file};
- is ($@, '', 'Should be no error storing');
- my $copy = eval {retrieve $file};
- is ($@, '', 'Should be no error retrieving');
- return $copy;
-}
-
-sub nstore_and_retrieve {
- my $data = shift;
- my $frozen = eval {nstore $data, $file};
- is ($@, '', 'Should be no error storing');
- my $copy = eval {retrieve $file};
- is ($@, '', 'Should be no error retrieving');
- return $copy;
-}
-
-foreach (@processes) {
- my ($process, $sub) = @$_;
- foreach my $number (@numbers) {
- # as $number is an alias into @numbers, we don't want any side effects of
- # conversion macros affecting later runs, so pass a copy to Storable:
- my $copy1 = my $copy2 = my $copy0 = $number;
- my $copy_s = &$sub (\$copy0);
- if (is (ref $copy_s, "SCALAR", "got back a scalar ref?")) {
- # Test inside use integer to see if the bit pattern is identical
- # and outside to see if the sign is right.
- # On 5.8 we don't need this trickery anymore.
- # We really do need 2 copies here, as conversion may have side effect
- # bugs. In particular, I know that this happens:
- # perl5.00503 -le '$a = "-2147483649"; $a & 0; print $a; print $a+1'
- # -2147483649
- # 2147483648
-
- my $copy_s1 = my $copy_s2 = $$copy_s;
- # On 5.8 can do this with a straight ==, due to the integer/float maths
- # on 5.6 can't do this with
- # my $eq = do {use integer; $copy_s1 == $copy1} && $copy_s1 == $copy1;
- # because on builds with IV as long long it tickles bugs.
- # (Uncomment it and the Devel::Peek line below to see the messed up
- # state of the scalar, with PV showing the correct string for the
- # number, and IV holding a bogus value which has been truncated to 32 bits
-
- # So, check the bit patterns are identical, and check that the sign is the
- # same. This works on all the versions in all the sizes.
- # $eq = && (($copy_s1 <=> 0) == ($copy1 <=> 0));
- # Split this into 2 tests, to cater for 5.005_03
-
- # Aargh. Even this doesn't work because 5.6.x sends values with (same
- # number of decimal digits as ~0 + 1) via atof. So ^ is getting strings
- # cast to doubles cast to integers. And that truncates low order bits.
- # my $bit = ok (($copy_s1 ^ $copy1) == 0, "$process $copy1 (bitpattern)");
-
- # Oh well; at least the parser gets it right. :-)
- my $copy_s3 = eval $copy_s1;
- die "Was supposed to have number $copy_s3, got error $@"
- unless defined $copy_s3;
- my $bit = ok (($copy_s3 ^ $copy1) == 0, "$process $copy1 (bitpattern)");
- # This is sick. 5.005_03 survives without the IV/UV flag, and somehow
- # gets it right, providing you don't have side effects of conversion.
-# local $TODO;
-# $TODO = "pre 5.6 doesn't have flag to distinguish IV/UV"
-# if $[ < 5.005_56 and $copy1 > $max_iv;
- my $sign = ok (($copy_s2 <=> 0) == ($copy2 <=> 0),
- "$process $copy1 (sign)");
-
- unless ($bit and $sign) {
- printf "# Passed in %s (%#x, %i)\n# got back '%s' (%#x, %i)\n",
- $copy1, $copy1, $copy1, $copy_s1, $copy_s1, $copy_s1;
- # use Devel::Peek; Dump $number; Dump $copy1; Dump $copy_s1;
- }
- # unless ($bit) { use Devel::Peek; Dump $copy_s1; Dump $$copy_s; }
- } else {
- fail ("$process $copy1");
- fail ("$process $copy1");
- }
- }
-}
diff --git a/3.8.8/sources/cpan-Storable/vendor/t/interwork56.t b/3.8.8/sources/cpan-Storable/vendor/t/interwork56.t
deleted file mode 100644
index 5339c0f..0000000
--- a/3.8.8/sources/cpan-Storable/vendor/t/interwork56.t
+++ /dev/null
@@ -1,200 +0,0 @@
-#!./perl -w
-#
-# Copyright 2002, Larry Wall.
-#
-# You may redistribute only under the same terms as Perl 5, as specified
-# in the README file that comes with the distribution.
-#
-
-# I ought to keep this test easily backwards compatible to 5.004, so no
-# qr//;
-
-# This test checks whether the kludge to interwork with 5.6 Storables compiled
-# on Unix systems with IV as long long works.
-
-sub BEGIN {
- if ($ENV{PERL_CORE}){
- chdir('t') if -d 't';
- @INC = ('.', '../lib');
- } else {
- unshift @INC, 't';
- }
- require Config; import Config;
- if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
- print "1..0 # Skip: Storable was not built\n";
- exit 0;
- }
- unless ($Config{ivsize} and $Config{ivsize} > $Config{longsize}) {
- print "1..0 # Skip: Your IVs are no larger than your longs\n";
- exit 0;
- }
-}
-
-use Storable qw(freeze thaw);
-use strict;
-use Test::More tests=>30;
-
-use vars qw(%tests);
-
-{
- local $/ = "\n\nend\n";
- while (<DATA>) {
- next unless /\S/s;
- unless (/begin ([0-7]{3}) ([^\n]*)\n(.*)$/s) {
- s/\n.*//s;
- warn "Dodgy data in section starting '$_'";
- next;
- }
- next unless oct $1 == ord 'A'; # Skip ASCII on EBCDIC, and vice versa
- my $data = unpack 'u', $3;
- $tests{$2} = $data;
- }
-}
-
-# perl makes easy things easy, and hard things possible:
-my $test = freeze \'Hell';
-
-my $header = Storable::read_magic ($test);
-
-is ($header->{byteorder}, $Config{byteorder},
- "header's byteorder and Config.pm's should agree");
-
-my $result = eval {thaw $test};
-isa_ok ($result, 'SCALAR', "Check thawing test data");
-is ($@, '', "causes no errors");
-is ($$result, 'Hell', 'and gives the expected data');
-
-my $kingdom = $Config{byteorder} =~ /23/ ? "Lillput" : "Belfuscu";
-
-my $name = join ',', $kingdom, @$header{qw(intsize longsize ptrsize nvsize)};
-
-SKIP: {
- my $real_thing = $tests{$name};
- if (!defined $real_thing) {
- print << "EOM";
-# No test data for Storable 1.x for:
-#
-# byteorder '$Config{byteorder}'
-# sizeof(int) $$header{intsize}
-# sizeof(long) $$header{longsize}
-# sizeof(char *) $$header{ptrsize}
-# sizeof(NV) $$header{nvsize}
-
-# If you have Storable 1.x built with perl 5.6.x on this platform, please
-# make_56_interwork.pl to generate test data, and append the test data to
-# this test.
-# You may find that make_56_interwork.pl reports that your platform has no
-# interworking problems, in which case you need do nothing.
-EOM
- skip "# No 1.x test file", 9;
- }
- my $result = eval {thaw $real_thing};
- is ($result, undef, "By default should not be able to thaw");
- like ($@, qr/Byte order is not compatible/,
- "because the header byte order strings differ");
- local $Storable::interwork_56_64bit = 1;
- $result = eval {thaw $real_thing};
- isa_ok ($result, 'ARRAY', "With flag should now thaw");
- is ($@, '', "with no errors");
-
- # However, as the file is written with Storable pre 2.01, it's a known
- # bug that large (positive) UVs become IVs
- my $value = (~0 ^ (~0 >> 1) ^ 2);
-
- is (@$result, 4, "4 elements in array");
- like ($$result[0],
- qr/^This file was written with [0-9.]+ on perl [0-9.]+\z/,
- "1st element");
- is ($$result[1], "$kingdom was correct", "2nd element");
- cmp_ok ($$result[2] ^ $value, '==', 0, "3rd element") or
- printf "# expected %#X, got %#X\n", $value, $$result[2];
- is ($$result[3], "The End", "4th element");
-}
-
-$result = eval {thaw $test};
-isa_ok ($result, 'SCALAR', "CHORUS: check thawing test data");
-is ($@, '', " causes no errors");
-is ($$result, 'Hell', " and gives the expected data");
-
-my $test_kludge;
-{
- local $Storable::interwork_56_64bit = 1;
- $test_kludge = freeze \'Heck';
-}
-
-my $header_kludge = Storable::read_magic ($test_kludge);
-
-cmp_ok (length ($header_kludge->{byteorder}), '==', $Config{longsize},
- "With 5.6 interwork kludge byteorder string should be same size as long"
- );
-$result = eval {thaw $test_kludge};
-is ($result, undef, "By default should not be able to thaw");
-like ($@, qr/Byte order is not compatible/,
- "because the header byte order strings differ");
-
-$result = eval {thaw $test};
-isa_ok ($result, 'SCALAR', "CHORUS: check thawing test data");
-is ($@, '', " causes no errors");
-is ($$result, 'Hell', " and gives the expected data");
-
-{
- local $Storable::interwork_56_64bit = 1;
-
- $result = eval {thaw $test_kludge};
- isa_ok ($result, 'SCALAR', "should be able to thaw kludge data");
- is ($@, '', "with no errors");
- is ($$result, 'Heck', "and gives expected data");
-
- $result = eval {thaw $test};
- is ($result, undef, "But now can't thaw real data");
- like ($@, qr/Byte order is not compatible/,
- "because the header byte order strings differ");
-}
-
-# All together now:
-$result = eval {thaw $test};
-isa_ok ($result, 'SCALAR', "CHORUS: check thawing test data");
-is ($@, '', " causes no errors");
-is ($$result, 'Hell', " and gives the expected data");
-
-__END__
-# A whole run of 1.1.14 freeze data, uuencoded. The "mode bits" are the octal
-# value of 'A', the "file name" is the test name. Use make_56_interwork.pl
-# with a copy of Storable 1.X generate these.
-
-# byteorder '1234'
-# sizeof(int) 4
-# sizeof(long) 4
-# sizeof(char *) 4
-# sizeof(NV) 8
-begin 101 Lillput,4,4,4,8
-M!`0$,3(S-`0$!`@"!`````HQ5&AI<R!F:6QE('=A<R!W<FET=&5N('=I=&@@
-M,2XP,30@;VX@<&5R;"`U+C`P-C`P,0H33&EL;'!U="!W87, at 8V]R<F5C=`8"
-0````````@`H'5&AE($5N9```
-
-end
-
-# byteorder '4321'
-# sizeof(int) 4
-# sizeof(long) 4
-# sizeof(char *) 4
-# sizeof(NV) 8
-begin 101 Belfuscu,4,4,4,8
-M!`0$-#,R,00$!`@"````!`HQ5&AI<R!F:6QE('=A<R!W<FET=&5N('=I=&@@
-M,2XP,30@;VX@<&5R;"`U+C`P-C`P,0H40F5L9G5S8W4@=V%S(&-O<G)E8W0&
-1@`````````(*!U1H92!%;F0`
-
-end
-
-# byteorder '1234'
-# sizeof(int) 4
-# sizeof(long) 4
-# sizeof(char *) 4
-# sizeof(NV) 12
-begin 101 Lillput,4,4,4,12
-M!`0$,3(S-`0$!`P"!`````HQ5&AI<R!F:6QE('=A<R!W<FET=&5N('=I=&@@
-M,2XP,30@;VX@<&5R;"`U+C`P-C`P,0H33&EL;'!U="!W87, at 8V]R<F5C=`8"
-0````````@`H'5&AE($5N9```
-
-end
-
diff --git a/3.8.8/sources/cpan-Storable/vendor/t/just_plain_nasty.t b/3.8.8/sources/cpan-Storable/vendor/t/just_plain_nasty.t
deleted file mode 100644
index 77271fb..0000000
--- a/3.8.8/sources/cpan-Storable/vendor/t/just_plain_nasty.t
+++ /dev/null
@@ -1,151 +0,0 @@
-#!/usr/bin/perl
-
-# This is a test suite to cover all the nasty and horrible data
-# structures that cause bizarre corner cases.
-
-# Everyone's invited! :-D
-
-sub BEGIN {
- if ($ENV{PERL_CORE}){
- chdir('t') if -d 't';
- @INC = ('.', '../lib');
- } else {
- unshift @INC, 't';
- }
- require Config; import Config;
- if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
- print "1..0 # Skip: Storable was not built\n";
- exit 0;
- }
-}
-
-use strict;
-BEGIN {
- if (!eval q{
- use Test;
- use B::Deparse 0.61;
- use 5.006;
- 1;
- }) {
- print "1..0 # skip: tests only work with B::Deparse 0.61 and at least perl 5.6.0\n";
- exit;
- }
- require File::Spec;
- if ($File::Spec::VERSION < 0.8) {
- print "1..0 # Skip: newer File::Spec needed\n";
- exit 0;
- }
-}
-
-use Storable qw(freeze thaw);
-
-#$Storable::DEBUGME = 1;
-BEGIN {
- plan tests => 34;
-}
-
-{
- package Banana;
- use overload
- '<=>' => \&compare,
- '==' => \&equal,
- '""' => \&real,
- fallback => 1;
- sub compare { return int(rand(3))-1 };
- sub equal { return 1 if rand(1) > 0.5 }
- sub real { return "keep it so" }
-}
-
-my (@a);
-
-for my $dbun (1, 0) { # dbun - don't be utterly nasty - being utterly
- # nasty means having a reference to the object
- # directly within itself. otherwise it's in the
- # second array.
- my $nasty = [
- ($a[0] = bless [ ], "Banana"),
- ($a[1] = [ ]),
- ];
-
- $a[$dbun]->[0] = $a[0];
-
- ok(ref($nasty), "ARRAY", "Sanity found (now to play with it :->)");
-
- $Storable::Deparse = $Storable::Deparse = 1;
- $Storable::Eval = $Storable::Eval = 1;
-
- headit("circular overload 1 - freeze");
- my $icicle = freeze $nasty;
- #print $icicle; # cat -ve recommended :)
- headit("circular overload 1 - thaw");
- my $oh_dear = thaw $icicle;
- ok(ref($oh_dear), "ARRAY", "dclone - circular overload");
- ok($oh_dear->[0], "keep it so", "amagic ok 1");
- ok($oh_dear->[$dbun]->[0], "keep it so", "amagic ok 2");
-
- headit("closure dclone - freeze");
- $icicle = freeze sub { "two" };
- #print $icicle;
- headit("closure dclone - thaw");
- my $sub2 = thaw $icicle;
- ok($sub2->(), "two", "closures getting dcloned OK");
-
- headit("circular overload, after closure - freeze");
- #use Data::Dumper;
- #print Dumper $nasty;
- $icicle = freeze $nasty;
- #print $icicle;
- headit("circular overload, after closure - thaw");
- $oh_dear = thaw $icicle;
- ok(ref($oh_dear), "ARRAY", "dclone - after a closure dclone");
- ok($oh_dear->[0], "keep it so", "amagic ok 1");
- ok($oh_dear->[$dbun]->[0], "keep it so", "amagic ok 2");
-
- push @{$nasty}, sub { print "Goodbye, cruel world.\n" };
- headit("closure freeze AFTER circular overload");
- #print Dumper $nasty;
- $icicle = freeze $nasty;
- #print $icicle;
- headit("circular thaw AFTER circular overload");
- $oh_dear = thaw $icicle;
- ok(ref($oh_dear), "ARRAY", "dclone - before a closure dclone");
- ok($oh_dear->[0], "keep it so", "amagic ok 1");
- ok($oh_dear->[$dbun]->[0], "keep it so", "amagic ok 2");
-
- @{$nasty} = @{$nasty}[0, 2, 1];
- headit("closure freeze BETWEEN circular overload");
- #print Dumper $nasty;
- $icicle = freeze $nasty;
- #print $icicle;
- headit("circular thaw BETWEEN circular overload");
- $oh_dear = thaw $icicle;
- ok(ref($oh_dear), "ARRAY", "dclone - between a closure dclone");
- ok($oh_dear->[0], "keep it so", "amagic ok 1");
- ok($oh_dear->[$dbun?2:0]->[0], "keep it so", "amagic ok 2");
-
- @{$nasty} = @{$nasty}[1, 0, 2];
- headit("closure freeze BEFORE circular overload");
- #print Dumper $nasty;
- $icicle = freeze $nasty;
- #print $icicle;
- headit("circular thaw BEFORE circular overload");
- $oh_dear = thaw $icicle;
- ok(ref($oh_dear), "ARRAY", "dclone - after a closure dclone");
- ok($oh_dear->[1], "keep it so", "amagic ok 1");
- ok($oh_dear->[$dbun+1]->[0], "keep it so", "amagic ok 2");
-}
-
-sub headit {
-
- return; # comment out to get headings - useful for scanning
- # output with $Storable::DEBUGME = 1
-
- my $title = shift;
-
- my $size_left = (66 - length($title)) >> 1;
- my $size_right = (67 - length($title)) >> 1;
-
- print "# ".("-" x $size_left). " $title "
- .("-" x $size_right)."\n";
-}
-
diff --git a/3.8.8/sources/cpan-Storable/vendor/t/make_downgrade.pl b/3.8.8/sources/cpan-Storable/vendor/t/make_downgrade.pl
deleted file mode 100644
index fc801a4..0000000
--- a/3.8.8/sources/cpan-Storable/vendor/t/make_downgrade.pl
+++ /dev/null
@@ -1,106 +0,0 @@
-#!/usr/local/bin/perl -w
-use strict;
-
-use 5.007003;
-use Hash::Util qw(lock_hash unlock_hash lock_keys);
-use Storable qw(nfreeze);
-
-# If this looks like a hack, it's probably because it is :-)
-sub uuencode_it {
- my ($data, $name) = @_;
- my $frozen = nfreeze $data;
-
- my $uu = pack 'u', $frozen;
-
- printf "begin %3o $name\n", ord 'A';
- print $uu;
- print "\nend\n\n";
-}
-
-
-my %hash = (perl=>"rules");
-
-lock_hash %hash;
-
-uuencode_it (\%hash, "Locked hash");
-
-unlock_hash %hash;
-
-lock_keys %hash, 'perl', 'rules';
-lock_hash %hash;
-
-uuencode_it (\%hash, "Locked hash placeholder");
-
-unlock_hash %hash;
-
-lock_keys %hash, 'perl';
-
-uuencode_it (\%hash, "Locked keys");
-
-unlock_hash %hash;
-
-lock_keys %hash, 'perl', 'rules';
-
-uuencode_it (\%hash, "Locked keys placeholder");
-
-unlock_hash %hash;
-
-my $utf8 = "\x{DF}\x{100}";
-chop $utf8;
-
-uuencode_it (\$utf8, "Short 8 bit utf8 data");
-
-my $utf8b = $utf8;
-utf8::encode ($utf8b);
-
-uuencode_it (\$utf8b, "Short 8 bit utf8 data as bytes");
-
-$utf8 x= 256;
-
-uuencode_it (\$utf8, "Long 8 bit utf8 data");
-
-$utf8 = "\x{C0FFEE}";
-
-uuencode_it (\$utf8, "Short 24 bit utf8 data");
-
-$utf8b = $utf8;
-utf8::encode ($utf8b);
-
-uuencode_it (\$utf8b, "Short 24 bit utf8 data as bytes");
-
-$utf8 x= 256;
-
-uuencode_it (\$utf8, "Long 24 bit utf8 data");
-
-# Hash which has the utf8 bit set, but no longer has any utf8 keys
-my %uhash = ("\x{100}", "gone", "perl", "rules");
-delete $uhash{"\x{100}"};
-
-# use Devel::Peek; Dump \%uhash;
-uuencode_it (\%uhash, "Hash with utf8 flag but no utf8 keys");
-
-$utf8 = "Schlo\xdf" . chr 256;
-chop $utf8;
-my $a_circumflex = (ord ('A') == 193 ? "\x47" : "\xe5");
-%uhash = (map {$_, $_} 'castle', "ch${a_circumflex}teau", $utf8, "\x{57CE}");
-
-uuencode_it (\%uhash, "Hash with utf8 keys");
-
-lock_hash %uhash;
-
-uuencode_it (\%uhash, "Locked hash with utf8 keys");
-
-my (%pre56, %pre58);
-
-while (my ($key, $val) = each %uhash) {
- # hash keys are always stored downgraded to bytes if possible, with a flag
- # to say "promote back to utf8"
- # Whereas scalars are stored as is.
- utf8::encode ($key) if ord $key > 256;
- $pre58{$key} = $val;
- utf8::encode ($val) unless $val eq "ch\xe5teau";
- $pre56{$key} = $val;
-
-}
-uuencode_it (\%pre56, "Hash with utf8 keys for pre 5.6");
-uuencode_it (\%pre58, "Hash with utf8 keys for 5.6");
diff --git a/3.8.8/sources/cpan-Storable/vendor/t/make_overload.pl b/3.8.8/sources/cpan-Storable/vendor/t/make_overload.pl
deleted file mode 100644
index bd224f5..0000000
--- a/3.8.8/sources/cpan-Storable/vendor/t/make_overload.pl
+++ /dev/null
@@ -1,13 +0,0 @@
-#!/usr/local/bin/perl -w
-use strict;
-
-use Storable qw(nfreeze);
-use HAS_OVERLOAD;
-
-my $o = HAS_OVERLOAD->make("snow");
-my $f = nfreeze \$o;
-
-my $uu = pack 'u', $f;
-
-print $uu;
-
diff --git a/3.8.8/sources/cpan-Storable/vendor/t/restrict.t b/3.8.8/sources/cpan-Storable/vendor/t/restrict.t
deleted file mode 100644
index d5c4bd6..0000000
--- a/3.8.8/sources/cpan-Storable/vendor/t/restrict.t
+++ /dev/null
@@ -1,130 +0,0 @@
-#!./perl -w
-#
-# Copyright 2002, Larry Wall.
-#
-# You may redistribute only under the same terms as Perl 5, as specified
-# in the README file that comes with the distribution.
-#
-
-sub BEGIN {
- chdir('t') if -d 't';
- if ($ENV{PERL_CORE}){
- @INC = ('.', '../lib', '../ext/Storable/t');
- require Config;
- if ($Config::Config{'extensions'} !~ /\bStorable\b/) {
- print "1..0 # Skip: Storable was not built\n";
- exit 0;
- }
- } else {
- if ($] < 5.005) {
- print "1..0 # Skip: No Hash::Util pre 5.005\n";
- exit 0;
- # And doing this seems on 5.004 seems to create bogus warnings about
- # unitialized variables, or coredumps in Perl_pp_padsv
- } elsif (!eval "require Hash::Util") {
- if ($@ =~ /Can\'t locate Hash\/Util\.pm in \@INC/s) {
- print "1..0 # Skip: No Hash::Util:\n";
- exit 0;
- } else {
- die;
- }
- }
- unshift @INC, 't';
- }
- require 'st-dump.pl';
-}
-
-
-use Storable qw(dclone freeze thaw);
-use Hash::Util qw(lock_hash unlock_value);
-
-print "1..100\n";
-
-my %hash = (question => '?', answer => 42, extra => 'junk', undef => undef);
-lock_hash %hash;
-unlock_value %hash, 'answer';
-unlock_value %hash, 'extra';
-delete $hash{'extra'};
-
-my $test;
-
-package Restrict_Test;
-
-sub me_second {
- return (undef, $_[0]);
-}
-
-package main;
-
-sub freeze_thaw {
- my $temp = freeze $_[0];
- return thaw $temp;
-}
-
-sub testit {
- my $hash = shift;
- my $cloner = shift;
- my $copy = &$cloner($hash);
-
- my @in_keys = sort keys %$hash;
- my @out_keys = sort keys %$copy;
- unless (ok ++$test, "@in_keys" eq "@out_keys") {
- print "# Failed: keys mis-match after deep clone.\n";
- print "# Original keys: @in_keys\n";
- print "# Copy's keys: @out_keys\n";
- }
-
- # $copy = $hash; # used in initial debug of the tests
-
- ok ++$test, Internals::SvREADONLY(%$copy), "cloned hash restricted?";
-
- ok ++$test, Internals::SvREADONLY($copy->{question}),
- "key 'question' not locked in copy?";
-
- ok ++$test, !Internals::SvREADONLY($copy->{answer}),
- "key 'answer' not locked in copy?";
-
- eval { $copy->{extra} = 15 } ;
- unless (ok ++$test, !$@, "Can assign to reserved key 'extra'?") {
- my $diag = $@;
- $diag =~ s/\n.*\z//s;
- print "# \$\@: $diag\n";
- }
-
- eval { $copy->{nono} = 7 } ;
- ok ++$test, $@, "Can not assign to invalid key 'nono'?";
-
- ok ++$test, exists $copy->{undef},
- "key 'undef' exists";
-
- ok ++$test, !defined $copy->{undef},
- "value for key 'undef' is undefined";
-}
-
-for $Storable::canonical (0, 1) {
- for my $cloner (\&dclone, \&freeze_thaw) {
- print "# \$Storable::canonical = $Storable::canonical\n";
- testit (\%hash, $cloner);
- my $object = \%hash;
- # bless {}, "Restrict_Test";
-
- my %hash2;
- $hash2{"k$_"} = "v$_" for 0..16;
- lock_hash %hash2;
- for (0..16) {
- unlock_value %hash2, "k$_";
- delete $hash2{"k$_"};
- }
- my $copy = &$cloner(\%hash2);
-
- for (0..16) {
- my $k = "k$_";
- eval { $copy->{$k} = undef } ;
- unless (ok ++$test, !$@, "Can assign to reserved key '$k'?") {
- my $diag = $@;
- $diag =~ s/\n.*\z//s;
- print "# \$\@: $diag\n";
- }
- }
- }
-}
diff --git a/3.8.8/sources/cpan-Storable/vendor/t/sig_die.t b/3.8.8/sources/cpan-Storable/vendor/t/sig_die.t
deleted file mode 100644
index 0350752..0000000
--- a/3.8.8/sources/cpan-Storable/vendor/t/sig_die.t
+++ /dev/null
@@ -1,44 +0,0 @@
-#!./perl
-#
-# Copyright (c) 2002 Slaven Rezic
-#
-# You may redistribute only under the same terms as Perl 5, as specified
-# in the README file that comes with the distribution.
-#
-
-sub BEGIN {
- if ($ENV{PERL_CORE}){
- chdir('t') if -d 't';
- @INC = ('.', '../lib');
- } else {
- unshift @INC, 't';
- }
- require Config; import Config;
- if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
- print "1..0 # Skip: Storable was not built\n";
- exit 0;
- }
-}
-
-use strict;
-BEGIN {
- if (!eval q{
- use Test::More;
- 1;
- }) {
- print "1..0 # skip: tests only work with Test::More\n";
- exit;
- }
-}
-
-BEGIN { plan tests => 1 }
-
-my @warns;
-$SIG{__WARN__} = sub { push @warns, shift };
-$SIG{__DIE__} = sub { require Carp; warn Carp::longmess(); warn "Evil die!" };
-
-require Storable;
-
-Storable::dclone({foo => "bar"});
-
-is(join("", @warns), "", "__DIE__ is not evil here");
diff --git a/3.8.8/sources/cpan-Storable/vendor/t/utf8.t b/3.8.8/sources/cpan-Storable/vendor/t/utf8.t
deleted file mode 100644
index ab0f62c..0000000
--- a/3.8.8/sources/cpan-Storable/vendor/t/utf8.t
+++ /dev/null
@@ -1,63 +0,0 @@
-
-#!./perl -w
-#
-# Copyright (c) 1995-2000, Raphael Manfredi
-#
-# You may redistribute only under the same terms as Perl 5, as specified
-# in the README file that comes with the distribution.
-#
-
-sub BEGIN {
- if ($] < 5.006) {
- print "1..0 # Skip: no utf8 support\n";
- exit 0;
- }
- if ($ENV{PERL_CORE}){
- chdir('t') if -d 't';
- @INC = ('.', '../lib', '../ext/Storable/t');
- } else {
- unshift @INC, 't';
- }
- require Config; import Config;
- if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
- print "1..0 # Skip: Storable was not built\n";
- exit 0;
- }
- require 'st-dump.pl';
-}
-
-use strict;
-sub ok;
-
-use Storable qw(thaw freeze);
-
-print "1..6\n";
-
-my $x = chr(1234);
-ok 1, $x eq ${thaw freeze \$x};
-
-# Long scalar
-$x = join '', map {chr $_} (0..1023);
-ok 2, $x eq ${thaw freeze \$x};
-
-# Char in the range 127-255 (probably) in utf8
-$x = chr (175) . chr (256);
-chop $x;
-ok 3, $x eq ${thaw freeze \$x};
-
-# Storable needs to cope if a frozen string happens to be internall utf8
-# encoded
-
-$x = chr 256;
-my $data = freeze \$x;
-ok 4, $x eq ${thaw $data};
-
-$data .= chr 256;
-chop $data;
-ok 5, $x eq ${thaw $data};
-
-
-$data .= chr 256;
-# This definately isn't valid
-eval {thaw $data};
-ok 6, $@ =~ /corrupt.*characters outside/;
diff --git a/3.8.8/sources/cpan-Sys-Syslog/vendor/Makefile.PL b/3.8.8/sources/cpan-Sys-Syslog/vendor/Makefile.PL
deleted file mode 100644
index 790853c..0000000
--- a/3.8.8/sources/cpan-Sys-Syslog/vendor/Makefile.PL
+++ /dev/null
@@ -1,196 +0,0 @@
-use strict;
-use Config;
-use ExtUtils::MakeMaker;
-eval 'use ExtUtils::MakeMaker::Coverage';
-use File::Copy;
-use File::Path;
-use File::Spec;
-require 5.005;
-
-
-# create a typemap for Perl 5.6
-if ($] < 5.008) {
- open(TYPEMAP, ">typemap") or die "fatal: can't write typemap: $!";
- print TYPEMAP "const char *\t\tT_PV\n";
- close(TYPEMAP);
-}
-
-# create a lib/ dir in order to avoid warnings in Test::Distribution
-mkdir "lib", 0755;
-
-# virtual paths given to EU::MM
-my %virtual_path = ( 'Syslog.pm' => '$(INST_LIBDIR)/Syslog.pm' );
-
-# detect when to use Win32::EvenLog
-my (@extra_params, @extra_prereqs);
-my $use_eventlog = eval "use Win32::EventLog; 1";
-
-if ($use_eventlog) {
- print " * Win32::EventLog detected.\n";
- my $name = "PerlLog";
-
- push @extra_prereqs,
- Win32 => 0, "Win32::TieRegistry" => 0, "Win32::EventLog" => 0;
-
- $virtual_path{'win32/Win32.pm' } = '$(INST_LIBDIR)/Syslog/Win32.pm';
- $virtual_path{'win32/PerlLog.dll'} = '$(INST_ARCHAUTODIR)/PerlLog.dll';
-
- push @extra_params, CCFLAGS => "-Ifallback";
-
- # recreate the DLL from its uuencoded form if it's not here
- if (! -f File::Spec->catfile("win32", "$name.dll")) {
- # read the uuencoded data
- open(UU, '<' . File::Spec->catfile("win32", "$name\_dll.uu"))
- or die "fatal: Can't read file '$name\_dll.uu': $!";
- my $uudata = do { local $/; <UU> };
- close(UU);
-
- # write the DLL
- open(DLL, '>' . File::Spec->catfile("win32", "$name.dll"))
- or die "fatal: Can't write DLL '$name.dll': $!";
- binmode(DLL);
- print DLL unpack "u", $uudata;
- close(DLL);
- }
-}
-elsif ($^O =~ /Win32/) {
- print <<"NOTICE"
- *** You're running on a Win32 system, but you lack the Win32::EventLog\a
- *** module, part of the libwin32 distribution. Although Sys::Syslog can
- *** be used without Win32::EventLog, it won't be very useful except for
- *** sending remote syslog messages. If you want to log messages on the
- *** local host as well, please install libwin32 then Sys::Syslog again.
-NOTICE
-}
-
-# detect when being built in Perl core
-if (grep { $_ eq 'PERL_CORE=1' } @ARGV) {
- push @extra_params,
- MAN3PODS => {}; # Pods will be built by installman.
-}
-else {
- push @extra_params,
- DEFINE => '-DUSE_PPPORT_H';
-}
-
-# on pre-5.6 Perls, add warnings::compat to the prereq modules
-push @extra_prereqs, "warnings::compat" => "0.06" if $] < 5.006;
-
-WriteMakefile(
- NAME => 'Sys::Syslog',
- LICENSE => 'perl',
- AUTHOR => 'Sebastien Aperghis-Tramoni <sebastien at aperghis.net>',
- VERSION_FROM => 'Syslog.pm',
- ABSTRACT_FROM => 'Syslog.pm',
- INSTALLDIRS => 'perl',
- XSPROTOARG => '-noprototypes',
- PM => \%virtual_path,
- PREREQ_PM => {
- # run prereqs
- 'Carp' => 0,
- 'Fcntl' => 0,
- 'File::Basename' => 0,
- 'File::Spec' => 0,
- 'POSIX' => 0,
- 'Socket' => 0,
- 'XSLoader' => 0,
- @extra_prereqs,
-
- # build/test prereqs
- 'Test::More' => 0,
- },
- PL_FILES => {},
- dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
- clean => { FILES => 'Sys-Syslog-*' },
- realclean => { FILES => 'lib const-c.inc const-xs.inc macros.all '
- .'PerlLog.h typemap *.bak *.bin *.rc win32/PerlLog_dll' },
- @extra_params
-);
-
-
-# find a default value for _PATH_LOG
-my $_PATH_LOG;
-
-if (-c "/dev/conslog" and -w _) {
- # SunOS 5.8 has a worldwritable /dev/conslog STREAMS log driver.
- # The /dev/log STREAMS log driver on this platform has permissions
- # and ownership `crw-r----- root sys'. /dev/conslog has more liberal
- # permissions.
- $_PATH_LOG = "/dev/conslog";
-}
-elsif (-S "/var/run/syslog" and -w _) {
- # Mac OS X puts it at a different path.
- $_PATH_LOG = "/var/run/syslog";
-}
-elsif (-p "/dev/log" and -w _) {
- # On HP-UX, /dev/log isn't a unix domain socket but a named pipe.
- $_PATH_LOG = "/dev/log";
-}
-elsif ((-S "/dev/log" or -c _) and -w _) {
- # Most unixes have a unix domain socket /dev/log.
- $_PATH_LOG = "/dev/log";
-}
-else {
- $_PATH_LOG = "";
-}
-
-
-# if possible, generate the code that handles the constants with
-# ExtUtils::Constant, otherwise use cached copy in fallback/
-if(eval {require ExtUtils::Constant; 1}) {
- my @levels = qw(
- LOG_ALERT LOG_CRIT LOG_DEBUG LOG_EMERG LOG_ERR
- LOG_INFO LOG_NOTICE LOG_WARNING
- );
-
- my @facilities = (
- # 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
- { name => "LOG_INSTALL", type => "IV", default => [ "IV", "LOG_USER" ] },
- { name => "LOG_LAUNCHD", type => "IV", default => [ "IV", "LOG_DAEMON"] },
- { name => "LOG_NETINFO", type => "IV", default => [ "IV", "LOG_DAEMON"] },
- { name => "LOG_RAS", type => "IV", default => [ "IV", "LOG_AUTH" ] },
- { name => "LOG_REMOTEAUTH", type => "IV", default => [ "IV", "LOG_AUTH" ] },
- # modern BSD specific facilities
- { name => "LOG_CONSOLE", type => "IV", default => [ "IV", "LOG_USER" ] },
- { name => "LOG_NTP", type => "IV", default => [ "IV", "LOG_DAEMON"] },
- { name => "LOG_SECURITY", type => "IV", default => [ "IV", "LOG_AUTH" ] },
- # IRIX specific facilities
- { name => "LOG_AUDIT", type => "IV", default => [ "IV", "LOG_AUTH" ] },
- { name => "LOG_LFMT", type => "IV", default => [ "IV", "LOG_USER" ] },
- );
-
- my @options = qw(
- LOG_CONS LOG_PID LOG_NDELAY LOG_NOWAIT LOG_ODELAY LOG_PERROR
- );
-
- my @others_macros = (
- qw(LOG_FACMASK),
- { name => "_PATH_LOG", type => "PV", default => [ "PV", qq("$_PATH_LOG") ] },
- { name => "LOG_PRIMASK", type => "IV", default => [ "IV", 7] },
- { name => "LOG_NFACILITIES", type => "IV", default => [ "IV", scalar @facilities] },
- );
-
- ExtUtils::Constant::WriteConstants(
- NAME => 'Sys::Syslog',
- NAMES => [ @levels, @facilities, @options, @others_macros ],
- ($] > 5.009002 ? (PROXYSUBS => 1) : ()),
- );
-
- my @names = map { ref $_ ? $_->{name} : $_ } @levels, @facilities, @options;
- open(MACROS, '>macros.all') or warn "warning: Can't write 'macros.all': $!\n";
- print MACROS join $/, @names;
- close(MACROS);
-}
-else {
- foreach my $file ('const-c.inc', 'const-xs.inc') {
- my $fallback = File::Spec->catfile('fallback', $file);
- copy($fallback, $file) or die "fatal: Can't copy $fallback to $file: $!";
- }
-}
diff --git a/3.8.8/sources/cpan-Sys-Syslog/vendor/Syslog.pm b/3.8.8/sources/cpan-Sys-Syslog/vendor/Syslog.pm
deleted file mode 100644
index 002e6e4..0000000
--- a/3.8.8/sources/cpan-Sys-Syslog/vendor/Syslog.pm
+++ /dev/null
@@ -1,1600 +0,0 @@
-package Sys::Syslog;
-use strict;
-use warnings;
-use warnings::register;
-use Carp;
-use Exporter ();
-use Fcntl qw(O_WRONLY);
-use File::Basename;
-use POSIX qw(strftime setlocale LC_TIME);
-use Socket ':all';
-require 5.005;
-
-{ no strict 'vars';
- $VERSION = '0.27';
- @ISA = qw(Exporter);
-
- %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 transmited
-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,
- nofatal => 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 =~ /^(freebsd|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")) {
- unshift @connectMethods, 'eventlog';
- }
- elsif ($is_Win32) {
- warn $@;
- }
-}
-
-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.
-$sock_timeout = 0.25 if $^O =~ /darwin/;
-
-# 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 {
- $facility = $ident = '';
- disconnect_log();
-}
-
-sub setlogmask {
- my $oldmask = $maskpri;
- $maskpri = shift unless $_[0] == 0;
- $oldmask;
-}
-
-sub setlogsock {
- my ($setsock, $setpath, $settime) = @_;
-
- # check arguments
- my $diag_invalid_arg
- = "Invalid argument passed to setlogsock; must be 'stream', 'pipe', "
- . "'unix', 'native', 'eventlog', 'tcp', 'udp' or 'inet'";
- croak $diag_invalid_arg unless defined $setsock;
- croak "Invalid number of arguments" unless @_ >= 1 and @_ <= 3;
-
- $syslog_path = $setpath if defined $setpath;
- $sock_timeout = $settime if defined $settime;
-
- disconnect_log() if $connected;
- $transmit_ok = 0;
- @fallbackMethods = ();
- @connectMethods = @defaultMethods;
-
- if (ref $setsock eq 'ARRAY') {
- @connectMethods = @$setsock;
-
- } elsif (lc $setsock eq 'stream') {
- if (not defined $syslog_path) {
- my @try = qw(/dev/log /dev/conslog);
-
- if (length &_PATH_LOG) { # Undefined _PATH_LOG is "".
- unshift @try, &_PATH_LOG;
- }
-
- for my $try (@try) {
- if (-w $try) {
- $syslog_path = $try;
- last;
- }
- }
-
- if (not defined $syslog_path) {
- warnings::warnif "stream passed to setlogsock, but could not find any device";
- return undef
- }
- }
-
- if (not -w $syslog_path) {
- warnings::warnif "stream passed to setlogsock, but $syslog_path is not writable";
- return undef;
- } else {
- @connectMethods = qw(stream);
- }
-
- } elsif (lc $setsock eq 'unix') {
- if (length _PATH_LOG() || (defined $syslog_path && -w $syslog_path)) {
- $syslog_path = _PATH_LOG() unless defined $syslog_path;
- @connectMethods = qw(unix);
- } else {
- warnings::warnif 'unix passed to setlogsock, but path not available';
- return undef;
- }
-
- } elsif (lc $setsock eq 'pipe') {
- for my $path ($syslog_path, &_PATH_LOG, "/dev/log") {
- next unless defined $path and length $path and -p $path and -w _;
- $syslog_path = $path;
- last
- }
-
- if (not $syslog_path) {
- warnings::warnif "pipe passed to setlogsock, but path not available";
- return undef
- }
-
- @connectMethods = qw(pipe);
-
- } elsif (lc $setsock eq 'native') {
- @connectMethods = qw(native);
-
- } elsif (lc $setsock eq 'eventlog') {
- if (can_load("Win32::EventLog")) {
- @connectMethods = qw(eventlog);
- } else {
- warnings::warnif "eventlog passed to setlogsock, but no Win32 API available";
- $@ = "";
- return undef;
- }
-
- } elsif (lc $setsock eq 'tcp') {
- if (getservbyname('syslog', 'tcp') || getservbyname('syslogng', 'tcp')) {
- @connectMethods = qw(tcp);
- $host = $syslog_path;
- } else {
- warnings::warnif "tcp passed to setlogsock, but tcp service unavailable";
- return undef;
- }
-
- } elsif (lc $setsock eq 'udp') {
- if (getservbyname('syslog', 'udp')) {
- @connectMethods = qw(udp);
- $host = $syslog_path;
- } else {
- warnings::warnif "udp passed to setlogsock, but udp service unavailable";
- return undef;
- }
-
- } elsif (lc $setsock eq 'inet') {
- @connectMethods = ( 'tcp', 'udp' );
-
- } elsif (lc $setsock eq 'console') {
- @connectMethods = qw(console);
-
- } else {
- croak $diag_invalid_arg
- }
-
- return 1;
-}
-
-sub syslog {
- my $priority = shift;
- my $mask = shift;
- 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;
-
- croak "syslog: invalid level/facility: $priority" if $priority =~ /^-\d+$/;
- @words = split(/\W+/, $priority, 2); # Allow "level" or "level|facility".
- undef $numpri;
- undef $numfac;
-
- for my $word (@words) {
- next if length $word == 0;
-
- $num = xlate($word); # Translate word to number.
-
- if ($num < 0) {
- croak "syslog: invalid level/facility: $word"
- }
- elsif ($num <= &LOG_PRIMASK) {
- croak "syslog: too many levels given: $word" if defined $numpri;
- $numpri = $num;
- return 0 unless LOG_MASK($numpri) & $maskpri;
- }
- else {
- croak "syslog: too many facilities given: $word" if defined $numfac;
- $facility = $word;
- $numfac = $num;
- }
- }
-
- croak "syslog: level must be given" unless defined $numpri;
-
- 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 @_;
- # 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 = @_ ? sprintf($mask, @_) : $mask;
-
- # See CPAN-RT#24431. Opened on Apple Radar as bug #4944407 on 2007.01.21
- # Supposedly resolved on Leopard.
- chomp $message if $^O =~ /darwin/;
-
- 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 %e %T", localtime;
- setlocale(LC_TIME, $oldlocale);
- $buf = "<$sum>$timestamp $whoami: $message\0";
- }
-
- # handle PERROR option
- # "native" mechanism already handles it by itself
- if ($options{perror} and $current_proto ne 'native') {
- chomp $message;
- 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) = @_;
- chop($buf); # delete the NUL from the end
- # 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 ?
- exit $ret if defined $pid;
- close CONS;
- }
- exit 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) = @_;
- syslog_xs($numpri, $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 $tcp = getprotobyname('tcp');
- if (!defined $tcp) {
- push @$errs, "getprotobyname failed for tcp";
- return 0;
- }
-
- my $syslog = getservbyname('syslog', 'tcp');
- $syslog = getservbyname('syslogng', 'tcp') unless defined $syslog;
- if (!defined $syslog) {
- 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($syslog, $addr);
-
- if (!socket(SYSLOG, AF_INET, SOCK_STREAM, $tcp)) {
- 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 $udp = getprotobyname('udp');
- if (!defined $udp) {
- push @$errs, "getprotobyname failed for udp";
- return 0;
- }
-
- my $syslog = getservbyname('syslog', 'udp');
- if (!defined $syslog) {
- 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($syslog, $addr);
-
- if (!socket(SYSLOG, AF_INET, SOCK_DGRAM, $udp)) {
- 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;
- }
- if (!sysopen(SYSLOG, $syslog_path, 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();
- return 1;
- }
- elsif (defined $current_proto and $current_proto eq 'eventlog') {
- $syslog_xobj->Close();
- 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 {
- local($SIG{__DIE__}, $SIG{__WARN__}, $@);
- return eval "use $_[0]; 1"
-}
-
-
-"Eighth Rule: read the documentation."
-
-__END__
-
-=head1 NAME
-
-Sys::Syslog - Perl interface to the UNIX syslog(3) calls
-
-=head1 VERSION
-
-Version 0.27
-
-=head1 SYNOPSIS
-
- use Sys::Syslog; # all except setlogsock(), or:
- use Sys::Syslog qw(:DEFAULT setlogsock); # default set, plus setlogsock()
- use Sys::Syslog qw(:standard :macros); # standard functions, plus 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)>.
-
-You can find a kind of FAQ in L<"THE RULES OF SYS::SYSLOG">. Please read
-it before coding, and again before asking questions.
-
-
-=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<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<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.
-
-=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<WARNIN> 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>
-
- syslog("info", $message); # informational level
- syslog(LOG_INFO, $message); # informational level
-
- syslog("info|local0", $message); # information level, Local0 facility
- syslog(LOG_INFO|LOG_LOCAL0, $message); # information level, Local0 facility
-
-=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($sock_type)>
-
-=item B<setlogsock($sock_type, $stream_location)> (added in Perl 5.004_02)
-
-=item B<setlogsock($sock_type, $stream_location, $sock_timeout)> (added in 0.25)
-
-Sets the socket type to be used for the next call to
-C<openlog()> or C<syslog()> and returns true on success,
-C<undef> on failure. 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. If defined, the second parameter is used as a hostname to connect to.
-
-=item *
-
-C<"udp"> - connect to a UDP socket, on the C<syslog/udp> service.
-If defined, the second parameter is used as a hostname to connect to,
-and the third parameter as the timeout used to check for UDP response.
-
-=item *
-
-C<"inet"> - connect to an INET socket, either TCP or UDP, tried in that
-order. If defined, the second parameter is used as a hostname to connect to.
-
-=item *
-
-C<"unix"> - connect to a UNIX domain socket (in some systems a character
-special device). The name of that socket is the second parameter or, if
-you omit the second parameter, the value returned by the C<_PATH_LOG> macro
-(if your system defines it), or F</dev/log> or F</dev/conslog>, whatever is
-writable.
-
-=item *
-
-C<"stream"> - connect to the stream indicated by the pathname provided as
-the optional second parameter, or, if omitted, to F</dev/conslog>.
-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 pathname provided as
-the optional second parameter, 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).
-
-=item *
-
-C<"console"> - send messages directly to the console, as for the C<"cons">
-option of C<openlog()>.
-
-=back
-
-A reference to an array can also be passed as the first parameter.
-When this calling method is used, the array should contain a list of
-mechanisms which are attempted in order.
-
-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");
-
-Select 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 occurence 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 SEE ALSO
-
-=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/NoAuth/Bugs.html?Dist=Sys-Syslog>
-
-=item * Search CPAN
-
-L<http://search.cpan.org/dist/Sys-Syslog/>
-
-=item * Kobes' CPAN Search
-
-L<http://cpan.uwinnipeg.ca/dist/Sys-Syslog>
-
-=item * Perl Documentation
-
-L<http://perldoc.perl.org/Sys/Syslog.html>
-
-=back
-
-
-=head1 COPYRIGHT
-
-Copyright (C) 1990-2008 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.tpc.int/tpc/server/UNIX/>
-- 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/3.8.8/sources/cpan-Sys-Syslog/vendor/Syslog.xs b/3.8.8/sources/cpan-Sys-Syslog/vendor/Syslog.xs
deleted file mode 100644
index 704ed9e..0000000
--- a/3.8.8/sources/cpan-Sys-Syslog/vendor/Syslog.xs
+++ /dev/null
@@ -1,171 +0,0 @@
-#if defined(_WIN32)
-# include <windows.h>
-#endif
-
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-#ifdef USE_PPPORT_H
-# include "ppport.h"
-#endif
-
-#ifndef HAVE_SYSLOG
-#define HAVE_SYSLOG 1
-#endif
-
-#if defined(_WIN32) && !defined(__CYGWIN__)
-# undef HAVE_SYSLOG
-# include "fallback/syslog.h"
-#else
-# if defined(I_SYSLOG) || PATCHLEVEL < 6
-# include <syslog.h>
-# endif
-#endif
-
-static SV *ident_svptr;
-
-#include "const-c.inc"
-
-MODULE = Sys::Syslog PACKAGE = Sys::Syslog
-
-INCLUDE: const-xs.inc
-
-int
-LOG_FAC(p)
- INPUT:
- int p
- CODE:
-#ifdef LOG_FAC
- RETVAL = LOG_FAC(p);
-#else
- croak("Your vendor has not defined the Sys::Syslog macro LOG_FAC");
- RETVAL = -1;
-#endif
- OUTPUT:
- RETVAL
-
-int
-LOG_PRI(p)
- INPUT:
- int p
- CODE:
-#ifdef LOG_PRI
- RETVAL = LOG_PRI(p);
-#else
- croak("Your vendor has not defined the Sys::Syslog macro LOG_PRI");
- RETVAL = -1;
-#endif
- OUTPUT:
- RETVAL
-
-int
-LOG_MAKEPRI(fac,pri)
- INPUT:
- int fac
- int pri
- CODE:
-#ifdef LOG_MAKEPRI
- RETVAL = LOG_MAKEPRI(fac,pri);
-#else
- croak("Your vendor has not defined the Sys::Syslog macro LOG_MAKEPRI");
- RETVAL = -1;
-#endif
- OUTPUT:
- RETVAL
-
-int
-LOG_MASK(pri)
- INPUT:
- int pri
- CODE:
-#ifdef LOG_MASK
- RETVAL = LOG_MASK(pri);
-#else
- croak("Your vendor has not defined the Sys::Syslog macro LOG_MASK");
- RETVAL = -1;
-#endif
- OUTPUT:
- RETVAL
-
-int
-LOG_UPTO(pri)
- INPUT:
- int pri
- CODE:
-#ifdef LOG_UPTO
- RETVAL = LOG_UPTO(pri);
-#else
- croak("Your vendor has not defined the Sys::Syslog macro LOG_UPTO");
- RETVAL = -1;
-#endif
- OUTPUT:
- RETVAL
-
-#ifdef HAVE_SYSLOG
-
-void
-openlog_xs(ident, option, facility)
- INPUT:
- SV* ident
- int option
- int facility
- PREINIT:
- STRLEN len;
- char* ident_pv;
- CODE:
- ident_svptr = newSVsv(ident);
- ident_pv = SvPV(ident_svptr, len);
- openlog(ident_pv, option, facility);
-
-void
-syslog_xs(priority, message)
- INPUT:
- int priority
- const char * message
- CODE:
- syslog(priority, "%s", message);
-
-int
-setlogmask_xs(mask)
- INPUT:
- int mask
- CODE:
- RETVAL = setlogmask(mask);
- OUTPUT:
- RETVAL
-
-void
-closelog_xs()
- CODE:
- closelog();
- if (SvREFCNT(ident_svptr))
- SvREFCNT_dec(ident_svptr);
-
-#else /* HAVE_SYSLOG */
-
-void
-openlog_xs(ident, option, facility)
- INPUT:
- SV* ident
- int option
- int facility
- CODE:
-
-void
-syslog_xs(priority, message)
- INPUT:
- int priority
- const char * message
- CODE:
-
-int
-setlogmask_xs(mask)
- INPUT:
- int mask
- CODE:
-
-void
-closelog_xs()
- CODE:
-
-#endif /* HAVE_SYSLOG */
diff --git a/3.8.8/sources/cpan-Sys-Syslog/vendor/const-c.inc b/3.8.8/sources/cpan-Sys-Syslog/vendor/const-c.inc
deleted file mode 100644
index 5912d4c..0000000
--- a/3.8.8/sources/cpan-Sys-Syslog/vendor/const-c.inc
+++ /dev/null
@@ -1,77 +0,0 @@
-#define PERL_constant_NOTFOUND 1
-#define PERL_constant_NOTDEF 2
-#define PERL_constant_ISIV 3
-#define PERL_constant_ISNO 4
-#define PERL_constant_ISNV 5
-#define PERL_constant_ISPV 6
-#define PERL_constant_ISPVN 7
-#define PERL_constant_ISSV 8
-#define PERL_constant_ISUNDEF 9
-#define PERL_constant_ISUV 10
-#define PERL_constant_ISYES 11
-
-#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
-static void
-constant_add_symbol(pTHX_ HV *hash, const char *name, I32 namelen, SV *value) {
- SV **sv = hv_fetch(hash, name, namelen, TRUE);
- if (!sv) {
- Perl_croak(aTHX_ "Couldn't add key '%s' to %%Sys::Syslog::",
- name);
- }
- if (SvOK(*sv) || SvTYPE(*sv) == SVt_PVGV) {
- /* Someone has been here before us - have to make a real sub. */
- newCONSTSUB(hash, name, value);
- } else {
- SvUPGRADE(*sv, SVt_RV);
- SvRV_set(*sv, value);
- SvROK_on(*sv);
- SvREADONLY_on(value);
- }
-}
-
-
-
-#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, "Sys::Syslog", 11, 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
-
-struct notfound_s {const char *name; I32 namelen;} ;
-struct iv_s {const char *name; I32 namelen; IV value;};
-struct pv_s {const char *name; I32 namelen; const char *value;};
diff --git a/3.8.8/sources/cpan-Sys-Syslog/vendor/const-xs.inc b/3.8.8/sources/cpan-Sys-Syslog/vendor/const-xs.inc
deleted file mode 100644
index 6876189..0000000
--- a/3.8.8/sources/cpan-Sys-Syslog/vendor/const-xs.inc
+++ /dev/null
@@ -1,451 +0,0 @@
-BOOT:
- {
-#ifdef dTHX
- dTHX;
-#endif
- HV *symbol_table = get_hv("Sys::Syslog::", GV_ADD);
-#ifndef SYMBIAN
- HV *constant_missing;
-#endif
-
- static const struct notfound_s values_for_notfound[] =
- {
-#ifdef LOG_ALERT
-#else
- { "LOG_ALERT", 9 },
-#endif
-#ifdef LOG_CRIT
-#else
- { "LOG_CRIT", 8 },
-#endif
-#ifdef LOG_DEBUG
-#else
- { "LOG_DEBUG", 9 },
-#endif
-#ifdef LOG_EMERG
-#else
- { "LOG_EMERG", 9 },
-#endif
-#ifdef LOG_ERR
-#else
- { "LOG_ERR", 7 },
-#endif
-#ifdef LOG_INFO
-#else
- { "LOG_INFO", 8 },
-#endif
-#ifdef LOG_NOTICE
-#else
- { "LOG_NOTICE", 10 },
-#endif
-#ifdef LOG_WARNING
-#else
- { "LOG_WARNING", 11 },
-#endif
-#ifdef LOG_AUTH
-#else
- { "LOG_AUTH", 8 },
-#endif
-#ifdef LOG_AUTHPRIV
-#else
- { "LOG_AUTHPRIV", 12 },
-#endif
-#ifdef LOG_CRON
-#else
- { "LOG_CRON", 8 },
-#endif
-#ifdef LOG_DAEMON
-#else
- { "LOG_DAEMON", 10 },
-#endif
-#ifdef LOG_FTP
-#else
- { "LOG_FTP", 7 },
-#endif
-#ifdef LOG_KERN
-#else
- { "LOG_KERN", 8 },
-#endif
-#ifdef LOG_LOCAL0
-#else
- { "LOG_LOCAL0", 10 },
-#endif
-#ifdef LOG_LOCAL1
-#else
- { "LOG_LOCAL1", 10 },
-#endif
-#ifdef LOG_LOCAL2
-#else
- { "LOG_LOCAL2", 10 },
-#endif
-#ifdef LOG_LOCAL3
-#else
- { "LOG_LOCAL3", 10 },
-#endif
-#ifdef LOG_LOCAL4
-#else
- { "LOG_LOCAL4", 10 },
-#endif
-#ifdef LOG_LOCAL5
-#else
- { "LOG_LOCAL5", 10 },
-#endif
-#ifdef LOG_LOCAL6
-#else
- { "LOG_LOCAL6", 10 },
-#endif
-#ifdef LOG_LOCAL7
-#else
- { "LOG_LOCAL7", 10 },
-#endif
-#ifdef LOG_LPR
-#else
- { "LOG_LPR", 7 },
-#endif
-#ifdef LOG_MAIL
-#else
- { "LOG_MAIL", 8 },
-#endif
-#ifdef LOG_NEWS
-#else
- { "LOG_NEWS", 8 },
-#endif
-#ifdef LOG_SYSLOG
-#else
- { "LOG_SYSLOG", 10 },
-#endif
-#ifdef LOG_USER
-#else
- { "LOG_USER", 8 },
-#endif
-#ifdef LOG_UUCP
-#else
- { "LOG_UUCP", 8 },
-#endif
-#ifdef LOG_CONS
-#else
- { "LOG_CONS", 8 },
-#endif
-#ifdef LOG_PID
-#else
- { "LOG_PID", 7 },
-#endif
-#ifdef LOG_NDELAY
-#else
- { "LOG_NDELAY", 10 },
-#endif
-#ifdef LOG_NOWAIT
-#else
- { "LOG_NOWAIT", 10 },
-#endif
-#ifdef LOG_ODELAY
-#else
- { "LOG_ODELAY", 10 },
-#endif
-#ifdef LOG_PERROR
-#else
- { "LOG_PERROR", 10 },
-#endif
-#ifdef LOG_FACMASK
-#else
- { "LOG_FACMASK", 11 },
-#endif
- { NULL, 0 } };
- const struct notfound_s *value_for_notfound = values_for_notfound;
-
- static const struct iv_s values_for_iv[] =
- {
-#ifdef LOG_ALERT
- { "LOG_ALERT", 9, LOG_ALERT },
-#endif
-#ifdef LOG_CRIT
- { "LOG_CRIT", 8, LOG_CRIT },
-#endif
-#ifdef LOG_DEBUG
- { "LOG_DEBUG", 9, LOG_DEBUG },
-#endif
-#ifdef LOG_EMERG
- { "LOG_EMERG", 9, LOG_EMERG },
-#endif
-#ifdef LOG_ERR
- { "LOG_ERR", 7, LOG_ERR },
-#endif
-#ifdef LOG_INFO
- { "LOG_INFO", 8, LOG_INFO },
-#endif
-#ifdef LOG_NOTICE
- { "LOG_NOTICE", 10, LOG_NOTICE },
-#endif
-#ifdef LOG_WARNING
- { "LOG_WARNING", 11, LOG_WARNING },
-#endif
-#ifdef LOG_AUTH
- { "LOG_AUTH", 8, LOG_AUTH },
-#endif
-#ifdef LOG_AUTHPRIV
- { "LOG_AUTHPRIV", 12, LOG_AUTHPRIV },
-#endif
-#ifdef LOG_CRON
- { "LOG_CRON", 8, LOG_CRON },
-#endif
-#ifdef LOG_DAEMON
- { "LOG_DAEMON", 10, LOG_DAEMON },
-#endif
-#ifdef LOG_FTP
- { "LOG_FTP", 7, LOG_FTP },
-#endif
-#ifdef LOG_KERN
- { "LOG_KERN", 8, LOG_KERN },
-#endif
-#ifdef LOG_LOCAL0
- { "LOG_LOCAL0", 10, LOG_LOCAL0 },
-#endif
-#ifdef LOG_LOCAL1
- { "LOG_LOCAL1", 10, LOG_LOCAL1 },
-#endif
-#ifdef LOG_LOCAL2
- { "LOG_LOCAL2", 10, LOG_LOCAL2 },
-#endif
-#ifdef LOG_LOCAL3
- { "LOG_LOCAL3", 10, LOG_LOCAL3 },
-#endif
-#ifdef LOG_LOCAL4
- { "LOG_LOCAL4", 10, LOG_LOCAL4 },
-#endif
-#ifdef LOG_LOCAL5
- { "LOG_LOCAL5", 10, LOG_LOCAL5 },
-#endif
-#ifdef LOG_LOCAL6
- { "LOG_LOCAL6", 10, LOG_LOCAL6 },
-#endif
-#ifdef LOG_LOCAL7
- { "LOG_LOCAL7", 10, LOG_LOCAL7 },
-#endif
-#ifdef LOG_LPR
- { "LOG_LPR", 7, LOG_LPR },
-#endif
-#ifdef LOG_MAIL
- { "LOG_MAIL", 8, LOG_MAIL },
-#endif
-#ifdef LOG_NEWS
- { "LOG_NEWS", 8, LOG_NEWS },
-#endif
-#ifdef LOG_SYSLOG
- { "LOG_SYSLOG", 10, LOG_SYSLOG },
-#endif
-#ifdef LOG_USER
- { "LOG_USER", 8, LOG_USER },
-#endif
-#ifdef LOG_UUCP
- { "LOG_UUCP", 8, LOG_UUCP },
-#endif
-#ifdef LOG_INSTALL
- { "LOG_INSTALL", 11, LOG_INSTALL },
-#endif
-#ifdef LOG_LAUNCHD
- { "LOG_LAUNCHD", 11, LOG_LAUNCHD },
-#endif
-#ifdef LOG_NETINFO
- { "LOG_NETINFO", 11, LOG_NETINFO },
-#endif
-#ifdef LOG_RAS
- { "LOG_RAS", 7, LOG_RAS },
-#endif
-#ifdef LOG_REMOTEAUTH
- { "LOG_REMOTEAUTH", 14, LOG_REMOTEAUTH },
-#endif
-#ifdef LOG_CONSOLE
- { "LOG_CONSOLE", 11, LOG_CONSOLE },
-#endif
-#ifdef LOG_NTP
- { "LOG_NTP", 7, LOG_NTP },
-#endif
-#ifdef LOG_SECURITY
- { "LOG_SECURITY", 12, LOG_SECURITY },
-#endif
-#ifdef LOG_AUDIT
- { "LOG_AUDIT", 9, LOG_AUDIT },
-#endif
-#ifdef LOG_LFMT
- { "LOG_LFMT", 8, LOG_LFMT },
-#endif
-#ifdef LOG_CONS
- { "LOG_CONS", 8, LOG_CONS },
-#endif
-#ifdef LOG_PID
- { "LOG_PID", 7, LOG_PID },
-#endif
-#ifdef LOG_NDELAY
- { "LOG_NDELAY", 10, LOG_NDELAY },
-#endif
-#ifdef LOG_NOWAIT
- { "LOG_NOWAIT", 10, LOG_NOWAIT },
-#endif
-#ifdef LOG_ODELAY
- { "LOG_ODELAY", 10, LOG_ODELAY },
-#endif
-#ifdef LOG_PERROR
- { "LOG_PERROR", 10, LOG_PERROR },
-#endif
-#ifdef LOG_FACMASK
- { "LOG_FACMASK", 11, LOG_FACMASK },
-#endif
-#ifdef LOG_PRIMASK
- { "LOG_PRIMASK", 11, LOG_PRIMASK },
-#endif
-#ifdef LOG_NFACILITIES
- { "LOG_NFACILITIES", 15, LOG_NFACILITIES },
-#endif
-#ifdef LOG_INSTALL
- /* This is the default value: */
-#else
- { "LOG_INSTALL", 11, LOG_USER },
-#endif
-#ifdef LOG_LAUNCHD
- /* This is the default value: */
-#else
- { "LOG_LAUNCHD", 11, LOG_DAEMON },
-#endif
-#ifdef LOG_NETINFO
- /* This is the default value: */
-#else
- { "LOG_NETINFO", 11, LOG_DAEMON },
-#endif
-#ifdef LOG_RAS
- /* This is the default value: */
-#else
- { "LOG_RAS", 7, LOG_AUTH },
-#endif
-#ifdef LOG_REMOTEAUTH
- /* This is the default value: */
-#else
- { "LOG_REMOTEAUTH", 14, LOG_AUTH },
-#endif
-#ifdef LOG_CONSOLE
- /* This is the default value: */
-#else
- { "LOG_CONSOLE", 11, LOG_USER },
-#endif
-#ifdef LOG_NTP
- /* This is the default value: */
-#else
- { "LOG_NTP", 7, LOG_DAEMON },
-#endif
-#ifdef LOG_SECURITY
- /* This is the default value: */
-#else
- { "LOG_SECURITY", 12, LOG_AUTH },
-#endif
-#ifdef LOG_AUDIT
- /* This is the default value: */
-#else
- { "LOG_AUDIT", 9, LOG_AUTH },
-#endif
-#ifdef LOG_LFMT
- /* This is the default value: */
-#else
- { "LOG_LFMT", 8, LOG_USER },
-#endif
-#ifdef LOG_PRIMASK
- /* This is the default value: */
-#else
- { "LOG_PRIMASK", 11, 7 },
-#endif
-#ifdef LOG_NFACILITIES
- /* This is the default value: */
-#else
- { "LOG_NFACILITIES", 15, 30 },
-#endif
- { NULL, 0, 0 } };
- const struct iv_s *value_for_iv = values_for_iv;
-
- static const struct pv_s values_for_pv[] =
- {
-#ifdef _PATH_LOG
- { "_PATH_LOG", 9, _PATH_LOG },
-#endif
-#ifdef _PATH_LOG
- /* This is the default value: */
-#else
- { "_PATH_LOG", 9, "/var/run/syslog" },
-#endif
- { NULL, 0, 0 } };
- const struct pv_s *value_for_pv = values_for_pv;
-#ifndef SYMBIAN
- constant_missing = get_missing_hash(aTHX);
-#endif
- while (value_for_iv->name) {
- constant_add_symbol(aTHX_ symbol_table, value_for_iv->name,
- value_for_iv->namelen, newSViv(value_for_iv->value));
- ++value_for_iv;
- }
- while (value_for_pv->name) {
- constant_add_symbol(aTHX_ symbol_table, value_for_pv->name,
- value_for_pv->namelen, newSVpv(value_for_pv->value, 0));
- ++value_for_pv;
- }
- while (value_for_notfound->name) {
-
- /* Need to add prototypes, else parsing will vary by platform. */
- SV **sv = hv_fetch(symbol_table, value_for_notfound->name,
- value_for_notfound->namelen, TRUE);
- if (!sv) {
- Perl_croak(aTHX_
- "Couldn't add key '%s' to %%Sys::Syslog::",
- value_for_notfound->name);
- }
- 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,
- 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
- if (!hv_store(constant_missing, value_for_notfound->name,
- value_for_notfound->namelen, &PL_sv_yes, 0))
- Perl_croak(aTHX_ "Couldn't add key '%s' to missing_hash",
- value_for_notfound->name);
-#endif
-
- ++value_for_notfound;
- }
- /* As we've been creating subroutines, we better invalidate any cached
- methods */
- ++PL_sub_generation;
- }
-
-void
-constant(sv)
- PREINIT:
- STRLEN len;
- INPUT:
- SV * sv;
- const char * s = SvPV(sv, len);
- PPCODE:
-#ifdef SYMBIAN
- sv = newSVpvf("%"SVf" is not a valid Sys::Syslog macro", sv);
-#else
- HV *constant_missing = get_missing_hash(aTHX);
- if (hv_exists(constant_missing, s, SvUTF8(sv) ? -(I32)len : (I32)len)) {
- sv = newSVpvf("Your vendor has not defined Sys::Syslog macro %" SVf
- ", used", sv);
- } else {
- sv = newSVpvf("%"SVf" is not a valid Sys::Syslog macro",
- sv);
- }
-#endif
- PUSHs(sv_2mortal(sv));
diff --git a/3.8.8/sources/cpan-Sys-Syslog/vendor/fallback/const-xs.inc b/3.8.8/sources/cpan-Sys-Syslog/vendor/fallback/const-xs.inc
deleted file mode 100644
index 4da6b66..0000000
--- a/3.8.8/sources/cpan-Sys-Syslog/vendor/fallback/const-xs.inc
+++ /dev/null
@@ -1,87 +0,0 @@
-void
-constant(sv)
- PREINIT:
-#ifdef dXSTARG
- dXSTARG; /* Faster if we have it. */
-#else
- dTARGET;
-#endif
- STRLEN len;
- int type;
- IV iv;
- /* NV nv; Uncomment this if you need to return NVs */
- const char *pv;
- INPUT:
- SV * sv;
- const char * s = SvPV(sv, len);
- PPCODE:
- /* Change this to constant(aTHX_ s, len, &iv, &nv);
- if you need to return both NVs and IVs */
- type = constant(aTHX_ s, len, &iv, &pv);
- /* 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 Sys::Syslog macro", s));
- PUSHs(sv);
- break;
- case PERL_constant_NOTDEF:
- sv = sv_2mortal(newSVpvf(
- "Your vendor has not defined Sys::Syslog macro %s, used", s));
- PUSHs(sv);
- break;
- case PERL_constant_ISIV:
- EXTEND(SP, 1);
- PUSHs(&PL_sv_undef);
- PUSHi(iv);
- break;
- /* Uncomment this if you need to return NOs
- case PERL_constant_ISNO:
- EXTEND(SP, 1);
- PUSHs(&PL_sv_undef);
- PUSHs(&PL_sv_no);
- break; */
- /* Uncomment this if you need to return NVs
- case PERL_constant_ISNV:
- EXTEND(SP, 1);
- PUSHs(&PL_sv_undef);
- PUSHn(nv);
- break; */
- case PERL_constant_ISPV:
- EXTEND(SP, 1);
- PUSHs(&PL_sv_undef);
- PUSHp(pv, strlen(pv));
- break;
- /* Uncomment this if you need to return PVNs
- case PERL_constant_ISPVN:
- EXTEND(SP, 1);
- PUSHs(&PL_sv_undef);
- PUSHp(pv, iv);
- break; */
- /* Uncomment this if you need to return SVs
- case PERL_constant_ISSV:
- EXTEND(SP, 1);
- PUSHs(&PL_sv_undef);
- PUSHs(sv);
- break; */
- /* Uncomment this if you need to return UNDEFs
- case PERL_constant_ISUNDEF:
- break; */
- /* Uncomment this if you need to return UVs
- case PERL_constant_ISUV:
- EXTEND(SP, 1);
- PUSHs(&PL_sv_undef);
- PUSHu((UV)iv);
- break; */
- /* Uncomment this if you need to return YESs
- case PERL_constant_ISYES:
- EXTEND(SP, 1);
- PUSHs(&PL_sv_undef);
- PUSHs(&PL_sv_yes);
- break; */
- default:
- sv = sv_2mortal(newSVpvf(
- "Unexpected return type %d while processing Sys::Syslog macro %s, used",
- type, s));
- PUSHs(sv);
- }
diff --git a/3.8.8/sources/cpan-Sys-Syslog/vendor/fallback/syslog.h b/3.8.8/sources/cpan-Sys-Syslog/vendor/fallback/syslog.h
deleted file mode 100644
index ac20dab..0000000
--- a/3.8.8/sources/cpan-Sys-Syslog/vendor/fallback/syslog.h
+++ /dev/null
@@ -1,111 +0,0 @@
-/*
- * Copyright (c) 1982, 1986, 1988, 1993
- * The Regents of the University of California. All rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions
- * are met:
- * 1. Redistributions of source code must retain the above copyright
- * notice, this list of conditions and the following disclaimer.
- * 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.
- * 4. 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.
- *
- * 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.
- *
- * @(#)syslog.h 8.1 (Berkeley) 6/2/93
- */
-
-#ifndef _SYS_SYSLOG_H
-#define _SYS_SYSLOG_H 1
-
-#define _PATH_LOG ""
-
-/*
- * priorities/facilities are encoded into a single 32-bit quantity, where the
- * bottom 3 bits are the priority (0-7) and the top 28 bits are the facility
- * (0-big number). Both the priorities and the facilities map roughly
- * one-to-one to strings in the syslogd(8) source code. This mapping is
- * included in this file.
- *
- * priorities (these are ordered)
- */
-#define LOG_EMERG 0 /* system is unusable */
-#define LOG_ALERT 1 /* action must be taken immediately */
-#define LOG_CRIT 2 /* critical conditions */
-#define LOG_ERR 3 /* error conditions */
-#define LOG_WARNING 4 /* warning conditions */
-#define LOG_NOTICE 5 /* normal but significant condition */
-#define LOG_INFO 6 /* informational */
-#define LOG_DEBUG 7 /* debug-level messages */
-
-#define LOG_PRIMASK 0x07 /* mask to extract priority part (internal) */
- /* extract priority */
-#define LOG_PRI(p) ((p) & LOG_PRIMASK)
-#define LOG_MAKEPRI(fac, pri) (((fac) << 3) | (pri))
-
-/* facility codes */
-#define LOG_KERN (0<<3) /* kernel messages */
-#define LOG_USER (1<<3) /* random user-level messages */
-#define LOG_MAIL (2<<3) /* mail system */
-#define LOG_DAEMON (3<<3) /* system daemons */
-#define LOG_AUTH (4<<3) /* security/authorization messages */
-#define LOG_SYSLOG (5<<3) /* messages generated internally by syslogd */
-#define LOG_LPR (6<<3) /* line printer subsystem */
-#define LOG_NEWS (7<<3) /* network news subsystem */
-#define LOG_UUCP (8<<3) /* UUCP subsystem */
-#define LOG_CRON (9<<3) /* clock daemon */
-#define LOG_AUTHPRIV (10<<3) /* security/authorization messages (private) */
-#define LOG_FTP (11<<3) /* ftp daemon */
-#define LOG_NETINFO (12<<3) /* NetInfo */
-#define LOG_REMOTEAUTH (13<<3) /* remote authentication/authorization */
-#define LOG_INSTALL (14<<3) /* installer subsystem */
-#define LOG_RAS (15<<3) /* Remote Access Service (VPN / PPP) */
-#define LOG_LOCAL0 (16<<3) /* reserved for local use */
-#define LOG_LOCAL1 (17<<3) /* reserved for local use */
-#define LOG_LOCAL2 (18<<3) /* reserved for local use */
-#define LOG_LOCAL3 (19<<3) /* reserved for local use */
-#define LOG_LOCAL4 (20<<3) /* reserved for local use */
-#define LOG_LOCAL5 (21<<3) /* reserved for local use */
-#define LOG_LOCAL6 (22<<3) /* reserved for local use */
-#define LOG_LOCAL7 (23<<3) /* reserved for local use */
-#define LOG_LAUNCHD (24<<3) /* launchd - general bootstrap daemon */
-
-#define LOG_NFACILITIES 25 /* current number of facilities */
-#define LOG_FACMASK 0x03f8 /* mask to extract facility part */
- /* facility of pri */
-#define LOG_FAC(p) (((p) & LOG_FACMASK) >> 3)
-
-/*
- * arguments to setlogmask.
- */
-#define LOG_MASK(pri) (1 << (pri)) /* mask for one priority */
-#define LOG_UPTO(pri) ((1 << ((pri)+1)) - 1) /* all priorities through pri */
-
-/*
- * Option flags for openlog.
- *
- * LOG_ODELAY no longer does anything.
- * LOG_NDELAY is the inverse of what it used to be.
- */
-#define LOG_PID 0x01 /* log the pid with each message */
-#define LOG_CONS 0x02 /* log on the console if errors in sending */
-#define LOG_ODELAY 0x04 /* delay open until first syslog() (default) */
-#define LOG_NDELAY 0x08 /* don't delay open */
-#define LOG_NOWAIT 0x10 /* don't wait for console forks: DEPRECATED */
-#define LOG_PERROR 0x20 /* log to stderr as well */
-
-#endif /* sys/syslog.h */
diff --git a/3.8.8/sources/cpan-Sys-Syslog/vendor/macros.all b/3.8.8/sources/cpan-Sys-Syslog/vendor/macros.all
deleted file mode 100644
index 13c5fd3..0000000
--- a/3.8.8/sources/cpan-Sys-Syslog/vendor/macros.all
+++ /dev/null
@@ -1,44 +0,0 @@
-LOG_ALERT
-LOG_CRIT
-LOG_DEBUG
-LOG_EMERG
-LOG_ERR
-LOG_INFO
-LOG_NOTICE
-LOG_WARNING
-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
-LOG_INSTALL
-LOG_LAUNCHD
-LOG_NETINFO
-LOG_RAS
-LOG_REMOTEAUTH
-LOG_CONSOLE
-LOG_NTP
-LOG_SECURITY
-LOG_AUDIT
-LOG_LFMT
-LOG_CONS
-LOG_PID
-LOG_NDELAY
-LOG_NOWAIT
-LOG_ODELAY
-LOG_PERROR
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-Sys-Syslog/vendor/ppport.h b/3.8.8/sources/cpan-Sys-Syslog/vendor/ppport.h
deleted file mode 100644
index 4338ca3..0000000
--- a/3.8.8/sources/cpan-Sys-Syslog/vendor/ppport.h
+++ /dev/null
@@ -1,5155 +0,0 @@
-#if 0
-<<'SKIP';
-#endif
-/*
-----------------------------------------------------------------------
-
- ppport.h -- Perl/Pollution/Portability Version 3.08
-
- Automatically created by Devel::PPPort running under
- perl 5.008005 on Thu Jun 8 00:58:19 2006.
-
- 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 3.08
-
-=head1 SYNOPSIS
-
- perl ppport.h [options] [source files]
-
- Searches current directory for files if no [source files] are given
-
- --help show short help
-
- --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 (this, obviously, cannot be undone)
-
- --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.9.3.
-
-=head1 OPTIONS
-
-=head2 --help
-
-Display a brief usage summary.
-
-=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.
-
-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.
-
-=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.
-
-=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 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_signals NEED_PL_signals NEED_PL_signals_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
- newCONSTSUB() NEED_newCONSTSUB NEED_newCONSTSUB_GLOBAL
- newRV_noinc() NEED_newRV_noinc NEED_newRV_noinc_GLOBAL
- sv_2pv_nolen() NEED_sv_2pv_nolen NEED_sv_2pv_nolen_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_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
- vnewSVpvf() NEED_vnewSVpvf NEED_vnewSVpvf_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.
-
-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 using the CPAN Request Tracker at L<http://rt.cpan.org/>.
-
-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-2006, 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;
-
-my %opt = (
- quiet => 0,
- diag => 1,
- hints => 1,
- changes => 1,
- cplusplus => 0,
- filter => 1,
- strip => 0,
-);
-
-my($ppport) = $0 =~ /([\w.]+)$/;
-my $LF = '(?:\r\n|[\r\n])'; # line feed
-my $HS = "[ \t]"; # horizontal whitespace
-
-eval {
- require Getopt::Long;
- Getopt::Long::GetOptions(\%opt, qw(
- help quiet diag! filter! hints! changes! cplusplus strip
- 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";
-}
-
-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;
-}
-
-# Never use C comments in this file!!!!!
-my $ccs = '/'.'*';
-my $cce = '*'.'/';
-my $rccs = quotemeta $ccs;
-my $rcce = quotemeta $cce;
-
-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(
-AvFILLp|5.004050||p
-AvFILL|||
-CLASS|||n
-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||p
-Copy|||
-CvPADLIST|||
-CvSTASH|||
-CvWEAKOUTSIDE|||
-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_NOARGS|||
-G_SCALAR|||
-G_VOID||5.004000|
-GetVars|||
-GvSV|||
-Gv_AMupdate|||
-HEf_SVKEY||5.004000|
-HeHASH||5.004000|
-HeKEY||5.004000|
-HeKLEN||5.004000|
-HePV||5.004000|
-HeSVKEY_force||5.004000|
-HeSVKEY_set||5.004000|
-HeSVKEY||5.004000|
-HeVAL||5.004000|
-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|||
-LVRET|||
-MARK|||
-MULTICALL||5.009003|
-MY_CXT_CLONE|5.009002||p
-MY_CXT_INIT|5.007003||p
-MY_CXT|5.007003||p
-MoveD|5.009002||p
-Move|||
-NEWSV|||
-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|||
-ORIGMARK|||
-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|||
-PERL_BCDVERSION|5.009003||p
-PERL_GCC_BRACE_GROUPS_FORBIDDEN|5.008001||p
-PERL_INT_MAX|5.004000||p
-PERL_INT_MIN|5.004000||p
-PERL_LONG_MAX|5.004000||p
-PERL_LONG_MIN|5.004000||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.007002||p
-PERL_MAGIC_isaelem|5.007002||p
-PERL_MAGIC_isa|5.007002||p
-PERL_MAGIC_mutex|5.007002||p
-PERL_MAGIC_nkeys|5.007002||p
-PERL_MAGIC_overload_elem|5.007002||p
-PERL_MAGIC_overload_table|5.007002||p
-PERL_MAGIC_overload|5.007002||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_QUAD_MAX|5.004000||p
-PERL_QUAD_MIN|5.004000||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.004000||p
-PERL_SHORT_MIN|5.004000||p
-PERL_SIGNALS_UNSAFE_FLAG|5.008001||p
-PERL_SUBVERSION|5.006000||p
-PERL_UCHAR_MAX|5.004000||p
-PERL_UCHAR_MIN|5.004000||p
-PERL_UINT_MAX|5.004000||p
-PERL_UINT_MIN|5.004000||p
-PERL_ULONG_MAX|5.004000||p
-PERL_ULONG_MIN|5.004000||p
-PERL_UNUSED_DECL|5.007002||p
-PERL_UQUAD_MAX|5.004000||p
-PERL_UQUAD_MIN|5.004000||p
-PERL_USHORT_MAX|5.004000||p
-PERL_USHORT_MIN|5.004000||p
-PERL_VERSION|5.006000||p
-PL_DBsingle|||pn
-PL_DBsub|||pn
-PL_DBtrace|||n
-PL_Sv|5.005000||p
-PL_compiling|5.004050||p
-PL_copline|5.005000||p
-PL_curcop|5.004050||p
-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_hexdigit|5.005000||p
-PL_hints|5.005000||p
-PL_last_in_gv|||n
-PL_modglobal||5.005000|n
-PL_na|5.004050||pn
-PL_no_modify|5.006000||p
-PL_ofs_sv|||n
-PL_perl_destruct_level|5.004050||p
-PL_perldb|5.004050||p
-PL_ppaddr|5.006000||p
-PL_rsfp_filters|5.004050||p
-PL_rsfp|5.004050||p
-PL_rs|||n
-PL_signals|5.008001||p
-PL_stack_base|5.004050||p
-PL_stack_sp|5.004050||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
-POP_MULTICALL||5.009003|
-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
-PTR2ul|5.007001||p
-PTRV|5.006000||p
-PUSHMARK|||
-PUSH_MULTICALL||5.009003|
-PUSHi|||
-PUSHmortal|5.009002||p
-PUSHn|||
-PUSHp|||
-PUSHs|||
-PUSHu|5.004000||p
-PUTBACK|||
-PerlIO_clearerr||5.007003|
-PerlIO_close||5.007003|
-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_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|
-Poison|5.008000||p
-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
-ST|||
-SVt_IV|||
-SVt_NV|||
-SVt_PVAV|||
-SVt_PVCV|||
-SVt_PVHV|||
-SVt_PVMG|||
-SVt_PV|||
-Safefree|||
-Slab_Alloc|||
-Slab_Free|||
-StructCopy|||
-SvCUR_set|||
-SvCUR|||
-SvEND|||
-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_set|||
-SvNVx|||
-SvNV|||
-SvOK|||
-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_force_nomg|5.007002||p
-SvPV_force|||
-SvPV_nolen|5.006000||p
-SvPV_nomg|5.007002||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|||
-SvREFCNT_inc|||
-SvREFCNT|||
-SvROK_off|||
-SvROK_on|||
-SvROK|||
-SvRV_set|5.009003||p
-SvRV|||
-SvSETMAGIC|||
-SvSHARE||5.007003|
-SvSTASH_set|5.009003|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|||
-SvTRUE|||
-SvTYPE|||
-SvUNLOCK||5.007003|
-SvUOK||5.007001|
-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|
-THIS|||n
-UNDERBAR|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
-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
-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_VERSION_BOOTCHECK|||
-XS_VERSION|||
-XSprePUSH|5.006000||p
-XS|||
-ZeroD|5.009002||p
-Zero|||
-_aMY_CXT|5.007003||p
-_pMY_CXT|5.007003||p
-aMY_CXT_|5.007003||p
-aMY_CXT|5.007003||p
-aTHX_|5.006000||p
-aTHX|5.006000||p
-add_data|||
-allocmy|||
-amagic_call|||
-amagic_cmp_locale|||
-amagic_cmp|||
-amagic_i_ncmp|||
-amagic_ncmp|||
-any_dup|||
-ao|||
-append_elem|||
-append_list|||
-apply_attrs_my|||
-apply_attrs_string||5.006001|
-apply_attrs|||
-apply|||
-atfork_lock||5.007003|n
-atfork_unlock||5.007003|n
-av_arylen_p||5.009003|
-av_clear|||
-av_delete||5.006000|
-av_exists||5.006000|
-av_extend|||
-av_fake|||
-av_fetch|||
-av_fill|||
-av_len|||
-av_make|||
-av_pop|||
-av_push|||
-av_reify|||
-av_shift|||
-av_store|||
-av_undef|||
-av_unshift|||
-ax|||n
-bad_type|||
-bind_match|||
-block_end|||
-block_gimme||5.004000|
-block_start|||
-boolSV|5.004000||p
-boot_core_PerlIO|||
-boot_core_UNIVERSAL|||
-boot_core_xsutils|||
-bytes_from_utf8||5.007001|
-bytes_to_utf8||5.006001|
-cache_re|||
-call_argv|5.006000||p
-call_atexit||5.006000|
-call_body|||
-call_list_body|||
-call_list||5.004000|
-call_method|5.006000||p
-call_pv|5.006000||p
-call_sv|5.006000||p
-calloc||5.007002|n
-cando|||
-cast_i32||5.006000|
-cast_iv||5.006000|
-cast_ulong||5.006000|
-cast_uv||5.006000|
-check_type_and_open|||
-check_uni|||
-checkcomma|||
-checkposixcc|||
-ck_anoncode|||
-ck_bitop|||
-ck_concat|||
-ck_defined|||
-ck_delete|||
-ck_die|||
-ck_eof|||
-ck_eval|||
-ck_exec|||
-ck_exists|||
-ck_exit|||
-ck_ftst|||
-ck_fun|||
-ck_glob|||
-ck_grep|||
-ck_index|||
-ck_join|||
-ck_lengthconst|||
-ck_lfun|||
-ck_listiob|||
-ck_match|||
-ck_method|||
-ck_null|||
-ck_open|||
-ck_repeat|||
-ck_require|||
-ck_retarget|||
-ck_return|||
-ck_rfun|||
-ck_rvconst|||
-ck_sassign|||
-ck_say|||
-ck_select|||
-ck_shift|||
-ck_sort|||
-ck_spair|||
-ck_split|||
-ck_subr|||
-ck_substr|||
-ck_svconst|||
-ck_trunc|||
-ck_unpack|||
-ckwarn_d||5.009003|
-ckwarn||5.009003|
-cl_and|||
-cl_anything|||
-cl_init_zero|||
-cl_init|||
-cl_is_anything|||
-cl_or|||
-closest_cop|||
-convert|||
-cop_free|||
-cr_textfilter|||
-croak_nocontext|||vn
-croak|||v
-csighandler||5.009003|n
-custom_op_desc||5.007003|
-custom_op_name||5.007003|
-cv_ckproto|||
-cv_clone|||
-cv_const_sv||5.004000|
-cv_dump|||
-cv_undef|||
-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
-dTHXa|5.006000||p
-dTHXoa|5.006000||p
-dTHX|5.006000||p
-dUNDERBAR|5.009002||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|
-deb||5.007003|v
-del_sv|||
-delimcpy||5.004000|
-deprecate_old|||
-deprecate|||
-despatch_signals||5.007001|
-destroy_matcher|||
-die_nocontext|||vn
-die_where|||
-die|||v
-dirp_dup|||
-div128|||
-djSP|||
-do_aexec5|||
-do_aexec|||
-do_aspawn|||
-do_binmode||5.004050|
-do_chomp|||
-do_chop|||
-do_close|||
-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_kv|||
-do_magic_dump||5.006000|
-do_msgrcv|||
-do_msgsnd|||
-do_oddball|||
-do_op_dump||5.006000|
-do_open9||5.006000|
-do_openn||5.007001|
-do_open||5.004000|
-do_pipe|||
-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_body|||
-docatch|||
-doeval|||
-dofile|||
-dofindlabel|||
-doform|||
-doing_taint||5.008001|n
-dooneliner|||
-doopen_pm|||
-doparseform|||
-dopoptoeval|||
-dopoptogiven|||
-dopoptolabel|||
-dopoptoloop|||
-dopoptosub_at|||
-dopoptosub|||
-dopoptowhen|||
-doref||5.009003|
-dounwind|||
-dowantarray|||
-dump_all||5.006000|
-dump_eval||5.006000|
-dump_fds|||
-dump_form||5.006000|
-dump_indent||5.006000|v
-dump_mstats|||
-dump_packsubs||5.006000|
-dump_sub||5.006000|
-dump_sv_child|||
-dump_vindent||5.006000|
-dumpuntil|||
-dup_attrlist|||
-emulate_eaccess|||
-eval_pv|5.006000||p
-eval_sv|5.006000||p
-expect_number|||
-fbm_compile||5.005000|
-fbm_instr||5.005000|
-fd_on_nosuid_fs|||
-feature_is_enabled|||
-filter_add|||
-filter_del|||
-filter_gets|||
-filter_read|||
-find_beginning|||
-find_byclass|||
-find_in_my_stash|||
-find_runcv|||
-find_rundefsvoffset||5.009002|
-find_script|||
-find_uninit_var|||
-first_symbol|||n
-fold_constants|||
-forbid_setid|||
-force_ident|||
-force_list|||
-force_next|||
-force_version|||
-force_word|||
-form_nocontext|||vn
-form||5.004000|v
-fp_dup|||
-fprintf_nocontext|||vn
-free_global_struct|||
-free_tied_hv_pool|||
-free_tmps|||
-gen_constant_list|||
-get_av|5.006000||p
-get_context||5.006000|n
-get_cv|5.006000||p
-get_db_sub|||
-get_debug_opts|||
-get_hash_seed|||
-get_hv|5.006000||p
-get_mstats|||
-get_no_modify|||
-get_num|||
-get_op_descs||5.005000|
-get_op_names||5.005000|
-get_opargs|||
-get_ppaddr||5.006000|
-get_sv|5.006000||p
-get_vtbl||5.005030|
-getcwd_sv||5.007002|
-getenv_len|||
-gp_dup|||
-gp_free|||
-gp_ref|||
-grok_bin|5.007003||p
-grok_hex|5.007003||p
-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_autoload4||5.004000|
-gv_check|||
-gv_const_sv||5.009003|
-gv_dump||5.006000|
-gv_efullname3||5.004000|
-gv_efullname4||5.006001|
-gv_efullname|||
-gv_ename|||
-gv_fetchfile|||
-gv_fetchmeth_autoload||5.007003|
-gv_fetchmethod_autoload||5.004000|
-gv_fetchmethod|||
-gv_fetchmeth|||
-gv_fetchpvn_flags||5.009002|
-gv_fetchpv|||
-gv_fetchsv||5.009002|
-gv_fullname3||5.004000|
-gv_fullname4||5.006001|
-gv_fullname|||
-gv_handler||5.007001|
-gv_init_sv|||
-gv_init|||
-gv_stashpvn|5.006000||p
-gv_stashpv|||
-gv_stashsv|||
-he_dup|||
-hek_dup|||
-hfreeentries|||
-hsplit|||
-hv_assert||5.009001|
-hv_auxinit|||
-hv_backreferences_p|||
-hv_clear_placeholders||5.009001|
-hv_clear|||
-hv_delayfree_ent||5.004000|
-hv_delete_common|||
-hv_delete_ent||5.004000|
-hv_delete|||
-hv_eiter_p||5.009003|
-hv_eiter_set||5.009003|
-hv_exists_ent||5.004000|
-hv_exists|||
-hv_fetch_common|||
-hv_fetch_ent||5.004000|
-hv_fetch|||
-hv_free_ent||5.004000|
-hv_iterinit|||
-hv_iterkeysv||5.004000|
-hv_iterkey|||
-hv_iternext_flags||5.008000|
-hv_iternextsv|||
-hv_iternext|||
-hv_iterval|||
-hv_kill_backrefs|||
-hv_ksplit||5.004000|
-hv_magic_check|||
-hv_magic|||
-hv_name_set||5.009003|
-hv_notallowed|||
-hv_placeholders_get||5.009003|
-hv_placeholders_p||5.009003|
-hv_placeholders_set||5.009003|
-hv_riter_p||5.009003|
-hv_riter_set||5.009003|
-hv_scalar||5.009001|
-hv_store_ent||5.004000|
-hv_store_flags||5.008000|
-hv_store|||
-hv_undef|||
-ibcmp_locale||5.004000|
-ibcmp_utf8||5.007003|
-ibcmp|||
-incl_perldb|||
-incline|||
-incpush_if_exists|||
-incpush|||
-ingroup|||
-init_argv_symbols|||
-init_debugger|||
-init_global_struct|||
-init_i18nl10n||5.006000|
-init_i18nl14n||5.006000|
-init_ids|||
-init_interp|||
-init_lexer|||
-init_main_stash|||
-init_perllib|||
-init_postdump_symbols|||
-init_predump_symbols|||
-init_stacks||5.005000|
-init_tm||5.007002|
-instr|||
-intro_my|||
-intuit_method|||
-intuit_more|||
-invert|||
-io_close|||
-isALNUM|||
-isALPHA|||
-isDIGIT|||
-isLOWER|||
-isSPACE|||
-isUPPER|||
-is_an_int|||
-is_gv_magical_sv|||
-is_gv_magical|||
-is_handle_constructor|||
-is_list_assignment|||
-is_lvalue_sub||5.007001|
-is_uni_alnum_lc||5.006000|
-is_uni_alnumc_lc||5.006000|
-is_uni_alnumc||5.006000|
-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_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.006000|
-is_utf8_alnum||5.006000|
-is_utf8_alpha||5.006000|
-is_utf8_ascii||5.006000|
-is_utf8_char_slow|||
-is_utf8_char||5.006000|
-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_print||5.006000|
-is_utf8_punct||5.006000|
-is_utf8_space||5.006000|
-is_utf8_string_loclen||5.009003|
-is_utf8_string_loc||5.008001|
-is_utf8_string||5.006001|
-is_utf8_upper||5.006000|
-is_utf8_xdigit||5.006000|
-isa_lookup|||
-items|||n
-ix|||n
-jmaybe|||
-keyword|||
-leave_scope|||
-lex_end|||
-lex_start|||
-linklist|||
-listkids|||
-list|||
-load_module_nocontext|||vn
-load_module||5.006000|v
-localize|||
-looks_like_bool|||
-looks_like_number|||
-lop|||
-mPUSHi|5.009002||p
-mPUSHn|5.009002||p
-mPUSHp|5.009002||p
-mPUSHu|5.009002||p
-mXPUSHi|5.009002||p
-mXPUSHn|5.009002||p
-mXPUSHp|5.009002||p
-mXPUSHu|5.009002||p
-magic_clear_all_env|||
-magic_clearenv|||
-magic_clearpack|||
-magic_clearsig|||
-magic_dump||5.006000|
-magic_existspack|||
-magic_freearylen_p|||
-magic_freeovrld|||
-magic_freeregexp|||
-magic_getarylen|||
-magic_getdefelem|||
-magic_getglob|||
-magic_getnkeys|||
-magic_getpack|||
-magic_getpos|||
-magic_getsig|||
-magic_getsubstr|||
-magic_gettaint|||
-magic_getuvar|||
-magic_getvec|||
-magic_get|||
-magic_killbackrefs|||
-magic_len|||
-magic_methcall|||
-magic_methpack|||
-magic_nextpack|||
-magic_regdata_cnt|||
-magic_regdatum_get|||
-magic_regdatum_set|||
-magic_scalarpack|||
-magic_set_all_env|||
-magic_setamagic|||
-magic_setarylen|||
-magic_setbm|||
-magic_setcollxfrm|||
-magic_setdbline|||
-magic_setdefelem|||
-magic_setenv|||
-magic_setfm|||
-magic_setglob|||
-magic_setisa|||
-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|||
-magicname|||
-make_matcher|||
-make_trie|||
-malloced_size|||n
-malloc||5.007002|n
-markstack_grow|||
-matcher_matches_sv|||
-measure_struct|||
-memEQ|5.004000||p
-memNE|5.004000||p
-mem_collxfrm|||
-mess_alloc|||
-mess_nocontext|||vn
-mess||5.006000|v
-method_common|||
-mfree||5.007002|n
-mg_clear|||
-mg_copy|||
-mg_dup|||
-mg_find|||
-mg_free|||
-mg_get|||
-mg_length||5.005000|
-mg_localize|||
-mg_magical|||
-mg_set|||
-mg_size||5.005000|
-mini_mktime||5.007002|
-missingterm|||
-mode_from_discipline|||
-modkids|||
-mod|||
-moreswitches|||
-mul128|||
-mulexp10|||n
-my_atof2||5.007002|
-my_atof||5.006000|
-my_attrs|||
-my_bcopy|||n
-my_betoh16|||n
-my_betoh32|||n
-my_betoh64|||n
-my_betohi|||n
-my_betohl|||n
-my_betohs|||n
-my_bzero|||n
-my_chsize|||
-my_clearenv|||
-my_cxt_init|||
-my_exit_jump|||
-my_exit|||
-my_failure_exit||5.004000|
-my_fflush_all||5.006000|
-my_fork||5.007003|n
-my_htobe16|||n
-my_htobe32|||n
-my_htobe64|||n
-my_htobei|||n
-my_htobel|||n
-my_htobes|||n
-my_htole16|||n
-my_htole32|||n
-my_htole64|||n
-my_htolei|||n
-my_htolel|||n
-my_htoles|||n
-my_htonl|||
-my_kid|||
-my_letoh16|||n
-my_letoh32|||n
-my_letoh64|||n
-my_letohi|||n
-my_letohl|||n
-my_letohs|||n
-my_lstat|||
-my_memcmp||5.004000|n
-my_memset|||n
-my_ntohl|||
-my_pclose||5.004000|
-my_popen_list||5.007001|
-my_popen||5.004000|
-my_setenv|||
-my_socketpair||5.007003|n
-my_sprintf||5.009003|vn
-my_stat|||
-my_strftime||5.007002|
-my_swabn|||n
-my_swap|||
-my_unexec|||
-my|||
-need_utf8|||n
-newANONATTRSUB||5.006000|
-newANONHASH|||
-newANONLIST|||
-newANONSUB|||
-newASSIGNOP|||
-newATTRSUB||5.006000|
-newAVREF|||
-newAV|||
-newBINOP|||
-newCONDOP|||
-newCONSTSUB|5.006000||p
-newCVREF|||
-newDEFSVOP|||
-newFORM|||
-newFOROP|||
-newGIVENOP||5.009003|
-newGIVWHENOP|||
-newGVOP|||
-newGVREF|||
-newGVgen|||
-newHVREF|||
-newHVhv||5.005000|
-newHV|||
-newIO|||
-newLISTOP|||
-newLOGOP|||
-newLOOPEX|||
-newLOOPOP|||
-newMYSUB||5.006000|
-newNULLLIST|||
-newOP|||
-newPADOP||5.006000|
-newPMOP|||
-newPROG|||
-newPVOP|||
-newRANGE|||
-newRV_inc|5.004000||p
-newRV_noinc|5.006000||p
-newRV|||
-newSLICEOP|||
-newSTATEOP|||
-newSUB|||
-newSVOP|||
-newSVREF|||
-newSVhek||5.009003|
-newSViv|||
-newSVnv|||
-newSVpvf_nocontext|||vn
-newSVpvf||5.004000|v
-newSVpvn_share||5.007001|
-newSVpvn|5.006000||p
-newSVpv|||
-newSVrv|||
-newSVsv|||
-newSVuv|5.006000||p
-newSV|||
-newUNOP|||
-newWHENOP||5.009003|
-newWHILEOP||5.009003|
-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|
-next_symbol|||
-nextargv|||
-nextchar|||
-ninstr|||
-no_bareword_allowed|||
-no_fh_allowed|||
-no_op|||
-not_a_number|||
-nothreadhook||5.008000|
-nuke_stacks|||
-num_overflow|||n
-offer_nice_chunk|||
-oopsAV|||
-oopsCV|||
-oopsHV|||
-op_clear|||
-op_const_sv|||
-op_dump||5.006000|
-op_free|||
-op_null||5.007002|
-op_refcnt_lock||5.009002|
-op_refcnt_unlock||5.009002|
-open_script|||
-pMY_CXT_|5.007003||p
-pMY_CXT|5.007003||p
-pTHX_|5.006000||p
-pTHX|5.006000||p
-pack_cat||5.007003|
-pack_rec|||
-package|||
-packlist||5.008001|
-pad_add_anon|||
-pad_add_name|||
-pad_alloc|||
-pad_block_start|||
-pad_check_dup|||
-pad_compname_type|||
-pad_findlex|||
-pad_findmy|||
-pad_fixup_inner_anons|||
-pad_free|||
-pad_leavemy|||
-pad_new|||
-pad_push|||
-pad_reset|||
-pad_setsv|||
-pad_sv|||
-pad_swipe|||
-pad_tidy|||
-pad_undef|||
-parse_body|||
-parse_unicode_opts|||
-path_is_absolute|||
-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|||
-pmflag|||
-pmop_dump||5.006000|
-pmruntime|||
-pmtrans|||
-pop_scope|||
-pregcomp|||
-pregexec|||
-pregfree|||
-prepend_elem|||
-printf_nocontext|||vn
-ptr_table_clear|||
-ptr_table_fetch|||
-ptr_table_free|||
-ptr_table_new|||
-ptr_table_split|||
-ptr_table_store|||
-push_scope|||
-put_byte|||
-pv_display||5.006000|
-pv_uni_display||5.007003|
-qerror|||
-re_croak2|||
-re_dup|||
-re_intuit_start||5.006000|
-re_intuit_string||5.006000|
-realloc||5.007002|n
-reentrant_free|||
-reentrant_init|||
-reentrant_retry|||vn
-reentrant_size|||
-ref_array_or_hash|||
-refkids|||
-refto|||
-ref||5.009003|
-reg_node|||
-reganode|||
-regatom|||
-regbranch|||
-regclass_swash||5.007003|
-regclass|||
-regcppop|||
-regcppush|||
-regcurly|||
-regdump||5.005000|
-regexec_flags||5.005000|
-reghop3|||
-reghopmaybe3|||
-reghopmaybe|||
-reghop|||
-reginclass|||
-reginitcolors||5.006000|
-reginsert|||
-regmatch|||
-regnext||5.005000|
-regoptail|||
-regpiece|||
-regpposixcc|||
-regprop|||
-regrepeat_hard|||
-regrepeat|||
-regtail|||
-regtry|||
-reguni|||
-regwhite|||
-reg|||
-repeatcpy|||
-report_evil_fh|||
-report_uninit|||
-require_errno|||
-require_pv||5.006000|
-restore_magic|||
-rninstr|||
-rsignal_restore|||
-rsignal_save|||
-rsignal_state||5.004000|
-rsignal||5.004000|
-run_body|||
-run_user_filter|||
-runops_debug||5.005000|
-runops_standard||5.005000|
-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_aelem||5.004050|
-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_hek_flags|||
-save_helem||5.004050|
-save_hints||5.005000|
-save_hptr|||
-save_int|||
-save_item|||
-save_iv||5.005000|
-save_lines|||
-save_list|||
-save_long|||
-save_magic|||
-save_mortalizesv||5.007001|
-save_nogv|||
-save_op|||
-save_padsv||5.007001|
-save_pptr|||
-save_re_context||5.006000|
-save_scalar_at|||
-save_scalar|||
-save_set_svflags||5.009000|
-save_shared_pvref||5.007003|
-save_sptr|||
-save_svref|||
-save_threadsv||5.005000|
-save_vptr||5.006000|
-savepvn|||
-savepv|||
-savesharedpv||5.007003|
-savestack_grow_cnt||5.008001|
-savestack_grow|||
-savesvpv||5.009002|
-sawparens|||
-scalar_mod_type|||
-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.008001|
-scan_word|||
-scope|||
-screaminstr||5.005000|
-seed||5.008001|
-sequence_num|||
-sequence|||
-set_context||5.006000|n
-set_csh|||
-set_numeric_local||5.006000|
-set_numeric_radix||5.006000|
-set_numeric_standard||5.006000|
-setdefout|||
-setenv_getix|||
-share_hek_flags|||
-share_hek||5.004000|
-si_dup|||
-sighandler|||n
-simplify_sort|||
-skipspace|||
-sortcv_stacked|||
-sortcv_xsub|||
-sortcv|||
-sortsv_flags||5.009003|
-sortsv||5.007003|
-ss_dup|||
-stack_grow|||
-start_glob|||
-start_subparse||5.004000|
-stashpv_hvname_match||5.009003|
-stdize_locale|||
-strEQ|||
-strGE|||
-strGT|||
-strLE|||
-strLT|||
-strNE|||
-str_to_version||5.006000|
-stringify_regexp|||
-strip_return|||
-strnEQ|||
-strnNE|||
-study_chunk|||
-sub_crush_depth|||
-sublex_done|||
-sublex_push|||
-sublex_start|||
-sv_2bool|||
-sv_2cv|||
-sv_2io|||
-sv_2iuv_non_preserve|||
-sv_2iv_flags||5.009001|
-sv_2iv|||
-sv_2mortal|||
-sv_2nv|||
-sv_2pv_flags||5.007002|
-sv_2pv_nolen|5.006000||p
-sv_2pvbyte_nolen|||
-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|||
-sv_bless|||
-sv_cat_decode||5.008001|
-sv_catpv_mg|5.006000||p
-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_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_locale||5.004000|
-sv_cmp|||
-sv_collxfrm|||
-sv_compile_2op||5.008001|
-sv_copypv||5.007003|
-sv_dec|||
-sv_del_backref|||
-sv_derived_from||5.004000|
-sv_dump|||
-sv_dup|||
-sv_eq|||
-sv_exp_grow|||
-sv_force_normal_flags||5.007001|
-sv_force_normal||5.006000|
-sv_free2|||
-sv_free_arenas|||
-sv_free|||
-sv_gets||5.004000|
-sv_grow|||
-sv_i_ncmp|||
-sv_inc|||
-sv_insert|||
-sv_isa|||
-sv_isobject|||
-sv_iv||5.005000|
-sv_kill_backrefs|||
-sv_len_utf8||5.006000|
-sv_len|||
-sv_magicext||5.007003|
-sv_magic|||
-sv_mortalcopy|||
-sv_ncmp|||
-sv_newmortal|||
-sv_newref|||
-sv_nolocking||5.007003|
-sv_nosharing||5.007003|
-sv_nounlocking||5.007003|
-sv_nv||5.005000|
-sv_peek||5.005000|
-sv_pos_b2u||5.006000|
-sv_pos_u2b||5.006000|
-sv_pvbyten_force||5.006000|
-sv_pvbyten||5.006000|
-sv_pvbyte||5.006000|
-sv_pvn_force_flags||5.007002|
-sv_pvn_force|||p
-sv_pvn_nomg|5.007003||p
-sv_pvn|5.006000||p
-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_release_COW|||
-sv_release_IVX|||
-sv_replace|||
-sv_report_used|||
-sv_reset|||
-sv_rvweaken||5.006000|
-sv_setiv_mg|5.006000||p
-sv_setiv|||
-sv_setnv_mg|5.006000||p
-sv_setnv|||
-sv_setpv_mg|5.006000||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.006000||p
-sv_setpvn|||
-sv_setpv|||
-sv_setref_iv|||
-sv_setref_nv|||
-sv_setref_pvn|||
-sv_setref_pv|||
-sv_setref_uv||5.007001|
-sv_setsv_cow|||
-sv_setsv_flags||5.007002|
-sv_setsv_mg|5.006000||p
-sv_setsv_nomg|5.007002||p
-sv_setsv|||
-sv_setuv_mg|5.006000||p
-sv_setuv|5.006000||p
-sv_tainted||5.004000|
-sv_taint||5.004000|
-sv_true||5.005000|
-sv_unglob|||
-sv_uni_display||5.007003|
-sv_unmagic|||
-sv_unref_flags||5.007001|
-sv_unref|||
-sv_untaint||5.004000|
-sv_upgrade|||
-sv_usepvn_mg|5.006000||p
-sv_usepvn|||
-sv_utf8_decode||5.006000|
-sv_utf8_downgrade||5.006000|
-sv_utf8_encode||5.006000|
-sv_utf8_upgrade_flags||5.007002|
-sv_utf8_upgrade||5.007001|
-sv_uv|5.006000||p
-sv_vcatpvf_mg|5.006000|5.004000|p
-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_get|||
-swash_init||5.006000|
-sys_intern_clear|||
-sys_intern_dup|||
-sys_intern_init|||
-taint_env|||
-taint_proper|||
-tmps_grow||5.006000|
-toLOWER|||
-toUPPER|||
-to_byte_substr|||
-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.007003|
-to_utf8_lower||5.007003|
-to_utf8_substr|||
-to_utf8_title||5.007003|
-to_utf8_upper||5.007003|
-tokenize_use|||
-tokeq|||
-tokereport|||
-too_few_arguments|||
-too_many_arguments|||
-uiv_2buf|||n
-unlnk|||
-unpack_rec|||
-unpack_str||5.007003|
-unpackstring||5.008001|
-unshare_hek_or_pvn|||
-unshare_hek|||
-unsharepvn||5.004000|
-unwind_handler_stack|||
-upg_version||5.009000|
-usage|||
-utf16_to_utf8_reversed||5.006001|
-utf16_to_utf8||5.006001|
-utf8_distance||5.006000|
-utf8_hop||5.006000|
-utf8_length||5.007001|
-utf8_mg_pos_init|||
-utf8_mg_pos|||
-utf8_to_bytes||5.006001|
-utf8_to_uvchr||5.007001|
-utf8_to_uvuni||5.007001|
-utf8n_to_uvchr|||
-utf8n_to_uvuni||5.007001|
-utilize|||
-uvchr_to_utf8_flags||5.007003|
-uvchr_to_utf8|||
-uvuni_to_utf8_flags||5.007003|
-uvuni_to_utf8||5.007001|
-validate_suid|||
-varname|||
-vcmp||5.009000|
-vcroak||5.006000|
-vdeb||5.007003|
-vdie_common|||
-vdie_croak_common|||
-vdie|||
-vform||5.006000|
-visit|||
-vivify_defelem|||
-vivify_ref|||
-vload_module||5.006000|
-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
-warner_nocontext|||vn
-warner||5.006000|v
-warn|||v
-watch|||
-whichsig|||
-write_no_mem|||
-write_to_stderr|||
-yyerror|||
-yylex|||
-yyparse|||
-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, %depends);
-my $replace = 0;
-my $hint = '';
-
-while (<DATA>) {
- if ($hint) {
- if (m{^\s*\*\s(.*?)\s*$}) {
- $hints{$hint} ||= ''; # suppress warning with older perls
- $hints{$hint} .= "$1\n";
- }
- else {
- $hint = '';
- }
- }
- $hint = $1 if m{^\s*$rccs\sHint:\s+(\w+)\s*$};
-
- $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+depends\s+on\s+(\w+(\s*,\s*\w+)*)\s+$rcce\s*$}) {
- push @{$depends{$1}}, map { s/\s+//g; $_ } split /,/, $2;
- }
-
- $need{$1} = 1 if m{^#if\s+defined\(NEED_(\w+)(?:_GLOBAL)?\)};
-}
-
-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 "$hints{$f}" if exists $hints{$f};
- $info++;
- }
- unless ($info) {
- print "No portability information available.\n";
- }
- $count++;
- }
- if ($count > 0) {
- print "\n";
- }
- else {
- print "Found no API matching '$opt{'api-info'}'.\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};
- my $flags = @flags ? ' ['.join(', ', @flags).']' : '';
- print "$f$flags\n";
- }
- exit 0;
-}
-
-my @files;
-my @srcext = qw( xs c h cc cpp );
-my $srcext = join '|', @srcext;
-
-if (@ARGV) {
- my %seen;
- @files = grep { -f && !exists $seen{$_} } map { glob $_ } @ARGV;
-}
-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;
-}
-
-unless (@files) {
- die "No input files given!\n";
-}
-
-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 comments from the code
- my @ccom;
- $c =~ s{
- (
- [^"'/]+
- |
- (?:"[^"\\]*(?:\\.[^"\\]*)*" [^"'/]*)+
- |
- (?:'[^'\\]*(?:\\.[^'\\]*)*' [^"'/]*)+
- )
- |
- (/ (?:
- \*[^*]*\*+(?:[^$ccs][^*]*\*+)* /
- |
- /[^\r\n]*
- ))
- }{
- defined $2 and push @ccom, $2;
- defined $1 ? $1 : "$ccs$#ccom$cce";
- }egsx;
-
- $file{ccom} = \@ccom;
- $file{code} = $c;
- $file{has_inc_ppport} = ($c =~ /#.*include.*\Q$ppport\E/);
-
- 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}) {
- 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) {
- if (exists $need{$_}) {
- $file{needs}{$_} = 'static';
- }
- }
- }
- }
- 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};
-
- for $func (sort keys %{$file{uses_Perl}}) {
- if ($API{$func}{varargs}) {
- 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}}) {
- next unless $file{uses}{$func}; # if it's only a dependency
- if (exists $file{uses_deps}{$func}) {
- diag("Uses $func, which depends on ", join(', ', @{$file{uses_deps}{$func}}));
- }
- elsif (exists $replace{$func}) {
- warning("Uses $func instead of $replace{$func}");
- $file{changes} += ($c =~ s/\b$func\b/$replace{$func}/g);
- }
- else {
- diag("Uses $func");
- }
- hint($func);
- }
-
- for $func (sort keys %{$file{uses_todo}}) {
- warning("Uses $func, which may not be portable below perl ",
- format_version($API{$func}{todo}));
- }
-
- 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");
- }
-
- 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 mydiff
-{
- local *F = shift;
- my($file, $str) = @_;
- my $diff;
-
- if (exists $opt{diff}) {
- $diff = run_diff($opt{diff}, $file, $str);
- }
-
- if (!defined $diff and can_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 can_use
-{
- eval "use @_;";
- return $@ eq '';
-}
-
-sub rec_depend
-{
- my $func = shift;
- my %seen;
- return () unless exists $depends{$func};
- grep !$seen{$_}++, map { ($_, rec_depend($_)) } @{$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;
-sub hint
-{
- $opt{quiet} and return;
- $opt{hints} or return;
- my $func = shift;
- exists $hints{$func} or return;
- $given_hints{$func}++ and return;
- my $hint = $hints{$func};
- $hint =~ s/^/ /mg;
- print " --- hint for $func ---\n", $hint;
-}
-
-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); <> };
- $self =~ s/^$HS+Do NOT edit.*?(?=^-)//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";
- 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;
-
- open OUT, ">$0" or die "cannot strip $0: $!\n";
- print OUT $self;
-
- 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 PERL_BCDVERSION ((PERL_REVISION * 0x1000000L) + (PERL_VERSION * 0x1000L) + 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 */
-
-#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 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 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
-#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 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 Poison
-# define Poison(d,n,t) (void)memset((char*)(d), 0xAB, (n) * sizeof(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
-
-#if ((PERL_VERSION < 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION <= 5)))
-/* Replace: 1 */
-# define PL_DBsingle DBsingle
-# define PL_DBsub DBsub
-# define PL_Sv Sv
-# 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_hexdigit hexdigit
-# define PL_hints hints
-# define PL_na na
-# define PL_no_modify no_modify
-# define PL_perl_destruct_level perl_destruct_level
-# define PL_perldb perldb
-# define PL_ppaddr ppaddr
-# define PL_rsfp_filters rsfp_filters
-# define PL_rsfp rsfp
-# define PL_stack_base stack_base
-# define PL_stack_sp stack_sp
-# 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
-/* Replace: 0 */
-#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 NOOP
-# define NOOP (void)0
-#endif
-
-#ifndef dNOOP
-# define dNOOP extern int 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
-
-# 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)
-
-# if PTRSIZE == LONGSIZE
-# define PTR2ul(p) (unsigned long)(p)
-# else
-# define PTR2ul(p) INT2PTR(unsigned long,p)
-# endif
-
-#endif /* !INT2PTR */
-
-#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
-
-#ifndef PERL_GCC_BRACE_GROUPS_FORBIDDEN
-# if defined(__STRICT_ANSI__) && defined(PERL_GCC_PEDANTIC)
-# define PERL_GCC_BRACE_GROUPS_FORBIDDEN
-# endif
-#endif
-
-#undef STMT_START
-#undef STMT_END
-#if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN) && !defined(__cplusplus)
-# 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
-
-/* Older perls (<=5.003) lack AvFILLp */
-#ifndef AvFILLp
-# define AvFILLp AvFILL
-#endif
-#ifndef ERRSV
-# define ERRSV get_sv("@",FALSE)
-#endif
-#ifndef newSVpvn
-# define newSVpvn(data,len) ((data) \
- ? ((len) ? newSVpv((data), (len)) : newSVpv("", 0)) \
- : newSV(0))
-#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_VERSION < 5) || ((PERL_VERSION == 5) && (PERL_SUBVERSION < 0)))
-# undef XSRETURN
-# define XSRETURN(off) \
- STMT_START { \
- PL_stack_sp = PL_stack_base + ax + ((off) - 1); \
- return; \
- } STMT_END
-#endif
-
-#ifndef PERL_SIGNALS_UNSAFE_FLAG
-
-#define PERL_SIGNALS_UNSAFE_FLAG 0x0001
-
-#if defined(NEED_PL_signals)
-static U32 DPPP_(my_PL_signals) = PERL_SIGNALS_UNSAFE_FLAG;
-#elif defined(NEED_PL_signals_GLOBAL)
-U32 DPPP_(my_PL_signals) = PERL_SIGNALS_UNSAFE_FLAG;
-#else
-extern U32 DPPP_(my_PL_signals);
-#endif
-#define PL_signals DPPP_(my_PL_signals)
-
-#endif
-#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
-#ifndef dTHXoa
-# define dTHXoa(x) dTHXa(x)
-#endif
-#ifndef PUSHmortal
-# define PUSHmortal PUSHs(sv_newmortal())
-#endif
-
-#ifndef mPUSHp
-# define mPUSHp(p,l) sv_setpvn_mg(PUSHmortal, (p), (l))
-#endif
-
-#ifndef mPUSHn
-# define mPUSHn(n) sv_setnv_mg(PUSHmortal, (NV)(n))
-#endif
-
-#ifndef mPUSHi
-# define mPUSHi(i) sv_setiv_mg(PUSHmortal, (IV)(i))
-#endif
-
-#ifndef mPUSHu
-# define mPUSHu(u) sv_setuv_mg(PUSHmortal, (UV)(u))
-#endif
-#ifndef XPUSHmortal
-# define XPUSHmortal XPUSHs(sv_newmortal())
-#endif
-
-#ifndef mXPUSHp
-# define mXPUSHp(p,l) STMT_START { EXTEND(sp,1); sv_setpvn_mg(PUSHmortal, (p), (l)); } STMT_END
-#endif
-
-#ifndef mXPUSHn
-# define mXPUSHn(n) STMT_START { EXTEND(sp,1); sv_setnv_mg(PUSHmortal, (NV)(n)); } STMT_END
-#endif
-
-#ifndef mXPUSHi
-# define mXPUSHi(i) STMT_START { EXTEND(sp,1); sv_setiv_mg(PUSHmortal, (IV)(i)); } STMT_END
-#endif
-
-#ifndef mXPUSHu
-# define mXPUSHu(u) STMT_START { EXTEND(sp,1); sv_setuv_mg(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 */
-
-/* Replace perl_eval_pv with eval_pv */
-/* eval_pv depends on eval_sv */
-
-#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 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_VERSION < 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION < 63))) && ((PERL_VERSION != 4) || (PERL_SUBVERSION != 5))
-#if defined(NEED_newCONSTSUB)
-static void DPPP_(my_newCONSTSUB)(HV *stash, char *name, SV *sv);
-static
-#else
-extern void DPPP_(my_newCONSTSUB)(HV *stash, 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)
-
-void
-DPPP_(my_newCONSTSUB)(HV *stash, 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 = PL_copline;
-
- PL_hints &= ~HINT_BLOCK_SCOPE;
- if (stash)
- PL_curstash = PL_curcop->cop_stash = stash;
-
- newSUB(
-
-#if ((PERL_VERSION < 3) || ((PERL_VERSION == 3) && (PERL_SUBVERSION < 22)))
- start_subparse(),
-#elif ((PERL_VERSION == 3) && (PERL_SUBVERSION == 22))
- start_subparse(0),
-#else /* 5.003_23 onwards */
- start_subparse(FALSE, 0),
-#endif
-
- newSVOP(OP_CONST, 0, newSVpv(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_VERSION < 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION < 68)))
-/* 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"
-# else
-# if IVSIZE == INTSIZE
-# define IVdf "d"
-# define UVuf "u"
-# define UVof "o"
-# define UVxf "x"
-# define UVXf "X"
-# endif
-# endif
-#endif
-
-#ifndef NVef
-# if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) && \
- defined(PERL_PRIfldbl) /* 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 SvPV_nolen
-
-#if defined(NEED_sv_2pv_nolen)
-static char * DPPP_(my_sv_2pv_nolen)(pTHX_ register SV *sv);
-static
-#else
-extern char * DPPP_(my_sv_2pv_nolen)(pTHX_ register SV *sv);
-#endif
-
-#ifdef sv_2pv_nolen
-# undef sv_2pv_nolen
-#endif
-#define sv_2pv_nolen(a) DPPP_(my_sv_2pv_nolen)(aTHX_ a)
-#define Perl_sv_2pv_nolen DPPP_(my_sv_2pv_nolen)
-
-#if defined(NEED_sv_2pv_nolen) || defined(NEED_sv_2pv_nolen_GLOBAL)
-
-char *
-DPPP_(my_sv_2pv_nolen)(pTHX_ register SV *sv)
-{
- STRLEN n_a;
- return sv_2pv(sv, &n_a);
-}
-
-#endif
-
-/* Hint: sv_2pv_nolen
- * Use the SvPV_nolen() macro instead of sv_2pv_nolen().
- */
-
-/* SvPV_nolen depends on sv_2pv_nolen */
-#define SvPV_nolen(sv) \
- ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
- ? SvPVX(sv) : sv_2pv_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_VERSION < 7) || ((PERL_VERSION == 7) && (PERL_SUBVERSION < 0)))
-
-#if defined(NEED_sv_2pvbyte)
-static char * DPPP_(my_sv_2pvbyte)(pTHX_ register SV *sv, STRLEN *lp);
-static
-#else
-extern char * DPPP_(my_sv_2pvbyte)(pTHX_ register 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_ register 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
-
-/* SvPVbyte depends on sv_2pvbyte */
-#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
-
-/* sv_2pvbyte_nolen depends on sv_2pv_nolen */
-#ifndef sv_2pvbyte_nolen
-# define sv_2pvbyte_nolen sv_2pv_nolen
-#endif
-
-/* Hint: sv_pvn
- * Always use the SvPV() macro instead of sv_pvn().
- */
-#ifndef sv_pvn
-# define sv_pvn(sv, len) SvPV(sv, len)
-#endif
-
-/* Hint: sv_pvn_force
- * Always use the SvPV_force() macro instead of sv_pvn_force().
- */
-#ifndef sv_pvn_force
-# define sv_pvn_force(sv, len) SvPV_force(sv, len)
-#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_VERSION < 9) || ((PERL_VERSION == 9) && (PERL_SUBVERSION < 3)))
-#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_VERSION < 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION < 0)))
-#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_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0))) && !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
-
-/* sv_vcatpvf depends on sv_vcatpvfn */
-#if ((PERL_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0))) && !defined(sv_vcatpvf)
-# define sv_vcatpvf(sv, pat, args) sv_vcatpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*))
-#endif
-
-/* sv_vsetpvf depends on sv_vsetpvfn */
-#if ((PERL_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0))) && !defined(sv_vsetpvf)
-# define sv_vsetpvf(sv, pat, args) sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*))
-#endif
-
-/* sv_catpvf_mg depends on sv_vcatpvfn, sv_catpvf_mg_nocontext */
-#if ((PERL_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0))) && !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
-
-/* sv_catpvf_mg_nocontext depends on sv_vcatpvfn */
-#ifdef PERL_IMPLICIT_CONTEXT
-#if ((PERL_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0))) && !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
-
-#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
-
-/* sv_vcatpvf_mg depends on sv_vcatpvfn */
-#if ((PERL_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0))) && !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
-
-/* sv_setpvf_mg depends on sv_vsetpvfn, sv_setpvf_mg_nocontext */
-#if ((PERL_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0))) && !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
-
-/* sv_setpvf_mg_nocontext depends on sv_vsetpvfn */
-#ifdef PERL_IMPLICIT_CONTEXT
-#if ((PERL_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0))) && !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
-
-#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
-
-/* sv_vsetpvf_mg depends on sv_vsetpvfn */
-#if ((PERL_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0))) && !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
-#ifndef SvGETMAGIC
-# define SvGETMAGIC(x) STMT_START { if (SvGMAGICAL(x)) mg_get(x); } STMT_END
-#endif
-#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 SvPV_force_nomg
-# define SvPV_force_nomg SvPV_force
-#endif
-
-#ifndef SvPV_nomg
-# define SvPV_nomg SvPV
-#endif
-
-#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
-
-#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 */
-#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
-
-/* GROK_NUMERIC_RADIX depends on grok_numeric_radix */
-#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
-
-/* grok_number depends on grok_numeric_radix */
-
-#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_ char *start, STRLEN *len_p, I32 *flags, NV *result);
-static
-#else
-extern UV DPPP_(my_grok_bin)(pTHX_ 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_ 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_ char *start, STRLEN *len_p, I32 *flags, NV *result);
-static
-#else
-extern UV DPPP_(my_grok_hex)(pTHX_ 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_ 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_ char *start, STRLEN *len_p, I32 *flags, NV *result);
-static
-#else
-extern UV DPPP_(my_grok_oct)(pTHX_ 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_ 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
-
-#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
-
-#endif /* _P_P_PORTABILITY_H_ */
-
-/* End of File ppport.h */
diff --git a/3.8.8/sources/cpan-Sys-Syslog/vendor/t/00-load.t b/3.8.8/sources/cpan-Sys-Syslog/vendor/t/00-load.t
deleted file mode 100644
index bbf2289..0000000
--- a/3.8.8/sources/cpan-Sys-Syslog/vendor/t/00-load.t
+++ /dev/null
@@ -1,8 +0,0 @@
-#!perl -wT
-use strict;
-use Test::More tests => 1;
-
-use_ok( 'Sys::Syslog' );
-
-diag( "Testing Sys::Syslog $Sys::Syslog::VERSION, Perl $], $^X" )
- unless $ENV{PERL_CORE};
diff --git a/3.8.8/sources/cpan-Sys-Syslog/vendor/t/constants.t b/3.8.8/sources/cpan-Sys-Syslog/vendor/t/constants.t
deleted file mode 100644
index c2002fb..0000000
--- a/3.8.8/sources/cpan-Sys-Syslog/vendor/t/constants.t
+++ /dev/null
@@ -1,42 +0,0 @@
-#!perl -wT
-use strict;
-use File::Spec;
-use Test::More;
-
-# NB. For PERL_CORE to be set, taint mode must not be enabled
-my $macrosall = $ENV{PERL_CORE} ? File::Spec->catfile(qw(.. ext Sys Syslog macros.all))
- : 'macros.all';
-open(MACROS, $macrosall) or plan skip_all => "can't read '$macrosall': $!";
-my @names = map {chomp;$_} <MACROS>;
-close(MACROS);
-plan tests => @names * 2 + 2;
-
-my $callpack = my $testpack = 'Sys::Syslog';
-eval "use $callpack";
-
-eval "${callpack}::This()";
-like( $@, "/^This is not a valid $testpack macro/", "trying a non-existing macro");
-
-eval "${callpack}::NOSUCHNAME()";
-like( $@, "/^NOSUCHNAME is not a valid $testpack macro/", "trying a non-existing macro");
-
-# Testing all macros
-if(@names) {
- for my $name (@names) {
- SKIP: {
- $name =~ /^(\w+)$/ or skip "invalid name '$name'", 2;
- $name = $1;
- my $v = eval "${callpack}::$name()";
-
- if(defined $v and $v =~ /^\d+$/) {
- is( $@, '', "calling the constant $name as a function" );
- like( $v, '/^\d+$/', "checking that $name is a number ($v)" );
-
- } else {
- like( $@, "/^Your vendor has not defined $testpack macro $name/",
- "calling the constant via its name" );
- skip "irrelevant test in this case", 1
- }
- }
- }
-}
diff --git a/3.8.8/sources/cpan-Sys-Syslog/vendor/t/data-validation.t b/3.8.8/sources/cpan-Sys-Syslog/vendor/t/data-validation.t
deleted file mode 100644
index e43a01a..0000000
--- a/3.8.8/sources/cpan-Sys-Syslog/vendor/t/data-validation.t
+++ /dev/null
@@ -1,114 +0,0 @@
-#!perl -w
-# --------------------------------------------------------------------
-# The aim of this test is to start a syslog server (TCP or UDP) using
-# the one available in POE, make Sys::Syslog connect to it by manually
-# select the corresponding mechanism, send some messages and, inside
-# the POE syslog server, check that these message are correctly crafted.
-# --------------------------------------------------------------------
-use strict;
-
-my $port;
-BEGIN {
- # override getservbyname()
- *CORE::GLOBAL::getservbyname = sub ($$) {
- my @v = CORE::getservbyname($_[0], $_[1]);
-
- if (@v) {
- $v[2] = $port;
- } else {
- @v = ($_[0], "", $port, $_[1]);
- }
-
- return wantarray ? @v : $port
- }
-}
-
-use File::Spec;
-use Test::More;
-use Socket;
-use Sys::Syslog qw(:standard :extended :macros);
-
-
-# check than POE is available
-plan skip_all => "POE is not available" unless eval "use POE; 1";
-
-# check than POE::Component::Server::Syslog is available
-plan skip_all => "POE::Component::Server::Syslog is not available"
- unless eval "use POE::Component::Server::Syslog; 1";
-
-plan tests => 1;
-
- $port = 5140;
-my $proto = "tcp";
-
-my $ident = "pocosyslog";
-my $text = "Close the world, txEn eht nepO.";
-
-
-$SIG{ALRM} = sub {
- ok( 0, "test took too much time to execute" );
- exit
-};
-alarm 30;
-
-my $pid = fork();
-
-if ($pid) {
- # parent: setup a syslog server
- POE::Component::Server::Syslog->spawn(
- Alias => 'syslog',
- Type => $proto,
- BindAddress => '127.0.0.1',
- BindPort => $port,
- InputState => \&client_input,
- ErrorState => \&client_error,
- );
-
- $SIG{CHLD} = sub { wait() };
-
- POE::Kernel->run;
-}
-else {
- # child: send a message to the syslog server setup in the parent
- sleep 2;
- openlog($ident, "ndelay,pid", "local0");
- setlogsock($proto);
- syslog(info => $text);
- closelog();
- exit
-}
-
-sub client_input {
- my $message = $_[&ARG0];
- delete $message->{'time'}; # too hazardous to test
- my $nl = $^O =~ /darwin/ ? "" : "\n";
-
- is_deeply(
- $message,
- {
- host => scalar gethostbyaddr(inet_aton('127.0.0.1'), AF_INET),
- pri => &LOG_LOCAL0 + &LOG_INFO,
- facility => &LOG_LOCAL0 >> 3,
- severity => &LOG_INFO,
- msg => "$ident\[$pid]: $text$nl\0",
- },
- "checking syslog message"
- );
-
- POE::Kernel->post(syslog => "shutdown");
- POE::Kernel->stop;
-}
-
-sub client_error {
- my $message = $_[&ARG0];
-
- require Data::Dumper;
- $Data::Dumper::Indent = 0; $Data::Dumper::Indent = 0;
- $Data::Dumper::Sortkeys = 1; $Data::Dumper::Sortkeys = 1;
- fail "checking syslog message";
- diag "[client_error] message = ", Data::Dumper::Dumper($message);
-
- POE::Kernel->post(syslog => "shutdown");
- POE::Kernel->stop;
-}
-
diff --git a/3.8.8/sources/cpan-Sys-Syslog/vendor/t/distchk.t b/3.8.8/sources/cpan-Sys-Syslog/vendor/t/distchk.t
deleted file mode 100644
index ff17e39..0000000
--- a/3.8.8/sources/cpan-Sys-Syslog/vendor/t/distchk.t
+++ /dev/null
@@ -1,6 +0,0 @@
-#!perl -w
-use strict;
-use Test::More;
-
-plan skip_all => "Test::Distribution required for checking distribution"
- unless eval "use Test::Distribution not => [qw(versions podcover use)]; 1";
diff --git a/3.8.8/sources/cpan-Sys-Syslog/vendor/t/podcover.t b/3.8.8/sources/cpan-Sys-Syslog/vendor/t/podcover.t
deleted file mode 100644
index 9914b14..0000000
--- a/3.8.8/sources/cpan-Sys-Syslog/vendor/t/podcover.t
+++ /dev/null
@@ -1,10 +0,0 @@
-#!perl -wT
-use strict;
-use Test::More;
-
-plan skip_all => "Test::Pod::Coverage 1.06 required for testing POD coverage"
- unless eval "use Test::Pod::Coverage 1.06; 1";
-
-all_pod_coverage_ok({
- also_private => [qw(^constant$ ^connect ^disconnect ^xlate$ ^LOG_ can_load silent_eval _xs$)]
-});
diff --git a/3.8.8/sources/cpan-Sys-Syslog/vendor/win32/compile.pl b/3.8.8/sources/cpan-Sys-Syslog/vendor/win32/compile.pl
deleted file mode 100644
index 8502309..0000000
--- a/3.8.8/sources/cpan-Sys-Syslog/vendor/win32/compile.pl
+++ /dev/null
@@ -1,277 +0,0 @@
-#!perl
-use strict;
-use warnings;
-use File::Basename;
-use File::Copy;
-use File::Path;
-
-my $name = shift || 'PerlLog';
-
-# get the version from the message file
-open(my $msgfh, '<', "$name.mc") or die "fatal: Can't read file '$name.mc': $!\n";
-my $top = <$msgfh>;
-close($msgfh);
-
-my ($version) = $top =~ /Sys::Syslog Message File (\d+\.\d+\.\d+)/
- or die "error: File '$name.mc' doesn't have a version number\n";
-
-# compile the message text files
-system("mc -d $name.mc");
-system("rc $name.rc");
-system(qq{ link -nodefaultlib -incremental:no -release /nologo -base:0x60000000 }
- .qq{ -comment:"Perl Syslog Message File v$version" }
- .qq{ -machine:i386 -dll -noentry -out:$name.dll $name.res });
-
-# uuencode the resource file
-open(my $rsrc, '<', "$name.RES") or die "fatal: Can't read resource file '$name.RES': $!";
-binmode($rsrc);
-my $uudata = pack "u", do { local $/; <$rsrc> };
-close($rsrc);
-
-open(my $uufh, '>', "$name\_RES.uu") or die "fatal: Can't write file '$name\_RES.uu': $!";
-print $uufh $uudata;
-close($uufh);
-
-# uuencode the DLL
-open(my $dll, '<', "$name.dll") or die "fatal: Can't read DLL '$name.dll': $!";
-binmode($dll);
-$uudata = pack "u", do { local $/; <$dll> };
-close($dll);
-
-open($uufh, '>', "$name\_dll.uu") or die "fatal: Can't write file '$name\_dll.uu': $!";
-print $uufh $uudata;
-close($uufh);
-
-# parse the generated header to extract the constants
-open(my $header, '<', "$name.h") or die "fatal: Can't read header file '$name.h': $!";
-my %vals;
-my $max = 0;
-
-while (<$header>) {
- if (/^#define\s+(\w+)\s+(\d+)$/ || /^#define\s+(\w+)\s+\(\(DWORD\)(\d+)L\)/) {
- $vals{$1} = $2;
- if (substr($1, 0, 1) eq 'C') {
- $max = $2 if $max < $2;
- }
- }
-}
-
-close($header);
-
-my ($hash, $f2c, %fac);
-
-for my $name (sort { substr($a,0,1) cmp substr($b,0,1) || $vals{$a} <=> $vals{$b} } keys %vals) {
- $hash .= " $name => $vals{$name},\n" ;
- if ($name =~ /^CAT_(\w+)$/) {
- $fac{$1} = $vals{$name};
- }
-}
-
-for my $name (sort {$fac{$a} <=> $fac{$b}} keys %fac) {
- $f2c .= " Sys::Syslog::LOG_$name() => '$name',\n";
-}
-
-# write the Sys::Syslog::Win32 module
-open my $out, '>', "Win32.pm" or die "fatal: Can't write Win32.pm: $!";
-my $template = join '', <DATA>;
-$template =~ s/__CONSTANT__/$hash/;
-$template =~ s/__F2C__/$f2c/;
-$template =~ s/__NAME_VER__/$name/;
-$template =~ s/__VER__/$version/;
-$max = sprintf "0x%08x", $max;
-$template =~ s/__MAX__/'$max'/g;
-$template =~ s/__TIME__/localtime()/ge;
-print $out $template;
-close $out;
-print "Updated Win32.pm and relevent message files\n";
-
-__END__
-package Sys::Syslog::Win32;
-use strict;
-use warnings;
-use Carp;
-use File::Spec;
-
-# === WARNING === WARNING === WARNING === WARNING === WARNING === WARNING ===
-#
-# This file was generated by Sys-Syslog/win32/compile.pl on __TIME__
-# Any changes being made here will be lost the next time Sys::Syslog
-# is installed.
-#
-# Do NOT USE THIS MODULE DIRECTLY: this is a utility module for Sys::Syslog.
-# It may change at any time to fit the needs of Sys::Syslog therefore no
-# warranty is made WRT to its API. You Have Been Warned.
-#
-# === WARNING === WARNING === WARNING === WARNING === WARNING === WARNING ===
-
-our $Source;
-my $logger;
-my $Registry;
-
-use Win32::EventLog;
-use Win32::TieRegistry 0.20 (
- TiedRef => \$Registry,
- Delimiter => "/",
- ArrayValues => 1,
- SplitMultis => 1,
- AllowLoad => 1,
- qw(
- REG_SZ
- REG_EXPAND_SZ
- REG_DWORD
- REG_BINARY
- REG_MULTI_SZ
- KEY_READ
- KEY_WRITE
- KEY_ALL_ACCESS
- ),
-);
-
-my $is_Cygwin = $^O =~ /Cygwin/i;
-my $is_Win32 = $^O =~ /Win32/i;
-
-my %const = (
-__CONSTANT__
-);
-
-my %id2name = (
-__F2C__
-);
-
-my @priority2eventtype = (
- EVENTLOG_ERROR_TYPE(), # LOG_EMERG
- EVENTLOG_ERROR_TYPE(), # LOG_ALERT
- EVENTLOG_ERROR_TYPE(), # LOG_CRIT
- EVENTLOG_ERROR_TYPE(), # LOG_ERR
- EVENTLOG_WARNING_TYPE(), # LOG_WARNING
- EVENTLOG_WARNING_TYPE(), # LOG_NOTICE
- EVENTLOG_INFORMATION_TYPE(), # LOG_INFO
- EVENTLOG_INFORMATION_TYPE(), # LOG_DEBUG
-);
-
-
-#
-# _install()
-# --------
-# Used to set up a connection to the eventlog.
-#
-sub _install {
- return $logger if $logger;
-
- # can't just use basename($0) here because Win32 path often are a
- # a mix of / and \, and File::Basename::fileparse() can't handle that,
- # while File::Spec::splitpath() can.. Go figure..
- my (undef, undef, $basename) = File::Spec->splitpath($0);
- ($Source) ||= $basename;
-
- $Source.=" [SSW:__VER__]";
-
- #$Registry->Delimiter("/"); # is this needed?
- my $root = 'LMachine/SYSTEM/CurrentControlSet/Services/Eventlog/Application/';
- my $dll = 'Sys/Syslog/__NAME_VER__.dll';
-
- if (!$Registry->{$root.$Source} ||
- !$Registry->{$root.$Source.'/CategoryMessageFile'}[0] ||
- !-e $Registry->{$root.$Source.'/CategoryMessageFile'}[0] )
- {
-
- # find the resource DLL, which should be along Syslog.dll
- my ($file) = grep { -e $_ } map { ("$_/$dll" => "$_/auto/$dll") } @INC;
- $dll = $file if $file;
-
- # on Cygwin, convert the Unix path into absolute Windows path
- if ($is_Cygwin) {
- if ($] > 5.009005) {
- chomp($file = Cygwin::posix_to_win_path($file, 1));
- }
- else {
- local $ENV{PATH} = '';
- chomp($dll = `/usr/bin/cygpath --absolute --windows "$dll"`);
- }
- }
-
- $dll =~ s![\\/]+!\\!g; # must be backslashes!
- die "fatal: Can't find resource DLL for Sys::Syslog\n" if !$dll;
-
- $Registry->{$root.$Source} = {
- '/EventMessageFile' => [ $dll, REG_EXPAND_SZ ],
- '/CategoryMessageFile' => [ $dll, REG_EXPAND_SZ ],
- '/CategoryCount' => [ __MAX__, REG_DWORD ],
- #'/TypesSupported' => [ __MAX__, REG_DWORD ],
- };
-
- warn "Configured eventlog to use $dll for $Source\n" if $Sys::Syslog::DEBUG;
- }
-
- #Carp::confess("Registry has the wrong value for '$Source', possibly mismatched dll!\nMine:$dll\nGot :$Registry->{$root.$Source.'/CategoryMessageFile'}[0]\n")
- # if $Registry->{$root.$Source.'/CategoryMessageFile'}[0] ne $dll;
-
- # we really should do something useful with this but for now
- # we set it to "" to prevent Win32::EventLog from warning
- my $host = "";
-
- $logger = Win32::EventLog->new($Source, $host)
- or Carp::confess("Failed to connect to the '$Source' event log");
-
- return $logger;
-}
-
-
-#
-# _syslog_send()
-# ------------
-# Used to convert syslog messages into eventlog messages
-#
-sub _syslog_send {
- my ($buf, $numpri, $numfac) = @_;
- $numpri ||= EVENTLOG_INFORMATION_TYPE();
- $numfac ||= Sys::Syslog::LOG_USER();
- my $name = $id2name{$numfac};
-
- my $opts = {
- EventType => $priority2eventtype[$numpri],
- EventID => $const{"MSG_$name"},
- Category => $const{"CAT_$name"},
- Strings => "$buf\0",
- Data => "",
- };
-
- if ($Sys::Syslog::DEBUG) {
- require Data::Dumper;
- warn Data::Dumper->Dump(
- [$numpri, $numfac, $name, $opts],
- [qw(numpri numfac name opts)]
- );
- }
-
- return $logger->Report($opts);
-}
-
-
-=head1 NAME
-
-Sys::Syslog::Win32 - Win32 support for Sys::Syslog
-
-=head1 DESCRIPTION
-
-This module is a back-end plugin for C<Sys::Syslog>, for supporting the Win32
-event log. It is not expected to be directly used by any module other than
-C<Sys::Syslog> therefore it's API may change at any time and no warranty is
-made with regards to backward compatibility. You Have Been Warned.
-
-=head1 SEE ALSO
-
-L<Sys::Syslog>
-
-=head1 AUTHORS
-
-SE<eacute>bastien Aperghis-Tramoni and Yves Orton
-
-=head1 LICENSE
-
-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/3.8.8/sources/cpan-Task-Weaken/vendor/Changes b/3.8.8/sources/cpan-Task-Weaken/vendor/Changes
deleted file mode 100644
index 5df967f..0000000
--- a/3.8.8/sources/cpan-Task-Weaken/vendor/Changes
+++ /dev/null
@@ -1,18 +0,0 @@
-Revision history for Perl extension Task::CVSMonitor
-
-1.03 Fri 12 Jun 2009
- - Updating to flush out some old CPAN Testers results
-
-1.02 Wed 14 Nov 2007
- - Updating to newer AUTOMATED_TESTING tests
- - Updating to fixed META.yml
-
-1.01 Mon 22 Oct 2007
- - Updating to newer AUTOMATED_TESTING tests
-
-1.00 Sat 18 Aug 2007
- - Adding more detail to the Makefile.PL, better error messages,
- and several additional fallback options.
-
-0.99 Thu 25 May 2006
- - Initial release
diff --git a/3.8.8/sources/cpan-Task-Weaken/vendor/inc/Module/Install/Makefile.pm b/3.8.8/sources/cpan-Task-Weaken/vendor/inc/Module/Install/Makefile.pm
deleted file mode 100644
index 98779db..0000000
--- a/3.8.8/sources/cpan-Task-Weaken/vendor/inc/Module/Install/Makefile.pm
+++ /dev/null
@@ -1,268 +0,0 @@
-#line 1
-package Module::Install::Makefile;
-
-use strict 'vars';
-use ExtUtils::MakeMaker ();
-use Module::Install::Base ();
-
-use vars qw{$VERSION @ISA $ISCORE};
-BEGIN {
- $VERSION = '0.91';
- @ISA = 'Module::Install::Base';
- $ISCORE = 1;
-}
-
-sub Makefile { $_[0] }
-
-my %seen = ();
-
-sub prompt {
- shift;
-
- # Infinite loop protection
- my @c = caller();
- if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
- die "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
- }
-
- # In automated testing, always use defaults
- if ( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL_MM_USE_DEFAULT} ) {
- local $ENV{PERL_MM_USE_DEFAULT} = 1;
- goto &ExtUtils::MakeMaker::prompt;
- } else {
- goto &ExtUtils::MakeMaker::prompt;
- }
-}
-
-sub makemaker_args {
- my $self = shift;
- my $args = ( $self->{makemaker_args} ||= {} );
- %$args = ( %$args, @_ );
- return $args;
-}
-
-# For mm args that take multiple space-seperated args,
-# append an argument to the current list.
-sub makemaker_append {
- my $self = sShift;
- my $name = shift;
- my $args = $self->makemaker_args;
- $args->{name} = defined $args->{$name}
- ? join( ' ', $args->{name}, @_ )
- : join( ' ', @_ );
-}
-
-sub build_subdirs {
- my $self = shift;
- my $subdirs = $self->makemaker_args->{DIR} ||= [];
- for my $subdir (@_) {
- push @$subdirs, $subdir;
- }
-}
-
-sub clean_files {
- my $self = shift;
- my $clean = $self->makemaker_args->{clean} ||= {};
- %$clean = (
- %$clean,
- FILES => join ' ', grep { length $_ } ($clean->{FILES} || (), @_),
- );
-}
-
-sub realclean_files {
- my $self = shift;
- my $realclean = $self->makemaker_args->{realclean} ||= {};
- %$realclean = (
- %$realclean,
- FILES => join ' ', grep { length $_ } ($realclean->{FILES} || (), @_),
- );
-}
-
-sub libs {
- my $self = shift;
- my $libs = ref $_[0] ? shift : [ shift ];
- $self->makemaker_args( LIBS => $libs );
-}
-
-sub inc {
- my $self = shift;
- $self->makemaker_args( INC => shift );
-}
-
-my %test_dir = ();
-
-sub _wanted_t {
- /\.t$/ and -f $_ and $test_dir{$File::Find::dir} = 1;
-}
-
-sub tests_recursive {
- my $self = shift;
- if ( $self->tests ) {
- die "tests_recursive will not work if tests are already defined";
- }
- my $dir = shift || 't';
- unless ( -d $dir ) {
- die "tests_recursive dir '$dir' does not exist";
- }
- %test_dir = ();
- require File::Find;
- File::Find::find( \&_wanted_t, $dir );
- $self->tests( join ' ', map { "$_/*.t" } sort keys %test_dir );
-}
-
-sub write {
- my $self = shift;
- die "&Makefile->write() takes no arguments\n" if @_;
-
- # Check the current Perl version
- my $perl_version = $self->perl_version;
- if ( $perl_version ) {
- eval "use $perl_version; 1"
- or die "ERROR: perl: Version $] is installed, "
- . "but we need version >= $perl_version";
- }
-
- # Make sure we have a new enough MakeMaker
- require ExtUtils::MakeMaker;
-
- if ( $perl_version and $self->_cmp($perl_version, '5.006') >= 0 ) {
- # MakeMaker can complain about module versions that include
- # an underscore, even though its own version may contain one!
- # Hence the funny regexp to get rid of it. See RT #35800
- # for details.
- $self->build_requires( 'ExtUtils::MakeMaker' => $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/ );
- $self->configure_requires( 'ExtUtils::MakeMaker' => $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/ );
- } else {
- # Allow legacy-compatibility with 5.005 by depending on the
- # most recent EU:MM that supported 5.005.
- $self->build_requires( 'ExtUtils::MakeMaker' => 6.42 );
- $self->configure_requires( 'ExtUtils::MakeMaker' => 6.42 );
- }
-
- # Generate the MakeMaker params
- my $args = $self->makemaker_args;
- $args->{DISTNAME} = $self->name;
- $args->{NAME} = $self->module_name || $self->name;
- $args->{VERSION} = $self->version;
- $args->{NAME} =~ s/-/::/g;
- if ( $self->tests ) {
- $args->{test} = { TESTS => $self->tests };
- }
- if ( $] >= 5.005 ) {
- $args->{ABSTRACT} = $self->abstract;
- $args->{AUTHOR} = $self->author;
- }
- if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
- $args->{NO_META} = 1;
- }
- if ( eval($ExtUtils::MakeMaker::VERSION) > 6.17 and $self->sign ) {
- $args->{SIGN} = 1;
- }
- unless ( $self->is_admin ) {
- delete $args->{SIGN};
- }
-
- # Merge both kinds of requires into prereq_pm
- my $prereq = ($args->{PREREQ_PM} ||= {});
- %$prereq = ( %$prereq,
- map { @$_ }
- map { @$_ }
- grep $_,
- ($self->configure_requires, $self->build_requires, $self->requires)
- );
-
- # Remove any reference to perl, PREREQ_PM doesn't support it
- delete $args->{PREREQ_PM}->{perl};
-
- # merge both kinds of requires into prereq_pm
- my $subdirs = ($args->{DIR} ||= []);
- if ($self->bundles) {
- foreach my $bundle (@{ $self->bundles }) {
- my ($file, $dir) = @$bundle;
- push @$subdirs, $dir if -d $dir;
- delete $prereq->{$file};
- }
- }
-
- if ( my $perl_version = $self->perl_version ) {
- eval "use $perl_version; 1"
- or die "ERROR: perl: Version $] is installed, "
- . "but we need version >= $perl_version";
- }
-
- $args->{INSTALLDIRS} = $self->installdirs;
-
- my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;
-
- my $user_preop = delete $args{dist}->{PREOP};
- if (my $preop = $self->admin->preop($user_preop)) {
- foreach my $key ( keys %$preop ) {
- $args{dist}->{$key} = $preop->{$key};
- }
- }
-
- my $mm = ExtUtils::MakeMaker::WriteMakefile(%args);
- $self->fix_up_makefile($mm->{FIRST_MAKEFILE} || 'Makefile');
-}
-
-sub fix_up_makefile {
- my $self = shift;
- my $makefile_name = shift;
- my $top_class = ref($self->_top) || '';
- my $top_version = $self->_top->VERSION || '';
-
- my $preamble = $self->preamble
- ? "# Preamble by $top_class $top_version\n"
- . $self->preamble
- : '';
- my $postamble = "# Postamble by $top_class $top_version\n"
- . ($self->postamble || '');
-
- local *MAKEFILE;
- open MAKEFILE, "< $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
- my $makefile = do { local $/; <MAKEFILE> };
- close MAKEFILE or die $!;
-
- $makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
- $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
- $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;
- $makefile =~ s/^(FULLPERL = .*)/$1 "-Iinc"/m;
- $makefile =~ s/^(PERL = .*)/$1 "-Iinc"/m;
-
- # Module::Install will never be used to build the Core Perl
- # Sometimes PERL_LIB and PERL_ARCHLIB get written anyway, which breaks
- # PREFIX/PERL5LIB, and thus, install_share. Blank them if they exist
- $makefile =~ s/^PERL_LIB = .+/PERL_LIB =/m;
- #$makefile =~ s/^PERL_ARCHLIB = .+/PERL_ARCHLIB =/m;
-
- # Perl 5.005 mentions PERL_LIB explicitly, so we have to remove that as well.
- $makefile =~ s/(\"?)-I\$\(PERL_LIB\)\1//g;
-
- # XXX - This is currently unused; not sure if it breaks other MM-users
- # $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;
-
- open MAKEFILE, "> $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
- print MAKEFILE "$preamble$makefile$postamble" or die $!;
- close MAKEFILE or die $!;
-
- 1;
-}
-
-sub preamble {
- my ($self, $text) = @_;
- $self->{preamble} = $text . $self->{preamble} if defined $text;
- $self->{preamble};
-}
-
-sub postamble {
- my ($self, $text) = @_;
- $self->{postamble} ||= $self->admin->postamble;
- $self->{postamble} .= $text if defined $text;
- $self->{postamble}
-}
-
-1;
-
-__END__
-
-#line 394
diff --git a/3.8.8/sources/cpan-Task-Weaken/vendor/inc/Module/Install/Metadata.pm b/3.8.8/sources/cpan-Task-Weaken/vendor/inc/Module/Install/Metadata.pm
deleted file mode 100644
index 653193d..0000000
--- a/3.8.8/sources/cpan-Task-Weaken/vendor/inc/Module/Install/Metadata.pm
+++ /dev/null
@@ -1,624 +0,0 @@
-#line 1
-package Module::Install::Metadata;
-
-use strict 'vars';
-use Module::Install::Base ();
-
-use vars qw{$VERSION @ISA $ISCORE};
-BEGIN {
- $VERSION = '0.91';
- @ISA = 'Module::Install::Base';
- $ISCORE = 1;
-}
-
-my @boolean_keys = qw{
- sign
-};
-
-my @scalar_keys = qw{
- name
- module_name
- abstract
- author
- version
- distribution_type
- tests
- installdirs
-};
-
-my @tuple_keys = qw{
- configure_requires
- build_requires
- requires
- recommends
- bundles
- resources
-};
-
-my @resource_keys = qw{
- homepage
- bugtracker
- repository
-};
-
-my @array_keys = qw{
- keywords
-};
-
-sub Meta { shift }
-sub Meta_BooleanKeys { @boolean_keys }
-sub Meta_ScalarKeys { @scalar_keys }
-sub Meta_TupleKeys { @tuple_keys }
-sub Meta_ResourceKeys { @resource_keys }
-sub Meta_ArrayKeys { @array_keys }
-
-foreach my $key ( @boolean_keys ) {
- *$key = sub {
- my $self = shift;
- if ( defined wantarray and not @_ ) {
- return $self->{values}->{$key};
- }
- $self->{values}->{$key} = ( @_ ? $_[0] : 1 );
- return $self;
- };
-}
-
-foreach my $key ( @scalar_keys ) {
- *$key = sub {
- my $self = shift;
- return $self->{values}->{$key} if defined wantarray and !@_;
- $self->{values}->{$key} = shift;
- return $self;
- };
-}
-
-foreach my $key ( @array_keys ) {
- *$key = sub {
- my $self = shift;
- return $self->{values}->{$key} if defined wantarray and !@_;
- $self->{values}->{$key} ||= [];
- push @{$self->{values}->{$key}}, @_;
- return $self;
- };
-}
-
-foreach my $key ( @resource_keys ) {
- *$key = sub {
- my $self = shift;
- unless ( @_ ) {
- return () unless $self->{values}->{resources};
- return map { $_->[1] }
- grep { $_->[0] eq $key }
- @{ $self->{values}->{resources} };
- }
- return $self->{values}->{resources}->{$key} unless @_;
- my $uri = shift or die(
- "Did not provide a value to $key()"
- );
- $self->resources( $key => $uri );
- return 1;
- };
-}
-
-foreach my $key ( grep { $_ ne "resources" } @tuple_keys) {
- *$key = sub {
- my $self = shift;
- return $self->{values}->{$key} unless @_;
- my @added;
- while ( @_ ) {
- my $module = shift or last;
- my $version = shift || 0;
- push @added, [ $module, $version ];
- }
- push @{ $self->{values}->{$key} }, @added;
- return map {@$_} @added;
- };
-}
-
-# Resource handling
-my %lc_resource = map { $_ => 1 } qw{
- homepage
- license
- bugtracker
- repository
-};
-
-sub resources {
- my $self = shift;
- while ( @_ ) {
- my $name = shift or last;
- my $value = shift or next;
- if ( $name eq lc $name and ! $lc_resource{$name} ) {
- die("Unsupported reserved lowercase resource '$name'");
- }
- $self->{values}->{resources} ||= [];
- push @{ $self->{values}->{resources} }, [ $name, $value ];
- }
- $self->{values}->{resources};
-}
-
-# Aliases for build_requires that will have alternative
-# meanings in some future version of META.yml.
-sub test_requires { shift->build_requires(@_) }
-sub install_requires { shift->build_requires(@_) }
-
-# Aliases for installdirs options
-sub install_as_core { $_[0]->installdirs('perl') }
-sub install_as_cpan { $_[0]->installdirs('site') }
-sub install_as_site { $_[0]->installdirs('site') }
-sub install_as_vendor { $_[0]->installdirs('vendor') }
-
-sub dynamic_config {
- my $self = shift;
- unless ( @_ ) {
- warn "You MUST provide an explicit true/false value to dynamic_config\n";
- return $self;
- }
- $self->{values}->{dynamic_config} = $_[0] ? 1 : 0;
- return 1;
-}
-
-sub perl_version {
- my $self = shift;
- return $self->{values}->{perl_version} unless @_;
- my $version = shift or die(
- "Did not provide a value to perl_version()"
- );
-
- # Normalize the version
- $version = $self->_perl_version($version);
-
- # We don't support the reall old versions
- unless ( $version >= 5.005 ) {
- die "Module::Install only supports 5.005 or newer (use ExtUtils::MakeMaker)\n";
- }
-
- $self->{values}->{perl_version} = $version;
-}
-
-#Stolen from M::B
-my %license_urls = (
- perl => 'http://dev.perl.org/licenses/',
- 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://opensource.org/licenses/lgpl-license.php',
- lgpl2 => 'http://opensource.org/licenses/lgpl-2.1.php',
- lgpl3 => 'http://opensource.org/licenses/lgpl-3.0.html',
- bsd => 'http://opensource.org/licenses/bsd-license.php',
- gpl => 'http://opensource.org/licenses/gpl-license.php',
- gpl2 => 'http://opensource.org/licenses/gpl-2.0.php',
- gpl3 => 'http://opensource.org/licenses/gpl-3.0.html',
- mit => 'http://opensource.org/licenses/mit-license.php',
- mozilla => 'http://opensource.org/licenses/mozilla1.1.php',
- open_source => undef,
- unrestricted => undef,
- restrictive => undef,
- unknown => undef,
-);
-
-sub license {
- my $self = shift;
- return $self->{values}->{license} unless @_;
- my $license = shift or die(
- 'Did not provide a value to license()'
- );
- $self->{values}->{license} = $license;
-
- # Automatically fill in license URLs
- if ( $license_urls{$license} ) {
- $self->resources( license => $license_urls{$license} );
- }
-
- return 1;
-}
-
-sub all_from {
- my ( $self, $file ) = @_;
-
- unless ( defined($file) ) {
- my $name = $self->name or die(
- "all_from called with no args without setting name() first"
- );
- $file = join('/', 'lib', split(/-/, $name)) . '.pm';
- $file =~ s{.*/}{} unless -e $file;
- unless ( -e $file ) {
- die("all_from cannot find $file from $name");
- }
- }
- unless ( -f $file ) {
- die("The path '$file' does not exist, or is not a file");
- }
-
- # Some methods pull from POD instead of code.
- # If there is a matching .pod, use that instead
- my $pod = $file;
- $pod =~ s/\.pm$/.pod/i;
- $pod = $file unless -e $pod;
-
- # Pull the different values
- $self->name_from($file) unless $self->name;
- $self->version_from($file) unless $self->version;
- $self->perl_version_from($file) unless $self->perl_version;
- $self->author_from($pod) unless $self->author;
- $self->license_from($pod) unless $self->license;
- $self->abstract_from($pod) unless $self->abstract;
-
- return 1;
-}
-
-sub provides {
- my $self = shift;
- my $provides = ( $self->{values}->{provides} ||= {} );
- %$provides = (%$provides, @_) if @_;
- return $provides;
-}
-
-sub auto_provides {
- my $self = shift;
- return $self unless $self->is_admin;
- unless (-e 'MANIFEST') {
- warn "Cannot deduce auto_provides without a MANIFEST, skipping\n";
- return $self;
- }
- # Avoid spurious warnings as we are not checking manifest here.
- local $SIG{__WARN__} = sub {1};
- require ExtUtils::Manifest;
- local *ExtUtils::Manifest::manicheck = sub { return };
-
- require Module::Build;
- my $build = Module::Build->new(
- dist_name => $self->name,
- dist_version => $self->version,
- license => $self->license,
- );
- $self->provides( %{ $build->find_dist_packages || {} } );
-}
-
-sub feature {
- my $self = shift;
- my $name = shift;
- my $features = ( $self->{values}->{features} ||= [] );
- my $mods;
-
- if ( @_ == 1 and ref( $_[0] ) ) {
- # The user used ->feature like ->features by passing in the second
- # argument as a reference. Accomodate for that.
- $mods = $_[0];
- } else {
- $mods = \@_;
- }
-
- my $count = 0;
- push @$features, (
- $name => [
- map {
- ref($_) ? ( ref($_) eq 'HASH' ) ? %$_ : @$_ : $_
- } @$mods
- ]
- );
-
- return @$features;
-}
-
-sub features {
- my $self = shift;
- while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
- $self->feature( $name, @$mods );
- }
- return $self->{values}->{features}
- ? @{ $self->{values}->{features} }
- : ();
-}
-
-sub no_index {
- my $self = shift;
- my $type = shift;
- push @{ $self->{values}->{no_index}->{$type} }, @_ if $type;
- return $self->{values}->{no_index};
-}
-
-sub read {
- my $self = shift;
- $self->include_deps( 'YAML::Tiny', 0 );
-
- require YAML::Tiny;
- my $data = YAML::Tiny::LoadFile('META.yml');
-
- # Call methods explicitly in case user has already set some values.
- while ( my ( $key, $value ) = each %$data ) {
- next unless $self->can($key);
- if ( ref $value eq 'HASH' ) {
- while ( my ( $module, $version ) = each %$value ) {
- $self->can($key)->($self, $module => $version );
- }
- } else {
- $self->can($key)->($self, $value);
- }
- }
- return $self;
-}
-
-sub write {
- my $self = shift;
- return $self unless $self->is_admin;
- $self->admin->write_meta;
- return $self;
-}
-
-sub version_from {
- require ExtUtils::MM_Unix;
- my ( $self, $file ) = @_;
- $self->version( ExtUtils::MM_Unix->parse_version($file) );
-}
-
-sub abstract_from {
- require ExtUtils::MM_Unix;
- my ( $self, $file ) = @_;
- $self->abstract(
- bless(
- { DISTNAME => $self->name },
- 'ExtUtils::MM_Unix'
- )->parse_abstract($file)
- );
-}
-
-# Add both distribution and module name
-sub name_from {
- my ($self, $file) = @_;
- if (
- Module::Install::_read($file) =~ m/
- ^ \s*
- package \s*
- ([\w:]+)
- \s* ;
- /ixms
- ) {
- my ($name, $module_name) = ($1, $1);
- $name =~ s{::}{-}g;
- $self->name($name);
- unless ( $self->module_name ) {
- $self->module_name($module_name);
- }
- } else {
- die("Cannot determine name from $file\n");
- }
-}
-
-sub perl_version_from {
- my $self = shift;
- if (
- Module::Install::_read($_[0]) =~ m/
- ^
- (?:use|require) \s*
- v?
- ([\d_\.]+)
- \s* ;
- /ixms
- ) {
- my $perl_version = $1;
- $perl_version =~ s{_}{}g;
- $self->perl_version($perl_version);
- } else {
- warn "Cannot determine perl version info from $_[0]\n";
- return;
- }
-}
-
-sub author_from {
- my $self = shift;
- my $content = Module::Install::_read($_[0]);
- if ($content =~ m/
- =head \d \s+ (?:authors?)\b \s*
- ([^\n]*)
- |
- =head \d \s+ (?:licen[cs]e|licensing|copyright|legal)\b \s*
- .*? copyright .*? \d\d\d[\d.]+ \s* (?:\bby\b)? \s*
- ([^\n]*)
- /ixms) {
- my $author = $1 || $2;
- $author =~ s{E<lt>}{<}g;
- $author =~ s{E<gt>}{>}g;
- $self->author($author);
- } else {
- warn "Cannot determine author info from $_[0]\n";
- }
-}
-
-sub license_from {
- my $self = shift;
- if (
- Module::Install::_read($_[0]) =~ m/
- (
- =head \d \s+
- (?:licen[cs]e|licensing|copyright|legal)\b
- .*?
- )
- (=head\\d.*|=cut.*|)
- \z
- /ixms ) {
- my $license_text = $1;
- my @phrases = (
- 'under the same (?:terms|license) as (?:perl|the perl programming language) itself' => 'perl', 1,
- 'GNU general public license' => 'gpl', 1,
- 'GNU public license' => 'gpl', 1,
- 'GNU lesser general public license' => 'lgpl', 1,
- 'GNU lesser public license' => 'lgpl', 1,
- 'GNU library general public license' => 'lgpl', 1,
- 'GNU library public license' => 'lgpl', 1,
- 'BSD license' => 'bsd', 1,
- 'Artistic license' => 'artistic', 1,
- 'GPL' => 'gpl', 1,
- 'LGPL' => 'lgpl', 1,
- 'BSD' => 'bsd', 1,
- 'Artistic' => 'artistic', 1,
- 'MIT' => 'mit', 1,
- 'proprietary' => 'proprietary', 0,
- );
- while ( my ($pattern, $license, $osi) = splice(@phrases, 0, 3) ) {
- $pattern =~ s{\s+}{\\s+}g;
- if ( $license_text =~ /\b$pattern\b/i ) {
- $self->license($license);
- return 1;
- }
- }
- }
-
- warn "Cannot determine license info from $_[0]\n";
- return 'unknown';
-}
-
-sub _extract_bugtracker {
- my @links = $_[0] =~ m#L<(\Qhttp://rt.cpan.org/\E[^>]+)>#g;
- my %links;
- @links{@links}=();
- @links=keys %links;
- return @links;
-}
-
-sub bugtracker_from {
- my $self = shift;
- my $content = Module::Install::_read($_[0]);
- my @links = _extract_bugtracker($content);
- unless ( @links ) {
- warn "Cannot determine bugtracker info from $_[0]\n";
- return 0;
- }
- if ( @links > 1 ) {
- warn "Found more than on rt.cpan.org link in $_[0]\n";
- return 0;
- }
-
- # Set the bugtracker
- bugtracker( $links[0] );
- return 1;
-}
-
-sub requires_from {
- my $self = shift;
- my $content = Module::Install::_readperl($_[0]);
- my @requires = $content =~ m/^use\s+([^\W\d]\w*(?:::\w+)*)\s+([\d\.]+)/mg;
- while ( @requires ) {
- my $module = shift @requires;
- my $version = shift @requires;
- $self->requires( $module => $version );
- }
-}
-
-sub test_requires_from {
- my $self = shift;
- my $content = Module::Install::_readperl($_[0]);
- my @requires = $content =~ m/^use\s+([^\W\d]\w*(?:::\w+)*)\s+([\d\.]+)/mg;
- while ( @requires ) {
- my $module = shift @requires;
- my $version = shift @requires;
- $self->test_requires( $module => $version );
- }
-}
-
-# Convert triple-part versions (eg, 5.6.1 or 5.8.9) to
-# numbers (eg, 5.006001 or 5.008009).
-# Also, convert double-part versions (eg, 5.8)
-sub _perl_version {
- my $v = $_[-1];
- $v =~ s/^([1-9])\.([1-9]\d?\d?)$/sprintf("%d.%03d",$1,$2)/e;
- $v =~ s/^([1-9])\.([1-9]\d?\d?)\.(0|[1-9]\d?\d?)$/sprintf("%d.%03d%03d",$1,$2,$3 || 0)/e;
- $v =~ s/(\.\d\d\d)000$/$1/;
- $v =~ s/_.+$//;
- if ( ref($v) ) {
- # Numify
- $v = $v + 0;
- }
- return $v;
-}
-
-
-
-
-
-######################################################################
-# MYMETA Support
-
-sub WriteMyMeta {
- die "WriteMyMeta has been deprecated";
-}
-
-sub write_mymeta_yaml {
- my $self = shift;
-
- # We need YAML::Tiny to write the MYMETA.yml file
- unless ( eval { require YAML::Tiny; 1; } ) {
- return 1;
- }
-
- # Generate the data
- my $meta = $self->_write_mymeta_data or return 1;
-
- # Save as the MYMETA.yml file
- print "Writing MYMETA.yml\n";
- YAML::Tiny::DumpFile('MYMETA.yml', $meta);
-}
-
-sub write_mymeta_json {
- my $self = shift;
-
- # We need JSON to write the MYMETA.json file
- unless ( eval { require JSON; 1; } ) {
- return 1;
- }
-
- # Generate the data
- my $meta = $self->_write_mymeta_data or return 1;
-
- # Save as the MYMETA.yml file
- print "Writing MYMETA.json\n";
- Module::Install::_write(
- 'MYMETA.json',
- JSON->new->pretty(1)->canonical->encode($meta),
- );
-}
-
-sub _write_mymeta_data {
- my $self = shift;
-
- # If there's no existing META.yml there is nothing we can do
- return undef unless -f 'META.yml';
-
- # We need Parse::CPAN::Meta to load the file
- unless ( eval { require Parse::CPAN::Meta; 1; } ) {
- return undef;
- }
-
- # Merge the perl version into the dependencies
- my $val = $self->Meta->{values};
- my $perl = delete $val->{perl_version};
- if ( $perl ) {
- $val->{requires} ||= [];
- my $requires = $val->{requires};
-
- # Canonize to three-dot version after Perl 5.6
- if ( $perl >= 5.006 ) {
- $perl =~ s{^(\d+)\.(\d\d\d)(\d*)}{join('.', $1, int($2||0), int($3||0))}e
- }
- unshift @$requires, [ perl => $perl ];
- }
-
- # Load the advisory META.yml file
- my @yaml = Parse::CPAN::Meta::LoadFile('META.yml');
- my $meta = $yaml[0];
-
- # Overwrite the non-configure dependency hashs
- delete $meta->{requires};
- delete $meta->{build_requires};
- delete $meta->{recommends};
- if ( exists $val->{requires} ) {
- $meta->{requires} = { map { @$_ } @{ $val->{requires} } };
- }
- if ( exists $val->{build_requires} ) {
- $meta->{build_requires} = { map { @$_ } @{ $val->{build_requires} } };
- }
-
- return $meta;
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Task-Weaken/vendor/inc/Module/Install/Win32.pm b/3.8.8/sources/cpan-Task-Weaken/vendor/inc/Module/Install/Win32.pm
deleted file mode 100644
index f2f99df..0000000
--- a/3.8.8/sources/cpan-Task-Weaken/vendor/inc/Module/Install/Win32.pm
+++ /dev/null
@@ -1,64 +0,0 @@
-#line 1
-package Module::Install::Win32;
-
-use strict;
-use Module::Install::Base ();
-
-use vars qw{$VERSION @ISA $ISCORE};
-BEGIN {
- $VERSION = '0.91';
- @ISA = 'Module::Install::Base';
- $ISCORE = 1;
-}
-
-# determine if the user needs nmake, and download it if needed
-sub check_nmake {
- my $self = shift;
- $self->load('can_run');
- $self->load('get_file');
-
- require Config;
- return unless (
- $^O eq 'MSWin32' and
- $Config::Config{make} and
- $Config::Config{make} =~ /^nmake\b/i and
- ! $self->can_run('nmake')
- );
-
- print "The required 'nmake' executable not found, fetching it...\n";
-
- require File::Basename;
- my $rv = $self->get_file(
- url => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe',
- ftp_url => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
- local_dir => File::Basename::dirname($^X),
- size => 51928,
- run => 'Nmake15.exe /o > nul',
- check_for => 'Nmake.exe',
- remove => 1,
- );
-
- die <<'END_MESSAGE' unless $rv;
-
--------------------------------------------------------------------------------
-
-Since you are using Microsoft Windows, you will need the 'nmake' utility
-before installation. It's available at:
-
- http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
- or
- ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe
-
-Please download the file manually, save it to a directory in %PATH% (e.g.
-C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
-that directory, and run "Nmake15.exe" from there; that will create the
-'nmake.exe' file needed by this module.
-
-You may then resume the installation process described in README.
-
--------------------------------------------------------------------------------
-END_MESSAGE
-
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Task-Weaken/vendor/inc/Module/Install/WriteAll.pm b/3.8.8/sources/cpan-Task-Weaken/vendor/inc/Module/Install/WriteAll.pm
deleted file mode 100644
index 12471e5..0000000
--- a/3.8.8/sources/cpan-Task-Weaken/vendor/inc/Module/Install/WriteAll.pm
+++ /dev/null
@@ -1,60 +0,0 @@
-#line 1
-package Module::Install::WriteAll;
-
-use strict;
-use Module::Install::Base ();
-
-use vars qw{$VERSION @ISA $ISCORE};
-BEGIN {
- $VERSION = '0.91';;
- @ISA = qw{Module::Install::Base};
- $ISCORE = 1;
-}
-
-sub WriteAll {
- my $self = shift;
- my %args = (
- meta => 1,
- sign => 0,
- inline => 0,
- check_nmake => 1,
- @_,
- );
-
- $self->sign(1) if $args{sign};
- $self->admin->WriteAll(%args) if $self->is_admin;
-
- $self->check_nmake if $args{check_nmake};
- unless ( $self->makemaker_args->{PL_FILES} ) {
- $self->makemaker_args( PL_FILES => {} );
- }
-
- # Until ExtUtils::MakeMaker support MYMETA.yml, make sure
- # we clean it up properly ourself.
- $self->realclean_files('MYMETA.yml');
-
- if ( $args{inline} ) {
- $self->Inline->write;
- } else {
- $self->Makefile->write;
- }
-
- # The Makefile write process adds a couple of dependencies,
- # so write the META.yml files after the Makefile.
- if ( $args{meta} ) {
- $self->Meta->write;
- }
-
- # Experimental support for MYMETA
- if ( $ENV{X_MYMETA} ) {
- if ( $ENV{X_MYMETA} eq 'JSON' ) {
- $self->Meta->write_mymeta_json;
- } else {
- $self->Meta->write_mymeta_yaml;
- }
- }
-
- return 1;
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Task-Weaken/vendor/t/01_compile.t b/3.8.8/sources/cpan-Task-Weaken/vendor/t/01_compile.t
deleted file mode 100644
index 54e7bef..0000000
--- a/3.8.8/sources/cpan-Task-Weaken/vendor/t/01_compile.t
+++ /dev/null
@@ -1,17 +0,0 @@
-#!/usr/bin/perl
-
-# Compile testing
-
-use strict;
-BEGIN {
- $| = 1;
- $^W = 1;
-}
-
-use Test::More tests => 2;
-
-# Load-test Task::Weaken (what the hell)
-use_ok( 'Task::Weaken' );
-
-# Load Scalar::Util
-use_ok( 'Scalar::Util' );
diff --git a/3.8.8/sources/cpan-Task-Weaken/vendor/t/02_weaken.t b/3.8.8/sources/cpan-Task-Weaken/vendor/t/02_weaken.t
deleted file mode 100644
index 52ee7f7..0000000
--- a/3.8.8/sources/cpan-Task-Weaken/vendor/t/02_weaken.t
+++ /dev/null
@@ -1,100 +0,0 @@
-#!/usr/bin/perl
-
-# Ensure that this platform really does have weak references and weaken.
-
-use strict;
-BEGIN {
- $| = 1;
- $^W = 1;
-}
-
-use Test::More tests => 19;
-use File::Spec::Functions ':ALL';
-use Scalar::Util ();
-
-# Ensure we can import weaken and isweak
-BEGIN {
- Scalar::Util->import( 'weaken' );
- Scalar::Util->import( 'isweak' );
-}
-ok( defined(&weaken), '->import(weaken) worked' );
-ok( defined(&isweak), '->import(isweak) worked' );
-
-
-
-
-
-#####################################################################
-# Functional Tests
-
-# Test weaken, just in case someone tries to fake its existance.
-# Code copied from Scalar::Util itself and stripped of non-essentials.
-SCOPE: {
- package Dest;
- sub DESTROY {
- ${$_[0]{Flag}} ++;
- }
-}
-my ($y,$z);
-SCOPE: {
- my $x = "foo";
- $y = \$x;
- $z = \$x;
-}
-ok( ref($y) and ref($z));
-weaken($y);
-ok( ref($y) and ref($z));
-undef($z);
-ok( not (defined($y) and defined($z)) );
-undef($y);
-ok( not (defined($y) and defined($z)) );
-SCOPE: {
- my $x = "foo";
- $y = \$x;
-}
-ok( ref($y) );
-weaken($y);
-ok( not defined $y );
-my $flag = 0;
-SCOPE: {
- my $y = bless {}, 'Dest';
- $y->{Self} = $y;
- $y->{Flag} = \$flag;
- weaken($y->{Self});
- ok( ref($y) );
-}
-ok( $flag == 1 );
-undef $flag;
-$flag = 0;
-{
- my $y = bless {}, 'Dest';
- my $x = bless {}, 'Dest';
- $x->{Ref} = $y;
- $y->{Ref} = $x;
- $x->{Flag} = \$flag;
- $y->{Flag} = \$flag;
- weaken($x->{Ref});
-}
-ok( $flag == 2 );
-SCOPE: {
- my $x = "foo";
- $y = \$x;
- $z = \$x;
-}
-weaken($y);
-undef($y);
-ok( not defined $y);
-ok( ref($z) );
-my $a = 5;
-ok(!isweak($a));
-my $b = \$a;
-ok(!isweak($b));
-weaken($b);
-ok(isweak($b));
-$b = \$a;
-ok(!isweak($b));
-
-my $x = {};
-weaken($x->{Y} = \$a);
-ok(isweak($x->{Y}));
-ok(!isweak($x->{Z}));
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/.defaults.cfg b/3.8.8/sources/cpan-Template-Toolkit/vendor/.defaults.cfg
deleted file mode 100644
index 3872f62..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/.defaults.cfg
+++ /dev/null
@@ -1,5 +0,0 @@
-$TT_XS_ENABLE = 'y';
-$TT_XS_DEFAULT = 'y';
-$TT_ACCEPT = 'y';
-$TT_QUIET = '0';
-1;
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/INSTALL b/3.8.8/sources/cpan-Template-Toolkit/vendor/INSTALL
deleted file mode 100644
index 507d484..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/INSTALL
+++ /dev/null
@@ -1,233 +0,0 @@
-
- Template Toolkit
-
- Version 2.22
-
- 21st July 2009
-
- Copyright (C) 1996-2009 Andy Wardley. All Rights Reserved
-
- This is free software; you can redistribute it and/or
- modify it under the same terms as Perl itself.
-
-QUICK INSTALL
--------------
-
-If you have the CPAN module installed then you can install the Template
-Toolkit like this from the command line:
-
- $ cpan Template
-
-Otherwise you can install from source code. The latest version of the Template
-Toolkit can be retrieved from:
-
- http://www.cpan.org/modules/by-module/Template/
-
-Fetch and install AppConfig 1.56 if you don't already have it installed.
-Available from CPAN in:
-
- http://www.cpan.org/authors/Andy_Wardley/
-
-To install the Template Toolkit from the command line:
-
- $ tar zxf Template-Toolkit-2.22.tar.gz
- $ cd Template-Toolkit-2.22
- $ perl Makefile.PL
- $ make
- $ make test
- $ make install
-
-The Makefile.PL will prompt for any additional configuration options.
-
-For further details, see the sections below on CONFIGURATION, BUILDING
-AND TESTING, and INSTALLATION. The Template Toolkit web site also has
-further information about installation.
-
- http://template-toolkit.org/download/index.html
-
-
-PREREQUISITES
--------------
-
-The Template Toolkit is written entirely in Perl and should run on any
-platform on which Perl is available. It requires Perl 5.006 or later.
-
-The 'ttree' utility uses the AppConfig module (version 1.56 or above)
-for parsing command line options and configuration files. It is
-available from CPAN:
-
- http://www.cpan.org/authors/Andy_Wardley/
-
-The Template Toolkit implements a "plugin" architecture which allow
-you to incorporate the functionality of virtually any Perl module into
-your templates. A number of plugin modules are included with the
-distribution for adding extra functionality or interfacing to external
-CPAN modules. You don't need to install any of these external modules
-unless you plan to use those particular plugins. See Template::Plugins
-and Template::Manual::Plugins for further details.
-
-
-OBTAINING AND INSTALLING THE TEMPLATE TOOLKIT
----------------------------------------------
-
-The latest release version of the Template Toolkit can be downloaded
-from any CPAN site:
-
- http://www.cpan.org/modules/by-module/Template/
-
-Interim and development versions may also be available, along with
-other useful information, news, publications, mailing list archives,
-etc., from the Template Toolkit web site:
-
- http://template-toolkit.org/
-
-The Template Toolkit is distributed as a gzipped tar archive file:
-
- Template-Toolkit-<version>.tar.gz
-
-where <version> represents the current version number, e.g. 2.22.
-
-To install the Template Toolkit, unpack the distribution archive to
-create an installation directory. Something like this:
-
- $ tar zxf Template-Toolkit-2.22.tar.gz
-or
- $ gunzip Template-Toolkit-2.22.tar.gz
- $ tar xf Template-Toolkit-2.22.tar
-
-You can then 'cd' into the directory created,
-
- $ cd Template-Toolkit-2.22
-
-and perform the usual Perl installation procedure:
-
- $ perl Makefile.PL
- $ make
- $ make test
- $ make install # may need root access
-
-The Makefile.PL performs various sanity checks and then prompts for a
-number of configuration items. The following CONFIGURATION section
-covers this in greater detail.
-
-If you choose to install the optional components then you may need to
-perform some post-installation steps to ensure that the template
-libraries, HTML documentation and examples can be correctly viewed via
-your web browser. The INSTALLATION section covers this.
-
-
-INSTALLING ON MICROSOFT WIN32 PLATFORMS
----------------------------------------
-
-For advice on using Perl under Microsoft Windows, have a look here:
-
- http://win32.perl.org/
-
-If you're using Strawberry Perl then you can install the Template
-Toolkit using the CPAN module as described above.
-
-If you're using ActivePerl then you can install it using the Perl Package
-Manager (ppm) with the pre-compiled packages built by Chris Winters. For
-further details, see:
-
- http://openinteract.sourceforge.net/
- http://activestate.com/
-
-If you prefer, you can manually install the Template Toolkit on Win32
-systems by following the instructions in this installation guide.
-However, please note that you are likely to encounter problems using
-'make' and should instead download and use 'nmake' as a replacement.
-This is available from Microsoft's ftp site.
-
- ftp://ftp.microsoft.com/Softlib/MSLFILES/nmake15.exe
-
-In this case, you should substitute 'nmake' for 'make' in all the
-instructions contained herein.
-
-
-CONFIGURATION
--------------
-
-This section covers the configuration of the Template Toolkit via
-the Makefile.PL program. If you've successfully run this and didn't
-have any problems answering any of the questions then you probably
-don't need to read this section.
-
-The Makefile.PL Perl program performs the module configuration and
-generates the Makefile which can then be used to build, test and
-install the Template Toolkit.
-
- $ perl Makefile.PL
-
-The Template Toolkit now boasts a high-speed implementation of
-Template::Stash written in XS. You can choose to build this as
-an optional module for using explicitly as an alternative to
-the regular pure-perl stash module. In additional, you can opt
-to use the XS Stash as the default, typically making the Template
-Toolkit run twice as fast!
-
-When prompted, answer 'y' or 'n' to build and optionally use
-the XS Stash module by default:
-
- Do you want to build the XS Stash module? [y]
- Do you want to use the XS Stash for all Templates? [n]
-
-BUILDING AND TESTING
---------------------
-
-This section describes the "make" and "make test" commands which build
-and test the Template Toolkit. If you ran these without incident,
-then you can probably skip this section.
-
-The 'make' command will build the Template Toolkit modules in the
-usual manner.
-
- make
-
-The 'make test' command runs the test scripts in the 't' subdirectory.
-
- make test
-
-You can set the TEST_VERBOSE flag when running 'make test' to see the
-results of the individual tests:
-
- make test TEST_VERBOSE=1
-
-
-INSTALLATION
-------------
-
-This section describes the final installation of the Template Toolkit
-via the "make install" and covers any additional steps you may need to
-take if you opted to build the HTML documentation and/or examples.
-
-The 'make install' will install the modules and scripts on your
-system. You may need administrator privileges to perform this task.
-Alternately you can can install the Template Toolkit to a local
-directory (see ExtUtils::MakeMaker for full details), e.g.
-
- $ perl Makefile.PL PREFIX=/home/abw/
-
-Don't forget to update your PERL5LIB environment variable if you do
-this, or add a line to your script to tell Perl where to find the files,
-e.g.
-
- use lib qw( /home/abw/lib/perl5/site_perl/5.10.0 );
-
-
-AUTHOR
-------
-
-The Template Toolkit was written by Andy Wardley <abw at wardley.org> with
-the invaluable assistance and contributions from many other people.
-See Template::Manual::Credits for details.
-
-
-COPYRIGHT
----------
-
-Copyright (C) 1996-2009 Andy Wardley. All Rights Reserved.
-
-This is free software; you can redistribute it and/or modify it under
-the same terms as Perl itself.
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/MANIFEST b/3.8.8/sources/cpan-Template-Toolkit/vendor/MANIFEST
deleted file mode 100644
index ea00da1..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/MANIFEST
+++ /dev/null
@@ -1,239 +0,0 @@
-bin/README
-bin/tpage
-bin/tt-bench.pl
-bin/tt2inst
-bin/ttree
-Changes
-HACKING
-images/tt2power.gif
-images/ttdotorg.gif
-INSTALL
-lib/Template.pm
-lib/Template/Base.pm
-lib/Template/Config.pm
-lib/Template/Constants.pm
-lib/Template/Context.pm
-lib/Template/Directive.pm
-lib/Template/Document.pm
-lib/Template/Exception.pm
-lib/Template/FAQ.pod
-lib/Template/Filters.pm
-lib/Template/Grammar.pm
-lib/Template/Iterator.pm
-lib/Template/Manual.pod
-lib/Template/Manual/Config.pod
-lib/Template/Manual/Credits.pod
-lib/Template/Manual/Directives.pod
-lib/Template/Manual/Filters.pod
-lib/Template/Manual/Internals.pod
-lib/Template/Manual/Intro.pod
-lib/Template/Manual/Plugins.pod
-lib/Template/Manual/Syntax.pod
-lib/Template/Manual/Variables.pod
-lib/Template/Manual/Views.pod
-lib/Template/Manual/VMethods.pod
-lib/Template/Modules.pod
-lib/Template/Namespace/Constants.pm
-lib/Template/Parser.pm
-lib/Template/Plugin.pm
-lib/Template/Plugin/Assert.pm
-lib/Template/Plugin/CGI.pm
-lib/Template/Plugin/Datafile.pm
-lib/Template/Plugin/Date.pm
-lib/Template/Plugin/Directory.pm
-lib/Template/Plugin/Dumper.pm
-lib/Template/Plugin/File.pm
-lib/Template/Plugin/Filter.pm
-lib/Template/Plugin/Format.pm
-lib/Template/Plugin/HTML.pm
-lib/Template/Plugin/Image.pm
-lib/Template/Plugin/Iterator.pm
-lib/Template/Plugin/Math.pm
-lib/Template/Plugin/Pod.pm
-lib/Template/Plugin/Procedural.pm
-lib/Template/Plugin/Scalar.pm
-lib/Template/Plugin/String.pm
-lib/Template/Plugin/Table.pm
-lib/Template/Plugin/URL.pm
-lib/Template/Plugin/View.pm
-lib/Template/Plugin/Wrap.pm
-lib/Template/Plugins.pm
-lib/Template/Provider.pm
-lib/Template/Service.pm
-lib/Template/Stash.pm
-lib/Template/Stash/Context.pm
-lib/Template/Stash/XS.pm
-lib/Template/Test.pm
-lib/Template/Toolkit.pod
-lib/Template/Tools.pod
-lib/Template/Tools/tpage.pod
-lib/Template/Tools/ttree.pod
-lib/Template/Tutorial.pod
-lib/Template/Tutorial/Datafile.pod
-lib/Template/Tutorial/Web.pod
-lib/Template/View.pm
-lib/Template/VMethods.pm
-Makefile.PL
-MANIFEST
-META.yml Module meta-data (added by MakeMaker)
-parser/Grammar.pm.skel
-parser/Parser.yp
-parser/README
-parser/yc
-README
-t/args.t
-t/assert.t
-t/base.t
-t/binop.t
-t/block.t
-t/blocks.t
-t/capture.t
-t/case.t
-t/cgi.t
-t/chomp.t
-t/compile1.t
-t/compile2.t
-t/compile3.t
-t/compile4.t
-t/compile5.t
-t/config.t
-t/constants.t
-t/context.t
-t/datafile.t
-t/date.t
-t/debug.t
-t/directive.t
-t/directry.t
-t/document.t
-t/dumper.t
-t/error.t
-t/evalperl.t
-t/exception.t
-t/factory.t
-t/file.t
-t/fileline.t
-t/filter.t
-t/foreach.t
-t/format.t
-t/html.t
-t/image.t
-t/include.t
-t/iterator.t
-t/leak.t
-t/lib/Template/Plugin/ProcBar.pm
-t/lib/Template/Plugin/ProcFoo.pm
-t/lib/Template/Plugin/Simple.pm
-t/list.t
-t/macro.t
-t/math.t
-t/object.t
-t/output.t
-t/parser.t
-t/plugins.t
-t/plusfile.t
-t/pod.t
-t/prefix.t
-t/proc.t
-t/process.t
-t/provider.t
-t/README
-t/ref.t
-t/scalar.t
-t/service.t
-t/skel.t
-t/stash-xs-unicode.t
-t/stash-xs.t
-t/stash.t
-t/stashc.t
-t/stop.t
-t/strcat.t
-t/strict.t
-t/string.t
-t/switch.t
-t/table.t
-t/tags.t
-t/template.t
-t/test/dir/file1
-t/test/dir/file2
-t/test/dir/sub_one/bar
-t/test/dir/sub_one/foo
-t/test/dir/sub_two/waz.html
-t/test/dir/sub_two/wiz.html
-t/test/dir/xyzfile
-t/test/lib/after
-t/test/lib/badrawperl
-t/test/lib/barfed
-t/test/lib/before
-t/test/lib/blockdef
-t/test/lib/chomp
-t/test/lib/config
-t/test/lib/content
-t/test/lib/default
-t/test/lib/dos_newlines
-t/test/lib/error
-t/test/lib/footer
-t/test/lib/header
-t/test/lib/header.tt2
-t/test/lib/incblock
-t/test/lib/inner
-t/test/lib/menu
-t/test/lib/one/foo
-t/test/lib/outer
-t/test/lib/process
-t/test/lib/README
-t/test/lib/simple2
-t/test/lib/trimme
-t/test/lib/two/bar
-t/test/lib/two/foo
-t/test/lib/udata1
-t/test/lib/udata2
-t/test/lib/warning
-t/test/plugin/MyPlugs/Bar.pm
-t/test/plugin/MyPlugs/Baz.pm
-t/test/plugin/MyPlugs/Foo.pm
-t/test/pod/test1.pod
-t/test/src/bar/baz
-t/test/src/bar/baz.txt
-t/test/src/baz
-t/test/src/benchmark
-t/test/src/blam
-t/test/src/complex
-t/test/src/divisionbyzero
-t/test/src/evalperl
-t/test/src/foo
-t/test/src/foobar
-t/test/src/golf
-t/test/src/leak1
-t/test/src/leak2
-t/test/src/metadata
-t/test/src/mywrap
-t/test/src/README
-t/test/src/recurse
-t/test/tmp/README
-t/text.t
-t/throw.t
-t/tiedhash.t
-t/try.t
-t/unicode.t
-t/url.t
-t/url2.t
-t/vars.t
-t/varsv1.t
-t/view.t
-t/vmethods/hash.t
-t/vmethods/list.t
-t/vmethods/replace.t
-t/vmethods/text.t
-t/while.t
-t/wrap.t
-t/wrapper.t
-t/zz-pmv.t
-t/zz-pod-coverage.t
-t/zz-pod-kwalitee.t
-t/zz-stash-xs-leak.t
-TODO
-xs/Makefile.PL
-xs/MANIFEST
-xs/ppport.h
-xs/README
-xs/Stash.xs
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/META.yml b/3.8.8/sources/cpan-Template-Toolkit/vendor/META.yml
deleted file mode 100644
index 20ef289..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/META.yml
+++ /dev/null
@@ -1,23 +0,0 @@
---- #YAML:1.0
-name: Template-Toolkit
-version: 2.22
-abstract: comprehensive template processing system
-author:
- - Andy Wardley <abw at wardley.org>
-license: perl
-distribution_type: module
-configure_requires:
- ExtUtils::MakeMaker: 0
-requires:
- AppConfig: 1.56
- File::Spec: 0.8
- File::Temp: 0.12
- Scalar::Util: 0
-no_index:
- directory:
- - t
- - inc
-generated_by: ExtUtils::MakeMaker version 6.48
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/TODO b/3.8.8/sources/cpan-Template-Toolkit/vendor/TODO
deleted file mode 100644
index 613cd72..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/TODO
+++ /dev/null
@@ -1,289 +0,0 @@
-#========================================================================
-#
-# TODO
-#
-# DESCRIPTION
-# TODO list for the Template Toolkit version 2.20, containing
-# known bugs, limitations, planned enhancements, long term visions
-# and a few whacky ideas. Development on TT2 has effectively
-# ceased for everything but bug fixes. All new features and general
-# enhancements are being saved for TT3.
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-#========================================================================
-
-
-#------------------------------------------------------------------------
-# Miscellaneous
-#------------------------------------------------------------------------
-
-* The 'eval' filter leaks memory, as reported by Colin Johnson. The
- filter subroutine created contains a reference to the context and then
- gets cached in the FILTER_CACHE item of the context. Hey presto -
- circular references. The reset() method should probably clear the
- FILTER_CACHE. Also need to check the plugins cache for similar
- problems. UPDATE: this may now have been fixed.
-
-* The handling of the DELIMITER parameter could be improved. At the
- moments it's hardcoded and hacked to Do The Right Thing for Win32
- but I'd prefer it to Do The Good Thing.
-
-* If you use 'ttree' with a COMPILE_EXT or COMPILE_DIR option then
- templates in the 'lib' directories will be compiled, but those in
- the src directories will not. This is because ttree does a chdir()
- to the src directory and processes files as './myfile'. TT doesn't
- compile RELATIVE files by default.
-
-* No recursion checking is performed for BLOCKs, only
- Template::Document instances. This is probably the way it will stay
- (unless anyone shouts loudly enough) but it should be documented
- anyway. STOP PRESS: I had an idea that bare BLOCK subs should be
- blessed into Template::Document class to allow $template->process()
- to be called regardless. Template::Document methods would need to
- test $self for CODE/HASH and Do The Right Thing. This would then
- allow recursion testing for BLOCKs as well as Template::Document
- objects.
-
-* It would be nice if there was an option so that the files generated
- under the COMPILE_DIR are relative to the INCLUDE_PATH and not absolute.
- This could cause potential conflicts (e.g. if INCLUDE_PATH changes
- between sessions and the same files in different INCLUDE_PATH dirs
- maps to the samed compiled version) but is convenient for those times
- when you know that's not going to be a problem.
-
-* Craig Barratt notes, in fixing the problem with NEXT not working
- inside SWITCH (see Changes v2.04):
-
- By the way, I came across another arcane bug:
-
- NEXT FOREACH k = [1];
-
- is legal syntax but is an infinite loop, since $_[0]->{ INFOR } in
- Parser.yp is not set when the NEXT is parsed, so it generates a
- plain "next;" rather than calling $factor->next(). I don't see an
- easy, clean fix.
-
-
-#------------------------------------------------------------------------
-# Documentation
-#------------------------------------------------------------------------
-
-* Extend the FAQ.
-
-
-#------------------------------------------------------------------------
-# Directives
-#------------------------------------------------------------------------
-
-* A 'FOR', like 'FOREACH' but without using an iterator. You wouldn't get
- the 'loop' reference to test 'first', 'last', etc., against, but it would
- be faster for those cases when you didn't need it. This will likely
- be implemented as a facility feature (see later).
-
-* PRINT should be defined as a new directive, doing what the print()
- method of Template::View currently does (the Right Thing).
-
- [% PRINT node %] === [% tt.view.print(node) %]
-
- NOTE TO SELF: this is a Very Good Idea [tm]. PRINT becomes the way to
- display a data structure (e.g. hash, list, XML element, MyThingy, database
- record, etc.) in an "intelligent" fashion. Implemented underneath via
- the current default VIEW.
-
-* ARGS. There may be a requirement for reusable template components
- to define what variables they plan to use. This would allow some
- optimisation and also possibly help to avoid global variable clashes.
- Would also be a useful "comment" directive for human readers and maybe
- also help in debugging (WARNING: expected 'title' argument).
-
- [% ARGS title # no default
- bgcol='#ffffff' # default value
- %]
-
-
-#------------------------------------------------------------------------
-# Parser
-#------------------------------------------------------------------------
-
-* Lists don't accept arbitrary expressions as elements, although
- function arguments now do. So you can do this: [% foo(bar + 1) %],
- but you can't do this: [% foo = [bar + 1] %]. This has been fixed in
- the v3 parser.
-
-* The parser isn't as intelligent as it could be about blocks of template
- code commented out en masse. The pre-scanner find the first terminating
- END_TAG after an opening tag, regardless of it being on a
- commented line or not.
- e.g.
- [%#
- #
- # [% INCLUDE blah %] <- directive ends here
- # foo <- this gets printed
- %]
-
-* Craig Barratt reports the following:
-
- I looked at Parse.yp to see how hard it would be to push FILTER
- evaluation down into the expr rule, so that you could put filters
- inside expressions (eg: using repeat() just like "x" in
- perl). More about that later.
-
- In browsing through Parser.yp I noticed several issues:
-
- - The operator precedence is very different to perl, C etc.
- For example, these expressions evaluate differently in
- TT2 versus perl, C etc:
-
- + "1 || 0 && 0" evaluates to 0 in TT2 and 1 in perl or C.
- TT2 parses it as (1||0) && 0; in perl and C && is higher
- precedence than ||.
-
- + "1 + !0 + 1" evaluates to 1 in TT2 and 3 in perl or C.
- TT2 parses it as 1 + !(0 + 1); in perl and C ! is higher
- precedence than +.
-
- + Many other expressions parse incorrectly, but the effect
- is benign since most rules return flat text that perl
- correctly re-parses. Eg, 2 * 3 + 4 is incorrectly parsed
- as (2 * (3 + 4)), but happily just the string "2 * 3 + 4"
- is compiled by perl, which correctly evaluates it as
- (2 * 3) + 4.
-
- - There is no unary minus and the NUMBER token is signed. So you can
- write "x = -2;" but not "x = -y;". Moreover, "x = 1 -1;" is a syntax
- error (since "1 -1" returns just two tokens NUMBER, NUMBER). (As a
- workaround you can rewrite these as "x = 0-y;" and "x = 1 - 1".)
-
- - You cannot have expressions in lists ([..]) and function arguments.
-
- I have modified the Parser.pm (to make NUMBER unsigned) and modified
- Grammar.pm.skel and Parser.yp to fix most of these issues (improved
- operator precedence, unary minus and plus), and also to allow
- expressions in a few more places (eg: range). But the last item
- has me stuck.
-
- The parse rules for lists and function arguments make COMMA optional,
- so you can equivalently write [1 2 3 4] or [1,,,,,2 3 4] or [1,2,3,4].
- This makes it very difficult to make each term an expression, because
- the resulting grammar has many ambiguities. For example, is [1 -1]
- two elements [1, -1] or a single element [0]? One partial solution is
- to move the bracketed expression rule '(' expr ')' to the term rule,
- allowing expressions to be included via parens. But there are also
- ambiguities, eg: does [foo (1+1)] have 2 elements or is it a function
- call to foo?
-
- Without allowing expressions in lists or function arguments, the unary
- minus change I've made means that the NUMBER token is unsigned, so with
- my changes you cannot write [-1, 2, 3]. Not a good thing.
-
- One solution is to change the grammar so that COMMAs are required in
- lists and arguments, but that would break several test cases and
- probably break lots of old templates. But this might be the only
- way to produce a grammar that is a lot more similar to perl.
-
- Another solution is to ignore these issues altogether and use temporary
- variables to precompute expressions that you need in lists or function
- arguments, or use explicit lvalue assignments, eg:
-
- foo(x + 2); becomes temp = x + 2;
- foo(temp);
-
- or
-
- List = [x+1,x+2,x+4]; becomes List = [];
- List.0 = x+1;
- List.1 = x+2;
- List.2 = x+4;
-
- Both of these look ugly to me.
-
- Back to the FILTER issues. Ultimately I'd like to be able to embed filters
- as low precedence operators in expressions, and write:
-
- List = [
- "foo" | repeat(10),
- "bar" | repeat(10)
- ];
-
- but I doubt there is a non-ambiguous upward compatible grammar that
- supports this.
-
- Comments?
-
-
-#------------------------------------------------------------------------
-# Plugins
-#------------------------------------------------------------------------
-
-* We need a way to easily enable/disable certain plugins. This should
- be addressed by facility provision. Probably something for v3.
-
-* The Template::Plugin DBI iterator first/last() methods don't behave
- the same as list first/last(). Randal also reports that get_all()
- doesn't work as it should - may be a conflict in code/docs? Again,
- this is a problem to solve in TT3.
-
-* PLUGINS could accept a reference to an object which is used as a
- singleton factory for a plugin. (NOTE: 2.01 includes PLUGIN_FACTORY
- to implement this, but currently undocumented because it's likely to
- change).
-
-* A more general solution for XML (e.g. DOM, XPath, etc) would be for
- TT to support a PerlSAX handler which generates the appropriate
- callbacks to the view. This should make it possible to easily
- display XML content from XML::DOM, XML::XPath, or any other SAX
- compliant source.
-
- Something like this:
-
- # define a view
- [% VIEW my_view
- prefix="my/xml/dom/path/" ;
- END
- %]
-
- # get some XML
- [% USE dom = XML.DOM %]
- [% doc = dom.parser(my.files.xmldata) %]
-
- # ask the view to print the data
- [% my_view.print(doc) %]
-
- The view print() method will call the relevant 2SAX method on the
- XML node, passing a SAX2TTView handler to make the relevant calls
- back to the view to display parts of the XML data model as SAX events
- are received.
-
-
-#------------------------------------------------------------------------
-# Views
-#------------------------------------------------------------------------
-
-The current implementation is there to get me (and anybody else who's
-interested) using it and trying to identify the problems, requirements
-and general issues involved. I've got a better idea now about what a
-VIEW should be in notional terms, but I'm still not quite sure about
-the syntax and API.
-
-General thoughts:
-
-* A view defines a set of templates. Things like prefix, suffix,
- default, etc., can be specified to customise template selection.
- In this sense, it is like a custom provider of those templates.
- It implements the template() method to fetch a template according
- to those rules.
-
-* It is also a custom processor of those templates. It implements the
- process() method. In this sense, it is like a custom context.
-
-* It also implements dispatch logic to apply the right template to the
- right kind of data. It does this via the print() method. It may
- have all kinds of custom dispatch logic.
-
-* A view takes responsiblity for things template related as opposed
- to anything data related (stash) or application logic related
- (plugins, runtime code, etc). It is the user interface facility
- within the engine.
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/images/tt2power.gif b/3.8.8/sources/cpan-Template-Toolkit/vendor/images/tt2power.gif
deleted file mode 100644
index 0885777..0000000
Binary files a/3.8.8/sources/cpan-Template-Toolkit/vendor/images/tt2power.gif and /dev/null differ
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template.pm b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template.pm
deleted file mode 100644
index 76c84c7..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template.pm
+++ /dev/null
@@ -1,916 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# Template
-#
-# DESCRIPTION
-# Module implementing a simple, user-oriented front-end to the Template
-# Toolkit.
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 1996-2009 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#========================================================================
-
-package Template;
-
-use strict;
-use warnings;
-use 5.006;
-use base 'Template::Base';
-
-use Template::Config;
-use Template::Constants;
-use Template::Provider;
-use Template::Service;
-use File::Basename;
-use File::Path;
-use Scalar::Util qw(blessed);
-
-our $VERSION = '2.22';
-our $ERROR = '';
-our $DEBUG = 0;
-our $BINMODE = 0 unless defined $BINMODE;
-our $AUTOLOAD;
-
-# preload all modules if we're running under mod_perl
-Template::Config->preload() if $ENV{ MOD_PERL };
-
-
-#------------------------------------------------------------------------
-# process($input, \%replace, $output)
-#
-# Main entry point for the Template Toolkit. The Template module
-# delegates most of the processing effort to the underlying SERVICE
-# object, an instance of the Template::Service class.
-#------------------------------------------------------------------------
-
-sub process {
- my ($self, $template, $vars, $outstream, @opts) = @_;
- my ($output, $error);
- my $options = (@opts == 1) && ref($opts[0]) eq 'HASH'
- ? shift(@opts) : { @opts };
-
- $options->{ binmode } = $BINMODE
- unless defined $options->{ binmode };
-
- # we're using this for testing in t/output.t and t/filter.t so
- # don't remove it if you don't want tests to fail...
- $self->DEBUG("set binmode\n") if $DEBUG && $options->{ binmode };
-
- $output = $self->{ SERVICE }->process($template, $vars);
-
- if (defined $output) {
- $outstream ||= $self->{ OUTPUT };
- unless (ref $outstream) {
- my $outpath = $self->{ OUTPUT_PATH };
- $outstream = "$outpath/$outstream" if $outpath;
- }
-
- # send processed template to output stream, checking for error
- return ($self->error($error))
- if ($error = &_output($outstream, \$output, $options));
-
- return 1;
- }
- else {
- return $self->error($self->{ SERVICE }->error);
- }
-}
-
-
-#------------------------------------------------------------------------
-# service()
-#
-# Returns a reference to the the internal SERVICE object which handles
-# all requests for this Template object
-#------------------------------------------------------------------------
-
-sub service {
- my $self = shift;
- return $self->{ SERVICE };
-}
-
-
-#------------------------------------------------------------------------
-# context()
-#
-# Returns a reference to the the CONTEXT object withint the SERVICE
-# object.
-#------------------------------------------------------------------------
-
-sub context {
- my $self = shift;
- return $self->{ SERVICE }->{ CONTEXT };
-}
-
-
-#========================================================================
-# -- PRIVATE METHODS --
-#========================================================================
-
-#------------------------------------------------------------------------
-# _init(\%config)
-#------------------------------------------------------------------------
-sub _init {
- my ($self, $config) = @_;
-
- # convert any textual DEBUG args to numerical form
- my $debug = $config->{ DEBUG };
- $config->{ DEBUG } = Template::Constants::debug_flags($self, $debug)
- || return if defined $debug && $debug !~ /^\d+$/;
-
- # prepare a namespace handler for any CONSTANTS definition
- if (my $constants = $config->{ CONSTANTS }) {
- my $ns = $config->{ NAMESPACE } ||= { };
- my $cns = $config->{ CONSTANTS_NAMESPACE } || 'constants';
- $constants = Template::Config->constants($constants)
- || return $self->error(Template::Config->error);
- $ns->{ $cns } = $constants;
- }
-
- $self->{ SERVICE } = $config->{ SERVICE }
- || Template::Config->service($config)
- || return $self->error(Template::Config->error);
-
- $self->{ OUTPUT } = $config->{ OUTPUT } || \*STDOUT;
- $self->{ OUTPUT_PATH } = $config->{ OUTPUT_PATH };
-
- return $self;
-}
-
-
-#------------------------------------------------------------------------
-# _output($where, $text)
-#------------------------------------------------------------------------
-
-sub _output {
- my ($where, $textref, $options) = @_;
- my $reftype;
- my $error = 0;
-
- # call a CODE reference
- if (($reftype = ref($where)) eq 'CODE') {
- &$where($$textref);
- }
- # print to a glob (such as \*STDOUT)
- elsif ($reftype eq 'GLOB') {
- print $where $$textref;
- }
- # append output to a SCALAR ref
- elsif ($reftype eq 'SCALAR') {
- $$where .= $$textref;
- }
- # push onto ARRAY ref
- elsif ($reftype eq 'ARRAY') {
- push @$where, $$textref;
- }
- # call the print() method on an object that implements the method
- # (e.g. IO::Handle, Apache::Request, etc)
- elsif (blessed($where) && $where->can('print')) {
- $where->print($$textref);
- }
- # a simple string is taken as a filename
- elsif (! $reftype) {
- local *FP;
- # make destination directory if it doesn't exist
- my $dir = dirname($where);
- eval { mkpath($dir) unless -d $dir; };
- if ($@) {
- # strip file name and line number from error raised by die()
- ($error = $@) =~ s/ at \S+ line \d+\n?$//;
- }
- elsif (open(FP, ">$where")) {
- # binmode option can be 1 or a specific layer, e.g. :utf8
- my $bm = $options->{ binmode };
- if ($bm && $bm eq 1) {
- binmode FP;
- }
- elsif ($bm){
- binmode FP, $bm;
- }
- print FP $$textref;
- close FP;
- }
- else {
- $error = "$where: $!";
- }
- }
- # give up, we've done our best
- else {
- $error = "output_handler() cannot determine target type ($where)\n";
- }
-
- return $error;
-}
-
-
-1;
-
-__END__
-
-=head1 NAME
-
-Template - Front-end module to the Template Toolkit
-
-=head1 SYNOPSIS
-
- use Template;
-
- # some useful options (see below for full list)
- my $config = {
- INCLUDE_PATH => '/search/path', # or list ref
- INTERPOLATE => 1, # expand "$var" in plain text
- POST_CHOMP => 1, # cleanup whitespace
- PRE_PROCESS => 'header', # prefix each template
- EVAL_PERL => 1, # evaluate Perl code blocks
- };
-
- # create Template object
- my $template = Template->new($config);
-
- # define template variables for replacement
- my $vars = {
- var1 => $value,
- var2 => \%hash,
- var3 => \@list,
- var4 => \&code,
- var5 => $object,
- };
-
- # specify input filename, or file handle, text reference, etc.
- my $input = 'myfile.html';
-
- # process input template, substituting variables
- $template->process($input, $vars)
- || die $template->error();
-
-=head1 DESCRIPTION
-
-This documentation describes the Template module which is the direct
-Perl interface into the Template Toolkit. It covers the use of the
-module and gives a brief summary of configuration options and template
-directives. Please see L<Template::Manual> for the complete reference
-manual which goes into much greater depth about the features and use
-of the Template Toolkit. The L<Template::Tutorial> is also available
-as an introductory guide to using the Template Toolkit.
-
-=head1 METHODS
-
-=head2 new(\%config)
-
-The C<new()> constructor method (implemented by the
-L<Template::Base|Template::Base#new()> base class) instantiates a new
-C<Template> object. A reference to a hash array of configuration items may be
-passed as a parameter.
-
- my $tt = Template->new({
- INCLUDE_PATH => '/usr/local/templates',
- EVAL_PERL => 1,
- }) || die $Template::ERROR, "\n";
-
-A reference to a new C<Template> object is returned, or undef on error. In the
-latter case, the error message can be retrieved by calling L<error()> as a
-class method or by examining the C<$Template::ERROR> package variable
-directly.
-
- my $tt = Template->new(\%config)
- || die Template->error(), "\n";
-
- my $tt = Template->new(\%config)
- || die $Template::ERROR, "\n";
-
-For convenience, configuration items may also be specified as a list
-of items instead of a hash array reference. These are automatically
-folded into a hash array by the constructor.
-
- my $tt = Template->new(INCLUDE_PATH => '/tmp', POST_CHOMP => 1)
- || die $Template::ERROR, "\n";
-
-=head2 process($template, \%vars, $output, %options)
-
-The C<process()> method is called to process a template. The first parameter
-indicates the input template as one of: a filename relative to
-C<INCLUDE_PATH>, if defined; a reference to a text string containing the
-template text; or a file handle reference (e.g. C<IO::Handle> or sub-class) or
-C<GLOB> (e.g. C<\*STDIN>), from which the template can be read. A reference to
-a hash array may be passed as the second parameter, containing definitions of
-template variables.
-
- # filename
- $tt->process('welcome.tt2')
- || die $tt->error(), "\n";
-
- # text reference
- $text = "[% INCLUDE header %]\nHello world!\n[% INCLUDE footer %]";
- $tt->process(\$text)
- || die $tt->error(), "\n";
-
- # file handle (GLOB)
- $tt->process(\*DATA)
- || die $tt->error(), "\n";
-
- __END__
- [% INCLUDE header %]
- This is a template defined in the __END__ section which is
- accessible via the DATA "file handle".
- [% INCLUDE footer %]
-
-By default, the processed template output is printed to C<STDOUT>. The
-C<process()> method then returns C<1> to indicate success. A third parameter
-may be passed to the C<process()> method to specify a different output location.
-This value may be one of: a plain string indicating a filename which will be
-opened (relative to C<OUTPUT_PATH>, if defined) and the output written to; a file
-GLOB opened ready for output; a reference to a scalar (e.g. a text string) to
-which output/error is appended; a reference to a subroutine which is called,
-passing the output as a parameter; or any object reference which implements a
-C<print()> method (e.g. C<IO::Handle>, C<Apache::Request>, etc.) which will be called,
-passing the generated output as a parameter.
-
-Examples:
-
- # output filename
- $tt->process('welcome.tt2', $vars, 'welcome.html')
- || die $tt->error(), "\n";
-
- # reference to output subroutine
- sub myout {
- my $output = shift;
- ...
- }
- $tt->process('welcome.tt2', $vars, \&myout)
- || die $tt->error(), "\n";
-
- # reference to output text string
- my $output = '';
- $tt->process('welcome.tt2', $vars, \$output)
- || die $tt->error(), "\n";
-
- print "output: $output\n";
-
-In an Apache/mod_perl handler:
-
- sub handler {
- my $req = shift;
-
- # ...your code here...
-
- # direct output to Apache::Request via $req->print($output)
- $tt->process($file, $vars, $req) || do {
- $req->log_reason($tt->error());
- return SERVER_ERROR;
- };
- return OK;
- }
-
-After the optional third output argument can come an optional
-reference to a hash or a list of C<(name, value)> pairs providing further
-options for the output. The only option currently supported is
-C<binmode> which, when set to any true value will ensure that files
-created (but not any existing file handles passed) will be set to
-binary mode.
-
- # either: hash reference of options
- $tt->process($infile, $vars, $outfile, { binmode => 1 })
- || die $tt->error(), "\n";
-
- # or: list of name, value pairs
- $tt->process($infile, $vars, $outfile, binmode => 1)
- || die $tt->error(), "\n";
-
-Alternately, the C<binmode> argument can specify a particular IO layer such
-as C<:utf8>.
-
- $tt->process($infile, $vars, $outfile, binmode => ':utf8')
- || die $tt->error(), "\n";
-
-The C<OUTPUT> configuration item can be used to specify a default output
-location other than C<\*STDOUT>. The C<OUTPUT_PATH> specifies a directory
-which should be prefixed to all output locations specified as filenames.
-
- my $tt = Template->new({
- OUTPUT => sub { ... }, # default
- OUTPUT_PATH => '/tmp',
- ...
- }) || die Template->error(), "\n";
-
- # use default OUTPUT (sub is called)
- $tt->process('welcome.tt2', $vars)
- || die $tt->error(), "\n";
-
- # write file to '/tmp/welcome.html'
- $tt->process('welcome.tt2', $vars, 'welcome.html')
- || die $tt->error(), "\n";
-
-The C<process()> method returns C<1> on success or C<undef> on error. The
-error message generated in the latter case can be retrieved by calling the
-L<error()> method. See also L<CONFIGURATION SUMMARY> which describes how error
-handling may be further customised.
-
-=head2 error()
-
-When called as a class method, it returns the value of the C<$ERROR> package
-variable. Thus, the following are equivalent.
-
- my $tt = Template->new()
- || die Template->error(), "\n";
-
- my $tt = Template->new()
- || die $Template::ERROR, "\n";
-
-When called as an object method, it returns the value of the internal
-C<_ERROR> variable, as set by an error condition in a previous call to
-process().
-
- $tt->process('welcome.tt2')
- || die $tt->error(), "\n";
-
-Errors are represented in the Template Toolkit by objects of the
-L<Template::Exception> class. If the L<process()> method returns a false value
-then the C<error()> method can be called to return an object of this class.
-The L<type()|Template::Exception#type()> and
-L<info()|Template::Exception#info()> methods can called on the object to
-retrieve the error type and information string, respectively. The
-L<as_string()|Template::Exception#as_string()>
-method can be called to return a string of the form C<$type - $info>. This
-method is also overloaded onto the stringification operator allowing the
-object reference itself to be printed to return the formatted error string.
-
- $tt->process('somefile') || do {
- my $error = $tt->error();
- print "error type: ", $error->type(), "\n";
- print "error info: ", $error->info(), "\n";
- print $error, "\n";
- };
-
-=head2 service()
-
-The C<Template> module delegates most of the effort of processing templates
-to an underlying L<Template::Service> object. This method returns a reference
-to that object.
-
-=head2 context()
-
-The L<Template::Service> module uses a core L<Template::Context> object for
-runtime processing of templates. This method returns a reference to
-that object and is equivalent to C<< $template-E<gt>service-E<gt>context() >>.
-
-=head1 CONFIGURATION SUMMARY
-
-The following list gives a short summary of each Template Toolkit
-configuration option. See L<Template::Manual::Config> for full details.
-
-=head2 Template Style and Parsing Options
-
-=head3 START_TAG, END_TAG
-
-Define tokens that indicate start and end of directives
-(default: 'C<[%>' and 'C<%]>').
-
-=head3 TAG_STYLE
-
-Set C<START_TAG> and C<END_TAG> according to a pre-defined style (default:
-'C<template>', as above).
-
-=head3 PRE_CHOMP, POST_CHOMP
-
-Removes whitespace before/after directives (default: 0/0).
-
-=head3 TRIM
-
-Remove leading and trailing whitespace from template output (default: 0).
-
-=head3 INTERPOLATE
-
-Interpolate variables embedded like C<$this> or C<${this}> (default: 0).
-
-=head3 ANYCASE
-
-Allow directive keywords in lower case (default: 0 - UPPER only).
-
-=head2 Template Files and Blocks
-
-=head3 INCLUDE_PATH
-
-One or more directories to search for templates.
-
-=head3 DELIMITER
-
-Delimiter for separating paths in C<INCLUDE_PATH> (default: 'C<:>').
-
-=head3 ABSOLUTE
-
-Allow absolute file names, e.g. C</foo/bar.html> (default: 0).
-
-=head3 RELATIVE
-
-Allow relative filenames, e.g. C<../foo/bar.html> (default: 0).
-
-=head3 DEFAULT
-
-Default template to use when another not found.
-
-=head3 BLOCKS
-
-Hash array pre-defining template blocks.
-
-=head3 AUTO_RESET
-
-Enabled by default causing C<BLOCK> definitions to be reset each time a
-template is processed. Disable to allow C<BLOCK> definitions to persist.
-
-=head3 RECURSION
-
-Flag to permit recursion into templates (default: 0).
-
-=head2 Template Variables
-
-=head3 VARIABLES
-
-Hash array of variables and values to pre-define in the stash.
-
-=head2 Runtime Processing Options
-
-=head3 EVAL_PERL
-
-Flag to indicate if C<PERL>/C<RAWPERL> blocks should be processed (default: 0).
-
-=head3 PRE_PROCESS, POST_PROCESS
-
-Name of template(s) to process before/after main template.
-
-=head3 PROCESS
-
-Name of template(s) to process instead of main template.
-
-=head3 ERROR
-
-Name of error template or reference to hash array mapping error types to
-templates.
-
-=head3 OUTPUT
-
-Default output location or handler.
-
-=head3 OUTPUT_PATH
-
-Directory into which output files can be written.
-
-=head3 DEBUG
-
-Enable debugging messages.
-
-=head2 Caching and Compiling Options
-
-=head3 CACHE_SIZE
-
-Maximum number of compiled templates to cache in memory (default:
-undef - cache all)
-
-=head3 COMPILE_EXT
-
-Filename extension for compiled template files (default: undef - don't
-compile).
-
-=head3 COMPILE_DIR
-
-Root of directory in which compiled template files should be written
-(default: undef - don't compile).
-
-=head2 Plugins and Filters
-
-=head3 PLUGINS
-
-Reference to a hash array mapping plugin names to Perl packages.
-
-=head3 PLUGIN_BASE
-
-One or more base classes under which plugins may be found.
-
-=head3 LOAD_PERL
-
-Flag to indicate regular Perl modules should be loaded if a named plugin
-can't be found (default: 0).
-
-=head3 FILTERS
-
-Hash array mapping filter names to filter subroutines or factories.
-
-=head2 Customisation and Extension
-
-=head3 LOAD_TEMPLATES
-
-List of template providers.
-
-=head3 LOAD_PLUGINS
-
-List of plugin providers.
-
-=head3 LOAD_FILTERS
-
-List of filter providers.
-
-=head3 TOLERANT
-
-Set providers to tolerate errors as declinations (default: 0).
-
-=head3 SERVICE
-
-Reference to a custom service object (default: L<Template::Service>).
-
-=head3 CONTEXT
-
-Reference to a custom context object (default: L<Template::Context>).
-
-=head3 STASH
-
-Reference to a custom stash object (default: L<Template::Stash>).
-
-=head3 PARSER
-
-Reference to a custom parser object (default: L<Template::Parser>).
-
-=head3 GRAMMAR
-
-Reference to a custom grammar object (default: L<Template::Grammar>).
-
-=head1 DIRECTIVE SUMMARY
-
-The following list gives a short summary of each Template Toolkit directive.
-See L<Template::Manual::Directives> for full details.
-
-=head2 GET
-
-Evaluate and print a variable or value.
-
- [% GET variable %] # 'GET' keyword is optional
- [% variable %]
- [% hash.key %]
- [% list.n %]
- [% code(args) %]
- [% obj.meth(args) %]
- [% "value: $var" %]
-
-=head2 CALL
-
-As per L<GET> but without printing result (e.g. call code)
-
- [% CALL variable %]
-
-=head2 SET
-
-Assign a values to variables.
-
- [% SET variable = value %] # 'SET' also optional
- [% variable = other_variable
- variable = 'literal text @ $100'
- variable = "interpolated text: $var"
- list = [ val, val, val, val, ... ]
- list = [ val..val ]
- hash = { var => val, var => val, ... }
- %]
-
-=head2 DEFAULT
-
-Like L<SET>, but variables are only set if currently unset (i.e. have no
-true value).
-
- [% DEFAULT variable = value %]
-
-=head2 INSERT
-
-Insert a file without any processing performed on the contents.
-
- [% INSERT legalese.txt %]
-
-=head2 PROCESS
-
-Process another template file or block and insert the generated output.
-Any template L<BLOCK>s or variables defined or updated in the C<PROCESS>ed
-template will thereafter be defined in the calling template.
-
- [% PROCESS template %]
- [% PROCESS template var = val, ... %]
-
-=head2 INCLUDE
-
-Similar to C<PROCESS>, but using a local copy of the current variables.
-Any template C<BLOCK>s or variables defined in the C<INCLUDE>d template
-remain local to it.
-
- [% INCLUDE template %]
- [% INCLUDE template var = val, ... %]
-
-=head2 WRAPPER
-
-The content between the C<WRAPPER> and correspondng C<END> directives is first
-evaluated, with the output generated being stored in the C<content> variable.
-The named template is then process as per C<INCLUDE>.
-
- [% WRAPPER layout %]
- Some template markup [% blah %]...
- [% END %]
-
-A simple F<layout> template might look something like this:
-
- Your header here...
- [% content %]
- Your footer here...
-
-=head2 BLOCK
-
-Define a named template block for L<INCLUDE>, L<PROCESS> and L<WRAPPER>
-to use.
-
- [% BLOCK hello %]
- Hello World
- [% END %]
-
- [% INCLUDE hello %]
-
-=head2 FOREACH
-
-Repeat the enclosed C<FOREACH> ... C<END> block for each value in the list.
-
- [% FOREACH variable IN [ val, val, val ] %] # either
- [% FOREACH variable IN list %] # or
- The variable is set to [% variable %]
- [% END %]
-
-=head2 WHILE
-
-The block enclosed between C<WHILE> and C<END> block is processed while
-the specified condition is true.
-
- [% WHILE condition %]
- content
- [% END %]
-
-=head2 IF / UNLESS / ELSIF / ELSE
-
-The enclosed block is processed if the condition is true / false.
-
- [% IF condition %]
- content
- [% ELSIF condition %]
- content
- [% ELSE %]
- content
- [% END %]
-
- [% UNLESS condition %]
- content
- [% # ELSIF/ELSE as per IF, above %]
- content
- [% END %]
-
-=head2 SWITCH / CASE
-
-Multi-way switch/case statement.
-
- [% SWITCH variable %]
- [% CASE val1 %]
- content
- [% CASE [ val2, val3 ] %]
- content
- [% CASE %] # or [% CASE DEFAULT %]
- content
- [% END %]
-
-=head2 MACRO
-
-Define a named macro.
-
- [% MACRO name <directive> %]
- [% MACRO name(arg1, arg2) <directive> %]
- ...
- [% name %]
- [% name(val1, val2) %]
-
-=head2 FILTER
-
-Process enclosed C<FILTER> ... C<END> block then pipe through a filter.
-
- [% FILTER name %] # either
- [% FILTER name( params ) %] # or
- [% FILTER alias = name( params ) %] # or
- content
- [% END %]
-
-=head2 USE
-
-Load a plugin module (see C<Template::<Manual::Plugins>), or any regular Perl
-module when the C<LOAD_PERL> option is set.
-
- [% USE name %] # either
- [% USE name( params ) %] # or
- [% USE var = name( params ) %] # or
- ...
- [% name.method %]
- [% var.method %]
-
-=head2 PERL / RAWPERL
-
-Evaluate enclosed blocks as Perl code (requires the C<EVAL_PERL> option to be
-set).
-
- [% PERL %]
- # perl code goes here
- $stash->set('foo', 10);
- print "set 'foo' to ", $stash->get('foo'), "\n";
- print $context->include('footer', { var => $val });
- [% END %]
-
- [% RAWPERL %]
- # raw perl code goes here, no magic but fast.
- $output .= 'some output';
- [% END %]
-
-=head2 TRY / THROW / CATCH / FINAL
-
-Exception handling.
-
- [% TRY %]
- content
- [% THROW type info %]
- [% CATCH type %]
- catch content
- [% error.type %] [% error.info %]
- [% CATCH %] # or [% CATCH DEFAULT %]
- content
- [% FINAL %]
- this block is always processed
- [% END %]
-
-=head2 NEXT
-
-Jump straight to the next item in a C<FOREACH> or C<WHILE> loop.
-
- [% NEXT %]
-
-=head2 LAST
-
-Break out of C<FOREACH> or C<WHILE> loop.
-
- [% LAST %]
-
-=head2 RETURN
-
-Stop processing current template and return to including templates.
-
- [% RETURN %]
-
-=head2 STOP
-
-Stop processing all templates and return to caller.
-
- [% STOP %]
-
-=head2 TAGS
-
-Define new tag style or characters (default: C<[%> C<%]>).
-
- [% TAGS html %]
- [% TAGS <!-- --> %]
-
-=head2 COMMENTS
-
-Ignored and deleted.
-
- [% # this is a comment to the end of line
- foo = 'bar'
- %]
-
- [%# placing the '#' immediately inside the directive
- tag comments out the entire directive
- %]
-
-=head1 AUTHOR
-
-Andy Wardley E<lt>abw at wardley.orgE<gt> L<http://wardley.org/>
-
-=head1 VERSION
-
-Template Toolkit version 2.20_1, released April 2009.
-
-=head1 COPYRIGHT
-
-Copyright (C) 1996-2009 Andy Wardley. All Rights Reserved.
-
-This module is free software; you can redistribute it and/or
-modify it under the same terms as Perl itself.
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Base.pm b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Base.pm
deleted file mode 100644
index b29b3c9..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Base.pm
+++ /dev/null
@@ -1,283 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# Template::Base
-#
-# DESCRIPTION
-# Base class module implementing common functionality for various other
-# Template Toolkit modules.
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#========================================================================
-
-package Template::Base;
-
-use strict;
-use warnings;
-use Template::Constants;
-
-our $VERSION = 2.78;
-
-
-#------------------------------------------------------------------------
-# new(\%params)
-#
-# General purpose constructor method which expects a hash reference of
-# configuration parameters, or a list of name => value pairs which are
-# folded into a hash. Blesses a hash into an object and calls its
-# _init() method, passing the parameter hash reference. Returns a new
-# object derived from Template::Base, or undef on error.
-#------------------------------------------------------------------------
-
-sub new {
- my $class = shift;
- my ($argnames, @args, $arg, $cfg);
-# $class->error(''); # always clear package $ERROR var?
-
- { no strict 'refs';
- no warnings 'once';
- $argnames = \@{"$class\::BASEARGS"} || [ ];
- }
-
- # shift off all mandatory args, returning error if undefined or null
- foreach $arg (@$argnames) {
- return $class->error("no $arg specified")
- unless ($cfg = shift);
- push(@args, $cfg);
- }
-
- # fold all remaining args into a hash, or use provided hash ref
- $cfg = defined $_[0] && ref($_[0]) eq 'HASH' ? shift : { @_ };
-
- my $self = bless {
- (map { ($_ => shift @args) } @$argnames),
- _ERROR => '',
- DEBUG => 0,
- }, $class;
-
- return $self->_init($cfg) ? $self : $class->error($self->error);
-}
-
-
-#------------------------------------------------------------------------
-# error()
-# error($msg, ...)
-#
-# May be called as a class or object method to set or retrieve the
-# package variable $ERROR (class method) or internal member
-# $self->{ _ERROR } (object method). The presence of parameters indicates
-# that the error value should be set. Undef is then returned. In the
-# abscence of parameters, the current error value is returned.
-#------------------------------------------------------------------------
-
-sub error {
- my $self = shift;
- my $errvar;
-
- {
- no strict qw( refs );
- $errvar = ref $self ? \$self->{ _ERROR } : \${"$self\::ERROR"};
- }
- if (@_) {
- $$errvar = ref($_[0]) ? shift : join('', @_);
- return undef;
- }
- else {
- return $$errvar;
- }
-}
-
-
-#------------------------------------------------------------------------
-# _init()
-#
-# Initialisation method called by the new() constructor and passing a
-# reference to a hash array containing any configuration items specified
-# as constructor arguments. Should return $self on success or undef on
-# error, via a call to the error() method to set the error message.
-#------------------------------------------------------------------------
-
-sub _init {
- my ($self, $config) = @_;
- return $self;
-}
-
-
-sub debug {
- my $self = shift;
- my $msg = join('', @_);
- my ($pkg, $file, $line) = caller();
-
- unless ($msg =~ /\n$/) {
- $msg .= ($self->{ DEBUG } & Template::Constants::DEBUG_CALLER)
- ? " at $file line $line\n"
- : "\n";
- }
-
- print STDERR "[$pkg] $msg";
-}
-
-
-#------------------------------------------------------------------------
-# module_version()
-#
-# Returns the current version number.
-#------------------------------------------------------------------------
-
-sub module_version {
- my $self = shift;
- my $class = ref $self || $self;
- no strict 'refs';
- return ${"${class}::VERSION"};
-}
-
-
-1;
-
-__END__
-
-=head1 NAME
-
-Template::Base - Base class module implementing common functionality
-
-=head1 SYNOPSIS
-
- package My::Module;
- use base qw( Template::Base );
-
- sub _init {
- my ($self, $config) = @_;
- $self->{ doodah } = $config->{ doodah }
- || return $self->error("No 'doodah' specified");
- return $self;
- }
-
- package main;
-
- my $object = My::Module->new({ doodah => 'foobar' })
- || die My::Module->error();
-
-=head1 DESCRIPTION
-
-Base class module which implements a constructor and error reporting
-functionality for various Template Toolkit modules.
-
-=head1 PUBLIC METHODS
-
-=head2 new(\%config)
-
-Constructor method which accepts a reference to a hash array or a list
-of C<name =E<gt> value> parameters which are folded into a hash. The
-C<_init()> method is then called, passing the configuration hash and should
-return true/false to indicate success or failure. A new object reference
-is returned, or undef on error. Any error message raised can be examined
-via the L<error()> class method or directly via the C<$ERROR> package variable
-in the derived class.
-
- my $module = My::Module->new({ ... })
- || die My::Module->error(), "\n";
-
- my $module = My::Module->new({ ... })
- || die "constructor error: $My::Module::ERROR\n";
-
-=head2 error($msg, ...)
-
-May be called as an object method to get/set the internal C<_ERROR> member
-or as a class method to get/set the C<$ERROR> variable in the derived class's
-package.
-
- my $module = My::Module->new({ ... })
- || die My::Module->error(), "\n";
-
- $module->do_something()
- || die $module->error(), "\n";
-
-When called with parameters (multiple params are concatenated), this
-method will set the relevant variable and return undef. This is most
-often used within object methods to report errors to the caller.
-
- package My::Module;
-
- sub foobar {
- my $self = shift;
-
- # some other code...
-
- return $self->error('some kind of error...')
- if $some_condition;
- }
-
-=head2 debug($msg, ...)
-
-Generates a debugging message by concatenating all arguments
-passed into a string and printing it to C<STDERR>. A prefix is
-added to indicate the module of the caller.
-
- package My::Module;
-
- sub foobar {
- my $self = shift;
-
- $self->debug('called foobar()');
-
- # some other code...
- }
-
-When the C<foobar()> method is called, the following message
-is sent to C<STDERR>:
-
- [My::Module] called foobar()
-
-Objects can set an internal C<DEBUG> value which the C<debug()>
-method will examine. If this value sets the relevant bits
-to indicate C<DEBUG_CALLER> then the file and line number of
-the caller will be appened to the message.
-
- use Template::Constants qw( :debug );
-
- my $module = My::Module->new({
- DEBUG => DEBUG_SERVICE | DEBUG_CONTEXT | DEBUG_CALLER,
- });
-
- $module->foobar();
-
-This generates an error message such as:
-
- [My::Module] called foobar() at My/Module.pm line 6
-
-=head2 module_version()
-
-Returns the version number for a module, as defined by the C<$VERSION>
-package variable.
-
-=head1 AUTHOR
-
-Andy Wardley E<lt>abw at wardley.orgE<gt> L<http://wardley.org/>
-
-=head1 COPYRIGHT
-
-Copyright (C) 1996-2007 Andy Wardley. 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<Template>
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Constants.pm b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Constants.pm
deleted file mode 100644
index 788ab5a..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Constants.pm
+++ /dev/null
@@ -1,265 +0,0 @@
-#============================================================= -*-Perl-*-
-#
-# Template::Constants.pm
-#
-# DESCRIPTION
-# Definition of constants for the Template Toolkit.
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#============================================================================
-
-package Template::Constants;
-
-require Exporter;
-use strict;
-use warnings;
-use Exporter;
-# Perl::MinimumVersion seems to think this is a Perl 5.008ism...
-# use base qw( Exporter );
-use vars qw( @EXPORT_OK %EXPORT_TAGS );
-use vars qw( $DEBUG_OPTIONS @STATUS @ERROR @CHOMP @DEBUG @ISA );
-# ... so we'll do it the Old Skool way just to keep it quiet
- at ISA = qw( Exporter );
-
-our $VERSION = 2.75;
-
-
-#========================================================================
-# ----- EXPORTER -----
-#========================================================================
-
-# STATUS constants returned by directives
-use constant STATUS_OK => 0; # ok
-use constant STATUS_RETURN => 1; # ok, block ended by RETURN
-use constant STATUS_STOP => 2; # ok, stoppped by STOP
-use constant STATUS_DONE => 3; # ok, iterator done
-use constant STATUS_DECLINED => 4; # ok, declined to service request
-use constant STATUS_ERROR => 255; # error condition
-
-# ERROR constants for indicating exception types
-use constant ERROR_RETURN => 'return'; # return a status code
-use constant ERROR_FILE => 'file'; # file error: I/O, parse, recursion
-use constant ERROR_VIEW => 'view'; # view error
-use constant ERROR_UNDEF => 'undef'; # undefined variable value used
-use constant ERROR_PERL => 'perl'; # error in [% PERL %] block
-use constant ERROR_FILTER => 'filter'; # filter error
-use constant ERROR_PLUGIN => 'plugin'; # plugin error
-
-# CHOMP constants for PRE_CHOMP and POST_CHOMP
-use constant CHOMP_NONE => 0; # do not remove whitespace
-use constant CHOMP_ALL => 1; # remove whitespace up to newline
-use constant CHOMP_ONE => 1; # new name for CHOMP_ALL
-use constant CHOMP_COLLAPSE => 2; # collapse whitespace to a single space
-use constant CHOMP_GREEDY => 3; # remove all whitespace including newlines
-
-# DEBUG constants to enable various debugging options
-use constant DEBUG_OFF => 0; # do nothing
-use constant DEBUG_ON => 1; # basic debugging flag
-use constant DEBUG_UNDEF => 2; # throw undef on undefined variables
-use constant DEBUG_VARS => 4; # general variable debugging
-use constant DEBUG_DIRS => 8; # directive debugging
-use constant DEBUG_STASH => 16; # general stash debugging
-use constant DEBUG_CONTEXT => 32; # context debugging
-use constant DEBUG_PARSER => 64; # parser debugging
-use constant DEBUG_PROVIDER => 128; # provider debugging
-use constant DEBUG_PLUGINS => 256; # plugins debugging
-use constant DEBUG_FILTERS => 512; # filters debugging
-use constant DEBUG_SERVICE => 1024; # context debugging
-use constant DEBUG_ALL => 2047; # everything
-
-# extra debugging flags
-use constant DEBUG_CALLER => 4096; # add caller file/line
-use constant DEBUG_FLAGS => 4096; # bitmask to extraxt flags
-
-$DEBUG_OPTIONS = {
- &DEBUG_OFF => off => off => &DEBUG_OFF,
- &DEBUG_ON => on => on => &DEBUG_ON,
- &DEBUG_UNDEF => undef => undef => &DEBUG_UNDEF,
- &DEBUG_VARS => vars => vars => &DEBUG_VARS,
- &DEBUG_DIRS => dirs => dirs => &DEBUG_DIRS,
- &DEBUG_STASH => stash => stash => &DEBUG_STASH,
- &DEBUG_CONTEXT => context => context => &DEBUG_CONTEXT,
- &DEBUG_PARSER => parser => parser => &DEBUG_PARSER,
- &DEBUG_PROVIDER => provider => provider => &DEBUG_PROVIDER,
- &DEBUG_PLUGINS => plugins => plugins => &DEBUG_PLUGINS,
- &DEBUG_FILTERS => filters => filters => &DEBUG_FILTERS,
- &DEBUG_SERVICE => service => service => &DEBUG_SERVICE,
- &DEBUG_ALL => all => all => &DEBUG_ALL,
- &DEBUG_CALLER => caller => caller => &DEBUG_CALLER,
-};
-
- at STATUS = qw( STATUS_OK STATUS_RETURN STATUS_STOP STATUS_DONE
- STATUS_DECLINED STATUS_ERROR );
- at ERROR = qw( ERROR_FILE ERROR_VIEW ERROR_UNDEF ERROR_PERL
- ERROR_RETURN ERROR_FILTER ERROR_PLUGIN );
- at CHOMP = qw( CHOMP_NONE CHOMP_ALL CHOMP_ONE CHOMP_COLLAPSE CHOMP_GREEDY );
- at DEBUG = qw( DEBUG_OFF DEBUG_ON DEBUG_UNDEF DEBUG_VARS
- DEBUG_DIRS DEBUG_STASH DEBUG_CONTEXT DEBUG_PARSER
- DEBUG_PROVIDER DEBUG_PLUGINS DEBUG_FILTERS DEBUG_SERVICE
- DEBUG_ALL DEBUG_CALLER DEBUG_FLAGS );
-
- at EXPORT_OK = ( @STATUS, @ERROR, @CHOMP, @DEBUG );
-%EXPORT_TAGS = (
- 'all' => [ @EXPORT_OK ],
- 'status' => [ @STATUS ],
- 'error' => [ @ERROR ],
- 'chomp' => [ @CHOMP ],
- 'debug' => [ @DEBUG ],
-);
-
-
-sub debug_flags {
- my ($self, $debug) = @_;
- my (@flags, $flag, $value);
- $debug = $self unless defined($debug) || ref($self);
-
- if ($debug =~ /^\d+$/) {
- foreach $flag (@DEBUG) {
- next if $flag =~ /^DEBUG_(OFF|ALL|FLAGS)$/;
-
- # don't trash the original
- my $copy = $flag;
- $flag =~ s/^DEBUG_//;
- $flag = lc $flag;
- return $self->error("no value for flag: $flag")
- unless defined($value = $DEBUG_OPTIONS->{ $flag });
- $flag = $value;
-
- if ($debug & $flag) {
- $value = $DEBUG_OPTIONS->{ $flag };
- return $self->error("no value for flag: $flag") unless defined $value;
- push(@flags, $value);
- }
- }
- return wantarray ? @flags : join(', ', @flags);
- }
- else {
- @flags = split(/\W+/, $debug);
- $debug = 0;
- foreach $flag (@flags) {
- $value = $DEBUG_OPTIONS->{ $flag };
- return $self->error("unknown debug flag: $flag") unless defined $value;
- $debug |= $value;
- }
- return $debug;
- }
-}
-
-
-1;
-
-__END__
-
-=head1 NAME
-
-Template::Constants - Defines constants for the Template Toolkit
-
-=head1 SYNOPSIS
-
- use Template::Constants qw( :status :error :all );
-
-=head1 DESCRIPTION
-
-The C<Template::Constants> modules defines, and optionally exports into the
-caller's namespace, a number of constants used by the L<Template> package.
-
-Constants may be used by specifying the C<Template::Constants> package
-explicitly:
-
- use Template::Constants;
- print Template::Constants::STATUS_DECLINED;
-
-Constants may be imported into the caller's namespace by naming them as
-options to the C<use Template::Constants> statement:
-
- use Template::Constants qw( STATUS_DECLINED );
- print STATUS_DECLINED;
-
-Alternatively, one of the following tagset identifiers may be specified
-to import sets of constants: 'C<:status>', 'C<:error>', 'C<:all>'.
-
- use Template::Constants qw( :status );
- print STATUS_DECLINED;
-
-Consult the documentation for the C<Exporter> module for more information
-on exporting variables.
-
-=head1 EXPORTABLE TAG SETS
-
-The following tag sets and associated constants are defined:
-
- :status
- STATUS_OK # no problem, continue
- STATUS_RETURN # ended current block then continue (ok)
- STATUS_STOP # controlled stop (ok)
- STATUS_DONE # iterator is all done (ok)
- STATUS_DECLINED # provider declined to service request (ok)
- STATUS_ERROR # general error condition (not ok)
-
- :error
- ERROR_RETURN # return a status code (e.g. 'stop')
- ERROR_FILE # file error: I/O, parse, recursion
- ERROR_UNDEF # undefined variable value used
- ERROR_PERL # error in [% PERL %] block
- ERROR_FILTER # filter error
- ERROR_PLUGIN # plugin error
-
- :chomp # for PRE_CHOMP and POST_CHOMP
- CHOMP_NONE # do not remove whitespace
- CHOMP_ONE # remove whitespace to newline
- CHOMP_ALL # old name for CHOMP_ONE (deprecated)
- CHOMP_COLLAPSE # collapse whitespace to a single space
- CHOMP_GREEDY # remove all whitespace including newlines
-
- :debug
- DEBUG_OFF # do nothing
- DEBUG_ON # basic debugging flag
- DEBUG_UNDEF # throw undef on undefined variables
- DEBUG_VARS # general variable debugging
- DEBUG_DIRS # directive debugging
- DEBUG_STASH # general stash debugging
- DEBUG_CONTEXT # context debugging
- DEBUG_PARSER # parser debugging
- DEBUG_PROVIDER # provider debugging
- DEBUG_PLUGINS # plugins debugging
- DEBUG_FILTERS # filters debugging
- DEBUG_SERVICE # context debugging
- DEBUG_ALL # everything
- DEBUG_CALLER # add caller file/line info
- DEBUG_FLAGS # bitmap used internally
-
- :all
- All the above constants.
-
-=head1 AUTHOR
-
-Andy Wardley E<lt>abw at wardley.orgE<gt> L<http://wardley.org/>
-
-=head1 COPYRIGHT
-
-Copyright (C) 1996-2007 Andy Wardley. 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<Template>, C<Exporter>
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Document.pm b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Document.pm
deleted file mode 100644
index 79d26fc..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Document.pm
+++ /dev/null
@@ -1,490 +0,0 @@
-##============================================================= -*-Perl-*-
-#
-# Template::Document
-#
-# DESCRIPTION
-# Module defining a class of objects which encapsulate compiled
-# templates, storing additional block definitions and metadata
-# as well as the compiled Perl sub-routine representing the main
-# template content.
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#============================================================================
-
-package Template::Document;
-
-use strict;
-use warnings;
-use base 'Template::Base';
-use Template::Constants;
-
-our $VERSION = 2.79;
-our $DEBUG = 0 unless defined $DEBUG;
-our $ERROR = '';
-our ($COMPERR, $AUTOLOAD, $UNICODE);
-
-BEGIN {
- # UNICODE is supported in versions of Perl from 5.008 onwards
- if ($UNICODE = $] > 5.007 ? 1 : 0) {
- if ($] > 5.008) {
- # utf8::is_utf8() available from Perl 5.8.1 onwards
- *is_utf8 = \&utf8::is_utf8;
- }
- elsif ($] == 5.008) {
- # use Encode::is_utf8() for Perl 5.8.0
- require Encode;
- *is_utf8 = \&Encode::is_utf8;
- }
- }
-}
-
-
-#========================================================================
-# ----- PUBLIC METHODS -----
-#========================================================================
-
-#------------------------------------------------------------------------
-# new(\%document)
-#
-# Creates a new self-contained Template::Document object which
-# encapsulates a compiled Perl sub-routine, $block, any additional
-# BLOCKs defined within the document ($defblocks, also Perl sub-routines)
-# and additional $metadata about the document.
-#------------------------------------------------------------------------
-
-sub new {
- my ($class, $doc) = @_;
- my ($block, $defblocks, $metadata) = @$doc{ qw( BLOCK DEFBLOCKS METADATA ) };
- $defblocks ||= { };
- $metadata ||= { };
-
- # evaluate Perl code in $block to create sub-routine reference if necessary
- unless (ref $block) {
- local $SIG{__WARN__} = \&catch_warnings;
- $COMPERR = '';
-
- # DON'T LOOK NOW! - blindly untainting can make you go blind!
- $block =~ /(.*)/s;
- $block = $1;
-
- $block = eval $block;
- return $class->error($@)
- unless defined $block;
- }
-
- # same for any additional BLOCK definitions
- @$defblocks{ keys %$defblocks } =
- # MORE BLIND UNTAINTING - turn away if you're squeamish
- map {
- ref($_)
- ? $_
- : ( /(.*)/s && eval($1) or return $class->error($@) )
- } values %$defblocks;
-
- bless {
- %$metadata,
- _BLOCK => $block,
- _DEFBLOCKS => $defblocks,
- _HOT => 0,
- }, $class;
-}
-
-
-#------------------------------------------------------------------------
-# block()
-#
-# Returns a reference to the internal sub-routine reference, _BLOCK,
-# that constitutes the main document template.
-#------------------------------------------------------------------------
-
-sub block {
- return $_[0]->{ _BLOCK };
-}
-
-
-#------------------------------------------------------------------------
-# blocks()
-#
-# Returns a reference to a hash array containing any BLOCK definitions
-# from the template. The hash keys are the BLOCK nameand the values
-# are references to Template::Document objects. Returns 0 (# an empty hash)
-# if no blocks are defined.
-#------------------------------------------------------------------------
-
-sub blocks {
- return $_[0]->{ _DEFBLOCKS };
-}
-
-
-#------------------------------------------------------------------------
-# process($context)
-#
-# Process the document in a particular context. Checks for recursion,
-# registers the document with the context via visit(), processes itself,
-# and then unwinds with a large gin and tonic.
-#------------------------------------------------------------------------
-
-sub process {
- my ($self, $context) = @_;
- my $defblocks = $self->{ _DEFBLOCKS };
- my $output;
-
-
- # check we're not already visiting this template
- return $context->throw(Template::Constants::ERROR_FILE,
- "recursion into '$self->{ name }'")
- if $self->{ _HOT } && ! $context->{ RECURSION }; ## RETURN ##
-
- $context->visit($self, $defblocks);
-
- $self->{ _HOT } = 1;
- eval {
- my $block = $self->{ _BLOCK };
- $output = &$block($context);
- };
- $self->{ _HOT } = 0;
-
- $context->leave();
-
- die $context->catch($@)
- if $@;
-
- return $output;
-}
-
-
-#------------------------------------------------------------------------
-# AUTOLOAD
-#
-# Provides pseudo-methods for read-only access to various internal
-# members.
-#------------------------------------------------------------------------
-
-sub AUTOLOAD {
- my $self = shift;
- my $method = $AUTOLOAD;
-
- $method =~ s/.*:://;
- return if $method eq 'DESTROY';
-# my ($pkg, $file, $line) = caller();
-# print STDERR "called $self->AUTOLOAD($method) from $file line $line\n";
- return $self->{ $method };
-}
-
-
-#========================================================================
-# ----- PRIVATE METHODS -----
-#========================================================================
-
-
-#------------------------------------------------------------------------
-# _dump()
-#
-# Debug method which returns a string representing the internal state
-# of the object.
-#------------------------------------------------------------------------
-
-sub _dump {
- my $self = shift;
- my $dblks;
- my $output = "$self : $self->{ name }\n";
-
- $output .= "BLOCK: $self->{ _BLOCK }\nDEFBLOCKS:\n";
-
- if ($dblks = $self->{ _DEFBLOCKS }) {
- foreach my $b (keys %$dblks) {
- $output .= " $b: $dblks->{ $b }\n";
- }
- }
-
- return $output;
-}
-
-
-#========================================================================
-# ----- CLASS METHODS -----
-#========================================================================
-
-#------------------------------------------------------------------------
-# as_perl($content)
-#
-# This method expects a reference to a hash passed as the first argument
-# containing 3 items:
-# METADATA # a hash of template metadata
-# BLOCK # string containing Perl sub definition for main block
-# DEFBLOCKS # hash containing further subs for addional BLOCK defs
-# It returns a string containing Perl code which, when evaluated and
-# executed, will instantiate a new Template::Document object with the
-# above data. On error, it returns undef with an appropriate error
-# message set in $ERROR.
-#------------------------------------------------------------------------
-
-sub as_perl {
- my ($class, $content) = @_;
- my ($block, $defblocks, $metadata) = @$content{ qw( BLOCK DEFBLOCKS METADATA ) };
-
- $block =~ s/\n(?!#line)/\n /g;
- $block =~ s/\s+$//;
-
- $defblocks = join('', map {
- my $code = $defblocks->{ $_ };
- $code =~ s/\n(?!#line)/\n /g;
- $code =~ s/\s*$//;
- " '$_' => $code,\n";
- } keys %$defblocks);
- $defblocks =~ s/\s+$//;
-
- $metadata = join('', map {
- my $x = $metadata->{ $_ };
- $x =~ s/(['\\])/\\$1/g;
- " '$_' => '$x',\n";
- } keys %$metadata);
- $metadata =~ s/\s+$//;
-
- return <<EOF
-#------------------------------------------------------------------------
-# Compiled template generated by the Template Toolkit version $Template::VERSION
-#------------------------------------------------------------------------
-
-$class->new({
- METADATA => {
-$metadata
- },
- BLOCK => $block,
- DEFBLOCKS => {
-$defblocks
- },
-});
-EOF
-}
-
-
-#------------------------------------------------------------------------
-# write_perl_file($filename, \%content)
-#
-# This method calls as_perl() to generate the Perl code to represent a
-# compiled template with the content passed as the second argument.
-# It then writes this to the file denoted by the first argument.
-#
-# Returns 1 on success. On error, sets the $ERROR package variable
-# to contain an error message and returns undef.
-#------------------------------------------------------------------------
-
-sub write_perl_file {
- my ($class, $file, $content) = @_;
- my ($fh, $tmpfile);
-
- return $class->error("invalid filename: $file")
- unless $file =~ /^(.+)$/s;
-
- eval {
- require File::Temp;
- require File::Basename;
- ($fh, $tmpfile) = File::Temp::tempfile(
- DIR => File::Basename::dirname($file)
- );
- my $perlcode = $class->as_perl($content) || die $!;
-
- if ($UNICODE && is_utf8($perlcode)) {
- $perlcode = "use utf8;\n\n$perlcode";
- binmode $fh, ":utf8";
- }
- print $fh $perlcode;
- close($fh);
- };
- return $class->error($@) if $@;
- return rename($tmpfile, $file)
- || $class->error($!);
-}
-
-
-#------------------------------------------------------------------------
-# catch_warnings($msg)
-#
-# Installed as
-#------------------------------------------------------------------------
-
-sub catch_warnings {
- $COMPERR .= join('', @_);
-}
-
-
-1;
-
-__END__
-
-=head1 NAME
-
-Template::Document - Compiled template document object
-
-=head1 SYNOPSIS
-
- use Template::Document;
-
- $doc = Template::Document->new({
- BLOCK => sub { # some perl code; return $some_text },
- DEFBLOCKS => {
- header => sub { # more perl code; return $some_text },
- footer => sub { # blah blah blah; return $some_text },
- },
- METADATA => {
- author => 'Andy Wardley',
- version => 3.14,
- }
- }) || die $Template::Document::ERROR;
-
- print $doc->process($context);
-
-=head1 DESCRIPTION
-
-This module defines an object class whose instances represent compiled
-template documents. The L<Template::Parser> module creates a
-C<Template::Document> instance to encapsulate a template as it is compiled
-into Perl code.
-
-The constructor method, L<new()>, expects a reference to a hash array
-containing the C<BLOCK>, C<DEFBLOCKS> and C<METADATA> items.
-
-The C<BLOCK> item should contain a reference to a Perl subroutine or a textual
-representation of Perl code, as generated by the L<Template::Parser> module.
-This is then evaluated into a subroutine reference using C<eval()>.
-
-The C<DEFLOCKS> item should reference a hash array containing further named
-C<BLOCK>s which may be defined in the template. The keys represent C<BLOCK>
-names and the values should be subroutine references or text strings of Perl
-code as per the main C<BLOCK> item.
-
-The C<METADATA> item should reference a hash array of metadata items relevant
-to the document.
-
-The L<process()> method can then be called on the instantiated
-C<Template::Document> object, passing a reference to a L<Template::Context>
-object as the first parameter. This will install any locally defined blocks
-(C<DEFBLOCKS>) in the C<BLOCKS> cache in the context (via a call to
-L<visit()|Template::Context#visit()>) so that they may be subsequently
-resolved by the context. The main C<BLOCK> subroutine is then executed,
-passing the context reference on as a parameter. The text returned from the
-template subroutine is then returned by the L<process()> method, after calling
-the context L<leave()|Template::Context#leave()> method to permit cleanup and
-de-registration of named C<BLOCKS> previously installed.
-
-An C<AUTOLOAD> method provides access to the C<METADATA> items for the
-document. The L<Template::Service> module installs a reference to the main
-C<Template::Document> object in the stash as the C<template> variable. This allows
-metadata items to be accessed from within templates, including C<PRE_PROCESS>
-templates.
-
-header:
-
- <html>
- <head>
- <title>[% template.title %]
- </head>
- ...
-
-C<Template::Document> objects are usually created by the L<Template::Parser>
-but can be manually instantiated or sub-classed to provide custom
-template components.
-
-=head1 METHODS
-
-=head2 new(\%config)
-
-Constructor method which accept a reference to a hash array containing the
-structure as shown in this example:
-
- $doc = Template::Document->new({
- BLOCK => sub { # some perl code; return $some_text },
- DEFBLOCKS => {
- header => sub { # more perl code; return $some_text },
- footer => sub { # blah blah blah; return $some_text },
- },
- METADATA => {
- author => 'Andy Wardley',
- version => 3.14,
- }
- }) || die $Template::Document::ERROR;
-
-C<BLOCK> and C<DEFBLOCKS> items may be expressed as references to Perl subroutines
-or as text strings containing Perl subroutine definitions, as is generated
-by the L<Template::Parser> module. These are evaluated into subroutine references
-using C<eval()>.
-
-Returns a new C<Template::Document> object or C<undef> on error. The
-L<error()|Template::Base#error()> class method can be called, or the C<$ERROR>
-package variable inspected to retrieve the relevant error message.
-
-=head2 process($context)
-
-Main processing routine for the compiled template document. A reference to a
-L<Template::Context> object should be passed as the first parameter. The
-method installs any locally defined blocks via a call to the context
-L<visit()|Template::Context#visit()> method, processes its own template,
-(passing the context reference as a parameter) and then calls
-L<leave()|Template::Context#leave()> in the context to allow cleanup.
-
- print $doc->process($context);
-
-Returns a text string representing the generated output for the template.
-Errors are thrown via C<die()>.
-
-=head2 block()
-
-Returns a reference to the main C<BLOCK> subroutine.
-
-=head2 blocks()
-
-Returns a reference to the hash array of named C<DEFBLOCKS> subroutines.
-
-=head2 AUTOLOAD
-
-An autoload method returns C<METADATA> items.
-
- print $doc->author();
-
-=head1 PACKAGE SUB-ROUTINES
-
-=head2 write_perl_file(\%config)
-
-This package subroutine is provided to effect persistence of compiled
-templates. If the C<COMPILE_EXT> option (to indicate a file extension
-for saving compiled templates) then the L<Template::Parser> module calls
-this subroutine before calling the L<new()> constructor. At this stage,
-the parser has a representation of the template as text strings
-containing Perl code. We can write that to a file, enclosed in a
-small wrapper which will allow us to susequently C<require()> the file
-and have Perl parse and compile it into a C<Template::Document>. Thus we
-have persistence of compiled templates.
-
-=head1 AUTHOR
-
-Andy Wardley E<lt>abw at wardley.orgE<gt> L<http://wardley.org/>
-
-=head1 COPYRIGHT
-
-Copyright (C) 1996-2007 Andy Wardley. 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<Template>, L<Template::Parser>
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Exception.pm b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Exception.pm
deleted file mode 100644
index 5432d64..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Exception.pm
+++ /dev/null
@@ -1,229 +0,0 @@
-#============================================================= -*-Perl-*-
-#
-# Template::Exception
-#
-# DESCRIPTION
-# Module implementing a generic exception class used for error handling
-# in the Template Toolkit.
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#========================================================================
-
-package Template::Exception;
-
-use strict;
-use warnings;
-use constant TYPE => 0;
-use constant INFO => 1;
-use constant TEXT => 2;
-use overload q|""| => "as_string", fallback => 1;
-
-our $VERSION = 2.70;
-
-
-#------------------------------------------------------------------------
-# new($type, $info, \$text)
-#
-# Constructor method used to instantiate a new Template::Exception
-# object. The first parameter should contain the exception type. This
-# can be any arbitrary string of the caller's choice to represent a
-# specific exception. The second parameter should contain any
-# information (i.e. error message or data reference) relevant to the
-# specific exception event. The third optional parameter may be a
-# reference to a scalar containing output text from the template
-# block up to the point where the exception was thrown.
-#------------------------------------------------------------------------
-
-sub new {
- my ($class, $type, $info, $textref) = @_;
- bless [ $type, $info, $textref ], $class;
-}
-
-
-#------------------------------------------------------------------------
-# type()
-# info()
-# type_info()
-#
-# Accessor methods to return the internal TYPE and INFO fields.
-#------------------------------------------------------------------------
-
-sub type {
- $_[0]->[ TYPE ];
-}
-
-sub info {
- $_[0]->[ INFO ];
-}
-
-sub type_info {
- my $self = shift;
- @$self[ TYPE, INFO ];
-}
-
-#------------------------------------------------------------------------
-# text()
-# text(\$pretext)
-#
-# Method to return the text referenced by the TEXT member. A text
-# reference may be passed as a parameter to supercede the existing
-# member. The existing text is added to the *end* of the new text
-# before being stored. This facility is provided for template blocks
-# to gracefully de-nest when an exception occurs and allows them to
-# reconstruct their output in the correct order.
-#------------------------------------------------------------------------
-
-sub text {
- my ($self, $newtextref) = @_;
- my $textref = $self->[ TEXT ];
-
- if ($newtextref) {
- $$newtextref .= $$textref if $textref && $textref ne $newtextref;
- $self->[ TEXT ] = $newtextref;
- return '';
- }
- elsif ($textref) {
- return $$textref;
- }
- else {
- return '';
- }
-}
-
-
-#------------------------------------------------------------------------
-# as_string()
-#
-# Accessor method to return a string indicating the exception type and
-# information.
-#------------------------------------------------------------------------
-
-sub as_string {
- my $self = shift;
- return $self->[ TYPE ] . ' error - ' . $self->[ INFO ];
-}
-
-
-#------------------------------------------------------------------------
-# select_handler(@types)
-#
-# Selects the most appropriate handler for the exception TYPE, from
-# the list of types passed in as parameters. The method returns the
-# item which is an exact match for TYPE or the closest, more
-# generic handler (e.g. foo being more generic than foo.bar, etc.)
-#------------------------------------------------------------------------
-
-sub select_handler {
- my ($self, @options) = @_;
- my $type = $self->[ TYPE ];
- my %hlut;
- @hlut{ @options } = (1) x @options;
-
- while ($type) {
- return $type if $hlut{ $type };
-
- # strip .element from the end of the exception type to find a
- # more generic handler
- $type =~ s/\.?[^\.]*$//;
- }
- return undef;
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Template::Exception - Exception handling class module
-
-=head1 SYNOPSIS
-
- use Template::Exception;
-
- my $exception = Template::Exception->new($type, $info);
- $type = $exception->type;
- $info = $exception->info;
- ($type, $info) = $exception->type_info;
-
- print $exception->as_string();
-
- $handler = $exception->select_handler(\@candidates);
-
-=head1 DESCRIPTION
-
-The C<Template::Exception> module defines an object class for
-representing exceptions within the template processing life cycle.
-Exceptions can be raised by modules within the Template Toolkit, or
-can be generated and returned by user code bound to template
-variables.
-
-Exceptions can be raised in a template using the C<THROW> directive,
-
- [% THROW user.login 'no user id: please login' %]
-
-or by calling the L<throw()|Template::Context#throw()> method on the current
-L<Template::Context> object,
-
- $context->throw('user.passwd', 'Incorrect Password');
- $context->throw('Incorrect Password'); # type 'undef'
-
-or from Perl code by calling C<die()> with a C<Template::Exception> object,
-
- die (Template::Exception->new('user.denied', 'Invalid User ID'));
-
-or by simply calling C<die()> with an error string. This is
-automagically caught and converted to an exception of 'C<undef>'
-type (that's the literal string 'C<undef>' rather than Perl's
-undefined value) which can then be handled in the usual way.
-
- die "I'm sorry Dave, I can't do that";
-
-Each exception is defined by its type and a information component
-(e.g. error message). The type can be any identifying string and may
-contain dotted components (e.g. 'C<foo>', 'C<foo.bar>', 'C<foo.bar.baz>').
-Exception types are considered to be hierarchical such that 'C<foo.bar>'
-would be a specific type of the more general 'C<foo>' type.
-
-=head1 METHODS
-
-=head2 type()
-
-Returns the exception type.
-
-=head2 info()
-
-Returns the exception information.
-
-=head1 AUTHOR
-
-Andy Wardley E<lt>abw at wardley.orgE<gt> L<http://wardley.org/>
-
-=head1 COPYRIGHT
-
-Copyright (C) 1996-2007 Andy Wardley. 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<Template>, L<Template::Context>
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Iterator.pm b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Iterator.pm
deleted file mode 100644
index 0b55c5c..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Iterator.pm
+++ /dev/null
@@ -1,493 +0,0 @@
-#============================================================= -*-Perl-*-
-#
-# Template::Iterator
-#
-# DESCRIPTION
-#
-# Module defining an iterator class which is used by the FOREACH
-# directive for iterating through data sets. This may be
-# sub-classed to define more specific iterator types.
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#============================================================================
-
-package Template::Iterator;
-
-use strict;
-use warnings;
-use base 'Template::Base';
-use Template::Constants;
-use Template::Exception;
-use Scalar::Util qw(blessed);
-
-use constant ODD => 'odd';
-use constant EVEN => 'even';
-
-our $VERSION = 2.68;
-our $DEBUG = 0 unless defined $DEBUG;
-our $AUTOLOAD;
-
-#========================================================================
-# ----- CLASS METHODS -----
-#========================================================================
-
-#------------------------------------------------------------------------
-# new(\@target, \%options)
-#
-# Constructor method which creates and returns a reference to a new
-# Template::Iterator object. A reference to the target data (array
-# or hash) may be passed for the object to iterate through.
-#------------------------------------------------------------------------
-
-sub new {
- my $class = shift;
- my $data = shift || [ ];
- my $params = shift || { };
-
- if (ref $data eq 'HASH') {
- # map a hash into a list of { key => ???, value => ??? } hashes,
- # one for each key, sorted by keys
- $data = [ map { { key => $_, value => $data->{ $_ } } }
- sort keys %$data ];
- }
- elsif (blessed($data) && $data->can('as_list')) {
- $data = $data->as_list();
- }
- elsif (ref $data ne 'ARRAY') {
- # coerce any non-list data into an array reference
- $data = [ $data ] ;
- }
-
- bless {
- _DATA => $data,
- _ERROR => '',
- }, $class;
-}
-
-
-#========================================================================
-# ----- PUBLIC OBJECT METHODS -----
-#========================================================================
-
-#------------------------------------------------------------------------
-# get_first()
-#
-# Initialises the object for iterating through the target data set. The
-# first record is returned, if defined, along with the STATUS_OK value.
-# If there is no target data, or the data is an empty set, then undef
-# is returned with the STATUS_DONE value.
-#------------------------------------------------------------------------
-
-sub get_first {
- my $self = shift;
- my $data = $self->{ _DATA };
-
- $self->{ _DATASET } = $self->{ _DATA };
- my $size = scalar @$data;
- my $index = 0;
-
- return (undef, Template::Constants::STATUS_DONE) unless $size;
-
- # initialise various counters, flags, etc.
- @$self{ qw( SIZE MAX INDEX COUNT FIRST LAST ) }
- = ( $size, $size - 1, $index, 1, 1, $size > 1 ? 0 : 1, undef );
- @$self{ qw( PREV NEXT ) } = ( undef, $self->{ _DATASET }->[ $index + 1 ]);
-
- return $self->{ _DATASET }->[ $index ];
-}
-
-
-
-#------------------------------------------------------------------------
-# get_next()
-#
-# Called repeatedly to access successive elements in the data set.
-# Should only be called after calling get_first() or a warning will
-# be raised and (undef, STATUS_DONE) returned.
-#------------------------------------------------------------------------
-
-sub get_next {
- my $self = shift;
- my ($max, $index) = @$self{ qw( MAX INDEX ) };
- my $data = $self->{ _DATASET };
-
- # warn about incorrect usage
- unless (defined $index) {
- my ($pack, $file, $line) = caller();
- warn("iterator get_next() called before get_first() at $file line $line\n");
- return (undef, Template::Constants::STATUS_DONE); ## RETURN ##
- }
-
- # if there's still some data to go...
- if ($index < $max) {
- # update counters and flags
- $index++;
- @$self{ qw( INDEX COUNT FIRST LAST ) }
- = ( $index, $index + 1, 0, $index == $max ? 1 : 0 );
- @$self{ qw( PREV NEXT ) } = @$data[ $index - 1, $index + 1 ];
- return $data->[ $index ]; ## RETURN ##
- }
- else {
- return (undef, Template::Constants::STATUS_DONE); ## RETURN ##
- }
-}
-
-
-#------------------------------------------------------------------------
-# get_all()
-#
-# Method which returns all remaining items in the iterator as a Perl list
-# reference. May be called at any time in the life-cycle of the iterator.
-# The get_first() method will be called automatically if necessary, and
-# then subsequent get_next() calls are made, storing each returned
-# result until the list is exhausted.
-#------------------------------------------------------------------------
-
-sub get_all {
- my $self = shift;
- my ($max, $index) = @$self{ qw( MAX INDEX ) };
- my @data;
-
- # handle cases where get_first() has yet to be called.
- unless (defined $index) {
- my ($first, $status) = $self->get_first;
-
- # refresh $max and $index, after get_first updates MAX and INDEX
- ($max, $index) = @$self{ qw( MAX INDEX ) };
-
- # empty lists are handled here.
- if ($status && $status == Template::Constants::STATUS_DONE) {
- return (undef, Template::Constants::STATUS_DONE); ## RETURN ##
- }
-
- push @data, $first;
-
- ## if there's nothing left in the iterator, return the single value.
- unless ($index < $max) {
- return \@data;
- }
- }
-
- # if there's still some data to go...
- if ($index < $max) {
- $index++;
- push @data, @{ $self->{ _DATASET } } [ $index..$max ];
-
- # update counters and flags
- @$self{ qw( INDEX COUNT FIRST LAST ) }
- = ( $max, $max + 1, 0, 1 );
-
- return \@data; ## RETURN ##
- }
- else {
- return (undef, Template::Constants::STATUS_DONE); ## RETURN ##
- }
-}
-
-sub odd {
- shift->{ COUNT } % 2 ? 1 : 0
-}
-
-sub even {
- shift->{ COUNT } % 2 ? 0 : 1
-}
-
-sub parity {
- shift->{ COUNT } % 2 ? ODD : EVEN;
-}
-
-
-#------------------------------------------------------------------------
-# AUTOLOAD
-#
-# Provides access to internal fields (e.g. size, first, last, max, etc)
-#------------------------------------------------------------------------
-
-sub AUTOLOAD {
- my $self = shift;
- my $item = $AUTOLOAD;
- $item =~ s/.*:://;
- return if $item eq 'DESTROY';
-
- # alias NUMBER to COUNT for backwards compatability
- $item = 'COUNT' if $item =~ /NUMBER/i;
-
- return $self->{ uc $item };
-}
-
-
-#========================================================================
-# ----- PRIVATE DEBUG METHODS -----
-#========================================================================
-
-#------------------------------------------------------------------------
-# _dump()
-#
-# Debug method which returns a string detailing the internal state of
-# the iterator object.
-#------------------------------------------------------------------------
-
-sub _dump {
- my $self = shift;
- join('',
- " Data: ", $self->{ _DATA }, "\n",
- " Index: ", $self->{ INDEX }, "\n",
- "Number: ", $self->{ NUMBER }, "\n",
- " Max: ", $self->{ MAX }, "\n",
- " Size: ", $self->{ SIZE }, "\n",
- " First: ", $self->{ FIRST }, "\n",
- " Last: ", $self->{ LAST }, "\n",
- "\n"
- );
-}
-
-
-1;
-
-__END__
-
-=head1 NAME
-
-Template::Iterator - Data iterator used by the FOREACH directive
-
-=head1 SYNOPSIS
-
- my $iter = Template::Iterator->new(\@data, \%options);
-
-=head1 DESCRIPTION
-
-The C<Template::Iterator> module defines a generic data iterator for use
-by the C<FOREACH> directive.
-
-It may be used as the base class for custom iterators.
-
-=head1 PUBLIC METHODS
-
-=head2 new($data)
-
-Constructor method. A reference to a list of values is passed as the
-first parameter. Subsequent calls to L<get_first()> and L<get_next()> calls
-will return each element from the list.
-
- my $iter = Template::Iterator->new([ 'foo', 'bar', 'baz' ]);
-
-The constructor will also accept a reference to a hash array and will
-expand it into a list in which each entry is a hash array containing
-a 'C<key>' and 'C<value>' item, sorted according to the hash keys.
-
- my $iter = Template::Iterator->new({
- foo => 'Foo Item',
- bar => 'Bar Item',
- });
-
-This is equivalent to:
-
- my $iter = Template::Iterator->new([
- { key => 'bar', value => 'Bar Item' },
- { key => 'foo', value => 'Foo Item' },
- ]);
-
-When passed a single item which is not an array reference, the constructor
-will automatically create a list containing that single item.
-
- my $iter = Template::Iterator->new('foo');
-
-This is equivalent to:
-
- my $iter = Template::Iterator->new([ 'foo' ]);
-
-Note that a single item which is an object based on a blessed ARRAY
-references will NOT be treated as an array and will be folded into
-a list containing that one object reference.
-
- my $list = bless [ 'foo', 'bar' ], 'MyListClass';
- my $iter = Template::Iterator->new($list);
-
-equivalent to:
-
- my $iter = Template::Iterator->new([ $list ]);
-
-If the object provides an C<as_list()> method then the L<Template::Iterator>
-constructor will call that method to return the list of data. For example:
-
- package MyListObject;
-
- sub new {
- my $class = shift;
- bless [ @_ ], $class;
- }
-
- package main;
-
- my $list = MyListObject->new('foo', 'bar');
- my $iter = Template::Iterator->new($list);
-
-This is then functionally equivalent to:
-
- my $iter = Template::Iterator->new([ $list ]);
-
-The iterator will return only one item, a reference to the C<MyListObject>
-object, C<$list>.
-
-By adding an C<as_list()> method to the C<MyListObject> class, we can force
-the C<Template::Iterator> constructor to treat the object as a list and
-use the data contained within.
-
- package MyListObject;
-
- ...
-
- sub as_list {
- my $self = shift;
- return $self;
- }
-
- package main;
-
- my $list = MyListObject->new('foo', 'bar');
- my $iter = Template::Iterator->new($list);
-
-The iterator will now return the two items, 'C<foo>' and 'C<bar>', which the
-C<MyObjectList> encapsulates.
-
-=head2 get_first()
-
-Returns a C<($value, $error)> pair for the first item in the iterator set.
-The C<$error> returned may be zero or undefined to indicate a valid datum
-was successfully returned. Returns an error of C<STATUS_DONE> if the list
-is empty.
-
-=head2 get_next()
-
-Returns a C<($value, $error)> pair for the next item in the iterator set.
-Returns an error of C<STATUS_DONE> if all items in the list have been
-visited.
-
-=head2 get_all()
-
-Returns a C<(\@values, $error)> pair for all remaining items in the iterator
-set. Returns an error of C<STATUS_DONE> if all items in the list have been
-visited.
-
-=head2 size()
-
-Returns the size of the data set or undef if unknown.
-
-=head2 max()
-
-Returns the maximum index number (i.e. the index of the last element)
-which is equivalent to L<size()> - C<1>.
-
-=head2 index()
-
-Returns the current index number which is in the range C<0> to L<max()>.
-
-=head2 count()
-
-Returns the current iteration count in the range C<1> to L<size()>. This is
-equivalent to L<index()> + C<1>.
-
-=head2 first()
-
-Returns a boolean value to indicate if the iterator is currently on
-the first iteration of the set.
-
-=head2 last()
-
-Returns a boolean value to indicate if the iterator is currently on
-the last iteration of the set.
-
-=head2 prev()
-
-Returns the previous item in the data set, or C<undef> if the iterator is
-on the first item.
-
-=head2 next()
-
-Returns the next item in the data set or C<undef> if the iterator is on the
-last item.
-
-=head2 parity()
-
-Returns the text string C<even> or C<odd> to indicate the parity of the
-current iteration count (starting at 1). This is typically used to create
-striped I<zebra tables>.
-
- <table>
- [% FOREACH name IN ['Arthur', 'Ford', 'Trillian'] -%]
- <tr class="[% loop.parity %]">
- <td>[% name %]</td>
- </tr>
- [% END %]
- </table>
-
-This will produce the following output:
-
- <table>
- <tr class="odd">
- <td>Arthur</td>
- </tr>
- <tr class="even">
- <td>Ford</td>
- </tr>
- <tr class="odd">
- <td>Trillian</td>
- </tr>
- </table>
-
-You can then style the C<tr.odd> and C<tr.even> elements using CSS:
-
- tr.odd td {
- background-color: black;
- color: white;
- }
-
- tr.even td {
- background-color: white;
- color: black;
- }
-
-=head2 odd()
-
-Returns a boolean (0/1) value to indicate if the current iterator count
-(starting at 1) is an odd number. In other words, this will return a true
-value for the first iterator, the third, fifth, and so on.
-
-=head2 even()
-
-Returns a boolean (0/1) value to indicate if the current iterator count
-(starting at 1) is an even number. In other words, this will return a true
-value for the second iteration, the fourth, sixth, and so on.
-
-=head1 AUTHOR
-
-Andy Wardley E<lt>abw at wardley.orgE<gt> L<http://wardley.org/>
-
-=head1 COPYRIGHT
-
-Copyright (C) 1996-2007 Andy Wardley. 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<Template>
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual.pod b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual.pod
deleted file mode 100644
index 3ab4468..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual.pod
+++ /dev/null
@@ -1,91 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# Template::Manual
-#
-# DESCRIPTION
-# Front-page for the TT manual.
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#========================================================================
-
-=head1 NAME
-
-Template::Manual - Template Toolkit User Manual
-
-=head1 Template Toolkit Manual
-
-The Template Toolkit manual contains documentation on using and extending
-the Template Toolkit.
-
-=head2 Template::Manual::Intro
-
-The L<Template::Manual::Intro> page provides an introduction to the Template Toolkit
-
-=head2 Template::Manual::Syntax
-
-The L<Template::Manual::Syntax> desribes the syntax and structure of
-templates and the directive tags embedded within them.
-
-=head2 Template::Manual::Directives
-
-The L<Template::Manual::Directives> page lists all the Template Toolkit
-directives and gives examples of their use.
-
-=head2 Template::Manual::Variables
-
-The L<Template::Manual::Variables> page describes the use of variables
-in templates.
-
-=head2 Template::Manual::VMethods
-
-The L<Template::Manual::VMethods> page provides a full list of virtual
-methods that can be used in conjunction with variables, and gives examples
-of their use.
-
-=head2 Template::Manual::Config
-
-The L<Template::Manual::Config> page describes all of the Template Toolkit
-configuration options.
-
-=head2 Template::Manual::Filters
-
-The L<Template::Manual::Filters> page lists all of the Template Toolkit
-filters and gives examples of their use.
-
-=head2 Template::Manual::Plugins
-
-The L<Template::Manual::Plugins> page lists all of the standard plugins
-distributed with Template Toolkit and gives examples of their use.
-
-=head2 Template::Manual::Internals
-
-The L<Template::Manual::Internals> page describes the internal workings of the
-Template Toolkit. It is aimed at developers who wish to extend or modify the
-
-=head2 Template::Manual::Views
-
-The L<Template::Manual::Views> page describes the experimental C<VIEW>
-directive.
-
-=head2 Template::Manual::Credits
-
-The L<Template::Manual::Credits> page lists the people who have contributed to
-the Template Toolkit.
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Config.pod b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Config.pod
deleted file mode 100644
index 21e1aac..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Config.pod
+++ /dev/null
@@ -1,1874 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# Template::Manual::Config
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#========================================================================
-
-=head1 NAME
-
-Template::Manual::Config - Configuration options
-
-=head1 Template Style and Parsing Options
-
-=head2 START_TAG, END_TAG
-
-The C<START_TAG> and C<END_TAG> options are used to specify character
-sequences or regular expressions that mark the start and end of a
-template directive. The default values for C<START_TAG> and C<END_TAG> are
-'C<[%>' and 'C<%]>' respectively, giving us the familiar directive style:
-
- [% example %]
-
-Any Perl regex characters can be used and therefore should be escaped
-(or use the Perl C<quotemeta> function) if they are intended to
-represent literal characters.
-
- my $template = Template->new({
- START_TAG => quotemeta('<+'),
- END_TAG => quotemeta('+>'),
- });
-
-Example:
-
- <+ INCLUDE foobar +>
-
-The C<TAGS> directive can also be used to set the C<START_TAG> and C<END_TAG> values
-on a per-template file basis.
-
- [% TAGS <+ +> %]
-
-=head2 TAG_STYLE
-
-The C<TAG_STYLE> option can be used to set both C<START_TAG> and C<END_TAG>
-according to pre-defined tag styles.
-
- my $template = Template->new({
- TAG_STYLE => 'star',
- });
-
-Available styles are:
-
- template [% ... %] (default)
- template1 [% ... %] or %% ... %% (TT version 1)
- metatext %% ... %% (Text::MetaText)
- star [* ... *] (TT alternate)
- php <? ... ?> (PHP)
- asp <% ... %> (ASP)
- mason <% ... > (HTML::Mason)
- html <!-- ... --> (HTML comments)
-
-Any values specified for C<START_TAG> and/or C<END_TAG> will override
-those defined by a C<TAG_STYLE>.
-
-The C<TAGS> directive may also be used to set a C<TAG_STYLE>
-
- [% TAGS html %]
- <!-- INCLUDE header -->
-
-=head2 PRE_CHOMP, POST_CHOMP
-
-Anything outside a directive tag is considered plain text and is
-generally passed through unaltered (but see the L<INTERPOLATE> option).
-This includes all whitespace and newlines characters surrounding
-directive tags. Directives that don't generate any output will leave
-gaps in the output document.
-
-Example:
-
- Foo
- [% a = 10 %]
- Bar
-
-Output:
-
- Foo
-
- Bar
-
-The C<PRE_CHOMP> and C<POST_CHOMP> options can help to clean up some of this
-extraneous whitespace. Both are disabled by default.
-
- my $template = Template-E<gt>new({
- PRE_CHOMP => 1,
- POST_CHOMP => 1,
- });
-
-With C<PRE_CHOMP> set to C<1>, the newline and whitespace preceding a directive
-at the start of a line will be deleted. This has the effect of
-concatenating a line that starts with a directive onto the end of the
-previous line.
-
- Foo <----------.
- |
- ,---(PRE_CHOMP)----'
- |
- `-- [% a = 10 %] --.
- |
- ,---(POST_CHOMP)---'
- |
- `-> Bar
-
-With C<POST_CHOMP> set to C<1>, any whitespace after a directive up to and
-including the newline will be deleted. This has the effect of joining
-a line that ends with a directive onto the start of the next line.
-
-If C<PRE_CHOMP> or C<POST_CHOMP> is set to C<2>, all whitespace including any
-number of newline will be removed and replaced with a single space.
-This is useful for HTML, where (usually) a contiguous block of
-whitespace is rendered the same as a single space.
-
-With C<PRE_CHOMP> or C<POST_CHOMP> set to C<3>, all adjacent whitespace
-(including newlines) will be removed entirely.
-
-These values are defined as C<CHOMP_NONE>, C<CHOMP_ONE>, C<CHOMP_COLLAPSE> and
-C<CHOMP_GREEDY> constants in the L<Template::Constants> module. C<CHOMP_ALL>
-is also defined as an alias for C<CHOMP_ONE> to provide backwards
-compatability with earlier version of the Template Toolkit.
-
-Additionally the chomp tag modifiers listed below may also be used for
-the C<PRE_CHOMP> and C<POST_CHOMP> configuration.
-
- my $template = Template->new({
- PRE_CHOMP => '~',
- POST_CHOMP => '-',
- });
-
-C<PRE_CHOMP> and C<POST_CHOMP> can be activated for individual directives by
-placing a 'C<->' immediately at the start and/or end of the directive.
-
- [% FOREACH user IN userlist %]
- [%- user -%]
- [% END %]
-
-This has the same effect as C<CHOMP_ONE> in removing all whitespace
-before or after the directive up to and including the newline. The
-template will be processed as if written:
-
- [% FOREACH user IN userlist %][% user %][% END %]
-
-To remove all whitespace including any number of newlines, use the 'C<~>'
-character instead.
-
- [% FOREACH user IN userlist %]
-
- [%~ user ~%]
-
- [% END %]
-
-To collapse all whitespace to a single space, use the 'C<=>' character.
-
- [% FOREACH user IN userlist %]
-
- [%= user =%]
-
- [% END %]
-
-Here the template is processed as if written:
-
- [% FOREACH user IN userlist %] [% user %] [% END %]
-
-If you have C<PRE_CHOMP> or C<POST_CHOMP> set as configuration options then
-you can use 'C<+>' to disable any chomping options (i.e. leave the
-whitespace intact) on a per-directive basis.
-
- [% FOREACH user IN userlist %]
- User: [% user +%]
- [% END %]
-
-With C<POST_CHOMP> set to C<CHOMP_ONE>, the above example would be parsed as
-if written:
-
- [% FOREACH user IN userlist %]User: [% user %]
- [% END %]
-
-For reference, the C<PRE_CHOMP> and C<POST_CHOMP> configuration options may be
-set to any of the following:
-
- Constant Value Tag Modifier
- ----------------------------------
- CHOMP_NONE 0 +
- CHOMP_ONE 1 -
- CHOMP_COLLAPSE 2 =
- CHOMP_GREEDY 3 ~
-
-=head2 TRIM
-
-The C<TRIM> option can be set to have any leading and trailing whitespace
-automatically removed from the output of all template files and C<BLOCK>s.
-
-By example, the following C<BLOCK> definition
-
- [% BLOCK foo %]
- Line 1 of foo
- [% END %]
-
-will be processed is as "C<\nLine 1 of foo\n>". When C<INCLUDE>d, the surrounding
-newlines will also be introduced.
-
- before
- [% INCLUDE foo %]
- after
-
-Generated output:
-
- before
-
- Line 1 of foo
-
- after
-
-With the C<TRIM> option set to any true value, the leading and trailing
-newlines (which count as whitespace) will be removed from the output
-of the C<BLOCK>.
-
- before
- Line 1 of foo
- after
-
-The C<TRIM> option is disabled (C<0>) by default.
-
-=head2 INTERPOLATE
-
-The C<INTERPOLATE> flag, when set to any true value will cause variable
-references in plain text (i.e. not surrounded by C<START_TAG> and C<END_TAG>)
-to be recognised and interpolated accordingly.
-
- my $template = Template->new({
- INTERPOLATE => 1,
- });
-
-Variables should be prefixed by a 'C<$>' to identify them. Curly braces
-can be used in the familiar Perl/shell style to explicitly scope the
-variable name where required.
-
- # INTERPOLATE => 0
- <a href="http://[% server %]/[% help %]">
- <img src="[% images %]/help.gif"></a>
- [% myorg.name %]
-
- # INTERPOLATE => 1
- <a href="http://$server/$help">
- <img src="$images/help.gif"></a>
- $myorg.name
-
- # explicit scoping with { }
- <img src="$images/${icon.next}.gif">
-
-Note that a limitation in Perl's regex engine restricts the maximum length
-of an interpolated template to around 32 kilobytes or possibly less. Files
-that exceed this limit in size will typically cause Perl to dump core with
-a segmentation fault. If you routinely process templates of this size
-then you should disable C<INTERPOLATE> or split the templates in several
-smaller files or blocks which can then be joined backed together via
-C<PROCESS> or C<INCLUDE>.
-
-=head2 ANYCASE
-
-By default, directive keywords should be expressed in UPPER CASE. The
-C<ANYCASE> option can be set to allow directive keywords to be specified
-in any case.
-
- # ANYCASE => 0 (default)
- [% INCLUDE foobar %] # OK
- [% include foobar %] # ERROR
- [% include = 10 %] # OK, 'include' is a variable
-
- # ANYCASE => 1
- [% INCLUDE foobar %] # OK
- [% include foobar %] # OK
- [% include = 10 %] # ERROR, 'include' is reserved word
-
-One side-effect of enabling C<ANYCASE> is that you cannot use a variable
-of the same name as a reserved word, regardless of case. The reserved
-words are currently:
-
- GET CALL SET DEFAULT INSERT INCLUDE PROCESS WRAPPER
- IF UNLESS ELSE ELSIF FOR FOREACH WHILE SWITCH CASE
- USE PLUGIN FILTER MACRO PERL RAWPERL BLOCK META
- TRY THROW CATCH FINAL NEXT LAST BREAK RETURN STOP
- CLEAR TO STEP AND OR NOT MOD DIV END
-
-The only lower case reserved words that cannot be used for variables,
-regardless of the C<ANYCASE> option, are the operators:
-
- and or not mod div
-
-=head1 Template Files and Blocks
-
-=head2 INCLUDE_PATH
-
-The C<INCLUDE_PATH> is used to specify one or more directories in which
-template files are located. When a template is requested that isn't
-defined locally as a C<BLOCK>, each of the C<INCLUDE_PATH> directories is
-searched in turn to locate the template file. Multiple directories
-can be specified as a reference to a list or as a single string where
-each directory is delimited by 'C<:>'.
-
- my $template = Template->new({
- INCLUDE_PATH => '/usr/local/templates',
- });
-
- my $template = Template->new({
- INCLUDE_PATH => '/usr/local/templates:/tmp/my/templates',
- });
-
- my $template = Template->new({
- INCLUDE_PATH => [ '/usr/local/templates',
- '/tmp/my/templates' ],
- });
-
-On Win32 systems, a little extra magic is invoked, ignoring delimiters
-that have 'C<:>' followed by a 'C</>' or 'C<\>'. This avoids confusion when using
-directory names like 'C<C:\Blah Blah>'.
-
-When specified as a list, the C<INCLUDE_PATH> path can contain elements
-which dynamically generate a list of C<INCLUDE_PATH> directories. These
-generator elements can be specified as a reference to a subroutine or
-an object which implements a C<paths()> method.
-
- my $template = Template->new({
- INCLUDE_PATH => [ '/usr/local/templates',
- \&incpath_generator,
- My::IncPath::Generator->new( ... ) ],
- });
-
-Each time a template is requested and the C<INCLUDE_PATH> examined, the
-subroutine or object method will be called. A reference to a list of
-directories should be returned. Generator subroutines should report
-errors using C<die()>. Generator objects should return undef and make an
-error available via its C<error()> method.
-
-For example:
-
- sub incpath_generator {
- # ...some code...
-
- if ($all_is_well) {
- return \@list_of_directories;
- }
- else {
- die "cannot generate INCLUDE_PATH...\n";
- }
- }
-
-or:
-
- package My::IncPath::Generator;
-
- # Template::Base (or Class::Base) provides error() method
- use Template::Base;
- use base qw( Template::Base );
-
- sub paths {
- my $self = shift;
-
- # ...some code...
-
- if ($all_is_well) {
- return \@list_of_directories;
- }
- else {
- return $self->error("cannot generate INCLUDE_PATH...\n");
- }
- }
-
- 1;
-
-=head2 DELIMITER
-
-Used to provide an alternative delimiter character sequence for
-separating paths specified in the C<INCLUDE_PATH>. The default
-value for C<DELIMITER> is 'C<:>'.
-
- my $template = Template->new({
- DELIMITER => '; ',
- INCLUDE_PATH => 'C:/HERE/NOW; D:/THERE/THEN',
- });
-
-On Win32 systems, the default delimiter is a little more intelligent,
-splitting paths only on 'C<:>' characters that aren't followed by a 'C</>'.
-This means that the following should work as planned, splitting the
-C<INCLUDE_PATH> into 2 separate directories, C<C:/foo> and C<C:/bar>.
-
- # on Win32 only
- my $template = Template->new({
- INCLUDE_PATH => 'C:/Foo:C:/Bar'
- });
-
-However, if you're using Win32 then it's recommended that you
-explicitly set the C<DELIMITER> character to something else (e.g. 'C<;>')
-rather than rely on this subtle magic.
-
-=head2 ABSOLUTE
-
-The C<ABSOLUTE> flag is used to indicate if templates specified with
-absolute filenames (e.g. 'C</foo/bar>') should be processed. It is
-disabled by default and any attempt to load a template by such a
-name will cause a 'C<file>' exception to be raised.
-
- my $template = Template->new({
- ABSOLUTE => 1,
- });
-
- # this is why it's disabled by default
- [% INSERT /etc/passwd %]
-
-On Win32 systems, the regular expression for matching absolute
-pathnames is tweaked slightly to also detect filenames that start
-with a driver letter and colon, such as:
-
- C:/Foo/Bar
-
-=head2 RELATIVE
-
-The C<RELATIVE> flag is used to indicate if templates specified with
-filenames relative to the current directory (e.g. 'C<./foo/bar>' or
-'C<../../some/where/else>') should be loaded. It is also disabled by
-default, and will raise a 'C<file>' error if such template names are
-encountered.
-
- my $template = Template->new({
- RELATIVE => 1,
- });
-
- [% INCLUDE ../logs/error.log %]
-
-=head2 DEFAULT
-
-The C<DEFAULT> option can be used to specify a default template which should
-be used whenever a specified template can't be found in the C<INCLUDE_PATH>.
-
- my $template = Template->new({
- DEFAULT => 'notfound.html',
- });
-
-If a non-existant template is requested through the Template
-L<process()|Template#process()> method, or by an C<INCLUDE>, C<PROCESS> or
-C<WRAPPER> directive, then the C<DEFAULT> template will instead be processed, if
-defined. Note that the C<DEFAULT> template is not used when templates are
-specified with absolute or relative filenames, or as a reference to a input
-file handle or text string.
-
-=head2 BLOCKS
-
-The C<BLOCKS> option can be used to pre-define a default set of template
-blocks. These should be specified as a reference to a hash array
-mapping template names to template text, subroutines or L<Template::Document>
-objects.
-
- my $template = Template->new({
- BLOCKS => {
- header => 'The Header. [% title %]',
- footer => sub { return $some_output_text },
- another => Template::Document->new({ ... }),
- },
- });
-
-=head2 VIEWS
-
-The VIEWS option can be used to define one or more L<Template::View>
-objects. They can be specified as a reference to a hash array or list
-reference.
-
- my $template = Template->new({
- VIEWS => {
- my_view => { prefix => 'my_templates/' },
- },
- });
-
-Be aware of the fact that Perl's hash array are unordered, so if you want to
-specify multiple views of which one or more are based on other views, then
-you should use a list reference to preserve the order of definition.
-
- my $template = Template->new({
- VIEWS => [
- bottom => { prefix => 'bottom/' },
- middle => { prefix => 'middle/', base => 'bottom' },
- top => { prefix => 'top/', base => 'middle' },
- ],
- });
-
-=head2 AUTO_RESET
-
-The C<AUTO_RESET> option is set by default and causes the local C<BLOCKS>
-cache for the L<Template::Context> object to be reset on each call to the
-Template L<process()|Template#process()> method. This ensures that any C<BLOCK>s
-defined within a template will only persist until that template is finished
-processing. This prevents C<BLOCK>s defined in one processing request from
-interfering with other independent requests subsequently processed by the same
-context object.
-
-The C<BLOCKS> item may be used to specify a default set of block definitions
-for the L<Template::Context> object. Subsequent C<BLOCK> definitions in
-templates will over-ride these but they will be reinstated on each reset if
-C<AUTO_RESET> is enabled (default), or if the L<Template::Context>
-L<reset()|Template::Context#reset()> method is called.
-
-=head2 RECURSION
-
-The template processor will raise a file exception if it detects
-direct or indirect recursion into a template. Setting this option to
-any true value will allow templates to include each other recursively.
-
-=head1 Template Variables
-
-=head2 VARIABLES
-
-The C<VARIABLES> option (or C<PRE_DEFINE> - they're equivalent) can be used
-to specify a hash array of template variables that should be used to
-pre-initialise the stash when it is created. These items are ignored
-if the C<STASH> item is defined.
-
- my $template = Template->new({
- VARIABLES => {
- title => 'A Demo Page',
- author => 'Joe Random Hacker',
- version => 3.14,
- },
- };
-
-or
-
- my $template = Template->new({
- PRE_DEFINE => {
- title => 'A Demo Page',
- author => 'Joe Random Hacker',
- version => 3.14,
- },
- };
-
-=head2 CONSTANTS
-
-The C<CONSTANTS> option can be used to specify a hash array of template
-variables that are compile-time constants. These variables are
-resolved once when the template is compiled, and thus don't require
-further resolution at runtime. This results in significantly faster
-processing of the compiled templates and can be used for variables that
-don't change from one request to the next.
-
- my $template = Template->new({
- CONSTANTS => {
- title => 'A Demo Page',
- author => 'Joe Random Hacker',
- version => 3.14,
- },
- };
-
-=head2 CONSTANT_NAMESPACE
-
-Constant variables are accessed via the C<constants> namespace by
-default.
-
- [% constants.title %]
-
-The C<CONSTANTS_NAMESPACE> option can be set to specify an alternate
-namespace.
-
- my $template = Template->new({
- CONSTANTS => {
- title => 'A Demo Page',
- # ...etc...
- },
- CONSTANTS_NAMESPACE => 'const',
- };
-
-In this case the constants would then be accessed as:
-
- [% const.title %]
-
-=head2 NAMESPACE
-
-The constant folding mechanism described above is an example of a
-namespace handler. Namespace handlers can be defined to provide
-alternate parsing mechanisms for variables in different namespaces.
-
-Under the hood, the L<Template> module converts a constructor configuration
-such as:
-
- my $template = Template->new({
- CONSTANTS => {
- title => 'A Demo Page',
- # ...etc...
- },
- CONSTANTS_NAMESPACE => 'const',
- };
-
-into one like:
-
- my $template = Template->new({
- NAMESPACE => {
- const => Template:::Namespace::Constants->new({
- title => 'A Demo Page',
- # ...etc...
- }),
- },
- };
-
-You can use this mechanism to define multiple constant namespaces, or
-to install custom handlers of your own.
-
- my $template = Template->new({
- NAMESPACE => {
- site => Template:::Namespace::Constants->new({
- title => "Wardley's Widgets",
- version => 2.718,
- }),
- author => Template:::Namespace::Constants->new({
- name => 'Andy Wardley',
- email => 'abw at andywardley.com',
- }),
- voodoo => My::Namespace::Handler->new( ... ),
- },
- };
-
-Now you have two constant namespaces, for example:
-
- [% site.title %]
- [% author.name %]
-
-as well as your own custom namespace handler installed for the 'voodoo'
-namespace.
-
- [% voodoo.magic %]
-
-See L<Template::Namespace::Constants>
-for an example of what a namespace handler looks like on the inside.
-
-=head1 Template Processing Options
-
-The following options are used to specify any additional templates that should
-be processed before, after, around or instead of the template passed as the
-first argument to the L<Template> L<process()|Template#process()> method.
-These options can be perform various useful tasks such as adding standard
-headers or footers to all pages, wrapping page output in other templates,
-pre-defining variables or performing initialisation or cleanup tasks,
-automatically generating page summary information, navigation elements, and so
-on.
-
-The task of processing the template is delegated internally to the
-L<Template::Service> module which, unsurprisingly, also has a
-L<process()|Template::Service#process()> method. Any templates defined by the
-C<PRE_PROCESS> option are processed first and any output generated is added to
-the output buffer. Then the main template is processed, or if one or more
-C<PROCESS> templates are defined then they are instead processed in turn. In this
-case, one of the C<PROCESS> templates is responsible for processing the main
-template, by a directive such as:
-
- [% PROCESS $template %]
-
-The output of processing the main template or the C<PROCESS> template(s)
-is then wrapped in any C<WRAPPER> templates, if defined. C<WRAPPER>
-templates don't need to worry about explicitly processing the template
-because it will have been done for them already. Instead C<WRAPPER>
-templates access the content they are wrapping via the C<content>
-variable.
-
- wrapper before
- [% content %]
- wrapper after
-
-This output generated from processing the main template, and/or any
-C<PROCESS> or C<WRAPPER> templates is added to the output buffer. Finally,
-any C<POST_PROCESS> templates are processed and their output is also
-added to the output buffer which is then returned.
-
-If the main template throws an exception during processing then any relevant
-template(s) defined via the C<ERROR> option will be processed instead. If
-defined and successfully processed, the output from the error template will be
-added to the output buffer in place of the template that generated the error
-and processing will continue, applying any C<WRAPPER> and C<POST_PROCESS>
-templates. If no relevant C<ERROR> option is defined, or if the error occurs
-in one of the C<PRE_PROCESS>, C<WRAPPER> or C<POST_PROCESS> templates, then
-the process will terminate immediately and the error will be returned.
-
-=head2 PRE_PROCESS, POST_PROCESS
-
-These values may be set to contain the name(s) of template files
-(relative to C<INCLUDE_PATH>) which should be processed immediately
-before and/or after each template. These do not get added to
-templates processed into a document via directives such as C<INCLUDE>,
-C<PROCESS>, C<WRAPPER> etc.
-
- my $template = Template->new({
- PRE_PROCESS => 'header',
- POST_PROCESS => 'footer',
- };
-
-Multiple templates may be specified as a reference to a list. Each is
-processed in the order defined.
-
- my $template = Template->new({
- PRE_PROCESS => [ 'config', 'header' ],
- POST_PROCESS => 'footer',
- };
-
-Alternately, multiple template may be specified as a single string,
-delimited by 'C<:>'. This delimiter string can be changed via the
-C<DELIMITER> option.
-
- my $template = Template->new({
- PRE_PROCESS => 'config:header',
- POST_PROCESS => 'footer',
- };
-
-The C<PRE_PROCESS> and C<POST_PROCESS> templates are evaluated in the same
-variable context as the main document and may define or update
-variables for subsequent use.
-
-config:
-
- [% # set some site-wide variables
- bgcolor = '#ffffff'
- version = 2.718
- %]
-
-header:
-
- [% DEFAULT title = 'My Funky Web Site' %]
- <html>
- <head>
- <title>[% title %]</title>
- </head>
- <body bgcolor="[% bgcolor %]">
-
-footer:
-
- <hr>
- Version [% version %]
- </body>
- </html>
-
-The L<Template::Document> object representing the main template being processed
-is available within C<PRE_PROCESS> and C<POST_PROCESS> templates as the C<template>
-variable. Metadata items defined via the C<META> directive may be accessed
-accordingly.
-
- $template->process('mydoc.html', $vars);
-
-mydoc.html:
-
- [% META title = 'My Document Title' %]
- blah blah blah
- ...
-
-header:
-
- <html>
- <head>
- <title>[% template.title %]</title>
- </head>
- <body bgcolor="[% bgcolor %]">
-
-=head2 PROCESS
-
-The C<PROCESS> option may be set to contain the name(s) of template files
-(relative to C<INCLUDE_PATH>) which should be processed instead of the main
-template passed to the L<Template> L<process()|Template#process()> method.
-This can be used to apply consistent wrappers around all templates, similar to
-the use of C<PRE_PROCESS> and C<POST_PROCESS> templates.
-
- my $template = Template->new({
- PROCESS => 'content',
- };
-
- # processes 'content' instead of 'foo.html'
- $template->process('foo.html');
-
-A reference to the original template is available in the C<template>
-variable. Metadata items can be inspected and the template can be
-processed by specifying it as a variable reference (i.e. prefixed by
-C<$>) to an C<INCLUDE>, C<PROCESS> or C<WRAPPER> directive.
-
-content:
-
- <html>
- <head>
- <title>[% template.title %]</title>
- </head>
- <body>
- <!-- begin content -->
- [% PROCESS $template %]
- <!-- end content -->
- <hr>
- © Copyright [% template.copyright %]
- </body>
- </html>
-
-foo.html:
-
- [% META
- title = 'The Foo Page'
- author = 'Fred Foo'
- copyright = '2000 Fred Foo'
- %]
- <h1>[% template.title %]</h1>
- Welcome to the Foo Page, blah blah blah
-
-output:
-
- <html>
- <head>
- <title>The Foo Page</title>
- </head>
- <body>
- <!-- begin content -->
- <h1>The Foo Page</h1>
- Welcome to the Foo Page, blah blah blah
- <!-- end content -->
- <hr>
- © Copyright 2000 Fred Foo
- </body>
- </html>
-
-=head2 WRAPPER
-
-The C<WRAPPER> option can be used to specify one or more templates which
-should be used to wrap around the output of the main page template.
-The main template is processed first (or any C<PROCESS> template(s)) and
-the output generated is then passed as the C<content> variable to the
-C<WRAPPER> template(s) as they are processed.
-
- my $template = Template->new({
- WRAPPER => 'wrapper',
- };
-
- # process 'foo' then wrap in 'wrapper'
- $template->process('foo', { message => 'Hello World!' });
-
-wrapper:
-
- <wrapper>
- [% content %]
- </wrapper>
-
-foo:
-
- This is the foo file!
- Message: [% message %]
-
-The output generated from this example is:
-
- <wrapper>
- This is the foo file!
- Message: Hello World!
- </wrapper>
-
-You can specify more than one C<WRAPPER> template by setting the value to
-be a reference to a list of templates. The C<WRAPPER> templates will be
-processed in reverse order with the output of each being passed to the
-next (or previous, depending on how you look at it) as the 'content'
-variable. It sounds complicated, but the end result is that it just
-"Does The Right Thing" to make wrapper templates nest in the order you
-specify.
-
- my $template = Template->new({
- WRAPPER => [ 'outer', 'inner' ],
- };
-
- # process 'foo' then wrap in 'inner', then in 'outer'
- $template->process('foo', { message => 'Hello World!' });
-
-outer:
-
- <outer>
- [% content %]
- </outer>
-
-inner:
-
- <inner>
- [% content %]
- </inner>
-
-The output generated is then:
-
- <outer>
- <inner>
- This is the foo file!
- Message: Hello World!
- </inner>
- </outer>
-
-One side-effect of the "inside-out" processing of the C<WRAPPER>
-configuration item (and also the C<WRAPPER> directive) is that any
-variables set in the template being wrapped will be visible to the
-template doing the wrapping, but not the other way around.
-
-You can use this to good effect in allowing page templates to set
-pre-defined values which are then used in the wrapper templates. For
-example, our main page template 'foo' might look like this:
-
-foo:
-
- [% page = {
- title = 'Foo Page'
- subtitle = 'Everything There is to Know About Foo'
- author = 'Frank Oliver Octagon'
- }
- %]
-
- <p>
- Welcome to the page that tells you everything about foo
- blah blah blah...
- </p>
-
-The C<foo> template is processed before the wrapper template meaning
-that the C<page> data structure will be defined for use in the wrapper
-template.
-
-wrapper:
-
- <html>
- <head>
- <title>[% page.title %]</title>
- </head>
- <body>
- <h1>[% page.title %]</h1>
- <h2>[% page.subtitle %]</h1>
- <h3>by [% page.author %]</h3>
- [% content %]
- </body>
- </html>
-
-It achieves the same effect as defining C<META> items which are then
-accessed via the C<template> variable (which you are still free to
-use within C<WRAPPER> templates), but gives you more flexibility in
-the type and complexity of data that you can define.
-
-=head2 ERROR
-
-The C<ERROR> (or C<ERRORS> if you prefer) configuration item can be used to
-name a single template or specify a hash array mapping exception types
-to templates which should be used for error handling. If an uncaught
-exception is raised from within a template then the appropriate error
-template will instead be processed.
-
-If specified as a single value then that template will be processed
-for all uncaught exceptions.
-
- my $template = Template->new({
- ERROR => 'error.html'
- });
-
-If the C<ERROR> item is a hash reference the keys are assumed to be
-exception types and the relevant template for a given exception will
-be selected. A C<default> template may be provided for the general
-case. Note that C<ERROR> can be pluralised to C<ERRORS> if you find
-it more appropriate in this case.
-
- my $template = Template->new({
- ERRORS => {
- user => 'user/index.html',
- dbi => 'error/database',
- default => 'error/default',
- },
- });
-
-In this example, any C<user> exceptions thrown will cause the
-F<user/index.html> template to be processed, C<dbi> errors are handled
-by F<error/database> and all others by the F<error/default> template.
-Any C<PRE_PROCESS> and/or C<POST_PROCESS> templates will also be applied
-to these error templates.
-
-Note that exception types are hierarchical and a C<foo> handler will
-catch all C<foo.*> errors (e.g. C<foo.bar>, C<foo.bar.baz>) if a more
-specific handler isn't defined. Be sure to quote any exception types
-that contain periods to prevent Perl concatenating them into a single
-string (i.e. C<user.passwd> is parsed as C<'user'.'passwd'>).
-
- my $template = Template->new({
- ERROR => {
- 'user.login' => 'user/login.html',
- 'user.passwd' => 'user/badpasswd.html',
- 'user' => 'user/index.html',
- 'default' => 'error/default',
- },
- });
-
-In this example, any template processed by the C<$template> object, or
-other templates or code called from within, can raise a C<user.login>
-exception and have the service redirect to the F<user/login.html>
-template. Similarly, a C<user.passwd> exception has a specific
-handling template, F<user/badpasswd.html>, while all other C<user> or
-C<user.*> exceptions cause a redirection to the F<user/index.html> page.
-All other exception types are handled by F<error/default>.
-
-Exceptions can be raised in a template using the C<THROW> directive,
-
- [% THROW user.login 'no user id: please login' %]
-
-or by calling the L<throw()|Template::Context#throw()> method on the
-current L<Template::Context> object,
-
- $context->throw('user.passwd', 'Incorrect Password');
- $context->throw('Incorrect Password'); # type 'undef'
-
-or from Perl code by calling C<die()> with a L<Template::Exception> object,
-
- die (Template::Exception->new('user.denied', 'Invalid User ID'));
-
-or by simply calling L<die()> with an error string. This is
-automagically caught and converted to an exception of 'C<undef>'
-type which can then be handled in the usual way.
-
- die "I'm sorry Dave, I can't do that";
-
-Note that the 'C<undef>' we're talking about here is a literal string
-rather than Perl's C<undef> used to represent undefined values.
-
-=head1 Template Runtime Options
-
-=head2 EVAL_PERL
-
-This flag is used to indicate if C<PERL> and/or C<RAWPERL> blocks should be
-evaluated. It is disabled by default and any C<PERL> or C<RAWPERL> blocks
-encountered will raise exceptions of type 'C<perl>' with the message
-'C<EVAL_PERL not set>'. Note however that any C<RAWPERL> blocks should
-always contain valid Perl code, regardless of the C<EVAL_PERL> flag. The
-parser will fail to compile templates that contain invalid Perl code
-in C<RAWPERL> blocks and will throw a 'C<file>' exception.
-
-When using compiled templates (see
-L<Caching and Compiling Options>),
-the C<EVAL_PERL> has an affect when the template is compiled, and again
-when the templates is subsequently processed, possibly in a different
-context to the one that compiled it.
-
-If the C<EVAL_PERL> is set when a template is compiled, then all C<PERL> and
-C<RAWPERL> blocks will be included in the compiled template. If the
-C<EVAL_PERL> option isn't set, then Perl code will be generated which
-B<always> throws a 'C<perl>' exception with the message 'C<EVAL_PERL not
-set>' B<whenever> the compiled template code is run.
-
-Thus, you must have C<EVAL_PERL> set if you want your compiled templates
-to include C<PERL> and C<RAWPERL> blocks.
-
-At some point in the future, using a different invocation of the
-Template Toolkit, you may come to process such a pre-compiled
-template. Assuming the C<EVAL_PERL> option was set at the time the
-template was compiled, then the output of any C<RAWPERL> blocks will be
-included in the compiled template and will get executed when the
-template is processed. This will happen regardless of the runtime
-C<EVAL_PERL> status.
-
-Regular C<PERL> blocks are a little more cautious, however. If the
-C<EVAL_PERL> flag isn't set for the I<current> context, that is, the
-one which is trying to process it, then it will throw the familiar 'C<perl>'
-exception with the message, 'C<EVAL_PERL not set>'.
-
-Thus you can compile templates to include C<PERL> blocks, but optionally
-disable them when you process them later. Note however that it is
-possible for a C<PERL> block to contain a Perl "C<BEGIN { # some code }>"
-block which will always get run regardless of the runtime C<EVAL_PERL>
-status. Thus, if you set C<EVAL_PERL> when compiling templates, it is
-assumed that you trust the templates to Do The Right Thing. Otherwise
-you must accept the fact that there's no bulletproof way to prevent
-any included code from trampling around in the living room of the
-runtime environment, making a real nuisance of itself if it really
-wants to. If you don't like the idea of such uninvited guests causing
-a bother, then you can accept the default and keep C<EVAL_PERL> disabled.
-
-=head2 OUTPUT
-
-Default output location or handler. This may be specified as one of:
-a file name (relative to C<OUTPUT_PATH>, if defined, or the current
-working directory if not specified absolutely); a file handle
-(e.g. C<GLOB> or L<IO::Handle>) opened for writing; a reference to a text
-string to which the output is appended (the string isn't cleared); a
-reference to a subroutine which is called, passing the output text as
-an argument; as a reference to an array, onto which the content will be
-C<push()>ed; or as a reference to any object that supports the C<print()>
-method. This latter option includes the C<Apache::Request> object which
-is passed as the argument to Apache/mod_perl handlers.
-
-example 1 (file name):
-
- my $template = Template->new({
- OUTPUT => "/tmp/foo",
- });
-
-example 2 (text string):
-
- my $output = '';
- my $template = Template->new({
- OUTPUT => \$output,
- });
-
-example 3 (file handle):
-
- open (TOUT, "> $file") || die "$file: $!\n";
- my $template = Template->new({
- OUTPUT => \*TOUT,
- });
-
-example 4 (subroutine):
-
- sub output { my $out = shift; print "OUTPUT: $out" }
- my $template = Template->new({
- OUTPUT => \&output,
- });
-
-example 5 (array reference):
-
- my $template = Template->new({
- OUTPUT => \@output,
- })
-
-example 6 (Apache/mod_perl handler):
-
- sub handler {
- my $r = shift;
- my $t = Template->new({
- OUTPUT => $r,
- });
- ...
- }
-
-The default C<OUTPUT> location be overridden by passing a third parameter to
-the L<Template> L<process()|Template#process()> method. This can be specified
-as any of the above argument types.
-
- $t->process($file, $vars, "/tmp/foo");
- $t->process($file, $vars, \$output);
- $t->process($file, $vars, \*MYGLOB);
- $t->process($file, $vars, \@output);
- $t->process($file, $vars, $r); # Apache::Request
- ...
-
-=head2 OUTPUT_PATH
-
-The C<OUTPUT_PATH> allows a directory to be specified into which output
-files should be written. An output file can be specified by the
-C<OUTPUT> option, or passed by name as the third parameter to the
-L<Template> L<process()|Template#process()> method.
-
- my $template = Template->new({
- INCLUDE_PATH => "/tmp/src",
- OUTPUT_PATH => "/tmp/dest",
- });
-
- my $vars = {
- ...
- };
-
- foreach my $file ('foo.html', 'bar.html') {
- $template->process($file, $vars, $file)
- || die $template->error();
- }
-
-This example will read the input files F</tmp/src/foo.html> and
-F</tmp/src/bar.html> and write the processed output to F</tmp/dest/foo.html>
-and F</tmp/dest/bar.html>, respectively.
-
-=head2 STRICT
-
-By default the Template Toolkit will silently ignore the use of undefined
-variables (a bad design decision that I regret).
-
-When the C<STRICT> option is set, the use of any undefined variables or
-values will cause an exception to be throw. The exception will have a
-C<type> of C<var.undefined> and a message of the form
-"undefined variable: xxx".
-
- my $template = Template->new(
- STRICT => 1
- );
-
-=head2 DEBUG
-
-The C<DEBUG> option can be used to enable debugging within the various
-different modules that comprise the Template Toolkit. The
-L<Template::Constants> module defines a set of
-C<DEBUG_XXXX> constants which can be combined using the logical OR
-operator, 'C<|>'.
-
- use Template::Constants qw( :debug );
-
- my $template = Template->new({
- DEBUG => DEBUG_PARSER | DEBUG_PROVIDER,
- });
-
-For convenience, you can also provide a string containing a list
-of lower case debug options, separated by any non-word characters.
-
- my $template = Template->new({
- DEBUG => 'parser, provider',
- });
-
-The following C<DEBUG_XXXX> flags can be used:
-
-=over 4
-
-=item DEBUG_SERVICE
-
-Enables general debugging messages for the
-L<Template::Service> module.
-
-=item DEBUG_CONTEXT
-
-Enables general debugging messages for the
-L<Template::Context> module.
-
-=item DEBUG_PROVIDER
-
-Enables general debugging messages for the
-L<Template::Provider> module.
-
-=item DEBUG_PLUGINS
-
-Enables general debugging messages for the
-L<Template::Plugins> module.
-
-=item DEBUG_FILTERS
-
-Enables general debugging messages for the
-L<Template::Filters> module.
-
-=item DEBUG_PARSER
-
-This flag causes the L<Template::Parser> to generate
-debugging messages that show the Perl code generated by parsing and
-compiling each template.
-
-=item DEBUG_UNDEF
-
-This option causes the Template Toolkit to throw an 'C<undef>' error
-whenever it encounters an undefined variable value.
-
-=item DEBUG_DIRS
-
-This option causes the Template Toolkit to generate comments
-indicating the source file, line and original text of each directive
-in the template. These comments are embedded in the template output
-using the format defined in the C<DEBUG_FORMAT> configuration item, or a
-simple default format if unspecified.
-
-For example, the following template fragment:
-
- Hello World
-
-would generate this output:
-
- ## input text line 1 : ##
- Hello
- ## input text line 2 : World ##
- World
-
-=item DEBUG_ALL
-
-Enables all debugging messages.
-
-=item DEBUG_CALLER
-
-This option causes all debug messages that aren't newline terminated
-to have the file name and line number of the caller appended to them.
-
-=back
-
-=head2 DEBUG_FORMAT
-
-The C<DEBUG_FORMAT> option can be used to specify a format string for the
-debugging messages generated via the C<DEBUG_DIRS> option described
-above. Any occurances of C<$file>, C<$line> or C<$text> will be
-replaced with the current file name, line or directive text,
-respectively. Notice how the format is single quoted to prevent Perl
-from interpolating those tokens as variables.
-
- my $template = Template->new({
- DEBUG => 'dirs',
- DEBUG_FORMAT => '<!-- $file line $line : [% $text %] -->',
- });
-
-The following template fragment:
-
- [% foo = 'World' %]
- Hello [% foo %]
-
-would then generate this output:
-
- <!-- input text line 2 : [% foo = 'World' %] -->
- Hello <!-- input text line 3 : [% foo %] -->World
-
-The DEBUG directive can also be used to set a debug format within
-a template.
-
- [% DEBUG format '<!-- $file line $line : [% $text %] -->' %]
-
-=head1 Caching and Compiling Options
-
-=head2 CACHE_SIZE
-
-The L<Template::Provider> module caches compiled templates to avoid the need
-to re-parse template files or blocks each time they are used. The C<CACHE_SIZE>
-option is used to limit the number of compiled templates that the module
-should cache.
-
-By default, the C<CACHE_SIZE> is undefined and all compiled templates are
-cached. When set to any positive value, the cache will be limited to
-storing no more than that number of compiled templates. When a new
-template is loaded and compiled and the cache is full (i.e. the number
-of entries == C<CACHE_SIZE>), the least recently used compiled template
-is discarded to make room for the new one.
-
-The C<CACHE_SIZE> can be set to C<0> to disable caching altogether.
-
- my $template = Template->new({
- CACHE_SIZE => 64, # only cache 64 compiled templates
- });
-
- my $template = Template->new({
- CACHE_SIZE => 0, # don't cache any compiled templates
- });
-
-As well as caching templates as they are found, the L<Template::Provider>
-also implements negative caching to keep track of templates that are
-I<not> found. This allows the provider to quickly decline a request
-for a template that it has previously failed to locate, saving the effort
-of going to look for it again. This is useful when an C<INCLUDE_PATH> includes
-multiple providers, ensuring that the request is passed down through the
-providers as quickly as possible.
-
-=head2 STAT_TTL
-
-This value can be set to control how long the L<Template::Provider> will keep a
-template cached in memory before checking to see if the source template has
-changed.
-
- my $provider = Template::Provider->new({
- STAT_TTL => 60, # one minute
- });
-
-The default value is 1 (second). You'll probably want to set this to a higher
-value if you're running the Template Toolkit inside a persistent web server
-application (e.g. mod_perl). For example, set it to 60 and the provider will
-only look for changes to templates once a minute at most. However, during
-development (or any time you're making frequent changes to templates) you'll
-probably want to keep it set to a low value so that you don't have to wait
-for the provider to notice that your templates have changed.
-
-=head2 COMPILE_EXT
-
-From version 2 onwards, the Template Toolkit has the ability to
-compile templates to Perl code and save them to disk for subsequent
-use (i.e. cache persistence). The C<COMPILE_EXT> option may be
-provided to specify a filename extension for compiled template files.
-It is undefined by default and no attempt will be made to read or write
-any compiled template files.
-
- my $template = Template->new({
- COMPILE_EXT => '.ttc',
- });
-
-If C<COMPILE_EXT> is defined (and C<COMPILE_DIR> isn't, see below) then compiled
-template files with the C<COMPILE_EXT> extension will be written to the same
-directory from which the source template files were loaded.
-
-Compiling and subsequent reuse of templates happens automatically
-whenever the C<COMPILE_EXT> or C<COMPILE_DIR> options are set. The Template
-Toolkit will automatically reload and reuse compiled files when it
-finds them on disk. If the corresponding source file has been modified
-since the compiled version as written, then it will load and re-compile
-the source and write a new compiled version to disk.
-
-This form of cache persistence offers significant benefits in terms of
-time and resources required to reload templates. Compiled templates can
-be reloaded by a simple call to Perl's C<require()>, leaving Perl to handle
-all the parsing and compilation. This is a Good Thing.
-
-=head2 COMPILE_DIR
-
-The C<COMPILE_DIR> option is used to specify an alternate directory root
-under which compiled template files should be saved.
-
- my $template = Template->new({
- COMPILE_DIR => '/tmp/ttc',
- });
-
-The C<COMPILE_EXT> option may also be specified to have a consistent file
-extension added to these files.
-
- my $template1 = Template->new({
- COMPILE_DIR => '/tmp/ttc',
- COMPILE_EXT => '.ttc1',
- });
-
- my $template2 = Template->new({
- COMPILE_DIR => '/tmp/ttc',
- COMPILE_EXT => '.ttc2',
- });
-
-When C<COMPILE_EXT> is undefined, the compiled template files have the
-same name as the original template files, but reside in a different
-directory tree.
-
-Each directory in the C<INCLUDE_PATH> is replicated in full beneath the
-C<COMPILE_DIR> directory. This example:
-
- my $template = Template->new({
- COMPILE_DIR => '/tmp/ttc',
- INCLUDE_PATH => '/home/abw/templates:/usr/share/templates',
- });
-
-would create the following directory structure:
-
- /tmp/ttc/home/abw/templates/
- /tmp/ttc/usr/share/templates/
-
-Files loaded from different C<INCLUDE_PATH> directories will have their
-compiled forms save in the relevant C<COMPILE_DIR> directory.
-
-On Win32 platforms a filename may by prefixed by a drive letter and
-colon. e.g.
-
- C:/My Templates/header
-
-The colon will be silently stripped from the filename when it is added
-to the C<COMPILE_DIR> value(s) to prevent illegal filename being generated.
-Any colon in C<COMPILE_DIR> elements will be left intact. For example:
-
- # Win32 only
- my $template = Template->new({
- DELIMITER => ';',
- COMPILE_DIR => 'C:/TT2/Cache',
- INCLUDE_PATH => 'C:/TT2/Templates;D:/My Templates',
- });
-
-This would create the following cache directories:
-
- C:/TT2/Cache/C/TT2/Templates
- C:/TT2/Cache/D/My Templates
-
-=head1 Plugins and Filters
-
-=head2 PLUGINS
-
-The C<PLUGINS> options can be used to provide a reference to a hash array
-that maps plugin names to Perl module names. A number of standard
-plugins are defined (e.g. C<table>, C<format>, C<cgi>, etc.) which map to
-their corresponding C<Template::Plugin::*> counterparts. These can be
-redefined by values in the C<PLUGINS> hash.
-
- my $template = Template->new({
- PLUGINS => {
- cgi => 'MyOrg::Template::Plugin::CGI',
- foo => 'MyOrg::Template::Plugin::Foo',
- bar => 'MyOrg::Template::Plugin::Bar',
- },
- });
-
-The recommended convention is to specify these plugin names in lower
-case. The Template Toolkit first looks for an exact case-sensitive
-match and then tries the lower case conversion of the name specified.
-
- [% USE Foo %] # look for 'Foo' then 'foo'
-
-If you define all your C<PLUGINS> with lower case names then they will be
-located regardless of how the user specifies the name in the USE
-directive. If, on the other hand, you define your C<PLUGINS> with upper
-or mixed case names then the name specified in the C<USE> directive must
-match the case exactly.
-
-The C<USE> directive is used to create plugin objects and does so by calling
-the L<plugin()|Template::Context#plugin()> method on the current
-L<Template::Context> object. If the plugin name is defined in the C<PLUGINS>
-hash then the corresponding Perl module is loaded via C<require()>. The
-context then calls the L<load()|Template::Plugin#load()> class method which
-should return the class name (default and general case) or a prototype object
-against which the L<new()|Template::Plugin#new()> method can be called to
-instantiate individual plugin objects.
-
-If the plugin name is not defined in the C<PLUGINS> hash then the
-C<PLUGIN_BASE> and/or C<LOAD_PERL> options come into effect.
-
-=head2 PLUGIN_BASE
-
-If a plugin is not defined in the C<PLUGINS> hash then the C<PLUGIN_BASE> is used
-to attempt to construct a correct Perl module name which can be successfully
-loaded.
-
-The C<PLUGIN_BASE> can be specified as a reference to an array of module
-namespaces, or as a single value which is automatically converted to a
-list. The default C<PLUGIN_BASE> value (C<Template::Plugin>) is then added
-to the end of this list.
-
-example 1:
-
- my $template = Template->new({
- PLUGIN_BASE => 'MyOrg::Template::Plugin',
- });
-
- [% USE Foo %] # => MyOrg::Template::Plugin::Foo
- or Template::Plugin::Foo
-
-example 2:
-
- my $template = Template->new({
- PLUGIN_BASE => [ 'MyOrg::Template::Plugin',
- 'YourOrg::Template::Plugin' ],
- });
-
-template:
-
- [% USE Foo %] # => MyOrg::Template::Plugin::Foo
- or YourOrg::Template::Plugin::Foo
- or Template::Plugin::Foo
-
-If you don't want the default C<Template::Plugin> namespace added to the
-end of the C<PLUGIN_BASE>, then set the C<$Template::Plugins::PLUGIN_BASE>
-variable to a false value before calling the L<new()|Template> L<Template#new()>
-constructor method. This is shown in the example below where the
-C<Foo> plugin is located as C<My::Plugin::Foo> or C<Your::Plugin::Foo> but not
-as C<Template::Plugin::Foo>.
-
-example 3:
-
- use Template::Plugins;
- $Template::Plugins::PLUGIN_BASE = '';
-
- my $template = Template->new({
- PLUGIN_BASE => [ 'My::Plugin',
- 'Your::Plugin' ],
- });
-
-template:
-
- [% USE Foo %] # => My::Plugin::Foo
- or Your::Plugin::Foo
-
-=head2 LOAD_PERL
-
-If a plugin cannot be loaded using the C<PLUGINS> or C<PLUGIN_BASE>
-approaches then the provider can make a final attempt to load the
-module without prepending any prefix to the module path. This allows
-regular Perl modules (i.e. those that don't reside in the
-L<Template::Plugin> or some other such namespace) to be loaded and used
-as plugins.
-
-By default, the C<LOAD_PERL> option is set to C<0> and no attempt will be made
-to load any Perl modules that aren't named explicitly in the C<PLUGINS>
-hash or reside in a package as named by one of the C<PLUGIN_BASE>
-components.
-
-Plugins loaded using the C<PLUGINS> or C<PLUGIN_BASE> receive a reference to
-the current context object as the first argument to the
-L<new()|Template::Plugin#new()> constructor. Modules loaded using C<LOAD_PERL>
-are assumed to not conform to the plugin interface. They must provide a C<new()>
-class method for instantiating objects but it will not receive a reference to
-the context as the first argument.
-
-Plugin modules should provide a L<load()|Template::Plugin#load()> class method
-(or inherit the default one from the L<Template::Plugin> base class) which is
-called the first time the plugin is loaded. Regular Perl modules need not. In
-all other respects, regular Perl objects and Template Toolkit plugins are
-identical.
-
-If a particular Perl module does not conform to the common, but not
-unilateral, C<new()> constructor convention then a simple plugin wrapper
-can be written to interface to it.
-
-=head2 FILTERS
-
-The C<FILTERS> option can be used to specify custom filters which can
-then be used with the C<FILTER> directive like any other. These are
-added to the standard filters which are available by default. Filters
-specified via this option will mask any standard filters of the same
-name.
-
-The C<FILTERS> option should be specified as a reference to a hash array
-in which each key represents the name of a filter. The corresponding
-value should contain a reference to an array containing a subroutine
-reference and a flag which indicates if the filter is static (C<0>) or
-dynamic (C<1>). A filter may also be specified as a solitary subroutine
-reference and is assumed to be static.
-
- $template = Template->new({
- FILTERS => {
- 'sfilt1' => \&static_filter, # static
- 'sfilt2' => [ \&static_filter, 0 ], # same as above
- 'dfilt1' => [ \&dyanamic_filter_factory, 1 ],
- },
- });
-
-Additional filters can be specified at any time by calling the
-L<define_filter()|Template::Context#define_filter()> method on the current
-L<Template::Context> object. The method accepts a filter name, a reference to a
-filter subroutine and an optional flag to indicate if the filter is dynamic.
-
- my $context = $template->context();
- $context->define_filter('new_html', \&new_html);
- $context->define_filter('new_repeat', \&new_repeat, 1);
-
-Static filters are those where a single subroutine reference is used
-for all invocations of a particular filter. Filters that don't accept
-any configuration parameters (e.g. C<html>) can be implemented
-statically. The subroutine reference is simply returned when that
-particular filter is requested. The subroutine is called to filter
-the output of a template block which is passed as the only argument.
-The subroutine should return the modified text.
-
- sub static_filter {
- my $text = shift;
- # do something to modify $text...
- return $text;
- }
-
-The following template fragment:
-
- [% FILTER sfilt1 %]
- Blah blah blah.
- [% END %]
-
-is approximately equivalent to:
-
- &static_filter("\nBlah blah blah.\n");
-
-Filters that can accept parameters (e.g. C<truncate>) should be
-implemented dynamically. In this case, the subroutine is taken to be
-a filter 'factory' that is called to create a unique filter subroutine
-each time one is requested. A reference to the current
-L<Template::Context> object is passed as the first parameter, followed by
-any additional parameters specified. The subroutine should return
-another subroutine reference (usually a closure) which implements the
-filter.
-
- sub dynamic_filter_factory {
- my ($context, @args) = @_;
-
- return sub {
- my $text = shift;
- # do something to modify $text...
- return $text;
- }
- }
-
-The following template fragment:
-
- [% FILTER dfilt1(123, 456) %]
- Blah blah blah
- [% END %]
-
-is approximately equivalent to:
-
- my $filter = &dynamic_filter_factory($context, 123, 456);
- &$filter("\nBlah blah blah.\n");
-
-See the C<FILTER> directive for further examples.
-
-=head1 Customisation and Extension
-
-=head2 LOAD_TEMPLATES
-
-The C<LOAD_TEMPLATES> option can be used to provide a reference to a list
-of L<Template::Provider> objects or sub-classes thereof which will take
-responsibility for loading and compiling templates.
-
- my $template = Template->new({
- LOAD_TEMPLATES => [
- MyOrg::Template::Provider->new({ ... }),
- Template::Provider->new({ ... }),
- ],
- });
-
-When a C<PROCESS>, C<INCLUDE> or C<WRAPPER> directive is encountered, the
-named template may refer to a locally defined C<BLOCK> or a file relative to
-the C<INCLUDE_PATH> (or an absolute or relative path if the appropriate
-C<ABSOLUTE> or C<RELATIVE> options are set). If a C<BLOCK> definition can't be
-found (see the L<Template::Context> L<template()|Template::Context#template()>
-method for a discussion of C<BLOCK> locality) then each of the
-C<LOAD_TEMPLATES> provider objects is queried in turn via the
-L<fetch()|Template::Provider#fetch()> method to see if it can supply the
-required template.
-
-Each provider can return a compiled template, an error, or decline to service
-the request in which case the responsibility is passed to the next provider.
-If none of the providers can service the request then a 'not found' error is
-returned. The same basic provider mechanism is also used for the C<INSERT>
-directive but it bypasses any C<BLOCK> definitions and doesn't attempt is to
-parse or process the contents of the template file.
-
-If C<LOAD_TEMPLATES> is undefined, a single default provider will be
-instantiated using the current configuration parameters. For example, the
-L<Template::Provider> C<INCLUDE_PATH> option can be specified in the L<Template>
-configuration and will be correctly passed to the provider's constructor
-method.
-
- my $template = Template->new({
- INCLUDE_PATH => '/here:/there',
- });
-
-=head2 LOAD_PLUGINS
-
-The C<LOAD_PLUGINS> options can be used to specify a list of provider objects
-(i.e. they implement the L<fetch()|Template::Plugins#fetch()> method) which
-are responsible for loading and instantiating template plugin objects. The
-L<Template::Context> L<plugin()|Template::Context#plugin()> method queries
-each provider in turn in a "Chain of Responsibility" as per the
-L<template()|Template::Context#template()> and
-L<filter()|Template::Context#filter()> methods.
-
- my $template = Template->new({
- LOAD_PLUGINS => [
- MyOrg::Template::Plugins->new({ ... }),
- Template::Plugins->new({ ... }),
- ],
- });
-
-By default, a single L<Template::Plugins> object is created using the
-current configuration hash. Configuration items destined for the
-L<Template::Plugins> constructor may be added to the Template
-constructor.
-
- my $template = Template->new({
- PLUGIN_BASE => 'MyOrg::Template::Plugins',
- LOAD_PERL => 1,
- });
-
-=head2 LOAD_FILTERS
-
-The C<LOAD_FILTERS> option can be used to specify a list of provider objects
-(i.e. they implement the L<fetch()|Template::Filters#fetch()> method) which
-are responsible for returning and/or creating filter subroutines. The
-L<Template::Context> L<filter()|Template::Context#filter()> method queries
-each provider in turn in a "Chain of Responsibility" as per the
-L<template()|Template::Context#template()> and
-L<plugin()|Template::Context#plugin()> methods.
-
- my $template = Template->new({
- LOAD_FILTERS => [
- MyTemplate::Filters->new(),
- Template::Filters->new(),
- ],
- });
-
-By default, a single L<Template::Filters> object is created for the
-C<LOAD_FILTERS> list.
-
-=head2 TOLERANT
-
-The C<TOLERANT> flag is used by the various Template Toolkit provider modules
-(L<Template::Provider>, L<Template::Plugins>, L<Template::Filters>) to control
-their behaviour when errors are encountered. By default, any errors are
-reported as such, with the request for the particular resource (C<template>,
-C<plugin>, C<filter>) being denied and an exception raised.
-
-When the C<TOLERANT> flag is set to any true values, errors will be silently
-ignored and the provider will instead return C<STATUS_DECLINED>. This allows a
-subsequent provider to take responsibility for providing the resource, rather
-than failing the request outright. If all providers decline to service the
-request, either through tolerated failure or a genuine disinclination to
-comply, then a 'C<E<lt>resourceE<gt> not found>' exception is raised.
-
-=head2 SERVICE
-
-A reference to a L<Template::Service> object, or sub-class thereof, to which
-the L<Template> module should delegate. If unspecified, a L<Template::Service>
-object is automatically created using the current configuration hash.
-
- my $template = Template->new({
- SERVICE => MyOrg::Template::Service->new({ ... }),
- });
-
-=head2 CONTEXT
-
-A reference to a L<Template::Context> object which is used to define a
-specific environment in which template are processed. A L<Template::Context>
-object is passed as the only parameter to the Perl subroutines that represent
-"compiled" template documents. Template subroutines make callbacks into the
-context object to access Template Toolkit functionality, for example, to to
-C<INCLUDE> or C<PROCESS> another template
-(L<include()|Template::Context#include()> and
-L<process()|Template::Context#process()> methods, respectively), to C<USE> a
-plugin (L<plugin()|Template::Context#plugin()>) or instantiate a filter
-(L<filter()|Template::Context#filter()>) or to access the stash
-(L<stash()|Template::Context#stash()>) which manages variable definitions via
-the L<get()|Template::Stash#get()> and L<set()|Template::Stash#set()> methods.
-
- my $template = Template->new({
- CONTEXT => MyOrg::Template::Context->new({ ... }),
- });
-
-=head2 STASH
-
-A reference to a L<Template::Stash> object or sub-class which will take
-responsibility for managing template variables.
-
- my $stash = MyOrg::Template::Stash->new({ ... });
- my $template = Template->new({
- STASH => $stash,
- });
-
-If unspecified, a default stash object is created using the C<VARIABLES>
-configuration item to initialise the stash variables.
-
- my $template = Template->new({
- VARIABLES => {
- id => 'abw',
- name => 'Andy Wardley',
- },
- };
-
-=head2 PARSER
-
-The L<Template::Parser> module implements a parser object for compiling
-templates into Perl code which can then be executed. A default object
-of this class is created automatically and then used by the
-L<Template::Provider> whenever a template is loaded and requires
-compilation. The C<PARSER> option can be used to provide a reference to
-an alternate parser object.
-
- my $template = Template->new({
- PARSER => MyOrg::Template::Parser->new({ ... }),
- });
-
-=head2 GRAMMAR
-
-The C<GRAMMAR> configuration item can be used to specify an alternate
-grammar for the parser. This allows a modified or entirely new
-template language to be constructed and used by the Template Toolkit.
-
-Source templates are compiled to Perl code by the L<Template::Parser>
-using the L<Template::Grammar> (by default) to define the language
-structure and semantics. Compiled templates are thus inherently
-"compatible" with each other and there is nothing to prevent any
-number of different template languages being compiled and used within
-the same Template Toolkit processing environment (other than the usual
-time and memory constraints).
-
-The L<Template::Grammar> file is constructed from a YACC like grammar
-(using C<Parse::YAPP>) and a skeleton module template. These files are
-provided, along with a small script to rebuild the grammar, in the
-F<parser> sub-directory of the distribution.
-
-You don't have to know or worry about these unless you want to hack on the
-template language or define your own variant. There is a F<README> file in the
-same directory which provides some small guidance but it is assumed that you
-know what you're doing if you venture herein. If you grok LALR parsers, then
-you should find it comfortably familiar.
-
-By default, an instance of the default L<Template::Grammar> will be
-created and used automatically if a C<GRAMMAR> item isn't specified.
-
- use MyOrg::Template::Grammar;
-
- my $template = Template->new({
- GRAMMAR = MyOrg::Template::Grammar->new();
- });
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Credits.pod b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Credits.pod
deleted file mode 100644
index 27f5359..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Credits.pod
+++ /dev/null
@@ -1,104 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# Template::Manual::Credits
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#========================================================================
-
-=head1 NAME
-
-Template::Manual::Credits - Author and contributor credits
-
-=head1 HISTORY
-
-The Template Toolkit began its life as the C<Text::MetaText> module,
-originally released to CPAN around 1996. This itself was the public
-manifestation of an earlier template processing system I developed
-while working at Peritas (now Knowledge Pool -
-http://www.knowledgepool.com/)
-
-C<Text::MetaText> was the prototype - the one we always planned to throw
-away. It did the job well, showing us what worked and what didn't, what
-was good and what was bad, and gave us some ideas about what could be
-done better, given the chance to start again from scratch.
-
-Some time late in 1998 I threw away the prototype and started work on the
-Template Toolkit. By then I was working at Canon Research Centre Europe Ltd.
-(CRE), involved in a general research programme related to web publishing and
-dynamic content generation. The first alpha release was in June 1999, followed
-by numerous more alpha and beta releases culminating in 1.00 being released on
-2nd December 1999.
-
-A month or so later, work had begun on version 2.00. The plan was to get the
-template language relatively stable in version 1.00 and not worry too much
-about performance or other internal matters. Then, version 2.00 would follow
-to improve performance, clean up the architecture and fix anything that, with
-the benefit of hindsight, we thought could be improved. As it happens, me
-starting work on version 2.00 coincided with Doug Steinwand sending me his
-parser variant which compiled templates to Perl code, giving a major
-performance boost. As well as the speedups, there are a whole host of
-significant new features in version 2.00, and a greatly improved internal
-architecture. Apart from a few minor "fixups" the template directives and
-language have remained the same as in version 1.00
-
-Version 2.00 was available in beta release form in July 2000, just in time for
-the 4th Perl Conference where version 1.00 was awarded "Best New Perl Module".
-After another extended beta release period, version 2.00 was released on 1st
-December 2000.
-
-Version 3 has been in development ever since.
-
-=head1 AUTHOR
-
-Andy Wardley E<lt>abw at wardley.orgE<gt> L<http://wardley.org/>
-
-=head1 COPYRIGHT
-
-Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
-
-The Template Toolkit is free software; you can redistribute it and/or
-modify it under the same terms as Perl itself.
-
-=head1 CONTRIBUTORS
-
-Many people have contributed ideas, inspiration, fixes and features to
-the Template Toolkit. Their efforts continue to be very much appreciated.
-Please let me know if you think anyone is missing from this list.
-
-Chuck Adams, Stephen Adkins, Ivan Adzhubey, Mark Anderson, Bradley Baetz,
-Thierry-Michel Barral, Craig Barratt, Stas Bekman, Robin Berjon, Tony Bowden,
-Neil Bowers, Leon Brocard, Lyle Brooks, Norbert Buchmüller, Dave Cash, Piers
-Cawley, Darren Chamberlain, Timmy Chan, Eric Cholet, Nik Clayton, Tosh Cooey,
-Dave Cross, Chris Dean, Francois Desarmenien, Horst Dumcke, Mark Fowler,
-Michael Fowler, Kenny Gatdula, Axel Gerstmair, Dylan William Hardison, Perrin
-Harkins, Bryce Harrington, Dave Hodgkinson, Lubomir Host, Dave Howorth, Harald
-Joerg, Colin Johnson, Adam Kennedy, Vivek Khera, Alexey A. Kiritchun, Rafael
-Kitover, Ivan Kurmanov, Denis F. Latypoff, Hans von Lengerke, Jonas Liljegren,
-Simon Luff, Andy Maas, Paul Makepeace, Gervase Markham, Sergey Martynoff,
-Simon Matthews, Robert McArthur, Craig McLane, Myk Melez, Eugene Miretskiy,
-Tatsuhiko Miyagawa, Bill Moseley, Keith G. Murphy, Chris Nandor, John
-Napiorkowski, Breno G. de Oliveira, Leslie Michael Orchard, Paul Orrock,
-Jonathon Padfield, Steve Peters, Briac PilprE<eacute>, Yuri Pimenov, Martin
-Portman, Slaven Rezic, Jess Robinson, Josh Rosenbaum, Christian Schaffner,
-Mike Schilli, Randal L. Schwartz, Paul Seamons, Paul Sharpe, Ville
-SkyttE<auml>, Barrie Slaymaker, Doug Steinwand, Michael Stevens, Autrijus
-Tang, Drew Taylor, Rod Taylor, Swen Thuemmler, Richard Tietjen, Ben Tilly,
-Stathy G. Touloumis, Jim Vaughan, Simon Wilcox, Chris Winters
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Directives.pod b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Directives.pod
deleted file mode 100644
index 8fa0ef0..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Directives.pod
+++ /dev/null
@@ -1,1970 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# Template::Manual::Directives
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#========================================================================
-
-=head1 NAME
-
-Template::Manual::Directives - Template directives
-
-=head1 Accessing and Updating Template Variables
-
-=head2 GET
-
-The C<GET> directive retrieves and outputs the value of the named variable.
-
- [% GET foo %]
-
-The C<GET> keyword is optional. A variable can be specified in a directive
-tag by itself.
-
- [% foo %]
-
-The variable can have an unlimited number of elements, each separated by a
-dot. Each element can have arguments specified within parentheses.
-
- [% foo %]
- [% bar.baz %]
- [% biz.baz(10) %]
- ...etc...
-
-See L<Template::Manual::Variables> for a full discussion on template
-variables.
-
-You can also specify expressions using the logical (C<and>, C<or>, C<not>, C<?>, C<:>) and
-mathematic operators (C<+>, C<->, C<*>, C</>, C<%>, C<mod>, C<div>).
-
- [% template.title or default.title %]
-
- [% score * 100 %]
-
- [% order.nitems ? checkout(order.total) : 'no items' %]
-
-The C<div> operator returns the integer result of division. Both C<%> and
-C<mod> return the modulus (i.e. remainder) of division.
-
- [% 15 / 6 %] # 2.5
- [% 15 div 6 %] # 2
- [% 15 mod 6 %] # 3
-
-=head2 CALL
-
-The C<CALL> directive is similar to C<GET> in evaluating the variable named,
-but doesn't print the result returned. This can be useful when a
-variable is bound to a sub-routine or object method which you want to
-call but aren't interested in the value returned.
-
- [% CALL dbi.disconnect %]
-
- [% CALL inc_page_counter(page_count) %]
-
-=head2 SET
-
-The C<SET> directive allows you to assign new values to existing variables
-or create new temporary variables.
-
- [% SET title = 'Hello World' %]
-
-The C<SET> keyword is also optional.
-
- [% title = 'Hello World' %]
-
-Variables may be assigned the values of other variables, unquoted
-numbers (2.718), literal text ('single quotes') or quoted text
-("double quotes"). In the latter case, any variable references within
-the text will be interpolated when the string is evaluated. Variables
-should be prefixed by C<$>, using curly braces to explicitly scope
-the variable name where necessary.
-
- [% foo = 'Foo' %] # literal value 'Foo'
- [% bar = foo %] # value of variable 'foo'
- [% cost = '$100' %] # literal value '$100'
- [% item = "$bar: ${cost}.00" %] # value "Foo: $100.00"
-
-Multiple variables may be assigned in the same directive and are
-evaluated in the order specified. Thus, the above could have been
-written:
-
- [% foo = 'Foo'
- bar = foo
- cost = '$100'
- item = "$bar: ${cost}.00"
- %]
-
-Simple expressions can also be used, as per C<GET>.
-
- [% ten = 10
- twenty = 20
- thirty = twenty + ten
- forty = 2 * twenty
- fifty = 100 div 2
- six = twenty mod 7
- %]
-
-You can concatenate strings together using the C<' _ '> operator. In Perl 5,
-the C<.> is used for string concatenation, but in Perl 6, as in the Template
-Toolkit, the C<.> will be used as the method calling operator and C<' _ '> will
-be used for string concatenation. Note that the operator must be
-specified with surrounding whitespace which, as Larry says, is construed as
-a feature:
-
- [% copyright = '(C) Copyright' _ year _ ' ' _ author %]
-
-You can, of course, achieve a similar effect with double quoted string
-interpolation.
-
- [% copyright = "(C) Copyright $year $author" %]
-
-=head2 DEFAULT
-
-The C<DEFAULT> directive is similar to C<SET> but only updates variables
-that are currently undefined or have no "true" value (in the Perl
-sense).
-
- [% DEFAULT
- name = 'John Doe'
- id = 'jdoe'
- %]
-
-This can be particularly useful in common template components to
-ensure that some sensible default are provided for otherwise
-undefined variables.
-
- [% DEFAULT
- title = 'Hello World'
- bgcol = '#ffffff'
- %]
- <html>
- <head>
- <title>[% title %]</title>
- </head>
- <body bgcolor="[% bgcol %]">
- ...etc...
-
-=head1 Processing Template Files and Blocks
-
-=head2 INSERT
-
-The C<INSERT> directive is used to insert the contents of an external file
-at the current position.
-
- [% INSERT myfile %]
-
-No attempt to parse or process the file is made. The contents,
-possibly including any embedded template directives, are inserted
-intact.
-
-The filename specified should be relative to one of the C<INCLUDE_PATH>
-directories. Absolute (i.e. starting with C</>) and relative
-(i.e. starting with C<.>) filenames may be used if the C<ABSOLUTE> and
-C<RELATIVE> options are set, respectively. Both these options are
-disabled by default.
-
- my $template = Template->new({
- INCLUDE_PATH => '/here:/there',
- });
-
- $template->process('myfile');
-
-F<myfile>:
-
- [% INSERT foo %] # looks for /here/foo then /there/foo
- [% INSERT /etc/passwd %] # file error: ABSOLUTE not set
- [% INSERT ../secret %] # file error: RELATIVE not set
-
-For convenience, the filename does not need to be quoted as long as it
-contains only alphanumeric characters, underscores, dots or forward
-slashes. Names containing any other characters should be quoted.
-
- [% INSERT misc/legalese.txt %]
- [% INSERT 'dos98/Program Files/stupid' %]
-
-To evaluate a variable to specify a filename, you should explicitly
-prefix it with a C<$> or use double-quoted string interpolation.
-
- [% language = 'en'
- legalese = 'misc/legalese.txt'
- %]
-
- [% INSERT $legalese %] # misc/legalese.txt
- [% INSERT "$language/$legalese" %] # en/misc/legalese.txt
-
-Multiple files can be specified using C<+> as a delimiter. All files
-should be unquoted names or quoted strings. Any variables should be
-interpolated into double-quoted strings.
-
- [% INSERT legalese.txt + warning.txt %]
- [% INSERT "$legalese" + warning.txt %] # requires quoting
-
-=head2 INCLUDE
-
-The C<INCLUDE> directive is used to process and include the output of
-another template file or block.
-
- [% INCLUDE header %]
-
-If a C<BLOCK> of the specified name is defined in the same file, or in a file
-from which the current template has been called (i.e. a parent template) then
-it will be used in preference to any file of the same name.
-
- [% INCLUDE table %] # uses BLOCK defined below
-
- [% BLOCK table %]
- <table>
- ...
- </table>
- [% END %]
-
-If a C<BLOCK> definition is not currently visible then the template name
-should be a file relative to one of the C<INCLUDE_PATH> directories, or
-an absolute or relative file name if the C<ABSOLUTE>/C<RELATIVE> options are
-appropriately enabled. The C<INCLUDE> directive automatically quotes the
-filename specified, as per C<INSERT> described above. When a variable
-contains the name of the template for the C<INCLUDE> directive, it should
-be explicitly prefixed by C<$> or double-quoted
-
- [% myheader = 'my/misc/header' %]
- [% INCLUDE myheader %] # 'myheader'
- [% INCLUDE $myheader %] # 'my/misc/header'
- [% INCLUDE "$myheader" %] # 'my/misc/header'
-
-Any template directives embedded within the file will be processed
-accordingly. All variables currently defined will be visible and
-accessible from within the included template.
-
- [% title = 'Hello World' %]
- [% INCLUDE header %]
- <body>
- ...
-
-F<header>:
-
- <html>
- <title>[% title %]</title>
-
-output:
-
- <html>
- <title>Hello World</title>
- <body>
- ...
-
-Local variable definitions may be specified after the template name,
-temporarily masking any existing variables. Insignificant whitespace
-is ignored within directives so you can add variable definitions on the
-same line, the next line or split across several line with comments
-interspersed, if you prefer.
-
- [% INCLUDE table %]
-
- [% INCLUDE table title="Active Projects" %]
-
- [% INCLUDE table
- title = "Active Projects"
- bgcolor = "#80ff00" # chartreuse
- border = 2
- %]
-
-The C<INCLUDE> directive localises (i.e. copies) all variables before
-processing the template. Any changes made within the included
-template will not affect variables in the including template.
-
- [% foo = 10 %]
-
- foo is originally [% foo %]
- [% INCLUDE bar %]
- foo is still [% foo %]
-
- [% BLOCK bar %]
- foo was [% foo %]
- [% foo = 20 %]
- foo is now [% foo %]
- [% END %]
-
-output:
-
- foo is originally 10
- foo was 10
- foo is now 20
- foo is still 10
-
-Technical Note: the localisation of the stash (that is, the process by
-which variables are copied before an C<INCLUDE> to prevent being
-overwritten) is only skin deep. The top-level variable namespace
-(hash) is copied, but no attempt is made to perform a deep-copy of
-other structures (hashes, arrays, objects, etc.) Therefore, a C<foo>
-variable referencing a hash will be copied to create a new C<foo>
-variable but which points to the same hash array. Thus, if you update
-compound variables (e.g. C<foo.bar>) then you will change the original
-copy, regardless of any stash localisation. If you're not worried
-about preserving variable values, or you trust the templates you're
-including then you might prefer to use the C<PROCESS> directive which is
-faster by virtue of not performing any localisation.
-
-You can specify dotted variables as "local" variables to an C<INCLUDE> directive.
-However, be aware that because of the localisation issues explained above (if
-you skipped the previous Technical Note above then you might want to go back
-and read it or skip this section too), the variables might not actualy be
-"local". If the first element of the variable name already references a hash
-array then the variable update will affect the original variable.
-
- [% foo = {
- bar = 'Baz'
- }
- %]
-
- [% INCLUDE somefile foo.bar='Boz' %]
-
- [% foo.bar %] # Boz
-
-This behaviour can be a little unpredictable (and may well be improved
-upon in a future version). If you know what you're doing with it and
-you're sure that the variables in question are defined (nor not) as you
-expect them to be, then you can rely on this feature to implement some
-powerful "global" data sharing techniques. Otherwise, you might prefer
-to steer well clear and always pass simple (undotted) variables as
-parameters to C<INCLUDE> and other similar directives.
-
-If you want to process several templates in one go then you can
-specify each of their names (quoted or unquoted names only, no unquoted
-C<$variables>) joined together by C<+>. The C<INCLUDE> directive
-will then process them in order.
-
- [% INCLUDE html/header + "site/$header" + site/menu
- title = "My Groovy Web Site"
- %]
-
-The variable stash is localised once and then the templates specified
-are processed in order, all within that same variable context. This
-makes it slightly faster than specifying several separate C<INCLUDE>
-directives (because you only clone the variable stash once instead of
-n times), but not quite as "safe" because any variable changes in the
-first file will be visible in the second, third and so on. This
-might be what you want, of course, but then again, it might not.
-
-=head2 PROCESS
-
-The PROCESS directive is similar to C<INCLUDE> but does not perform any
-localisation of variables before processing the template. Any changes
-made to variables within the included template will be visible in the
-including template.
-
- [% foo = 10 %]
-
- foo is [% foo %]
- [% PROCESS bar %]
- foo is [% foo %]
-
- [% BLOCK bar %]
- [% foo = 20 %]
- changed foo to [% foo %]
- [% END %]
-
-output:
-
- foo is 10
- changed foo to 20
- foo is 20
-
-Parameters may be specified in the C<PROCESS> directive, but these too will
-become visible changes to current variable values.
-
- [% foo = 10 %]
- foo is [% foo %]
- [% PROCESS bar
- foo = 20
- %]
- foo is [% foo %]
-
- [% BLOCK bar %]
- this is bar, foo is [% foo %]
- [% END %]
-
-output:
-
- foo is 10
- this is bar, foo is 20
- foo is 20
-
-The C<PROCESS> directive is slightly faster than C<INCLUDE> because it
-avoids the need to localise (i.e. copy) the variable stash before
-processing the template. As with C<INSERT> and C<INCLUDE>, the first
-parameter does not need to be quoted as long as it contains only
-alphanumeric characters, underscores, periods or forward slashes.
-A C<$> prefix can be used to explicitly indicate a variable which
-should be interpolated to provide the template name:
-
- [% myheader = 'my/misc/header' %]
- [% PROCESS myheader %] # 'myheader'
- [% PROCESS $myheader %] # 'my/misc/header'
-
-As with C<INCLUDE>, multiple templates can be specified, delimited by
-C<+>, and are processed in order.
-
- [% PROCESS html/header + my/header %]
-
-=head2 WRAPPER
-
-It's not unusual to find yourself adding common headers and footers to
-pages or sub-sections within a page. Something like this:
-
- [% INCLUDE section/header
- title = 'Quantum Mechanics'
- %]
- Quantum mechanics is a very interesting subject wish
- should prove easy for the layman to fully comprehend.
- [% INCLUDE section/footer %]
-
- [% INCLUDE section/header
- title = 'Desktop Nuclear Fusion for under $50'
- %]
- This describes a simple device which generates significant
- sustainable electrical power from common tap water by process
- of nuclear fusion.
- [% INCLUDE section/footer %]
-
-The individual template components being included might look like these:
-
-section/header:
-
- <p>
- <h2>[% title %]</h2>
-
-section/footer:
-
- </p>
-
-The C<WRAPPER> directive provides a way of simplifying this a little. It
-encloses a block up to a matching C<END> directive, which is first processed
-to generate some output. This is then passed to the named template file or
-C<BLOCK> as the C<content> variable.
-
- [% WRAPPER section
- title = 'Quantum Mechanics'
- %]
- Quantum mechanics is a very interesting subject wish
- should prove easy for the layman to fully comprehend.
- [% END %]
-
- [% WRAPPER section
- title = 'Desktop Nuclear Fusion for under $50'
- %]
- This describes a simple device which generates significant
- sustainable electrical power from common tap water by process
- of nuclear fusion.
- [% END %]
-
-The single 'section' template can then be defined as:
-
- <h2>[% title %]</h2>
- <p>
- [% content %]
- </p>
-
-Like other block directives, it can be used in side-effect notation:
-
- [% INSERT legalese.txt WRAPPER big_bold_table %]
-
-It's also possible to specify multiple templates to a C<WRAPPER> directive.
-The specification order indicates outermost to innermost wrapper templates.
-For example, given the following template block definitions:
-
- [% BLOCK bold %]<b>[% content %]</b>[% END %]
- [% BLOCK italic %]<i>[% content %]</i>[% END %]
-
-the directive
-
- [% WRAPPER bold+italic %]Hello World[% END %]
-
-would generate the following output:
-
- <b><i>Hello World</i></b>
-
-=head2 BLOCK
-
-The C<BLOCK>...C<END> construct can be used to define template component
-blocks which can be processed with the C<INCLUDE>, C<PROCESS> and C<WRAPPER>
-directives.
-
- [% BLOCK tabrow %]
- <tr>
- <td>[% name %]<td>
- <td>[% email %]</td>
- </tr>
- [% END %]
-
- <table>
- [% PROCESS tabrow name='Fred' email='fred at nowhere.com' %]
- [% PROCESS tabrow name='Alan' email='alan at nowhere.com' %]
- </table>
-
-A C<BLOCK> definition can be used before it is defined, as long as the
-definition resides in the same file. The block definition itself does
-not generate any output.
-
- [% PROCESS tmpblk %]
-
- [% BLOCK tmpblk %] This is OK [% END %]
-
-You can use an anonymous C<BLOCK> to capture the output of a template
-fragment.
-
- [% julius = BLOCK %]
- And Caesar's spirit, ranging for revenge,
- With Ate by his side come hot from hell,
- Shall in these confines with a monarch's voice
- Cry 'Havoc', and let slip the dogs of war;
- That this foul deed shall smell above the earth
- With carrion men, groaning for burial.
- [% END %]
-
-Like a named block, it can contain any other template directives which
-are processed when the block is defined. The output generated by the
-block is then assigned to the variable C<julius>.
-
-Anonymous C<BLOCK>s can also be used to define block macros. The
-enclosing block is processed each time the macro is called.
-
- [% MACRO locate BLOCK %]
- The [% animal %] sat on the [% place %].
- [% END %]
-
- [% locate(animal='cat', place='mat') %] # The cat sat on the mat
- [% locate(animal='dog', place='log') %] # The dog sat on the log
-
-=head1 Conditional Processing
-
-=head2 IF / UNLESS / ELSIF / ELSE
-
-The C<IF> and C<UNLESS> directives can be used to process or ignore a
-block based on some run-time condition.
-
- [% IF frames %]
- [% INCLUDE frameset %]
- [% END %]
-
- [% UNLESS text_mode %]
- [% INCLUDE biglogo %]
- [% END %]
-
-Multiple conditions may be joined with C<ELSIF> and/or C<ELSE> blocks.
-
- [% IF age < 10 %]
- Hello [% name %], does your mother know you're
- using her AOL account?
- [% ELSIF age < 18 %]
- Sorry, you're not old enough to enter
- (and too dumb to lie about your age)
- [% ELSE %]
- Welcome [% name %].
- [% END %]
-
-The following conditional and boolean operators may be used:
-
- == != < <= > >= && || ! and or not
-
-Conditions may be arbitrarily complex and are evaluated with the same
-precedence as in Perl. Parenthesis may be used to explicitly
-determine evaluation order.
-
- # ridiculously contrived complex example
- [% IF (name == 'admin' || uid <= 0) && mode == 'debug' %]
- I'm confused.
- [% ELSIF more > less %]
- That's more or less correct.
- [% END %]
-
-The C<and>, C<or> and C<not> operator are provided as aliases for
-C<&&>, C<||> and C<!>, respectively. Unlike Perl, which treats
-C<and>, C<or> and C<not> as separate, lower-precedence versions of the
-other operators, the Template Toolkit performs a straightforward substitution
-of C<and> for C<&&>, and so on. That means that C<and>, C<or> and C<not>
-have the same operator precedence as C<&&>, C<||> and C<!>.
-
-=head2 SWITCH / CASE
-
-The C<SWITCH> / C<CASE> construct can be used to perform a multi-way
-conditional test. The C<SWITCH> directive expects an expression which is
-first evaluated and then compared against each CASE statement in turn.
-Each C<CASE> directive should contain a single value or a list of values
-which should match. C<CASE> may also be left blank or written as
-C<[% CASE DEFAULT %]> to specify a default match. Only one C<CASE> matches,
-there is no drop-through between C<CASE> statements.
-
- [% SWITCH myvar %]
- [% CASE 'value1' %]
- ...
- [% CASE ['value2', 'value3'] %] # multiple values
- ...
- [% CASE myhash.keys %] # ditto
- ...
- [% CASE %] # default
- ...
- [% END %]
-
-=head1 Loop Processing
-
-=head2 FOREACH
-
-The C<FOREACH> directive will iterate through the items in a list, processing
-the enclosed block for each one.
-
- [% foo = 'Foo'
- items = [ 'one', 'two', 'three' ]
- %]
-
- Things:
- [% FOREACH thing IN [ foo 'Bar' "$foo Baz" ] %]
- * [% thing %]
- [% END %]
-
- Items:
- [% FOREACH i IN items %]
- * [% i %]
- [% END %]
-
- Stuff:
- [% stuff = [ foo "$foo Bar" ] %]
- [% FOREACH s IN stuff %]
- * [% s %]
- [% END %]
-
-output:
-
- Things:
- * Foo
- * Bar
- * Foo Baz
-
- Items:
- * one
- * two
- * three
-
- Stuff:
- * Foo
- * Foo Bar
-
-You can use also use C<=> instead of C<IN> if you prefer.
-
- [% FOREACH i = items %]
-
-When the C<FOREACH> directive is used without specifying a target variable,
-any iterated values which are hash references will be automatically
-imported.
-
- [% userlist = [
- { id => 'tom', name => 'Thomas' },
- { id => 'dick', name => 'Richard' },
- { id => 'larry', name => 'Lawrence' },
- ]
- %]
-
- [% FOREACH user IN userlist %]
- [% user.id %] [% user.name %]
- [% END %]
-
-short form:
-
- [% FOREACH userlist %]
- [% id %] [% name %]
- [% END %]
-
-Note that this particular usage creates a localised variable context
-to prevent the imported hash keys from overwriting any existing
-variables. The imported definitions and any other variables defined
-in such a C<FOREACH> loop will be lost at the end of the loop, when the
-previous context and variable values are restored.
-
-However, under normal operation, the loop variable remains in scope
-after the C<FOREACH> loop has ended (caveat: overwriting any variable
-previously in scope). This is useful as the loop variable is secretly
-an iterator object (see below) and can be used to analyse the last
-entry processed by the loop.
-
-The C<FOREACH> directive can also be used to iterate through the entries
-in a hash array. Each entry in the hash is returned in sorted order
-(based on the key) as a hash array containing 'key' and 'value' items.
-
- [% users = {
- tom => 'Thomas',
- dick => 'Richard',
- larry => 'Lawrence',
- }
- %]
-
- [% FOREACH u IN users %]
- * [% u.key %] : [% u.value %]
- [% END %]
-
-Output:
-
- * dick : Richard
- * larry : Lawrence
- * tom : Thomas
-
-The C<NEXT> directive starts the next iteration in the C<FOREACH> loop.
-
- [% FOREACH user IN userlist %]
- [% NEXT IF user.isguest %]
- Name: [% user.name %] Email: [% user.email %]
- [% END %]
-
-The C<LAST> directive can be used to prematurely exit the loop. C<BREAK> is
-also provided as an alias for C<LAST>.
-
- [% FOREACH match IN results.nsort('score').reverse %]
- [% LAST IF match.score < 50 %]
- [% match.score %] : [% match.url %]
- [% END %]
-
-The C<FOREACH> directive is implemented using the L<Template::Iterator>
-module. A reference to the iterator object for a C<FOREACH> directive is
-implicitly available in the C<loop> variable. The following methods
-can be called on the C<loop> iterator.
-
- size() number of elements in the list
- max() index number of last element (size - 1)
- index() index of current iteration from 0 to max()
- count() iteration counter from 1 to size() (i.e. index() + 1)
- first() true if the current iteration is the first
- last() true if the current iteration is the last
- prev() return the previous item in the list
- next() return the next item in the list
-
-See L<Template::Iterator> for further details.
-
-Example:
-
- [% FOREACH item IN [ 'foo', 'bar', 'baz' ] -%]
- [%- "<ul>\n" IF loop.first %]
- <li>[% loop.count %]/[% loop.size %]: [% item %]
- [%- "</ul>\n" IF loop.last %]
- [% END %]
-
-Output:
-
- <ul>
- <li>1/3: foo
- <li>2/3: bar
- <li>3/3: baz
- </ul>
-
-Nested loops will work as expected, with the C<loop> variable correctly
-referencing the innermost loop and being restored to any previous
-value (i.e. an outer loop) at the end of the loop.
-
- [% FOREACH group IN grouplist;
- # loop => group iterator
- "Groups:\n" IF loop.first;
-
- FOREACH user IN group.userlist;
- # loop => user iterator
- "$loop.count: $user.name\n";
- END;
-
- # loop => group iterator
- "End of Groups\n" IF loop.last;
- END
- %]
-
-The C<iterator> plugin can also be used to explicitly create an
-iterator object. This can be useful within nested loops where you
-need to keep a reference to the outer iterator within the inner loop.
-The iterator plugin effectively allows you to create an iterator by a
-name other than C<loop>. See L<Template::Plugin::Iterator> for further
-details.
-
- [% USE giter = iterator(grouplist) %]
-
- [% FOREACH group IN giter %]
- [% FOREACH user IN group.userlist %]
- user #[% loop.count %] in
- group [% giter.count %] is
- named [% user.name %]
- [% END %]
- [% END %]
-
-=head2 WHILE
-
-The C<WHILE> directive can be used to repeatedly process a template block
-while a conditional expression evaluates true. The expression may
-be arbitrarily complex as per C<IF> / C<UNLESS>.
-
- [% WHILE total < 100 %]
- ...
- [% total = calculate_new_total %]
- [% END %]
-
-An assignment can be enclosed in parenthesis to evaluate the assigned
-value.
-
- [% WHILE (user = get_next_user_record) %]
- [% user.name %]
- [% END %]
-
-The C<NEXT> directive can be used to start the next iteration of a
-C<WHILE> loop and C<BREAK> can be used to exit the loop, both as per C<FOREACH>.
-
-The Template Toolkit uses a failsafe counter to prevent runaway C<WHILE>
-loops which would otherwise never terminate. If the loop exceeds 1000
-iterations then an C<undef> exception will be thrown, reporting the
-error:
-
- WHILE loop terminated (> 1000 iterations)
-
-The C<$Template::Directive::WHILE_MAX> variable controls this behaviour
-and can be set to a higher value if necessary.
-
-=head1 Filters, Plugins, Macros and Perl
-
-=head2 FILTER
-
-The C<FILTER> directive can be used to post-process the output of a
-block. A number of standard filters are provided with the Template
-Toolkit. The C<html> filter, for example, escapes the 'E<lt>', 'E<gt>'
-and '&' characters to prevent them from being interpreted as HTML tags
-or entity reference markers.
-
- [% FILTER html %]
- HTML text may have < and > characters embedded
- which you want converted to the correct HTML entities.
- [% END %]
-
-output:
-
- HTML text may have < and > characters embedded
- which you want converted to the correct HTML entities.
-
-The C<FILTER> directive can also follow various other non-block directives.
-For example:
-
- [% INCLUDE mytext FILTER html %]
-
-The C<|> character can also be used as an alias for C<FILTER>.
-
- [% INCLUDE mytext | html %]
-
-Multiple filters can be chained together and will be called in sequence.
-
- [% INCLUDE mytext FILTER html FILTER html_para %]
-
-or
-
- [% INCLUDE mytext | html | html_para %]
-
-Filters come in two flavours, known as 'static' or 'dynamic'. A
-static filter is a simple subroutine which accepts a text string as
-the only argument and returns the modified text. The C<html> filter is
-an example of a static filter, implemented as:
-
- sub html_filter {
- my $text = shift;
- for ($text) {
- s/&/&/g;
- s/</</g;
- s/>/>/g;
- }
- return $text;
- }
-
-Dynamic filters can accept arguments which are specified when the filter
-is called from a template. The C<repeat> filter is such an example,
-accepting a numerical argument which specifies the number of times
-that the input text should be repeated.
-
- [% FILTER repeat(3) %]blah [% END %]
-
-output:
-
- blah blah blah
-
-These are implemented as filter 'factories'. The factory subroutine
-is passed a reference to the current L<Template::Context> object along
-with any additional arguments specified. It should then return a
-subroutine reference (e.g. a closure) which implements the filter.
-The C<repeat> filter factory is implemented like this:
-
- sub repeat_filter_factory {
- my ($context, $iter) = @_;
- $iter = 1 unless defined $iter;
-
- return sub {
- my $text = shift;
- $text = '' unless defined $text;
- return join('\n', $text) x $iter;
- }
- }
-
-The C<FILTERS> option, described in L<Template::Manual::Config>, allows custom
-filters to be defined when a Template object is instantiated. The
-L<define_filter()|Template::Context#define_filter()> method allows further
-filters to be defined at any time.
-
-When using a filter, it is possible to assign an alias to it for
-further use. This is most useful for dynamic filters that you want
-to re-use with the same configuration.
-
- [% FILTER echo = repeat(2) %]
- Is there anybody out there?
- [% END %]
-
- [% FILTER echo %]
- Mother, should I build a wall?
- [% END %]
-
-Output:
-
- Is there anybody out there?
- Is there anybody out there?
-
- Mother, should I build a wall?
- Mother, should I build a wall?
-
-The C<FILTER> directive automatically quotes the name of the filter. As
-with C<INCLUDE> et al, you can use a variable to provide the name of the
-filter, prefixed by C<$>.
-
- [% myfilter = 'html' %]
- [% FILTER $myfilter %] # same as [% FILTER html %]
- ...
- [% END %]
-
-A template variable can also be used to define a static filter
-subroutine. However, the Template Toolkit will automatically call any
-subroutine bound to a variable and use the value returned. Thus, the
-above example could be implemented as:
-
- my $vars = {
- myfilter => sub { return 'html' },
- };
-
-template:
-
- [% FILTER $myfilter %] # same as [% FILTER html %]
- ...
- [% END %]
-
-To define a template variable that evaluates to a subroutine reference
-that can be used by the C<FILTER> directive, you should create a
-subroutine that, when called automatically by the Template Toolkit,
-returns another subroutine reference which can then be used to perform
-the filter operation. Note that only static filters can be
-implemented in this way.
-
- my $vars = {
- myfilter => sub { \&my_filter_sub },
- };
-
- sub my_filter_sub {
- my $text = shift;
- # do something
- return $text;
- }
-
-template:
-
- [% FILTER $myfilter %]
- ...
- [% END %]
-
-Alternately, you can bless a subroutine reference into a class (any
-class will do) to fool the Template Toolkit into thinking it's an
-object rather than a subroutine. This will then bypass the automatic
-"call-a-subroutine-to-return-a-value" magic.
-
- my $vars = {
- myfilter => bless(\&my_filter_sub, 'anything_you_like'),
- };
-
-template:
-
- [% FILTER $myfilter %]
- ...
- [% END %]
-
-Filters bound to template variables remain local to the variable context in
-which they are defined. That is, if you define a filter in a C<PERL> block
-within a template that is loaded via C<INCLUDE>, then the filter definition
-will only exist until the end of that template when the stash is delocalised,
-restoring the previous variable state. If you want to define a filter which
-persists for the lifetime of the processor, or define additional dynamic
-filter factories, then you can call the
-L<define_filter()|Template::Context#define_filter()> method on the current
-L<Template::Context> object.
-
-See L<Template::Manual::Filters> for a complete list of available filters,
-their descriptions and examples of use.
-
-=head2 USE
-
-The C<USE> directive can be used to load and initialise "plugin"
-extension modules.
-
- [% USE myplugin %]
-
-A plugin is a regular Perl module that conforms to a particular
-object-oriented interface, allowing it to be loaded into and used
-automatically by the Template Toolkit. For details of this interface
-and information on writing plugins, consult L<Template::Plugin>.
-
-A number of standard plugins are included with the Template Toolkit
-(see below and L<Template::Manual::Plugins>). The names of these
-standard plugins are case insensitive.
-
- [% USE CGI %] # => Template::Plugin::CGI
- [% USE Cgi %] # => Template::Plugin::CGI
- [% USE cgi %] # => Template::Plugin::CGI
-
-You can also define further plugins using the C<PLUGINS> option.
-
- my $tt = Template->new({
- PLUGINS => {
- foo => 'My::Plugin::Foo',
- bar => 'My::Plugin::Bar',
- },
- });
-
-The recommended convention is to specify these plugin names in lower
-case. The Template Toolkit first looks for an exact case-sensitive
-match and then tries the lower case conversion of the name specified.
-
- [% USE Foo %] # look for 'Foo' then 'foo'
-
-If you define all your C<PLUGINS> with lower case names then they will be
-located regardless of how the user specifies the name in the C<USE>
-directive. If, on the other hand, you define your C<PLUGINS> with upper
-or mixed case names then the name specified in the C<USE> directive must
-match the case exactly.
-
-If the plugin isn't defined in either the standard plugins
-(C<$Template::Plugins::STD_PLUGINS>) or via the C<PLUGINS> option, then
-the C<PLUGIN_BASE> is searched.
-
-In this case the plugin name I<is> case-sensitive. It is appended to
-each of the C<PLUGIN_BASE> module namespaces in turn (default:
-C<Template::Plugin>) to construct a full module name which it attempts
-to locate and load. Any periods, 'C<.>', in the name will be converted
-to 'C<::>'.
-
- [% USE MyPlugin %] # => Template::Plugin::MyPlugin
- [% USE Foo.Bar %] # => Template::Plugin::Foo::Bar
-
-The C<LOAD_PERL> option (disabled by default) provides a further way by
-which external Perl modules may be loaded. If a regular Perl module
-(i.e. not a C<Template::Plugin::*> or other module relative to some
-C<PLUGIN_BASE>) supports an object-oriented interface and a C<new()>
-constructor then it can be loaded and instantiated automatically. The
-following trivial example shows how the IO::File module might be used.
-
- [% USE file = IO.File('/tmp/mydata') %]
-
- [% WHILE (line = file.getline) %]
- <!-- [% line %] -->
- [% END %]
-
-Any additional parameters supplied in parenthesis after the plugin
-name will be also be passed to the C<new()> constructor. A reference to
-the current L<Template::Context> object is passed as the first
-parameter.
-
- [% USE MyPlugin('foo', 123) %]
-
-equivalent to:
-
- Template::Plugin::MyPlugin->new($context, 'foo', 123);
-
-The only exception to this is when a module is loaded via the
-C<LOAD_PERL> option. In this case the C<$context> reference is I<not>
-passed to the C<new()> constructor. This is based on the assumption that
-the module is a regular Perl module rather than a Template Toolkit
-plugin so isn't expecting a context reference and wouldn't know what
-to do with it anyway.
-
-Named parameters may also be specified. These are collated into a
-hash which is passed by reference as the last parameter to the
-constructor, as per the general code calling interface.
-
- [% USE url('/cgi-bin/foo', mode='submit', debug=1) %]
-
-equivalent to:
-
- Template::Plugin::URL->new(
- $context,
- '/cgi-bin/foo'
- { mode => 'submit', debug => 1 }
- );
-
-The plugin may represent any data type; a simple variable, hash, list or
-code reference, but in the general case it will be an object reference.
-Methods can be called on the object (or the relevant members of the
-specific data type) in the usual way:
-
- [% USE table(mydata, rows=3) %]
-
- [% FOREACH row IN table.rows %]
- <tr>
- [% FOREACH item IN row %]
- <td>[% item %]</td>
- [% END %]
- </tr>
- [% END %]
-
-An alternative name may be provided for the plugin by which it can be
-referenced:
-
- [% USE scores = table(myscores, cols=5) %]
-
- [% FOREACH row IN scores.rows %]
- ...
- [% END %]
-
-You can use this approach to create multiple plugin objects with
-different configurations. This example shows how the
-L<format|Template::Plugin::Format> plugin is used to create
-sub-routines bound to variables for formatting text as per C<printf()>.
-
- [% USE bold = format('<b>%s</b>') %]
- [% USE ital = format('<i>%s</i>') %]
- [% bold('This is bold') %]
- [% ital('This is italic') %]
-
-Output:
-
- <b>This is bold</b>
- <i>This is italic</i>
-
-This next example shows how the L<URL|Template::Plugin::URL> plugin can be
-used to build dynamic URLs from a base part and optional query parameters.
-
- [% USE mycgi = URL('/cgi-bin/foo.pl', debug=1) %]
- <a href="[% mycgi %]">...
- <a href="[% mycgi(mode='submit') %]"...
-
-Output:
-
- <a href="/cgi-bin/foo.pl?debug=1">...
- <a href="/cgi-bin/foo.pl?mode=submit&debug=1">...
-
-The L<CGI|Template::Plugin::CGI> plugin is an example of one which delegates
-to another Perl module. In this this case, to Lincoln Stein's C<CGI> module.
-All of the methods provided by the C<CGI> module are available via the plugin.
-
- [% USE CGI;
- CGI.start_form;
- CGI.checkbox_group( name = 'colours',
- values = [ 'red' 'green' 'blue' ] );
- CGI.popup_menu( name = 'items',
- values = [ 'foo' 'bar' 'baz' ] );
- CGI.end_form
- %]
-
-See L<Template::Manual::Plugins> for more information on the plugins
-distributed with the toolkit or available from CPAN.
-
-=head2 MACRO
-
-The C<MACRO> directive allows you to define a directive or directive block
-which is then evaluated each time the macro is called.
-
- [% MACRO header INCLUDE header %]
-
-Calling the macro as:
-
- [% header %]
-
-is then equivalent to:
-
- [% INCLUDE header %]
-
-Macros can be passed named parameters when called. These values remain
-local to the macro.
-
- [% header(title='Hello World') %]
-
-equivalent to:
-
- [% INCLUDE header title='Hello World' %]
-
-A C<MACRO> definition may include parameter names. Values passed to the
-macros are then mapped to these local variables. Other named parameters
-may follow these.
-
- [% MACRO header(title) INCLUDE header %]
- [% header('Hello World') %]
- [% header('Hello World', bgcol='#123456') %]
-
-equivalent to:
-
- [% INCLUDE header title='Hello World' %]
- [% INCLUDE header title='Hello World' bgcol='#123456' %]
-
-Here's another example, defining a macro for display numbers
-in comma-delimited groups of 3, using the chunk and join virtual
-method.
-
- [% MACRO number(n) GET n.chunk(-3).join(',') %]
- [% number(1234567) %] # 1,234,567
-
-A C<MACRO> may precede any directive and must conform to the structure
-of the directive.
-
- [% MACRO header IF frames %]
- [% INCLUDE frames/header %]
- [% ELSE %]
- [% INCLUDE header %]
- [% END %]
-
- [% header %]
-
-A C<MACRO> may also be defined as an anonymous C<BLOCK>. The block will be
-evaluated each time the macro is called.
-
- [% MACRO header BLOCK %]
- ...content...
- [% END %]
-
- [% header %]
-
-If you've got the C<EVAL_PERL> option set, then you can even define a
-C<MACRO> as a C<PERL> block (see below):
-
- [% MACRO triple(n) PERL %]
- my $n = $stash->get('n');
- print $n * 3;
- [% END -%]
-
-=head2 PERL
-
-(for the advanced reader)
-
-The C<PERL> directive is used to mark the start of a block which contains
-Perl code for evaluation. The C<EVAL_PERL> option must be enabled for Perl
-code to be evaluated or a C<perl> exception will be thrown with the
-message 'C<EVAL_PERL not set>'.
-
-Perl code is evaluated in the C<Template::Perl> package. The C<$context>
-package variable contains a reference to the current L<Template::Context>
-object. This can be used to access the functionality of the Template
-Toolkit to process other templates, load plugins, filters, etc.
-See L<Template::Context> for further details.
-
- [% PERL %]
- print $context->include('myfile');
- [% END %]
-
-The L<$stash> variable contains a reference to the top-level stash object
-which manages template variables. Through this, variable values can
-be retrieved and updated. See L<Template::Stash> for further details.
-
- [% PERL %]
- $stash->set(foo => 'bar');
- print "foo value: ", $stash->get('foo');
- [% END %]
-
-Output:
-
- foo value: bar
-
-Output is generated from the C<PERL> block by calling C<print()>. Note that
-the C<Template::Perl::PERLOUT> handle is selected (tied to an output
-buffer) instead of C<STDOUT>.
-
- [% PERL %]
- print "foo\n"; # OK
- print PERLOUT "bar\n"; # OK, same as above
- print Template::Perl::PERLOUT "baz\n"; # OK, same as above
- print STDOUT "qux\n"; # WRONG!
- [% END %]
-
-The C<PERL> block may contain other template directives. These are
-processed before the Perl code is evaluated.
-
- [% name = 'Fred Smith' %]
-
- [% PERL %]
- print "[% name %]\n";
- [% END %]
-
-Thus, the Perl code in the above example is evaluated as:
-
- print "Fred Smith\n";
-
-Exceptions may be thrown from within C<PERL> blocks using C<die()>.
-They will be correctly caught by enclosing C<TRY> blocks.
-
- [% TRY %]
- [% PERL %]
- die "nothing to live for\n";
- [% END %]
- [% CATCH %]
- error: [% error.info %]
- [% END %]
-
-output:
- error: nothing to live for
-
-=head2 RAWPERL
-
-(for the very advanced reader)
-
-The Template Toolkit parser reads a source template and generates the
-text of a Perl subroutine as output. It then uses C<eval()> to evaluate
-it into a subroutine reference. This subroutine is then called to
-process the template, passing a reference to the current
-L<Template::Context> object through which the functionality of the
-Template Toolkit can be accessed. The subroutine reference can be
-cached, allowing the template to be processed repeatedly without
-requiring any further parsing.
-
-For example, a template such as:
-
- [% PROCESS header %]
- The [% animal %] sat on the [% location %]
- [% PROCESS footer %]
-
-is converted into the following Perl subroutine definition:
-
- sub {
- my $context = shift;
- my $stash = $context->stash;
- my $output = '';
- my $error;
-
- eval { BLOCK: {
- $output .= $context->process('header');
- $output .= "The ";
- $output .= $stash->get('animal');
- $output .= " sat on the ";
- $output .= $stash->get('location');
- $output .= $context->process('footer');
- $output .= "\n";
- } };
- if ($@) {
- $error = $context->catch($@, \$output);
- die $error unless $error->type eq 'return';
- }
-
- return $output;
- }
-
-To examine the Perl code generated, such as in the above example, set
-the C<$Template::Parser::DEBUG> package variable to any true value. You
-can also set the C<$Template::Directive::PRETTY> variable true to have
-the code formatted in a readable manner for human consumption. The
-source code for each generated template subroutine will be printed to
-C<STDERR> on compilation (i.e. the first time a template is used).
-
- $Template::Parser::DEBUG = 1;
- $Template::Directive::PRETTY = 1;
-
- $template->process($file, $vars)
- || die $template->error(), "\n";
-
-The C<PERL> ... C<END> construct allows Perl code to be embedded into a
-template when the C<EVAL_PERL> option is set. It is evaluated at
-"runtime" using C<eval()> each time the template subroutine is called.
-This is inherently flexible, but not as efficient as it could be,
-especially in a persistent server environment where a template may be
-processed many times.
-
-The C<RAWPERL> directive allows you to write Perl code that is integrated
-directly into the generated Perl subroutine text. It is evaluated
-once at compile time and is stored in cached form as part of the
-compiled template subroutine. This makes C<RAWPERL> blocks more
-efficient than C<PERL> blocks.
-
-The downside is that you must code much closer to the metal. For example, in a
-C<PERL> block you can call L<print()> to generate some output. C<RAWPERL>
-blocks don't afford such luxury. The code is inserted directly into the
-generated subroutine text and should conform to the convention of appending to
-the C<$output> variable.
-
- [% PROCESS header %]
-
- [% RAWPERL %]
- $output .= "Some output\n";
- ...
- $output .= "Some more output\n";
- [% END %]
-
-The critical section of the generated subroutine for this example would
-then look something like:
-
- ...
- eval { BLOCK: {
- $output .= $context->process('header');
- $output .= "\n";
- $output .= "Some output\n";
- ...
- $output .= "Some more output\n";
- $output .= "\n";
- } };
- ...
-
-As with C<PERL> blocks, the L<$context|Template::Context> and
-L<$stash|Template::Stash> references are pre-defined and available for use
-within C<RAWPERL> code.
-
-=head1 Exception Handling and Flow Control
-
-=head2 TRY / THROW / CATCH / FINAL
-
-(more advanced material)
-
-The Template Toolkit supports fully functional, nested exception
-handling. The C<TRY> directive introduces an exception handling scope
-which continues until the matching C<END> directive. Any errors that
-occur within that block will be caught and can be handled by one
-of the C<CATCH> blocks defined.
-
- [% TRY %]
- ...blah...blah...
- [% CALL somecode %]
- ...etc...
- [% INCLUDE someblock %]
- ...and so on...
- [% CATCH %]
- An error occurred!
- [% END %]
-
-Errors are raised as exceptions (objects of the L<Template::Exception> class)
-which contain two fields: C<type> and C<info>. The exception C<type> is used
-to indicate the kind of error that occurred. It is a simple text string which
-can contain letters, numbers, 'C<_>' or 'C<.>'. The C<info> field contains an
-error message indicating what actually went wrong. Within a catch block, the
-exception object is aliased to the C<error> variable. You can access the C<type>
-and C<info> fields directly.
-
- [% mydsn = 'dbi:MySQL:foobar' %]
- ...
-
- [% TRY %]
- [% USE DBI(mydsn) %]
- [% CATCH %]
- ERROR! Type: [% error.type %]
- Info: [% error.info %]
- [% END %]
-
-output (assuming a non-existant database called 'C<foobar>'):
-
- ERROR! Type: DBI
- Info: Unknown database "foobar"
-
-The C<error> variable can also be specified by itself and will return a
-string of the form "C<$type error - $info>".
-
- ...
- [% CATCH %]
- ERROR: [% error %]
- [% END %]
-
-Output:
-
- ERROR: DBI error - Unknown database "foobar"
-
-Each C<CATCH> block may be specified with a particular exception type
-denoting the kind of error that it should catch. Multiple C<CATCH>
-blocks can be provided to handle different types of exception that may
-be thrown in the C<TRY> block. A C<CATCH> block specified without any type,
-as in the previous example, is a default handler which will catch any
-otherwise uncaught exceptions. This can also be specified as
-C<[% CATCH DEFAULT %]>.
-
- [% TRY %]
- [% INCLUDE myfile %]
- [% USE DBI(mydsn) %]
- [% CALL somecode %]
- [% CATCH file %]
- File Error! [% error.info %]
- [% CATCH DBI %]
- [% INCLUDE database/error.html %]
- [% CATCH %]
- [% error %]
- [% END %]
-
-Remember that you can specify multiple directives within a single tag,
-each delimited by 'C<;>'. So the above example can be written more
-concisely as:
-
- [% TRY;
- INCLUDE myfile;
- USE DBI(mydsn);
- CALL somecode;
- CATCH file;
- "File Error! $error.info";
- CATCH DBI;
- INCLUDE database/error.html;
- CATCH;
- error;
- END
- %]
-
-The C<DBI> plugin throws exceptions of the C<DBI> type (in case that
-wasn't already obvious). The other specific exception caught here is
-of the C<file> type.
-
-A C<file> exception is automatically thrown by the Template Toolkit when it
-can't find a file, or fails to load, parse or process a file that has been
-requested by an C<INCLUDE>, C<PROCESS>, C<INSERT> or C<WRAPPER> directive.
-If C<myfile> can't be found in the example above, the C<[% INCLUDE myfile %]>
-directive will raise a C<file> exception which is then caught by the
-C<[% CATCH file %]> block. The output generated would be:
-
- File Error! myfile: not found
-
-Note that the C<DEFAULT> option (disabled by default) allows you to specify a
-default file to be used any time a template file can't be found. This will
-prevent file exceptions from ever being raised when a non-existant file is
-requested (unless, of course, the C<DEFAULT> file your specify doesn't exist).
-Errors encountered once the file has been found (i.e. read error, parse error)
-will be raised as file exceptions as per usual.
-
-Uncaught exceptions (i.e. if the C<TRY> block doesn't have a type specific or
-default C<CATCH> handler) may be caught by enclosing C<TRY> blocks which can
-be nested indefinitely across multiple templates. If the error isn't caught at
-any level then processing will stop and the Template
-L<process()|Template#process()> method will return a false value to the
-caller. The relevant L<Template::Exception> object can be retrieved by calling
-the L<error()|Template#error()> method.
-
- [% TRY %]
- ...
- [% TRY %]
- [% INCLUDE $user.header %]
- [% CATCH file %]
- [% INCLUDE header %]
- [% END %]
- ...
- [% CATCH DBI %]
- [% INCLUDE database/error.html %]
- [% END %]
-
-In this example, the inner C<TRY> block is used to ensure that the first
-C<INCLUDE> directive works as expected. We're using a variable to
-provide the name of the template we want to include, C<user.header>, and
-it's possible this contains the name of a non-existant template, or
-perhaps one containing invalid template directives. If the C<INCLUDE> fails
-with a C<file> error then we C<CATCH> it in the inner block and C<INCLUDE>
-the default C<header> file instead. Any C<DBI> errors that occur within
-the scope of the outer C<TRY> block will be caught in the relevant C<CATCH>
-block, causing the C<database/error.html> template to be processed.
-Note that included templates inherit all currently defined template
-variable so these error files can quite happily access the <error>
-variable to retrieve information about the currently caught exception.
-For example, the C<database/error.html> template might look like this:
-
- <h2>Database Error</h2>
- A database error has occurred: [% error.info %]
-
-You can also specify a C<FINAL> block. This is always processed
-regardless of the outcome of the C<TRY> and/or C<CATCH> blocks. If an
-exception is uncaught then the C<FINAL> block is processed before jumping
-to the enclosing block or returning to the caller.
-
- [% TRY %]
- ...
- [% CATCH this %]
- ...
- [% CATCH that %]
- ...
- [% FINAL %]
- All done!
- [% END %]
-
-The output from the C<TRY> block is left intact up to the point where an
-exception occurs. For example, this template:
-
- [% TRY %]
- This gets printed
- [% THROW food 'carrots' %]
- This doesn't
- [% CATCH food %]
- culinary delights: [% error.info %]
- [% END %]
-
-generates the following output:
-
- This gets printed
- culinary delights: carrots
-
-The C<CLEAR> directive can be used in a C<CATCH> or C<FINAL> block to clear
-any output created in the C<TRY> block.
-
- [% TRY %]
- This gets printed
- [% THROW food 'carrots' %]
- This doesn't
- [% CATCH food %]
- [% CLEAR %]
- culinary delights: [% error.info %]
- [% END %]
-
-Output:
-
- culinary delights: carrots
-
-Exception types are hierarchical, with each level being separated by
-the familiar dot operator. A C<DBI.connect> exception is a more
-specific kind of C<DBI> error. Similarly, an C<example.error.barf> is a
-more specific kind of C<example.error> type which itself is also a
-C<example> error.
-
-A C<CATCH> handler that specifies a general exception
-type (such as C<DBI> or C<example.error>) will also catch more specific
-types that have the same prefix as long as a more specific handler
-isn't defined. Note that the order in which C<CATCH> handlers are
-defined is irrelevant; a more specific handler will always catch an
-exception in preference to a more generic or default one.
-
- [% TRY %]
- ...
- [% CATCH DBI ;
- INCLUDE database/error.html ;
- CATCH DBI.connect ;
- INCLUDE database/connect.html ;
- CATCH ;
- INCLUDE error.html ;
- END
- %]
-
-In this example, a C<DBI.connect> error has it's own handler, a more general
-C<DBI> block is used for all other C<DBI> or C<DBI.*> errors and a default
-handler catches everything else.
-
-Exceptions can be raised in a template using the C<THROW> directive. The
-first parameter is the exception type which doesn't need to be quoted
-(but can be, it's the same as C<INCLUDE>) followed by the relevant error
-message which can be any regular value such as a quoted string,
-variable, etc.
-
- [% THROW food "Missing ingredients: $recipe.error" %]
- [% THROW user.login 'no user id: please login' %]
- [% THROW $myerror.type "My Error: $myerror.info" %]
-
-It's also possible to specify additional positional or named
-parameters to the C<THROW> directive if you want to pass more than
-just a simple message back as the error info field.
-
- [% THROW food 'eggs' 'flour' msg='Missing Ingredients' %]
-
-In this case, the error C<info> field will be a hash array containing the
-named arguments and an C<args> item which contains a list of the positional
-arguments.
-
- type => 'food',
- info => {
- msg => 'Missing Ingredients',
- args => ['eggs', 'flour'],
- }
-
-In addition to specifying individual positional arguments as
-C<[% error.info.args.n %]>, the C<info> hash contains keys directly
-pointing to the positional arguments, as a convenient shortcut.
-
- [% error.info.0 %] # same as [% error.info.args.0 %]
-
-Exceptions can also be thrown from Perl code which you've bound to
-template variables, or defined as a plugin or other extension. To
-raise an exception, call C<die()> passing a reference to a
-L<Template::Exception> object as the argument. This will then be caught
-by any enclosing C<TRY> blocks from where the code was called.
-
- use Template::Exception;
- ...
- my $vars = {
- foo => sub {
- # ... do something ...
- die Template::Exception->new('myerr.naughty',
- 'Bad, bad error');
- },
- };
-
-Template:
-
- [% TRY %]
- [% foo %]
- [% CATCH myerr ;
- "Error: $error" ;
- END
- %]
-
-Output:
-
- Error: myerr.naughty error - Bad, bad error
-
-The C<info> field can also be a reference to another object or data
-structure, if required.
-
- die Template::Exception->new('myerror', {
- module => 'foo.pl',
- errors => [ 'bad permissions', 'naughty boy' ],
- });
-
-Later, in a template:
-
- [% TRY %]
- ...
- [% CATCH myerror %]
- [% error.info.errors.size or 'no';
- error.info.errors.size == 1 ? ' error' : ' errors' %]
- in [% error.info.module %]:
- [% error.info.errors.join(', ') %].
- [% END %]
-
-Generating the output:
-
- 2 errors in foo.pl:
- bad permissions, naughty boy.
-
-You can also call C<die()> with a single string, as is common in much
-existing Perl code. This will automatically be converted to an
-exception of the 'C<undef>' type (that's the literal string 'C<undef>',
-not the undefined value). If the string isn't terminated with a
-newline then Perl will append the familiar C<" at $file line $line">
-message.
-
- sub foo {
- # ... do something ...
- die "I'm sorry, Dave, I can't do that\n";
- }
-
-If you're writing a plugin, or some extension code that has the current
-L<Template::Context> in scope (you can safely skip this section if this means
-nothing to you) then you can also raise an exception by calling the context
-L<throw()|Template::Context#throw()> method. You can pass it an
-L<Template::Exception> object reference, a pair of C<($type, $info)>
-parameters or just an C<$info> string to create an exception of 'C<undef>' type.
-
- $context->throw($e); # exception object
- $context->throw('Denied'); # 'undef' type
- $context->throw('user.passwd', 'Bad Password');
-
-=head2 NEXT
-
-The C<NEXT> directive can be used to start the next iteration of a C<FOREACH>
-or C<WHILE> loop.
-
- [% FOREACH user IN users %]
- [% NEXT IF user.isguest %]
- Name: [% user.name %] Email: [% user.email %]
- [% END %]
-
-=head2 LAST
-
-The C<LAST> directive can be used to prematurely exit a C<FOREACH> or C<WHILE>
-loop.
-
- [% FOREACH user IN users %]
- Name: [% user.name %] Email: [% user.email %]
- [% LAST IF some.condition %]
- [% END %]
-
-C<BREAK> can also be used as an alias for C<LAST>.
-
-=head2 RETURN
-
-The C<RETURN> directive can be used to stop processing the current template
-and return to the template from which it was called, resuming processing at
-the point immediately after the C<INCLUDE>, C<PROCESS> or C<WRAPPER>
-directive. If there is no enclosing template then the Template
-L<process()|Template#process()> method will return to the calling code with a
-true value.
-
- Before
- [% INCLUDE half_wit %]
- After
-
- [% BLOCK half_wit %]
- This is just half...
- [% RETURN %]
- ...a complete block
- [% END %]
-
-Output:
-
- Before
- This is just half...
- After
-
-=head2 STOP
-
-The C<STOP> directive can be used to indicate that the processor should stop
-gracefully without processing any more of the template document. This is a
-planned stop and the Template L<process()|Template#process()> method will
-return a B<true> value to the caller. This indicates that the template was
-processed successfully according to the directives within it.
-
- [% IF something.terrible.happened %]
- [% INCLUDE fatal/error.html %]
- [% STOP %]
- [% END %]
-
- [% TRY %]
- [% USE DBI(mydsn) %]
- ...
- [% CATCH DBI.connect %]
- <h1>Cannot connect to the database: [% error.info %]</h1>
- <p>
- We apologise for the inconvenience.
- </p>
- [% INCLUDE footer %]
- [% STOP %]
- [% END %]
-
-=head2 CLEAR
-
-The C<CLEAR> directive can be used to clear the output buffer for the current
-enclosing block. It is most commonly used to clear the output generated
-from a C<TRY> block up to the point where the error occurred.
-
- [% TRY %]
- blah blah blah # this is normally left intact
- [% THROW some 'error' %] # up to the point of error
- ...
- [% CATCH %]
- [% CLEAR %] # clear the TRY output
- [% error %] # print error string
- [% END %]
-
-=head1 Miscellaneous
-
-=head2 META
-
-The C<META> directive allows simple metadata items to be defined within a
-template. These are evaluated when the template is parsed and as such may only
-contain simple values (e.g. it's not possible to interpolate other variables
-values into C<META> variables).
-
- [% META
- title = 'The Cat in the Hat'
- author = 'Dr. Seuss'
- version = 1.23
- %]
-
-The C<template> variable contains a reference to the main template
-being processed. These metadata items may be retrieved as attributes
-of the template.
-
- <h1>[% template.title %]</h1>
- <h2>[% template.author %]</h2>
-
-The C<name> and C<modtime> metadata items are automatically defined for each
-template to contain its name and modification time in seconds since the epoch.
-
- [% USE date %] # use Date plugin to format time
- ...
- [% template.name %] last modified
- at [% date.format(template.modtime) %]
-
-The C<PRE_PROCESS> and C<POST_PROCESS> options allow common headers and
-footers to be added to all templates. The C<template> reference is
-correctly defined when these templates are processed, allowing headers
-and footers to reference metadata items from the main template.
-
- $template = Template->new({
- PRE_PROCESS => 'header',
- POST_PROCESS => 'footer',
- });
-
- $template->process('cat_in_hat');
-
-header:
-
- <html>
- <head>
- <title>[% template.title %]</title>
- </head>
- <body>
-
-cat_in_hat:
-
- [% META
- title = 'The Cat in the Hat'
- author = 'Dr. Seuss'
- version = 1.23
- year = 2000
- %]
-
- The cat in the hat sat on the mat.
-
-footer:
-
- <hr>
- © [% template.year %] [% template.author %]
- </body>
- </html>
-
-The output generated from the above example is:
-
- <html>
- <head>
- <title>The Cat in the Hat</title>
- </head>
- <body>
- The cat in the hat sat on the mat.
- <hr>
- © 2000 Dr. Seuss
- </body>
- </html>
-
-=head2 TAGS
-
-The C<TAGS> directive can be used to set the C<START_TAG> and C<END_TAG> values
-on a per-template file basis.
-
- [% TAGS <+ +> %]
-
- <+ INCLUDE header +>
-
-The TAGS directive may also be used to set a named C<TAG_STYLE>
-
- [% TAGS html %]
- <!-- INCLUDE header -->
-
-See the L<TAGS|Template::Manual::Config#TAGS> and L<TAG_STYLE|Template::Manual::Config#TAG_STYLE>
-configuration options for further details.
-
-=head2 DEBUG
-
-The C<DEBUG> directive can be used to enable or disable directive debug
-messages within a template. The C<DEBUG> configuration option must be
-set to include C<DEBUG_DIRS> for the C<DEBUG> directives to have any effect.
-If C<DEBUG_DIRS> is not set then the parser will automatically ignore and
-remove any C<DEBUG> directives.
-
-The C<DEBUG> directive can be used with an C<on> or C<off> parameter to
-enable or disable directive debugging messages from that point
-forward. When enabled, the output of each directive in the generated
-output will be prefixed by a comment indicate the file, line and
-original directive text.
-
- [% DEBUG on %]
- directive debugging is on (assuming DEBUG option is set true)
- [% DEBUG off %]
- directive debugging is off
-
-The C<format> parameter can be used to change the format of the debugging
-message.
-
- [% DEBUG format '<!-- $file line $line : [% $text %] -->' %]
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Internals.pod b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Internals.pod
deleted file mode 100644
index e616bfb..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Internals.pod
+++ /dev/null
@@ -1,505 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# Template::Manual::Internals
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#========================================================================
-
-=head1 NAME
-
-Template::Manual::Internals - Template Toolkit internals
-
-=head1 Introduction
-
-This section of the documentation is aimed at developers wishing to
-know more about how the Template Toolkit works on the inside in order
-to extend or adapt it to their own needs.
-
-If that doesn't sound like you then you probably don't need to read this.
-There is no test afterwards.
-
-=head1 Outside Looking In
-
-The L<Template> module is simply a front end module which creates and
-uses a L<Template::Service> and pipes the output wherever you want it to
-go (C<STDOUT> by default, or maybe a file, scalar, etc). The
-C<Apache::Template> module (available separately from CPAN) is another
-front end. That creates a C<Template::Service::Apache> object, calls on
-it as required and sends the output back to the relevant
-C<Apache::Request> object.
-
-These front-end modules are really only there to handle any specifics
-of the environment in which they're being used. The C<Apache::Template>
-front end, for example, handles C<Apache::Request> specifics and
-configuration via the F<httpd.conf>. The regular L<Template> front-end
-deals with C<STDOUT>, variable refs, etc. Otherwise it is
-L<Template::Service> (or subclass) which does all the work.
-
-The L<Template::Service> module provides a high-quality template
-delivery service, with bells, whistles, signed up service level
-agreement and a 30-day no quibble money back guarantee. "Have
-a good time, all the time", that's our motto.
-
-Within the lower levels of the Template Toolkit, there are lots of messy
-details that we generally don't want to have to worry about most of the time.
-Things like templates not being found, or failing to parse correctly, uncaught
-exceptions being thrown, missing plugin modules or dependencies, and so on.
-L<Template::Service> hides that all away and makes everything look simple to
-the outsider. It provides extra features, like C<PRE_PROCESS>, C<PROCESS> and
-C<POST_PROCESS>, and also provides the error recovery mechanism via C<ERROR>.
-You ask it to process a template and it takes care of everything for you. The
-C<Template::Service::Apache> module goes a little bit further, adding some extra
-headers to the L<Apache::Request>, setting a few extra template variables, and so
-on.
-
-For the most part, the job of a service is really just one of scheduling and
-dispatching. It receives a request in the form of a call to its
-L<process()|Template::Service#process()> method and schedules the named
-template specified as an argument, and possibly several other templates
-(C<PRE_PROCESS>, etc) to be processed in order. It doesn't actually process
-the templates itself, but instead makes a
-L<process()|Template::Context#process()> call against a L<Template::Context>
-object.
-
-L<Template::Context> is the runtime engine for the Template Toolkit -
-the module that hangs everything together in the lower levels of the
-Template Toolkit and that one that does most of the real work, albeit
-by crafty delegation to various other friendly helper modules.
-
-Given a template name (or perhaps a reference to a scalar or file
-handle) the context process() method must load and compile, or fetch a
-cached copy of a previously compiled template, corresponding to that
-name. It does this by calling on a list of one or more
-L<Template::Provider> objects (the C<LOAD_TEMPLATES> posse) who themselves
-might get involved with a L<Template::Parser> to help turn source
-templates into executable Perl code (but more on that later).
-
-Thankfully, all of this complexity is hidden away behind a simple
-L<template()|Template::Context#template()> method. You call it passing a
-template name as an argument, and it returns a compiled template in the form
-of a L<Template::Document> object, or otherwise raises an exception.
-
-A L<Template::Document> is a thin object wrapper around a compiled template
-subroutine. The object implements a L<process()|Template::Document#process()>
-method which performs a little bit of housekeeping and then calls the template
-subroutine. The object also defines template metadata (defined in C<[% META
-... %]> directives) and has a L<block()|Template::Document#block()> method
-which returns a hash of any additional C<[% BLOCK xxxx %]> definitions found
-in the template source.
-
-So the context fetches a compiled document via its own
-L<template()|Template::Context#template()> method and then gets ready to
-process it. It first updates the stash (the place where template variables get
-defined - more on that shortly) to set any template variable definitions
-specified as the second argument by reference to hash array. Then, it calls
-the document L<process()|Template::Document#process()> method, passing a
-reference to itself, the context object, as an argument. In doing this, it
-provides itself as an object against which template code can make callbacks to
-access runtime resources and Template Toolkit functionality.
-
-What we're trying to say here is this: not only does the L<Template::Context>
-object receive calls from the I<outside>, i.e. those originating in user
-code calling the process() method on a Template object, but it also
-receives calls from the I<inside>, i.e. those originating in template
-directives of the form C<[% PROCESS template %]>.
-
-Before we move on to that, here's a simple structure diagram showing
-the outer layers of the Template Toolkit heading inwards, with pseudo
-code annotations showing a typical invocation sequence.
-
- ,--------.
- | Caller | use Template;
- `--------' my $tt = Template->new( ... );
- | $tt->process($template, \%vars);
- | Outside
- - - - | - - - - - - - - - - - - - - - - - - - - - - - - - - - - T T
- | package Template; Inside
- V
- +----------+ sub process($template, \%vars) {
- | Template | $out = $self->SERVICE->process($template, $vars);
- +----------+ print $out or send it to $self->OUTPUT;
- | }
- |
- | package Template::Service;
- |
- | sub process($template, \%vars) {
- | try {
- +----------+ foreach $p in @self->PRE_PROCESS
- | Service | $self->CONTEXT->process($p, $vars);
- +----------+
- | $self->CONTEXT->process($template, $vars);
- |
- | foreach $p @self->POST_PROCESS
- | $self->CONTEXT->process($p, $vars);
- | }
- | catch {
- | $self->CONTEXT->process($self->ERROR);
- | }
- | }
- |
- V package Template::Context;
- +----------+
- | Context | sub process($template, \%vars) {
- +----------+ # fetch compiled template
- | $template = $self->template($template)
- | # update stash
- | $self->STASH->update($vars);
- | # process template
- | $template->process($self)
- | }
- V
- +----------+ package Template::Document;
- | Document |
- +----------+ sub process($context) {
- $output = &{ $self->BLOCK }($context);
- }
-
-=head1 Inside Looking Out
-
-To understand more about what's going on in these lower levels, we
-need to look at what a compiled template looks like. In fact, a
-compiled template is just a regular Perl sub-routine. Here's a very
-simple one.
-
- sub my_compiled_template {
- return "This is a compiled template.\n";
- }
-
-You're unlikely to see a compiled template this simple unless you
-wrote it yourself but it is entirely valid. All a template subroutine
-is obliged to do is return some output (which may be an empty of
-course). If it can't for some reason, then it should raise an error
-via C<die()>.
-
- sub my_todo_template {
- die "This template not yet implemented\n";
- }
-
-If it wants to get fancy, it can raise an error as a
-L<Template::Exception> object. An exception object is really just a
-convenient wrapper for the 'C<type>' and 'C<info>' fields.
-
- sub my_solilique_template {
- die (Template::Exception->new('yorrick', 'Fellow of infinite jest'));
- }
-
-Templates generally need to do a lot more than just generate static output or
-raise errors. They may want to inspect variable values, process another
-template, load a plugin, run a filter, and so on. Whenever a template
-subroutine is called, it gets passed a reference to a L<Template::Context>
-object. It is through this context object that template code can access the
-features of the Template Toolkit.
-
-We described earlier how the L<Template::Service> object calls on
-L<Template::Context> to handle a L<process()|Template::Context#process()>
-request from the I<outside>. We can make a similar request on a context to
-process a template, but from within the code of another template. This is a
-call from the I<inside>.
-
- sub my_process_template {
- my $context = shift;
- my $output = $context->process('header', { title => 'Hello World' })
- . "\nsome content\n"
- . $context->process('footer');
- }
-
-This is then roughly equivalent to a source template something
-like this:
-
- [% PROCESS header
- title = 'Hello World'
- %]
- some content
- [% PROCESS footer %]
-
-Template variables are stored in, and managed by a L<Template::Stash> object.
-This is a blessed hash array in which template variables are defined. The
-object wrapper provides L<get()|Template::Stash#get()> and
-L<set()|Template::Stash#set()> method which implement all the
-I<magical.variable.features> of the Template Toolkit.
-
-Each context object has its own stash, a reference to which can be returned by
-the appropriately named L<stash()|Template::Context#stash()> method. So to
-print the value of some template variable, or for example, to represent the
-following source template:
-
- <title>[% title %]</title>
-
-we might have a subroutine definition something like this:
-
- sub {
- my $context = shift;
- my $stash = $context->stash();
- return '<title>' . $stash->get('title') . '</title>';
- }
-
-The stash L<get()|Template::Stash#get()> method hides the details of the
-underlying variable types, automatically calling code references, checking
-return values, and performing other such tricks. If 'C<title>' happens to be
-bound to a subroutine then we can specify additional parameters as a list
-reference passed as the second argument to get().
-
- [% title('The Cat Sat on the Mat') %]
-
-This translates to the stash call:
-
- $stash->get([ 'title', ['The Cat Sat on the Mat'] ]);
-
-Dotted compound variables can be requested by passing a single
-list reference to the C<get()> method in place of the variable
-name. Each pair of elements in the list should correspond to the
-variable name and reference to a list of arguments for each
-dot-delimited element of the variable.
-
- [% foo(1, 2).bar(3, 4).baz(5) %]
-
-is thus equivalent to
-
- $stash->get([ foo => [1,2], bar => [3,4], baz => [5] ]);
-
-If there aren't any arguments for an element, you can specify an
-empty, zero or null argument list.
-
- [% foo.bar %]
- $stash->get([ 'foo', 0, 'bar', 0 ]);
-
-The L<set()|Template::Stash#set()> method works in a similar way. It takes a
-variable name and a variable value which should be assigned to it.
-
- [% x = 10 %]
- $stash->set('x', 10);
-
- [% x.y = 10 %]
- $stash->set([ 'x', 0, 'y', 0 ], 10);
-
-So the stash gives us access to template variables and the context provides
-the higher level functionality.
-
-Alongside the L<process()|Template::Context#process()> method lies the
-L<include()|Template::Context#include()> method. Just as with the C<PROCESS> /
-C<INCLUDE> directives, the key difference is in variable localisation. Before
-processing a template, the C<process()> method simply updates the stash to set
-any new variable definitions, overwriting any existing values. In contrast,
-the C<include()> method creates a copy of the existing stash, in a process known
-as I<cloning> the stash, and then uses that as a temporary variable store. Any
-previously existing variables are still defined, but any changes made to
-variables, including setting the new variable values passed aas arguments will
-affect only the local copy of the stash (although note that it's only a
-shallow copy, so it's not foolproof). When the template has been processed,
-the C<include()> method restores the previous variable state by I<decloning> the
-stash.
-
-The context also provides an L<insert()|Template::Context#insert()> method to
-implement the C<INSERT> directive, but no C<wrapper()> method. This functionality
-can be implemented by rewriting the Perl code and calling C<include()>.
-
- [% WRAPPER foo -%]
- blah blah [% x %]
- [%- END %]
-
- $context->include('foo', {
- content => 'blah blah ' . $stash->get('x'),
- });
-
-Other than the template processing methods C<process()>, C<include()> and
-C<insert()>, the context defines methods for fetching plugin objects,
-L<plugin()|Template::Context#plugin()>, and filters,
-L<filter()|Template::Context#filter()>.
-
- # TT USE directive
- [% USE foo = Bar(10) %]
-
- # equivalent Perl
- $stash->set('foo', $context->plugin('Bar', [10]));
-
- # TT FILTER block
- [% FILTER bar(20) %]
- blah blah blah
- [% END %]
-
- # equivalent Perl
- my $filter = $context->filter('bar', [20]);
- &$filter('blah blah blah');
-
-Pretty much everything else you might want to do in a template can be done in
-Perl code. Things like C<IF>, C<UNLESS>, C<FOREACH> and so on all have direct
-counterparts in Perl.
-
- # TT IF directive
- [% IF msg %]
- Message: [% msg %]
- [% END %];
-
- # equivalent Perl
- if ($stash->get('msg')) {
- $output .= 'Message: ';
- $output .= $stash->get('msg');
- }
-
-The best way to get a better understanding of what's going on underneath
-the hood is to set the C<$Template::Parser::DEBUG> flag to a true value
-and start processing templates. This will cause the parser to print the
-generated Perl code for each template it compiles to C<STDERR>. You'll
-probably also want to set the C<$Template::Directive::PRETTY> option to
-have the Perl pretty-printed for human consumption.
-
- use Template;
- use Template::Parser;
- use Template::Directive;
-
- $Template::Parser::DEBUG = 1;
- $Template::Directive::PRETTY = 1;
-
- my $template = Template->new();
- $template->process(\*DATA, { cat => 'dog', mat => 'log' });
-
- __DATA__
- The [% cat %] sat on the [% mat %]
-
-The output sent to C<STDOUT> remains as you would expect:
-
- The dog sat on the log
-
-The output sent to C<STDERR> would look something like this:
-
- compiled main template document block:
- sub {
- my $context = shift || die "template sub called without context\n";
- my $stash = $context->stash;
- my $output = '';
- my $error;
-
- eval { BLOCK: {
- $output .= "The ";
- $output .= $stash->get('cat');
- $output .= " sat on the ";
- $output .= $stash->get('mat');
- $output .= "\n";
- } };
- if ($@) {
- $error = $context->catch($@, \$output);
- die $error unless $error->type eq 'return';
- }
-
- return $output;
- }
-
-=head1 Hacking on the Template Toolkit
-
-Please feel free to hack on the Template Toolkit. If you find a bug
-that needs fixing, if you have an idea for something that's missing,
-or you feel inclined to tackle something on the TODO list, then by all
-means go ahead and do it!
-
-If you're contemplating something non-trivial then you'll probably
-want to bring it up on the mailing list first to get an idea about the
-current state of play, find out if anyone's already working on it, and
-so on.
-
-When you start to hack on the Template Toolkit, please make sure you
-start from the latest developer release. Stable releases are uploaded
-to CPAN and have all-numerical version numbers, e.g. 2.04, 2.05.
-Developer releases are available from the Template Toolkit web site
-and have a character suffix on the version, e.g. 2.04a, 2.04b, etc.
-
-Once you've made your changes, please remember to update the test
-suite by adding extra tests to one of the existing test scripts in
-the C<t> sub-directory, or by adding a new test script of your own.
-And of course, run C<make test> to ensure that all the tests pass
-with your new code.
-
-Don't forget that any files you do add will need to be added to the
-MANIFEST. Running C<make manifest> will do this for you, but you need
-to make sure you haven't got any other temporary files lying around
-that might also get added to it.
-
-Documentation is often something that gets overlooked but it's just as
-important as the code. If you're adding a new module, a plugin module, for
-example, then it's OK to include the POD documentation in with the module, but
-I<please> write it all in one piece at the end of the file, I<after> the code
-(just look at any other C<Template::*> module for an example). It's a
-religious issue, I know, but I have a strong distaste for POD documentation
-interspersed throughout the code. In my not-so-humble opinion, it makes both
-the code and the documentation harder to read (same kinda problem as embedding
-Perl in HTML).
-
-To share your changes with the rest of the world, you'll need to
-prepare a patch file. To do this you should have 2 directories
-side-by-side, one which is the original, unmodified distribution
-directory for the latest developer release, and the other is a
-copy of that same directory which includes your changes.
-
-The following example shows a typical hacking session. First we
-unpack the latest developer release.
-
- $ tar zxf Template-Toolkit-2.05c.tar.gz
-
-At this point, it's a good idea to rename the directory to give
-some indicate of what it contains.
-
- $ mv Template-Toolkit-2.05c Template-Toolkit-2.05c-abw-xyz-hack
-
-Then go hack!
-
- $ cd Template-Toolkit-2.05c-abw-xyz-hack
-
- [ hacking ]
-
- $ cd ..
-
-When you're all done and ready to prepare a patch, unpack the
-distribution archive again so that you've got the original to
-C<diff> against your new code.
-
- $ tar zxf Template-Toolkit-2.05c.tar.gz
-
-You should now have an original distribution directory and a modified
-version of that same directory, side-by-side.
-
- $ ls
- Template-Toolkit-2.05c Template-Toolkit-2.05c-abw-xyz-hack
-
-Now run C<diff> and save the output into an appropriately named patch
-file.
-
- $ diff -Naur Template-Toolkit-2.05c Template-Toolkit-2.05c-abw-xyz-hack > patch-TT205c-abw-xyz-hack
-
-You can then post the generated patch file to the mailing list,
-describing what it does, why it does it, how it does it and any
-other relevant information.
-
-If you want to apply someone else's patch then you should start with the
-same original distribution source on which the patch is based. From within
-the root of the distribution, run C<patch> feeding in the patch file as
-standard input. The 'C<p1>' option is required to strip the first element
-of the path name (e.g. C<Template-Toolkit-2.05c/README> becomes C<README> which
-is then the correct path).
-
- $ tar zxf Template-Toolkit-2.05c.tar.gz
- $ cd Template-Toolkit-2.05c
- $ patch -p1 < ../patch-TT205c-abw-xyz-hack
-
-The output generated by C<patch> should be something like the following:
-
- patching file README
- patching file lib/Template.pm
- patching file lib/Template/Provider.pm
- patching file t/provider.t
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Plugins.pod b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Plugins.pod
deleted file mode 100644
index 902428c..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Plugins.pod
+++ /dev/null
@@ -1,328 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# Template::Manual::Plugins
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#========================================================================
-
-=head1 NAME
-
-Template::Manual::Plugins - Standard plugins
-
-=head1 TEMPLATE TOOLKIT PLUGINS
-
-The following plugin modules are distributed with the Template
-Toolkit. Some of the plugins interface to external modules (detailed
-below) which should be downloaded from any CPAN site and installed
-before using the plugin.
-
-=head2 Assert
-
-New in 2.20! The L<Assert|Template::Plugin::Assert> plugin adds an
-C<assert> virtual method that you can use to catch undefined values.
-
-For example, consider this dotop:
-
- [% user.name %]
-
-If C<user.name> is an undefined value then TT will silently ignore the
-fact and print nothing. If you C<USE> the C<assert> plugin then you
-can add the C<assert> vmethod between the C<user> and C<name> elements,
-like so:
-
- [% user.assert.name %]
-
-Now, if C<user.name> is an undefined value, an exception will be thrown:
-
- assert error - undefined value for name
-
-=head2 Autoformat
-
-The L<Autoformat|Template::Plugin::Autoformat> plugin is an interface to
-Damian Conway's L<Text::Autoformat> Perl module which provides advanced text
-wrapping and formatting. See L<Template::Plugin::Autoformat> and
-L<Text::Autoformat> for further details.
-
- [% USE autoformat(left=10, right=20) %]
- [% autoformat(mytext) %] # call autoformat sub
- [% mytext FILTER autoformat %] # or use autoformat filter
-
-The L<Text::Autoformat> module is available from CPAN:
-
- L<http://www.cpan.org/modules/by-module/Text/>
-
-=head2 CGI
-
-The L<CGI|Template::Plugin::CGI> plugin is a wrapper around Lincoln Stein's
-CGI.pm module. The plugin is distributed with the Template Toolkit (see
-L<Template::Plugin::CGI>) and the L<CGI> module itself is distributed with
-recent versions Perl, or is available from CPAN.
-
- [% USE CGI %]
- [% CGI.param('param_name') %]
- [% CGI.start_form %]
- [% CGI.popup_menu( Name => 'color',
- Values => [ 'Green', 'Brown' ] ) %]
- [% CGI.end_form %]
-
-=head2 Datafile
-
-Provides an interface to data stored in a plain text file in a simple
-delimited format. The first line in the file specifies field names
-which should be delimiter by any non-word character sequence.
-Subsequent lines define data using the same delimiter as in the first
-line. Blank lines and comments (lines starting '#') are ignored. See
-L<Template::Plugin::Datafile> for further details.
-
-/tmp/mydata:
-
- # define names for each field
- id : email : name : tel
- # here's the data
- fred : fred at here.com : Fred Smith : 555-1234
- bill : bill at here.com : Bill White : 555-5678
-
-example:
-
- [% USE userlist = datafile('/tmp/mydata') %]
-
- [% FOREACH user = userlist %]
- [% user.name %] ([% user.id %])
- [% END %]
-
-=head2 Date
-
-The L<Date|Template::Plugin::Date> plugin provides an easy way to generate
-formatted time and date strings by delegating to the L<POSIX> C<strftime()>
-routine. See L<Template::Plugin::Date> and L<POSIX> for further details.
-
- [% USE date %]
- [% date.format %] # current time/date
-
- File last modified: [% date.format(template.modtime) %]
-
-=head2 Directory
-
-The L<Directory|Template::Plugin::Directory> plugin provides a simple
-interface to a directory and the files within it. See
-L<Template::Plugin::Directory> for further details.
-
- [% USE dir = Directory('/tmp') %]
- [% FOREACH file = dir.files %]
- # all the plain files in the directory
- [% END %]
- [% FOREACH file = dir.dirs %]
- # all the sub-directories
- [% END %]
-
-=head2 DBI
-
-The C<DBI> plugin is no longer distributed as part of the Template Toolkit
-(as of version 2.15). It is now available as a separate L<Template::DBI>
-distribution from CPAN.
-
-=head2 Dumper
-
-The L<Dumper|Template::Plugin::Dumper> plugin provides an interface to the
-Data::Dumper module. See L<Template::Plugin::Dumper> and L<Data::Dumper> for
-futher details.
-
- [% USE dumper(indent=0, pad="<br>") %]
- [% dumper.dump(myvar, yourvar) %]
-
-=head2 File
-
-The L<File|Template::Plugin::File> plugin provides a general abstraction for
-files and can be used to fetch information about specific files within a
-filesystem. See L<Template::Plugin::File> for further details.
-
- [% USE File('/tmp/foo.html') %]
- [% File.name %] # foo.html
- [% File.dir %] # /tmp
- [% File.mtime %] # modification time
-
-=head2 Filter
-
-This module implements a base class plugin which can be subclassed
-to easily create your own modules that define and install new filters.
-
- package MyOrg::Template::Plugin::MyFilter;
-
- use Template::Plugin::Filter;
- use base qw( Template::Plugin::Filter );
-
- sub filter {
- my ($self, $text) = @_;
- # ...mungify $text...
- return $text;
- }
-
-Example of use:
-
- # now load it...
- [% USE MyFilter %]
-
- # ...and use the returned object as a filter
- [% FILTER $MyFilter %]
- ...
- [% END %]
-
-See L<Template::Plugin::Filter> for further details.
-
-=head2 Format
-
-The L<Format|Template::Plugin::Format> plugin provides a simple way to format
-text according to a C<printf()>-like format. See L<Template::Plugin::Format> for
-further details.
-
- [% USE bold = format('<b>%s</b>') %]
- [% bold('Hello') %]
-
-=head2 GD
-
-The C<GD> plugins are no longer part of the core Template Toolkit distribution.
-They are now available from CPAN in a separate L<Template::GD> distribution.
-
-=head2 HTML
-
-The L<HTML|Template::Plugin::HTML> plugin is very basic, implementing a few
-useful methods for generating HTML. It is likely to be extended in the future
-or integrated with a larger project to generate HTML elements in a generic way.
-
- [% USE HTML %]
- [% HTML.escape("if (a < b && c > d) ..." %]
- [% HTML.attributes(border => 1, cellpadding => 2) %]
- [% HTML.element(table => { border => 1, cellpadding => 2 }) %]
-
-See L<Template::Plugin::HTML> for further details.
-
-=head2 Iterator
-
-The L<Iterator|Template::Plugin::Iterator> plugin provides a way to create a
-L<Template::Iterator> object to iterate over a data set. An iterator is
-created automatically by the C<FOREACH> directive and is aliased to the C<loop>
-variable. This plugin allows an iterator to be explicitly created with a given
-name, or the default plugin name, C<iterator>. See
-L<Template::Plugin::Iterator> for further details.
-
- [% USE iterator(list, args) %]
-
- [% FOREACH item = iterator %]
- [% '<ul>' IF iterator.first %]
- <li>[% item %]
- [% '</ul>' IF iterator.last %]
- [% END %]
-
-=head2 Pod
-
-This plugin provides an interface to the L<Pod::POM|Pod::POM> module
-which parses POD documents into an internal object model which can
-then be traversed and presented through the Template Toolkit.
-
- [% USE Pod(podfile) %]
-
- [% FOREACH head1 = Pod.head1;
- FOREACH head2 = head1/head2;
- ...
- END;
- END
- %]
-
-=head2 Scalar
-
-The Template Toolkit calls user-defined subroutines and object methods
-using Perl's array context by default.
-
- # TT2 calls object methods in array context by default
- [% object.method %]
-
-This plugin module provides a way for you to call subroutines and methods
-in scalar context.
-
- [% USE scalar %]
-
- # force it to use scalar context
- [% object.scalar.method %]
-
- # also works with subroutine references
- [% scalar.my_sub_ref %]
-
-=head2 String
-
-The L<String|Template::Plugin::String> plugin implements an object-oriented
-interface for manipulating strings. See L<Template::Plugin::String> for
-further details.
-
- [% USE String 'Hello' %]
- [% String.append(' World') %]
-
- [% msg = String.new('Another string') %]
- [% msg.replace('string', 'text') %]
-
- The string "[% msg %]" is [% msg.length %] characters long.
-
-=head2 Table
-
-The L<Table|Template::Plugin::Table> plugin allows you to format a list of
-data items into a virtual table by specifying a fixed number of rows or
-columns, with an optional overlap. See L<Template::Plugin::Table> for further
-details.
-
- [% USE table(list, rows=10, overlap=1) %]
-
- [% FOREACH item = table.col(3) %]
- [% item %]
- [% END %]
-
-=head2 URL
-
-The L<URL|Template::Plugin::URL> plugin provides a simple way of contructing
-URLs from a base part and a variable set of parameters. See
-L<Template::Plugin::URL> for further details.
-
- [% USE mycgi = url('/cgi-bin/bar.pl', debug=1) %]
-
- [% mycgi %]
- # ==> /cgi/bin/bar.pl?debug=1
-
- [% mycgi(mode='submit') %]
- # ==> /cgi/bin/bar.pl?mode=submit&debug=1
-
-=head2 Wrap
-
-The L<Wrap|Template::Plugin::Wrap> plugin uses the L<Text::Wrap> module to
-provide simple paragraph formatting. See L<Template::Plugin::Wrap> and
-L<Text::Wrap> for further details.
-
- [% USE wrap %]
- [% wrap(mytext, 40, '* ', ' ') %] # use wrap sub
- [% mytext FILTER wrap(40) -%] # or wrap FILTER
-
-The C<Text::Wrap> module is available from CPAN:
-
- http://www.cpan.org/modules/by-module/Text/
-
-=head2 XML
-
-The C<XML::DOM>, C<XML::RSS>, C<XML::Simple> and C<XML::XPath> plugins are no
-longer distributed with the Template Toolkit as of version 2.15
-
-They are now available in a separate L<Template::XML> distribution.
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Syntax.pod b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Syntax.pod
deleted file mode 100644
index 09ec3a5..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Syntax.pod
+++ /dev/null
@@ -1,260 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# Template::Manual::Syntax
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#========================================================================
-
-=head1 NAME
-
-Template::Manual::Syntax - Directive syntax, structure and semantics
-
-=head1 Tag Styles
-
-By default, template directives are embedded within the character sequences
-C<[%> and C<%]>.
-
- [% PROCESS header %]
-
- <h1>Hello World!</h1>
- <a href="[% page.next %]"><img src="[% icon.next %].gif"></a>
-
- [% PROCESS footer %]
-
-You can change the tag characters using the C<START_TAG>, C<END_TAG> and
-C<TAG_STYLE> configuration options. You can also use the C<TAGS> directive to
-define a new tag style for the current template file.
-
-You can also set the C<INTERPOLATE> option to allow simple variable references
-to be embedded directly in templates, prefixed by a C<$>.
-
- # INTERPOLATE = 0
- <td>[% name %]</td>
- <td>[% email %]</td>
-
- # INTERPOLATE = 1
- <td>$name</td>
- <td>$email</td>
-
-Directives may be embedded anywhere in a line of text and can be split
-across several lines. Insignificant whitespace is generally ignored
-within the directive.
-
- [% INCLUDE header
- title = 'Hello World'
- bgcol = '#ffffff'
- %]
-
- [%INCLUDE menu align='right'%]
-
- Name: [% name %] ([%id%])
-
-=head1 Comments
-
-The C<#> character is used to indicate comments within a directive.
-When placed immediately inside the opening directive tag, it causes
-the entire directive to be ignored.
-
- [%# this entire directive is ignored no
- matter how many lines it wraps onto
- %]
-
-In any other position, it causes the remainder of the current line to
-be treated as a comment.
-
- [% # this is a comment
- theta = 20 # so is this
- rho = 30 # <aol>me too!</aol>
- %]
-
-=head1 Chomping Whitespace
-
-You can add C<-> or C<+> to the immediate start or end of a directive
-tag to control the whitespace chomping options. See the C<PRE_CHOMP> and
-C<POST_CHOMP> options for further details.
-
- [% BLOCK foo -%] # remove trailing newline
- This is block foo
- [%- END %] # remove leading newline
-
-=head1 Implicit Directives: GET and SET
-
-The simplest directives are C<GET> and C<SET> which retrieve and update
-variable values respectively. The C<GET> and C<SET> keywords are actually
-optional as the parser is smart enough to see them for what they really are
-(but note the caveat below on using side-effect notation). Thus, you'll
-generally see:
-
- [% SET foo = 10 %]
- [% GET foo %]
-
-written as:
-
- [% foo = 10 %]
- [% foo %]
-
-You can also express simple logical statements as implicit C<GET> directives:
-
- [% title or template.title or 'Default Title' %]
-
- [% mode == 'graphics' ? "Graphics Mode Enabled" : "Text Mode" %]
-
-All other directives should start with a keyword specified in UPPER
-CASE (but see the C<ANYCASE> option). All directives keywords are in
-UPPER CASE to make them visually distinctive and to distinguish them
-from variables of the same name but different case. It is perfectly
-valid, for example, to define a variable called C<stop> which is
-entirely separate from the C<STOP> directive.
-
- [% stop = 'Clackett Lane Bus Depot' %]
-
- The bus will next stop at [% stop %] # variable
-
- [% STOP %] # directive
-
-=head1 Block Directives
-
-Directives such as C<FOREACH>, C<WHILE>, C<BLOCK>, C<FILTER>, etc., mark the
-start of a block which may contain text or other directives up to the matching
-C<END> directive. Blocks may be nested indefinitely. The C<IF>, C<UNLESS>,
-C<ELSIF> and C<ELSE> directives also define blocks and may be grouped together
-in the usual manner.
-
- [% FOREACH item = [ 'foo' 'bar' 'baz' ] %]
- * Item: [% item %]
- [% END %]
-
- [% BLOCK footer %]
- Copyright 2000 [% me %]
- [% INCLUDE company/logo %]
- [% END %]
-
- [% IF foo %]
- [% FOREACH thing = foo.things %]
- [% thing %]
- [% END %]
- [% ELSIF bar %]
- [% INCLUDE barinfo %]
- [% ELSE %]
- do nothing...
- [% END %]
-
-Block directives can also be used in a convenient side-effect notation.
-
- [% INCLUDE userinfo FOREACH user = userlist %]
-
- [% INCLUDE debugtxt msg="file: $error.info"
- IF debugging %]
-
- [% "Danger Will Robinson" IF atrisk %]
-
-versus:
-
- [% FOREACH user = userlist %]
- [% INCLUDE userinfo %]
- [% END %]
-
- [% IF debugging %]
- [% INCLUDE debugtxt msg="file: $error.info" %]
- [% END %]
-
- [% IF atrisk %]
- Danger Will Robinson
- [% END %]
-
-=head1 Capturing Block Output
-
-The output of a directive can be captured by simply assigning the directive
-to a variable.
-
- [% headtext = PROCESS header title="Hello World" %]
-
- [% people = PROCESS userinfo FOREACH user = userlist %]
-
-This can be used in conjunction with the C<BLOCK> directive for defining large
-blocks of text or other content.
-
- [% poem = BLOCK %]
- The boy stood on the burning deck,
- His fleece was white as snow.
- A rolling stone gathers no moss,
- And Keith is sure to follow.
- [% END %]
-
-Note one important caveat of using this syntax in conjunction with side-effect
-notation. The following directive does not behave as might be expected:
-
- [% var = 'value' IF some_condition %] # does not work
-
-In this case, the directive is interpreted as (spacing added for clarity)
-
- [% var = IF some_condition %]
- value
- [% END %]
-
-rather than
-
- [% IF some_condition %]
- [% var = 'value' %]
- [% END %]
-
-The variable is assigned the output of the C<IF> block which returns
-C<'value'> if true, but nothing if false. In other words, the following
-directive will always cause 'var' to be cleared.
-
- [% var = 'value' IF 0 %]
-
-To achieve the expected behaviour, the directive should be written as:
-
- [% SET var = 'value' IF some_condition %]
-
-=head1 Chaining Filters
-
-Multiple C<FILTER> directives can be chained together in sequence. They
-are called in the order defined, piping the output of one into the
-input of the next.
-
- [% PROCESS somefile FILTER truncate(100) FILTER html %]
-
-The pipe character, C<|>, can also be used as an alias for C<FILTER>.
-
- [% PROCESS somefile | truncate(100) | html %]
-
-=head1 Multiple Directive Blocks
-
-Multiple directives can be included within a single tag when delimited
-by semi-colons. Note however that the C<TAGS> directive must always
-be specified in a tag by itself.
-
- [% IF title;
- INCLUDE header;
- ELSE;
- INCLUDE other/header title="Some Other Title";
- END
- %]
-
-versus
-
- [% IF title %]
- [% INCLUDE header %]
- [% ELSE %]
- [% INCLUDE other/header title="Some Other Title" %]
- [% END %]
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Views.pod b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Views.pod
deleted file mode 100644
index b2e0c7d..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Manual/Views.pod
+++ /dev/null
@@ -1,586 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# Template::Manual::Views
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#========================================================================
-
-=head1 NAME
-
-Template::Manual::Views - Template Toolkit views (experimental)
-
-=head1 Overview
-
-A view is effectively a collection of templates and/or variable
-definitions which can be passed around as a self-contained unit. This
-then represents a particular interface or presentation style for other
-objects or items of data.
-
-You can use views to implement custom "skins" for an application or
-content set. You can use them to help simplify the presentation of
-common objects or data types. You can even use then to automate the
-presentation of complex data structures such as that generated in an
-C<XML::DOM> tree or similar. You let an iterator do the walking, and the
-view does the talking (or in this case, the presenting). Voila - you
-have view independant, structure shy traversal using templates.
-
-In general, views can be used in a number of different ways to achieve
-several different things. They elegantly solve some problems which
-were otherwise difficult or complicated, and make easy some things
-that were previously hard.
-
-At the moment, they're still very experimental. The directive syntax
-and underlying API are likely to change quite considerably over the
-next version or two. Please be very wary about building your
-multi-million dollar e-commerce solutions based around this feature.
-
-=head1 Views as Template Collectors/Providers
-
-The C<VIEW> directive starts a view definition and includes a name by
-which the view can be referenced. The view definition continues up to
-the matching C<END> directive.
-
- [% VIEW myview %]
- ...
- [% END %]
-
-The first role of a view is to act as a collector and provider of templates.
-The C<include()> method can be called on a view to effectively do the same
-thing as the C<INCLUDE> directive. The template name is passed as the first
-argument, followed by any local variable definitions for the template.
-
- [% myview.include('header', title='The Title') %]
-
- # equivalent to
- [% INCLUDE header title='The Title' %]
-
-Views accept a number of configuration options which can be used to control
-different aspects of their behaviour. The 'C<prefix>' and 'C<suffix>' options
-can be specified to add a fixed prefix and/or suffix to the name of each template.
-
- [% VIEW myview
- prefix = 'my/'
- suffix = '.tt2' ;
- END
- %]
-
-Now the call
-
- [% myview.include('header', title='The Title') %]
-
-is equivalent to
-
- [% INCLUDE my/header.tt2 title='The Title' %]
-
-Views provide an C<AUTOLOAD> method which maps method names to the
-C<include()> method. Thus, the following are all equivalent:
-
- [% myview.include('header', title='Hello World') %]
- [% myview.include_header(title='Hello World') %]
- [% myview.header(title='Hello World') %]
-
-=head1 Local BLOCK Definitions
-
-A C<VIEW> definition can include C<BLOCK> definitions which remain local to
-the view. A request for a particular template will return a C<BLOCK>,
-if defined, in preference to any other template of the same name.
-
- [% BLOCK foo %]
- public foo block
- [% END %]
-
- [% VIEW plain %]
- [% BLOCK foo %]
- plain foo block
- [% END %]
- [% END %]
-
- [% VIEW fancy %]
- [% BLOCK foo %]
- fancy foo block
- [% END %]
- [% END %]
-
- [% INCLUDE foo %] # public foo block
- [% plain.foo %] # plain foo block
- [% fancy.foo %] # fancy foo block
-
-In addition to C<BLOCK> definitions, a C<VIEW> can contain any other
-template directives. The entire C<VIEW> definition block is processed to
-initialise the view but no output is generated (this may change RSN -
-and get stored as 'C<output>' item, subsequently accessible as C<[%
-view.output %]>). However, directives that have side-effects, such as
-those that update a variable, will have noticable consequences.
-
-=head1 Preserving Variable State within Views
-
-Views can also be used to save the values of any existing variables,
-or to create new ones at the point at which the view is defined.
-Unlike simple template metadata (C<META>) which can only contain static
-string values, the view initialisation block can contain any template
-directives and generate any kind of dynamic output and/or data items.
-
- [% VIEW my_web_site %]
- [% view.title = title or 'My Cool Web Site' %]
- [% view.author = "$abw.name, $abw.email" %]
- [% view.sidebar = INCLUDE my/sidebar.tt2 %]
- [% END %]
-
-Note that additional data items can be specified as arguments to the C<VIEW>
-directive. Anything that doesn't look like a configuration parameter is
-assumed to be a data item. This can be a little hazardous, of course, because
-you never know when a new configuration item might get added which interferes
-with your data.
-
- [% VIEW my_web_site
- # config options
- prefix = 'my/'
- # misc data
- title = title or 'My Cool Web Site'
- author = "$abw.name, $abw.email"
- sidebar = INCLUDE my/sidebar.tt2
- %]
- ...
- [% END %]
-
-Outside of the view definition you can access the view variables as, for
-example:
-
- [% my_web_site.title %]
-
-One important feature is the equivalence of simple variables and templates.
-You can implement the view item 'C<title>' as a simple variable, a template
-defined in an external file, possibly with a prefix/suffix automatically
-appended, or as a local C<BLOCK> definition within the C<[% VIEW %] ... [% END %]>
-definition. If you use the syntax above then the view will Do The Right
-Thing to return the appropriate output.
-
-At the C<END> of the C<VIEW> definition the view is "sealed" to prevent you
-from accidentally updating any variable values. If you attempt to change
-the value of a variable after the C<END> of the C<VIEW> definition block then
-a C<view> error will be thrown.
-
- [% TRY;
- my_web_site.title = 'New Title';
- CATCH;
- error;
- END
- %]
-
-The error above will be reported as:
-
- view error - cannot update item in sealed view: title
-
-The same is true if you pass a parameter to a view variable. This is
-interpreted as an attempt to update the variable and will raise the same
-warning.
-
- [% my_web_site.title('New Title') %] # view error!
-
-You can set the C<silent> parameter to have the view ignore these
-parameters and simply return the variable value.
-
- [% VIEW my_web_site
- silent = 1
- title = title or 'My Cool Web Site'
- # ... ;
- END
- %]
-
- [% my_web_site.title('Blah Blah') %] # My Cool Web Site
-
-Alternately, you can specify that a view is unsealed allowing existing
-variables to be updated and new variables defined.
-
- [% VIEW my_web_site
- sealed = 0
- title = title or 'My Cool Web Site'
- # ... ;
- END
- %]
-
- [% my_web_site.title('Blah Blah') %] # Blah Blah
- [% my_web_site.title %] # Blah Blah
-
-=head2 Inheritance, Delegation and Reuse
-
-Views can be inherited from previously defined views by use of the C<base>
-parameter. This example shows how a base class view is defined which
-applies a C<view/default/> prefix to all template names.
-
- [% VIEW my.view.default
- prefix = 'view/default/';
- END
- %]
-
-Thus the directive:
-
- [% my.view.default.header(title='Hello World') %]
-
-is now equivalent to:
-
- [% INCLUDE view/default/header title='Hello World' %]
-
-A second view can be defined which specifies the default view as a
-base.
-
- [% VIEW my.view.fancy
- base = my.view.default
- prefix = 'view/fancy/';
- END
- %]
-
-Now the directive:
-
- [% my.view.fancy.header(title='Hello World') %]
-
-will resolve to:
-
- [% INCLUDE view/fancy/header title='Hello World' %]
-
-or if that doesn't exist, it will be handled by the base view as:
-
- [% INCLUDE view/default/header title='Hello World' %]
-
-When a parent view is specified via the C<base> parameter, the
-delegation of a view to its parent for fetching templates and accessing
-user defined variables is automatic. You can also implement your own
-inheritance, delegation or other reuse patterns by explicitly
-delegating to other views.
-
- [% BLOCK foo %]
- public foo block
- [% END %]
-
- [% VIEW plain %]
- [% BLOCK foo %]
- <plain>[% PROCESS foo %]</plain>
- [% END %]
- [% END %]
-
- [% VIEW fancy %]
- [% BLOCK foo %]
- [% plain.foo | replace('plain', 'fancy') %]
- [% END %]
- [% END %]
-
- [% plain.foo %] # <plain>public foo block</plain>
- [% fancy.foo %] # <fancy>public foo block</fancy>
-
-Note that the regular C<INCLUDE/PROCESS/WRAPPER> directives work entirely
-independantly of views and will always get the original, unaltered
-template name rather than any local per-view definition.
-
-=head2 Self-Reference
-
-A reference to the view object under definition is available with the
-C<VIEW ... END> block by its specified name and also by the special name
-'C<view>' (similar to the C<my $self = shift;> in a Perl method or the
-'C<this>' pointer in C++, etc). The view is initially unsealed allowing
-any data items to be defined and updated within the C<VIEW ... END>
-block. The view is automatically sealed at the end of the definition
-block, preventing any view data from being subsequently changed.
-
-(NOTE: sealing should be optional. As well as sealing a view to prevent
-updates (C<SEALED>), it should be possible to set an option in the view to
-allow external contexts to update existing variables (C<UPDATE>) or even
-create totally new view variables (C<CREATE>)).
-
- [% VIEW fancy %]
- [% fancy.title = 'My Fancy Title' %]
- [% fancy.author = 'Frank Open' %]
- [% fancy.col = { bg => '#ffffff', bar => '#a0a0ff' } %]
- [% END %]
-
-or
-
- [% VIEW fancy %]
- [% view.title = 'My Fancy Title' %]
- [% view.author = 'Frank Open' %]
- [% view.col = { bg => '#ffffff', bar => '#a0a0ff' } %]
- [% END %]
-
-It makes no real difference in this case if you refer to the view by
-its name, 'C<fancy>', or by the general name, 'C<view>'. Outside of the
-view block, however, you should always use the given name, 'C<fancy>':
-
- [% fancy.title %]
- [% fancy.author %]
- [% fancy.col.bg %]
-
-The choice of given name or 'C<view>' is much more important when it
-comes to C<BLOCK> definitions within a C<VIEW>. It is generally recommended
-that you use 'C<view>' inside a C<VIEW> definition because this is guaranteed
-to be correctly defined at any point in the future when the block gets
-called. The original name of the view might have long since been changed
-or reused but the self-reference via 'C<view>' should always be intact and
-valid.
-
-Take the following VIEW as an example:
-
- [% VIEW foo %]
- [% view.title = 'Hello World' %]
- [% BLOCK header %]
- Title: [% view.title %]
- [% END %]
- [% END %]
-
-Even if we rename the view, or create a new C<foo> variable, the header
-block still correctly accesses the C<title> attribute of the view to
-which it belongs. Whenever a view C<BLOCK> is processed, the C<view>
-variable is always updated to contain the correct reference to the
-view object to which it belongs.
-
- [% bar = foo %]
- [% foo = { title => "New Foo" } %] # no problem
- [% bar.header %] # => Title: Hello World
-
-=head2 Saving References to External Views
-
-When it comes to view inheritance, it's always a good idea to take a
-local copy of a parent or delegate view and store it as an attribute
-within the view for later use. This ensures that the correct view
-reference is always available, even if the external name of a view
-has been changed.
-
- [% VIEW plain %]
- ...
- [% END %]
-
- [% VIEW fancy %]
- [% view.plain = plain %]
- [% BLOCK foo %]
- [% view.plain.foo | replace('plain', 'fancy') %]
- [% END %]
- [% END %]
-
- [% plain.foo %] # => <plain>public foo block</plain>
- [% plain = 'blah' %] # no problem
- [% fancy.foo %] # => <fancy>public foo block</fancy>
-
-=head2 Views as Data Presenters
-
-Another key role of a view is to act as a dispatcher to automatically
-apply the correct template to present a particular object or data
-item. This is handled via the C<print()> method.
-
-Here's an example:
-
- [% VIEW foo %]
-
- [% BLOCK text %]
- Some text: [% item %]
- [% END %]
-
- [% BLOCK hash %]
- a hash:
- [% FOREACH key = item.keys.sort -%]
- [% key %] => [% item.$key %]
- [% END -%]
- [% END %]
-
- [% BLOCK list %]
- a list: [% item.sort.join(', ') %]
- [% END %]
-
- [% END %]
-
-We can now use the view to print text, hashes or lists. The C<print()>
-method includes the right template depending on the typing of the
-argument (or arguments) passed.
-
- [% some_text = 'I read the news today, oh boy.' %]
- [% a_hash = { house => 'Lords', hall => 'Albert' } %]
- [% a_list = [ 'sure', 'Nobody', 'really' ] %]
-
- [% view.print(some_text) %]
- # Some text: I read the news today, oh boy.
-
- [% view.print(a_hash) %]
- # a hash:
- hall => Albert
- house => Lords
- [% view.print(a_list) %]
- # a list: Nobody, really, sure
-
-You can also provide templates to print objects of any other class.
-The class name is mapped to a template name with all non-word
-character sequences such as 'C<::>' converted to a single 'C<_>'.
-
- [% VIEW foo %]
- [% BLOCK Foo_Bar %]
- a Foo::Bar object:
- thingies: [% view.print(item.thingies) %]
- doodahs: [% view.print(item.doodahs) %]
- [% END %]
- [% END %]
-
- [% USE fubar = Foo::Bar(...) %]
-
- [% foo.print(fubar) %]
-
-Note how we use the view object to display various items within the
-objects ('C<thingies>' and 'C<doodahs>'). We don't need to worry what
-kind of data these represent (text, list, hash, etc) because we can
-let the view worry about it, automatically mapping the data type to
-the correct template.
-
-Views may define their own type =E<gt> template map.
-
- [% VIEW foo
- map = { TEXT => 'plain_text',
- ARRAY => 'show_list',
- HASH => 'show_hash',
- My::Module => 'template_name'
- default => 'any_old_data'
- }
- %]
- [% BLOCK plain_text %]
- ...
- [% END %]
-
- ...
- [% END %]
-
-They can also provide a C<default> map entry, specified as part of the C<map>
-hash or as a parameter by itself.
-
- [% VIEW foo
- map = { ... },
- default = 'whatever'
- %]
- ...
- [% END %]
-
-or
-
- [% VIEW foo %]
- [% view.map = { ... }
- view.default = 'whatever'
- %]
- ...
- [% END %]
-
-The C<print()> method provides one more piece of magic. If you pass it a
-reference to an object which provides a C<present()> method, then the method
-will be called passing the view as an argument. This then gives any object a
-chance to determine how it should be presented via the view.
-
- package Foo::Bar;
- ...
- sub present {
- my ($self, $view) = @_;
- return "a Foo::Bar object:\n"
- . "thingies: " . $view->print($self->{ _THINGIES }) . "\n"
- . "doodahs: " . $view->print($self->{ _DOODAHS }) . "\n";
- }
-
-The object is free to delve deeply into its innards and mess around with
-its own private data, before presenting the relevant data via the view.
-In a more complex example, a C<present()> method might walk part of a tree
-making calls back against the view to present different nodes within the
-tree. We may not want to expose the internal structure of the tree
-(because that would break encapsulation and make our presentation code
-dependant on it) but we want to have some way of walking the tree and
-presenting items found in a particular manner.
-
-This is known as I<Structure Shy Traversal>. Our view object doesn't require
-prior knowledge about the internal structure of any data set to be able
-to traverse it and present the data contained therein. The data items
-themselves, via the C<present()> method, can implement the internal iterators
-to guide the view along the right path to presentation happiness.
-
-The upshot is that you can use views to greatly simplify the display
-of data structures like C<XML::DOM> trees. The documentation for the
-C<Template::Plugin::XML::DOM> module contains an example of this. In
-essence, it looks something like this:
-
-XML source:
-
- <user name="Andy Wardley">
- <project id="iCan" title="iCan, but theyCan't"/>
- <project id="p45" title="iDid, but theyDidn't"/>
- </user>
-
-TT View:
-
- [% VIEW fancy %]
- [% BLOCK user %]
- User: [% item.name %]
- [% item.content(myview) %]
- [% END %]
-
- [% BLOCK project %]
- Project: [% project.id %] - [% project.name %]
- [% END %]
- [% END %]
-
-Generate view:
-
- [% USE dom = XML.DOM %]
- [% fancy.print(dom.parse(xml_source)) %]
-
-Output:
-
- User: Andy Wardley
- Project: iCan - iCan, but theyCan't
- Project: p45 - iDid, but theyDidn't
-
-The same approach can be applied to many other areas. Here's an example from
-the C<File>/C<Directory> plugins.
-
- [% VIEW myview %]
- [% BLOCK file %]
- - [% item.name %]
- [% END %]
-
- [% BLOCK directory %]
- * [% item.name %]
- [% item.content(myview) FILTER indent %]
- [% END %]
- [% END %]
-
- [% USE dir = Directory(dirpath) %]
- [% myview.print(dir) %]
-
-And here's the same approach use to convert POD documentation to any
-other format via template.
-
- [% # load Pod plugin and parse source file into Pod Object Model
- USE Pod;
- pom = Pod.parse_file(my_pod_file);
-
- # define view to map all Pod elements to "pod/html/xxx" templates
- VIEW pod2html
- prefix='pod/html';
- END;
-
- # now print document via view (i.e. as HTML)
- pod2html.print(pom)
- %]
-
-Here we simply define a template prefix for the view which causes the
-view to look for C<pod/html/head1>, C<pod/html/head2>, C<pod/html/over>
-as templates to present the different sections of the parsed Pod document.
-
-There are some examples in the Template Toolkit test suite: F<t/pod.t> and
-F<t/view.t> which may shed some more light on this. See the distribution
-sub-directory F<examples/pod/html> for examples of Pod -E<gt> HTML templates.
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Modules.pod b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Modules.pod
deleted file mode 100644
index 81787df..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Modules.pod
+++ /dev/null
@@ -1,176 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# Template::Modules
-#
-# DESCRIPTION
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#========================================================================
-
-=head1 NAME
-
-Template::Modules - Template Toolkit Modules
-
-=head1 Template Toolkit Modules
-
-This documentation provides an overview of the different modules that
-comprise the Template Toolkit.
-
-=head2 Template
-
-The L<Template> module is the front-end to the Template Toolkit for
-Perl programmers.
-
- use Template;
- my $tt = Template->new();
- $tt->process('hello.html', message => 'Hello World');
-
-=head2 Template::Base
-
-The L<Template::Base> module implements a base class from which the other
-Template Toolkit modules are derived. It implements common functionality
-for creating objects, error reporting, debugging, and so on.
-
-=head2 Template::Config
-
-The L<Template::Config> module defines the configuration of the Template
-Toolkit for your system. It is an example of a I<factory module> which is
-responsible for instantiating the various other modules used in the Template
-Toolkit.
-
-For example, the L<Template::Config> module defines the C<$STASH> package
-variable which indicates which version of the L<Template::Stash> you are
-using by default. If you elected to use the faster L<XS|Template::Stash::XS>
-stash when you installed the Template Toolkit, then this will be set as:
-
- $STASH = 'Template::Stash::XS';
-
-Otherwise you'll get the regular L<Perl|Template::Stash> stash:
-
- $STASH = 'Template::Stash';
-
-This approach means that other parts of the Template Toolkit don't have to
-worry about which stash you're using. They just ask the L<Template::Config>
-module to create a stash of the right kind.
-
-=head2 Template::Constants
-
-The L<Template::Constants> defines a number of constants that are used by
-the Template Toolkit.
-
-For example, the C<:chomp> tagset defines the C<CHOMP_???> constants that
-can be used with the C<PRE_CHOMP> and C<POST_CHOMP> configuration options.
-
- use Template::Constants ':chomp';
- my $tt = Template->new({
- PRE_CHOMP => CHOMP_COLLAPSE,
- });
-
-=head2 Template::Context
-
-The L<Template::Context> module defines a runtime context in which templates
-are processed. A context keeps track of all the templates, variables, plugins,
-and other resources that are available (either directly or through delegate
-objects) and provides methods to fetch, store, and perform various operations
-on them.
-
-=head2 Template::Document
-
-The L<Template::Document> module implements a compiled template document
-object. This is generated by the L<Template::Parser> module.
-
-=head2 Template::Exception
-
-The L<Template::Exception> module implements an exception object which
-is used for runtime error reporting.
-
-=head2 Template::Filters
-
-The L<Template::Filters> module implements a filter provider. It includes
-the core collection of filters that can be used via the C<FILTER> directive.
-
-=head2 Template::Iterator
-
-The L<Template::Iterator> module implements a data iterator which steps
-through each item in a list in turn. It is used by the C<FOREACH> directive.
-Within a C<FOREACH> block, the C<loop> variable always references the
-current iterator object.
-
- [% FOREACH item IN list;
- IF loop.first;
- # first item in loop
- ELSIF loop.last;
- # last item in loop
- ELSE;
- # any other item in loop
- END;
- END
- %]
-
-=head2 Template::Namespace::Constants
-
-The L<Template::Namespace::Constants> module is used internally to represent
-constants. These can be resolved immediately at the point that a template is
-compiled.
-
-=head2 Template::Parser
-
-The L<Template::Parser> module is used to parse a source template and turn it
-into Perl code which can be executed.
-
-=head2 Template::Plugin
-
-The L<Template::Plugin> module is a base class for Template Toolkit plugins
-that can be loaded on demand from within a template using the C<USE> directive.
-
-=head2 Template::Plugins
-
-The L<Template::Plugins> module is the plugins provider. It loads and prepares
-plugins as and when they are requested from within a template.
-
-=head2 Template::Provider
-
-The L<Template::Provider> module is responsible for loading, compiling and
-caching templates.
-
-=head2 Template::Service
-
-The L<Template::Service> module implements a service layer that sits just
-behind the L<Template> module, and just in front of a L<Template::Context>. It
-handles each request to process a template (forwarded from the L<Template>
-module). It adds any headers and/or footers (specified via the C<PRE_PROCESS>
-and C<POST_PROCESS> options), applies any wrapper (the C<WRAPPER> option) and
-catches any errors returned (the C<ERRORS> option).
-
-=head2 Template::Stash
-
-The L<Template::Stash> module is used to fetch and store template variables.
-It implements all of the magic associated with the dot operator.
-
-=head2 Template::Stash::XS
-
-The L<Template::Stash::XS> module is a high-speed implementation of
-L<Template::Stash> written in C.
-
-=head2 Template::Test
-
-The L<Template::Test> module is used to automate the Template Toolkit
-test scripts.
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Namespace/Constants.pm b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Namespace/Constants.pm
deleted file mode 100644
index aeb0166..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Namespace/Constants.pm
+++ /dev/null
@@ -1,176 +0,0 @@
-#================================================================= -*-Perl-*-
-#
-# Template::Namespace::Constants
-#
-# DESCRIPTION
-# Plugin compiler module for performing constant folding at compile time
-# on variables in a particular namespace.
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#============================================================================
-
-package Template::Namespace::Constants;
-
-use strict;
-use warnings;
-use base 'Template::Base';
-use Template::Config;
-use Template::Directive;
-use Template::Exception;
-
-our $VERSION = 1.27;
-our $DEBUG = 0 unless defined $DEBUG;
-
-
-sub _init {
- my ($self, $config) = @_;
- $self->{ STASH } = Template::Config->stash($config)
- || return $self->error(Template::Config->error());
- return $self;
-}
-
-
-
-#------------------------------------------------------------------------
-# ident(\@ident) foo.bar(baz)
-#------------------------------------------------------------------------
-
-sub ident {
- my ($self, $ident) = @_;
- my @save = @$ident;
-
- # discard first node indicating constants namespace
- splice(@$ident, 0, 2);
-
- my $nelems = @$ident / 2;
- my ($e, $result);
- local $" = ', ';
-
- print STDERR "constant ident [ @$ident ] " if $DEBUG;
-
- foreach $e (0..$nelems-1) {
- # node name must be a constant
- unless ($ident->[$e * 2] =~ s/^'(.+)'$/$1/s) {
- $self->DEBUG(" * deferred (non-constant item: ", $ident->[$e * 2], ")\n")
- if $DEBUG;
- return Template::Directive->ident(\@save);
- }
-
- # if args is non-zero then it must be eval'ed
- if ($ident->[$e * 2 + 1]) {
- my $args = $ident->[$e * 2 + 1];
- my $comp = eval "$args";
- if ($@) {
- $self->DEBUG(" * deferred (non-constant args: $args)\n") if $DEBUG;
- return Template::Directive->ident(\@save);
- }
- $self->DEBUG("($args) ") if $comp && $DEBUG;
- $ident->[$e * 2 + 1] = $comp;
- }
- }
-
-
- $result = $self->{ STASH }->get($ident);
-
- if (! length $result || ref $result) {
- my $reason = length $result ? 'reference' : 'no result';
- $self->DEBUG(" * deferred ($reason)\n") if $DEBUG;
- return Template::Directive->ident(\@save);
- }
-
- $result =~ s/'/\\'/g;
-
- $self->DEBUG(" * resolved => '$result'\n") if $DEBUG;
-
- return "'$result'";
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Template::Namespace::Constants - Compile time constant folding
-
-=head1 SYNOPSIS
-
- # easy way to define constants
- use Template;
-
- my $tt = Template->new({
- CONSTANTS => {
- pi => 3.14,
- e => 2.718,
- },
- });
-
- # nitty-gritty, hands-dirty way
- use Template::Namespace::Constants;
-
- my $tt = Template->new({
- NAMESPACE => {
- constants => Template::Namespace::Constants->new({
- pi => 3.14,
- e => 2.718,
- },
- },
- });
-
-=head1 DESCRIPTION
-
-The C<Template::Namespace::Constants> module implements a namespace handler
-which is plugged into the C<Template::Directive> compiler module. This then
-performs compile time constant folding of variables in a particular namespace.
-
-=head1 METHODS
-
-=head2 new(\%constants)
-
-The new() constructor method creates and returns a reference to a new
-Template::Namespace::Constants object. This creates an internal stash
-to store the constant variable definitions passed as arguments.
-
- my $handler = Template::Namespace::Constants->new({
- pi => 3.14,
- e => 2.718,
- });
-
-=head2 ident(\@ident)
-
-Method called to resolve a variable identifier into a compiled form. In this
-case, the method fetches the corresponding constant value from its internal
-stash and returns it.
-
-=head1 AUTHOR
-
-Andy Wardley E<lt>abw at wardley.orgE<gt> L<http://wardley.org/>
-
-=head1 COPYRIGHT
-
-Copyright (C) 1996-2007 Andy Wardley. 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<Template::Directive>
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Datafile.pm b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Datafile.pm
deleted file mode 100644
index a92b696..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Datafile.pm
+++ /dev/null
@@ -1,166 +0,0 @@
-#============================================================= -*-Perl-*-
-#
-# Template::Plugin::Datafile
-#
-# DESCRIPTION
-# Template Toolkit Plugin which reads a datafile and constructs a
-# list object containing hashes representing records in the file.
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#============================================================================
-
-package Template::Plugin::Datafile;
-
-use strict;
-use warnings;
-use base 'Template::Plugin';
-
-our $VERSION = 2.72;
-
-sub new {
- my ($class, $context, $filename, $params) = @_;
- my ($delim, $line, @fields, @data, @results);
- my $self = [ ];
- local *FD;
- local $/ = "\n";
-
- $params ||= { };
- $delim = $params->{'delim'} || ':';
- $delim = quotemeta($delim);
-
- return $class->fail("No filename specified")
- unless $filename;
-
- open(FD, $filename)
- || return $class->fail("$filename: $!");
-
- # first line of file should contain field definitions
- while (! $line || $line =~ /^#/) {
- $line = <FD>;
- chomp $line;
- $line =~ s/\r$//;
- }
-
- (@fields = split(/\s*$delim\s*/, $line))
- || return $class->fail("first line of file must contain field names");
-
- # read each line of the file
- while (<FD>) {
- chomp;
- s/\r$//;
-
- # ignore comments and blank lines
- next if /^#/ || /^\s*$/;
-
- # split line into fields
- @data = split(/\s*$delim\s*/);
-
- # create hash record to represent data
- my %record;
- @record{ @fields } = @data;
-
- push(@$self, \%record);
- }
-
-# return $self;
- bless $self, $class;
-}
-
-
-sub as_list {
- return $_[0];
-}
-
-
-1;
-
-__END__
-
-=head1 NAME
-
-Template::Plugin::Datafile - Plugin to construct records from a simple data file
-
-=head1 SYNOPSIS
-
- [% USE mydata = datafile('/path/to/datafile') %]
- [% USE mydata = datafile('/path/to/datafile', delim = '|') %]
-
- [% FOREACH record = mydata %]
- [% record.this %] [% record.that %]
- [% END %]
-
-=head1 DESCRIPTION
-
-This plugin provides a simple facility to construct a list of hash
-references, each of which represents a data record of known structure,
-from a data file.
-
- [% USE datafile(filename) %]
-
-A absolute filename must be specified (for this initial implementation at
-least - in a future version it might also use the C<INCLUDE_PATH>). An
-optional C<delim> parameter may also be provided to specify an alternate
-delimiter character.
-
- [% USE userlist = datafile('/path/to/file/users') %]
- [% USE things = datafile('items', delim = '|') %]
-
-The format of the file is intentionally simple. The first line
-defines the field names, delimited by colons with optional surrounding
-whitespace. Subsequent lines then defines records containing data
-items, also delimited by colons. e.g.
-
- id : name : email : tel
- abw : Andy Wardley : abw at tt2.org : 555-1234
- sam : Simon Matthews : sam at tt2.org : 555-9876
-
-Each line is read, split into composite fields, and then used to
-initialise a hash array containing the field names as relevant keys.
-The plugin returns a blessed list reference containing the hash
-references in the order as defined in the file.
-
- [% FOREACH user = userlist %]
- [% user.id %]: [% user.name %]
- [% END %]
-
-The first line of the file B<must> contain the field definitions.
-After the first line, blank lines will be ignored, along with comment
-line which start with a 'C<#>'.
-
-=head1 BUGS
-
-Should handle file names relative to C<INCLUDE_PATH>.
-Doesn't permit use of 'C<:>' in a field. Some escaping mechanism is required.
-
-=head1 AUTHOR
-
-Andy Wardley E<lt>abw at wardley.orgE<gt> L<http://wardley.org/>
-
-=head1 COPYRIGHT
-
-Copyright (C) 1996-2007 Andy Wardley. 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<Template::Plugin>
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Date.pm b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Date.pm
deleted file mode 100644
index 8b82e8d..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Date.pm
+++ /dev/null
@@ -1,355 +0,0 @@
-#============================================================= -*-Perl-*-
-#
-# Template::Plugin::Date
-#
-# DESCRIPTION
-#
-# Plugin to generate formatted date strings.
-#
-# AUTHORS
-# Thierry-Michel Barral <kktos at electron-libre.com>
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 2000-2007 Thierry-Michel Barral, Andy Wardley.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#============================================================================
-
-package Template::Plugin::Date;
-
-use strict;
-use warnings;
-use base 'Template::Plugin';
-
-use POSIX ();
-
-our $VERSION = 2.78;
-our $FORMAT = '%H:%M:%S %d-%b-%Y'; # default strftime() format
-our @LOCALE_SUFFIX = qw( .ISO8859-1 .ISO_8859-15 .US-ASCII .UTF-8 );
-
-
-#------------------------------------------------------------------------
-# new(\%options)
-#------------------------------------------------------------------------
-
-sub new {
- my ($class, $context, $params) = @_;
- bless {
- $params ? %$params : ()
- }, $class;
-}
-
-
-#------------------------------------------------------------------------
-# now()
-#
-# Call time() to return the current system time in seconds since the epoch.
-#------------------------------------------------------------------------
-
-sub now {
- return time();
-}
-
-
-#------------------------------------------------------------------------
-# format()
-# format($time)
-# format($time, $format)
-# format($time, $format, $locale)
-# format($time, $format, $locale, $gmt_flag)
-# format(\%named_params);
-#
-# Returns a formatted time/date string for the specified time, $time,
-# (or the current system time if unspecified) using the $format, $locale,
-# and $gmt values specified as arguments or internal values set defined
-# at construction time). Specifying a Perl-true value for $gmt will
-# override the local time zone and force the output to be for GMT.
-# Any or all of the arguments may be specified as named parameters which
-# get passed as a hash array reference as the final argument.
-# ------------------------------------------------------------------------
-
-sub format {
- my $self = shift;
- my $params = ref($_[$#_]) eq 'HASH' ? pop(@_) : { };
- my $time = shift(@_) || $params->{ time } || $self->{ time }
- || $self->now();
- my $format = @_ ? shift(@_)
- : ($params->{ format } || $self->{ format } || $FORMAT);
- my $locale = @_ ? shift(@_)
- : ($params->{ locale } || $self->{ locale });
- my $gmt = @_ ? shift(@_)
- : ($params->{ gmt } || $self->{ gmt });
- my (@date, $datestr);
-
- if ($time =~ /^\d+$/) {
- # $time is now in seconds since epoch
- if ($gmt) {
- @date = (gmtime($time))[0..6];
- }
- else {
- @date = (localtime($time))[0..6];
- }
- }
- else {
- # if $time is numeric, then we assume it's seconds since the epoch
- # otherwise, we try to parse it as either a 'Y:M:D H:M:S' or a
- # 'H:M:S D:M:Y' string
-
- my @parts = (split(/(?:\/| |:|-)/, $time));
-
- if (@parts >= 6) {
- if (length($parts[0]) == 4) {
- # year is first; assume 'Y:M:D H:M:S'
- @date = @parts[reverse 0..5];
- }
- else {
- # year is last; assume 'H:M:S D:M:Y'
- @date = @parts[2,1,0,3..5];
- }
- }
-
- if (!@date) {
- return (undef, Template::Exception->new('date',
- "bad time/date string: " .
- "expects 'h:m:s d:m:y' got: '$time'"));
- }
- $date[4] -= 1; # correct month number 1-12 to range 0-11
- $date[5] -= 1900; # convert absolute year to years since 1900
- $time = &POSIX::mktime(@date);
- }
-
- if ($locale) {
- # format the date in a specific locale, saving and subsequently
- # restoring the current locale.
- my $old_locale = &POSIX::setlocale(&POSIX::LC_ALL);
-
- # some systems expect locales to have a particular suffix
- for my $suffix ('', @LOCALE_SUFFIX) {
- my $try_locale = $locale.$suffix;
- my $setlocale = &POSIX::setlocale(&POSIX::LC_ALL, $try_locale);
- if (defined $setlocale && $try_locale eq $setlocale) {
- $locale = $try_locale;
- last;
- }
- }
- $datestr = &POSIX::strftime($format, @date);
- &POSIX::setlocale(&POSIX::LC_ALL, $old_locale);
- }
- else {
- $datestr = &POSIX::strftime($format, @date);
- }
-
- return $datestr;
-}
-
-sub calc {
- my $self = shift;
- eval { require "Date/Calc.pm" };
- $self->throw("failed to load Date::Calc: $@") if $@;
- return Template::Plugin::Date::Calc->new('no context');
-}
-
-sub manip {
- my $self = shift;
- eval { require "Date/Manip.pm" };
- $self->throw("failed to load Date::Manip: $@") if $@;
- return Template::Plugin::Date::Manip->new('no context');
-}
-
-
-sub throw {
- my $self = shift;
- die (Template::Exception->new('date', join(', ', @_)));
-}
-
-
-package Template::Plugin::Date::Calc;
-use base qw( Template::Plugin );
-use vars qw( $AUTOLOAD );
-*throw = \&Template::Plugin::Date::throw;
-
-sub AUTOLOAD {
- my $self = shift;
- my $method = $AUTOLOAD;
-
- $method =~ s/.*:://;
- return if $method eq 'DESTROY';
-
- my $sub = \&{"Date::Calc::$method"};
- $self->throw("no such Date::Calc method: $method")
- unless $sub;
-
- &$sub(@_);
-}
-
-package Template::Plugin::Date::Manip;
-use base qw( Template::Plugin );
-use vars qw( $AUTOLOAD );
-*throw = \&Template::Plugin::Date::throw;
-
-sub AUTOLOAD {
- my $self = shift;
- my $method = $AUTOLOAD;
-
- $method =~ s/.*:://;
- return if $method eq 'DESTROY';
-
- my $sub = \&{"Date::Manip::$method"};
- $self->throw("no such Date::Manip method: $method")
- unless $sub;
-
- &$sub(@_);
-}
-
-
-1;
-
-__END__
-
-=head1 NAME
-
-Template::Plugin::Date - Plugin to generate formatted date strings
-
-=head1 SYNOPSIS
-
- [% USE date %]
-
- # use current time and default format
- [% date.format %]
-
- # specify time as seconds since epoch
- # or as a 'h:m:s d-m-y' or 'y-m-d h:m:s' string
- [% date.format(960973980) %]
- [% date.format('4:20:36 21/12/2000') %]
- [% date.format('2000/12/21 4:20:36') %]
-
- # specify format
- [% date.format(mytime, '%H:%M:%S') %]
-
- # specify locale
- [% date.format(date.now, '%a %d %b %y', 'en_GB') %]
-
- # named parameters
- [% date.format(mytime, format = '%H:%M:%S') %]
- [% date.format(locale = 'en_GB') %]
- [% date.format(time = date.now,
- format = '%H:%M:%S',
- locale = 'en_GB) %]
-
- # specify default format to plugin
- [% USE date(format = '%H:%M:%S', locale = 'de_DE') %]
-
- [% date.format %]
- ...
-
-=head1 DESCRIPTION
-
-The C<Date> plugin provides an easy way to generate formatted time and date
-strings by delegating to the C<POSIX> C<strftime()> routine.
-
-The plugin can be loaded via the familiar USE directive.
-
- [% USE date %]
-
-This creates a plugin object with the default name of 'C<date>'. An alternate
-name can be specified as such:
-
- [% USE myname = date %]
-
-The plugin provides the C<format()> method which accepts a time value, a
-format string and a locale name. All of these parameters are optional
-with the current system time, default format ('C<%H:%M:%S %d-%b-%Y>') and
-current locale being used respectively, if undefined. Default values
-for the time, format and/or locale may be specified as named parameters
-in the C<USE> directive.
-
- [% USE date(format = '%a %d-%b-%Y', locale = 'fr_FR') %]
-
-When called without any parameters, the C<format()> method returns a string
-representing the current system time, formatted by C<strftime()> according
-to the default format and for the default locale (which may not be the
-current one, if locale is set in the C<USE> directive).
-
- [% date.format %]
-
-The plugin allows a time/date to be specified as seconds since the epoch,
-as is returned by C<time()>.
-
- File last modified: [% date.format(filemod_time) %]
-
-The time/date can also be specified as a string of the form C<h:m:s d/m/y>
-or C<y/m/d h:m:s>. Any of the characters : / - or space may be used to
-delimit fields.
-
- [% USE day = date(format => '%A', locale => 'en_GB') %]
- [% day.format('4:20:00 9-13-2000') %]
-
-Output:
-
- Tuesday
-
-A format string can also be passed to the C<format()> method, and a locale
-specification may follow that.
-
- [% date.format(filemod, '%d-%b-%Y') %]
- [% date.format(filemod, '%d-%b-%Y', 'en_GB') %]
-
-A fourth parameter allows you to force output in GMT, in the case of
-seconds-since-the-epoch input:
-
- [% date.format(filemod, '%d-%b-%Y', 'en_GB', 1) %]
-
-Note that in this case, if the local time is not GMT, then also specifying
-'C<%Z>' (time zone) in the format parameter will lead to an extremely
-misleading result.
-
-Any or all of these parameters may be named. Positional parameters
-should always be in the order C<($time, $format, $locale)>.
-
- [% date.format(format => '%H:%M:%S') %]
- [% date.format(time => filemod, format => '%H:%M:%S') %]
- [% date.format(mytime, format => '%H:%M:%S') %]
- [% date.format(mytime, format => '%H:%M:%S', locale => 'fr_FR') %]
- [% date.format(mytime, format => '%H:%M:%S', gmt => 1) %]
- ...etc...
-
-The C<now()> method returns the current system time in seconds since the
-epoch.
-
- [% date.format(date.now, '%A') %]
-
-The C<calc()> method can be used to create an interface to the C<Date::Calc>
-module (if installed on your system).
-
- [% calc = date.calc %]
- [% calc.Monday_of_Week(22, 2001).join('/') %]
-
-The C<manip()> method can be used to create an interface to the C<Date::Manip>
-module (if installed on your system).
-
- [% manip = date.manip %]
- [% manip.UnixDate("Noon Yesterday","%Y %b %d %H:%M") %]
-
-=head1 AUTHORS
-
-Thierry-Michel Barral wrote the original plugin.
-
-Andy Wardley provided some minor
-fixups/enhancements, a test script and documentation.
-
-Mark D. Mills cloned C<Date::Manip> from the C<Date::Calc> sub-plugin.
-
-=head1 COPYRIGHT
-
-Copyright (C) 2000-2007 Thierry-Michel Barral, Andy Wardley.
-
-This module is free software; you can redistribute it and/or
-modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<Template::Plugin>, L<POSIX>
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Filter.pm b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Filter.pm
deleted file mode 100644
index 420cc94..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Filter.pm
+++ /dev/null
@@ -1,411 +0,0 @@
-#============================================================= -*-Perl-*-
-#
-# Template::Plugin::Filter
-#
-# DESCRIPTION
-# Template Toolkit module implementing a base class plugin
-# object which acts like a filter and can be used with the
-# FILTER directive.
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 2001-2009 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#============================================================================
-
-package Template::Plugin::Filter;
-
-use strict;
-use warnings;
-use base 'Template::Plugin';
-use Scalar::Util 'weaken';
-
-
-our $VERSION = 1.38;
-our $DYNAMIC = 0 unless defined $DYNAMIC;
-
-
-sub new {
- my ($class, $context, @args) = @_;
- my $config = @args && ref $args[-1] eq 'HASH' ? pop(@args) : { };
-
- # look for $DYNAMIC
- my $dynamic;
- {
- no strict 'refs';
- $dynamic = ${"$class\::DYNAMIC"};
- }
- $dynamic = $DYNAMIC unless defined $dynamic;
-
- my $self = bless {
- _CONTEXT => $context,
- _DYNAMIC => $dynamic,
- _ARGS => \@args,
- _CONFIG => $config,
- }, $class;
-
- return $self->init($config)
- || $class->error($self->error());
-}
-
-
-sub init {
- my ($self, $config) = @_;
- return $self;
-}
-
-
-sub factory {
- my $self = shift;
- my $this = $self;
-
- # This causes problems: https://rt.cpan.org/Ticket/Display.html?id=46691
- # If the plugin is loaded twice in different templates (one INCLUDEd into
- # another) then the filter gets garbage collected when the inner template
- # ends (at least, I think that's what's happening). So I'm going to take
- # the "suck it and see" approach, comment it out, and wait for someone to
- # complain that this module is leaking memory.
-
- # weaken($this);
-
- if ($self->{ _DYNAMIC }) {
- return $self->{ _DYNAMIC_FILTER } ||= [ sub {
- my ($context, @args) = @_;
- my $config = ref $args[-1] eq 'HASH' ? pop(@args) : { };
-
- return sub {
- $this->filter(shift, \@args, $config);
- };
- }, 1 ];
- }
- else {
- return $self->{ _STATIC_FILTER } ||= sub {
- $this->filter(shift);
- };
- }
-}
-
-sub filter {
- my ($self, $text, $args, $config) = @_;
- return $text;
-}
-
-
-sub merge_config {
- my ($self, $newcfg) = @_;
- my $owncfg = $self->{ _CONFIG };
- return $owncfg unless $newcfg;
- return { %$owncfg, %$newcfg };
-}
-
-
-sub merge_args {
- my ($self, $newargs) = @_;
- my $ownargs = $self->{ _ARGS };
- return $ownargs unless $newargs;
- return [ @$ownargs, @$newargs ];
-}
-
-
-sub install_filter {
- my ($self, $name) = @_;
- $self->{ _CONTEXT }->define_filter( $name => $self->factory );
- return $self;
-}
-
-
-
-1;
-
-__END__
-
-=head1 NAME
-
-Template::Plugin::Filter - Base class for plugin filters
-
-=head1 SYNOPSIS
-
- package MyOrg::Template::Plugin::MyFilter;
-
- use Template::Plugin::Filter;
- use base qw( Template::Plugin::Filter );
-
- sub filter {
- my ($self, $text) = @_;
-
- # ...mungify $text...
-
- return $text;
- }
-
- # now load it...
- [% USE MyFilter %]
-
- # ...and use the returned object as a filter
- [% FILTER $MyFilter %]
- ...
- [% END %]
-
-=head1 DESCRIPTION
-
-This module implements a base class for plugin filters. It hides
-the underlying complexity involved in creating and using filters
-that get defined and made available by loading a plugin.
-
-To use the module, simply create your own plugin module that is
-inherited from the C<Template::Plugin::Filter> class.
-
- package MyOrg::Template::Plugin::MyFilter;
-
- use Template::Plugin::Filter;
- use base qw( Template::Plugin::Filter );
-
-Then simply define your C<filter()> method. When called, you get
-passed a reference to your plugin object (C<$self>) and the text
-to be filtered.
-
- sub filter {
- my ($self, $text) = @_;
-
- # ...mungify $text...
-
- return $text;
- }
-
-To use your custom plugin, you have to make sure that the Template
-Toolkit knows about your plugin namespace.
-
- my $tt2 = Template->new({
- PLUGIN_BASE => 'MyOrg::Template::Plugin',
- });
-
-Or for individual plugins you can do it like this:
-
- my $tt2 = Template->new({
- PLUGINS => {
- MyFilter => 'MyOrg::Template::Plugin::MyFilter',
- },
- });
-
-Then you C<USE> your plugin in the normal way.
-
- [% USE MyFilter %]
-
-The object returned is stored in the variable of the same name,
-'C<MyFilter>'. When you come to use it as a C<FILTER>, you should add
-a dollar prefix. This indicates that you want to use the filter
-stored in the variable 'C<MyFilter>' rather than the filter named
-'C<MyFilter>', which is an entirely different thing (see later for
-information on defining filters by name).
-
- [% FILTER $MyFilter %]
- ...text to be filtered...
- [% END %]
-
-You can, of course, assign it to a different variable.
-
- [% USE blat = MyFilter %]
-
- [% FILTER $blat %]
- ...text to be filtered...
- [% END %]
-
-Any configuration parameters passed to the plugin constructor from the
-C<USE> directive are stored internally in the object for inspection by
-the C<filter()> method (or indeed any other method). Positional
-arguments are stored as a reference to a list in the C<_ARGS> item while
-named configuration parameters are stored as a reference to a hash
-array in the C<_CONFIG> item.
-
-For example, loading a plugin as shown here:
-
- [% USE blat = MyFilter 'foo' 'bar' baz = 'blam' %]
-
-would allow the C<filter()> method to do something like this:
-
- sub filter {
- my ($self, $text) = @_;
-
- my $args = $self->{ _ARGS }; # [ 'foo', 'bar' ]
- my $conf = $self->{ _CONFIG }; # { baz => 'blam' }
-
- # ...munge $text...
-
- return $text;
- }
-
-By default, plugins derived from this module will create static
-filters. A static filter is created once when the plugin gets
-loaded via the C<USE> directive and re-used for all subsequent
-C<FILTER> operations. That means that any argument specified with
-the C<FILTER> directive are ignored.
-
-Dynamic filters, on the other hand, are re-created each time
-they are used by a C<FILTER> directive. This allows them to act
-on any parameters passed from the C<FILTER> directive and modify
-their behaviour accordingly.
-
-There are two ways to create a dynamic filter. The first is to
-define a C<$DYNAMIC> class variable set to a true value.
-
- package MyOrg::Template::Plugin::MyFilter;
- use base 'Template::Plugin::Filter';
- our $DYNAMIC = 1;
-
-The other way is to set the internal C<_DYNAMIC> value within the C<init()>
-method which gets called by the C<new()> constructor.
-
- sub init {
- my $self = shift;
- $self->{ _DYNAMIC } = 1;
- return $self;
- }
-
-When this is set to a true value, the plugin will automatically
-create a dynamic filter. The outcome is that the C<filter()> method
-will now also get passed a reference to an array of postional
-arguments and a reference to a hash array of named parameters.
-
-So, using a plugin filter like this:
-
- [% FILTER $blat 'foo' 'bar' baz = 'blam' %]
-
-would allow the C<filter()> method to work like this:
-
- sub filter {
- my ($self, $text, $args, $conf) = @_;
-
- # $args = [ 'foo', 'bar' ]
- # $conf = { baz => 'blam' }
- }
-
-In this case can pass parameters to both the USE and FILTER directives,
-so your filter() method should probably take that into account.
-
- [% USE MyFilter 'foo' wiz => 'waz' %]
-
- [% FILTER $MyFilter 'bar' biz => 'baz' %]
- ...
- [% END %]
-
-You can use the C<merge_args()> and C<merge_config()> methods to do a quick
-and easy job of merging the local (e.g. C<FILTER>) parameters with the
-internal (e.g. C<USE>) values and returning new sets of conglomerated
-data.
-
- sub filter {
- my ($self, $text, $args, $conf) = @_;
-
- $args = $self->merge_args($args);
- $conf = $self->merge_config($conf);
-
- # $args = [ 'foo', 'bar' ]
- # $conf = { wiz => 'waz', biz => 'baz' }
- ...
- }
-
-You can also have your plugin install itself as a named filter by
-calling the C<install_filter()> method from the C<init()> method. You
-should provide a name for the filter, something that you might
-like to make a configuration option.
-
- sub init {
- my $self = shift;
- my $name = $self->{ _CONFIG }->{ name } || 'myfilter';
- $self->install_filter($name);
- return $self;
- }
-
-This allows the plugin filter to be used as follows:
-
- [% USE MyFilter %]
-
- [% FILTER myfilter %]
- ...
- [% END %]
-
-or
-
- [% USE MyFilter name = 'swipe' %]
-
- [% FILTER swipe %]
- ...
- [% END %]
-
-Alternately, you can allow a filter name to be specified as the
-first positional argument.
-
- sub init {
- my $self = shift;
- my $name = $self->{ _ARGS }->[0] || 'myfilter';
- $self->install_filter($name);
- return $self;
- }
-
- [% USE MyFilter 'swipe' %]
-
- [% FILTER swipe %]
- ...
- [% END %]
-
-=head1 EXAMPLE
-
-Here's a complete example of a plugin filter module.
-
- package My::Template::Plugin::Change;
- use Template::Plugin::Filter;
- use base qw( Template::Plugin::Filter );
-
- sub init {
- my $self = shift;
-
- $self->{ _DYNAMIC } = 1;
-
- # first arg can specify filter name
- $self->install_filter($self->{ _ARGS }->[0] || 'change');
-
- return $self;
- }
-
- sub filter {
- my ($self, $text, $args, $config) = @_;
-
- $config = $self->merge_config($config);
- my $regex = join('|', keys %$config);
-
- $text =~ s/($regex)/$config->{ $1 }/ge;
-
- return $text;
- }
-
- 1;
-
-=head1 AUTHOR
-
-Andy Wardley E<lt>abw at wardley.orgE<gt> L<http://wardley.org/>
-
-=head1 COPYRIGHT
-
-Copyright (C) 1996-2007 Andy Wardley. 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<Template::Plugin>, L<Template::Filters>, L<Template::Manual::Filters>
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Format.pm b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Format.pm
deleted file mode 100644
index 3c00ce4..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Format.pm
+++ /dev/null
@@ -1,93 +0,0 @@
-#============================================================= -*-Perl-*-
-#
-# Template::Plugin::Format
-#
-# DESCRIPTION
-#
-# Simple Template Toolkit Plugin which creates formatting functions.
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#============================================================================
-
-package Template::Plugin::Format;
-
-use strict;
-use warnings;
-use base 'Template::Plugin';
-
-our $VERSION = 2.70;
-
-
-sub new {
- my ($class, $context, $format) = @_;;
- return defined $format
- ? make_formatter($format)
- : \&make_formatter;
-}
-
-
-sub make_formatter {
- my $format = shift;
- $format = '%s' unless defined $format;
- return sub {
- my @args = @_;
- push(@args, '') unless @args;
- return sprintf($format, @args);
- }
-}
-
-
-1;
-
-__END__
-
-=head1 NAME
-
-Template::Plugin::Format - Plugin to create formatting functions
-
-=head1 SYNOPSIS
-
- [% USE format %]
- [% commented = format('# %s') %]
- [% commented('The cat sat on the mat') %]
-
- [% USE bold = format('<b>%s</b>') %]
- [% bold('Hello') %]
-
-=head1 DESCRIPTION
-
-The format plugin constructs sub-routines which format text according to
-a C<printf()>-like format string.
-
-=head1 AUTHOR
-
-Andy Wardley E<lt>abw at wardley.orgE<gt> L<http://wardley.org/>
-
-=head1 COPYRIGHT
-
-Copyright (C) 1996-2007 Andy Wardley. 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<Template::Plugin>
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/HTML.pm b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/HTML.pm
deleted file mode 100644
index 61dd69f..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/HTML.pm
+++ /dev/null
@@ -1,163 +0,0 @@
-#============================================================= -*-Perl-*-
-#
-# Template::Plugin::HTML
-#
-# DESCRIPTION
-# Template Toolkit plugin providing useful functionality for generating
-# HTML.
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#============================================================================
-
-package Template::Plugin::HTML;
-
-use strict;
-use warnings;
-use base 'Template::Plugin';
-
-our $VERSION = 2.62;
-
-sub new {
- my ($class, $context, @args) = @_;
- my $hash = ref $args[-1] eq 'HASH' ? pop @args : { };
- bless {
- _SORTED => $hash->{ sorted } || 0,
- }, $class;
-}
-
-sub element {
- my ($self, $name, $attr) = @_;
- ($name, $attr) = %$name if ref $name eq 'HASH';
- return '' unless defined $name and length $name;
- $attr = $self->attributes($attr);
- $attr = " $attr" if $attr;
- return "<$name$attr>";
-}
-
-sub attributes {
- my ($self, $hash) = @_;
- return '' unless ref $hash eq 'HASH';
-
- my @keys = keys %$hash;
- @keys = sort @keys if $self->{ _SORTED };
-
- join(' ', map {
- "$_=\"" . $self->escape( $hash->{ $_ } ) . '"';
- } @keys);
-}
-
-sub escape {
- my ($self, $text) = @_;
- for ($text) {
- s/&/&/g;
- s/</</g;
- s/>/>/g;
- s/"/"/g;
- }
- $text;
-}
-
-sub url {
- my ($self, $text) = @_;
- return undef unless defined $text;
- $text =~ s/([^a-zA-Z0-9_.-])/uc sprintf("%%%02x",ord($1))/eg;
- return $text;
-}
-
-
-1;
-
-__END__
-
-=head1 NAME
-
-Template::Plugin::HTML - Plugin to create HTML elements
-
-=head1 SYNOPSIS
-
- [% USE HTML %]
-
- [% HTML.escape("if (a < b && c > d) ..." %]
-
- [% HTML.element(table => { border => 1, cellpadding => 2 }) %]
-
- [% HTML.attributes(border => 1, cellpadding => 2) %]
-
-=head1 DESCRIPTION
-
-The C<HTML> plugin is a very basic plugin, implementing a few useful
-methods for generating HTML.
-
-=head1 METHODS
-
-=head2 escape(text)
-
-Returns the source text with any HTML reserved characters such as
-C<E<lt>>, C<E<gt>>, etc., correctly esacped to their entity equivalents.
-
-=head2 attributes(hash)
-
-Returns the elements of the hash array passed by reference correctly
-formatted (e.g. values quoted and correctly escaped) as attributes for
-an HTML element.
-
-=head2 element(type, attributes)
-
-Generates an HTML element of the specified type and with the attributes
-provided as an optional hash array reference as the second argument or
-as named arguments.
-
- [% HTML.element(table => { border => 1, cellpadding => 2 }) %]
- [% HTML.element('table', border=1, cellpadding=2) %]
- [% HTML.element(table => attribs) %]
-
-=head1 DEBUGGING
-
-The HTML plugin accepts a C<sorted> option as a constructor argument
-which, when set to any true value, causes the attributes generated by
-the C<attributes()> method (either directly or via C<element()>) to be
-returned in sorted order. Order of attributes isn't important in
-HTML, but this is provided mainly for the purposes of debugging where
-it is useful to have attributes generated in a deterministic order
-rather than whatever order the hash happened to feel like returning
-the keys in.
-
- [% USE HTML(sorted=1) %]
- [% HTML.element( foo => { charlie => 1, bravo => 2, alpha => 3 } ) %]
-
-generates:
-
- <foo alpha="3" bravo="2" charlie="1">
-
-=head1 AUTHOR
-
-Andy Wardley E<lt>abw at wardley.orgE<gt> L<http://wardley.org/>
-
-=head1 COPYRIGHT
-
-Copyright (C) 1996-2007 Andy Wardley. 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<Template::Plugin>
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Image.pm b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Image.pm
deleted file mode 100644
index 6109fdd..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Image.pm
+++ /dev/null
@@ -1,436 +0,0 @@
-#============================================================= -*-Perl-*-
-#
-# Template::Plugin::Image
-#
-# DESCRIPTION
-# Plugin for encapsulating information about an image.
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#============================================================================
-
-package Template::Plugin::Image;
-
-use strict;
-use warnings;
-use base 'Template::Plugin';
-use Template::Exception;
-use File::Spec;
-
-our $VERSION = 1.21;
-our $AUTOLOAD;
-
-BEGIN {
- if (eval { require Image::Info; }) {
- *img_info = \&Image::Info::image_info;
- }
- elsif (eval { require Image::Size; }) {
- *img_info = sub {
- my $file = shift;
- my @stuff = Image::Size::imgsize($file);
- return { "width" => $stuff[0],
- "height" => $stuff[1],
- "error" =>
- # imgsize returns either a three letter file type
- # or an error message as third value
- (defined($stuff[2]) && length($stuff[2]) > 3
- ? $stuff[2]
- : undef),
- };
- }
- }
- else {
- die(Template::Exception->new("image",
- "Couldn't load Image::Info or Image::Size: $@"));
- }
-
-}
-
-#------------------------------------------------------------------------
-# new($context, $name, \%config)
-#
-# Create a new Image object. Takes the pathname of the file as
-# the argument following the context and an optional
-# hash reference of configuration parameters.
-#------------------------------------------------------------------------
-
-sub new {
- my $config = ref($_[-1]) eq 'HASH' ? pop(@_) : { };
- my ($class, $context, $name) = @_;
- my ($root, $file, $type);
-
- # name can be a positional or named argument
- $name = $config->{ name } unless defined $name;
-
- return $class->throw('no image file specified')
- unless defined $name and length $name;
-
- # name can be specified as an absolute path or relative
- # to a root directory
-
- if ($root = $config->{ root }) {
- $file = File::Spec->catfile($root, $name);
- }
- else {
- $file = defined $config->{file} ? $config->{file} : $name;
- }
-
- # Make a note of whether we are using Image::Size or
- # Image::Info -- at least for the test suite
- $type = $INC{"Image/Size.pm"} ? "Image::Size" : "Image::Info";
-
- # set a default (empty) alt attribute for tag()
- $config->{ alt } = '' unless defined $config->{ alt };
-
- # do we want to check to see if file exists?
- bless {
- %$config,
- name => $name,
- file => $file,
- root => $root,
- type => $type,
- }, $class;
-}
-
-#------------------------------------------------------------------------
-# init()
-#
-# Calls image_info on $self->{ file }
-#------------------------------------------------------------------------
-
-sub init {
- my $self = shift;
- return $self if $self->{ size };
-
- my $image = img_info($self->{ file });
- return $self->throw($image->{ error }) if defined $image->{ error };
-
- @$self{ keys %$image } = values %$image;
- $self->{ size } = [ $image->{ width }, $image->{ height } ];
-
- $self->{ modtime } = (stat $self->{ file })[10];
-
- return $self;
-}
-
-#------------------------------------------------------------------------
-# attr()
-#
-# Return the width and height as HTML/XML attributes.
-#------------------------------------------------------------------------
-
-sub attr {
- my $self = shift;
- my $size = $self->size();
- return "width=\"$size->[0]\" height=\"$size->[1]\"";
-}
-
-
-#------------------------------------------------------------------------
-# modtime()
-#
-# Return last modification time as a time_t:
-#
-# [% date.format(image.modtime, "%Y/%m/%d") %]
-#------------------------------------------------------------------------
-
-sub modtime {
- my $self = shift;
- $self->init;
- return $self->{ modtime };
-}
-
-
-#------------------------------------------------------------------------
-# tag(\%options)
-#
-# Return an XHTML img tag.
-#------------------------------------------------------------------------
-
-sub tag {
- my $self = shift;
- my $options = ref $_[0] eq 'HASH' ? shift : { @_ };
-
- my $tag = '<img src="' . $self->name() . '" ' . $self->attr();
-
- # XHTML spec says that the alt attribute is mandatory, so who
- # are we to argue?
-
- $options->{ alt } = $self->{ alt }
- unless defined $options->{ alt };
-
- if (%$options) {
- while (my ($key, $val) = each %$options) {
- my $escaped = escape( $val );
- $tag .= qq[ $key="$escaped"];
- }
- }
-
- $tag .= ' />';
-
- return $tag;
-}
-
-sub escape {
- my ($text) = @_;
- for ($text) {
- s/&/&/g;
- s/</</g;
- s/>/>/g;
- s/"/"/g;
- }
- $text;
-}
-
-sub throw {
- my ($self, $error) = @_;
- die (Template::Exception->new('Image', $error));
-}
-
-sub AUTOLOAD {
- my $self = shift;
- (my $a = $AUTOLOAD) =~ s/.*:://;
-
- $self->init;
- return $self->{ $a };
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Template::Plugin::Image - Plugin access to image sizes
-
-=head1 SYNOPSIS
-
- [% USE Image(filename) %]
- [% Image.width %]
- [% Image.height %]
- [% Image.size.join(', ') %]
- [% Image.attr %]
- [% Image.tag %]
-
-=head1 DESCRIPTION
-
-This plugin provides an interface to the L<Image::Info> or L<Image::Size>
-modules for determining the size of image files.
-
-You can specify the plugin name as either 'C<Image>' or 'C<image>'. The
-plugin object created will then have the same name. The file name of
-the image should be specified as a positional or named argument.
-
- [% # all these are valid, take your pick %]
- [% USE Image('foo.gif') %]
- [% USE image('bar.gif') %]
- [% USE Image 'ping.gif' %]
- [% USE image(name='baz.gif') %]
- [% USE Image name='pong.gif' %]
-
-A C<root> parameter can be used to specify the location of the image file:
-
- [% USE Image(root='/path/to/root', name='images/home.png') %]
- # image path: /path/to/root/images/home.png
- # img src: images/home.png
-
-In cases where the image path and image url do not match up, specify the
-file name directly:
-
- [% USE Image(file='/path/to/home.png', name='/images/home.png') %]
-
-The C<alt> parameter can be used to specify an alternate name for the
-image, for use in constructing an XHTML element (see the C<tag()> method
-below).
-
- [% USE Image('home.png', alt="Home") %]
-
-You can also provide an alternate name for an C<Image> plugin object.
-
- [% USE img1 = image 'foo.gif' %]
- [% USE img2 = image 'bar.gif' %]
-
-The C<name> method returns the image file name.
-
- [% img1.name %] # foo.gif
-
-The C<width> and C<height> methods return the width and height of the
-image, respectively. The C<size> method returns a reference to a 2
-element list containing the width and height.
-
- [% USE image 'foo.gif' %]
- width: [% image.width %]
- height: [% image.height %]
- size: [% image.size.join(', ') %]
-
-The C<modtime> method returns the modification time of the file in question,
-suitable for use with the L<Date|Template::Plugin::Date> plugin, for example:
-
- [% USE image 'foo.gif' %]
- [% USE date %]
- [% date.format(image.modtime, "%B, %e %Y") %]
-
-The C<attr> method returns the height and width as HTML/XML attributes.
-
- [% USE image 'foo.gif' %]
- [% image.attr %]
-
-Typical output:
-
- width="60" height="20"
-
-The C<tag> method returns a complete XHTML tag referencing the image.
-
- [% USE image 'foo.gif' %]
- [% image.tag %]
-
-Typical output:
-
- <img src="foo.gif" width="60" height="20" alt="" />
-
-You can provide any additional attributes that should be added to the
-XHTML tag.
-
- [% USE image 'foo.gif' %]
- [% image.tag(class="logo" alt="Logo") %]
-
-Typical output:
-
- <img src="foo.gif" width="60" height="20" alt="Logo" class="logo" />
-
-Note that the C<alt> attribute is mandatory in a strict XHTML C<img>
-element (even if it's empty) so it is always added even if you don't
-explicitly provide a value for it. You can do so as an argument to
-the C<tag> method, as shown in the previous example, or as an argument
-
- [% USE image('foo.gif', alt='Logo') %]
-
-=head1 CATCHING ERRORS
-
-If the image file cannot be found then the above methods will throw an
-C<Image> error. You can enclose calls to these methods in a
-C<TRY...CATCH> block to catch any potential errors.
-
- [% TRY;
- image.width;
- CATCH;
- error; # print error
- END
- %]
-
-=head1 USING Image::Info
-
-At run time, the plugin tries to load L<Image::Info> in preference to
-L<Image::Size>. If L<Image::Info> is found, then some additional methods are
-available, in addition to C<size>, C<width>, C<height>, C<attr>, and C<tag>.
-These additional methods are named after the elements that L<Image::Info>
-retrieves from the image itself. The types of methods available depend on the
-type of image (see L<Image::Info> for more details). These additional methods
-will always include the following:
-
-=head2 file_media_type
-
-This is the MIME type that is appropriate for the given file format.
-The corresponding value is a string like: "C<image/png>" or "C<image/jpeg>".
-
-=head2 file_ext
-
-The is the suggested file name extention for a file of the given
-file format. The value is a 3 letter, lowercase string like
-"C<png>", "C<jpg>".
-
-=head2 color_type
-
-The value is a short string describing what kind of values the pixels
-encode. The value can be one of the following:
-
- Gray
- GrayA
- RGB
- RGBA
- CMYK
- YCbCr
- CIELab
-
-These names can also be prefixed by "C<Indexed->" if the image is
-composed of indexes into a palette. Of these, only "C<Indexed-RGB>" is
-likely to occur.
-
-(It is similar to the TIFF field PhotometricInterpretation, but this
-name was found to be too long, so we used the PNG inpired term
-instead.)
-
-=head2 resolution
-
-The value of this field normally gives the physical size of the image
-on screen or paper. When the unit specifier is missing then this field
-denotes the squareness of pixels in the image.
-
-The syntax of this field is:
-
- <res> <unit>
- <xres> "/" <yres> <unit>
- <xres> "/" <yres>
-
-The C<E<lt>resE<gt>>, C<E<lt>xresE<gt>> and C<E<lt>yresE<gt>> fields are
-numbers. The C<E<lt>unitE<gt>> is a string like C<dpi>, C<dpm> or
-C<dpcm> (denoting "dots per inch/cm/meter).
-
-=head2 SamplesPerPixel
-
-This says how many channels there are in the image. For some image
-formats this number might be higher than the number implied from the
-C<color_type>.
-
-=head2 BitsPerSample
-
-This says how many bits are used to encode each of samples. The value
-is a reference to an array containing numbers. The number of elements
-in the array should be the same as C<SamplesPerPixel>.
-
-=head2 Comment
-
-Textual comments found in the file. The value is a reference to an
-array if there are multiple comments found.
-
-=head2 Interlace
-
-If the image is interlaced, then this returns the interlace type.
-
-=head2 Compression
-
-This returns the name of the compression algorithm is used.
-
-=head2 Gamma
-
-A number indicating the gamma curve of the image (e.g. 2.2)
-
-=head1 AUTHOR
-
-Andy Wardley E<lt>abw at wardley.orgE<gt> L<http://wardley.org/>
-
-=head1 COPYRIGHT
-
-Copyright (C) 1996-2007 Andy Wardley. 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<Template::Plugin>, L<Image::Info>
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Iterator.pm b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Iterator.pm
deleted file mode 100644
index fb6bd48..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Iterator.pm
+++ /dev/null
@@ -1,88 +0,0 @@
-#============================================================= -*-Perl-*-
-#
-# Template::Plugin::Iterator
-#
-# DESCRIPTION
-#
-# Plugin to create a Template::Iterator from a list of items and optional
-# configuration parameters.
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 2000-2007 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#============================================================================
-
-package Template::Plugin::Iterator;
-
-use strict;
-use warnings;
-use base 'Template::Plugin';
-use Template::Iterator;
-
-our $VERSION = 2.68;
-
-#------------------------------------------------------------------------
-# new($context, \@data, \%args)
-#------------------------------------------------------------------------
-
-sub new {
- my $class = shift;
- my $context = shift;
- Template::Iterator->new(@_);
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Template::Plugin::Iterator - Plugin to create iterators (Template::Iterator)
-
-=head1 SYNOPSIS
-
- [% USE iterator(list, args) %]
-
- [% FOREACH item = iterator %]
- [% '<ul>' IF iterator.first %]
- <li>[% item %]
- [% '</ul>' IF iterator.last %]
- [% END %]
-
-=head1 DESCRIPTION
-
-The iterator plugin provides a way to create a L<Template::Iterator> object
-to iterate over a data set. An iterator is implicitly automatically by the
-L<FOREACH> directive. This plugin allows the iterator to be explicitly created
-with a given name.
-
-=head1 AUTHOR
-
-Andy Wardley E<lt>abw at wardley.orgE<gt> L<http://wardley.org/>
-
-=head1 COPYRIGHT
-
-Copyright (C) 1996-2007 Andy Wardley. 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<Template::Plugin>, L<Template::Iterator>
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Procedural.pm b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Procedural.pm
deleted file mode 100644
index 3477591..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Procedural.pm
+++ /dev/null
@@ -1,133 +0,0 @@
-#==============================================================================
-#
-# Template::Plugin::Procedural
-#
-# DESCRIPTION
-# A Template Plugin to provide a Template Interface to Data::Dumper
-#
-# AUTHOR
-# Mark Fowler <mark at twoshortplanks.com>
-#
-# COPYRIGHT
-# Copyright (C) 2002 Mark Fowler. All Rights Reserved
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#==============================================================================
-
-package Template::Plugin::Procedural;
-
-use strict;
-use warnings;
-use base 'Template::Plugin';
-
-our $VERSION = 1.17;
-our $DEBUG = 0 unless defined $DEBUG;
-our $AUTOLOAD;
-
-#------------------------------------------------------------------------
-# load
-#------------------------------------------------------------------------
-
-sub load {
- my ($class, $context) = @_;
-
- # create a proxy namespace that will be used for objects
- my $proxy = "Template::Plugin::" . $class;
-
- # okay, in our proxy create the autoload routine that will
- # call the right method in the real class
- no strict "refs";
- *{ $proxy . "::AUTOLOAD" } = sub {
- # work out what the method is called
- $AUTOLOAD =~ s!^.*::!!;
-
- print STDERR "Calling '$AUTOLOAD' in '$class'\n"
- if $DEBUG;
-
- # look up the sub for that method (but in a OO way)
- my $uboat = $class->can($AUTOLOAD);
-
- # if it existed call it as a subroutine, not as a method
- if ($uboat) {
- shift @_;
- return $uboat->(@_);
- }
-
- print STDERR "Eeek, no such method '$AUTOLOAD'\n"
- if $DEBUG;
-
- return "";
- };
-
- # create a simple new method that simply returns a blessed
- # scalar as the object.
- *{ $proxy . "::new" } = sub {
- my $this;
- return bless \$this, $_[0];
- };
-
- return $proxy;
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Template::Plugin::Procedural - Base class for procedural plugins
-
-=head1 SYNOPSIS
-
- package Template::Plugin::LWPSimple;
- use base qw(Template::Plugin::Procedural);
- use LWP::Simple; # exports 'get'
- 1;
-
- [% USE LWPSimple %]
- [% LWPSimple.get("http://www.tt2.org/") %]
-
-=head1 DESCRIPTION
-
-C<Template::Plugin::Procedural> is a base class for Template Toolkit
-plugins that causes defined subroutines to be called directly rather
-than as a method. Essentially this means that subroutines will not
-receive the class name or object as its first argument.
-
-This is most useful when creating plugins for modules that normally
-work by exporting subroutines that do not expect such additional
-arguments.
-
-Despite the fact that subroutines will not be called in an OO manner,
-inheritance still function as normal. A class that uses
-C<Template::Plugin::Procedural> can be subclassed and both subroutines
-defined in the subclass and subroutines defined in the original class
-will be available to the Template Toolkit and will be called without
-the class/object argument.
-
-=head1 AUTHOR
-
-Mark Fowler E<lt>mark at twoshortplanks.comE<gt> L<http://www.twoshortplanks.com>
-
-=head1 COPYRIGHT
-
-Copyright (C) 2002 Mark Fowler E<lt>mark at twoshortplanks.comE<gt>
-
-This module is free software; you can redistribute it and/or
-modify it under the same terms as Perl itself.
-
-=head1 SEE ALSO
-
-L<Template>, L<Template::Plugin>
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Scalar.pm b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Scalar.pm
deleted file mode 100644
index 0bd0a0f..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Scalar.pm
+++ /dev/null
@@ -1,163 +0,0 @@
-#============================================================= -*-Perl-*-
-#
-# Template::Plugin::Scalar
-#
-# DESCRIPTION
-# Template Toolkit plugin module which allows you to call object methods
-# in scalar context.
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 2008 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#============================================================================
-
-package Template::Plugin::Scalar;
-use base 'Template::Plugin';
-use strict;
-use warnings;
-use Template::Exception;
-use Scalar::Util qw();
-
-our $VERSION = 1.00;
-our $MONAD = 'Template::Monad::Scalar';
-our $EXCEPTION = 'Template::Exception';
-our $AUTOLOAD;
-
-sub load {
- my $class = shift;
- my $context = shift;
-
- # define .scalar vmethods for hash and list objects
- $context->define_vmethod( hash => scalar => \&scalar_monad );
- $context->define_vmethod( list => scalar => \&scalar_monad );
-
- return $class;
-}
-
-sub scalar_monad {
- # create a .scalar monad which wraps the hash- or list-based object
- # and delegates any method calls back to it, calling them in scalar
- # context, e.g. foo.scalar.bar becomes $MONAD->new($foo)->bar and
- # the monad calls $foo->bar in scalar context
- $MONAD->new(shift);
-}
-
-sub new {
- my ($class, $context, @args) = @_;
- # create a scalar plugin object which will lookup a variable subroutine
- # and call it. e.g. scalar.foo results in a call to foo() in scalar context
- my $self = bless {
- _CONTEXT => $context,
- }, $class;
- return $self;
-}
-
-sub AUTOLOAD {
- my $self = shift;
- my $item = $AUTOLOAD;
- $item =~ s/.*:://;
- return if $item eq 'DESTROY';
-
- # lookup the named values
- my $stash = $self->{ _CONTEXT }->stash;
- my $value = $stash->{ $item };
-
- if (! defined $value) {
- die $EXCEPTION->new( scalar => "undefined value for scalar call: $item" );
- }
- elsif (ref $value eq 'CODE') {
- $value = $value->(@_);
- }
- return $value;
-}
-
-
-package Template::Monad::Scalar;
-
-our $EXCEPTION = 'Template::Exception';
-our $AUTOLOAD;
-
-sub new {
- my ($class, $this) = @_;
- bless \$this, $class;
-}
-
-sub AUTOLOAD {
- my $self = shift;
- my $this = $$self;
- my $item = $AUTOLOAD;
- $item =~ s/.*:://;
- return if $item eq 'DESTROY';
-
- my $method;
- if (Scalar::Util::blessed($this)) {
- # lookup the method...
- $method = $this->can($item);
- }
- else {
- die $EXCEPTION->new( scalar => "invalid object method: $item" );
- }
-
- # ...and call it in scalar context
- my $result = $method->($this, @_);
-
- return $result;
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Template::Plugin::Scalar - call object methods in scalar context
-
-=head1 SYNOPSIS
-
- [% USE scalar %]
-
- # TT2 calls object methods in array context by default
- [% object.method %]
-
- # force it to use scalar context
- [% object.scalar.method %]
-
- # also works with subroutine references
- [% scalar.my_sub_ref %]
-
-=head1 DESCRIPTION
-
-The Template Toolkit calls user-defined subroutines and object methods
-using Perl's array context by default. This plugin module provides a way
-for you to call subroutines and methods in scalar context.
-
-=head1 AUTHOR
-
-Andy Wardley E<lt>abw at wardley.orgE<gt> L<http://wardley.org/>
-
-=head1 COPYRIGHT
-
-Copyright (C) 2008 Andy Wardley. 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<Template::Plugin>
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/String.pm b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/String.pm
deleted file mode 100644
index 68f3a3b..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/String.pm
+++ /dev/null
@@ -1,761 +0,0 @@
-#============================================================= -*-Perl-*-
-#
-# Template::Plugin::String
-#
-# DESCRIPTION
-# Template Toolkit plugin to implement a basic String object.
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 2001-2007 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#============================================================================
-
-package Template::Plugin::String;
-
-use strict;
-use warnings;
-use base 'Template::Plugin';
-use Template::Exception;
-
-use overload q|""| => "text",
- fallback => 1;
-
-our $VERSION = 2.40;
-our $ERROR = '';
-
-*centre = \*center;
-*append = \*push;
-*prepend = \*unshift;
-
-#------------------------------------------------------------------------
-
-sub new {
- my ($class, @args) = @_;
- my $context = ref $class ? undef : shift(@args);
- my $config = @args && ref $args[-1] eq 'HASH' ? pop(@args) : { };
-
- $class = ref($class) || $class;
-
- my $text = defined $config->{ text }
- ? $config->{ text }
- : (@args ? shift(@args) : '');
-
-# print STDERR "text: [$text]\n";
-# print STDERR "class: [$class]\n";
-
- my $self = bless {
- text => $text,
- filters => [ ],
- _CONTEXT => $context,
- }, $class;
-
- my $filter = $config->{ filter } || $config->{ filters };
-
- # install any output filters specified as 'filter' or 'filters' option
- $self->output_filter($filter)
- if $filter;
-
- return $self;
-}
-
-
-sub text {
- my $self = shift;
- return $self->{ text } unless @{ $self->{ filters } };
-
- my $text = $self->{ text };
- my $context = $self->{ _CONTEXT };
-
- foreach my $dispatch (@{ $self->{ filters } }) {
- my ($name, $args) = @$dispatch;
- my $code = $context->filter($name, $args)
- || $self->throw($context->error());
- $text = &$code($text);
- }
- return $text;
-}
-
-
-sub copy {
- my $self = shift;
- $self->new($self->{ text });
-}
-
-
-sub throw {
- my $self = shift;
-
- die (Template::Exception->new('String', join('', @_)));
-}
-
-
-#------------------------------------------------------------------------
-# output_filter($filter)
-#
-# Install automatic output filter(s) for the string. $filter can a list:
-# [ 'name1', 'name2' => [ ..args.. ], name4 => { ..args.. } ] or a hash
-# { name1 => '', name2 => [ args ], name3 => { args } }
-#------------------------------------------------------------------------
-
-sub output_filter {
- my ($self, $filter) = @_;
- my ($name, $args, $dispatch);
- my $filters = $self->{ filters };
- my $count = 0;
-
- if (ref $filter eq 'HASH') {
- $filter = [ %$filter ];
- }
- elsif (ref $filter ne 'ARRAY') {
- $filter = [ split(/\s*\W+\s*/, $filter) ];
- }
-
- while (@$filter) {
- $name = shift @$filter;
-
- # args may follow as a reference (or empty string, e.g. { foo => '' }
- if (@$filter && (ref($filter->[0]) || ! length $filter->[0])) {
- $args = shift @$filter;
- if ($args) {
- $args = [ $args ] unless ref $args eq 'ARRAY';
- }
- else {
- $args = [ ];
- }
- }
- else {
- $args = [ ];
- }
-
-# $self->DEBUG("adding output filter $name(@$args)\n");
-
- push(@$filters, [ $name, $args ]);
- $count++;
- }
-
- return '';
-}
-
-
-#------------------------------------------------------------------------
-
-sub push {
- my $self = shift;
- $self->{ text } .= join('', @_);
- return $self;
-}
-
-
-sub unshift {
- my $self = shift;
- $self->{ text } = join('', @_) . $self->{ text };
- return $self;
-}
-
-
-sub pop {
- my $self = shift;
- my $strip = shift || return $self;
- $self->{ text } =~ s/$strip$//;
- return $self;
-}
-
-
-sub shift {
- my $self = shift;
- my $strip = shift || return $self;
- $self->{ text } =~ s/^$strip//;
- return $self;
-}
-
-#------------------------------------------------------------------------
-
-sub center {
- my ($self, $width) = @_;
- my $text = $self->{ text };
- my $len = length $text;
- $width ||= 0;
-
- if ($len < $width) {
- my $lpad = int(($width - $len) / 2);
- my $rpad = $width - $len - $lpad;
- $self->{ text } = (' ' x $lpad) . $self->{ text } . (' ' x $rpad);
- }
-
- return $self;
-}
-
-
-sub left {
- my ($self, $width) = @_;
- my $len = length $self->{ text };
- $width ||= 0;
-
- $self->{ text } .= (' ' x ($width - $len))
- if $width > $len;
-
- return $self;
-}
-
-
-sub right {
- my ($self, $width) = @_;
- my $len = length $self->{ text };
- $width ||= 0;
-
- $self->{ text } = (' ' x ($width - $len)) . $self->{ text }
- if $width > $len;
-
- return $self;
-}
-
-
-sub format {
- my ($self, $format) = @_;
- $format = '%s' unless defined $format;
- $self->{ text } = sprintf($format, $self->{ text });
- return $self;
-}
-
-
-sub filter {
- my ($self, $name, @args) = @_;
-
- my $context = $self->{ _CONTEXT };
-
- my $code = $context->filter($name, \@args)
- || $self->throw($context->error());
- return &$code($self->{ text });
-}
-
-
-#------------------------------------------------------------------------
-
-sub upper {
- my $self = CORE::shift;
- $self->{ text } = uc $self->{ text };
- return $self;
-}
-
-
-sub lower {
- my $self = CORE::shift;
- $self->{ text } = lc $self->{ text };
- return $self;
-}
-
-
-sub capital {
- my $self = CORE::shift;
- $self->{ text } =~ s/^(.)/\U$1/;
- return $self;
-}
-
-#------------------------------------------------------------------------
-
-sub chop {
- my $self = CORE::shift;
- chop $self->{ text };
- return $self;
-}
-
-
-sub chomp {
- my $self = CORE::shift;
- chomp $self->{ text };
- return $self;
-}
-
-
-sub trim {
- my $self = CORE::shift;
- for ($self->{ text }) {
- s/^\s+//;
- s/\s+$//;
- }
- return $self;
-}
-
-
-sub collapse {
- my $self = CORE::shift;
- for ($self->{ text }) {
- s/^\s+//;
- s/\s+$//;
- s/\s+/ /g
- }
- return $self;
-
-}
-
-#------------------------------------------------------------------------
-
-sub length {
- my $self = CORE::shift;
- return length $self->{ text };
-}
-
-
-sub truncate {
- my ($self, $length, $suffix) = @_;
- return $self unless defined $length;
- $suffix ||= '';
- return $self if CORE::length $self->{ text } <= $length;
- $self->{ text } = CORE::substr($self->{ text }, 0,
- $length - CORE::length($suffix)) . $suffix;
- return $self;
-}
-
-
-sub substr {
- my ($self, $offset, $length, $replacement) = @_;
- $offset ||= 0;
-
- if(defined $length) {
- if (defined $replacement) {
- my $removed = CORE::substr( $self->{text}, $offset, $length );
- CORE::substr( $self->{text}, $offset, $length ) = $replacement;
- return $removed;
- }
- else {
- return CORE::substr( $self->{text}, $offset, $length );
- }
- }
- else {
- return CORE::substr( $self->{text}, $offset );
- }
-}
-
-
-sub repeat {
- my ($self, $n) = @_;
- return $self unless defined $n;
- $self->{ text } = $self->{ text } x $n;
- return $self;
-}
-
-
-sub replace {
- my ($self, $search, $replace) = @_;
- return $self unless defined $search;
- $replace = '' unless defined $replace;
- $self->{ text } =~ s/$search/$replace/g;
- return $self;
-}
-
-
-sub remove {
- my ($self, $search) = @_;
- $search = '' unless defined $search;
- $self->{ text } =~ s/$search//g;
- return $self;
-}
-
-
-sub split {
- my $self = CORE::shift;
- my $split = CORE::shift;
- my $limit = CORE::shift || 0;
- $split = '\s+' unless defined $split;
- return [ split($split, $self->{ text }, $limit) ];
-}
-
-
-sub search {
- my ($self, $pattern) = @_;
- return $self->{ text } =~ /$pattern/;
-}
-
-
-sub equals {
- my ($self, $comparison) = @_;
- return $self->{ text } eq $comparison;
-}
-
-
-1;
-
-__END__
-
-=head1 NAME
-
-Template::Plugin::String - Object oriented interface for string manipulation
-
-=head1 SYNOPSIS
-
- # create String objects via USE directive
- [% USE String %]
- [% USE String 'initial text' %]
- [% USE String text => 'initial text' %]
-
- # or from an existing String via new()
- [% newstring = String.new %]
- [% newstring = String.new('newstring text') %]
- [% newstring = String.new( text => 'newstring text' ) %]
-
- # or from an existing String via copy()
- [% newstring = String.copy %]
-
- # append text to string
- [% String.append('text to append') %]
-
- # format left, right or center/centre padded
- [% String.left(20) %]
- [% String.right(20) %]
- [% String.center(20) %] # American spelling
- [% String.centre(20) %] # European spelling
-
- # and various other methods...
-
-=head1 DESCRIPTION
-
-This module implements a C<String> class for doing stringy things to
-text in an object-oriented way.
-
-You can create a C<String> object via the C<USE> directive, adding any
-initial text value as an argument or as the named parameter C<text>.
-
- [% USE String %]
- [% USE String 'initial text' %]
- [% USE String text='initial text' %]
-
-The object created will be referenced as C<String> by default, but you
-can provide a different variable name for the object to be assigned
-to:
-
- [% USE greeting = String 'Hello World' %]
-
-Once you've got a C<String> object, you can use it as a prototype to
-create other C<String> objects with the C<new()> method.
-
- [% USE String %]
- [% greeting = String.new('Hello World') %]
-
-The C<new()> method also accepts an initial text string as an argument
-or the named parameter C<text>.
-
- [% greeting = String.new( text => 'Hello World' ) %]
-
-You can also call C<copy()> to create a new C<String> as a copy of the
-original.
-
- [% greet2 = greeting.copy %]
-
-The C<String> object has a C<text()> method to return the content of the
-string.
-
- [% greeting.text %]
-
-However, it is sufficient to simply print the string and let the
-overloaded stringification operator call the C<text()> method
-automatically for you.
-
- [% greeting %]
-
-Thus, you can treat C<String> objects pretty much like any regular piece
-of text, interpolating it into other strings, for example:
-
- [% msg = "It printed '$greeting' and then dumped core\n" %]
-
-You also have the benefit of numerous other methods for manipulating
-the string.
-
- [% msg.append("PS Don't eat the yellow snow") %]
-
-Note that all methods operate on and mutate the contents of the string
-itself. If you want to operate on a copy of the string then simply
-take a copy first:
-
- [% msg.copy.append("PS Don't eat the yellow snow") %]
-
-These methods return a reference to the C<String> object itself. This
-allows you to chain multiple methods together.
-
- [% msg.copy.append('foo').right(72) %]
-
-It also means that in the above examples, the C<String> is returned which
-causes the C<text()> method to be called, which results in the new value of
-the string being printed. To suppress printing of the string, you can
-use the C<CALL> directive.
-
- [% foo = String.new('foo') %]
-
- [% foo.append('bar') %] # prints "foobar"
-
- [% CALL foo.append('bar') %] # nothing
-
-=head1 CONSTRUCTOR METHODS
-
-These methods are used to create new C<String> objects.
-
-=head2 new()
-
-Creates a new string using an initial value passed as a positional
-argument or the named parameter C<text>.
-
- [% USE String %]
- [% msg = String.new('Hello World') %]
- [% msg = String.new( text => 'Hello World' ) %]
-
-=head2 copy()
-
-Creates a new C<String> object which contains a copy of the original string.
-
- [% msg2 = msg.copy %]
-
-=head1 INSPECTOR METHODS
-
-These methods are used to examine the string.
-
-=head2 text()
-
-Returns the internal text value of the string. The stringification
-operator is overloaded to call this method. Thus the following are
-equivalent:
-
- [% msg.text %]
- [% msg %]
-
-=head2 length()
-
-Returns the length of the string.
-
- [% USE String("foo") %]
- [% String.length %] # => 3
-
-=head2 search($pattern)
-
-Searches the string for the regular expression specified in C<$pattern>
-returning true if found or false otherwise.
-
- [% item = String.new('foo bar baz wiz waz woz') %]
- [% item.search('wiz') ? 'WIZZY! :-)' : 'not wizzy :-(' %]
-
-=head2 split($pattern, $limit)
-
-Splits the string based on the delimiter C<$pattern> and optional C<$limit>.
-Delegates to Perl's internal C<split()> so the parameters are exactly the same.
-
- [% FOREACH item.split %]
- ...
- [% END %]
-
- [% FOREACH item.split('baz|waz') %]
- ...
- [% END %]
-
-=head1 MUTATOR METHODS
-
-These methods modify the internal value of the string. For example:
-
- [% USE str=String('foobar') %]
- [% str.append('.html') %] # str => 'foobar.html'
-
-The value of C<str> is now 'C<foobar.html>'. If you don't want
-to modify the string then simply take a copy first.
-
- [% str.copy.append('.html') %]
-
-These methods all return a reference to the C<String> object itself. This
-has two important benefits. The first is that when used as above, the
-C<String> object 'C<str>' returned by the C<append()> method will be stringified
-with a call to its C<text()> method. This will return the newly modified
-string content. In other words, a directive like:
-
- [% str.append('.html') %]
-
-will update the string and also print the new value. If you just want
-to update the string but not print the new value then use C<CALL>.
-
- [% CALL str.append('.html') %]
-
-The other benefit of these methods returning a reference to the C<String>
-is that you can chain as many different method calls together as you
-like. For example:
-
- [% String.append('.html').trim.format(href) %]
-
-Here are the methods:
-
-=head2 push($suffix, ...) / append($suffix, ...)
-
-Appends all arguments to the end of the string. The
-C<append()> method is provided as an alias for C<push()>.
-
- [% msg.push('foo', 'bar') %]
- [% msg.append('foo', 'bar') %]
-
-=head2 pop($suffix)
-
-Removes the suffix passed as an argument from the end of the String.
-
- [% USE String 'foo bar' %]
- [% String.pop(' bar') %] # => 'foo'
-
-=head2 unshift($prefix, ...) / prepend($prefix, ...)
-
-Prepends all arguments to the beginning of the string. The
-C<prepend()> method is provided as an alias for C<unshift()>.
-
- [% msg.unshift('foo ', 'bar ') %]
- [% msg.prepend('foo ', 'bar ') %]
-
-=head2 shift($prefix)
-
-Removes the prefix passed as an argument from the start of the String.
-
- [% USE String 'foo bar' %]
- [% String.shift('foo ') %] # => 'bar'
-
-=head2 left($pad)
-
-If the length of the string is less than C<$pad> then the string is left
-formatted and padded with spaces to C<$pad> length.
-
- [% msg.left(20) %]
-
-=head2 right($pad)
-
-As per L<left()> but right padding the C<String> to a length of C<$pad>.
-
- [% msg.right(20) %]
-
-=head2 center($pad) / centre($pad)
-
-As per L<left()> and L<right()> but formatting the C<String> to be centered within
-a space padded string of length C<$pad>. The C<centre()> method is provided as
-an alias for C<center()>.
-
- [% msg.center(20) %] # American spelling
- [% msg.centre(20) %] # European spelling
-
-=head2 format($format)
-
-Apply a format in the style of C<sprintf()> to the string.
-
- [% USE String("world") %]
- [% String.format("Hello %s\n") %] # => "Hello World\n"
-
-=head2 upper()
-
-Converts the string to upper case.
-
- [% USE String("foo") %]
- [% String.upper %] # => 'FOO'
-
-=head2 lower()
-
-Converts the string to lower case
-
- [% USE String("FOO") %]
- [% String.lower %] # => 'foo'
-
-=head2 capital()
-
-Converts the first character of the string to upper case.
-
- [% USE String("foo") %]
- [% String.capital %] # => 'Foo'
-
-The remainder of the string is left untouched. To force the string to
-be all lower case with only the first letter capitalised, you can do
-something like this:
-
- [% USE String("FOO") %]
- [% String.lower.capital %] # => 'Foo'
-
-=head2 chop()
-
-Removes the last character from the string.
-
- [% USE String("foop") %]
- [% String.chop %] # => 'foo'
-
-=head2 chomp()
-
-Removes the trailing newline from the string.
-
- [% USE String("foo\n") %]
- [% String.chomp %] # => 'foo'
-
-=head2 trim()
-
-Removes all leading and trailing whitespace from the string
-
- [% USE String(" foo \n\n ") %]
- [% String.trim %] # => 'foo'
-
-=head2 collapse()
-
-Removes all leading and trailing whitespace and collapses any sequences
-of multiple whitespace to a single space.
-
- [% USE String(" \n\r \t foo \n \n bar \n") %]
- [% String.collapse %] # => "foo bar"
-
-=head2 truncate($length, $suffix)
-
-Truncates the string to C<$length> characters.
-
- [% USE String('long string') %]
- [% String.truncate(4) %] # => 'long'
-
-If C<$suffix> is specified then it will be appended to the truncated
-string. In this case, the string will be further shortened by the
-length of the suffix to ensure that the newly constructed string
-complete with suffix is exactly C<$length> characters long.
-
- [% USE msg = String('Hello World') %]
- [% msg.truncate(8, '...') %] # => 'Hello...'
-
-=head2 replace($search, $replace)
-
-Replaces all occurences of C<$search> in the string with C<$replace>.
-
- [% USE String('foo bar foo baz') %]
- [% String.replace('foo', 'wiz') %] # => 'wiz bar wiz baz'
-
-=head2 remove($search)
-
-Remove all occurences of C<$search> in the string.
-
- [% USE String('foo bar foo baz') %]
- [% String.remove('foo ') %] # => 'bar baz'
-
-=head2 repeat($count)
-
-Repeats the string C<$count> times.
-
- [% USE String('foo ') %]
- [% String.repeat(3) %] # => 'foo foo foo '
-
-=head1 AUTHOR
-
-Andy Wardley E<lt>abw at wardley.orgE<gt> L<http://wardley.org/>
-
-=head1 COPYRIGHT
-
-Copyright (C) 1996-2007 Andy Wardley. 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<Template::Plugin>
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/View.pm b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/View.pm
deleted file mode 100644
index 5dbbfb6..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/View.pm
+++ /dev/null
@@ -1,97 +0,0 @@
-#============================================================= -*-Perl-*-
-#
-# Template::Plugin::View
-#
-# DESCRIPTION
-# A user-definable view based on templates. Similar to the concept of
-# a "Skin".
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 2000-2007 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#============================================================================
-
-package Template::Plugin::View;
-
-use strict;
-use warnings;
-use base 'Template::Plugin';
-
-our $VERSION = 2.68;
-
-use Template::View;
-
-#------------------------------------------------------------------------
-# new($context, \%config)
-#------------------------------------------------------------------------
-
-sub new {
- my $class = shift;
- my $context = shift;
- my $view = Template::View->new($context, @_)
- || return $class->error($Template::View::ERROR);
- $view->seal();
- return $view;
-}
-
-1;
-
-__END__
-
-
-=head1 NAME
-
-Template::Plugin::View - Plugin to create views (Template::View)
-
-=head1 SYNOPSIS
-
- [% USE view(
- prefix = 'splash/' # template prefix/suffix
- suffix = '.tt2'
- bgcol = '#ffffff' # and any other variables you
- style = 'Fancy HTML' # care to define as view metadata,
- items = [ foo, bar.baz ] # including complex data and
- foo = bar ? baz : x.y.z # expressions
- %]
-
- [% view.title %] # access view metadata
-
- [% view.header(title = 'Foo!') %] # view "methods" process blocks or
- [% view.footer %] # templates with prefix/suffix added
-
-=head1 DESCRIPTION
-
-This plugin module creates L<Template::View> objects. Views are an
-experimental feature and are subject to change in the near future.
-In the mean time, please consult L<Template::View> for further info.
-
-=head1 AUTHOR
-
-Andy Wardley E<lt>abw at wardley.orgE<gt> L<http://wardley.org/>
-
-=head1 COPYRIGHT
-
-Copyright (C) 1996-2007 Andy Wardley. 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<Template::Plugin>, L<Template::View>, L<Template::Manual::Views>
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Wrap.pm b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Wrap.pm
deleted file mode 100644
index bb68042..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Plugin/Wrap.pm
+++ /dev/null
@@ -1,142 +0,0 @@
-#============================================================= -*-Perl-*-
-#
-# Template::Plugin::Wrap
-#
-# DESCRIPTION
-# Plugin for wrapping text via the Text::Wrap module.
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#============================================================================
-
-package Template::Plugin::Wrap;
-
-use strict;
-use warnings;
-use base 'Template::Plugin';
-use Text::Wrap;
-
-our $VERSION = 2.68;
-
-sub new {
- my ($class, $context, $format) = @_;;
- $context->define_filter('wrap', [ \&wrap_filter_factory => 1 ]);
- return \&tt_wrap;
-}
-
-sub tt_wrap {
- my $text = shift;
- my $width = shift || 72;
- my $itab = shift;
- my $ntab = shift;
- $itab = '' unless defined $itab;
- $ntab = '' unless defined $ntab;
- $Text::Wrap::columns = $width;
- Text::Wrap::wrap($itab, $ntab, $text);
-}
-
-sub wrap_filter_factory {
- my ($context, @args) = @_;
- return sub {
- my $text = shift;
- tt_wrap($text, @args);
- }
-}
-
-
-1;
-
-__END__
-
-=head1 NAME
-
-Template::Plugin::Wrap - Plugin interface to Text::Wrap
-
-=head1 SYNOPSIS
-
- [% USE wrap %]
-
- # call wrap subroutine
- [% wrap(mytext, width, initial_tab, subsequent_tab) %]
-
- # or use wrap FILTER
- [% mytext FILTER wrap(width, initital_tab, subsequent_tab) %]
-
-=head1 DESCRIPTION
-
-This plugin provides an interface to the L<Text::Wrap> module which
-provides simple paragraph formatting.
-
-It defines a C<wrap> subroutine which can be called, passing the input
-text and further optional parameters to specify the page width (default:
-72), and tab characters for the first and subsequent lines (no defaults).
-
- [% USE wrap %]
-
- [% text = BLOCK %]
- First, attach the transmutex multiplier to the cross-wired
- quantum homogeniser.
- [% END %]
-
- [% wrap(text, 40, '* ', ' ') %]
-
-Output:
-
- * First, attach the transmutex
- multiplier to the cross-wired quantum
- homogeniser.
-
-It also registers a C<wrap> filter which accepts the same three optional
-arguments but takes the input text directly via the filter input.
-
-Example 1:
-
- [% FILTER bullet = wrap(40, '* ', ' ') -%]
- First, attach the transmutex multiplier to the cross-wired quantum
- homogeniser.
- [%- END %]
-
-Output:
-
- * First, attach the transmutex
- multiplier to the cross-wired quantum
- homogeniser.
-
-Example 2:
-
- [% FILTER bullet -%]
- Then remodulate the shield to match the harmonic frequency, taking
- care to correct the phase difference.
- [% END %]
-
-Output:
-
- * Then remodulate the shield to match
- the harmonic frequency, taking
- care to correct the phase difference.
-
-=head1 AUTHOR
-
-Andy Wardley E<lt>abw at wardley.orgE<gt> L<http://wardley.org/>
-
-The L<Text::Wrap> module was written by David Muir Sharnoff
-with help from Tim Pierce and many others.
-
-=head1 COPYRIGHT
-
-Copyright (C) 1996-2007 Andy Wardley. 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<Template::Plugin>, L<Text::Wrap>
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Test.pm b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Test.pm
deleted file mode 100644
index c14eb31..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Test.pm
+++ /dev/null
@@ -1,709 +0,0 @@
-#============================================================= -*-Perl-*-
-#
-# Template::Test
-#
-# DESCRIPTION
-# Module defining a test harness which processes template input and
-# then compares the output against pre-define expected output.
-# Generates test output compatible with Test::Harness. This was
-# originally the t/texpect.pl script.
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#============================================================================
-
-package Template::Test;
-
-use strict;
-use warnings;
-use Template qw( :template );
-use Exporter;
-
-our $VERSION = 2.75;
-our $DEBUG = 0;
-our @ISA = qw( Exporter );
-our @EXPORT = qw( ntests ok is match flush skip_all test_expect callsign banner );
-our @EXPORT_OK = ( 'assert' );
-our %EXPORT_TAGS = ( all => [ @EXPORT_OK, @EXPORT ] );
-$| = 1;
-
-our $REASON = 'not applicable on this platform';
-our $NO_FLUSH = 0;
-our $EXTRA = 0; # any extra tests to come after test_expect()
-our $PRESERVE = 0 # don't mangle newlines in output/expect
- unless defined $PRESERVE;
-
-our ($loaded, %callsign);
-
-# always set binmode on Win32 machines so that any output generated
-# is true to what we expect
-$Template::BINMODE = ($^O eq 'MSWin32') ? 1 : 0;
-
-my @results = ();
-my ($ntests, $ok_count);
-*is = \&match;
-
-END {
- # ensure flush() is called to print any cached results
- flush();
-}
-
-
-#------------------------------------------------------------------------
-# ntests($n)
-#
-# Declare how many (more) tests are expected to come. If ok() is called
-# before ntests() then the results are cached instead of being printed
-# to STDOUT. When ntests() is called, the total number of tests
-# (including any cached) is known and the "1..$ntests" line can be
-# printed along with the cached results. After that, calls to ok()
-# generated printed output immediately.
-#------------------------------------------------------------------------
-
-sub ntests {
- $ntests = shift;
- # add any pre-declared extra tests, or pre-stored test @results, to
- # the grand total of tests
- $ntests += $EXTRA + scalar @results;
- $ok_count = 1;
- print $ntests ? "1..$ntests\n" : "1..$ntests # skip $REASON\n";
- # flush cached results
- foreach my $pre_test (@results) {
- ok(@$pre_test);
- }
-}
-
-
-#------------------------------------------------------------------------
-# ok($truth, $msg)
-#
-# Tests the value passed for truth and generates an "ok $n" or "not ok $n"
-# line accordingly. If ntests() hasn't been called then we cached
-# results for later, instead.
-#------------------------------------------------------------------------
-
-sub ok {
- my ($ok, $msg) = @_;
-
- # cache results if ntests() not yet called
- unless ($ok_count) {
- push(@results, [ $ok, $msg ]);
- return $ok;
- }
-
- $msg = defined $msg ? " - $msg" : '';
- if ($ok) {
- print "ok ", $ok_count++, "$msg\n";
- }
- else {
- print STDERR "FAILED $ok_count: $msg\n" if defined $msg;
- print "not ok ", $ok_count++, "$msg\n";
- }
-}
-
-
-
-#------------------------------------------------------------------------
-# assert($truth, $error)
-#
-# Test value for truth, die if false.
-#------------------------------------------------------------------------
-
-sub assert {
- my ($ok, $err) = @_;
- return ok(1) if $ok;
-
- # failed
- my ($pkg, $file, $line) = caller();
- $err ||= "assert failed";
- $err .= " at $file line $line\n";
- ok(0);
- die $err;
-}
-
-#------------------------------------------------------------------------
-# match( $result, $expect )
-#------------------------------------------------------------------------
-
-sub match {
- my ($result, $expect, $msg) = @_;
- my $count = $ok_count ? $ok_count : scalar @results + 1;
-
- # force stringification of $result to avoid 'no eq method' overload errors
- $result = "$result" if ref $result;
-
- if ($result eq $expect) {
- return ok(1, $msg);
- }
- else {
- print STDERR "FAILED $count:\n expect: [$expect]\n result: [$result]\n";
- return ok(0, $msg);
- }
-}
-
-
-#------------------------------------------------------------------------
-# flush()
-#
-# Flush any tests results.
-#------------------------------------------------------------------------
-
-sub flush {
- ntests(0)
- unless $ok_count || $NO_FLUSH;
-}
-
-
-#------------------------------------------------------------------------
-# skip_all($reason)
-#
-# Skip all tests, setting $REASON to contain any message passed. Calls
-# exit(0) which triggers flush() which generates a "1..0 # $REASON"
-# string to keep to test harness happy.
-#------------------------------------------------------------------------
-
-sub skip_all {
- $REASON = join('', @_);
- exit(0);
-}
-
-
-#------------------------------------------------------------------------
-# test_expect($input, $template, \%replace)
-#
-# This is the main testing sub-routine. The $input parameter should be a
-# text string or a filehandle reference (e.g. GLOB or IO::Handle) from
-# which the input text can be read. The input should contain a number
-# of tests which are split up and processed individually, comparing the
-# generated output against the expected output. Tests should be defined
-# as follows:
-#
-# -- test --
-# test input
-# -- expect --
-# expected output
-#
-# -- test --
-# etc...
-#
-# The number of tests is determined and ntests() is called to generate
-# the "0..$n" line compatible with Test::Harness. Each test input is
-# then processed by the Template object passed as the second parameter,
-# $template. This may also be a hash reference containing configuration
-# which are used to instantiate a Template object, or may be left
-# undefined in which case a default Template object will be instantiated.
-# The third parameter, also optional, may be a reference to a hash array
-# defining template variables. This is passed to the template process()
-# method.
-#------------------------------------------------------------------------
-
-sub test_expect {
- my ($src, $tproc, $params) = @_;
- my ($input, @tests);
- my ($output, $expect, $match);
- my $count = 0;
- my $ttprocs;
-
- # read input text
- eval {
- local $/ = undef;
- $input = ref $src ? <$src> : $src;
- };
- if ($@) {
- ntests(1); ok(0);
- warn "Cannot read input text from $src\n";
- return undef;
- }
-
- # remove any comment lines
- $input =~ s/^#.*?\n//gm;
-
- # remove anything before '-- start --' and/or after '-- stop --'
- $input = $' if $input =~ /\s*--\s*start\s*--\s*/;
- $input = $` if $input =~ /\s*--\s*stop\s*--\s*/;
-
- @tests = split(/^\s*--\s*test\s*--\s*\n/im, $input);
-
- # if the first line of the file was '--test--' (optional) then the
- # first test will be empty and can be discarded
- shift(@tests) if $tests[0] =~ /^\s*$/;
-
- ntests(3 + scalar(@tests) * 2);
-
- # first test is that Template loaded OK, which it did
- ok(1, 'running test_expect()');
-
- # optional second param may contain a Template reference or a HASH ref
- # of constructor options, or may be undefined
- if (ref($tproc) eq 'HASH') {
- # create Template object using hash of config items
- $tproc = Template->new($tproc)
- || die Template->error(), "\n";
- }
- elsif (ref($tproc) eq 'ARRAY') {
- # list of [ name => $tproc, name => $tproc ], use first $tproc
- $ttprocs = { @$tproc };
- $tproc = $tproc->[1];
- }
- elsif (! ref $tproc) {
- $tproc = Template->new()
- || die Template->error(), "\n";
- }
- # otherwise, we assume it's a Template reference
-
- # test: template processor created OK
- ok($tproc, 'template processor is engaged');
-
- # third test is that the input read ok, which it did
- ok(1, 'input read and split into ' . scalar @tests . ' tests');
-
- # the remaining tests are defined in @tests...
- foreach $input (@tests) {
- $count++;
- my $name = '';
-
- if ($input =~ s/^\s*-- name:? (.*?) --\s*\n//im) {
- $name = $1;
- }
- else {
- $name = "template text $count";
- }
-
- # split input by a line like "-- expect --"
- ($input, $expect) =
- split(/^\s*--\s*expect\s*--\s*\n/im, $input);
- $expect = ''
- unless defined $expect;
-
- $output = '';
-
- # input text may be prefixed with "-- use name --" to indicate a
- # Template object in the $ttproc hash which we should use
- if ($input =~ s/^\s*--\s*use\s+(\S+)\s*--\s*\n//im) {
- my $ttname = $1;
- my $ttlookup;
- if ($ttlookup = $ttprocs->{ $ttname }) {
- $tproc = $ttlookup;
- }
- else {
- warn "no such template object to use: $ttname\n";
- }
- }
-
- # process input text
- $tproc->process(\$input, $params, \$output) || do {
- warn "Template process failed: ", $tproc->error(), "\n";
- # report failure and automatically fail the expect match
- ok(0, "$name process FAILED: " . subtext($input));
- ok(0, '(obviously did not match expected)');
- next;
- };
-
- # processed OK
- ok(1, "$name processed OK: " . subtext($input));
-
- # another hack: if the '-- expect --' section starts with
- # '-- process --' then we process the expected output
- # before comparing it with the generated output. This is
- # slightly twisted but it makes it possible to run tests
- # where the expected output isn't static. See t/date.t for
- # an example.
-
- if ($expect =~ s/^\s*--+\s*process\s*--+\s*\n//im) {
- my $out;
- $tproc->process(\$expect, $params, \$out) || do {
- warn("Template process failed (expect): ",
- $tproc->error(), "\n");
- # report failure and automatically fail the expect match
- ok(0, "failed to process expected output ["
- . subtext($expect) . ']');
- next;
- };
- $expect = $out;
- };
-
- # strip any trailing blank lines from expected and real output
- foreach ($expect, $output) {
- s/[\n\r]*\Z//mg;
- }
-
- $match = ($expect eq $output) ? 1 : 0;
- if (! $match || $DEBUG) {
- print "MATCH FAILED\n"
- unless $match;
-
- my ($copyi, $copye, $copyo) = ($input, $expect, $output);
- unless ($PRESERVE) {
- foreach ($copyi, $copye, $copyo) {
- s/\n/\\n/g;
- }
- }
- printf(" input: [%s]\nexpect: [%s]\noutput: [%s]\n",
- $copyi, $copye, $copyo);
- }
-
- ok($match, $match ? "$name matched expected" : "$name did not match expected");
- };
-}
-
-#------------------------------------------------------------------------
-# callsign()
-#
-# Returns a hash array mapping lower a..z to their phonetic alphabet
-# equivalent.
-#------------------------------------------------------------------------
-
-sub callsign {
- my %callsign;
- @callsign{ 'a'..'z' } = qw(
- alpha bravo charlie delta echo foxtrot golf hotel india
- juliet kilo lima mike november oscar papa quebec romeo
- sierra tango umbrella victor whisky x-ray yankee zulu );
- return \%callsign;
-}
-
-
-#------------------------------------------------------------------------
-# banner($text)
-#
-# Prints a banner with the specified text if $DEBUG is set.
-#------------------------------------------------------------------------
-
-sub banner {
- return unless $DEBUG;
- my $text = join('', @_);
- my $count = $ok_count ? $ok_count - 1 : scalar @results;
- print "-" x 72, "\n$text ($count tests completed)\n", "-" x 72, "\n";
-}
-
-
-sub subtext {
- my $text = shift;
- $text =~ s/\s*$//sg;
- $text = substr($text, 0, 32) . '...' if length $text > 32;
- $text =~ s/\n/\\n/g;
- return $text;
-}
-
-
-1;
-
-__END__
-
-=head1 NAME
-
-Template::Test - Module for automating TT2 test scripts
-
-=head1 SYNOPSIS
-
- use Template::Test;
-
- $Template::Test::DEBUG = 0; # set this true to see each test running
- $Template::Test::EXTRA = 2; # 2 extra tests follow test_expect()...
-
- # ok() can be called any number of times before test_expect
- ok( $true_or_false )
-
- # test_expect() splits $input into individual tests, processes each
- # and compares generated output against expected output
- test_expect($input, $template, \%replace );
-
- # $input is text or filehandle (e.g. DATA section after __END__)
- test_expect( $text );
- test_expect( \*DATA );
-
- # $template is a Template object or configuration hash
- my $template_cfg = { ... };
- test_expect( $input, $template_cfg );
- my $template_obj = Template->new($template_cfg);
- test_expect( $input, $template_obj );
-
- # $replace is a hash reference of template variables
- my $replace = {
- a => 'alpha',
- b => 'bravo'
- };
- test_expect( $input, $template, $replace );
-
- # ok() called after test_expect should be declared in $EXTRA (2)
- ok( $true_or_false )
- ok( $true_or_false )
-
-=head1 DESCRIPTION
-
-The C<Template::Test> module defines the L<test_expect()> and other related
-subroutines which can be used to automate test scripts for the
-Template Toolkit. See the numerous tests in the F<t> sub-directory of
-the distribution for examples of use.
-
-=head1 PACKAGE SUBROUTINES
-
-=head2 text_expect()
-
-The C<test_expect()> subroutine splits an input document into a number
-of separate tests, processes each one using the Template Toolkit and
-then compares the generated output against an expected output, also
-specified in the input document. It generates the familiar
-C<ok>/C<not ok> output compatible with C<Test::Harness>.
-
-The test input should be specified as a text string or a reference to
-a filehandle (e.g. C<GLOB> or C<IO::Handle>) from which it can be read. In
-particular, this allows the test input to be placed after the C<__END__>
-marker and read via the C<DATA> filehandle.
-
- use Template::Test;
-
- test_expect(\*DATA);
-
- __END__
- # this is the first test (this is a comment)
- -- test --
- blah blah blah [% foo %]
- -- expect --
- blah blah blah value_of_foo
-
- # here's the second test (no surprise, so is this)
- -- test --
- more blah blah [% bar %]
- -- expect --
- more blah blah value_of_bar
-
-Blank lines between test sections are generally ignored. Any line starting
-with C<#> is treated as a comment and is ignored.
-
-The second and third parameters to C<test_expect()> are optional. The second
-may be either a reference to a Template object which should be used to
-process the template fragments, or a reference to a hash array containing
-configuration values which should be used to instantiate a new Template
-object.
-
- # pass reference to config hash
- my $config = {
- INCLUDE_PATH => '/here/there:/every/where',
- POST_CHOMP => 1,
- };
- test_expect(\*DATA, $config);
-
- # or create Template object explicitly
- my $template = Template->new($config);
- test_expect(\*DATA, $template);
-
-The third parameter may be used to reference a hash array of template
-variable which should be defined when processing the tests. This is
-passed to the L<Template> L<process()|Template#process()> method.
-
- my $replace = {
- a => 'alpha',
- b => 'bravo',
- };
-
- test_expect(\*DATA, $config, $replace);
-
-The second parameter may be left undefined to specify a default L<Template>
-configuration.
-
- test_expect(\*DATA, undef, $replace);
-
-For testing the output of different L<Template> configurations, a
-reference to a list of named L<Template> objects also may be passed as
-the second parameter.
-
- my $tt1 = Template->new({ ... });
- my $tt2 = Template->new({ ... });
- my @tts = [ one => $tt1, two => $tt1 ];
-
-The first object in the list is used by default. Other objects may be
-switched in with a 'C<-- use $name -->' marker. This should immediately
-follow a 'C<-- test -->' line. That object will then be used for the rest
-of the test, or until a different object is selected.
-
- -- test --
- -- use one --
- [% blah %]
- -- expect --
- blah, blah
-
- -- test --
- still using one...
- -- expect --
- ...
-
- -- test --
- -- use two --
- [% blah %]
- -- expect --
- blah, blah, more blah
-
-The C<test_expect()> sub counts the number of tests, and then calls L<ntests()>
-to generate the familiar "C<1..$ntests\n>" test harness line. Each
-test defined generates two test numbers. The first indicates
-that the input was processed without error, and the second that the
-output matches that expected.
-
-Additional test may be run before C<test_expect()> by calling L<ok()>. These
-test results are cached until L<ntests()> is called and the final number of
-tests can be calculated. Then, the "C<1..$ntests>" line is output, along with
-"C<ok $n>" / "C<not ok $n>" lines for each of the cached test result.
-Subsequent calls to L<ok()> then generate an output line immediately.
-
- my $something = SomeObject->new();
- ok( $something );
-
- my $other = AnotherThing->new();
- ok( $other );
-
- test_expect(\*DATA);
-
-If any tests are to follow after C<test_expect()> is called then these
-should be pre-declared by setting the C<$EXTRA> package variable. This
-value (default: C<0>) is added to the grand total calculated by L<ntests()>.
-The results of the additional tests are also registered by calling L<ok()>.
-
- $Template::Test::EXTRA = 2;
-
- # can call ok() any number of times before test_expect()
- ok( $did_that_work );
- ok( $make_sure );
- ok( $dead_certain );
-
- # <some> number of tests...
- test_expect(\*DATA, $config, $replace);
-
- # here's those $EXTRA tests
- ok( defined $some_result && ref $some_result eq 'ARRAY' );
- ok( $some_result->[0] eq 'some expected value' );
-
-If you don't want to call C<test_expect()> at all then you can call
-C<ntests($n)> to declare the number of tests and generate the test
-header line. After that, simply call L<ok()> for each test passing
-a true or false values to indicate that the test passed or failed.
-
- ntests(2);
- ok(1);
- ok(0);
-
-If you're really lazy, you can just call L<ok()> and not bother declaring
-the number of tests at all. All tests results will be cached until the
-end of the script and then printed in one go before the program exits.
-
- ok( $x );
- ok( $y );
-
-You can identify only a specific part of the input file for testing
-using the 'C<-- start -->' and 'C<-- stop -->' markers. Anything before the
-first 'C<-- start -->' is ignored, along with anything after the next
-'C<-- stop -->' marker.
-
- -- test --
- this is test 1 (not performed)
- -- expect --
- this is test 1 (not performed)
-
- -- start --
-
- -- test --
- this is test 2
- -- expect --
- this is test 2
-
- -- stop --
-
- ...
-
-=head2 ntests()
-
-Subroutine used to specify how many tests you're expecting to run.
-
-=head2 ok($test)
-
-Generates an "C<ok $n>" or "C<not ok $n>" message if C<$test> is true or false.
-
-=head2 not_ok($test)
-
-The logical inverse of L<ok()>. Prints an "C<ok $n>" message is C<$test> is
-I<false> and vice-versa.
-
-=head2 callsign()
-
-For historical reasons and general utility, the module also defines a
-C<callsign()> subroutine which returns a hash mapping the letters C<a>
-to C<z> to their phonetic alphabet equivalent (e.g. radio callsigns).
-This is used by many of the test scripts as a known source of variable values.
-
- test_expect(\*DATA, $config, callsign());
-
-=head2 banner()
-
-This subroutine prints a simple banner including any text passed as parameters.
-The C<$DEBUG> variable must be set for it to generate any output.
-
- banner('Testing something-or-other');
-
-example output:
-
- #------------------------------------------------------------
- # Testing something-or-other (27 tests completed)
- #------------------------------------------------------------
-
-=head1 PACKAGE VARIABLES
-
-=head2 $DEBUG
-
-The $DEBUG package variable can be set to enable debugging mode.
-
-=head2 $PRESERVE
-
-The $PRESERVE package variable can be set to stop the test_expect()
-from converting newlines in the output and expected output into
-the literal strings '\n'.
-
-=head1 HISTORY
-
-This module started its butt-ugly life as the C<t/texpect.pl> script. It
-was cleaned up to became the C<Template::Test> module some time around
-version 0.29. It underwent further cosmetic surgery for version 2.00
-but still retains some remarkable rear-end resemblances.
-
-Since then the C<Test::More> and related modules have appeared on CPAN
-making this module mostly, but not entirely, redundant.
-
-=head1 BUGS / KNOWN "FEATURES"
-
-Imports all methods by default. This is generally a Bad Thing, but
-this module is only used in test scripts (i.e. at build time) so a) we
-don't really care and b) it saves typing.
-
-The line splitter may be a bit dumb, especially if it sees lines like
-C<-- this --> that aren't supposed to be special markers. So don't do that.
-
-=head1 AUTHOR
-
-Andy Wardley E<lt>abw at wardley.orgE<gt> L<http://wardley.org/>
-
-=head1 COPYRIGHT
-
-Copyright (C) 1996-2007 Andy Wardley. 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<Template>
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Toolkit.pod b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Toolkit.pod
deleted file mode 100644
index e5906bd..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Toolkit.pod
+++ /dev/null
@@ -1,140 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# Template::Toolkit
-#
-# DESCRIPTION
-# Front-page for the Template Toolkit documentation
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#========================================================================
-
-=head1 NAME
-
-Template::Toolkit - Template Processing System
-
-=head1 Introduction
-
-The Template Toolkit is a collection of Perl modules which implement a
-fast, flexible, powerful and extensible template processing system.
-
-It is "input-agnostic" and can be used equally well for processing any
-kind of text documents: HTML, XML, CSS, Javascript, Perl code, plain text,
-and so on. However, it is most often used for generating static and
-dynamic web content, so that's what we'll focus on here.
-
-Although the Template Toolkit is written in Perl, you don't need to be a Perl
-programmer to use it. It was designed to allow non-programmers to easily
-create and maintain template-based web sites without having to mess around
-writing Perl code or going crazy with cut-n-paste.
-
-However, the Template Toolkit is also designed to be extremely flexible and
-extensible. If you are a Perl programmer, or know someone who is, then you can
-easily hook the Template Toolkit into your existing code, data, databases and
-web applications. Furthermore, you can easily extend the Template Toolkit
-through the use of its plugin mechanism and other developer APIs.
-
-Whatever context you use it in, the primary purpose of the Template Toolkit is
-to allow you to create a clear separation between the presentation elements of
-your web site and everything else.
-
-If you're generating static web pages, then you can use it to separate the
-commonly repeated user interface elements on each page (headers, menus,
-footers, etc.) from the core content. If you're generating dynamic web pages
-for the front end of a web application, then you'll also be using it to keep
-the back-end Perl code entirely separate from the front-end HTML templates.
-Either way, a I<clear separation of concerns> is what allow you to
-concentrate on one thing at a time without the other things getting in your
-way. And that's what the Template Toolkit is all about.
-
-=head1 Documentation
-
-The documentation for the Template Toolkit is organised into five sections.
-
-The L<Template::Manual> contains detailed information about using the Template
-Toolkit. It gives examples of its use and includes a full reference of the
-template language, configuration options, filters, plugins and other component
-parts.
-
-The L<Template::Modules> page lists the Perl modules that comprise the
-Template Toolkit. It gives a brief explanation of what each of them does, and
-provides a link to the complete documentation for each module for further
-information. If you're a Perl programmer looking to use the Template Toolkit
-from your Perl programs then this section is likely to be of interest.
-
-Most, if not all of the information you need to call the Template Toolkit from
-Perl is in the documentation for the L<Template> module. You only really need
-to start thinking about the other modules if you want to extend or modify the
-Template Toolkit in some way, or if you're interested in looking under the
-hood to see how it all works.
-
-The documentation for each module is embedded as POD in each
-module, so you can always use C<perldoc> from the command line to read a
-module's documentation. e.g.
-
- $ perldoc Template
- $ perldoc Template::Context
- ...etc...
-
-It's worth noting that all the other documentation, including the user manual
-is available as POD. e.g.
-
- $ perldoc Template::Manual
- $ perldoc Template::Manual::Config
- ...etc...
-
-The L<Template::Tools> section contains the documentation for
-L<Template::Tools::tpage|tpage> and L<Template::Tools::ttree|ttree>.
-These are two command line programs that are distributed with the
-Template Toolkit. L<tpage|Template::Tools::tpage> is used to process
-a single template file, L<ttree|Template::Tools::ttree> for processing
-entire directories of template files.
-
-The L<Template::Tutorial> section contains two introductory tutorials on using
-the Template Toolkit. The first is L<Template::Tutorial::Web> on generating
-web content. The second is L<Template::Tutorial::Datafile> on using the
-Template Toolkit to generate other data formats including XML.
-
-The final section of the manual is L<Template::FAQ> which contains answers
-to some of the Frequently Asked Questions about the Template Toolkit.
-
-You can read the documentation in HTML format either online at the Template
-Toolkit web site, L<http://template-toolkit.org/>, or by downloading the
-HTML version of the documentation from
-L<http://template-toolkit.org/download/index.html#html_docs> and unpacking
-it on your local machine.
-
-=head1 Author
-
-The Template Toolkit was written by Andy Wardley (L<http://wardley.org/>
-L<mailto:abw at wardley.org>) with assistance and contributions from a great
-number of people. Please see L<Template::Manual::Credits> for a full list.
-
-=head1 Copyright
-
-Copyright (C) 1996-2008 Andy Wardley. 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<Template>, L<Template::Manual>, L<Template::Modules>, L<Template::Tools>,
-L<Template::Tutorial>
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Tools.pod b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Tools.pod
deleted file mode 100644
index 6dac5ed..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Tools.pod
+++ /dev/null
@@ -1,65 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# Template::Tools
-#
-# DESCRIPTION
-# Index page for documentation about the command line tools
-# distributed with the Template Toolkit.
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#========================================================================
-
-=head1 NAME
-
-Template::Tools - Command Line Tools for the Template Toolkit
-
-=head1 Template Tools
-
-The Template Toolkit includes the following command line tools
-for processing templates.
-
-=head2 tpage
-
-The L<tpage|Template::Tools::tpage> script can be used to process
-a single template using the Template Toolkit.
-
- $ tpage --define msg="Hello World" greeting.tt2
-
-Use the C<-h> option to get a summary of options:
-
- $ tpage -h
-
-See the L<Template::Tools::tpage> documentation for further information
-and examples of use.
-
-=head2 ttree
-
-The L<ttree|Template::Tools::ttree> script can be used to process
-an entire directory of templates.
-
- $ ttree --src /path/to/templates --dest /path/to/output
-
-Use the C<-h> option to get a summary of options:
-
- $ ttree -h
-
-See the L<Template::Tools::ttree> documentation for further information
-and examples of use.
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Tutorial/Datafile.pod b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Tutorial/Datafile.pod
deleted file mode 100644
index 2ca0d85..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Tutorial/Datafile.pod
+++ /dev/null
@@ -1,437 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# Template::Tutorial::Datafile
-#
-# DESCRIPTION
-
-#
-# AUTHOR
-# Dave Cross <dave at dave.org.uk>
-#
-# COPYRIGHT
-# Copyright (C) 1996-2008 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#========================================================================
-
-=head1 NAME
-
-Template::Tutorial::Datafile - Creating Data Output Files Using the Template Toolkit
-
-=head1 DESCRIPTION
-
-
-
-=head1 Introducing the Template Toolkit
-
-There are a number of Perl modules that are universally
-recognised as The Right Thing To Use for certain tasks. If you
-accessed a database without using DBI, pulled data from the WWW
-without using one of the LWP modules or parsed XML without using
-XML::Parser or one of its subclasses then you'd run the risk of
-being shunned by polite Perl society.
-
-I believe that the year 2000 saw the emergence of another 'must
-have' Perl module - the Template Toolkit. I don't think I'm
-alone in this belief as the Template Toolkit won the 'Best New
-Module' award at the Perl Conference last summer. Version 2.0 of
-the Template Toolkit (known as TT2 to its friends) was recently
-released to the CPAN.
-
-TT2 was designed and written by Andy Wardley E<lt>abw at wardley.orgE<gt>.
-It was born out of Andy's previous templating module,
-Text::Metatext, in best Fred Brooks 'plan to throw one away'
-manner; and aims to be the most useful (or, at least, the most
-I<used>) Perl templating system.
-
-TT2 provides a way to take a file of fixed boilerplate text
-(the template) and embed variable data within it. One obvious
-use of this is in the creation of dynamic web pages and this is
-where a lot of the attention that TT2 has received has been
-focussed. In this article, I hope to demonstrate that TT2 is
-just as useful in non-web applications.
-
-=head1 Using the Template Toolkit
-
-Let's look at how we'd use TT2 to process a simple data file.
-TT2 is an object oriented Perl module. Having downloaded it from
-CPAN and installed it in the usual manner, using it in your
-program is as easy as putting the lines
-
- use Template;
- my $tt = Template->new;
-
-in your code. The constructor function, C<new>, takes
-a number of optional parameters which are documented in the
-copious manual pages that come with the module, but for the
-purposes of this article we'll keep things as simple as
-possible.
-
-To process the template, you would call the C<process> method
-like this
-
- $tt->process('my_template', \%data)
- || die $tt->error;
-
-We pass two parameters to C<process>, the first is the name of
-the file containing the template to process (in this case,
-my_template) and the second is a reference to a hash which
-contains the data items that you want to use in the template. If
-processing the template gives any kind of error, the program
-will die with a (hopefully) useful error message.
-
-So what kinds of things can go in C<%data>? The answer is just
-about anything. Here's an example showing data about English
-Premier League football teams.
-
- my @teams = ({ name => 'Man Utd',
- played => 16,
- won => 12,
- drawn => 3,
- lost => 1 },
- { name => 'Bradford',
- played => 16,
- won => 2,
- drawn => 5,
- lost => 9 });
-
- my %data = ( name => 'English Premier League',
- season => '2000/01',
- teams => \@teams );
-
-This creates three data items which can be accessed within the
-template, called C<name>, C<season> and C<teams>. Notice that
-C<teams> is a complex data structure.
-
-Here is a template that we might use to process this data.
-
- League Standings
-
- League Name: [% name %]
- Season : [% season %]
-
- Teams:
- [% FOREACH team = teams -%]
- [% team.name %] [% team.played -%]
- [% team.won %] [% team.drawn %] [% team.lost %]
- [% END %]
-
-Running this template with this data gives us the following
-output
-
- League Standings
-
- League Name: English Premier League
- Season : 2000/01
-
- Teams:
- Man Utd 16 12 3 1
- Bradford 16 2 5 9
-
-Hopefully the syntax of the template is simple enough to
-follow. There are a few points to note.
-
-=over 4
-
-=item *
-
-Template processing directives are written using a simple
-language which is not Perl.
-
-=item *
-
-The keys of the C<%data> have become the names of the data
-variables within the template.
-
-=item *
-
-Template processing directives are surrounded by C<[%> and
-C<%]> sequences.
-
-=item *
-
-If these tags are replaced with C<[%-> C<-%]> then the preceding
-or following linefeed is suppressed.
-
-=item *
-
-In the C<FOREACH> loop, each element of the C<teams> list was
-assigned, in turn, to the temporary variable C<team>.
-
-=item *
-
-Each item assigned to the C<team> variable is a Perl hash.
-Individual values within the hash are accessed using a dot notation.
-
-=back
-
-It's probably the first and last of these points which are the
-most important. The first point emphasises the separation of the
-data acquisition logic from the presentation logic. The person
-creating the presentation template doesn't need to know Perl,
-they only need to know the data items which will be passed into
-the template.
-
-The last point demonstrates the way that TT2 protects the
-template designer from the implementation of the data structures.
-The data objects passed to the template processor can be scalars,
-arrays, hashes, objects or even subroutines. The template
-processor will just interpret your data correctly and Do The
-Right Thing to return the correct value to you. In this example
-each team was a hash, but in a larger system each team might be
-an object, in which case C<name>, C<played>, etc. would be accessor
-methods to the underlying object attributes. No changes would be
-required to the template as the template processor would realise
-that it needed to call methods rather than access hash values.
-
-=head2 A more complex example
-
-Stats about the English Football League are usually presented in
-a slightly more complex format than the one we used above. A
-full set of stats will show the number of games that a team has
-won, lost or drawn, the number of goals scored for and against
-the team and the number of points that the team therefore has.
-Teams gain three points for a win and one point for a draw. When
-teams have the same number of points they are separated by the
-goal difference, that is the number of goals the team has scored
-minus the number of team scored against them. To complicate
-things even further, the games won, drawn and lost and the goals
-for and against are often split between home and away games.
-
-Therefore if you have a data source which lists the team name
-togther with the games won, drawn and lost and the goals for and
-against split into home and away (a total of eleven data items)
-you can calculate all of the other items (goal difference,
-points awarded and even position in the league). Let's take such
-a file, but we'll only look at the top three teams. It will look
-something like this:
-
- Man Utd,7,1,0,26,4,5,2,1,15,6
- Arsenal,7,1,0,17,4,2,3,3,7,9
- Leicester,4,3,1,10,8,4,2,2,7,4
-
-A simple script to read this data into an array of hashes will
-look something like this (I've simplified the names of the data
-columns - w, d, and l are games won, drawn and lost and f and a
-are goals scored for and against; h and a at the front of a data
-item name indicates whether it's a home or away statistic):
-
- my @cols = qw(name hw hd hl hf ha aw ad al af aa);
-
- my @teams;
- while (<>) {
- chomp;
-
- my %team;
-
- @team{@cols} = split /,/;
-
- push @teams, \%team;
- }
-
-We can then go thru the teams again and calculate all of the
-derived data items:
-
- foreach (@teams) {
- $_->{w} = $_->{hw} + $_->{aw};
- $_->{d} = $_->{hd} + $_->{ad};
- $_->{l} = $_->{hl} + $_->{al};
-
- $_->{pl} = $_->{w} + $_->{d} + $_->{l};
-
- $_->{f} = $_->{hf} + $_->{af};
- $_->{a} = $_->{ha} + $_->{aa};
-
- $_->{gd} = $_->{f} - $_->{a};
- $_->{pt} = (3 * $_->{w}) + $_->{d};
- }
-
-And then produce a list sorted in descending order:
-
- @teams = sort {
- $b->{pt} <=> $b->{pt} || $b->{gd} <=> $a->{gd}
- } @teams;
-
-And finally add the league position data item:
-
- $teams[$_]->{pos} = $_ + 1
- foreach 0 .. $#teams;
-
-Having pulled all of our data into an internal data structure
-we can start to produce output using out templates. A template
-to create a CSV file containing the data split between home and
-away stats would look like this:
-
- [% FOREACH team = teams -%]
- [% team.pos %],[% team.name %],[% team.pl %],[% team.hw %],
- [%- team.hd %],[% team.hl %],[% team.hf %],[% team.ha %],
- [%- team.aw %],[% team.ad %],[% team.al %],[% team.af %],
- [%- team.aa %],[% team.gd %],[% team.pt %]
- [%- END %]
-
-And processing it like this:
-
- $tt->process('split.tt', { teams => \@teams }, 'split.csv')
- || die $tt->error;
-
-produces the following output:
-
- 1,Man Utd,16,7,1,0,26,4,5,2,1,15,6,31,39
- 2,Arsenal,16,7,1,0,17,4,2,3,3,7,9,11,31
- 3,Leicester,16,4,3,1,10,8,4,2,2,7,4,5,29
-
-Notice that we've introduced the third parameter to C<process>.
-If this parameter is missing then the TT2 sends its output to
-C<STDOUT>. If this parameter is a scalar then it is taken as the
-name of a file to write the output to. This parameter can also be
-(amongst other things) a filehandle or a reference to an object w
-hich is assumed to implement a C<print> method.
-
-If we weren't interested in the split between home and away games,
-then we could use a simpler template like this:
-
- [% FOREACH team = teams -%]
- [% team.pos %],[% team.name %],[% team.pl %],[% team.w %],
- [%- team.d %],[% team.l %],[% team.f %],[% team.a %],
- [%- team.aa %],[% team.gd %],[% team.pt %]
- [% END -%]
-
-Which would produce output like this:
-
- 1,Man Utd,16,12,3,1,41,10,6,31,39
- 2,Arsenal,16,9,4,3,24,13,9,11,31
- 3,Leicester,16,8,5,3,17,12,4,5,29
-
-=head1 Producing XML
-
-This is starting to show some of the power and flexibility of
-TT2, but you may be thinking that you could just as easily produce
-this output with a C<foreach> loop and a couple of C<print>
-statements in your code. This is, of course, true; but that's
-because I've chosen a deliberately simple example to explain the
-concepts. What if we wanted to produce an XML file containing the
-data? And what if (as I mentioned earlier) the league data was held
-in an object? The code would then look even easier as most of the code
-we've written earlier would be hidden away in C<FootballLeague.pm>.
-
- use FootballLeague;
- use Template;
-
- my $league = FootballLeague->new(name => 'English Premier');
-
- my $tt = Template->new;
-
- $tt->process('league_xml.tt', { league => $league })
- || die $tt->error;
-
-And the template in C<league_xml.tt> would look something like this:
-
- <?xml version="1.0"?>
- <!DOCTYPE LEAGUE SYSTEM "league.dtd">
-
- <league name="[% league.name %]" season="[% league.season %]">
- [% FOREACH team = league.teams -%]
- <team name="[% team.name %]"
- pos="[% team.pos %]"
- played="[% team.pl %]"
- goal_diff="[% team.gd %]"
- points="[% team.pt %]">
- <stats type="home">
- win="[% team.hw %]"
- draw="[%- team.hd %]"
- lose="[% team.hl %]"
- for="[% team.hf %]"
- against="[% team.ha %]" />
- <stats type="away">
- win="[% team.aw %]"
- draw="[%- team.ad %]"
- lose="[% team.al %]"
- for="[% team.af %]"
- against="[% team.aa %]" />
- </team>
- [% END -%]
- &/league>
-
-Notice that as we've passed the whole object into C<process> then
-we need to put an extra level of indirection on our template
-variables - everything is now a component of the C<league> variable.
-Other than that, everything in the template is very similar to what
-we've used before. Presumably now C<team.name> calls an accessor
-function rather than carrying out a hash lookup, but all of this
-is transparent to our template designer.
-
-=head1 Multiple Formats
-
-As a final example, let's suppose that we need to create output
-football league tables in a number of formats. Perhaps we are
-passing this data on to other people and they can't all use the
-same format. Some of our users need CSV files and others need
-XML. Some require data split between home and away matches and
-other just want the totals. In total, then, we'll need four
-different templates, but the good news is that they can use the
-same data object. All the script needs to do is to establish
-which template is required and process it.
-
- use FootballLeague;
- use Template;
-
- my ($name, $type, $stats) = @_;
-
- my $league = FootballLeague->new(name => $name);
-
- my $tt = Template->new;
-
- $tt->process("league_${type}_$stats.tt",
- { league => $league }
- "league_$stats.$type")
- || die $tt->error;
-
-For example, you can call this script as
-
- league.pl 'English Premier' xml split
-
-This will process a template called C<league_xml_split.tt>
-and put the results in a file called C<league_split.xml>.
-
-This starts to show the true strength of the Template Toolkit.
-If we later wanted to add another file format - perhaps we
-wanted to create a league table HTML page or even a LaTeX
-document - then we would just need to create the appropriate
-template and name it according to our existing naming
-convention. We would need to make no changes to the code.
-
-I hope you can now see why the Template Toolkit is fast becoming
-an essential part of many people's Perl installation.
-
-=head1 AUTHOR
-
-Dave Cross E<lt>dave at dave.org.ukE<gt>
-
-
-
-
-=head1 VERSION
-
-Template Toolkit version 2.19, released on 27 April 2007.
-
-=head1 COPYRIGHT
-
-
-Copyright (C) 2001 Dave Cross E<lt>dave at dave.org.ukE<gt>
-
-This module is free software; you can redistribute it and/or
-modify it under the same terms as Perl itself.
-
-
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Tutorial/Web.pod b/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Tutorial/Web.pod
deleted file mode 100644
index 48ed577..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/lib/Template/Tutorial/Web.pod
+++ /dev/null
@@ -1,749 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# Template::Tutorial::Web
-#
-# DESCRIPTION
-# Tutorial on generating web content with the Template Toolkit
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 1996-2008 Andy Wardley. All Rights Reserved.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-#========================================================================
-
-=head1 NAME
-
-Template::Tutorial::Web - Generating Web Content Using the Template Toolkit
-
-=head1 Overview
-
-This tutorial document provides a introduction to the Template Toolkit and
-demonstrates some of the typical ways it may be used for generating web
-content. It covers the generation of static pages from templates using the
-L<tpage|Template::Tools::tpage> and L<ttree|Template::Tools::ttree> scripts
-and then goes on to show dynamic content generation using CGI scripts and
-Apache/mod_perl handlers.
-
-Various features of the Template Toolkit are introduced and described briefly
-and explained by use of example. For further information, see L<Template>,
-L<Template::Manual> and the various sections within it. e.g
-
- perldoc Template # Template.pm module usage
- perldoc Template::Manual # index to manual
- perldoc Template::Manual::Config # e.g. configuration options
-
-The documentation is also available in HTML format to read online, or download
-from the Template Toolkit web site:
-
- http://template-toolkit.org/docs/
-
-=head1 Introduction
-
-The Template Toolkit is a set of Perl modules which collectively
-implement a template processing system.
-
-A template is a text document with special markup tags embedded in it.
-By default, the Template Toolkit uses 'C<[%>' and 'C<%]>' to denote
-the start and end of a tag. Here's an example:
-
- [% INCLUDE header %]
-
- People of [% planet %], your attention please.
-
- This is [% captain %] of the
- Galactic Hyperspace Planning Council.
-
- As you will no doubt be aware, the plans
- for development of the outlying regions
- of the Galaxy require the building of a
- hyperspatial express route through your
- star system, and regrettably your planet
- is one of those scheduled for destruction.
-
- The process will take slightly less than
- [% time %].
-
- Thank you.
-
- [% INCLUDE footer %]
-
-Tags can contain simple I<variables> (like C<planet> and C<captain>) and more
-complex I<directives> that start with an upper case keyword (like C<INCLUDE>).
-A directive is an instruction that tells the template processor to perform
-some action, like processing another template (C<header> and C<footer> in this
-example) and inserting the output into the current template. In fact, the
-simple variables we mentioned are actually C<GET> directives, but the C<GET>
-keyword is optional.
-
- People of [% planet %], your attention please. # short form
- People of [% GET planet %], your attention please. # long form
-
-Other directives include C<SET> to set a variable value (the C<SET> keyword is
-also optional), C<FOREACH> to iterate through a list of values, and C<IF>,
-C<UNLESS>, C<ELSIF> and C<ELSE> to declare conditional blocks.
-
-The Template Toolkit processes all I<text> files equally, regardless of what
-kind of content they contain. So you can use TT to generate HTML, XML, CSS,
-Javascript, Perl, RTF, LaTeX, or any other text-based format. In this tutorial,
-however, we'll be concentrating on generating HTML for web pages.
-
-=head1 Generating Static Web Content
-
-Here's an example of a template used to generate an HTML document.
-
- [% INCLUDE header
- title = 'This is an HTML example';
-
- pages = [
- { url = 'http://foo.org'
- title = 'The Foo Organisation'
- }
- { url = 'http://bar.org'
- title = 'The Bar Organisation'
- }
- ]
- %]
- <h1>Some Interesting Links</h1>
- <ul>
- [% FOREACH page IN pages %]
- <li><a href="[% page.url %]">[% page.title %]</a>
- [% END %]
- </ul>
-
- [% INCLUDE footer %]
-
-This example shows how the C<INCLUDE> directive is used to load and process
-separate 'C<header>' and 'C<footer>' template files, including the output in
-the current document. These files might look something like this:
-
-header:
-
- <html>
- <head>
- <title>[% title %]</title>
- </head>
- <body>
-
-footer:
-
- <div class="copyright">
- © Copyright 2007 Arthur Dent
- </div>
- </body>
- </html>
-
-The example also uses the C<FOREACH> directive to iterate through the
-'C<pages>' list to build a table of links. In this example, we have defined
-this list within the template to contain a number of hash references, each
-containing a 'C<url>' and 'C<title>' member. The C<FOREACH> directive iterates
-through the list, aliasing 'C<page>' to each item (in this case, hash array
-references). The C<[% page.url %]> and C<[% page.title %]> directives then
-access the individual values in the hash ararys and insert them into the
-document.
-
-=head2 Using tpage
-
-Having created a template file we can now process it to generate some real
-output. The quickest and easiest way to do this is to use the
-L<tpage|Template::Tools::tpage> script. This is provided as part of the
-Template Toolkit and should be installed in your usual Perl bin directory.
-
-Assuming you saved your template file as F<example.html>, you would run
-the command:
-
- $ tpage example.html
-
-This will process the template file, sending the output to C<STDOUT> (i.e.
-whizzing past you on the screen). You may want to redirect the output to a
-file but be careful not to specify the same name as the template file, or
-you'll overwrite it. You may want to use one prefix for your templates (e.g.
-'C<.tt>') and another (e.g. 'C<.html>') for the output files.
-
- $ tpage example.tt > example.html
-
-Or you can redirect the output to another directory. e.g.
-
- $ tpage templates/example.tt > html/example.html
-
-The output generated would look like this:
-
- <html>
- <head>
- <title>This is an HTML example</title>
- </head>
- <body>
- <h1>Some Interesting Links</h1>
- <ul>
- <li><a href="http://foo.org">The Foo Organsiation</a>
- <li><a href="http://bar.org">The Bar Organsiation</a>
- </ul>
- <div class="copyright">
- © Copyright 2007 Arthur Dent
- </div>
- </body>
- </html>
-
-The F<header> and F<footer> template files have been included (assuming
-you created them and they're in the current directory) and the link data
-has been built into an HTML list.
-
-=head2 Using ttree
-
-The L<tpage|Template::Tools::tpage> script gives you a simple and easy way to
-process a single template without having to write any Perl code. The
-L<ttree:Template::Tools::ttree> script, also distributed as part of the
-Template Toolkit, provides a more flexible way to process a number of template
-documents in one go.
-
-The first time you run the script, it will ask you if it should create a
-configuration file (F<.ttreerc>) in your home directory. Answer C<y> to have
-it create the file.
-
-The L<ttree:Template::Tools::ttree> documentation describes how you can change
-the location of this file and also explains the syntax and meaning of the
-various options in the file. Comments are written to the sample configuration
-file which should also help.
-
-In brief, the configuration file describes the directories in which template
-files are to be found (C<src>), where the corresponding output should be
-written to (C<dest>), and any other directories (C<lib>) that may contain
-template files that you plan to C<INCLUDE> into your source documents. You can
-also specify processing options (such as C<verbose> and C<recurse>) and provide
-regular expression to match files that you don't want to process (C<ignore>,
-C<accept>)> or should be copied instead of being processed as templates (C<copy>).
-
-An example F<.ttreerc> file is shown here:
-
-$HOME/.ttreerc:
-
- verbose
- recurse
-
- # this is where I keep other ttree config files
- cfg = ~/.ttree
-
- src = ~/websrc/src
- lib = ~/websrc/lib
- dest = ~/public_html/test
-
- ignore = \b(CVS|RCS)\b
- ignore = ^#
-
-You can create many different configuration files and store them
-in the directory specified in the C<cfg> option, shown above. You then
-add the C<-f filename> option to C<ttree> to have it read that file.
-
-When you run the script, it compares all the files in the C<src> directory
-(including those in sub-directories if the C<recurse> option is set), with
-those in the C<dest> directory. If the destination file doesn't exist or
-has an earlier modification time than the corresponding source file, then
-the source will be processed with the output written to the destination
-file. The C<-a> option forces all files to be processed, regardless of
-modification times.
-
-The script I<doesn't> process any of the files in the C<lib> directory, but it
-does add it to the C<INCLUDE_PATH> for the template processor so that it can
-locate these files via an C<INCLUDE>, C<PROCESS> or C<WRAPPER> directive.
-Thus, the C<lib> directory is an excellent place to keep template elements
-such as header, footers, etc., that aren't complete documents in their own
-right.
-
-You can also specify various Template Toolkit options from the configuration
-file. Consult the L<ttree|Template::Tools::ttree> documentation and help
-summary (C<ttree -h>) for full details. e.g.
-
-$HOME/.ttreerc:
-
- pre_process = config
- interpolate
- post_chomp
-
-The C<pre_process> option allows you to specify a template file which
-should be processed before each file. Unsurprisingly, there's also a
-C<post_process> option to add a template after each file. In the
-fragment above, we have specified that the C<config> template should be
-used as a prefix template. We can create this file in the C<lib>
-directory and use it to define some common variables, including those
-web page links we defined earlier and might want to re-use in other
-templates. We could also include an HTML header, title, or menu bar
-in this file which would then be prepended to each and every template
-file, but for now we'll keep all that in a separate C<header> file.
-
-$lib/config:
-
- [% root = '~/abw'
- home = "$root/index.html"
- images = "$root/images"
- email = 'abw at wardley.org'
- graphics = 1
- webpages = [
- { url => 'http://foo.org', title => 'The Foo Organsiation' }
- { url => 'http://bar.org', title => 'The Bar Organsiation' }
- ]
- %]
-
-Assuming you've created or copied the C<header> and C<footer> files from the
-earlier example into your C<lib> directory, you can now start to create
-web pages like the following in your C<src> directory and process them
-with C<ttree>.
-
-$src/newpage.html:
-
- [% INCLUDE header
- title = 'Another Template Toolkit Test Page'
- %]
-
- <a href="[% home %]">Home</a>
- <a href="mailto:[% email %]">Email</a>
-
- [% IF graphics %]
- <img src="[% images %]/logo.gif" align=right width=60 height=40>
- [% END %]
-
- [% INCLUDE footer %]
-
-Here we've shown how pre-defined variables can be used as flags to
-enable certain feature (e.g. C<graphics>) and to specify common items
-such as an email address and URL's for the home page, images directory
-and so on. This approach allows you to define these values once so
-that they're consistent across all pages and can easily be changed to
-new values.
-
-When you run F<ttree>, you should see output similar to the following
-(assuming you have the verbose flag set).
-
- ttree 2.9 (Template Toolkit version 2.20)
-
- Source: /home/abw/websrc/src
- Destination: /home/abw/public_html/test
- Include Path: [ /home/abw/websrc/lib ]
- Ignore: [ \b(CVS|RCS)\b, ^# ]
- Copy: [ ]
- Accept: [ * ]
-
- + newpage.html
-
-The C<+> in front of the C<newpage.html> filename shows that the file was
-processed, with the output being written to the destination directory. If you
-run the same command again, you'll see the following line displayed instead
-showing a C<-> and giving a reason why the file wasn't processed.
-
- - newpage.html (not modified)
-
-It has detected a C<newpage.html> in the destination directory which is
-more recent than that in the source directory and so hasn't bothered
-to waste time re-processing it. To force all files to be processed,
-use the C<-a> option. You can also specify one or more filenames as
-command line arguments to C<ttree>:
-
- tpage newpage.html
-
-This is what the destination page looks like.
-
-$dest/newpage.html:
-
- <html>
- <head>
- <title>Another Template Toolkit Test Page</title>
- </head>
- <body>
-
- <a href="~/abw/index.html">Home</a>
- <a href="mailto:abw at wardley.org">Email me</a>
- <img src="~/abw/images/logo.gif" align=right width=60 height=40>
-
- <div class="copyright">
- © Copyright 2007 Arthur Dent
- </div>
- </body>
- </html>
-
-You can add as many documents as you like to the C<src> directory and
-C<ttree> will apply the same process to them all. In this way, it is
-possible to build an entire tree of static content for a web site with
-a single command. The added benefit is that you can be assured of
-consistency in links, header style, or whatever else you choose to
-implement in terms of common templates elements or variables.
-
-=head1 Dynamic Content Generation Via CGI Script
-
-The L<Template> module provides a simple front-end to the Template Toolkit for
-use in CGI scripts and Apache/mod_perl handlers. Simply C<use> the L<Template>
-module, create an object instance with the L<new()> method and then call the
-L<process()> method on the object, passing the name of the template file as a
-parameter. The second parameter passed is a reference to a hash array of
-variables that we want made available to the template:
-
- #!/usr/bin/perl
- use strict;
- use warnings;
- use Template;
-
- my $file = 'src/greeting.html';
- my $vars = {
- message => "Hello World\n"
- };
-
- my $template = Template->new();
-
- $template->process($file, $vars)
- || die "Template process failed: ", $template->error(), "\n";
-
-So that our scripts will work with the same template files as our earlier
-examples, we'll can add some configuration options to the constructor to
-tell it about our environment:
-
- my $template->new({
- # where to find template files
- INCLUDE_PATH => ['/home/abw/websrc/src', '/home/abw/websrc/lib'],
- # pre-process lib/config to define any extra values
- PRE_PROCESS => 'config',
- });
-
-Note that here we specify the C<config> file as a C<PRE_PROCESS> option.
-This means that the templates we process can use the same global
-variables defined earlier for our static pages. We don't have to
-replicate their definitions in this script. However, we can supply
-additional data and functionality specific to this script via the hash
-of variables that we pass to the C<process()> method.
-
-These entries in this hash may contain simple text or other values,
-references to lists, others hashes, sub-routines or objects. The Template
-Toolkit will automatically apply the correct procedure to access these
-different types when you use the variables in a template.
-
-Here's a more detailed example to look over. Amongst the different
-template variables we define in C<$vars>, we create a reference to a
-L<CGI> object and a C<get_user_projects()> sub-routine.
-
- #!/usr/bin/perl
- use strict;
- use warnings;
- use Template;
- use CGI;
-
- $| = 1;
- print "Content-type: text/html\n\n";
-
- my $file = 'userinfo.html';
- my $vars = {
- 'version' => 3.14,
- 'days' => [ qw( mon tue wed thu fri sat sun ) ],
- 'worklist' => \&get_user_projects,
- 'cgi' => CGI->new(),
- 'me' => {
- 'id' => 'abw',
- 'name' => 'Andy Wardley',
- },
- };
-
- sub get_user_projects {
- my $user = shift;
- my @projects = ... # do something to retrieve data
- return \@projects;
- }
-
- my $template = Template->new({
- INCLUDE_PATH => '/home/abw/websrc/src:/home/abw/websrc/lib',
- PRE_PROCESS => 'config',
- });
-
- $template->process($file, $vars)
- || die $template->error();
-
-Here's a sample template file that we might create to build the output
-for this script.
-
-$src/userinfo.html:
-
- [% INCLUDE header
- title = 'Template Toolkit CGI Test'
- %]
-
- <a href="mailto:[% email %]">Email [% me.name %]</a>
-
- <p>This is version [% version %]</p>
-
- <h3>Projects</h3>
- <ul>
- [% FOREACH project IN worklist(me.id) %]
- <li> <a href="[% project.url %]">[% project.name %]</a>
- [% END %]
- </ul>
-
- [% INCLUDE footer %]
-
-This example shows how we've separated the Perl implementation (code) from the
-presentation (HTML). This not only makes them easier to maintain in isolation,
-but also allows the re-use of existing template elements such as headers and
-footers, etc. By using template to create the output of your CGI scripts, you
-can give them the same consistency as your static pages built via
-L<ttree|Template::Tools::ttree> or other means.
-
-Furthermore, we can modify our script so that it processes any one of a
-number of different templates based on some condition. A CGI script to
-maintain a user database, for example, might process one template to
-provide an empty form for new users, the same form with some default
-values set for updating an existing user record, a third template for
-listing all users in the system, and so on. You can use any Perl
-functionality you care to write to implement the logic of your
-application and then choose one or other template to generate the
-desired output for the application state.
-
-=head1 Dynamic Content Generation Via Apache/Mod_Perl Handler
-
-B<NOTE:> the L<Apache::Template> module is available from CPAN and provides a
-simple and easy to use Apache/mod_perl interface to the Template Toolkit.
-Although basic, it implements most, if not all of what is described below, and
-it avoids the need to write your own handler. However, in many cases, you'll
-want to write your own handler to customise processing for your own need, and
-this section will show you how to get started.
-
-The L<Template> module can be used from an Apache/mod_perl handler. Here's an
-example of a typical Apache F<httpd.conf> file:
-
- PerlModule CGI;
- PerlModule Template
- PerlModule MyOrg::Apache::User
-
- PerlSetVar websrc_root /home/abw/websrc
-
- <Location /user/bin>
- SetHandler perl-script
- PerlHandler MyOrg::Apache::User
- </Location>
-
-This defines a location called C</user/bin> to which all requests will
-be forwarded to the C<handler()> method of the C<MyOrg::Apache::User>
-module. That module might look something like this:
-
- package MyOrg::Apache::User;
-
- use strict;
- use vars qw( $VERSION );
- use Apache::Constants qw( :common );
- use Template qw( :template );
- use CGI;
-
- $VERSION = 1.59;
-
- sub handler {
- my $r = shift;
-
- my $websrc = $r->dir_config('websrc_root')
- or return fail($r, SERVER_ERROR,
- "'websrc_root' not specified");
-
- my $template = Template->new({
- INCLUDE_PATH => "$websrc/src/user:$websrc/lib",
- PRE_PROCESS => 'config',
- OUTPUT => $r, # direct output to Apache request
- });
-
- my $params = {
- uri => $r->uri,
- cgi => CGI->new,
- };
-
- # use the path_info to determine which template file to process
- my $file = $r->path_info;
- $file =~ s[^/][];
-
- $r->content_type('text/html');
- $r->send_http_header;
-
- $template->process($file, $params)
- || return fail($r, SERVER_ERROR, $template->error());
-
- return OK;
- }
-
- sub fail {
- my ($r, $status, $message) = @_;
- $r->log_reason($message, $r->filename);
- return $status;
- }
-
-The handler accepts the request and uses it to determine the C<websrc_root>
-value from the config file. This is then used to define an C<INCLUDE_PATH>
-for a new L<Template> object. The URI is extracted from the request and a
-L<CGI> object is created. These are both defined as template variables.
-
-The name of the template file itself is taken from the C<PATH_INFO> element
-of the request. In this case, it would comprise the part of the URL
-coming after C</user/bin>, e.g for C</user/bin/edit>, the template file
-would be C<edit> located in C<$websrc/src/user>. The headers are sent
-and the template file is processed. All output is sent directly to the
-C<print()> method of the Apache request object.
-
-=head1 Using Plugins to Extend Functionality
-
-As we've already shown, it is possible to bind Perl data and functions
-to template variables when creating dynamic content via a CGI script
-or Apache/mod_perl process. The Template Toolkit also supports a
-plugin interface which allows you define such additional data and/or
-functionality in a separate module and then load and use it as
-required with the C<USE> directive.
-
-The main benefit to this approach is that you can load the extension into
-any template document, even those that are processed "statically" by
-C<tpage> or C<ttree>. You I<don't> need to write a Perl wrapper to
-explicitly load the module and make it available via the stash.
-
-Let's demonstrate this principle using the C<DBI> plugin written by Simon
-Matthews (available from CPAN). You can create this template in your C<src>
-directory and process it using C<ttree> to see the results. Of course, this
-example relies on the existence of the appropriate SQL database but you should
-be able to adapt it to your own resources, or at least use it as a
-demonstrative example of what's possible.
-
- [% INCLUDE header
- title = 'User Info'
- %]
-
- [% USE DBI('dbi:mSQL:mydbname') %]
-
- <table border=0 width="100%">
- <tr>
- <th>User ID</th>
- <th>Name</th>
- <th>Email</th>
- </tr>
- [% FOREACH user IN DBI.query('SELECT * FROM user ORDER BY id') %]
- <tr>
- <td>[% user.id %]</td>
- <td>[% user.name %]</td>
- <td>[% user.email %]</td>
- </tr>
- [% END %]
- </table>
-
- [% INCLUDE footer %]
-
-A plugin is simply a Perl module in a known location and conforming to
-a known standard such that the Template Toolkit can find and load it
-automatically. You can create your own plugin by inheriting from the
-L<Template::Plugin> module.
-
-Here's an example which defines some data items (C<foo> and C<people>)
-and also an object method (C<bar>). We'll call the plugin C<FooBar> for
-want of a better name and create it in the C<MyOrg::Template::Plugin::FooBar>
-package. We've added a C<MyOrg> to the regular C<Template::Plugin::*> package
-to avoid any conflict with existing plugins.
-
- package MyOrg::Template::Plugin::FooBar;
- use base 'Template::Plugin'
- our $VERSION = 1.23;
-
- sub new {
- my ($class, $context, @params) = @_;
-
- bless {
- _CONTEXT => $context,
- foo => 25,
- people => [ 'tom', 'dick', 'harry' ],
- }, $class;
- }
-
- sub bar {
- my ($self, @params) = @_;
- # ...do something...
- return $some_value;
- }
-
-The plugin constructor C<new()> receives the class name as the first
-parameter, as is usual in Perl, followed by a reference to something called a
-L<Template::Context> object. You don't need to worry too much about this at
-the moment, other than to know that it's the main processing object for the
-Template Toolkit. It provides access to the functionality of the processor and
-some plugins may need to communicate with it. We don't at this stage, but
-we'll save the reference anyway in the C<_CONTEXT> member. The leading
-underscore is a convention which indicates that this item is private and the
-Template Toolkit won't attempt to access this member. The other members
-defined, C<foo> and C<people> are regular data items which will be made
-available to templates using this plugin. Following the context reference are
-passed any additional parameters specified with the USE directive, such as the
-data source parameter, C<dbi:mSQL:mydbname>, that we used in the earlier DBI
-example.
-
-If you don't or can't install it to the regular place for your Perl
-modules (perhaps because you don't have the required privileges) then
-you can set the PERL5LIB environment variable to specify another location.
-If you're using C<ttree> then you can add the following line to your
-configuration file instead.
-
-$HOME/.ttreerc:
-
- perl5lib = /path/to/modules
-
-One further configuration item must be added to inform the toolkit of
-the new package name we have adopted for our plugins:
-
-$HOME/.ttreerc:
-
- plugin_base = 'MyOrg::Template::Plugin'
-
-If you're writing Perl code to control the L<Template> modules directly,
-then this value can be passed as a configuration parameter when you
-create the module.
-
- use Template;
-
- my $template = Template->new({
- PLUGIN_BASE => 'MyOrg::Template::Plugin'
- });
-
-Now we can create a template which uses this plugin:
-
- [% INCLUDE header
- title = 'FooBar Plugin Test'
- %]
-
- [% USE FooBar %]
-
- Some values available from this plugin:
- [% FooBar.foo %] [% FooBar.bar %]
-
- The users defined in the 'people' list:
- [% FOREACH uid = FooBar.people %]
- * [% uid %]
- [% END %]
-
- [% INCLUDE footer %]
-
-The C<foo>, C<bar>, and C<people> items of the FooBar plugin are
-automatically resolved to the appropriate data items or method calls
-on the underlying object.
-
-Using this approach, it is possible to create application
-functionality in a single module which can then be loaded and used on
-demand in any template. The simple interface between template
-directives and plugin objects allows complex, dynamic content to be
-built from a few simple template documents without knowing anything
-about the underlying implementation.
-
-=head1 AUTHOR
-
-Andy Wardley E<lt>abw at wardley.orgE<gt> L<http://wardley.org/>
-
-=head1 COPYRIGHT
-
-Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
-
-This module is free software; you can redistribute it and/or
-modify it under the same terms as Perl itself.
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/parser/Grammar.pm.skel b/3.8.8/sources/cpan-Template-Toolkit/vendor/parser/Grammar.pm.skel
deleted file mode 100644
index afee268..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/parser/Grammar.pm.skel
+++ /dev/null
@@ -1,209 +0,0 @@
-#============================================================= -*-Perl-*-
-#
-# Template::Grammar
-#
-# DESCRIPTION
-# Grammar file for the Template Toolkit language containing token
-# definitions and parser state/rules tables generated by Parse::Yapp.
-#
-# AUTHOR
-# Andy Wardley <abw at wardley.org>
-#
-# COPYRIGHT
-# Copyright (C) 1996-2006 Andy Wardley. All Rights Reserved.
-# Copyright (C) 1998-2000 Canon Research Centre Europe Ltd.
-#
-# This module is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-# REVISION
-# $Id: Grammar.pm.skel 1092 2007-05-30 10:44:43Z abw $
-#
-# IMPORTANT NOTE
-# This module is constructed from the parser/Grammar.pm.skel file by
-# running the parser/yc script. You only need to do this if # you
-# have modified the grammar in the parser/Parser.yp file and need #
-# to-recompile it. See the README in the 'parser' directory for
-# more information (sub-directory of the Template distribution).
-#
-#========================================================================
-
-package Template::Grammar;
-
-use strict;
-use warnings;
-
-our $VERSION = 2.25;
-
-my (@RESERVED, %CMPOP, $LEXTABLE, $RULES, $STATES);
-my ($factory, $rawstart);
-
-
-#========================================================================
-
-# Reserved words, comparison and binary operators
-#========================================================================
-
- at RESERVED = qw(
- GET CALL SET DEFAULT INSERT INCLUDE PROCESS WRAPPER BLOCK END
- USE PLUGIN FILTER MACRO PERL RAWPERL TO STEP AND OR NOT DIV MOD
- IF UNLESS ELSE ELSIF FOR NEXT WHILE SWITCH CASE META IN
- TRY THROW CATCH FINAL LAST RETURN STOP CLEAR VIEW DEBUG
- );
-
-# for historical reasons, != and == are converted to ne and eq to perform
-# stringwise comparison (mainly because it doesn't generate "non-numerical
-# comparison" warnings which != and == can) but the others (e.g. < > <= >=)
-# are not converted to their stringwise equivalents. I added 'gt' et al,
-# briefly for v2.04d and then took them out again in 2.04e.
-
-
-%CMPOP = qw(
- != ne
- == eq
- < <
- > >
- >= >=
- <= <=
-);
-
-# eq eq # add these lines to the above to
-# lt lt # enable the eq, lt and gt operators
-# gt gt
-
-#========================================================================
-# Lexer Token Table
-#========================================================================
-
-# lookup table used by lexer is initialised with special-cases
-$LEXTABLE = {
- 'FOREACH' => 'FOR',
- 'BREAK' => 'LAST',
- '&&' => 'AND',
- '||' => 'OR',
- '!' => 'NOT',
- '|' => 'FILTER',
- '.' => 'DOT',
- '_' => 'CAT',
- '..' => 'TO',
-# ':' => 'MACRO',
- '=' => 'ASSIGN',
- '=>' => 'ASSIGN',
-# '->' => 'ARROW',
- ',' => 'COMMA',
- '\\' => 'REF',
- 'and' => 'AND', # explicitly specified so that qw( and or
- 'or' => 'OR', # not ) can always be used in lower case,
- 'not' => 'NOT', # regardless of ANYCASE flag
- 'mod' => 'MOD',
- 'div' => 'DIV',
-};
-
-# localise the temporary variables needed to complete lexer table
-{
-# my @tokens = qw< ( ) [ ] { } ${ $ / ; : ? >;
- my @tokens = qw< ( ) [ ] { } ${ $ + / ; : ? >;
- my @cmpop = keys %CMPOP;
-# my @binop = qw( + - * % ); # '/' above, in @tokens
- my @binop = qw( - * % ); # '+' and '/' above, in @tokens
-
- # fill lexer table, slice by slice, with reserved words and operators
- @$LEXTABLE{ @RESERVED, @cmpop, @binop, @tokens }
- = ( @RESERVED, ('CMPOP') x @cmpop, ('BINOP') x @binop, @tokens );
-}
-
-
-#========================================================================
-# CLASS METHODS
-#========================================================================
-
-sub new {
- my $class = shift;
- bless {
- LEXTABLE => $LEXTABLE,
- STATES => $STATES,
- RULES => $RULES,
- }, $class;
-}
-
-# update method to set package-scoped $factory lexical
-sub install_factory {
- my ($self, $new_factory) = @_;
- $factory = $new_factory;
-}
-
-
-#========================================================================
-# States
-#========================================================================
-
-$STATES = <<$states>>;
-
-
-#========================================================================
-# Rules
-#========================================================================
-
-$RULES = <<$rules>>;
-
-
-
-1;
-
-__END__
-
-=head1 NAME
-
-Template::Grammar - Parser state/rule tables for the TT grammar
-
-=head1 SYNOPSIS
-
- # no user serviceable parts inside
-
-=head1 DESCRIPTION
-
-This module defines the state and rule tables that the L<Template::Parser>
-module uses to parse templates. It is generated from a YACC-like grammar
-using the C<Parse::Yapp> module. The F<parser> sub-directory of the
-Template Toolkit source distribution contains the grammar and other
-files required to generate this module.
-
-But you don't need to worry about any of that unless you're planning to
-modify the Template Toolkit language.
-
-=head1 AUTHOR
-
-Andy Wardley E<lt>abw at wardley.orgE<gt>
-
-L<http://wardley.org/>
-
-=head1 COPYRIGHT
-
-Copyright (C) 1996-2007 Andy Wardley. 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<Template::Parser>
-
-=cut
-
-# Local Variables:
-# mode: perl
-# perl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
-# vim: expandtab shiftwidth=4:
-
-
-
-
-
-
-
-
-
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/parser/README b/3.8.8/sources/cpan-Template-Toolkit/vendor/parser/README
deleted file mode 100644
index 5f22f19..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/parser/README
+++ /dev/null
@@ -1,87 +0,0 @@
-#========================================================================
-# Template Toolkit - parser
-#========================================================================
-
-This directory contains the YAPP grammar for the Template processor. You
-only need to worry about the files in this directory if you want to modify
-the template parser grammar. If you're doing such a thing, then it is
-assumed that you have some idea of what you're doing.
-
-
-Files:
-
- Parser.yp Yapp grammar file for the Template parser.
- Grammar.pm.skel Skeleton file for ../lib/Template/Grammar.pm.
- yc Simple shell cript to compile grammar and build new
- ../lib/Template/Grammer.pm file from Grammar.pm.skel and
- the output rules and states generated from the grammar.
- Parser.output Output file generated by the yapp parser. This is
- for information and debugging purposes only and can
- otherwise be ignored.
- README This file
-
-
-If you don't know what you're doing and would like to, then I can
-recommend "Lex and Yacc" by John R. Levine, Tony Mason & Doug Brown
-(O'Reilly, ISBN: 1-56592-000-7) which gives a good introduction
-to the principles of an LALR parser and how to define grammars in YACC.
-YAPP is identical to YACC in all the important ways. See also the
-Parse::Yapp documentation and the comments in Template::Parser for more
-info. For an in-depth study of parser and compiler theory, consult
-"Compiler Theory and Practice", a.k.a. "The Dragon Book", by Alfred
-V. Aho, Ravi Sethi and Jeffrey D.Ullman (Addison-Wesley, ISBN:
-0-201-10194-7)
-
-The parser grammar is compiled by 'yapp', the front-end script to
-Francois Desarmenien's Parse::Yapp module(s). You will need Parse::Yapp
-version 0.32 or later, available from CPAN, to compile the grammar.
-
-The grammar file that yapp produces (../Template/Grammar.pm) contains
-the rule and state tables for the grammar. These are then loaded by
-Template::Parser and used to run the DFA which is implemented by the
-parse_directive() method. This has been derived from the standalone
-parser created by Parse::Yapp.
-
-Having modified the Parser.yp file to add your language changes, simply
-run:
-
- ./yc
-
-to compile the grammar and install it in ../lib/Template/Grammar.pm.
-You can then make, make test, make install, or whatever you normally
-do, and the new grammar should be used by the template processor. To
-revert to the original grammar, simply copy the original distribution
-Parser.yp file back into this directory and repeat the above process.
-
-To create a separate grammar, copy and modify the Parser.yp and
-Grammar.pm.skel files as you wish and then run yapp to compile them:
-
- yapp -v -s -o ../lib/Template/MyGrammar.pm \
- -t MyGrammar.pm.skel MyParser.yp
-
-You can then instantiate you own grammar and pass this to the
-Template constructor.
-
- my $template = Template->new({
- GRAMMAR => Template::MyGrammar->new(),
- });
-
-Changing the grammar is a simple process, in theory at least, if you're
-familiar with YAPP/YACC. In practice, it also requires some insight
-into the inner working of the template toolkit which should probably
-be better documented somewhere.
-
-
-Andy Wardley <abw at kfs.org>
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/parser/yc b/3.8.8/sources/cpan-Template-Toolkit/vendor/parser/yc
deleted file mode 100755
index cc26a9c..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/parser/yc
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/bin/sh
-#========================================================================
-#
-# yc - yapp compile
-#
-# This calls 'yapp', distributed with the Parse::Yapp module, to
-# compile the parser grammar and construct the ../Template/Grammar.pm
-# file. The grammar is defined in ./Parser.yp. The skeleton file
-# Grammar.pm.skel is used as a template for creating the grammar file.
-# An output file 'Parser.output' is generated containing a summary of
-# the rule and state tables.
-#
-# You only need to run this script if you have changed the grammar and
-# wish to recompile it.
-#
-# Andy Wardley <abw at wardley.org>
-#
-#========================================================================
-
-: ${GRAMMAR:="Parser.yp"}
-: ${OUTPUT:="../lib/Template/Grammar.pm"}
-: ${TEMPLATE:="Grammar.pm.skel"}
-
-echo "Compiling parser grammar (${GRAMMAR} -> ${OUTPUT})"
-
-yapp -v -s -o ${OUTPUT} -t ${TEMPLATE} ${GRAMMAR}
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/blocks.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/blocks.t
deleted file mode 100644
index 97741f9..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/blocks.t
+++ /dev/null
@@ -1,104 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/blocks.t
-#
-# Test ability to INCLUDE/PROCESS a block in a template.
-#
-# Written by Andy Wardley <abw at andywardley.com>
-#
-# Copyright (C) 1996-2000 Andy Wardley. All Rights Reserved.
-# Copyright (C) 1998-2000 Canon Research Centre Europe Ltd.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: blocks.t 489 2002-07-19 14:45:34Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib );
-use Template::Test;
-use Template::Provider;
-use Cwd;
-$^W = 1;
-
-my $DEBUG = grep(/-d/, @ARGV);
-#$Template::Parser::DEBUG = $DEBUG;
-#$Template::Directive::PRETTY = $DEBUG;
-$Template::Provider::DEBUG = $DEBUG;
-#$Template::Context::DEBUG = $DEBUG;
-
-my $path = cwd;
-my $dir = -d 'test/lib' ? "$path/test/lib" : "$path/t/test/lib";
-
-my $tt1 = Template->new({
- INCLUDE_PATH => [ qw( t/test/lib test/lib ) ],
- ABSOLUTE => 1,
-});
-
-my $tt2 = Template->new({
- INCLUDE_PATH => [ qw( t/test/lib test/lib ) ],
- EXPOSE_BLOCKS => 1,
- ABSOLUTE => 1,
-});
-
-my $vars = {
- a => 'alpha',
- b => 'bravo',
- dir => $dir,
-};
-
-test_expect(\*DATA, [ off => $tt1, on => $tt2 ], $vars);
-
-__DATA__
--- test --
-[% TRY; INCLUDE blockdef/block1; CATCH; error; END %]
-
--- expect --
-file error - blockdef/block1: not found
-
--- test --
--- use on --
-[% INCLUDE blockdef/block1 %]
-
--- expect --
-This is block 1, defined in blockdef, a is alpha
-
--- test --
-[% INCLUDE blockdef/block1 a='amazing' %]
-
--- expect --
-This is block 1, defined in blockdef, a is amazing
-
--- test --
-[% TRY; INCLUDE blockdef/none; CATCH; error; END %]
--- expect --
-file error - blockdef/none: not found
-
--- test --
-[% INCLUDE "$dir/blockdef/block1" a='abstract' %]
-
--- expect --
-This is block 1, defined in blockdef, a is abstract
-
--- test --
-[% BLOCK one -%]
-block one
-[% BLOCK two -%]
-this is block two, b is [% b %]
-[% END -%]
-two has been defined, let's now include it
-[% INCLUDE one/two b='brilliant' -%]
-end of block one
-[% END -%]
-[% INCLUDE one -%]
-=
-[% INCLUDE one/two b='brazen'-%]
---expect --
-block one
-two has been defined, let's now include it
-this is block two, b is brilliant
-end of block one
-=
-this is block two, b is brazen
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/capture.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/capture.t
deleted file mode 100644
index 012c9de..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/capture.t
+++ /dev/null
@@ -1,94 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/capture.t
-#
-# Test that the output from a directive block can be assigned to a
-# variable.
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 1996-2000 Andy Wardley. All Rights Reserved.
-# Copyright (C) 1998-2000 Canon Research Centre Europe Ltd.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: capture.t 42 2000-09-08 08:10:53Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib );
-use Template::Test;
-$^W = 1;
-
-$Template::Test::DEBUG = 0;
-
-my $config = {
- POST_CHOMP => 1,
-};
-
-my $replace = {
- a => 'alpha',
- b => 'bravo',
-};
-
-test_expect(\*DATA, $config, $replace);
-
-__DATA__
-
--- test --
-[% BLOCK foo %]
-This is block foo, a is [% a %]
-[% END %]
-[% b = INCLUDE foo %]
-[% c = INCLUDE foo a = 'ammended' %]
-b: <[% b %]>
-c: <[% c %]>
--- expect --
-b: <This is block foo, a is alpha>
-c: <This is block foo, a is ammended>
-
--- test --
-[% d = BLOCK %]
-This is the block, a is [% a %]
-[% END %]
-[% a = 'charlie' %]
-a: [% a %] d: [% d %]
--- expect --
-a: charlie d: This is the block, a is alpha
-
--- test --
-[% e = IF a == 'alpha' %]
-a is [% a %]
-[% ELSE %]
-that was unexpected
-[% END %]
-e: [% e %]
--- expect --
-e: a is alpha
-
--- test --
-[% a = FOREACH b = [1 2 3] %]
-[% b %],
-[%- END %]
-a is [% a %]
-
--- expect --
-a is 1,2,3,
-
--- test --
-[% BLOCK userinfo %]
-name: [% user +%]
-[% END %]
-[% out = PROCESS userinfo FOREACH user = [ 'tom', 'dick', 'larry' ] %]
-Output:
-[% out %]
--- expect --
-Output:
-name: tom
-name: dick
-name: larry
-
-
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/cgi.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/cgi.t
deleted file mode 100644
index b44cd6d..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/cgi.t
+++ /dev/null
@@ -1,101 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/cgi.t
-#
-# Test the CGI plugin.
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 1996-2000 Andy Wardley. All Rights Reserved.
-# Copyright (C) 1998-2000 Canon Research Centre Europe Ltd.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: cgi.t 574 2002-11-01 16:25:59Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ../lib );
-use Template;
-use Template::Test;
-$^W = 1;
-
-#$Template::Parser::DEBUG = 1;
-#$Template::Parser::PRETTY = 1;
-#$Template::Stash::DEBUG = 1;
-
-eval "use CGI";
-if ($@) {
- skip_all("no CGI module");
-}
-
-
-my $cgi = CGI->new('');
-$cgi = join("\n", $cgi->checkbox_group(
- -name => 'words',
- -values => [ 'eenie', 'meenie', 'minie', 'moe' ],
- -defaults => [ 'eenie', 'meenie' ],
-));
-
-
-test_expect(\*DATA, undef, { cgicheck => $cgi, barf => \&barf });
-
-sub barf {
- carp('failed');
-}
-
-
-__END__
--- test --
-[% USE cgi = CGI('id=abw&name=Andy+Wardley'); global.cgi = cgi -%]
-name: [% global.cgi.param('name') %]
--- expect --
-name: Andy Wardley
-
--- test --
-name: [% global.cgi.param('name') %]
-
--- expect --
-name: Andy Wardley
-
--- test --
-[% FOREACH key = global.cgi.param.sort -%]
- * [% key %] : [% global.cgi.param(key) %]
-[% END %]
--- expect --
- * id : abw
- * name : Andy Wardley
-
--- test --
-[% FOREACH key = global.cgi.param().sort -%]
- * [% key %] : [% global.cgi.param(key) %]
-[% END %]
--- expect --
- * id : abw
- * name : Andy Wardley
-
--- test --
-[% FOREACH x = global.cgi.checkbox_group(
- name => 'words'
- values => [ 'eenie', 'meenie', 'minie', 'moe' ]
- defaults => [ 'eenie', 'meenie' ] ) -%]
-[% x %]
-[% END %]
-
--- expect --
--- process --
-[% cgicheck %]
-
--- test --
-[% USE cgi('item=foo&items=one&items=two') -%]
-item: [% cgi.params.item %]
-item: [% cgi.params.item.join(', ') %]
-items: [% cgi.params.items.join(', ') %]
-
--- expect --
-item: foo
-item: foo
-items: one, two
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/compile3.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/compile3.t
deleted file mode 100644
index 3083dd0..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/compile3.t
+++ /dev/null
@@ -1,131 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/compile3.t
-#
-# Third test in the compile<n>.t trilogy. Checks that modifications
-# to a source template result in a re-compilation of the template.
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 1996-2000 Andy Wardley. All Rights Reserved.
-# Copyright (C) 1998-2000 Canon Research Centre Europe Ltd.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: compile3.t 1236 2009-07-04 07:45:10Z abw $
-#
-#========================================================================
-
-use strict;
-use warnings;
-use lib qw( ./lib ../lib );
-use Template::Test;
-use File::Copy;
-use File::Spec;
-
-#ntests(13);
-
-# declare extra test to follow test_expect();
-$Template::Test::EXTRA = 1;
-#$Template::Parser::DEBUG = 1;
-
-# script may be being run in distribution root or 't' directory
-my @dir = -d 't' ? qw(t test src) : qw(test src);
-my $dir = File::Spec->catfile(@dir);
-my $ttcfg = {
- POST_CHOMP => 1,
- INCLUDE_PATH => $dir,
- COMPILE_EXT => '.ttc',
-};
-
-# test process fails when EVAL_PERL not set
-my $tt = Template->new($ttcfg);
-my $out;
-ok( ! $tt->process("evalperl", { }, \$out) );
-match( $tt->error->type, 'perl' );
-match( $tt->error->info, 'EVAL_PERL not set' );
-
-# ensure we can run compiled templates without loading parser
-# (fix for "Can't locate object method "TIEHANDLE" via package
-# Template::String..." bug)
-$ttcfg->{ EVAL_PERL } = 1;
-$tt = Template->new($ttcfg);
-ok( $tt->process("evalperl", { }, \$out) )
- || match( $tt->error(), "" );
-
-my $file = "$dir/complex";
-
-# check compiled template file exists and grab modification time
-ok( -f "$file.ttc" );
-my $mod = (stat(_))[9];
-
-# save copy of the source file because we're going to try to break it
-copy($file, "$file.org") || die "failed to copy $file to $file.org\n";
-
-# sleep for a couple of seconds to ensure clock has ticked
-sleep(2);
-
-# append a harmless newline to the end of the source file to change
-# its modification time
-append_file("\n");
-
-# define 'bust_it' to append a lone "[% TRY %]" onto the end of the
-# source file to cause re-compilation to fail
-my $replace = {
- bust_it => sub { append_file('[% TRY %]') },
- near_line => sub {
- my ($warning, $n) = @_;
- if ($warning =~ s/line (\d+)/line ${n}ish/) {
- my $diff = abs($1 - $n);
- if ($diff < 4) {
- # That's close enough for rock'n'roll. The line
- # number reported appears to vary from one version of
- # Perl to another
- return $warning;
- }
- else {
- return $warning . " (where 'ish' means $diff!)";
- }
- }
- else {
- return "no idea what line number that is\n";
- }
- }
-};
-
-test_expect(\*DATA, $ttcfg, $replace );
-
-ok( (stat($file))[9] > $mod );
-
-# restore original source file
-copy("$file.org", $file) || die "failed to copy $file.org to $file\n";
-
-#------------------------------------------------------------------------
-
-sub append_file {
- local *FP;
- sleep(2); # ensure file time stamps are different
- open(FP, ">>$file") || die "$file: $!\n";
- print FP @_;
- close(FP);
-}
-
-#------------------------------------------------------------------------
-
-__DATA__
--- test --
-[% META author => 'albert' version => 'emc2' %]
-[% INCLUDE complex %]
--- expect --
-This is the header, title: Yet Another Template Test
-This is a more complex file which includes some BLOCK definitions
-This is the footer, author: albert, version: emc2
-- 3 - 2 - 1
-
--- test --
-[%# we want to break 'compile' to check that errors get reported -%]
-[% CALL bust_it -%]
-[% TRY; INCLUDE complex; CATCH; near_line("$error", 18); END %]
--- expect --
-file error - parse error - complex line 18ish: unexpected end of input
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/compile4.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/compile4.t
deleted file mode 100644
index 0574c49..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/compile4.t
+++ /dev/null
@@ -1,95 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/compile4.t
-#
-# Test the facility for the Template::Provider to maintain a persistance
-# cache of compiled templates by writing generated Perl code to files.
-# This is similar to compile1.t but defines COMPILE_DIR as well as
-# COMPILE_EXT.
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 1996-2000 Andy Wardley. All Rights Reserved.
-# Copyright (C) 1998-2000 Canon Research Centre Europe Ltd.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: compile4.t 1236 2009-07-04 07:45:10Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib );
-use Template::Test;
-use Cwd qw( abs_path );
-use File::Path;
-$^W = 1;
-
-# declare extra tests to follow test_expect();
-#$Template::Test::EXTRA = 2;
-
-# script may be being run in distribution root or 't' directory
-my @dir = -d 't' ? qw(t test) : qw(test);
-my $dir = abs_path( File::Spec->catfile(@dir) );
-my $tdir = abs_path( File::Spec->catfile(@dir, 'tmp'));
-my $cdir = File::Spec->catfile($tdir, 'cache');
-my $zero = File::Spec->catfile($dir, qw(src divisionbyzero));
-my $ttcfg = {
- POST_CHOMP => 1,
- INCLUDE_PATH => "$dir/src",
- COMPILE_DIR => $cdir,
- COMPILE_EXT => '.ttc',
- ABSOLUTE => 1,
- CONSTANTS => {
- dir => $dir,
- zero => $zero,
- },
-};
-
-# delete any existing cache files
-rmtree($cdir) if -d $cdir;
-mkpath($cdir);
-
-test_expect(\*DATA, $ttcfg, { root => abs_path($dir) } );
-
-
-__DATA__
--- test --
-[% TRY %]
-[% INCLUDE foo %]
-[% CATCH file %]
-Error: [% error.type %] - [% error.info %]
-[% END %]
--- expect --
-This is the foo file, a is
-
--- test --
-[% META author => 'abw' version => 3.14 %]
-[% INCLUDE complex %]
--- expect --
-This is the header, title: Yet Another Template Test
-This is a more complex file which includes some BLOCK definitions
-This is the footer, author: abw, version: 3.14
-- 3 - 2 - 1
-
--- test --
-[% TRY %]
-[% INCLUDE bar/baz word = 'wibble' %]
-[% CATCH file %]
-Error: [% error.type %] - [% error.info %]
-[% END %]
--- expect --
-This is file baz
-The word is 'wibble'
-
--- test --
-[% INCLUDE "$root/src/blam" %]
--- expect --
-This is the blam file
--- test --
-[%- # first pass, writes the compiled code to cache -%]
-[% INCLUDE divisionbyzero -%]
--- expect --
--- process --
-undef error - Illegal division by zero at [% constants.zero %] line 1.
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/config.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/config.t
deleted file mode 100644
index c10ad8d..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/config.t
+++ /dev/null
@@ -1,244 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/config.t
-#
-# Test the Template::Config module.
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 1996-2000 Andy Wardley. All Rights Reserved.
-# Copyright (C) 1998-2000 Canon Research Centre Europe Ltd.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: config.t 101 2001-03-29 23:09:57Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib );
-use vars qw( $DEBUG );
-use Template::Test;
-use Template::Config;
-
-ntests(44);
-$DEBUG = 0;
-$Template::Config::DEBUG = 0;
-
-my $factory = 'Template::Config';
-
-#------------------------------------------------------------------------
-# parser
-#------------------------------------------------------------------------
-
-print STDERR "Testing parser...\n" if $DEBUG;
-my $parser;
-
-$parser = $factory->parser(PRE_CHOMP => 1, INTERPOLATE => 1)
- || print STDERR $factory->error(), "\n";
-
-ok( $parser );
-ok( $parser->{ PRE_CHOMP } == 1);
-ok( $parser->{ INTERPOLATE } == 1);
-
-$parser = $factory->parser({ POST_CHOMP => 1 })
- || print STDERR $factory->error(), "\n";
-
-ok( $parser );
-ok( $parser->{ POST_CHOMP } == 1);
-
-
-#------------------------------------------------------------------------
-# provider
-#------------------------------------------------------------------------
-
-print STDERR "Testing provider...\n" if $DEBUG;
-my $provider;
-
-$provider = $factory->provider(INCLUDE_PATH => 'here:there',
- PARSER => $parser)
- || print STDERR $factory->error(), "\n";
-
-ok( $provider );
-ok( join('...', @{ $provider->{ INCLUDE_PATH } }) eq 'here...there' );
-ok( $provider->{ PARSER }->{ POST_CHOMP } == 1);
-
-$provider = $factory->provider({
- INCLUDE_PATH => 'cat:mat',
- ANYCASE => 1,
- INTERPOLATE => 1
-}) || print STDERR $factory->error(), "\n";
-
-ok( $provider );
-ok( join('...', @{ $provider->{ INCLUDE_PATH } }) eq 'cat...mat' );
-
-# force provider to instantiate a parser and check it uses the correct
-# parameters.
-my $text = 'The cat sat on the mat';
-ok( $provider->fetch(\$text) );
-ok( $provider->{ PARSER }->{ ANYCASE } == 1);
-ok( $provider->{ PARSER }->{ INTERPOLATE } == 1);
-
-
-#------------------------------------------------------------------------
-# plugins
-#------------------------------------------------------------------------
-
-print STDERR "Testing plugins...\n" if $DEBUG;
-my $plugins;
-
-$plugins = $factory->plugins(PLUGIN_BASE => 'MyPlugins')
- || print STDERR $factory->error(), "\n";
-
-ok( $plugins );
-ok( join('+', @{$plugins->{ PLUGIN_BASE }}) eq 'MyPlugins+Template::Plugin' );
-
-$plugins = $factory->plugins({
- LOAD_PERL => 1,
- PLUGIN_BASE => 'NewPlugins',
-}) || print STDERR $factory->error(), "\n";
-
-ok( $plugins );
-ok( $plugins->{ LOAD_PERL } == 1 );
-ok( join('+', @{$plugins->{ PLUGIN_BASE }}) eq 'NewPlugins+Template::Plugin' );
-
-
-#------------------------------------------------------------------------
-# filters
-#------------------------------------------------------------------------
-
-print STDERR "Testing filters...\n" if $DEBUG;
-my $filters;
-
-$filters = $factory->filters(TOLERANT => 1)
- || print STDERR $factory->error(), "\n";
-
-ok( $filters );
-ok( $filters->{ TOLERANT } == 1);
-
-$filters = $factory->filters({ TOLERANT => 1 })
- || print STDERR $factory->error(), "\n";
-
-ok( $filters );
-ok( $filters->{ TOLERANT } == 1);
-
-
-
-#------------------------------------------------------------------------
-# stash
-#------------------------------------------------------------------------
-
-print STDERR "Testing stash...\n" if $DEBUG;
-my $stash;
-
-$stash = $factory->stash(foo => 10, bar => 20)
- || print STDERR $factory->error(), "\n";
-
-ok( $stash );
-ok( $stash->get('foo') == 10);
-ok( $stash->get('bar') == 20);
-
-$stash = $factory->stash({
- foo => 30,
- bar => sub { 'forty' },
-}) || print STDERR $factory->error(), "\n";
-
-ok( $stash );
-ok( $stash->get('foo') == 30);
-ok( $stash->get('bar') eq 'forty' );
-
-
-#------------------------------------------------------------------------
-# context
-#------------------------------------------------------------------------
-
-print STDERR "Testing context...\n" if $DEBUG;
-my $context;
-
-$context = $factory->context()
- || print STDERR $factory->error(), "\n";
-
-ok( $context );
-
-$context = $factory->context(INCLUDE_PATH => 'anywhere')
- || print STDERR $factory->error(), "\n";
-
-ok( $context );
-ok( $context->{ LOAD_TEMPLATES }->[0]->{ INCLUDE_PATH }->[0] eq 'anywhere' );
-
-$context = $factory->context({
- LOAD_TEMPLATES => [ $provider ],
- LOAD_PLUGINS => [ $plugins ],
- LOAD_FILTERS => [ $filters ],
- STASH => $stash,
-}) || print STDERR $factory->error(), "\n";
-
-ok( $context );
-ok( $context->stash->get('foo') == 30 );
-ok( $context->{ LOAD_TEMPLATES }->[0]->{ PARSER }->{ INTERPOLATE } == 1);
-ok( $context->{ LOAD_PLUGINS }->[0]->{ LOAD_PERL } == 1 );
-ok( $context->{ LOAD_FILTERS }->[0]->{ TOLERANT } == 1 );
-
-#------------------------------------------------------------------------
-# service
-#------------------------------------------------------------------------
-
-print STDERR "Testing service...\n" if $DEBUG;
-my $service;
-
-$service = $factory->service(INCLUDE_PATH => 'amsterdam')
- || print STDERR $factory->error(), "\n";
-
-ok( $service );
-ok( $service->{ CONTEXT }->{ LOAD_TEMPLATES }->[0]->{ INCLUDE_PATH }->[0]
- eq 'amsterdam' );
-
-
-#------------------------------------------------------------------------
-# iterator
-#------------------------------------------------------------------------
-
-
-print STDERR "Testing iterator...\n" if $DEBUG;
-
-my ($iterator, $value, $error);
-
-$iterator = $factory->iterator([qw(foo bar baz)])
- || print STDERR $factory->error(), "\n";
-
-ok( $iterator );
-
-($value, $error) = $iterator->get_first();
-ok( $value eq 'foo' );
-
-($value, $error) = $iterator->get_next();
-ok( $value eq 'bar' );
-
-($value, $error) = $iterator->get_next();
-ok( $value eq 'baz' );
-
-
-#------------------------------------------------------------------------
-# instdir
-#------------------------------------------------------------------------
-
-my $idir = Template::Config->instdir();
-
-if ($Template::Config::INSTDIR) {
- ok( $idir eq $Template::Config::INSTDIR );
-}
-else {
- ok( ! defined($idir)
- && $Template::Config::ERROR eq 'no installation directory' );
-}
-
-my $tdir = Template::Config->instdir('templates');
-
-if ($Template::Config::INSTDIR) {
- ok( $tdir eq "$Template::Config::INSTDIR/templates" );
-}
-else {
- ok( ! defined($tdir)
- && $Template::Config::ERROR eq 'no installation directory' );
-}
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/constants.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/constants.t
deleted file mode 100644
index 6b9528e..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/constants.t
+++ /dev/null
@@ -1,221 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/constants.t
-#
-# Test constant folding via Template::Namespace::Constants
-#
-# Written by Andy Wardley <abw at andywardley.com>
-#
-# Copyright (C) 1996-2002 Andy Wardley. All Rights Reserved.
-# Copyright (C) 1998-2002 Canon Research Centre Europe Ltd.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: constants.t 1107 2008-01-22 22:58:24Z sean $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib );
-use Template::Test;
-use Template::Stash;
-use Template::Directive;
-use Template::Parser;
-use Template::Namespace::Constants;
-
-my $DEBUG = grep(/-d/, @ARGV);
-$Template::Namespace::Constants::DEBUG = $DEBUG;
-
-my $n = 0;
-
-my $constants = {
- author => 'Andy \'Da Man\' Wardley',
- single => 'foo\'bar',
- double => "foo'bar",
- joint => ', ',
- col => {
- back => '#ffffff',
- text => '#000000',
- },
- counter => sub { $n++ },
-};
-
-my $namespace = Template::Namespace::Constants->new( $constants );
-ok( $namespace, 'created constants namespace' );
-
-is( $namespace->ident([ 'constants', 0, "'author'", 0 ]), q{'Andy \'Da Man\' Wardley'},
- 'author match' );
-is( $namespace->ident([ 'constants', 0, "'single'", 0 ]), "'foo\\'bar'",
- 'single match' );
-is( $namespace->ident([ 'constants', 0, "'double'", 0 ]), "'foo\\'bar'",
- 'double match' );
-is( $namespace->ident([ 'constants', 0, "'col'", 0, "'back'", 0 ]), "'#ffffff'",
- 'col.back match' );
-is( $namespace->ident([ 'constants', 0, "'col'", 0, "'text'", 0 ]), "'#000000'",
- 'col.text match' );
-
-my $factory = Template::Directive->new({
- NAMESPACE => {
- const => $namespace,
- }
-});
-ok( $factory, 'created Template::Directive factory' );
-
-my $parser = Template::Parser->new( FACTORY => $factory );
-ok( $parser, 'created Template::Parser parser' );
-
-my $parsed = $parser->parse(<<EOF);
-hello [% const.author %]
-[% "back is \$const.col.back" %] and text is [% const.col.text %]
-but a col is still a [% col.user %]
-EOF
-
-die "parser error: ", $parser->error(), "\n"
- unless $parsed;
-
-my $text = $parsed->{ BLOCK };
-
-ok( scalar $text =~ /'Andy \\'Da Man\\' Wardley'/, 'author folded' );
-ok( scalar $text =~ /"back is " . '#ffffff'/, 'col.back folded' );
-ok( scalar $text =~ /stash->get\(\['col', 0, 'user', 0\]\)/, 'col.user unfolded' );
-
-
-$parser = Template::Parser->new({
- NAMESPACE => {
- const => $namespace,
- }
-});
-
-ok( $parser, 'created Template::Parser parser' );
-
-$parsed = $parser->parse(<<EOF);
-hello [% const.author %]
-[% "back is \$const.col.back" %] and text is [% const.col.text %]
-but a col is still a [% col.user %]
-EOF
-
-die "parser error: ", $parser->error(), "\n"
- unless $parsed;
-
-$text = $parsed->{ BLOCK };
-
-ok( scalar $text =~ /'Andy \\'Da Man\\' Wardley'/, 'author folded' );
-ok( scalar $text =~ /"back is " . '#ffffff'/, 'col.back folded' );
-ok( scalar $text =~ /stash->get\(\['col', 0, 'user', 0\]\)/, 'col.user unfolded' );
-
-#------------------------------------------------------------------------
-
-my $tt1 = Template->new({
- NAMESPACE => {
- const => $namespace,
- },
-});
-ok( $tt1, 'created tt1' );
-
-my $const2 = {
- author => 'abw',
- joint => ' is the new ',
- col => {
- back => 'orange',
- text => 'black',
- },
- fave => 'back',
-};
-
-my $tt2 = Template->new({
- CONSTANTS => $const2,
-});
-ok( $tt2, 'created tt2' );
-
-my $tt3 = Template->new({
- CONSTANTS => $const2,
- CONSTANTS_NAMESPACE => 'const',
-});
-ok( $tt3, 'created tt3' );
-
-my $engines = [ tt1 => $tt1, tt2 => $tt2, tt3 => $tt3 ];
-
-my $vars = {
- col => {
- user => 'red',
- luza => 'blue',
- },
- constants => $constants,
-};
-
-test_expect(\*DATA, $engines, $vars);
-
-__DATA__
--- test --
-hello [% const.author %]
-[% "back is $const.col.back" %] and text is [% const.col.text %]
-col.user is [% col.user %]
--- expect --
-hello Andy 'Da Man' Wardley
-back is #ffffff and text is #000000
-col.user is red
-
--- test --
-# look ma! I can even call virtual methods on contants!
-[% const.col.keys.sort.join(', ') %]
--- expect --
-back, text
-
--- test --
-# and even pass constant arguments to constant virtual methods!
-[% const.col.keys.sort.join(const.joint) %]
--- expect --
-back, text
-
--- test --
-# my constants can be subs, etc.
-zero [% const.counter %]
-one [% const.counter %]
--- expect --
-zero 0
-one 1
-
--- test --
--- use tt2 --
-[% "$constants.author thinks " %]
-[%- constants.col.values.sort.reverse.join(constants.joint) %]
--- expect --
-abw thinks orange is the new black
-
--- test --
--- use tt3 --
-[% "$const.author thinks " -%]
-[% const.col.values.sort.reverse.join(const.joint) %]
--- expect --
-abw thinks orange is the new black
-
--- test --
-no [% const.foo %]?
--- expect --
-no ?
-
--- test --
-fave [% const.fave %]
-col [% const.col.${const.fave} %]
--- expect --
-fave back
-col orange
-
--- test --
--- use tt2 --
--- name defer references --
-[% "$key\n" FOREACH key = constants.col.keys.sort %]
--- expect --
-back
-text
-
--- test --
--- use tt3 --
-a: [% const.author %]
-b: [% const.author = 'Fred Smith' %]
-c: [% const.author %]
--- expect --
-a: abw
-b:
-c: abw
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/date.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/date.t
deleted file mode 100644
index a9a11f3..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/date.t
+++ /dev/null
@@ -1,263 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/date.t
-#
-# Tests the 'Date' plugin.
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 2000 Andy Wardley. All Rights Reserved.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: date.t 1135 2008-08-06 13:56:50Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib );
-use Template;
-use Template::Test;
-use Template::Plugin::Date;
-use POSIX;
-$^W = 1;
-
-eval "use Date::Calc";
-
-my $got_date_calc = 0;
-$got_date_calc++ unless $@;
-
-
-$Template::Test::DEBUG = 0;
-
-my $format = {
- 'default' => $Template::Plugin::Date::FORMAT,
- 'time' => '%H:%M:%S',
- 'date' => '%d-%b-%Y',
- 'timeday' => 'the time is %H:%M:%S on %A',
-};
-
-my $time = time;
-my @ltime = localtime($time);
-
-my $params = {
- time => $time,
- format => $format,
- timestr => &POSIX::strftime($format->{ time }, @ltime),
- datestr => &POSIX::strftime($format->{ date }, @ltime),
- daystr => &POSIX::strftime($format->{ timeday }, @ltime),
- defstr => &POSIX::strftime($format->{ default }, @ltime),
- now => sub {
- &POSIX::strftime(shift || $format->{ default }, localtime(time));
- },
- time_locale => \&time_locale,
- date_locale => \&date_locale,
- date_calc => $got_date_calc,
-};
-
-sub time_locale {
- my ($time, $format, $locale) = @_;
- my $old_locale = &POSIX::setlocale(&POSIX::LC_ALL);
-
- # some systems expect locales to have a particular suffix
- for my $suffix ('', @Template::Plugin::Date::LOCALE_SUFFIX) {
- my $try_locale = $locale.$suffix;
- my $setlocale = &POSIX::setlocale(&POSIX::LC_ALL, $try_locale);
- if (defined $setlocale && $try_locale eq $setlocale) {
- $locale = $try_locale;
- last;
- }
- }
- my $datestr = &POSIX::strftime($format, localtime($time));
- &POSIX::setlocale(&POSIX::LC_ALL, $old_locale);
- return $datestr;
-}
-
-sub date_locale {
- my ($time, $format, $locale) = @_;
- my @date = (split(/(?:\/| |:|-)/, $time))[2,1,0,3..5];
- return (undef, Template::Exception->new('date',
- "bad time/date string: expects 'h:m:s d:m:y' got: '$time'"))
- unless @date >= 6 && defined $date[5];
- $date[4] -= 1; # correct month number 1-12 to range 0-11
- $date[5] -= 1900; # convert absolute year to years since 1900
- $time = &POSIX::mktime(@date);
- return time_locale($time, $format, $locale);
-}
-
-
-# force second to rollover so that we reliably see any tests failing.
-# lesson learnt from 2.07b where I broke the Date plugin's handling of a
-# 'time' parameter, but which didn't immediately come to light because the
-# script could run before the second rolled over and not expose the bug
-
-sleep 1;
-
-test_expect(\*DATA, { POST_CHOMP => 1 }, $params);
-
-
-#------------------------------------------------------------------------
-# test input
-#
-# NOTE: these tests check that the Date plugin is behaving as expected
-# but don't attempt to validate that the output returned from strftime()
-# is semantically correct. It's a closed loop (aka "vicious circle" :-)
-# in which we compare what date.format() returns to what we get by
-# calling strftime() directly. Despite this, we can rest assured that
-# the plugin is correctly parsing the various parameters and passing
-# them to strftime() as expected.
-#------------------------------------------------------------------------
-
-__DATA__
--- test --
-[% USE date %]
-Let's hope the year doesn't roll over in between calls to date.format()
-and now()...
-Year: [% date.format(format => '%Y') %]
-
--- expect --
--- process --
-Let's hope the year doesn't roll over in between calls to date.format()
-and now()...
-Year: [% now('%Y') %]
-
--- test --
-[% USE date(time => time) %]
-default: [% date.format %]
-
--- expect --
--- process --
-default: [% defstr %]
-
--- test --
-[% USE date(time => time) %]
-[% date.format(format => format.timeday) %]
-
--- expect --
--- process --
-[% daystr %]
-
--- test --
-[% USE date(time => time, format = format.date) %]
-Date: [% date.format %]
-
--- expect --
--- process --
-Date: [% datestr %]
-
--- test --
-[% USE date(format = format.date) %]
-Time: [% date.format(time, format.time) %]
-
--- expect --
--- process --
-Time: [% timestr %]
-
--- test --
-[% USE date(format = format.date) %]
-Time: [% date.format(time, format = format.time) %]
-
--- expect --
--- process --
-Time: [% timestr %]
-
-
--- test --
-[% USE date(format = format.date) %]
-Time: [% date.format(time = time, format = format.time) %]
-
--- expect --
--- process --
-Time: [% timestr %]
-
--- test --
-[% USE english = date(format => '%A', locale => 'en_GB') %]
-[% USE french = date(format => '%A', locale => 'fr_FR') %]
-In English, today's day is: [% english.format +%]
-In French, today's day is: [% french.format +%]
-
--- expect --
--- process --
-In English, today's day is: [% time_locale(time, '%A', 'en_GB') +%]
-In French, today's day is: [% time_locale(time, '%A', 'fr_FR') +%]
-
--- test --
-[% USE english = date(format => '%A') %]
-[% USE french = date() %]
-In English, today's day is:
-[%- english.format(locale => 'en_GB') +%]
-In French, today's day is:
-[%- french.format(format => '%A', locale => 'fr_FR') +%]
-
--- expect --
--- process --
-In English, today's day is: [% time_locale(time, '%A', 'en_GB') +%]
-In French, today's day is: [% time_locale(time, '%A', 'fr_FR') +%]
-
--- test --
-[% USE date %]
-[% date.format('4:20:00 13-6-2000', '%H') %]
--- expect --
-04
-
--- test --
-[% USE date %]
-[% date.format('2000-6-13 4:20:00', '%H') %]
--- expect --
-04
-
--- test --
--- name September 13th 2000 --
-[% USE day = date(format => '%A', locale => 'en_GB') %]
-[% day.format('4:20:00 13-9-2000') %]
-
--- expect --
--- process --
-[% date_locale('4:20:00 13-9-2000', '%A', 'en_GB') %]
-
-
--- test --
-[% TRY %]
-[% USE date %]
-[% date.format('some stupid date') %]
-[% CATCH date %]
-Bad date: [% e.info %]
-[% END %]
--- expect --
-Bad date: bad time/date string: expects 'h:m:s d:m:y' got: 'some stupid date'
-
--- test --
-[% USE date %]
-[% template.name %] [% date.format(template.modtime, format='%Y') %]
--- expect --
--- process --
-input text [% now('%Y') %]
-
--- test --
-[% IF date_calc -%]
-[% USE date; calc = date.calc; calc.Monday_of_Week(22, 2001).join('/') %]
-[% ELSE -%]
-not testing
-[% END -%]
--- expect --
--- process --
-[% IF date_calc -%]
-2001/5/28
-[% ELSE -%]
-not testing
-[% END -%]
-
--- test --
-[% USE date;
- date.format('12:59:00 30/09/2001', '%H:%M')
--%]
--- expect --
-12:59
-
--- test --
-[% USE date;
- date.format('2001/09/30 12:59:00', '%H:%M')
--%]
--- expect --
-12:59
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/debug.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/debug.t
deleted file mode 100644
index 16d5a48..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/debug.t
+++ /dev/null
@@ -1,176 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/debug.t
-#
-# Test the Debug plugin module.
-#
-# Written by Andy Wardley <abw at andywardley.com>
-#
-# Copyright (C) 2002 Andy Wardley. All Rights Reserved.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: debug.t 535 2002-08-15 16:43:05Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib );
-use Template::Test qw( :all );
-use Template::Parser;
-use Template::Directive;
-use Template::Constants qw( :debug );
-
-my $DEBUG = grep(/-d/, @ARGV);
-#$Template::Parser::DEBUG = 1; #$DEBUG;
-#$Template::Directive::Pretty = $DEBUG;
-$Template::Test::PRESERVE = 1;
-
-my $dir = -d 't' ? 't/test' : 'test';
-
-my $vars = {
- foo => 10,
- bar => 20,
- baz => {
- ping => 100,
- pong => 200,
- },
-};
-
-my $dummy = Template::Base->new() || die Template::Base->error();
-ok( $dummy, 'created a dummy object' );
-my $flags = Template::Constants::debug_flags($dummy, 'dirs, stash');
-ok( $flags, 'created flags' );
-is( $flags, DEBUG_DIRS | DEBUG_STASH, "flags value is $flags" );
-$flags = Template::Constants::debug_flags($dummy, $flags)
- || die $dummy->error();
-ok( $flags, 'got more flags back' );
-is( $flags, 'dirs, stash', 'dirs, stash' );
-
-$flags = Template::Constants::debug_flags($dummy, 'bad stupid');
-ok( ! $flags, 'bad flags' );
-is( $dummy->error(), 'unknown debug flag: bad', 'error correct' );
-
-my $tt = Template->new( {
- DEBUG => 0,
- INCLUDE_PATH => "$dir/src:$dir/lib",
- DEBUG_FORMAT => "<!-- \$file line \$line : [% \$text %] -->",
-} ) || die Template->error();
-
-my $tt2 = Template->new( {
- DEBUG => DEBUG_DIRS,
- INCLUDE_PATH => "$dir/src:$dir/lib",
-} ) || die Template->error();
-
-my $ttd = Template->new( {
- DEBUG => 'dirs, vars',
- INCLUDE_PATH => "$dir/src:$dir/lib",
- DEBUG_FORMAT => "<!-- \$file line \$line : [% \$text %] -->",
-} ) || die Template->error();
-
-test_expect(\*DATA, [ default => $tt, debug => $ttd, debug2 => $tt2 ], $vars);
-#$tt->process(\*DATA, $vars) || die $tt->error();
-#print $tt->context->_dump();
-
-__DATA__
--- test --
-Hello World
-foo: [% foo %]
--- expect --
-Hello World
-foo: 10
-
--- test --
--- use debug --
-Hello World
-foo: [% foo %]
--- expect --
-Hello World
-foo: <!-- input text line 2 : [% foo %] -->10
-
--- test --
--- use default --
-Hello World
-foo: [% foo %]
-[% DEBUG on -%]
-Debugging enabled
-foo: [% foo %]
--- expect --
-Hello World
-foo: 10
-Debugging enabled
-foo: 10
-
--- test --
--- use debug --
-[% DEBUG off %]
-Hello World
-foo: [% foo %]
-[% DEBUG on -%]
-Debugging enabled
-foo: [% foo %]
--- expect --
-<!-- input text line 1 : [% DEBUG off %] -->
-Hello World
-foo: 10
-Debugging enabled
-foo: <!-- input text line 6 : [% foo %] -->10
-
--- test --
--- name ping pong --
-foo: [% foo %]
-hello [% "$baz.ping/$baz.pong" %] world
-[% DEBUG off %]
-bar: [% bar %][% DEBUG on %]
--- expect --
-foo: <!-- input text line 1 : [% foo %] -->10
-hello <!-- input text line 2 : [% "$baz.ping/$baz.pong" %] -->100/200 world
-<!-- input text line 3 : [% DEBUG off %] -->
-bar: 20
-
-
-
--- test --
--- use debug --
-foo: [% foo %]
-[% INCLUDE foo a=10 %]
-[% DEBUG off -%]
-foo: [% foo %]
-[% INCLUDE foo a=20 %]
--- expect --
-foo: <!-- input text line 1 : [% foo %] -->10
-<!-- input text line 2 : [% INCLUDE foo a=10 %] -->This is the foo file, a is 10
-<!-- input text line 3 : [% DEBUG off %] -->foo: 10
-This is the foo file, a is 20
-
-
--- stop --
-
-
-
--- test --
--- use default --
-[% DEBUG on -%]
-[% DEBUG format '[ $file line $line ]' %]
-[% foo %]
--- expect --
-<!-- input text line 2 : [% DEBUG format '[ $file line $line ]' %] -->
-[ input text line 3 ]10
-
-
--- test --
--- use default --
-[% DEBUG on + format '[ $file line $line ]' -%]
-[% foo %]
--- expect --
-[ input text line 2 ]10
-
--- test --
-[% DEBUG on;
- DEBUG format '$text at line $line of $file';
- DEBUG msg line='3.14' file='this file' text='hello world'
-%]
--- expect --
-hello world at line 3.14 of this file
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/directive.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/directive.t
deleted file mode 100644
index 56a2b73..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/directive.t
+++ /dev/null
@@ -1,378 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/directive.t
-#
-# Test basic directive layout and processing options.
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 1996-2000 Andy Wardley. All Rights Reserved.
-# Copyright (C) 1998-2000 Canon Research Centre Europe Ltd.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: directive.t 84 2001-03-22 12:23:15Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib );
-use Template::Test;
-$^W = 1;
-
-my $ttobjs = [
- tt => Template->new(),
- pre => Template->new( PRE_CHOMP => 1 ),
- post => Template->new( POST_CHOMP => 1 ),
- trim => Template->new( INCLUDE_PATH => -d 't' ? 't/test/lib' : 'test/lib',
- TRIM => 1 ),
-];
-
-test_expect(\*DATA, $ttobjs, callsign);
-
-__DATA__
-#------------------------------------------------------------------------
-# basic directives
-#------------------------------------------------------------------------
--- test --
-[% a %]
-[%a%]
--- expect --
-alpha
-alpha
-
--- test --
-pre [% a %]
-pre[% a %]
--- expect --
-pre alpha
-prealpha
-
--- test --
-[% a %] post
-[% a %]post
--- expect --
-alpha post
-alphapost
-
--- test --
-pre [% a %] post
-pre[% a %]post
--- expect --
-pre alpha post
-prealphapost
-
--- test --
-[% a %][%b%][% c %]
--- expect --
-alphabravocharlie
-
--- test --
-[%
-a %][%b
-%][%
-c
-%][%
- d
-%]
--- expect --
-alphabravocharliedelta
-
-#------------------------------------------------------------------------
-# comments
-#------------------------------------------------------------------------
--- test --
-[%# this is a comment which should
- be ignored in totality
-%]hello world
--- expect --
-hello world
-
--- test --
-[% # this is a one-line comment
- a
-%]
--- expect --
-alpha
-
--- test --
-[% # this is a two-line comment
- a =
- # here's the next line
- b
--%]
-[% a %]
--- expect --
-bravo
-
--- test --
-[% a = c # this is a comment on the end of the line
- b = d # so is this
--%]
-a: [% a %]
-b: [% b %]
--- expect --
-a: charlie
-b: delta
-
-#------------------------------------------------------------------------
-# manual chomping
-#------------------------------------------------------------------------
-
--- test --
-[% a %]
-[% b %]
--- expect --
-alpha
-bravo
-
--- test --
-[% a -%]
-[% b %]
--- expect --
-alphabravo
-
--- test --
-[% a -%]
- [% b %]
--- expect --
-alpha bravo
-
--- test --
-[% a %]
-[%- b %]
--- expect --
-alphabravo
-
--- test --
-[% a %]
- [%- b %]
--- expect --
-alphabravo
-
--- test --
-start
-[% a %]
-[% b %]
-end
--- expect --
-start
-alpha
-bravo
-end
-
--- test --
-start
-[%- a %]
-[% b -%]
-end
--- expect --
-startalpha
-bravoend
-
--- test --
-start
-[%- a -%]
-[% b -%]
-end
--- expect --
-startalphabravoend
-
--- test --
-start
-[%- a %]
-[%- b -%]
-end
--- expect --
-startalphabravoend
-
-#------------------------------------------------------------------------
-# PRE_CHOMP enabled
-#------------------------------------------------------------------------
-
--- test --
--- use pre --
-start
-[% a %]
-mid
-[% b %]
-end
--- expect --
-startalpha
-midbravo
-end
-
--- test --
-start
- [% a %]
-mid
- [% b %]
-end
--- expect --
-startalpha
-midbravo
-end
-
--- test --
-start
-[%+ a %]
-mid
-[% b %]
-end
--- expect --
-start
-alpha
-midbravo
-end
-
--- test --
-start
- [%+ a %]
-mid
-[% b %]
-end
--- expect --
-start
- alpha
-midbravo
-end
-
--- test --
-start
- [%- a %]
-mid
- [%- b %]
-end
--- expect --
-startalpha
-midbravo
-end
-
-#------------------------------------------------------------------------
-# POST_CHOMP enabled
-#------------------------------------------------------------------------
-
--- test --
--- use post --
-start
-[% a %]
-mid
-[% b %]
-end
--- expect --
-start
-alphamid
-bravoend
-
--- test --
-start
- [% a %]
-mid
- [% b %]
-end
--- expect --
-start
- alphamid
- bravoend
-
--- test --
-start
-[% a +%]
-mid
-[% b %]
-end
--- expect --
-start
-alpha
-mid
-bravoend
-
--- test --
-start
-[% a +%]
-[% b +%]
-end
--- expect --
-start
-alpha
-bravo
-end
-
--- test --
-start
-[% a -%]
-mid
-[% b -%]
-end
--- expect --
-start
-alphamid
-bravoend
-
-
-#------------------------------------------------------------------------
-# TRIM enabled
-#------------------------------------------------------------------------
--- test --
--- use trim --
-
-[% INCLUDE trimme %]
-
-
--- expect --
-I am a template element file which will get TRIMmed
-
-
--- test --
-[% BLOCK foo %]
-
-this is block foo
-
-[% END -%]
-
-[% BLOCK bar %]
-
-this is block bar
-
-[% END %]
-
-[% INCLUDE foo %]
-[% INCLUDE bar %]
-end
--- expect --
-this is block foo
-this is block bar
-end
-
-
--- test --
-<foo>[% PROCESS foo %]</foo>
-<bar>[% PROCESS bar %]</bar>
-[% BLOCK foo %]
-
-this is block foo
-
-[% END -%]
-[% BLOCK bar %]
-
-this is block bar
-
-[% END -%]
-end
--- expect --
-<foo>this is block foo</foo>
-<bar>this is block bar</bar>
-end
-
-
--- test --
-[% r; r = s; "-"; r %].
--- expect --
-romeo-sierra.
-
--- test --
-[% IF a; b; ELSIF c; d; ELSE; s; END %]
--- expect --
-bravo
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/directry.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/directry.t
deleted file mode 100644
index 6dd9902..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/directry.t
+++ /dev/null
@@ -1,275 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/directory.t
-#
-# Tests the Directory plugin.
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 2000 Andy Wardley. All Rights Reserved.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: directry.t 518 2002-08-12 11:07:18Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib );
-use Template::Test;
-use Cwd;
-$^W = 1;
-
-if ($^O eq 'MSWin32') {
- skip_all('skipping tests on MS Win 32 platform');
-}
-
-#$Template::Test::PRESERVE = 1;
-my $cwd = getcwd();
-my $dir = -d 't' ? 't/test/dir' : 'test/dir';
-
-my $dot = $dir;
-$dot =~ s/[^\/]+/../g;
-
-my $vars = {
- cwd => $cwd,
- dir => $dir,
- dot => $dot,
-};
-test_expect(\*DATA, undef, $vars);
-
-__DATA__
--- test --
-[% TRY ;
- USE Directory ;
- CATCH ;
- error ;
- END
--%]
--- expect --
-Directory error - no directory specified
-
--- test --
-[% TRY ;
- USE Directory('/no/such/place') ;
- CATCH ;
- error.type ; ' error on ' ; error.info.split(':').0 ;
- END
--%]
--- expect --
-Directory error on /no/such/place
-
--- test --
-[% USE d = Directory(dir, nostat=1) -%]
-[% d.path %]
--- expect --
--- process --
-[% dir %]
-
--- test --
-[% USE d = Directory(dir) -%]
-[% d.path %]
--- expect --
--- process --
-[% dir %]
-
--- test --
-[% USE directory(dir) -%]
-[% directory.path %]
--- expect --
--- process --
-[% dir %]
-
--- test --
-[% USE d = Directory(dir) -%]
-[% FOREACH f = d.files -%]
- - [% f.name %]
-[% END -%]
-[% FOREACH f = d.dirs; NEXT IF f.name == 'CVS'; -%]
- * [% f.name %]
-[% END %]
--- expect --
- - file1
- - file2
- - xyzfile
- * sub_one
- * sub_two
-
--- test --
-[% USE dir = Directory(dir) -%]
-[% INCLUDE dir %]
-[% BLOCK dir -%]
-* [% dir.name %]
-[% FOREACH f = dir.files -%]
- - [% f.name %]
-[% END -%]
-[% FOREACH f = dir.dirs; NEXT IF f.name == 'CVS'; -%]
-[% f.scan -%]
-[% INCLUDE dir dir=f FILTER indent(4) -%]
-[% END -%]
-[% END -%]
--- expect --
-* dir
- - file1
- - file2
- - xyzfile
- * sub_one
- - bar
- - foo
- * sub_two
- - waz.html
- - wiz.html
-
--- test --
-[% USE dir = Directory(dir) -%]
-* [% dir.path %]
-[% INCLUDE dir %]
-[% BLOCK dir;
- FOREACH f = dir.list ;
- NEXT IF f.name == 'CVS';
- IF f.isdir ; -%]
- * [% f.name %]
-[% f.scan ;
- INCLUDE dir dir=f FILTER indent(4) ;
- ELSE -%]
- - [% f.name %]
-[% END ;
- END ;
- END -%]
--- expect --
--- process --
-* [% dir %]
- - file1
- - file2
- * sub_one
- - bar
- - foo
- * sub_two
- - waz.html
- - wiz.html
- - xyzfile
-
--- test --
-[% USE d = Directory(dir, recurse=1) -%]
-[% FOREACH f = d.files -%]
- - [% f.name %]
-[% END -%]
-[% FOREACH f = d.dirs; NEXT IF f.name == 'CVS'; -%]
- * [% f.name %]
-[% END %]
--- expect --
- - file1
- - file2
- - xyzfile
- * sub_one
- * sub_two
-
--- test --
-[% USE dir = Directory(dir, recurse=1, root=cwd) -%]
-* [% dir.path %]
-[% INCLUDE dir %]
-[% BLOCK dir;
- FOREACH f = dir.list ;
- NEXT IF f.name == 'CVS';
- IF f.isdir ; -%]
- * [% f.name %] => [% f.path %] => [% f.abs %]
-[% INCLUDE dir dir=f FILTER indent(4) ;
- ELSE -%]
- - [% f.name %] => [% f.path %] => [% f.abs %]
-[% END ;
- END ;
- END -%]
--- expect --
--- process --
-* [% dir %]
- - file1 => [% dir %]/file1 => [% cwd %]/[% dir %]/file1
- - file2 => [% dir %]/file2 => [% cwd %]/[% dir %]/file2
- * sub_one => [% dir %]/sub_one => [% cwd %]/[% dir %]/sub_one
- - bar => [% dir %]/sub_one/bar => [% cwd %]/[% dir %]/sub_one/bar
- - foo => [% dir %]/sub_one/foo => [% cwd %]/[% dir %]/sub_one/foo
- * sub_two => [% dir %]/sub_two => [% cwd %]/[% dir %]/sub_two
- - waz.html => [% dir %]/sub_two/waz.html => [% cwd %]/[% dir %]/sub_two/waz.html
- - wiz.html => [% dir %]/sub_two/wiz.html => [% cwd %]/[% dir %]/sub_two/wiz.html
- - xyzfile => [% dir %]/xyzfile => [% cwd %]/[% dir %]/xyzfile
-
--- test --
-[% USE dir = Directory(dir, recurse=1, root=cwd) -%]
-* [% dir.path %]
-[% INCLUDE dir %]
-[% BLOCK dir;
- FOREACH f = dir.list ;
- NEXT IF f.name == 'CVS';
- IF f.isdir ; -%]
- * [% f.name %] => [% f.home %]
-[% INCLUDE dir dir=f FILTER indent(4) ;
- ELSE -%]
- - [% f.name %] => [% f.home %]
-[% END ;
- END ;
- END -%]
--- expect --
--- process --
-* [% dir %]
- - file1 => [% dot %]
- - file2 => [% dot %]
- * sub_one => [% dot %]
- - bar => [% dot %]/..
- - foo => [% dot %]/..
- * sub_two => [% dot %]
- - waz.html => [% dot %]/..
- - wiz.html => [% dot %]/..
- - xyzfile => [% dot %]
-
-
--- test --
-[% USE dir = Directory(dir) -%]
-[% file = dir.file('xyzfile') -%]
-[% file.name %]
--- expect --
-xyzfile
-
--- test --
-[% USE dir = Directory('.', root=dir) -%]
-[% dir.name %]
-[% FOREACH f = dir.files -%]
-- [% f.name %]
-[% END -%]
--- expect --
-.
-- file1
-- file2
-- xyzfile
-
-
--- test --
-[% VIEW filelist -%]
-
-[% BLOCK file -%]
-f [% item.name %] => [% item.path %]
-[% END -%]
-
-[% BLOCK directory; NEXT IF item.name == 'CVS'; -%]
-d [% item.name %] => [% item.path %]
-[% item.content(view) | indent -%]
-[% END -%]
-
-[% END -%]
-[% USE dir = Directory(dir, recurse=1) -%]
-[% filelist.print(dir) %]
--- expect --
--- process --
-d dir => [% dir %]
- f file1 => [% dir %]/file1
- f file2 => [% dir %]/file2
- d sub_one => [% dir %]/sub_one
- f bar => [% dir %]/sub_one/bar
- f foo => [% dir %]/sub_one/foo
- d sub_two => [% dir %]/sub_two
- f waz.html => [% dir %]/sub_two/waz.html
- f wiz.html => [% dir %]/sub_two/wiz.html
- f xyzfile => [% dir %]/xyzfile
-
-
-
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/document.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/document.t
deleted file mode 100644
index 8ecef75..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/document.t
+++ /dev/null
@@ -1,157 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/document.t
-#
-# Test the Template::Document module.
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 1996-2000 Andy Wardley. All Rights Reserved.
-# Copyright (C) 1998-2000 Canon Research Centre Europe Ltd.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: document.t 806 2004-01-30 19:33:56Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib );
-use Template::Test;
-use Template::Config;
-use Template::Document;
-
-$^W = 1;
-$Template::Test::DEBUG = 0;
-$Template::Document::DEBUG = 0;
-#$Template::Parser::DEBUG = 1;
-#$Template::Directive::PRETTY = 1;
-my $DEBUG = 0;
-
-
-#------------------------------------------------------------------------
-# define a dummy context object for runtime processing
-#------------------------------------------------------------------------
-package Template::DummyContext;
-sub new { bless { }, shift }
-sub visit { }
-sub leave { }
-
-package main;
-
-#------------------------------------------------------------------------
-# create a document and check accessor methods for blocks and metadata
-#------------------------------------------------------------------------
-my $doc = Template::Document->new({
- BLOCK => sub { my $c = shift; return "some output" },
- DEFBLOCKS => {
- foo => sub { return 'the foo block' },
- bar => sub { return 'the bar block' },
- },
- METADATA => {
- author => 'Andy Wardley',
- version => 3.14,
- },
-});
-
-my $c = Template::DummyContext->new();
-
-ok( $doc );
-ok( $doc->author() eq 'Andy Wardley' );
-ok( $doc->version() == 3.14 );
-ok( $doc->process($c) eq 'some output' );
-ok( ref($doc->block()) eq 'CODE' );
-ok( ref($doc->blocks->{ foo }) eq 'CODE' );
-ok( ref($doc->blocks->{ bar }) eq 'CODE' );
-ok( &{ $doc->block } eq 'some output' );
-ok( &{ $doc->blocks->{ foo } } eq 'the foo block' );
-ok( &{ $doc->blocks->{ bar } } eq 'the bar block' );
-
-my $dir = -d 't' ? 't/test' : 'test';
-my $tproc = Template->new({
- INCLUDE_PATH => "$dir/src",
-});
-
-test_expect(\*DATA, $tproc, { mydoc => $doc });
-
-__END__
--- test --
-# test metadata
-[% META
- author = 'Tom Smith'
- version = 1.23
--%]
-version [% template.version %] by [% template.author %]
--- expect --
-version 1.23 by Tom Smith
-
-# test local block definitions are accessible
--- test --
-[% BLOCK foo -%]
- This is block foo
-[% INCLUDE bar -%]
- This is the end of block foo
-[% END -%]
-[% BLOCK bar -%]
- This is block bar
-[% END -%]
-[% PROCESS foo %]
-
--- expect --
- This is block foo
- This is block bar
- This is the end of block foo
-
--- test --
-[% META title = 'My Template Title' -%]
-[% BLOCK header -%]
-title: [% template.title or title %]
-[% END -%]
-[% INCLUDE header %]
--- expect --
-title: My Template Title
-
--- test --
-[% BLOCK header -%]
-HEADER
-component title: [% component.name %]
- template title: [% template.name %]
-[% END -%]
-component title: [% component.name %]
- template title: [% template.name %]
-[% PROCESS header %]
--- expect --
-component title: input text
- template title: input text
-HEADER
-component title: header
- template title: input text
-
--- test --
-[% META title = 'My Template Title' -%]
-[% BLOCK header -%]
-title: [% title or template.title %]
-[% END -%]
-[% INCLUDE header title = 'A New Title' %]
-[% INCLUDE header %]
--- expect --
-title: A New Title
-
-title: My Template Title
-
--- test --
-[% INCLUDE $mydoc %]
--- expect --
-some output
-
--- stop --
-# test for component.caller and component.callers patch
--- test --
-[% INCLUDE one;
- INCLUDE two;
- INCLUDE three;
-%]
--- expect --
-one, three
-two, three
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/evalperl.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/evalperl.t
deleted file mode 100644
index a20ac8b..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/evalperl.t
+++ /dev/null
@@ -1,192 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/evalperl.t
-#
-# Test the evaluation of PERL and RAWPERL blocks.
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 1996-2000 Andy Wardley. All Rights Reserved.
-# Copyright (C) 1998-2000 Canon Research Centre Europe Ltd.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: evalperl.t 236 2001-09-21 22:50:06Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib );
-use Template::Test;
-$^W = 1;
-
-#$Template::Parser::DEBUG = 1;
-#$Template::Directive::PRETTY = 1;
-#$Template::Context::DEBUG = 0;
-
-my $tt_no_perl = Template->new({
- INTERPOLATE => 1,
- POST_CHOMP => 1,
- EVAL_PERL => 0,
- INCLUDE_PATH => -d 't' ? 't/test/lib' : 'test/lib',
-});
-
-my $tt_do_perl = Template->new({
- INTERPOLATE => 1,
- POST_CHOMP => 1,
- EVAL_PERL => 1,
- INCLUDE_PATH => -d 't' ? 't/test/lib' : 'test/lib',
-});
-
-my $ttprocs = [
- no_perl => $tt_no_perl,
- do_perl => $tt_do_perl,
-];
-
-test_expect(\*DATA, $ttprocs, &callsign);
-
-__DATA__
-
--- test --
-[% META
- author = 'Andy Wardley'
- title = 'Test Template $foo #6'
- version = 1.23
-%]
-[% TRY %]
-[% PERL %]
- my $output = "author: [% template.author %]\n";
- $stash->set('a', 'The cat sat on the mat');
- $output .= "more perl generated output\n";
- print $output;
-[% END %]
-[% CATCH %]
-Not allowed: [% error +%]
-[% END %]
-a: [% a +%]
-a: $a
-[% TRY %]
-[% RAWPERL %]
-$output .= "The cat sat on the mouse mat\n";
-$stash->set('b', 'The cat sat where?');
-[% END %]
-[% CATCH %]
-Still not allowed: [% error +%]
-[% END %]
-b: [% b +%]
-b: $b
--- expect --
-Not allowed: perl error - EVAL_PERL not set
-a: alpha
-a: alpha
-Still not allowed: perl error - EVAL_PERL not set
-b: bravo
-b: bravo
-
--- test --
-[% TRY %]
-nothing
-[% PERL %]
-We don't care about correct syntax within PERL blocks if EVAL_PERL isn't set.
-They're simply ignored.
-[% END %]
-[% CATCH %]
-ERROR: [% error.type %]: [% error.info %]
-[% END %]
--- expect --
-nothing
-ERROR: perl: EVAL_PERL not set
-
--- test --
-some stuff
-[% TRY %]
-[% INCLUDE badrawperl %]
-[% CATCH %]
-ERROR: [[% error.type %]] [% error.info %]
-[% END %]
--- expect --
-some stuff
-This is some text
-ERROR: [perl] EVAL_PERL not set
-
--- test --
--- use do_perl --
-some stuff
-[% TRY %]
-[% INCLUDE badrawperl %]
-[% CATCH +%]
-ERROR: [[% error.type %]]
-[% END %]
--- expect --
-some stuff
-This is some text
-more stuff goes here
-ERROR: [undef]
-
--- test --
--- use do_perl --
-[% META author = 'Andy Wardley' %]
-[% PERL %]
- my $output = "author: [% template.author %]\n";
- $stash->set('a', 'The cat sat on the mat');
- $output .= "more perl generated output\n";
- print $output;
-[% END %]
--- expect --
-author: Andy Wardley
-more perl generated output
-
--- test --
--- use do_perl --
-[% META
- author = 'Andy Wardley'
- title = 'Test Template $foo #6'
- version = 3.14
-%]
-[% PERL %]
- my $output = "author: [% template.author %]\n";
- $stash->set('a', 'The cat sat on the mat');
- $output .= "more perl generated output\n";
- print $output;
-[% END %]
-a: [% a +%]
-a: $a
-[% RAWPERL %]
-$output .= "The cat sat on the mouse mat\n";
-$stash->set('b', 'The cat sat where?');
-[% END %]
-b: [% b +%]
-b: $b
--- expect --
-author: Andy Wardley
-more perl generated output
-a: The cat sat on the mat
-a: The cat sat on the mat
-The cat sat on the mouse mat
-b: The cat sat where?
-b: The cat sat where?
-
--- test --
-[% BLOCK foo %]This is block foo[% END %]
-[% PERL %]
-print $context->include('foo');
-print PERLOUT "\nbar\n";
-[% END %]
-The end
--- expect --
-This is block foo
-bar
-The end
-
--- test --
-[% TRY %]
- [%- PERL %] die "nothing to live for\n" [% END %]
-[% CATCH %]
- error: [% error %]
-[% END %]
--- expect --
- error: undef error - nothing to live for
-
-
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/factory.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/factory.t
deleted file mode 100644
index c81b51f..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/factory.t
+++ /dev/null
@@ -1,73 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/factory.t
-#
-# Test use of a modified directive factory, based on something that
-# pudge suggested on #perl.
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 1996-2001 Andy Wardley. All Rights Reserved.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: factory.t 147 2001-08-04 09:49:56Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib );
-use Template::Test;
-$^W = 1;
-
-# uncomment these lines to see how generate Perl code
-# for constant.* is expanded at parse time
-#Template::Parser::DEBUG = 1;
-#Template::Directive::PRETTY = 1;
-
-package My::Directive;
-use base qw( Template::Directive );
-
-my $constants = {
- pi => 3.14,
- e => 2.718,
-};
-
-sub ident {
- my ($class, $ident) = @_;
-
- # note single quoting of 'constant'
- if (ref $ident eq 'ARRAY' && $ident->[0] eq "'constant'") {
- my $key = $ident->[2];
- $key =~ s/'//g;
- return $constants->{ $key } || '';
- }
- return $class->SUPER::ident($ident);
-}
-
-package main;
-
-my $cfg = {
- FACTORY => 'My::Directive',
-};
-
-my $vars = {
- foo => {
- bar => 'Place to purchase drinks',
- baz => 'Short form of "Basil"',
- },
-};
-
-test_expect(\*DATA, $cfg, $vars);
-
-__DATA__
--- test --
-[% foo.bar %]
--- expect --
-Place to purchase drinks
-
--- test --
-[% constant.pi %]
--- expect --
-3.14
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/file.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/file.t
deleted file mode 100644
index 0819d44..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/file.t
+++ /dev/null
@@ -1,180 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/file.t
-#
-# Tests the File plugin.
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 2000 Andy Wardley. All Rights Reserved.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: file.t 518 2002-08-12 11:07:18Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib );
-use Template::Test;
-use Template::Plugin::File;
-$^W = 1;
-
-if ($^O eq 'MSWin32') {
- skip_all('skipping tests on MS Win 32 platform');
-}
-
-#
-my $dir = -d 't' ? 't/test' : 'test';
-my $file = "$dir/src/foo";
-my @stat;
-(@stat = stat $file)
- || die "$file: $!\n";
-
-my $vars = {
- dir => $dir,
- file => $file,
-};
-@$vars{ @Template::Plugin::File::STAT_KEYS } = @stat;
-
-test_expect(\*DATA, undef, $vars);
-
-__DATA__
--- test --
-[% USE f = File('/foo/bar/baz.html', nostat=1) -%]
-p: [% f.path %]
-r: [% f.root %]
-n: [% f.name %]
-d: [% f.dir %]
-e: [% f.ext %]
-h: [% f.home %]
-a: [% f.abs %]
--- expect --
-p: /foo/bar/baz.html
-r:
-n: baz.html
-d: /foo/bar
-e: html
-h: ../..
-a: /foo/bar/baz.html
-
--- test --
-[% USE f = File('foo/bar/baz.html', nostat=1) -%]
-p: [% f.path %]
-r: [% f.root %]
-n: [% f.name %]
-d: [% f.dir %]
-e: [% f.ext %]
-h: [% f.home %]
-a: [% f.abs %]
--- expect --
-p: foo/bar/baz.html
-r:
-n: baz.html
-d: foo/bar
-e: html
-h: ../..
-a: foo/bar/baz.html
-
--- test --
-[% USE f = File('baz.html', nostat=1) -%]
-p: [% f.path %]
-r: [% f.root %]
-n: [% f.name %]
-d: [% f.dir %]
-e: [% f.ext %]
-h: [% f.home %]
-a: [% f.abs %]
--- expect --
-p: baz.html
-r:
-n: baz.html
-d:
-e: html
-h:
-a: baz.html
-
-
--- test --
-[% USE f = File('bar/baz.html', root='/foo', nostat=1) -%]
-p: [% f.path %]
-r: [% f.root %]
-n: [% f.name %]
-d: [% f.dir %]
-e: [% f.ext %]
-h: [% f.home %]
-a: [% f.abs %]
--- expect --
-p: bar/baz.html
-r: /foo
-n: baz.html
-d: bar
-e: html
-h: ..
-a: /foo/bar/baz.html
-
-
--- test --
-[% USE f = File('bar/baz.html', root='/foo', nostat=1) -%]
-p: [% f.path %]
-h: [% f.home %]
-rel: [% f.rel('wiz/waz.html') %]
--- expect --
-p: bar/baz.html
-h: ..
-rel: ../wiz/waz.html
-
-
--- test --
-[% USE baz = File('foo/bar/baz.html', root='/tmp/tt2', nostat=1) -%]
-[% USE waz = File('wiz/woz/waz.html', root='/tmp/tt2', nostat=1) -%]
-[% baz.rel(waz) %]
--- expect --
-../../wiz/woz/waz.html
-
-
--- test --
-[% USE f = File('foo/bar/baz.html', nostat=1) -%]
-[[% f.atime %]]
--- expect --
-[]
-
--- test --
-[% USE f = File(file) -%]
-[% f.path %]
-[% f.name %]
--- expect --
--- process --
-[% dir %]/src/foo
-foo
-
--- test --
-[% USE f = File(file) -%]
-[% f.path %]
-[% f.mtime %]
--- expect --
--- process --
-[% dir %]/src/foo
-[% mtime %]
-
--- test --
-[% USE file(file) -%]
-[% file.path %]
-[% file.mtime %]
--- expect --
--- process --
-[% dir %]/src/foo
-[% mtime %]
-
--- test --
-[% TRY -%]
-[% USE f = File('') -%]
-n: [% f.name %]
-[% CATCH -%]
-Drat, there was a [% error.type %] error.
-[% END %]
--- expect --
-Drat, there was a File error.
-
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/fileline.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/fileline.t
deleted file mode 100644
index 921eb95..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/fileline.t
+++ /dev/null
@@ -1,126 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/fileline.t
-#
-# Test the reporting of template file and line number in errors.
-#
-# Written by Andy Wardley <abw at wardley.org>
-#
-# Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-#========================================================================
-
-#BEGIN {
-# if ( $^O eq 'MSWin32' ) {
-# print "1..0 # Skip Temporarily skipping on Win32\n";
-# exit(0);
-# }
-#}
-
-use strict;
-use warnings;
-use lib qw( ./lib ../lib ./blib/lib ../blib/lib ./blib/arch ../blib/arch );
-use Template::Test;
-use Template::Parser;
-use Template::Directive;
-
-#$Template::Parser::DEBUG = 1;
-#$Template::Directive::PRETTY = 1;
-
-my $dir = -d 't' ? 't/test/lib' : 'test/lib';
-
-my $warning;
-local $SIG{__WARN__} = sub {
- $warning = shift;
-};
-
-my $vars = {
- warning => sub { return $warning },
- file => sub {
- $warning =~ /at (.*?) line/;
- my $file = $1;
- # The error returned includes a reference to the eval string
- # e.g. ' ...at (eval 1) line 1'. On some platforms (notably
- # FreeBSD and variants like OSX), the (eval $n) part contains
- # a different number, presumably because it has previously
- # performed additional string evals. It's not important to
- # the success or failure of the test, so we delete it.
- # Thanks to Andreas Koenig for identifying the problem.
- # http://rt.cpan.org/Public/Bug/Display.html?id=20807
- $file =~ s/eval\s+\d+/eval/;
-
- # handle backslashes on Win32 by converting them to forward slashes
- $file =~ s!\\!/!g if $^O eq 'MSWin32';
- return $file;
- },
- line => sub {
- $warning =~ /line (\d*)/;
- return $1;
- },
- warn => sub {
- $warning =~ /(.*?) at /;
- return $1;
- },
-};
-
-my $tt2err = Template->new({ INCLUDE_PATH => $dir })
- || die Template->error();
-my $tt2not = Template->new({ INCLUDE_PATH => $dir, FILE_INFO => 0 })
- || die Template->error();
-
-test_expect(\*DATA, [ err => $tt2err, not => $tt2not ], $vars);
-
-__DATA__
--- test --
-[% place = 'World' -%]
-Hello [% place %]
-[% a = a + 1 -%]
-file: [% file %]
-line: [% line %]
-warn: [% warn %]
--- expect --
--- process --
-Hello World
-file: input text
-line: 3
-warn: Argument "" isn't numeric in addition (+)
-
--- test --
-[% INCLUDE warning -%]
-file: [% file.chunk(-16).last %]
-line: [% line %]
-warn: [% warn %]
--- expect --
--- process --
-Hello
-World
-file: test/lib/warning
-line: 2
-warn: Argument "" isn't numeric in addition (+)
-
--- test --
--- use not --
-[% INCLUDE warning -%]
-file: [% file.chunk(-16).last %]
-line: [% line %]
-warn: [% warn %]
--- expect --
-Hello
-World
-file: (eval)
-line: 10
-warn: Argument "" isn't numeric in addition (+)
-
--- test --
-[% TRY;
- INCLUDE chomp;
- CATCH;
- error;
- END
-%]
--- expect --
-file error - parse error - chomp line 6: unexpected token (END)
- [% END %]
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/iterator.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/iterator.t
deleted file mode 100644
index 4d8930c..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/iterator.t
+++ /dev/null
@@ -1,182 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/iterator.t
-#
-# Template script testing Template::Iterator and
-# Template::Plugin::Iterator.
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 1996-2000 Andy Wardley. All Rights Reserved.
-# Copyright (C) 1998-2000 Canon Research Centre Europe Ltd.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: iterator.t 1217 2009-05-21 07:37:15Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib );
-use Template::Test;
-use Template::Iterator;
-$^W = 1;
-
-#$Template::Parser::DEBUG = 0;
-#$Template::Test::DEBUG = 0;
-
-my $data = [ qw( foo bar baz qux wiz woz waz ) ];
-my $vars = {
- data => $data,
-# iterator => Template::Iterator->new($data),
-};
-
-my $i1 = Template::Iterator->new($data);
-ok( $i1->get_first() eq 'foo' );
-ok( $i1->get_next() eq 'bar' );
-ok( $i1->get_next() eq 'baz' );
-
-my $rest = $i1->get_all();
-ok( scalar @$rest == 4 );
-ok( $rest->[0] eq 'qux' );
-ok( $rest->[3] eq 'waz' );
-
-my ($val, $err) = $i1->get_next();
-ok( ! $val );
-ok( $err == Template::Constants::STATUS_DONE );
-
-($val, $err) = $i1->get_all();
-ok( ! $val );
-ok( $err == Template::Constants::STATUS_DONE );
-
-($val, $err) = $i1->get_first();
-ok( $i1->get_first() eq 'foo' );
-ok( $i1->get_next() eq 'bar' );
-$rest = $i1->get_all();
-ok( scalar @$rest == 5 );
-
-# get_all with a few values in the iterator
-my $i2 = Template::Iterator->new($data);
-($rest, $err) = $i2->get_all();
-is( scalar @$rest, 7 );
-ok( ! $err);
-($val, $err) = $i2->get_all();
-ok( ! $val);
-is( $err, Template::Constants::STATUS_DONE );
-
-# get_all with a single value.
-my $i3 = Template::Iterator->new(['foo']);
-($rest, $err) = $i3->get_all();
-is( scalar @$rest, 1 );
-is( pop @$rest, 'foo' );
-ok( ! $err);
-($val, $err) = $i3->get_all();
-ok( ! $val);
-is( $err, Template::Constants::STATUS_DONE );
-
-# get_all with an empty array
-my $i4 = Template::Iterator->new([]);
-($val, $err) = $i4->get_all();
-ok( ! $val);
-is( $err, Template::Constants::STATUS_DONE );
-
-test_expect(\*DATA, { POST_CHOMP => 1 }, $vars);
-
-__DATA__
-
--- test --
-[% items = [ 'foo' 'bar' 'baz' 'qux' ] %]
-[% FOREACH i = items %]
- * [% i +%]
-[% END %]
--- expect --
- * foo
- * bar
- * baz
- * qux
-
--- test --
-[% items = [ 'foo' 'bar' 'baz' 'qux' ] %]
-[% FOREACH i = items %]
- #[% loop.index %]/[% loop.max %] [% i +%]
-[% END %]
--- expect --
- #0/3 foo
- #1/3 bar
- #2/3 baz
- #3/3 qux
-
--- test --
-[% items = [ 'foo' 'bar' 'baz' 'qux' ] %]
-[% FOREACH i = items %]
- #[% loop.count %]/[% loop.size %] [% i +%]
-[% END %]
--- expect --
- #1/4 foo
- #2/4 bar
- #3/4 baz
- #4/4 qux
-
--- test --
-# test that 'number' is supported as an alias to 'count', for backwards
-# compatability
-[% items = [ 'foo' 'bar' 'baz' 'qux' ] %]
-[% FOREACH i = items %]
- #[% loop.number %]/[% loop.size %] [% i +%]
-[% END %]
--- expect --
- #1/4 foo
- #2/4 bar
- #3/4 baz
- #4/4 qux
-
--- test --
-[% USE iterator(data) %]
-[% FOREACH i = iterator %]
-[% IF iterator.first %]
-List of items:
-[% END %]
- * [% i +%]
-[% IF iterator.last %]
-End of list
-[% END %]
-[% END %]
--- expect --
-List of items:
- * foo
- * bar
- * baz
- * qux
- * wiz
- * woz
- * waz
-End of list
-
-
--- test --
-[% FOREACH i = [ 'foo' 'bar' 'baz' 'qux' ] %]
-[% "$loop.prev<-" IF loop.prev -%][[% i -%]][% "->$loop.next" IF loop.next +%]
-[% END %]
--- expect --
-[foo]->bar
-foo<-[bar]->baz
-bar<-[baz]->qux
-baz<-[qux]
-
--- test --
--- name test even/odd/parity --
-[% FOREACH item IN [1..10] -%]
-* [% loop.count %] [% loop.odd %] [% loop.even %] [% loop.parity +%]
-[% END -%]
--- expect --
-* 1 1 0 odd
-* 2 0 1 even
-* 3 1 0 odd
-* 4 0 1 even
-* 5 1 0 odd
-* 6 0 1 even
-* 7 1 0 odd
-* 8 0 1 even
-* 9 1 0 odd
-* 10 0 1 even
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/lib/Template/Plugin/ProcFoo.pm b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/lib/Template/Plugin/ProcFoo.pm
deleted file mode 100644
index 7c70f37..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/lib/Template/Plugin/ProcFoo.pm
+++ /dev/null
@@ -1,8 +0,0 @@
-package Template::Plugin::ProcFoo;
-use Template::Plugin::Procedural;
- at ISA = qw(Template::Plugin::Procedural);
-
-sub foo { "This is procfoofoo" }
-sub bar { "This is procfoobar" }
-
-1;
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/list.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/list.t
deleted file mode 100644
index dca40c7..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/list.t
+++ /dev/null
@@ -1,202 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/list.t
-#
-# Tests list references as variables, including pseudo-methods such
-# as first(), last(), etc.
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 1996-2000 Andy Wardley. All Rights Reserved.
-# Copyright (C) 1998-2000 Canon Research Centre Europe Ltd.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: list.t 328 2002-03-12 14:59:17Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib );
-use Template::Test;
-use Template::Constants qw( :status );
-$^W = 1;
-
-use Template::Parser;
-$Template::Test::DEBUG = 0;
-#$Template::Parser::DEBUG = 1;
-#$Template::Directive::PRETTY = 1;
-
-# sample data
-my ($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) =
- qw( alpha bravo charlie delta echo foxtrot golf hotel india
- juliet kilo lima mike november oscar papa quebec romeo
- sierra tango umbrella victor whisky x-ray yankee zulu );
-
-my $data = [ $r, $j, $s, $t, $y, $e, $f, $z ];
-my $vars = {
- 'a' => $a,
- 'b' => $b,
- 'c' => $c,
- 'd' => $d,
- 'e' => $e,
- data => $data,
- days => [ qw( Mon Tue Wed Thu Fri Sat Sun ) ],
- wxyz => [ { id => $z, name => 'Zebedee', rank => 'aa' },
- { id => $y, name => 'Yinyang', rank => 'ba' },
- { id => $x, name => 'Xeexeez', rank => 'ab' },
- { id => $w, name => 'Warlock', rank => 'bb' }, ],
- inst => [ { name => 'piano', url => '/roses.html' },
- { name => 'flute', url => '/blow.html' },
- { name => 'organ', url => '/tulips.html' }, ],
- nest => [ [ 3, 1, 4 ], [ 2, [ 7, 1, 8 ] ] ],
-};
-
-my $config = {};
-
-test_expect(\*DATA, $config, $vars);
-
-
-__DATA__
-
-#------------------------------------------------------------------------
-# GET
-#------------------------------------------------------------------------
--- test --
-[% data.0 %] and [% data.1 %]
--- expect --
-romeo and juliet
-
--- test --
-[% data.first %] - [% data.last %]
--- expect --
-romeo - zulu
-
--- test --
-[% data.size %] [% data.max %]
--- expect --
-8 7
-
--- test --
-[% data.join(', ') %]
--- expect --
-romeo, juliet, sierra, tango, yankee, echo, foxtrot, zulu
-
--- test --
-[% data.reverse.join(', ') %]
--- expect --
-zulu, foxtrot, echo, yankee, tango, sierra, juliet, romeo
-
--- test --
-[% data.sort.reverse.join(' - ') %]
--- expect --
-zulu - yankee - tango - sierra - romeo - juliet - foxtrot - echo
-
--- test --
-[% FOREACH item = wxyz.sort('id') -%]
-* [% item.name %]
-[% END %]
--- expect --
-* Warlock
-* Xeexeez
-* Yinyang
-* Zebedee
-
--- test --
-[% FOREACH item = wxyz.sort('rank') -%]
-* [% item.name %]
-[% END %]
--- expect --
-* Zebedee
-* Xeexeez
-* Yinyang
-* Warlock
-
--- test --
-[% FOREACH n = [0..6] -%]
-[% days.$n +%]
-[% END -%]
--- expect --
-Mon
-Tue
-Wed
-Thu
-Fri
-Sat
-Sun
-
--- test --
-[% data = [ 'one', 'two', data.first ] -%]
-[% data.join(', ') %]
--- expect --
-one, two, romeo
-
--- test --
-[% data = [ 90, 8, 70, 6, 1, 11, 10, 2, 5, 50, 52 ] -%]
- sort: [% data.sort.join(', ') %]
-nsort: [% data.nsort.join(', ') %]
--- expect --
- sort: 1, 10, 11, 2, 5, 50, 52, 6, 70, 8, 90
-nsort: 1, 2, 5, 6, 8, 10, 11, 50, 52, 70, 90
-
--- test --
-[% ilist = [] -%]
-[% ilist.push("<a href=\"$i.url\">$i.name</a>") FOREACH i = inst -%]
-[% ilist.join(",\n") -%]
-[% global.ilist = ilist -%]
--- expect --
-<a href="/roses.html">piano</a>,
-<a href="/blow.html">flute</a>,
-<a href="/tulips.html">organ</a>
-
--- test --
-[% global.ilist.pop %]
--- expect --
-<a href="/tulips.html">organ</a>
-
--- test --
-[% global.ilist.shift %]
--- expect --
-<a href="/roses.html">piano</a>
-
--- test --
-[% global.ilist.unshift('another') -%]
-[% global.ilist.join(', ') %]
--- expect --
-another, <a href="/blow.html">flute</a>
-
--- test --
-[% nest.0.0 %].[% nest.0.1 %][% nest.0.2 +%]
-[% nest.1.shift %].[% nest.1.0.join('') %]
--- expect --
-3.14
-2.718
-
--- test --
-[% # define some initial data
- people => [
- { id => 'tom', name => 'Tom' },
- { id => 'dick', name => 'Richard' },
- { id => 'larry', name => 'Larry' },
- ]
--%]
-[% folk = [] -%]
-[% folk.push("<a href=\"${person.id}.html\">$person.name</a>")
- FOREACH person = people.sort('name') -%]
-[% folk.join(",\n") -%]
--- expect --
-<a href="larry.html">Larry</a>,
-<a href="dick.html">Richard</a>,
-<a href="tom.html">Tom</a>
-
--- test --
-[% data.grep('r').join(', ') %]
--- expect --
-romeo, sierra, foxtrot
-
--- test --
-[% data.grep('^r').join(', ') %]
--- expect --
-romeo
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/object.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/object.t
deleted file mode 100644
index f2a5959..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/object.t
+++ /dev/null
@@ -1,371 +0,0 @@
-#============================================================= -*-perl-*-
-# t/object.t
-#
-# Template script testing code bindings to objects.
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 1996-2000 Andy Wardley. All Rights Reserved.
-# Copyright (C) 1998-2000 Canon Research Centre Europe Ltd.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: object.t 1143 2008-08-07 12:40:05Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib );
-use Template::Exception;
-use Template::Test;
-$^W = 1;
-
-$Template::Test::DEBUG = 0;
-
-
-#------------------------------------------------------------------------
-# definition of test object class
-#------------------------------------------------------------------------
-
-package T1;
-sub new {
- my $class = shift;
- bless { @_ }, $class;
-}
-
-sub die {
- die "barfed up\n";
-}
-
-package TestObject;
-
-use vars qw( $AUTOLOAD );
-
-sub new {
- my ($class, $params) = @_;
- $params ||= {};
-
- bless {
- PARAMS => $params,
- DAYS => [ qw( Monday Tuesday Wednesday Thursday
- Friday Saturday Sunday ) ],
- DAY => 0,
- 'public' => 314,
- '.private' => 425,
- '_hidden' => 537,
- }, $class;
-}
-
-sub yesterday {
- my $self = shift;
- return "Love was such an easy game to play...";
-}
-
-sub today {
- my $self = shift;
- return "Live for today and die for tomorrow.";
-}
-
-sub tomorrow {
- my ($self, $dayno) = @_;
- $dayno = $self->{ DAY }++
- unless defined $dayno;
- $dayno %= 7;
- return $self->{ DAYS }->[$dayno];
-}
-
-sub belief {
- my $self = shift;
- my $b = join(' and ', @_);
- $b = '<nothing>' unless length $b;
- return "Oh I believe in $b.";
-}
-
-sub concat {
- my $self = shift;
- local $" = ', ';
- $self->{ PARAMS }->{ args } = "ARGS: @_";
-}
-
-sub _private {
- my $self = shift;
- die "illegal call to private method _private()\n";
-}
-
-
-sub AUTOLOAD {
- my ($self, @params) = @_;
- my $name = $AUTOLOAD;
- $name =~ s/.*:://;
- return if $name eq 'DESTROY';
-
- my $value = $self->{ PARAMS }->{ $name };
- if (ref($value) eq 'CODE') {
- return &$value(@params);
- }
- elsif (@params) {
- return $self->{ PARAMS }->{ $name } = shift @params;
- }
- else {
- return $value;
- }
-}
-
-#------------------------------------------------------------------------
-# another object for testing auto-stringification
-#------------------------------------------------------------------------
-
-package Stringy;
-
-use overload '""' => 'stringify', fallback => 1;
-
-sub new {
- my ($class, $text) = @_;
- bless \$text, $class;
-}
-
-sub stringify {
- my $self = shift;
- return "stringified '$$self'";
-}
-
-#------------------------------------------------------------------------
-# Another object for tracking down a bug with DBIx::Class where TT is
-# causing the numification operator to be called. Matt S Trout suggests
-# we've got a truth test somewhere that should be a defined but that
-# doesn't appear to be the case...
-# http://rt.cpan.org/Ticket/Display.html?id=23763
-#------------------------------------------------------------------------
-
-package Numbersome;
-
-use overload
- '""' => 'stringify',
- '0+' => 'numify',
- fallback => 1;
-
-sub new {
- my ($class, $text) = @_;
- bless \$text, $class;
-}
-
-sub numify {
- my $self = shift;
- return "FAIL: numified $$self";
-}
-
-sub stringify {
- my $self = shift;
- return "PASS: stringified $$self";
-}
-
-sub things {
- return [qw( foo bar baz )];
-}
-
-package GetNumbersome;
-
-sub new {
- my ($class, $text) = @_;
- bless { }, $class;
-}
-
-sub num {
- Numbersome->new("from GetNumbersome");
-}
-
-#------------------------------------------------------------------------
-# main
-#------------------------------------------------------------------------
-
-package main;
-
-sub new {
- my ($class, $text) = @_;
- bless \$text, $class;
-}
-
-my $objconf = {
- 'a' => 'alpha',
- 'b' => 'bravo',
- 'w' => 'whisky',
-};
-
-my $replace = {
- thing => TestObject->new($objconf),
- string => Stringy->new('Test String'),
- t1 => T1->new(a => 10),
- num => Numbersome->new("Numbersome"),
- getnum => GetNumbersome->new,
- %{ callsign() },
-};
-
-test_expect(\*DATA, { INTERPOLATE => 1 }, $replace);
-
-
-
-#------------------------------------------------------------------------
-# test input
-#------------------------------------------------------------------------
-
-__DATA__
-# test method calling via autoload to get parameters
-[% thing.a %] [% thing.a %]
-[% thing.b %]
-$thing.w
--- expect --
-alpha alpha
-bravo
-whisky
-
-# ditto to set parameters
--- test --
-[% thing.c = thing.b -%]
-[% thing.c %]
--- expect --
-bravo
-
--- test --
-[% thing.concat = thing.b -%]
-[% thing.args %]
--- expect --
-ARGS: bravo
-
--- test --
-[% thing.concat(d) = thing.b -%]
-[% thing.args %]
--- expect --
-ARGS: delta, bravo
-
--- test --
-[% thing.yesterday %]
-[% thing.today %]
-[% thing.belief(thing.a thing.b thing.w) %]
--- expect --
-Love was such an easy game to play...
-Live for today and die for tomorrow.
-Oh I believe in alpha and bravo and whisky.
-
--- test --
-Yesterday, $thing.yesterday
-$thing.today
-${thing.belief('yesterday')}
--- expect --
-Yesterday, Love was such an easy game to play...
-Live for today and die for tomorrow.
-Oh I believe in yesterday.
-
--- test --
-[% thing.belief('fish' 'chips') %]
-[% thing.belief %]
--- expect --
-Oh I believe in fish and chips.
-Oh I believe in <nothing>.
-
--- test --
-${thing.belief('fish' 'chips')}
-$thing.belief
--- expect --
-Oh I believe in fish and chips.
-Oh I believe in <nothing>.
-
--- test --
-[% thing.tomorrow %]
-$thing.tomorrow
--- expect --
-Monday
-Tuesday
-
--- test --
-[% FOREACH [ 1 2 3 4 5 ] %]$thing.tomorrow [% END %].
--- expect --
-Wednesday Thursday Friday Saturday Sunday .
-
-
-#------------------------------------------------------------------------
-# test private methods do not get exposed
-#------------------------------------------------------------------------
--- test --
-before[% thing._private %] mid [% thing._hidden %]after
--- expect --
-before mid after
-
--- test --
-[% key = '_private' -%]
-[[% thing.$key %]]
--- expect --
-[]
-
--- test --
-[% key = '.private' -%]
-[[% thing.$key = 'foo' %]]
-[[% thing.$key %]]
--- expect --
-[]
-[]
-
-#------------------------------------------------------------------------
-# test auto-stringification
-#------------------------------------------------------------------------
-
--- test --
-[% string.stringify %]
--- expect --
-stringified 'Test String'
-
--- test --
-[% string %]
--- expect --
-stringified 'Test String'
-
--- test --
-[% "-> $string <-" %]
--- expect --
--> stringified 'Test String' <-
-
--- test --
-[% "$string" %]
--- expect --
-stringified 'Test String'
-
--- test --
-foo $string bar
--- expect --
-foo stringified 'Test String' bar
-
--- test --
-.[% t1.dead %].
--- expect --
-..
-
--- test --
-.[% TRY; t1.die; CATCH; error; END %].
--- expect --
-.undef error - barfed up
-.
-
-
-#-----------------------------------------------------------------------
-# try and pin down the numification bug
-#-----------------------------------------------------------------------
-
--- test --
-[% FOREACH item IN num.things -%]
-* [% item %]
-[% END -%]
--- expect --
-* foo
-* bar
-* baz
-
--- test --
-[% num %]
--- expect --
-PASS: stringified Numbersome
-
--- test --
-[% getnum.num %]
--- expect --
-PASS: stringified from GetNumbersome
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/plusfile.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/plusfile.t
deleted file mode 100644
index 7baf9ca..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/plusfile.t
+++ /dev/null
@@ -1,104 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/plufile.t
-#
-# Test ability to specify INCLUDE/PROCESS/WRAPPER files in the
-# form "foo+bar+baz".
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 1996-2000 Andy Wardley. All Rights Reserved.
-# Copyright (C) 1998-2000 Canon Research Centre Europe Ltd.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: plusfile.t 131 2001-06-14 13:20:12Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib );
-use Template;
-use Template::Test;
-use Template::Context;
-$^W = 1;
-
-#$Template::Parser::DEBUG = 1;
-#$Template::Directive::PRETTY = 1;
-$Template::Test::PRESERVE = 1;
-
-my $dir = -d 't' ? 't/test/src' : 'test/src';
-
-test_expect(\*DATA, { INCLUDE_PATH => $dir });
-
-__DATA__
--- test --
-[% INCLUDE foo %]
-[% BLOCK foo; "This is foo!"; END %]
--- expect --
-This is foo!
-
--- test --
-[% INCLUDE foo+bar -%]
-[% BLOCK foo; "This is foo!\n"; END %]
-[% BLOCK bar; "This is bar!\n"; END %]
--- expect --
-This is foo!
-This is bar!
-
--- test --
-[% PROCESS foo+bar -%]
-[% BLOCK foo; "This is foo!\n"; END %]
-[% BLOCK bar; "This is bar!\n"; END %]
--- expect --
-This is foo!
-This is bar!
-
--- test --
-[% WRAPPER edge + box + indent
- title = "The Title" -%]
-My content
-[% END -%]
-[% BLOCK indent -%]
-<indent>
-[% content -%]
-</indent>
-[% END -%]
-[% BLOCK box -%]
-<box>
-[% content -%]
-</box>
-[% END -%]
-[% BLOCK edge -%]
-<edge>
-[% content -%]
-</edge>
-[% END -%]
--- expect --
-<edge>
-<box>
-<indent>
-My content
-</indent>
-</box>
-</edge>
-
-
--- test --
-[% INSERT foo+bar/baz %]
--- expect --
-This is the foo file, a is [% a -%][% DEFAULT word = 'qux' -%]
-This is file baz
-The word is '[% word %]'
-
--- test --
-[% file1 = 'foo'
- file2 = 'bar/baz'
--%]
-[% INSERT "$file1" + "$file2" %]
--- expect --
-This is the foo file, a is [% a -%][% DEFAULT word = 'qux' -%]
-This is file baz
-The word is '[% word %]'
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/pod.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/pod.t
deleted file mode 100644
index bd9e5b8..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/pod.t
+++ /dev/null
@@ -1,108 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/pod.t
-#
-# Tests the 'Pod' plugin.
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 2001 Andy Wardley. All Rights Reserved.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: pod.t 1250 2009-07-21 11:21:56Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib );
-use Template::Test;
-use Carp qw( confess );
-$^W = 1;
-
-$Template::Test::DEBUG = 0;
-$Template::Test::PRESERVE = 1;
-#$Template::View::DEBUG = 1;
-
-eval "use Pod::POM";
-if ($@) {
- skip_all('Pod::POM not installed');
-}
-
-my $config = {
- INCLUDE_PATH => 'templates:../templates',
-# RELATIVE => 1,
-# POST_CHOMP => 1,
-};
-
-my $vars = {
- podloc => -d 't' ? 't/test/pod' : 'test/pod',
-};
-
-test_expect(\*DATA, $config, $vars);
-
-__DATA__
--- test --
-[% USE pod;
- pom = pod.parse("$podloc/no_such_file.pod");
- pom ? 'not ok' : 'ok'; ' - file does not exist';
-%]
--- expect --
-ok - file does not exist
-
--- test --
-[% USE pod;
- pom = pod.parse("$podloc/test1.pod");
- pom ? 'ok' : 'not ok'; ' - file parsed';
- global.pom = pom;
- global.warnings = pod.warnings;
-%]
--- expect --
-ok - file parsed
-
--- test --
-[% global.warnings.join("\n") %]
--- expect --
--- process --
-spurious '>' at [% podloc %]/test1.pod line 17
-spurious '>' at [% podloc %]/test1.pod line 21
-
--- test --
-[% FOREACH h1 = global.pom.head1 -%]
-* [% h1.title %]
-[% END %]
--- expect --
-* NAME
-* SYNOPSIS
-* DESCRIPTION
-* THE END
-
--- test --
-[% FOREACH h2 = global.pom.head1.2.head2 -%]
-+ [% h2.title %]
-[% END %]
--- expect --
-+ First Subsection
-+ Second Subsection
-
--- test --
-[% PROCESS $item.type FOREACH item=global.pom.head1.2.content %]
-
-[% BLOCK head2 -%]
-<h2>[% item.title | trim %]</h2>
-[% END %]
-
-[% BLOCK text -%]
-<p>[% item | trim %]</p>
-[% END %]
-
-[% BLOCK verbatim -%]
-<pre>[% item | trim %]</pre>
-[% END %]
--- expect --
-<p>This is the description for My::Module.</p>
-<pre>This is verbatim</pre>
-<h2>First Subsection</h2>
-<h2>Second Subsection</h2>
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/prefix.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/prefix.t
deleted file mode 100644
index 53e0170..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/prefix.t
+++ /dev/null
@@ -1,73 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/prefix.t
-#
-# Test template prefixes within INCLUDE, etc., directives.
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 1996-2000 Andy Wardley. All Rights Reserved.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: prefix.t 335 2002-03-12 17:01:20Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib );
-use Template;
-use Template::Test;
-use Template::Config;
-$^W = 1;
-
-#$Template::Test::DEBUG = 0;
-#$Template::Context::DEBUG = 0;
-
-# script may be being run in distribution root or 't' directory
-my $dir = -d 't' ? 't/test' : 'test';
-
-my $src_prov = Template::Config->provider( INCLUDE_PATH => "$dir/src" );
-my $lib_prov = Template::Config->provider( INCLUDE_PATH => "$dir/lib" );
-my $config = {
- LOAD_TEMPLATES => [ $src_prov, $lib_prov ],
- PREFIX_MAP => {
- src => '0',
- lib => '1',
- all => '0, 1',
- },
-};
-
-test_expect(\*DATA, $config);
-
-__DATA__
--- test --
-[% INCLUDE foo a=10 %]
--- expect --
-This is the foo file, a is 10
-
--- test --
-[% INCLUDE src:foo a=20 %]
--- expect --
-This is the foo file, a is 20
-
--- test --
-[% INCLUDE all:foo a=30 %]
--- expect --
-This is the foo file, a is 30
-
--- test --
-[% TRY;
- INCLUDE lib:foo a=30 ;
- CATCH;
- error;
- END
-%]
--- expect --
-file error - lib:foo: not found
-
--- test --
-[% INSERT src:foo %]
--- expect --
-This is the foo file, a is [% a -%]
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/proc.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/proc.t
deleted file mode 100644
index 9309973..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/proc.t
+++ /dev/null
@@ -1,44 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/proc.t
-#
-# Template script testing the procedural template plugin
-#
-# Written by Mark Fowler <mark at twoshortplanks.com>
-#
-# Copyright (C) 2002 Makr Fowler. All Rights Reserved.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: proc.t 1244 2009-07-04 16:30:33Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib t/lib );
-use Template::Test;
-$^W = 1;
-
-my $ttcfg = {};
-
-test_expect(\*DATA, $ttcfg, &callsign());
-
-__DATA__
--- test --
-[% USE ProcFoo -%]
-[% ProcFoo.foo %]
-[% ProcFoo.bar %]
--- expect --
-This is procfoofoo
-This is procfoobar
--- test --
-[% USE ProcBar -%]
-[% ProcBar.foo %]
-[% ProcBar.bar %]
-[% ProcBar.baz %]
--- expect --
-This is procfoofoo
-This is procbarbar
-This is procbarbaz
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/process.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/process.t
deleted file mode 100644
index dead928..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/process.t
+++ /dev/null
@@ -1,88 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/process.t
-#
-# Test the PROCESS option.
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 1996-2000 Andy Wardley. All Rights Reserved.
-# Copyright (C) 1998-2000 Canon Research Centre Europe Ltd.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: process.t 73 2000-12-01 15:29:35Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib );
-use Template::Test;
-use Template::Service;
-
-my $dir = -d 't' ? 't/test' : 'test';
-my $config = {
- INCLUDE_PATH => "$dir/src:$dir/lib",
- PROCESS => 'content',
- TRIM => 1,
-};
-my $tt1 = Template->new($config);
-
-$config->{ PRE_PROCESS } = 'config';
-$config->{ PROCESS } = 'header:content';
-$config->{ POST_PROCESS } = 'footer';
-$config->{ TRIM } = 0;
-my $tt2 = Template->new($config);
-
-$config->{ PRE_PROCESS } = 'config:header.tt2';
-$config->{ PROCESS } = '';
-my $tt3 = Template->new($config);
-
-my $replace = {
- title => 'Joe Random Title',
-};
-
-
-test_expect(\*DATA, [ tt1 => $tt1, tt2 => $tt2, tt3 => $tt3 ], $replace);
-
-__END__
--- test --
-This is the first test
--- expect --
-This is the main content wrapper for "untitled"
-This is the first test
-This is the end.
-
--- test --
-[% META title = 'Test 2' -%]
-This is the second test
--- expect --
-This is the main content wrapper for "Test 2"
-This is the second test
-This is the end.
-
--- test --
--- use tt2 --
-[% META title = 'Test 3' -%]
-This is the third test
--- expect --
-header:
- title: Joe Random Title
- menu: This is the menu, defined in 'config'
-This is the main content wrapper for "Test 3"
-This is the third test
-
-This is the end.
-footer
-
--- test --
--- use tt3 --
-[% META title = 'Test 3' -%]
-This is the third test
--- expect --
-header.tt2:
- title: Joe Random Title
- menu: This is the menu, defined in 'config'
-footer
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/scalar.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/scalar.t
deleted file mode 100644
index 91d50c2..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/scalar.t
+++ /dev/null
@@ -1,113 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/scalar.t
-#
-# Test the Scalar plugin which allows object methods to be called in
-# scalar context.
-#
-# Written by Andy Wardley <abw at wardley.org>
-#
-# Copyright (C) 1996-2008 Andy Wardley. All Rights Reserved.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-#========================================================================
-
-use strict;
-use warnings;
-use lib qw( ./lib ../lib ../blib/lib ../blib/arch );
-use Template::Test;
-
-#------------------------------------------------------------------------
-# definition of test object class
-#------------------------------------------------------------------------
-
-package Template::Test::HashObject;
-
-sub new {
- bless {}, shift;
-}
-
-sub bar {
- return wantarray
- ? qw( hash object method called in array context )
- : 'hash object method called in scalar context';
-}
-
-package Template::Test::ListObject;
-
-sub new {
- bless [], shift;
-}
-
-sub bar {
- return wantarray
- ? qw( list object method called in array context )
- : 'list object method called in scalar context';
-}
-
-
-#-----------------------------------------------------------------------
-# main
-#-----------------------------------------------------------------------
-
-package main;
-
-my $vars = {
- hashobj => Template::Test::HashObject->new,
- listobj => Template::Test::ListObject->new,
- subref => sub {
- return wantarray
- ? (qw( subroutine called in array context ), @_)
- : 'subroutine called in scalar context ' . join(' ', @_);
- }
-};
-
-test_expect(\*DATA, undef, $vars);
-
-
-
-#------------------------------------------------------------------------
-# test input
-#------------------------------------------------------------------------
-
-__DATA__
--- test --
-[% hashobj.bar.join %]
--- expect --
-hash object method called in array context
-
--- test --
-[% USE scalar -%]
-[% hashobj.scalar.bar %]
--- expect --
-hash object method called in scalar context
-
--- test --
-[% listobj.bar.join %]
--- expect --
-list object method called in array context
-
--- test --
-[% USE scalar -%]
-[% listobj.scalar.bar %]
--- expect --
-list object method called in scalar context
-
--- test --
-[% hash = { a = 10 };
- TRY; hash.scalar.a; CATCH; error; END;
-%]
--- expect --
-scalar error - invalid object method: a
-
--- test --
-[% subref(10, 20).join %]
--- expect --
-subroutine called in array context 10 20
-
--- test --
-[% USE scalar; scalar.subref(30, 40) %]
--- expect --
-subroutine called in scalar context 30 40
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/stash-xs.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/stash-xs.t
deleted file mode 100644
index d8c3cb0..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/stash-xs.t
+++ /dev/null
@@ -1,405 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/stash-xs.t
-#
-# Template script testing (some elements of) the XS version of
-# Template::Stash
-#
-# Written by Andy Wardley <abw at wardley.org>
-#
-# Copyright (C) 1996-2009 Andy Wardley. All Rights Reserved.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-#========================================================================
-
-use strict;
-use warnings;
-use lib qw( ./lib ../lib ../blib/lib ../blib/arch ./blib/lib ./blib/arch );
-use Template::Constants qw( :status );
-use Template;
-use Template::Test;
-
-eval {
- require Template::Stash::XS;
-};
-if ($@) {
- warn $@;
- skip_all('cannot load Template::Stash::XS');
-}
-
-#------------------------------------------------------------------------
-# define some simple objects for testing
-#------------------------------------------------------------------------
-
-package Buggy;
-sub new { bless {}, shift }
-sub croak { my $self = shift; die @_ }
-
-package ListObject;
-
-package HashObject;
-
-sub hello {
- my $self = shift;
- return "Hello $self->{ planet }";
-}
-
-sub goodbye {
- my $self = shift;
- return $self->no_such_method();
-}
-
-sub now_is_the_time_to_test_a_very_long_method_to_see_what_happens {
- my $self = shift;
- return $self->this_method_does_not_exist();
-}
-
-#-----------------------------------------------------------------------
-# another object without overloaded comparison.
-# http://rt.cpan.org/Ticket/Display.html?id=24044
-#-----------------------------------------------------------------------
-
-package CmpOverloadObject;
-
-use overload ('cmp' => 'compare_overload', '<=>', 'compare_overload');
-
-sub new { bless {}, shift };
-
-sub hello {
- return "Hello";
-}
-
-sub compare_overload {
- die "Mayhem!";
-}
-
-
-
-package main;
-
-
-my $count = 20;
-my $data = {
- foo => 10,
- bar => {
- baz => 20,
- },
- baz => sub {
- return {
- boz => ($count += 10),
- biz => (shift || '<undef>'),
- };
- },
- obj => bless({
- name => 'an object',
- }, 'AnObject'),
- bop => sub { return ( bless ({ name => 'an object' }, 'AnObject') ) },
- listobj => bless([10, 20, 30], 'ListObject'),
- hashobj => bless({ planet => 'World' }, 'HashObject'),
- cmp_ol => CmpOverloadObject->new(),
- clean => sub {
- my $error = shift;
- $error =~ s/(\s*\(.*?\))?\s+at.*$//;
- return $error;
- },
- correct => sub { die @_ },
- buggy => Buggy->new(),
-};
-
-my $stash = Template::Stash::XS->new($data);
-
-match( $stash->get('foo'), 10 );
-match( $stash->get([ 'bar', 0, 'baz', 0 ]), 20 );
-match( $stash->get('bar.baz'), 20 );
-match( $stash->get('bar(10).baz'), 20 );
-match( $stash->get('baz.boz'), 30 );
-match( $stash->get('baz.boz'), 40 );
-match( $stash->get('baz.biz'), '<undef>' );
-match( $stash->get('baz(50).biz'), '<undef>' ); # args are ignored
-
-$stash->set( 'bar.buz' => 100 );
-match( $stash->get('bar.buz'), 100 );
-
-# test the dotop() method
-match( $stash->dotop({ foo => 10 }, 'foo'), 10 );
-
-my $stash_dbg = Template::Stash::XS->new({ %$data, _DEBUG => 1 });
-
-my $ttlist = [
- 'default' => Template->new( STASH => $stash ),
- 'warn' => Template->new( STASH => $stash_dbg ),
-];
-
-test_expect(\*DATA, $ttlist, $data);
-
-__DATA__
--- test --
--- name scalar list method --
-[% foo = 'bar'; foo.join %]
--- expect --
-bar
-
--- test --
-a: [% a %]
--- expect --
-a:
-
--- test --
--- use warn --
-[% TRY; a; CATCH; "ERROR: $error"; END %]
--- expect --
-ERROR: undef error - a is undefined
-
--- test --
--- use default --
-[% myitem = 'foo' -%]
-1: [% myitem %]
-2: [% myitem.item %]
-3: [% myitem.item.item %]
--- expect --
-1: foo
-2: foo
-3: foo
-
--- test --
-[% myitem = 'foo' -%]
-[% "* $item\n" FOREACH item = myitem -%]
-[% "+ $item\n" FOREACH item = myitem.list %]
--- expect --
-* foo
-+ foo
-
--- test --
-[% myitem = 'foo' -%]
-[% myitem.hash.value %]
--- expect --
-foo
-
--- test --
-[% myitem = 'foo'
- mylist = [ 'one', myitem, 'three' ]
- global.mylist = mylist
--%]
-[% mylist.item %]
-0: [% mylist.item(0) %]
-1: [% mylist.item(1) %]
-2: [% mylist.item(2) %]
--- expect --
-one
-0: one
-1: foo
-2: three
-
--- test --
-[% "* $item\n" FOREACH item = global.mylist -%]
-[% "+ $item\n" FOREACH item = global.mylist.list -%]
--- expect --
-* one
-* foo
-* three
-+ one
-+ foo
-+ three
-
--- test --
-[% global.mylist.push('bar');
- "* $item.key => $item.value\n" FOREACH item = global.mylist.hash -%]
--- expect --
-* one => foo
-* three => bar
-
--- test --
-[% myhash = { msg => 'Hello World', things => global.mylist, a => 'alpha' };
- global.myhash = myhash
--%]
-* [% myhash.item('msg') %]
--- expect --
-* Hello World
-
--- test --
-[% global.myhash.delete('things') -%]
-keys: [% global.myhash.keys.sort.join(', ') %]
--- expect --
-keys: a, msg
-
--- test --
-[% "* $item\n"
- FOREACH item IN global.myhash.items.sort -%]
--- expect --
-* a
-* alpha
-* Hello World
-* msg
-
--- test --
-[% items = [ 'foo', 'bar', 'baz' ];
- take = [ 0, 2 ];
- slice = items.$take;
- slice.join(', ');
-%]
--- expect --
-foo, baz
-
--- test --
--- name slice of lemon --
-[% items = {
- foo = 'one',
- bar = 'two',
- baz = 'three'
- }
- take = [ 'foo', 'baz' ];
- slice = items.$take;
- slice.join(', ');
-%]
--- expect --
-one, three
-
--- test --
--- name slice of toast --
-[% items = {
- foo = 'one',
- bar = 'two',
- baz = 'three'
- }
- keys = items.keys.sort;
- items.${keys}.join(', ');
-%]
--- expect --
-two, three, one
-
--- test --
-[% i = 0 %]
-[%- a = [ 0, 1, 2 ] -%]
-[%- WHILE i < 3 -%]
-[%- i %][% a.$i -%]
-[%- i = i + 1 -%]
-[%- END %]
--- expect --
-001122
-
--- test --
-[%- a = [ "alpha", "beta", "gamma", "delta" ] -%]
-[%- b = "foo" -%]
-[%- a.$b -%]
--- expect --
-
-
--- test --
-[%- a = [ "alpha", "beta", "gamma", "delta" ] -%]
-[%- b = "2" -%]
-[%- a.$b -%]
--- expect --
-gamma
-
--- test --
-[% obj.name %]
--- expect --
-an object
-
--- test --
-[% obj.name.list.first %]
--- expect --
-an object
-
--- test --
--- name bop --
-[% bop.first.name %]
--- expect --
-an object
-
--- test --
-[% obj.items.first %]
--- expect --
-name
-
-
--- test --
-[% obj.items.1 %]
--- expect --
-an object
-
-
--- test --
-=[% size %]=
--- expect --
-==
-
--- test --
-[% USE Dumper;
- TRY;
- correct(["hello", "there"]);
- CATCH;
- error.info.join(', ');
- END;
-%]
-==
-[% TRY;
- buggy.croak(["hello", "there"]);
- CATCH;
- error.info.join(', ');
- END;
-%]
--- expect --
-hello, there
-==
-hello, there
-
-
--- test --
-[% hash = { }
- list = [ hash ]
- list.last.message = 'Hello World';
- "message: $list.last.message\n"
--%]
-
--- expect --
-message: Hello World
-
-# test Dave Howorth's patch (v2.15) which makes the stash more strict
-# about what it considers to be a missing method error
-
--- test --
-[% hashobj.hello %]
--- expect --
-Hello World
-
--- test --
-[% TRY; hashobj.goodbye; CATCH; "ERROR: "; clean(error); END %]
--- expect --
-ERROR: undef error - Can't locate object method "no_such_method" via package "HashObject"
-
--- test --
-[% TRY;
- hashobj.now_is_the_time_to_test_a_very_long_method_to_see_what_happens;
- CATCH;
- "ERROR: "; clean(error);
- END
-%]
--- expect --
-ERROR: undef error - Can't locate object method "this_method_does_not_exist" via package "HashObject"
-
--- test --
-[% foo = { "one" = "bar" "" = "empty" } -%]
-foo is { [% FOREACH k IN foo.keys.sort %]"[% k %]" = "[% foo.$k %]" [% END %]}
-setting foo.one to baz
-[% fookey = "one" foo.$fookey = "baz" -%]
-foo is { [% FOREACH k IN foo.keys.sort %]"[% k %]" = "[% foo.$k %]" [% END %]}
-setting foo."" to quux
-[% fookey = "" foo.$fookey = "full" -%]
-foo is { [% FOREACH k IN foo.keys.sort %]"[% k %]" = "[% foo.$k %]" [% END %]}
---expect --
-foo is { "" = "empty" "one" = "bar" }
-setting foo.one to baz
-foo is { "" = "empty" "one" = "baz" }
-setting foo."" to quux
-foo is { "" = "full" "one" = "baz" }
-
-
-# Exercise the object with the funky overloaded comparison
-
--- test --
-[% cmp_ol.hello %]
--- expect --
-Hello
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/strict.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/strict.t
deleted file mode 100644
index 66432d9..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/strict.t
+++ /dev/null
@@ -1,68 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/strict.t
-#
-# Test strict mode.
-#
-# Written by Andy Wardley <abw at wardley.org>
-#
-# Copyright (C) 1996-2009 Andy Wardley. All Rights Reserved.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-#========================================================================
-
-use strict;
-use warnings;
-use lib qw( ../lib );
-use Template;
-use Template::Test;
-
-my $template = Template->new(
- STRICT => 1
-);
-
-test_expect(
- \*DATA,
- { STRICT => 1 },
- { foo => 10, bar => undef, baz => { boz => undef } }
-);
-
-__DATA__
--- test --
--- name defined variable --
-[% foo %]
--- expect --
-10
-
--- test --
--- name variable with undefined value --
-[% TRY; bar; CATCH; error; END %]
--- expect --
-var.undef error - undefined variable: bar
-
--- test --
--- name dotted variable with undefined value --
-[% TRY; baz.boz; CATCH; error; END %]
--- expect --
-var.undef error - undefined variable: baz.boz
-
--- test --
--- name undefined first part of dotted.variable --
-[% TRY; wiz.bang; CATCH; error; END %]
--- expect --
-var.undef error - undefined variable: wiz.bang
-
--- test --
--- name undefined second part of dotted.variable --
-[% TRY; baz.booze; CATCH; error; END %]
--- expect --
-var.undef error - undefined variable: baz.booze
-
--- test --
--- name dotted.variable with args --
-[% TRY; baz(10).booze(20, 'blah', "Foo $foo"); CATCH; error; END %]
--- expect --
-var.undef error - undefined variable: baz(10).booze(20, 'blah', 'Foo 10')
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/string.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/string.t
deleted file mode 100644
index ba767e3..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/string.t
+++ /dev/null
@@ -1,407 +0,0 @@
-#!/usr/bin/perl -w
-#============================================================= -*-perl-*-
-#
-# t/string.t
-#
-# Test the String plugin
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 1996-2000 Andy Wardley. All Rights Reserved.
-# Copyright (C) 1998-2000 Canon Research Centre Europe Ltd.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: string.t 923 2006-01-30 16:42:35Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib );
-use Template::Test;
-use Template::Plugin::String;
-
-my $DEBUG = grep /-d/, @ARGV;
-#$Template::Parser::DEBUG = $DEBUG;
-#$Template::Directive::PRETTY = $DEBUG;
-
-test_expect(\*DATA);
-
-__DATA__
--- test --
-[% USE String -%]
-string: [[% String.text %]]
--- expect --
-string: []
-
--- test --
-[% USE String 'hello world' -%]
-string: [[% String.text %]]
--- expect --
-string: [hello world]
-
--- test --
-[% USE String text='hello world' -%]
-string: [[% String.text %]]
--- expect --
-string: [hello world]
-
--- test --
-[% USE String -%]
-string: [[% String %]]
--- expect --
-string: []
-
--- test --
-[% USE String 'hello world' -%]
-string: [[% String %]]
--- expect --
-string: [hello world]
-
--- test --
-[% USE String text='hello world' -%]
-string: [[% String %]]
--- expect --
-string: [hello world]
-
--- test --
-[% USE String text='hello' -%]
-string: [[% String.append(' world') %]]
-string: [[% String %]]
--- expect --
-string: [hello world]
-string: [hello world]
-
--- test --
-[% USE String text='hello' -%]
-[% copy = String.copy -%]
-string: [[% String %]]
-string: [[% copy %]]
--- expect --
-string: [hello]
-string: [hello]
-
--- test --
-[% USE String -%]
-[% hi = String.new('hello') -%]
-[% lo = String.new('world') -%]
-[% hw = String.new(text="$hi $lo") -%]
-hi: [[% hi %]]
-lo: [[% lo %]]
-hw: [[% hw %]]
--- expect --
-hi: [hello]
-lo: [world]
-hw: [hello world]
-
--- test --
-[% USE hi = String 'hello' -%]
-[% lo = hi.new('world') -%]
-hi: [[% hi %]]
-lo: [[% lo %]]
--- expect --
-hi: [hello]
-lo: [world]
-
--- test --
-[% USE hi = String 'hello' -%]
-[% lo = hi.copy -%]
-hi: [[% hi %]]
-lo: [[% lo %]]
--- expect --
-hi: [hello]
-lo: [hello]
-
--- test --
-[% USE hi = String 'hello' -%]
-[% lo = hi.copy.append(' world') -%]
-hi: [[% hi %]]
-lo: [[% lo %]]
--- expect --
-hi: [hello]
-lo: [hello world]
-
--- test --
-[% USE hi = String 'hello' -%]
-[% lo = hi.new('hey').append(' world') -%]
-hi: [[% hi %]]
-lo: [[% lo %]]
--- expect --
-hi: [hello]
-lo: [hey world]
-
--- test --
-[% USE hi=String "hello world\n" -%]
-hi: [[% hi %]]
-[% lo = hi.chomp -%]
-hi: [[% hi %]]
-lo: [[% lo %]]
--- expect --
-hi: [hello world
-]
-hi: [hello world]
-lo: [hello world]
-
--- test --
-[% USE foo=String "foop" -%]
-[[% foo.chop %]]
-[[% foo.chop %]]
--- expect --
-[foo]
-[fo]
-
--- test --
-[% USE hi=String "hello" -%]
- left: [[% hi.copy.left(11) %]]
- right: [[% hi.copy.right(11) %]]
-center: [[% hi.copy.center(11) %]]
-centre: [[% hi.copy.centre(12) %]]
--- expect --
- left: [hello ]
- right: [ hello]
-center: [ hello ]
-centre: [ hello ]
-
--- test --
-[% USE str=String('hello world') -%]
- hi: [[% str.upper %]]
- hi: [[% str %]]
- lo: [[% str.lower %]]
-cap: [[% str.capital %]]
--- expect --
- hi: [HELLO WORLD]
- hi: [HELLO WORLD]
- lo: [hello world]
-cap: [Hello world]
-
--- test --
-[% USE str=String('hello world') -%]
-len: [[% str.length %]]
--- expect --
-len: [11]
-
--- test --
-[% USE str=String(" \n\n\t\r hello\nworld\n\r \n \r") -%]
-[[% str.trim %]]
--- expect --
-[hello
-world]
-
--- test --
-[% USE str=String(" \n\n\t\r hello \n \n\r world\n\r \n \r") -%]
-[[% str.collapse %]]
--- expect --
-[hello world]
-
--- test --
-[% USE str=String("hello") -%]
-[[% str.append(' world') %]]
-[[% str.prepend('well, ') %]]
--- expect --
-[hello world]
-[well, hello world]
-
--- test --
-[% USE str=String("hello") -%]
-[[% str.push(' world') %]]
-[[% str.unshift('well, ') %]]
--- expect --
-[hello world]
-[well, hello world]
-
--- test --
-[% USE str=String('foo bar') -%]
-[[% str.copy.pop(' bar') %]]
-[[% str.copy.shift('foo ') %]]
--- expect --
-[foo]
-[bar]
-
--- test --
-[% USE str=String('Hello World') -%]
-[[% str.copy.truncate(5) %]]
-[[% str.copy.truncate(8, '...') %]]
-[[% str.copy.truncate(20, '...') %]]
--- expect --
-[Hello]
-[Hello...]
-[Hello World]
-
--- test --
-[% USE String('foo') -%]
-[[% String.append(' ').repeat(4) %]]
--- expect --
-[foo foo foo foo ]
-
--- test --
-[% USE String('foo') -%]
-[% String.format("[%s]") %]
--- expect --
-[foo]
-
--- test --
-[% USE String('foo bar foo baz') -%]
-[[% String.replace('foo', 'oof') %]]
--- expect --
-[oof bar oof baz]
-
--- test --
-[% USE String('foo bar foo baz') -%]
-[[% String.copy.remove('foo\s*') %]]
-[[% String.copy.remove('ba[rz]\s*') %]]
--- expect --
-[bar baz]
-[foo foo ]
-
--- test --
-[% USE String('foo bar foo baz') -%]
-[[% String.split.join(', ') %]]
--- expect --
-[foo, bar, foo, baz]
-
--- test --
-[% USE String('foo bar foo baz') -%]
-[[% String.split(' bar ').join(', ') %]]
--- expect --
-[foo, foo baz]
-
--- test --
-[% USE String('foo bar foo baz') -%]
-[[% String.split(' bar ').join(', ') %]]
--- expect --
-[foo, foo baz]
-
--- test --
-[% USE String('foo bar foo baz') -%]
-[[% String.split('\s+').join(', ') %]]
--- expect --
-[foo, bar, foo, baz]
-
--- test --
-[% USE String('foo bar foo baz') -%]
-[[% String.split('\s+', 2).join(', ') %]]
--- expect --
-[foo, bar foo baz]
-
-
--- test --
-[% USE String('foo bar foo baz') -%]
-[% String.search('foo') ? 'ok' : 'not ok' %]
-[% String.search('fooz') ? 'not ok' : 'ok' %]
-[% String.search('^foo') ? 'ok' : 'not ok' %]
-[% String.search('^bar') ? 'not ok' : 'ok' %]
--- expect --
-ok
-ok
-ok
-ok
-
-
--- test --
-[% USE String 'foo < bar' filter='html' -%]
-[% String %]
--- expect --
-foo < bar
-
--- test --
-[% USE String 'foo bar' filter='uri' -%]
-[% String %]
--- expect --
-foo%20bar
-
--- test --
-[% USE String 'foo bar' filters='uri' -%]
-[% String %]
--- expect --
-foo%20bar
-
--- test --
-[% USE String ' foo bar ' filters=['trim' 'uri'] -%]
-[[% String %]]
--- expect --
-[foo%20bar]
-
--- test --
-[% USE String ' foo bar ' filter='trim, uri' -%]
-[[% String %]]
--- expect --
-[foo%20bar]
-
--- test --
-[% USE String ' foo bar ' filters='trim, uri' -%]
-[[% String %]]
--- expect --
-[foo%20bar]
-
--- test --
-[% USE String 'foo bar' filters={ replace=['bar', 'baz'],
- trim='', uri='' } -%]
-[[% String %]]
--- expect --
-[foo%20baz]
-
--- test --
-[% USE String 'foo bar' filters=[ 'replace', ['bar', 'baz'],
- 'trim', 'uri' ] -%]
-[[% String %]]
--- expect --
-[foo%20baz]
-
--- test --
-[% USE String 'foo bar' -%]
-[% String %]
-[% String.filter('uri') %]
-[% String.filter('replace', 'bar', 'baz') %]
-[% String.output_filter('uri') -%]
-[% String %]
-[% String.output_filter({ repeat => [3] }) -%]
-[% String %]
--- expect --
-foo bar
-foo%20bar
-foo baz
-foo%20bar
-foo%20barfoo%20barfoo%20bar
-
--- test --
-[% USE String;
- a = 'HeLLo';
- b = 'hEllO';
- a == b ? "not ok 0\n" : "ok 0\n";
- String.new(a) == String.new(b) ? "not ok 1\n" : "ok 1\n";
- String.new(a).lower == String.new(b).lower ? "ok 2\n" : "not ok 2\n";
- String.new(a).lower.equals(String.new(b).lower) ? "ok 3\n" : "not ok 3\n";
- a.search("(?i)^$b\$") ? "ok 4\n" : "not ok 4\n";
--%]
--- expect --
-ok 0
-ok 1
-ok 2
-ok 3
-ok 4
-
--- test --
-[% USE String('Hello World') -%]
-a: [% String.substr(6) %]!
-b: [% String.substr(0, 5) %]!
-c: [% String.substr(0, 5, 'Goodbye') %]!
-d: [% String %]!
--- expect --
-a: World!
-b: Hello!
-c: Hello!
-d: Goodbye World!
-
--- test --
-[% USE str = String('foo bar baz wiz waz woz') -%]
-a: [% str.substr(4, 3) %]
-b: [% str.substr(12) %]
-c: [% str.substr(0, 11, 'FOO') %]
-d: [% str %]
--- expect --
-a: bar
-b: wiz waz woz
-c: foo bar baz
-d: FOO wiz waz woz
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/switch.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/switch.t
deleted file mode 100644
index 55eb087..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/switch.t
+++ /dev/null
@@ -1,296 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/switch.t
-#
-# Template script testing SWITCH / CASE blocks
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 1996-2000 Andy Wardley. All Rights Reserved.
-# Copyright (C) 1998-2000 Canon Research Centre Europe Ltd.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: switch.t 1135 2008-08-06 13:56:50Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib );
-use Template::Test;
-$^W = 1;
-
-$Template::Test::DEBUG = 0;
-#$Template::Parser::DEBUG = 0;
-
-my $ttcfg = {
-# INCLUDE_PATH => [ qw( t/test/lib test/lib ) ],
- POST_CHOMP => 1,
-};
-
-test_expect(\*DATA, $ttcfg, &callsign());
-
-__DATA__
-#------------------------------------------------------------------------
-# test simple case
-#------------------------------------------------------------------------
--- test --
-before
-[% SWITCH a %]
-this is ignored
-[% END %]
-after
-
--- expect --
-before
-after
-
--- test --
-before
-[% SWITCH a %]
-this is ignored
-[% CASE x %]
-not matched
-[% END %]
-after
-
--- expect --
-before
-after
-
--- test --
-before
-[% SWITCH a %]
-this is ignored
-[% CASE not_defined %]
-not matched
-[% END %]
-after
-
--- expect --
-before
-after
-
--- test --
-before
-[% SWITCH a %]
-this is ignored
-[% CASE 'alpha' %]
-matched
-[% END %]
-after
-
--- expect --
-before
-matched
-after
-
--- test --
-before
-[% SWITCH a %]
-this is ignored
-[% CASE a %]
-matched
-[% END %]
-after
-
--- expect --
-before
-matched
-after
-
--- test --
-before
-[% SWITCH 'alpha' %]
-this is ignored
-[% CASE a %]
-matched
-[% END %]
-after
-
--- expect --
-before
-matched
-after
-
--- test --
-before
-[% SWITCH a %]
-this is ignored
-[% CASE b %]
-matched
-[% END %]
-after
-
--- expect --
-before
-after
-
--- test --
-before
-[% SWITCH a %]
-this is ignored
-[% CASE a %]
-matched
-[% CASE b %]
-not matched
-[% END %]
-after
-
--- expect --
-before
-matched
-after
-
--- test --
-before
-[% SWITCH a %]
-this is ignored
-[% CASE b %]
-not matched
-[% CASE a %]
-matched
-[% END %]
-after
-
--- expect --
-before
-matched
-after
-
-#------------------------------------------------------------------------
-# test default case
-#------------------------------------------------------------------------
--- test --
-before
-[% SWITCH a %]
-this is ignored
-[% CASE a %]
-matched
-[% CASE b %]
-not matched
-[% CASE %]
-default not matched
-[% END %]
-after
-
--- expect --
-before
-matched
-after
-
--- test --
-before
-[% SWITCH a %]
-this is ignored
-[% CASE a %]
-matched
-[% CASE b %]
-not matched
-[% CASE DEFAULT %]
-default not matched
-[% END %]
-after
-
--- expect --
-before
-matched
-after
-
--- test --
-before
-[% SWITCH a %]
-this is ignored
-[% CASE z %]
-not matched
-[% CASE x %]
-not matched
-[% CASE %]
-default matched
-[% END %]
-after
-
--- expect --
-before
-default matched
-after
-
-
--- test --
-before
-[% SWITCH a %]
-this is ignored
-[% CASE z %]
-not matched
-[% CASE x %]
-not matched
-[% CASE DEFAULT %]
-default matched
-[% END %]
-after
-
--- expect --
-before
-default matched
-after
-
-#------------------------------------------------------------------------
-# test multiple matches
-#------------------------------------------------------------------------
-
--- test --
-before
-[% SWITCH a %]
-this is ignored
-[% CASE [ a b c ] %]
-matched
-[% CASE d %]
-not matched
-[% CASE %]
-default not matched
-[% END %]
-after
-
--- expect --
-before
-matched
-after
-
--- test --
-before
-[% SWITCH a %]
-this is ignored
-[% CASE [ a b c ] %]
-matched
-[% CASE a %]
-not matched, no drop-through
-[% CASE DEFAULT %]
-default not matched
-[% END %]
-after
-
--- expect --
-before
-matched
-after
-
-
-#-----------------------------------------------------------------------
-# regex metacharacter quoting
-# http://rt.cpan.org/Ticket/Display.html?id=24183
-#-----------------------------------------------------------------------
-
--- test --
-[% foo = 'a(b)'
- bar = 'a(b)';
-
- SWITCH foo;
- CASE bar;
- 'ok';
- CASE;
- 'not ok';
- END
-%]
--- expect --
-ok
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/table.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/table.t
deleted file mode 100644
index 9a0c1d7..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/table.t
+++ /dev/null
@@ -1,155 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/table.t
-#
-# Tests the 'Table' plugin.
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 2000-2006 Andy Wardley. All Rights Reserved.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: table.t 996 2006-05-25 11:23:38Z abw $
-#
-#========================================================================
-
-use strict;
-use warnings;
-use lib qw( ../lib );
-use Template::Test;
-
-$Template::Test::DEBUG = 0;
-
-my $params = {
- alphabet => [ 'a'..'z' ],
- empty => [ ],
-};
-
-test_expect(\*DATA, { POST_CHOMP => 1 }, $params);
-
-
-#------------------------------------------------------------------------
-# test input
-#------------------------------------------------------------------------
-
-__DATA__
-
--- test --
-[% USE table(alphabet, rows=5) %]
-[% FOREACH letter = table.col(0) %]
-[% letter %]..
-[%- END +%]
-[% FOREACH letter = table.col(1) %]
-[% letter %]..
-[%- END %]
-
--- expect --
-a..b..c..d..e..
-f..g..h..i..j..
-
--- test --
-[% USE table(alphabet, rows=5) %]
-[% FOREACH letter = table.row(0) %]
-[% letter %]..
-[%- END +%]
-[% FOREACH letter = table.row(1) %]
-[% letter %]..
-[%- END %]
-
--- expect --
-a..f..k..p..u..z..
-b..g..l..q..v....
-
--- test --
-[% USE table(alphabet, rows=3) %]
-[% FOREACH col = table.cols %]
-[% col.0 %] [% col.1 %] [% col.2 +%]
-[% END %]
-
--- expect --
-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
-
--- test --
-[% USE alpha = table(alphabet, cols=3, pad=0) %]
-[% FOREACH group = alpha.col %]
-[ [% group.first %] - [% group.last %] ([% group.size %] letters) ]
-[% END %]
-
--- expect --
-[ a - i (9 letters) ]
-[ j - r (9 letters) ]
-[ s - z (8 letters) ]
-
--- test --
-[% USE alpha = table(alphabet, rows=5, pad=0, overlap=1) %]
-[% FOREACH group = alpha.col %]
-[ [% group.first %] - [% group.last %] ([% group.size %] letters) ]
-[% END %]
-
--- expect --
-[ a - e (5 letters) ]
-[ e - i (5 letters) ]
-[ i - m (5 letters) ]
-[ m - q (5 letters) ]
-[ q - u (5 letters) ]
-[ u - y (5 letters) ]
-[ y - z (2 letters) ]
-
-
--- test --
-[% USE table(alphabet, rows=5, pad=0) %]
-[% FOREACH col = table.cols %]
-[% col.join('-') +%]
-[% END %]
-
--- expect --
-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
-
--- test --
-[% USE table(alphabet, rows=8, overlap=1 pad=0) %]
-[% FOREACH col = table.cols %]
-[% FOREACH item = col %][% item %] [% END +%]
-[% END %]
-
--- expect --
-a b c d e f g h
-h i j k l m n o
-o p q r s t u v
-v w x y z
-
--- test --
-[% USE table([1,3,5], cols=5) %]
-[% FOREACH t = table.rows %]
-[% t.join(', ') %]
-[% END %]
--- expect --
-1, 3, 5
-
--- test --
->
-[% USE table(empty, rows=3) -%]
-[% FOREACH col = table.cols -%]
-col
-[% FOREACH item = col -%]
-item: [% item -%]
-[% END -%]
-[% END -%]
-<
--- expect --
->
-<
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/tags.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/tags.t
deleted file mode 100644
index 22cf5fa..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/tags.t
+++ /dev/null
@@ -1,233 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/tags.t
-#
-# Template script testing TAGS parse-time directive to switch the
-# tokens that mark start and end of directive tags.
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 1996-2000 Andy Wardley. All Rights Reserved.
-# Copyright (C) 1998-2000 Canon Research Centre Europe Ltd.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: tags.t 1135 2008-08-06 13:56:50Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib ./blib/lib ./blib/arch );
-use Template::Test;
-$^W = 1;
-
-$Template::Test::DEBUG = 0;
-
-my $params = {
- 'a' => 'alpha',
- 'b' => 'bravo',
- 'c' => 'charlie',
- 'd' => 'delta',
- 'e' => 'echo',
- tags => 'my tags',
- flags => 'my flags',
-};
-
-my $tt = [
- basic => Template->new(INTERPOLATE => 1),
- htags => Template->new(TAG_STYLE => 'html'),
- stags => Template->new(START_TAG => '\[\*', END_TAG => '\*\]'),
-];
-
-test_expect(\*DATA, $tt, $params);
-
-__DATA__
-[%a%] [% a %] [% a %]
--- expect --
-alpha alpha alpha
-
--- test --
-Redefining tags
-[% TAGS (+ +) %]
-[% a %]
-[% b %]
-(+ c +)
--- expect --
-Redefining tags
-
-[% a %]
-[% b %]
-charlie
-
--- test --
-[% a %]
-[% TAGS (+ +) %]
-[% a %]
-%% b %%
-(+ c +)
-(+ TAGS <* *> +)
-(+ d +)
-<* e *>
--- expect --
-alpha
-
-[% a %]
-%% b %%
-charlie
-
-(+ d +)
-echo
-
--- test --
-[% TAGS default -%]
-[% a %]
-%% b %%
-(+ c +)
--- expect --
-alpha
-%% b %%
-(+ c +)
-
--- test --
-# same as 'default'
-[% TAGS template -%]
-[% a %]
-%% b %%
-(+ c +)
--- expect --
-alpha
-%% b %%
-(+ c +)
-
--- test --
-[% TAGS metatext -%]
-[% a %]
-%% b %%
-<* c *>
--- expect --
-[% a %]
-bravo
-<* c *>
-
--- test --
-[% TAGS template1 -%]
-[% a %]
-%% b %%
-(+ c +)
--- expect --
-alpha
-bravo
-(+ c +)
-
--- test --
-[% TAGS html -%]
-[% a %]
-%% b %%
-<!-- c -->
--- expect --
-[% a %]
-%% b %%
-charlie
-
--- test --
-[% TAGS asp -%]
-[% a %]
-%% b %%
-<!-- c -->
-<% d %>
-<? e ?>
--- expect --
-[% a %]
-%% b %%
-<!-- c -->
-delta
-<? e ?>
-
--- test --
-[% TAGS php -%]
-[% a %]
-%% b %%
-<!-- c -->
-<% d %>
-<? e ?>
--- expect --
-[% a %]
-%% b %%
-<!-- c -->
-<% d %>
-echo
-
-#------------------------------------------------------------------------
-# test processor with pre-defined TAG_STYLE
-#------------------------------------------------------------------------
--- test --
--- use htags --
-[% TAGS ignored -%]
-[% a %]
-<!-- c -->
-more stuff
--- expect --
-[% TAGS ignored -%]
-[% a %]
-charlie
-more stuff
-
-#------------------------------------------------------------------------
-# test processor with pre-defined START_TAG and END_TAG
-#------------------------------------------------------------------------
--- test --
--- use stags --
-[% TAGS ignored -%]
-<!-- also totally ignored and treated as text -->
-[* a *]
-blah [* b *] blah
--- expect --
-[% TAGS ignored -%]
-<!-- also totally ignored and treated as text -->
-alpha
-blah bravo blah
-
-
-#------------------------------------------------------------------------
-# XML style tags
-#------------------------------------------------------------------------
-
--- test --
--- use basic --
-[% TAGS <tt: > -%]
-<tt:a=10->
-a: <tt:a>
-<tt:FOR a = [ 1, 3, 5, 7 ]->
-<tt:a>
-<tt:END->
--- expect --
-a: 10
-1
-3
-5
-7
-
--- test --
-[% TAGS star -%]
-[* a = 10 -*]
-a is [* a *]
--- expect --
-a is 10
-
--- test --
-[% tags; flags %]
-[* a = 10 -*]
-a is [* a *]
--- expect --
-my tagsmy flags
-[* a = 10 -*]
-a is [* a *]
-
--- test --
-flags: [% flags | html %]
-tags: [% tags | html %]
--- expect --
-flags: my flags
-tags: my tags
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/dir/file2 b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/dir/file2
deleted file mode 100644
index 4419d52..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/dir/file2
+++ /dev/null
@@ -1 +0,0 @@
-This is file 2
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/dir/sub_one/foo b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/dir/sub_one/foo
deleted file mode 100644
index a244577..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/dir/sub_one/foo
+++ /dev/null
@@ -1 +0,0 @@
-This is sub_one/foo
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/dir/sub_two/waz.html b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/dir/sub_two/waz.html
deleted file mode 100644
index 24b521a..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/dir/sub_two/waz.html
+++ /dev/null
@@ -1 +0,0 @@
-This is sub_two/waz.html
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/dir/xyzfile b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/dir/xyzfile
deleted file mode 100644
index 8e31bfd..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/dir/xyzfile
+++ /dev/null
@@ -1 +0,0 @@
-This is the xyzfile
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/badrawperl b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/badrawperl
deleted file mode 100644
index dd18b31..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/badrawperl
+++ /dev/null
@@ -1,5 +0,0 @@
-This is some text
-[% RAWPERL %]
-This is some illegal perl code which should cause a parse error
-[% END %]
-more stuff goes here
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/barfed b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/barfed
deleted file mode 100644
index 58280f9..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/barfed
+++ /dev/null
@@ -1 +0,0 @@
-barfed: [[% error.type %]] [[% error.info %]]
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/blockdef b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/blockdef
deleted file mode 100644
index c591db1..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/blockdef
+++ /dev/null
@@ -1,9 +0,0 @@
-start of blockdef
-[%- BLOCK block1 -%]
-This is block 1, defined in blockdef, a is [% a %]
-[% END %]
-
-[% BLOCK block2 -%]
-This is block 2, defined in blockdef, b is [% b %]
-[% END -%]
-end of blockdef
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/content b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/content
deleted file mode 100644
index 967391c..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/content
+++ /dev/null
@@ -1,3 +0,0 @@
-This is the main content wrapper for "[% template.title or 'untitled' %]"
-[% PROCESS $template %]
-This is the end.
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/default b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/default
deleted file mode 100644
index 514fae3..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/default
+++ /dev/null
@@ -1 +0,0 @@
-This is the default file
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/dos_newlines b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/dos_newlines
deleted file mode 100644
index 2e1ffb7..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/dos_newlines
+++ /dev/null
@@ -1,2 +0,0 @@
-[% ding -%]
-[% dong -%]
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/inner b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/inner
deleted file mode 100644
index 702deb3..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/inner
+++ /dev/null
@@ -1,4 +0,0 @@
-<inner title="[% title %]">
-[% content %]
-</inner>
-[% title = "inner $title" -%]
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/one/foo b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/one/foo
deleted file mode 100644
index 0e0a8c0..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/one/foo
+++ /dev/null
@@ -1 +0,0 @@
-This is one/foo
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/simple2 b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/simple2
deleted file mode 100644
index 6776d10..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/simple2
+++ /dev/null
@@ -1,2 +0,0 @@
-[% USE Simple -%]
-test 2: [% 'badger' | simple -%]
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/two/bar b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/two/bar
deleted file mode 100644
index ca83eed..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/two/bar
+++ /dev/null
@@ -1 +0,0 @@
-This is two/bar
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/two/foo b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/two/foo
deleted file mode 100644
index 94086d3..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/lib/two/foo
+++ /dev/null
@@ -1 +0,0 @@
-This is two/foo
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/plugin/MyPlugs/Bar.pm b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/plugin/MyPlugs/Bar.pm
deleted file mode 100644
index a7986e9..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/plugin/MyPlugs/Bar.pm
+++ /dev/null
@@ -1,18 +0,0 @@
-package MyPlugs::Bar;
-
-use Template::Plugin;
-use base qw( Template::Plugin );
-
-sub new {
- my ($class, $context, $value) = @_;
- bless {
- VALUE => $value,
- }, $class;
-}
-
-sub output {
- my $self = shift;
- return "This is the Bar plugin, value is $self->{ VALUE }";
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/plugin/MyPlugs/Foo.pm b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/plugin/MyPlugs/Foo.pm
deleted file mode 100644
index b01c0dd..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/plugin/MyPlugs/Foo.pm
+++ /dev/null
@@ -1,18 +0,0 @@
-package MyPlugs::Foo;
-
-use Template::Plugin;
-use base qw( Template::Plugin );
-
-sub new {
- my ($class, $context, $value) = @_;
- bless {
- VALUE => $value,
- }, $class;
-}
-
-sub output {
- my $self = shift;
- return "This is the Foo plugin, value is $self->{ VALUE }";
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/pod/test1.pod b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/pod/test1.pod
deleted file mode 100644
index f75dd70..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/pod/test1.pod
+++ /dev/null
@@ -1,25 +0,0 @@
-=head1 NAME
-
-My::Module
-
-=head1 SYNOPSIS
-
- use My::Module;
-
-=head1 DESCRIPTION
-
-This is the description for My::Module.
-
- This is verbatim
-
-=head2 First Subsection
-
-This is the first subsection. foo->bar();
-
-=head2 Second Subsection
-
-This is the second subsection. bar->baz();
-
-=head1 THE END
-
-This is the end. Beautiful friend, the end.
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/bar/baz b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/bar/baz
deleted file mode 100644
index 60245b5..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/bar/baz
+++ /dev/null
@@ -1,3 +0,0 @@
-[% DEFAULT word = 'qux' -%]
-This is file baz
-The word is '[% word %]'
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/baz b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/baz
deleted file mode 100644
index 052d077..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/baz
+++ /dev/null
@@ -1,2 +0,0 @@
-[% "name: $template.name modtime: $template.modtime\n" IF showname -%]
-This is the baz file, a: [% a %][% a = 'charlie' %]
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/benchmark b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/benchmark
deleted file mode 100644
index 235fecb..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/benchmark
+++ /dev/null
@@ -1,21 +0,0 @@
-[% PROCESS header
- title = 'This is a Test'
-%]
-
-Once upon a time there was a small caterpillar called Frank. Frank was
-very hungry so he went into the garden and ate all the cabbages.
-
-Item:
-[% FOREACH item = ['foo', 'bar', 'baz'] %]
- * [% item %]
-[% END %]
-
-People:
-[% FOREACH person = people %]
- * [% person.id %] : [% person.name %] ([% person.email %])
-[% IF person.isadmin -%]
- ** THIS PERSON IS AN ADMINISTRATOR **
-[% END -%]
-[% END -%]
-
-[% PROCESS footer %]
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/complex b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/complex
deleted file mode 100644
index ee1179a..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/complex
+++ /dev/null
@@ -1,18 +0,0 @@
-[% META
- author = 'abw'
- version = 1.23
-%]
-[% INCLUDE header title = "Yet Another Template Test" +%]
-This is a more complex file which includes some BLOCK definitions
-[% INCLUDE footer +%]
-
-[% BLOCK header %]
-This is the header, title: [% title %]
-[% END %]
-
-[% BLOCK footer %][%# NOTE: the 'template' is the parent doc, not this one %]
-This is the footer, author: [% template.author %], version: [% template.version+%]
-[% "- $x " FOREACH x = [3 2 1] %]
-[% END %]
-
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/divisionbyzero b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/divisionbyzero
deleted file mode 100644
index 107724b..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/divisionbyzero
+++ /dev/null
@@ -1 +0,0 @@
-[% a = 420; b = 0; TRY; a / b; CATCH; error; END %]
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/foo b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/foo
deleted file mode 100644
index a9f4787..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/foo
+++ /dev/null
@@ -1 +0,0 @@
-This is the foo file, a is [% a -%]
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/foobar b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/foobar
deleted file mode 100644
index 4bdd3f5..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/src/foobar
+++ /dev/null
@@ -1 +0,0 @@
-This is the new content
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/tmp/README b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/tmp/README
deleted file mode 100644
index 0c2b0e1..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/test/tmp/README
+++ /dev/null
@@ -1 +0,0 @@
-This is a temporary directory used by some of the test scripts.
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/text.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/text.t
deleted file mode 100644
index d22d66d..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/text.t
+++ /dev/null
@@ -1,185 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/text.t
-#
-# Test general text blocks, ensuring all characters can be used.
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 1996-2000 Andy Wardley. All Rights Reserved.
-# Copyright (C) 1998-2000 Canon Research Centre Europe Ltd.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: text.t 124 2001-04-06 09:10:12Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib );
-use Template::Test;
-$^W = 1;
-
-$Template::Test::DEBUG = 0;
-
-ok(1);
-
-#------------------------------------------------------------------------
-package Stringy;
-
-use overload '""' => \&asString;
-
-sub asString {
- my $self = shift;
- return $$self;
-}
-
-sub new {
- my ($class, $val) = @_;
- return bless \$val, $class;
-}
-
-#------------------------------------------------------------------------
-package main;
-
-my $tt = [
- basic => Template->new(),
- interp => Template->new(INTERPOLATE => 1),
-];
-
-my $vars = callsign();
-
-my $v2 = {
- ref => sub { my $a = shift; "$a\[" . ref($a) . ']' },
- sfoo => Stringy->new('foo'),
- sbar => Stringy->new('bar'),
-};
-
-@$vars{ keys %$v2 } = values %$v2;
-
-test_expect(\*DATA, $tt, $vars);
-
-__DATA__
--- test --
-This is a text block "hello" 'hello' 1/3 1\4 <html> </html>
-$ @ { } @{ } ${ } # ~ ' ! % *foo
-$a ${b} $c
--- expect --
-This is a text block "hello" 'hello' 1/3 1\4 <html> </html>
-$ @ { } @{ } ${ } # ~ ' ! % *foo
-$a ${b} $c
-
--- test --
-<table width=50%>©
--- expect --
-<table width=50%>©
-
--- test --
-[% foo = 'Hello World' -%]
-start
-[%
-#
-# [% foo %]
-#
-#
--%]
-end
--- expect --
-start
-end
-
--- test --
-pre
-[%
-# [% PROCESS foo %]
--%]
-mid
-[% BLOCK foo; "This is foo"; END %]
--- expect --
-pre
-mid
-
--- test --
--- use interp --
-This is a text block "hello" 'hello' 1/3 1\4 <html> </html>
-\$ @ { } @{ } \${ } # ~ ' ! % *foo
-$a ${b} $c
--- expect --
-This is a text block "hello" 'hello' 1/3 1\4 <html> </html>
-$ @ { } @{ } ${ } # ~ ' ! % *foo
-alpha bravo charlie
-
--- test --
-<table width=50%>©
--- expect --
-<table width=50%>©
-
--- test --
-[% foo = 'Hello World' -%]
-start
-[%
-#
-# [% foo %]
-#
-#
--%]
-end
--- expect --
-start
-end
-
--- test --
-pre
-[%
-#
-# [% PROCESS foo %]
-#
--%]
-mid
-[% BLOCK foo; "This is foo"; END %]
--- expect --
-pre
-mid
-
--- test --
-[% a = "C'est un test"; a %]
--- expect --
-C'est un test
-
--- test --
-[% META title = "C'est un test" -%]
-[% component.title -%]
--- expect --
-C'est un test
-
--- test --
-[% META title = 'C\'est un autre test' -%]
-[% component.title -%]
--- expect --
-C'est un autre test
-
--- test --
-[% META title = "C'est un \"test\"" -%]
-[% component.title -%]
--- expect --
-C'est un "test"
-
--- test --
-[% sfoo %]/[% sbar %]
--- expect --
-foo/bar
-
--- test --
-[% s1 = "$sfoo"
- s2 = "$sbar ";
- s3 = sfoo;
- ref(s1);
- '/';
- ref(s2);
- '/';
- ref(s3);
--%]
--- expect --
-foo[]/bar []/foo[Stringy]
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/throw.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/throw.t
deleted file mode 100644
index 043ab1b..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/throw.t
+++ /dev/null
@@ -1,101 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/throw.t
-#
-# Test the THROW directive.
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 2000 Andy Wardley. All Rights Reserved.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: throw.t 80 2000-12-15 16:05:06Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib );
-use Template;
-use Template::Test;
-$^W = 1;
-
-$Template::Test::DEBUG = 0;
-#$Template::Parser::DEBUG = 1;
-#$Template::Directive::PRETTY = 1;
-
-test_expect(\*DATA);
-
-
-__DATA__
--- test --
-[% me = 'I' -%]
-[% TRY -%]
- [%- THROW chicken "Failed failed failed" 'boo' name='Fred' -%]
-[% CATCH -%]
-ERROR: [% error.type %] - [% error.info.0 %]/[% error.info.1 %]/[% error.info.name %]
-[% END %]
--- expect --
-ERROR: chicken - Failed failed failed/boo/Fred
-
--- test --
-[% TRY -%]
-[% THROW food 'eggs' -%]
-[% CATCH -%]
-ERROR: [% error.type %] / [% error.info %]
-[% END %]
-
--- expect --
-ERROR: food / eggs
-
-# test throwing multiple params
--- test --
-[% pi = 3.14
- e = 2.718 -%]
-[% TRY -%]
-[% THROW foo pi e msg="fell over" reason="brain exploded" -%]
-[% CATCH -%]
-[% error.type %]: pi=[% error.info.0 %] e=[% error.info.1 %]
- I [% error.info.msg %] because my [% error.info.reason %]!
-[% END %]
--- expect --
-foo: pi=3.14 e=2.718
- I fell over because my brain exploded!
-
--- test --
-[% TRY -%]
-[% THROW foo 'one' 2 three=3.14 -%]
-[% CATCH -%]
- [% error.type %]
- [% error.info.0 %]
- [% error.info.1 %]
- [% error.info.three %]
- [%- FOREACH e = error.info.args %]
- * [% e %]
- [%- END %]
-[% END %]
--- expect --
- foo
- one
- 2
- 3.14
- * one
- * 2
-
--- test --
-[% TRY -%]
-[% THROW food 'eggs' 'flour' msg="Missing Ingredients" -%]
-[% CATCH food -%]
- [% error.info.msg %]
-[% FOREACH item = error.info.args -%]
- * [% item %]
-[% END -%]
-[% END %]
--- expect --
- Missing Ingredients
- * eggs
- * flour
-
-
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/tiedhash.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/tiedhash.t
deleted file mode 100644
index 9a3d567..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/tiedhash.t
+++ /dev/null
@@ -1,271 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/tiedhash.t
-#
-# Template script testing variable via a tied hash.
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 1996-2001 Andy Wardley. All Rights Reserved.
-# Copyright (C) 1998-2001 Canon Research Centre Europe Ltd.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: tiedhash.t 875 2006-01-29 11:37:37Z abw $
-#
-#========================================================================
-
-use strict;
-use warnings;
-use lib qw( blib/lib blib/arch lib ../blib/lib ../blib/arch ../lib );
-use Template::Test;
-use Template::Stash;
-our $DEBUG = grep(/-d/, @ARGV);
-
-eval {
- require Template::Stash::XS;
-};
-if ($@) {
- warn $@;
- skip_all('cannot load Template::Stash::XS');
-}
-
-#print "stash: $Template::Config::STASH\n";
-#$Template::Config::STASH = 'Template::Stash::XS';
-
-our $STORE_PREFIX = '';
-our $FETCH_PREFIX = '';
-
-#------------------------------------------------------------------------
-package My::Tied::Hash;
-use Tie::Hash;
-use base 'Tie::StdHash';
-
-sub FETCH {
- my ($hash, $key) = @_;
- print STDERR "FETCH($key)\n" if $main::DEBUG;
- my $val = $hash->{ $key };
- return $val ? (ref $val ? $val : "$main::FETCH_PREFIX$val") : undef;
-}
-
-sub STORE {
- my ($hash, $key, $val) = @_;
- print STDERR "STORE($key, $val)\n" if $main::DEBUG;
- $hash->{ $key } = ref $val ? $val : "$main::STORE_PREFIX$val";
-}
-
-#------------------------------------------------------------------------
-package My::Tied::List;
-use Tie::Array;
-use base 'Tie::StdArray';
-
-sub FETCH {
- my ($list, $n) = @_;
- print STDERR "FETCH from list [$n]\n" if $main::DEBUG;
- my $val = $list->[ $n ];
- return $val ? (ref $val ? $val : "$main::FETCH_PREFIX$val") : undef;
-}
-
-sub STORE {
- my ($list, $n, $val) = @_;
- print STDERR "STORE to list [$n => $val]\n" if $main::DEBUG;
- $list->[$n] = ref $val ? $val : "$main::STORE_PREFIX$val";
-}
-
-#------------------------------------------------------------------------
-package main;
-
-
-# setup a tied hash and a tied list
-my @list;
-tie @list, 'My::Tied::List';
-push(@list, 10, 20, 30);
-
-my %hash = (a => 'alpha');
-tie %hash, 'My::Tied::Hash';
-$hash{ a } = 'alpha';
-$hash{ b } = 'bravo';
-$hash{ zero } = 0;
-$hash{ one } = 1;
-
-# now turn on the prefixes so we can track items going in
-# and out of the tied hash/list
-$FETCH_PREFIX = 'FETCH:';
-$STORE_PREFIX = 'STORE:';
-
-my $data = {
- hash => \%hash,
- list => \@list,
-};
-my $stash_perl = Template::Stash->new($data);
-my $stash_xs = Template::Stash::XS->new($data);
-my $tt = [
- perl => Template->new( STASH => $stash_perl ),
- xs => Template->new( STASH => $stash_xs ),
-];
-test_expect(\*DATA, $tt);
-
-__DATA__
-
-#------------------------------------------------------------------------
-# first try with the Perl stash
-#------------------------------------------------------------------------
-
-# hash tests
-
--- test --
-[% hash.a %]
--- expect --
-FETCH:alpha
-
--- test --
-[% hash.b %]
--- expect --
-FETCH:bravo
-
--- test --
-ready
-set:[% hash.c = 'cosmos' %]
-go:[% hash.c %]
--- expect --
-ready
-set:
-go:FETCH:STORE:cosmos
-
--- test --
-[% hash.foo.bar = 'one' -%]
-[% hash.foo.bar %]
--- expect --
-one
-
-# list tests
-
--- test --
-[% list.0 %]
--- expect --
-FETCH:10
-
--- test --
-[% list.first %]-[% list.last %]
--- expect --
-FETCH:10-FETCH:30
-
--- test --
-[% list.push(40); list.last %]
--- expect --
-FETCH:40
-
--- test --
-[% list.4 = 50; list.4 %]
--- expect --
-FETCH:STORE:50
-
-
-#------------------------------------------------------------------------
-# now try using the XS stash
-#------------------------------------------------------------------------
-
-# hash tests
-
--- test --
--- use xs --
-[% hash.a %]
--- expect --
-FETCH:alpha
-
--- test --
-[% hash.b %]
--- expect --
-FETCH:bravo
-
--- test --
-[% hash.c = 'crazy'; hash.c %]
--- expect --
-FETCH:STORE:crazy
-
--- test --
-[% DEFAULT hash.c = 'more crazy'; hash.c %]
--- expect --
-FETCH:STORE:crazy
-
--- test --
-[% hash.wiz = 'woz' -%]
-[% hash.wiz %]
--- expect --
-FETCH:STORE:woz
-
--- test --
-[% DEFAULT hash.zero = 'nothing';
- hash.zero
-%]
--- expect --
-FETCH:STORE:nothing
-
--- test --
-before: [% hash.one %]
-after: [% DEFAULT hash.one = 'solitude';
- hash.one
-%]
--- expect --
-before: FETCH:1
-after: FETCH:1
-
--- test --
-[% hash.foo = 10; hash.foo = 20; hash.foo %]
--- expect --
-FETCH:STORE:20
-
-# this test should create an intermediate hash
--- test --
-[% DEFAULT hash.person = { };
- hash.person.name = 'Arthur Dent';
- hash.person.email = 'dent at tt2.org';
--%]
-name: [% hash.person.name %]
-email: [% hash.person.email %]
--- expect --
-name: Arthur Dent
-email: dent at tt2.org
-
-
-# list tests
-
--- test --
-[% list.0 %]
--- expect --
-FETCH:10
-
--- test --
-[% list.first %]-[% list.last %]
--- expect --
-FETCH:10-FETCH:STORE:50
-
--- test --
-[% list.push(60); list.last %]
--- expect --
-FETCH:60
-
--- test --
-[% list.5 = 70; list.5 %]
--- expect --
-FETCH:STORE:70
-
--- test --
-[% DEFAULT list.5 = 80; list.5 %]
--- expect --
-FETCH:STORE:70
-
--- test --
-[% list.10 = 100; list.10 %]
--- expect --
-FETCH:STORE:100
-
--- test --
-[% stuff = [ ];
- stuff.0 = 'some stuff';
- stuff.0
--%]
--- expect --
-some stuff
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/vmethods/hash.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/vmethods/hash.t
deleted file mode 100644
index fe7c280..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/vmethods/hash.t
+++ /dev/null
@@ -1,148 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/vmethods/hash.t
-#
-# Testing hash virtual variable methods.
-#
-# Written by Andy Wardley <abw at cpan.org>
-#
-# Copyright (C) 1996-2006 Andy Wardley. All Rights Reserved.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: hash.t 1020 2006-05-30 15:53:52Z abw $
-#
-#========================================================================
-
-use strict;
-use warnings;
-use lib qw( ./lib ../lib ../../lib );
-use Template::Test;
-
-# make sure we're using the Perl stash
-$Template::Config::STASH = 'Template::Stash';
-
-my $params = {
- hash => { a => 'b', c => 'd' },
- uhash => { tobe => '2b', nottobe => undef },
-};
-
-my $tt = Template->new() || die Template->error();
-my $tc = $tt->context();
-
-$tc->define_vmethod(hash => dump => sub {
- my $hash = shift;
- return '{ '
- . join(', ', map { "$_ => '$hash->{$_}'" } sort keys %$hash)
- . ' }';
-});
-
-test_expect(\*DATA, undef, $params);
-
-__DATA__
-
-#------------------------------------------------------------------------
-# hash virtual methods
-#------------------------------------------------------------------------
-
--- test --
--- name hash keys --
-[% hash.keys.sort.join(', ') %]
--- expect --
-a, c
-
--- test --
--- name hash values --
-[% hash.values.sort.join(', ') %]
--- expect --
-b, d
-
--- test --
--- name hash each --
-[% hash.each.sort.join(', ') %]
--- expect --
-a, b, c, d
-
--- test --
--- name hash items --
-[% hash.items.sort.join(', ') %]
--- expect --
-a, b, c, d
-
--- test --
--- name hash size --
-[% hash.size %]
--- expect --
-2
-
--- test --
-[% hash.defined('a') ? 'good' : 'bad' %]
-[% hash.a.defined ? 'good' : 'bad' %]
-[% hash.defined('x') ? 'bad' : 'good' %]
-[% hash.x.defined ? 'bad' : 'good' %]
-[% hash.defined ? 'good def' : 'bad def' %]
-[% no_such_hash.defined ? 'bad no def' : 'good no def' %]
--- expect --
-good
-good
-good
-good
-good def
-good no def
-
--- test --
-[% uhash.defined('tobe') ? 'good' : 'bad' %]
-[% uhash.tobe.defined ? 'good' : 'bad' %]
-[% uhash.exists('tobe') ? 'good' : 'bad' %]
-[% uhash.defined('nottobe') ? 'bad' : 'good' %]
-[% hash.nottobe.defined ? 'bad' : 'good' %]
-[% uhash.exists('nottobe') ? 'good' : 'bad' %]
--- expect --
-good
-good
-good
-good
-good
-good
-
--- test --
--- name hash.pairs --
-[% FOREACH pair IN hash.pairs -%]
-* [% pair.key %] => [% pair.value %]
-[% END %]
--- expect --
-* a => b
-* c => d
-
--- test --
--- name hash.list (old style) --
-[% FOREACH pair IN hash.list -%]
-* [% pair.key %] => [% pair.value %]
-[% END %]
--- expect --
-* a => b
-* c => d
-
-
-
-#------------------------------------------------------------------------
-# user defined hash virtual methods
-#------------------------------------------------------------------------
-
--- test --
--- name dump hash --
-[% product = {
- id = 'abc-123',
- name = 'ABC Widget #123'
- price = 7.99
- };
- product.dump
-%]
--- expect --
-{ id => 'abc-123', name => 'ABC Widget #123', price => '7.99' }
-
-
-
-
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/vmethods/list.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/vmethods/list.t
deleted file mode 100644
index 55d05d5..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/vmethods/list.t
+++ /dev/null
@@ -1,492 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/vmethods/list.t
-#
-# Testing list virtual variable methods.
-#
-# Written by Andy Wardley <abw at cpan.org>
-#
-# Copyright (C) 1996-2006 Andy Wardley. All Rights Reserved.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: list.t 1245 2009-07-04 17:02:52Z abw $
-#
-#========================================================================
-
-use strict;
-use warnings;
-use lib qw( ./lib ../lib ../../lib );
-use Template::Test;
-
-# make sure we're using the Perl stash
-$Template::Config::STASH = 'Template::Stash';
-
-# add some new list ops
-$Template::Stash::LIST_OPS->{ sum } = \∑
-$Template::Stash::LIST_OPS->{ odd } = \&odd;
-$Template::Stash::LIST_OPS->{ jumble } = \&jumble;
-
-# make sure we're using the Perl stash
-$Template::Config::STASH = 'Template::Stash';
-
-
-#------------------------------------------------------------------------
-# define a simple object to test sort vmethod calling object method
-#------------------------------------------------------------------------
-
-package My::Object;
-
-sub new {
- my ($class, $name, $extra) = @_;
- bless {
- _NAME => $name,
- _EXTRA => $extra,
- }, $class;
-}
-
-sub name {
- my $self = shift;
- return $self->{ _NAME };
-}
-
-sub extra {
- my $self = shift;
- return $self->{ _EXTRA };
-}
-
-#------------------------------------------------------------------------
-
-package main;
-
-sub sum {
- my $list = shift;
- my $n = 0;
- foreach (@$list) {
- $n += $_;
- }
- return $n;
-}
-
-sub odd {
- my $list = shift;
- return [ grep { $_ % 2 } @$list ];
-}
-
-sub jumble {
- my ($list, $chop) = @_;
- $chop = 1 unless defined $chop;
- return $list unless @$list > 3;
- push(@$list, splice(@$list, 0, $chop));
- return $list;
-}
-
-my $params = {
- metavars => [ qw( foo bar baz qux wiz waz woz ) ],
- people => [ { id => 'tom', name => 'Tom' },
- { id => 'dick', name => 'Richard' },
- { id => 'larry', name => 'Larry' },
- ],
- primes => [ 13, 11, 17, 19, 2, 3, 5, 7 ],
- phones => { 3141 => 'Leon', 5131 => 'Andy', 4131 => 'Simon' },
- groceries => { 'Flour' => 3, 'Milk' => 1, 'Peanut Butter' => 21 },
- names => [ map { My::Object->new($_) }
- qw( Tom Dick Larry ) ],
- more_names => [
- My::Object->new('Smith', 'William'),
- My::Object->new('Smith', 'Andrew'),
- My::Object->new('Jones', 'Peter'),
- My::Object->new('Jones', 'Mark'),
- ],
- numbers => [ map { My::Object->new($_) }
- qw( 1 02 10 12 021 ) ],
- duplicates => [ 1, 1, 2, 2, 3, 3, 4, 4, 5, 5],
-};
-
-my $tt = Template->new();
-my $tc = $tt->context();
-
-# define vmethods using define_vmethod() interface.
-$tc->define_vmethod(list => oddnos => \&odd);
-$tc->define_vmethod(array => jumblate => \&jumble);
-
-test_expect(\*DATA, undef, $params);
-
-__DATA__
-
-#------------------------------------------------------------------------
-# list virtual methods
-#------------------------------------------------------------------------
-
--- test --
-[% metavars.first %]
--- expect --
-foo
-
--- test --
-[% metavars.last %]
--- expect --
-woz
-
--- test --
-[% metavars.size %]
--- expect --
-7
-
--- test --
-[% empty = [ ];
- empty.size
-%]
--- expect --
-0
-
--- test --
-[% metavars.max %]
--- expect --
-6
-
--- test --
-[% metavars.join %]
--- expect --
-foo bar baz qux wiz waz woz
-
--- test --
-[% metavars.join(', ') %]
--- expect --
-foo, bar, baz, qux, wiz, waz, woz
-
--- test --
-[% metavars.sort.join(', ') %]
--- expect --
-bar, baz, foo, qux, waz, wiz, woz
-
--- test --
-[% metavars.defined ? 'list def ok' : 'list def not ok' %]
-[% metavars.defined(2) ? 'list two ok' : 'list two not ok' %]
-[% metavars.defined(7) ? 'list seven not ok' : 'list seven ok' %]
--- expect --
-list def ok
-list two ok
-list seven ok
-
--- test --
-[% FOREACH person = people.sort('id') -%]
-[% person.name +%]
-[% END %]
--- expect --
-Richard
-Larry
-Tom
-
--- start --
--- test --
-[% FOREACH obj = names.sort('name') -%]
-[% obj.name +%]
-[% END %]
--- expect --
-Dick
-Larry
-Tom
-
--- test --
-[% FOREACH obj IN more_names.sort('name', 'extra') -%]
-[% obj.extra %] [% obj.name %]
-[% END %]
--- expect --
-Mark Jones
-Peter Jones
-Andrew Smith
-William Smith
--- stop --
-
--- test --
-[% FOREACH obj = numbers.sort('name') -%]
-[% obj.name +%]
-[% END %]
--- expect --
-02
-021
-1
-10
-12
-
--- test --
-[% FOREACH obj = numbers.nsort('name') -%]
-[% obj.name +%]
-[% END %]
--- expect --
-1
-02
-10
-12
-021
-
--- test --
-[% FOREACH person = people.sort('name') -%]
-[% person.name +%]
-[% END %]
--- expect --
-Larry
-Richard
-Tom
-
--- test --
-[% folk = [] -%]
-[% folk.push("<a href=\"${person.id}.html\">$person.name</a>")
- FOREACH person = people.sort('id') -%]
-[% folk.join(",\n") %]
--- expect --
-<a href="dick.html">Richard</a>,
-<a href="larry.html">Larry</a>,
-<a href="tom.html">Tom</a>
-
--- test --
-[% primes.sort.join(', ') %]
--- expect --
-11, 13, 17, 19, 2, 3, 5, 7
-
--- test --
-[% primes.nsort.join(', ') %]
--- expect --
-2, 3, 5, 7, 11, 13, 17, 19
-
--- test --
-[% duplicates.unique.join(', ') %]
---expect --
-1, 2, 3, 4, 5
-
--- test --
-[% duplicates.unique.join(', ') %]
--- expect --
-1, 2, 3, 4, 5
-
-
-
--- test --
--- name list import one --
-[% list_one = [ 1 2 3 ];
- list_two = [ 4 5 6 ];
- list_one.import(list_two).join(', ') %]
--- expect --
-1, 2, 3, 4, 5, 6
-
--- test --
--- name list import two --
-[% list_one = [ 1 2 3 ];
- list_two = [ 4 5 6 ];
- list_three = [ 7 8 9 0 ];
- list_one.import(list_two, list_three).join(', ') %]
--- expect --
-1, 2, 3, 4, 5, 6, 7, 8, 9, 0
-
-
--- test --
--- name list merge one --
-[% list_one = [ 1 2 3 ];
- list_two = [ 4 5 6 ];
- "'$l' " FOREACH l = list_one.merge(list_two) %]
--- expect --
-'1' '2' '3' '4' '5' '6'
-
--- test --
--- name list merge two --
-[% list_one = [ 1 2 3 ];
- list_two = [ 4 5 6 ];
- list_three = [ 7 8 9 0 ];
- "'$l' " FOREACH l = list_one.merge(list_two, list_three) %]
--- expect --
-'1' '2' '3' '4' '5' '6' '7' '8' '9' '0'
-
--- test --
-[% list_one = [ 1 2 3 4 5 ] -%]
-a: [% list_one.splice.join(', ') %]
-b: [% list_one.size ? list_one.join(', ') : 'empty list' %]
--- expect --
-a: 1, 2, 3, 4, 5
-b: empty list
-
--- test --
-[% list_one = [ 'a' 'b' 'c' 'd' 'e' ] -%]
-a: [% list_one.splice(3).join(', ') %]
-b: [% list_one.join(', ') %]
--- expect --
-a: d, e
-b: a, b, c
-
--- test --
-[% list_one = [ 'a' 'b' 'c' 'd' 'e' ] -%]
-c: [% list_one.splice(3, 1).join(', ') %]
-d: [% list_one.join(', ') %]
--- expect --
-c: d
-d: a, b, c, e
-
--- test --
-[% list_one = [ 'a' 'b' 'c' 'd' 'e' ] -%]
-c: [% list_one.splice(3, 1, 'foo').join(', ') %]
-d: [% list_one.join(', ') %]
-e: [% list_one.splice(0, 1, 'ping', 'pong').join(', ') %]
-f: [% list_one.join(', ') %]
-g: [% list_one.splice(-1, 1, ['wibble', 'wobble']).join(', ') %]
-h: [% list_one.join(', ') %]
--- expect --
-c: d
-d: a, b, c, foo, e
-e: a
-f: ping, pong, b, c, foo, e
-g: e
-h: ping, pong, b, c, foo, wibble, wobble
-
--- test --
--- name scrabble --
-[% play_game = [ 'play', 'scrabble' ];
- ping_pong = [ 'ping', 'pong' ] -%]
-a: [% play_game.splice(1, 1, ping_pong).join %]
-b: [% play_game.join %]
--- expect --
-a: scrabble
-b: play ping pong
-
-
--- test --
--- name first --
-[% primes = [ 2, 3, 5, 7, 11, 13 ] -%]
-[% primes.first +%]
-[% primes.first(3).join(', ') %]
--- expect --
-2
-2, 3, 5
-
--- test --
--- name first --
-[% primes = [ 2, 3, 5, 7, 11, 13 ] -%]
-[% primes.last +%]
-[% primes.last(3).join(', ') %]
--- expect --
-13
-7, 11, 13
-
-
--- test --
--- name slice --
-[% primes = [ 2, 3, 5, 7, 11, 13 ] -%]
-[% primes.slice(0, 2).join(', ') +%]
-[% primes.slice(-2, -1).join(', ') +%]
-[% primes.slice(3).join(', ') +%]
-[% primes.slice.join(', ') +%]
---expect --
-2, 3, 5
-11, 13
-7, 11, 13
-2, 3, 5, 7, 11, 13
-
-
--- test --
--- name list.hash --
-[% items = ['zero', 'one', 'two', 'three'];
- hash = items.hash(0);
- "$key = $value\n" FOREACH hash.pairs;
--%]
--- expect --
-0 = zero
-1 = one
-2 = two
-3 = three
-
--- test --
--- name list.hash(10) --
-[% items = ['zero', 'one', 'two', 'three'];
- hash = items.hash(10);
- "$key = $value\n" FOREACH hash.pairs;
--%]
--- expect --
-10 = zero
-11 = one
-12 = two
-13 = three
-
-
--- test --
--- name list.hash --
-[% items = ['zero', 'one', 'two', 'three'];
- hash = items.hash;
- "$key = $value\n" FOREACH hash.pairs;
--%]
--- expect --
-two = three
-zero = one
-
-
-
-#------------------------------------------------------------------------
-# USER DEFINED LIST OPS
-#------------------------------------------------------------------------
-
--- test --
-[% items = [0..6] -%]
-[% items.jumble.join(', ') %]
-[% items.jumble(3).join(', ') %]
--- expect --
-1, 2, 3, 4, 5, 6, 0
-4, 5, 6, 0, 1, 2, 3
-
--- test --
--- name jumblate method --
-[% items = [0..6] -%]
-[% items.jumblate.join(', ') %]
-[% items.jumblate(3).join(', ') %]
--- expect --
-1, 2, 3, 4, 5, 6, 0
-4, 5, 6, 0, 1, 2, 3
-
--- test --
-[% primes.sum %]
--- expect --
-77
-
--- test --
-[% primes.odd.nsort.join(', ') %]
--- expect --
-3, 5, 7, 11, 13, 17, 19
-
--- test --
--- name oddnos --
-[% primes.oddnos.nsort.join(', ') %]
--- expect --
-3, 5, 7, 11, 13, 17, 19
-
--- test --
-[% FOREACH n = phones.sort -%]
-[% phones.$n %] is [% n %],
-[% END %]
--- expect --
-Andy is 5131,
-Leon is 3141,
-Simon is 4131,
-
--- test --
--- name groceries --
-[% FOREACH n = groceries.nsort.reverse -%]
-I want [% groceries.$n %] kilos of [% n %],
-[% END %]
--- expect --
-I want 21 kilos of Peanut Butter,
-I want 3 kilos of Flour,
-I want 1 kilos of Milk,
-
-
-
--- test --
-[% hash = { }
- list = [ hash ]
- list.last.message = 'Hello World';
- "message: $list.last.message\n"
--%]
-
--- expect --
-message: Hello World
-
-
-
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/vmethods/replace.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/vmethods/replace.t
deleted file mode 100644
index e28e2e8..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/vmethods/replace.t
+++ /dev/null
@@ -1,203 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/vmethods/replace.t
-#
-# Testing the 'replace' scalar virtual method, and in particular the
-# use of backreferences.
-#
-# Written by Andy Wardley <abw at cpan.org> and Sergey Martynoff
-# <sergey at martynoff.info>
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: replace.t 982 2006-02-02 13:13:56Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ./lib ../lib ../../lib );
-use Template::Test;
-use Template::Config;
-use Template::Stash;
-$^W = 1;
-
-# make sure we're using the Perl stash
-$Template::Config::STASH = 'Template::Stash';
-
-test_expect(\*DATA);
-
-__DATA__
-
--- test --
--- name: two backrefs --
-[% text = 'The cat sat on the mat';
- text.replace( '(\w+) sat on the (\w+)',
- 'dirty $1 shat on the filthy $2' )
-%]
--- expect --
-The dirty cat shat on the filthy mat
-
-
-# test more than 9 captures to make sure $10, $11, etc., work ok
--- test --
--- name: ten+ backrefs --
-[% text = 'one two three four five six seven eight nine ten eleven twelve thirteen';
- text.replace(
- '(\w+) (\w+) (\w+) (\w+) (\w+) (\w+) (\w+) (\w+) (\w+) (\w+) (\w+) (\w+)',
- '[$12-$11-$10-$9-$8-$7-$6-$5-$4-$3-$2-$1]'
- )
-%]
--- expect --
-[twelve-eleven-ten-nine-eight-seven-six-five-four-three-two-one] thirteen
-
-
--- test --
--- name: repeat backrefs --
-[% text = 'one two three four five six seven eight nine ten eleven twelve thirteen';
- text.replace(
- '(\w+) ',
- '[$1]-'
- )
-%]
--- expect --
-[one]-[two]-[three]-[four]-[five]-[six]-[seven]-[eight]-[nine]-[ten]-[eleven]-[twelve]-thirteen
-
--- test --
--- name: one backref --
-[% var = 'foo'; var.replace('f(o+)$', 'b$1') %]
--- expect --
-boo
-
--- test --
--- name: three backrefs --
-[% var = 'foo|bar/baz'; var.replace('(fo+)\|(bar)(.*)$', '[ $1, $2, $3 ]') %]
--- expect --
-[ foo, bar, /baz ]
-
-
-#------------------------------------------------------------------------
-# tests based on Sergey's test script: http://martynoff.info/tt2/
-#------------------------------------------------------------------------
-
--- test --
-[% text = 'foo bar';
- text.replace('foo', 'bar')
-%]
--- expect --
-bar bar
-
-
--- test --
-[% text = 'foo bar';
- text.replace('(f)(o+)', '$2$1')
-%]
--- expect --
-oof bar
-
--- test --
-[% text = 'foo bar foo';
- text.replace('(?i)FOO', 'zoo')
-%]
--- expect --
-zoo bar zoo
-
-
-#------------------------------------------------------------------------
-# references to $n vars that don't exists are ignored
-#------------------------------------------------------------------------
-
--- test --
-[% text = 'foo bar';
- text.replace('(f)(o+)', '$20$1')
-%]
--- expect --
-f bar
-
--- test --
-[% text = 'foo bar';
- text.replace('(f)(o+)', '$2$10')
-%]
--- expect --
-oo bar
-
--- test --
-[% text = 'foo fgoo foooo bar';
- text.replace('((?:f([^o]*)(o+)\s)+)', '1=$1;2=$2;3=$3;')
-%]
--- expect --
-1=foo fgoo foooo ;2=;3=oooo;bar
-
-
-#------------------------------------------------------------------------
-# $n in source string should not be interpolated
-#------------------------------------------------------------------------
-
--- test --
-[% text = 'foo $1 bar';
- text.replace('(foo)(.*)(bar)', '$1$2$3')
-%]
--- expect --
-foo $1 bar
-
--- test --
-[% text = 'foo $1 bar';
- text.replace('(foo)(.*)(bar)', '$3$2$1')
-%]
--- expect --
-bar $1 foo
-
--- test --
-[% text = 'foo $200bar foobar';
- text.replace('(f)(o+)', 'zoo')
-%]
--- expect --
-zoo $200bar zoobar
-
-
-#------------------------------------------------------------------------
-# escaped \$ in replacement string
-#------------------------------------------------------------------------
-
--- test --
--- name: escape dollar --
-[% text = 'foo bar';
- text.replace('(f)(o+)', '\\$2$1')
-%]
--- expect --
-$2f bar
-
-
--- test --
--- name: escape backslash --
-[% text = 'foo bar';
- text.replace('(f)(o+)', 'x$1\\\\y$2'); # this is 'x$1\\y$2'
-%]
--- expect --
-xf\yoo bar
-
--- test --
--- name: backslash again --
-[% text = 'foo bar';
- text.replace('(f)(o+)', '$2\\\\$1'); # this is '$2\\$1'
-%]
--- expect --
-oo\f bar
-
--- test --
--- name: escape all over --
-[% text = 'foo bar';
- text.replace('(f)(o+)', '$2\\\\\\$1'); # this is '$2\\\$')
-%]
--- expect --
-oo\$1 bar
-
-
--- test --
-[% text = 'foo bar foobar';
- text.replace('(o)|([ar])', '$2!')
-%]
--- expect --
-f!! ba!r! f!!ba!r!
-
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/vmethods/text.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/vmethods/text.t
deleted file mode 100644
index a5e7349..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/vmethods/text.t
+++ /dev/null
@@ -1,358 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/vmethods/text.t
-#
-# Testing scalar (text) virtual variable methods.
-#
-# Written by Andy Wardley <abw at cpan.org>
-#
-# Copyright (C) 1996-2006 Andy Wardley. All Rights Reserved.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: text.t 1020 2006-05-30 15:53:52Z abw $
-#
-#========================================================================
-
-use strict;
-use warnings;
-use lib qw( ./lib ../lib ../../lib );
-use Template::Test;
-
-# make sure we're using the Perl stash
-$Template::Config::STASH = 'Template::Stash';
-
-# define a new text method
-$Template::Stash::SCALAR_OPS->{ commify } = sub {
- local $_ = shift;
- my $c = shift || ",";
- my $n = int(shift || 3);
- return $_ if $n<1;
- 1 while s/^([-+]?\d+)(\d{$n})/$1$c$2/;
- return $_;
-};
-
-
-my $tt = Template->new();
-my $tc = $tt->context();
-
-# define vmethods using define_vmethod() interface.
-$tc->define_vmethod( item =>
- commas =>
- $Template::Stash::SCALAR_OPS->{ commify } );
-
-my $params = {
- undef => undef,
- zero => 0,
- one => 1,
- animal => 'cat',
- string => 'The cat sat on the mat',
- spaced => ' The dog sat on the log',
-};
-
-test_expect(\*DATA, undef, $params);
-
-__DATA__
-
-#------------------------------------------------------------------------
-# defined
-#------------------------------------------------------------------------
-
--- test --
-[% notdef.defined ? 'def' : 'undef' %]
--- expect --
-undef
-
--- test --
-[% undef.defined ? 'def' : 'undef' %]
--- expect --
-undef
-
--- test --
-[% zero.defined ? 'def' : 'undef' %]
--- expect --
-def
-
--- test --
-[% one.defined ? 'def' : 'undef' %]
--- expect --
-def
-
--- test --
-[% string.length %]
--- expect --
-22
-
--- test --
-[% string.sort.join %]
--- expect --
-The cat sat on the mat
-
--- test --
-[% string.split.join('_') %]
--- expect --
-The_cat_sat_on_the_mat
-
--- test --
-[% string.split(' ', 3).join('_') %]
--- expect --
-The_cat_sat on the mat
-
--- test --
-[% spaced.split.join('_') %]
--- expect --
-The_dog_sat_on_the_log
-
--- test --
-[% spaced.split(' ').join('_') %]
--- expect --
-__The_dog_sat_on_the_log
-
--- test --
--- name: text.list --
-[% string.list.join %]
--- expect --
-The cat sat on the mat
-
--- test --
--- name: text.hash --
-[% string.hash.value %]
--- expect --
-The cat sat on the mat
-
--- test --
--- name: text.size --
-[% string.size %]
--- expect --
-1
-
--- test --
--- name: text.repeat --
-[% animal.repeat(3) %]
--- expect --
-catcatcat
-
--- test --
--- name: text.search --
-[% animal.search('at$') ? "found 'at\$'" : "didn't find 'at\$'" %]
--- expect --
-found 'at$'
-
--- test --
--- name: text.search --
-[% animal.search('^at') ? "found '^at'" : "didn't find '^at'" %]
--- expect --
-didn't find '^at'
-
--- test --
--- name: text.match an --
-[% text = 'bandanna';
- text.match('an') ? 'match' : 'no match'
-%]
--- expect --
-match
-
--- test --
--- name: text.match on --
-[% text = 'bandanna';
- text.match('on') ? 'match' : 'no match'
-%]
--- expect --
-no match
-
--- test --
--- name: text.match global an --
-[% text = 'bandanna';
- text.match('an', 1).size %] matches
--- expect --
-2 matches
-
--- test --
--- name: text.match global an --
-[% text = 'bandanna' -%]
-matches are [% text.match('an+', 1).join(', ') %]
--- expect --
-matches are an, ann
-
--- test --
--- name: text.match global on --
-[% text = 'bandanna';
- text.match('on+', 1) ? 'match' : 'no match'
-%]
--- expect --
-no match
-
--- test --
--- name: text substr method --
-[% text = 'Hello World' -%]
-a: [% text.substr(6) %]!
-b: [% text.substr(0, 5) %]!
-c: [% text.substr(0, 5, 'Goodbye') %]!
-d: [% text %]!
--- expect --
-a: World!
-b: Hello!
-c: Goodbye World!
-d: Hello World!
-
--- test --
--- name: another text substr method --
-[% text = 'foo bar baz wiz waz woz' -%]
-a: [% text.substr(4, 3) %]
-b: [% text.substr(12) %]
-c: [% text.substr(0, 11, 'FOO') %]
-d: [% text %]
--- expect --
-a: bar
-b: wiz waz woz
-c: FOO wiz waz woz
-d: foo bar baz wiz waz woz
-
-
--- test --
--- name: text.remove --
-[% text = 'hello world!';
- text.remove('\s+world')
-%]
--- expect --
-hello!
-
-
-
--- test --
--- name chunk left --
-[% string = 'TheCatSatTheMat' -%]
-[% string.chunk(3).join(', ') %]
--- expect --
-The, Cat, Sat, The, Mat
-
--- test --
--- name chunk leftover --
-[% string = 'TheCatSatonTheMat' -%]
-[% string.chunk(3).join(', ') %]
--- expect --
-The, Cat, Sat, onT, heM, at
-
--- test --
--- name chunk right --
-[% string = 'TheCatSatTheMat' -%]
-[% string.chunk(-3).join(', ') %]
--- expect --
-The, Cat, Sat, The, Mat
-
--- test --
--- name chunk rightover --
-[% string = 'TheCatSatonTheMat' -%]
-[% string.chunk(-3).join(', ') %]
--- expect --
-Th, eCa, tSa, ton, The, Mat
-
--- test --
--- name chunk ccard --
-[% ccard_no = "1234567824683579";
- ccard_no.chunk(4).join
-%]
--- expect --
-1234 5678 2468 3579
-
-
--- test --
-[% string = 'foo' -%]
-[% string.repeat(3) %]
--- expect --
-foofoofoo
-
--- test --
-[% string1 = 'foobarfoobarfoo'
- string2 = 'foobazfoobazfoo'
--%]
-[% string1.search('bar') ? 'ok' : 'not ok' %]
-[% string2.search('bar') ? 'not ok' : 'ok' %]
-[% string1.replace('bar', 'baz') %]
-[% string2.replace('baz', 'qux') %]
--- expect --
-ok
-ok
-foobazfoobazfoo
-fooquxfooquxfoo
-
--- test --
-[% string1 = 'foobarfoobarfoo'
- string2 = 'foobazfoobazfoo'
--%]
-[% string1.match('bar') ? 'ok' : 'not ok' %]
-[% string2.match('bar') ? 'not ok' : 'ok' %]
--- expect --
-ok
-ok
-
--- test --
-[% string = 'foo bar ^%$ baz' -%]
-[% string.replace('\W+', '_') %]
--- expect --
-foo_bar_baz
-
--- test --
-[% var = 'value99' ;
- var.replace('value', '')
-%]
--- expect --
-99
-
--- test --
-[% bob = "0" -%]
-bob: [% bob.replace('0','') %].
--- expect --
-bob: .
-
--- test --
-[% string = 'The cat sat on the mat';
- match = string.match('The (\w+) (\w+) on the (\w+)');
--%]
-[% match.0 %].[% match.1 %]([% match.2 %])
--- expect --
-cat.sat(mat)
-
--- test --
-[% string = 'The cat sat on the mat' -%]
-[% IF (match = string.match('The (\w+) sat on the (\w+)')) -%]
-matched animal: [% match.0 %] place: [% match.1 %]
-[% ELSE -%]
-no match
-[% END -%]
-[% IF (match = string.match('The (\w+) shat on the (\w+)')) -%]
-matched animal: [% match.0 %] place: [% match.1 %]
-[% ELSE -%]
-no match
-[% END -%]
--- expect --
-matched animal: cat place: mat
-no match
-
-
--- test --
-[% big_num = "1234567890"; big_num.commify %]
--- expect --
-1,234,567,890
-
--- test --
-[% big_num = "1234567890"; big_num.commify(":", 2) %]
--- expect --
-12:34:56:78:90
-
--- test --
-[% big_num = "1234567812345678"; big_num.commify(" ", 4) %]
--- expect --
-1234 5678 1234 5678
-
--- test --
-[% big_num = "hello world"; big_num.commify %]
--- expect --
-hello world
-
--- test --
-[% big_num = "1234567890"; big_num.commas %]
--- expect --
-1,234,567,890
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/while.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/while.t
deleted file mode 100644
index 294e121..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/while.t
+++ /dev/null
@@ -1,207 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/while.t
-#
-# Test the WHILE directive
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 1996-2009 Andy Wardley. All Rights Reserved.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-#========================================================================
-
-use strict;
-use warnings;
-use lib qw( ./lib ../lib );
-use Template::Test;
-use Template::Parser;
-use Template::Directive;
-
-$Template::Test::DEBUG = 0;
-#$Template::Parser::DEBUG = 1;
-#$Template::Directive::PRETTY = 1;
-
-# set low limit on WHILE's maximum iteration count
-$Template::Directive::WHILE_MAX = 100;
-
-my $config = {
- INTERPOLATE => 1,
- POST_CHOMP => 1,
-};
-
-my @list = ( 'x-ray', 'yankee', 'zulu', );
-my @pending;
-my $replace = {
- 'a' => 'alpha',
- 'b' => 'bravo',
- 'c' => 'charlie',
- 'd' => 'delta',
- 'dec' => sub { --$_[0] },
- 'inc' => sub { ++$_[0] },
- 'reset' => sub { @pending = @list; "Reset list\n" },
- 'next' => sub { shift @pending },
- 'true' => 1,
-};
-
-test_expect(\*DATA, $config, $replace);
-
-__DATA__
-before
-[% WHILE bollocks %]
-do nothing
-[% END %]
-after
--- expect --
-before
-after
-
--- test --
-Commence countdown...
-[% a = 10 %]
-[% WHILE a %]
-[% a %]..[% a = dec(a) %]
-[% END +%]
-The end
--- expect --
-Commence countdown...
-10..9..8..7..6..5..4..3..2..1..
-The end
-
--- test --
-[% reset %]
-[% WHILE (item = next) %]
-item: [% item +%]
-[% END %]
--- expect --
-Reset list
-item: x-ray
-item: yankee
-item: zulu
-
--- test --
-[% reset %]
-[% WHILE (item = next) %]
-item: [% item +%]
-[% BREAK IF item == 'yankee' %]
-[% END %]
-Finis
--- expect --
-Reset list
-item: x-ray
-item: yankee
-Finis
-
--- test --
-[% reset %]
-[% "* $item\n" WHILE (item = next) %]
--- expect --
-Reset list
-* x-ray
-* yankee
-* zulu
-
--- test --
-[% TRY %]
-[% WHILE true %].[% END %]
-[% CATCH +%]
-error: [% error.info %]
-[% END %]
--- expect --
-...................................................................................................
-error: WHILE loop terminated (> 100 iterations)
-
-
--- test --
-[% reset %]
-[% WHILE (item = next) %]
-[% NEXT IF item == 'yankee' -%]
-* [% item +%]
-[% END %]
--- expect --
-Reset list
-* x-ray
-* zulu
--- test --
-[%
- i = 1;
- WHILE i <= 10;
- SWITCH i;
- CASE 5;
- i = i + 1;
- NEXT;
- CASE 8;
- LAST;
- END;
- "$i\n";
- i = i + 1;
- END;
--%]
--- expect --
-1
-2
-3
-4
-6
-7
--- test --
-[%
- i = 1;
- WHILE i <= 10;
- IF 1;
- IF i == 5; i = i + 1; NEXT; END;
- IF i == 8; LAST; END;
- END;
- "$i\n";
- i = i + 1;
- END;
--%]
--- expect --
-1
-2
-3
-4
-6
-7
--- test --
-[%
- i = 1;
- WHILE i <= 4;
- j = 1;
- WHILE j <= 4;
- k = 1;
- SWITCH j;
- CASE 2;
- WHILE k == 1; LAST; END;
- CASE 3;
- IF j == 3; j = j + 1; NEXT; END;
- END;
- "$i,$j,$k\n";
- j = j + 1;
- END;
- i = i + 1;
- END;
--%]
--- expect --
-1,1,1
-1,2,1
-1,4,1
-2,1,1
-2,2,1
-2,4,1
-3,1,1
-3,2,1
-3,4,1
-4,1,1
-4,2,1
-4,4,1
--- test --
-[%
- k = 1;
- LAST WHILE k == 1;
- "$k\n";
--%]
--- expect --
-1
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/wrapper.t b/3.8.8/sources/cpan-Template-Toolkit/vendor/t/wrapper.t
deleted file mode 100644
index 20d8540..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/t/wrapper.t
+++ /dev/null
@@ -1,204 +0,0 @@
-#============================================================= -*-perl-*-
-#
-# t/wrapper.t
-#
-# Template script testing the WRAPPER directive.
-#
-# Written by Andy Wardley <abw at kfs.org>
-#
-# Copyright (C) 1996-2000 Andy Wardley. All Rights Reserved.
-# Copyright (C) 1998-2000 Canon Research Centre Europe Ltd.
-#
-# This is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# $Id: wrapper.t 862 2006-01-05 10:13:51Z abw $
-#
-#========================================================================
-
-use strict;
-use lib qw( ../lib ./lib );
-use Template::Constants qw( :status );
-use Template;
-use Template::Test;
-$^W = 1;
-
-#$Template::Test::DEBUG = 0;
-#$Template::Context::DEBUG = 0;
-#$Template::Parser::DEBUG = 1;
-#$Template::Directive::PRETTY = 1;
-
-my $dir = -d 't' ? 't/test' : 'test';
-my $tproc = Template->new({
- INCLUDE_PATH => "$dir/src:$dir/lib",
- TRIM => 1,
-# WRAPPER => 'wrapper',
-});
-
-
-test_expect(\*DATA, $tproc, &callsign());
-
-__DATA__
--- test --
-[% BLOCK mypage %]
-This is the header
-[% content %]
-This is the footer
-[% END -%]
-[% WRAPPER mypage -%]
-This is the content
-[%- END %]
--- expect --
-This is the header
-This is the content
-This is the footer
-
--- test --
-[% WRAPPER mywrap
- title = 'Another Test' -%]
-This is some more content
-[%- END %]
--- expect --
-Wrapper Header
-Title: Another Test
-This is some more content
-Wrapper Footer
-
--- test --
-[% WRAPPER mywrap
- title = 'Another Test' -%]
-This is some content
-[%- END %]
--- expect --
-Wrapper Header
-Title: Another Test
-This is some content
-Wrapper Footer
-
-
--- test --
-[% WRAPPER page
- title = 'My Interesting Page'
-%]
-[% WRAPPER section
- title = 'Quantum Mechanics'
--%]
-Quantum mechanics is a very interesting subject wish
-should prove easy for the layman to fully comprehend.
-[%- END %]
-
-[% WRAPPER section
- title = 'Desktop Nuclear Fusion for under $50'
--%]
-This describes a simple device which generates significant
-sustainable electrical power from common tap water by process
-of nuclear fusion.
-[%- END %]
-[% END %]
-
-[% BLOCK page -%]
-<h1>[% title %]</h1>
-[% content %]
-<hr>
-[% END %]
-
-[% BLOCK section -%]
-<p>
-<h2>[% title %]</h2>
-[% content %]
-</p>
-[% END %]
-
--- expect --
-<h1>My Interesting Page</h1>
-
-<p>
-<h2>Quantum Mechanics</h2>
-Quantum mechanics is a very interesting subject wish
-should prove easy for the layman to fully comprehend.
-</p>
-
-<p>
-<h2>Desktop Nuclear Fusion for under $50</h2>
-This describes a simple device which generates significant
-sustainable electrical power from common tap water by process
-of nuclear fusion.
-</p>
-
-<hr>
-
--- test --
-[%# FOREACH s = [ 'one' 'two' ]; WRAPPER section; PROCESS $s; END; END %]
-[% PROCESS $s WRAPPER section FOREACH s = [ 'one' 'two' ] %]
-[% BLOCK one; title = 'Block One' %]This is one[% END %]
-[% BLOCK two; title = 'Block Two' %]This is two[% END %]
-[% BLOCK section %]
-<h1>[% title %]</h1>
-<p>
-[% content %]
-</p>
-[% END %]
--- expect --
-<h1>Block One</h1>
-<p>
-This is one
-</p><h1>Block Two</h1>
-<p>
-This is two
-</p>
-
--- test --
-[% BLOCK one; title = 'Block One' %]This is one[% END %]
-[% BLOCK section %]
-<h1>[% title %]</h1>
-<p>
-[% content %]
-</p>
-[% END %]
-[% WRAPPER section -%]
-[% PROCESS one %]
-[%- END %]
-title: [% title %]
--- expect --
-<h1>Block One</h1>
-<p>
-This is one
-</p>
-title: Block One
-
--- test --
-[% title = "foo" %]
-[% WRAPPER outer title="bar" -%]
-The title is [% title %]
-[%- END -%]
-[% BLOCK outer -%]
-outer [[% title %]]: [% content %]
-[%- END %]
--- expect --
-outer [bar]: The title is foo
-
--- test--
-[% BLOCK a; "<a>$content</a>"; END;
- BLOCK b; "<b>$content</b>"; END;
- BLOCK c; "<c>$content</c>"; END;
- WRAPPER a + b + c; 'FOO'; END;
-%]
--- expect --
-<a><b><c>FOO</c></b></a>
-
--- stop --
-# This next text demonstrates a limitation in the parser
-# http://tt2.org/pipermail/templates/2006-January/008197.html
-
--- test--
-[% BLOCK a; "<a>$content</a>"; END;
- BLOCK b; "<b>$content</b>"; END;
- BLOCK c; "<c>$content</c>"; END;
- A='a';
- B='b';
- C='c';
- WRAPPER $A + $B + $C; 'BAR'; END;
-%]
--- expect --
-<a><b><c>BAR</c></b></a>
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/xs/Makefile.PL b/3.8.8/sources/cpan-Template-Toolkit/vendor/xs/Makefile.PL
deleted file mode 100644
index b52cadb..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/xs/Makefile.PL
+++ /dev/null
@@ -1,15 +0,0 @@
-# $Id: Makefile.PL 351 2002-04-15 13:38:47Z abw $
-
-use lib qw( ../lib ./lib );
-use ExtUtils::MakeMaker;
-use Template;
-
-WriteMakefile(
- 'NAME' => 'Template::Stash::XS',
- 'C' => [ qw( Stash.c ) ],
- 'XS' => { 'Stash.xs' => 'Stash.c' },
- 'OBJECT' => 'Stash.o',
- 'VERSION' => $Template::VERSION,
- 'NORECURS' => 1,
-);
-
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/xs/Makefile.old b/3.8.8/sources/cpan-Template-Toolkit/vendor/xs/Makefile.old
deleted file mode 100644
index 748089b..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/xs/Makefile.old
+++ /dev/null
@@ -1,741 +0,0 @@
-# This Makefile is for the Template::Stash::XS extension to perl.
-#
-# It was generated automatically by MakeMaker version
-# 6.56 (Revision: 65600) from the contents of
-# Makefile.PL. Don't edit this file, edit Makefile.PL instead.
-#
-# ANY CHANGES MADE HERE WILL BE LOST!
-#
-# MakeMaker ARGV: ()
-#
-
-# MakeMaker Parameters:
-
-# BUILD_REQUIRES => { }
-# C => [q[Stash.c]]
-# NAME => q[Template::Stash::XS]
-# NORECURS => q[1]
-# OBJECT => q[Stash.o]
-# PREREQ_PM => { }
-# VERSION => q[2.22]
-# XS => { Stash.xs=>q[Stash.c] }
-
-# --- MakeMaker post_initialize section:
-
-
-# --- MakeMaker const_config section:
-
-# These definitions are from config.sh (via /opt/perl-5.12.0/lib/5.12.0/darwin-2level/Config.pm).
-# They may have been overridden via Makefile.PL or on the command line.
-AR = ar
-CC = cc
-CCCDLFLAGS =
-CCDLFLAGS =
-DLEXT = bundle
-DLSRC = dl_dlopen.xs
-EXE_EXT =
-FULL_AR = /usr/bin/ar
-LD = env MACOSX_DEPLOYMENT_TARGET=10.3 cc
-LDDLFLAGS = -bundle -undefined dynamic_lookup -L/usr/local/lib -L/opt/local/lib -fstack-protector
-LDFLAGS = -fstack-protector -L/usr/local/lib -L/opt/local/lib
-LIBC = /usr/lib/libc.dylib
-LIB_EXT = .a
-OBJ_EXT = .o
-OSNAME = darwin
-OSVERS = 10.3.0
-RANLIB = ranlib
-SITELIBEXP = /opt/perl-5.12.0/lib/site_perl/5.12.0
-SITEARCHEXP = /opt/perl-5.12.0/lib/site_perl/5.12.0/darwin-2level
-SO = dylib
-VENDORARCHEXP =
-VENDORLIBEXP =
-
-
-# --- MakeMaker constants section:
-AR_STATIC_ARGS = cr
-DIRFILESEP = /
-DFSEP = $(DIRFILESEP)
-NAME = Template::Stash::XS
-NAME_SYM = Template_Stash_XS
-VERSION = 2.22
-VERSION_MACRO = VERSION
-VERSION_SYM = 2_22
-DEFINE_VERSION = -D$(VERSION_MACRO)=\"$(VERSION)\"
-XS_VERSION = 2.22
-XS_VERSION_MACRO = XS_VERSION
-XS_DEFINE_VERSION = -D$(XS_VERSION_MACRO)=\"$(XS_VERSION)\"
-INST_ARCHLIB = ../blib/arch
-INST_SCRIPT = ../blib/script
-INST_BIN = ../blib/bin
-INST_LIB = ../blib/lib
-INST_MAN1DIR = ../blib/man1
-INST_MAN3DIR = ../blib/man3
-MAN1EXT = 1
-MAN3EXT = 3
-INSTALLDIRS = site
-DESTDIR =
-PREFIX = $(SITEPREFIX)
-PERLPREFIX = /opt/perl-5.12.0
-SITEPREFIX = /opt/perl-5.12.0
-VENDORPREFIX =
-INSTALLPRIVLIB = /opt/perl-5.12.0/lib/5.12.0
-DESTINSTALLPRIVLIB = $(DESTDIR)$(INSTALLPRIVLIB)
-INSTALLSITELIB = /opt/perl-5.12.0/lib/site_perl/5.12.0
-DESTINSTALLSITELIB = $(DESTDIR)$(INSTALLSITELIB)
-INSTALLVENDORLIB =
-DESTINSTALLVENDORLIB = $(DESTDIR)$(INSTALLVENDORLIB)
-INSTALLARCHLIB = /opt/perl-5.12.0/lib/5.12.0/darwin-2level
-DESTINSTALLARCHLIB = $(DESTDIR)$(INSTALLARCHLIB)
-INSTALLSITEARCH = /opt/perl-5.12.0/lib/site_perl/5.12.0/darwin-2level
-DESTINSTALLSITEARCH = $(DESTDIR)$(INSTALLSITEARCH)
-INSTALLVENDORARCH =
-DESTINSTALLVENDORARCH = $(DESTDIR)$(INSTALLVENDORARCH)
-INSTALLBIN = /opt/perl-5.12.0/bin
-DESTINSTALLBIN = $(DESTDIR)$(INSTALLBIN)
-INSTALLSITEBIN = /opt/perl-5.12.0/bin
-DESTINSTALLSITEBIN = $(DESTDIR)$(INSTALLSITEBIN)
-INSTALLVENDORBIN =
-DESTINSTALLVENDORBIN = $(DESTDIR)$(INSTALLVENDORBIN)
-INSTALLSCRIPT = /opt/perl-5.12.0/bin
-DESTINSTALLSCRIPT = $(DESTDIR)$(INSTALLSCRIPT)
-INSTALLSITESCRIPT = /opt/perl-5.12.0/bin
-DESTINSTALLSITESCRIPT = $(DESTDIR)$(INSTALLSITESCRIPT)
-INSTALLVENDORSCRIPT =
-DESTINSTALLVENDORSCRIPT = $(DESTDIR)$(INSTALLVENDORSCRIPT)
-INSTALLMAN1DIR = /opt/perl-5.12.0/man/man1
-DESTINSTALLMAN1DIR = $(DESTDIR)$(INSTALLMAN1DIR)
-INSTALLSITEMAN1DIR = /opt/perl-5.12.0/man/man1
-DESTINSTALLSITEMAN1DIR = $(DESTDIR)$(INSTALLSITEMAN1DIR)
-INSTALLVENDORMAN1DIR =
-DESTINSTALLVENDORMAN1DIR = $(DESTDIR)$(INSTALLVENDORMAN1DIR)
-INSTALLMAN3DIR = /opt/perl-5.12.0/man/man3
-DESTINSTALLMAN3DIR = $(DESTDIR)$(INSTALLMAN3DIR)
-INSTALLSITEMAN3DIR = /opt/perl-5.12.0/man/man3
-DESTINSTALLSITEMAN3DIR = $(DESTDIR)$(INSTALLSITEMAN3DIR)
-INSTALLVENDORMAN3DIR =
-DESTINSTALLVENDORMAN3DIR = $(DESTDIR)$(INSTALLVENDORMAN3DIR)
-PERL_LIB = /opt/perl-5.12.0/lib/5.12.0
-PERL_ARCHLIB = /opt/perl-5.12.0/lib/5.12.0/darwin-2level
-LIBPERL_A = libperl.a
-FIRST_MAKEFILE = Makefile
-MAKEFILE_OLD = Makefile.old
-MAKE_APERL_FILE = Makefile.aperl
-PERLMAINCC = $(CC)
-PERL_INC = /opt/perl-5.12.0/lib/5.12.0/darwin-2level/CORE
-PERL = /opt/perl-5.12.0/bin/perl
-FULLPERL = /opt/perl-5.12.0/bin/perl
-ABSPERL = $(PERL)
-PERLRUN = $(PERL)
-FULLPERLRUN = $(FULLPERL)
-ABSPERLRUN = $(ABSPERL)
-PERLRUNINST = $(PERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
-FULLPERLRUNINST = $(FULLPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
-ABSPERLRUNINST = $(ABSPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
-PERL_CORE = 0
-PERM_DIR = 755
-PERM_RW = 644
-PERM_RWX = 755
-
-MAKEMAKER = /opt/perl-5.12.0/lib/5.12.0/ExtUtils/MakeMaker.pm
-MM_VERSION = 6.56
-MM_REVISION = 65600
-
-# 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.
-MAKE = make
-FULLEXT = Template/Stash/XS
-BASEEXT = XS
-PARENT_NAME = Template::Stash
-DLBASE = $(BASEEXT)
-VERSION_FROM =
-OBJECT = Stash$(OBJ_EXT)
-LDFROM = $(OBJECT)
-LINKTYPE = dynamic
-BOOTDEP =
-
-# Handy lists of source code files:
-XS_FILES = Stash.xs
-C_FILES = Stash.c
-O_FILES = Stash.o
-H_FILES = ppport.h
-MAN1PODS =
-MAN3PODS =
-
-# Where is the Config information that we are using/depend on
-CONFIGDEP = $(PERL_ARCHLIB)$(DFSEP)Config.pm $(PERL_INC)$(DFSEP)config.h
-
-# Where to build things
-INST_LIBDIR = $(INST_LIB)/Template/Stash
-INST_ARCHLIBDIR = $(INST_ARCHLIB)/Template/Stash
-
-INST_AUTODIR = $(INST_LIB)/auto/$(FULLEXT)
-INST_ARCHAUTODIR = $(INST_ARCHLIB)/auto/$(FULLEXT)
-
-INST_STATIC = $(INST_ARCHAUTODIR)/$(BASEEXT)$(LIB_EXT)
-INST_DYNAMIC = $(INST_ARCHAUTODIR)/$(DLBASE).$(DLEXT)
-INST_BOOT = $(INST_ARCHAUTODIR)/$(BASEEXT).bs
-
-# Extra linker info
-EXPORT_LIST =
-PERL_ARCHIVE =
-PERL_ARCHIVE_AFTER =
-
-
-TO_INST_PM =
-
-PM_TO_BLIB =
-
-
-# --- MakeMaker platform_constants section:
-MM_Unix_VERSION = 6.56
-PERL_MALLOC_DEF = -DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc -Dfree=Perl_mfree -Drealloc=Perl_realloc -Dcalloc=Perl_calloc
-
-
-# --- MakeMaker tool_autosplit section:
-# Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto
-AUTOSPLITFILE = $(ABSPERLRUN) -e 'use AutoSplit; autosplit($$ARGV[0], $$ARGV[1], 0, 1, 1)' --
-
-
-
-# --- MakeMaker tool_xsubpp section:
-
-XSUBPPDIR = /opt/perl-5.12.0/lib/5.12.0/ExtUtils
-XSUBPP = $(XSUBPPDIR)$(DFSEP)xsubpp
-XSUBPPRUN = $(PERLRUN) $(XSUBPP)
-XSPROTOARG =
-XSUBPPDEPS = /opt/perl-5.12.0/lib/5.12.0/ExtUtils/typemap $(XSUBPP)
-XSUBPPARGS = -typemap /opt/perl-5.12.0/lib/5.12.0/ExtUtils/typemap
-XSUBPP_EXTRA_ARGS =
-
-
-# --- MakeMaker tools_other section:
-SHELL = /bin/sh
-CHMOD = chmod
-CP = cp
-MV = mv
-NOOP = $(TRUE)
-NOECHO = @
-RM_F = rm -f
-RM_RF = rm -rf
-TEST_F = test -f
-TOUCH = touch
-UMASK_NULL = umask 0
-DEV_NULL = > /dev/null 2>&1
-MKPATH = $(ABSPERLRUN) -MExtUtils::Command -e 'mkpath' --
-EQUALIZE_TIMESTAMP = $(ABSPERLRUN) -MExtUtils::Command -e 'eqtime' --
-FALSE = false
-TRUE = true
-ECHO = echo
-ECHO_N = echo -n
-UNINST = 0
-VERBINST = 0
-MOD_INSTALL = $(ABSPERLRUN) -MExtUtils::Install -e 'install([ from_to => {@ARGV}, verbose => '\''$(VERBINST)'\'', uninstall_shadows => '\''$(UNINST)'\'', dir_mode => '\''$(PERM_DIR)'\'' ]);' --
-DOC_INSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'perllocal_install' --
-UNINSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'uninstall' --
-WARN_IF_OLD_PACKLIST = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'warn_if_old_packlist' --
-MACROSTART =
-MACROEND =
-USEMAKEFILE = -f
-FIXIN = $(ABSPERLRUN) -MExtUtils::MY -e 'MY->fixin(shift)' --
-
-
-# --- MakeMaker makemakerdflt section:
-makemakerdflt : all
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker dist section skipped.
-
-# --- MakeMaker macro section:
-
-
-# --- MakeMaker depend section:
-
-
-# --- MakeMaker cflags section:
-
-CCFLAGS = -fno-common -DPERL_DARWIN -no-cpp-precomp -fno-strict-aliasing -pipe -fstack-protector -I/opt/local/include
-OPTIMIZE = -O3
-PERLTYPE =
-MPOLLUTE =
-
-
-# --- MakeMaker const_loadlibs section:
-
-# Template::Stash::XS might depend on some other libraries:
-# See ExtUtils::Liblist for details
-#
-
-
-# --- MakeMaker const_cccmd section:
-CCCMD = $(CC) -c $(PASTHRU_INC) $(INC) \
- $(CCFLAGS) $(OPTIMIZE) \
- $(PERLTYPE) $(MPOLLUTE) $(DEFINE_VERSION) \
- $(XS_DEFINE_VERSION)
-
-# --- MakeMaker post_constants section:
-
-
-# --- MakeMaker pasthru section:
-
-PASTHRU = LIBPERL_A="$(LIBPERL_A)"\
- LINKTYPE="$(LINKTYPE)"\
- OPTIMIZE="$(OPTIMIZE)"\
- PREFIX="$(PREFIX)"
-
-
-# --- MakeMaker special_targets section:
-.SUFFIXES : .xs .c .C .cpp .i .s .cxx .cc $(OBJ_EXT)
-
-.PHONY: all config static dynamic test linkext manifest blibdirs clean realclean disttest distdir
-
-
-
-# --- MakeMaker c_o section:
-
-.c.i:
- cc -E -c $(PASTHRU_INC) $(INC) \
- $(CCFLAGS) $(OPTIMIZE) \
- $(PERLTYPE) $(MPOLLUTE) $(DEFINE_VERSION) \
- $(XS_DEFINE_VERSION) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c > $*.i
-
-.c.s:
- $(CCCMD) -S $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c
-
-.c$(OBJ_EXT):
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c
-
-.cpp$(OBJ_EXT):
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cpp
-
-.cxx$(OBJ_EXT):
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cxx
-
-.cc$(OBJ_EXT):
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cc
-
-.C$(OBJ_EXT):
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.C
-
-
-# --- MakeMaker xs_c section:
-
-.xs.c:
- $(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $(XSUBPP_EXTRA_ARGS) $*.xs > $*.xsc && $(MV) $*.xsc $*.c
-
-
-# --- MakeMaker xs_o section:
-
-.xs$(OBJ_EXT):
- $(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.xsc && $(MV) $*.xsc $*.c
- $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c
-
-
-# --- MakeMaker top_targets section:
-all :: pure_all manifypods
- $(NOECHO) $(NOOP)
-
-
-pure_all :: config pm_to_blib subdirs linkext
- $(NOECHO) $(NOOP)
-
-subdirs :: $(MYEXTLIB)
- $(NOECHO) $(NOOP)
-
-config :: $(FIRST_MAKEFILE) blibdirs
- $(NOECHO) $(NOOP)
-
-$(O_FILES): $(H_FILES)
-
-help :
- perldoc ExtUtils::MakeMaker
-
-
-# --- MakeMaker blibdirs section:
-blibdirs : $(INST_LIBDIR)$(DFSEP).exists $(INST_ARCHLIB)$(DFSEP).exists $(INST_AUTODIR)$(DFSEP).exists $(INST_ARCHAUTODIR)$(DFSEP).exists $(INST_BIN)$(DFSEP).exists $(INST_SCRIPT)$(DFSEP).exists $(INST_MAN1DIR)$(DFSEP).exists $(INST_MAN3DIR)$(DFSEP).exists
- $(NOECHO) $(NOOP)
-
-# Backwards compat with 6.18 through 6.25
-blibdirs.ts : blibdirs
- $(NOECHO) $(NOOP)
-
-$(INST_LIBDIR)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_LIBDIR)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_LIBDIR)
- $(NOECHO) $(TOUCH) $(INST_LIBDIR)$(DFSEP).exists
-
-$(INST_ARCHLIB)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_ARCHLIB)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHLIB)
- $(NOECHO) $(TOUCH) $(INST_ARCHLIB)$(DFSEP).exists
-
-$(INST_AUTODIR)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_AUTODIR)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_AUTODIR)
- $(NOECHO) $(TOUCH) $(INST_AUTODIR)$(DFSEP).exists
-
-$(INST_ARCHAUTODIR)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_ARCHAUTODIR)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHAUTODIR)
- $(NOECHO) $(TOUCH) $(INST_ARCHAUTODIR)$(DFSEP).exists
-
-$(INST_BIN)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_BIN)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_BIN)
- $(NOECHO) $(TOUCH) $(INST_BIN)$(DFSEP).exists
-
-$(INST_SCRIPT)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_SCRIPT)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_SCRIPT)
- $(NOECHO) $(TOUCH) $(INST_SCRIPT)$(DFSEP).exists
-
-$(INST_MAN1DIR)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_MAN1DIR)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN1DIR)
- $(NOECHO) $(TOUCH) $(INST_MAN1DIR)$(DFSEP).exists
-
-$(INST_MAN3DIR)$(DFSEP).exists :: Makefile.PL
- $(NOECHO) $(MKPATH) $(INST_MAN3DIR)
- $(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN3DIR)
- $(NOECHO) $(TOUCH) $(INST_MAN3DIR)$(DFSEP).exists
-
-
-
-# --- MakeMaker linkext section:
-
-linkext :: $(LINKTYPE)
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker dlsyms section:
-
-
-# --- MakeMaker dynamic section:
-
-dynamic :: $(FIRST_MAKEFILE) $(INST_DYNAMIC) $(INST_BOOT)
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker dynamic_bs section:
-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) $@
- $(CHMOD) $(PERM_RW) $@
-
-$(INST_BOOT) : $(BOOTSTRAP) $(INST_ARCHAUTODIR)$(DFSEP).exists
- $(NOECHO) $(RM_RF) $@
- - $(CP) $(BOOTSTRAP) $@
- $(CHMOD) $(PERM_RW) $@
-
-
-# --- MakeMaker dynamic_lib section:
-
-# This section creates the dynamically loadable $(INST_DYNAMIC)
-# from $(OBJECT) and possibly $(MYEXTLIB).
-ARMAYBE = :
-OTHERLDFLAGS =
-INST_DYNAMIC_DEP =
-INST_DYNAMIC_FIX =
-
-$(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(BOOTSTRAP) $(INST_ARCHAUTODIR)$(DFSEP).exists $(EXPORT_LIST) $(PERL_ARCHIVE) $(PERL_ARCHIVE_AFTER) $(INST_DYNAMIC_DEP)
- $(RM_F) $@
- $(LD) $(LDDLFLAGS) $(LDFROM) $(OTHERLDFLAGS) -o $@ $(MYEXTLIB) \
- $(PERL_ARCHIVE) $(LDLOADLIBS) $(PERL_ARCHIVE_AFTER) $(EXPORT_LIST) \
- $(INST_DYNAMIC_FIX)
- $(CHMOD) $(PERM_RWX) $@
-
-
-# --- MakeMaker static section:
-
-## $(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)
-
-
-# --- MakeMaker static_lib section:
-
-$(INST_STATIC) : $(OBJECT) $(MYEXTLIB) $(INST_ARCHAUTODIR)$(DFSEP).exists
- $(RM_RF) $@
- $(FULL_AR) $(AR_STATIC_ARGS) $@ $(OBJECT) && $(RANLIB) $@
- $(CHMOD) $(PERM_RWX) $@
- $(NOECHO) $(ECHO) "$(EXTRALIBS)" > $(INST_ARCHAUTODIR)/extralibs.ld
-
-
-# --- MakeMaker manifypods section:
-
-POD2MAN_EXE = $(PERLRUN) "-MExtUtils::Command::MM" -e pod2man "--"
-POD2MAN = $(POD2MAN_EXE)
-
-
-manifypods : pure_all
- $(NOECHO) $(NOOP)
-
-
-
-
-# --- MakeMaker processPL section:
-
-
-# --- MakeMaker installbin section:
-
-
-# --- MakeMaker subdirs section:
-
-# none
-
-# --- MakeMaker clean_subdirs section:
-clean_subdirs :
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker clean section:
-
-# 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
- - $(RM_F) \
- *$(LIB_EXT) core \
- core.[0-9] $(INST_ARCHAUTODIR)/extralibs.all \
- core.[0-9][0-9] $(BASEEXT).bso \
- pm_to_blib.ts core.[0-9][0-9][0-9][0-9] \
- $(BASEEXT).x $(BOOTSTRAP) \
- Stash.c perl$(EXE_EXT) \
- tmon.out *$(OBJ_EXT) \
- pm_to_blib $(INST_ARCHAUTODIR)/extralibs.ld \
- blibdirs.ts core.[0-9][0-9][0-9][0-9][0-9] \
- *perl.core core.*perl.*.? \
- $(MAKE_APERL_FILE) perl \
- $(BASEEXT).def core.[0-9][0-9][0-9] \
- mon.out lib$(BASEEXT).def \
- perlmain.c perl.exe \
- so_locations $(BASEEXT).exp
- - $(RM_RF) \
- blib
- - $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) $(DEV_NULL)
-
-
-# --- MakeMaker realclean_subdirs section:
-realclean_subdirs :
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker realclean section:
-# Delete temporary files (via clean) and also delete dist files
-realclean purge :: clean realclean_subdirs
- - $(RM_F) \
- $(OBJECT) $(MAKEFILE_OLD) \
- $(FIRST_MAKEFILE)
- - $(RM_RF) \
- $(DISTVNAME)
-
-
-# --- MakeMaker metafile section:
-metafile : create_distdir
- $(NOECHO) $(ECHO) Generating META.yml
- $(NOECHO) $(ECHO) '--- #YAML:1.0' > META_new.yml
- $(NOECHO) $(ECHO) 'name: Template-Stash-XS' >> META_new.yml
- $(NOECHO) $(ECHO) 'version: 2.22' >> META_new.yml
- $(NOECHO) $(ECHO) 'abstract: ~' >> META_new.yml
- $(NOECHO) $(ECHO) 'author: []' >> META_new.yml
- $(NOECHO) $(ECHO) 'license: unknown' >> META_new.yml
- $(NOECHO) $(ECHO) 'distribution_type: module' >> META_new.yml
- $(NOECHO) $(ECHO) 'configure_requires:' >> META_new.yml
- $(NOECHO) $(ECHO) ' ExtUtils::MakeMaker: 0' >> META_new.yml
- $(NOECHO) $(ECHO) 'build_requires:' >> META_new.yml
- $(NOECHO) $(ECHO) ' ExtUtils::MakeMaker: 0' >> META_new.yml
- $(NOECHO) $(ECHO) 'requires: {}' >> META_new.yml
- $(NOECHO) $(ECHO) 'no_index:' >> META_new.yml
- $(NOECHO) $(ECHO) ' directory:' >> META_new.yml
- $(NOECHO) $(ECHO) ' - t' >> META_new.yml
- $(NOECHO) $(ECHO) ' - inc' >> META_new.yml
- $(NOECHO) $(ECHO) 'generated_by: ExtUtils::MakeMaker version 6.56' >> META_new.yml
- $(NOECHO) $(ECHO) 'meta-spec:' >> META_new.yml
- $(NOECHO) $(ECHO) ' url: http://module-build.sourceforge.net/META-spec-v1.4.html' >> META_new.yml
- $(NOECHO) $(ECHO) ' version: 1.4' >> META_new.yml
- -$(NOECHO) $(MV) META_new.yml $(DISTVNAME)/META.yml
-
-
-# --- MakeMaker signature section:
-signature :
- cpansign -s
-
-
-# --- MakeMaker dist_basics section skipped.
-
-# --- MakeMaker dist_core section skipped.
-
-# --- MakeMaker distdir section skipped.
-
-# --- MakeMaker dist_test section skipped.
-
-# --- MakeMaker dist_ci section skipped.
-
-# --- MakeMaker distmeta section:
-distmeta : create_distdir metafile
- $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'eval { maniadd({q{META.yml} => q{Module meta-data (added by MakeMaker)}}) } ' \
- -e ' or print "Could not add META.yml to MANIFEST: $${'\''@'\''}\n"' --
-
-
-
-# --- MakeMaker distsignature section:
-distsignature : create_distdir
- $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'eval { maniadd({q{SIGNATURE} => q{Public-key signature (added by MakeMaker)}}) } ' \
- -e ' or print "Could not add SIGNATURE to MANIFEST: $${'\''@'\''}\n"' --
- $(NOECHO) cd $(DISTVNAME) && $(TOUCH) SIGNATURE
- cd $(DISTVNAME) && cpansign -s
-
-
-
-# --- MakeMaker install section skipped.
-
-# --- MakeMaker force section:
-# Phony target to force checking subdirectories.
-FORCE :
- $(NOECHO) $(NOOP)
-
-
-# --- MakeMaker perldepend section:
-
-PERL_HDRS = \
- $(PERL_INC)/EXTERN.h \
- $(PERL_INC)/INTERN.h \
- $(PERL_INC)/XSUB.h \
- $(PERL_INC)/av.h \
- $(PERL_INC)/cc_runtime.h \
- $(PERL_INC)/config.h \
- $(PERL_INC)/cop.h \
- $(PERL_INC)/cv.h \
- $(PERL_INC)/dosish.h \
- $(PERL_INC)/embed.h \
- $(PERL_INC)/embedvar.h \
- $(PERL_INC)/fakethr.h \
- $(PERL_INC)/form.h \
- $(PERL_INC)/gv.h \
- $(PERL_INC)/handy.h \
- $(PERL_INC)/hv.h \
- $(PERL_INC)/intrpvar.h \
- $(PERL_INC)/iperlsys.h \
- $(PERL_INC)/keywords.h \
- $(PERL_INC)/mg.h \
- $(PERL_INC)/nostdio.h \
- $(PERL_INC)/op.h \
- $(PERL_INC)/opcode.h \
- $(PERL_INC)/patchlevel.h \
- $(PERL_INC)/perl.h \
- $(PERL_INC)/perlio.h \
- $(PERL_INC)/perlsdio.h \
- $(PERL_INC)/perlsfio.h \
- $(PERL_INC)/perlvars.h \
- $(PERL_INC)/perly.h \
- $(PERL_INC)/pp.h \
- $(PERL_INC)/pp_proto.h \
- $(PERL_INC)/proto.h \
- $(PERL_INC)/regcomp.h \
- $(PERL_INC)/regexp.h \
- $(PERL_INC)/regnodes.h \
- $(PERL_INC)/scope.h \
- $(PERL_INC)/sv.h \
- $(PERL_INC)/thread.h \
- $(PERL_INC)/unixish.h \
- $(PERL_INC)/util.h
-
-$(OBJECT) : $(PERL_HDRS)
-
-Stash.c : $(XSUBPPDEPS)
-
-
-# --- MakeMaker makefile section:
-
-$(OBJECT) : $(FIRST_MAKEFILE)
-
-# 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 $?"
- $(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) Makefile.PL
- $(NOECHO) $(ECHO) "==> Your Makefile has been rebuilt. <=="
- $(NOECHO) $(ECHO) "==> Please rerun the $(MAKE) command. <=="
- $(FALSE)
-
-
-
-# --- MakeMaker staticmake section:
-
-# --- MakeMaker makeaperl section ---
-MAP_TARGET = ../perl
-FULLPERL = /opt/perl-5.12.0/bin/perl
-
-
-# --- MakeMaker test section:
-
-TEST_VERBOSE=0
-TEST_TYPE=test_$(LINKTYPE)
-TEST_FILE = test.pl
-TEST_FILES =
-TESTDB_SW = -d
-
-testdb :: testdb_$(LINKTYPE)
-
-test :: $(TEST_TYPE) subdirs-test
-
-subdirs-test ::
- $(NOECHO) $(NOOP)
-
- $(NOECHO) $(ECHO) 'No tests defined for $(NAME) extension.'
-
-test_dynamic :: pure_all
-
-testdb_dynamic :: pure_all
- PERL_DL_NONLAZY=1 $(FULLPERLRUN) $(TESTDB_SW) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE)
-
-test_ : test_dynamic
-
-test_static :: pure_all $(MAP_TARGET)
-
-testdb_static :: pure_all $(MAP_TARGET)
- PERL_DL_NONLAZY=1 ./$(MAP_TARGET) $(TESTDB_SW) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE)
-
-
-
-# --- MakeMaker ppd section:
-# Creates a PPD (Perl Package Description) for a binary distribution.
-ppd :
- $(NOECHO) $(ECHO) '<SOFTPKG NAME="$(DISTNAME)" VERSION="2.22">' > $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' <ABSTRACT></ABSTRACT>' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' <AUTHOR></AUTHOR>' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' <IMPLEMENTATION>' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' <ARCHITECTURE NAME="darwin-2level-5.12" />' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' <CODEBASE HREF="" />' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) ' </IMPLEMENTATION>' >> $(DISTNAME).ppd
- $(NOECHO) $(ECHO) '</SOFTPKG>' >> $(DISTNAME).ppd
-
-
-# --- MakeMaker pm_to_blib section:
-
-pm_to_blib : $(FIRST_MAKEFILE) $(TO_INST_PM)
- $(NOECHO) $(TOUCH) pm_to_blib
-
-
-# --- MakeMaker selfdocument section:
-
-
-# --- MakeMaker postamble section:
-
-
-# End.
diff --git a/3.8.8/sources/cpan-Template-Toolkit/vendor/xs/README b/3.8.8/sources/cpan-Template-Toolkit/vendor/xs/README
deleted file mode 100644
index 6bcf34e..0000000
--- a/3.8.8/sources/cpan-Template-Toolkit/vendor/xs/README
+++ /dev/null
@@ -1,68 +0,0 @@
-----------------------------------------------------------------------
- Template::Stash::XS August 2001
-----------------------------------------------------------------------
-
-Introduction:
-
- * This is an XS implementation of the Template::Stash module, based
- in part upon work that Andy Wardley did late last year. It is
- an alternative version of the core Template::Stash methods ''get''
- and ''set'' (the ones that should benefit most from a speedy C
- implementation), along with some virtual methods (like first, last,
- reverse, etc.)
-
- Doug Steinwand took the original code and made it into the fast and
- fully functional version you see here. Our appreciation is due to
- Ticketmaster, Inc. (http://www.ticketmaster.com/) who funded Doug's
- work on this to the benefit of us all.
-
- You can run the additional test script ''tt-bench.pl'' to see the
- improvement in speed. You may need to install the BSD::Resource
- module -- see http://search.cpan.org/search?dist=BSD-Resource
-
- perl tt-bench.pl
-
-
-Additional Notes:
-
- * Depending upon the size and content of a template, this version
- has about twice the speed of the original Template::Stash.
-
-
- * When a virtual method (like pop, push, nsort, sort etc.) has not
- been implemented in XS, it uses these hashrefs in Template::Stash
- package -- $HASH_OPS, $LIST_OPS, and $SCALAR_OPS -- to call perl
- subroutines that can do the work.
-
-
- * Using the ''reference'' feature of Template Toolkit -- like
- [% a = \foo %] -- leaks a large amount of memory. Enable the
- template code at the end of ''tt-bench.pl'' for a demonstration.
- (Note: This is a problem in the pure-perl version, too. Also,
- you'll need a platform that fully supports getrusage() -- FreeBSD
- and IRIX are two that should work. Otherwise, use a utility like
- ''top''. )
-
-
- * Although it passes all the tests that I've thrown at it, there may
- still be some problems and/or bugs. My primary goal was to mirror
- the behavior of the pure-perl version using XS.
-
- (NOTE: The XS Stash has subsequently been tested by numerous people
- on the Template Toolkit mailing list and everyone has reported 100%
- success and notable speedups - abw)
-
-
- * Profiling code can be enabled with ''#define TT_PERF_ENABLE'' in
- the Stash.xs source, but doing so hurts performance a bit. The
- results can be displayed by adding the line:
-
- print Template::Stash::XS::performance(1);
-
- to your code. Use 0 instead of 1 for a more compact display.
-
-
- * There's no need to try crazy compiler optimizations on this code,
- because a majority of time is spent inside Perl's functions.
-
-
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/Build.PL b/3.8.8/sources/cpan-Test-Harness/vendor/Build.PL
deleted file mode 100644
index 6e11abb..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/Build.PL
+++ /dev/null
@@ -1,38 +0,0 @@
-#!perl
-
-require 5.006;
-
-use strict;
-use Module::Build;
-
-use File::Spec;
-use lib 'inc', File::Spec->canonpath('lib/'); # use our self to install
-
-use MyBuilder;
-
-my $builder = MyBuilder->new(
- module_name => 'Test::Harness',
- license => 'perl',
- installdirs => 'core',
- meta_merge => {
- resources => {
- homepage => 'http://testanything.org/',
- bugtracker =>
- 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
- MailingList => 'mailto:<tapx-dev at hexten.net>',
- repository =>
- 'http://github.com/AndyA/Test-Harness/tree/master',
- },
- keywords => [ 'TAP', 'test harness', 'prove' ],
- },
- recursive_test_files => 1,
- recommends => {
- 'Pod::Usage' => '1.12', # for 'prove'
- },
- build_requires => {},
- add_to_cleanup => ['Test-Harness-*'],
- script_files => ["bin/prove"],
- ( $Module::Build::VERSION >= 0.34 ) ? ( auto_configure_requires => 0 ) : (),
-);
-
-$builder->create_build_script();
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/examples/README b/3.8.8/sources/cpan-Test-Harness/vendor/examples/README
deleted file mode 100644
index 145a0f2..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/examples/README
+++ /dev/null
@@ -1,54 +0,0 @@
-=head1 EXAMPLES
-
-=head2 Running Tests in Multiple Languages
-
-If you have ruby installed in C</usr/bin/ruby>, and also have
-C<Test::WWW::Mechanize> installed, you can cd into C<examples/> (the directory
-where this README lives) and run the following command after installing the
-C<runtests> utility:
-
- examples $ runtests --exec ./my_exec t -v - < test_urls.txt
- t/10-stuff..............Failed 1/6 tests
- (less 2 skipped tests: 3 okay)
- (1 test unexpectedly succeeded)
- t/ruby..................ok
- http://www.google.com/....ok
- http://www.yahoo.com/.....ok
-
- Test Summary Report
- -------------------
- t/10-stuff.t (Wstat: 256 Tests: 6 Failed: 1)
- Failed tests: 2
- TODO passed: 6
- uests skipped: 3-4
- Files=4, Tests=10, 3 wallclock secs ( 0.92 cusr + 0.23 csys = 1.15 CPU)
-
-The C<my_exec> is a Perl program which tells the test harness how to execute
-any tests it encounters.
-
-The C<t> argument tells it to search in the C<t/> directory for any tests.
-One of the tests it finds is written in Ruby, but the C<my_exec> program tells
-it how to run this test. If you have Ruby installed but the test fails, try
-changing the path. If you don't have Ruby installed, you can simply comment
-out those lines in C<my_exec>, but the test will fail.
-
-The C<-> tells C<runtests> to read from C<STDIN> and C<test_urls.txt> is
-merely a list of URLs we wish to test.
-
-See the documentation for C<runtests> and C<TAP::Harness> for more
-information about how to use this.
-
-The C<-v> tells the harness to run in verbose mode.
-
-=head2 Custom Test Harnesses
-
-The C<tprove*> harnesses in the C<examples/bin/> directory are deprecated in
-favor of the new C<runtests>/C<TAP::Harness> tools. They are left in primary
-for curiosity sake, though you may find the C<tprove_gtk> one useful as a
-reference for how to create a GUI interface for C<TAP::Parser>.
-
-Instead, simple override the desired methods in C<TAP::Harness> to create
-your own custom test harness. Don't like how the summary report is formatted?
-Just override the C<&TAP::Harness::summary> method and use your new subclass:
-
- runtests --harness TAP::Harness::MyHarness
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/examples/analyze_tests.pl b/3.8.8/sources/cpan-Test-Harness/vendor/examples/analyze_tests.pl
deleted file mode 100644
index c821f98..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/examples/analyze_tests.pl
+++ /dev/null
@@ -1,86 +0,0 @@
-#!/usr/bin/env perl
-
-use strict;
-use warnings;
-
-use lib 'lib';
-use App::Prove::State;
-use List::Util 'sum';
-use Lingua::EN::Numbers 'num2en';
-use Text::Table;
-use Carp;
-
-sub minutes_and_seconds {
- my $seconds = shift;
- return ( int( $seconds / 60 ), int( $seconds % 60 ) );
-}
-
-my $state = App::Prove::State->new( { store => '.prove' } );
-my $results = $state->results;
-my $generation = $results->generation;
-my @tests = $results->tests;
-
-my $total = sum( map { $_->elapsed } @tests );
-my ( $minutes, $seconds ) = minutes_and_seconds($total);
-
-my $num_tests = shift || 10;
-my $total_tests = scalar $results->test_names;
-
-if ( $num_tests > $total_tests ) {
- $num_tests = $total_tests;
-}
-
-my $num_word = num2en($num_tests);
-
-my %time_for;
-foreach my $test (@tests) {
- $time_for{ $test->name } = $test->elapsed;
-}
-
-my @sorted_by_time_desc
- = sort { $time_for{$b} <=> $time_for{$a} } keys %time_for;
-
-print "Number of test programs: $total_tests\n";
-print "Total runtime approximately $minutes minutes $seconds seconds\n\n";
-print "\u$num_word slowest tests:\n";
-
-my @rows;
-for ( 0 .. $num_tests - 1 ) {
- my $test = $sorted_by_time_desc[$_];
- my $time = $time_for{$test};
- my ( $minutes, $seconds ) = minutes_and_seconds($time);
- push @rows => [ "${minutes}m ${seconds}s", $test, ];
-}
-
-print make_table(
- [qw/Time Test/],
- \@rows,
-);
-
-sub make_table {
- my ( $headers, $rows ) = @_;
-
- my @rule = qw(- +);
- my @headers = \'| ';
- push @headers => map { $_ => \' | ' } @$headers;
- pop @headers;
- push @headers => \' |';
-
- unless ( 'ARRAY' eq ref $rows
- && 'ARRAY' eq ref $rows->[0]
- && @$headers == @{ $rows->[0] } )
- {
- croak(
- "make_table() rows must be an AoA with rows being same size as headers"
- );
- }
- my $table = Text::Table->new(@headers);
- $table->rule(@rule);
- $table->body_rule(@rule);
- $table->load(@$rows);
- return $table->rule(@rule),
- $table->title,
- $table->rule(@rule),
- map( { $table->body($_) } 0 .. @$rows ),
- $table->rule(@rule);
-}
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/examples/bin/forked_tests.pl b/3.8.8/sources/cpan-Test-Harness/vendor/examples/bin/forked_tests.pl
deleted file mode 100644
index 720003c..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/examples/bin/forked_tests.pl
+++ /dev/null
@@ -1,72 +0,0 @@
-#!/usr/bin/perl
-
-# Run tests in parallel. This just allows you to check that your tests
-# are roughly capable of running in parallel. It writes output to a
-# tree in /tmp.
-# From: Eric Wilhelm @ ewilhelm at cpan.org
-
-use warnings;
-use strict;
-
-use File::Basename ();
-use File::Path ();
-use List::Util ();
-
-my @tests = @ARGV;
-
-#@tests = List::Util::shuffle(@tests);
-
-use POSIX ();
-
-my %map;
-my $i = 0;
-
-my $jobs = 9; # scalar(@tests); # if you like forkbombs
-my @running;
-
-while (@tests) {
- if ( $jobs == @running ) {
- my @list;
- while ( my $pid = shift(@running) ) {
- if ( waitpid( $pid, POSIX::WNOHANG() ) > 0 ) {
- warn ' ' x 25 . "done $map{$pid}\n";
- next;
- }
- push( @list, $pid );
- }
-
- #warn "running ", scalar(@list);
- @running = @list;
- next;
- }
- my $test = shift(@tests);
- defined( my $pid = fork ) or die;
- $i++;
- if ($pid) {
- push( @running, $pid );
- $map{$pid} = $test;
- print "$test\n";
- }
- else {
- my $dest_base = '/tmp';
- my $dest_dir = File::Basename::dirname("$dest_base/$test");
- unless ( -d $dest_dir ) {
- File::Path::mkpath($dest_dir) or die;
- }
-
- $| = 1;
- open( STDOUT, '>', "$dest_base/$test.out" ) or die;
- open( STDERR, '>', "$dest_base/$test.err" ) or die;
- exec( $^X, '-Ilib', $test );
- }
-}
-
-my $v = 0;
-until ( $v == -1 ) {
- $v = wait;
- ( $v == -1 ) and last;
- $? and warn "$map{$v} ($v) no happy $?";
-}
-print "bye\n";
-
-# vim:ts=2:sw=2:et:sta
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/examples/bin/test_html.pl b/3.8.8/sources/cpan-Test-Harness/vendor/examples/bin/test_html.pl
deleted file mode 100755
index dcb2f59..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/examples/bin/test_html.pl
+++ /dev/null
@@ -1,14 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More tests => 1;
-use Test::WWW::Mechanize;
-
-my $mech = Test::WWW::Mechanize->new;
-my $url = shift;
-$mech->get_ok(
- $url,
- "We should be able to fetch ($url)"
-);
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/examples/harness-hook/lib/Harness/Hook.pm b/3.8.8/sources/cpan-Test-Harness/vendor/examples/harness-hook/lib/Harness/Hook.pm
deleted file mode 100644
index 1f8f63f..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/examples/harness-hook/lib/Harness/Hook.pm
+++ /dev/null
@@ -1,30 +0,0 @@
-package Harness::Hook;
-
-use strict;
-use warnings;
-use Carp;
-
-sub new {
- my ( $class, $harness ) = @_;
- my $self = bless {}, $class;
-
- $harness->callback(
- 'before_runtests',
- sub {
- my ($aggregate) = @_;
- warn "Before runtests\n";
- }
- );
-
- $harness->callback(
- 'after_runtests',
- sub {
- my ( $aggregate, $results ) = @_;
- warn "After runtests\n";
- }
- );
-
- return $self;
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/examples/my_exec b/3.8.8/sources/cpan-Test-Harness/vendor/examples/my_exec
deleted file mode 100755
index ea66985..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/examples/my_exec
+++ /dev/null
@@ -1,22 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-my $url = qr/^http/;
-my $prog = shift;
-if ( $prog !~ $url && !-e $prog ) {
- die "Cannot find ($prog)";
-}
-my @exec;
-
-if ( 't/ruby.t' eq $prog ) {
- push @exec => '/usr/bin/ruby', $prog;
-}
-elsif ( $prog =~ $url ) {
- push @exec => 'bin/test_html.pl', $prog;
-}
-else {
- push @exec, $prog;
-}
-exec @exec or die "Cannot (exec @exec): $!";
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/examples/t/10-stuff.t b/3.8.8/sources/cpan-Test-Harness/vendor/examples/t/10-stuff.t
deleted file mode 100644
index b38e1af..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/examples/t/10-stuff.t
+++ /dev/null
@@ -1,17 +0,0 @@
-#!/usr/bin/perl -wT
-use strict;
-
-use Test::More qw/no_plan/;
-
-ok 1, 'this test passes';
-is_deeply [2], [3], 'this is_deeply test fails';
-SKIP: {
- skip 'testing skip', 2 if 1;
- ok 1;
- ok 1;
-}
-TODO: {
- local $TODO = 'this is a TODO test';
- ok 0, 'This should succeed';
- ok 1, 'This should fail';
-}
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/examples/t/ruby.t b/3.8.8/sources/cpan-Test-Harness/vendor/examples/t/ruby.t
deleted file mode 100644
index 589afdd..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/examples/t/ruby.t
+++ /dev/null
@@ -1,3 +0,0 @@
-puts("1..2");
-puts("ok 1");
-puts("ok 2");
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/examples/test_urls.txt b/3.8.8/sources/cpan-Test-Harness/vendor/examples/test_urls.txt
deleted file mode 100644
index 7454eec..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/examples/test_urls.txt
+++ /dev/null
@@ -1,2 +0,0 @@
-http://www.google.com/
-http://www.yahoo.com/
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/inc/MyBuilder.pm b/3.8.8/sources/cpan-Test-Harness/vendor/inc/MyBuilder.pm
deleted file mode 100644
index 2cea606..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/inc/MyBuilder.pm
+++ /dev/null
@@ -1,149 +0,0 @@
-package MyBuilder;
-
-BEGIN {
- require Module::Build;
- @ISA = qw(Module::Build);
-}
-
-# Test with Test::Harness
-sub ACTION_test_with_harness {
- my $self = shift;
-
- $self->SUPER::ACTION_test(@_);
-}
-
-# Test with TAP::Harness instead of Test::Harness
-sub ACTION_test {
- my $self = shift;
-
- $self->depends_on('code');
-
- my $tests = $self->find_test_files;
- unless (@$tests) {
- $self->log_info("No tests defined.\n");
- return;
- }
-
- # TODO verbose and stuff
-
- require TAP::Harness;
- my $harness = TAP::Harness->new( { lib => 'blib/lib' } );
- my $aggregator = $harness->runtests(@$tests);
- die "Failed!\n" if $aggregator->has_problems;
-}
-
-sub ACTION_testprove {
- my $self = shift;
- $self->depends_on('code');
- exec( $^X, '-Iblib/lib', 'bin/prove', '-b', '-r', 't' );
-}
-
-sub ACTION_testleaks {
- my $self = shift;
- $self->depends_on('code');
- exec( $^X, '-MDevel::Leak::Object=GLOBAL_bless', '-Iblib/lib',
- 'bin/prove', '-b', '-r', 't'
- );
-}
-
-sub ACTION_testreference {
- my $self = shift;
- $self->depends_on('code');
- my $ref = 'reference/Test-Harness-2.64';
- exec( $^X,
- ( -e $ref ? ( "-I$ref/lib", "$ref/bin/prove" ) : qw(-S prove) ),
- '-Iblib/lib', '-r', 't'
- );
-}
-
-sub ACTION_testauthor {
- my $self = shift;
- $self->test_files('xt/author');
- $self->ACTION_test;
-}
-
-sub ACTION_critic {
- exec(
- qw(perlcritic -1 -q -profile perlcriticrc
- bin/prove lib/), glob('t/*.t')
- );
-}
-
-sub ACTION_tags {
- exec(
- qw(ctags -f tags --recurse --totals
- --exclude=blib
- --exclude=.svn
- --exclude='*~'
- --languages=Perl
- t/ lib/ bin/prove
- )
- );
-}
-
-sub ACTION_tidy {
- my $self = shift;
-
- my @extra = qw(
- Build.PL
- Makefile.PL
- bin/prove
- );
-
- my %found_files = map {%$_} $self->find_pm_files,
- $self->_find_file_by_type( 'pm', 't' ),
- $self->_find_file_by_type( 'pm', 'inc' ),
- $self->_find_file_by_type( 't', 't' );
-
- my @files = (
- keys %found_files,
- map { $self->localize_file_path($_) } @extra
- );
-
- for my $file (@files) {
- system( 'perltidy', '-b', $file );
- unlink("$file.bak") if $? == 0;
- }
-}
-
-my @profiling_target = qw( -Mblib bin/prove --timer t/regression.t );
-
-sub ACTION_dprof {
- system( $^X, '-d:DProf', @profiling_target );
- exec(qw( dprofpp -R ));
-}
-
-sub ACTION_smallprof {
- system( $^X, '-d:SmallProf', @profiling_target );
- open( FH, 'smallprof.out' ) or die "Can't open smallprof.out: $!";
- @rows = grep {/\d+:/} <FH>;
- close FH;
-
- @rows = reverse
- sort { ( split( /\s+/, $a ) )[2] <=> ( split( /\s+/, $b ) )[2] } @rows;
- @rows = @rows[ 0 .. 30 ];
- print join( '', @rows );
-}
-
-sub read_manifest {
- my ( $self, $file, $into ) = @_;
- open my $fh, '<', $file or die "Can't read $file: $!";
- while (<$fh>) {
- chomp;
- s/\s*#.*//;
- $into->{$_}++ if length $_;
- }
-}
-
-sub ACTION_manifest {
- my ( $self, @args ) = @_;
- $self->SUPER::ACTION_manifest(@args);
- my $stash = {};
- my $mc = 'MANIFEST.CUMMULATIVE';
- $self->read_manifest( $mc, $stash );
- $self->read_manifest( 'MANIFEST', $stash );
- open my $fh, '>', $mc or die "Can't write $mc: $!";
- print $fh "$_\n" for sort keys %$stash;
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/lib/App/Prove/State.pm b/3.8.8/sources/cpan-Test-Harness/vendor/lib/App/Prove/State.pm
deleted file mode 100644
index a1e821c..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/lib/App/Prove/State.pm
+++ /dev/null
@@ -1,517 +0,0 @@
-package App::Prove::State;
-
-use strict;
-use vars qw($VERSION @ISA);
-
-use File::Find;
-use File::Spec;
-use Carp;
-
-use App::Prove::State::Result;
-use TAP::Parser::YAMLish::Reader ();
-use TAP::Parser::YAMLish::Writer ();
-use TAP::Base;
-
-BEGIN {
- @ISA = qw( TAP::Base );
- __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.21
-
-=cut
-
-$VERSION = '3.21';
-
-=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=fail,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<extension> (optional)
-
-The test name extension. 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},
- extension => ( delete $args{extension} || '.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<extension>
-
-Get or set the extension files must have in order to be considered
-tests. Defaults to '.t'.
-
-=cut
-
-sub extension {
- my $self = shift;
- $self->{extension} = shift if @_;
- return $self->{extension};
-}
-
-=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(
- where => sub { $_->generation >= $last_gen },
- order => sub { $_->sequence }
- );
- },
- failed => sub {
- $self->_select(
- where => sub { $_->result != 0 },
- order => sub { -$_->result }
- );
- },
- passed => sub {
- $self->_select( where => sub { $_->result == 0 } );
- },
- all => sub {
- $self->_select();
- },
- todo => sub {
- $self->_select(
- where => sub { $_->num_todo != 0 },
- order => sub { -$_->num_todo; }
- );
- },
- hot => sub {
- $self->_select(
- where => sub { defined $_->last_fail_time },
- order => sub { $now - $_->last_fail_time }
- );
- },
- slow => sub {
- $self->_select( order => sub { -$_->elapsed } );
- },
- fast => sub {
- $self->_select( order => sub { $_->elapsed } );
- },
- new => sub {
- $self->_select( order => sub { -$_->mtime } );
- },
- old => sub {
- $self->_select( order => sub { $_->mtime } );
- },
- fresh => sub {
- $self->_select( 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;
- }
-
- return @got;
-}
-
-sub _get_raw_tests {
- my $self = shift;
- my $recurse = shift;
- my @argv = @_;
- my @tests;
-
- # Do globbing on Win32.
- @argv = map { glob "$_" } @argv if NEED_GLOB;
- my $extension = $self->{extension};
-
- for my $arg (@argv) {
- if ( '-' eq $arg ) {
- push @argv => <STDIN>;
- chomp(@argv);
- next;
- }
-
- push @tests,
- sort -d $arg
- ? $recurse
- ? $self->_expand_dir_recursive( $arg, $extension )
- : glob( File::Spec->catfile( $arg, "*$extension" ) )
- : $arg;
- }
- return @tests;
-}
-
-sub _expand_dir_recursive {
- my ( $self, $dir, $extension ) = @_;
-
- my @tests;
- find(
- { follow => 1, #21938
- follow_skip => 2,
- wanted => sub {
- -f
- && /\Q$extension\E$/
- && 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/3.8.8/sources/cpan-Test-Harness/vendor/lib/App/Prove/State/Result.pm b/3.8.8/sources/cpan-Test-Harness/vendor/lib/App/Prove/State/Result.pm
deleted file mode 100644
index 9d6cbd3..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/lib/App/Prove/State/Result.pm
+++ /dev/null
@@ -1,233 +0,0 @@
-package App::Prove::State::Result;
-
-use strict;
-use Carp 'croak';
-
-use App::Prove::State::Result::Test;
-use vars qw($VERSION);
-
-use constant STATE_VERSION => 1;
-
-=head1 NAME
-
-App::Prove::State::Result - Individual test suite results.
-
-=head1 VERSION
-
-Version 3.21
-
-=cut
-
-$VERSION = '3.21';
-
-=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=fail,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/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Formatter/Console.pm b/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Formatter/Console.pm
deleted file mode 100644
index 8463a39..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Formatter/Console.pm
+++ /dev/null
@@ -1,91 +0,0 @@
-package TAP::Formatter::Console;
-
-use strict;
-use TAP::Formatter::Base ();
-use POSIX qw(strftime);
-
-use vars qw($VERSION @ISA);
-
- at ISA = qw(TAP::Formatter::Base);
-
-=head1 NAME
-
-TAP::Formatter::Console - Harness output delegate for default console output
-
-=head1 VERSION
-
-Version 3.21
-
-=cut
-
-$VERSION = '3.21';
-
-=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 _output_success {
- my ( $self, $msg ) = @_;
- $self->_set_colors('green');
- $self->_output($msg);
- $self->_set_colors('reset');
-}
-
-sub _failure_output {
- my $self = shift;
- $self->_set_colors('red');
- my $out = join '', @_;
- my $has_newline = chomp $out;
- $self->_output($out);
- $self->_set_colors('reset');
- $self->_output($/)
- if $has_newline;
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Formatter/Console/ParallelSession.pm b/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Formatter/Console/ParallelSession.pm
deleted file mode 100644
index 47c4aca..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Formatter/Console/ParallelSession.pm
+++ /dev/null
@@ -1,202 +0,0 @@
-package TAP::Formatter::Console::ParallelSession;
-
-use strict;
-use File::Spec;
-use File::Path;
-use TAP::Formatter::Console::Session;
-use Carp;
-
-use constant WIDTH => 72; # Because Eric says
-use vars qw($VERSION @ISA);
-
- at ISA = qw(TAP::Formatter::Console::Session);
-
-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.21
-
-=cut
-
-$VERSION = '3.21';
-
-=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/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser.pm b/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser.pm
deleted file mode 100644
index 92cefb7..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser.pm
+++ /dev/null
@@ -1,1894 +0,0 @@
-package TAP::Parser;
-
-use strict;
-use vars qw($VERSION @ISA);
-
-use TAP::Base ();
-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 );
-
-=head1 NAME
-
-TAP::Parser - Parse L<TAP|Test::Harness::TAP> output
-
-=head1 VERSION
-
-Version 3.21
-
-=cut
-
-$VERSION = '3.21';
-
-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
- @ISA = qw(TAP::Base);
-
- __PACKAGE__->mk_methods(
- qw(
- _iterator
- _spool
- exec
- exit
- is_good_plan
- plan
- tests_planned
- tests_run
- wait
- version
- in_todo
- start_time
- end_time
- 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/wiki/index.php/TAP::Parser_Cookbook>
-
-=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 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)
- tap => '', # the TAP
- tests_run => 0, # actual current test numbers
- results => [], # TAP parser results
- 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 $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, @$test_args ] } );
- }
- 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->_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<commment> 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 explantion, 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 { @{ shift->{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 { @{ shift->{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 time when the Parser was created.
-
-=head3 C<end_time>
-
-Returns the time 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
-mererely 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 => 'PLANNED' },
- },
- );
-
- # 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 );
-
- # 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 );
-
- # 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;
- 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 COMPATABILITY
-
-The Perl-QA list attempted to ensure backwards compatability 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 in turn 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 customizeable 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
-compatability. 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 L</make_source> & L</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<siterator 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 ACKNOWLEDGEMENTS
-
-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
-
-=back
-
-=head1 AUTHORS
-
-Curtis "Ovid" Poe <ovid at cpan.org>
-
-Andy Armstong <andy at 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 at cpan.org>
-
-Nicholas Clark <nick at ccl4.org>
-
-Lee Johnson <notfadeaway at btinternet dot com>
-
-=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>.
-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/AndyA/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/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Iterator.pm b/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Iterator.pm
deleted file mode 100644
index a6d8916..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Iterator.pm
+++ /dev/null
@@ -1,165 +0,0 @@
-package TAP::Parser::Iterator;
-
-use strict;
-use vars qw($VERSION @ISA);
-
-use TAP::Object ();
-
- at ISA = qw(TAP::Object);
-
-=head1 NAME
-
-TAP::Parser::Iterator - Base class for TAP source iterators
-
-=head1 VERSION
-
-Version 3.21
-
-=cut
-
-$VERSION = '3.21';
-
-=head1 SYNOPSIS
-
- # to subclass:
- use vars qw(@ISA);
- use TAP::Parser::Iterator ();
- @ISA = qw(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/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Iterator/Array.pm b/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Iterator/Array.pm
deleted file mode 100644
index 99d98ca..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Iterator/Array.pm
+++ /dev/null
@@ -1,102 +0,0 @@
-package TAP::Parser::Iterator::Array;
-
-use strict;
-use vars qw($VERSION @ISA);
-
-use TAP::Parser::Iterator ();
-
- at ISA = 'TAP::Parser::Iterator';
-
-=head1 NAME
-
-TAP::Parser::Iterator::Array - Iterator for array-based TAP sources
-
-=head1 VERSION
-
-Version 3.21
-
-=cut
-
-$VERSION = '3.21';
-
-=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/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Iterator/Process.pm b/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Iterator/Process.pm
deleted file mode 100644
index 2621e75..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Iterator/Process.pm
+++ /dev/null
@@ -1,381 +0,0 @@
-package TAP::Parser::Iterator::Process;
-
-use strict;
-use vars qw($VERSION @ISA);
-
-use TAP::Parser::Iterator ();
-use Config;
-use IO::Handle;
-
- at ISA = 'TAP::Parser::Iterator';
-
-my $IS_WIN32 = ( $^O =~ /^(MS)?Win32$/ );
-
-=head1 NAME
-
-TAP::Parser::Iterator::Process - Iterator for proccess-based TAP sources
-
-=head1 VERSION
-
-Version 3.21
-
-=cut
-
-$VERSION = '3.21';
-
-=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
-
-{
-
- local $^W; # no warnings
- # 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;
- local $^W; # 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 ) {
-
- # Kludge to avoid warning under 5.5
- eval '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/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Iterator/Stream.pm b/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Iterator/Stream.pm
deleted file mode 100644
index d905695..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Iterator/Stream.pm
+++ /dev/null
@@ -1,108 +0,0 @@
-package TAP::Parser::Iterator::Stream;
-
-use strict;
-use vars qw($VERSION @ISA);
-
-use TAP::Parser::Iterator ();
-
- at ISA = 'TAP::Parser::Iterator';
-
-=head1 NAME
-
-TAP::Parser::Iterator::Stream - Iterator for filehandle-based TAP sources
-
-=head1 VERSION
-
-Version 3.21
-
-=cut
-
-$VERSION = '3.21';
-
-=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/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result.pm b/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result.pm
deleted file mode 100644
index 44287e8..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result.pm
+++ /dev/null
@@ -1,300 +0,0 @@
-package TAP::Parser::Result;
-
-use strict;
-use vars qw($VERSION @ISA);
-
-use TAP::Object ();
-
- at ISA = '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.21
-
-=cut
-
-$VERSION = '3.21';
-
-=head1 SYNOPSIS
-
- # abstract class - not meany 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 vars '@ISA';
-
- @ISA = '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/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result/Bailout.pm b/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result/Bailout.pm
deleted file mode 100644
index 8aeecfa..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result/Bailout.pm
+++ /dev/null
@@ -1,63 +0,0 @@
-package TAP::Parser::Result::Bailout;
-
-use strict;
-
-use vars qw($VERSION @ISA);
-use TAP::Parser::Result;
- at ISA = 'TAP::Parser::Result';
-
-=head1 NAME
-
-TAP::Parser::Result::Bailout - Bailout result token.
-
-=head1 VERSION
-
-Version 3.21
-
-=cut
-
-$VERSION = '3.21';
-
-=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/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result/Comment.pm b/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result/Comment.pm
deleted file mode 100644
index b5498ab..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result/Comment.pm
+++ /dev/null
@@ -1,61 +0,0 @@
-package TAP::Parser::Result::Comment;
-
-use strict;
-
-use vars qw($VERSION @ISA);
-use TAP::Parser::Result;
- at ISA = 'TAP::Parser::Result';
-
-=head1 NAME
-
-TAP::Parser::Result::Comment - Comment result token.
-
-=head1 VERSION
-
-Version 3.21
-
-=cut
-
-$VERSION = '3.21';
-
-=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/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result/Plan.pm b/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result/Plan.pm
deleted file mode 100644
index 78b77c3..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result/Plan.pm
+++ /dev/null
@@ -1,120 +0,0 @@
-package TAP::Parser::Result::Plan;
-
-use strict;
-
-use vars qw($VERSION @ISA);
-use TAP::Parser::Result;
- at ISA = 'TAP::Parser::Result';
-
-=head1 NAME
-
-TAP::Parser::Result::Plan - Plan result token.
-
-=head1 VERSION
-
-Version 3.21
-
-=cut
-
-$VERSION = '3.21';
-
-=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/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result/Pragma.pm b/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result/Pragma.pm
deleted file mode 100644
index bef77fd..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result/Pragma.pm
+++ /dev/null
@@ -1,63 +0,0 @@
-package TAP::Parser::Result::Pragma;
-
-use strict;
-
-use vars qw($VERSION @ISA);
-use TAP::Parser::Result;
- at ISA = 'TAP::Parser::Result';
-
-=head1 NAME
-
-TAP::Parser::Result::Pragma - TAP pragma token.
-
-=head1 VERSION
-
-Version 3.21
-
-=cut
-
-$VERSION = '3.21';
-
-=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/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result/Test.pm b/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result/Test.pm
deleted file mode 100644
index fcae343..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result/Test.pm
+++ /dev/null
@@ -1,274 +0,0 @@
-package TAP::Parser::Result::Test;
-
-use strict;
-
-use vars qw($VERSION @ISA);
-use TAP::Parser::Result;
- at ISA = 'TAP::Parser::Result';
-
-use vars qw($VERSION);
-
-=head1 NAME
-
-TAP::Parser::Result::Test - Test result token.
-
-=head1 VERSION
-
-Version 3.21
-
-=cut
-
-$VERSION = '3.21';
-
-=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 explantion, 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/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result/YAML.pm b/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result/YAML.pm
deleted file mode 100644
index aa7bc4c..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Result/YAML.pm
+++ /dev/null
@@ -1,62 +0,0 @@
-package TAP::Parser::Result::YAML;
-
-use strict;
-
-use vars qw($VERSION @ISA);
-use TAP::Parser::Result;
- at ISA = 'TAP::Parser::Result';
-
-=head1 NAME
-
-TAP::Parser::Result::YAML - YAML result token.
-
-=head1 VERSION
-
-Version 3.21
-
-=cut
-
-$VERSION = '3.21';
-
-=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/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Source.pm b/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Source.pm
deleted file mode 100644
index 62d3795..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Source.pm
+++ /dev/null
@@ -1,385 +0,0 @@
-package TAP::Parser::Source;
-
-use strict;
-use vars qw($VERSION @ISA);
-
-use TAP::Object ();
-use File::Basename qw( fileparse );
-
- at ISA = qw(TAP::Object);
-
-=head1 NAME
-
-TAP::Parser::Source - a TAP source & meta data about it
-
-=head1 VERSION
-
-Version 3.21
-
-=cut
-
-$VERSION = '3.21';
-
-=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->{text} and $file->{read} ) {
- eval { $file->{shebang} = $self->_read_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 ( $self, $file ) = @_;
- my $shebang;
- local *TEST;
- if ( open( TEST, $file ) ) {
- $shebang = <TEST>;
- chomp $shebang;
- close(TEST) or die "Can't close $file. $!\n";
- }
- else {
- die "Can't open $file. $!\n";
- }
- return $shebang;
- }
-
- 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/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/SourceHandler.pm b/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/SourceHandler.pm
deleted file mode 100644
index 51cff6f..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/SourceHandler.pm
+++ /dev/null
@@ -1,194 +0,0 @@
-package TAP::Parser::SourceHandler;
-
-use strict;
-use vars qw($VERSION @ISA);
-
-use TAP::Object ();
-use TAP::Parser::Iterator ();
-
- at ISA = qw(TAP::Object);
-
-=head1 NAME
-
-TAP::Parser::SourceHandler - Base class for different TAP source handlers
-
-=head1 VERSION
-
-Version 3.21
-
-=cut
-
-$VERSION = '3.21';
-
-=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 qw( 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 an 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 (eg. 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 vars '@ISA'; # compat with older perls
-
- use MySourceHandler; # see TAP::Parser::SourceHandler
- use TAP::Parser::IteratorFactory;
-
- @ISA = qw( 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/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/SourceHandler/Perl.pm b/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/SourceHandler/Perl.pm
deleted file mode 100644
index 7ad427e..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/SourceHandler/Perl.pm
+++ /dev/null
@@ -1,310 +0,0 @@
-package TAP::Parser::SourceHandler::Perl;
-
-use strict;
-use Config;
-use vars qw($VERSION @ISA);
-
-use constant IS_WIN32 => ( $^O =~ /^(MS)?Win32$/ );
-use constant IS_VMS => ( $^O eq 'VMS' );
-
-use TAP::Parser::SourceHandler::Executable ();
-use TAP::Parser::IteratorFactory ();
-use TAP::Parser::Iterator::Process ();
-use TAP::Parser::Utils qw( split_shell );
-
- at ISA = '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.21
-
-=cut
-
-$VERSION = '3.21';
-
-=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.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/;
- }
-
- 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 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( \*STDOUT );
- $class->_autoflush( \*STDERR );
-
- my @switches = $class->_switches($source);
- 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/ && / ^ ['"]? -I ['"]? (.*?) ['"]? $ /x ) {
- push @libs, $1;
- }
- else {
- push @filtered_switches, $_;
- }
- }
- @switches = @filtered_switches;
-
- my $setup = sub {
- if (@libs) {
- $ENV{PERL5LIB}
- = join( $path_sep, grep {defined} @libs, $ENV{PERL5LIB} );
- }
- };
-
- # Cargo culted from comments seen elsewhere about VMS / environment
- # variables. I don't know if this is actually necessary.
- my $previous = $ENV{PERL5LIB};
- my $teardown = sub {
- if ( defined $previous ) {
- $ENV{PERL5LIB} = $previous;
- }
- else {
- delete $ENV{PERL5LIB};
- }
- };
-
- # 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 ( grep { $_ eq "-T" || $_ eq "-t" } @switches ) {
- push @switches, $class->_libs2switches(@libs);
- push @switches, split_shell( $ENV{PERL5OPT} );
- }
-
- my @command = $class->_get_command_for_switches( $source, @switches )
- or $class->_croak("No command found!");
-
- 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 {$_} @_;
-}
-
-=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 @args = @{ $source->test_args || [] };
- 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 Win32::GetShortPathName($^X) if IS_WIN32;
- return $^X;
-}
-
-1;
-
-__END__
-
-=head1 SUBCLASSING
-
-Please see L<TAP::Parser/SUBCLASSING> for a subclassing overview.
-
-=head2 Example
-
- package MyPerlSourceHandler;
-
- use strict;
- use vars '@ISA';
-
- use TAP::Parser::SourceHandler::Perl;
-
- @ISA = qw( 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/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/SourceHandler/RawTAP.pm b/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/SourceHandler/RawTAP.pm
deleted file mode 100644
index 9978e5c..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/SourceHandler/RawTAP.pm
+++ /dev/null
@@ -1,131 +0,0 @@
-package TAP::Parser::SourceHandler::RawTAP;
-
-use strict;
-use vars qw($VERSION @ISA);
-
-use TAP::Parser::SourceHandler ();
-use TAP::Parser::IteratorFactory ();
-use TAP::Parser::Iterator::Array ();
-
- at ISA = qw(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.21
-
-=cut
-
-$VERSION = '3.21';
-
-=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/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/SourceHandler/pgTAP.pm b/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/SourceHandler/pgTAP.pm
deleted file mode 100644
index 95c6e52..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/SourceHandler/pgTAP.pm
+++ /dev/null
@@ -1,253 +0,0 @@
-package TAP::Parser::SourceHandler::pgTAP;
-
-use strict;
-use vars qw($VERSION @ISA);
-
-use TAP::Parser::IteratorFactory ();
-use TAP::Parser::Iterator::Process ();
-
- at ISA = qw(TAP::Parser::SourceHandler);
-TAP::Parser::IteratorFactory->register_handler(__PACKAGE__);
-
-=head1 NAME
-
-TAP::Parser::SourceHandler::pgTAP - Stream TAP from pgTAP test scripts
-
-=head1 VERSION
-
-Version 3.21
-
-=cut
-
-$VERSION = '3.21';
-
-=head1 SYNOPSIS
-
-In F<Build.PL> for your application with pgTAP tests in F<t/*.pg>:
-
- Module::Build->new(
- module_name => 'MyApp',
- test_file_exts => [qw(.t .pg)],
- use_tap_harness => 1,
- tap_harness_args => {
- sources => {
- Perl => undef,
- pgTAP => {
- dbname => 'try',
- username => 'postgres',
- suffix => '.pg',
- },
- }
- },
- build_requires => {
- 'Module::Build' => '0.30',
- 'TAP::Parser::SourceHandler::pgTAP' => '3.19',
- },
- )->create_build_script;
-
-If you're using L<C<prove>|prove>:
-
- prove --source Perl \
- --source pgTAP --pgtap-option dbname=try \
- --pgtap-option username=postgres \
- --pgtap-option suffix=.pg
-
-Direct use:
-
- use TAP::Parser::Source;
- use TAP::Parser::SourceHandler::pgTAP;
-
- my $source = TAP::Parser::Source->new->raw(\'mytest.pg');
- $source->config({ pgTAP => {
- dbname => 'testing',
- username => 'postgres',
- suffix => '.pg',
- });
- $source->assemble_meta;
-
- my $class = 'TAP::Parser::SourceHandler::pgTAP';
- my $vote = $class->can_handle( $source );
- my $iter = $class->make_iterator( $source );
-
-=head1 DESCRIPTION
-
-This source handler executes pgTAP tests. It does two things:
-
-=over
-
-=item 1.
-
-Looks at the L<TAP::Parser::Source> passed to it to determine whether or not
-the source in question is in fact a pgTAP test (L</can_handle>).
-
-=item 2.
-
-Creates an iterator that will call C<psql> to run the pgTAP tests
-(L</make_iterator>).
-
-=back
-
-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 );
-
-Looks at the source to determine whether or not it's a pgTAP test file and
-returns a score for how likely it is in fact a pgTAP test file. The scores are
-as follows:
-
- 1 if it has a suffix equal to that in the "suffix" config
- 1 if its suffix is ".pg"
- 0.8 if its suffix is ".sql"
- 0.75 if its suffix is ".s"
-
-The latter two scores are subject to change, so try to name your pgTAP tests
-ending in ".pg" or specify a suffix in the configuration to be sure.
-
-=cut
-
-sub can_handle {
- my ( $class, $source ) = @_;
- my $meta = $source->meta;
-
- return 0 unless $meta->{is_file};
-
- my $suf = $meta->{file}{lc_ext};
-
- # If the config specifies a suffix, it's required.
- if ( my $config = $source->config_for('pgTAP') ) {
- if ( defined $config->{suffix} ) {
- return $suf eq $config->{suffix} ? 1 : 0;
- }
- }
-
- # Otherwise, return a score for our supported suffixes.
- my %score_for = (
- '.pg' => 0.9,
- '.sql' => 0.8,
- '.s' => 0.75,
- );
- return $score_for{$suf} || 0;
-}
-
-=head3 C<make_iterator>
-
- my $iterator = $class->make_iterator( $source );
-
-Returns a new L<TAP::Parser::Iterator::Process> for the source. C<<
-$source->raw >> must be either a file name or a scalar reference to the file
-name.
-
-The pgTAP tests are run by executing C<psql>, the PostgreSQL command-line
-utility. A number of arguments are passed to it, many of which you can effect
-by setting up the source source configuration. The configuration must be a
-hash reference, and supports the following keys:
-
-=over
-
-=item C<psql>
-
-The path to the C<psql> command. Defaults to simply "psql", which should work
-well enough if it's in your path.
-
-=item C<dbname>
-
-The database to which to connect to run the tests. Defaults to the value of
-the C<$PGDATABASE> environment variable or, if not set, to the system
-username.
-
-=item C<username>
-
-The PostgreSQL username to use to connect to PostgreSQL. If not specified, no
-username will be used, in which case C<psql> will fall back on either the
-C<$PGUSER> environment variable or, if not set, the system username.
-
-=item C<host>
-
-Specifies the host name of the machine to which to connect to the PostgreSQL
-server. If the value begins with a slash, it is used as the directory for the
-Unix-domain socket. Defaults to the value of the C<$PGDATABASE> environment
-variable or, if not set, the local host.
-
-=item C<port>
-
-Specifies the TCP port or the local Unix-domain socket file extension on which
-the server is listening for connections. Defaults to the value of the
-C<$PGPORT> environment variable or, if not set, to the port specified at the
-time C<psql> was compiled, usually 5432.
-
-=begin comment
-
-=item C<search_path>
-
-The schema search path to use during the execution of the tests. Useful for
-overriding the default search path and you have pgTAP installed in a schema
-not included in that search path.
-
-=end comment
-
-=back
-
-=cut
-
-sub make_iterator {
- my ( $class, $source ) = @_;
- my $config = $source->config_for('pgTAP');
-
- my @command = ( $config->{psql} || 'psql' );
- push @command, qw(
- --no-psqlrc
- --no-align
- --quiet
- --pset pager=
- --pset tuples_only=true
- --set ON_ERROR_ROLLBACK=1
- --set ON_ERROR_STOP=1
- );
-
- for (qw(username host port dbname)) {
- push @command, "--$_" => $config->{$_} if defined $config->{$_};
- }
-
- my $fn = ref $source->raw ? ${ $source->raw } : $source->raw;
- $class->_croak(
- 'No such file or directory: ' . ( defined $fn ? $fn : '' ) )
- unless $fn && -e $fn;
-
- push @command, '--file', $fn;
-
- # XXX I'd like a way to be able to specify environment variables to set when
- # the iterator executes the command...
- # local $ENV{PGOPTIONS} = "--search_path=$config->{search_path}"
- # if $config->{search_path};
-
- return TAP::Parser::Iterator::Process->new(
- { command => \@command,
- merge => $source->merge
- }
- );
-}
-
-=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>,
-L<TAP::Parser::SourceHandler::RawTAP>
-
-=head1 AUTHOR
-
-David E. Wheeler <dwheeler at cpan.org>
-
-=cut
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Utils.pm b/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Utils.pm
deleted file mode 100644
index e7c5345..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/lib/TAP/Parser/Utils.pm
+++ /dev/null
@@ -1,72 +0,0 @@
-package TAP::Parser::Utils;
-
-use strict;
-use Exporter;
-use vars qw($VERSION @ISA @EXPORT_OK);
-
- at ISA = qw( Exporter );
- at EXPORT_OK = qw( split_shell );
-
-=head1 NAME
-
-TAP::Parser::Utils - Internal TAP::Parser utilities
-
-=head1 VERSION
-
-Version 3.21
-
-=cut
-
-$VERSION = '3.21';
-
-=head1 SYNOPSIS
-
- use TAP::Parser::Utils qw( split_shell )
- my @switches = split_shell( $arg );
-
-=head1 DESCRIPTION
-
-B<FOR INTERNAL USE ONLY!>
-
-=head2 INTERFACE
-
-=head3 C<split_shell>
-
-Shell style argument parsing. Handles backslash escaping, single and
-double quoted strings but not shell substitutions.
-
-Pass one or more strings containing shell escaped arguments. The return
-value is an array of arguments parsed from the input strings according
-to (approximate) shell parsing rules. It's legal to pass C<undef> in
-which case an empty array will be returned. That makes it possible to
-
- my @args = split_shell( $ENV{SOME_ENV_VAR} );
-
-without worrying about whether the environment variable exists.
-
-This is used to split HARNESS_PERL_ARGS into individual switches.
-
-=cut
-
-sub split_shell {
- my @parts = ();
-
- for my $switch ( grep defined && length, @_ ) {
- push @parts, $1 while $switch =~ /
- (
- (?: [^\\"'\s]+
- | \\.
- | " (?: \\. | [^"] )* "
- | ' (?: \\. | [^'] )* '
- )+
- ) /xg;
- }
-
- for (@parts) {
- s/ \\(.) | ['"] /defined $1 ? $1 : ''/exg;
- }
-
- return @parts;
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/lib/Test/Harness.pm b/3.8.8/sources/cpan-Test-Harness/vendor/lib/Test/Harness.pm
deleted file mode 100644
index a528301..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/lib/Test/Harness.pm
+++ /dev/null
@@ -1,591 +0,0 @@
-package Test::Harness;
-
-require 5.00405;
-
-use strict;
-
-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 TAP::Parser::Utils qw( split_shell );
-
-use Config;
-use Exporter;
-
-# TODO: Emulate at least some of these
-use vars qw(
- $VERSION
- @ISA @EXPORT @EXPORT_OK
- $Verbose $Switches $Debug
- $verbose $switches $debug
- $Columns
- $Color
- $Directives
- $Timer
- $Strap
- $HarnessSubclass
- $has_time_hires
- $IgnoreExit
-);
-
-# $ML $Last_ML_Print
-
-BEGIN {
- eval q{use Time::HiRes 'time'};
- $has_time_hires = !$@;
-}
-
-=head1 NAME
-
-Test::Harness - Run Perl standard test scripts with statistics
-
-=head1 VERSION
-
-Version 3.21
-
-=cut
-
-$VERSION = '3.21';
-
-# 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};
-}
-
- at ISA = ('Exporter');
- at EXPORT = qw(&runtests);
- at EXPORT_OK = qw(&execute_tests $verbose $switches);
-
-$Verbose = $ENV{HARNESS_VERBOSE} || 0;
-$Debug = $ENV{HARNESS_DEBUG} || 0;
-$Switches = '-w';
-$Columns = $ENV{HARNESS_COLUMNS} || $ENV{COLUMNS} || 80;
-$Columns--; # Some shells have trouble with a full line of text.
-$Timer = $ENV{HARNESS_TIMER} || 0;
-$Color = $ENV{HARNESS_COLOR} || 0;
-$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 seens 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 = split_shell( $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 => $Directives,
- lib => \@lib,
- switches => \@switches,
- color => $Color,
- verbosity => $verbosity,
- ignore_exit => $IgnoreExit,
- };
-
- $args->{stdout} = $sub_args->{out}
- if exists $sub_args->{out};
-
- 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;
- }
- else {
- die "Unknown HARNESS_OPTIONS item: $opt\n";
- }
- }
- }
-
- my $class = $ENV{HARNESS_SUBCLASS} || 'TAP::Harness';
- 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_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">.
-
-=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.
-
-=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 at 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-2008, Andy Armstrong C<< <andy at 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/3.8.8/sources/cpan-Test-Harness/vendor/perlcriticrc b/3.8.8/sources/cpan-Test-Harness/vendor/perlcriticrc
deleted file mode 100644
index 99ac38e..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/perlcriticrc
+++ /dev/null
@@ -1,28 +0,0 @@
-[-CodeLayout::ProhibitParensWithBuiltins]
-[CodeLayout::ProhibitHardTabs]
-allow_leading_tabs = 0
-
-[-ControlStructures::ProhibitPostfixControls]
-
-[-Documentation::RequirePodAtEnd]
-[-Documentation::RequirePodSections]
-
-[-ErrorHandling::RequireCarping]
-
-[-InputOutput::ProhibitInteractiveTest]
-[-InputOutput::ProhibitBacktickOperators]
-
-[-Miscellanea::RequireRcsKeywords]
-
-[-Modules::RequireVersionVar]
-
-[-RegularExpressions::RequireExtendedFormatting]
-[-RegularExpressions::RequireLineBoundaryMatching]
-
-[-ValuesAndExpressions::ProhibitNoisyQuotes]
-[-ValuesAndExpressions::ProhibitEmptyQuotes]
-
-[Variables::ProhibitPackageVars]
-#add_packages = Test::Builder App::Ack File::Next
-
-[-Variables::ProhibitPunctuationVars]
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/callbacks.t b/3.8.8/sources/cpan-Test-Harness/vendor/t/callbacks.t
deleted file mode 100644
index ee52092..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/callbacks.t
+++ /dev/null
@@ -1,115 +0,0 @@
-#!/usr/bin/perl -wT
-
-use strict;
-use lib 't/lib';
-
-use Test::More tests => 10;
-
-use TAP::Parser;
-use TAP::Parser::Iterator::Array;
-
-my $tap = <<'END_TAP';
-1..5
-ok 1 - input file opened
-... this is junk
-not ok first line of the input valid # todo some data
-# this is a comment
-ok 3 - read the rest of the file
-not ok 4 - this is a real failure
-ok 5 # skip we have no description
-END_TAP
-
-my @tests;
-my $plan_output;
-my $todo = 0;
-my $skip = 0;
-my %callbacks = (
- test => sub {
- my $test = shift;
- push @tests => $test;
- $todo++ if $test->has_todo;
- $skip++ if $test->has_skip;
- },
- plan => sub {
- my $plan = shift;
- $plan_output = $plan->as_string;
- }
-);
-
-my $iterator = TAP::Parser::Iterator::Array->new( [ split /\n/ => $tap ] );
-my $parser = TAP::Parser->new(
- { iterator => $iterator,
- callbacks => \%callbacks,
- }
-);
-
-can_ok $parser, 'run';
-$parser->run;
-is $plan_output, '1..5', 'Plan callbacks should succeed';
-is scalar @tests, $parser->tests_run, '... as should the test callbacks';
-
- at tests = ();
-$plan_output = '';
-$todo = 0;
-$skip = 0;
-my $else = 0;
-my $all = 0;
-my $end = 0;
-%callbacks = (
- test => sub {
- my $test = shift;
- push @tests => $test;
- $todo++ if $test->has_todo;
- $skip++ if $test->has_skip;
- },
- plan => sub {
- my $plan = shift;
- $plan_output = $plan->as_string;
- },
- EOF => sub {
- my $p = shift;
- $end = 1 if $all == 8 and $p->isa('TAP::Parser');
- },
- ELSE => sub {
- $else++;
- },
- ALL => sub {
- $all++;
- },
-);
-
-$iterator = TAP::Parser::Iterator::Array->new( [ split /\n/ => $tap ] );
-$parser = TAP::Parser->new(
- { iterator => $iterator,
- callbacks => \%callbacks,
- }
-);
-
-can_ok $parser, 'run';
-$parser->run;
-is $plan_output, '1..5', 'Plan callbacks should succeed';
-is scalar @tests, $parser->tests_run, '... as should the test callbacks';
-is $else, 2, '... and the correct number of "ELSE" lines should be seen';
-is $all, 8, '... and the correct total number of lines should be seen';
-is $end, 1, 'EOF callback correctly called';
-
-# Check callback name policing
-
-%callbacks = (
- sometest => sub { },
- plan => sub { },
- random => sub { },
- ALL => sub { },
- ELSES => sub { },
-);
-
-$iterator = TAP::Parser::Iterator::Array->new( [ split /\n/ => $tap ] );
-eval {
- $parser = TAP::Parser->new(
- { iterator => $iterator,
- callbacks => \%callbacks,
- }
- );
-};
-
-like $@, qr/Callback/, 'Bad callback keys faulted';
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/compat/env.t b/3.8.8/sources/cpan-Test-Harness/vendor/t/compat/env.t
deleted file mode 100644
index ac5c096..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/compat/env.t
+++ /dev/null
@@ -1,39 +0,0 @@
-#!/usr/bin/perl -w
-
-# Test that env vars are honoured.
-
-use strict;
-use lib 't/lib';
-
-use Test::More (
- $^O eq 'VMS'
- ? ( skip_all => 'VMS' )
- : ( tests => 1 )
-);
-
-use Test::Harness;
-
-# HARNESS_PERL_SWITCHES
-
-my $test_template = <<'END';
-#!/usr/bin/perl
-
-use Test::More tests => 1;
-
-is $ENV{HARNESS_PERL_SWITCHES}, '-w';
-END
-
-open TEST, ">env_check_t.tmp";
-print TEST $test_template;
-close TEST;
-
-END { unlink 'env_check_t.tmp'; }
-
-{
- local $ENV{HARNESS_PERL_SWITCHES} = '-w';
- my ( $tot, $failed )
- = Test::Harness::execute_tests( tests => ['env_check_t.tmp'] );
- is $tot->{bad}, 0;
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/compat/version.t b/3.8.8/sources/cpan-Test-Harness/vendor/t/compat/version.t
deleted file mode 100644
index 08344cb..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/compat/version.t
+++ /dev/null
@@ -1,11 +0,0 @@
-#!/usr/bin/perl -Tw
-
-use strict;
-use lib 't/lib';
-
-use Test::More tests => 2;
-use Test::Harness;
-
-my $ver = $ENV{HARNESS_VERSION} or die "HARNESS_VERSION not set";
-ok( $ver =~ /^[23].\d\d(_\d\d)?$/, "Version is proper format" );
-is( $ver, $Test::Harness::VERSION );
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/data/sample.yml b/3.8.8/sources/cpan-Test-Harness/vendor/t/data/sample.yml
deleted file mode 100644
index 6c4b7fb..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/data/sample.yml
+++ /dev/null
@@ -1,29 +0,0 @@
----
-invoice: 34843
-date : 2001-01-23
-bill-to:
- given : Chris
- family : Dumars
- address:
- lines: |
- 458 Walkman Dr.
- Suite #292
- city : Royal Oak
- state : MI
- postal : 48046
-product:
- - sku : BL394D
- quantity : 4
- description : Basketball
- price : 450.00
- - sku : BL4438H
- quantity : 1
- description : Super Hoop
- price : 2392.00
-tax : 251.42
-total: 4443.52
-comments: >
- Late afternoon is best.
- Backup contact is Nancy
- Billsmer @ 338-4338
-
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/file.t b/3.8.8/sources/cpan-Test-Harness/vendor/t/file.t
deleted file mode 100644
index 40793c3..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/file.t
+++ /dev/null
@@ -1,483 +0,0 @@
-#!/usr/bin/perl -w
-
-BEGIN {
- if ( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ( '../lib', '../ext/Test-Harness/t/lib' );
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-
-use strict;
-
-use Test::More;
-
-use TAP::Harness;
-
-my $HARNESS = 'TAP::Harness';
-
-my $source_tests
- = $ENV{PERL_CORE} ? '../ext/Test-Harness/t/source_tests' : 't/source_tests';
-my $sample_tests
- = $ENV{PERL_CORE} ? '../ext/Test-Harness/t/sample-tests' : 't/sample-tests';
-
-plan tests => 56;
-
-# note that this test will always pass when run through 'prove'
-ok $ENV{HARNESS_ACTIVE}, 'HARNESS_ACTIVE env variable should be set';
-ok $ENV{HARNESS_VERSION}, 'HARNESS_VERSION env variable should be set';
-
-{
- my @output;
- local $^W;
- require TAP::Formatter::Base;
- local *TAP::Formatter::Base::_output = sub {
- my $self = shift;
- push @output => grep { $_ ne '' }
- map {
- local $_ = $_;
- chomp;
- trim($_)
- } map { split /\n/ } @_;
- };
-
- # Make sure verbosity 1 overrides failures and comments.
- my $harness = TAP::Harness->new(
- { verbosity => 1,
- failures => 1,
- comments => 1,
- }
- );
- my $harness_whisper = TAP::Harness->new( { verbosity => -1 } );
- my $harness_mute = TAP::Harness->new( { verbosity => -2 } );
- my $harness_directives = TAP::Harness->new( { directives => 1 } );
- my $harness_failures = TAP::Harness->new( { failures => 1 } );
- my $harness_comments = TAP::Harness->new( { comments => 1 } );
- my $harness_fandc = TAP::Harness->new(
- { failures => 1,
- comments => 1
- }
- );
-
- can_ok $harness, 'runtests';
-
- # normal tests in verbose mode
-
- ok my $aggregate = _runtests( $harness, "$source_tests/harness" ),
- '... runtests returns the aggregate';
-
- isa_ok $aggregate, 'TAP::Parser::Aggregator';
-
- chomp(@output);
-
- my @expected = (
- "$source_tests/harness ..",
- '1..1',
- 'ok 1 - this is a test',
- 'ok',
- 'All tests successful.',
- );
- my $status = pop @output;
- my $expected_status = qr{^Result: PASS$};
- my $summary = pop @output;
- my $expected_summary = qr{^Files=1, Tests=1, \d+ wallclock secs};
-
- is_deeply \@output, \@expected, '... the output should be correct';
- like $status, $expected_status,
- '... and the status line should be correct';
- like $summary, $expected_summary,
- '... and the report summary should look correct';
-
- # use an alias for test name
-
- @output = ();
- ok $aggregate
- = _runtests( $harness, [ "$source_tests/harness", 'My Nice Test' ] ),
- 'runtests returns the aggregate';
-
- isa_ok $aggregate, 'TAP::Parser::Aggregator';
-
- chomp(@output);
-
- @expected = (
- 'My Nice Test ..',
- '1..1',
- 'ok 1 - this is a test',
- 'ok',
- 'All tests successful.',
- );
- $status = pop @output;
- $expected_status = qr{^Result: PASS$};
- $summary = pop @output;
- $expected_summary = qr{^Files=1, Tests=1, \d+ wallclock secs};
-
- is_deeply \@output, \@expected, '... the output should be correct';
- like $status, $expected_status,
- '... and the status line should be correct';
- like $summary, $expected_summary,
- '... and the report summary should look correct';
-
- # run same test twice
-
- @output = ();
- ok $aggregate = _runtests(
- $harness, [ "$source_tests/harness", 'My Nice Test' ],
- [ "$source_tests/harness", 'My Nice Test Again' ]
- ),
- 'runtests labels returns the aggregate';
-
- isa_ok $aggregate, 'TAP::Parser::Aggregator';
-
- chomp(@output);
-
- @expected = (
- 'My Nice Test ........',
- '1..1',
- 'ok 1 - this is a test',
- 'ok',
- 'My Nice Test Again ..',
- '1..1',
- 'ok 1 - this is a test',
- 'ok',
- 'All tests successful.',
- );
- $status = pop @output;
- $expected_status = qr{^Result: PASS$};
- $summary = pop @output;
- $expected_summary = qr{^Files=2, Tests=2, \d+ wallclock secs};
-
- is_deeply \@output, \@expected, '... the output should be correct';
- like $status, $expected_status,
- '... and the status line should be correct';
- like $summary, $expected_summary,
- '... and the report summary should look correct';
-
- # normal tests in quiet mode
-
- @output = ();
- ok _runtests( $harness_whisper, "$source_tests/harness" ),
- 'Run tests with whisper';
-
- chomp(@output);
- @expected = (
- "$source_tests/harness .. ok",
- 'All tests successful.',
- );
-
- $status = pop @output;
- $expected_status = qr{^Result: PASS$};
- $summary = pop @output;
- $expected_summary = qr/^Files=1, Tests=1, \d+ wallclock secs/;
-
- is_deeply \@output, \@expected, '... the output should be correct';
- like $status, $expected_status,
- '... and the status line should be correct';
- like $summary, $expected_summary,
- '... and the report summary should look correct';
-
- # normal tests in really_quiet mode
-
- @output = ();
- ok _runtests( $harness_mute, "$source_tests/harness" ), 'Run tests mute';
-
- chomp(@output);
- @expected = (
- 'All tests successful.',
- );
-
- $status = pop @output;
- $expected_status = qr{^Result: PASS$};
- $summary = pop @output;
- $expected_summary = qr/^Files=1, Tests=1, \d+ wallclock secs/;
-
- is_deeply \@output, \@expected, '... the output should be correct';
- like $status, $expected_status,
- '... and the status line should be correct';
- like $summary, $expected_summary,
- '... and the report summary should look correct';
-
- # normal tests with failures
-
- @output = ();
- ok _runtests( $harness, "$source_tests/harness_failure" ),
- 'Run tests with failures';
-
- $status = pop @output;
- $summary = pop @output;
-
- like $status, qr{^Result: FAIL$}, '... the status line should be correct';
-
- my @summary = @output[ 9 .. $#output ];
- @output = @output[ 0 .. 8 ];
-
- @expected = (
- "$source_tests/harness_failure ..",
- '1..2',
- 'ok 1 - this is a test',
- 'not ok 2 - this is another test',
- q{# Failed test 'this is another test'},
- '# in harness_failure.t at line 5.',
- q{# got: 'waffle'},
- q{# expected: 'yarblokos'},
- 'Failed 1/2 subtests',
- );
-
- is_deeply \@output, \@expected,
- '... and failing test output should be correct';
-
- my @expected_summary = (
- 'Test Summary Report',
- '-------------------',
- "$source_tests/harness_failure (Wstat: 0 Tests: 2 Failed: 1)",
- 'Failed test:',
- '2',
- );
-
- is_deeply \@summary, \@expected_summary,
- '... and the failure summary should also be correct';
-
- # quiet tests with failures
-
- @output = ();
- ok _runtests( $harness_whisper, "$source_tests/harness_failure" ),
- 'Run whisper tests with failures';
-
- $status = pop @output;
- $summary = pop @output;
- @expected = (
- "$source_tests/harness_failure ..",
- 'Failed 1/2 subtests',
- 'Test Summary Report',
- '-------------------',
- "$source_tests/harness_failure (Wstat: 0 Tests: 2 Failed: 1)",
- 'Failed test:',
- '2',
- );
-
- like $status, qr{^Result: FAIL$}, '... the status line should be correct';
-
- is_deeply \@output, \@expected,
- '... and failing test output should be correct';
-
- # really quiet tests with failures
-
- @output = ();
- ok _runtests( $harness_mute, "$source_tests/harness_failure" ),
- 'Run mute tests with failures';
-
- $status = pop @output;
- $summary = pop @output;
- @expected = (
- 'Test Summary Report',
- '-------------------',
- "$source_tests/harness_failure (Wstat: 0 Tests: 2 Failed: 1)",
- 'Failed test:',
- '2',
- );
-
- like $status, qr{^Result: FAIL$}, '... the status line should be correct';
-
- is_deeply \@output, \@expected,
- '... and failing test output should be correct';
-
- # only show directives
-
- @output = ();
- ok _runtests(
- $harness_directives,
- "$source_tests/harness_directives"
- ),
- 'Run tests with directives';
-
- chomp(@output);
-
- @expected = (
- "$source_tests/harness_directives ..",
- 'not ok 2 - we have a something # TODO some output',
- "ok 3 houston, we don't have liftoff # SKIP no funding",
- 'ok',
- 'All tests successful.',
-
- # ~TODO {{{ this should be an option
- #'Test Summary Report',
- #'-------------------',
- #"$source_tests/harness_directives (Wstat: 0 Tests: 3 Failed: 0)",
- #'Tests skipped:',
- #'3',
- # }}}
- );
-
- $status = pop @output;
- $summary = pop @output;
- $expected_summary = qr/^Files=1, Tests=3, \d+ wallclock secs/;
-
- is_deeply \@output, \@expected, '... the output should be correct';
- like $summary, $expected_summary,
- '... and the report summary should look correct';
-
- like $status, qr{^Result: PASS$},
- '... and the status line should be correct';
-
- # normal tests with bad tap
-
- @output = ();
- ok _runtests( $harness, "$source_tests/harness_badtap" ),
- 'Run tests with bad TAP';
- chomp(@output);
-
- @output = map { trim($_) } @output;
- $status = pop @output;
- @summary = @output[ 6 .. ( $#output - 1 ) ];
- @output = @output[ 0 .. 5 ];
- @expected = (
- "$source_tests/harness_badtap ..",
- '1..2',
- 'ok 1 - this is a test',
- 'not ok 2 - this is another test',
- '1..2',
- 'Failed 1/2 subtests',
- );
- is_deeply \@output, \@expected,
- '... failing test output should be correct';
- like $status, qr{^Result: FAIL$},
- '... and the status line should be correct';
- @expected_summary = (
- 'Test Summary Report',
- '-------------------',
- "$source_tests/harness_badtap (Wstat: 0 Tests: 2 Failed: 1)",
- 'Failed test:',
- '2',
- 'Parse errors: More than one plan found in TAP output',
- );
- is_deeply \@summary, \@expected_summary,
- '... and the badtap summary should also be correct';
-
- # coverage testing for _should_show_failures
- # only show failures
-
- @output = ();
- ok _runtests( $harness_failures, "$source_tests/harness_failure" ),
- 'Run tests with failures only';
-
- chomp(@output);
-
- @expected = (
- "$source_tests/harness_failure ..",
- 'not ok 2 - this is another test',
- 'Failed 1/2 subtests',
- 'Test Summary Report',
- '-------------------',
- "$source_tests/harness_failure (Wstat: 0 Tests: 2 Failed: 1)",
- 'Failed test:',
- '2',
- );
-
- $status = pop @output;
- $summary = pop @output;
-
- like $status, qr{^Result: FAIL$}, '... the status line should be correct';
- $expected_summary = qr/^Files=1, Tests=2, \d+ wallclock secs/;
- is_deeply \@output, \@expected, '... and the output should be correct';
-
- # check the status output for no tests
-
- @output = ();
- ok _runtests( $harness_failures, "$sample_tests/no_output" ),
- 'Run tests with failures';
-
- chomp(@output);
-
- @expected = (
- "$sample_tests/no_output ..",
- 'No subtests run',
- 'Test Summary Report',
- '-------------------',
- "$sample_tests/no_output (Wstat: 0 Tests: 0 Failed: 0)",
- 'Parse errors: No plan found in TAP output',
- );
-
- $status = pop @output;
- $summary = pop @output;
-
- like $status, qr{^Result: FAIL$}, '... the status line should be correct';
- $expected_summary = qr/^Files=1, Tests=2, \d+ wallclock secs/;
- is_deeply \@output, \@expected, '... and the output should be correct';
-
- # coverage testing for _should_show_comments
- # only show comments
-
- @output = ();
- ok _runtests( $harness_comments, "$source_tests/harness_failure" ),
- 'Run tests with comments';
- chomp(@output);
-
- @expected = (
- "$source_tests/harness_failure ..",
- q{# Failed test 'this is another test'},
- '# in harness_failure.t at line 5.',
- q{# got: 'waffle'},
- q{# expected: 'yarblokos'},
- 'Failed 1/2 subtests',
- 'Test Summary Report',
- '-------------------',
- "$source_tests/harness_failure (Wstat: 0 Tests: 2 Failed: 1)",
- 'Failed test:',
- '2',
- );
-
- $status = pop @output;
- $summary = pop @output;
-
- like $status, qr{^Result: FAIL$}, '... the status line should be correct';
- $expected_summary = qr/^Files=1, Tests=2, \d+ wallclock secs/;
- is_deeply \@output, \@expected, '... and the output should be correct';
-
- # coverage testing for _should_show_comments and _should_show_failures
- # only show comments and failures
-
- @output = ();
- $ENV{FOO} = 1;
- ok _runtests( $harness_fandc, "$source_tests/harness_failure" ),
- 'Run tests with failures and comments';
- delete $ENV{FOO};
- chomp(@output);
-
- @expected = (
- "$source_tests/harness_failure ..",
- 'not ok 2 - this is another test',
- q{# Failed test 'this is another test'},
- '# in harness_failure.t at line 5.',
- q{# got: 'waffle'},
- q{# expected: 'yarblokos'},
- 'Failed 1/2 subtests',
- 'Test Summary Report',
- '-------------------',
- "$source_tests/harness_failure (Wstat: 0 Tests: 2 Failed: 1)",
- 'Failed test:',
- '2',
- );
-
- $status = pop @output;
- $summary = pop @output;
-
- like $status, qr{^Result: FAIL$}, '... the status line should be correct';
- $expected_summary = qr/^Files=1, Tests=2, \d+ wallclock secs/;
- is_deeply \@output, \@expected, '... and the output should be correct';
-
- #XXXX
-}
-
-sub trim {
- $_[0] =~ s/^\s+|\s+$//g;
- return $_[0];
-}
-
-sub _runtests {
- my ( $harness, @tests ) = @_;
- local $ENV{PERL_TEST_HARNESS_DUMP_TAP} = 0;
- my $aggregate = $harness->runtests(@tests);
- return $aggregate;
-}
-
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/glob-to-regexp.t b/3.8.8/sources/cpan-Test-Harness/vendor/t/glob-to-regexp.t
deleted file mode 100644
index 54b7e26..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/glob-to-regexp.t
+++ /dev/null
@@ -1,44 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-
-use Test::More;
-
-require TAP::Parser::Scheduler;
-
-my @tests;
-while (<DATA>) {
- my ( $glob, $pattern, $name ) = /^(\S+)\t+(\S+)(?:\t+(.*))?$/;
- die "'$_'" unless $pattern;
- push @tests, [ $glob, $pattern, $name ];
-}
-
-plan tests => scalar @tests;
-
-for (@tests) {
- my ( $glob, $pattern, $name ) = @$_;
- is( TAP::Parser::Scheduler->_glob_to_regexp($glob), $pattern,
- defined $name ? "$glob -- $name" : $glob
- );
-}
-__DATA__
-Pie Pie
-*.t [^/]*\.t
-**.t .*?\.t
-A?B A[^/]B
-*/*.t [^/]*\/[^/]*\.t
-A,B A\,B , outside {} not special
-{A,B} (?:A|B)
-A{B}C A(?:B)C
-A{B,C}D A(?:B|C)D
-A{B,C,D}E{F,G,H}I,J A(?:B|C|D)E(?:F|G|H)I\,J
-{Perl,Rules} (?:Perl|Rules)
-A}B A\}B Bare } corner case
-A{B,C}D}E A(?:B|C)D\}E
-},A{B,C}D},E \}\,A(?:B|C)D\}\,E
-{A{1,2},D{3,4}} (?:A(?:1|2)|D(?:3|4))
-{A,{B,C},D} (?:A|(?:B|C)|D)
-A{B,C\}D,E\,F}G A(?:B|C\}D|E\,F)G
-A\\B A\\B
-A(B)C A\(B\)C
-1{A(B)C,D|E}2 1(?:A\(B\)C|D\|E)2
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/harness-subclass.t b/3.8.8/sources/cpan-Test-Harness/vendor/t/harness-subclass.t
deleted file mode 100644
index c7d30c8..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/harness-subclass.t
+++ /dev/null
@@ -1,75 +0,0 @@
-#!/usr/bin/perl -w
-
-BEGIN {
- if ( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ( '../lib', '../ext/Test-Harness/t/lib' );
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-
-use strict;
-use TAP::Harness;
-use Test::More tests => 13;
-
-my %class_map = (
- aggregator_class => 'My::TAP::Parser::Aggregator',
- formatter_class => 'My::TAP::Formatter::Console',
- multiplexer_class => 'My::TAP::Parser::Multiplexer',
- parser_class => 'My::TAP::Parser',
- scheduler_class => 'My::TAP::Parser::Scheduler',
-);
-
-my %loaded = ();
-
-# Synthesize our subclasses
-for my $class ( values %class_map ) {
- ( my $base_class = $class ) =~ s/^My:://;
- use_ok($base_class);
-
- no strict 'refs';
- @{"${class}::ISA"} = ($base_class);
- *{"${class}::new"} = sub {
- my $pkg = shift;
- $loaded{$pkg} = 1;
-
- # Can't use SUPER outside a package
- return $base_class->can('new')->( $pkg, @_ );
- };
-}
-
-{
- ok my $harness = TAP::Harness->new( { %class_map, verbosity => -9 } ),
- 'created harness';
- isa_ok $harness, 'TAP::Harness';
-
- # Test dynamic loading
- ok !$INC{'NOP.pm'}, 'NOP not loaded';
- ok my $nop = $harness->_construct('NOP'), 'loaded and created';
- isa_ok $nop, 'NOP';
- ok $INC{'NOP.pm'}, 'NOP loaded';
-
- my $aggregate = $harness->runtests(
- File::Spec->catfile(
- ( $ENV{PERL_CORE}
- ? ( File::Spec->updir, 'ext', 'Test-Harness' )
- : ()
- ),
- 't',
- 'sample-tests',
- 'simple'
- )
- );
-
- isa_ok $aggregate, 'My::TAP::Parser::Aggregator';
-
- is_deeply \%loaded,
- { 'My::TAP::Parser::Aggregator' => 1,
- 'My::TAP::Formatter::Console' => 1,
- 'My::TAP::Parser' => 1,
- 'My::TAP::Parser::Scheduler' => 1,
- },
- 'loaded our classes';
-}
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/harness.t b/3.8.8/sources/cpan-Test-Harness/vendor/t/harness.t
deleted file mode 100644
index 6c5c1d1..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/harness.t
+++ /dev/null
@@ -1,1063 +0,0 @@
-#!/usr/bin/perl -w
-
-BEGIN {
- if ( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ( '../lib', '../ext/Test-Harness/t/lib' );
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-
-use strict;
-
-use Test::More;
-use IO::c55Capture;
-
-use TAP::Harness;
-
-my $HARNESS = 'TAP::Harness';
-
-my $source_tests
- = $ENV{PERL_CORE} ? '../ext/Test-Harness/t/source_tests' : 't/source_tests';
-my $sample_tests
- = $ENV{PERL_CORE} ? '../ext/Test-Harness/t/sample-tests' : 't/sample-tests';
-
-plan tests => 128;
-
-# note that this test will always pass when run through 'prove'
-ok $ENV{HARNESS_ACTIVE}, 'HARNESS_ACTIVE env variable should be set';
-ok $ENV{HARNESS_VERSION}, 'HARNESS_VERSION env variable should be set';
-
-#### For color tests ####
-
-package Colorizer;
-
-sub new { bless {}, shift }
-sub can_color {1}
-
-sub set_color {
- my ( $self, $output, $color ) = @_;
- $output->("[[$color]]");
-}
-
-package main;
-
-sub colorize {
- my $harness = shift;
- $harness->formatter->_colorizer( Colorizer->new );
-}
-
-can_ok $HARNESS, 'new';
-
-eval { $HARNESS->new( { no_such_key => 1 } ) };
-like $@, qr/\QUnknown arguments to TAP::Harness::new (no_such_key)/,
- '... and calling it with bad keys should fail';
-
-eval { $HARNESS->new( { lib => 'aint_no_such_lib' } ) };
-is $@, '', '... and calling it with a non-existent lib is fine';
-
-eval { $HARNESS->new( { lib => [qw/bad_lib_1 bad_lib_2/] } ) };
-is $@, '', '... and calling it with non-existent libs is fine';
-
-ok my $harness = $HARNESS->new,
- 'Calling new() without arguments should succeed';
-
-for my $test_args ( get_arg_sets() ) {
- my %args = %$test_args;
- for my $key ( sort keys %args ) {
- $args{$key} = $args{$key}{in};
- }
- ok my $harness = $HARNESS->new( {%args} ),
- 'Calling new() with valid arguments should succeed';
- isa_ok $harness, $HARNESS, '... and the object it returns';
-
- while ( my ( $property, $test ) = each %$test_args ) {
- my $value = $test->{out};
- can_ok $harness, $property;
- is_deeply scalar $harness->$property(), $value, $test->{test_name};
- }
-}
-
-{
- my @output;
- local $^W;
- local *TAP::Formatter::Base::_output = sub {
- my $self = shift;
- push @output => grep { $_ ne '' }
- map {
- local $_ = $_;
- chomp;
- trim($_)
- } @_;
- };
- my $harness = TAP::Harness->new(
- { verbosity => 1, formatter_class => "TAP::Formatter::Console" } );
- my $harness_whisper = TAP::Harness->new(
- { verbosity => -1, formatter_class => "TAP::Formatter::Console" } );
- my $harness_mute = TAP::Harness->new(
- { verbosity => -2, formatter_class => "TAP::Formatter::Console" } );
- my $harness_directives = TAP::Harness->new(
- { directives => 1, formatter_class => "TAP::Formatter::Console" } );
- my $harness_failures = TAP::Harness->new(
- { failures => 1, formatter_class => "TAP::Formatter::Console" } );
-
- colorize($harness);
-
- can_ok $harness, 'runtests';
-
- # normal tests in verbose mode
-
- ok my $aggregate = _runtests( $harness, "$source_tests/harness" ),
- '... runtests returns the aggregate';
-
- isa_ok $aggregate, 'TAP::Parser::Aggregator';
-
- chomp(@output);
-
- my @expected = (
- "$source_tests/harness ..",
- '1..1',
- '[[reset]]',
- 'ok 1 - this is a test',
- '[[reset]]',
- 'ok',
- '[[green]]',
- 'All tests successful.',
- '[[reset]]',
- );
- my $status = pop @output;
- my $expected_status = qr{^Result: PASS$};
- my $summary = pop @output;
- my $expected_summary = qr{^Files=1, Tests=1, \d+ wallclock secs};
-
- is_deeply \@output, \@expected, '... and the output should be correct';
- like $status, $expected_status,
- '... and the status line should be correct';
- like $summary, $expected_summary,
- '... and the report summary should look correct';
-
- # use an alias for test name
-
- @output = ();
- ok $aggregate
- = _runtests( $harness, [ "$source_tests/harness", 'My Nice Test' ] ),
- '... runtests returns the aggregate';
-
- isa_ok $aggregate, 'TAP::Parser::Aggregator';
-
- chomp(@output);
-
- @expected = (
- 'My Nice Test ..',
- '1..1',
- '[[reset]]',
- 'ok 1 - this is a test',
- '[[reset]]',
- 'ok',
- '[[green]]',
- 'All tests successful.',
- '[[reset]]',
- );
- $status = pop @output;
- $expected_status = qr{^Result: PASS$};
- $summary = pop @output;
- $expected_summary = qr{^Files=1, Tests=1, \d+ wallclock secs};
-
- is_deeply \@output, \@expected, '... and the output should be correct';
- like $status, $expected_status,
- '... and the status line should be correct';
- like $summary, $expected_summary,
- '... and the report summary should look correct';
-
- # run same test twice
-
- @output = ();
- ok $aggregate = _runtests(
- $harness, [ "$source_tests/harness", 'My Nice Test' ],
- [ "$source_tests/harness", 'My Nice Test Again' ]
- ),
- '... runtests returns the aggregate';
-
- isa_ok $aggregate, 'TAP::Parser::Aggregator';
-
- chomp(@output);
-
- @expected = (
- 'My Nice Test ........',
- '1..1',
- '[[reset]]',
- 'ok 1 - this is a test',
- '[[reset]]',
- 'ok',
- 'My Nice Test Again ..',
- '1..1',
- '[[reset]]',
- 'ok 1 - this is a test',
- '[[reset]]',
- 'ok',
- '[[green]]',
- 'All tests successful.',
- '[[reset]]',
- );
- $status = pop @output;
- $expected_status = qr{^Result: PASS$};
- $summary = pop @output;
- $expected_summary = qr{^Files=2, Tests=2, \d+ wallclock secs};
-
- is_deeply \@output, \@expected, '... and the output should be correct';
- like $status, $expected_status,
- '... and the status line should be correct';
- like $summary, $expected_summary,
- '... and the report summary should look correct';
-
- # normal tests in quiet mode
-
- @output = ();
- _runtests( $harness_whisper, "$source_tests/harness" );
-
- chomp(@output);
- @expected = (
- "$source_tests/harness ..",
- 'ok',
- 'All tests successful.',
- );
-
- $status = pop @output;
- $expected_status = qr{^Result: PASS$};
- $summary = pop @output;
- $expected_summary = qr/^Files=1, Tests=1, \d+ wallclock secs/;
-
- is_deeply \@output, \@expected, '... and the output should be correct';
- like $status, $expected_status,
- '... and the status line should be correct';
- like $summary, $expected_summary,
- '... and the report summary should look correct';
-
- # normal tests in really_quiet mode
-
- @output = ();
- _runtests( $harness_mute, "$source_tests/harness" );
-
- chomp(@output);
- @expected = (
- 'All tests successful.',
- );
-
- $status = pop @output;
- $expected_status = qr{^Result: PASS$};
- $summary = pop @output;
- $expected_summary = qr/^Files=1, Tests=1, \d+ wallclock secs/;
-
- is_deeply \@output, \@expected, '... and the output should be correct';
- like $status, $expected_status,
- '... and the status line should be correct';
- like $summary, $expected_summary,
- '... and the report summary should look correct';
-
- # normal tests with failures
-
- @output = ();
- _runtests( $harness, "$source_tests/harness_failure" );
-
- $status = pop @output;
- $summary = pop @output;
-
- like $status, qr{^Result: FAIL$},
- '... and the status line should be correct';
-
- my @summary = @output[ 18 .. $#output ];
- @output = @output[ 0 .. 17 ];
-
- @expected = (
- "$source_tests/harness_failure ..",
- '1..2',
- '[[reset]]',
- 'ok 1 - this is a test',
- '[[reset]]',
- '[[red]]',
- 'not ok 2 - this is another test',
- '[[reset]]',
- q{# Failed test 'this is another test'},
- '[[reset]]',
- '# in harness_failure.t at line 5.',
- '[[reset]]',
- q{# got: 'waffle'},
- '[[reset]]',
- q{# expected: 'yarblokos'},
- '[[reset]]',
- '[[red]]',
- 'Failed 1/2 subtests',
- );
-
- is_deeply \@output, \@expected,
- '... and failing test output should be correct';
-
- my @expected_summary = (
- '[[reset]]',
- 'Test Summary Report',
- '-------------------',
- '[[red]]',
- "$source_tests/harness_failure (Wstat: 0 Tests: 2 Failed: 1)",
- '[[reset]]',
- '[[red]]',
- 'Failed test:',
- '[[reset]]',
- '[[red]]',
- '2',
- '[[reset]]',
- );
-
- is_deeply \@summary, \@expected_summary,
- '... and the failure summary should also be correct';
-
- # quiet tests with failures
-
- @output = ();
- _runtests( $harness_whisper, "$source_tests/harness_failure" );
-
- $status = pop @output;
- $summary = pop @output;
- @expected = (
- "$source_tests/harness_failure ..",
- 'Failed 1/2 subtests',
- 'Test Summary Report',
- '-------------------',
- "$source_tests/harness_failure (Wstat: 0 Tests: 2 Failed: 1)",
- 'Failed test:',
- '2',
- );
-
- like $status, qr{^Result: FAIL$},
- '... and the status line should be correct';
-
- is_deeply \@output, \@expected,
- '... and failing test output should be correct';
-
- # really quiet tests with failures
-
- @output = ();
- _runtests( $harness_mute, "$source_tests/harness_failure" );
-
- $status = pop @output;
- $summary = pop @output;
- @expected = (
- 'Test Summary Report',
- '-------------------',
- "$source_tests/harness_failure (Wstat: 0 Tests: 2 Failed: 1)",
- 'Failed test:',
- '2',
- );
-
- like $status, qr{^Result: FAIL$},
- '... and the status line should be correct';
-
- is_deeply \@output, \@expected,
- '... and failing test output should be correct';
-
- # only show directives
-
- @output = ();
- _runtests(
- $harness_directives,
- "$source_tests/harness_directives"
- );
-
- chomp(@output);
-
- @expected = (
- "$source_tests/harness_directives ..",
- 'not ok 2 - we have a something # TODO some output',
- "ok 3 houston, we don't have liftoff # SKIP no funding",
- 'ok',
- 'All tests successful.',
-
- # ~TODO {{{ this should be an option
- #'Test Summary Report',
- #'-------------------',
- #"$source_tests/harness_directives (Wstat: 0 Tests: 3 Failed: 0)",
- #'Tests skipped:',
- #'3',
- # }}}
- );
-
- $status = pop @output;
- $summary = pop @output;
- $expected_summary = qr/^Files=1, Tests=3, \d+ wallclock secs/;
-
- is_deeply \@output, \@expected, '... and the output should be correct';
- like $summary, $expected_summary,
- '... and the report summary should look correct';
-
- like $status, qr{^Result: PASS$},
- '... and the status line should be correct';
-
- # normal tests with bad tap
-
- # install callback handler
- my $parser;
- my $callback_count = 0;
-
- my @callback_log = ();
-
- for my $evt (qw(parser_args made_parser before_runtests after_runtests)) {
- $harness->callback(
- $evt => sub {
- push @callback_log, $evt;
- }
- );
- }
-
- $harness->callback(
- made_parser => sub {
- $parser = shift;
- $callback_count++;
- }
- );
-
- @output = ();
- _runtests( $harness, "$source_tests/harness_badtap" );
- chomp(@output);
-
- @output = map { trim($_) } @output;
- $status = pop @output;
- @summary = @output[ 12 .. ( $#output - 1 ) ];
- @output = @output[ 0 .. 11 ];
- @expected = (
- "$source_tests/harness_badtap ..",
- '1..2',
- '[[reset]]',
- 'ok 1 - this is a test',
- '[[reset]]',
- '[[red]]',
- 'not ok 2 - this is another test',
- '[[reset]]',
- '1..2',
- '[[reset]]',
- '[[red]]',
- 'Failed 1/2 subtests',
- );
- is_deeply \@output, \@expected,
- '... and failing test output should be correct';
- like $status, qr{^Result: FAIL$},
- '... and the status line should be correct';
- @expected_summary = (
- '[[reset]]',
- 'Test Summary Report',
- '-------------------',
- '[[red]]',
- "$source_tests/harness_badtap (Wstat: 0 Tests: 2 Failed: 1)",
- '[[reset]]',
- '[[red]]',
- 'Failed test:',
- '[[reset]]',
- '[[red]]',
- '2',
- '[[reset]]',
- '[[red]]',
- 'Parse errors: More than one plan found in TAP output',
- '[[reset]]',
- );
- is_deeply \@summary, \@expected_summary,
- '... and the badtap summary should also be correct';
-
- cmp_ok( $callback_count, '==', 1, 'callback called once' );
- is_deeply(
- \@callback_log,
- [ 'before_runtests', 'parser_args', 'made_parser', 'after_runtests' ],
- 'callback log matches'
- );
- isa_ok $parser, 'TAP::Parser';
-
- # coverage testing for _should_show_failures
- # only show failures
-
- @output = ();
- _runtests( $harness_failures, "$source_tests/harness_failure" );
-
- chomp(@output);
-
- @expected = (
- "$source_tests/harness_failure ..",
- 'not ok 2 - this is another test',
- 'Failed 1/2 subtests',
- 'Test Summary Report',
- '-------------------',
- "$source_tests/harness_failure (Wstat: 0 Tests: 2 Failed: 1)",
- 'Failed test:',
- '2',
- );
-
- $status = pop @output;
- $summary = pop @output;
-
- like $status, qr{^Result: FAIL$},
- '... and the status line should be correct';
- $expected_summary = qr/^Files=1, Tests=2, \d+ wallclock secs/;
- is_deeply \@output, \@expected, '... and the output should be correct';
-
- # check the status output for no tests
-
- @output = ();
- _runtests( $harness_failures, "$sample_tests/no_output" );
-
- chomp(@output);
-
- @expected = (
- "$sample_tests/no_output ..",
- 'No subtests run',
- 'Test Summary Report',
- '-------------------',
- "$sample_tests/no_output (Wstat: 0 Tests: 0 Failed: 0)",
- 'Parse errors: No plan found in TAP output',
- );
-
- $status = pop @output;
- $summary = pop @output;
-
- like $status, qr{^Result: FAIL$},
- '... and the status line should be correct';
- $expected_summary = qr/^Files=1, Tests=2, \d+ wallclock secs/;
- is_deeply \@output, \@expected, '... and the output should be correct';
-
- #XXXX
-}
-
-# make sure we can exec something ... anything!
-SKIP: {
-
- my $cat = '/bin/cat';
-
- # TODO: use TYPE on win32?
- unless ( -e $cat ) {
- skip "no '$cat'", 2;
- }
-
- my $capture = IO::c55Capture->new_handle;
- my $harness = TAP::Harness->new(
- { verbosity => -2,
- stdout => $capture,
- exec => [$cat],
- }
- );
-
- eval {
- _runtests(
- $harness,
- $ENV{PERL_CORE}
- ? '../ext/Test-Harness/t/data/catme.1'
- : 't/data/catme.1'
- );
- };
-
- my @output = tied($$capture)->dump;
- my $status = pop @output;
- like $status, qr{^Result: PASS$},
- '... and the status line should be correct';
- pop @output; # get rid of summary line
- my $answer = pop @output;
- is( $answer, "All tests successful.\n", 'cat meows' );
-}
-
-# make sure that we can exec with a code ref.
-{
- my $capture = IO::c55Capture->new_handle;
- my $harness = TAP::Harness->new(
- { verbosity => -2,
- stdout => $capture,
- exec => sub {undef},
- }
- );
-
- _runtests( $harness, "$source_tests/harness" );
-
- my @output = tied($$capture)->dump;
- my $status = pop @output;
- like $status, qr{^Result: PASS$},
- '... and the status line should be correct';
- pop @output; # get rid of summary line
- my $answer = pop @output;
- is( $answer, "All tests successful.\n", 'cat meows' );
-}
-
-# Exec with a coderef that returns an arrayref
-SKIP: {
- my $cat = '/bin/cat';
- unless ( -e $cat ) {
- skip "no '$cat'", 2;
- }
-
- my $capture = IO::c55Capture->new_handle;
- my $harness = TAP::Harness->new(
- { verbosity => -2,
- stdout => $capture,
- exec => sub {
- return [
- $cat,
- $ENV{PERL_CORE}
- ? '../ext/Test-Harness/t/data/catme.1'
- : 't/data/catme.1'
- ];
- },
- }
- );
-
- _runtests( $harness, "$source_tests/harness" );
-
- my @output = tied($$capture)->dump;
- my $status = pop @output;
- like $status, qr{^Result: PASS$},
- '... and the status line should be correct';
- pop @output; # get rid of summary line
- my $answer = pop @output;
- is( $answer, "All tests successful.\n", 'cat meows' );
-}
-
-# Exec with a coderef that returns raw TAP
-{
- my $capture = IO::c55Capture->new_handle;
- my $harness = TAP::Harness->new(
- { verbosity => -2,
- stdout => $capture,
- exec => sub {
- return "1..1\nok 1 - raw TAP\n";
- },
- }
- );
-
- _runtests( $harness, "$source_tests/harness" );
-
- my @output = tied($$capture)->dump;
- my $status = pop @output;
- like $status, qr{^Result: PASS$},
- '... and the status line should be correct';
- pop @output; # get rid of summary line
- my $answer = pop @output;
- is( $answer, "All tests successful.\n", 'cat meows' );
-}
-
-# Exec with a coderef that returns a filehandle
-{
- my $capture = IO::c55Capture->new_handle;
- my $harness = TAP::Harness->new(
- { verbosity => -2,
- stdout => $capture,
- exec => sub {
- open my $fh,
- $ENV{PERL_CORE}
- ? '../ext/Test-Harness/t/data/catme.1'
- : 't/data/catme.1';
- return $fh;
- },
- }
- );
-
- _runtests( $harness, "$source_tests/harness" );
-
- my @output = tied($$capture)->dump;
- my $status = pop @output;
- like $status, qr{^Result: PASS$},
- '... and the status line should be correct';
- pop @output; # get rid of summary line
- my $answer = pop @output;
- is( $answer, "All tests successful.\n", 'cat meows' );
-}
-
-# catches "exec accumulates arguments" issue (r77)
-{
- my $capture = IO::c55Capture->new_handle;
- my $harness = TAP::Harness->new(
- { verbosity => -2,
- stdout => $capture,
- exec => [$^X]
- }
- );
-
- _runtests(
- $harness,
- "$source_tests/harness_complain"
- , # will get mad if run with args
- "$source_tests/harness",
- );
-
- my @output = tied($$capture)->dump;
- my $status = pop @output;
- like $status, qr{^Result: PASS$},
- '... and the status line should be correct';
- pop @output; # get rid of summary line
- is( $output[-1], "All tests successful.\n",
- 'No exec accumulation'
- );
-}
-
-# customize default File source
-{
- my $capture = IO::c55Capture->new_handle;
- my $harness = TAP::Harness->new(
- { verbosity => -2,
- stdout => $capture,
- sources => {
- File => { extensions => ['.1'] },
- },
- }
- );
-
- _runtests( $harness, "$source_tests/source.1" );
-
- my @output = tied($$capture)->dump;
- my $status = pop @output;
- like $status, qr{^Result: PASS$},
- 'customized File source has correct status line';
- pop @output; # get rid of summary line
- my $answer = pop @output;
- is( $answer, "All tests successful.\n", '... all tests passed' );
-}
-
-# load a custom source
-{
- my $capture = IO::c55Capture->new_handle;
- my $harness = TAP::Harness->new(
- { verbosity => -2,
- stdout => $capture,
- sources => {
- MyFileSourceHandler => { extensions => ['.1'] },
- },
- }
- );
-
- my $source_test = "$source_tests/source.1";
- eval { _runtests( $harness, "$source_tests/source.1" ); };
- my $e = $@;
- ok( !$e, 'no error on load custom source' ) || diag($e);
-
- no warnings 'once';
- can_ok( 'MyFileSourceHandler', 'make_iterator' );
- ok( $MyFileSourceHandler::CAN_HANDLE,
- '... MyFileSourceHandler->can_handle was called'
- );
- ok( $MyFileSourceHandler::MAKE_ITER,
- '... MyFileSourceHandler->make_iterator was called'
- );
-
- my $raw_source = eval { ${ $MyFileSourceHandler::LAST_SOURCE->raw } };
- is( $raw_source, $source_test, '... used the right source' );
-
- my @output = tied($$capture)->dump;
- my $status = pop(@output) || '';
- like $status, qr{^Result: PASS$}, '... and test has correct status line';
- pop @output; # get rid of summary line
- my $answer = pop @output;
- is( $answer, "All tests successful.\n", '... all tests passed' );
-}
-
-sub trim {
- $_[0] =~ s/^\s+|\s+$//g;
- return $_[0];
-}
-
-sub liblist {
- return [ map {"-I$_"} @_ ];
-}
-
-sub get_arg_sets {
-
- # keys are keys to new()
- return {
- lib => {
- in => 'lib',
- out => liblist('lib'),
- test_name => '... a single lib switch should be correct'
- },
- verbosity => {
- in => 1,
- out => 1,
- test_name => '... and we should be able to set verbosity to 1'
- },
-
- # verbose => {
- # in => 1,
- # out => 1,
- # test_name => '... and we should be able to set verbose to true'
- # },
- },
- { lib => {
- in => [ 'lib', 't' ],
- out => liblist( 'lib', 't' ),
- test_name => '... multiple lib dirs should be correct'
- },
- verbosity => {
- in => 0,
- out => 0,
- test_name => '... and we should be able to set verbosity to 0'
- },
-
- # verbose => {
- # in => 0,
- # out => 0,
- # test_name => '... and we should be able to set verbose to false'
- # },
- },
- { switches => {
- in => [ '-T', '-w', '-T' ],
- out => [ '-T', '-w', '-T' ],
- test_name => '... duplicate switches should remain',
- },
- failures => {
- in => 1,
- out => 1,
- test_name =>
- '... and we should be able to set failures to true',
- },
- verbosity => {
- in => -1,
- out => -1,
- test_name => '... and we should be able to set verbosity to -1'
- },
-
- # quiet => {
- # in => 1,
- # out => 1,
- # test_name => '... and we should be able to set quiet to false'
- # },
- },
-
- { verbosity => {
- in => -2,
- out => -2,
- test_name => '... and we should be able to set verbosity to -2'
- },
-
- # really_quiet => {
- # in => 1,
- # out => 1,
- # test_name =>
- # '... and we should be able to set really_quiet to true',
- # },
- exec => {
- in => $^X,
- out => $^X,
- test_name =>
- '... and we should be able to set the executable',
- },
- },
- { switches => {
- in => 'T',
- out => ['T'],
- test_name =>
- '... leading dashes (-) on switches are not optional',
- },
- },
- { switches => {
- in => '-T',
- out => ['-T'],
- test_name => '... we should be able to set switches',
- },
- failures => {
- in => 1,
- out => 1,
- test_name => '... and we should be able to set failures to true'
- },
- };
-}
-
-sub _runtests {
- my ( $harness, @tests ) = @_;
- local $ENV{PERL_TEST_HARNESS_DUMP_TAP} = 0;
- my $aggregate = $harness->runtests(@tests);
- return $aggregate;
-}
-
-{
-
- # coverage tests for ctor
-
- my $harness = TAP::Harness->new(
- { timer => 0,
- errors => 1,
- merge => 2,
-
- # formatter => 3,
- }
- );
-
- is $harness->timer(), 0, 'timer getter';
- is $harness->timer(10), 10, 'timer setter';
- is $harness->errors(), 1, 'errors getter';
- is $harness->errors(10), 10, 'errors setter';
- is $harness->merge(), 2, 'merge getter';
- is $harness->merge(10), 10, 'merge setter';
-
- # jobs accessor
- is $harness->jobs(), 1, 'jobs';
-}
-
-{
-
-# coverage tests for the stdout key of VALIDATON_FOR, used by _initialize() in the ctor
-
- # the coverage tests are
- # 1. ref $ref => false
- # 2. ref => ! GLOB and ref->can(print)
- # 3. ref $ref => GLOB
-
- # case 1
-
- my @die;
-
- eval {
- local $SIG{__DIE__} = sub { push @die, @_ };
-
- my $harness = TAP::Harness->new(
- { stdout => bless {}, '0', # how evil is THAT !!!
- }
- );
- };
-
- is @die, 1, 'bad filehandle to stdout';
- like pop @die, qr/option 'stdout' needs a filehandle/,
- '... and we died as expected';
-
- # case 2
-
- @die = ();
-
- package Printable;
-
- sub new { return bless {}, shift }
-
- sub print {return}
-
- package main;
-
- my $harness = TAP::Harness->new(
- { stdout => Printable->new(),
- }
- );
-
- isa_ok $harness, 'TAP::Harness';
-
- # case 3
-
- @die = ();
-
- $harness = TAP::Harness->new(
- { stdout => bless {}, 'GLOB', # again with the evil
- }
- );
-
- isa_ok $harness, 'TAP::Harness';
-}
-
-{
-
- # coverage testing of lib/switches accessor
- my $harness = TAP::Harness->new;
-
- my @die;
-
- eval {
- local $SIG{__DIE__} = sub { push @die, @_ };
-
- $harness->switches(qw( too many arguments));
- };
-
- is @die, 1, 'too many arguments to accessor';
-
- like pop @die, qr/Too many arguments to method 'switches'/,
- '...and we died as expected';
-
- $harness->switches('simple scalar');
-
- my $arrref = $harness->switches;
- is_deeply $arrref, ['simple scalar'], 'scalar wrapped in arr ref';
-}
-
-{
-
- # coverage tests for the basically untested T::H::_open_spool
-
- my @spool = (
- ( $ENV{PERL_CORE}
- ? ( File::Spec->updir(), 'ext', 'Test-Harness' )
- : ()
- ),
- ( 't', 'spool' )
- );
- $ENV{PERL_TEST_HARNESS_DUMP_TAP} = File::Spec->catfile(@spool);
-
-# now given that we're going to be writing stuff to the file system, make sure we have
-# a cleanup hook
-
- END {
- use File::Path;
-
- # remove the tree if we made it this far
- rmtree( $ENV{PERL_TEST_HARNESS_DUMP_TAP} )
- if $ENV{PERL_TEST_HARNESS_DUMP_TAP};
- }
-
- my $harness = TAP::Harness->new( { verbosity => -2 } );
-
- can_ok $harness, 'runtests';
-
- # normal tests in verbose mode
-
- my $parser
- = $harness->runtests( File::Spec->catfile( $source_tests, 'harness' ) );
-
- isa_ok $parser, 'TAP::Parser::Aggregator',
- '... runtests returns the aggregate';
-
- ok -e File::Spec->catfile(
- $ENV{PERL_TEST_HARNESS_DUMP_TAP},
- $source_tests, 'harness'
- );
-}
-
-{
-
- # test name munging
- my @cases = (
- { name => 'all the same',
- input => [ 'foo.t', 'bar.t', 'fletz.t' ],
- output => [
- [ 'foo.t', 'foo.t' ], [ 'bar.t', 'bar.t' ],
- [ 'fletz.t', 'fletz.t' ]
- ],
- },
- { name => 'all the same, already cooked',
- input => [ 'foo.t', [ 'bar.t', 'brip' ], 'fletz.t' ],
- output => [
- [ 'foo.t', 'foo.t' ], [ 'bar.t', 'brip' ],
- [ 'fletz.t', 'fletz.t' ]
- ],
- },
- { name => 'different exts',
- input => [ 'foo.t', 'bar.u', 'fletz.v' ],
- output => [
- [ 'foo.t', 'foo.t' ], [ 'bar.u', 'bar.u' ],
- [ 'fletz.v', 'fletz.v' ]
- ],
- },
- { name => 'different exts, one already cooked',
- input => [ 'foo.t', [ 'bar.u', 'bam' ], 'fletz.v' ],
- output => [
- [ 'foo.t', 'foo.t' ], [ 'bar.u', 'bam' ],
- [ 'fletz.v', 'fletz.v' ]
- ],
- },
- { name => 'different exts, two already cooked',
- input => [ 'foo.t', [ 'bar.u', 'bam.q' ], [ 'fletz.v', 'boo' ] ],
- output => [
- [ 'foo.t', 'foo.t' ], [ 'bar.u', 'bam.q' ],
- [ 'fletz.v', 'boo' ]
- ],
- },
- );
-
- for my $case (@cases) {
- is_deeply [ TAP::Harness->_add_descriptions( @{ $case->{input} } ) ],
- $case->{output}, '_add_descriptions: ' . $case->{name};
- }
-}
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/iterator_factory.t b/3.8.8/sources/cpan-Test-Harness/vendor/t/iterator_factory.t
deleted file mode 100644
index 668045c..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/iterator_factory.t
+++ /dev/null
@@ -1,162 +0,0 @@
-#!/usr/bin/perl -w
-#
-# Tests for TAP::Parser::IteratorFactory & source detection
-##
-
-BEGIN {
- if ( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ( '../lib', '../ext/Test-Harness/t/lib' );
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-
-use strict;
-
-use Test::More tests => 42;
-
-use IO::File;
-use File::Spec;
-use TAP::Parser::Source;
-use TAP::Parser::IteratorFactory;
-
-# Test generic API...
-{
- can_ok 'TAP::Parser::IteratorFactory', 'new';
- my $sf = TAP::Parser::IteratorFactory->new;
- isa_ok $sf, 'TAP::Parser::IteratorFactory';
- can_ok $sf, 'config';
- can_ok $sf, 'handlers';
- can_ok $sf, 'detect_source';
- can_ok $sf, 'make_iterator';
- can_ok $sf, 'register_handler';
-
- # Set config
- eval { $sf->config('bad config') };
- my $e = $@;
- like $e, qr/\QArgument to &config must be a hash reference/,
- '... and calling config with bad config should fail';
-
- my $config = { MySourceHandler => { foo => 'bar' } };
- is( $sf->config($config), $sf, '... and set config works' );
-
- # Load/Register a handler
- $sf = TAP::Parser::IteratorFactory->new(
- { MySourceHandler => { accept => 'known-source' } } );
- can_ok( 'MySourceHandler', 'can_handle' );
- is_deeply( $sf->handlers, ['MySourceHandler'], '... was registered' );
-
- # Known source should pass
- {
- my $source = TAP::Parser::Source->new->raw( \'known-source' );
- my $iterator = eval { $sf->make_iterator($source) };
- my $error = $@;
- ok( !$error, 'make_iterator with known source doesnt fail' );
- diag($error) if $error;
- isa_ok( $iterator, 'MyIterator', '... and iterator class' );
- }
-
- # No known source should fail
- {
- my $source = TAP::Parser::Source->new->raw( \'unknown-source' );
- my $iterator = eval { $sf->make_iterator($source) };
- my $error = $@;
- ok( $error, 'make_iterator with unknown source fails' );
- like $error, qr/^Cannot detect source of 'unknown-source'/,
- '... with an appropriate error message';
- }
-}
-
-# Source detection
-use_ok('TAP::Parser::SourceHandler::Executable');
-use_ok('TAP::Parser::SourceHandler::Perl');
-use_ok('TAP::Parser::SourceHandler::File');
-use_ok('TAP::Parser::SourceHandler::RawTAP');
-use_ok('TAP::Parser::SourceHandler::Handle');
-
-my $test_dir = File::Spec->catdir(
- ( $ENV{PERL_CORE}
- ? ( File::Spec->updir(), 'ext', 'Test-Harness' )
- : ()
- ),
- 't',
- 'source_tests'
-);
-
-my @sources = (
- { file => 'source.tap',
- handler => 'TAP::Parser::SourceHandler::File',
- iterator => 'TAP::Parser::Iterator::Stream',
- },
- { file => 'source.1',
- handler => 'TAP::Parser::SourceHandler::File',
- config => { File => { extensions => ['.1'] } },
- iterator => 'TAP::Parser::Iterator::Stream',
- },
- { file => 'source.pl',
- handler => 'TAP::Parser::SourceHandler::Perl',
- iterator => 'TAP::Parser::Iterator::Process',
- },
- { file => 'source.t',
- handler => 'TAP::Parser::SourceHandler::Perl',
- iterator => 'TAP::Parser::Iterator::Process',
- },
- { file => 'source',
- handler => 'TAP::Parser::SourceHandler::Perl',
- iterator => 'TAP::Parser::Iterator::Process',
- },
- { file => 'source.sh',
- handler => 'TAP::Parser::SourceHandler::Executable',
- iterator => 'TAP::Parser::Iterator::Process',
- },
- { file => 'source.bat',
- handler => 'TAP::Parser::SourceHandler::Executable',
- iterator => 'TAP::Parser::Iterator::Process',
- },
- { name => 'raw tap string',
- source => "0..1\nok 1 - raw tap\n",
- handler => 'TAP::Parser::SourceHandler::RawTAP',
- iterator => 'TAP::Parser::Iterator::Array',
- },
- { name => 'raw tap array',
- source => [ "0..1\n", "ok 1 - raw tap\n" ],
- handler => 'TAP::Parser::SourceHandler::RawTAP',
- iterator => 'TAP::Parser::Iterator::Array',
- },
- { source => \*__DATA__,
- handler => 'TAP::Parser::SourceHandler::Handle',
- iterator => 'TAP::Parser::Iterator::Stream',
- },
- { source => IO::File->new('-'),
- handler => 'TAP::Parser::SourceHandler::Handle',
- iterator => 'TAP::Parser::Iterator::Stream',
- },
-);
-
-for my $test (@sources) {
- local $TODO = $test->{TODO};
- if ( $test->{file} ) {
- $test->{name} = $test->{file};
- $test->{source} = File::Spec->catfile( $test_dir, $test->{file} );
- }
-
- my $name = $test->{name} || substr( $test->{source}, 0, 10 );
- my $sf
- = TAP::Parser::IteratorFactory->new( $test->{config} )->_testing(1);
-
- my $raw = $test->{source};
- my $source = TAP::Parser::Source->new->raw( ref($raw) ? $raw : \$raw );
- my $iterator = eval { $sf->make_iterator($source) };
- my $error = $@;
- ok( !$error, "$name: no error on make_iterator" );
- diag($error) if $error;
-
- # isa_ok( $iterator, $test->{iterator}, $name );
- is( $sf->_last_handler, $test->{handler}, $name );
-}
-
-__END__
-0..1
-ok 1 - TAP in the __DATA__ handle
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/iterators.t b/3.8.8/sources/cpan-Test-Harness/vendor/t/iterators.t
deleted file mode 100644
index 2b6028e..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/iterators.t
+++ /dev/null
@@ -1,238 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use lib 't/lib';
-
-use Test::More tests => 76;
-
-use File::Spec;
-use TAP::Parser;
-use TAP::Parser::Iterator::Array;
-use Config;
-
-sub array_ref_from {
- my $string = shift;
- my @lines = split /\n/ => $string;
- return \@lines;
-}
-
-# we slurp __DATA__ and then reset it so we don't have to duplicate our TAP
-my $offset = tell DATA;
-my $tap = do { local $/; <DATA> };
-seek DATA, $offset, 0;
-
-my $did_setup = 0;
-my $did_teardown = 0;
-
-my $setup = sub { $did_setup++ };
-my $teardown = sub { $did_teardown++ };
-
-package NoForkProcess;
-use vars qw( @ISA );
- at ISA = qw( TAP::Parser::Iterator::Process );
-
-sub _use_open3 {return}
-
-package main;
-
-my @schedule = (
- { name => 'Process',
- subclass => 'TAP::Parser::Iterator::Process',
- source => {
- command => [
- $^X,
- File::Spec->catfile(
- ( $ENV{PERL_CORE}
- ? ( File::Spec->updir(), 'ext', 'Test-Harness' )
- : ()
- ),
- 't',
- 'sample-tests',
- 'out_err_mix'
- )
- ],
- merge => 1,
- setup => $setup,
- teardown => $teardown,
- },
- after => sub {
- is $did_setup, 1, "setup called";
- is $did_teardown, 1, "teardown called";
- },
- need_open3 => 15,
- },
- { name => 'Array',
- subclass => 'TAP::Parser::Iterator::Array',
- source => array_ref_from($tap),
- },
- { name => 'Stream',
- subclass => 'TAP::Parser::Iterator::Stream',
- source => \*DATA,
- },
- { name => 'Process (Perl -e)',
- subclass => 'TAP::Parser::Iterator::Process',
- source =>
- { command => [ $^X, '-e', 'print qq/one\ntwo\n\nthree\n/' ] },
- },
- { name => 'Process (NoFork)',
- subclass => 'TAP::Parser::Iterator::Process',
- class => 'NoForkProcess',
- source =>
- { command => [ $^X, '-e', 'print qq/one\ntwo\n\nthree\n/' ] },
- },
-);
-
-sub _can_open3 {
- return $Config{d_fork};
-}
-
-for my $test (@schedule) {
- SKIP: {
- my $name = $test->{name};
- my $need_open3 = $test->{need_open3};
- skip "No open3", $need_open3 if $need_open3 && !_can_open3();
- my $subclass = $test->{subclass};
- my $source = $test->{source};
- my $class = $test->{class};
- my $iterator
- = $class
- ? $class->new($source)
- : make_iterator($source);
-
- ok $iterator, "$name: We should be able to create a new iterator";
- isa_ok $iterator, 'TAP::Parser::Iterator',
- '... and the object it returns';
- isa_ok $iterator, $subclass, '... and the object it returns';
-
- can_ok $iterator, 'exit';
- ok !defined $iterator->exit,
- "$name: ... and it should be undef before we are done ($subclass)";
-
- can_ok $iterator, 'next';
- is $iterator->next, 'one',
- "$name: next() should return the first result";
-
- is $iterator->next, 'two',
- "$name: next() should return the second result";
-
- is $iterator->next, '',
- "$name: next() should return the third result";
-
- is $iterator->next, 'three',
- "$name: next() should return the fourth result";
-
- ok !defined $iterator->next,
- "$name: next() should return undef after it is empty";
-
- is $iterator->exit, 0,
- "$name: ... and exit should now return 0 ($subclass)";
-
- is $iterator->wait, 0,
- "$name: wait should also now return 0 ($subclass)";
-
- if ( my $after = $test->{after} ) {
- $after->();
- }
- }
-}
-
-{
-
- # coverage tests for the ctor
-
- my $iterator = make_iterator( IO::Handle->new );
-
- isa_ok $iterator, 'TAP::Parser::Iterator::Stream';
-
- my @die;
-
- eval {
- local $SIG{__DIE__} = sub { push @die, @_ };
- make_iterator( \1 ); # a ref to a scalar
- };
-
- is @die, 1, 'coverage of error case';
-
- like pop @die, qr/Can't iterate with a SCALAR/,
- '...and we died as expected';
-}
-
-{
-
- # coverage test for VMS case
-
- my $iterator = make_iterator(
- [ 'not ',
- 'ok 1 - I hate VMS',
- ]
- );
-
- is $iterator->next, 'not ok 1 - I hate VMS',
- 'coverage of VMS line-splitting case';
-
- # coverage test for VMS case - nothing after 'not'
-
- $iterator = make_iterator(
- [ 'not ',
- ]
- );
-
- is $iterator->next, 'not ', '...and we find "not" by itself';
-}
-
-SKIP: {
- skip "No open3", 4 unless _can_open3();
-
- # coverage testing for TAP::Parser::Iterator::Process ctor
-
- my @die;
-
- eval {
- local $SIG{__DIE__} = sub { push @die, @_ };
- make_iterator( {} );
- };
-
- is @die, 1, 'coverage testing for TPI::Process';
-
- like pop @die, qr/Must supply a command to execute/,
- '...and we died as expected';
-
- my $parser = make_iterator(
- { command => [
- $^X,
- File::Spec->catfile( 't', 'sample-tests', 'out_err_mix' )
- ],
- merge => 1,
- }
- );
-
- is $parser->{err}, '', 'confirm we set err to empty string';
- is $parser->{sel}, undef, '...and selector to undef';
-
- # And then we read from the parser to sidestep the Mac OS / open3
- # bug which frequently throws an error here otherwise.
- $parser->next;
-}
-
-sub make_iterator {
- my $thing = shift;
- my $ref = ref $thing;
- if ( $ref eq 'GLOB' || UNIVERSAL::isa( $ref, 'IO::Handle' ) ) {
- return TAP::Parser::Iterator::Stream->new($thing);
- }
- elsif ( $ref eq 'ARRAY' ) {
- return TAP::Parser::Iterator::Array->new($thing);
- }
- elsif ( $ref eq 'HASH' ) {
- return TAP::Parser::Iterator::Process->new($thing);
- }
- else {
- die "Can't iterate with a $ref";
- }
-}
-
-__DATA__
-one
-two
-
-three
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/App/Prove/Plugin/Dummy.pm b/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/App/Prove/Plugin/Dummy.pm
deleted file mode 100644
index 81f79ea..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/App/Prove/Plugin/Dummy.pm
+++ /dev/null
@@ -1,9 +0,0 @@
-package App::Prove::Plugin::Dummy;
-
-use strict;
-
-sub import {
- main::test_log_import(@_);
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/Dev/Null.pm b/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/Dev/Null.pm
deleted file mode 100644
index 09ca5d6..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/Dev/Null.pm
+++ /dev/null
@@ -1,18 +0,0 @@
-# For shutting up Test::Harness.
-# Has to work on 5.004 which doesn't have Tie::StdHandle.
-package Dev::Null;
-
-sub WRITE { }
-sub PRINT { }
-sub PRINTF { }
-
-sub TIEHANDLE {
- my $class = shift;
- my $fh = do { local *HANDLE; \*HANDLE };
- return bless $fh, $class;
-}
-sub READ { }
-sub READLINE { }
-sub GETC { }
-
-1;
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/EmptyParser.pm b/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/EmptyParser.pm
deleted file mode 100644
index 76f9a7d..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/EmptyParser.pm
+++ /dev/null
@@ -1,26 +0,0 @@
-package EmptyParser;
-
-use strict;
-use vars qw(@ISA);
-
-use TAP::Parser ();
-
- at ISA = qw(TAP::Parser);
-
-sub _initialize {
- shift->_set_defaults;
-}
-
-# this should really be in TAP::Parser itself...
-sub _set_defaults {
- my $self = shift;
-
- for my $key (qw( grammar_class result_factory_class )) {
- my $default_method = "_default_$key";
- $self->$key( $self->$default_method() );
- }
-
- return $self;
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/MyFileSourceHandler.pm b/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/MyFileSourceHandler.pm
deleted file mode 100644
index d9b66c6..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/MyFileSourceHandler.pm
+++ /dev/null
@@ -1,35 +0,0 @@
-# subclass for testing TAP::Harness custom sources
-
-package MyFileSourceHandler;
-
-use strict;
-use vars qw( @ISA $LAST_OBJ $CAN_HANDLE $MAKE_ITER $LAST_SOURCE );
-
-use MyCustom;
-use TAP::Parser::IteratorFactory;
-use TAP::Parser::SourceHandler::File;
-
- at ISA = qw( TAP::Parser::SourceHandler::File MyCustom );
-$LAST_OBJ = undef;
-$CAN_HANDLE = undef;
-$MAKE_ITER = undef;
-$LAST_SOURCE = undef;
-
-TAP::Parser::IteratorFactory->register_handler(__PACKAGE__);
-
-sub can_handle {
- my $class = shift;
- $class->SUPER::can_handle(@_);
- $CAN_HANDLE++;
- return $class;
-}
-
-sub make_iterator {
- my ( $class, $source ) = @_;
- my $iter = $class->SUPER::make_iterator($source);
- $MAKE_ITER++;
- $LAST_SOURCE = $source;
- return $iter;
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/MyGrammar.pm b/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/MyGrammar.pm
deleted file mode 100644
index ef93f9d..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/MyGrammar.pm
+++ /dev/null
@@ -1,21 +0,0 @@
-# subclass for testing customizing & subclassing
-
-package MyGrammar;
-
-use strict;
-use vars '@ISA';
-
-use MyCustom;
-use TAP::Parser::Grammar;
-
- at ISA = qw( TAP::Parser::Grammar MyCustom );
-
-sub _initialize {
- my $self = shift;
- $self->SUPER::_initialize(@_);
- $main::INIT{ ref($self) }++;
- $self->{initialized} = 1;
- return $self;
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/MyResult.pm b/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/MyResult.pm
deleted file mode 100644
index ab4845d..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/MyResult.pm
+++ /dev/null
@@ -1,21 +0,0 @@
-# subclass for testing customizing & subclassing
-
-package MyResult;
-
-use strict;
-use vars '@ISA';
-
-use MyCustom;
-use TAP::Parser::Result;
-
- at ISA = qw( TAP::Parser::Result MyCustom );
-
-sub _initialize {
- my $self = shift;
- $self->SUPER::_initialize(@_);
- $main::INIT{ ref($self) }++;
- $self->{initialized} = 1;
- return $self;
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/MyResultFactory.pm b/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/MyResultFactory.pm
deleted file mode 100644
index 371bba6..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/MyResultFactory.pm
+++ /dev/null
@@ -1,23 +0,0 @@
-# subclass for testing customizing & subclassing
-
-package MyResultFactory;
-
-use strict;
-use vars '@ISA';
-
-use MyCustom;
-use MyResult;
-use TAP::Parser::ResultFactory;
-
- at ISA = qw( TAP::Parser::ResultFactory MyCustom );
-
-sub make_result {
- my $class = shift;
-
- # I know, this is not really being initialized, but
- # for consistency's sake, deal with it :)
- $main::INIT{$class}++;
- return MyResult->new(@_);
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/MyShebangger.pm b/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/MyShebangger.pm
deleted file mode 100644
index 074a2e1..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/MyShebangger.pm
+++ /dev/null
@@ -1,94 +0,0 @@
-package MyShebangger;
-
-use strict;
-use warnings;
-
-use Config;
-
-=head1 NAME
-
-MyShebangger - Encapsulate EUMM / MB shebang magic
-
-=item fix_shebang
-
- fix_shebang($file_in, $file_out);
-
-Inserts the sharpbang or equivalent magic number at the start of a file.
-
-=cut
-
-# stolen from ExtUtils::MakeMaker which said:
-# stolen from the pink Camel book, more or less
-sub fix_shebang {
- my ( $file_in, $file_out ) = @_;
-
- my ($does_shbang) = $Config{'sharpbang'} =~ /^\s*\#\!/;
-
- open my $fixin, '<', $file_in or die "Can't process '$file_in': $!";
- local $/ = "\n";
- chomp( my $line = <$fixin> );
-
- die "$file_in doesn't have a shebang line"
- unless $line =~ s/^\s*\#!\s*//;
-
- # Now figure out the interpreter name.
- my ( $cmd, $arg ) = split ' ', $line, 2;
- $cmd =~ s!^.*/!!;
-
- my $interpreter;
-
- die "$file_in is not perl"
- unless $cmd =~ m{^perl(?:\z|[^a-z])};
-
- if ( $Config{startperl} =~ m,^\#!.*/perl, ) {
- $interpreter = $Config{startperl};
- $interpreter =~ s,^\#!,,;
- }
- else {
- $interpreter = $Config{perlpath};
- }
-
- die "Can't figure out which interpreter to use."
- unless defined $interpreter;
-
- # Figure out how to invoke interpreter on this machine.
- my $shb = '';
-
- # this is probably value-free on DOSISH platforms
- my $shb_line = join ' ', grep defined, $interpreter, $arg;
- $shb .= "$Config{'sharpbang'}$shb_line\n"
- if $does_shbang;
- $shb .= qq{
-eval 'exec $shb_line -S \$0 \${1+"\$\@"}'
- if 0; # not running under some shell
-} unless $^O eq 'MSWin32'; # this won't work on win32, so don't
-
- open my $fixout, ">", "$file_out"
- or die "Can't create new $file_out: $!\n";
-
- # Print out the new #! line (or equivalent).
- local $\;
- local $/;
- print $fixout $shb, <$fixin>;
- close $fixin;
- close $fixout;
-
- system("$Config{'eunicefix'} $file_out") if $Config{'eunicefix'} ne ':';
- chmod 0755, $file_out; # ignore failure
-}
-
-{
- my @cleanup = ();
- my $seq = 1;
- END { unlink @cleanup }
-
- sub make_perl_executable {
- my $file = shift;
- my $tmp_file = "${file}_${$}_$seq.pl";
- $seq++;
- fix_shebang( $file, $tmp_file );
- push @cleanup, $tmp_file;
- return $tmp_file;
- }
-}
-1;
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/Test/Builder.pm b/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/Test/Builder.pm
deleted file mode 100644
index ed68226..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/Test/Builder.pm
+++ /dev/null
@@ -1,1850 +0,0 @@
-package Test::Builder;
-
-use 5.004;
-
-# $^C was only introduced in 5.005-ish. We do this to prevent
-# use of uninitialized value warnings in older perls.
-$^C ||= 0;
-
-use strict;
-use vars qw($VERSION);
-$VERSION = '0.72';
-$VERSION = eval $VERSION; # make the alpha version come out as a number
-
-# 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
- # occassionally 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 Test::Builder;
- require Exporter;
- @ISA = qw(Exporter);
- @EXPORT = qw(ok);
-
- my $Test = Test::Builder->new;
- $Test->output('my_logfile');
-
- sub import {
- my($self) = shift;
- my $pack = caller;
-
- $Test->exported_to($pack);
- $Test->plan(@_);
-
- $self->export_to_level(1, $self, 'ok');
- }
-
- sub ok {
- my($test, $name) = @_;
-
- $Test->ok($test, $name);
- }
-
-
-=head1 DESCRIPTION
-
-Test::Simple and Test::More have proven to be popular testing modules,
-but they're not always flexible enough. Test::Builder provides the 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 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
-
-my $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;
-}
-
-=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
-
-use vars qw($Level);
-
-sub reset {
- 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->{Test_Died} = 0;
- $self->{Have_Plan} = 0;
- $self->{No_Plan} = 0;
- $self->{Original_Pid} = $$;
-
- share( $self->{Curr_Test} );
- $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->_dup_stdhandles unless $^C;
-
- return undef;
-}
-
-=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<exported_to>
-
- my $pack = $Test->exported_to;
- $Test->exported_to($pack);
-
-Tells Test::Builder what package you exported your functions to.
-This is important for getting TODO tests right.
-
-=cut
-
-sub exported_to {
- my ( $self, $pack ) = @_;
-
- if ( defined $pack ) {
- $self->{Exported_To} = $pack;
- }
- return $self->{Exported_To};
-}
-
-=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 plan(), don't call any of the other methods below.
-
-=cut
-
-sub plan {
- my ( $self, $cmd, $arg ) = @_;
-
- return unless $cmd;
-
- local $Level = $Level + 1;
-
- if ( $self->{Have_Plan} ) {
- $self->croak("You tried to plan twice");
- }
-
- if ( $cmd eq 'no_plan' ) {
- $self->no_plan;
- }
- elsif ( $cmd eq 'skip_all' ) {
- return $self->skip_all($arg);
- }
- elsif ( $cmd eq 'tests' ) {
- if ($arg) {
- local $Level = $Level + 1;
- return $self->expected_tests($arg);
- }
- elsif ( !defined $arg ) {
- $self->croak("Got an undefined number of tests");
- }
- elsif ( !$arg ) {
- $self->croak("You said to run 0 tests");
- }
- }
- else {
- my @args = grep {defined} ( $cmd, $arg );
- $self->croak("plan() doesn't understand @args");
- }
-
- return 1;
-}
-
-=item B<expected_tests>
-
- my $max = $Test->expected_tests;
- $Test->expected_tests($max);
-
-Gets/sets the # 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+$/ and $max > 0;
-
- $self->{Expected_Tests} = $max;
- $self->{Have_Plan} = 1;
-
- $self->_print("1..$max\n") unless $self->no_header;
- }
- return $self->{Expected_Tests};
-}
-
-=item B<no_plan>
-
- $Test->no_plan;
-
-Declares that this test will run an indeterminate # of tests.
-
-=cut
-
-sub no_plan {
- my $self = shift;
-
- $self->{No_Plan} = 1;
- $self->{Have_Plan} = 1;
-}
-
-=item B<has_plan>
-
- $plan = $Test->has_plan
-
-Find out whether a plan has been defined. $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 $reason. Exits immediately with 0.
-
-=cut
-
-sub skip_all {
- my ( $self, $reason ) = @_;
-
- my $out = "1..0";
- $out .= " # Skip $reason" if $reason;
- $out .= "\n";
-
- $self->{Skip_All} = 1;
-
- $self->_print($out) unless $self->no_header;
- exit(0);
-}
-
-=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.
-
-$name is always optional.
-
-=over 4
-
-=item B<ok>
-
- $Test->ok($test, $name);
-
-Your basic test. Pass if $test is true, fail if $test is false. Just
-like Test::Simple's ok().
-
-=cut
-
-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;
-
- $self->_plan_check;
-
- 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
-
- my ( $pack, $file, $line ) = $self->caller;
-
- my $todo = $self->todo($pack);
- $self->_unoverload_str( \$todo );
-
- my $out;
- my $result = &share( {} );
-
- unless ($test) {
- $out .= "not ";
- @$result{ 'ok', 'actual_ok' } = ( ( $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 ($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 = $todo ? "Failed (TODO)" : "Failed";
- $self->_print_diag("\n") if $ENV{HARNESS_ACTIVE};
-
- 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]);
- }
- }
-
- return $test ? 1 : 0;
-}
-
-sub _unoverload {
- my $self = shift;
- my $type = shift;
-
- $self->_try( sub { require overload } ) || return;
-
- for my $thing (@_) {
- if ( $self->_is_object($$thing) ) {
- if ( my $string_meth = overload::Method( $$thing, $type ) ) {
- $$thing = $$thing->$string_meth();
- }
- }
- }
-}
-
-sub _is_object {
- my ( $self, $thing ) = @_;
-
- return $self->_try( sub { ref $thing && $thing->isa('UNIVERSAL') } )
- ? 1
- : 0;
-}
-
-sub _unoverload_str {
- my $self = shift;
-
- $self->_unoverload( q[""], @_ );
-}
-
-sub _unoverload_num {
- my $self = shift;
-
- $self->_unoverload( '0+', @_ );
-
- for my $val (@_) {
- next unless $self->_is_dualvar($$val);
- $$val = $$val + 0;
- }
-}
-
-# This is a hack to detect a dualvar such as $!
-sub _is_dualvar {
- my ( $self, $val ) = @_;
-
- local $^W = 0;
- my $numval = $val + 0;
- return 1 if $numval != 0 and $numval ne $val;
-}
-
-=item B<is_eq>
-
- $Test->is_eq($got, $expected, $name);
-
-Like Test::More's is(). Checks if $got eq $expected. This is the
-string version.
-
-=item B<is_num>
-
- $Test->is_num($got, $expected, $name);
-
-Like Test::More's is(). Checks if $got == $expected. This is the
-numeric version.
-
-=cut
-
-sub is_eq {
- my ( $self, $got, $expect, $name ) = @_;
- local $Level = $Level + 1;
-
- $self->_unoverload_str( \$got, \$expect );
-
- 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;
-
- $self->_unoverload_num( \$got, \$expect );
-
- 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 _is_diag {
- my ( $self, $got, $type, $expect ) = @_;
-
- for my $val ( \$got, \$expect ) {
- if ( defined $$val ) {
- if ( $type eq 'eq' ) {
-
- # quote and force string context
- $$val = "'$$val'";
- }
- else {
-
- # force numeric context
- $self->_unoverload_num($val);
- }
- }
- else {
- $$val = 'undef';
- }
- }
-
- return $self->diag( sprintf <<DIAGNOSTIC, $got, $expect );
- got: %s
- expected: %s
-DIAGNOSTIC
-
-}
-
-=item B<isnt_eq>
-
- $Test->isnt_eq($got, $dont_expect, $name);
-
-Like Test::More's isnt(). Checks if $got ne $dont_expect. This is
-the string version.
-
-=item B<isnt_num>
-
- $Test->isnt_num($got, $dont_expect, $name);
-
-Like Test::More's isnt(). Checks if $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->_cmp_diag( $got, 'ne', $dont_expect ) 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->_cmp_diag( $got, '!=', $dont_expect ) unless $test;
- return $test;
- }
-
- return $self->cmp_ok( $got, '!=', $dont_expect, $name );
-}
-
-=item B<like>
-
- $Test->like($this, qr/$regex/, $name);
- $Test->like($this, '/$regex/', $name);
-
-Like Test::More's like(). Checks if $this matches the given $regex.
-
-You'll want to avoid qr// if you want your tests to work before 5.005.
-
-=item B<unlike>
-
- $Test->unlike($this, qr/$regex/, $name);
- $Test->unlike($this, '/$regex/', $name);
-
-Like Test::More's unlike(). Checks if $this B<does not match> the
-given $regex.
-
-=cut
-
-sub like {
- my ( $self, $this, $regex, $name ) = @_;
-
- local $Level = $Level + 1;
- $self->_regex_ok( $this, $regex, '=~', $name );
-}
-
-sub unlike {
- my ( $self, $this, $regex, $name ) = @_;
-
- local $Level = $Level + 1;
- $self->_regex_ok( $this, $regex, '!~', $name );
-}
-
-=item B<cmp_ok>
-
- $Test->cmp_ok($this, $type, $that, $name);
-
-Works just like Test::More's cmp_ok().
-
- $Test->cmp_ok($big_num, '!=', $other_big_num);
-
-=cut
-
-my %numeric_cmps
- = map { ( $_, 1 ) } ( "<", "<=", ">", ">=", "==", "!=", "<=>" );
-
-sub cmp_ok {
- my ( $self, $got, $type, $expect, $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->$unoverload( \$got, \$expect );
-
- my $test;
- {
- local ( $@, $!, $SIG{__DIE__} ); # isolate eval
-
- my $code = $self->_caller_context;
-
- # Yes, it has to look like this or 5.4.5 won't see the #line directive.
- # Don't ask me, man, I just work here.
- $test = eval "
-$code" . "\$got $type \$expect;";
-
- }
- local $Level = $Level + 1;
- my $ok = $self->ok( $test, $name );
-
- unless ($ok) {
- if ( $type =~ /^(eq|==)$/ ) {
- $self->_is_diag( $got, $type, $expect );
- }
- 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';
- return $self->diag( sprintf <<DIAGNOSTIC, $got, $type, $expect );
- %s
- %s
- %s
-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 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;
- $self->_print("Bail out! $reason");
- exit 255;
-}
-
-=for deprecated
-BAIL_OUT() used to be BAILOUT()
-
-=cut
-
-*BAILOUT = \&BAIL_OUT;
-
-=item B<skip>
-
- $Test->skip;
- $Test->skip($why);
-
-Skips the current test, reporting $why.
-
-=cut
-
-sub skip {
- my ( $self, $why ) = @_;
- $why ||= '';
- $self->_unoverload_str( \$why );
-
- $self->_plan_check;
-
- lock( $self->{Curr_Test} );
- $self->{Curr_Test}++;
-
- $self->{Test_Results}[ $self->{Curr_Test} - 1 ] = &share(
- { 'ok' => 1,
- actual_ok => 1,
- 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 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 ||= '';
-
- $self->_plan_check;
-
- 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 skip(), only it skips all the rest of the tests you plan to run
-and terminates the test.
-
-If you're running under 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/');
-
-Convenience method for building testing functions that take regular
-expressions as arguments, but need to work before perl 5.005.
-
-Takes a quoted regular expression produced by qr//, or a string
-representing a regular expression.
-
-Returns a Perl value which may be used instead of the corresponding
-regular expression, or undef if it's argument is not recognised.
-
-For example, a version of like(), sans the useful diagnostic messages,
-could be written as:
-
- sub laconic_like {
- my ($self, $this, $regex, $name) = @_;
- my $usable_regex = $self->maybe_regex($regex);
- die "expecting regex, found '$regex'\n"
- unless $usable_regex;
- $self->ok($this =~ 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 ( ref $regex eq 'Regexp' ) {
- $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 _regex_ok {
- my ( $self, $this, $regex, $cmp, $name ) = @_;
-
- my $ok = 0;
- my $usable_regex = $self->maybe_regex($regex);
- unless ( defined $usable_regex ) {
- $ok = $self->ok( 0, $name );
- $self->diag(" '$regex' doesn't look much like a regex to me.");
- return $ok;
- }
-
- {
- my $test;
- my $code = $self->_caller_context;
-
- local ( $@, $!, $SIG{__DIE__} ); # isolate eval
-
- # Yes, it has to look like this or 5.4.5 won't see the #line directive.
- # Don't ask me, man, I just work here.
- $test = eval "
-$code" . q{$test = $this =~ /$usable_regex/ ? 1 : 0};
-
- $test = !$test if $cmp eq '!~';
-
- local $Level = $Level + 1;
- $ok = $self->ok( $test, $name );
- }
-
- unless ($ok) {
- $this = defined $this ? "'$this'" : 'undef';
- my $match = $cmp eq '=~' ? "doesn't match" : "matches";
- $self->diag( sprintf <<DIAGNOSTIC, $this, $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. $@ is not set) nor is effected by outside interference (ie. $SIG{__DIE__}) and works around some quirks in older Perls.
-
-$error is what would normally be in $@.
-
-It is suggested you use this in place of eval BLOCK.
-
-=cut
-
-sub _try {
- my ( $self, $code ) = @_;
-
- local $!; # eval can mess up $!
- local $@; # don't set $@ in the test
- local $SIG{__DIE__}; # don't trip an outside DIE handler.
- my $return = eval { $code->() };
-
- return wantarray ? ( $return, $@ ) : $return;
-}
-
-=end private
-
-
-=item B<is_fh>
-
- my $is_fh = $Test->is_fh($thing);
-
-Determines if the given $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") } ||
-
- # 5.5.4's tied() and can() doesn't like getting undef
- 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 $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
-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
-
-for 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';
- *{ __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 @msgs. Like C<print>, arguments are simply
-appended together.
-
-Normally, it uses the failure_output() handle, but if this is for a
-TODO test, the 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 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 at twoshortplanks.com>
-
-=cut
-
-sub diag {
- my ( $self, @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 each line with a #.
- $msg =~ s/^/# /gm;
-
- # Stick a newline on the end if it needs it.
- $msg .= "\n" unless $msg =~ /\n\Z/;
-
- local $Level = $Level + 1;
- $self->_print_diag($msg);
-
- return 0;
-}
-
-=begin _private
-
-=item B<_print>
-
- $Test->_print(@msgs);
-
-Prints to the output() filehandle.
-
-=end _private
-
-=cut
-
-sub _print {
- my ( $self, @msgs ) = @_;
-
- # Prevent printing headers when only compiling. Mostly for when
- # tests are deparsed with B::Deparse
- return if $^C;
-
- my $msg = join '', @msgs;
-
- local ( $\, $", $, ) = ( undef, ' ', '' );
- my $fh = $self->output;
-
- # Escape each line after the first with a # so we don't
- # confuse Test::Harness.
- $msg =~ s/\n(.)/\n# $1/sg;
-
- # Stick a newline on the end if it needs it.
- $msg .= "\n" unless $msg =~ /\n\Z/;
-
- print $fh $msg;
-}
-
-=begin private
-
-=item B<_print_diag>
-
- $Test->_print_diag(@msg);
-
-Like _print, but prints to the current diagnostic filehandle.
-
-=end private
-
-=cut
-
-sub _print_diag {
- my $self = shift;
-
- local ( $\, $", $, ) = ( undef, ' ', '' );
- my $fh = $self->todo ? $self->todo_output : $self->failure_output;
- print $fh @_;
-}
-
-=item B<output>
-
- $Test->output($fh);
- $Test->output($file);
-
-Where normal "ok/not ok" test output should go.
-
-Defaults to STDOUT.
-
-=item B<failure_output>
-
- $Test->failure_output($fh);
- $Test->failure_output($file);
-
-Where diagnostic output on test failures and diag() should go.
-
-Defaults to STDERR.
-
-=item B<todo_output>
-
- $Test->todo_output($fh);
- $Test->todo_output($file);
-
-Where diagnostics about todo test failures and diag() should go.
-
-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;
- }
- else {
- $fh = do { local *FH };
- 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;
-}
-
-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->output( \*TESTOUT );
- $self->failure_output( \*TESTERR );
- $self->todo_output( \*TESTOUT );
-}
-
-my $Opened_Testhandles = 0;
-
-sub _open_testhandles {
- return if $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: $!";
- $Opened_Testhandles = 1;
-}
-
-=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;
- warn $self->_message_at_caller(@_);
-}
-
-sub croak {
- my $self = shift;
- die $self->_message_at_caller(@_);
-}
-
-sub _plan_check {
- my $self = shift;
-
- unless ( $self->{Have_Plan} ) {
- local $Level = $Level + 2;
- $self->croak("You tried to run a test without a plan");
- }
-}
-
-=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 ) {
- unless ( $self->{Have_Plan} ) {
- $self->croak(
- "Can't change the current test number without a plan!");
- }
-
- $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<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 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 current_test() is changed.
-In these cases, Test::Builder doesn't know the result of the test, so
-it's type is 'unkown'. These details for these tests are filled in.
-They are considered ok, but the name and actual_ok is left 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 it's 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);
-
-todo() looks for a $TODO variable in your tests. If set, all tests
-will be considered 'todo' (see Test::More and Test::Harness for
-details). Returns the reason (ie. the value of $TODO) if running as
-todo tests, false otherwise.
-
-todo() is about finding the right package to look for $TODO in. It
-uses the exported_to() package to find it. If that's not set, it's
-pretty good at guessing the right package to look at based on $Level.
-
-Sometimes there is some confusion about where todo() should be looking
-for the $TODO variable. If you want to be sure, tell it explicitly
-what $pack to use.
-
-=cut
-
-sub todo {
- my ( $self, $pack ) = @_;
-
- $pack = $pack || $self->exported_to || $self->caller($Level);
- return 0 unless $pack;
-
- no strict 'refs';
- return defined ${ $pack . '::TODO' }
- ? ${ $pack . '::TODO' }
- : 0;
-}
-
-=item B<caller>
-
- my $package = $Test->caller;
- my($pack, $file, $line) = $Test->caller;
- my($pack, $file, $line) = $Test->caller($height);
-
-Like the normal caller(), except it reports according to your level().
-
-=cut
-
-sub caller {
- my ( $self, $height ) = @_;
- $height ||= 0;
-
- my @caller = CORE::caller( $self->level + $height + 1 );
- 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->{Have_Plan} and $self->{Curr_Test},
- 'Somehow your tests ran without a plan!'
- );
- $self->_whoa(
- $self->{Curr_Test} != @{ $self->{Test_Results} },
- 'Somehow you got a different number of results than tests ran!'
- );
-}
-
-=item B<_whoa>
-
- $self->_whoa($check, $description);
-
-A sanity check, similar to assert(). If the $check is true, something
-has gone horribly wrong. It will die with the given $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
- }
-}
-
-=item B<_my_exit>
-
- _my_exit($exit_num);
-
-Perl seems to have some trouble with exiting inside an END block. 5.005_03
-and 5.6.1 both seem to do odd things. Instead, this function edits $?
-directly. It should ONLY be called from inside an END block. It
-doesn't actually exit, that's your job.
-
-=cut
-
-sub _my_exit {
- $? = $_[0];
-
- return 1;
-}
-
-=back
-
-=end _private
-
-=cut
-
-$SIG{__DIE__} = sub {
-
- # We don't want to muck with death in an eval, but $^S isn't
- # totally reliable. 5.005_03 and 5.6.1 both do the wrong thing
- # with it. Instead, we use caller. This also means it runs under
- # 5.004!
- my $in_eval = 0;
- for ( my $stack = 1; my $sub = ( CORE::caller($stack) )[3]; $stack++ ) {
- $in_eval = 1 if $sub =~ /^\(eval\)/;
- }
- $Test->{Test_Died} = 1 unless $in_eval;
-};
-
-sub _ending {
- my $self = shift;
-
- $self->_sanity_check();
-
- # Don't bother with an ending if this is a forked copy. Only the parent
- # should do the ending.
- # Exit if plan() was never called. This is so "require Test::Simple"
- # doesn't puke.
- # Don't do an ending if we bailed out.
- if ( ( $self->{Original_Pid} != $$ )
- or ( !$self->{Have_Plan} && !$self->{Test_Died} )
- or $self->{Bailed_Out} )
- {
- _my_exit($?);
- 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->_print("1..$self->{Curr_Test}\n") 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 only ran $self->{Curr_Test}.
-FAIL
- }
- elsif ( $num_extra > 0 ) {
- my $s = $self->{Expected_Tests} == 1 ? '' : 's';
- $self->diag(<<"FAIL");
-Looks like you planned $self->{Expected_Tests} test$s but ran $num_extra extra.
-FAIL
- }
-
- 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
- }
-
- if ( $self->{Test_Died} ) {
- $self->diag(<<"FAIL");
-Looks like your test died just after $self->{Curr_Test}.
-FAIL
-
- _my_exit(255) && 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 ( $self->{Test_Died} ) {
- $self->diag(<<'FAIL');
-Looks like your test died before it could output anything.
-FAIL
- _my_exit(255) && return;
- }
- else {
- $self->diag("No tests run!\n");
- _my_exit(255) && return;
- }
-}
-
-END {
- $Test->_ending if defined $Test and !$Test->no_ending;
-}
-
-=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 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 EXAMPLES
-
-CPAN can provide the best examples. Test::Simple, Test::More,
-Test::Exception and Test::Differences all use Test::Builder.
-
-=head1 SEE ALSO
-
-Test::Simple, Test::More, Test::Harness
-
-=head1 AUTHORS
-
-Original code by chromatic, maintained by Michael G Schwern
-E<lt>schwern at pobox.comE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2002, 2004 by chromatic E<lt>chromatic at wgz.orgE<gt> and
- Michael G Schwern E<lt>schwern at 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/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/if.pm b/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/if.pm
deleted file mode 100644
index 6971b73..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/lib/if.pm
+++ /dev/null
@@ -1,57 +0,0 @@
-package if;
-
-$VERSION = '0.05';
-
-sub work {
- my $method = shift() ? 'import' : 'unimport';
- die
- "Too few arguments to `use if' (some code returning an empty list in list context?)"
- unless @_ >= 2;
- 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
-
-=head1 SYNOPSIS
-
- use if CONDITION, MODULE => ARGUMENTS;
-
-=head1 DESCRIPTION
-
-The construct
-
- use if CONDITION, MODULE => ARGUMENTS;
-
-has no effect unless C<CONDITION> is true. In this case the effect is
-the same as of
-
- use MODULE ARGUMENTS;
-
-Above C<< => >> provides necessary quoting of C<MODULE>. If not used (e.g.,
-no ARGUMENTS to give), you'd better quote C<MODULE> yourselves.
-
-=head1 BUGS
-
-The current implementation does not allow specification of the
-required version of the module.
-
-=head1 AUTHOR
-
-Ilya Zakharevich L<mailto:perl-module-if at ilyaz.org>.
-
-=cut
-
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/nofork-mux.t b/3.8.8/sources/cpan-Test-Harness/vendor/t/nofork-mux.t
deleted file mode 100644
index 1dba20d..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/nofork-mux.t
+++ /dev/null
@@ -1,17 +0,0 @@
-#!/usr/bin/perl -w
-
-BEGIN {
- if ( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ( '../lib', '../ext/Test-Harness/t/lib' );
- }
- else {
- use lib 't/lib';
- }
-}
-
-use strict;
-
-use NoFork;
-require(
- ( $ENV{PERL_CORE} ? '../ext/Test-Harness/' : '' ) . 't/multiplexer.t' );
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/nofork.t b/3.8.8/sources/cpan-Test-Harness/vendor/t/nofork.t
deleted file mode 100755
index 01375e0..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/nofork.t
+++ /dev/null
@@ -1,68 +0,0 @@
-#!/usr/bin/perl -w
-
-# check nofork logic on systems which *can* fork()
-# NOTE maybe a good candidate for xt/author or something.
-
-BEGIN {
- if ( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ( '../lib', '../ext/Test-Harness/t/lib' );
- }
- else {
- use lib 't/lib';
- }
-}
-
-use strict;
-
-use Config;
-use Test::More (
- $Config{d_fork}
- ? 'no_plan'
- : ( 'skip_all' => 'your system already has no fork' )
-);
-use IO::c55Capture; # for util
-
-use TAP::Harness;
-
-sub backticks {
- my (@args) = @_;
-
- util::stdout_of( sub { system(@args) and die "error $?" } );
-}
-
-my @libs = map "-I$_", @INC;
-my @perl = ( $^X, @libs );
-my $mod = 'TAP::Parser::Iterator::Process';
-
-{ # just check the introspective method to start...
- my $code = qq(print $mod->_use_open3 ? 1 : 2);
- {
- my $ans = backticks( @perl, '-MNoFork', "-M$mod", '-e', $code );
- is( $ans, 2, 'says not to fork' );
- }
- {
- local $ENV{PERL5OPT}; # punt: prevent propogating -MNoFork
- my $ans = backticks( @perl, "-M$mod", '-e', $code );
- is( $ans, 1, 'says to fork' );
- }
-}
-
-{ # and make sure we can run a test
- my $capture = IO::c55Capture->new_handle;
- local *STDERR;
- my $harness = TAP::Harness->new(
- { verbosity => -2,
- switches => [ @libs, "-MNoFork" ],
- stdout => $capture,
- }
- );
- $harness->runtests( ( $ENV{PERL_CORE} ? '../ext/Test-Harness/' : '' )
- . 't/sample-tests/simple' );
- my @output = tied($$capture)->dump;
- is pop @output, "Result: PASS\n", 'status OK';
- pop @output; # get rid of summary line
- is( $output[-1], "All tests successful.\n", 'ran with no fork' );
-}
-
-# vim:ts=4:sw=4:et:sta
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/parse.t b/3.8.8/sources/cpan-Test-Harness/vendor/t/parse.t
deleted file mode 100755
index 97db067..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/parse.t
+++ /dev/null
@@ -1,1075 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-
-BEGIN {
- if ( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ( '../lib', '../ext/Test-Harness/t/lib' );
- }
- else {
- use lib 't/lib';
- }
-}
-
-use Test::More tests => 294;
-use IO::c55Capture;
-
-use File::Spec;
-
-use TAP::Parser;
-use TAP::Parser::Iterator::Array;
-
-sub _get_results {
- my $parser = shift;
- my @results;
- while ( defined( my $result = $parser->next ) ) {
- push @results => $result;
- }
- return @results;
-}
-
-my ( $PARSER, $PLAN, $PRAGMA, $TEST, $COMMENT, $BAILOUT, $UNKNOWN, $YAML, $VERSION ) = qw(
- TAP::Parser
- TAP::Parser::Result::Plan
- TAP::Parser::Result::Pragma
- TAP::Parser::Result::Test
- TAP::Parser::Result::Comment
- TAP::Parser::Result::Bailout
- TAP::Parser::Result::Unknown
- TAP::Parser::Result::YAML
- TAP::Parser::Result::Version
-);
-
-my $tap = <<'END_TAP';
-TAP version 13
-1..7
-ok 1 - input file opened
-... this is junk
-not ok first line of the input valid # todo some data
-# this is a comment
-ok 3 - read the rest of the file
-not ok 4 - this is a real failure
- --- YAML!
- ...
-ok 5 # skip we have no description
-ok 6 - you shall not pass! # TODO should have failed
-not ok 7 - Gandalf wins. Game over. # TODO 'bout time!
-END_TAP
-
-can_ok $PARSER, 'new';
-my $parser = $PARSER->new( { tap => $tap } );
-isa_ok $parser, $PARSER, '... and the object it returns';
-
-ok $ENV{TAP_VERSION}, 'TAP_VERSION env variable should be set';
-
-# results() is sane?
-
-my @results = _get_results($parser);
-is scalar @results, 12, '... and there should be one for each line';
-
-my $version = shift @results;
-isa_ok $version, $VERSION;
-is $version->version, '13', '... and the version should be 13';
-
-# check the test plan
-
-my $result = shift @results;
-isa_ok $result, $PLAN;
-can_ok $result, 'type';
-is $result->type, 'plan', '... and it should report the correct type';
-ok $result->is_plan, '... and it should identify itself as a plan';
-is $result->plan, '1..7', '... and identify the plan';
-ok !$result->directive, '... and this plan should not have a directive';
-ok !$result->explanation, '... or a directive explanation';
-is $result->as_string, '1..7',
- '... and have the correct string representation';
-is $result->raw, '1..7', '... and raw() should return the original line';
-
-# a normal, passing test
-
-my $test = shift @results;
-isa_ok $test, $TEST;
-is $test->type, 'test', '... and it should report the correct type';
-ok $test->is_test, '... and it should identify itself as a test';
-is $test->ok, 'ok', '... and it should have the correct ok()';
-ok $test->is_ok, '... and the correct boolean version of is_ok()';
-ok $test->is_actual_ok,
- '... and the correct boolean version of is_actual_ok()';
-is $test->number, 1, '... and have the correct test number';
-is $test->description, '- input file opened',
- '... and the correct description';
-ok !$test->directive, '... and not have a directive';
-ok !$test->explanation, '... or a directive explanation';
-ok !$test->has_skip, '... and it is not a SKIPped test';
-ok !$test->has_todo, '... nor a TODO test';
-is $test->as_string, 'ok 1 - input file opened',
- '... and its string representation should be correct';
-is $test->raw, 'ok 1 - input file opened',
- '... and raw() should return the original line';
-
-# junk lines should be preserved
-
-my $unknown = shift @results;
-isa_ok $unknown, $UNKNOWN;
-is $unknown->type, 'unknown', '... and it should report the correct type';
-ok $unknown->is_unknown, '... and it should identify itself as unknown';
-is $unknown->as_string, '... this is junk',
- '... and its string representation should be returned verbatim';
-is $unknown->raw, '... this is junk',
- '... and raw() should return the original line';
-
-# a failing test, which also happens to have a directive
-
-my $failed = shift @results;
-isa_ok $failed, $TEST;
-is $failed->type, 'test', '... and it should report the correct type';
-ok $failed->is_test, '... and it should identify itself as a test';
-is $failed->ok, 'not ok', '... and it should have the correct ok()';
-ok $failed->is_ok, '... and TODO tests should always pass';
-ok !$failed->is_actual_ok,
- '... and the correct boolean version of is_actual_ok ()';
-is $failed->number, 2, '... and have the correct failed number';
-is $failed->description, 'first line of the input valid',
- '... and the correct description';
-is $failed->directive, 'TODO', '... and should have the correct directive';
-is $failed->explanation, 'some data',
- '... and the correct directive explanation';
-ok !$failed->has_skip, '... and it is not a SKIPped failed';
-ok $failed->has_todo, '... but it is a TODO succeeded';
-is $failed->as_string,
- 'not ok 2 first line of the input valid # TODO some data',
- '... and its string representation should be correct';
-is $failed->raw, 'not ok first line of the input valid # todo some data',
- '... and raw() should return the original line';
-
-# comments
-
-my $comment = shift @results;
-isa_ok $comment, $COMMENT;
-is $comment->type, 'comment', '... and it should report the correct type';
-ok $comment->is_comment, '... and it should identify itself as a comment';
-is $comment->comment, 'this is a comment',
- '... and you should be able to fetch the comment';
-is $comment->as_string, '# this is a comment',
- '... and have the correct string representation';
-is $comment->raw, '# this is a comment',
- '... and raw() should return the original line';
-
-# another normal, passing test
-
-$test = shift @results;
-isa_ok $test, $TEST;
-is $test->type, 'test', '... and it should report the correct type';
-ok $test->is_test, '... and it should identify itself as a test';
-is $test->ok, 'ok', '... and it should have the correct ok()';
-ok $test->is_ok, '... and the correct boolean version of is_ok()';
-ok $test->is_actual_ok,
- '... and the correct boolean version of is_actual_ok()';
-is $test->number, 3, '... and have the correct test number';
-is $test->description, '- read the rest of the file',
- '... and the correct description';
-ok !$test->directive, '... and not have a directive';
-ok !$test->explanation, '... or a directive explanation';
-ok !$test->has_skip, '... and it is not a SKIPped test';
-ok !$test->has_todo, '... nor a TODO test';
-is $test->as_string, 'ok 3 - read the rest of the file',
- '... and its string representation should be correct';
-is $test->raw, 'ok 3 - read the rest of the file',
- '... and raw() should return the original line';
-
-# a failing test
-
-$failed = shift @results;
-isa_ok $failed, $TEST;
-is $failed->type, 'test', '... and it should report the correct type';
-ok $failed->is_test, '... and it should identify itself as a test';
-is $failed->ok, 'not ok', '... and it should have the correct ok()';
-ok !$failed->is_ok, '... and the tests should not have passed';
-ok !$failed->is_actual_ok,
- '... and the correct boolean version of is_actual_ok ()';
-is $failed->number, 4, '... and have the correct failed number';
-is $failed->description, '- this is a real failure',
- '... and the correct description';
-ok !$failed->directive, '... and should have no directive';
-ok !$failed->explanation, '... and no directive explanation';
-ok !$failed->has_skip, '... and it is not a SKIPped failed';
-ok !$failed->has_todo, '... and not a TODO test';
-is $failed->as_string, 'not ok 4 - this is a real failure',
- '... and its string representation should be correct';
-is $failed->raw, 'not ok 4 - this is a real failure',
- '... and raw() should return the original line';
-
-# Some YAML
-my $yaml = shift @results;
-isa_ok $yaml, $YAML;
-is $yaml->type, 'yaml', '... and it should report the correct type';
-ok $yaml->is_yaml, '... and it should identify itself as yaml';
-is_deeply $yaml->data, 'YAML!', '... and data should be correct';
-
-# ok 5 # skip we have no description
-# skipped test
-
-$test = shift @results;
-isa_ok $test, $TEST;
-is $test->type, 'test', '... and it should report the correct type';
-ok $test->is_test, '... and it should identify itself as a test';
-is $test->ok, 'ok', '... and it should have the correct ok()';
-ok $test->is_ok, '... and the correct boolean version of is_ok()';
-ok $test->is_actual_ok,
- '... and the correct boolean version of is_actual_ok()';
-is $test->number, 5, '... and have the correct test number';
-ok !$test->description, '... and skipped tests have no description';
-is $test->directive, 'SKIP', '... and the correct directive';
-is $test->explanation, 'we have no description',
- '... but we should have an explanation';
-ok $test->has_skip, '... and it is a SKIPped test';
-ok !$test->has_todo, '... but not a TODO test';
-is $test->as_string, 'ok 5 # SKIP we have no description',
- '... and its string representation should be correct';
-is $test->raw, 'ok 5 # skip we have no description',
- '... and raw() should return the original line';
-
-# a failing test, which also happens to have a directive
-# ok 6 - you shall not pass! # TODO should have failed
-
-my $bonus = shift @results;
-isa_ok $bonus, $TEST;
-can_ok $bonus, 'todo_passed';
-is $bonus->type, 'test', 'TODO tests should parse correctly';
-ok $bonus->is_test, '... and it should identify itself as a test';
-is $bonus->ok, 'ok', '... and it should have the correct ok()';
-ok $bonus->is_ok, '... and TODO tests should not always pass';
-ok $bonus->is_actual_ok,
- '... and the correct boolean version of is_actual_ok ()';
-is $bonus->number, 6, '... and have the correct failed number';
-is $bonus->description, '- you shall not pass!',
- '... and the correct description';
-is $bonus->directive, 'TODO', '... and should have the correct directive';
-is $bonus->explanation, 'should have failed',
- '... and the correct directive explanation';
-ok !$bonus->has_skip, '... and it is not a SKIPped failed';
-ok $bonus->has_todo, '... but it is a TODO succeeded';
-is $bonus->as_string, 'ok 6 - you shall not pass! # TODO should have failed',
- '... and its string representation should be correct';
-is $bonus->raw, 'ok 6 - you shall not pass! # TODO should have failed',
- '... and raw() should return the original line';
-ok $bonus->todo_passed,
- '... todo_bonus() should pass for TODO tests which unexpectedly succeed';
-
-# not ok 7 - Gandalf wins. Game over. # TODO 'bout time!
-
-my $passed = shift @results;
-isa_ok $passed, $TEST;
-can_ok $passed, 'todo_passed';
-is $passed->type, 'test', 'TODO tests should parse correctly';
-ok $passed->is_test, '... and it should identify itself as a test';
-is $passed->ok, 'not ok', '... and it should have the correct ok()';
-ok $passed->is_ok, '... and TODO tests should always pass';
-ok !$passed->is_actual_ok,
- '... and the correct boolean version of is_actual_ok ()';
-is $passed->number, 7, '... and have the correct passed number';
-is $passed->description, '- Gandalf wins. Game over.',
- '... and the correct description';
-is $passed->directive, 'TODO', '... and should have the correct directive';
-is $passed->explanation, "'bout time!",
- '... and the correct directive explanation';
-ok !$passed->has_skip, '... and it is not a SKIPped passed';
-ok $passed->has_todo, '... but it is a TODO succeeded';
-is $passed->as_string,
- "not ok 7 - Gandalf wins. Game over. # TODO 'bout time!",
- '... and its string representation should be correct';
-is $passed->raw, "not ok 7 - Gandalf wins. Game over. # TODO 'bout time!",
- '... and raw() should return the original line';
-ok !$passed->todo_passed,
- '... todo_passed() should not pass for TODO tests which failed';
-
-# test parse results
-
-can_ok $parser, 'passed';
-is $parser->passed, 6,
- '... and we should have the correct number of passed tests';
-is_deeply [ $parser->passed ], [ 1, 2, 3, 5, 6, 7 ],
- '... and get a list of the passed tests';
-
-can_ok $parser, 'failed';
-is $parser->failed, 1, '... and the correct number of failed tests';
-is_deeply [ $parser->failed ], [4], '... and get a list of the failed tests';
-
-can_ok $parser, 'actual_passed';
-is $parser->actual_passed, 4,
- '... and we should have the correct number of actually passed tests';
-is_deeply [ $parser->actual_passed ], [ 1, 3, 5, 6 ],
- '... and get a list of the actually passed tests';
-
-can_ok $parser, 'actual_failed';
-is $parser->actual_failed, 3,
- '... and the correct number of actually failed tests';
-is_deeply [ $parser->actual_failed ], [ 2, 4, 7 ],
- '... or get a list of the actually failed tests';
-
-can_ok $parser, 'todo';
-is $parser->todo, 3,
- '... and we should have the correct number of TODO tests';
-is_deeply [ $parser->todo ], [ 2, 6, 7 ],
- '... and get a list of the TODO tests';
-
-can_ok $parser, 'skipped';
-is $parser->skipped, 1,
- '... and we should have the correct number of skipped tests';
-is_deeply [ $parser->skipped ], [5],
- '... and get a list of the skipped tests';
-
-# check the plan
-
-can_ok $parser, 'plan';
-is $parser->plan, '1..7', '... and we should have the correct plan';
-is $parser->tests_planned, 7, '... and the correct number of tests';
-
-# "Unexpectedly succeeded"
-can_ok $parser, 'todo_passed';
-is scalar $parser->todo_passed, 1,
- '... and it should report the number of tests which unexpectedly succeeded';
-is_deeply [ $parser->todo_passed ], [6],
- '... or *which* tests unexpectedly succeeded';
-
-#
-# Bug report from Torsten Schoenfeld
-# Makes sure parser can handle blank lines
-#
-
-$tap = <<'END_TAP';
-1..2
-ok 1 - input file opened
-
-
-ok 2 - read the rest of the file
-END_TAP
-
-my $aref = [ split /\n/ => $tap ];
-
-can_ok $PARSER, 'new';
-$parser
- = $PARSER->new( { iterator => TAP::Parser::Iterator::Array->new($aref) } );
-isa_ok $parser, $PARSER, '... and calling it should succeed';
-
-# results() is sane?
-
-ok @results = _get_results($parser), 'The parser should return results';
-is scalar @results, 5, '... and there should be one for each line';
-
-# check the test plan
-
-$result = shift @results;
-isa_ok $result, $PLAN;
-can_ok $result, 'type';
-is $result->type, 'plan', '... and it should report the correct type';
-ok $result->is_plan, '... and it should identify itself as a plan';
-is $result->plan, '1..2', '... and identify the plan';
-is $result->as_string, '1..2',
- '... and have the correct string representation';
-is $result->raw, '1..2', '... and raw() should return the original line';
-
-# a normal, passing test
-
-$test = shift @results;
-isa_ok $test, $TEST;
-is $test->type, 'test', '... and it should report the correct type';
-ok $test->is_test, '... and it should identify itself as a test';
-is $test->ok, 'ok', '... and it should have the correct ok()';
-ok $test->is_ok, '... and the correct boolean version of is_ok()';
-ok $test->is_actual_ok,
- '... and the correct boolean version of is_actual_ok()';
-is $test->number, 1, '... and have the correct test number';
-is $test->description, '- input file opened',
- '... and the correct description';
-ok !$test->directive, '... and not have a directive';
-ok !$test->explanation, '... or a directive explanation';
-ok !$test->has_skip, '... and it is not a SKIPped test';
-ok !$test->has_todo, '... nor a TODO test';
-is $test->as_string, 'ok 1 - input file opened',
- '... and its string representation should be correct';
-is $test->raw, 'ok 1 - input file opened',
- '... and raw() should return the original line';
-
-# junk lines should be preserved
-
-$unknown = shift @results;
-isa_ok $unknown, $UNKNOWN;
-is $unknown->type, 'unknown', '... and it should report the correct type';
-ok $unknown->is_unknown, '... and it should identify itself as unknown';
-is $unknown->as_string, '',
- '... and its string representation should be returned verbatim';
-is $unknown->raw, '', '... and raw() should return the original line';
-
-# ... and the second empty line
-
-$unknown = shift @results;
-isa_ok $unknown, $UNKNOWN;
-is $unknown->type, 'unknown', '... and it should report the correct type';
-ok $unknown->is_unknown, '... and it should identify itself as unknown';
-is $unknown->as_string, '',
- '... and its string representation should be returned verbatim';
-is $unknown->raw, '', '... and raw() should return the original line';
-
-# a passing test
-
-$test = shift @results;
-isa_ok $test, $TEST;
-is $test->type, 'test', '... and it should report the correct type';
-ok $test->is_test, '... and it should identify itself as a test';
-is $test->ok, 'ok', '... and it should have the correct ok()';
-ok $test->is_ok, '... and the correct boolean version of is_ok()';
-ok $test->is_actual_ok,
- '... and the correct boolean version of is_actual_ok()';
-is $test->number, 2, '... and have the correct test number';
-is $test->description, '- read the rest of the file',
- '... and the correct description';
-ok !$test->directive, '... and not have a directive';
-ok !$test->explanation, '... or a directive explanation';
-ok !$test->has_skip, '... and it is not a SKIPped test';
-ok !$test->has_todo, '... nor a TODO test';
-is $test->as_string, 'ok 2 - read the rest of the file',
- '... and its string representation should be correct';
-is $test->raw, 'ok 2 - read the rest of the file',
- '... and raw() should return the original line';
-
-is scalar $parser->passed, 2,
- 'Empty junk lines should not affect the correct number of tests passed';
-
-# Check source => "tap content"
-can_ok $PARSER, 'new';
-$parser = $PARSER->new( { source => "1..1\nok 1\n" } );
-isa_ok $parser, $PARSER, '... and calling it should succeed';
-ok @results = _get_results($parser), 'The parser should return results';
-is( scalar @results, 2, "Got two lines of TAP" );
-
-# Check source => [array]
-can_ok $PARSER, 'new';
-$parser = $PARSER->new( { source => [ "1..1", "ok 1" ] } );
-isa_ok $parser, $PARSER, '... and calling it should succeed';
-ok @results = _get_results($parser), 'The parser should return results';
-is( scalar @results, 2, "Got two lines of TAP" );
-
-# Check source => $filehandle
-can_ok $PARSER, 'new';
-open my $fh, $ENV{PERL_CORE}
- ? '../ext/Test-Harness/t/data/catme.1'
- : 't/data/catme.1';
-$parser = $PARSER->new( { source => $fh } );
-isa_ok $parser, $PARSER, '... and calling it should succeed';
-ok @results = _get_results($parser), 'The parser should return results';
-is( scalar @results, 2, "Got two lines of TAP" );
-
-{
-
- # set a spool to write to
- tie local *SPOOL, 'IO::c55Capture';
-
- my $tap = <<'END_TAP';
-TAP version 13
-1..7
-ok 1 - input file opened
-... this is junk
-not ok first line of the input valid # todo some data
-# this is a comment
-ok 3 - read the rest of the file
-not ok 4 - this is a real failure
- --- YAML!
- ...
-ok 5 # skip we have no description
-ok 6 - you shall not pass! # TODO should have failed
-not ok 7 - Gandalf wins. Game over. # TODO 'bout time!
-END_TAP
-
- {
- my $parser = $PARSER->new(
- { tap => $tap,
- spool => \*SPOOL,
- }
- );
-
- _get_results($parser);
-
- my @spooled = tied(*SPOOL)->dump();
-
- is @spooled, 24, 'coverage testing for spool attribute of parser';
- is join( '', @spooled ), $tap, "spooled tap matches";
- }
-
- {
- my $parser = $PARSER->new(
- { tap => $tap,
- spool => \*SPOOL,
- }
- );
-
- $parser->callback( 'ALL', sub { } );
-
- _get_results($parser);
-
- my @spooled = tied(*SPOOL)->dump();
-
- is @spooled, 24, 'coverage testing for spool attribute of parser';
- is join( '', @spooled ), $tap, "spooled tap matches";
- }
-}
-
-{
-
- # _initialize coverage
-
- my $x = bless [], 'kjsfhkjsdhf';
-
- my @die;
-
- eval {
- local $SIG{__DIE__} = sub { push @die, @_ };
-
- $PARSER->new();
- };
-
- is @die, 1, 'coverage testing for _initialize';
-
- like pop @die, qr/PANIC:\s+could not determine iterator for input\s*at/,
- '...and it failed as expected';
-
- @die = ();
-
- eval {
- local $SIG{__DIE__} = sub { push @die, @_ };
-
- $PARSER->new(
- { iterator => 'iterator',
- tap => 'tap',
- source => 'source', # only one of these is allowed
- }
- );
- };
-
- is @die, 1, 'coverage testing for _initialize';
-
- like pop @die,
- qr/You may only choose one of 'exec', 'tap', 'source' or 'iterator'/,
- '...and it failed as expected';
-}
-
-{
-
- # coverage of todo_failed
-
- my $tap = <<'END_TAP';
-TAP version 13
-1..7
-ok 1 - input file opened
-... this is junk
-not ok first line of the input valid # todo some data
-# this is a comment
-ok 3 - read the rest of the file
-not ok 4 - this is a real failure
- --- YAML!
- ...
-ok 5 # skip we have no description
-ok 6 - you shall not pass! # TODO should have failed
-not ok 7 - Gandalf wins. Game over. # TODO 'bout time!
-END_TAP
-
- my $parser = $PARSER->new( { tap => $tap } );
-
- _get_results($parser);
-
- my @warn;
-
- eval {
- local $SIG{__WARN__} = sub { push @warn, @_ };
-
- $parser->todo_failed;
- };
-
- is @warn, 1, 'coverage testing of todo_failed';
-
- like pop @warn,
- qr/"todo_failed" is deprecated. Please use "todo_passed". See the docs[.]/,
- '..and failed as expected'
-}
-
-{
-
- # coverage testing for T::P::_initialize
-
- # coverage of the source argument paths
-
- # ref argument to source
-
- my $parser = TAP::Parser->new( { source => [ split /$/, $tap ] } );
-
- isa_ok $parser, 'TAP::Parser';
-
- isa_ok $parser->_iterator, 'TAP::Parser::Iterator::Array';
-
- SKIP: {
- skip 'Segfaults Perl 5.6.0' => 2 if $] <= 5.006000;
-
- # uncategorisable argument to source
- my @die;
-
- eval {
- local $SIG{__DIE__} = sub { push @die, @_ };
-
- $parser = TAP::Parser->new( { source => 'nosuchfile' } );
- };
-
- is @die, 1, 'uncategorisable source';
-
- like pop @die, qr/Cannot detect source of 'nosuchfile'/,
- '... and we died as expected';
- }
-}
-
-{
-
- # coverage test of perl source with switches
-
- my $parser = TAP::Parser->new(
- { source => File::Spec->catfile(
- ( $ENV{PERL_CORE}
- ? ( File::Spec->updir(), 'ext', 'Test-Harness' )
- : ()
- ),
- 't',
- 'sample-tests',
- 'simple'
- ),
- }
- );
-
- isa_ok $parser, 'TAP::Parser';
-
- isa_ok $parser->_iterator, 'TAP::Parser::Iterator::Process';
-
- # Workaround for Mac OS X problem wrt closing the iterator without
- # reading from it.
- $parser->next;
-}
-
-{
-
- # coverage testing for TAP::Parser::has_problems
-
- # we're going to need to test lots of fragments of tap
- # to cover all the different boolean tests
-
- # currently covered are no problems and failed, so let's next test
- # todo_passed
-
- my $tap = <<'END_TAP';
-TAP version 13
-1..2
-ok 1 - input file opened
-ok 2 - Gandalf wins. Game over. # TODO 'bout time!
-END_TAP
-
- my $parser = TAP::Parser->new( { tap => $tap } );
-
- _get_results($parser);
-
- ok !$parser->failed, 'parser didnt fail';
- ok $parser->todo_passed, '... and todo_passed is true';
-
- ok !$parser->has_problems, '... and has_problems is false';
-
- # now parse_errors
-
- $tap = <<'END_TAP';
-TAP version 13
-1..2
-SMACK
-END_TAP
-
- $parser = TAP::Parser->new( { tap => $tap } );
-
- _get_results($parser);
-
- ok !$parser->failed, 'parser didnt fail';
- ok !$parser->todo_passed, '... and todo_passed is false';
- ok $parser->parse_errors, '... and parse_errors is true';
-
- ok $parser->has_problems, '... and has_problems';
-
- # Now wait and exit are hard to do in an OS platform-independent way, so
- # we won't even bother
-
- $tap = <<'END_TAP';
-TAP version 13
-1..2
-ok 1 - input file opened
-ok 2 - Gandalf wins
-END_TAP
-
- $parser = TAP::Parser->new( { tap => $tap } );
-
- _get_results($parser);
-
- $parser->wait(1);
-
- ok !$parser->failed, 'parser didnt fail';
- ok !$parser->todo_passed, '... and todo_passed is false';
- ok !$parser->parse_errors, '... and parse_errors is false';
-
- ok $parser->wait, '... and wait is set';
-
- ok $parser->has_problems, '... and has_problems';
-
- # and use the same for exit
-
- $parser->wait(0);
- $parser->exit(1);
-
- ok !$parser->failed, 'parser didnt fail';
- ok !$parser->todo_passed, '... and todo_passed is false';
- ok !$parser->parse_errors, '... and parse_errors is false';
- ok !$parser->wait, '... and wait is not set';
-
- ok $parser->exit, '... and exit is set';
-
- ok $parser->has_problems, '... and has_problems';
-}
-
-{
-
- # coverage testing of the version states
-
- my $tap = <<'END_TAP';
-TAP version 12
-1..2
-ok 1 - input file opened
-ok 2 - Gandalf wins
-END_TAP
-
- my $parser = TAP::Parser->new( { tap => $tap } );
-
- _get_results($parser);
-
- my @errors = $parser->parse_errors;
-
- is @errors, 1, 'test too low version number';
-
- like pop @errors,
- qr/Explicit TAP version must be at least 13. Got version 12/,
- '... and trapped expected version error';
-
- # now too high a version
- $tap = <<'END_TAP';
-TAP version 14
-1..2
-ok 1 - input file opened
-ok 2 - Gandalf wins
-END_TAP
-
- $parser = TAP::Parser->new( { tap => $tap } );
-
- _get_results($parser);
-
- @errors = $parser->parse_errors;
-
- is @errors, 1, 'test too high version number';
-
- like pop @errors,
- qr/TAP specified version 14 but we don't know about versions later than 13/,
- '... and trapped expected version error';
-}
-
-{
-
- # coverage testing of TAP version in the wrong place
-
- my $tap = <<'END_TAP';
-1..2
-ok 1 - input file opened
-TAP version 12
-ok 2 - Gandalf wins
-END_TAP
-
- my $parser = TAP::Parser->new( { tap => $tap } );
-
- _get_results($parser);
-
- my @errors = $parser->parse_errors;
-
- is @errors, 1, 'test TAP version number in wrong place';
-
- like pop @errors,
- qr/If TAP version is present it must be the first line of output/,
- '... and trapped expected version error';
-
-}
-
-{
-
- # we're going to bash the internals a bit (but using the API as
- # much as possible) to force grammar->tokenise() to fail
-
-# firstly we'll create a iterator that dies when its next_raw method is called
-
- package TAP::Parser::Iterator::Dies;
-
- use strict;
- use vars qw(@ISA);
-
- @ISA = qw(TAP::Parser::Iterator);
-
- sub next_raw {
- die 'this is the dying iterator';
- }
-
- # required as part of the TPI interface
- sub exit { }
- sub wait { }
-
- package main;
-
- # now build a standard parser
-
- my $tap = <<'END_TAP';
-1..2
-ok 1 - input file opened
-ok 2 - Gandalf wins
-END_TAP
-
- {
- my $parser = TAP::Parser->new( { tap => $tap } );
-
- # build a dying iterator
- my $iterator = TAP::Parser::Iterator::Dies->new;
-
- # now replace the iterator - we're forced to us an T::P intenal
- # method for this
- $parser->_iterator($iterator);
-
- # build a new grammar
- my $grammar = TAP::Parser::Grammar->new(
- { iterator => $iterator,
- parser => $parser
- }
- );
-
- # replace our grammar with this new one
- $parser->_grammar($grammar);
-
- # now call next on the parser, and the grammar should die
- my $result = $parser->next; # will die in iterator
-
- is $result, undef, 'iterator dies';
-
- my @errors = $parser->parse_errors;
- is @errors, 2, '...and caught expected errrors';
-
- like shift @errors, qr/this is the dying iterator/,
- '...and it was what we expected';
- }
-
- # Do it all again with callbacks to exercise the other code path in
- # the unrolled iterator
- {
- my $parser = TAP::Parser->new( { tap => $tap } );
-
- $parser->callback( 'ALL', sub { } );
-
- # build a dying iterator
- my $iterator = TAP::Parser::Iterator::Dies->new;
-
- # now replace the iterator - we're forced to us an T::P intenal
- # method for this
- $parser->_iterator($iterator);
-
- # build a new grammar
- my $grammar = TAP::Parser::Grammar->new(
- { iterator => $iterator,
- parser => $parser
- }
- );
-
- # replace our grammar with this new one
- $parser->_grammar($grammar);
-
- # now call next on the parser, and the grammar should die
- my $result = $parser->next; # will die in iterator
-
- is $result, undef, 'iterator dies';
-
- my @errors = $parser->parse_errors;
- is @errors, 2, '...and caught expected errrors';
-
- like shift @errors, qr/this is the dying iterator/,
- '...and it was what we expected';
- }
-}
-
-{
-
- # coverage testing of TAP::Parser::_next_state
-
- package TAP::Parser::WithBrokenState;
- use vars qw(@ISA);
-
- @ISA = qw( TAP::Parser );
-
- sub _make_state_table {
- return { INIT => { plan => { goto => 'FOO' } } };
- }
-
- package main;
-
- my $tap = <<'END_TAP';
-1..2
-ok 1 - input file opened
-ok 2 - Gandalf wins
-END_TAP
-
- my $parser = TAP::Parser::WithBrokenState->new( { tap => $tap } );
-
- my @die;
-
- eval {
- local $SIG{__DIE__} = sub { push @die, @_ };
-
- $parser->next;
- $parser->next;
- };
-
- is @die, 1, 'detect broken state machine';
-
- like pop @die, qr/Illegal state: FOO/,
- '...and the message is as we expect';
-}
-
-{
-
- # coverage testing of TAP::Parser::_iter
-
- package TAP::Parser::WithBrokenIter;
- use vars qw(@ISA);
-
- @ISA = qw( TAP::Parser );
-
- sub _iter {return}
-
- package main;
-
- my $tap = <<'END_TAP';
-1..2
-ok 1 - input file opened
-ok 2 - Gandalf wins
-END_TAP
-
- my $parser = TAP::Parser::WithBrokenIter->new( { tap => $tap } );
-
- my @die;
-
- eval {
- local $SIG{__WARN__} = sub { };
- local $SIG{__DIE__} = sub { push @die, @_ };
-
- $parser->next;
- };
-
- is @die, 1, 'detect broken iter';
-
- like pop @die, qr/Can't use/, '...and the message is as we expect';
-}
-
-SKIP: {
-
- # http://markmail.org/message/rkxbo6ft7yorgnzb
- skip "Crashes on older Perls", 2 if $] <= 5.008004 || $] == 5.009;
-
- # coverage testing of TAP::Parser::_finish
-
- my $tap = <<'END_TAP';
-1..2
-ok 1 - input file opened
-ok 2 - Gandalf wins
-END_TAP
-
- my $parser = TAP::Parser->new( { tap => $tap } );
-
- $parser->tests_run(999);
-
- my @die;
-
- eval {
- local $SIG{__DIE__} = sub { push @die, @_ };
-
- _get_results $parser;
- };
-
- is @die, 1, 'detect broken test counts';
-
- like pop @die,
- qr/Panic: planned test count [(]1001[)] did not equal sum of passed [(]0[)] and failed [(]2[)] tests!/,
- '...and the message is as we expect';
-}
-
-{
-
- # Sanity check on state table
-
- my $parser = TAP::Parser->new( { tap => "1..1\nok 1\n" } );
- my $state_table = $parser->_make_state_table;
- my @states = sort keys %$state_table;
- my @expect = sort qw(
- bailout comment plan pragma test unknown version yaml
- );
-
- my %reachable = ( INIT => 1 );
-
- for my $name (@states) {
- my $state = $state_table->{$name};
- my @can_handle = sort keys %$state;
- is_deeply \@can_handle, \@expect, "token types handled in $name";
- for my $type (@can_handle) {
- $reachable{$_}++
- for grep {defined}
- map { $state->{$type}->{$_} } qw(goto continue);
- }
- }
-
- is_deeply [ sort keys %reachable ], [@states], "all states reachable";
-}
-
-{
-
- # exit, wait, ignore_exit interactions
-
- my @truth = (
- [ 0, 0, 0, 0 ],
- [ 0, 0, 1, 0 ],
- [ 1, 0, 0, 1 ],
- [ 1, 0, 1, 0 ],
- [ 1, 1, 0, 1 ],
- [ 1, 1, 1, 0 ],
- [ 0, 1, 0, 1 ],
- [ 0, 1, 1, 0 ],
- );
-
- for my $t (@truth) {
- my ( $wait, $exit, $ignore_exit, $has_problems ) = @$t;
- my $test_parser = sub {
- my $parser = shift;
- $parser->wait($wait);
- $parser->exit($exit);
- ok $has_problems ? $parser->has_problems : !$parser->has_problems,
- "exit=$exit, wait=$wait, ignore=$ignore_exit";
- };
-
- my $parser = TAP::Parser->new( { tap => "1..1\nok 1\n" } );
- $parser->ignore_exit($ignore_exit);
- $test_parser->($parser);
-
- $test_parser->(
- TAP::Parser->new(
- { tap => "1..1\nok 1\n", ignore_exit => $ignore_exit }
- )
- );
- }
-}
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/process.t b/3.8.8/sources/cpan-Test-Harness/vendor/t/process.t
deleted file mode 100644
index 63a8620..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/process.t
+++ /dev/null
@@ -1,57 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use lib 't/lib';
-
-my $hires;
-
-BEGIN {
- $hires = eval 'use Time::HiRes qw(sleep); 1';
-}
-
-use Test::More (
- $^O eq 'VMS' ? ( skip_all => 'VMS' )
- : $hires ? ( tests => 9 * 3 )
- : ( skip_all => 'Need Time::HiRes' )
-);
-
-use File::Spec;
-use TAP::Parser::Iterator::Process;
-
-my @expect = (
- '1..5',
- 'ok 1 00000',
- 'ok 2',
- 'not ok 3',
- 'ok 4',
- 'ok 5 00000',
-);
-
-my $source = File::Spec->catfile(
- ( $ENV{PERL_CORE}
- ? ( File::Spec->updir(), 'ext', 'Test-Harness' )
- : ()
- ),
- 't',
- 'sample-tests',
- 'delayed'
-);
-
-for my $chunk_size ( 1, 4, 65536 ) {
- for my $where ( 0 .. 8 ) {
-
- my $proc = TAP::Parser::Iterator::Process->new(
- { _chunk_size => $chunk_size,
- command => [ $^X, $source, ( 1 << $where ) ]
- }
- );
-
- my @got = ();
- while ( defined( my $line = $proc->next_raw ) ) {
- push @got, $line;
- }
-
- is_deeply \@got, \@expect,
- "I/O ok with delay at position $where, chunk size $chunk_size";
- }
-}
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/proveenv.t b/3.8.8/sources/cpan-Test-Harness/vendor/t/proveenv.t
deleted file mode 100644
index be9942a..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/proveenv.t
+++ /dev/null
@@ -1,17 +0,0 @@
-#!perl
-use strict;
-use lib 't/lib';
-use Test::More tests => 2;
-use App::Prove;
-
-{
- local $ENV{HARNESS_TIMER} = 0;
- my $prv = App::Prove->new;
- ok !$prv->timer, 'timer set via HARNESS_TIMER';
-}
-
-{
- local $ENV{HARNESS_TIMER} = 1;
- my $prv = App::Prove->new;
- ok $prv->timer, 'timer set via HARNESS_TIMER';
-}
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/proverc.t b/3.8.8/sources/cpan-Test-Harness/vendor/t/proverc.t
deleted file mode 100644
index 5a7d97e..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/proverc.t
+++ /dev/null
@@ -1,37 +0,0 @@
-#!/usr/bin/perl -w
-
-BEGIN {
- if ( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ( '../lib', 'lib' );
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-
-use strict;
-use lib 't/lib';
-use Test::More tests => 1;
-use File::Spec;
-use App::Prove;
-
-my $prove = App::Prove->new;
-
-$prove->add_rc_file(
- File::Spec->catfile(
- ( $ENV{PERL_CORE}
- ? ( File::Spec->updir(), 'ext', 'Test-Harness' )
- : ()
- ),
- 't', 'data',
- 'proverc'
- )
-);
-
-is_deeply $prove->{rc_opts},
- [ '--should', 'be', '--split', 'correctly', 'Can', 'quote things',
- 'using single or', 'double quotes', '--this', 'is', 'OK?'
- ],
- 'options parsed';
-
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/proverc/emptyexec b/3.8.8/sources/cpan-Test-Harness/vendor/t/proverc/emptyexec
deleted file mode 100644
index 5381b8f..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/proverc/emptyexec
+++ /dev/null
@@ -1,2 +0,0 @@
---exec ''
-
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/regression.t b/3.8.8/sources/cpan-Test-Harness/vendor/t/regression.t
deleted file mode 100644
index b86dd07..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/regression.t
+++ /dev/null
@@ -1,3274 +0,0 @@
-#!/usr/bin/perl -w
-
-BEGIN {
- if ( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = '../lib';
- }
- else {
- push @INC, 't/lib';
- }
-}
-
-use strict;
-
-use Test::More 'no_plan';
-
-use File::Spec;
-use Config;
-
-use constant TRUE => "__TRUE__";
-use constant FALSE => "__FALSE__";
-
-# if wait() is non-zero, we cannot reliably predict its value
-use constant NOT_ZERO => "__NOT_ZERO__";
-
-use TAP::Parser;
-
-my $IsVMS = $^O eq 'VMS';
-my $IsWin32 = $^O eq 'MSWin32';
-
-my $SAMPLE_TESTS = File::Spec->catdir(
- File::Spec->curdir,
- ( $ENV{PERL_CORE}
- ? ( File::Spec->updir(), 'ext', 'Test-Harness' )
- : ()
- ),
- 't',
- 'sample-tests'
-);
-
-my %deprecated = map { $_ => 1 } qw(
- TAP::Parser::good_plan
- TAP::Parser::Result::Plan::passed
- TAP::Parser::Result::Test::passed
- TAP::Parser::Result::Test::actual_passed
- TAP::Parser::Result::passed
-);
-$SIG{__WARN__} = sub {
- if ( $_[0] =~ /is deprecated/ ) {
- my @caller = caller(1);
- my $sub = $caller[3];
- ok exists $deprecated{$sub},
- "... we should get a deprecated warning for $sub";
- }
- else {
- CORE::warn @_;
- }
-};
-
-# the %samples keys are the names of test scripts in t/sample-tests
-my %samples = (
- descriptive => {
- results => [
- { is_plan => TRUE,
- raw => '1..5',
- tests_planned => 5,
- passed => TRUE,
- is_ok => TRUE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- description => "Interlock activated",
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- description => "Megathrusters are go",
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 3,
- description => "Head formed",
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 4,
- description => "Blazing sword formed",
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 5,
- description => "Robeast destroyed",
- is_unplanned => FALSE,
- }
- ],
- plan => '1..5',
- passed => [ 1 .. 5 ],
- actual_passed => [ 1 .. 5 ],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 5,
- tests_run => 5,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
- descriptive_trailing => {
- results => [
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- description => "Interlock activated",
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- description => "Megathrusters are go",
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 3,
- description => "Head formed",
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 4,
- description => "Blazing sword formed",
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 5,
- description => "Robeast destroyed",
- is_unplanned => FALSE,
- },
- { is_plan => TRUE,
- raw => '1..5',
- tests_planned => 5,
- passed => TRUE,
- is_ok => TRUE,
- },
- ],
- plan => '1..5',
- passed => [ 1 .. 5 ],
- actual_passed => [ 1 .. 5 ],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 5,
- tests_run => 5,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
- empty => {
- results => [],
- plan => '',
- passed => [],
- actual_passed => [],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => FALSE,
- is_good_plan => FALSE,
- tests_planned => undef,
- tests_run => 0,
- parse_errors => ['No plan found in TAP output'],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
- simple => {
- results => [
- { is_plan => TRUE,
- raw => '1..5',
- tests_planned => 5,
- passed => TRUE,
- is_ok => TRUE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 3,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 4,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 5,
- description => "",
- },
- ],
- plan => '1..5',
- passed => [ 1 .. 5 ],
- actual_passed => [ 1 .. 5 ],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 5,
- tests_run => 5,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
- space_after_plan => {
- results => [
- { is_plan => TRUE,
- raw => '1..5 ',
- tests_planned => 5,
- passed => TRUE,
- is_ok => TRUE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 3,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 4,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 5,
- description => "",
- },
- ],
- plan => '1..5',
- passed => [ 1 .. 5 ],
- actual_passed => [ 1 .. 5 ],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 5,
- tests_run => 5,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
- simple_yaml => {
- results => [
- { is_version => TRUE,
- raw => 'TAP version 13',
- },
- { is_plan => TRUE,
- raw => '1..5',
- tests_planned => 5,
- passed => TRUE,
- is_ok => TRUE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- description => "",
- },
- { is_yaml => TRUE,
- data => [
- { 'fnurk' => 'skib', 'ponk' => 'gleeb' },
- { 'bar' => 'krup', 'foo' => 'plink' }
- ],
- raw =>
- " ---\n -\n fnurk: skib\n ponk: gleeb\n -\n bar: krup\n foo: plink\n ...",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 3,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 4,
- description => "",
- },
- { is_yaml => TRUE,
- data => {
- 'got' => [ '1', 'pong', '4' ],
- 'expected' => [ '1', '2', '4' ]
- },
- raw =>
- " ---\n expected:\n - 1\n - 2\n - 4\n got:\n - 1\n - pong\n - 4\n ...",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 5,
- description => "",
- },
- ],
- plan => '1..5',
- passed => [ 1 .. 5 ],
- actual_passed => [ 1 .. 5 ],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 5,
- tests_run => 5,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 13,
- },
- simple_fail => {
- results => [
- { is_plan => TRUE,
- raw => '1..5',
- tests_planned => 5,
- passed => TRUE,
- is_ok => TRUE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- description => "",
- },
- { actual_passed => FALSE,
- is_actual_ok => FALSE,
- passed => FALSE,
- is_ok => FALSE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 3,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 4,
- description => "",
- },
- { actual_passed => FALSE,
- is_actual_ok => FALSE,
- passed => FALSE,
- is_ok => FALSE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 5,
- description => "",
- },
- ],
- plan => '1..5',
- passed => [ 1, 3, 4 ],
- actual_passed => [ 1, 3, 4 ],
- failed => [ 2, 5 ],
- actual_failed => [ 2, 5 ],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 5,
- tests_run => 5,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
- skip => {
- results => [
- { is_plan => TRUE,
- raw => '1..5',
- tests_planned => 5,
- passed => TRUE,
- is_ok => TRUE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => TRUE,
- has_todo => FALSE,
- number => 2,
- description => "",
- explanation => 'rain delay',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 3,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 4,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 5,
- description => "",
- },
- ],
- plan => '1..5',
- passed => [ 1 .. 5 ],
- actual_passed => [ 1 .. 5 ],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [2],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 5,
- tests_run => 5,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
- skip_nomsg => {
- results => [
- { is_plan => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- raw => '1..1',
- tests_planned => 1,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => TRUE,
- has_todo => FALSE,
- number => 1,
- description => "",
- explanation => '',
- },
- ],
- plan => '1..1',
- passed => [1],
- actual_passed => [1],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [1],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 1,
- tests_run => TRUE,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
- todo_inline => {
- results => [
- { is_plan => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- raw => '1..3',
- tests_planned => 3,
- },
- { actual_passed => FALSE,
- is_actual_ok => FALSE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => TRUE,
- number => 1,
- description => "- Foo",
- explanation => 'Just testing the todo interface.',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => TRUE,
- number => 2,
- description => "- Unexpected success",
- explanation => 'Just testing the todo interface.',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 3,
- description => "- This is not todo",
- explanation => '',
- },
- ],
- plan => '1..3',
- passed => [ 1, 2, 3 ],
- actual_passed => [ 2, 3 ],
- failed => [],
- actual_failed => [1],
- todo => [ 1, 2 ],
- todo_passed => [2],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 3,
- tests_run => 3,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
- todo => {
- results => [
- { is_plan => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- raw => '1..5 todo 3 2;',
- tests_planned => 5,
- todo_list => [ 3, 2 ],
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- description => "",
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => TRUE,
- number => 2,
- description => "",
- explanation => '',
- },
- { actual_passed => FALSE,
- is_actual_ok => FALSE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => TRUE,
- number => 3,
- description => "",
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 4,
- description => "",
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 5,
- description => "",
- explanation => '',
- },
- ],
- plan => '1..5',
- passed => [ 1, 2, 3, 4, 5 ],
- actual_passed => [ 1, 2, 4, 5 ],
- failed => [],
- actual_failed => [3],
- todo => [ 2, 3 ],
- todo_passed => [2],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 5,
- tests_run => 5,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
- duplicates => {
- results => [
- { is_plan => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- raw => '1..10',
- tests_planned => 10,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- description => '',
- explanation => '',
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- description => '',
- explanation => '',
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 3,
- description => '',
- explanation => '',
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 4,
- description => '',
- explanation => '',
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 4,
- description => '',
- explanation => '',
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 5,
- description => '',
- explanation => '',
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 6,
- description => '',
- explanation => '',
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 7,
- description => '',
- explanation => '',
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 8,
- description => '',
- explanation => '',
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 9,
- description => '',
- explanation => '',
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => FALSE,
- is_ok => FALSE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 10,
- description => '',
- explanation => '',
- is_unplanned => TRUE,
- },
- ],
- plan => '1..10',
- passed => [ 1 .. 4, 4 .. 9 ],
- actual_passed => [ 1 .. 4, 4 .. 10 ],
- failed => [10],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => FALSE,
- tests_planned => 10,
- tests_run => 11,
- parse_errors => [
- 'Tests out of sequence. Found (4) but expected (5)',
- 'Tests out of sequence. Found (5) but expected (6)',
- 'Tests out of sequence. Found (6) but expected (7)',
- 'Tests out of sequence. Found (7) but expected (8)',
- 'Tests out of sequence. Found (8) but expected (9)',
- 'Tests out of sequence. Found (9) but expected (10)',
- 'Tests out of sequence. Found (10) but expected (11)',
- 'Bad plan. You planned 10 tests but ran 11.',
- ],
- 'exit' => 0,
- wait => 0,
- },
- no_nums => {
- results => [
- { is_plan => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- raw => '1..5',
- tests_planned => 5,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- description => "",
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- description => "",
- },
- { actual_passed => FALSE,
- is_actual_ok => FALSE,
- passed => FALSE,
- is_ok => FALSE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 3,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 4,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 5,
- description => "",
- }
- ],
- plan => '1..5',
- passed => [ 1, 2, 4, 5 ],
- actual_passed => [ 1, 2, 4, 5 ],
- failed => [3],
- actual_failed => [3],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 5,
- tests_run => 5,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
- bailout => {
- results => [
- { is_plan => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- raw => '1..5',
- tests_planned => 5,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- description => "",
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 3,
- description => "",
- },
- { is_bailout => TRUE,
- explanation => "GERONIMMMOOOOOO!!!",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 4,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 5,
- description => "",
- }
- ],
- plan => '1..5',
- passed => [ 1 .. 5 ],
- actual_passed => [ 1 .. 5 ],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 5,
- tests_run => 5,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
- no_output => {
- results => [],
- plan => '',
- passed => [],
- actual_passed => [],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => FALSE,
- tests_planned => undef,
- tests_run => 0,
- parse_errors => [ 'No plan found in TAP output', ],
- 'exit' => 0,
- wait => 0,
- },
- too_many => {
- results => [
- { is_plan => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- raw => '1..3',
- tests_planned => 3,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- description => "",
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- description => "",
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 3,
- description => "",
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => FALSE,
- is_ok => FALSE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 4,
- description => "",
- is_unplanned => TRUE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => FALSE,
- is_ok => FALSE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 5,
- description => "",
- is_unplanned => TRUE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => FALSE,
- is_ok => FALSE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 6,
- description => "",
- is_unplanned => TRUE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => FALSE,
- is_ok => FALSE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 7,
- description => "",
- is_unplanned => TRUE,
- },
- ],
- plan => '1..3',
- passed => [ 1 .. 3 ],
- actual_passed => [ 1 .. 7 ],
- failed => [ 4 .. 7 ],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => FALSE,
- tests_planned => 3,
- tests_run => 7,
- parse_errors => ['Bad plan. You planned 3 tests but ran 7.'],
- 'exit' => 4,
- wait => NOT_ZERO,
- skip_if => sub {$IsVMS},
- },
- taint => {
- results => [
- { is_plan => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- raw => '1..1',
- tests_planned => TRUE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- description => "- -T honored",
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- },
- ],
- plan => '1..1',
- passed => [ 1 .. 1 ],
- actual_passed => [ 1 .. 1 ],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => TRUE,
- tests_run => TRUE,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
- 'die' => {
- results => [],
- plan => '',
- passed => [],
- actual_passed => [],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => FALSE,
- tests_planned => undef,
- tests_run => 0,
- parse_errors => [ 'No plan found in TAP output', ],
- 'exit' => NOT_ZERO,
- wait => NOT_ZERO,
- },
- die_head_end => {
- results => [
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 3,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 4,
- description => '',
- explanation => '',
- },
- ],
- plan => '',
- passed => [ 1 .. 4 ],
- actual_passed => [ 1 .. 4 ],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => FALSE,
- tests_planned => undef,
- tests_run => 4,
- parse_errors => [ 'No plan found in TAP output', ],
- 'exit' => NOT_ZERO,
- wait => NOT_ZERO,
- },
- die_last_minute => {
- results => [
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 3,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 4,
- description => '',
- explanation => '',
- },
- { is_plan => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- raw => '1..4',
- tests_planned => 4,
- },
- ],
- plan => '1..4',
- passed => [ 1 .. 4 ],
- actual_passed => [ 1 .. 4 ],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 4,
- tests_run => 4,
- parse_errors => [],
- 'exit' => NOT_ZERO,
- wait => NOT_ZERO,
- },
- bignum => {
- results => [
- { is_plan => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- raw => '1..2',
- tests_planned => 2,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => FALSE,
- is_ok => FALSE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 136211425,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => FALSE,
- is_ok => FALSE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 136211426,
- description => '',
- explanation => '',
- },
- ],
- plan => '1..2',
- passed => [ 1, 2 ],
- actual_passed => [ 1, 2, 136211425, 136211426 ],
- failed => [ 136211425, 136211426 ],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => FALSE,
- tests_planned => 2,
- tests_run => 4,
- parse_errors => [
- 'Tests out of sequence. Found (136211425) but expected (3)',
- 'Tests out of sequence. Found (136211426) but expected (4)',
- 'Bad plan. You planned 2 tests but ran 4.'
- ],
- 'exit' => 0,
- wait => 0,
- },
- bignum_many => {
- results => [
- { is_plan => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- raw => '1..2',
- tests_planned => 2,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => FALSE,
- is_ok => FALSE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 99997,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => FALSE,
- is_ok => FALSE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 99998,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => FALSE,
- is_ok => FALSE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 99999,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => FALSE,
- is_ok => FALSE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 100000,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => FALSE,
- is_ok => FALSE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 100001,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => FALSE,
- is_ok => FALSE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 100002,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => FALSE,
- is_ok => FALSE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 100003,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => FALSE,
- is_ok => FALSE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 100004,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => FALSE,
- is_ok => FALSE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 100005,
- description => '',
- explanation => '',
- },
- ],
- plan => '1..2',
- passed => [ 1, 2 ],
- actual_passed => [ 1, 2, 99997 .. 100005 ],
- failed => [ 99997 .. 100005 ],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => FALSE,
- tests_planned => 2,
- tests_run => 11,
- parse_errors => [
- 'Tests out of sequence. Found (99997) but expected (3)',
- 'Tests out of sequence. Found (99998) but expected (4)',
- 'Tests out of sequence. Found (99999) but expected (5)',
- 'Tests out of sequence. Found (100000) but expected (6)',
- 'Tests out of sequence. Found (100001) but expected (7)',
- 'Tests out of sequence. Found (100002) but expected (8)',
- 'Tests out of sequence. Found (100003) but expected (9)',
- 'Tests out of sequence. Found (100004) but expected (10)',
- 'Tests out of sequence. Found (100005) but expected (11)',
- 'Bad plan. You planned 2 tests but ran 11.'
- ],
- 'exit' => 0,
- wait => 0,
- },
- combined => {
- results => [
- { is_plan => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- raw => '1..10',
- tests_planned => 10,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- description => 'basset hounds got long ears',
- explanation => '',
- },
- { actual_passed => FALSE,
- is_actual_ok => FALSE,
- passed => FALSE,
- is_ok => FALSE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 3,
- description => 'all hell broke loose',
- explanation => '',
- },
- { actual_passed => FALSE,
- is_actual_ok => FALSE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => TRUE,
- number => 4,
- description => '',
- explanation => 'if I heard a voice from heaven ...',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 5,
- description => 'say "live without loving",',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 6,
- description => "I'd beg off.",
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => '1',
- has_todo => FALSE,
- number => 7,
- description => '',
- explanation => 'contract negotiations',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 8,
- description => 'Girls are such exquisite hell',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => TRUE,
- number => 9,
- description => 'Elegy 9B',
- explanation => '',
- },
- { actual_passed => FALSE,
- is_actual_ok => FALSE,
- passed => FALSE,
- is_ok => FALSE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 10,
- description => '',
- explanation => '',
- },
- ],
- plan => '1..10',
- passed => [ 1 .. 2, 4 .. 9 ],
- actual_passed => [ 1 .. 2, 5 .. 9 ],
- failed => [ 3, 10 ],
- actual_failed => [ 3, 4, 10 ],
- todo => [ 4, 9 ],
- todo_passed => [9],
- skipped => [7],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 10,
- tests_run => 10,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
- head_end => {
- results => [
- { is_comment => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- comment => 'comments',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 3,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 4,
- description => '',
- explanation => '',
- },
- { is_comment => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- comment => 'comment',
- },
- { is_plan => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- raw => '1..4',
- tests_planned => 4,
- },
- { is_comment => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- comment => 'more ignored stuff',
- },
- { is_comment => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- comment => 'and yet more',
- },
- ],
- plan => '1..4',
- passed => [ 1 .. 4 ],
- actual_passed => [ 1 .. 4 ],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 4,
- tests_run => 4,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
- head_fail => {
- results => [
- { is_comment => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- comment => 'comments',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- description => '',
- explanation => '',
- },
- { actual_passed => FALSE,
- is_actual_ok => FALSE,
- passed => FALSE,
- is_ok => FALSE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 3,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 4,
- description => '',
- explanation => '',
- },
- { is_comment => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- comment => 'comment',
- },
- { is_plan => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- raw => '1..4',
- tests_planned => 4,
- },
- { is_comment => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- comment => 'more ignored stuff',
- },
- { is_comment => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- comment => 'and yet more',
- },
- ],
- plan => '1..4',
- passed => [ 1, 3, 4 ],
- actual_passed => [ 1, 3, 4 ],
- failed => [2],
- actual_failed => [2],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 4,
- tests_run => 4,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
- out_of_order => {
- results => [
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- description => '- Test that argument passing works',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 3,
- description =>
- '- Test that passing arguments as references work',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 4,
- description => '- Test a normal sub',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 6,
- description => '- Detach test',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 8,
- description => '- Nested thread test',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 9,
- description => '- Nested thread test',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 10,
- description => '- Wanted 7, got 7',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 11,
- description => '- Wanted 7, got 7',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 12,
- description => '- Wanted 8, got 8',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 13,
- description => '- Wanted 8, got 8',
- explanation => '',
- },
- { is_plan => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- raw => '1..15',
- tests_planned => 15,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 5,
- description => '- Check that Config::threads is true',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 7,
- description => '- Detach test',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 14,
- description =>
- '- Check so that tid for threads work for main thread',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 15,
- description =>
- '- Check so that tid for threads work for main thread',
- explanation => '',
- },
- ],
- plan => '1..15',
- passed => [ 2 .. 4, 6, 8 .. 13, 1, 5, 7, 14, 15 ],
- actual_passed => [ 2 .. 4, 6, 8 .. 13, 1, 5, 7, 14, 15 ],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- is_good_plan => FALSE,
- tests_planned => 15,
- tests_run => 15,
-
- # Note that tests 14 and 15 *are* in the correct sequence.
- parse_errors => [
- 'Tests out of sequence. Found (2) but expected (1)',
- 'Tests out of sequence. Found (3) but expected (2)',
- 'Tests out of sequence. Found (4) but expected (3)',
- 'Tests out of sequence. Found (6) but expected (4)',
- 'Tests out of sequence. Found (8) but expected (5)',
- 'Tests out of sequence. Found (9) but expected (6)',
- 'Tests out of sequence. Found (10) but expected (7)',
- 'Tests out of sequence. Found (11) but expected (8)',
- 'Tests out of sequence. Found (12) but expected (9)',
- 'Tests out of sequence. Found (13) but expected (10)',
- 'Plan (1..15) must be at the beginning or end of the TAP output',
- 'Tests out of sequence. Found (1) but expected (11)',
- 'Tests out of sequence. Found (5) but expected (12)',
- 'Tests out of sequence. Found (7) but expected (13)',
- ],
- 'exit' => 0,
- wait => 0,
- },
- skipall => {
- results => [
- { is_plan => TRUE,
- raw => '1..0 # skipping: rope',
- tests_planned => 0,
- passed => TRUE,
- is_ok => TRUE,
- directive => 'SKIP',
- explanation => 'rope'
- },
- ],
- plan => '1..0',
- passed => [],
- actual_passed => [],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 0,
- tests_run => 0,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 12,
- skip_all => 'rope',
- },
- skipall_v13 => {
- results => [
- { is_version => TRUE,
- raw => 'TAP version 13',
- },
- { is_unknown => TRUE,
- raw => '1..0 # skipping: rope',
- },
- ],
- plan => '',
- passed => [],
- actual_passed => [],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => FALSE,
- is_good_plan => FALSE,
- tests_planned => FALSE,
- tests_run => 0,
- parse_errors => ['No plan found in TAP output'],
- 'exit' => 0,
- wait => 0,
- version => 13,
- },
- strict => {
- results => [
- { is_version => TRUE,
- raw => 'TAP version 13',
- },
- { is_plan => TRUE,
- raw => '1..1',
- },
- { is_pragma => TRUE,
- raw => 'pragma +strict',
- pragmas => ['+strict'],
- },
- { is_unknown => TRUE, raw => 'Nonsense!',
- },
- { is_pragma => TRUE,
- raw => 'pragma -strict',
- pragmas => ['-strict'],
- },
- { is_unknown => TRUE,
- raw => "Doesn't matter.",
- },
- { is_test => TRUE,
- raw => 'ok 1 All OK',
- }
- ],
- plan => '1..1',
- passed => [1],
- actual_passed => [1],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 1,
- tests_run => 1,
- parse_errors => ['Unknown TAP token: "Nonsense!"'],
- 'exit' => 0, # TODO: Is this right???
- wait => 0,
- version => 13,
- },
- skipall_nomsg => {
- results => [
- { is_plan => TRUE,
- raw => '1..0',
- tests_planned => 0,
- passed => TRUE,
- is_ok => TRUE,
- directive => 'SKIP',
- explanation => ''
- },
- ],
- plan => '1..0',
- passed => [],
- actual_passed => [],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 0,
- tests_run => 0,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 12,
- skip_all => '(no reason given)',
- },
- todo_misparse => {
- results => [
- { is_plan => TRUE,
- raw => '1..1',
- tests_planned => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- },
- { actual_passed => FALSE,
- is_actual_ok => FALSE,
- passed => FALSE,
- is_ok => FALSE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- description => 'Hamlette # TODOORNOTTODO',
- explanation => '',
- },
- ],
- plan => '1..1',
- passed => [],
- actual_passed => [],
- failed => [1],
- actual_failed => [1],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => TRUE,
- tests_run => 1,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
- shbang_misparse => {
- results => [
- { is_plan => TRUE,
- raw => '1..2',
- tests_planned => 2,
- passed => TRUE,
- is_ok => TRUE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- description => "",
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- description => "",
- },
- ],
- plan => '1..2',
- passed => [ 1 .. 2 ],
- actual_passed => [ 1 .. 2 ],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 2,
- tests_run => 2,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
- switches => {
- results => [
- { is_plan => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- raw => '1..1',
- tests_planned => 1,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- description => "",
- explanation => '',
- },
- ],
- __ARGS__ => { switches => ['-Mstrict'] },
- plan => '1..1',
- passed => [1],
- actual_passed => [1],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 1,
- tests_run => TRUE,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
- inc_taint => {
- results => [
- { is_plan => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- raw => '1..1',
- tests_planned => 1,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- description => "",
- explanation => '',
- },
- ],
- __ARGS__ => { switches => ['-Iexamples'] },
- plan => '1..1',
- passed => [1],
- actual_passed => [1],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 1,
- tests_run => TRUE,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
- sequence_misparse => {
- results => [
- { is_plan => TRUE,
- raw => '1..5',
- tests_planned => 5,
- passed => TRUE,
- is_ok => TRUE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 3,
- description => "\# skipped on foobar system",
- },
- { is_comment => TRUE,
- comment => '1234567890123456789012345678901234567890',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 4,
- description => "",
- },
- { is_comment => TRUE,
- comment => '1234567890123456789012345678901234567890',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 5,
- description => "",
- },
- ],
- plan => '1..5',
- passed => [ 1 .. 5 ],
- actual_passed => [ 1 .. 5 ],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 5,
- tests_run => 5,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
-
- # For some reason mixing stdout with stderr is unreliable on Windows
- ( $IsWin32
- ? ()
- : ( stdout_stderr => {
- results => [
- { is_comment => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- comment => 'comments',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- description => '',
- explanation => '',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 3,
- description => '',
- explanation => '',
- },
- { is_comment => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- comment => 'comment',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 4,
- description => '',
- explanation => '',
- },
- { is_comment => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- comment => 'more ignored stuff',
- },
- { is_comment => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- comment => 'and yet more',
- },
- { is_plan => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- raw => '1..4',
- tests_planned => 4,
- },
- ],
- plan => '1..4',
- passed => [ 1 .. 4 ],
- actual_passed => [ 1 .. 4 ],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 4,
- tests_run => 4,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 12,
- need_open3 => 1,
- }
- )
- ),
-
- junk_before_plan => {
- results => [
- { is_unknown => TRUE,
- raw => 'this is junk',
- },
- { is_comment => TRUE,
- comment => "this is a comment",
- },
- { is_plan => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- raw => '1..1',
- tests_planned => 1,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- },
- ],
- plan => '1..1',
- passed => [ 1 .. 1 ],
- actual_passed => [ 1 .. 1 ],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 1,
- tests_run => 1,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
- version_good => {
- results => [
- { is_version => TRUE,
- raw => 'TAP version 13',
- },
- { is_plan => TRUE,
- raw => '1..5',
- tests_planned => 5,
- passed => TRUE,
- is_ok => TRUE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 3,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 4,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 5,
- description => "",
- },
- ],
- plan => '1..5',
- passed => [ 1 .. 5 ],
- actual_passed => [ 1 .. 5 ],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 5,
- tests_run => 5,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 13,
- },
- version_old => {
- results => [
- { is_version => TRUE,
- raw => 'TAP version 12',
- },
- { is_plan => TRUE,
- raw => '1..5',
- tests_planned => 5,
- passed => TRUE,
- is_ok => TRUE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 3,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 4,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 5,
- description => "",
- },
- ],
- plan => '1..5',
- passed => [ 1 .. 5 ],
- actual_passed => [ 1 .. 5 ],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 5,
- tests_run => 5,
- parse_errors =>
- ['Explicit TAP version must be at least 13. Got version 12'],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
- version_late => {
- results => [
- { is_plan => TRUE,
- raw => '1..5',
- tests_planned => 5,
- passed => TRUE,
- is_ok => TRUE,
- },
- { is_version => TRUE,
- raw => 'TAP version 13',
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 3,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 4,
- description => "",
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 5,
- description => "",
- },
- ],
- plan => '1..5',
- passed => [ 1 .. 5 ],
- actual_passed => [ 1 .. 5 ],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 5,
- tests_run => 5,
- parse_errors =>
- ['If TAP version is present it must be the first line of output'],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
-
- escape_eol => {
- results => [
- { is_plan => TRUE,
- raw => '1..2',
- tests_planned => 2,
- passed => TRUE,
- is_ok => TRUE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- description =>
- 'Should parse as literal backslash --> \\',
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- description => 'Not a continuation line',
- is_unplanned => FALSE,
- },
- ],
- plan => '1..2',
- passed => [ 1 .. 2 ],
- actual_passed => [ 1 .. 2 ],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 2,
- tests_run => 2,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
-
- escape_hash => {
- results => [
- { is_plan => TRUE,
- raw => '1..3',
- tests_planned => 3,
- passed => TRUE,
- is_ok => TRUE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- description => 'Not a \\# TODO',
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- description => 'Not a \\# SKIP',
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 3,
- description => 'Escaped \\\\\\#',
- is_unplanned => FALSE,
- },
- ],
- plan => '1..3',
- passed => [ 1 .. 3 ],
- actual_passed => [ 1 .. 3 ],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 3,
- tests_run => 3,
- parse_errors => [],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
-
- zero_valid => {
- results => [
- { is_plan => TRUE,
- raw => '1..5',
- tests_planned => 5,
- passed => TRUE,
- is_ok => TRUE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- description => '- One',
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 1,
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- description => '- Two',
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 2,
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- description => '- Three',
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 3,
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- description => '- Four',
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 0,
- is_unplanned => FALSE,
- },
- { actual_passed => TRUE,
- is_actual_ok => TRUE,
- description => '- Five',
- passed => TRUE,
- is_ok => TRUE,
- is_test => TRUE,
- has_skip => FALSE,
- has_todo => FALSE,
- number => 5,
- is_unplanned => FALSE,
- },
- ],
- plan => '1..5',
- passed => [ 1 .. 3, 0, 5 ],
- actual_passed => [ 1 .. 3, 0, 5 ],
- failed => [],
- actual_failed => [],
- todo => [],
- todo_passed => [],
- skipped => [],
- good_plan => TRUE,
- is_good_plan => TRUE,
- tests_planned => 5,
- tests_run => 5,
- parse_errors => [
- 'Tests out of sequence. Found (0) but expected (4)',
- ],
- 'exit' => 0,
- wait => 0,
- version => 12,
- },
-);
-
-my %HANDLER_FOR = (
- NOT_ZERO, sub { local $^W; 0 != shift },
- TRUE, sub { local $^W; !!shift },
- FALSE, sub { local $^W; !shift },
-);
-
-my $can_open3 = ( $Config{d_fork} || $IsWin32 ) ? 1 : 0;
-
-for my $hide_fork ( 0 .. $can_open3 ) {
- if ($hide_fork) {
- no strict 'refs';
- local $^W = 0;
- *{'TAP::Parser::Iterator::Process::_use_open3'} = sub {return};
- }
-
- TEST:
- for my $test ( sort keys %samples ) {
-
- #next unless 'empty' eq $test;
- my %details = %{ $samples{$test} };
-
- if ( my $skip_if = delete $details{skip_if} ) {
- next TEST if $skip_if->();
- }
-
- my $results = delete $details{results};
- my $args = delete $details{__ARGS__};
- my $need_open3 = delete $details{need_open3};
-
- next TEST if $need_open3 && ( $hide_fork || !$can_open3 );
-
- # the following acrobatics are necessary to make it easy for the
- # Test::Builder::failure_output() method to be overridden when
- # TAP::Parser is not installed. Otherwise, these tests will fail.
-
- unshift @{ $args->{switches} },
- $ENV{PERL_CORE} ? ( map {"-I$_"} @INC ) : ('-It/lib');
-
- $args->{source} = File::Spec->catfile( $SAMPLE_TESTS, $test );
- $args->{merge} = !$hide_fork;
-
- my $parser = eval { analyze_test( $test, [@$results], $args ) };
- my $error = $@;
- ok !$error, "'$test' should parse successfully"
- or diag $error;
-
- if ($error) {
- my $tests = 0;
- while ( my ( $method, $answer ) = each %details ) {
- $tests += ref $answer ? 2 : 1;
- }
- SKIP: {
- skip "$test did not parse successfully", $tests;
- }
- }
- else {
- while ( my ( $method, $answer ) = each %details ) {
- if ( my $handler = $HANDLER_FOR{ $answer || '' } ) { # yuck
- ok $handler->( $parser->$method() ),
- "... and $method should return a reasonable value ($test)";
- }
- elsif ( !ref $answer ) {
- local $^W; # uninit warnings
-
- $answer = _vmsify_answer( $method, $answer );
-
- is $parser->$method(), $answer,
- "... and $method should equal $answer ($test)";
- }
- else {
- is scalar $parser->$method(), scalar @$answer,
- "... and $method should be the correct amount ($test)";
- is_deeply [ $parser->$method() ], $answer,
- "... and $method should be the correct values ($test)";
- }
- }
- }
- }
-}
-
-my %Unix2VMS_Exit_Codes = ( 1 => 4, );
-
-sub _vmsify_answer {
- my ( $method, $answer ) = @_;
-
- return $answer unless $IsVMS;
-
- if ( $method eq 'exit'
- and exists $Unix2VMS_Exit_Codes{$answer} )
- {
- $answer = $Unix2VMS_Exit_Codes{$answer};
- }
-
- return $answer;
-}
-
-sub analyze_test {
- my ( $test, $results, $args ) = @_;
-
- my $parser = TAP::Parser->new($args);
- my $count = 1;
- while ( defined( my $result = $parser->next ) ) {
-
- my $expected = shift @$results;
- my $desc
- = $result->is_test
- ? $result->description
- : $result->raw;
- $desc = $result->plan
- if $result->is_plan && $desc =~ /SKIP/i;
- $desc =~ s/#/<hash>/g;
- $desc =~ s/\s+/ /g; # Drop newlines
- ok defined $expected,
- "$test/$count We should have a result for $desc";
- while ( my ( $method, $answer ) = each %$expected ) {
-
- if ( my $handler = $HANDLER_FOR{ $answer || '' } ) { # yuck
- ok $handler->( $result->$method() ),
- "... and $method should return a reasonable value ($test/$count)";
- }
- elsif ( ref $answer ) {
- is_deeply scalar( $result->$method() ), $answer,
- "... and $method should return the correct structure ($test/$count)";
- }
- else {
- is $result->$method(), $answer,
- "... and $method should return the correct answer ($test/$count)";
- }
- }
- $count++;
- }
- is @$results, 0,
- "... and we should have the correct number of results ($test)";
- return $parser;
-}
-
-# vms_nit
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/results.t b/3.8.8/sources/cpan-Test-Harness/vendor/t/results.t
deleted file mode 100644
index 0522dd6..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/results.t
+++ /dev/null
@@ -1,295 +0,0 @@
-#!/usr/bin/perl -wT
-
-use strict;
-use lib 't/lib';
-
-use Test::More tests => 227;
-
-use TAP::Parser::ResultFactory;
-use TAP::Parser::Result;
-
-use constant RESULT => 'TAP::Parser::Result';
-use constant PLAN => 'TAP::Parser::Result::Plan';
-use constant TEST => 'TAP::Parser::Result::Test';
-use constant COMMENT => 'TAP::Parser::Result::Comment';
-use constant BAILOUT => 'TAP::Parser::Result::Bailout';
-use constant UNKNOWN => 'TAP::Parser::Result::Unknown';
-
-my $warning;
-$SIG{__WARN__} = sub { $warning = shift };
-
-#
-# Note that the are basic unit tests. More comprehensive path coverage is
-# found in the regression tests.
-#
-
-my $factory = TAP::Parser::ResultFactory->new;
-my %inherited_methods = (
- is_plan => '',
- is_test => '',
- is_comment => '',
- is_bailout => '',
- is_unknown => '',
- is_ok => 1,
-);
-
-my $abstract_class = bless { type => 'no_such_type' },
- RESULT; # you didn't see this
-run_method_tests( $abstract_class, {} ); # check the defaults
-
-can_ok $abstract_class, 'type';
-is $abstract_class->type, 'no_such_type',
- '... and &type should return the correct result';
-
-can_ok $abstract_class, 'passed';
-$warning = '';
-ok $abstract_class->passed, '... and it should default to true';
-like $warning, qr/^\Qpassed() is deprecated. Please use "is_ok()"/,
- '... but it should emit a deprecation warning';
-
-can_ok RESULT, 'new';
-
-can_ok $factory, 'make_result';
-eval { $factory->make_result( { type => 'no_such_type' } ) };
-ok my $error = $@, '... and calling it with an unknown class should fail';
-like $error, qr/^Could not determine class for.*no_such_type/s,
- '... with an appropriate error message';
-
-# register new Result types:
-can_ok $factory, 'class_for';
-can_ok $factory, 'register_type';
-{
-
- package MyResult;
- use strict;
- use vars qw($VERSION @ISA);
- @ISA = 'TAP::Parser::Result';
- TAP::Parser::ResultFactory->register_type( 'my_type' => __PACKAGE__ );
-}
-
-{
- my $r = eval { $factory->make_result( { type => 'my_type' } ) };
- my $error = $@;
- isa_ok( $r, 'MyResult', 'register custom type' );
- ok( !$error, '... and no error' );
-}
-
-#
-# test unknown tokens
-#
-
-run_tests(
- { class => UNKNOWN,
- data => {
- type => 'unknown',
- raw => '... this line is junk ... ',
- },
- },
- { is_unknown => 1,
- raw => '... this line is junk ... ',
- as_string => '... this line is junk ... ',
- type => 'unknown',
- has_directive => '',
- }
-);
-
-#
-# test comment tokens
-#
-
-run_tests(
- { class => COMMENT,
- data => {
- type => 'comment',
- raw => '# this is a comment',
- comment => 'this is a comment',
- },
- },
- { is_comment => 1,
- raw => '# this is a comment',
- as_string => '# this is a comment',
- comment => 'this is a comment',
- type => 'comment',
- has_directive => '',
- }
-);
-
-#
-# test bailout tokens
-#
-
-run_tests(
- { class => BAILOUT,
- data => {
- type => 'bailout',
- raw => 'Bailout! This blows!',
- bailout => 'This blows!',
- },
- },
- { is_bailout => 1,
- raw => 'Bailout! This blows!',
- as_string => 'This blows!',
- type => 'bailout',
- has_directive => '',
- }
-);
-
-#
-# test plan tokens
-#
-
-run_tests(
- { class => PLAN,
- data => {
- type => 'plan',
- raw => '1..20',
- tests_planned => 20,
- directive => '',
- explanation => '',
- },
- },
- { is_plan => 1,
- raw => '1..20',
- tests_planned => 20,
- directive => '',
- explanation => '',
- has_directive => '',
- }
-);
-
-run_tests(
- { class => PLAN,
- data => {
- type => 'plan',
- raw => '1..0 # SKIP help me, Rhonda!',
- tests_planned => 0,
- directive => 'SKIP',
- explanation => 'help me, Rhonda!',
- },
- },
- { is_plan => 1,
- raw => '1..0 # SKIP help me, Rhonda!',
- tests_planned => 0,
- directive => 'SKIP',
- explanation => 'help me, Rhonda!',
- has_directive => 1,
- }
-);
-
-#
-# test 'test' tokens
-#
-
-my $test = run_tests(
- { class => TEST,
- data => {
- ok => 'ok',
- test_num => 5,
- description => '... and this test is fine',
- directive => '',
- explanation => '',
- raw => 'ok 5 and this test is fine',
- type => 'test',
- },
- },
- { is_test => 1,
- type => 'test',
- ok => 'ok',
- number => 5,
- description => '... and this test is fine',
- directive => '',
- explanation => '',
- is_ok => 1,
- is_actual_ok => 1,
- todo_passed => '',
- has_skip => '',
- has_todo => '',
- as_string => 'ok 5 ... and this test is fine',
- is_unplanned => '',
- has_directive => '',
- }
-);
-
-can_ok $test, 'actual_passed';
-$warning = '';
-is $test->actual_passed, $test->is_actual_ok,
- '... and it should return the correct value';
-like $warning,
- qr/^\Qactual_passed() is deprecated. Please use "is_actual_ok()"/,
- '... but issue a deprecation warning';
-
-can_ok $test, 'todo_failed';
-$warning = '';
-is $test->todo_failed, $test->todo_passed,
- '... and it should return the correct value';
-like $warning,
- qr/^\Qtodo_failed() is deprecated. Please use "todo_passed()"/,
- '... but issue a deprecation warning';
-
-# TODO directive
-
-$test = run_tests(
- { class => TEST,
- data => {
- ok => 'not ok',
- test_num => 5,
- description => '... and this test is fine',
- directive => 'TODO',
- explanation => 'why not?',
- raw => 'not ok 5 and this test is fine # TODO why not?',
- type => 'test',
- },
- },
- { is_test => 1,
- type => 'test',
- ok => 'not ok',
- number => 5,
- description => '... and this test is fine',
- directive => 'TODO',
- explanation => 'why not?',
- is_ok => 1,
- is_actual_ok => '',
- todo_passed => '',
- has_skip => '',
- has_todo => 1,
- as_string =>
- 'not ok 5 ... and this test is fine # TODO why not?',
- is_unplanned => '',
- has_directive => 1,
- }
-);
-
-sub run_tests {
- my ( $instantiated, $value_for ) = @_;
- my $result = instantiate($instantiated);
- run_method_tests( $result, $value_for );
- return $result;
-}
-
-sub instantiate {
- my $instantiated = shift;
- my $class = $instantiated->{class};
- ok my $result = $factory->make_result( $instantiated->{data} ),
- 'Creating $class results should succeed';
- isa_ok $result, $class, '.. and the object it returns';
- return $result;
-}
-
-sub run_method_tests {
- my ( $result, $value_for ) = @_;
- while ( my ( $method, $default ) = each %inherited_methods ) {
- can_ok $result, $method;
- if ( defined( my $value = delete $value_for->{$method} ) ) {
- is $result->$method(), $value,
- "... and $method should be correct";
- }
- else {
- is $result->$method(), $default,
- "... and $method default should be correct";
- }
- }
- while ( my ( $method, $value ) = each %$value_for ) {
- can_ok $result, $method;
- is $result->$method(), $value, "... and $method should be correct";
- }
-}
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/bignum b/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/bignum
deleted file mode 100644
index b5824a1..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/bignum
+++ /dev/null
@@ -1,7 +0,0 @@
-print <<DUMMY;
-1..2
-ok 1
-ok 2
-ok 136211425
-ok 136211426
-DUMMY
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/bignum_many b/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/bignum_many
deleted file mode 100644
index 1e30b2f..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/bignum_many
+++ /dev/null
@@ -1,14 +0,0 @@
-print <<DUMMY;
-1..2
-ok 1
-ok 2
-ok 99997
-ok 99998
-ok 99999
-ok 100000
-ok 100001
-ok 100002
-ok 100003
-ok 100004
-ok 100005
-DUMMY
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/descriptive b/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/descriptive
deleted file mode 100644
index e165ac1..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/descriptive
+++ /dev/null
@@ -1,8 +0,0 @@
-print <<DUMMY_TEST;
-1..5
-ok 1 Interlock activated
-ok 2 Megathrusters are go
-ok 3 Head formed
-ok 4 Blazing sword formed
-ok 5 Robeast destroyed
-DUMMY_TEST
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/die_head_end b/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/die_head_end
deleted file mode 100644
index 494e4d3..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/die_head_end
+++ /dev/null
@@ -1,9 +0,0 @@
-print <<DUMMY_TEST;
-ok 1
-ok 2
-ok 3
-ok 4
-DUMMY_TEST
-
-eval "use vmsish 'hushed'" if ($^O eq 'VMS');
-exit 1;
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/die_last_minute b/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/die_last_minute
deleted file mode 100644
index ea533d6..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/die_last_minute
+++ /dev/null
@@ -1,10 +0,0 @@
-print <<DUMMY_TEST;
-ok 1
-ok 2
-ok 3
-ok 4
-1..4
-DUMMY_TEST
-
-eval "use vmsish 'hushed'" if ($^O eq 'VMS');
-exit 1;
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/escape_hash b/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/escape_hash
deleted file mode 100644
index c404372..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/escape_hash
+++ /dev/null
@@ -1,6 +0,0 @@
-print <<DUMMY_TEST;
-1..3
-ok 1 Not a \\# TODO
-ok 2 Not a \\# SKIP
-ok 3 Escaped \\\\\\#
-DUMMY_TEST
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/inc_taint b/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/inc_taint
deleted file mode 100644
index d1be667..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/inc_taint
+++ /dev/null
@@ -1,6 +0,0 @@
-#!/usr/bin/perl -Tw
-
-use Test::More tests => 1;
-
-ok( grep( /examples/, @INC ) );
-
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/junk_before_plan b/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/junk_before_plan
deleted file mode 100644
index b2ad018..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/junk_before_plan
+++ /dev/null
@@ -1,6 +0,0 @@
-print <<DUMMY_TEST;
-this is junk
-# this is a comment
-1..1
-ok 1
-DUMMY_TEST
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/lone_not_bug b/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/lone_not_bug
deleted file mode 100644
index 10eaa2a..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/lone_not_bug
+++ /dev/null
@@ -1,9 +0,0 @@
-# There was a bug where the first test would be considered a
-# 'lone not' failure.
-print <<DUMMY;
-ok 1
-ok 2
-ok 3
-ok 4
-1..4
-DUMMY
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/no_output b/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/no_output
deleted file mode 100644
index 505acda..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/no_output
+++ /dev/null
@@ -1,3 +0,0 @@
-#!/usr/bin/perl -w
-
-exit;
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/out_of_order b/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/out_of_order
deleted file mode 100644
index 77641aa..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/out_of_order
+++ /dev/null
@@ -1,22 +0,0 @@
-# From a bungled core thread test.
-#
-# The important thing here is that the last test is the right test.
-# Test::Harness would misparse this as being a valid test.
-print <<DUMMY;
-ok 2 - Test that argument passing works
-ok 3 - Test that passing arguments as references work
-ok 4 - Test a normal sub
-ok 6 - Detach test
-ok 8 - Nested thread test
-ok 9 - Nested thread test
-ok 10 - Wanted 7, got 7
-ok 11 - Wanted 7, got 7
-ok 12 - Wanted 8, got 8
-ok 13 - Wanted 8, got 8
-1..15
-ok 1
-ok 5 - Check that Config::threads is true
-ok 7 - Detach test
-ok 14 - Check so that tid for threads work for main thread
-ok 15 - Check so that tid for threads work for main thread
-DUMMY
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/schwern b/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/schwern
deleted file mode 100644
index d45726b..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/schwern
+++ /dev/null
@@ -1,3 +0,0 @@
-use Test::More;
-plan tests => 1;
-ok 23, 42;
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/shbang_misparse b/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/shbang_misparse
deleted file mode 100644
index ab93b46..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/shbang_misparse
+++ /dev/null
@@ -1,12 +0,0 @@
-#!/usr/bin/perl-latest
-
-# The above #! line was misparsed as having a -t.
-# Pre-5.8 this will simply cause perl to choke, since there was no -t.
-# Post-5.8 taint warnings will mistakenly be on.
-
-print "1..2\n";
-print "ok 1\n";
-my $warning = '';
-$SIG{__WARN__} = sub { $warning .= $_[0] };
-eval( "#" . substr( $0, 0, 0 ) );
-print $warning ? "not ok 2\n" : "ok 2\n";
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/simple_yaml b/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/simple_yaml
deleted file mode 100644
index 9f52c5c..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/simple_yaml
+++ /dev/null
@@ -1,27 +0,0 @@
-print <<DUMMY_TEST;
-TAP version 13
-1..5
-ok 1
-ok 2
- ---
- -
- fnurk: skib
- ponk: gleeb
- -
- bar: krup
- foo: plink
- ...
-ok 3
-ok 4
- ---
- expected:
- - 1
- - 2
- - 4
- got:
- - 1
- - pong
- - 4
- ...
-ok 5
-DUMMY_TEST
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/skipall_v13 b/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/skipall_v13
deleted file mode 100644
index d16bd4f..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/skipall_v13
+++ /dev/null
@@ -1,4 +0,0 @@
-print <<DUMMY_TEST;
-TAP version 13
-1..0 # skipping: rope
-DUMMY_TEST
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/todo b/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/todo
deleted file mode 100644
index 77f00b4..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/todo
+++ /dev/null
@@ -1,8 +0,0 @@
-print <<DUMMY_TEST;
-1..5 todo 3 2;
-ok 1
-ok 2
-not ok 3
-ok 4
-ok 5
-DUMMY_TEST
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/todo_inline b/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/todo_inline
deleted file mode 100644
index 5b96d68..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/todo_inline
+++ /dev/null
@@ -1,6 +0,0 @@
-print <<DUMMY_TEST;
-1..3
-not ok 1 - Foo # TODO Just testing the todo interface.
-ok 2 - Unexpected success # TODO Just testing the todo interface.
-ok 3 - This is not todo
-DUMMY_TEST
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/todo_misparse b/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/todo_misparse
deleted file mode 100644
index 138f3fb..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/todo_misparse
+++ /dev/null
@@ -1,5 +0,0 @@
-print <<'END';
-1..1
-not ok 1 Hamlette # TODOORNOTTODO
-END
-
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/too_many b/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/too_many
deleted file mode 100644
index 46acade..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/too_many
+++ /dev/null
@@ -1,14 +0,0 @@
-print <<DUMMY;
-1..3
-ok 1
-ok 2
-ok 3
-ok 4
-ok 5
-ok 6
-ok 7
-DUMMY
-
-exit 4; # simulate Test::More's exit status
-
-
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/version_late b/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/version_late
deleted file mode 100644
index 4537a32..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/version_late
+++ /dev/null
@@ -1,9 +0,0 @@
-print <<DUMMY_TEST;
-1..5
-TAP version 13
-ok 1
-ok 2
-ok 3
-ok 4
-ok 5
-DUMMY_TEST
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/version_old b/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/version_old
deleted file mode 100644
index 3c0c44f..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/version_old
+++ /dev/null
@@ -1,9 +0,0 @@
-print <<DUMMY_TEST;
-TAP version 12
-1..5
-ok 1
-ok 2
-ok 3
-ok 4
-ok 5
-DUMMY_TEST
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/with_comments b/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/with_comments
deleted file mode 100644
index 7aa9139..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/sample-tests/with_comments
+++ /dev/null
@@ -1,14 +0,0 @@
-print <<DUMMY_TEST;
-# and stuff
-1..5 todo 1 2 4 5;
-# yeah, that
-not ok 1
-# Failed test 1 in t/todo.t at line 9 *TODO*
-ok 2 # (t/todo.t at line 10 TODO?!)
-ok 3
-not ok 4
-# Test 4 got: '0' (t/todo.t at line 12 *TODO*)
-# Expected: '1' (need more tuits)
-ok 5 # (t/todo.t at line 13 TODO?!)
-# woo
-DUMMY_TEST
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/source_handler.t b/3.8.8/sources/cpan-Test-Harness/vendor/t/source_handler.t
deleted file mode 100644
index d06a26f..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/source_handler.t
+++ /dev/null
@@ -1,492 +0,0 @@
-#!/usr/bin/perl -w
-
-BEGIN {
- if ( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ( '../lib', '../ext/Test-Harness/t/lib' );
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-
-use strict;
-
-use Test::More tests => 123;
-
-use IO::File;
-use IO::Handle;
-use File::Spec;
-use MyShebangger;
-
-use TAP::Parser::Source;
-use TAP::Parser::SourceHandler;
-
-my $IS_WIN32 = ( $^O =~ /^(MS)?Win32$/ );
-my $HAS_SH = -x '/bin/sh';
-my $HAS_ECHO = -x '/bin/echo';
-
-my $dir = File::Spec->catdir(
- ( $ENV{PERL_CORE}
- ? ( File::Spec->updir(), 'ext', 'Test-Harness' )
- : ()
- ),
- 't',
- 'source_tests'
-);
-
-my $perl = $^X;
-
-my %file = map { $_ => File::Spec->catfile( $dir, $_ ) }
- qw( source source.1 source.bat source.pl source.sh source.t source.tap );
-
-# Abstract base class tests
-{
- my $class = 'TAP::Parser::SourceHandler';
- my $source = TAP::Parser::Source->new;
- my $error;
-
- can_ok $class, 'can_handle';
- eval { $class->can_handle($source) };
- $error = $@;
- like $error, qr/^Abstract method 'can_handle'/,
- '... with an appropriate error message';
-
- can_ok $class, 'make_iterator';
- eval { $class->make_iterator($source) };
- $error = $@;
- like $error, qr/^Abstract method 'make_iterator'/,
- '... with an appropriate error message';
-}
-
-# Executable source tests
-{
- my $class = 'TAP::Parser::SourceHandler::Executable';
- my $tests = {
- default_vote => 0,
- can_handle => [
- { name => '.sh',
- meta => {
- is_file => 1,
- file => { lc_ext => '.sh' }
- },
- vote => 0.8,
- },
- { name => '.bat',
- meta => {
- is_file => 1,
- file => { lc_ext => '.bat' }
- },
- vote => 0.8,
- },
- { name => 'executable bit',
- meta => {
- is_file => 1,
- file => { lc_ext => '', execute => 1 }
- },
- vote => 0.7,
- },
- { name => 'exec hash',
- raw => { exec => 'foo' },
- meta => { is_hash => 1 },
- vote => 0.9,
- },
- ],
- make_iterator => [
- { name => "valid executable",
- raw => [ $perl, '-It/lib', '-T', $file{source} ],
- iclass => 'TAP::Parser::Iterator::Process',
- output => [ '1..1', 'ok 1 - source' ],
- assemble_meta => 1,
- },
- { name => "invalid source->raw",
- raw => "$perl -It/lib $file{source}",
- error => qr/^No command found/,
- },
- { name => "non-existent source->raw",
- raw => [],
- error => qr/^No command found/,
- },
- { name => $file{'source.sh'},
- raw => \$file{'source.sh'},
- skip => $HAS_SH && $HAS_ECHO ? 0 : 1,
- skip_reason => 'no /bin/sh, /bin/echo',
- iclass => 'TAP::Parser::Iterator::Process',
- output => [ '1..1', 'ok 1 - source.sh' ],
- assemble_meta => 1,
- },
- { name => $file{'source.bat'},
- raw => \$file{'source.bat'},
- skip => $IS_WIN32 ? 0 : 1,
- skip_reason => 'not running Win32',
- iclass => 'TAP::Parser::Iterator::Process',
- output => [ '1..1', 'ok 1 - source.bat' ],
- assemble_meta => 1,
- },
- ],
- };
-
- test_handler( $class, $tests );
-}
-
-# Perl source tests
-{
- my $class = 'TAP::Parser::SourceHandler::Perl';
- my $tests = {
- default_vote => 0,
- can_handle => [
- { name => '.t',
- meta => {
- is_file => 1,
- file => { lc_ext => '.t', dir => '' }
- },
- vote => 0.8,
- },
- { name => '.pl',
- meta => {
- is_file => 1,
- file => { lc_ext => '.pl', dir => '' }
- },
- vote => 0.9,
- },
- { name => 't/.../file',
- meta => {
- is_file => 1,
- file => { lc_ext => '', dir => 't' }
- },
- vote => 0.75,
- },
- { name => '#!...perl',
- meta => {
- is_file => 1,
- file => {
- lc_ext => '', dir => '', shebang => '#!/usr/bin/perl'
- }
- },
- vote => 0.9,
- },
- { name => 'file default',
- meta => {
- is_file => 1,
- file => { lc_ext => '', dir => '' }
- },
- vote => 0.25,
- },
- ],
- make_iterator => [
- { name => $file{source},
- raw => \$file{source},
- iclass => 'TAP::Parser::Iterator::Process',
- output => [ '1..1', 'ok 1 - source' ],
- assemble_meta => 1,
- },
- ],
- };
-
- test_handler( $class, $tests );
-
- # internals tests!
- {
- my $source = TAP::Parser::Source->new->raw( \$file{source} );
- $source->assemble_meta;
- my $iterator = $class->make_iterator($source);
- my @command = @{ $iterator->{command} };
- ok( grep( $_ =~ /^['"]?-T['"]?$/, @command ),
- '... and it should find the taint switch'
- );
- }
-}
-
-# Raw TAP source tests
-{
- my $class = 'TAP::Parser::SourceHandler::RawTAP';
- my $tests = {
- default_vote => 0,
- can_handle => [
- { name => 'file',
- meta => { is_file => 1 },
- raw => \'',
- vote => 0,
- },
- { name => 'scalar w/newlines',
- raw => \"hello\nworld\n",
- vote => 0.3,
- assemble_meta => 1,
- },
- { name => '1..10',
- raw => \"1..10\n",
- vote => 0.9,
- assemble_meta => 1,
- },
- { name => 'array',
- raw => [ '1..1', 'ok 1' ],
- vote => 0.5,
- assemble_meta => 1,
- },
- ],
- make_iterator => [
- { name => 'valid scalar',
- raw => \"1..1\nok 1 - raw\n",
- iclass => 'TAP::Parser::Iterator::Array',
- output => [ '1..1', 'ok 1 - raw' ],
- assemble_meta => 1,
- },
- { name => 'valid array',
- raw => [ '1..1', 'ok 1 - raw' ],
- iclass => 'TAP::Parser::Iterator::Array',
- output => [ '1..1', 'ok 1 - raw' ],
- assemble_meta => 1,
- },
- ],
- };
-
- test_handler( $class, $tests );
-}
-
-# Text file TAP source tests
-{
- my $class = 'TAP::Parser::SourceHandler::File';
- my $tests = {
- default_vote => 0,
- can_handle => [
- { name => '.tap',
- meta => {
- is_file => 1,
- file => { lc_ext => '.tap' }
- },
- vote => 0.9,
- },
- { name => '.foo with config',
- meta => {
- is_file => 1,
- file => { lc_ext => '.foo' }
- },
- config => { File => { extensions => ['.foo'] } },
- vote => 0.9,
- },
- ],
- make_iterator => [
- { name => $file{'source.tap'},
- raw => \$file{'source.tap'},
- iclass => 'TAP::Parser::Iterator::Stream',
- output => [ '1..1', 'ok 1 - source.tap' ],
- assemble_meta => 1,
- },
- { name => $file{'source.1'},
- raw => \$file{'source.1'},
- config => { File => { extensions => ['.1'] } },
- iclass => 'TAP::Parser::Iterator::Stream',
- output => [ '1..1', 'ok 1 - source.1' ],
- assemble_meta => 1,
- },
- ],
- };
-
- test_handler( $class, $tests );
-}
-
-# IO::Handle TAP source tests
-{
- my $class = 'TAP::Parser::SourceHandler::Handle';
- my $tests = {
- default_vote => 0,
- can_handle => [
- { name => 'glob',
- meta => { is_glob => 1 },
- vote => 0.8,
- },
- { name => 'IO::Handle',
- raw => IO::Handle->new,
- vote => 0.9,
- assemble_meta => 1,
- },
- ],
- make_iterator => [
- { name => 'IO::Handle',
- raw => IO::File->new( $file{'source.tap'} ),
- iclass => 'TAP::Parser::Iterator::Stream',
- output => [ '1..1', 'ok 1 - source.tap' ],
- assemble_meta => 1,
- },
- ],
- };
-
- test_handler( $class, $tests );
-}
-
-# pgTAP source tests
-{
- my $class = 'TAP::Parser::SourceHandler::pgTAP';
- my $test = File::Spec->catfile( $dir, 'source.t' );
- my $psql = File::Spec->catfile( $dir, 'psql' );
- if ( $^O eq 'MSWin32' ) {
- $psql .= '.bat';
- }
- else {
- $psql = MyShebangger::make_perl_executable($psql);
- }
- my @command = qw(
- --no-psqlrc
- --no-align
- --quiet
- --pset pager=
- --pset tuples_only=true
- --set ON_ERROR_ROLLBACK=1
- --set ON_ERROR_STOP=1
- );
- my $tests = {
- default_vote => 0,
- can_handle => [
- { name => '.pg',
- meta => {
- is_file => 1,
- file => { lc_ext => '.pg' }
- },
- config => {},
- vote => 0.9,
- },
- { name => '.sql',
- meta => {
- is_file => 1,
- file => { lc_ext => '.sql' }
- },
- config => {},
- vote => 0.8,
- },
- { name => '.s',
- meta => {
- is_file => 1,
- file => { lc_ext => '.s' }
- },
- config => {},
- vote => 0.75,
- },
- { name => 'config_suffix',
- meta => {
- is_file => 1,
- file => { lc_ext => '.foo' }
- },
- config => { pgTAP => { suffix => '.foo' } },
- vote => 1,
- },
- { name => 'not_file',
- meta => {
- is_file => 0,
- },
- vote => 0,
- },
- ],
- make_iterator => [
- { name => 'psql',
- raw => \$test,
- config => { pgTAP => { psql => $psql } },
- iclass => 'TAP::Parser::Iterator::Process',
- output => [ @command, '--file', $test ],
- },
- { name => 'config',
- raw => $test,
- config => {
- pgTAP => {
- psql => $psql,
- username => 'who',
- host => 'f',
- port => 2,
- dbname => 'fred',
- }
- },
- iclass => 'TAP::Parser::Iterator::Process',
- output => [
- @command,
- qw(--username who --host f --port 2 --dbname fred --file),
- $test
- ],
- },
- { name => 'error',
- raw => 'blah.pg',
- iclass => 'TAP::Parser::Iterator::Process',
- error => qr/^No such file or directory: blah[.]pg/,
- },
- { name => 'undef error',
- raw => undef,
- iclass => 'TAP::Parser::Iterator::Process',
- error => qr/^No such file or directory: /,
- },
- ],
- };
-
- test_handler( $class, $tests );
-}
-
-exit;
-
-###############################################################################
-# helper sub
-
-sub test_handler {
- my ( $class, $tests ) = @_;
- my ($short_class) = ( $class =~ /\:\:(\w+)$/ );
-
- use_ok $class;
- can_ok $class, 'can_handle', 'make_iterator';
-
- {
- my $default_vote = $tests->{default_vote} || 0;
- my $source = TAP::Parser::Source->new;
- is( $class->can_handle($source), $default_vote,
- '... can_handle default vote'
- );
- }
-
- for my $test ( @{ $tests->{can_handle} } ) {
- my $source = TAP::Parser::Source->new;
- $source->raw( $test->{raw} ) if $test->{raw};
- $source->meta( $test->{meta} ) if $test->{meta};
- $source->config( $test->{config} ) if $test->{config};
- $source->assemble_meta if $test->{assemble_meta};
- my $vote = $test->{vote} || 0;
- my $name = $test->{name} || 'unnamed test';
- $name = "$short_class->can_handle( $name )";
- is( $class->can_handle($source), $vote, $name );
- }
-
- for my $test ( @{ $tests->{make_iterator} } ) {
- my $name = $test->{name} || 'unnamed test';
- $name = "$short_class->make_iterator( $name )";
-
- SKIP:
- {
- my $planned = 1;
- $planned += 1 + scalar @{ $test->{output} } if $test->{output};
- skip $test->{skip_reason}, $planned if $test->{skip};
-
- my $source = TAP::Parser::Source->new;
- $source->raw( $test->{raw} ) if $test->{raw};
- $source->meta( $test->{meta} ) if $test->{meta};
- $source->config( $test->{config} ) if $test->{config};
- $source->assemble_meta if $test->{assemble_meta};
-
- my $iterator = eval { $class->make_iterator($source) };
- my $e = $@;
- if ( my $error = $test->{error} ) {
- $e = '' unless defined $e;
- like $e, $error, "$name threw expected error";
- next;
- }
- elsif ($e) {
- fail("$name threw an unexpected error");
- diag($e);
- next;
- }
-
- isa_ok $iterator, $test->{iclass}, $name;
- if ( $test->{output} ) {
- my $i = 1;
- for my $line ( @{ $test->{output} } ) {
- is $iterator->next, $line, "... line $i";
- $i++;
- }
- ok !$iterator->next, '... and we should have no more results';
- }
- }
- }
-}
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/source_tests/source b/3.8.8/sources/cpan-Test-Harness/vendor/t/source_tests/source
deleted file mode 100644
index a7dc38e..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/source_tests/source
+++ /dev/null
@@ -1,15 +0,0 @@
-#!/usr/bin/perl -wT
-
-BEGIN {
- if ( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ( '../lib', 'lib' );
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-
-use Test::More tests => 1;
-
-ok 1, 'source';
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/source_tests/source.pl b/3.8.8/sources/cpan-Test-Harness/vendor/t/source_tests/source.pl
deleted file mode 100644
index e709bac..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/source_tests/source.pl
+++ /dev/null
@@ -1,6 +0,0 @@
-#!/usr/bin/perl
-
-print <<'END_TESTS';
-1..1
-ok 1 - source.pl
-END_TESTS
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/source_tests/source.tap b/3.8.8/sources/cpan-Test-Harness/vendor/t/source_tests/source.tap
deleted file mode 100644
index 788e656..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/source_tests/source.tap
+++ /dev/null
@@ -1,2 +0,0 @@
-1..1
-ok 1 - source.tap
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/spool.t b/3.8.8/sources/cpan-Test-Harness/vendor/t/spool.t
deleted file mode 100644
index 62227da..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/spool.t
+++ /dev/null
@@ -1,146 +0,0 @@
-#!/usr/bin/perl -w
-
-BEGIN {
- if ( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ( '../lib', 'lib' );
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-
-# test T::H::_open_spool and _close_spool - these are good examples
-# of the 'Fragile Test' pattern - messing with I/O primitives breaks
-# nearly everything
-
-use strict;
-use Test::More;
-
-my $useOrigOpen;
-my $useOrigClose;
-
-# setup replacements for core open and close - breaking these makes everything very fragile
-BEGIN {
- $useOrigOpen = $useOrigClose = 1;
-
- # taken from http://www.perl.com/pub/a/2002/06/11/threads.html?page=2
-
- *CORE::GLOBAL::open = \&my_open;
-
- sub my_open (*@) {
- if ($useOrigOpen) {
- if ( defined( $_[0] ) ) {
- use Symbol qw();
- my $handle = Symbol::qualify( $_[0], (caller)[0] );
- no strict 'refs';
- if ( @_ == 1 ) {
- return CORE::open($handle);
- }
- elsif ( @_ == 2 ) {
- return CORE::open( $handle, $_[1] );
- }
- else {
- die "Can't open with more than two args";
- }
- }
- }
- else {
- return;
- }
- }
-
- *CORE::GLOBAL::close = sub (*) {
- if ($useOrigClose) { return CORE::close(shift) }
- else {return}
- };
-
-}
-
-use TAP::Harness;
-use TAP::Parser;
-use TAP::Parser::Iterator::Array;
-
-plan tests => 4;
-
-{
-
- # coverage tests for the basically untested T::H::_open_spool
-
- my @spool = ( $ENV{PERL_CORE} ? ('spool') : ( 't', 'spool' ) );
- $ENV{PERL_TEST_HARNESS_DUMP_TAP} = File::Spec->catfile(@spool);
-
-# now given that we're going to be writing stuff to the file system, make sure we have
-# a cleanup hook
-
- END {
- use File::Path;
-
- $useOrigOpen = $useOrigClose = 1;
-
- # remove the tree if we made it this far
- rmtree( $ENV{PERL_TEST_HARNESS_DUMP_TAP} )
- if $ENV{PERL_TEST_HARNESS_DUMP_TAP};
- }
-
- my @die;
-
- eval {
- local $SIG{__DIE__} = sub { push @die, @_ };
-
- # use the broken open
- $useOrigOpen = 0;
-
- TAP::Harness->_open_spool(
- File::Spec->catfile(qw (source_tests harness )) );
-
- # restore universal sanity
- $useOrigOpen = 1;
- };
-
- is @die, 1, 'open failed, die as expected';
-
- my $spoolDir = quotemeta(
- File::Spec->catfile( @spool, qw( source_tests harness ) ) );
-
- like pop @die, qr/ Can't write $spoolDir \( /, '...with expected message';
-
- # now make close fail
-
- use Symbol;
-
- my $spoolHandle = gensym;
-
- my $tap = <<'END_TAP';
-1..1
-ok 1 - input file opened
-
-END_TAP
-
- my $parser = TAP::Parser->new(
- { spool => $spoolHandle,
- iterator =>
- TAP::Parser::Iterator::Array->new( [ split /\n/ => $tap ] )
- }
- );
-
- @die = ();
-
- eval {
- local $SIG{__DIE__} = sub { push @die, @_ };
-
- # use the broken CORE::close
- $useOrigClose = 0;
-
- TAP::Harness->_close_spool($parser);
-
- $useOrigClose = 1;
- };
-
- unless ( is @die, 1, 'close failed, die as expected' ) {
- diag " >>> $_ <<<\n" for @die;
- }
-
- like pop @die, qr/ Error closing TAP spool file[(] /,
- '...with expected message';
-}
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/streams.t b/3.8.8/sources/cpan-Test-Harness/vendor/t/streams.t
deleted file mode 100755
index f4e9767..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/streams.t
+++ /dev/null
@@ -1,173 +0,0 @@
-#!/usr/bin/perl -wT
-
-use strict;
-use lib 't/lib';
-
-use Test::More tests => 49;
-
-use TAP::Parser;
-use TAP::Parser::Iterator::Array;
-use TAP::Parser::Iterator::Stream;
-
-my $ITER = 'TAP::Parser::Iterator';
-my $ITER_FH = "${ITER}::Stream";
-my $ITER_ARRAY = "${ITER}::Array";
-
-my $iterator = $ITER_FH->new( \*DATA );
-isa_ok $iterator, 'TAP::Parser::Iterator';
-my $parser = TAP::Parser->new( { iterator => $iterator } );
-isa_ok $parser, 'TAP::Parser',
- '... and creating a streamed parser should succeed';
-
-can_ok $parser, '_iterator';
-is ref $parser->_iterator, $ITER_FH,
- '... and it should return the proper iterator';
-can_ok $parser, '_stream'; # deprecated
-is $parser->_stream, $parser->_iterator, '... _stream (deprecated)';
-
-can_ok $parser, 'next';
-is $parser->next->as_string, '1..5',
- '... and the plan should parse correctly';
-is $parser->next->as_string, 'ok 1 - input file opened',
- '... and the first test should parse correctly';
-is $parser->next->as_string, '... this is junk',
- '... and junk should parse correctly';
-is $parser->next->as_string,
- 'not ok 2 first line of the input valid # TODO some data',
- '... and the second test should parse correctly';
-is $parser->next->as_string, '# this is a comment',
- '... and comments should parse correctly';
-is $parser->next->as_string, 'ok 3 - read the rest of the file',
- '... and the third test should parse correctly';
-is $parser->next->as_string, 'not ok 4 - this is a real failure',
- '... and the fourth test should parse correctly';
-is $parser->next->as_string, 'ok 5 # SKIP we have no description',
- '... and fifth test should parse correctly';
-
-ok !$parser->parse_errors, '... and we should have no parse errors';
-
-# plan at end
-
-my $tap = <<'END_TAP';
-ok 1 - input file opened
-... this is junk
-not ok first line of the input valid # todo some data
-# this is a comment
-ok 3 - read the rest of the file
-not ok 4 - this is a real failure
-ok 5 # skip we have no description
-1..5
-END_TAP
-
-$iterator = $ITER_ARRAY->new( [ split /\n/ => $tap ] );
-ok $parser = TAP::Parser->new( { iterator => $iterator } ),
- 'Now we create a parser with the plan at the end';
-isa_ok $parser->_iterator, $ITER_ARRAY,
- '... and now we should have an array iterator';
-is $parser->next->as_string, 'ok 1 - input file opened',
- '... and the first test should parse correctly';
-is $parser->next->as_string, '... this is junk',
- '... and junk should parse correctly';
-is $parser->next->as_string,
- 'not ok 2 first line of the input valid # TODO some data',
- '... and the second test should parse correctly';
-is $parser->next->as_string, '# this is a comment',
- '... and comments should parse correctly';
-is $parser->next->as_string, 'ok 3 - read the rest of the file',
- '... and the third test should parse correctly';
-is $parser->next->as_string, 'not ok 4 - this is a real failure',
- '... and the fourth test should parse correctly';
-is $parser->next->as_string, 'ok 5 # SKIP we have no description',
- '... and fifth test should parse correctly';
-is $parser->next->as_string, '1..5',
- '... and the plan should parse correctly';
-
-ok !$parser->parse_errors, '... and we should have no parse errors';
-
-# misplaced plan (and one-off errors)
-
-$tap = <<'END_TAP';
-ok 1 - input file opened
-1..5
-... this is junk
-not ok first line of the input valid # todo some data
-# this is a comment
-ok 3 - read the rest of the file
-not ok 4 - this is a real failure
-ok 5 # skip we have no description
-END_TAP
-
-$iterator = $ITER_ARRAY->new( [ split /\n/ => $tap ] );
-
-ok $parser = TAP::Parser->new( { iterator => $iterator } ),
- 'Now we create a parser with a plan as the second line';
-is $parser->next->as_string, 'ok 1 - input file opened',
- '... and the first test should parse correctly';
-is $parser->next->as_string, '1..5',
- '... and the plan should parse correctly';
-is $parser->next->as_string, '... this is junk',
- '... and junk should parse correctly';
-is $parser->next->as_string,
- 'not ok 2 first line of the input valid # TODO some data',
- '... and the second test should parse correctly';
-is $parser->next->as_string, '# this is a comment',
- '... and comments should parse correctly';
-is $parser->next->as_string, 'ok 3 - read the rest of the file',
- '... and the third test should parse correctly';
-is $parser->next->as_string, 'not ok 4 - this is a real failure',
- '... and the fourth test should parse correctly';
-is $parser->next->as_string, 'ok 5 # SKIP we have no description',
- '... and fifth test should parse correctly';
-
-ok $parser->parse_errors, '... and we should have one parse error';
-is + ( $parser->parse_errors )[0],
- 'Plan (1..5) must be at the beginning or end of the TAP output',
- '... telling us that our plan went awry';
-
-$tap = <<'END_TAP';
-ok 1 - input file opened
-... this is junk
-not ok first line of the input valid # todo some data
-# this is a comment
-ok 3 - read the rest of the file
-not ok 4 - this is a real failure
-1..5
-ok 5 # skip we have no description
-END_TAP
-
-$iterator = $ITER_ARRAY->new( [ split /\n/ => $tap ] );
-
-ok $parser = TAP::Parser->new( { iterator => $iterator } ),
- 'Now we create a parser with the plan as the second to last line';
-is $parser->next->as_string, 'ok 1 - input file opened',
- '... and the first test should parse correctly';
-is $parser->next->as_string, '... this is junk',
- '... and junk should parse correctly';
-is $parser->next->as_string,
- 'not ok 2 first line of the input valid # TODO some data',
- '... and the second test should parse correctly';
-is $parser->next->as_string, '# this is a comment',
- '... and comments should parse correctly';
-is $parser->next->as_string, 'ok 3 - read the rest of the file',
- '... and the third test should parse correctly';
-is $parser->next->as_string, 'not ok 4 - this is a real failure',
- '... and the fourth test should parse correctly';
-is $parser->next->as_string, '1..5',
- '... and the plan should parse correctly';
-is $parser->next->as_string, 'ok 5 # SKIP we have no description',
- '... and fifth test should parse correctly';
-
-ok $parser->parse_errors, '... and we should have one parse error';
-is + ( $parser->parse_errors )[0],
- 'Plan (1..5) must be at the beginning or end of the TAP output',
- '... telling us that our plan went awry';
-
-__DATA__
-1..5
-ok 1 - input file opened
-... this is junk
-not ok first line of the input valid # todo some data
-# this is a comment
-ok 3 - read the rest of the file
-not ok 4 - this is a real failure
-ok 5 # skip we have no description
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/testargs.t b/3.8.8/sources/cpan-Test-Harness/vendor/t/testargs.t
deleted file mode 100644
index 8ac9035..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/testargs.t
+++ /dev/null
@@ -1,142 +0,0 @@
-#!/usr/bin/perl -w
-
-BEGIN {
- chdir 't' and @INC = '../lib' if $ENV{PERL_CORE};
-}
-
-use strict;
-use lib 't/lib';
-
-use Test::More tests => 21;
-use File::Spec;
-use TAP::Parser;
-use TAP::Harness;
-use App::Prove;
-
-my $test = File::Spec->catfile(
- ( $ENV{PERL_CORE}
- ? ( File::Spec->updir(), 'ext', 'Test-Harness' )
- : ()
- ),
- 't',
- 'sample-tests',
- 'echo'
-);
-
-diag( "\n\n", bigness( join ' ', @ARGV ), "\n\n" ) if @ARGV;
-
-sub echo_ok {
- my $options = shift;
- my @args = @_;
- my $parser = TAP::Parser->new( { %$options, test_args => \@args } );
- my @got = ();
- while ( my $result = $parser->next ) {
- push @got, $result;
- }
- my $plan = shift @got;
- ok $plan->is_plan;
- for (@got) {
- is $_->description, shift(@args),
- join( ', ', keys %$options ) . ": option passed OK";
- }
-}
-
-for my $args ( [qw( yes no maybe )], [qw( 1 2 3 )] ) {
- echo_ok( { source => $test }, @$args );
- echo_ok( { exec => [ $^X, $test ] }, @$args );
-}
-
-{
- for my $test_arg_type (
- [qw( magic hat brigade )],
- { $test => [qw( magic hat brigade )] },
- )
- {
- my $harness = TAP::Harness->new(
- { verbosity => -9, test_args => $test_arg_type } );
- my $aggregate = $harness->runtests($test);
-
- is $aggregate->total, 3, "ran the right number of tests";
- is $aggregate->passed, 3, "and they passed";
- }
-}
-
-package Test::Prove;
-
-use vars qw(@ISA);
- at ISA = 'App::Prove';
-
-sub _runtests {
- my $self = shift;
- push @{ $self->{_log} }, [@_];
- return;
-}
-
-sub get_run_log {
- my $self = shift;
- return $self->{_log};
-}
-
-package main;
-
-{
- my $app = Test::Prove->new;
-
- $app->process_args( '--norc', $test, '::', 'one', 'two', 'huh' );
- $app->run();
- my $log = $app->get_run_log;
- is_deeply $log->[0]->[0]->{test_args}, [ 'one', 'two', 'huh' ],
- "prove args match";
-}
-
-sub bigness {
- my $str = join '', @_;
- my @cdef = (
- '0000000000000000', '1818181818001800', '6c6c6c0000000000',
- '36367f367f363600', '0c3f683e0b7e1800', '60660c1830660600',
- '386c6c386d663b00', '0c18300000000000', '0c18303030180c00',
- '30180c0c0c183000', '00187e3c7e180000', '0018187e18180000',
- '0000000000181830', '0000007e00000000', '0000000000181800',
- '00060c1830600000', '3c666e7e76663c00', '1838181818187e00',
- '3c66060c18307e00', '3c66061c06663c00', '0c1c3c6c7e0c0c00',
- '7e607c0606663c00', '1c30607c66663c00', '7e060c1830303000',
- '3c66663c66663c00', '3c66663e060c3800', '0000181800181800',
- '0000181800181830', '0c18306030180c00', '00007e007e000000',
- '30180c060c183000', '3c660c1818001800', '3c666e6a6e603c00',
- '3c66667e66666600', '7c66667c66667c00', '3c66606060663c00',
- '786c6666666c7800', '7e60607c60607e00', '7e60607c60606000',
- '3c66606e66663c00', '6666667e66666600', '7e18181818187e00',
- '3e0c0c0c0c6c3800', '666c7870786c6600', '6060606060607e00',
- '63777f6b6b636300', '6666767e6e666600', '3c66666666663c00',
- '7c66667c60606000', '3c6666666a6c3600', '7c66667c6c666600',
- '3c66603c06663c00', '7e18181818181800', '6666666666663c00',
- '66666666663c1800', '63636b6b7f776300', '66663c183c666600',
- '6666663c18181800', '7e060c1830607e00', '7c60606060607c00',
- '006030180c060000', '3e06060606063e00', '183c664200000000',
- '00000000000000ff', '1c36307c30307e00', '00003c063e663e00',
- '60607c6666667c00', '00003c6660663c00', '06063e6666663e00',
- '00003c667e603c00', '1c30307c30303000', '00003e66663e063c',
- '60607c6666666600', '1800381818183c00', '1800381818181870',
- '6060666c786c6600', '3818181818183c00', '0000367f6b6b6300',
- '00007c6666666600', '00003c6666663c00', '00007c66667c6060',
- '00003e66663e0607', '00006c7660606000', '00003e603c067c00',
- '30307c3030301c00', '0000666666663e00', '00006666663c1800',
- '0000636b6b7f3600', '0000663c183c6600', '00006666663e063c',
- '00007e0c18307e00', '0c18187018180c00', '1818180018181800',
- '3018180e18183000', '316b460000000000'
- );
- my @chars = unpack( 'C*', $str );
- my @out = ();
- for my $row ( 0 .. 7 ) {
- for my $char (@chars) {
- next if $char < 32 || $char > 126;
- my $size = scalar(@cdef);
- my $byte = hex( substr( $cdef[ $char - 32 ], $row * 2, 2 ) );
- my $bits = sprintf( '%08b', $byte );
- $bits =~ tr/01/ #/;
- push @out, $bits;
- }
- push @out, "\n";
- }
- return join '', @out;
-}
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/unicode.t b/3.8.8/sources/cpan-Test-Harness/vendor/t/unicode.t
deleted file mode 100644
index 88d3208..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/unicode.t
+++ /dev/null
@@ -1,125 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use lib 't/lib';
-use Test::More;
-use TAP::Parser;
-
-my @schedule;
-my %make_test;
-
-BEGIN {
-
- # TODO: Investigate failure on 5.8.0
- plan skip_all => "unicode on Perl <= 5.8.0"
- unless $] > 5.008;
-
- plan skip_all => "PERL_UNICODE set"
- if defined $ENV{PERL_UNICODE};
-
- eval "use File::Temp";
- plan skip_all => "File::Temp unavailable"
- if $@;
-
- eval "use Encode";
- plan skip_all => "Encode unavailable"
- if $@;
-
- # Subs that take the supplied TAP and turn it into a set of args to
- # supply to TAP::Harness->new. The returned hash includes the
- # temporary file so that its reference count doesn't go to zero
- # until we're finished with it.
- %make_test = (
- file => sub {
- my $source = shift;
- my $tmp = File::Temp->new;
- open my $fh, ">$tmp" or die "Can't write $tmp ($!)\n";
- eval 'binmode( $fh, ":utf8" )';
- print $fh join( "\n", @$source ), "\n";
- close $fh;
-
- open my $taph, "<$tmp" or die "Can't read $tmp ($!)\n";
- eval 'binmode( $taph, ":utf8" )';
- return {
- temp => $tmp,
- args => { source => $taph },
- };
- },
- script => sub {
- my $source = shift;
- my $tmp = File::Temp->new;
- open my $fh, ">$tmp" or die "Can't write $tmp ($!)\n";
- eval 'binmode( $fh, ":utf8" )';
- print $fh map {"print qq{$_\\n};\n"} @$source;
- close $fh;
-
- open my $taph, "<$tmp" or die "Can't read $tmp ($!)\n";
- return {
- temp => $tmp,
- args => { exec => [ $^X, "$tmp" ] },
- };
- },
- );
-
- @schedule = (
- { name => 'Non-unicode warm up',
- source => [
- 'TAP version 13',
- '1..1',
- 'ok 1 Everything is fine',
- ],
- expect => [
- { isa => 'TAP::Parser::Result::Version', },
- { isa => 'TAP::Parser::Result::Plan', },
- { isa => 'TAP::Parser::Result::Test',
- description => "Everything is fine"
- },
- ],
- },
- { name => 'Unicode smiley',
- source => [
- 'TAP version 13',
- '1..1',
-
- # Funky quoting / eval to avoid errors on older Perls
- eval qq{"ok 1 Everything is fine \\x{263a}"},
- ],
- expect => [
- { isa => 'TAP::Parser::Result::Version', },
- { isa => 'TAP::Parser::Result::Plan', },
- { isa => 'TAP::Parser::Result::Test',
- description => eval qq{"Everything is fine \\x{263a}"}
- },
- ],
- }
- );
-
- plan 'no_plan';
-}
-
-for my $test (@schedule) {
- for my $type ( sort keys %make_test ) {
- my $name = sprintf( "%s (%s)", $test->{name}, $type );
- my $args = $make_test{$type}->( $test->{source} );
-
- my $parser = TAP::Parser->new( $args->{args} );
- isa_ok $parser, 'TAP::Parser';
- my @expect = @{ $test->{expect} };
- while ( my $tok = $parser->next ) {
- my $exp = shift @expect;
- for my $item ( sort keys %$exp ) {
- my $val = $exp->{$item};
- if ( 'isa' eq $item ) {
- isa_ok $tok, $val;
- }
- elsif ( 'CODE' eq ref $val ) {
- ok $val->($tok), "$name: assertion for $item";
- }
- else {
- my $got = $tok->$item();
- is $got, $val, "$name: value for $item matches";
- }
- }
- }
- }
-}
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/yamlish-output.t b/3.8.8/sources/cpan-Test-Harness/vendor/t/yamlish-output.t
deleted file mode 100644
index 914d7ea..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/yamlish-output.t
+++ /dev/null
@@ -1,100 +0,0 @@
-#!/usr/bin/perl -wT
-
-use strict;
-use lib 't/lib';
-
-use Test::More tests => 9;
-
-use TAP::Parser::YAMLish::Writer;
-
-my $out = [
- "---",
- "bill-to:",
- " address:",
- " city: \"Royal Oak\"",
- " lines: \"458 Walkman Dr.\\nSuite #292\\n\"",
- " postal: 48046",
- " state: MI",
- " family: Dumars",
- " given: Chris",
- "comments: \"Late afternoon is best. Backup contact is Nancy Billsmer \@ 338-4338\\n\"",
- "date: 2001-01-23",
- "invoice: 34843",
- "product:",
- " -",
- " description: Basketball",
- " price: 450.00",
- " quantity: 4",
- " sku: BL394D",
- " -",
- " description: \"Super Hoop\"",
- " price: 2392.00",
- " quantity: 1",
- " sku: BL4438H",
- "tax: 251.42",
- "total: 4443.52",
- "...",
-];
-
-my $in = {
- 'bill-to' => {
- 'given' => 'Chris',
- 'address' => {
- 'city' => 'Royal Oak',
- 'postal' => '48046',
- 'lines' => "458 Walkman Dr.\nSuite #292\n",
- 'state' => 'MI'
- },
- 'family' => 'Dumars'
- },
- 'invoice' => '34843',
- 'date' => '2001-01-23',
- 'tax' => '251.42',
- 'product' => [
- { 'sku' => 'BL394D',
- 'quantity' => '4',
- 'price' => '450.00',
- 'description' => 'Basketball'
- },
- { 'sku' => 'BL4438H',
- 'quantity' => '1',
- 'price' => '2392.00',
- 'description' => 'Super Hoop'
- }
- ],
- 'comments' =>
- "Late afternoon is best. Backup contact is Nancy Billsmer @ 338-4338\n",
- 'total' => '4443.52'
-};
-
-my @buf1 = ();
-my @buf2 = ();
-my $buf3 = '';
-
-my @destination = (
- { name => 'Array reference',
- destination => \@buf1,
- normalise => sub { return \@buf1 },
- },
- { name => 'Closure',
- destination => sub { push @buf2, shift },
- normalise => sub { return \@buf2 },
- },
- { name => 'Scalar',
- destination => \$buf3,
- normalise => sub {
- my @ar = split( /\n/, $buf3 );
- return \@ar;
- },
- },
-);
-
-for my $dest (@destination) {
- my $name = $dest->{name};
- ok my $yaml = TAP::Parser::YAMLish::Writer->new, "$name: Created";
- isa_ok $yaml, 'TAP::Parser::YAMLish::Writer';
-
- $yaml->write( $in, $dest->{destination} );
- my $got = $dest->{normalise}->();
- is_deeply $got, $out, "$name: Result matches";
-}
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/t/yamlish.t b/3.8.8/sources/cpan-Test-Harness/vendor/t/yamlish.t
deleted file mode 100644
index 76ba798..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/t/yamlish.t
+++ /dev/null
@@ -1,529 +0,0 @@
-#!perl -w
-
-use strict;
-use lib 't/lib';
-
-use Test::More;
-
-use TAP::Parser::YAMLish::Reader;
-
-my @SCHEDULE;
-
-BEGIN {
- @SCHEDULE = (
- { name => 'Hello World',
- in => [
- '--- Hello, World',
- '...',
- ],
- out => "Hello, World",
- },
- { name => 'Hello World 2',
- in => [
- '--- \'Hello, \'\'World\'',
- '...',
- ],
- out => "Hello, 'World",
- },
- { name => 'Hello World 3',
- in => [
- '--- "Hello, World"',
- '...',
- ],
- out => "Hello, World",
- },
- { name => 'Hello World 4',
- in => [
- '--- "Hello, World"',
- '...',
- ],
- out => "Hello, World",
- },
- { name => 'Hello World 4',
- in => [
- '--- >',
- ' Hello,',
- ' World',
- '...',
- ],
- out => "Hello, World\n",
- },
- { name => 'Hello World Block',
- in => [
- '--- |',
- ' Hello,',
- ' World',
- '...',
- ],
- out => "Hello,\n World\n",
- },
- { name => 'Hello World 5',
- in => [
- '--- >',
- ' Hello,',
- ' World',
- '...',
- ],
- error => qr{Missing\s+'[.][.][.]'},
- },
- { name => 'Simple array',
- in => [
- '---',
- '- 1',
- '- 2',
- '- 3',
- '...',
- ],
- out => [ '1', '2', '3' ],
- },
- { name => 'Mixed array',
- in => [
- '---',
- '- 1',
- '- \'two\'',
- '- "three\n"',
- '...',
- ],
- out => [ '1', 'two', "three\n" ],
- },
- { name => 'Hash in array',
- in => [
- '---',
- '- 1',
- '- two: 2',
- '- 3',
- '...',
- ],
- out => [ '1', { two => '2' }, '3' ],
- },
- { name => 'Hash in array 2',
- in => [
- '---',
- '- 1',
- '- two: 2',
- ' three: 3',
- '- 4',
- '...',
- ],
- out => [ '1', { two => '2', three => '3' }, '4' ],
- },
- { name => 'Nested array',
- in => [
- '---',
- '- one',
- '-',
- ' - two',
- ' -',
- ' - three',
- ' - four',
- '- five',
- '...',
- ],
- out => [ 'one', [ 'two', ['three'], 'four' ], 'five' ],
- },
- { name => 'Nested hash',
- in => [
- '---',
- 'one:',
- ' five: 5',
- ' two:',
- ' four: 4',
- ' three: 3',
- 'six: 6',
- '...',
- ],
- out => {
- one => { two => { three => '3', four => '4' }, five => '5' },
- six => '6'
- },
- },
- { name => 'Space after colon',
- in => [ '---', 'spog: ', ' - 1', ' - 2', '...' ],
- out => { spog => [ 1, 2 ] },
- },
- { name => 'Original YAML::Tiny test',
- in => [
- '---',
- 'invoice: 34843',
- 'date : 2001-01-23',
- 'bill-to:',
- ' given : Chris',
- ' family : Dumars',
- ' address:',
- ' lines: |',
- ' 458 Walkman Dr.',
- ' Suite #292',
- ' city : Royal Oak',
- ' state : MI',
- ' postal : 48046',
- 'product:',
- ' - sku : BL394D',
- ' quantity : 4',
- ' description : Basketball',
- ' price : 450.00',
- ' - sku : BL4438H',
- ' quantity : 1',
- ' description : Super Hoop',
- ' price : 2392.00',
- 'tax : 251.42',
- 'total: 4443.52',
- 'comments: >',
- ' Late afternoon is best.',
- ' Backup contact is Nancy',
- ' Billsmer @ 338-4338',
- '...',
- ],
- out => {
- 'bill-to' => {
- 'given' => 'Chris',
- 'address' => {
- 'city' => 'Royal Oak',
- 'postal' => '48046',
- 'lines' => "458 Walkman Dr.\nSuite #292\n",
- 'state' => 'MI'
- },
- 'family' => 'Dumars'
- },
- 'invoice' => '34843',
- 'date' => '2001-01-23',
- 'tax' => '251.42',
- 'product' => [
- { 'sku' => 'BL394D',
- 'quantity' => '4',
- 'price' => '450.00',
- 'description' => 'Basketball'
- },
- { 'sku' => 'BL4438H',
- 'quantity' => '1',
- 'price' => '2392.00',
- 'description' => 'Super Hoop'
- }
- ],
- 'comments' =>
- "Late afternoon is best. Backup contact is Nancy Billsmer @ 338-4338\n",
- 'total' => '4443.52'
- }
- },
-
- # Tests harvested from YAML::Tiny
- { in => ['...'],
- name => 'Regression: empty',
- error => qr{document\s+header\s+not\s+found}
- },
- { in => [
- '# comment',
- '...'
- ],
- name => 'Regression: only_comment',
- error => qr{document\s+header\s+not\s+found}
- },
- { out => undef,
- in => [
- '---',
- '...'
- ],
- name => 'Regression: only_header',
- error => qr{Premature\s+end}i,
- },
- { out => undef,
- in => [
- '---',
- '---',
- '...'
- ],
- name => 'Regression: two_header',
- error => qr{Unexpected\s+start}i,
- },
- { out => undef,
- in => [
- '--- ~',
- '...'
- ],
- name => 'Regression: one_undef'
- },
- { out => undef,
- in => [
- '--- ~',
- '...'
- ],
- name => 'Regression: one_undef2'
- },
- { in => [
- '--- ~',
- '---',
- '...'
- ],
- name => 'Regression: two_undef',
- error => qr{Missing\s+'[.][.][.]'},
- },
- { out => 'foo',
- in => [
- '--- foo',
- '...'
- ],
- name => 'Regression: one_scalar',
- },
- { out => 'foo',
- in => [
- '--- foo',
- '...'
- ],
- name => 'Regression: one_scalar2',
- },
- { in => [
- '--- foo',
- '--- bar',
- '...'
- ],
- name => 'Regression: two_scalar',
- error => qr{Missing\s+'[.][.][.]'},
- },
- { out => ['foo'],
- in => [
- '---',
- '- foo',
- '...'
- ],
- name => 'Regression: one_list1'
- },
- { out => [
- 'foo',
- 'bar'
- ],
- in => [
- '---',
- '- foo',
- '- bar',
- '...'
- ],
- name => 'Regression: one_list2'
- },
- { out => [
- undef,
- 'bar'
- ],
- in => [
- '---',
- '- ~',
- '- bar',
- '...'
- ],
- name => 'Regression: one_listundef'
- },
- { out => { 'foo' => 'bar' },
- in => [
- '---',
- 'foo: bar',
- '...'
- ],
- name => 'Regression: one_hash1'
- },
- { out => {
- 'foo' => 'bar',
- 'this' => undef
- },
- in => [
- '---',
- 'foo: bar',
- 'this: ~',
- '...'
- ],
- name => 'Regression: one_hash2'
- },
- { out => {
- 'foo' => [
- 'bar',
- undef,
- 'baz'
- ]
- },
- in => [
- '---',
- 'foo:',
- ' - bar',
- ' - ~',
- ' - baz',
- '...'
- ],
- name => 'Regression: array_in_hash'
- },
- { out => {
- 'bar' => { 'foo' => 'bar' },
- 'foo' => undef
- },
- in => [
- '---',
- 'foo: ~',
- 'bar:',
- ' foo: bar',
- '...'
- ],
- name => 'Regression: hash_in_hash'
- },
- { out => [
- { 'foo' => undef,
- 'this' => 'that'
- },
- 'foo', undef,
- { 'foo' => 'bar',
- 'this' => 'that'
- }
- ],
- in => [
- '---',
- '-',
- ' foo: ~',
- ' this: that',
- '- foo',
- '- ~',
- '-',
- ' foo: bar',
- ' this: that',
- '...'
- ],
- name => 'Regression: hash_in_array'
- },
- { out => ['foo'],
- in => [
- '---',
- '- \'foo\'',
- '...'
- ],
- name => 'Regression: single_quote1'
- },
- { out => [' '],
- in => [
- '---',
- '- \' \'',
- '...'
- ],
- name => 'Regression: single_spaces'
- },
- { out => [''],
- in => [
- '---',
- '- \'\'',
- '...'
- ],
- name => 'Regression: single_null'
- },
- { out => ' ',
- in => [
- '--- " "',
- '...'
- ],
- name => 'Regression: only_spaces'
- },
- { out => [
- undef,
- { 'foo' => 'bar',
- 'this' => 'that'
- },
- 'baz'
- ],
- in => [
- '---',
- '- ~',
- '- foo: bar',
- ' this: that',
- '- baz',
- '...'
- ],
- name => 'Regression: inline_nested_hash'
- },
- { name => "Unprintables",
- in => [
- "---",
- "- \"\\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\"",
- "- \" !\\\"#\$%&'()*+,-./\"",
- "- 0123456789:;<=>?",
- "- '\@ABCDEFGHIJKLMNO'",
- "- 'PQRSTUVWXYZ[\\]^_'",
- "- '`abcdefghijklmno'",
- "- 'pqrstuvwxyz{|}~\177'",
- "- \200\201\202\203\204\205\206\207\210\211\212\213\214\215\216\217",
- "- \220\221\222\223\224\225\226\227\230\231\232\233\234\235\236\237",
- "- \240\241\242\243\244\245\246\247\250\251\252\253\254\255\256\257",
- "- \260\261\262\263\264\265\266\267\270\271\272\273\274\275\276\277",
- "- \300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317",
- "- \320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337",
- "- \340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357",
- "- \360\361\362\363\364\365\366\367\370\371\372\373\374\375\376\377",
- "..."
- ],
- out => [
- "\0\1\2\3\4\5\6\a\b\t\n\13\f\r\16\17",
- "\20\21\22\23\24\25\26\27\30\31\32\e\34\35\36\37",
- " !\"#\$%&'()*+,-./",
- "0123456789:;<=>?",
- "\@ABCDEFGHIJKLMNO",
- "PQRSTUVWXYZ[\\]^_",
- "`abcdefghijklmno",
- "pqrstuvwxyz{|}~\177",
- "\200\201\202\203\204\205\206\207\210\211\212\213\214\215\216\217",
- "\220\221\222\223\224\225\226\227\230\231\232\233\234\235\236\237",
- "\240\241\242\243\244\245\246\247\250\251\252\253\254\255\256\257",
- "\260\261\262\263\264\265\266\267\270\271\272\273\274\275\276\277",
- "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317",
- "\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337",
- "\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357",
- "\360\361\362\363\364\365\366\367\370\371\372\373\374\375\376\377"
- ],
- },
- { name => 'Quoted hash keys',
- in => [
- '---',
- ' "quoted": Magic!',
- ' "\n\t": newline, tab',
- '...',
- ],
- out => {
- quoted => 'Magic!',
- "\n\t" => 'newline, tab',
- },
- },
- { name => 'Empty',
- in => [],
- out => undef,
- },
- );
-
- plan tests => @SCHEDULE * 5;
-}
-
-sub iter {
- my $ar = shift;
- return sub {
- return shift @$ar;
- };
-}
-
-for my $test (@SCHEDULE) {
- my $name = $test->{name};
- ok my $yaml = TAP::Parser::YAMLish::Reader->new, "$name: Created";
- isa_ok $yaml, 'TAP::Parser::YAMLish::Reader';
-
- my $source = join( "\n", @{ $test->{in} } ) . "\n";
-
- my $iter = iter( $test->{in} );
- my $got = eval { $yaml->read($iter) };
-
- my $raw = $yaml->get_raw;
-
- if ( my $err = $test->{error} ) {
- unless ( like $@, $err, "$name: Error message" ) {
- diag "Error: $@\n";
- }
- ok !$got, "$name: No result";
- pass;
- }
- else {
- my $want = $test->{out};
- unless ( ok !$@, "$name: No error" ) {
- diag "Error: $@\n";
- }
- is_deeply $got, $want, "$name: Result matches";
- is $raw, $source, "$name: Captured source matches";
- }
-}
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/xt/author/stdin.t b/3.8.8/sources/cpan-Test-Harness/vendor/xt/author/stdin.t
deleted file mode 100644
index 81feb08..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/xt/author/stdin.t
+++ /dev/null
@@ -1,8 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use lib 't/lib';
-
-use Test::More tests => 1;
-
-ok -t STDIN, 'STDIN remains a TTY';
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/xt/perls/harness_perl.t b/3.8.8/sources/cpan-Test-Harness/vendor/xt/perls/harness_perl.t
deleted file mode 100755
index e09ef7d..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/xt/perls/harness_perl.t
+++ /dev/null
@@ -1,73 +0,0 @@
-#!/usr/bin/perl
-
-use warnings;
-use strict;
-
-use Test::More;
-
-# TODO we need to have some way to find one or more alternate versions
-# of perl on the smoke machine so that we can verify that the installed
-# perl can be used to test against the alternate perls without
-# installing the harness in the alternate perls. Does that make sense?
-#
-# Example:
-# harness process (i.e. bin/prove) is perl 5.8.8.
-# subprocesses (i.e. t/test.t) are perl 5.6.2.
-
-my @perls;
-
-BEGIN {
- my $perls_live_at = '/usr/local/stow/';
- @perls = grep( { -e $_ }
- map( {"$perls_live_at/perl-$_/bin/perl"} qw(5.5.4 5.6.2) ) );
- if (@perls) {
- plan( tests => scalar(@perls) * 4 );
- }
- else {
- plan( skip_all => "no perls found in '$perls_live_at'" );
- }
-}
-
-use File::Temp ();
-use File::Path ();
-use IPC::Run ();
-
-mkdir('twib') or die "cannot create 'twib' $!";
-
-{ # create a lib
- open( my $fh, '>', 'twib/foo.pm' );
- print $fh "package twib;\nsub foo {'bar';}\n1;\n";
-}
-
-END {
- File::Path::rmtree('twib');
-}
-
-my @tests = qw(
- xt/perls/sample-tests/perl_version
-);
-
-# TODO and something with taint
-
-# make the tests check that the perl is indeed the $perl (thus they are
-# just printed tests.)
-for my $perl (@perls) {
-
- # TODO make the API be *not* an environment variable!
- local $ENV{HARNESS_PERL} = $perl;
-
- my ( $in, $out, $err ) = ( undef, '', '' );
- my $ret = IPC::Run::run(
- [
- $^X, '-Ilib',
- 'bin/prove', '-It/lib', '-Itwib', @tests
- ],
- \$in, \$out, \$err
- );
- ok( $ret, 'no death' );
- like( $out, qr/All tests successful/, 'success' );
- like( $out, qr/Result: PASS/, 'passed' );
- is($err, '', 'no error');
-}
-
-# vim:ts=4:sw=4:et:sta
diff --git a/3.8.8/sources/cpan-Test-Harness/vendor/xt/perls/sample-tests/perl_version b/3.8.8/sources/cpan-Test-Harness/vendor/xt/perls/sample-tests/perl_version
deleted file mode 100644
index 533a69b..0000000
--- a/3.8.8/sources/cpan-Test-Harness/vendor/xt/perls/sample-tests/perl_version
+++ /dev/null
@@ -1,5 +0,0 @@
-use Test::More tests => 2;
-isn::t( $ENV{HARNESS_VERSION}, $], 'different perl' );
-
-my @twib = grep( /\btwib\b/, @INC );
-is( scalar(@twib), 1, 'got my twib lib' ) or warn "@INC";
diff --git a/3.8.8/sources/cpan-Test-Object/vendor/inc/Module/Install.pm b/3.8.8/sources/cpan-Test-Object/vendor/inc/Module/Install.pm
deleted file mode 100644
index 0330b0e..0000000
--- a/3.8.8/sources/cpan-Test-Object/vendor/inc/Module/Install.pm
+++ /dev/null
@@ -1,281 +0,0 @@
-#line 1
-package Module::Install;
-
-# For any maintainers:
-# The load order for Module::Install is a bit magic.
-# It goes something like this...
-#
-# IF ( host has Module::Install installed, creating author mode ) {
-# 1. Makefile.PL calls "use inc::Module::Install"
-# 2. $INC{inc/Module/Install.pm} set to installed version of inc::Module::Install
-# 3. The installed version of inc::Module::Install loads
-# 4. inc::Module::Install calls "require Module::Install"
-# 5. The ./inc/ version of Module::Install loads
-# } ELSE {
-# 1. Makefile.PL calls "use inc::Module::Install"
-# 2. $INC{inc/Module/Install.pm} set to ./inc/ version of Module::Install
-# 3. The ./inc/ version of Module::Install loads
-# }
-
-use 5.004;
-use strict 'vars';
-
-use vars qw{$VERSION};
-BEGIN {
- # All Module::Install core packages now require synchronised versions.
- # This will be used to ensure we don't accidentally load old or
- # different versions of modules.
- # This is not enforced yet, but will be some time in the next few
- # releases once we can make sure it won't clash with custom
- # Module::Install extensions.
- $VERSION = '0.64';
-}
-
-# Whether or not inc::Module::Install is actually loaded, the
-# $INC{inc/Module/Install.pm} is what will still get set as long as
-# the caller loaded module this in the documented manner.
-# If not set, the caller may NOT have loaded the bundled version, and thus
-# they may not have a MI version that works with the Makefile.PL. This would
-# result in false errors or unexpected behaviour. And we don't want that.
-my $file = join( '/', 'inc', split /::/, __PACKAGE__ ) . '.pm';
-unless ( $INC{$file} ) {
- die <<"END_DIE";
-Please invoke ${\__PACKAGE__} with:
-
- use inc::${\__PACKAGE__};
-
-not:
-
- use ${\__PACKAGE__};
-
-END_DIE
-}
-
-# If the script that is loading Module::Install is from the future,
-# then make will detect this and cause it to re-run over and over
-# again. This is bad. Rather than taking action to touch it (which
-# is unreliable on some platforms and requires write permissions)
-# for now we should catch this and refuse to run.
-if ( -f $0 and (stat($0))[9] > time ) {
- die << "END_DIE";
-Your installer $0 has a modification time in the future.
-
-This is known to create infinite loops in make.
-
-Please correct this, then run $0 again.
-
-END_DIE
-}
-
-use Cwd ();
-use File::Find ();
-use File::Path ();
-use FindBin;
-
-*inc::Module::Install::VERSION = *VERSION;
- at inc::Module::Install::ISA = __PACKAGE__;
-
-sub autoload {
- my $self = shift;
- my $who = $self->_caller;
- my $cwd = Cwd::cwd();
- my $sym = "${who}::AUTOLOAD";
- $sym->{$cwd} = sub {
- my $pwd = Cwd::cwd();
- if ( my $code = $sym->{$pwd} ) {
- # delegate back to parent dirs
- goto &$code unless $cwd eq $pwd;
- }
- $$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
- unshift @_, ($self, $1);
- goto &{$self->can('call')} unless uc($1) eq $1;
- };
-}
-
-sub import {
- my $class = shift;
- my $self = $class->new(@_);
- my $who = $self->_caller;
-
- unless ( -f $self->{file} ) {
- require "$self->{path}/$self->{dispatch}.pm";
- File::Path::mkpath("$self->{prefix}/$self->{author}");
- $self->{admin} = "$self->{name}::$self->{dispatch}"->new( _top => $self );
- $self->{admin}->init;
- @_ = ($class, _self => $self);
- goto &{"$self->{name}::import"};
- }
-
- *{"${who}::AUTOLOAD"} = $self->autoload;
- $self->preload;
-
- # Unregister loader and worker packages so subdirs can use them again
- delete $INC{"$self->{file}"};
- delete $INC{"$self->{path}.pm"};
-}
-
-sub preload {
- my ($self) = @_;
-
- unless ( $self->{extensions} ) {
- $self->load_extensions(
- "$self->{prefix}/$self->{path}", $self
- );
- }
-
- my @exts = @{$self->{extensions}};
- unless ( @exts ) {
- my $admin = $self->{admin};
- @exts = $admin->load_all_extensions;
- }
-
- my %seen;
- foreach my $obj ( @exts ) {
- while (my ($method, $glob) = each %{ref($obj) . '::'}) {
- next unless $obj->can($method);
- next if $method =~ /^_/;
- next if $method eq uc($method);
- $seen{$method}++;
- }
- }
-
- my $who = $self->_caller;
- foreach my $name ( sort keys %seen ) {
- *{"${who}::$name"} = sub {
- ${"${who}::AUTOLOAD"} = "${who}::$name";
- goto &{"${who}::AUTOLOAD"};
- };
- }
-}
-
-sub new {
- my ($class, %args) = @_;
-
- # ignore the prefix on extension modules built from top level.
- my $base_path = Cwd::abs_path($FindBin::Bin);
- unless ( Cwd::abs_path(Cwd::cwd()) eq $base_path ) {
- delete $args{prefix};
- }
-
- return $args{_self} if $args{_self};
-
- $args{dispatch} ||= 'Admin';
- $args{prefix} ||= 'inc';
- $args{author} ||= ($^O eq 'VMS' ? '_author' : '.author');
- $args{bundle} ||= 'inc/BUNDLES';
- $args{base} ||= $base_path;
- $class =~ s/^\Q$args{prefix}\E:://;
- $args{name} ||= $class;
- $args{version} ||= $class->VERSION;
- unless ( $args{path} ) {
- $args{path} = $args{name};
- $args{path} =~ s!::!/!g;
- }
- $args{file} ||= "$args{base}/$args{prefix}/$args{path}.pm";
-
- bless( \%args, $class );
-}
-
-sub call {
- my ($self, $method) = @_;
- my $obj = $self->load($method) or return;
- splice(@_, 0, 2, $obj);
- goto &{$obj->can($method)};
-}
-
-sub load {
- my ($self, $method) = @_;
-
- $self->load_extensions(
- "$self->{prefix}/$self->{path}", $self
- ) unless $self->{extensions};
-
- foreach my $obj (@{$self->{extensions}}) {
- return $obj if $obj->can($method);
- }
-
- my $admin = $self->{admin} or die <<"END_DIE";
-The '$method' method does not exist in the '$self->{prefix}' path!
-Please remove the '$self->{prefix}' directory and run $0 again to load it.
-END_DIE
-
- my $obj = $admin->load($method, 1);
- push @{$self->{extensions}}, $obj;
-
- $obj;
-}
-
-sub load_extensions {
- my ($self, $path, $top) = @_;
-
- unless ( grep { lc $_ eq lc $self->{prefix} } @INC ) {
- unshift @INC, $self->{prefix};
- }
-
- foreach my $rv ( $self->find_extensions($path) ) {
- my ($file, $pkg) = @{$rv};
- next if $self->{pathnames}{$pkg};
-
- local $@;
- my $new = eval { require $file; $pkg->can('new') };
- unless ( $new ) {
- warn $@ if $@;
- next;
- }
- $self->{pathnames}{$pkg} = delete $INC{$file};
- push @{$self->{extensions}}, &{$new}($pkg, _top => $top );
- }
-
- $self->{extensions} ||= [];
-}
-
-sub find_extensions {
- my ($self, $path) = @_;
-
- my @found;
- File::Find::find( sub {
- my $file = $File::Find::name;
- return unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!is;
- my $subpath = $1;
- return if lc($subpath) eq lc($self->{dispatch});
-
- $file = "$self->{path}/$subpath.pm";
- my $pkg = "$self->{name}::$subpath";
- $pkg =~ s!/!::!g;
-
- # If we have a mixed-case package name, assume case has been preserved
- # correctly. Otherwise, root through the file to locate the case-preserved
- # version of the package name.
- if ( $subpath eq lc($subpath) || $subpath eq uc($subpath) ) {
- open PKGFILE, "<$subpath.pm" or die "find_extensions: Can't open $subpath.pm: $!";
- my $in_pod = 0;
- while ( <PKGFILE> ) {
- $in_pod = 1 if /^=\w/;
- $in_pod = 0 if /^=cut/;
- next if ($in_pod || /^=cut/); # skip pod text
- next if /^\s*#/; # and comments
- if ( m/^\s*package\s+($pkg)\s*;/i ) {
- $pkg = $1;
- last;
- }
- }
- close PKGFILE;
- }
-
- push @found, [ $file, $pkg ];
- }, $path ) if -d $path;
-
- @found;
-}
-
-sub _caller {
- my $depth = 0;
- my $call = caller($depth);
- while ( $call eq __PACKAGE__ ) {
- $depth++;
- $call = caller($depth);
- }
- return $call;
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Test-Object/vendor/inc/Module/Install/Base.pm b/3.8.8/sources/cpan-Test-Object/vendor/inc/Module/Install/Base.pm
deleted file mode 100644
index 30a24ca..0000000
--- a/3.8.8/sources/cpan-Test-Object/vendor/inc/Module/Install/Base.pm
+++ /dev/null
@@ -1,70 +0,0 @@
-#line 1
-package Module::Install::Base;
-
-$VERSION = '0.64';
-
-# Suspend handler for "redefined" warnings
-BEGIN {
- my $w = $SIG{__WARN__};
- $SIG{__WARN__} = sub { $w };
-}
-
-### This is the ONLY module that shouldn't have strict on
-# use strict;
-
-#line 41
-
-sub new {
- my ($class, %args) = @_;
-
- foreach my $method ( qw(call load) ) {
- *{"$class\::$method"} = sub {
- shift()->_top->$method(@_);
- } unless defined &{"$class\::$method"};
- }
-
- bless( \%args, $class );
-}
-
-#line 61
-
-sub AUTOLOAD {
- my $self = shift;
- local $@;
- my $autoload = eval { $self->_top->autoload } or return;
- goto &$autoload;
-}
-
-#line 76
-
-sub _top { $_[0]->{_top} }
-
-#line 89
-
-sub admin {
- $_[0]->_top->{admin} or Module::Install::Base::FakeAdmin->new;
-}
-
-sub is_admin {
- $_[0]->admin->VERSION;
-}
-
-sub DESTROY {}
-
-package Module::Install::Base::FakeAdmin;
-
-my $Fake;
-sub new { $Fake ||= bless(\@_, $_[0]) }
-
-sub AUTOLOAD {}
-
-sub DESTROY {}
-
-# Restore warning handler
-BEGIN {
- $SIG{__WARN__} = $SIG{__WARN__}->();
-}
-
-1;
-
-#line 138
diff --git a/3.8.8/sources/cpan-Test-Object/vendor/inc/Module/Install/Makefile.pm b/3.8.8/sources/cpan-Test-Object/vendor/inc/Module/Install/Makefile.pm
deleted file mode 100644
index 96c7e17..0000000
--- a/3.8.8/sources/cpan-Test-Object/vendor/inc/Module/Install/Makefile.pm
+++ /dev/null
@@ -1,208 +0,0 @@
-#line 1
-package Module::Install::Makefile;
-
-use strict 'vars';
-use Module::Install::Base;
-use ExtUtils::MakeMaker ();
-
-use vars qw{$VERSION $ISCORE @ISA};
-BEGIN {
- $VERSION = '0.64';
- $ISCORE = 1;
- @ISA = qw{Module::Install::Base};
-}
-
-sub Makefile { $_[0] }
-
-my %seen = ();
-
-sub prompt {
- shift;
-
- # Infinite loop protection
- my @c = caller();
- if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
- die "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
- }
-
- # In automated testing, always use defaults
- if ( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL_MM_USE_DEFAULT} ) {
- local $ENV{PERL_MM_USE_DEFAULT} = 1;
- goto &ExtUtils::MakeMaker::prompt;
- } else {
- goto &ExtUtils::MakeMaker::prompt;
- }
-}
-
-sub makemaker_args {
- my $self = shift;
- my $args = ($self->{makemaker_args} ||= {});
- %$args = ( %$args, @_ ) if @_;
- $args;
-}
-
-# For mm args that take multiple space-seperated args,
-# append an argument to the current list.
-sub makemaker_append {
- my $self = shift;
- my $name = shift;
- my $args = $self->makemaker_args;
- $args->{name} = defined $args->{$name}
- ? join( ' ', $args->{name}, @_ )
- : join( ' ', @_ );
-}
-
-sub build_subdirs {
- my $self = shift;
- my $subdirs = $self->makemaker_args->{DIR} ||= [];
- for my $subdir (@_) {
- push @$subdirs, $subdir;
- }
-}
-
-sub clean_files {
- my $self = shift;
- my $clean = $self->makemaker_args->{clean} ||= {};
- %$clean = (
- %$clean,
- FILES => join(' ', grep length, $clean->{FILES}, @_),
- );
-}
-
-sub realclean_files {
- my $self = shift;
- my $realclean = $self->makemaker_args->{realclean} ||= {};
- %$realclean = (
- %$realclean,
- FILES => join(' ', grep length, $realclean->{FILES}, @_),
- );
-}
-
-sub libs {
- my $self = shift;
- my $libs = ref $_[0] ? shift : [ shift ];
- $self->makemaker_args( LIBS => $libs );
-}
-
-sub inc {
- my $self = shift;
- $self->makemaker_args( INC => shift );
-}
-
-sub write {
- my $self = shift;
- die "&Makefile->write() takes no arguments\n" if @_;
-
- my $args = $self->makemaker_args;
- $args->{DISTNAME} = $self->name;
- $args->{NAME} = $self->module_name || $self->name || $self->determine_NAME($args);
- $args->{VERSION} = $self->version || $self->determine_VERSION($args);
- $args->{NAME} =~ s/-/::/g;
- if ( $self->tests ) {
- $args->{test} = { TESTS => $self->tests };
- }
- if ($] >= 5.005) {
- $args->{ABSTRACT} = $self->abstract;
- $args->{AUTHOR} = $self->author;
- }
- if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
- $args->{NO_META} = 1;
- }
- if ( eval($ExtUtils::MakeMaker::VERSION) > 6.17 and $self->sign ) {
- $args->{SIGN} = 1;
- }
- unless ( $self->is_admin ) {
- delete $args->{SIGN};
- }
-
- # merge both kinds of requires into prereq_pm
- my $prereq = ($args->{PREREQ_PM} ||= {});
- %$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
- ($self->build_requires, $self->requires) );
-
- # merge both kinds of requires into prereq_pm
- my $subdirs = ($args->{DIR} ||= []);
- if ($self->bundles) {
- foreach my $bundle (@{ $self->bundles }) {
- my ($file, $dir) = @$bundle;
- push @$subdirs, $dir if -d $dir;
- delete $prereq->{$file};
- }
- }
-
- if ( my $perl_version = $self->perl_version ) {
- eval "use $perl_version; 1"
- or die "ERROR: perl: Version $] is installed, "
- . "but we need version >= $perl_version";
- }
-
- my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;
- if ($self->admin->preop) {
- $args{dist} = $self->admin->preop;
- }
-
- my $mm = ExtUtils::MakeMaker::WriteMakefile(%args);
- $self->fix_up_makefile($mm->{FIRST_MAKEFILE} || 'Makefile');
-}
-
-sub fix_up_makefile {
- my $self = shift;
- my $makefile_name = shift;
- my $top_class = ref($self->_top) || '';
- my $top_version = $self->_top->VERSION || '';
-
- my $preamble = $self->preamble
- ? "# Preamble by $top_class $top_version\n"
- . $self->preamble
- : '';
- my $postamble = "# Postamble by $top_class $top_version\n"
- . ($self->postamble || '');
-
- local *MAKEFILE;
- open MAKEFILE, "< $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
- my $makefile = do { local $/; <MAKEFILE> };
- close MAKEFILE or die $!;
-
- $makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
- $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
- $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;
- $makefile =~ s/^(FULLPERL = .*)/$1 "-Iinc"/m;
- $makefile =~ s/^(PERL = .*)/$1 "-Iinc"/m;
-
- # Module::Install will never be used to build the Core Perl
- # Sometimes PERL_LIB and PERL_ARCHLIB get written anyway, which breaks
- # PREFIX/PERL5LIB, and thus, install_share. Blank them if they exist
- $makefile =~ s/^PERL_LIB = .+/PERL_LIB =/m;
- #$makefile =~ s/^PERL_ARCHLIB = .+/PERL_ARCHLIB =/m;
-
- # Perl 5.005 mentions PERL_LIB explicitly, so we have to remove that as well.
- $makefile =~ s/("?)-I\$\(PERL_LIB\)\1//g;
-
- # XXX - This is currently unused; not sure if it breaks other MM-users
- # $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;
-
- open MAKEFILE, "> $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
- print MAKEFILE "$preamble$makefile$postamble" or die $!;
- close MAKEFILE or die $!;
-
- 1;
-}
-
-sub preamble {
- my ($self, $text) = @_;
- $self->{preamble} = $text . $self->{preamble} if defined $text;
- $self->{preamble};
-}
-
-sub postamble {
- my ($self, $text) = @_;
- $self->{postamble} ||= $self->admin->postamble;
- $self->{postamble} .= $text if defined $text;
- $self->{postamble}
-}
-
-1;
-
-__END__
-
-#line 334
diff --git a/3.8.8/sources/cpan-Test-Object/vendor/inc/Module/Install/Metadata.pm b/3.8.8/sources/cpan-Test-Object/vendor/inc/Module/Install/Metadata.pm
deleted file mode 100644
index 6c80832..0000000
--- a/3.8.8/sources/cpan-Test-Object/vendor/inc/Module/Install/Metadata.pm
+++ /dev/null
@@ -1,315 +0,0 @@
-#line 1
-package Module::Install::Metadata;
-
-use strict 'vars';
-use Module::Install::Base;
-
-use vars qw{$VERSION $ISCORE @ISA};
-BEGIN {
- $VERSION = '0.64';
- $ISCORE = 1;
- @ISA = qw{Module::Install::Base};
-}
-
-my @scalar_keys = qw{
- name module_name abstract author version license
- distribution_type perl_version tests
-};
-
-my @tuple_keys = qw{
- build_requires requires recommends bundles
-};
-
-sub Meta { shift }
-sub Meta_ScalarKeys { @scalar_keys }
-sub Meta_TupleKeys { @tuple_keys }
-
-foreach my $key (@scalar_keys) {
- *$key = sub {
- my $self = shift;
- return $self->{values}{$key} if defined wantarray and !@_;
- $self->{values}{$key} = shift;
- return $self;
- };
-}
-
-foreach my $key (@tuple_keys) {
- *$key = sub {
- my $self = shift;
- return $self->{values}{$key} unless @_;
-
- my @rv;
- while (@_) {
- my $module = shift or last;
- my $version = shift || 0;
- if ( $module eq 'perl' ) {
- $version =~ s{^(\d+)\.(\d+)\.(\d+)}
- {$1 + $2/1_000 + $3/1_000_000}e;
- $self->perl_version($version);
- next;
- }
- my $rv = [ $module, $version ];
- push @rv, $rv;
- }
- push @{ $self->{values}{$key} }, @rv;
- @rv;
- };
-}
-
-sub sign {
- my $self = shift;
- return $self->{'values'}{'sign'} if defined wantarray and !@_;
- $self->{'values'}{'sign'} = ( @_ ? $_[0] : 1 );
- return $self;
-}
-
-sub dynamic_config {
- my $self = shift;
- unless ( @_ ) {
- warn "You MUST provide an explicit true/false value to dynamic_config, skipping\n";
- return $self;
- }
- $self->{'values'}{'dynamic_config'} = $_[0] ? 1 : 0;
- return $self;
-}
-
-sub all_from {
- my ( $self, $file ) = @_;
-
- unless ( defined($file) ) {
- my $name = $self->name
- or die "all_from called with no args without setting name() first";
- $file = join('/', 'lib', split(/-/, $name)) . '.pm';
- $file =~ s{.*/}{} unless -e $file;
- die "all_from: cannot find $file from $name" unless -e $file;
- }
-
- $self->version_from($file) unless $self->version;
- $self->perl_version_from($file) unless $self->perl_version;
-
- # The remaining probes read from POD sections; if the file
- # has an accompanying .pod, use that instead
- my $pod = $file;
- if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
- $file = $pod;
- }
-
- $self->author_from($file) unless $self->author;
- $self->license_from($file) unless $self->license;
- $self->abstract_from($file) unless $self->abstract;
-}
-
-sub provides {
- my $self = shift;
- my $provides = ( $self->{values}{provides} ||= {} );
- %$provides = (%$provides, @_) if @_;
- return $provides;
-}
-
-sub auto_provides {
- my $self = shift;
- return $self unless $self->is_admin;
-
- unless (-e 'MANIFEST') {
- warn "Cannot deduce auto_provides without a MANIFEST, skipping\n";
- return $self;
- }
-
- # Avoid spurious warnings as we are not checking manifest here.
-
- local $SIG{__WARN__} = sub {1};
- require ExtUtils::Manifest;
- local *ExtUtils::Manifest::manicheck = sub { return };
-
- require Module::Build;
- my $build = Module::Build->new(
- dist_name => $self->name,
- dist_version => $self->version,
- license => $self->license,
- );
- $self->provides(%{ $build->find_dist_packages || {} });
-}
-
-sub feature {
- my $self = shift;
- my $name = shift;
- my $features = ( $self->{values}{features} ||= [] );
-
- my $mods;
-
- if ( @_ == 1 and ref( $_[0] ) ) {
- # The user used ->feature like ->features by passing in the second
- # argument as a reference. Accomodate for that.
- $mods = $_[0];
- } else {
- $mods = \@_;
- }
-
- my $count = 0;
- push @$features, (
- $name => [
- map {
- ref($_) ? ( ref($_) eq 'HASH' ) ? %$_
- : @$_
- : $_
- } @$mods
- ]
- );
-
- return @$features;
-}
-
-sub features {
- my $self = shift;
- while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
- $self->feature( $name, @$mods );
- }
- return $self->{values}->{features}
- ? @{ $self->{values}->{features} }
- : ();
-}
-
-sub no_index {
- my $self = shift;
- my $type = shift;
- push @{ $self->{values}{no_index}{$type} }, @_ if $type;
- return $self->{values}{no_index};
-}
-
-sub read {
- my $self = shift;
- $self->include_deps( 'YAML', 0 );
-
- require YAML;
- my $data = YAML::LoadFile('META.yml');
-
- # Call methods explicitly in case user has already set some values.
- while ( my ( $key, $value ) = each %$data ) {
- next unless $self->can($key);
- if ( ref $value eq 'HASH' ) {
- while ( my ( $module, $version ) = each %$value ) {
- $self->can($key)->($self, $module => $version );
- }
- }
- else {
- $self->can($key)->($self, $value);
- }
- }
- return $self;
-}
-
-sub write {
- my $self = shift;
- return $self unless $self->is_admin;
- $self->admin->write_meta;
- return $self;
-}
-
-sub version_from {
- my ( $self, $file ) = @_;
- require ExtUtils::MM_Unix;
- $self->version( ExtUtils::MM_Unix->parse_version($file) );
-}
-
-sub abstract_from {
- my ( $self, $file ) = @_;
- require ExtUtils::MM_Unix;
- $self->abstract(
- bless(
- { DISTNAME => $self->name },
- 'ExtUtils::MM_Unix'
- )->parse_abstract($file)
- );
-}
-
-sub _slurp {
- my ( $self, $file ) = @_;
-
- local *FH;
- open FH, "< $file" or die "Cannot open $file.pod: $!";
- do { local $/; <FH> };
-}
-
-sub perl_version_from {
- my ( $self, $file ) = @_;
-
- if (
- $self->_slurp($file) =~ m/
- ^
- use \s*
- v?
- ([\d_\.]+)
- \s* ;
- /ixms
- )
- {
- my $v = $1;
- $v =~ s{_}{}g;
- $self->perl_version($1);
- }
- else {
- warn "Cannot determine perl version info from $file\n";
- return;
- }
-}
-
-sub author_from {
- my ( $self, $file ) = @_;
- my $content = $self->_slurp($file);
- if ($content =~ m/
- =head \d \s+ (?:authors?)\b \s*
- ([^\n]*)
- |
- =head \d \s+ (?:licen[cs]e|licensing|copyright|legal)\b \s*
- .*? copyright .*? \d\d\d[\d.]+ \s* (?:\bby\b)? \s*
- ([^\n]*)
- /ixms) {
- my $author = $1 || $2;
- $author =~ s{E<lt>}{<}g;
- $author =~ s{E<gt>}{>}g;
- $self->author($author);
- }
- else {
- warn "Cannot determine author info from $file\n";
- }
-}
-
-sub license_from {
- my ( $self, $file ) = @_;
-
- if (
- $self->_slurp($file) =~ m/
- =head \d \s+
- (?:licen[cs]e|licensing|copyright|legal)\b
- (.*?)
- (=head\\d.*|=cut.*|)
- \z
- /ixms
- )
- {
- my $license_text = $1;
- my @phrases = (
- 'under the same (?:terms|license) as perl itself' => 'perl',
- 'GNU public license' => 'gpl',
- 'GNU lesser public license' => 'gpl',
- 'BSD license' => 'bsd',
- 'Artistic license' => 'artistic',
- 'GPL' => 'gpl',
- 'LGPL' => 'lgpl',
- 'BSD' => 'bsd',
- 'Artistic' => 'artistic',
- );
- while ( my ( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
- $pattern =~ s{\s+}{\\s+}g;
- if ( $license_text =~ /\b$pattern\b/i ) {
- $self->license($license);
- return 1;
- }
- }
- }
-
- warn "Cannot determine license info from $file\n";
- return 'unknown';
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Test-Object/vendor/lib/Test/Object.pm b/3.8.8/sources/cpan-Test-Object/vendor/lib/Test/Object.pm
deleted file mode 100644
index 712d48a..0000000
--- a/3.8.8/sources/cpan-Test-Object/vendor/lib/Test/Object.pm
+++ /dev/null
@@ -1,171 +0,0 @@
-package Test::Object;
-
-=pod
-
-=head1 NAME
-
-Test::Object - Thoroughly testing objects via registered handlers
-
-=head1 SYNOPSIS
-
- ###################################################################
- # In your test module, register test handlers again class names #
- ###################################################################
-
- package My::ModuleTester;
-
- use Test::More;
- use Test::Object;
-
- # Foo::Bar is a subclass of Foo
- Test::Object->register(
- class => 'Foo',
- tests => 5,
- code => \&foo_ok,
- );
- Test::Object->register(
- class => 'Foo::Bar',
- # No fixed number of tests
- code => \&foobar_ok,
- );
-
- sub foo_ok {
- my $object = shift;
- ok( $object->foo, '->foo returns true' );
- }
-
- sub foobar_ok {
- my $object = shift;
- is( $object->foo, 'bar', '->foo returns "bar"' );
- }
-
- 1;
-
-
-
- ###################################################################
- # In test script, test object against all registered classes #
- ###################################################################
-
- #!/usr/bin/perl -w
-
- use Test::More 'no_plan';
- use Test::Object;
- use My::ModuleTester;
-
- my $object = Foo::Bar->new;
- isa_ok( $object, 'Foo::Bar' );
- object_ok( $object );
-
-=head1 DESCRIPTION
-
-In situations where you have deep trees of classes, there is a common
-situation in which you test a module 4 or 5 subclasses down, which should
-follow the correct behaviour of not just the subclass, but of all the
-parent classes.
-
-This should be done to ensure that the implementation of a subclass has
-not somehow "broken" the object's behaviour in a more general sense.
-
-C<Test::Object> is a testing package designed to allow you to easily test
-what you believe is a valid object against the expected behaviour of B<all>
-of the classes in its inheritance tree in one single call.
-
-To do this, you "register" tests (in the form of CODE or function
-references) with C<Test::Object>, with each test associated with a
-particular class.
-
-When you call C<object_ok> in your test script, C<Test::Object> will check
-the object against all registered tests. For each class that your object
-responds to C<$object-E<gt>isa($class)> for, the appropriate testing
-function will be called.
-
-Doing it this way allows adapter objects and other things that respond
-to C<isa> differently that the default to still be tested against the
-classes that it is advertising itself as correctly.
-
-This also means that more than one test might be "counted" for each call
-to C<object_ok>. You should account for this correctly in your expected
-test count.
-
-=cut
-
-use 5.005;
-use strict;
-use Carp ();
-use Exporter ();
-use Test::More ();
-use Scalar::Util ();
-use Test::Object::Test ();
-
-use vars qw{$VERSION @ISA @EXPORT};
-BEGIN {
- $VERSION = '0.07';
- @ISA = 'Exporter';
- @EXPORT = 'object_ok';
-}
-
-
-
-
-
-#####################################################################
-# Registration and Planning
-
-my @TESTS = ();
-
-sub register {
- my $class = shift;
- push @TESTS, Test::Object::Test->new( @_ );
-}
-
-
-
-
-
-#####################################################################
-# Testing Functions
-
-sub object_ok {
- my $object = Scalar::Util::blessed($_[0]) ? shift
- : Carp::croak("Did not provide an object to object_ok");
-
- # Iterate over the tests and run any we ->isa
- foreach my $test ( @TESTS ) {
- $test->run( $object ) if $object->isa( $test->class );
- }
-
- 1;
-}
-
-1;
-
-=pod
-
-=head1 SUPPORT
-
-Bugs should be submitted via the CPAN bug tracker, located at
-
-L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Test-Object>
-
-For other issues, contact the author.
-
-=head1 AUTHOR
-
-Adam Kennedy E<lt>cpan at ali.asE<gt>
-
-=head1 SEE ALSO
-
-L<http://ali.as/>, L<Test::More>, L<Test::Builder::Tester>, L<Test::Class>
-
-=head1 COPYRIGHT
-
-Copyright 2005, 2006 Adam Kennedy. 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.
-
-=cut
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/.perlcriticrc b/3.8.8/sources/cpan-Test-Simple/vendor/.perlcriticrc
deleted file mode 100644
index 5a6072d..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/.perlcriticrc
+++ /dev/null
@@ -1,75 +0,0 @@
-###
-### Configure perlcritic display behavior.
-###
-
-# Change the default message to show the policy name so we can shut it up if necessary
-verbose = %m [%p] at %f line %l, near '%r'\n
-
-# Force perlcritic to use color, even when run through a pager.
-color = 1
-
-# Use a pager.
-pager = $PAGER
-
-
-###
-### Turn off policies.
-###
-
-# Nuthin wrong with the expression form of map and grep.
-[-BuiltinFunctions::RequireBlockMap]
-[-BuiltinFunctions::RequireBlockGrep]
-
-# Can't use Carp
-[-ErrorHandling::RequireCarping]
-
-# We realize that localizing a variable does not retain it's original value,
-# thanks.
-[-Variables::RequireInitializationForLocalVars]
-
-# I'd rather use a few unnecessary "" then forget to interpolate.
-[-ValuesAndExpressions::ProhibitInterpolationOfLiterals]
-
-# Inline POD is more worthwhile than the dubious optimization of putting it
-# after the __END__ block
-[-Documentation::RequirePodAtEnd]
-
-# No, we're not going to use English.
-[-Variables::ProhibitPunctuationVars]
-
-# That's just rediculous
-[-ControlStructures::ProhibitPostfixControls]
-[-ValuesAndExpressions::ProhibitEmptyQuotes]
-[-ValuesAndExpressions::ProhibitNoisyQuotes]
-
-# Test::Builder makes heavy use of local()
-[-Variables::ProhibitLocalVars]
-
-# Nuthin wrong with @$foo
-[-References::ProhibitDoubleSigils]
-
-
-###
-### Configure policies
-###
-
-# Extend the ability to play with @_ to 3 line subroutines.
-[Subroutines::RequireArgUnpacking]
-short_subroutine_statements = 3
-
-# No tabs ever
-[CodeLayout::ProhibitHardTabs]
-allow_leading_tabs = 0
-
-
-###
-### New policies and options which are not released yet.
-###
-
-# "no warnings" is fine as long as it's restricted to one or more categories
-[TestingAndDebugging::ProhibitNoWarnings]
-allow_with_category_restriction = 1
-
-# Don't need /x on small regexes.
-[RegularExpressions::RequireExtendedFormatting]
-minimum_regex_length_to_complain_about = 12
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/.perltidyrc b/3.8.8/sources/cpan-Test-Simple/vendor/.perltidyrc
deleted file mode 100644
index 622ab41..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/.perltidyrc
+++ /dev/null
@@ -1,17 +0,0 @@
---maximum-line-length=100 # we have widescreen now
---indent-columns=4
---continuation-indentation=2
---no-opening-sub-brace-on-new-line
---paren-tightness=1
---square-bracket-tightness=1
---brace-tightness=1
---no-space-for-semicolon
---no-outdent-long-quotes
---output-line-ending=unix
---no-outdent-labels
---no-blanks-before-comments
---blanks-before-subs
---blanks-before-blocks
---maximum-consecutive-blank-lines=2 # Allow two blanks between subroutines
---nospace-after-keyword="my local our and or eq ne if else elsif until unless while for foreach return switch case given when"
---want-break-before="% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x="
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/MANIFEST b/3.8.8/sources/cpan-Test-Simple/vendor/MANIFEST
deleted file mode 100644
index e6405cf..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/MANIFEST
+++ /dev/null
@@ -1,142 +0,0 @@
-.perlcriticrc
-.perltidyrc
-Changes
-examples/indent.pl
-examples/subtest.t
-lib/Test/Builder.pm
-lib/Test/Builder/IO/Scalar.pm
-lib/Test/Builder/Module.pm
-lib/Test/Builder/Tester.pm
-lib/Test/Builder/Tester/Color.pm
-lib/Test/More.pm
-lib/Test/Simple.pm
-lib/Test/Tutorial.pod
-Makefile.PL
-MANIFEST This list of files
-MANIFEST.SKIP
-README
-t/00compile.t
-t/00test_harness_check.t
-t/bad_plan.t
-t/bail_out.t
-t/BEGIN_require_ok.t
-t/BEGIN_use_ok.t
-t/buffer.t
-t/Builder/Builder.t
-t/Builder/carp.t
-t/Builder/create.t
-t/Builder/current_test.t
-t/Builder/current_test_without_plan.t
-t/Builder/details.t
-t/Builder/done_testing.t
-t/Builder/done_testing_double.t
-t/Builder/done_testing_plan_mismatch.t
-t/Builder/done_testing_with_no_plan.t
-t/Builder/done_testing_with_number.t
-t/Builder/done_testing_with_plan.t
-t/Builder/fork_with_new_stdout.t
-t/Builder/has_plan.t
-t/Builder/has_plan2.t
-t/Builder/is_fh.t
-t/Builder/is_passing.t
-t/Builder/maybe_regex.t
-t/Builder/no_diag.t
-t/Builder/no_ending.t
-t/Builder/no_header.t
-t/Builder/no_plan_at_all.t
-t/Builder/ok_obj.t
-t/Builder/output.t
-t/Builder/reset.t
-t/Builder/reset_outputs.t
-t/Builder/try.t
-t/c_flag.t
-t/circular_data.t
-t/cmp_ok.t
-t/dependents.t
-t/diag.t
-t/died.t
-t/dont_overwrite_die_handler.t
-t/eq_set.t
-t/exit.t
-t/explain.t
-t/extra.t
-t/extra_one.t
-t/fail-like.t
-t/fail-more.t
-t/fail.t
-t/fail_one.t
-t/filehandles.t
-t/fork.t
-t/harness_active.t
-t/import.t
-t/is_deeply_dne_bug.t
-t/is_deeply_fail.t
-t/is_deeply_with_threads.t
-t/lib/Dev/Null.pm
-t/lib/Dummy.pm
-t/lib/MyOverload.pm
-t/lib/NoExporter.pm
-t/lib/SigDie.pm
-t/lib/Test/Builder/NoOutput.pm
-t/lib/Test/Simple/Catch.pm
-t/lib/Test/Simple/sample_tests/death.plx
-t/lib/Test/Simple/sample_tests/death_in_eval.plx
-t/lib/Test/Simple/sample_tests/death_with_handler.plx
-t/lib/Test/Simple/sample_tests/exit.plx
-t/lib/Test/Simple/sample_tests/extras.plx
-t/lib/Test/Simple/sample_tests/five_fail.plx
-t/lib/Test/Simple/sample_tests/last_minute_death.plx
-t/lib/Test/Simple/sample_tests/one_fail.plx
-t/lib/Test/Simple/sample_tests/pre_plan_death.plx
-t/lib/Test/Simple/sample_tests/require.plx
-t/lib/Test/Simple/sample_tests/success.plx
-t/lib/Test/Simple/sample_tests/too_few.plx
-t/lib/Test/Simple/sample_tests/too_few_fail.plx
-t/lib/Test/Simple/sample_tests/two_fail.plx
-t/lib/TieOut.pm
-t/missing.t
-t/More.t
-t/new_ok.t
-t/no_plan.t
-t/no_tests.t
-t/note.t
-t/overload.t
-t/overload_threads.t
-t/plan.t
-t/plan_bad.t
-t/plan_is_noplan.t
-t/plan_no_plan.t
-t/plan_shouldnt_import.t
-t/plan_skip_all.t
-t/pod-coverage.t
-t/pod.t
-t/require_ok.t
-t/simple.t
-t/skip.t
-t/skipall.t
-t/subtest/args.t
-t/subtest/basic.t
-t/subtest/die.t
-t/subtest/do.t
-t/subtest/exceptions.t
-t/subtest/for_do_t.test
-t/subtest/singleton.t
-t/tbm_doesnt_set_exported_to.t
-t/Tester/tbt_01basic.t
-t/Tester/tbt_02fhrestore.t
-t/Tester/tbt_03die.t
-t/Tester/tbt_04line_num.t
-t/Tester/tbt_05faildiag.t
-t/Tester/tbt_06errormess.t
-t/Tester/tbt_07args.t
-t/thread_taint.t
-t/threads.t
-t/todo.t
-t/undef.t
-t/use_ok.t
-t/useing.t
-t/utf8.t
-t/versions.t
-TODO
-META.yml Module meta-data (added by MakeMaker)
-SIGNATURE Public-key signature (added by MakeMaker)
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/MANIFEST.SKIP b/3.8.8/sources/cpan-Test-Simple/vendor/MANIFEST.SKIP
deleted file mode 100644
index fdc2d9f..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/MANIFEST.SKIP
+++ /dev/null
@@ -1,51 +0,0 @@
-
-#!start included /usr/local/perl/5.10.0/lib/5.10.0/ExtUtils/MANIFEST.SKIP
-# Avoid version control files.
-\bRCS\b
-\bCVS\b
-\bSCCS\b
-,v$
-\B\.svn\b
-\B\.git\b
-\B\.gitignore\b
-\b_darcs\b
-
-# 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
-
-# Avoid Module::Build generated and utility files.
-\bBuild$
-\b_build/
-
-# Avoid temp and backup files.
-~$
-\.old$
-\#$
-\b\.#
-\.bak$
-
-# Avoid Devel::Cover files.
-\bcover_db\b
-#!end included /usr/local/perl/5.10.0/lib/5.10.0/ExtUtils/MANIFEST.SKIP
-
-
-# Avoid this one test that doesn't work yet
-^t/strays.t
-
-# Don't distribute Test::Harness
-^t/lib/Test/Harness
-
-# Test::FAQ is not complete.
-^lib/Test/FAQ
-
-# Avoid Devel::Cover stuff
-^cover_db/
-
-# Don't include our dist director
-^Test-Simple-
\ No newline at end of file
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/SIGNATURE b/3.8.8/sources/cpan-Test-Simple/vendor/SIGNATURE
deleted file mode 100644
index e088fc6..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/SIGNATURE
+++ /dev/null
@@ -1,164 +0,0 @@
-This file contains message digests of all files listed in MANIFEST,
-signed via the Module::Signature module, version 0.55.
-
-To verify the content in this distribution, first make sure you have
-Module::Signature installed, then type:
-
- % cpansign -v
-
-It will check each file's integrity, as well as the signature's
-validity. If "==> Signature verified OK! <==" is not displayed,
-the distribution may already have been compromised, and you should
-not run its Makefile.PL or Build.PL.
-
------BEGIN PGP SIGNED MESSAGE-----
-Hash: SHA1
-
-SHA1 18d88718e58ff5e620e7faa1a59799bc56c80a19 .perlcriticrc
-SHA1 f723872651f0cd52a4aca957af3536f931667340 .perltidyrc
-SHA1 8b37c4be4246f48e054ad939df839d92acbbd70e Changes
-SHA1 b10daed5a4e97be28dd0c4381f4ac1fd412d7d0a MANIFEST
-SHA1 553943846ee39d1f8a38b493fbf166536d3dbf02 MANIFEST.SKIP
-SHA1 7f7f0f2fc23df2d198a23398d347b5a083ded031 META.yml
-SHA1 c45058db08ea52c4ec17ff3f8cadfaa08a1ee26a Makefile.PL
-SHA1 2588ca185fcf4403281a880f4b9465caa9171c1b README
-SHA1 4d39888e6742ff5dc92bbf53e8915415607acfa8 TODO
-SHA1 27c7d1e50553bb5dc39bb423d61edb0a0187bc7a examples/indent.pl
-SHA1 fd87f6123ae88f381aec4f8eaa6261366f331f43 examples/subtest.t
-SHA1 617bcf39494c2b18ab8d8c94b7e944f587064473 lib/Test/Builder.pm
-SHA1 fbf99e4ff748177d23fe57609c2e8d040591a87a lib/Test/Builder/IO/Scalar.pm
-SHA1 d88bc64568e27b990785a10f8f5f316892c3243a lib/Test/Builder/Module.pm
-SHA1 2ce96113c2edac012270cefef4da540edbf9a35c lib/Test/Builder/Tester.pm
-SHA1 a14b53e986060cd1771ed0a1d096037f40e0f9c0 lib/Test/Builder/Tester/Color.pm
-SHA1 a42b6383dfb376568053713e4ebe6f62108dec2d lib/Test/More.pm
-SHA1 ea97f5357947d817ec13e1acc5752b44a1aa730b lib/Test/Simple.pm
-SHA1 5a675a346ba5f49a9f589141856dc3f1acd45876 lib/Test/Tutorial.pod
-SHA1 7184a2d1d7741993b10afeee77e29b4583105da6 t/00compile.t
-SHA1 deae108daf1a5899905d681130afc3c7aab7a1b9 t/00test_harness_check.t
-SHA1 4508d8237a1086902c6b238a3c30f67095fbc6c3 t/BEGIN_require_ok.t
-SHA1 7cef375d6e1d7a2b5faac55a33a80fddeff645fb t/BEGIN_use_ok.t
-SHA1 809c6b08f9b1024b0cf3dde10057d625120824b2 t/Builder/Builder.t
-SHA1 8ed1e9e38e80ce877e2014df1bba002147ec2148 t/Builder/carp.t
-SHA1 07c7f9f8bff45235d364122f617dc2433cd4aa3e t/Builder/create.t
-SHA1 a35e5244565a255c65f35ba7a46ba44fb0520332 t/Builder/current_test.t
-SHA1 e07ec5e4e6f9b3209d6d349c968cb1931d4a31c5 t/Builder/current_test_without_plan.t
-SHA1 be5243b396653bdd48c40ad6a5638de8f334032b t/Builder/details.t
-SHA1 1874e25f84519355f3a7690b428955e2b9c9bfa1 t/Builder/done_testing.t
-SHA1 08bd56ccada51ed43e58d931700ccdcac92631df t/Builder/done_testing_double.t
-SHA1 7f5e9a3a4505d193a2a4a741612b58af21c6730d t/Builder/done_testing_plan_mismatch.t
-SHA1 56623529e6d7072dacb589154ddcef13e81726a9 t/Builder/done_testing_with_no_plan.t
-SHA1 0b9b4931a46929710a559319330eef92f488a643 t/Builder/done_testing_with_number.t
-SHA1 5583e078c2d3513281bffbeac8e7748effe5ebb7 t/Builder/done_testing_with_plan.t
-SHA1 4a00fa7d637097bd48c6d9ac9f309d993191f373 t/Builder/fork_with_new_stdout.t
-SHA1 e36e82a3a96d49e5592189af8e93b3e2a2af5e79 t/Builder/has_plan.t
-SHA1 8a46b361fafc96aa86af359290fa6d1beedce453 t/Builder/has_plan2.t
-SHA1 f6f38ce755cb3b9e34535386bb87b7289dc7f5db t/Builder/is_fh.t
-SHA1 68e77eb162436aced46f6088f4d4f102790e5891 t/Builder/is_passing.t
-SHA1 729597ac98950167bfa9b3f5aef4729f13541833 t/Builder/maybe_regex.t
-SHA1 f2ab26f4e820604b5349e3ccac7624d1bb4c5a57 t/Builder/no_diag.t
-SHA1 ccb9c184d8165c76e9bc2189b26533a9ceafda2b t/Builder/no_ending.t
-SHA1 9699ec9a3d13280ccff9bd0d80e74c1004b705e3 t/Builder/no_header.t
-SHA1 5b5da44bd5c5492c3be690ae2df1d301e25e1099 t/Builder/no_plan_at_all.t
-SHA1 2e928ebfbbae32fbd073dbf3498a0df31d43672a t/Builder/ok_obj.t
-SHA1 7991d79cc92360bf78fe2d5db9f5a95d8c88efb5 t/Builder/output.t
-SHA1 e654cd8a339ca73b05d472753a6b47fb7a5e4022 t/Builder/reset.t
-SHA1 3ea18c9642be61082e41e6b2f44605e7f369edab t/Builder/reset_outputs.t
-SHA1 0817b39fdb0dc1f9a7df434127fd58a28d1dba97 t/Builder/try.t
-SHA1 bb75696f635650882f775f37f7d55b54708dc075 t/More.t
-SHA1 602fb5382444881c8dfbde73ff3c7d15b644d578 t/Tester/tbt_01basic.t
-SHA1 cf5ef5459cd57e529196783a6c6ece9de744717f t/Tester/tbt_02fhrestore.t
-SHA1 739febf92154450c5f8e302cc7fd32f14a238e1b t/Tester/tbt_03die.t
-SHA1 93ac1d26f609b5c0d2cb3de3cd1c55315f3637bc t/Tester/tbt_04line_num.t
-SHA1 9460bf88e85970acf0db83c9e0a43d6b17eca0a3 t/Tester/tbt_05faildiag.t
-SHA1 bc60f9f7c5f824f21d83c785eede2c94bdd1ee41 t/Tester/tbt_06errormess.t
-SHA1 e74bc251dc7b404c269319f990fb53c9b5457cb1 t/Tester/tbt_07args.t
-SHA1 18b1911f7296a5461f8ebceabd73ed09749ee505 t/bad_plan.t
-SHA1 9ba7f8b47c99d8e15d03157ada2c75279d21d971 t/bail_out.t
-SHA1 d140d2e0b4b5c2efbc8a1d20298b8bf21cb1dd0f t/buffer.t
-SHA1 d43a7ca8594ade9d293d248a74e10d879c022d5e t/c_flag.t
-SHA1 d06655caf553f4d18bec5de47ff1fe1a147da9c9 t/circular_data.t
-SHA1 d53a4acb2df0956be2f285ddbd22f3665bb710d1 t/cmp_ok.t
-SHA1 3169177fc6a4cf80bd573e3640f23827aaa9e315 t/dependents.t
-SHA1 bb1dd4528bf070f17f1a88023270ce8189025b93 t/diag.t
-SHA1 5b2fe545e54cff54f5166dcd290042f288178377 t/died.t
-SHA1 65e3dcbe538d908c72e4bec96306ba7a3f6b841f t/dont_overwrite_die_handler.t
-SHA1 90596c5b30b0cdc3145765c541f4cf397662597d t/eq_set.t
-SHA1 153246fb96253a06109ef9315a5c6791670d2023 t/exit.t
-SHA1 00f27b0a2d1983739097ea5000b6205125ecc262 t/explain.t
-SHA1 59a2bf2de5baef5aac588a9f174a093f73f3bb22 t/extra.t
-SHA1 12bc02a56e295b3a73066eb113bf899a80928b3c t/extra_one.t
-SHA1 c1116fa6e49031e3ce99b9adb749d48fb1c20cd8 t/fail-like.t
-SHA1 dddd06030962acdc6d07a0d078173f2e4d1e302a t/fail-more.t
-SHA1 f7a42226e6dcb0f48e2974d60e6dff15f2aef67e t/fail.t
-SHA1 0edaf1c870a362bb775f9eaca46e4323a3783009 t/fail_one.t
-SHA1 8b71abe3c704986ca6ffd9a54061fd3d316e3f9e t/filehandles.t
-SHA1 0a8327db65489d8f64cc1a67d023a0a3a0ff9e22 t/fork.t
-SHA1 fa71cbc587c9a389d91029dd66a61d83c8b1b750 t/harness_active.t
-SHA1 79abdda4bc9a6f345272ea0bed532c2b014b7589 t/import.t
-SHA1 13632c1b2c011c69a9128a761beffe01818b274a t/is_deeply_dne_bug.t
-SHA1 6e971761d03cd8a19a34facecd49a1e3fc617493 t/is_deeply_fail.t
-SHA1 72fc6bd9a0371878b984651b64c41325dc815100 t/is_deeply_with_threads.t
-SHA1 a689281f1f0faa1575ec4c501f06ddb3230c5107 t/lib/Dev/Null.pm
-SHA1 cdf8e10e280ecb03775b4cbdf481091e0e2c1b24 t/lib/Dummy.pm
-SHA1 9a293f77e049c3506027ac562ba03523f584234f t/lib/MyOverload.pm
-SHA1 c4c260c711c678b9c8e5704ffffe52283e23dd5e t/lib/NoExporter.pm
-SHA1 d94c421d7e0c2018933bc85eb9eb77b941b34f08 t/lib/SigDie.pm
-SHA1 443ab6929d939fa2612972c0bd90c1abab1e6197 t/lib/Test/Builder/NoOutput.pm
-SHA1 f684fff62c4fc8d0408db62b0ce8f9f0bf1fa028 t/lib/Test/Simple/Catch.pm
-SHA1 91aec9fdc25078def12ca83c24c83498c85e63b3 t/lib/Test/Simple/sample_tests/death.plx
-SHA1 549c1c54634ef5bd571063020a3f7de174336666 t/lib/Test/Simple/sample_tests/death_in_eval.plx
-SHA1 b96a296e3e558b5e1f7c26ebaaf26079abe89322 t/lib/Test/Simple/sample_tests/death_with_handler.plx
-SHA1 0fd68054c332c60cba7604c7d287160becbcf55e t/lib/Test/Simple/sample_tests/exit.plx
-SHA1 903f1435e64b90b6e329d29bede6065798d8c9a4 t/lib/Test/Simple/sample_tests/extras.plx
-SHA1 0f9b45b394534597c7dada5b106ea2c0aab23e0c t/lib/Test/Simple/sample_tests/five_fail.plx
-SHA1 4345d33d32a50edbc495ea3c87687c721ec0c19e t/lib/Test/Simple/sample_tests/last_minute_death.plx
-SHA1 d39a078aeb36026521c10f9db8638ec6a8264516 t/lib/Test/Simple/sample_tests/one_fail.plx
-SHA1 bb56732e2c05a4060809261fb703580560076670 t/lib/Test/Simple/sample_tests/pre_plan_death.plx
-SHA1 dd45a6273288a07866e18ea380c777678bdf944b t/lib/Test/Simple/sample_tests/require.plx
-SHA1 af0640900719e4d09850f63c0813c243e442be9d t/lib/Test/Simple/sample_tests/success.plx
-SHA1 f83a227641b9cca6f4d5ba0921c7966beda1906d t/lib/Test/Simple/sample_tests/too_few.plx
-SHA1 de2d8ff912df79fe4a30686cf86e9daa7563183a t/lib/Test/Simple/sample_tests/too_few_fail.plx
-SHA1 423b99311683daef3ff777e86e51a194847fe5de t/lib/Test/Simple/sample_tests/two_fail.plx
-SHA1 d9f1e3e89d309f821162312c6fe2be977fb7e8e4 t/lib/TieOut.pm
-SHA1 cb3298cf85dc7e9bcfd3f7afe0810ce609beb201 t/missing.t
-SHA1 a3b8aebf9b48916b7e01174ff6be9b5624f67362 t/new_ok.t
-SHA1 abd6372e1bb362ee7a9ea451b9212c2252b4db24 t/no_plan.t
-SHA1 b8bd241782fb876ee529ebee6d175a1f539ef442 t/no_tests.t
-SHA1 826cf8bae8441647846c16b112c47130489958a3 t/note.t
-SHA1 f481ce4d8524f2ffb2a98840055cc5a8ec2deeee t/overload.t
-SHA1 0626a13e5d52ec54d48eb901a40311a03fbde518 t/overload_threads.t
-SHA1 37bae7a80190632cb9da3d93e6c72f9cecc9477e t/plan.t
-SHA1 1eef8329709309482ecfb3208b11b162623b398a t/plan_bad.t
-SHA1 c3177abcaf6dcdbcf80da0d05d8ec6327ed566e0 t/plan_is_noplan.t
-SHA1 17239c84bc59cb0e8ccb673eed566769816373fb t/plan_no_plan.t
-SHA1 84167106fd893e16a5e8a881e0ef2383d36357cf t/plan_shouldnt_import.t
-SHA1 a1c2e27ac994c6f76edbd6a799158518924f793f t/plan_skip_all.t
-SHA1 faa9b948161f3c82a45d887522b6892f0d76b72d t/pod-coverage.t
-SHA1 6d5c8f755e04fe8f7aff2d2e8f4df38601c543ae t/pod.t
-SHA1 303196fd295c075dcb1d72fbc70e143e3befa316 t/require_ok.t
-SHA1 713d0d3a3f82fe8d54f6ac57b3ff4613c5a5df20 t/simple.t
-SHA1 1aed9f7e7a5a90248c125b2469fe8a0204a795af t/skip.t
-SHA1 10dc5434ce94eff1b15f289d2e8b161274d13b2a t/skipall.t
-SHA1 7e4d1bd7f6a16fa089f7055564fa278b6d1f661b t/subtest/args.t
-SHA1 c61a505369f8f99078f335f03037330cae50b019 t/subtest/basic.t
-SHA1 64926a0f73641e33eac8f0793fb584686c4c95f6 t/subtest/die.t
-SHA1 e94560a32cf0b84ef7327b94220cc7855d77bbc6 t/subtest/do.t
-SHA1 55dcb5a68f5eeedab1217f2d7f0a311e7df2b2c3 t/subtest/exceptions.t
-SHA1 49dd4737630740e44763c90253d45eb688ae071d t/subtest/for_do_t.test
-SHA1 487bdbcee736b187f043651afef3d53e9b90621e t/subtest/singleton.t
-SHA1 3d2fd1a30a65543620bb02c6ec0f3090e4a1a7a3 t/tbm_doesnt_set_exported_to.t
-SHA1 e36b2716599b785cf65c14b842908547770ecaa1 t/thread_taint.t
-SHA1 af8e075ac5a90b49cce199248c9ca1bc4ee25067 t/threads.t
-SHA1 70ffb9dbd4a94c365805e01a4233f927994a3db3 t/todo.t
-SHA1 bed29c8a128622205c9648cb1e7199796017eae6 t/undef.t
-SHA1 00411361c53e44af190f611cff143e22fae05cd6 t/use_ok.t
-SHA1 59a63c5dd14da4c29bd87f2e33dcda1515396253 t/useing.t
-SHA1 fb0fb962ea7c45c7dcb6e88f1d7cf28fc824a6ea t/utf8.t
-SHA1 3f8bb22b80aab25784f6ca4fe046098c7f08f579 t/versions.t
------BEGIN PGP SIGNATURE-----
-Version: GnuPG/MacGPG2 v2.0.11 (Darwin)
-
-iEYEARECAAYFAkqeuAcACgkQWMohlhD1QycrzACgys8dpBiwCOxjgEpD9eVQKuZX
-X6IAnjP/q9cmx9Hzmqb+2BQoU7Qfppqy
-=aAjR
------END PGP SIGNATURE-----
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/lib/Test/Builder.pm b/3.8.8/sources/cpan-Test-Simple/vendor/lib/Test/Builder.pm
deleted file mode 100644
index 26ffea4..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/lib/Test/Builder.pm
+++ /dev/null
@@ -1,2501 +0,0 @@
-package Test::Builder;
-
-use 5.006;
-use strict;
-use warnings;
-
-our $VERSION = '0.94';
-$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
- # occassionally 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
-
-Test::Simple and Test::More have proven to be popular testing modules,
-but they're not always flexible enough. Test::Builder provides the 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;
-}
-
-=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
-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 $child = bless {}, ref $self;
- $child->reset;
-
- # Add to our indentation
- $child->_indent( $self->_indent . ' ' );
- $child->{$_} = $self->{$_} foreach qw{Out_FH Todo_FH Fail_FH};
-
- # 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->{Name} = $name || "Child of " . $self->name;
- $self->{Child_Name} = $child->name;
- return $child;
-}
-
-
-=item B<subtest>
-
- $builder->subtest($name, \&subtests);
-
-See documentation of C<subtest> in Test::More.
-
-=cut
-
-sub subtest {
- my $self = shift;
- my($name, $subtests) = @_;
-
- 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 $child = $self->child($name);
- my %parent = %$self;
- %$self = %$child;
-
- my $error;
- if( !eval { $subtests->(); 1 } ) {
- $error = $@;
- }
-
- # Restore the parent and the copied child.
- %$child = %$self;
- %$self = %parent;
-
- # Die *after* we restore the parent.
- die $error if $error and !eval { $error->isa('Test::Builder::Exception') };
-
- return $child->finalize;
-}
-
-
-=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 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");
- }
- $self->_ending;
-
- # XXX This will only be necessary for TAP envelopes (we think)
- #$self->_print( $self->is_passing ? "PASS\n" : "FAIL\n" );
-
- my $ok = 1;
- $self->parent->{Child_Name} = undef;
- if ( $self->{Skip_All} ) {
- $self->parent->skip($self->{Skip_All});
- }
- 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 ) {
- 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->{Original_Pid} = $$;
- $self->{Child_Name} = undef;
- $self->{Indent} ||= '';
-
- share( $self->{Curr_Test} );
- $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->_dup_stdhandles;
-
- 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(@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.
-
-=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.
-
-=cut
-
-sub is_eq {
- my( $self, $got, $expect, $name ) = @_;
- local $Level = $Level + 1;
-
- $self->_unoverload_str( \$got, \$expect );
-
- 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;
-
- $self->_unoverload_num( \$got, \$expect );
-
- 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 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 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($this, qr/$regex/, $name);
- $Test->like($this, '/$regex/', $name);
-
-Like Test::More's C<like()>. Checks if $this matches the given C<$regex>.
-
-=item B<unlike>
-
- $Test->unlike($this, qr/$regex/, $name);
- $Test->unlike($this, '/$regex/', $name);
-
-Like Test::More's C<unlike()>. Checks if $this B<does not match> the
-given C<$regex>.
-
-=cut
-
-sub like {
- my( $self, $this, $regex, $name ) = @_;
-
- local $Level = $Level + 1;
- return $self->_regex_ok( $this, $regex, '=~', $name );
-}
-
-sub unlike {
- my( $self, $this, $regex, $name ) = @_;
-
- local $Level = $Level + 1;
- return $self->_regex_ok( $this, $regex, '!~', $name );
-}
-
-=item B<cmp_ok>
-
- $Test->cmp_ok($this, $type, $that, $name);
-
-Works just like Test::More's C<cmp_ok()>.
-
- $Test->cmp_ok($big_num, '!=', $other_big_num);
-
-=cut
-
-my %numeric_cmps = map { ( $_, 1 ) } ( "<", "<=", ">", ">=", "==", "!=", "<=>" );
-
-sub cmp_ok {
- my( $self, $got, $type, $expect, $name ) = @_;
-
- my $test;
- my $error;
- {
- ## no critic (BuiltinFunctions::ProhibitStringyEval)
-
- local( $@, $!, $SIG{__DIE__} ); # isolate eval
-
- my($pack, $file, $line) = $self->caller();
-
- $test = eval qq[
-#line 1 "cmp_ok [from $file line $line]"
-\$got $type \$expect;
-];
- $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") if $error;
-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 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;
- $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 ) = @_;
- $why ||= '';
- $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 => '',
- 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, $this, $regex, $name) = @_;
- my $usable_regex = $self->maybe_regex($regex);
- die "expecting regex, found '$regex'\n"
- unless $usable_regex;
- $self->ok($this =~ 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, $this, $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;
- }
-
- {
- ## no critic (BuiltinFunctions::ProhibitStringyEval)
-
- my $test;
- my $context = $self->_caller_context;
-
- local( $@, $!, $SIG{__DIE__} ); # isolate eval
-
- $test = eval $context . q{$test = $this =~ /$usable_regex/ ? 1 : 0};
-
- $test = !$test if $cmp eq '!~';
-
- local $Level = $Level + 1;
- $ok = $self->ok( $test, $name );
- }
-
- unless($ok) {
- $this = defined $this ? "'$this'" : 'undef';
- my $match = $cmp eq '=~' ? "doesn't match" : "matches";
-
- local $Level = $Level + 1;
- $self->diag( sprintf <<'DIAGNOSTIC', $this, $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 at 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;
-
- local( $\, $", $, ) = ( undef, ' ', '' );
-
- # Escape each line after the first with a # so we don't
- # confuse Test::Harness.
- $msg =~ s{\n(?!\z)}{\n# }sg;
-
- # Stick a newline on the end if it needs it.
- $msg .= "\n" unless $msg =~ /\n\z/;
-
- return print $fh $self->_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);
-
- binmode $dst, join " ", map ":$_", @src_layers if @src_layers;
- }
- );
-
- return;
-}
-
-=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 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()>.
-
-=cut
-
-sub find_TODO {
- my( $self, $pack ) = @_;
-
- $pack = $pack || $self->caller(1) || $self->exported_to;
- return unless $pack;
-
- no strict 'refs'; ## no critic
- return ${ $pack . '::TODO' };
-}
-
-=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.");
- }
-
- # 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, accessable 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 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. Test::Simple, Test::More,
-Test::Exception and Test::Differences all use Test::Builder.
-
-=head1 SEE ALSO
-
-Test::Simple, Test::More, Test::Harness
-
-=head1 AUTHORS
-
-Original code by chromatic, maintained by Michael G Schwern
-E<lt>schwern at pobox.comE<gt>
-
-=head1 COPYRIGHT
-
-Copyright 2002-2008 by chromatic E<lt>chromatic at wgz.orgE<gt> and
- Michael G Schwern E<lt>schwern at 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/3.8.8/sources/cpan-Test-Simple/vendor/lib/Test/Builder/Tester/Color.pm b/3.8.8/sources/cpan-Test-Simple/vendor/lib/Test/Builder/Tester/Color.pm
deleted file mode 100644
index 264fddb..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/lib/Test/Builder/Tester/Color.pm
+++ /dev/null
@@ -1,51 +0,0 @@
-package Test::Builder::Tester::Color;
-
-use strict;
-our $VERSION = "1.18";
-
-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 at 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/3.8.8/sources/cpan-Test-Simple/vendor/lib/Test/More.pm b/3.8.8/sources/cpan-Test-Simple/vendor/lib/Test/More.pm
deleted file mode 100644
index 6728487..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/lib/Test/More.pm
+++ /dev/null
@@ -1,1776 +0,0 @@
-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 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 = '0.94';
-$VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval)
-
-use Test::Builder::Module;
-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()
-
- BEGIN { use_ok( 'Some::Module' ); }
- 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 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 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, 'items populated' );
-
-(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 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 Test::Simple's 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 ok(), is() and 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" );
-
-(Mnemonic: "This is that." "This isn't that.")
-
-So why use these? They produce better diagnostics on failure. ok()
-cannot know what you are testing for (beyond the name), but is() and
-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 is() and isnt() over 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 ok().
-
- ok( exists $brooklyn{tree}, 'A tree grows in Brooklyn' );
-
-A simple call to 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 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;
-
-=item B<like>
-
- like( $got, qr/expected/, $test_name );
-
-Similar to ok(), like() matches $got against the regex C<qr/expected/>.
-
-So this:
-
- like($got, qr/expected/, 'this is like that');
-
-is similar to:
-
- ok( $got =~ /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 ok() are similar to that of is() and 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 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 ok() and is() lies cmp_ok(). This allows you to
-compare two arguments using any binary perl operator.
-
- # 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 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
-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 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( $object, $class, $obj_name ) = @_;
- my $tb = Test::More->builder;
-
- my $diag;
-
- if( !defined $object ) {
- $obj_name = 'The thing' unless defined $obj_name;
- $diag = "$obj_name isn't defined";
- }
- else {
- my $whatami = ref $object ? 'object' : 'class';
- # We can't use UNIVERSAL::isa because we want to honor isa() overrides
- my( $rslt, $error ) = $tb->_try( sub { $object->isa($class) } );
- if($error) {
- if( $error =~ /^Can't call method "isa" on unblessed reference/ ) {
- # Its an unblessed reference
- $obj_name = 'The reference' unless defined $obj_name;
- if( !UNIVERSAL::isa( $object, $class ) ) {
- my $ref = ref $object;
- $diag = "$obj_name isn't a '$class' it's a '$ref'";
- }
- }
- elsif( $error =~ /Can't call method "isa" without a package/ ) {
- # It's something that can't even be a class
- $obj_name = 'The thing' unless defined $obj_name;
- $diag = "$obj_name isn't a class or reference";
- }
- else {
- die <<WHOA;
-WHOA! I tried to call ->isa on your $whatami and got some weird error.
-Here's the error.
-$error
-WHOA
- }
- }
- else {
- $obj_name = "The $whatami" unless defined $obj_name;
- if( !$rslt ) {
- my $ref = ref $object;
- $diag = "$obj_name isn't a '$class' it's a '$ref'";
- }
- }
- }
-
- my $name = "$obj_name isa $class";
- my $ok;
- if($diag) {
- $ok = $tb->ok( 0, $name );
- $tb->diag(" $diag\n");
- }
- else {
- $ok = $tb->ok( 1, $name );
- }
-
- 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
-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 new() and it assumes 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 ||= [];
- $object_name = "The object" unless defined $object_name;
-
- 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 {
- $tb->ok( 0, "new() died" );
- $tb->diag(" Error was: $error");
- }
-
- return $obj;
-}
-
-=item B<subtest>
-
- subtest $name => \&code;
-
-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
- 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 "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.
-
-=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 ok(). In this case, you can simply use pass() (to
-declare the test ok) or fail (for not ok). They are synonyms for
-ok(1) and 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
-
-You usually want to test if the module you're testing loads ok, rather
-than just vomiting if its load fails. For such purposes we have
-C<use_ok> and C<require_ok>.
-
-=over 4
-
-=item B<use_ok>
-
- BEGIN { use_ok($module); }
- BEGIN { use_ok($module, @imports); }
-
-These simply use the given $module and test to make sure the load
-happened ok. It's recommended that you run 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... }
-
-
-=cut
-
-sub use_ok ($;@) {
- my( $module, @imports ) = @_;
- @imports = () unless @imports;
- my $tb = Test::More->builder;
-
- my( $pack, $filename, $line ) = caller;
-
- 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;
-use $module $imports[0];
-1;
-USE
- }
- else {
- $code = <<USE;
-package $pack;
-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 );
-}
-
-=item B<require_ok>
-
- require_ok($module);
- require_ok($file);
-
-Like use_ok(), except it requires the $module or $file.
-
-=cut
-
-sub require_ok ($) {
- my($module) = shift;
- my $tb = Test::More->builder;
-
- my $pack = caller;
-
- # Try to deterine 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;
-}
-
-=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 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.
-
-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".
-
-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(ARRAY HASH REF SCALAR GLOB CODE Regexp)) {
- 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 it won't
-interfere with the test.
-
-=item B<note>
-
- note(@diagnostic_message);
-
-Like 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 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". 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. 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 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 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 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 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->[$_];
-
- 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 _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;
-
- {
- # Quiet uninitialized value warnings when comparing undefs.
- no warnings 'uninitialized';
-
- $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 defined.
- $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;
-
- 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 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> 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 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 Test::Builder object like so:
-
-=over 4
-
-=item B<builder>
-
- my $test_builder = Test::More->builder;
-
-Returns the Test::Builder object underlying Test::More for you to play
-with.
-
-
-=back
-
-
-=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.
-
-B<NOTE> This behavior may go away in future versions.
-
-
-=head1 CAVEATS and NOTES
-
-=over 4
-
-=item Backwards compatibility
-
-Test::More works with Perls as old as 5.6.0.
-
-
-=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. 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.
-
-The work around is to change the filehandles used by Test::Builder
-directly.
-
- my $builder = Test::More->builder;
- binmode $builder->output, ":utf8";
- binmode $builder->failure_output, ":utf8";
- binmode $builder->todo_output, ":utf8";
-
-
-=item Overloaded objects
-
-String overloaded objects are compared B<as strings> (or in 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 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 "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 Test
-module. I was largely unaware of its existence when I'd first
-written my own 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
-
-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::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.
-
-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.
-
-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<Bundle::Test> installs a whole bunch of useful test modules.
-
-
-=head1 AUTHORS
-
-Michael G Schwern E<lt>schwern at 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 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/schwern/test-more/>.
-
-
-=head1 COPYRIGHT
-
-Copyright 2001-2008 by Michael G Schwern E<lt>schwern at 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/3.8.8/sources/cpan-Test-Simple/vendor/lib/Test/Simple.pm b/3.8.8/sources/cpan-Test-Simple/vendor/lib/Test/Simple.pm
deleted file mode 100644
index 9c87167..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/lib/Test/Simple.pm
+++ /dev/null
@@ -1,214 +0,0 @@
-package Test::Simple;
-
-use 5.006;
-
-use strict;
-
-our $VERSION = '0.94';
-$VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval)
-
-use Test::Builder::Module;
-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 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 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 );
-
-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.
-
-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 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
-Test::More. Test::Simple is 100% forward compatible with Test::More
-(i.e. you can just use Test::More instead of Test::Simple in your
-programs and things will still work).
-
-=back
-
-Look in 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 at pobox.comE<gt>, wardrobe by Calvin Klein.
-
-
-=head1 COPYRIGHT
-
-Copyright 2001-2008 by Michael G Schwern E<lt>schwern at 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/3.8.8/sources/cpan-Test-Simple/vendor/lib/Test/Tutorial.pod b/3.8.8/sources/cpan-Test-Simple/vendor/lib/Test/Tutorial.pod
deleted file mode 100644
index 46ac467..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/lib/Test/Tutorial.pod
+++ /dev/null
@@ -1,604 +0,0 @@
-=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";
-
-since 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. B<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 B<Test::Simple>. It has one function, C<ok()>.
-
- #!/usr/bin/perl -w
-
- use Test::Simple tests => 1;
-
- ok( 1 + 1 == 2 );
-
-and that does the same thing as the code above. 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 used 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, B<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. Best place to start is at the beginning. Date::ICal is
-an object-oriented module, and that means you start by making an
-object. So we test C<new()>.
-
- #!/usr/bin/perl -w
-
- 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?
-
-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" );
-
-So now you'd see...
-
- 1..2
- ok 1 - new() returned something
- ok 2 - and it's the right class
-
-
-=head2 Test the manual
-
-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] 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. We'll have to re-run the
-test in the debugger or throw in some print statements to find out.
-
-Instead, we'll switch from B<Test::Simple> to B<Test::More>. B<Test::More>
-does everything B<Test::Simple> does, and more! In fact, Test::More does
-things I<exactly> the way Test::Simple does. You can literally swap
-Test::Simple out and put Test::More in its place. That's just what
-we're going to do.
-
-Test::More does more than 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. Instead, we'll use the C<is()>
-function, which lets us declare that something is supposed to be the
-same as something else:
-
- #!/usr/bin/perl -w
-
- 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-E<gt>sec> 47?" "Is C<$ical-E<gt>min> 12?" With C<is()> in place,
-you get some 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.
-
-letting us know that C<$ical-E<gt>day> returned 16, but we expected 17. A
-quick check shows that the code is working fine, we made a mistake
-when writing up the tests. Just change it to:
-
- is( $ical->day, 16, ' day()' );
-
-and everything works.
-
-So 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 a list this way. [5]
-
- is( @foo, 5, 'foo has 5 elements' );
-
-
-=head2 Sometimes the tests are wrong
-
-Which brings us to 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()' );
- }
-
-So 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 C<use Test::More tests =E<gt> ##> line. That can rapidly get
-annoying. There's two 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...
-
-Or to be even more flexible, we use C<no_plan>. This means we're just
-running some tests, don't know how many. [6]
-
- use Test::More 'no_plan'; # instead of tests => 32
-
-now we can just add tests and not have to do all sorts of math to
-figure out how many we're running.
-
-
-=head2 Informative names
-
-Take a look at this line here
-
- 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. So 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] So rather than just putting a comment in the test,
-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 MacOS', 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's never
-run. Instead, it prints special output that tells 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 less 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
-
-Thumbing through the 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, didn't see a test for using C<ical()> to set
-the date in the Date::ICal test suite. So I'll write 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 and I get
-
- 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. Let's assume we 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, we're going to
-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'
-
-Test::More doesn't say "Looks like you failed 1 tests of 1". That '#
-TODO' tells Test::Harness "this is supposed to fail" and it treats a
-failure as a successful test. So you can write tests even before
-you've fixed the underlying code.
-
-If a TODO test passes, Test::Harness will report it "UNEXPECTEDLY
-SUCCEEDED". When that happens, you simply 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. Test::Harness will read the switches
-in C<#!> and use them to run your tests.
-
- #!/usr/bin/perl -Tw
-
- ...test normally here...
-
-So when you say C<make test> it will be run with taint mode and
-warnings 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 B<Test::Inline> (formerly B<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, 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 at pobox.comE<gt> and the perl-qa dancers!
-
-=head1 COPYRIGHT
-
-Copyright 2001 by Michael G Schwern E<lt>schwern at 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/3.8.8/sources/cpan-Test-Simple/vendor/t/BEGIN_require_ok.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/BEGIN_require_ok.t
deleted file mode 100644
index 733d0bb..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/BEGIN_require_ok.t
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/bin/perl -w
-
-# Fixed a problem with BEGIN { use_ok or require_ok } silently failing when there's no
-# plan set. [rt.cpan.org 28345] Thanks Adriano Ferreira and Yitzchak.
-
-use strict;
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ('../lib', 'lib');
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-
-use Test::More;
-
-my $result;
-BEGIN {
- $result = require_ok("strict");
-}
-
-ok $result, "require_ok ran";
-
-done_testing(2);
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/BEGIN_use_ok.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/BEGIN_use_ok.t
deleted file mode 100644
index 476badf..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/BEGIN_use_ok.t
+++ /dev/null
@@ -1,26 +0,0 @@
-#!/usr/bin/perl -w
-
-# [rt.cpan.org 28345]
-#
-# A use_ok() inside a BEGIN block lacking a plan would be silently ignored.
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ('../lib', 'lib');
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-
-use Test::More;
-
-my $result;
-BEGIN {
- $result = use_ok("strict");
-}
-
-ok( $result, "use_ok() ran" );
-done_testing(2);
-
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/carp.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/carp.t
deleted file mode 100644
index e89eeeb..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/carp.t
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/perl
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-
-use Test::More tests => 3;
-use Test::Builder;
-
-my $tb = Test::Builder->create;
-sub foo { $tb->croak("foo") }
-sub bar { $tb->carp("bar") }
-
-eval { foo() };
-is $@, sprintf "foo at %s line %s.\n", $0, __LINE__ - 1;
-
-eval { $tb->croak("this") };
-is $@, sprintf "this at %s line %s.\n", $0, __LINE__ - 1;
-
-{
- my $warning = '';
- local $SIG{__WARN__} = sub {
- $warning .= join '', @_;
- };
-
- bar();
- is $warning, sprintf "bar at %s line %s.\n", $0, __LINE__ - 1;
-}
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/current_test.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/current_test.t
deleted file mode 100644
index edd201c..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/current_test.t
+++ /dev/null
@@ -1,11 +0,0 @@
-#!/usr/bin/perl -w
-
-# Dave Rolsky found a bug where if current_test() is used and no
-# tests are run via Test::Builder it will blow up.
-
-use Test::Builder;
-$TB = Test::Builder->new;
-$TB->plan(tests => 2);
-print "ok 1\n";
-print "ok 2\n";
-$TB->current_test(2);
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/done_testing.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/done_testing.t
deleted file mode 100644
index 14a8f91..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/done_testing.t
+++ /dev/null
@@ -1,12 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-
-use Test::Builder;
-
-my $tb = Test::Builder->new;
-$tb->level(0);
-
-$tb->ok(1, "testing done_testing() with no arguments");
-$tb->ok(1, " another test so we're not testing just one");
-$tb->done_testing();
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/done_testing_double.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/done_testing_double.t
deleted file mode 100644
index 3a0bae2..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/done_testing_double.t
+++ /dev/null
@@ -1,47 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ('../lib', 'lib');
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-
-use Test::Builder;
-use Test::Builder::NoOutput;
-
-my $tb = Test::Builder::NoOutput->create;
-
-{
- # Normalize test output
- local $ENV{HARNESS_ACTIVE};
-
- $tb->ok(1);
- $tb->ok(1);
- $tb->ok(1);
-
-#line 24
- $tb->done_testing(3);
- $tb->done_testing;
- $tb->done_testing;
-}
-
-my $Test = Test::Builder->new;
-$Test->plan( tests => 1 );
-$Test->level(0);
-$Test->is_eq($tb->read, <<"END", "multiple done_testing");
-ok 1
-ok 2
-ok 3
-1..3
-not ok 4 - done_testing() was already called at $0 line 24
-# Failed test 'done_testing() was already called at $0 line 24'
-# at $0 line 25.
-not ok 5 - done_testing() was already called at $0 line 24
-# Failed test 'done_testing() was already called at $0 line 24'
-# at $0 line 26.
-END
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/done_testing_plan_mismatch.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/done_testing_plan_mismatch.t
deleted file mode 100644
index 8208635..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/done_testing_plan_mismatch.t
+++ /dev/null
@@ -1,45 +0,0 @@
-#!/usr/bin/perl -w
-
-# What if there's a plan and done_testing but they don't match?
-
-use strict;
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ('../lib', 'lib');
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-
-use Test::Builder;
-use Test::Builder::NoOutput;
-
-my $tb = Test::Builder::NoOutput->create;
-
-{
- # Normalize test output
- local $ENV{HARNESS_ACTIVE};
-
- $tb->plan( tests => 3 );
- $tb->ok(1);
- $tb->ok(1);
- $tb->ok(1);
-
-#line 24
- $tb->done_testing(2);
-}
-
-my $Test = Test::Builder->new;
-$Test->plan( tests => 1 );
-$Test->level(0);
-$Test->is_eq($tb->read, <<"END");
-1..3
-ok 1
-ok 2
-ok 3
-not ok 4 - planned to run 3 but done_testing() expects 2
-# Failed test 'planned to run 3 but done_testing() expects 2'
-# at $0 line 24.
-END
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/fork_with_new_stdout.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/fork_with_new_stdout.t
deleted file mode 100644
index e38c1d0..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/fork_with_new_stdout.t
+++ /dev/null
@@ -1,54 +0,0 @@
-#!perl -w
-use strict;
-use warnings;
-use IO::Pipe;
-use Test::Builder;
-use Config;
-
-my $b = Test::Builder->new;
-$b->reset;
-
-my $Can_Fork = $Config{d_fork} ||
- (($^O eq 'MSWin32' || $^O eq 'NetWare') and
- $Config{useithreads} and
- $Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/
- );
-
-if( !$Can_Fork ) {
- $b->plan('skip_all' => "This system cannot fork");
-}
-else {
- $b->plan('tests' => 2);
-}
-
-my $pipe = IO::Pipe->new;
-if ( my $pid = fork ) {
- $pipe->reader;
- $b->ok((<$pipe> =~ /FROM CHILD: ok 1/), "ok 1 from child");
- $b->ok((<$pipe> =~ /FROM CHILD: 1\.\.1/), "1..1 from child");
- waitpid($pid, 0);
-}
-else {
- $pipe->writer;
- my $pipe_fd = $pipe->fileno;
- close STDOUT;
- open(STDOUT, ">&$pipe_fd");
- my $b = Test::Builder->new;
- $b->reset;
- $b->no_plan;
- $b->ok(1);
-}
-
-
-=pod
-#actual
-1..2
-ok 1
-1..1
-ok 1
-ok 2
-#expected
-1..2
-ok 1
-ok 2
-=cut
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/no_diag.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/no_diag.t
deleted file mode 100644
index 6fa538a..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/no_diag.t
+++ /dev/null
@@ -1,8 +0,0 @@
-#!/usr/bin/perl -w
-
-use Test::More 'no_diag', tests => 2;
-
-pass('foo');
-diag('This should not be displayed');
-
-is(Test::More->builder->no_diag, 1);
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/no_plan_at_all.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/no_plan_at_all.t
deleted file mode 100644
index 9029f6f..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/no_plan_at_all.t
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/usr/bin/perl -w
-
-# Test what happens when no plan is delcared and done_testing() is not seen
-
-use strict;
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ('../lib', 'lib');
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-
-use Test::Builder;
-use Test::Builder::NoOutput;
-
-my $Test = Test::Builder->new;
-$Test->level(0);
-$Test->plan( tests => 1 );
-
-my $tb = Test::Builder::NoOutput->create;
-
-{
- $tb->level(0);
- $tb->ok(1, "just a test");
- $tb->ok(1, " and another");
- $tb->_ending;
-}
-
-$Test->is_eq($tb->read, <<'END', "proper behavior when no plan is seen");
-ok 1 - just a test
-ok 2 - and another
-# Tests were run but no plan was declared and done_testing() was not seen.
-END
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/try.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/try.t
deleted file mode 100644
index eeb3bcb..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/Builder/try.t
+++ /dev/null
@@ -1,42 +0,0 @@
-#!perl -w
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ('../lib', 'lib');
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-
-use strict;
-
-use Test::More 'no_plan';
-
-require Test::Builder;
-my $tb = Test::Builder->new;
-
-
-# Test that _try() has no effect on $@ and $! and is not effected by
-# __DIE__
-{
- local $SIG{__DIE__} = sub { fail("DIE handler called: @_") };
- local $@ = 42;
- local $! = 23;
-
- is $tb->_try(sub { 2 }), 2;
- is $tb->_try(sub { return '' }), '';
-
- is $tb->_try(sub { die; }), undef;
-
- is_deeply [$tb->_try(sub { die "Foo\n" })], [undef, "Foo\n"];
-
- is $@, 42;
- cmp_ok $!, '==', 23;
-}
-
-ok !eval {
- $tb->_try(sub { die "Died\n" }, die_on_fail => 1);
-};
-is $@, "Died\n";
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/More.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/More.t
deleted file mode 100644
index 21958cf..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/More.t
+++ /dev/null
@@ -1,179 +0,0 @@
-#!perl -w
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = qw(../lib ../lib/Test/Simple/t/lib);
- }
-}
-
-use lib 't/lib';
-use Test::More tests => 53;
-
-# Make sure we don't mess with $@ or $!. Test at bottom.
-my $Err = "this should not be touched";
-my $Errno = 42;
-$@ = $Err;
-$! = $Errno;
-
-use_ok('Dummy');
-is( $Dummy::VERSION, '0.01', 'use_ok() loads a module' );
-require_ok('Test::More');
-
-
-ok( 2 eq 2, 'two is two is two is two' );
-is( "foo", "foo", 'foo is foo' );
-isnt( "foo", "bar", 'foo isnt bar');
-isn't("foo", "bar", 'foo isn\'t bar');
-
-#'#
-like("fooble", '/^foo/', 'foo is like fooble');
-like("FooBle", '/foo/i', 'foo is like FooBle');
-like("/usr/local/pr0n/", '/^\/usr\/local/', 'regexes with slashes in like' );
-
-unlike("fbar", '/^bar/', 'unlike bar');
-unlike("FooBle", '/foo/', 'foo is unlike FooBle');
-unlike("/var/local/pr0n/", '/^\/usr\/local/','regexes with slashes in unlike' );
-
-my @foo = qw(foo bar baz);
-unlike(@foo, '/foo/');
-
-can_ok('Test::More', qw(require_ok use_ok ok is isnt like skip can_ok
- pass fail eq_array eq_hash eq_set));
-can_ok(bless({}, "Test::More"), qw(require_ok use_ok ok is isnt like skip
- can_ok pass fail eq_array eq_hash eq_set));
-
-
-isa_ok(bless([], "Foo"), "Foo");
-isa_ok([], 'ARRAY');
-isa_ok(\42, 'SCALAR');
-{
- local %Bar::;
- local @Foo::ISA = 'Bar';
- isa_ok( "Foo", "Bar" );
-}
-
-
-# can_ok() & isa_ok should call can() & isa() on the given object, not
-# just class, in case of custom can()
-{
- local *Foo::can;
- local *Foo::isa;
- *Foo::can = sub { $_[0]->[0] };
- *Foo::isa = sub { $_[0]->[0] };
- my $foo = bless([0], 'Foo');
- ok( ! $foo->can('bar') );
- ok( ! $foo->isa('bar') );
- $foo->[0] = 1;
- can_ok( $foo, 'blah');
- isa_ok( $foo, 'blah');
-}
-
-
-pass('pass() passed');
-
-ok( eq_array([qw(this that whatever)], [qw(this that whatever)]),
- 'eq_array with simple arrays' );
-is @Test::More::Data_Stack, 0, '@Data_Stack not holding onto things';
-
-ok( eq_hash({ foo => 42, bar => 23 }, {bar => 23, foo => 42}),
- 'eq_hash with simple hashes' );
-is @Test::More::Data_Stack, 0;
-
-ok( eq_set([qw(this that whatever)], [qw(that whatever this)]),
- 'eq_set with simple sets' );
-is @Test::More::Data_Stack, 0;
-
-my @complex_array1 = (
- [qw(this that whatever)],
- {foo => 23, bar => 42},
- "moo",
- "yarrow",
- [qw(498 10 29)],
- );
-my @complex_array2 = (
- [qw(this that whatever)],
- {foo => 23, bar => 42},
- "moo",
- "yarrow",
- [qw(498 10 29)],
- );
-
-is_deeply( \@complex_array1, \@complex_array2, 'is_deeply with arrays' );
-ok( eq_array(\@complex_array1, \@complex_array2),
- 'eq_array with complicated arrays' );
-ok( eq_set(\@complex_array1, \@complex_array2),
- 'eq_set with complicated arrays' );
-
-my @array1 = (qw(this that whatever),
- {foo => 23, bar => 42} );
-my @array2 = (qw(this that whatever),
- {foo => 24, bar => 42} );
-
-ok( !eq_array(\@array1, \@array2),
- 'eq_array with slightly different complicated arrays' );
-is @Test::More::Data_Stack, 0;
-
-ok( !eq_set(\@array1, \@array2),
- 'eq_set with slightly different complicated arrays' );
-is @Test::More::Data_Stack, 0;
-
-my %hash1 = ( foo => 23,
- bar => [qw(this that whatever)],
- har => { foo => 24, bar => 42 },
- );
-my %hash2 = ( foo => 23,
- bar => [qw(this that whatever)],
- har => { foo => 24, bar => 42 },
- );
-
-is_deeply( \%hash1, \%hash2, 'is_deeply with complicated hashes' );
-ok( eq_hash(\%hash1, \%hash2), 'eq_hash with complicated hashes');
-
-%hash1 = ( foo => 23,
- bar => [qw(this that whatever)],
- har => { foo => 24, bar => 42 },
- );
-%hash2 = ( foo => 23,
- bar => [qw(this tha whatever)],
- har => { foo => 24, bar => 42 },
- );
-
-ok( !eq_hash(\%hash1, \%hash2),
- 'eq_hash with slightly different complicated hashes' );
-is @Test::More::Data_Stack, 0;
-
-is( Test::Builder->new, Test::More->builder, 'builder()' );
-
-
-cmp_ok(42, '==', 42, 'cmp_ok ==');
-cmp_ok('foo', 'eq', 'foo', ' eq');
-cmp_ok(42.5, '<', 42.6, ' <');
-cmp_ok(0, '||', 1, ' ||');
-
-
-# Piers pointed out sometimes people override isa().
-{
- package Wibble;
- sub isa {
- my($self, $class) = @_;
- return 1 if $class eq 'Wibblemeister';
- }
- sub new { bless {} }
-}
-isa_ok( Wibble->new, 'Wibblemeister' );
-
-my $sub = sub {};
-is_deeply( $sub, $sub, 'the same function ref' );
-
-use Symbol;
-my $glob = gensym;
-is_deeply( $glob, $glob, 'the same glob' );
-
-is_deeply( { foo => $sub, bar => [1, $glob] },
- { foo => $sub, bar => [1, $glob] }
- );
-
-# These two tests must remain at the end.
-is( $@, $Err, '$@ untouched' );
-cmp_ok( $!, '==', $Errno, '$! untouched' );
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/Tester/tbt_01basic.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/Tester/tbt_01basic.t
deleted file mode 100644
index 769a1c4..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/Tester/tbt_01basic.t
+++ /dev/null
@@ -1,55 +0,0 @@
-#!/usr/bin/perl
-
-use Test::Builder::Tester tests => 9;
-use Test::More;
-
-ok(1,"This is a basic test");
-
-test_out("ok 1 - tested");
-ok(1,"tested");
-test_test("captured okay on basic");
-
-test_out("ok 1 - tested");
-ok(1,"tested");
-test_test("captured okay again without changing number");
-
-ok(1,"test unrelated to Test::Builder::Tester");
-
-test_out("ok 1 - one");
-test_out("ok 2 - two");
-ok(1,"one");
-ok(2,"two");
-test_test("multiple tests");
-
-test_out("not ok 1 - should fail");
-test_err("# Failed test ($0 at line 28)");
-test_err("# got: 'foo'");
-test_err("# expected: 'bar'");
-is("foo","bar","should fail");
-test_test("testing failing");
-
-
-test_out("not ok 1");
-test_out("not ok 2");
-test_fail(+2);
-test_fail(+1);
-fail(); fail();
-test_test("testing failing on the same line with no name");
-
-
-test_out("not ok 1 - name");
-test_out("not ok 2 - name");
-test_fail(+2);
-test_fail(+1);
-fail("name"); fail("name");
-test_test("testing failing on the same line with the same name");
-
-
-test_out("not ok 1 - name # TODO Something");
-test_err("# Failed (TODO) test ($0 at line 52)");
-TODO: {
- local $TODO = "Something";
- fail("name");
-}
-test_test("testing failing with todo");
-
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/Tester/tbt_03die.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/Tester/tbt_03die.t
deleted file mode 100644
index b9dba80..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/Tester/tbt_03die.t
+++ /dev/null
@@ -1,12 +0,0 @@
-#!/usr/bin/perl
-
-use Test::Builder::Tester tests => 1;
-use Test::More;
-
-eval {
- test_test("foo");
-};
-like($@,
- "/Not testing\. You must declare output with a test function first\./",
- "dies correctly on error");
-
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/Tester/tbt_04line_num.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/Tester/tbt_04line_num.t
deleted file mode 100644
index 9e8365a..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/Tester/tbt_04line_num.t
+++ /dev/null
@@ -1,8 +0,0 @@
-#!/usr/bin/perl
-
-use Test::More tests => 3;
-use Test::Builder::Tester;
-
-is(line_num(),6,"normal line num");
-is(line_num(-1),6,"line number minus one");
-is(line_num(+2),10,"line number plus two");
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/Tester/tbt_05faildiag.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/Tester/tbt_05faildiag.t
deleted file mode 100644
index 59ad721..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/Tester/tbt_05faildiag.t
+++ /dev/null
@@ -1,44 +0,0 @@
-#!/usr/bin/perl
-
-use Test::Builder::Tester tests => 5;
-use Test::More;
-
-# test_fail
-
-test_out("not ok 1 - one");
-test_fail(+1);
-ok(0,"one");
-
-test_out("not ok 2 - two");
-test_fail(+2);
-
-ok(0,"two");
-
-test_test("test fail");
-
-test_fail(+2);
-test_out("not ok 1 - one");
-ok(0,"one");
-test_test("test_fail first");
-
-# test_diag
-
-use Test::Builder;
-my $test = new Test::Builder;
-
-test_diag("this is a test string","so is this");
-$test->diag("this is a test string\n", "so is this\n");
-test_test("test diag");
-
-test_diag("this is a test string","so is this");
-$test->diag("this is a test string\n");
-$test->diag("so is this\n");
-test_test("test diag multi line");
-
-test_diag("this is a test string");
-test_diag("so is this");
-$test->diag("this is a test string\n");
-$test->diag("so is this\n");
-test_test("test diag multiple");
-
-
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/Tester/tbt_07args.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/Tester/tbt_07args.t
deleted file mode 100644
index 1b9393b..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/Tester/tbt_07args.t
+++ /dev/null
@@ -1,215 +0,0 @@
-#!/usr/bin/perl -w
-
-use Test::More tests => 18;
-use Symbol;
-use Test::Builder;
-use Test::Builder::Tester;
-
-use strict;
-
-# argh! now we need to test the thing we're testing. Basically we need
-# to pretty much reimplement the whole code again. This is very
-# annoying but can't be avoided. And onwards with the cut and paste
-
-# My brain is melting. My brain is melting. ETOOMANYLAYERSOFTESTING
-
-# 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";
-
-# ooooh, use the test suite
-my $t = Test::Builder->new;
-
-# remember the testing outputs
-my $original_output_handle;
-my $original_failure_handle;
-my $original_todo_handle;
-my $testing_num;
-my $original_harness_env;
-
-sub start_testing
-{
- # remember what the handles were set to
- $original_output_handle = $t->output();
- $original_failure_handle = $t->failure_output();
- $original_todo_handle = $t->todo_output();
- $original_harness_env = $ENV{HARNESS_ACTIVE};
-
- # switch out to our own handles
- $t->output($output_handle);
- $t->failure_output($error_handle);
- $t->todo_output($error_handle);
-
- $ENV{HARNESS_ACTIVE} = 0;
-
- # clear the expected list
- $out->reset();
- $err->reset();
-
- # remeber that we're testing
- $testing_num = $t->current_test;
- $t->current_test(0);
-}
-
-# each test test is actually two tests. This is bad and wrong
-# but makes blood come out of my ears if I don't at least simplify
-# it a little this way
-
-sub my_test_test
-{
- my $text = shift;
- local $^W = 0;
-
- # reset the outputs
- $t->output($original_output_handle);
- $t->failure_output($original_failure_handle);
- $t->todo_output($original_todo_handle);
- $ENV{HARNESS_ACTIVE} = $original_harness_env;
-
- # reset the number of tests
- $t->current_test($testing_num);
-
- # check we got the same values
- my $got;
- my $wanted;
-
- # stdout
- $t->ok($out->check, "STDOUT $text");
-
- # stderr
- $t->ok($err->check, "STDERR $text");
-}
-
-####################################################################
-# Meta meta tests
-####################################################################
-
-# this is a quick test to check the hack that I've just implemented
-# actually does a cut down version of Test::Builder::Tester
-
-start_testing();
-$out->expect("ok 1 - foo");
-pass("foo");
-my_test_test("basic meta meta test");
-
-start_testing();
-$out->expect("not ok 1 - foo");
-$err->expect("# Failed test ($0 at line ".line_num(+1).")");
-fail("foo");
-my_test_test("basic meta meta test 2");
-
-start_testing();
-$out->expect("ok 1 - bar");
-test_out("ok 1 - foo");
-pass("foo");
-test_test("bar");
-my_test_test("meta meta test with tbt");
-
-start_testing();
-$out->expect("ok 1 - bar");
-test_out("not ok 1 - foo");
-test_err("# Failed test ($0 at line ".line_num(+1).")");
-fail("foo");
-test_test("bar");
-my_test_test("meta meta test with tbt2 ");
-
-####################################################################
-# Actual meta tests
-####################################################################
-
-# set up the outer wrapper again
-start_testing();
-$out->expect("ok 1 - bar");
-
-# set up what the inner wrapper expects
-test_out("ok 1 - foo");
-
-# the actual test function that we are testing
-ok("1","foo");
-
-# test the name
-test_test(name => "bar");
-
-# check that passed
-my_test_test("meta test name");
-
-####################################################################
-
-# set up the outer wrapper again
-start_testing();
-$out->expect("ok 1 - bar");
-
-# set up what the inner wrapper expects
-test_out("ok 1 - foo");
-
-# the actual test function that we are testing
-ok("1","foo");
-
-# test the name
-test_test(title => "bar");
-
-# check that passed
-my_test_test("meta test title");
-
-####################################################################
-
-# set up the outer wrapper again
-start_testing();
-$out->expect("ok 1 - bar");
-
-# set up what the inner wrapper expects
-test_out("ok 1 - foo");
-
-# the actual test function that we are testing
-ok("1","foo");
-
-# test the name
-test_test(label => "bar");
-
-# check that passed
-my_test_test("meta test title");
-
-####################################################################
-
-# set up the outer wrapper again
-start_testing();
-$out->expect("ok 1 - bar");
-
-# set up what the inner wrapper expects
-test_out("not ok 1 - foo this is wrong");
-test_fail(+3);
-
-# the actual test function that we are testing
-ok("0","foo");
-
-# test that we got what we expect, ignoring our is wrong
-test_test(skip_out => 1, name => "bar");
-
-# check that that passed
-my_test_test("meta test skip_out");
-
-####################################################################
-
-# set up the outer wrapper again
-start_testing();
-$out->expect("ok 1 - bar");
-
-# set up what the inner wrapper expects
-test_out("not ok 1 - foo");
-test_err("this is wrong");
-
-# the actual test function that we are testing
-ok("0","foo");
-
-# test that we got what we expect, ignoring err is wrong
-test_test(skip_err => 1, name => "bar");
-
-# diagnostics failing out
-# check that that passed
-my_test_test("meta test skip_err");
-
-####################################################################
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/bad_plan.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/bad_plan.t
deleted file mode 100644
index 80e0e65..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/bad_plan.t
+++ /dev/null
@@ -1,23 +0,0 @@
-#!/usr/bin/perl -w
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-use Test::Builder;
-my $Test = Test::Builder->new;
-$Test->plan( tests => 2 );
-$Test->level(0);
-
-my $tb = Test::Builder->create;
-
-eval { $tb->plan(7); };
-$Test->like( $@, qr/^plan\(\) doesn't understand 7/, 'bad plan()' ) ||
- print STDERR "# $@";
-
-eval { $tb->plan(wibble => 7); };
-$Test->like( $@, qr/^plan\(\) doesn't understand wibble 7/, 'bad plan()' ) ||
- print STDERR "# $@";
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/c_flag.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/c_flag.t
deleted file mode 100644
index a339634..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/c_flag.t
+++ /dev/null
@@ -1,21 +0,0 @@
-#!/usr/bin/perl -w
-
-# Test::More should not print anything when Perl is only doing
-# a compile as with the -c flag or B::Deparse or perlcc.
-
-# HARNESS_ACTIVE=1 was causing an error with -c
-{
- local $ENV{HARNESS_ACTIVE} = 1;
- local $^C = 1;
-
- require Test::More;
- Test::More->import(tests => 1);
-
- fail("This should not show up");
-}
-
-Test::More->builder->no_ending(1);
-
-print "1..1\n";
-print "ok 1\n";
-
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/diag.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/diag.t
deleted file mode 100644
index f5cb437..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/diag.t
+++ /dev/null
@@ -1,81 +0,0 @@
-#!perl -w
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ('../lib', 'lib');
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-
-
-# Turn on threads here, if available, since this test tends to find
-# lots of threading bugs.
-use Config;
-BEGIN {
- if( $] >= 5.008001 && $Config{useithreads} ) {
- require threads;
- 'threads'->import;
- }
-}
-
-
-use strict;
-
-use Test::Builder::NoOutput;
-use Test::More tests => 7;
-
-my $test = Test::Builder::NoOutput->create;
-
-# Test diag() goes to todo_output() in a todo test.
-{
- $test->todo_start();
-
- $test->diag("a single line");
- is( $test->read('todo'), <<'DIAG', 'diag() with todo_output set' );
-# a single line
-DIAG
-
- my $ret = $test->diag("multiple\n", "lines");
- is( $test->read('todo'), <<'DIAG', ' multi line' );
-# multiple
-# lines
-DIAG
- ok( !$ret, 'diag returns false' );
-
- $test->todo_end();
-}
-
-
-# Test diagnostic formatting
-{
- $test->diag("# foo");
- is( $test->read('err'), "# # foo\n", "diag() adds # even if there's one already" );
-
- $test->diag("foo\n\nbar");
- is( $test->read('err'), <<'DIAG', " blank lines get escaped" );
-# foo
-#
-# bar
-DIAG
-
- $test->diag("foo\n\nbar\n\n");
- is( $test->read('err'), <<'DIAG', " even at the end" );
-# foo
-#
-# bar
-#
-DIAG
-}
-
-
-# [rt.cpan.org 8392] diag(@list) emulates print
-{
- $test->diag(qw(one two));
-
- is( $test->read('err'), <<'DIAG' );
-# onetwo
-DIAG
-}
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/died.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/died.t
deleted file mode 100644
index b4ee2fb..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/died.t
+++ /dev/null
@@ -1,45 +0,0 @@
-#!perl -w
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-# Can't use Test.pm, that's a 5.005 thing.
-package My::Test;
-
-# This has to be a require or else the END block below runs before
-# Test::Builder's own and the ending diagnostics don't come out right.
-require Test::Builder;
-my $TB = Test::Builder->create;
-$TB->plan(tests => 3);
-
-
-package main;
-
-require Test::Simple;
-
-chdir 't';
-push @INC, '../t/lib/';
-require Test::Simple::Catch;
-my($out, $err) = Test::Simple::Catch::caught();
-local $ENV{HARNESS_ACTIVE} = 0;
-
-Test::Simple->import(tests => 1);
-exit 250;
-
-END {
- $TB->is_eq($out->read, <<OUT);
-1..1
-OUT
-
- $TB->is_eq($err->read, <<ERR);
-# Looks like your test exited with 250 before it could output anything.
-ERR
-
- $TB->is_eq($?, 250, "exit code");
-
- exit grep { !$_ } $TB->summary;
-}
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/extra.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/extra.t
deleted file mode 100644
index 57235be..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/extra.t
+++ /dev/null
@@ -1,59 +0,0 @@
-#!perl -w
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-# Can't use Test.pm, that's a 5.005 thing.
-package My::Test;
-
-# This has to be a require or else the END block below runs before
-# Test::Builder's own and the ending diagnostics don't come out right.
-require Test::Builder;
-my $TB = Test::Builder->create;
-$TB->plan(tests => 2);
-
-
-package main;
-
-require Test::Simple;
-
-chdir 't';
-push @INC, '../t/lib/';
-require Test::Simple::Catch;
-my($out, $err) = Test::Simple::Catch::caught();
-local $ENV{HARNESS_ACTIVE} = 0;
-
-Test::Simple->import(tests => 3);
-
-#line 30
-ok(1, 'Foo');
-ok(0, 'Bar');
-ok(1, 'Yar');
-ok(1, 'Car');
-ok(0, 'Sar');
-
-END {
- $TB->is_eq($$out, <<OUT);
-1..3
-ok 1 - Foo
-not ok 2 - Bar
-ok 3 - Yar
-ok 4 - Car
-not ok 5 - Sar
-OUT
-
- $TB->is_eq($$err, <<ERR);
-# Failed test 'Bar'
-# at $0 line 31.
-# Failed test 'Sar'
-# at $0 line 34.
-# Looks like you planned 3 tests but ran 5.
-# Looks like you failed 2 tests of 5 run.
-ERR
-
- exit 0;
-}
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/import.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/import.t
deleted file mode 100644
index 68a3613..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/import.t
+++ /dev/null
@@ -1,12 +0,0 @@
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-
-use Test::More tests => 2, import => [qw(!fail)];
-
-can_ok(__PACKAGE__, qw(ok pass like isa_ok));
-ok( !__PACKAGE__->can('fail'), 'fail() not exported' );
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/is_deeply_dne_bug.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/is_deeply_dne_bug.t
deleted file mode 100644
index f4578a6..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/is_deeply_dne_bug.t
+++ /dev/null
@@ -1,47 +0,0 @@
-#!/usr/bin/perl -w
-
-# test for rt.cpan.org 20768
-#
-# There was a bug where the internal "does not exist" object could get
-# confused with an overloaded object.
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ('../lib', 'lib');
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-
-use strict;
-use Test::More tests => 2;
-
-{
- package Foo;
-
- use overload
- 'eq' => \&overload_equiv,
- '==' => \&overload_equiv;
-
- sub new {
- return bless {}, shift;
- }
-
- sub overload_equiv {
- if (ref($_[0]) ne 'Foo' || ref($_[1]) ne 'Foo') {
- print ref($_[0]), " ", ref($_[1]), "\n";
- die "Invalid object passed to overload_equiv\n";
- }
-
- return 1; # change to 0 ... makes little difference
- }
-}
-
-my $obj1 = Foo->new();
-my $obj2 = Foo->new();
-
-eval { is_deeply([$obj1, $obj2], [$obj1, $obj2]); };
-is $@, '';
-
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/is_deeply_with_threads.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/is_deeply_with_threads.t
deleted file mode 100644
index 9908ef6..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/is_deeply_with_threads.t
+++ /dev/null
@@ -1,65 +0,0 @@
-#!/usr/bin/perl -w
-
-# Test to see if is_deeply() plays well with threads.
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ('../lib', 'lib');
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-
-use strict;
-use Config;
-
-BEGIN {
- unless ( $] >= 5.008001 && $Config{'useithreads'} &&
- eval { require threads; 'threads'->import; 1; })
- {
- print "1..0 # Skip no working threads\n";
- exit 0;
- }
-
- unless ( $ENV{AUTHOR_TESTING} ) {
- print "1..0 # Skip many perls have broken threads. Enable with AUTHOR_TESTING.\n";
- exit 0;
- }
-}
-use Test::More;
-
-my $Num_Threads = 5;
-
-plan tests => $Num_Threads * 100 + 6;
-
-
-sub do_one_thread {
- my $kid = shift;
- my @list = ( 'x', 'yy', 'zzz', 'a', 'bb', 'ccc', 'aaaaa', 'z',
- 'hello', 's', 'thisisalongname', '1', '2', '3',
- 'abc', 'xyz', '1234567890', 'm', 'n', 'p' );
- my @list2 = @list;
- print "# kid $kid before is_deeply\n";
-
- for my $j (1..100) {
- is_deeply(\@list, \@list2);
- }
- print "# kid $kid exit\n";
- return 42;
-}
-
-my @kids = ();
-for my $i (1..$Num_Threads) {
- my $t = threads->new(\&do_one_thread, $i);
- print "# parent $$: continue\n";
- push(@kids, $t);
-}
-for my $t (@kids) {
- print "# parent $$: waiting for join\n";
- my $rc = $t->join();
- cmp_ok( $rc, '==', 42, "threads exit status is $rc" );
-}
-
-pass("End of test");
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Dev/Null.pm b/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Dev/Null.pm
deleted file mode 100644
index 24ec07a..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Dev/Null.pm
+++ /dev/null
@@ -1,8 +0,0 @@
-package Dev::Null;
-
-use strict;
-
-sub TIEHANDLE { bless {}, shift }
-sub PRINT { 1 }
-
-1;
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/NoExporter.pm b/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/NoExporter.pm
deleted file mode 100644
index 6273e32..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/NoExporter.pm
+++ /dev/null
@@ -1,12 +0,0 @@
-package NoExporter;
-
-use strict;
-our $VERSION = 1.02;
-
-sub import {
- shift;
- die "NoExporter exports nothing. You asked for: @_" if @_;
-}
-
-1;
-
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/SigDie.pm b/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/SigDie.pm
deleted file mode 100644
index 0774728..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/SigDie.pm
+++ /dev/null
@@ -1,8 +0,0 @@
-package SigDie;
-
-use strict;
-
-our $DIE;
-$SIG{__DIE__} = sub { $DIE = $@ };
-
-1;
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Test/Builder/NoOutput.pm b/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Test/Builder/NoOutput.pm
deleted file mode 100644
index d83db9f..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Test/Builder/NoOutput.pm
+++ /dev/null
@@ -1,122 +0,0 @@
-package Test::Builder::NoOutput;
-
-use strict;
-use warnings;
-
-use base qw(Test::Builder);
-
-
-=head1 NAME
-
-Test::Builder::NoOutput - A subclass of Test::Builder which prints nothing
-
-=head1 SYNOPSIS
-
- use Test::Builder::NoOutput;
-
- my $tb = Test::Builder::NoOutput->new;
-
- ...test as normal...
-
- my $output = $tb->read;
-
-=head1 DESCRIPTION
-
-This is a subclass of Test::Builder which traps all its output.
-It is mostly useful for testing Test::Builder.
-
-=head3 read
-
- my $all_output = $tb->read;
- my $output = $tb->read($stream);
-
-Returns all the output (including failure and todo output) collected
-so far. It is destructive, each call to read clears the output
-buffer.
-
-If $stream is given it will return just the output from that stream.
-$stream's are...
-
- out output()
- err failure_output()
- todo todo_output()
- all all outputs
-
-Defaults to 'all'.
-
-=cut
-
-my $Test = __PACKAGE__->new;
-
-sub create {
- my $class = shift;
- my $self = $class->SUPER::create(@_);
-
- my %outputs = (
- all => '',
- out => '',
- err => '',
- todo => '',
- );
- $self->{_outputs} = \%outputs;
-
- tie *OUT, "Test::Builder::NoOutput::Tee", \$outputs{all}, \$outputs{out};
- tie *ERR, "Test::Builder::NoOutput::Tee", \$outputs{all}, \$outputs{err};
- tie *TODO, "Test::Builder::NoOutput::Tee", \$outputs{all}, \$outputs{todo};
-
- $self->output(*OUT);
- $self->failure_output(*ERR);
- $self->todo_output(*TODO);
-
- return $self;
-}
-
-sub read {
- my $self = shift;
- my $stream = @_ ? shift : 'all';
-
- my $out = $self->{_outputs}{$stream};
-
- $self->{_outputs}{$stream} = '';
-
- # Clear all the streams if 'all' is read.
- if( $stream eq 'all' ) {
- my @keys = keys %{$self->{_outputs}};
- $self->{_outputs}{$_} = '' for @keys;
- }
-
- return $out;
-}
-
-
-package Test::Builder::NoOutput::Tee;
-
-# A cheap implementation of IO::Tee.
-
-sub TIEHANDLE {
- my($class, @refs) = @_;
-
- my @fhs;
- for my $ref (@refs) {
- my $fh = Test::Builder->_new_fh($ref);
- push @fhs, $fh;
- }
-
- my $self = [@fhs];
- return bless $self, $class;
-}
-
-sub PRINT {
- my $self = shift;
-
- print $_ @_ for @$self;
-}
-
-sub PRINTF {
- my $self = shift;
- my $format = shift;
-
- printf $_ @_ for @$self;
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Test/Simple/sample_tests/death_in_eval.plx b/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Test/Simple/sample_tests/death_in_eval.plx
deleted file mode 100644
index 269bffa..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Test/Simple/sample_tests/death_in_eval.plx
+++ /dev/null
@@ -1,22 +0,0 @@
-require Test::Simple;
-use Carp;
-
-push @INC, 't/lib';
-require Test::Simple::Catch;
-my($out, $err) = Test::Simple::Catch::caught();
-
-Test::Simple->import(tests => 5);
-
-ok(1);
-ok(1);
-ok(1);
-eval {
- die "Foo";
-};
-ok(1);
-eval "die 'Bar'";
-ok(1);
-
-eval {
- croak "Moo";
-};
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Test/Simple/sample_tests/exit.plx b/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Test/Simple/sample_tests/exit.plx
deleted file mode 100644
index 7f8ff73..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Test/Simple/sample_tests/exit.plx
+++ /dev/null
@@ -1,3 +0,0 @@
-require Test::Builder;
-
-exit 1;
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Test/Simple/sample_tests/extras.plx b/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Test/Simple/sample_tests/extras.plx
deleted file mode 100644
index c9c8952..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Test/Simple/sample_tests/extras.plx
+++ /dev/null
@@ -1,16 +0,0 @@
-require Test::Simple;
-
-push @INC, 't/lib';
-require Test::Simple::Catch;
-my($out, $err) = Test::Simple::Catch::caught();
-
-Test::Simple->import(tests => 5);
-
-
-ok(1);
-ok(1);
-ok(1);
-ok(1);
-ok(0);
-ok(1);
-ok(0);
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Test/Simple/sample_tests/last_minute_death.plx b/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Test/Simple/sample_tests/last_minute_death.plx
deleted file mode 100644
index e3d01be..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Test/Simple/sample_tests/last_minute_death.plx
+++ /dev/null
@@ -1,19 +0,0 @@
-require Test::Simple;
-
-push @INC, 't/lib';
-require Test::Simple::Catch;
-my($out, $err) = Test::Simple::Catch::caught();
-
-Test::Simple->import(tests => 5);
-
-require Dev::Null;
-tie *STDERR, 'Dev::Null';
-
-ok(1);
-ok(1);
-ok(1);
-ok(1);
-ok(1);
-
-$! = 0;
-die "This is a test";
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Test/Simple/sample_tests/two_fail.plx b/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Test/Simple/sample_tests/two_fail.plx
deleted file mode 100644
index e3d9229..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/lib/Test/Simple/sample_tests/two_fail.plx
+++ /dev/null
@@ -1,14 +0,0 @@
-require Test::Simple;
-
-push @INC, 't/lib';
-require Test::Simple::Catch;
-my($out, $err) = Test::Simple::Catch::caught();
-
-Test::Simple->import(tests => 5);
-
-
-ok(0);
-ok(1);
-ok(1);
-ok(0);
-ok(1);
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/missing.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/missing.t
deleted file mode 100644
index 3996b6d..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/missing.t
+++ /dev/null
@@ -1,56 +0,0 @@
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ('../lib', 'lib');
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-
-# Can't use Test.pm, that's a 5.005 thing.
-package My::Test;
-
-# This has to be a require or else the END block below runs before
-# Test::Builder's own and the ending diagnostics don't come out right.
-require Test::Builder;
-my $TB = Test::Builder->create;
-$TB->plan(tests => 2);
-
-sub is { $TB->is_eq(@_) }
-
-
-package main;
-
-require Test::Simple;
-
-require Test::Simple::Catch;
-my($out, $err) = Test::Simple::Catch::caught();
-local $ENV{HARNESS_ACTIVE} = 0;
-
-Test::Simple->import(tests => 5);
-
-#line 30
-ok(1, 'Foo');
-ok(0, 'Bar');
-ok(1, '1 2 3');
-
-END {
- My::Test::is($$out, <<OUT);
-1..5
-ok 1 - Foo
-not ok 2 - Bar
-ok 3 - 1 2 3
-OUT
-
- My::Test::is($$err, <<ERR);
-# Failed test 'Bar'
-# at $0 line 31.
-# You named your test '1 2 3'. You shouldn't use numbers for your test names.
-# Very confusing.
-# Looks like you planned 5 tests but ran 3.
-# Looks like you failed 1 test of 3 run.
-ERR
-
- exit 0;
-}
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/new_ok.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/new_ok.t
deleted file mode 100644
index d53f535..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/new_ok.t
+++ /dev/null
@@ -1,42 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-
-use Test::More tests => 13;
-
-{
- package Bar;
-
- sub new {
- my $class = shift;
- return bless {@_}, $class;
- }
-
-
- package Foo;
- our @ISA = qw(Bar);
-}
-
-{
- my $obj = new_ok("Foo");
- is_deeply $obj, {};
- isa_ok $obj, "Foo";
-
- $obj = new_ok("Bar");
- is_deeply $obj, {};
- isa_ok $obj, "Bar";
-
- $obj = new_ok("Foo", [this => 42]);
- is_deeply $obj, { this => 42 };
- isa_ok $obj, "Foo";
-
- $obj = new_ok("Foo", [], "Foo");
- is_deeply $obj, {};
- isa_ok $obj, "Foo";
-}
-
-# And what if we give it nothing?
-eval {
- new_ok();
-};
-is $@, sprintf "new_ok() must be given at least a class at %s line %d.\n", $0, __LINE__ - 2;
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/no_plan.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/no_plan.t
deleted file mode 100644
index 5f392e4..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/no_plan.t
+++ /dev/null
@@ -1,33 +0,0 @@
-#!/usr/bin/perl -w
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ('../lib', 'lib');
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-
-use Test::More tests => 7;
-
-my $tb = Test::Builder->create;
-
-#line 20
-ok !eval { $tb->plan(tests => undef) };
-is($@, "Got an undefined number of tests at $0 line 20.\n");
-
-#line 24
-ok !eval { $tb->plan(tests => 0) };
-is($@, "You said to run 0 tests at $0 line 24.\n");
-
-{
- my $warning = '';
- local $SIG{__WARN__} = sub { $warning .= join '', @_ };
-
-#line 31
- ok $tb->plan(no_plan => 1);
- is( $warning, "no_plan takes no arguments at $0 line 31.\n" );
- is $tb->has_plan, 'no_plan';
-}
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/no_tests.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/no_tests.t
deleted file mode 100644
index eafa38c..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/no_tests.t
+++ /dev/null
@@ -1,44 +0,0 @@
-#!perl -w
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-# Can't use Test.pm, that's a 5.005 thing.
-package My::Test;
-
-# This has to be a require or else the END block below runs before
-# Test::Builder's own and the ending diagnostics don't come out right.
-require Test::Builder;
-my $TB = Test::Builder->create;
-$TB->plan(tests => 3);
-
-
-package main;
-
-require Test::Simple;
-
-chdir 't';
-push @INC, '../t/lib/';
-require Test::Simple::Catch;
-my($out, $err) = Test::Simple::Catch::caught();
-local $ENV{HARNESS_ACTIVE} = 0;
-
-Test::Simple->import(tests => 1);
-
-END {
- $TB->is_eq($out->read, <<OUT);
-1..1
-OUT
-
- $TB->is_eq($err->read, <<ERR);
-# No tests run!
-ERR
-
- $TB->is_eq($?, 255, "exit code");
-
- exit grep { !$_ } $TB->summary;
-}
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/overload.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/overload.t
deleted file mode 100644
index a861037..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/overload.t
+++ /dev/null
@@ -1,86 +0,0 @@
-#!/usr/bin/perl -w
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ('../lib', 'lib');
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-
-use strict;
-use Test::More tests => 19;
-
-
-package Overloaded;
-
-use overload
- q{eq} => sub { $_[0]->{string} eq $_[1] },
- q{==} => sub { $_[0]->{num} == $_[1] },
- q{""} => sub { $_[0]->{stringify}++; $_[0]->{string} },
- q{0+} => sub { $_[0]->{numify}++; $_[0]->{num} }
-;
-
-sub new {
- my $class = shift;
- bless {
- string => shift,
- num => shift,
- stringify => 0,
- numify => 0,
- }, $class;
-}
-
-
-package main;
-
-local $SIG{__DIE__} = sub {
- my($call_file, $call_line) = (caller)[1,2];
- fail("SIGDIE accidentally called");
- diag("From $call_file at $call_line");
-};
-
-my $obj = Overloaded->new('foo', 42);
-isa_ok $obj, 'Overloaded';
-
-cmp_ok $obj, 'eq', 'foo', 'cmp_ok() eq';
-is $obj->{stringify}, 0, ' does not stringify';
-is $obj, 'foo', 'is() with string overloading';
-cmp_ok $obj, '==', 42, 'cmp_ok() with number overloading';
-is $obj->{numify}, 0, ' does not numify';
-
-is_deeply [$obj], ['foo'], 'is_deeply with string overloading';
-ok eq_array([$obj], ['foo']), 'eq_array ...';
-ok eq_hash({foo => $obj}, {foo => 'foo'}), 'eq_hash ...';
-
-# rt.cpan.org 13506
-is_deeply $obj, 'foo', 'is_deeply with string overloading at the top';
-
-Test::More->builder->is_num($obj, 42);
-Test::More->builder->is_eq ($obj, "foo");
-
-
-{
- # rt.cpan.org 14675
- package TestPackage;
- use overload q{""} => sub { ::fail("This should not be called") };
-
- package Foo;
- ::is_deeply(['TestPackage'], ['TestPackage']);
- ::is_deeply({'TestPackage' => 'TestPackage'},
- {'TestPackage' => 'TestPackage'});
- ::is_deeply('TestPackage', 'TestPackage');
-}
-
-
-# Make sure 0 isn't a special case. [rt.cpan.org 41109]
-{
- my $obj = Overloaded->new('0', 42);
- isa_ok $obj, 'Overloaded';
-
- cmp_ok $obj, 'eq', '0', 'cmp_ok() eq';
- is $obj->{stringify}, 0, ' does not stringify';
- is $obj, '0', 'is() with string overloading';
-}
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/overload_threads.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/overload_threads.t
deleted file mode 100644
index 379e347..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/overload_threads.t
+++ /dev/null
@@ -1,60 +0,0 @@
-#!perl -w
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ('../lib', 'lib');
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-chdir 't';
-
-BEGIN {
- # There was a bug with overloaded objects and threads.
- # See rt.cpan.org 4218
- eval { require threads; 'threads'->import; 1; };
-}
-
-use Test::More tests => 5;
-
-
-package Overloaded;
-
-use overload
- q{""} => sub { $_[0]->{string} };
-
-sub new {
- my $class = shift;
- bless { string => shift }, $class;
-}
-
-
-package main;
-
-my $warnings = '';
-local $SIG{__WARN__} = sub { $warnings = join '', @_ };
-
-# overloaded object as name
-my $obj = Overloaded->new('foo');
-ok( 1, $obj );
-
-# overloaded object which returns undef as name
-my $undef = Overloaded->new(undef);
-pass( $undef );
-
-is( $warnings, '' );
-
-
-TODO: {
- my $obj = Overloaded->new('not really todo, testing overloaded reason');
- local $TODO = $obj;
- fail("Just checking todo as an overloaded value");
-}
-
-
-SKIP: {
- my $obj = Overloaded->new('not really skipped, testing overloaded reason');
- skip $obj, 1;
-}
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/plan_no_plan.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/plan_no_plan.t
deleted file mode 100644
index 3111592..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/plan_no_plan.t
+++ /dev/null
@@ -1,40 +0,0 @@
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-use Test::More;
-
-BEGIN {
- if( !$ENV{HARNESS_ACTIVE} && $ENV{PERL_CORE} ) {
- plan skip_all => "Won't work with t/TEST";
- }
-}
-
-plan 'no_plan';
-
-pass('Just testing');
-ok(1, 'Testing again');
-
-{
- my $warning = '';
- local $SIG{__WARN__} = sub { $warning = join "", @_ };
- SKIP: {
- skip 'Just testing skip with no_plan';
- fail("So very failed");
- }
- is( $warning, '', 'skip with no "how_many" ok with no_plan' );
-
-
- $warning = '';
- TODO: {
- todo_skip "Just testing todo_skip";
-
- fail("Just testing todo");
- die "todo_skip should prevent this";
- pass("Again");
- }
- is( $warning, '', 'skip with no "how_many" ok with no_plan' );
-}
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/plan_shouldnt_import.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/plan_shouldnt_import.t
deleted file mode 100644
index b6eb064..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/plan_shouldnt_import.t
+++ /dev/null
@@ -1,16 +0,0 @@
-#!/usr/bin/perl -w
-
-# plan() used to export functions by mistake [rt.cpan.org 8385]
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-
-use Test::More ();
-Test::More::plan(tests => 1);
-
-Test::More::ok( !__PACKAGE__->can('ok'), 'plan should not export' );
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/plan_skip_all.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/plan_skip_all.t
deleted file mode 100644
index 528df5f..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/plan_skip_all.t
+++ /dev/null
@@ -1,12 +0,0 @@
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-use Test::More;
-
-plan skip_all => 'Just testing plan & skip_all';
-
-fail('We should never get here');
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/pod-coverage.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/pod-coverage.t
deleted file mode 100644
index 8794272..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/pod-coverage.t
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/bin/perl -w
-
-use Test::More;
-
-# 1.08 added the coverage_class option.
-eval "use Test::Pod::Coverage 1.08";
-plan skip_all => "Test::Pod::Coverage 1.08 required for testing POD coverage" if $@;
-eval "use Pod::Coverage::CountParents";
-plan skip_all => "Pod::Coverage::CountParents required for testing POD coverage" if $@;
-
-my @modules = Test::Pod::Coverage::all_modules();
-plan tests => scalar @modules;
-
-my %coverage_params = (
- "Test::Builder" => {
- also_private => [ '^(share|lock|BAILOUT)$' ]
- },
- "Test::More" => {
- trustme => [ '^(skip|todo)$' ]
- },
-);
-
-for my $module (@modules) {
- pod_coverage_ok( $module, { coverage_class => 'Pod::Coverage::CountParents',
- %{$coverage_params{$module} || {}} }
- );
-}
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/pod.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/pod.t
deleted file mode 100644
index 3c931f9..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/pod.t
+++ /dev/null
@@ -1,6 +0,0 @@
-#!/usr/bin/perl -w
-
-use Test::More;
-eval "use Test::Pod 1.00";
-plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
-all_pod_files_ok();
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/subtest/args.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/subtest/args.t
deleted file mode 100644
index 5271323..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/subtest/args.t
+++ /dev/null
@@ -1,14 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use Test::Builder;
-
-my $tb = Test::Builder->new;
-
-$tb->ok( !eval { $tb->subtest() } );
-$tb->like( $@, qr/^\Qsubtest()'s second argument must be a code ref/ );
-
-$tb->ok( !eval { $tb->subtest("foo") } );
-$tb->like( $@, qr/^\Qsubtest()'s second argument must be a code ref/ );
-
-$tb->done_testing();
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/subtest/basic.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/subtest/basic.t
deleted file mode 100644
index b9846be..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/subtest/basic.t
+++ /dev/null
@@ -1,235 +0,0 @@
-#!/usr/bin/perl -w
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ( '../lib', 'lib' );
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-
-use strict;
-use warnings;
-
-use Test::Builder::NoOutput;
-
-use Test::More tests => 23;
-
-# Formatting may change if we're running under Test::Harness.
-$ENV{HARNESS_ACTIVE} = 0;
-
-{
- my $tb = Test::Builder::NoOutput->create;
-
- $tb->plan( tests => 7 );
- for( 1 .. 3 ) {
- $tb->ok( $_, "We're on $_" );
- $tb->diag("We ran $_");
- }
- {
- my $indented = $tb->child;
- $indented->plan('no_plan');
- $indented->ok( 1, "We're on 1" );
- $indented->ok( 1, "We're on 2" );
- $indented->ok( 1, "We're on 3" );
- $indented->finalize;
- }
- for( 7, 8, 9 ) {
- $tb->ok( $_, "We're on $_" );
- }
-
- $tb->reset_outputs;
- is $tb->read, <<"END", 'Output should nest properly';
-1..7
-ok 1 - We're on 1
-# We ran 1
-ok 2 - We're on 2
-# We ran 2
-ok 3 - We're on 3
-# We ran 3
- ok 1 - We're on 1
- ok 2 - We're on 2
- ok 3 - We're on 3
- 1..3
-ok 4 - Child of $0
-ok 5 - We're on 7
-ok 6 - We're on 8
-ok 7 - We're on 9
-END
-}
-{
- my $tb = Test::Builder::NoOutput->create;
-
- $tb->plan('no_plan');
- for( 1 .. 1 ) {
- $tb->ok( $_, "We're on $_" );
- $tb->diag("We ran $_");
- }
- {
- my $indented = $tb->child;
- $indented->plan('no_plan');
- $indented->ok( 1, "We're on 1" );
- {
- my $indented2 = $indented->child('with name');
- $indented2->plan( tests => 2 );
- $indented2->ok( 1, "We're on 2.1" );
- $indented2->ok( 1, "We're on 2.1" );
- $indented2->finalize;
- }
- $indented->ok( 1, 'after child' );
- $indented->finalize;
- }
- for(7) {
- $tb->ok( $_, "We're on $_" );
- }
-
- $tb->_ending;
- $tb->reset_outputs;
- is $tb->read, <<"END", 'We should allow arbitrary nesting';
-ok 1 - We're on 1
-# We ran 1
- ok 1 - We're on 1
- 1..2
- ok 1 - We're on 2.1
- ok 2 - We're on 2.1
- ok 2 - with name
- ok 3 - after child
- 1..3
-ok 2 - Child of $0
-ok 3 - We're on 7
-1..3
-END
-}
-
-{
-#line 108
- my $tb = Test::Builder::NoOutput->create;
-
- {
- my $child = $tb->child('expected to fail');
- $child->plan( tests => 3 );
- $child->ok(1);
- $child->ok(0);
- $child->ok(3);
- $child->finalize;
- }
-
- {
- my $child = $tb->child('expected to pass');
- $child->plan( tests => 3 );
- $child->ok(1);
- $child->ok(2);
- $child->ok(3);
- $child->finalize;
- }
- $tb->reset_outputs;
- is $tb->read, <<"END", 'Previous child failures should not force subsequent failures';
- 1..3
- ok 1
- not ok 2
- # Failed test at $0 line 114.
- ok 3
- # Looks like you failed 1 test of 3.
-not ok 1 - expected to fail
-# Failed test 'expected to fail'
-# at $0 line 116.
- 1..3
- ok 1
- ok 2
- ok 3
-ok 2 - expected to pass
-END
-}
-{
- my $tb = Test::Builder::NoOutput->create;
- my $child = $tb->child('one');
- is $child->{$_}, $tb->{$_}, "The child should copy the ($_) filehandle"
- foreach qw{Out_FH Todo_FH Fail_FH};
- $child->finalize;
-}
-{
- my $tb = Test::Builder::NoOutput->create;
- my $child = $tb->child('one');
- can_ok $child, 'parent';
- is $child->parent, $tb, '... and it should return the parent of the child';
- ok !defined $tb->parent, '... but top level builders should not have parents';
-
- can_ok $tb, 'name';
- is $tb->name, $0, 'The top level name should be $0';
- is $child->name, 'one', '... but child names should be whatever we set them to';
- $child->finalize;
- $child = $tb->child;
- is $child->name, 'Child of '.$tb->name, '... or at least have a sensible default';
- $child->finalize;
-}
-{
- ok defined &subtest, 'subtest() should be exported to our namespace';
- is prototype('subtest'), '$&', '... with the appropriate prototype';
-
- subtest 'subtest with plan', sub {
- plan tests => 2;
- ok 1, 'planned subtests should work';
- ok 1, '... and support more than one test';
- };
- subtest 'subtest without plan', sub {
- plan 'no_plan';
- ok 1, 'no_plan subtests should work';
- ok 1, '... and support more than one test';
- ok 1, '... no matter how many tests are run';
- };
-}
-# Skip all subtests
-{
- my $tb = Test::Builder::NoOutput->create;
-
- {
- my $child = $tb->child('skippy says he loves you');
- eval { $child->plan( skip_all => 'cuz I said so' ) };
- ok my $error = $@, 'A child which does a "skip_all" should throw an exception';
- isa_ok $error, 'Test::Builder::Exception', '... and the exception it throws';
- }
- subtest 'skip all', sub {
- plan skip_all => 'subtest with skip_all';
- ok 0, 'This should never be run';
- };
- is +Test::Builder->new->{Test_Results}[-1]{type}, 'skip',
- 'Subtests which "skip_all" are reported as skipped tests';
-}
-
-# to do tests
-{
-#line 204
- my $tb = Test::Builder::NoOutput->create;
- $tb->plan( tests => 1 );
- my $child = $tb->child;
- $child->plan( tests => 1 );
- $child->todo_start( 'message' );
- $child->ok( 0 );
- $child->todo_end;
- $child->finalize;
- $tb->_ending;
- $tb->reset_outputs;
- is $tb->read, <<"END", 'TODO tests should not make the parent test fail';
-1..1
- 1..1
- not ok 1 # TODO message
- # Failed (TODO) test at $0 line 209.
-ok 1 - Child of $0
-END
-}
-{
- my $tb = Test::Builder::NoOutput->create;
- $tb->plan( tests => 1 );
- my $child = $tb->child;
- $child->finalize;
- $tb->_ending;
- $tb->reset_outputs;
- my $expected = <<"END";
-1..1
-not ok 1 - No tests run for subtest "Child of $0"
-END
- like $tb->read, qr/\Q$expected/,
- 'Not running subtests should make the parent test fail';
-}
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/subtest/die.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/subtest/die.t
deleted file mode 100644
index 7965e90..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/subtest/die.t
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/usr/bin/perl -w
-
-# What happens when a subtest dies?
-
-use lib 't/lib';
-
-use strict;
-use Test::Builder;
-use Test::Builder::NoOutput;
-
-my $Test = Test::Builder->new;
-
-{
- my $tb = Test::Builder::NoOutput->create;
-
- $tb->ok(1);
-
- $Test->ok( !eval {
- $tb->subtest("death" => sub {
- die "Death in the subtest";
- });
- 1;
- });
- $Test->like( $@, qr/^Death in the subtest at $0 line /);
-
- $Test->ok( !$tb->parent, "the parent object is restored after a die" );
-}
-
-
-$Test->done_testing();
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/subtest/do.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/subtest/do.t
deleted file mode 100644
index 40b9501..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/subtest/do.t
+++ /dev/null
@@ -1,17 +0,0 @@
-#!/usr/bin/perl -w
-
-# Test the idiom of running another test file as a subtest.
-
-use strict;
-use Test::More;
-
-pass("First");
-
-my $file = "t/subtest/for_do_t.test";
-ok -e $file, "subtest test file exists";
-
-subtest $file => sub { do $file };
-
-pass("Last");
-
-done_testing(4);
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/thread_taint.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/thread_taint.t
deleted file mode 100644
index ef7b89d..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/thread_taint.t
+++ /dev/null
@@ -1,5 +0,0 @@
-#!/usr/bin/perl -w
-
-use Test::More tests => 1;
-
-ok( !$INC{'threads.pm'}, 'Loading Test::More does not load threads.pm' );
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/todo.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/todo.t
deleted file mode 100644
index 91861be..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/todo.t
+++ /dev/null
@@ -1,157 +0,0 @@
-#!perl -w
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-use Test::More;
-
-plan tests => 36;
-
-
-$Why = 'Just testing the todo interface.';
-
-my $is_todo;
-TODO: {
- local $TODO = $Why;
-
- fail("Expected failure");
- fail("Another expected failure");
-
- $is_todo = Test::More->builder->todo;
-}
-
-pass("This is not todo");
-ok( $is_todo, 'TB->todo' );
-
-
-TODO: {
- local $TODO = $Why;
-
- fail("Yet another failure");
-}
-
-pass("This is still not todo");
-
-
-TODO: {
- local $TODO = "testing that error messages don't leak out of todo";
-
- ok( 'this' eq 'that', 'ok' );
-
- like( 'this', qr/that/, 'like' );
- is( 'this', 'that', 'is' );
- isnt( 'this', 'this', 'isnt' );
-
- can_ok('Fooble', 'yarble');
- isa_ok('Fooble', 'yarble');
- use_ok('Fooble');
- require_ok('Fooble');
-}
-
-
-TODO: {
- todo_skip "Just testing todo_skip", 2;
-
- fail("Just testing todo");
- die "todo_skip should prevent this";
- pass("Again");
-}
-
-
-{
- my $warning;
- local $SIG{__WARN__} = sub { $warning = join "", @_ };
- TODO: {
- # perl gets the line number a little wrong on the first
- # statement inside a block.
- 1 == 1;
-#line 74
- todo_skip "Just testing todo_skip";
- fail("So very failed");
- }
- is( $warning, "todo_skip() needs to know \$how_many tests are in the ".
- "block at $0 line 74\n",
- 'todo_skip without $how_many warning' );
-}
-
-my $builder = Test::More->builder;
-my $exported_to = $builder->exported_to;
-TODO: {
- $builder->exported_to("Wibble");
-
- local $TODO = "testing \$TODO with an incorrect exported_to()";
-
- fail("Just testing todo");
-}
-
-$builder->exported_to($exported_to);
-
-$builder->todo_start('Expected failures');
-fail('Testing todo_start()');
-ok 0, 'Testing todo_start() with more than one failure';
-$is_todo = $builder->todo;
-$builder->todo_end;
-is $is_todo, 'Expected failures',
- 'todo_start should have the correct TODO message';
-ok 1, 'todo_end() should not leak TODO behavior';
-
-my @nested_todo;
-my ( $level1, $level2 ) = ( 'failure level 1', 'failure_level 2' );
-TODO: {
- local $TODO = 'Nesting TODO';
- fail('fail 1');
-
- $builder->todo_start($level1);
- fail('fail 2');
-
- push @nested_todo => $builder->todo;
- $builder->todo_start($level2);
- fail('fail 3');
-
- push @nested_todo => $builder->todo;
- $builder->todo_end;
- fail('fail 4');
-
- push @nested_todo => $builder->todo;
- $builder->todo_end;
- $is_todo = $builder->todo;
- fail('fail 4');
-}
-is_deeply \@nested_todo, [ $level1, $level2, $level1 ],
- 'Nested TODO message should be correct';
-is $is_todo, 'Nesting TODO',
- '... and original TODO message should be correct';
-
-{
- $builder->todo_start;
- fail("testing todo_start() with no message");
- my $reason = $builder->todo;
- my $in_todo = $builder->in_todo;
- $builder->todo_end;
-
- is $reason, '', " todo() reports no reason";
- ok $in_todo, " but we're in_todo()";
-}
-
-eval {
- $builder->todo_end;
-};
-is $@, sprintf "todo_end() called without todo_start() at %s line %d.\n", $0, __LINE__ - 2;
-
-
-{
- my($reason, $in_todo);
-
- TODO: {
- local $TODO = '';
- $reason = $builder->todo;
- $in_todo = $builder->in_todo;
- }
-
- is $reason, '';
- ok !$in_todo, '$TODO = "" is not considered TODO';
-}
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/undef.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/undef.t
deleted file mode 100644
index 0436364..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/undef.t
+++ /dev/null
@@ -1,98 +0,0 @@
-#!/usr/bin/perl -w
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ('../lib', 'lib');
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-
-use strict;
-use Test::More tests => 21;
-
-BEGIN { $^W = 1; }
-
-my $warnings = '';
-local $SIG{__WARN__} = sub { $warnings .= join '', @_ };
-
-my $TB = Test::Builder->new;
-sub no_warnings {
- $TB->is_eq($warnings, '', ' no warnings');
- $warnings = '';
-}
-
-sub warnings_is {
- $TB->is_eq($warnings, $_[0]);
- $warnings = '';
-}
-
-sub warnings_like {
- $TB->like($warnings, $_[0]);
- $warnings = '';
-}
-
-
-my $Filename = quotemeta $0;
-
-
-is( undef, undef, 'undef is undef');
-no_warnings;
-
-isnt( undef, 'foo', 'undef isnt foo');
-no_warnings;
-
-isnt( undef, '', 'undef isnt an empty string' );
-isnt( undef, 0, 'undef isnt zero' );
-
-Test::More->builder->is_num(undef, undef, 'is_num()');
-Test::More->builder->isnt_num(23, undef, 'isnt_num()');
-
-#line 45
-like( undef, qr/.*/, 'undef is like anything' );
-warnings_like(qr/Use of uninitialized value.* at $Filename line 45\.\n/);
-
-eq_array( [undef, undef], [undef, 23] );
-no_warnings;
-
-eq_hash ( { foo => undef, bar => undef },
- { foo => undef, bar => 23 } );
-no_warnings;
-
-eq_set ( [undef, undef, 12], [29, undef, undef] );
-no_warnings;
-
-
-eq_hash ( { foo => undef, bar => { baz => undef, moo => 23 } },
- { foo => undef, bar => { baz => undef, moo => 23 } } );
-no_warnings;
-
-
-#line 64
-cmp_ok( undef, '<=', 2, ' undef <= 2' );
-warnings_like(qr/Use of uninitialized value.* at cmp_ok \[from $Filename line 64\] line 1\.\n/);
-
-
-
-my $tb = Test::More->builder;
-
-my $err = '';
-$tb->failure_output(\$err);
-diag(undef);
-$tb->reset_outputs;
-
-is( $err, "# undef\n" );
-no_warnings;
-
-
-$tb->maybe_regex(undef);
-no_warnings;
-
-
-# test-more.googlecode.com #42
-{
- is_deeply([ undef ], [ undef ]);
- no_warnings;
-}
diff --git a/3.8.8/sources/cpan-Test-Simple/vendor/t/versions.t b/3.8.8/sources/cpan-Test-Simple/vendor/t/versions.t
deleted file mode 100644
index cb83599..0000000
--- a/3.8.8/sources/cpan-Test-Simple/vendor/t/versions.t
+++ /dev/null
@@ -1,28 +0,0 @@
-#!/usr/bin/perl -w
-
-# Make sure all the modules have the same version
-#
-# TBT has its own version system.
-
-use strict;
-use Test::More;
-
-require Test::Builder;
-require Test::Builder::Module;
-require Test::Simple;
-
-my $dist_version = Test::More->VERSION;
-
-like( $dist_version, qr/^ \d+ \. \d+ $/x );
-
-my @modules = qw(
- Test::Simple
- Test::Builder
- Test::Builder::Module
-);
-
-for my $module (@modules) {
- is( $dist_version, $module->VERSION, $module );
-}
-
-done_testing(4);
diff --git a/3.8.8/sources/cpan-Test-SubCalls/vendor/Changes b/3.8.8/sources/cpan-Test-SubCalls/vendor/Changes
deleted file mode 100644
index 56d0d2c..0000000
--- a/3.8.8/sources/cpan-Test-SubCalls/vendor/Changes
+++ /dev/null
@@ -1,37 +0,0 @@
-Changes for Perl extension Test-SubCalls
-
-1.09 Sun 19 Apr 2009
- - Upgrading to Module::Install::DSL 0.83
-
-1.08 Fri 22 Aug 2008
- - No functional changes
- - Upgrading to Module::Install 0.77
- - Minor tweaky refactorings
-
-1.07 Fri 16 Nov 2007
- - No functional changes
- - Upgrading to Module::Install 0.68
-
-1.06 Fri 12 May 2006
- - Moving to a stable version number
- - Upgrading to Module::Install 0.62 final
- - Removing auto_install
-
-0.05 Mon 24 Apr 2006
- - Apparently my tweaking of the dependencies was incorrect.
- - Removed the Test::Simple dep, the T:B:Tester one should be enough
- - Minor pod change
-
-0.04 Sun 23 Apr 2006
- - Moved from SourceForge CVS to new collaborative SVN repository
- - Upgraded Module::Install to 0.62
-
-0.03 Fri Dec 30 2004
- - Noted version dependency is actually 5.006
- (This is ONLY because of Lex::HookWrap)
-
-0.02 Sat Oct 8 2005
- - Upgraded Test::Builder::Tester dependency
-
-0.01 Thu Sep 1 2005
- - Created the initial version of the module
diff --git a/3.8.8/sources/cpan-Test-SubCalls/vendor/MANIFEST b/3.8.8/sources/cpan-Test-SubCalls/vendor/MANIFEST
deleted file mode 100644
index 6e0fc91..0000000
--- a/3.8.8/sources/cpan-Test-SubCalls/vendor/MANIFEST
+++ /dev/null
@@ -1,21 +0,0 @@
-Changes
-inc/Module/Install.pm
-inc/Module/Install/Base.pm
-inc/Module/Install/Can.pm
-inc/Module/Install/DSL.pm
-inc/Module/Install/Fetch.pm
-inc/Module/Install/Makefile.pm
-inc/Module/Install/Metadata.pm
-inc/Module/Install/Win32.pm
-inc/Module/Install/WriteAll.pm
-lib/Test/SubCalls.pm
-LICENSE
-Makefile.PL
-MANIFEST This list of files
-META.yml
-README
-t/01_compile.t
-t/02_main.t
-t/97_meta.t
-t/98_pod.t
-t/99_pmv.t
diff --git a/3.8.8/sources/cpan-Test-SubCalls/vendor/META.yml b/3.8.8/sources/cpan-Test-SubCalls/vendor/META.yml
deleted file mode 100644
index dd1903e..0000000
--- a/3.8.8/sources/cpan-Test-SubCalls/vendor/META.yml
+++ /dev/null
@@ -1,31 +0,0 @@
----
-abstract: 'Track the number of times subs are called'
-author:
- - 'Adam Kennedy <adamk at cpan.org>'
-build_requires:
- ExtUtils::MakeMaker: 6.42
- Test::Builder::Tester: 1.02
-configure_requires:
- ExtUtils::MakeMaker: 6.42
-distribution_type: module
-generated_by: 'Module::Install version 0.85'
-license: perl
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
-module_name: Test::SubCalls
-name: Test-SubCalls
-no_index:
- directory:
- - inc
- - t
-requires:
- File::Spec: 0.80
- Hook::LexWrap: 0.20
- Test::More: 0.42
- perl: 5.6.0
-resources:
- ChangeLog: http://fisheye2.atlassian.com/changelog/cpan/trunk/Test-SubCalls
- license: http://dev.perl.org/licenses/
- repository: http://svn.ali.as/cpan/trunk/Test-SubCalls
-version: 1.09
diff --git a/3.8.8/sources/cpan-Test-SubCalls/vendor/inc/Module/Install/Can.pm b/3.8.8/sources/cpan-Test-SubCalls/vendor/inc/Module/Install/Can.pm
deleted file mode 100644
index 3e2d523..0000000
--- a/3.8.8/sources/cpan-Test-SubCalls/vendor/inc/Module/Install/Can.pm
+++ /dev/null
@@ -1,81 +0,0 @@
-#line 1
-package Module::Install::Can;
-
-use strict;
-use Module::Install::Base;
-use Config ();
-use File::Spec ();
-use ExtUtils::MakeMaker ();
-
-use vars qw{$VERSION $ISCORE @ISA};
-BEGIN {
- $VERSION = '0.85';
- $ISCORE = 1;
- @ISA = qw{Module::Install::Base};
-}
-
-# check if we can load some module
-### Upgrade this to not have to load the module if possible
-sub can_use {
- my ($self, $mod, $ver) = @_;
- $mod =~ s{::|\\}{/}g;
- $mod .= '.pm' unless $mod =~ /\.pm$/i;
-
- my $pkg = $mod;
- $pkg =~ s{/}{::}g;
- $pkg =~ s{\.pm$}{}i;
-
- local $@;
- eval { require $mod; $pkg->VERSION($ver || 0); 1 };
-}
-
-# check if we can run some command
-sub can_run {
- my ($self, $cmd) = @_;
-
- my $_cmd = $cmd;
- return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));
-
- for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
- next if $dir eq '';
- my $abs = File::Spec->catfile($dir, $_[1]);
- return $abs if (-x $abs or $abs = MM->maybe_command($abs));
- }
-
- return;
-}
-
-# can we locate a (the) C compiler
-sub can_cc {
- my $self = shift;
- my @chunks = split(/ /, $Config::Config{cc}) or return;
-
- # $Config{cc} may contain args; try to find out the program part
- while (@chunks) {
- return $self->can_run("@chunks") || (pop(@chunks), next);
- }
-
- return;
-}
-
-# Fix Cygwin bug on maybe_command();
-if ( $^O eq 'cygwin' ) {
- require ExtUtils::MM_Cygwin;
- require ExtUtils::MM_Win32;
- if ( ! defined(&ExtUtils::MM_Cygwin::maybe_command) ) {
- *ExtUtils::MM_Cygwin::maybe_command = sub {
- my ($self, $file) = @_;
- if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
- ExtUtils::MM_Win32->maybe_command($file);
- } else {
- ExtUtils::MM_Unix->maybe_command($file);
- }
- }
- }
-}
-
-1;
-
-__END__
-
-#line 156
diff --git a/3.8.8/sources/cpan-Test-SubCalls/vendor/inc/Module/Install/DSL.pm b/3.8.8/sources/cpan-Test-SubCalls/vendor/inc/Module/Install/DSL.pm
deleted file mode 100644
index 5288d29..0000000
--- a/3.8.8/sources/cpan-Test-SubCalls/vendor/inc/Module/Install/DSL.pm
+++ /dev/null
@@ -1,95 +0,0 @@
-#line 1
-package Module::Install::DSL;
-
-use strict;
-use vars qw{$VERSION $ISCORE};
-BEGIN {
- $VERSION = '0.85';
- $ISCORE = 1;
- *inc::Module::Install::DSL::VERSION = *VERSION;
- @inc::Module::Install::DSL::ISA = __PACKAGE__;
-}
-
-# Load the main Module::Install as usual.
-# require Module::Install;
-
-sub import {
- # Read in the rest of the Makefile.PL
- open 0 or die "Couldn't open $0: $!";
- my $dsl;
- SCOPE: {
- local $/ = undef;
- $dsl = join "", <0>;
- }
-
- # Change inc::Module::Install::DSL to the regular one.
- # Remove anything before the use inc::... line.
- $dsl =~ s/.*?^\s*use\s+(?:inc::)?Module::Install::DSL(\b[^;]*);\s*\n//sm;
-
- # Load inc::Module::Install as we would in a regular Makefile.Pl
- SCOPE: {
- package main;
- require inc::Module::Install;
- inc::Module::Install->import;
- }
-
- # Add the ::DSL plugin to the list of packages in /inc
- my $admin = $Module::Install::MAIN->{admin};
- if ( $admin ) {
- my $from = $INC{"$admin->{path}/DSL.pm"};
- my $to = "$admin->{base}/$admin->{prefix}/$admin->{path}/DSL.pm";
- $admin->copy( $from => $to );
- }
-
- # Convert the basic syntax to code
- my $code = "package main;\n\n"
- . dsl2code($dsl)
- . "\n\nWriteAll();\n";
-
- # Execute the script
- eval $code;
- print STDERR "Failed to execute the generated code" if $@;
-
- exit(0);
-}
-
-sub dsl2code {
- my $dsl = shift;
-
- # Split into lines and strip blanks
- my @lines = grep { /\S/ } split /[\012\015]+/, $dsl;
-
- # Each line represents one command
- my @code = ();
- foreach my $line ( @lines ) {
- # Split the lines into tokens
- my @tokens = split /\s+/, $line;
-
- # The first word is the command
- my $command = shift @tokens;
- my @params = ();
- my @suffix = ();
- while ( @tokens ) {
- my $token = shift @tokens;
- if ( $token eq 'if' or $token eq 'unless' ) {
- # This is the beginning of a suffix
- push @suffix, $token;
- push @suffix, @tokens;
- last;
- } else {
- # Convert to a string
- $token =~ s/([\\\'])/\\$1/g;
- push @params, "'$token'";
- }
- };
-
- # Merge to create the final line of code
- @tokens = ( $command, @params ? join( ', ', @params ) : (), @suffix );
- push @code, join( ' ', @tokens ) . ";\n";
- }
-
- # Join into the complete code block
- return join( '', @code );
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Test-SubCalls/vendor/inc/Module/Install/Fetch.pm b/3.8.8/sources/cpan-Test-SubCalls/vendor/inc/Module/Install/Fetch.pm
deleted file mode 100644
index 0a62208..0000000
--- a/3.8.8/sources/cpan-Test-SubCalls/vendor/inc/Module/Install/Fetch.pm
+++ /dev/null
@@ -1,93 +0,0 @@
-#line 1
-package Module::Install::Fetch;
-
-use strict;
-use Module::Install::Base;
-
-use vars qw{$VERSION $ISCORE @ISA};
-BEGIN {
- $VERSION = '0.85';
- $ISCORE = 1;
- @ISA = qw{Module::Install::Base};
-}
-
-sub get_file {
- my ($self, %args) = @_;
- my ($scheme, $host, $path, $file) =
- $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
-
- if ( $scheme eq 'http' and ! eval { require LWP::Simple; 1 } ) {
- $args{url} = $args{ftp_url}
- or (warn("LWP support unavailable!\n"), return);
- ($scheme, $host, $path, $file) =
- $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
- }
-
- $|++;
- print "Fetching '$file' from $host... ";
-
- unless (eval { require Socket; Socket::inet_aton($host) }) {
- warn "'$host' resolve failed!\n";
- return;
- }
-
- return unless $scheme eq 'ftp' or $scheme eq 'http';
-
- require Cwd;
- my $dir = Cwd::getcwd();
- chdir $args{local_dir} or return if exists $args{local_dir};
-
- if (eval { require LWP::Simple; 1 }) {
- LWP::Simple::mirror($args{url}, $file);
- }
- elsif (eval { require Net::FTP; 1 }) { eval {
- # use Net::FTP to get past firewall
- my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
- $ftp->login("anonymous", 'anonymous at example.com');
- $ftp->cwd($path);
- $ftp->binary;
- $ftp->get($file) or (warn("$!\n"), return);
- $ftp->quit;
- } }
- elsif (my $ftp = $self->can_run('ftp')) { eval {
- # no Net::FTP, fallback to ftp.exe
- require FileHandle;
- my $fh = FileHandle->new;
-
- local $SIG{CHLD} = 'IGNORE';
- unless ($fh->open("|$ftp -n")) {
- warn "Couldn't open ftp: $!\n";
- chdir $dir; return;
- }
-
- my @dialog = split(/\n/, <<"END_FTP");
-open $host
-user anonymous anonymous\@example.com
-cd $path
-binary
-get $file $file
-quit
-END_FTP
- foreach (@dialog) { $fh->print("$_\n") }
- $fh->close;
- } }
- else {
- warn "No working 'ftp' program available!\n";
- chdir $dir; return;
- }
-
- unless (-f $file) {
- warn "Fetching failed: $@\n";
- chdir $dir; return;
- }
-
- return if exists $args{size} and -s $file != $args{size};
- system($args{run}) if exists $args{run};
- unlink($file) if $args{remove};
-
- print(((!exists $args{check_for} or -e $args{check_for})
- ? "done!" : "failed! ($!)"), "\n");
- chdir $dir; return !$?;
-}
-
-1;
diff --git a/3.8.8/sources/cpan-Test-SubCalls/vendor/lib/Test/SubCalls.pm b/3.8.8/sources/cpan-Test-SubCalls/vendor/lib/Test/SubCalls.pm
deleted file mode 100644
index 2039ef3..0000000
--- a/3.8.8/sources/cpan-Test-SubCalls/vendor/lib/Test/SubCalls.pm
+++ /dev/null
@@ -1,217 +0,0 @@
-package Test::SubCalls;
-
-=pod
-
-=head1 NAME
-
-Test::SubCalls - Track the number of times subs are called
-
-=head1 SYNOPSIS
-
- use Test::SubCalls;
-
- # Start tracking calls to a named sub
- sub_track( 'Foo::foo' );
-
- # Run some test code
- ...
-
- # Test that some sub deep in the codebase was called
- # a specific number of times.
- sub_calls( 'Foo::foo', 5 );
- sub_calls( 'Foo::foo', 5, 'Use a custom test message' );
-
- # Reset the counts for one or all subs
- sub_reset( 'Foo::foo' );
- sub_reset_all();
-
-=head1 DESCRIPTION
-
-There are a number of different situations (like testing caching code)
-where you want to want to do a number of tests, and then verify that
-some underlying subroutine deep within the code was called a specific
-number of times.
-
-This module provides a number of functions for doing testing in this way
-in association with your normal L<Test::More> (or similar) test scripts.
-
-=head1 FUNCTIONS
-
-In the nature of test modules, all functions are exported by default.
-
-=cut
-
-use 5.006;
-use strict;
-use File::Spec 0.80 ();
-use Test::More 0.42 ();
-use Hook::LexWrap 0.20 ();
-use Exporter ();
-use Test::Builder ();
-
-use vars qw{$VERSION @ISA @EXPORT};
-BEGIN {
- $VERSION = '1.09';
- @ISA = 'Exporter';
- @EXPORT = qw{sub_track sub_calls sub_reset sub_reset_all};
-}
-
-my $Test = Test::Builder->new;
-
-my %CALLS = ();
-
-
-
-
-
-#####################################################################
-# Test::SubCalls Functions
-
-=pod
-
-=head2 sub_track $subname
-
-The C<sub_track> function creates a new call tracker for a named function.
-
-The sub to track must be provided by name, references to the function
-itself are insufficient.
-
-Returns true if added, or dies on error.
-
-=cut
-
-sub sub_track {
- # Check the sub name is valid
- my $subname = shift;
- SCOPE: {
- no strict 'refs';
- unless ( defined *{"$subname"}{CODE} ) {
- die "Test::SubCalls::sub_track : The sub '$subname' does not exist";
- }
- if ( defined $CALLS{$subname} ) {
- die "Test::SubCalls::sub_track : Cannot add duplicate tracker for '$subname'";
- }
- }
-
- # Initialise the count
- $CALLS{$subname} = 0;
-
- # Lexwrap the subroutine
- Hook::LexWrap::wrap(
- $subname,
- pre => sub { $CALLS{$subname}++ },
- );
-
- 1;
-}
-
-=pod
-
-=head2 sub_calls $subname, $expected_calls [, $message ]
-
-The C<sub_calls> function is the primary (and only) testing function
-provided by C<Test::SubCalls>. A single call will represent one test in
-your plan.
-
-It takes the subroutine name as originally provided to C<sub_track>,
-the expected number of times the subroutine should have been called,
-and an optional test message.
-
-If no message is provided, a default message will be provided for you.
-
-Test is ok if the number of times the sub has been called matches the
-expected number, or not ok if not.
-
-=cut
-
-sub sub_calls {
- # Check the sub name is valid
- my $subname = shift;
- unless ( defined $CALLS{$subname} ) {
- die "Test::SubCalls::sub_calls : Cannot test untracked sub '$subname'";
- }
-
- # Check the count
- my $count = shift;
- unless ( $count =~ /^(?:0|[1-9]\d*)\z/s ) {
- die "Test::SubCalls::sub_calls : Expected count '$count' is not an integer";
- }
-
- # Get the message, applying default if needed
- my $message = shift || "$subname was called $count times";
- $Test->is_num( $CALLS{$subname}, $count, $message );
-}
-
-=pod
-
-=head2 sub_reset $subname
-
-To prevent repeat users from having to take before and after counts when
-they start testing from after zero, the C<sub_reset> function has been
-provided to reset a sub call counter to zero.
-
-Returns true or dies if the sub name is invalid or not currently tracked.
-
-=cut
-
-sub sub_reset {
- # Check the sub name is valid
- my $subname = shift;
- unless ( defined $CALLS{$subname} ) {
- die "Test::SubCalls::sub_reset : Cannot reset untracked sub '$subname'";
- }
-
- $CALLS{$subname} = 0;
-
- 1;
-}
-
-=pod
-
-=head2 sub_reset_all
-
-Provided mainly as a convenience, the C<sub_reset_all> function will reset
-all the counters currently defined.
-
-Returns true.
-
-=cut
-
-sub sub_reset_all {
- foreach my $subname ( keys %CALLS ) {
- $CALLS{$subname} = 0;
- }
- 1;
-}
-
-1;
-
-=pod
-
-=head1 SUPPORT
-
-Bugs should be submitted via the CPAN bug tracker, located at
-
-L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Test-SubCalls>
-
-For other issues, or commercial enhancement or support, contact the author.
-
-=head1 AUTHOR
-
-Adam Kennedy E<lt>adamk at cpan.orgE<gt>
-
-=head1 SEE ALSO
-
-L<http://ali.as/>, L<Test::Builder>, L<Test::More>, L<Hook::LexWrap>
-
-=head1 COPYRIGHT
-
-Copyright 2005 - 2009 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/3.8.8/sources/cpan-Test-SubCalls/vendor/t/01_compile.t b/3.8.8/sources/cpan-Test-SubCalls/vendor/t/01_compile.t
deleted file mode 100644
index 810d6ae..0000000
--- a/3.8.8/sources/cpan-Test-SubCalls/vendor/t/01_compile.t
+++ /dev/null
@@ -1,20 +0,0 @@
-#!/usr/bin/perl
-
-# Load test the Test::SubCalls module
-
-use strict;
-BEGIN {
- $| = 1;
- $^W = 1;
-}
-
-# Does everything load?
-use Test::More tests => 6;
-ok( $] >= 5.006, 'Your perl is new enough' );
-use_ok( 'Test::SubCalls' );
-
-# Did it import what we expect?
-ok( defined(&sub_track), 'Imported sub_track' );
-ok( defined(&sub_calls), 'Imported sub_calls' );
-ok( defined(&sub_reset), 'Imported sub_reset' );
-ok( defined(&sub_reset_all), 'Imported sub_reset_all' );
diff --git a/3.8.8/sources/cpan-Test-SubCalls/vendor/t/97_meta.t b/3.8.8/sources/cpan-Test-SubCalls/vendor/t/97_meta.t
deleted file mode 100644
index 3dfec73..0000000
--- a/3.8.8/sources/cpan-Test-SubCalls/vendor/t/97_meta.t
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/bin/perl
-
-# Test that our META.yml file matches the current specification.
-
-use strict;
-BEGIN {
- $| = 1;
- $^W = 1;
-}
-
-my $MODULE = 'Test::CPAN::Meta 0.12';
-
-# Don't run tests for installs
-use Test::More;
-unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
- plan( skip_all => "Author tests not required for installation" );
-}
-
-# Load the testing module
-eval "use $MODULE";
-if ( $@ ) {
- $ENV{RELEASE_TESTING}
- ? die( "Failed to load required release-testing module $MODULE" )
- : plan( skip_all => "$MODULE not available for testing" );
-}
-
-meta_yaml_ok();
diff --git a/3.8.8/sources/cpan-Test-SubCalls/vendor/t/98_pod.t b/3.8.8/sources/cpan-Test-SubCalls/vendor/t/98_pod.t
deleted file mode 100644
index a96eb6a..0000000
--- a/3.8.8/sources/cpan-Test-SubCalls/vendor/t/98_pod.t
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/perl
-
-# Test that the syntax of our POD documentation is valid
-
-use strict;
-BEGIN {
- $| = 1;
- $^W = 1;
-}
-
-my @MODULES = (
- 'Pod::Simple 3.07',
- 'Test::Pod 1.26',
-);
-
-# Don't run tests for installs
-use Test::More;
-unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
- plan( skip_all => "Author tests not required for installation" );
-}
-
-# Load the testing modules
-foreach my $MODULE ( @MODULES ) {
- eval "use $MODULE";
- if ( $@ ) {
- $ENV{RELEASE_TESTING}
- ? die( "Failed to load required release-testing module $MODULE" )
- : plan( skip_all => "$MODULE not available for testing" );
- }
-}
-
-all_pod_files_ok();
diff --git a/3.8.8/sources/cpan-Test/vendor/MANIFEST b/3.8.8/sources/cpan-Test/vendor/MANIFEST
deleted file mode 100644
index f8cbdda..0000000
--- a/3.8.8/sources/cpan-Test/vendor/MANIFEST
+++ /dev/null
@@ -1,17 +0,0 @@
-ChangeLog
-lib/Test.pm
-Makefile.PL
-MANIFEST
-MANIFEST.SKIP
-README
-t/05_about_verbose.t
-t/fail.t
-t/mix.t
-t/multiline.t
-t/onfail.t
-t/qr.t
-t/skip.t
-t/success.t
-t/todo.t
-TODO
-META.yml Module meta-data (added by MakeMaker)
diff --git a/3.8.8/sources/cpan-Test/vendor/MANIFEST.SKIP b/3.8.8/sources/cpan-Test/vendor/MANIFEST.SKIP
deleted file mode 100644
index 8e311fa..0000000
--- a/3.8.8/sources/cpan-Test/vendor/MANIFEST.SKIP
+++ /dev/null
@@ -1,7 +0,0 @@
-^MANIFEST\.bak$
-Makefile(\.old)?$
-\.rej$
-noinc
-CVS
-blib
-~
diff --git a/3.8.8/sources/cpan-Test/vendor/META.yml b/3.8.8/sources/cpan-Test/vendor/META.yml
deleted file mode 100644
index f6bb19a..0000000
--- a/3.8.8/sources/cpan-Test/vendor/META.yml
+++ /dev/null
@@ -1,12 +0,0 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: Test
-version: 1.25
-version_from: ./lib/Test.pm
-installdirs: perl
-requires:
- File::Spec: 0
- Test::Harness: 1.1601
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
diff --git a/3.8.8/sources/cpan-Test/vendor/Makefile.PL b/3.8.8/sources/cpan-Test/vendor/Makefile.PL
deleted file mode 100644
index f0d1c08..0000000
--- a/3.8.8/sources/cpan-Test/vendor/Makefile.PL
+++ /dev/null
@@ -1,41 +0,0 @@
-
-require 5.004;
-use ExtUtils::MakeMaker;
-# Time-stamp: "2004-04-27 21:34:30 ADT"
-
-WriteMakefile
- (
- NAME => 'Test',
- VERSION_FROM => './lib/Test.pm',
- ABSTRACT_FROM => './lib/Test.pm',
- PREREQ_PM => {
- 'Test::Harness' => 1.1601,
- 'File::Spec' => 0,
- },
- INSTALLDIRS => 'perl',
- );
-
-{
- package MY;
-
- sub test_via_harness {
- my($self, $orig_perl, $tests) = @_;
-
- my @perls = ($orig_perl);
- push @perls, qw(bleadperl
- perl5.6.1
- perl5.6.0
- perl5.005_03
- perl5.004_05
- perl5.004_04
- perl5.004)
- if $ENV{PERL_TEST_ALL};
-
- my $out;
- foreach my $perl (@perls) {
- $out .= $self->SUPER::test_via_harness($perl, $tests);
- }
-
- return $out;
- }
-}
diff --git a/3.8.8/sources/cpan-Test/vendor/README b/3.8.8/sources/cpan-Test/vendor/README
deleted file mode 100644
index 28b030f..0000000
--- a/3.8.8/sources/cpan-Test/vendor/README
+++ /dev/null
@@ -1,8 +0,0 @@
-Test - provides a simple framework for writing test scripts
-
-This module is part of the main perl distribution.
-
-
-NOTE: When you run "make test" you will see tests skipped and
-unexpectedly succeeding. THIS IS NORMAL. I might make it quieter in
-the future.
diff --git a/3.8.8/sources/cpan-Test/vendor/t/fail.t b/3.8.8/sources/cpan-Test/vendor/t/fail.t
deleted file mode 100644
index 9051a1f..0000000
--- a/3.8.8/sources/cpan-Test/vendor/t/fail.t
+++ /dev/null
@@ -1,104 +0,0 @@
-# -*-perl-*-
-use strict;
-use vars qw($Expect);
-use Test qw($TESTOUT $TESTERR $ntest ok skip plan);
-plan tests => 14;
-
-open F, ">fails";
-$TESTOUT = *F{IO};
-$TESTERR = *F{IO};
-
-my $r=0;
-{
- # Shut up deprecated usage warning.
- local $^W = 0;
- $r |= skip(0,0);
-}
-$r |= ok(0);
-$r |= ok(0,1);
-$r |= ok(sub { 1+1 }, 3);
-$r |= ok(sub { 1+1 }, sub { 2 * 0});
-
-my @list = (0,0);
-$r |= ok @list, 1, "\@list=".join(',', at list);
-$r |= ok @list, 1, sub { "\@list=".join ',', at list };
-$r |= ok 'segmentation fault', '/bongo/';
-
-for (1..2) { $r |= ok(0); }
-
-$r |= ok(1, undef);
-$r |= ok(undef, 1);
-
-ok($r); # (failure==success :-)
-
-close F;
-$TESTOUT = *STDOUT{IO};
-$TESTERR = *STDERR{IO};
-$ntest = 1;
-
-open F, "fails";
-my $O;
-while (<F>) { $O .= $_; }
-close F;
-unlink "fails";
-
-ok join(' ', map { m/(\d+)/; $1 } grep /^not ok/, split /\n+/, $O),
- join(' ', 1..13);
-
-my @got = split /not ok \d+\n/, $O;
-shift @got;
-
-$Expect =~ s/\n+$//;
-my @expect = split /\n\n/, $Expect;
-
-
-sub commentless {
- my $in = $_[0];
- $in =~ s/^#[^\n]*\n//mg;
- $in =~ s/\n#[^\n]*$//mg;
- return $in;
-}
-
-
-for (my $x=0; $x < @got; $x++) {
- ok commentless($got[$x]), commentless($expect[$x]."\n");
-}
-
-
-BEGIN {
- $Expect = <<"EXPECT";
-# Failed test 1 in $0 at line 15
-
-# Failed test 2 in $0 at line 17
-
-# Test 3 got: '0' ($0 at line 18)
-# Expected: '1'
-
-# Test 4 got: '2' ($0 at line 19)
-# Expected: '3'
-
-# Test 5 got: '2' ($0 at line 20)
-# Expected: '0'
-
-# Test 6 got: '2' ($0 at line 23)
-# Expected: '1' (\@list=0,0)
-
-# Test 7 got: '2' ($0 at line 24)
-# Expected: '1' (\@list=0,0)
-
-# Test 8 got: 'segmentation fault' ($0 at line 25)
-# Expected: qr{bongo}
-
-# Failed test 9 in $0 at line 27
-
-# Failed test 10 in $0 at line 27 fail #2
-
-# Failed test 11 in $0 at line 29
-
-# Test 12 got: <UNDEF> ($0 at line 30)
-# Expected: '1'
-
-# Failed test 13 in $0 at line 32
-EXPECT
-
-}
diff --git a/3.8.8/sources/cpan-Test/vendor/t/mix.t b/3.8.8/sources/cpan-Test/vendor/t/mix.t
deleted file mode 100644
index 5298338..0000000
--- a/3.8.8/sources/cpan-Test/vendor/t/mix.t
+++ /dev/null
@@ -1,58 +0,0 @@
-# -*-perl-*-
-use strict;
-use Test qw(:DEFAULT $TESTOUT $TESTERR $ntest);
-
-### This test is crafted in such a way as to prevent Test::Harness from
-### seeing the todo tests, otherwise you get people sending in bug reports
-### about Test.pm having "UNEXPECTEDLY SUCCEEDED" tests.
-
-open F, ">mix";
-$TESTOUT = *F{IO};
-$TESTERR = *F{IO};
-
-plan tests => 4, todo => [2,3];
-
-# line 15
-ok(sub {
- my $r = 0;
- for (my $x=0; $x < 10; $x++) {
- $r += $x*($r+1);
- }
- $r
- }, 3628799);
-
-ok(0);
-ok(1);
-
-skip(1,0);
-
-close F;
-$TESTOUT = *STDOUT{IO};
-$TESTERR = *STDERR{IO};
-$ntest = 1;
-
-open F, "mix";
-my $out = join '', <F>;
-close F;
-unlink "mix";
-
-my $expect = <<"EXPECT";
-1..4 todo 2 3;
-ok 1
-not ok 2
-# Failed test 2 in $0 at line 23 *TODO*
-ok 3 # ($0 at line 24 TODO?!)
-ok 4 # skip
-EXPECT
-
-
-sub commentless {
- my $in = $_[0];
- $in =~ s/^#[^\n]*\n//mg;
- $in =~ s/\n#[^\n]*$//mg;
- return $in;
-}
-
-
-print "1..1\n";
-ok( commentless($out), commentless($expect) );
diff --git a/3.8.8/sources/cpan-Test/vendor/t/onfail.t b/3.8.8/sources/cpan-Test/vendor/t/onfail.t
deleted file mode 100644
index 85fe9eb..0000000
--- a/3.8.8/sources/cpan-Test/vendor/t/onfail.t
+++ /dev/null
@@ -1,33 +0,0 @@
-# -*-perl-*-
-
-use strict;
-use Test qw($ntest plan ok $TESTOUT $TESTERR);
-use vars qw($mycnt);
-
-BEGIN { plan test => 6, onfail => \&myfail }
-
-$mycnt = 0;
-
-my $why = "zero != one";
-# sneak in a test that Test::Harness wont see
-open J, ">junk";
-$TESTOUT = *J{IO};
-$TESTERR = *J{IO};
-ok(0, 1, $why);
-$TESTOUT = *STDOUT{IO};
-$TESTERR = *STDERR{IO};
-close J;
-unlink "junk";
-$ntest = 1;
-
-sub myfail {
- my ($f) = @_;
- ok(@$f, 1);
-
- my $t = $$f[0];
- ok($$t{diagnostic}, $why);
- ok($$t{'package'}, 'main');
- ok($$t{repetition}, 1);
- ok($$t{result}, 0);
- ok($$t{expected}, 1);
-}
diff --git a/3.8.8/sources/cpan-Test/vendor/t/qr.t b/3.8.8/sources/cpan-Test/vendor/t/qr.t
deleted file mode 100644
index ea40f87..0000000
--- a/3.8.8/sources/cpan-Test/vendor/t/qr.t
+++ /dev/null
@@ -1,13 +0,0 @@
-#!./perl -w
-
-use strict;
-BEGIN {
- if ($] < 5.005) {
- print "1..0\n";
- print "ok 1 # skipped; this test requires at least perl 5.005\n";
- exit;
- }
-}
-use Test; plan tests => 1;
-
-ok 'abc', qr/b/;
diff --git a/3.8.8/sources/cpan-Text-ParseWords/vendor/META.yml b/3.8.8/sources/cpan-Text-ParseWords/vendor/META.yml
deleted file mode 100644
index a10bc34..0000000
--- a/3.8.8/sources/cpan-Text-ParseWords/vendor/META.yml
+++ /dev/null
@@ -1,21 +0,0 @@
---- #YAML:1.0
-name: Text-ParseWords
-version: 3.27
-abstract: parse text into an array of tokens or array of arrays
-author:
- - Alexandr Ciornii <alexchorny at gmail.com>
-license: perl
-distribution_type: module
-configure_requires:
- ExtUtils::MakeMaker: 0
-requires:
- perl: 5.006
- Scalar::Util: 0
-no_index:
- directory:
- - t
- - inc
-generated_by: ExtUtils::MakeMaker version 6.48
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
diff --git a/3.8.8/sources/cpan-Text-ParseWords/vendor/Makefile.PL b/3.8.8/sources/cpan-Text-ParseWords/vendor/Makefile.PL
deleted file mode 100644
index c45fa71..0000000
--- a/3.8.8/sources/cpan-Text-ParseWords/vendor/Makefile.PL
+++ /dev/null
@@ -1,17 +0,0 @@
-
-use 5.006;
-use ExtUtils::MakeMaker;
-
-WriteMakefile(
- NAME => "Text::ParseWords",
- VERSION_FROM => "ParseWords.pm",
- ABSTRACT_FROM => 'ParseWords.pm',
- AUTHOR => 'Alexandr Ciornii <alexchorny'.'@gmail.com>',
- INSTALLDIRS => 'perl',
- ($ExtUtils::MakeMaker::VERSION ge '6.48'?
- ('LICENSE' => 'perl', 'MIN_PERL_VERSION' => 5.006,) : ()),
- PREREQ_PM => {
- 'Scalar::Util' => 0, #build
- },
- PL_FILES => {},
-);
diff --git a/3.8.8/sources/cpan-Text-ParseWords/vendor/README b/3.8.8/sources/cpan-Text-ParseWords/vendor/README
deleted file mode 100644
index 30a33ab..0000000
--- a/3.8.8/sources/cpan-Text-ParseWords/vendor/README
+++ /dev/null
@@ -1,43 +0,0 @@
-
-Module: Text::ParseWords
-- ----------------------
-
-This is a CORE module. If you installed perl 5.003 or above, an
-old version of this module is already available to you. This CPAN
-package is only here to update core distributions prior 5.10.
-
-The version provided is the same that comes with perl 5.10.
-If you run a newer version of perl, the version of Text::ParseWords
-included there may be newer.
-
-Please run "perldoc Text::ParseWords" to see what this module
-is for.
-
-
-Installation
-- ----------
-
-To update your core, simply perform these usual steps:
-
-make
-make test
-make install
-
-
-Authors of Text::ParseWords
-- -------------------------
-
-Maintainer: Alexandr Ciornii.
-
-Previous maintainer: Hal Pomeranz <pomeranz at netcom.com>, 1994-1997 (Original
-author unknown). Much of the code for &parse_line() (including the
-primary regexp) from Joerk Behrends <jbehrends at multimediaproduzenten.de>.
-
-Examples section another documentation provided by John Heidemann
-<johnh at ISI.EDU>
-
-Bug reports, patches, and nagging provided by lots of folks-- thanks
-everybody! Special thanks to Michael Schwern <schwern at envirolink.org>
-for assuring me that a &nested_quotewords() would be useful, and to
-Jeff Friedl <jfriedl at yahoo-inc.com> for telling me not to worry about
-error-checking (sort of-- you had to be there).
diff --git a/3.8.8/sources/cpan-Text-ParseWords/vendor/t/ParseWords.t b/3.8.8/sources/cpan-Text-ParseWords/vendor/t/ParseWords.t
deleted file mode 100644
index eeee6ee..0000000
--- a/3.8.8/sources/cpan-Text-ParseWords/vendor/t/ParseWords.t
+++ /dev/null
@@ -1,129 +0,0 @@
-#!./perl
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't' if -d 't';
- @INC = '../lib';
- }
-}
-
-use warnings;
-use Text::ParseWords;
-use Test::More tests => 27;
-
- at words = shellwords(qq(foo "bar quiz" zoo));
-is($words[0], 'foo');
-is($words[1], 'bar quiz');
-is($words[2], 'zoo');
-
-{
- # Gonna get some undefined things back
- no warnings 'uninitialized' ;
-
- # Test quotewords() with other parameters and null last field
- @words = quotewords(':+', 1, 'foo:::"bar:foo":zoo zoo:');
- is(join(";", @words), qq(foo;"bar:foo";zoo zoo;));
-}
-
-# Test $keep eq 'delimiters' and last field zero
- at words = quotewords('\s+', 'delimiters', '4 3 2 1 0');
-is(join(";", @words), qq(4; ;3; ;2; ;1; ;0));
-
-# Big ol' nasty test (thanks, Joerk!)
-$string = 'aaaa"bbbbb" cc\\ cc \\\\\\"dddd" eee\\\\\\"ffff" "gg"';
-
-# First with $keep == 1
-$result = join('|', parse_line('\s+', 1, $string));
-is($result, 'aaaa"bbbbb"|cc\\ cc|\\\\\\"dddd" eee\\\\\\"ffff"|"gg"');
-
-# Now, $keep == 0
-$result = join('|', parse_line('\s+', 0, $string));
-is($result, 'aaaabbbbb|cc cc|\\"dddd eee\\"ffff|gg');
-
-# Now test single quote behavior
-$string = 'aaaa"bbbbb" cc\\ cc \\\\\\"dddd\' eee\\\\\\"ffff\' gg';
-$result = join('|', parse_line('\s+', 0, $string));
-is($result, 'aaaabbbbb|cc cc|\\"dddd eee\\\\\\"ffff|gg');
-
-# Make sure @nested_quotewords does the right thing
- at lists = nested_quotewords('\s+', 0, 'a b c', '1 2 3', 'x y z');
-is (@lists, 3);
-is (@{$lists[0]}, 3);
-is (@{$lists[1]}, 3);
-is (@{$lists[2]}, 3);
-
-# Now test error return
-$string = 'foo bar baz"bach blech boop';
-
- at words = shellwords($string);
-is(@words, 0);
-
- at words = parse_line('s+', 0, $string);
-is(@words, 0);
-
- at words = quotewords('s+', 0, $string);
-is(@words, 0);
-
-{
- # Gonna get some more undefined things back
- no warnings 'uninitialized' ;
-
- @words = nested_quotewords('s+', 0, $string);
- is(@words, 0);
-
- # Now test empty fields
- $result = join('|', parse_line(':', 0, 'foo::0:"":::'));
- is($result, 'foo||0||||');
-
- # Test for 0 in quotes without $keep
- $result = join('|', parse_line(':', 0, ':"0":'));
- is($result, '|0|');
-
- # Test for \001 in quoted string
- $result = join('|', parse_line(':', 0, ':"' . "\001" . '":'));
- is($result, "|\1|");
-
-}
-
-# Now test perlish single quote behavior
-$Text::ParseWords::PERL_SINGLE_QUOTE = 1;
-$string = 'aaaa"bbbbb" cc\ cc \\\\\"dddd\' eee\\\\\"\\\'ffff\' gg';
-$result = join('|', parse_line('\s+', 0, $string));
-is($result, 'aaaabbbbb|cc cc|\"dddd eee\\\\"\'ffff|gg');
-
-# test whitespace in the delimiters
- at words = quotewords(' ', 1, '4 3 2 1 0');
-is(join(";", @words), qq(4;3;2;1;0));
-
-# [perl #30442] Text::ParseWords does not handle backslashed newline inside quoted text
-$string = qq{"field1" "field2\\\nstill field2" "field3"};
-
-$result = join('|', parse_line("\t", 1, $string));
-is($result, qq{"field1"|"field2\\\nstill field2"|"field3"});
-
-$result = join('|', parse_line("\t", 0, $string));
-is($result, "field1|field2\nstill field2|field3");
-
-SKIP: { # unicode
- skip "No unicode",1 if $]<5.008;
- $string = qq{"field1"\x{1234}"field2\\\x{1234}still field2"\x{1234}"field3"};
- $result = join('|', parse_line("\x{1234}", 0, $string));
- is($result, "field1|field2\x{1234}still field2|field3",'Unicode');
-}
-
-# missing quote after matching regex used to hang after change #22997
-"1234" =~ /(1)(2)(3)(4)/;
-$string = qq{"missing quote};
-$result = join('|', shellwords($string));
-is($result, "");
-
-# make sure shellwords strips out leading whitespace and trailng undefs
-# from parse_line, so it's behavior is more like /bin/sh
-$result = join('|', shellwords(" aa \\ \\ bb ", " \\ ", "cc dd ee\\ "));
-is($result, "aa| | bb| |cc|dd|ee ");
-
-$SIG{ALRM} = sub {die "Timeout!"};
-alarm(3);
- at words = Text::ParseWords::old_shellwords("foo\\");
-is(@words, 1);
-alarm(0);
diff --git a/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/README b/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/README
deleted file mode 100644
index 2c98c78..0000000
--- a/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/README
+++ /dev/null
@@ -1,17 +0,0 @@
-
-Text::Tabs performs the same job that the unix expand(1) and unexpand(1)
-commands do: adding or removing tabs from a document.
-
-Text::Wrap::wrap() will reformat lines into paragraphs. All it does is
-break up long lines, it will not join short lines together.
-
-Text::Fill::fill() will reformat blocks of text into paragraphs. It
-uses Text::Wrap::wrap() to do the work
-
-Install them with:
-
- perl Makefile.PL
- make
- make test
- make install
-
diff --git a/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/lib/Text/Wrap.pm b/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/lib/Text/Wrap.pm
deleted file mode 100644
index de86202..0000000
--- a/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/lib/Text/Wrap.pm
+++ /dev/null
@@ -1,265 +0,0 @@
-package Text::Wrap;
-
-use warnings::register;
-require Exporter;
-
- at ISA = qw(Exporter);
- at EXPORT = qw(wrap fill);
- at EXPORT_OK = qw($columns $break $huge);
-
-$VERSION = 2009.0305;
-
-use vars qw($VERSION $columns $debug $break $huge $unexpand $tabstop
- $separator $separator2);
-use strict;
-
-BEGIN {
- $columns = 76; # <= screen width
- $debug = 0;
- $break = '\s';
- $huge = 'wrap'; # alternatively: 'die' or 'overflow'
- $unexpand = 1;
- $tabstop = 8;
- $separator = "\n";
- $separator2 = undef;
-}
-
-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 - length(expand($xp)) - 1;
- if ($nll <= 0 && $xp ne '') {
- my $nc = length(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 - length(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]{0,$ll})($break|\n+|\z)/xmgc) {
- $r .= $unexpand
- ? unexpand($nl . $lead . $1)
- : $nl . $lead . $1;
- $remainder = $2;
- } elsif ($huge eq 'wrap' && $t =~ /\G([^\n]{$ll})/gc) {
- $r .= $unexpand
- ? unexpand($nl . $lead . $1)
- : $nl . $lead . $1;
- $remainder = defined($separator2) ? $separator2 : $separator;
- } elsif ($huge eq 'overflow' && $t =~ /\G([^\n]*?)($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;
-
- $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", at 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.
-
-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().
-
-Both C<wrap()> and C<fill()> return a single string.
-
-=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 SEE ALSO
-
-For wrapping multi-byte characters: L<Text::WrapI18N>.
-For more detailed controls: L<Text::Format>.
-
-=head1 LICENSE
-
-David Muir Sharnoff <muir at idiom.org> with help from Tim Pierce and
-many many others. Copyright (C) 1996-2009 David Muir Sharnoff.
-This module may be modified, used, copied, and redistributed at
-your own risk. Publicly redistributed versions that are modified
-must use a different name.
-
diff --git a/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/39548.t b/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/39548.t
deleted file mode 100755
index 6cca086..0000000
--- a/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/39548.t
+++ /dev/null
@@ -1,11 +0,0 @@
-#!/usr/bin/perl -w -I.
-
-# https://rt.perl.org/rt3/Ticket/Display.html?id=39548
-
-print "1..1\n";
-require Text::Wrap;
-$VAR1 = " (Karl-Bonhoeffer-Nervenklinik zwischen Hermann-Piper-Str. und U-Bahnhof) ";
-$VAR2 = " ";
-$VAR3 = "(5079,19635 5124,19634 5228,19320 5246,19244)\n";
-eval { Text::Wrap::wrap($VAR1,$VAR2,$VAR3); };
-print $@ ? "not ok 1\n" : "ok 1\n";
diff --git a/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/Jacobson.t b/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/Jacobson.t
deleted file mode 100755
index d2727e4..0000000
--- a/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/Jacobson.t
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/usr/bin/perl -I.
-
-# From: Dan Jacobson <jidanni at jidanni dot org>
-
-use Text::Wrap qw(wrap $columns $huge $break);
-
-print "1..1\n";
-
-$huge='overflow';
-$Text::Wrap::columns=9;
-$break="(?<=[,.])";
-eval {
-$a=$a=wrap('','',
-"mmmm,n,ooo,ppp.qqqq.rrrrr,sssssssssssss,ttttttttt,uu,vvv wwwwwwwww####\n");
-};
-
-if ($@) {
- my $e = $@;
- $e =~ s/^/# /gm;
- print $e;
-}
-print $@ ? "not ok 1\n" : "ok 1\n";
-
-
diff --git a/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/Jacobson2.t b/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/Jacobson2.t
deleted file mode 100755
index b7b06fa..0000000
--- a/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/Jacobson2.t
+++ /dev/null
@@ -1,22 +0,0 @@
-#!/usr/bin/perl -I.
-
-use Text::Wrap qw(wrap $columns $huge $break);
-
-print "1..1\n";
-
-$huge='overflow';
-$Text::Wrap::columns=9;
-$break="(?<=[,.])";
-eval {
-$a=$a=wrap('','',
-"mmmm,n,ooo,ppp.qqqq.rrrrr.adsljasdf\nlasjdflajsdflajsdfljasdfl\nlasjdflasjdflasf,sssssssssssss,ttttttttt,uu,vvv wwwwwwwww####\n");
-};
-
-if ($@) {
- my $e = $@;
- $e =~ s/^/# /gm;
- print $e;
-}
-print $@ ? "not ok 1\n" : "ok 1\n";
-
-
diff --git a/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/Jochen.t b/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/Jochen.t
deleted file mode 100755
index d4a3a8b..0000000
--- a/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/Jochen.t
+++ /dev/null
@@ -1,11 +0,0 @@
-#!/usr/bin/perl -I.
-
-use Text::Wrap;
-
-print "1..1\n";
-
-$Text::Wrap::columns = 1;
-eval { wrap('', '', ''); };
-
-print $@ ? "not ok 1\n" : "ok 1\n";
-
diff --git a/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/belg4mit.t b/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/belg4mit.t
deleted file mode 100755
index 2d10342..0000000
--- a/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/belg4mit.t
+++ /dev/null
@@ -1,18 +0,0 @@
-#!/usr/bin/perl -I.
-
-use Text::Wrap;
-
-print "1..1\n";
-
-$Text::Wrap::columns = 1;
-eval { wrap('', '', 'H4sICNoBwDoAA3NpZwA9jbsNwDAIRHumuC4NklvXTOD0KSJEnwU8fHz4Q8M9i3sGzkS7BBrm
-OkCTwsycb4S3DloZuMIYeXpLFqw5LaMhXC2ymhreVXNWMw9YGuAYdfmAbwomoPSyFJuFn2x8
-Opr8bBBidccAAAA'); };
-
-if ($@) {
- my $e = $@;
- $e =~ s/^/# /gm;
- print $e;
-}
-print $@ ? "not ok 1\n" : "ok 1\n";
-
diff --git a/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/dandv.t b/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/dandv.t
deleted file mode 100644
index b6ee69a..0000000
--- a/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/dandv.t
+++ /dev/null
@@ -1,8 +0,0 @@
-
-use Text::Wrap;
-use Test::More tests => 2;
-$Text::Wrap::columns = 4;
-eval { $x = Text::Wrap::wrap('', '123', 'some text'); };
-is($@, '');
-is($x, "some\n123t\n123e\n123x\n123t");
-
diff --git a/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/fill.t b/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/fill.t
deleted file mode 100755
index dab0432..0000000
--- a/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/fill.t
+++ /dev/null
@@ -1,105 +0,0 @@
-#!/usr/bin/perl -w -I.
-
- at tests = (split(/\nEND\n/s, <<DONE));
-TEST1
-Cyberdog Information
-
-Cyberdog & Netscape in the news
-Important Press Release regarding Cyberdog and Netscape. Check it out!
-
-Cyberdog Plug-in Support!
-Cyberdog support for Netscape Plug-ins is now available to download! Go
-to the Cyberdog Beta Download page and download it now!
-
-Cyberdog Book
-Check out Jesse Feiler's way-cool book about Cyberdog. You can find
-details out about the book as well as ordering information at Philmont
-Software Mill site.
-
-Java!
-Looking to view Java applets in Cyberdog 1.1 Beta 3? Download and install
-the Mac OS Runtime for Java and try it out!
-
-Cyberdog 1.1 Beta 3
-We hope that Cyberdog and OpenDoc 1.1 will be available within the next
-two weeks. In the meantime, we have released another version of
-Cyberdog, Cyberdog 1.1 Beta 3. This version fixes several bugs that were
-reported to us during out public beta period. You can check out our release
-notes to see what we fixed!
-END
- Cyberdog Information
- Cyberdog & Netscape in the news Important Press Release regarding
- Cyberdog and Netscape. Check it out!
- Cyberdog Plug-in Support! Cyberdog support for Netscape Plug-ins is now
- available to download! Go to the Cyberdog Beta Download page and download
- it now!
- Cyberdog Book Check out Jesse Feiler's way-cool book about Cyberdog.
- You can find details out about the book as well as ordering information at
- Philmont Software Mill site.
- Java! Looking to view Java applets in Cyberdog 1.1 Beta 3? Download and
- install the Mac OS Runtime for Java and try it out!
- Cyberdog 1.1 Beta 3 We hope that Cyberdog and OpenDoc 1.1 will be
- available within the next two weeks. In the meantime, we have released
- another version of Cyberdog, Cyberdog 1.1 Beta 3. This version fixes
- several bugs that were reported to us during out public beta period. You
- can check out our release notes to see what we fixed!
-END
-DONE
-
-
-$| = 1;
-
-print "1..";
-print @tests/2;
-print "\n";
-
-use Text::Wrap;
-
-$rerun = $ENV{'PERL_DL_NONLAZY'} ? 0 : 1;
-
-$tn = 1;
-while (@tests) {
- my $in = shift(@tests);
- my $out = shift(@tests);
-
- $in =~ s/^TEST(\d+)?\n//;
-
- my $back = fill(' ', ' ', $in);
-
- if ($back eq $out) {
- print "ok $tn\n";
- } elsif ($rerun) {
- my $oi = $in;
- write_file("#o", $back);
- write_file("#e", $out);
- foreach ($in, $back, $out) {
- s/\t/^I\t/gs;
- s/\n/\$\n/gs;
- }
- print "------------ input ------------\n";
- print $in;
- print "\n------------ output -----------\n";
- print $back;
- print "\n------------ expected ---------\n";
- print $out;
- print "\n-------------------------------\n";
- $Text::Wrap::debug = 1;
- fill(' ', ' ', $oi);
- exit(1);
- } else {
- print "not ok $tn\n";
- }
- $tn++;
-}
-
-sub write_file
-{
- my ($f, @data) = @_;
-
- local(*F);
-
- open(F, ">$f") || die "open >$f: $!";
- (print F @data) || die "write $f: $!";
- close(F) || die "close $f: $!";
- return 1;
-}
diff --git a/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/tabs.t b/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/tabs.t
deleted file mode 100755
index 1bba9a6..0000000
--- a/3.8.8/sources/cpan-Text-Tabs+Wrap/vendor/t/tabs.t
+++ /dev/null
@@ -1,136 +0,0 @@
-#!/usr/old/bin/perl5.004_01 -w
-
- at tests = (split(/\nEND\n/s, <<DONE));
-TEST 1 u
- x
-END
- x
-END
-TEST 2 e
- x
-END
- x
-END
-TEST 3 e
- x
- y
- z
-END
- x
- y
- z
-END
-TEST 4 u
- x
- y
- z
-END
- x
- y
- z
-END
-TEST 5 u
-This Is a test of a line with many embedded tabs
-END
-This Is a test of a line with many embedded tabs
-END
-TEST 6 e
-This Is a test of a line with many embedded tabs
-END
-This Is a test of a line with many embedded tabs
-END
-TEST 7 u
- x
-END
- x
-END
-TEST 8 e
-
-
-
-
-
-END
-
-
-
-
-
-END
-TEST 9 u
-
-END
-
-END
-TEST 10 u
-
-
-
-
-
-END
-
-
-
-
-
-END
-TEST 11 u
-foobar IN A 140.174.82.12
-
-END
-foobar IN A 140.174.82.12
-
-END
-DONE
-
-$| = 1;
-
-print "1..";
-print @tests/2;
-print "\n";
-
-use Text::Tabs;
-
-$rerun = $ENV{'PERL_DL_NONLAZY'} ? 0 : 1;
-
-$tn = 1;
-while (@tests) {
- my $in = shift(@tests);
- my $out = shift(@tests);
-
- $in =~ s/^TEST\s*(\d+)?\s*(\S+)?\n//;
-
- if ($2 eq 'e') {
- $f = \&expand;
- $fn = 'expand';
- } else {
- $f = \&unexpand;
- $fn = 'unexpand';
- }
-
- my $back = &$f($in);
-
- if ($back eq $out) {
- print "ok $tn\n";
- } elsif ($rerun) {
- my $oi = $in;
- foreach ($in, $back, $out) {
- s/\t/^I\t/gs;
- s/\n/\$\n/gs;
- }
- print "------------ input ------------\n";
- print $in;
- print "\$\n------------ $fn -----------\n";
- print $back;
- print "\$\n------------ expected ---------\n";
- print $out;
- print "\$\n-------------------------------\n";
- $Text::Tabs::debug = 1;
- my $back = &$f($in);
- exit(1);
- } else {
- print "not ok $tn\n";
- }
- $tn++;
-}
diff --git a/3.8.8/sources/cpan-Time-HiRes/vendor/HiRes.pm b/3.8.8/sources/cpan-Time-HiRes/vendor/HiRes.pm
deleted file mode 100644
index f8ca13d..0000000
--- a/3.8.8/sources/cpan-Time-HiRes/vendor/HiRes.pm
+++ /dev/null
@@ -1,591 +0,0 @@
-package Time::HiRes;
-
-use strict;
-use vars qw($VERSION $XS_VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD);
-
-require Exporter;
-require DynaLoader;
-
- at ISA = qw(Exporter DynaLoader);
-
- at EXPORT = qw( );
- at EXPORT_OK = qw (usleep sleep ualarm alarm gettimeofday time tv_interval
- getitimer setitimer nanosleep clock_gettime clock_getres
- clock clock_nanosleep
- CLOCK_HIGHRES CLOCK_MONOTONIC CLOCK_PROCESS_CPUTIME_ID
- CLOCK_REALTIME 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
- );
-
-$VERSION = '1.9721';
-$XS_VERSION = $VERSION;
-$VERSION = eval $VERSION;
-
-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 );
-
- 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 );
-
- my @stat = stat("file");
- my @stat = stat(FH);
-
-=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 surpised
-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 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 haveinterval 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>.
-
-=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
-
-As L<perlfunc/stat> 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 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_getres(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 double (*)()
- 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:
-
- double (*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(double(*)(), SvIV(*svp));
- printf("The current time is: %f\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.
-
-=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 at whirlpool.com>
-R. Schertler <roderick at argon.org>
-J. Hietaniemi <jhi at iki.fi>
-G. Aas <gisle at 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.
-
-This program is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-=cut
diff --git a/3.8.8/sources/cpan-Time-HiRes/vendor/HiRes.xs b/3.8.8/sources/cpan-Time-HiRes/vendor/HiRes.xs
deleted file mode 100644
index 1dc2a68..0000000
--- a/3.8.8/sources/cpan-Time-HiRes/vendor/HiRes.xs
+++ /dev/null
@@ -1,1261 +0,0 @@
-/*
- *
- * Copyright (c) 1996-2002 Douglas E. Wegscheid. All rights reserved.
- *
- * Copyright (c) 2002-2010 Jarkko Hietaniemi.
- * All rights reserved.
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the same terms as Perl itself.
- */
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-#define PERL_NO_GET_CONTEXT
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-#include "ppport.h"
-#if defined(__CYGWIN__) && defined(HAS_W32API_WINDOWS_H)
-# include <w32api/windows.h>
-# define CYGWIN_WITH_W32API
-#endif
-#ifdef WIN32
-# include <time.h>
-#else
-# include <sys/time.h>
-#endif
-#ifdef HAS_SELECT
-# ifdef I_SYS_SELECT
-# include <sys/select.h>
-# endif
-#endif
-#if defined(TIME_HIRES_CLOCK_GETTIME_SYSCALL) || defined(TIME_HIRES_CLOCK_GETRES_SYSCALL)
-#include <syscall.h>
-#endif
-#ifdef __cplusplus
-}
-#endif
-
-/* At least ppport.h 3.13 gets this wrong: one really cannot
- * have NVgf as anything else than "g" under Perl 5.6.x. */
-#if PERL_REVISION == 5 && PERL_VERSION == 6
-# undef NVgf
-# define NVgf "g"
-#endif
-
-#define IV_1E6 1000000
-#define IV_1E7 10000000
-#define IV_1E9 1000000000
-
-#define NV_1E6 1000000.0
-#define NV_1E7 10000000.0
-#define NV_1E9 1000000000.0
-
-#ifndef PerlProc_pause
-# define PerlProc_pause() Pause()
-#endif
-
-#ifdef HAS_PAUSE
-# define Pause pause
-#else
-# undef Pause /* In case perl.h did it already. */
-# define Pause() sleep(~0) /* Zzz for a long time. */
-#endif
-
-/* Though the cpp define ITIMER_VIRTUAL is available the functionality
- * is not supported in Cygwin as of August 2004, ditto for Win32.
- * Neither are ITIMER_PROF or ITIMER_REALPROF implemented. --jhi
- */
-#if defined(__CYGWIN__) || defined(WIN32)
-# undef ITIMER_VIRTUAL
-# undef ITIMER_PROF
-# undef ITIMER_REALPROF
-#endif
-
-#if defined(TIME_HIRES_CLOCK_GETTIME) && defined(_STRUCT_ITIMERSPEC)
-
-/* HP-UX has CLOCK_XXX values but as enums, not as defines.
- * The only way to detect these would be to test compile for each. */
-# ifdef __hpux
-/* However, it seems that at least in HP-UX 11.31 ia64 there *are*
- * defines for these, so let's try detecting them. */
-# ifndef CLOCK_REALTIME
-# define CLOCK_REALTIME CLOCK_REALTIME
-# define CLOCK_VIRTUAL CLOCK_VIRTUAL
-# define CLOCK_PROFILE CLOCK_PROFILE
-# endif
-# endif /* # ifdef __hpux */
-
-#endif /* #if defined(TIME_HIRES_CLOCK_GETTIME) && defined(_STRUCT_ITIMERSPEC) */
-
-#if defined(WIN32) || defined(CYGWIN_WITH_W32API)
-
-#ifndef HAS_GETTIMEOFDAY
-# define HAS_GETTIMEOFDAY
-#endif
-
-/* shows up in winsock.h?
-struct timeval {
- long tv_sec;
- long tv_usec;
-}
-*/
-
-typedef union {
- unsigned __int64 ft_i64;
- FILETIME ft_val;
-} FT_t;
-
-#define MY_CXT_KEY "Time::HiRes_" XS_VERSION
-
-typedef struct {
- unsigned long run_count;
- unsigned __int64 base_ticks;
- unsigned __int64 tick_frequency;
- FT_t base_systime_as_filetime;
- unsigned __int64 reset_time;
-} my_cxt_t;
-
-START_MY_CXT
-
-/* Number of 100 nanosecond units from 1/1/1601 to 1/1/1970 */
-#ifdef __GNUC__
-# define Const64(x) x##LL
-#else
-# define Const64(x) x##i64
-#endif
-#define EPOCH_BIAS Const64(116444736000000000)
-
-#ifdef Const64
-# ifdef __GNUC__
-# define IV_1E6LL 1000000LL /* Needed because of Const64() ##-appends LL (or i64). */
-# define IV_1E7LL 10000000LL
-# define IV_1E9LL 1000000000LL
-# else
-# define IV_1E6i64 1000000i64
-# define IV_1E7i64 10000000i64
-# define IV_1E9i64 1000000000i64
-# endif
-#endif
-
-/* NOTE: This does not compute the timezone info (doing so can be expensive,
- * and appears to be unsupported even by glibc) */
-
-/* dMY_CXT needs a Perl context and we don't want to call PERL_GET_CONTEXT
- for performance reasons */
-
-#undef gettimeofday
-#define gettimeofday(tp, not_used) _gettimeofday(aTHX_ tp, not_used)
-
-/* If the performance counter delta drifts more than 0.5 seconds from the
- * system time then we recalibrate to the system time. This means we may
- * move *backwards* in time! */
-#define MAX_PERF_COUNTER_SKEW Const64(5000000) /* 0.5 seconds */
-
-/* Reset reading from the performance counter every five minutes.
- * Many PC clocks just seem to be so bad. */
-#define MAX_PERF_COUNTER_TICKS Const64(300000000) /* 300 seconds */
-
-static int
-_gettimeofday(pTHX_ struct timeval *tp, void *not_used)
-{
- dMY_CXT;
-
- unsigned __int64 ticks;
- FT_t ft;
-
- if (MY_CXT.run_count++ == 0 ||
- MY_CXT.base_systime_as_filetime.ft_i64 > MY_CXT.reset_time) {
- QueryPerformanceFrequency((LARGE_INTEGER*)&MY_CXT.tick_frequency);
- QueryPerformanceCounter((LARGE_INTEGER*)&MY_CXT.base_ticks);
- GetSystemTimeAsFileTime(&MY_CXT.base_systime_as_filetime.ft_val);
- ft.ft_i64 = MY_CXT.base_systime_as_filetime.ft_i64;
- MY_CXT.reset_time = ft.ft_i64 + MAX_PERF_COUNTER_TICKS;
- }
- else {
- __int64 diff;
- QueryPerformanceCounter((LARGE_INTEGER*)&ticks);
- ticks -= MY_CXT.base_ticks;
- ft.ft_i64 = MY_CXT.base_systime_as_filetime.ft_i64
- + Const64(IV_1E7) * (ticks / MY_CXT.tick_frequency)
- +(Const64(IV_1E7) * (ticks % MY_CXT.tick_frequency)) / MY_CXT.tick_frequency;
- diff = ft.ft_i64 - MY_CXT.base_systime_as_filetime.ft_i64;
- if (diff < -MAX_PERF_COUNTER_SKEW || diff > MAX_PERF_COUNTER_SKEW) {
- MY_CXT.base_ticks += ticks;
- GetSystemTimeAsFileTime(&MY_CXT.base_systime_as_filetime.ft_val);
- ft.ft_i64 = MY_CXT.base_systime_as_filetime.ft_i64;
- }
- }
-
- /* seconds since epoch */
- tp->tv_sec = (long)((ft.ft_i64 - EPOCH_BIAS) / Const64(IV_1E7));
-
- /* microseconds remaining */
- tp->tv_usec = (long)((ft.ft_i64 / Const64(10)) % Const64(IV_1E6));
-
- return 0;
-}
-#endif
-
-#if defined(WIN32) && !defined(ATLEASTFIVEOHOHFIVE)
-static unsigned int
-sleep(unsigned int t)
-{
- Sleep(t*1000);
- return 0;
-}
-#endif
-
-#if !defined(HAS_GETTIMEOFDAY) && defined(VMS)
-#define HAS_GETTIMEOFDAY
-
-#include <lnmdef.h>
-#include <time.h> /* gettimeofday */
-#include <stdlib.h> /* qdiv */
-#include <starlet.h> /* sys$gettim */
-#include <descrip.h>
-#ifdef __VAX
-#include <lib$routines.h> /* lib$ediv() */
-#endif
-
-/*
- VMS binary time is expressed in 100 nano-seconds since
- system base time which is 17-NOV-1858 00:00:00.00
-*/
-
-#define DIV_100NS_TO_SECS 10000000L
-#define DIV_100NS_TO_USECS 10L
-
-/*
- gettimeofday is supposed to return times since the epoch
- so need to determine this in terms of VMS base time
-*/
-static $DESCRIPTOR(dscepoch,"01-JAN-1970 00:00:00.00");
-
-#ifdef __VAX
-static long base_adjust[2]={0L,0L};
-#else
-static __int64 base_adjust=0;
-#endif
-
-/*
-
- If we don't have gettimeofday, then likely we are on a VMS machine that
- operates on local time rather than UTC...so we have to zone-adjust.
- This code gleefully swiped from VMS.C
-
-*/
-/* method used to handle UTC conversions:
- * 1 == CRTL gmtime(); 2 == SYS$TIMEZONE_DIFFERENTIAL; 3 == no correction
- */
-static int gmtime_emulation_type;
-/* number of secs to add to UTC POSIX-style time to get local time */
-static long int utc_offset_secs;
-static struct dsc$descriptor_s fildevdsc =
- { 12, DSC$K_DTYPE_T, DSC$K_CLASS_S, "LNM$FILE_DEV" };
-static struct dsc$descriptor_s *fildev[] = { &fildevdsc, NULL };
-
-static time_t toutc_dst(time_t loc) {
- struct tm *rsltmp;
-
- if ((rsltmp = localtime(&loc)) == NULL) return -1;
- loc -= utc_offset_secs;
- if (rsltmp->tm_isdst) loc -= 3600;
- return loc;
-}
-
-static time_t toloc_dst(time_t utc) {
- struct tm *rsltmp;
-
- utc += utc_offset_secs;
- if ((rsltmp = localtime(&utc)) == NULL) return -1;
- if (rsltmp->tm_isdst) utc += 3600;
- return utc;
-}
-
-#define _toutc(secs) ((secs) == (time_t) -1 ? (time_t) -1 : \
- ((gmtime_emulation_type || timezone_setup()), \
- (gmtime_emulation_type == 1 ? toutc_dst(secs) : \
- ((secs) - utc_offset_secs))))
-
-#define _toloc(secs) ((secs) == (time_t) -1 ? (time_t) -1 : \
- ((gmtime_emulation_type || timezone_setup()), \
- (gmtime_emulation_type == 1 ? toloc_dst(secs) : \
- ((secs) + utc_offset_secs))))
-
-static int
-timezone_setup(void)
-{
- struct tm *tm_p;
-
- if (gmtime_emulation_type == 0) {
- int dstnow;
- time_t base = 15 * 86400; /* 15jan71; to avoid month/year ends between */
- /* results of calls to gmtime() and localtime() */
- /* for same &base */
-
- gmtime_emulation_type++;
- if ((tm_p = gmtime(&base)) == NULL) { /* CRTL gmtime() is a fake */
- char off[LNM$C_NAMLENGTH+1];;
-
- gmtime_emulation_type++;
- if (!Perl_vmstrnenv("SYS$TIMEZONE_DIFFERENTIAL",off,0,fildev,0)) {
- gmtime_emulation_type++;
- utc_offset_secs = 0;
- Perl_warn(aTHX_ "no UTC offset information; assuming local time is UTC");
- }
- else { utc_offset_secs = atol(off); }
- }
- else { /* We've got a working gmtime() */
- struct tm gmt, local;
-
- gmt = *tm_p;
- tm_p = localtime(&base);
- local = *tm_p;
- utc_offset_secs = (local.tm_mday - gmt.tm_mday) * 86400;
- utc_offset_secs += (local.tm_hour - gmt.tm_hour) * 3600;
- utc_offset_secs += (local.tm_min - gmt.tm_min) * 60;
- utc_offset_secs += (local.tm_sec - gmt.tm_sec);
- }
- }
- return 1;
-}
-
-
-int
-gettimeofday (struct timeval *tp, void *tpz)
-{
- long ret;
-#ifdef __VAX
- long quad[2];
- long quad1[2];
- long div_100ns_to_secs;
- long div_100ns_to_usecs;
- long quo,rem;
- long quo1,rem1;
-#else
- __int64 quad;
- __qdiv_t ans1,ans2;
-#endif
-/*
- In case of error, tv_usec = 0 and tv_sec = VMS condition code.
- The return from function is also set to -1.
- This is not exactly as per the manual page.
-*/
-
- tp->tv_usec = 0;
-
-#ifdef __VAX
- if (base_adjust[0]==0 && base_adjust[1]==0) {
-#else
- if (base_adjust==0) { /* Need to determine epoch adjustment */
-#endif
- ret=sys$bintim(&dscepoch,&base_adjust);
- if (1 != (ret &&1)) {
- tp->tv_sec = ret;
- return -1;
- }
- }
-
- ret=sys$gettim(&quad); /* Get VMS system time */
- if ((1 && ret) == 1) {
-#ifdef __VAX
- quad[0] -= base_adjust[0]; /* convert to epoch offset */
- quad[1] -= base_adjust[1]; /* convert 2nd half of quadword */
- div_100ns_to_secs = DIV_100NS_TO_SECS;
- div_100ns_to_usecs = DIV_100NS_TO_USECS;
- lib$ediv(&div_100ns_to_secs,&quad,&quo,&rem);
- quad1[0] = rem;
- quad1[1] = 0L;
- lib$ediv(&div_100ns_to_usecs,&quad1,&quo1,&rem1);
- tp->tv_sec = quo; /* Whole seconds */
- tp->tv_usec = quo1; /* Micro-seconds */
-#else
- quad -= base_adjust; /* convert to epoch offset */
- ans1=qdiv(quad,DIV_100NS_TO_SECS);
- ans2=qdiv(ans1.rem,DIV_100NS_TO_USECS);
- tp->tv_sec = ans1.quot; /* Whole seconds */
- tp->tv_usec = ans2.quot; /* Micro-seconds */
-#endif
- } else {
- tp->tv_sec = ret;
- return -1;
- }
-# ifdef VMSISH_TIME
-# ifdef RTL_USES_UTC
- if (VMSISH_TIME) tp->tv_sec = _toloc(tp->tv_sec);
-# else
- if (!VMSISH_TIME) tp->tv_sec = _toutc(tp->tv_sec);
-# endif
-# endif
- return 0;
-}
-#endif
-
-
- /* Do not use H A S _ N A N O S L E E P
- * so that Perl Configure doesn't scan for it (and pull in -lrt and
- * the like which are not usually good ideas for the default Perl).
- * (We are part of the core perl now.)
- * The TIME_HIRES_NANOSLEEP is set by Makefile.PL. */
-#if !defined(HAS_USLEEP) && defined(TIME_HIRES_NANOSLEEP)
-#define HAS_USLEEP
-#define usleep hrt_usleep /* could conflict with ncurses for static build */
-
-void
-hrt_usleep(unsigned long usec) /* This is used to emulate usleep. */
-{
- struct timespec res;
- res.tv_sec = usec / IV_1E6;
- res.tv_nsec = ( usec - res.tv_sec * IV_1E6 ) * 1000;
- nanosleep(&res, NULL);
-}
-
-#endif /* #if !defined(HAS_USLEEP) && defined(TIME_HIRES_NANOSLEEP) */
-
-#if !defined(HAS_USLEEP) && defined(HAS_SELECT)
-#ifndef SELECT_IS_BROKEN
-#define HAS_USLEEP
-#define usleep hrt_usleep /* could conflict with ncurses for static build */
-
-void
-hrt_usleep(unsigned long usec)
-{
- struct timeval tv;
- tv.tv_sec = 0;
- tv.tv_usec = usec;
- select(0, (Select_fd_set_t)NULL, (Select_fd_set_t)NULL,
- (Select_fd_set_t)NULL, &tv);
-}
-#endif
-#endif /* #if !defined(HAS_USLEEP) && defined(HAS_SELECT) */
-
-#if !defined(HAS_USLEEP) && defined(WIN32)
-#define HAS_USLEEP
-#define usleep hrt_usleep /* could conflict with ncurses for static build */
-
-void
-hrt_usleep(unsigned long usec)
-{
- long msec;
- msec = usec / 1000;
- Sleep (msec);
-}
-#endif /* #if !defined(HAS_USLEEP) && defined(WIN32) */
-
-#if !defined(HAS_USLEEP) && defined(HAS_POLL)
-#define HAS_USLEEP
-#define usleep hrt_usleep /* could conflict with ncurses for static build */
-
-void
-hrt_usleep(unsigned long usec)
-{
- int msec = usec / 1000;
- poll(0, 0, msec);
-}
-
-#endif /* #if !defined(HAS_USLEEP) && defined(HAS_POLL) */
-
-#if defined(HAS_SETITIMER) && defined(ITIMER_REAL)
-
-static int
-hrt_ualarm_itimero(struct itimerval *oitv, int usec, int uinterval)
-{
- struct itimerval itv;
- itv.it_value.tv_sec = usec / IV_1E6;
- itv.it_value.tv_usec = usec % IV_1E6;
- itv.it_interval.tv_sec = uinterval / IV_1E6;
- itv.it_interval.tv_usec = uinterval % IV_1E6;
- return setitimer(ITIMER_REAL, &itv, oitv);
-}
-
-int
-hrt_ualarm_itimer(int usec, int uinterval)
-{
- return hrt_ualarm_itimero(NULL, usec, uinterval);
-}
-
-#ifdef HAS_UALARM
-int
-hrt_ualarm(int usec, int interval) /* for binary compat before 1.91 */
-{
- return hrt_ualarm_itimer(usec, interval);
-}
-#endif /* #ifdef HAS_UALARM */
-#endif /* #if !defined(HAS_UALARM) && defined(HAS_SETITIMER) */
-
-#if !defined(HAS_UALARM) && defined(HAS_SETITIMER)
-#define HAS_UALARM
-#define ualarm hrt_ualarm_itimer /* could conflict with ncurses for static build */
-#endif
-
-#if !defined(HAS_UALARM) && defined(VMS)
-#define HAS_UALARM
-#define ualarm vms_ualarm
-
-#include <lib$routines.h>
-#include <ssdef.h>
-#include <starlet.h>
-#include <descrip.h>
-#include <signal.h>
-#include <jpidef.h>
-#include <psldef.h>
-
-#define VMSERR(s) (!((s)&1))
-
-static void
-us_to_VMS(useconds_t mseconds, unsigned long v[])
-{
- int iss;
- unsigned long qq[2];
-
- qq[0] = mseconds;
- qq[1] = 0;
- v[0] = v[1] = 0;
-
- iss = lib$addx(qq,qq,qq);
- if (VMSERR(iss)) lib$signal(iss);
- iss = lib$subx(v,qq,v);
- if (VMSERR(iss)) lib$signal(iss);
- iss = lib$addx(qq,qq,qq);
- if (VMSERR(iss)) lib$signal(iss);
- iss = lib$subx(v,qq,v);
- if (VMSERR(iss)) lib$signal(iss);
- iss = lib$subx(v,qq,v);
- if (VMSERR(iss)) lib$signal(iss);
-}
-
-static int
-VMS_to_us(unsigned long v[])
-{
- int iss;
- unsigned long div=10,quot, rem;
-
- iss = lib$ediv(&div,v,",&rem);
- if (VMSERR(iss)) lib$signal(iss);
-
- return quot;
-}
-
-typedef unsigned short word;
-typedef struct _ualarm {
- int function;
- int repeat;
- unsigned long delay[2];
- unsigned long interval[2];
- unsigned long remain[2];
-} Alarm;
-
-
-static int alarm_ef;
-static Alarm *a0, alarm_base;
-#define UAL_NULL 0
-#define UAL_SET 1
-#define UAL_CLEAR 2
-#define UAL_ACTIVE 4
-static void ualarm_AST(Alarm *a);
-
-static int
-vms_ualarm(int mseconds, int interval)
-{
- Alarm *a, abase;
- struct item_list3 {
- word length;
- word code;
- void *bufaddr;
- void *retlenaddr;
- } ;
- static struct item_list3 itmlst[2];
- static int first = 1;
- unsigned long asten;
- int iss, enabled;
-
- if (first) {
- first = 0;
- itmlst[0].code = JPI$_ASTEN;
- itmlst[0].length = sizeof(asten);
- itmlst[0].retlenaddr = NULL;
- itmlst[1].code = 0;
- itmlst[1].length = 0;
- itmlst[1].bufaddr = NULL;
- itmlst[1].retlenaddr = NULL;
-
- iss = lib$get_ef(&alarm_ef);
- if (VMSERR(iss)) lib$signal(iss);
-
- a0 = &alarm_base;
- a0->function = UAL_NULL;
- }
- itmlst[0].bufaddr = &asten;
-
- iss = sys$getjpiw(0,0,0,itmlst,0,0,0);
- if (VMSERR(iss)) lib$signal(iss);
- if (!(asten&0x08)) return -1;
-
- a = &abase;
- if (mseconds) {
- a->function = UAL_SET;
- } else {
- a->function = UAL_CLEAR;
- }
-
- us_to_VMS(mseconds, a->delay);
- if (interval) {
- us_to_VMS(interval, a->interval);
- a->repeat = 1;
- } else
- a->repeat = 0;
-
- iss = sys$clref(alarm_ef);
- if (VMSERR(iss)) lib$signal(iss);
-
- iss = sys$dclast(ualarm_AST,a,0);
- if (VMSERR(iss)) lib$signal(iss);
-
- iss = sys$waitfr(alarm_ef);
- if (VMSERR(iss)) lib$signal(iss);
-
- if (a->function == UAL_ACTIVE)
- return VMS_to_us(a->remain);
- else
- return 0;
-}
-
-
-
-static void
-ualarm_AST(Alarm *a)
-{
- int iss;
- unsigned long now[2];
-
- iss = sys$gettim(now);
- if (VMSERR(iss)) lib$signal(iss);
-
- if (a->function == UAL_SET || a->function == UAL_CLEAR) {
- if (a0->function == UAL_ACTIVE) {
- iss = sys$cantim(a0,PSL$C_USER);
- if (VMSERR(iss)) lib$signal(iss);
-
- iss = lib$subx(a0->remain, now, a->remain);
- if (VMSERR(iss)) lib$signal(iss);
-
- if (a->remain[1] & 0x80000000)
- a->remain[0] = a->remain[1] = 0;
- }
-
- if (a->function == UAL_SET) {
- a->function = a0->function;
- a0->function = UAL_ACTIVE;
- a0->repeat = a->repeat;
- if (a0->repeat) {
- a0->interval[0] = a->interval[0];
- a0->interval[1] = a->interval[1];
- }
- a0->delay[0] = a->delay[0];
- a0->delay[1] = a->delay[1];
-
- iss = lib$subx(now, a0->delay, a0->remain);
- if (VMSERR(iss)) lib$signal(iss);
-
- iss = sys$setimr(0,a0->delay,ualarm_AST,a0);
- if (VMSERR(iss)) lib$signal(iss);
- } else {
- a->function = a0->function;
- a0->function = UAL_NULL;
- }
- iss = sys$setef(alarm_ef);
- if (VMSERR(iss)) lib$signal(iss);
- } else if (a->function == UAL_ACTIVE) {
- if (a->repeat) {
- iss = lib$subx(now, a->interval, a->remain);
- if (VMSERR(iss)) lib$signal(iss);
-
- iss = sys$setimr(0,a->interval,ualarm_AST,a);
- if (VMSERR(iss)) lib$signal(iss);
- } else {
- a->function = UAL_NULL;
- }
- iss = sys$wake(0,0);
- if (VMSERR(iss)) lib$signal(iss);
- lib$signal(SS$_ASTFLT);
- } else {
- lib$signal(SS$_BADPARAM);
- }
-}
-
-#endif /* #if !defined(HAS_UALARM) && defined(VMS) */
-
-#ifdef HAS_GETTIMEOFDAY
-
-static int
-myU2time(pTHX_ UV *ret)
-{
- struct timeval Tp;
- int status;
- status = gettimeofday (&Tp, NULL);
- ret[0] = Tp.tv_sec;
- ret[1] = Tp.tv_usec;
- return status;
-}
-
-static NV
-myNVtime()
-{
-#ifdef WIN32
- dTHX;
-#endif
- struct timeval Tp;
- int status;
- status = gettimeofday (&Tp, NULL);
- return status == 0 ? Tp.tv_sec + (Tp.tv_usec / NV_1E6) : -1.0;
-}
-
-#endif /* #ifdef HAS_GETTIMEOFDAY */
-
-static void
-hrstatns(UV atime, UV mtime, UV ctime, UV *atime_nsec, UV *mtime_nsec, UV *ctime_nsec)
-{
- dTHXR;
- *atime_nsec = 0;
- *mtime_nsec = 0;
- *ctime_nsec = 0;
-#ifdef TIME_HIRES_STAT
-#if TIME_HIRES_STAT == 1
- *atime_nsec = PL_statcache.st_atimespec.tv_nsec;
- *mtime_nsec = PL_statcache.st_mtimespec.tv_nsec;
- *ctime_nsec = PL_statcache.st_ctimespec.tv_nsec;
-#endif
-#if TIME_HIRES_STAT == 2
- *atime_nsec = PL_statcache.st_atimensec;
- *mtime_nsec = PL_statcache.st_mtimensec;
- *ctime_nsec = PL_statcache.st_ctimensec;
-#endif
-#if TIME_HIRES_STAT == 3
- *atime_nsec = PL_statcache.st_atime_n;
- *mtime_nsec = PL_statcache.st_mtime_n;
- *ctime_nsec = PL_statcache.st_ctime_n;
-#endif
-#if TIME_HIRES_STAT == 4
- *atime_nsec = PL_statcache.st_atim.tv_nsec;
- *mtime_nsec = PL_statcache.st_mtim.tv_nsec;
- *ctime_nsec = PL_statcache.st_ctim.tv_nsec;
-#endif
-#if TIME_HIRES_STAT == 5
- *atime_nsec = PL_statcache.st_uatime * 1000;
- *mtime_nsec = PL_statcache.st_umtime * 1000;
- *ctime_nsec = PL_statcache.st_uctime * 1000;
-#endif
-#endif
-}
-
-#include "const-c.inc"
-
-MODULE = Time::HiRes PACKAGE = Time::HiRes
-
-PROTOTYPES: ENABLE
-
-BOOT:
-{
-#ifdef MY_CXT_KEY
- MY_CXT_INIT;
-#endif
-#ifdef ATLEASTFIVEOHOHFIVE
-# ifdef HAS_GETTIMEOFDAY
- {
- hv_store(PL_modglobal, "Time::NVtime", 12, newSViv(PTR2IV(myNVtime)), 0);
- hv_store(PL_modglobal, "Time::U2time", 12, newSViv(PTR2IV(myU2time)), 0);
- }
-# endif
-#endif
-}
-
-#if defined(USE_ITHREADS) && defined(MY_CXT_KEY)
-
-void
-CLONE(...)
- CODE:
- MY_CXT_CLONE;
-
-#endif
-
-INCLUDE: const-xs.inc
-
-#if defined(HAS_USLEEP) && defined(HAS_GETTIMEOFDAY)
-
-NV
-usleep(useconds)
- NV useconds
- PREINIT:
- struct timeval Ta, Tb;
- CODE:
- gettimeofday(&Ta, NULL);
- if (items > 0) {
- if (useconds > 1E6) {
- IV seconds = (IV) (useconds / 1E6);
- /* If usleep() has been implemented using setitimer()
- * then this contortion is unnecessary-- but usleep()
- * may be implemented in some other way, so let's contort. */
- if (seconds) {
- sleep(seconds);
- useconds -= 1E6 * seconds;
- }
- } else if (useconds < 0.0)
- croak("Time::HiRes::usleep(%"NVgf"): negative time not invented yet", useconds);
- usleep((U32)useconds);
- } else
- PerlProc_pause();
- gettimeofday(&Tb, NULL);
-#if 0
- printf("[%ld %ld] [%ld %ld]\n", Tb.tv_sec, Tb.tv_usec, Ta.tv_sec, Ta.tv_usec);
-#endif
- RETVAL = 1E6*(Tb.tv_sec-Ta.tv_sec)+(NV)((IV)Tb.tv_usec-(IV)Ta.tv_usec);
-
- OUTPUT:
- RETVAL
-
-#if defined(TIME_HIRES_NANOSLEEP)
-
-NV
-nanosleep(nsec)
- NV nsec
- PREINIT:
- struct timespec sleepfor, unslept;
- CODE:
- if (nsec < 0.0)
- croak("Time::HiRes::nanosleep(%"NVgf"): negative time not invented yet", nsec);
- sleepfor.tv_sec = (Time_t)(nsec / 1e9);
- sleepfor.tv_nsec = (long)(nsec - ((NV)sleepfor.tv_sec) * 1e9);
- if (!nanosleep(&sleepfor, &unslept)) {
- RETVAL = nsec;
- } else {
- sleepfor.tv_sec -= unslept.tv_sec;
- sleepfor.tv_nsec -= unslept.tv_nsec;
- if (sleepfor.tv_nsec < 0) {
- sleepfor.tv_sec--;
- sleepfor.tv_nsec += 1000000000;
- }
- RETVAL = ((NV)sleepfor.tv_sec) * 1e9 + ((NV)sleepfor.tv_nsec);
- }
- OUTPUT:
- RETVAL
-
-#else /* #if defined(TIME_HIRES_NANOSLEEP) */
-
-NV
-nanosleep(nsec)
- NV nsec
- CODE:
- croak("Time::HiRes::nanosleep(): unimplemented in this platform");
- RETVAL = 0.0;
-
-#endif /* #if defined(TIME_HIRES_NANOSLEEP) */
-
-NV
-sleep(...)
- PREINIT:
- struct timeval Ta, Tb;
- CODE:
- gettimeofday(&Ta, NULL);
- if (items > 0) {
- NV seconds = SvNV(ST(0));
- if (seconds >= 0.0) {
- UV useconds = (UV)(1E6 * (seconds - (UV)seconds));
- if (seconds >= 1.0)
- sleep((U32)seconds);
- if ((IV)useconds < 0) {
-#if defined(__sparc64__) && defined(__GNUC__)
- /* Sparc64 gcc 2.95.3 (e.g. on NetBSD) has a bug
- * where (0.5 - (UV)(0.5)) will under certain
- * circumstances (if the double is cast to UV more
- * than once?) evaluate to -0.5, instead of 0.5. */
- useconds = -(IV)useconds;
-#endif /* #if defined(__sparc64__) && defined(__GNUC__) */
- if ((IV)useconds < 0)
- croak("Time::HiRes::sleep(%"NVgf"): internal error: useconds < 0 (unsigned %"UVuf" signed %"IVdf")", seconds, useconds, (IV)useconds);
- }
- usleep(useconds);
- } else
- croak("Time::HiRes::sleep(%"NVgf"): negative time not invented yet", seconds);
- } else
- PerlProc_pause();
- gettimeofday(&Tb, NULL);
-#if 0
- printf("[%ld %ld] [%ld %ld]\n", Tb.tv_sec, Tb.tv_usec, Ta.tv_sec, Ta.tv_usec);
-#endif
- RETVAL = (NV)(Tb.tv_sec-Ta.tv_sec)+0.000001*(NV)(Tb.tv_usec-Ta.tv_usec);
-
- OUTPUT:
- RETVAL
-
-#else /* #if defined(HAS_USLEEP) && defined(HAS_GETTIMEOFDAY) */
-
-NV
-usleep(useconds)
- NV useconds
- CODE:
- croak("Time::HiRes::usleep(): unimplemented in this platform");
- RETVAL = 0.0;
-
-#endif /* #if defined(HAS_USLEEP) && defined(HAS_GETTIMEOFDAY) */
-
-#ifdef HAS_UALARM
-
-IV
-ualarm(useconds,uinterval=0)
- int useconds
- int uinterval
- CODE:
- if (useconds < 0 || uinterval < 0)
- croak("Time::HiRes::ualarm(%d, %d): negative time not invented yet", useconds, uinterval);
-#if defined(HAS_SETITIMER) && defined(ITIMER_REAL)
- {
- struct itimerval itv;
- if (hrt_ualarm_itimero(&itv, useconds, uinterval)) {
- /* To conform to ualarm's interface, we're actually ignoring
- an error here. */
- RETVAL = 0;
- } else {
- RETVAL = itv.it_value.tv_sec * IV_1E6 + itv.it_value.tv_usec;
- }
- }
-#else
- if (useconds >= IV_1E6 || uinterval >= IV_1E6)
- croak("Time::HiRes::ualarm(%d, %d): useconds or uinterval equal to or more than %"IVdf, useconds, uinterval, IV_1E6);
- RETVAL = ualarm(useconds, uinterval);
-#endif
-
- OUTPUT:
- RETVAL
-
-NV
-alarm(seconds,interval=0)
- NV seconds
- NV interval
- CODE:
- if (seconds < 0.0 || interval < 0.0)
- croak("Time::HiRes::alarm(%"NVgf", %"NVgf"): negative time not invented yet", seconds, interval);
- {
- IV useconds = IV_1E6 * seconds;
- IV uinterval = IV_1E6 * interval;
-#if defined(HAS_SETITIMER) && defined(ITIMER_REAL)
- {
- struct itimerval itv;
- if (hrt_ualarm_itimero(&itv, useconds, uinterval)) {
- /* To conform to alarm's interface, we're actually ignoring
- an error here. */
- RETVAL = 0;
- } else {
- RETVAL = itv.it_value.tv_sec + ((NV)itv.it_value.tv_usec) / NV_1E6;
- }
- }
-#else
- if (useconds >= IV_1E6 || uinterval >= IV_1E6)
- croak("Time::HiRes::alarm(%d, %d): seconds or interval equal to or more than 1.0 ", useconds, uinterval, IV_1E6);
- RETVAL = (NV)ualarm( useconds, uinterval ) / NV_1E6;
-#endif
- }
-
- OUTPUT:
- RETVAL
-
-#else
-
-int
-ualarm(useconds,interval=0)
- int useconds
- int interval
- CODE:
- croak("Time::HiRes::ualarm(): unimplemented in this platform");
- RETVAL = -1;
-
-NV
-alarm(seconds,interval=0)
- NV seconds
- NV interval
- CODE:
- croak("Time::HiRes::alarm(): unimplemented in this platform");
- RETVAL = 0.0;
-
-#endif /* #ifdef HAS_UALARM */
-
-#ifdef HAS_GETTIMEOFDAY
-# ifdef MACOS_TRADITIONAL /* fix epoch TZ and use unsigned time_t */
-void
-gettimeofday()
- PREINIT:
- struct timeval Tp;
- struct timezone Tz;
- PPCODE:
- int status;
- status = gettimeofday (&Tp, &Tz);
-
- if (status == 0) {
- Tp.tv_sec += Tz.tz_minuteswest * 60; /* adjust for TZ */
- if (GIMME == G_ARRAY) {
- EXTEND(sp, 2);
- /* Mac OS (Classic) has unsigned time_t */
- PUSHs(sv_2mortal(newSVuv(Tp.tv_sec)));
- PUSHs(sv_2mortal(newSViv(Tp.tv_usec)));
- } else {
- EXTEND(sp, 1);
- PUSHs(sv_2mortal(newSVnv(Tp.tv_sec + (Tp.tv_usec / NV_1E6))));
- }
- }
-
-NV
-time()
- PREINIT:
- struct timeval Tp;
- struct timezone Tz;
- CODE:
- int status;
- status = gettimeofday (&Tp, &Tz);
- if (status == 0) {
- Tp.tv_sec += Tz.tz_minuteswest * 60; /* adjust for TZ */
- RETVAL = Tp.tv_sec + (Tp.tv_usec / NV_1E6);
- } else {
- RETVAL = -1.0;
- }
- OUTPUT:
- RETVAL
-
-# else /* MACOS_TRADITIONAL */
-void
-gettimeofday()
- PREINIT:
- struct timeval Tp;
- PPCODE:
- int status;
- status = gettimeofday (&Tp, NULL);
- if (status == 0) {
- if (GIMME == G_ARRAY) {
- EXTEND(sp, 2);
- PUSHs(sv_2mortal(newSViv(Tp.tv_sec)));
- PUSHs(sv_2mortal(newSViv(Tp.tv_usec)));
- } else {
- EXTEND(sp, 1);
- PUSHs(sv_2mortal(newSVnv(Tp.tv_sec + (Tp.tv_usec / NV_1E6))));
- }
- }
-
-NV
-time()
- PREINIT:
- struct timeval Tp;
- CODE:
- int status;
- status = gettimeofday (&Tp, NULL);
- if (status == 0) {
- RETVAL = Tp.tv_sec + (Tp.tv_usec / NV_1E6);
- } else {
- RETVAL = -1.0;
- }
- OUTPUT:
- RETVAL
-
-# endif /* MACOS_TRADITIONAL */
-#endif /* #ifdef HAS_GETTIMEOFDAY */
-
-#if defined(HAS_GETITIMER) && defined(HAS_SETITIMER)
-
-#define TV2NV(tv) ((NV)((tv).tv_sec) + 0.000001 * (NV)((tv).tv_usec))
-
-void
-setitimer(which, seconds, interval = 0)
- int which
- NV seconds
- NV interval
- PREINIT:
- struct itimerval newit;
- struct itimerval oldit;
- PPCODE:
- if (seconds < 0.0 || interval < 0.0)
- croak("Time::HiRes::setitimer(%"IVdf", %"NVgf", %"NVgf"): negative time not invented yet", (IV)which, seconds, interval);
- newit.it_value.tv_sec = (IV)seconds;
- newit.it_value.tv_usec =
- (IV)((seconds - (NV)newit.it_value.tv_sec) * NV_1E6);
- newit.it_interval.tv_sec = (IV)interval;
- newit.it_interval.tv_usec =
- (IV)((interval - (NV)newit.it_interval.tv_sec) * NV_1E6);
- if (setitimer(which, &newit, &oldit) == 0) {
- EXTEND(sp, 1);
- PUSHs(sv_2mortal(newSVnv(TV2NV(oldit.it_value))));
- if (GIMME == G_ARRAY) {
- EXTEND(sp, 1);
- PUSHs(sv_2mortal(newSVnv(TV2NV(oldit.it_interval))));
- }
- }
-
-void
-getitimer(which)
- int which
- PREINIT:
- struct itimerval nowit;
- PPCODE:
- if (getitimer(which, &nowit) == 0) {
- EXTEND(sp, 1);
- PUSHs(sv_2mortal(newSVnv(TV2NV(nowit.it_value))));
- if (GIMME == G_ARRAY) {
- EXTEND(sp, 1);
- PUSHs(sv_2mortal(newSVnv(TV2NV(nowit.it_interval))));
- }
- }
-
-#endif /* #if defined(HAS_GETITIMER) && defined(HAS_SETITIMER) */
-
-#if defined(TIME_HIRES_CLOCK_GETTIME)
-
-NV
-clock_gettime(clock_id = CLOCK_REALTIME)
- int clock_id
- PREINIT:
- struct timespec ts;
- int status = -1;
- CODE:
-#ifdef TIME_HIRES_CLOCK_GETTIME_SYSCALL
- status = syscall(SYS_clock_gettime, clock_id, &ts);
-#else
- status = clock_gettime(clock_id, &ts);
-#endif
- RETVAL = status == 0 ? ts.tv_sec + (NV) ts.tv_nsec / (NV) 1e9 : -1;
-
- OUTPUT:
- RETVAL
-
-#else /* if defined(TIME_HIRES_CLOCK_GETTIME) */
-
-NV
-clock_gettime(clock_id = 0)
- int clock_id
- CODE:
- croak("Time::HiRes::clock_gettime(): unimplemented in this platform");
- RETVAL = 0.0;
-
-#endif /* #if defined(TIME_HIRES_CLOCK_GETTIME) */
-
-#if defined(TIME_HIRES_CLOCK_GETRES)
-
-NV
-clock_getres(clock_id = CLOCK_REALTIME)
- int clock_id
- PREINIT:
- int status = -1;
- struct timespec ts;
- CODE:
-#ifdef TIME_HIRES_CLOCK_GETRES_SYSCALL
- status = syscall(SYS_clock_getres, clock_id, &ts);
-#else
- status = clock_getres(clock_id, &ts);
-#endif
- RETVAL = status == 0 ? ts.tv_sec + (NV) ts.tv_nsec / (NV) 1e9 : -1;
-
- OUTPUT:
- RETVAL
-
-#else /* if defined(TIME_HIRES_CLOCK_GETRES) */
-
-NV
-clock_getres(clock_id = 0)
- int clock_id
- CODE:
- croak("Time::HiRes::clock_getres(): unimplemented in this platform");
- RETVAL = 0.0;
-
-#endif /* #if defined(TIME_HIRES_CLOCK_GETRES) */
-
-#if defined(TIME_HIRES_CLOCK_NANOSLEEP) && defined(TIMER_ABSTIME)
-
-NV
-clock_nanosleep(clock_id, nsec, flags = 0)
- int clock_id
- NV nsec
- int flags
- PREINIT:
- struct timespec sleepfor, unslept;
- CODE:
- if (nsec < 0.0)
- croak("Time::HiRes::clock_nanosleep(..., %"NVgf"): negative time not invented yet", nsec);
- sleepfor.tv_sec = (Time_t)(nsec / 1e9);
- sleepfor.tv_nsec = (long)(nsec - ((NV)sleepfor.tv_sec) * 1e9);
- if (!clock_nanosleep(clock_id, flags, &sleepfor, &unslept)) {
- RETVAL = nsec;
- } else {
- sleepfor.tv_sec -= unslept.tv_sec;
- sleepfor.tv_nsec -= unslept.tv_nsec;
- if (sleepfor.tv_nsec < 0) {
- sleepfor.tv_sec--;
- sleepfor.tv_nsec += 1000000000;
- }
- RETVAL = ((NV)sleepfor.tv_sec) * 1e9 + ((NV)sleepfor.tv_nsec);
- }
- OUTPUT:
- RETVAL
-
-#else /* if defined(TIME_HIRES_CLOCK_NANOSLEEP) && defined(TIMER_ABSTIME) */
-
-NV
-clock_nanosleep()
- CODE:
- croak("Time::HiRes::clock_nanosleep(): unimplemented in this platform");
- RETVAL = 0.0;
-
-#endif /* #if defined(TIME_HIRES_CLOCK_NANOSLEEP) && defined(TIMER_ABSTIME) */
-
-#if defined(TIME_HIRES_CLOCK) && defined(CLOCKS_PER_SEC)
-
-NV
-clock()
- PREINIT:
- clock_t clocks;
- CODE:
- clocks = clock();
- RETVAL = clocks == -1 ? -1 : (NV)clocks / (NV)CLOCKS_PER_SEC;
-
- OUTPUT:
- RETVAL
-
-#else /* if defined(TIME_HIRES_CLOCK) && defined(CLOCKS_PER_SEC) */
-
-NV
-clock()
- CODE:
- croak("Time::HiRes::clock(): unimplemented in this platform");
- RETVAL = 0.0;
-
-#endif /* #if defined(TIME_HIRES_CLOCK) && defined(CLOCKS_PER_SEC) */
-
-void
-stat(...)
-PROTOTYPE: ;$
- PPCODE:
- PUSHMARK(SP);
- XPUSHs(sv_2mortal(newSVsv(items == 1 ? ST(0) : DEFSV)));
- PUTBACK;
- ENTER;
- PL_laststatval = -1;
- (void)*(PL_ppaddr[OP_STAT])(aTHXR);
- SPAGAIN;
- LEAVE;
- if (PL_laststatval == 0) {
- /* We assume that pp_stat() left us with 13 valid stack items,
- * and that the timestamps are at offsets 8, 9, and 10. */
- UV atime = SvUV(ST( 8));
- UV mtime = SvUV(ST( 9));
- UV ctime = SvUV(ST(10));
- UV atime_nsec;
- UV mtime_nsec;
- UV ctime_nsec;
- hrstatns(atime, mtime, ctime,
- &atime_nsec, &mtime_nsec, &ctime_nsec);
- if (atime_nsec)
- ST( 8) = sv_2mortal(newSVnv(atime + 1e-9 * (NV) atime_nsec));
- if (mtime_nsec)
- ST( 9) = sv_2mortal(newSVnv(mtime + 1e-9 * (NV) mtime_nsec));
- if (ctime_nsec)
- ST(10) = sv_2mortal(newSVnv(ctime + 1e-9 * (NV) ctime_nsec));
- XSRETURN(13);
- }
- XSRETURN(0);
diff --git a/3.8.8/sources/cpan-Time-HiRes/vendor/META.yml b/3.8.8/sources/cpan-Time-HiRes/vendor/META.yml
deleted file mode 100644
index 593b126..0000000
--- a/3.8.8/sources/cpan-Time-HiRes/vendor/META.yml
+++ /dev/null
@@ -1,21 +0,0 @@
---- #YAML:1.0
-name: Time-HiRes
-version: 1.9721
-abstract: High resolution alarm, sleep, gettimeofday, interval timers
-author:
- - Jarkko Hietaniemi <jhi at iki.fi>
-license: unknown
-distribution_type: module
-configure_requires:
- ExtUtils::MakeMaker: 0
-build_requires:
- ExtUtils::MakeMaker: 0
-requires: {}
-no_index:
- directory:
- - t
- - inc
-generated_by: ExtUtils::MakeMaker version 6.55_02
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
diff --git a/3.8.8/sources/cpan-Time-HiRes/vendor/TODO b/3.8.8/sources/cpan-Time-HiRes/vendor/TODO
deleted file mode 100644
index 20cdeb8..0000000
--- a/3.8.8/sources/cpan-Time-HiRes/vendor/TODO
+++ /dev/null
@@ -1,7 +0,0 @@
-Version 1.38
-
-- interval timers for non-UNIX platforms?
-- nanosleep for non-UNIX platforms (that do not have usleep?)
-- any patches that Douglas has stashed away?
-- pthread_delay_np if no nanosleep?
-
diff --git a/3.8.8/sources/cpan-Time-HiRes/vendor/const-xs.inc b/3.8.8/sources/cpan-Time-HiRes/vendor/const-xs.inc
deleted file mode 100644
index b8c10a9..0000000
--- a/3.8.8/sources/cpan-Time-HiRes/vendor/const-xs.inc
+++ /dev/null
@@ -1,90 +0,0 @@
-void
-constant(sv)
- PREINIT:
-#ifdef dXSTARG
- dXSTARG; /* Faster if we have it. */
-#else
- dTARGET;
-#endif
- STRLEN len;
- int type;
- IV iv;
- /* NV nv; Uncomment this if you need to return NVs */
- /* const char *pv; Uncomment this if you need to return PVs */
- INPUT:
- SV * sv;
- const char * s = SvPV(sv, len);
- PPCODE:
- /* Change this to constant(aTHX_ s, len, &iv, &nv);
- if you need to return both NVs and IVs */
- type = constant(aTHX_ s, len, &iv);
- /* 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 Time::HiRes macro", s));
- PUSHs(sv);
- break;
- case PERL_constant_NOTDEF:
- sv = sv_2mortal(newSVpvf(
- "Your vendor has not defined Time::HiRes macro %s, used",
- s));
- PUSHs(sv);
- break;
- case PERL_constant_ISIV:
- EXTEND(SP, 1);
- PUSHs(&PL_sv_undef);
- PUSHi(iv);
- break;
- /* Uncomment this if you need to return NOs
- case PERL_constant_ISNO:
- EXTEND(SP, 1);
- PUSHs(&PL_sv_undef);
- PUSHs(&PL_sv_no);
- break; */
- /* Uncomment this if you need to return NVs
- case PERL_constant_ISNV:
- EXTEND(SP, 1);
- PUSHs(&PL_sv_undef);
- PUSHn(nv);
- break; */
- /* Uncomment this if you need to return PVs
- case PERL_constant_ISPV:
- EXTEND(SP, 1);
- PUSHs(&PL_sv_undef);
- PUSHp(pv, strlen(pv));
- break; */
- /* Uncomment this if you need to return PVNs
- case PERL_constant_ISPVN:
- EXTEND(SP, 1);
- PUSHs(&PL_sv_undef);
- PUSHp(pv, iv);
- break; */
- /* Uncomment this if you need to return SVs
- case PERL_constant_ISSV:
- EXTEND(SP, 1);
- PUSHs(&PL_sv_undef);
- PUSHs(sv);
- break; */
- /* Uncomment this if you need to return UNDEFs
- case PERL_constant_ISUNDEF:
- break; */
- /* Uncomment this if you need to return UVs
- case PERL_constant_ISUV:
- EXTEND(SP, 1);
- PUSHs(&PL_sv_undef);
- PUSHu((UV)iv);
- break; */
- /* Uncomment this if you need to return YESs
- case PERL_constant_ISYES:
- EXTEND(SP, 1);
- PUSHs(&PL_sv_undef);
- PUSHs(&PL_sv_yes);
- break; */
- default:
- sv = sv_2mortal(newSVpvf(
- "Unexpected return type %d while processing Time::HiRes macro %s, used",
- type, s));
- PUSHs(sv);
- }
diff --git a/3.8.8/sources/cpan-Time-HiRes/vendor/hints/dynixptx.pl b/3.8.8/sources/cpan-Time-HiRes/vendor/hints/dynixptx.pl
deleted file mode 100644
index 0a1e5db..0000000
--- a/3.8.8/sources/cpan-Time-HiRes/vendor/hints/dynixptx.pl
+++ /dev/null
@@ -1,5 +0,0 @@
-# uname -v
-# V4.5.2
-# needs to explicitly link against libc to pull in usleep
-$self->{LIBS} = ['-lc'];
-
diff --git a/3.8.8/sources/cpan-Time-HiRes/vendor/hints/sco.pl b/3.8.8/sources/cpan-Time-HiRes/vendor/hints/sco.pl
deleted file mode 100644
index 22f2764..0000000
--- a/3.8.8/sources/cpan-Time-HiRes/vendor/hints/sco.pl
+++ /dev/null
@@ -1,4 +0,0 @@
-# osr5 needs to explicitly link against libc to pull in usleep
-# what's the reason for -lm?
-$self->{LIBS} = ['-lm', '-lc'];
-
diff --git a/3.8.8/sources/cpan-Time-HiRes/vendor/hints/solaris.pl b/3.8.8/sources/cpan-Time-HiRes/vendor/hints/solaris.pl
deleted file mode 100644
index 6cc80e7..0000000
--- a/3.8.8/sources/cpan-Time-HiRes/vendor/hints/solaris.pl
+++ /dev/null
@@ -1,10 +0,0 @@
-# 2.6 has nanosleep in -lposix4, after that it's in -lrt
-my $r = `/usr/bin/uname -r`;
-chomp($r);
-if (substr($r, 2) <= 6) {
- $self->{LIBS} = ['-lposix4'];
-} else {
- $self->{LIBS} = ['-lrt'];
-}
-
-
diff --git a/3.8.8/sources/cpan-Time-HiRes/vendor/hints/svr4.pl b/3.8.8/sources/cpan-Time-HiRes/vendor/hints/svr4.pl
deleted file mode 100644
index 7512872..0000000
--- a/3.8.8/sources/cpan-Time-HiRes/vendor/hints/svr4.pl
+++ /dev/null
@@ -1,4 +0,0 @@
-# NCR MP-RAS needs to explicitly link against libc to pull in usleep
-# what's the reason for -lm?
-$self->{LIBS} = ['-lm', '-lc'];
-
diff --git a/3.8.8/sources/cpan-Time-HiRes/vendor/ppport.h b/3.8.8/sources/cpan-Time-HiRes/vendor/ppport.h
deleted file mode 100644
index df2a04d..0000000
--- a/3.8.8/sources/cpan-Time-HiRes/vendor/ppport.h
+++ /dev/null
@@ -1,6376 +0,0 @@
-#if 0
-<<'SKIP';
-#endif
-/*
-----------------------------------------------------------------------
-
- ppport.h -- Perl/Pollution/Portability Version 3.13
-
- Automatically created by Devel::PPPort running under perl 5.008008.
-
- 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 3.13
-
-=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.10.0.
-
-=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
-automagially 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_signals NEED_PL_signals NEED_PL_signals_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
- my_snprintf() NEED_my_snprintf NEED_my_snprintf_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
- newSVpvn_share() NEED_newSVpvn_share NEED_newSVpvn_share_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
- 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 using the CPAN Request Tracker at L<http://rt.cpan.org/>.
-
-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-2007, 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 = 3.13;
-
-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(
-AvFILLp|5.004050||p
-AvFILL|||
-CLASS|||n
-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||p
-Copy|||
-CvPADLIST|||
-CvSTASH|||
-CvWEAKOUTSIDE|||
-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_NOARGS|||
-G_SCALAR|||
-G_VOID||5.004000|
-GetVars|||
-GvSV|||
-Gv_AMupdate|||
-HEf_SVKEY||5.004000|
-HeHASH||5.004000|
-HeKEY||5.004000|
-HeKLEN||5.004000|
-HePV||5.004000|
-HeSVKEY_force||5.004000|
-HeSVKEY_set||5.004000|
-HeSVKEY||5.004000|
-HeVAL||5.004000|
-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|||
-LVRET|||
-MARK|||
-MULTICALL||5.009005|
-MY_CXT_CLONE|5.009002||p
-MY_CXT_INIT|5.007003||p
-MY_CXT|5.007003||p
-MoveD|5.009002||p
-Move|||
-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|||
-ORIGMARK|||
-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|||
-PERL_ABS|5.008001||p
-PERL_BCDVERSION|5.009005||p
-PERL_GCC_BRACE_GROUPS_FORBIDDEN|5.008001||p
-PERL_HASH|5.004000||p
-PERL_INT_MAX|5.004000||p
-PERL_INT_MIN|5.004000||p
-PERL_LONG_MAX|5.004000||p
-PERL_LONG_MIN|5.004000||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.009005||p
-PERL_MAGIC_isaelem|5.007002||p
-PERL_MAGIC_isa|5.007002||p
-PERL_MAGIC_mutex|5.009005||p
-PERL_MAGIC_nkeys|5.007002||p
-PERL_MAGIC_overload_elem|5.007002||p
-PERL_MAGIC_overload_table|5.007002||p
-PERL_MAGIC_overload|5.007002||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_QUAD_MAX|5.004000||p
-PERL_QUAD_MIN|5.004000||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.004000||p
-PERL_SHORT_MIN|5.004000||p
-PERL_SIGNALS_UNSAFE_FLAG|5.008001||p
-PERL_SUBVERSION|5.006000||p
-PERL_UCHAR_MAX|5.004000||p
-PERL_UCHAR_MIN|5.004000||p
-PERL_UINT_MAX|5.004000||p
-PERL_UINT_MIN|5.004000||p
-PERL_ULONG_MAX|5.004000||p
-PERL_ULONG_MIN|5.004000||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.004000||p
-PERL_UQUAD_MIN|5.004000||p
-PERL_USE_GCC_BRACE_GROUPS|5.009004||p
-PERL_USHORT_MAX|5.004000||p
-PERL_USHORT_MIN|5.004000||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_compiling|5.004050||p
-PL_copline|5.009005||p
-PL_curcop|5.004050||p
-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_expect|5.009005||p
-PL_hexdigit|5.005000||p
-PL_hints|5.005000||p
-PL_last_in_gv|||n
-PL_laststatval|5.005000||p
-PL_modglobal||5.005000|n
-PL_na|5.004050||pn
-PL_no_modify|5.006000||p
-PL_ofs_sv|||n
-PL_perl_destruct_level|5.004050||p
-PL_perldb|5.004050||p
-PL_ppaddr|5.006000||p
-PL_rsfp_filters|5.004050||p
-PL_rsfp|5.004050||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
-POP_MULTICALL||5.009005|
-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
-PTR2ul|5.007001||p
-PTRV|5.006000||p
-PUSHMARK|||
-PUSH_MULTICALL||5.009005|
-PUSHi|||
-PUSHmortal|5.009002||p
-PUSHn|||
-PUSHp|||
-PUSHs|||
-PUSHu|5.004000||p
-PUTBACK|||
-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_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
-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
-SVf|5.006000||p
-SVt_IV|||
-SVt_NV|||
-SVt_PVAV|||
-SVt_PVCV|||
-SVt_PVHV|||
-SVt_PVMG|||
-SVt_PV|||
-Safefree|||
-Slab_Alloc|||
-Slab_Free|||
-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_set|||
-SvNVx|||
-SvNV|||
-SvOK|||
-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|5.007002||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|||
-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|||
-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.009005||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
-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
-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_VERSION_BOOTCHECK|||
-XS_VERSION|||
-XSprePUSH|5.006000||p
-XS|||
-ZeroD|5.009002||p
-Zero|||
-_aMY_CXT|5.007003||p
-_pMY_CXT|5.007003||p
-aMY_CXT_|5.007003||p
-aMY_CXT|5.007003||p
-aTHXR_|5.009005||p
-aTHXR|5.009005||p
-aTHX_|5.006000||p
-aTHX|5.006000||p
-add_data|||n
-addmad|||
-allocmy|||
-amagic_call|||
-amagic_cmp_locale|||
-amagic_cmp|||
-amagic_i_ncmp|||
-amagic_ncmp|||
-any_dup|||
-ao|||
-append_elem|||
-append_list|||
-append_madprops|||
-apply_attrs_my|||
-apply_attrs_string||5.006001|
-apply_attrs|||
-apply|||
-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|||
-av_fake|||
-av_fetch|||
-av_fill|||
-av_len|||
-av_make|||
-av_pop|||
-av_push|||
-av_reify|||
-av_shift|||
-av_store|||
-av_undef|||
-av_unshift|||
-ax|||n
-bad_type|||
-bind_match|||
-block_end|||
-block_gimme||5.004000|
-block_start|||
-boolSV|5.004000||p
-boot_core_PerlIO|||
-boot_core_UNIVERSAL|||
-boot_core_mro|||
-boot_core_xsutils|||
-bytes_from_utf8||5.007001|
-bytes_to_uni|||n
-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
-calloc||5.007002|n
-cando|||
-cast_i32||5.006000|
-cast_iv||5.006000|
-cast_ulong||5.006000|
-cast_uv||5.006000|
-check_type_and_open|||
-check_uni|||
-checkcomma|||
-checkposixcc|||
-ckWARN|5.006000||p
-ck_anoncode|||
-ck_bitop|||
-ck_concat|||
-ck_defined|||
-ck_delete|||
-ck_die|||
-ck_eof|||
-ck_eval|||
-ck_exec|||
-ck_exists|||
-ck_exit|||
-ck_ftst|||
-ck_fun|||
-ck_glob|||
-ck_grep|||
-ck_index|||
-ck_join|||
-ck_lengthconst|||
-ck_lfun|||
-ck_listiob|||
-ck_match|||
-ck_method|||
-ck_null|||
-ck_open|||
-ck_readline|||
-ck_repeat|||
-ck_require|||
-ck_retarget|||
-ck_return|||
-ck_rfun|||
-ck_rvconst|||
-ck_sassign|||
-ck_select|||
-ck_shift|||
-ck_sort|||
-ck_spair|||
-ck_split|||
-ck_subr|||
-ck_substr|||
-ck_svconst|||
-ck_trunc|||
-ck_unpack|||
-ckwarn_d||5.009003|
-ckwarn||5.009003|
-cl_and|||n
-cl_anything|||n
-cl_init_zero|||n
-cl_init|||n
-cl_is_anything|||n
-cl_or|||n
-clear_placeholders|||
-closest_cop|||
-convert|||
-cop_free|||
-cr_textfilter|||
-create_eval_scope|||
-croak_nocontext|||vn
-croak|||v
-csighandler||5.009003|n
-curmad|||
-custom_op_desc||5.007003|
-custom_op_name||5.007003|
-cv_ckproto_len|||
-cv_ckproto|||
-cv_clone|||
-cv_const_sv||5.004000|
-cv_dump|||
-cv_undef|||
-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.009005||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
-del_sv|||
-delete_eval_scope|||
-delimcpy||5.004000|
-deprecate_old|||
-deprecate|||
-despatch_signals||5.007001|
-destroy_matcher|||
-die_nocontext|||vn
-die_where|||
-die|||v
-dirp_dup|||
-div128|||
-djSP|||
-do_aexec5|||
-do_aexec|||
-do_aspawn|||
-do_binmode||5.004050|
-do_chomp|||
-do_chop|||
-do_close|||
-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_kv|||
-do_magic_dump||5.006000|
-do_msgrcv|||
-do_msgsnd|||
-do_oddball|||
-do_op_dump||5.006000|
-do_op_xmldump|||
-do_open9||5.006000|
-do_openn||5.007001|
-do_open||5.004000|
-do_pipe|||
-do_pmop_dump||5.006000|
-do_pmop_xmldump|||
-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_body|||
-docatch|||
-doeval|||
-dofile|||
-dofindlabel|||
-doform|||
-doing_taint||5.008001|n
-dooneliner|||
-doopen_pm|||
-doparseform|||
-dopoptoeval|||
-dopoptogiven|||
-dopoptolabel|||
-dopoptoloop|||
-dopoptosub_at|||
-dopoptosub|||
-dopoptowhen|||
-doref||5.009003|
-dounwind|||
-dowantarray|||
-dump_all||5.006000|
-dump_eval||5.006000|
-dump_exec_pos|||
-dump_fds|||
-dump_form||5.006000|
-dump_indent||5.006000|v
-dump_mstats|||
-dump_packsubs||5.006000|
-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|||
-emulate_eaccess|||
-eval_pv|5.006000||p
-eval_sv|5.006000||p
-exec_failed|||
-expect_number|||
-fbm_compile||5.005000|
-fbm_instr||5.005000|
-fd_on_nosuid_fs|||
-feature_is_enabled|||
-filter_add|||
-filter_del|||
-filter_gets|||
-filter_read|||
-find_and_forget_pmops|||
-find_array_subscript|||
-find_beginning|||
-find_byclass|||
-find_hash_subscript|||
-find_in_my_stash|||
-find_runcv||5.008001|
-find_rundefsvoffset||5.009002|
-find_script|||
-find_uninit_var|||
-first_symbol|||n
-fold_constants|||
-forbid_setid|||
-force_ident|||
-force_list|||
-force_next|||
-force_version|||
-force_word|||
-forget_pmop|||
-form_nocontext|||vn
-form||5.004000|v
-fp_dup|||
-fprintf_nocontext|||vn
-free_global_struct|||
-free_tied_hv_pool|||
-free_tmps|||
-gen_constant_list|||
-get_arena|||
-get_av|5.006000||p
-get_context||5.006000|n
-get_cvn_flags||5.009005|
-get_cv|5.006000||p
-get_db_sub|||
-get_debug_opts|||
-get_hash_seed|||
-get_hv|5.006000||p
-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_2pv|||
-glob_assign_glob|||
-glob_assign_ref|||
-gp_dup|||
-gp_free|||
-gp_ref|||
-grok_bin|5.007003||p
-grok_hex|5.007003||p
-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_autoload4||5.004000|
-gv_check|||
-gv_const_sv||5.009003|
-gv_dump||5.006000|
-gv_efullname3||5.004000|
-gv_efullname4||5.006001|
-gv_efullname|||
-gv_ename|||
-gv_fetchfile_flags||5.009005|
-gv_fetchfile|||
-gv_fetchmeth_autoload||5.007003|
-gv_fetchmethod_autoload||5.004000|
-gv_fetchmethod|||
-gv_fetchmeth|||
-gv_fetchpvn_flags||5.009002|
-gv_fetchpv|||
-gv_fetchsv||5.009002|
-gv_fullname3||5.004000|
-gv_fullname4||5.006001|
-gv_fullname|||
-gv_handler||5.007001|
-gv_init_sv|||
-gv_init|||
-gv_name_set||5.009004|
-gv_stashpvn|5.004000||p
-gv_stashpvs||5.009003|
-gv_stashpv|||
-gv_stashsv|||
-he_dup|||
-hek_dup|||
-hfreeentries|||
-hsplit|||
-hv_assert||5.009005|
-hv_auxinit|||n
-hv_backreferences_p|||
-hv_clear_placeholders||5.009001|
-hv_clear|||
-hv_copy_hints_hv|||
-hv_delayfree_ent||5.004000|
-hv_delete_common|||
-hv_delete_ent||5.004000|
-hv_delete|||
-hv_eiter_p||5.009003|
-hv_eiter_set||5.009003|
-hv_exists_ent||5.004000|
-hv_exists|||
-hv_fetch_common|||
-hv_fetch_ent||5.004000|
-hv_fetchs|5.009003||p
-hv_fetch|||
-hv_free_ent||5.004000|
-hv_iterinit|||
-hv_iterkeysv||5.004000|
-hv_iterkey|||
-hv_iternext_flags||5.008000|
-hv_iternextsv|||
-hv_iternext|||
-hv_iterval|||
-hv_kill_backrefs|||
-hv_ksplit||5.004000|
-hv_magic_check|||n
-hv_magic_uvar_xkey|||
-hv_magic|||
-hv_name_set||5.009003|
-hv_notallowed|||
-hv_placeholders_get||5.009003|
-hv_placeholders_p||5.009003|
-hv_placeholders_set||5.009003|
-hv_riter_p||5.009003|
-hv_riter_set||5.009003|
-hv_scalar||5.009001|
-hv_store_ent||5.004000|
-hv_store_flags||5.008000|
-hv_stores|5.009004||p
-hv_store|||
-hv_undef|||
-ibcmp_locale||5.004000|
-ibcmp_utf8||5.007003|
-ibcmp|||
-incl_perldb|||
-incline|||
-incpush_if_exists|||
-incpush|||
-ingroup|||
-init_argv_symbols|||
-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|
-instr|||
-intro_my|||
-intuit_method|||
-intuit_more|||
-invert|||
-io_close|||
-isALNUM|||
-isALPHA|||
-isDIGIT|||
-isLOWER|||
-isSPACE|||
-isUPPER|||
-is_an_int|||
-is_gv_magical_sv|||
-is_gv_magical|||
-is_handle_constructor|||n
-is_list_assignment|||
-is_lvalue_sub||5.007001|
-is_uni_alnum_lc||5.006000|
-is_uni_alnumc_lc||5.006000|
-is_uni_alnumc||5.006000|
-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_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.006000|
-is_utf8_alnum||5.006000|
-is_utf8_alpha||5.006000|
-is_utf8_ascii||5.006000|
-is_utf8_char_slow|||n
-is_utf8_char||5.006000|
-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_print||5.006000|
-is_utf8_punct||5.006000|
-is_utf8_space||5.006000|
-is_utf8_string_loclen||5.009003|
-is_utf8_string_loc||5.008001|
-is_utf8_string||5.006001|
-is_utf8_upper||5.006000|
-is_utf8_xdigit||5.006000|
-isa_lookup|||
-items|||n
-ix|||n
-jmaybe|||
-join_exact|||
-keyword|||
-leave_scope|||
-lex_end|||
-lex_start|||
-linklist|||
-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
-mPUSHu|5.009002||p
-mXPUSHi|5.009002||p
-mXPUSHn|5.009002||p
-mXPUSHp|5.009002||p
-mXPUSHu|5.009002||p
-mad_free|||
-madlex|||
-madparse|||
-magic_clear_all_env|||
-magic_clearenv|||
-magic_clearhint|||
-magic_clearpack|||
-magic_clearsig|||
-magic_dump||5.006000|
-magic_existspack|||
-magic_freearylen_p|||
-magic_freeovrld|||
-magic_freeregexp|||
-magic_getarylen|||
-magic_getdefelem|||
-magic_getnkeys|||
-magic_getpack|||
-magic_getpos|||
-magic_getsig|||
-magic_getsubstr|||
-magic_gettaint|||
-magic_getuvar|||
-magic_getvec|||
-magic_get|||
-magic_killbackrefs|||
-magic_len|||
-magic_methcall|||
-magic_methpack|||
-magic_nextpack|||
-magic_regdata_cnt|||
-magic_regdatum_get|||
-magic_regdatum_set|||
-magic_scalarpack|||
-magic_set_all_env|||
-magic_setamagic|||
-magic_setarylen|||
-magic_setbm|||
-magic_setcollxfrm|||
-magic_setdbline|||
-magic_setdefelem|||
-magic_setenv|||
-magic_setfm|||
-magic_setglob|||
-magic_sethint|||
-magic_setisa|||
-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|||
-magicname|||
-make_matcher|||
-make_trie_failtable|||
-make_trie|||
-malloced_size|||n
-malloc||5.007002|n
-markstack_grow|||
-matcher_matches_sv|||
-measure_struct|||
-memEQ|5.004000||p
-memNE|5.004000||p
-mem_collxfrm|||
-mess_alloc|||
-mess_nocontext|||vn
-mess||5.006000|v
-method_common|||
-mfree||5.007002|n
-mg_clear|||
-mg_copy|||
-mg_dup|||
-mg_find|||
-mg_free|||
-mg_get|||
-mg_length||5.005000|
-mg_localize|||
-mg_magical|||
-mg_set|||
-mg_size||5.005000|
-mini_mktime||5.007002|
-missingterm|||
-mode_from_discipline|||
-modkids|||
-mod|||
-more_bodies|||
-more_sv|||
-moreswitches|||
-mro_get_linear_isa_c3||5.009005|
-mro_get_linear_isa_dfs||5.009005|
-mro_get_linear_isa||5.009005|
-mro_isa_changed_in|||
-mro_meta_dup|||
-mro_meta_init|||
-mro_method_changed_in||5.009005|
-mul128|||
-mulexp10|||n
-my_atof2||5.007002|
-my_atof||5.006000|
-my_attrs|||
-my_bcopy|||n
-my_betoh16|||n
-my_betoh32|||n
-my_betoh64|||n
-my_betohi|||n
-my_betohl|||n
-my_betohs|||n
-my_bzero|||n
-my_chsize|||
-my_clearenv|||
-my_cxt_index|||
-my_cxt_init|||
-my_dirfd||5.009005|
-my_exit_jump|||
-my_exit|||
-my_failure_exit||5.004000|
-my_fflush_all||5.006000|
-my_fork||5.007003|n
-my_htobe16|||n
-my_htobe32|||n
-my_htobe64|||n
-my_htobei|||n
-my_htobel|||n
-my_htobes|||n
-my_htole16|||n
-my_htole32|||n
-my_htole64|||n
-my_htolei|||n
-my_htolel|||n
-my_htoles|||n
-my_htonl|||
-my_kid|||
-my_letoh16|||n
-my_letoh32|||n
-my_letoh64|||n
-my_letohi|||n
-my_letohl|||n
-my_letohs|||n
-my_lstat|||
-my_memcmp||5.004000|n
-my_memset|||n
-my_ntohl|||
-my_pclose||5.004000|
-my_popen_list||5.007001|
-my_popen||5.004000|
-my_setenv|||
-my_snprintf|5.009004||pvn
-my_socketpair||5.007003|n
-my_sprintf||5.009003|vn
-my_stat|||
-my_strftime||5.007002|
-my_strlcat|5.009004||pn
-my_strlcpy|5.009004||pn
-my_swabn|||n
-my_swap|||
-my_unexec|||
-my_vsnprintf||5.009004|n
-my|||
-need_utf8|||n
-newANONATTRSUB||5.006000|
-newANONHASH|||
-newANONLIST|||
-newANONSUB|||
-newASSIGNOP|||
-newATTRSUB||5.006000|
-newAVREF|||
-newAV|||
-newBINOP|||
-newCONDOP|||
-newCONSTSUB|5.004050||p
-newCVREF|||
-newDEFSVOP|||
-newFORM|||
-newFOROP|||
-newGIVENOP||5.009003|
-newGIVWHENOP|||
-newGP|||
-newGVOP|||
-newGVREF|||
-newGVgen|||
-newHVREF|||
-newHVhv||5.005000|
-newHV|||
-newIO|||
-newLISTOP|||
-newLOGOP|||
-newLOOPEX|||
-newLOOPOP|||
-newMADPROP|||
-newMADsv|||
-newMYSUB|||
-newNULLLIST|||
-newOP|||
-newPADOP|||
-newPMOP|||
-newPROG|||
-newPVOP|||
-newRANGE|||
-newRV_inc|5.004000||p
-newRV_noinc|5.004000||p
-newRV|||
-newSLICEOP|||
-newSTATEOP|||
-newSUB|||
-newSVOP|||
-newSVREF|||
-newSV_type||5.009005|
-newSVhek||5.009003|
-newSViv|||
-newSVnv|||
-newSVpvf_nocontext|||vn
-newSVpvf||5.004000|v
-newSVpvn_share|5.007001||p
-newSVpvn|5.004050||p
-newSVpvs_share||5.009003|
-newSVpvs|5.009003||p
-newSVpv|||
-newSVrv|||
-newSVsv|||
-newSVuv|5.006000||p
-newSV|||
-newTOKEN|||
-newUNOP|||
-newWHENOP||5.009003|
-newWHILEOP||5.009003|
-newXS_flags||5.009004|
-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|||
-no_bareword_allowed|||
-no_fh_allowed|||
-no_op|||
-not_a_number|||
-nothreadhook||5.008000|
-nuke_stacks|||
-num_overflow|||n
-offer_nice_chunk|||
-oopsAV|||
-oopsCV|||
-oopsHV|||
-op_clear|||
-op_const_sv|||
-op_dump||5.006000|
-op_free|||
-op_getmad_weak|||
-op_getmad|||
-op_null||5.007002|
-op_refcnt_dec|||
-op_refcnt_inc|||
-op_refcnt_lock||5.009002|
-op_refcnt_unlock||5.009002|
-op_xmldump|||
-open_script|||
-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|||
-packlist||5.008001|
-pad_add_anon|||
-pad_add_name|||
-pad_alloc|||
-pad_block_start|||
-pad_check_dup|||
-pad_compname_type|||
-pad_findlex|||
-pad_findmy|||
-pad_fixup_inner_anons|||
-pad_free|||
-pad_leavemy|||
-pad_new|||
-pad_peg|||n
-pad_push|||
-pad_reset|||
-pad_setsv|||
-pad_sv||5.009005|
-pad_swipe|||
-pad_tidy|||
-pad_undef|||
-parse_body|||
-parse_unicode_opts|||
-parser_dup|||
-parser_free|||
-path_is_absolute|||n
-peep|||
-pending_Slabs_to_ro|||
-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|||
-pmflag|||
-pmop_dump||5.006000|
-pmop_xmldump|||
-pmruntime|||
-pmtrans|||
-pop_scope|||
-pregcomp||5.009005|
-pregexec|||
-pregfree|||
-prepend_elem|||
-prepend_madprops|||
-printbuf|||
-printf_nocontext|||vn
-process_special_blocks|||
-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_byte|||
-pv_display||5.006000|
-pv_escape||5.009004|
-pv_pretty||5.009004|
-pv_uni_display||5.007003|
-qerror|||
-qsortsvu|||
-re_compile||5.009005|
-re_croak2|||
-re_dup|||
-re_intuit_start||5.009005|
-re_intuit_string||5.006000|
-readpipe_override|||
-realloc||5.007002|n
-reentrant_free|||
-reentrant_init|||
-reentrant_retry|||vn
-reentrant_size|||
-ref_array_or_hash|||
-refcounted_he_chain_2hv|||
-refcounted_he_fetch|||
-refcounted_he_free|||
-refcounted_he_new|||
-refcounted_he_value|||
-refkids|||
-refto|||
-ref||5.009003|
-reg_check_named_buff_matched|||
-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_namedseq|||
-reg_node|||
-reg_numbered_buff_fetch|||
-reg_numbered_buff_length|||
-reg_numbered_buff_store|||
-reg_qr_package|||
-reg_recode|||
-reg_scan_name|||
-reg_skipcomment|||
-reg_stringify||5.009005|
-reg_temp_copy|||
-reganode|||
-regatom|||
-regbranch|||
-regclass_swash||5.009004|
-regclass|||
-regcppop|||
-regcppush|||
-regcurly|||n
-regdump_extflags|||
-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|
-regpiece|||
-regpposixcc|||
-regprop|||
-regrepeat|||
-regtail_study|||
-regtail|||
-regtry|||
-reguni|||
-regwhite|||n
-reg|||
-repeatcpy|||
-report_evil_fh|||
-report_uninit|||
-require_pv||5.006000|
-require_tie_mod|||
-restore_magic|||
-rninstr|||
-rsignal_restore|||
-rsignal_save|||
-rsignal_state||5.004000|
-rsignal||5.004000|
-run_body|||
-run_user_filter|||
-runops_debug||5.005000|
-runops_standard||5.005000|
-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_aelem||5.004050|
-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_hek_flags|||n
-save_helem||5.004050|
-save_hints||5.005000|
-save_hptr|||
-save_int|||
-save_item|||
-save_iv||5.005000|
-save_lines|||
-save_list|||
-save_long|||
-save_magic|||
-save_mortalizesv||5.007001|
-save_nogv|||
-save_op|||
-save_padsv||5.007001|
-save_pptr|||
-save_re_context||5.006000|
-save_scalar_at|||
-save_scalar|||
-save_set_svflags||5.009000|
-save_shared_pvref||5.007003|
-save_sptr|||
-save_svref|||
-save_vptr||5.006000|
-savepvn|||
-savepvs||5.009003|
-savepv|||
-savesharedpvn||5.009005|
-savesharedpv||5.007003|
-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|||
-scope|||
-screaminstr||5.005000|
-seed||5.008001|
-sequence_num|||
-sequence_tail|||
-sequence|||
-set_context||5.006000|n
-set_csh|||
-set_numeric_local||5.006000|
-set_numeric_radix||5.006000|
-set_numeric_standard||5.006000|
-setdefout|||
-setenv_getix|||
-share_hek_flags|||
-share_hek||5.004000|
-si_dup|||
-sighandler|||n
-simplify_sort|||
-skipspace0|||
-skipspace1|||
-skipspace2|||
-skipspace|||
-softref2xv|||
-sortcv_stacked|||
-sortcv_xsub|||
-sortcv|||
-sortsv_flags||5.009003|
-sortsv||5.007003|
-space_join_names_mortal|||
-ss_dup|||
-stack_grow|||
-start_force|||
-start_glob|||
-start_subparse||5.004000|
-stashpv_hvname_match||5.009005|
-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|||
-sv_2cv|||
-sv_2io|||
-sv_2iuv_common|||
-sv_2iuv_non_preserve|||
-sv_2iv_flags||5.009001|
-sv_2iv|||
-sv_2mortal|||
-sv_2nv|||
-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|||
-sv_bless|||
-sv_cat_decode||5.008001|
-sv_catpv_mg|5.004050||p
-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|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_catxmlpvn|||
-sv_catxmlsv|||
-sv_chop|||
-sv_clean_all|||
-sv_clean_objs|||
-sv_clear|||
-sv_cmp_locale||5.004000|
-sv_cmp|||
-sv_collxfrm|||
-sv_compile_2op||5.008001|
-sv_copypv||5.007003|
-sv_dec|||
-sv_del_backref|||
-sv_derived_from||5.004000|
-sv_does||5.009004|
-sv_dump|||
-sv_dup|||
-sv_eq|||
-sv_exp_grow|||
-sv_force_normal_flags||5.007001|
-sv_force_normal||5.006000|
-sv_free2|||
-sv_free_arenas|||
-sv_free|||
-sv_gets||5.004000|
-sv_grow|||
-sv_i_ncmp|||
-sv_inc|||
-sv_insert|||
-sv_isa|||
-sv_isobject|||
-sv_iv||5.005000|
-sv_kill_backrefs|||
-sv_len_utf8||5.006000|
-sv_len|||
-sv_magic_portable|5.009005|5.004000|p
-sv_magicext||5.007003|
-sv_magic|||
-sv_mortalcopy|||
-sv_ncmp|||
-sv_newmortal|||
-sv_newref|||
-sv_nolocking||5.007003|
-sv_nosharing||5.007003|
-sv_nounlocking|||
-sv_nv||5.005000|
-sv_peek||5.005000|
-sv_pos_b2u_midway|||
-sv_pos_b2u||5.006000|
-sv_pos_u2b_cached|||
-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||p
-sv_pvn|||
-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_release_COW|||
-sv_replace|||
-sv_report_used|||
-sv_reset|||
-sv_rvweaken||5.006000|
-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|5.009004||p
-sv_setpv|||
-sv_setref_iv|||
-sv_setref_nv|||
-sv_setref_pvn|||
-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_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||5.007002|
-sv_utf8_upgrade||5.007001|
-sv_uv|5.005000||p
-sv_vcatpvf_mg|5.006000|5.004000|p
-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
-sv_xmlpeek|||
-svtype|||
-swallow_bom|||
-swap_match_buff|||
-swash_fetch||5.007002|
-swash_get|||
-swash_init||5.006000|
-sys_intern_clear|||
-sys_intern_dup|||
-sys_intern_init|||
-taint_env|||
-taint_proper|||
-tmps_grow||5.006000|
-toLOWER|||
-toUPPER|||
-to_byte_substr|||
-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.007003|
-to_utf8_lower||5.007003|
-to_utf8_substr|||
-to_utf8_title||5.007003|
-to_utf8_upper||5.007003|
-token_free|||
-token_getmad|||
-tokenize_use|||
-tokeq|||
-tokereport|||
-too_few_arguments|||
-too_many_arguments|||
-uiv_2buf|||n
-unlnk|||
-unpack_rec|||
-unpack_str||5.007003|
-unpackstring||5.008001|
-unshare_hek_or_pvn|||
-unshare_hek|||
-unsharepvn||5.004000|
-unwind_handler_stack|||
-update_debugger_info|||
-upg_version||5.009005|
-usage|||
-utf16_to_utf8_reversed||5.006001|
-utf16_to_utf8||5.006001|
-utf8_distance||5.006000|
-utf8_hop||5.006000|
-utf8_length||5.007001|
-utf8_mg_pos_cache_update|||
-utf8_to_bytes||5.006001|
-utf8_to_uvchr||5.007001|
-utf8_to_uvuni||5.007001|
-utf8n_to_uvchr|||
-utf8n_to_uvuni||5.007001|
-utilize|||
-uvchr_to_utf8_flags||5.007003|
-uvchr_to_utf8|||
-uvuni_to_utf8_flags||5.007003|
-uvuni_to_utf8||5.007001|
-validate_suid|||
-varname|||
-vcmp||5.009000|
-vcroak||5.006000|
-vdeb||5.007003|
-vdie_common|||
-vdie_croak_common|||
-vdie|||
-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
-warner_nocontext|||vn
-warner|5.006000|5.004000|pv
-warn|||v
-watch|||
-whichsig|||
-write_no_mem|||
-write_to_stderr|||
-xmldump_all|||
-xmldump_attr|||
-xmldump_eval|||
-xmldump_form|||
-xmldump_indent|||v
-xmldump_packsubs|||
-xmldump_sub|||
-xmldump_vindent|||
-yyerror|||
-yylex|||
-yyparse|||
-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 $define;
- }
- 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+depends\s+on\s+(\w+(\s*,\s*\w+)*)\s+$rcce\s*$}) {
- push @{$depends{$1}}, map { s/\s+//g; $_ } split /,/, $2;
- }
-
- $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 (\$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 */
-
-#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 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 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 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
-
-# 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)
-
-# if PTRSIZE == LONGSIZE
-# define PTR2ul(p) (unsigned long)(p)
-# else
-# define PTR2ul(p) INT2PTR(unsigned long,p)
-# endif
-
-#endif /* !INT2PTR */
-
-#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
-
-/* Older perls (<=5.003) lack AvFILLp */
-#ifndef AvFILLp
-# define AvFILLp AvFILL
-#endif
-#ifndef ERRSV
-# define ERRSV get_sv("@",FALSE)
-#endif
-#ifndef newSVpvn
-# define newSVpvn(data,len) ((data) \
- ? ((len) ? newSVpv((data), (len)) : newSVpv("", 0)) \
- : newSV(0))
-#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 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 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 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_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_expect expect
-# define PL_hexdigit hexdigit
-# define PL_hints hints
-# define PL_laststatval laststatval
-# 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
-/* Replace: 0 */
-#endif
-
-/* Warning: PL_expect, PL_copline, PL_rsfp, PL_rsfp_filters
- * Do not use this variable. It is internal to the perl parser
- * and may change or even be removed in the future. Note that
- * as of perl 5.9.5 you cannot assign to this variable anymore.
- */
-
-/* TODO: cannot assign to these vars; is it worth fixing? */
-#if (PERL_BCDVERSION >= 0x5009005)
-# define PL_expect (PL_parser ? PL_parser->expect : 0)
-# define PL_copline (PL_parser ? PL_parser->copline : 0)
-# define PL_rsfp (PL_parser ? PL_parser->rsfp : (PerlIO *) 0)
-# define PL_rsfp_filters (PL_parser ? PL_parser->rsfp_filters : (AV *) 0)
-#endif
-#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
-#ifndef PUSHmortal
-# define PUSHmortal PUSHs(sv_newmortal())
-#endif
-
-#ifndef mPUSHp
-# define mPUSHp(p,l) sv_setpvn_mg(PUSHmortal, (p), (l))
-#endif
-
-#ifndef mPUSHn
-# define mPUSHn(n) sv_setnv_mg(PUSHmortal, (NV)(n))
-#endif
-
-#ifndef mPUSHi
-# define mPUSHi(i) sv_setiv_mg(PUSHmortal, (IV)(i))
-#endif
-
-#ifndef mPUSHu
-# define mPUSHu(u) sv_setuv_mg(PUSHmortal, (UV)(u))
-#endif
-#ifndef XPUSHmortal
-# define XPUSHmortal XPUSHs(sv_newmortal())
-#endif
-
-#ifndef mXPUSHp
-# define mXPUSHp(p,l) STMT_START { EXTEND(sp,1); sv_setpvn_mg(PUSHmortal, (p), (l)); } STMT_END
-#endif
-
-#ifndef mXPUSHn
-# define mXPUSHn(n) STMT_START { EXTEND(sp,1); sv_setnv_mg(PUSHmortal, (NV)(n)); } STMT_END
-#endif
-
-#ifndef mXPUSHi
-# define mXPUSHi(i) STMT_START { EXTEND(sp,1); sv_setiv_mg(PUSHmortal, (IV)(i)); } STMT_END
-#endif
-
-#ifndef mXPUSHu
-# define mXPUSHu(u) STMT_START { EXTEND(sp,1); sv_setuv_mg(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
-#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
-
-/* Replace: 0 */
-
-/* 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);
-#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)
-
-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 = 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"
-# else
-# if IVSIZE == INTSIZE
-# define IVdf "d"
-# define UVuf "u"
-# define UVof "o"
-# define UVxf "x"
-# define UVXf "X"
-# endif
-# endif
-#endif
-
-#ifndef NVef
-# if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) && \
- defined(PERL_PRIfldbl) /* 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
-
-/* 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
-#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, 0, 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, 0, 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, 0, 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, 0, 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 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
-
-#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 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 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 SvGETMAGIC
-# define SvGETMAGIC(x) STMT_START { if (SvGMAGICAL(x)) mg_get(x); } STMT_END
-#endif
-#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
-
-#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 */
-#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 >= (int)len)
- Perl_croak(aTHX_ "panic: my_snprintf buffer overflow");
- return retval;
-}
-
-#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
-
-#endif /* _P_P_PORTABILITY_H_ */
-
-/* End of File ppport.h */
diff --git a/3.8.8/sources/cpan-Time-HiRes/vendor/t/HiRes.t b/3.8.8/sources/cpan-Time-HiRes/vendor/t/HiRes.t
deleted file mode 100644
index 0a38e78..0000000
--- a/3.8.8/sources/cpan-Time-HiRes/vendor/t/HiRes.t
+++ /dev/null
@@ -1,828 +0,0 @@
-#!./perl -w
-
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = '../lib';
- require Config; import Config;
- if (" $Config{'extensions'} " !~ m[ Time/HiRes ]) {
- print "1..0 # Skip -- Perl configured without Time::HiRes module\n";
- exit 0;
- }
- }
-}
-
-BEGIN { $| = 1; print "1..48\n"; }
-
-END { print "not ok 1\n" unless $loaded }
-
-use Time::HiRes 1.9704; # Remember to bump this once in a while.
-use Time::HiRes qw(tv_interval);
-
-$loaded = 1;
-
-print "ok 1\n";
-
-use strict;
-
-my $have_gettimeofday = &Time::HiRes::d_gettimeofday;
-my $have_usleep = &Time::HiRes::d_usleep;
-my $have_nanosleep = &Time::HiRes::d_nanosleep;
-my $have_ualarm = &Time::HiRes::d_ualarm;
-my $have_clock_gettime = &Time::HiRes::d_clock_gettime;
-my $have_clock_getres = &Time::HiRes::d_clock_getres;
-my $have_clock_nanosleep = &Time::HiRes::d_clock_nanosleep;
-my $have_clock = &Time::HiRes::d_clock;
-my $have_hires_stat = &Time::HiRes::d_hires_stat;
-
-sub has_symbol {
- my $symbol = shift;
- eval "use Time::HiRes qw($symbol)";
- return 0 unless $@ eq '';
- eval "my \$a = $symbol";
- return $@ eq '';
-}
-
-printf "# have_gettimeofday = %d\n", $have_gettimeofday;
-printf "# have_usleep = %d\n", $have_usleep;
-printf "# have_nanosleep = %d\n", $have_nanosleep;
-printf "# have_ualarm = %d\n", $have_ualarm;
-printf "# have_clock_gettime = %d\n", $have_clock_gettime;
-printf "# have_clock_getres = %d\n", $have_clock_getres;
-printf "# have_clock_nanosleep = %d\n", $have_clock_nanosleep;
-printf "# have_clock = %d\n", $have_clock;
-printf "# have_hires_stat = %d\n", $have_hires_stat;
-
-import Time::HiRes 'gettimeofday' if $have_gettimeofday;
-import Time::HiRes 'usleep' if $have_usleep;
-import Time::HiRes 'nanosleep' if $have_nanosleep;
-import Time::HiRes 'ualarm' if $have_ualarm;
-import Time::HiRes 'clock_gettime' if $have_clock_gettime;
-import Time::HiRes 'clock_getres' if $have_clock_getres;
-import Time::HiRes 'clock_nanosleep' if $have_clock_nanosleep;
-import Time::HiRes 'clock' if $have_clock;
-
-use Config;
-
-use Time::HiRes qw(gettimeofday);
-
-my $have_alarm = $Config{d_alarm};
-my $have_fork = $Config{d_fork};
-my $waitfor = 360; # 30-45 seconds is normal (load affects this).
-my $timer_pid;
-my $TheEnd;
-
-if ($have_fork) {
- print "# I am the main process $$, starting the timer process...\n";
- $timer_pid = fork();
- if (defined $timer_pid) {
- if ($timer_pid == 0) { # We are the kid, set up the timer.
- my $ppid = getppid();
- print "# I am the timer process $$, sleeping for $waitfor seconds...\n";
- sleep($waitfor - 2); # Workaround for perlbug #49073
- sleep(2); # Wait for parent to exit
- if (kill(0, $ppid)) { # Check if parent still exists
- warn "\n$0: overall time allowed for tests (${waitfor}s) exceeded!\n";
- print "# Terminating main process $ppid...\n";
- kill('KILL', $ppid);
- print "# This is the timer process $$, over and out.\n";
- }
- exit(0);
- } else {
- print "# The timer process $timer_pid launched, continuing testing...\n";
- $TheEnd = time() + $waitfor;
- }
- } else {
- warn "$0: fork failed: $!\n";
- }
-} else {
- print "# No timer process (need fork)\n";
-}
-
-my $xdefine = '';
-
-if (open(XDEFINE, "xdefine")) {
- chomp($xdefine = <XDEFINE> || "");
- close(XDEFINE);
-}
-
-# Ideally, we'd like to test that the timers are rather precise.
-# However, if the system is busy, there are no guarantees on how
-# quickly we will return. This limit used to be 10%, but that
-# was occasionally triggered falsely.
-# So let's try 25%.
-# Another possibility might be to print "ok" if the test completes fine
-# with (say) 10% slosh, "skip - system may have been busy?" if the test
-# completes fine with (say) 30% slosh, and fail otherwise. If you do that,
-# consider changing over to test.pl at the same time.
-# --A.D., Nov 27, 2001
-my $limit = 0.25; # 25% is acceptable slosh for testing timers
-
-sub skip {
- map { print "ok $_ # skipped\n" } @_;
-}
-
-sub ok {
- my ($n, $result, @info) = @_;
- if ($result) {
- print "ok $n\n";
- }
- else {
- print "not ok $n\n";
- print "# @info\n" if @info;
- }
-}
-
-unless ($have_gettimeofday) {
- skip 2..6;
-}
-else {
- my @one = gettimeofday();
- ok 2, @one == 2, 'gettimeofday returned ', 0+ at one, ' args';
- ok 3, $one[0] > 850_000_000, "@one too small";
-
- sleep 1;
-
- my @two = gettimeofday();
- ok 4, ($two[0] > $one[0] || ($two[0] == $one[0] && $two[1] > $one[1])),
- "@two is not greater than @one";
-
- my $f = Time::HiRes::time();
- ok 5, $f > 850_000_000, "$f too small";
- ok 6, $f - $two[0] < 2, "$f - $two[0] >= 2";
-}
-
-unless ($have_usleep) {
- skip 7..8;
-}
-else {
- use Time::HiRes qw(usleep);
- my $one = time;
- usleep(10_000);
- my $two = time;
- usleep(10_000);
- my $three = time;
- ok 7, $one == $two || $two == $three, "slept too long, $one $two $three";
-
- unless ($have_gettimeofday) {
- skip 8;
- }
- else {
- my $f = Time::HiRes::time();
- usleep(500_000);
- my $f2 = Time::HiRes::time();
- my $d = $f2 - $f;
- ok 8, $d > 0.4 && $d < 0.9, "slept $d secs $f to $f2";
- }
-}
-
-# Two-arg tv_interval() is always available.
-{
- my $f = tv_interval [5, 100_000], [10, 500_000];
- ok 9, abs($f - 5.4) < 0.001, $f;
-}
-
-unless ($have_gettimeofday) {
- skip 10;
-}
-else {
- my $r = [gettimeofday()];
- my $f = tv_interval $r;
- ok 10, $f < 2, $f;
-}
-
-unless ($have_usleep && $have_gettimeofday) {
- skip 11;
-}
-else {
- my $r = [ gettimeofday() ];
- Time::HiRes::sleep( 0.5 );
- my $f = tv_interval $r;
- ok 11, $f > 0.4 && $f < 0.9, "slept $f instead of 0.5 secs.";
-}
-
-unless ($have_ualarm && $have_alarm) {
- skip 12..13;
-}
-else {
- my $tick = 0;
- local $SIG{ ALRM } = sub { $tick++ };
-
- my $one = time; $tick = 0; ualarm(10_000); while ($tick == 0) { }
- my $two = time; $tick = 0; ualarm(10_000); while ($tick == 0) { }
- my $three = time;
- ok 12, $one == $two || $two == $three, "slept too long, $one $two $three";
- print "# tick = $tick, one = $one, two = $two, three = $three\n";
-
- $tick = 0; ualarm(10_000, 10_000); while ($tick < 3) { }
- ok 13, 1;
- ualarm(0);
- print "# tick = $tick, one = $one, two = $two, three = $three\n";
-}
-
-# Did we even get close?
-
-unless ($have_gettimeofday) {
- skip 14;
-} else {
- my ($s, $n, $i) = (0);
- for $i (1 .. 100) {
- $s += Time::HiRes::time() - time();
- $n++;
- }
- # $s should be, at worst, equal to $n
- # (time() may be rounding down, up, or closest),
- # but allow 10% of slop.
- ok 14, abs($s) / $n <= 1.10, "Time::HiRes::time() not close to time()";
- print "# s = $s, n = $n, s/n = ", abs($s)/$n, "\n";
-}
-
-my $has_ualarm = $Config{d_ualarm};
-
-$has_ualarm ||= $xdefine =~ /-DHAS_UALARM/;
-
-my $can_subsecond_alarm =
- defined &Time::HiRes::gettimeofday &&
- defined &Time::HiRes::ualarm &&
- defined &Time::HiRes::usleep &&
- $has_ualarm;
-
-unless ($can_subsecond_alarm) {
- for (15..17) {
- print "ok $_ # Skip: no gettimeofday or no ualarm or no usleep\n";
- }
-} else {
- use Time::HiRes qw(time alarm sleep);
- eval { require POSIX };
- my $use_sigaction =
- !$@ && defined &POSIX::sigaction && &POSIX::SIGALRM > 0;
-
- my ($f, $r, $i, $not, $ok);
-
- $f = time;
- print "# time...$f\n";
- print "ok 15\n";
-
- $r = [Time::HiRes::gettimeofday()];
- sleep (0.5);
- print "# sleep...", Time::HiRes::tv_interval($r), "\nok 16\n";
-
- $r = [Time::HiRes::gettimeofday()];
- $i = 5;
- my $oldaction;
- if ($use_sigaction) {
- $oldaction = new POSIX::SigAction;
- printf "# sigaction tick, ALRM = %d\n", &POSIX::SIGALRM;
-
- # Perl's deferred signals may be too wimpy to break through
- # a restartable select(), so use POSIX::sigaction if available.
-
- POSIX::sigaction(&POSIX::SIGALRM,
- POSIX::SigAction->new("tick"),
- $oldaction)
- or die "Error setting SIGALRM handler with sigaction: $!\n";
- } else {
- print "# SIG tick\n";
- $SIG{ALRM} = "tick";
- }
-
- # On VMS timers can not interrupt select.
- if ($^O eq 'VMS') {
- $ok = "Skip: VMS select() does not get interrupted.";
- } else {
- while ($i > 0) {
- alarm(0.3);
- select (undef, undef, undef, 3);
- my $ival = Time::HiRes::tv_interval ($r);
- print "# Select returned! $i $ival\n";
- print "# ", abs($ival/3 - 1), "\n";
- # Whether select() gets restarted after signals is
- # implementation dependent. If it is restarted, we
- # will get about 3.3 seconds: 3 from the select, 0.3
- # from the alarm. If this happens, let's just skip
- # this particular test. --jhi
- if (abs($ival/3.3 - 1) < $limit) {
- $ok = "Skip: your select() may get restarted by your SIGALRM (or just retry test)";
- undef $not;
- last;
- }
- my $exp = 0.3 * (5 - $i);
- if ($exp == 0) {
- $not = "while: divisor became zero";
- last;
- }
- # This test is more sensitive, so impose a softer limit.
- if (abs($ival/$exp - 1) > 4*$limit) {
- my $ratio = abs($ival/$exp);
- $not = "while: $exp sleep took $ival ratio $ratio";
- last;
- }
- $ok = $i;
- }
- }
-
- sub tick {
- $i--;
- my $ival = Time::HiRes::tv_interval ($r);
- print "# Tick! $i $ival\n";
- my $exp = 0.3 * (5 - $i);
- if ($exp == 0) {
- $not = "tick: divisor became zero";
- last;
- }
- # This test is more sensitive, so impose a softer limit.
- if (abs($ival/$exp - 1) > 4*$limit) {
- my $ratio = abs($ival/$exp);
- $not = "tick: $exp sleep took $ival ratio $ratio";
- $i = 0;
- }
- }
-
- if ($use_sigaction) {
- POSIX::sigaction(&POSIX::SIGALRM, $oldaction);
- } else {
- alarm(0); # can't cancel usig %SIG
- }
-
- print $not ? "not ok 17 # $not\n" : "ok 17 # $ok\n";
-}
-
-unless (defined &Time::HiRes::setitimer
- && defined &Time::HiRes::getitimer
- && has_symbol('ITIMER_VIRTUAL')
- && $Config{sig_name} =~ m/\bVTALRM\b/
- && $^O ne 'nto' # nto: QNX 6 has the API but no implementation
- && $^O ne 'haiku' # haiku: has the API but no implementation
- ) {
- for (18..19) {
- print "ok $_ # Skip: no virtual interval timers\n";
- }
-} else {
- use Time::HiRes qw(setitimer getitimer ITIMER_VIRTUAL);
-
- my $i = 3;
- my $r = [Time::HiRes::gettimeofday()];
-
- $SIG{VTALRM} = sub {
- $i ? $i-- : setitimer(&ITIMER_VIRTUAL, 0);
- print "# Tick! $i ", Time::HiRes::tv_interval($r), "\n";
- };
-
- print "# setitimer: ", join(" ", setitimer(ITIMER_VIRTUAL, 0.5, 0.4)), "\n";
-
- # Assume interval timer granularity of $limit * 0.5 seconds. Too bold?
- my $virt = getitimer(&ITIMER_VIRTUAL);
- print "not " unless defined $virt && abs($virt / 0.5) - 1 < $limit;
- print "ok 18\n";
-
- print "# getitimer: ", join(" ", getitimer(ITIMER_VIRTUAL)), "\n";
-
- while (getitimer(&ITIMER_VIRTUAL)) {
- my $j;
- for (1..1000) { $j++ } # Can't be unbreakable, must test getitimer().
- }
-
- print "# getitimer: ", join(" ", getitimer(ITIMER_VIRTUAL)), "\n";
-
- $virt = getitimer(&ITIMER_VIRTUAL);
- print "not " unless defined $virt && $virt == 0;
- print "ok 19\n";
-
- $SIG{VTALRM} = 'DEFAULT';
-}
-
-if ($have_gettimeofday &&
- $have_usleep) {
- use Time::HiRes qw(usleep);
-
- my ($t0, $td);
-
- my $sleep = 1.5; # seconds
- my $msg;
-
- $t0 = gettimeofday();
- $a = abs(sleep($sleep) / $sleep - 1.0);
- $td = gettimeofday() - $t0;
- my $ratio = 1.0 + $a;
-
- $msg = "$td went by while sleeping $sleep, ratio $ratio.\n";
-
- if ($td < $sleep * (1 + $limit)) {
- print $a < $limit ? "ok 20 # $msg" : "not ok 20 # $msg";
- } else {
- print "ok 20 # Skip: $msg";
- }
-
- $t0 = gettimeofday();
- $a = abs(usleep($sleep * 1E6) / ($sleep * 1E6) - 1.0);
- $td = gettimeofday() - $t0;
- $ratio = 1.0 + $a;
-
- $msg = "$td went by while sleeping $sleep, ratio $ratio.\n";
-
- if ($td < $sleep * (1 + $limit)) {
- print $a < $limit ? "ok 21 # $msg" : "not ok 21 # $msg";
- } else {
- print "ok 21 # Skip: $msg";
- }
-
-} else {
- for (20..21) {
- print "ok $_ # Skip: no gettimeofday\n";
- }
-}
-
-unless ($have_nanosleep) {
- skip 22..23;
-}
-else {
- my $one = CORE::time;
- nanosleep(10_000_000);
- my $two = CORE::time;
- nanosleep(10_000_000);
- my $three = CORE::time;
- ok 22, $one == $two || $two == $three, "slept too long, $one $two $three";
-
- unless ($have_gettimeofday) {
- skip 23;
- }
- else {
- my $f = Time::HiRes::time();
- nanosleep(500_000_000);
- my $f2 = Time::HiRes::time();
- my $d = $f2 - $f;
- ok 23, $d > 0.4 && $d < 0.9, "slept $d secs $f to $f2";
- }
-}
-
-eval { sleep(-1) };
-print $@ =~ /::sleep\(-1\): negative time not invented yet/ ?
- "ok 24\n" : "not ok 24\n";
-
-eval { usleep(-2) };
-print $@ =~ /::usleep\(-2\): negative time not invented yet/ ?
- "ok 25\n" : "not ok 25\n";
-
-if ($have_ualarm) {
- eval { alarm(-3) };
- print $@ =~ /::alarm\(-3, 0\): negative time not invented yet/ ?
- "ok 26\n" : "not ok 26\n";
-
- eval { ualarm(-4) };
- print $@ =~ /::ualarm\(-4, 0\): negative time not invented yet/ ?
- "ok 27\n" : "not ok 27\n";
-} else {
- skip 26;
- skip 27;
-}
-
-if ($have_nanosleep) {
- eval { nanosleep(-5) };
- print $@ =~ /::nanosleep\(-5\): negative time not invented yet/ ?
- "ok 28\n" : "not ok 28\n";
-} else {
- skip 28;
-}
-
-# Find the loop size N (a for() loop 0..N-1)
-# that will take more than T seconds.
-
-if ($have_ualarm && $] >= 5.008001) {
- # http://groups.google.com/group/perl.perl5.porters/browse_thread/thread/adaffaaf939b042e/20dafc298df737f0%2320dafc298df737f0?sa=X&oi=groupsr&start=0&num=3
- # Perl changes [18765] and [18770], perl bug [perl #20920]
-
- print "# Finding delay loop...\n";
-
- my $T = 0.01;
- use Time::HiRes qw(time);
- my $DelayN = 1024;
- my $i;
- N: {
- do {
- my $t0 = time();
- for ($i = 0; $i < $DelayN; $i++) { }
- my $t1 = time();
- my $dt = $t1 - $t0;
- print "# N = $DelayN, t1 = $t1, t0 = $t0, dt = $dt\n";
- last N if $dt > $T;
- $DelayN *= 2;
- } while (1);
- }
-
- # The time-burner which takes at least T (default 1) seconds.
- my $Delay = sub {
- my $c = @_ ? shift : 1;
- my $n = $c * $DelayN;
- my $i;
- for ($i = 0; $i < $n; $i++) { }
- };
-
- # Next setup a periodic timer (the two-argument alarm() of
- # Time::HiRes, behind the curtains the libc getitimer() or
- # ualarm()) which has a signal handler that takes so much time (on
- # the first initial invocation) that the first periodic invocation
- # (second invocation) will happen before the first invocation has
- # finished. In Perl 5.8.0 the "safe signals" concept was
- # implemented, with unfortunately at least one bug that caused a
- # core dump on reentering the handler. This bug was fixed by the
- # time of Perl 5.8.1.
-
- # Do not try mixing sleep() and alarm() for testing this.
-
- my $a = 0; # Number of alarms we receive.
- my $A = 2; # Number of alarms we will handle before disarming.
- # (We may well get $A + 1 alarms.)
-
- $SIG{ALRM} = sub {
- $a++;
- print "# Alarm $a - ", time(), "\n";
- alarm(0) if $a >= $A; # Disarm the alarm.
- $Delay->(2); # Try burning CPU at least for 2T seconds.
- };
-
- use Time::HiRes qw(alarm);
- alarm($T, $T); # Arm the alarm.
-
- $Delay->(10); # Try burning CPU at least for 10T seconds.
-
- print "ok 29\n"; # Not core dumping by now is considered to be the success.
-} else {
- skip 29;
-}
-
-if ($have_clock_gettime &&
- # All implementations of clock_gettime()
- # are SUPPOSED TO support CLOCK_REALTIME.
- has_symbol('CLOCK_REALTIME')) {
- my $ok = 0;
- TRY: {
- for my $try (1..3) {
- print "# CLOCK_REALTIME: try = $try\n";
- my $t0 = clock_gettime(&CLOCK_REALTIME);
- use Time::HiRes qw(sleep);
- my $T = 1.5;
- sleep($T);
- my $t1 = clock_gettime(&CLOCK_REALTIME);
- if ($t0 > 0 && $t1 > $t0) {
- print "# t1 = $t1, t0 = $t0\n";
- my $dt = $t1 - $t0;
- my $rt = abs(1 - $dt / $T);
- print "# dt = $dt, rt = $rt\n";
- if ($rt <= 2 * $limit) {
- $ok = 1;
- last TRY;
- }
- } else {
- print "# Error: t0 = $t0, t1 = $t1\n";
- }
- my $r = rand() + rand();
- printf "# Sleeping for %.6f seconds...\n", $r;
- sleep($r);
- }
- }
- if ($ok) {
- print "ok 30\n";
- } else {
- print "not ok 30\n";
- }
-} else {
- print "# No clock_gettime\n";
- skip 30;
-}
-
-if ($have_clock_getres) {
- my $tr = clock_getres();
- if ($tr > 0) {
- print "ok 31 # tr = $tr\n";
- } else {
- print "not ok 31 # tr = $tr\n";
- }
-} else {
- print "# No clock_getres\n";
- skip 31;
-}
-
-if ($have_clock_nanosleep &&
- has_symbol('CLOCK_REALTIME')) {
- my $s = 1.5e9;
- my $t = clock_nanosleep(&CLOCK_REALTIME, $s);
- my $r = abs(1 - $t / $s);
- if ($r < 2 * $limit) {
- print "ok 32\n";
- } else {
- print "not ok 32 # $t = $t, r = $r\n";
- }
-} else {
- print "# No clock_nanosleep\n";
- skip 32;
-}
-
-if ($have_clock) {
- my @clock = clock();
- print "# clock = @clock\n";
- for my $i (1..3) {
- for (my $j = 0; $j < 1e6; $j++) { }
- push @clock, clock();
- print "# clock = @clock\n";
- }
- if ($clock[0] >= 0 &&
- $clock[1] > $clock[0] &&
- $clock[2] > $clock[1] &&
- $clock[3] > $clock[2]) {
- print "ok 33\n";
- } else {
- print "not ok 33\n";
- }
-} else {
- skip 33;
-}
-
-sub bellish { # Cheap emulation of a bell curve.
- my ($min, $max) = @_;
- my $rand = ($max - $min) / 5;
- my $sum = 0;
- for my $i (0..4) {
- $sum += rand($rand);
- }
- return $min + $sum;
-}
-
-if ($have_ualarm) {
- # 1_100_000 sligthly over 1_000_000,
- # 2_200_000 slightly over 2**31/1000,
- # 4_300_000 slightly over 2**32/1000.
- for my $t ([34, 100_000],
- [35, 1_100_000],
- [36, 2_200_000],
- [37, 4_300_000]) {
- my ($i, $n) = @$t;
- my $ok;
- for my $retry (1..10) {
- my $alarmed = 0;
- local $SIG{ ALRM } = sub { $alarmed++ };
- my $t0 = Time::HiRes::time();
- print "# t0 = $t0\n";
- print "# ualarm($n)\n";
- ualarm($n); 1 while $alarmed == 0;
- my $t1 = Time::HiRes::time();
- print "# t1 = $t1\n";
- my $dt = $t1 - $t0;
- print "# dt = $dt\n";
- my $r = $dt / ($n/1e6);
- print "# r = $r\n";
- $ok =
- ($n < 1_000_000 || # Too much noise.
- ($r >= 0.8 && $r <= 1.6));
- last if $ok;
- my $nap = bellish(3, 15);
- printf "# Retrying in %.1f seconds...\n", $nap;
- Time::HiRes::sleep($nap);
- }
- ok $i, $ok, "ualarm($n) close enough";
- }
-} else {
- print "# No ualarm\n";
- skip 34..37;
-}
-
-if ($^O =~ /^(cygwin|MSWin)/) {
- print "# $^O: timestamps may not be good enough\n";
- skip 38;
-} elsif (&Time::HiRes::d_hires_stat) {
- my @stat;
- my @atime;
- my @mtime;
- for (1..5) {
- Time::HiRes::sleep(rand(0.1) + 0.1);
- open(X, ">$$");
- print X $$;
- close(X);
- @stat = Time::HiRes::stat($$);
- push @mtime, $stat[9];
- Time::HiRes::sleep(rand(0.1) + 0.1);
- open(X, "<$$");
- <X>;
- close(X);
- @stat = Time::HiRes::stat($$);
- push @atime, $stat[8];
- }
- 1 while unlink $$;
- print "# mtime = @mtime\n";
- print "# atime = @atime\n";
- my $ai = 0;
- my $mi = 0;
- my $ss = 0;
- for (my $i = 1; $i < @atime; $i++) {
- if ($atime[$i] >= $atime[$i-1]) {
- $ai++;
- }
- if ($atime[$i] > int($atime[$i])) {
- $ss++;
- }
- }
- for (my $i = 1; $i < @mtime; $i++) {
- if ($mtime[$i] >= $mtime[$i-1]) {
- $mi++;
- }
- if ($mtime[$i] > int($mtime[$i])) {
- $ss++;
- }
- }
- print "# ai = $ai, mi = $mi, ss = $ss\n";
- # Need at least 75% of monotonical increase and
- # 20% of subsecond results. Yes, this is guessing.
- if ($ss == 0) {
- print "# No subsecond timestamps detected\n";
- skip 38;
- } elsif ($mi/(@mtime-1) >= 0.75 && $ai/(@atime-1) >= 0.75 &&
- $ss/(@mtime+ at atime) >= 0.2) {
- print "ok 38\n";
- } else {
- print "not ok 38\n";
- }
-} else {
- print "# No effectual d_hires_stat\n";
- skip 38;
-}
-
-unless ($can_subsecond_alarm) {
- skip 39..44;
-} else {
- {
- my $alrm;
- $SIG{ALRM} = sub { $alrm++ };
- Time::HiRes::alarm(0.1);
- my $t0 = time();
- 1 while time() - $t0 <= 1;
- print $alrm ? "ok 39\n" : "not ok 39\n";
- }
- {
- my $alrm;
- $SIG{ALRM} = sub { $alrm++ };
- Time::HiRes::alarm(1.1);
- my $t0 = time();
- 1 while time() - $t0 <= 2;
- print $alrm ? "ok 40\n" : "not ok 40\n";
- }
-
- {
- my $alrm = 0;
- $SIG{ALRM} = sub { $alrm++ };
- my $got = Time::HiRes::alarm(2.7);
- ok(41, $got == 0, $got);
-
- my $t0 = time();
- 1 while time() - $t0 <= 1;
-
- $got = Time::HiRes::alarm(0);
- ok(42, $got > 0 && $got < 1.8, $got);
-
- ok(43, $alrm == 0, $alrm);
-
- $got = Time::HiRes::alarm(0);
- ok(44, $got == 0, $got);
- }
-}
-
-unless ($have_ualarm) {
- skip 45..48;
-}
-else {
- {
- my $alrm = 0;
- $SIG{ALRM} = sub { $alrm++ };
- my $got = Time::HiRes::ualarm(500_000);
- ok(45, $got == 0, $got);
-
- my $t0 = Time::HiRes::time();
- my $t1;
- do {
- $t1 = Time::HiRes::time();
- } while $t1 - $t0 <= 0.3;
- print "# t0 = $t0\n# t1 = $t1\n# t1 - t0 = ", ($t1 - $t0), "\n";
-
- $got = Time::HiRes::ualarm(0);
- ok(46, $got > 0 && $got < 300_000, $got);
-
- ok(47, $alrm == 0, $alrm);
-
- $got = Time::HiRes::ualarm(0);
- ok(48, $got == 0, $got);
- }
-}
-
-END {
- if ($timer_pid) { # Only in the main process.
- my $left = $TheEnd - time();
- printf "# I am the main process $$, terminating the timer process $timer_pid\n# before it terminates me in %d seconds (testing took %d seconds).\n", $left, $waitfor - $left;
- if (kill(0, $timer_pid)) {
- local $? = 0;
- my $kill = kill('KILL', $timer_pid); # We are done, the timer can go.
- wait();
- printf "# kill KILL $timer_pid = %d\n", $kill;
- }
- unlink("ktrace.out"); # Used in BSD system call tracing.
- print "# All done.\n";
- }
-}
-
diff --git a/3.8.8/sources/cpan-Time-Local/vendor/Changes b/3.8.8/sources/cpan-Time-Local/vendor/Changes
deleted file mode 100644
index 90be79b..0000000
--- a/3.8.8/sources/cpan-Time-Local/vendor/Changes
+++ /dev/null
@@ -1,231 +0,0 @@
-1.1901 2008-11-01
-
-- Test fixes only. The tests planned the wrong number of tests on
- 32-bit platforms, causing failures.
-
-
-1.19 2008-11-01
-
-- The calculation of the maximum integer size was using
- $Config{intsize} when it should use $Config{ivsize}. Apparently on a
- 64-bit platform intsize can be 4 when ivsize is 8. Based on a patch
- from Jan Dubois.
-
-
-1.18 2007-10-31
-
-- Added pod and pod coverage tests.
-
-- Doing a new release to provide a conformant META.yml file.
-
-- This release contains no code changes from 1.17.
-
-
-1.17 2007-01-25
-
-- I made the same test count mistake as was in 1.14 again. This
- release fixes the test count (again) when running on a system that
- doesn't support negative epochs (like Win32). Patched by Kenichi
- Ishigaki (again).
-
-
-1.16 2007-01-23
-
-- The leap year fix in 1.14 was pretty broken, as it checked after
- converting the year to Perl's internal (year - 1900) format.
-
-
-1.15 2007-01-22
-
-- Fix Local.t test count when running on a system that doesn't support
- negative epochs (like Win32). Patched by Kenichi Ishigaki.
-
-
-1.14 2007-01-21
-
-- Fixed leap year check to produce the right answer for years outside
- of the 32-bit epoch range (such as 1900 and 2100). See rt.perl.org
- #31241. Reported by Nathan Zook.
-
-
-1.13 2006-08-09
-
-- Switched to using Test::More for the tests.
-
-- Fixed a bug that occurred around the DST change for Europe/London
- (and probably other time zones with a positive UTC offset). If
- given, the hour immediately after the change (2:00 AM for
- Europe/London), then the returned epoch was 3600 seconds too
- large. Reported by Roger Picton. See RT #11662.
-
-
-1.12_01 2006-03-31
-
-- Reverted changes from 1.07_90 that attempted to extend range of
- allowable epoch values around edge cases. It turns out that this was
- causing integer overflows
-
-- In one error case, the module could warn and then croak. I changed
- it to simply croak with the whole message. Based on a patch by
- Michael Schwern from rt.perl.org #36268.
-
-- Removed the code from the docs that implied that the *_nocheck
- variants were created for doing date math. They're just for speeding
- things up when you have known valid data. If you pass them invalid
- data, you'll probably get an incorrect answer. See #31421 on
- rt.perl.org for discussion.
-
-
-1.12 2005-12-18
-
-- Explicitly turn off negative epoch testing on VMS. Change #24310
- from bleadperl, Craig Berry.
-
-- In the test suite when checking on whether negative epochs are
- allowed, use 3 days before the epoch as a test, because just one
- hour before may give false positives (for example on Win32 with the
- Borland compiler).
-
-- Reverted an earlier change that slightly extended the range of
- values for which timelocal worked (by about a day in either
- direction) because it could cause an incorrect answer for certain
- epoch values on the date of a DST change. Reported by Gisle Aas.
-
-
-1.11 2005-02-09
-
-- Try to make detection of supported epoch range a little smarter.
- The detection was allowing negative epochs on Win32 but apparently
- this doesn't work, and trying to pass a pre-epoch date in just
- causes a lot of warnings. This silences warnings during the tests
- on windows.
-
-
-1.10 2004-04-20
-
-- Fix compilation failure with older Test.pm (including the versions
- shipped with 5.6.1 and earlier perls). Ticket #6079 on rt.cpan.org.
- Patch by somebody who didn't give their name on rt.cpan.org ;)
-
-
-1.09 2004-04-07
-
-- Fixed a bug in the test suite that led to timegm not getting tested
- properly, and timelocal getting tested twice for the same values.
-
-
-1.08 2004-04-07
-
-- Changed occurences of "UTC" to "GMT" in order to agree with POSIX,
- which defines the epoch in terms of GMT.
-
-- Documented the behavior of timelocal() when given a local time that
- does not exist (due to a DST change). Suggested by Nick
- Ing-Simmons.
-
-- Don't expect edge case tests to pass on AIX 4.3, since the OS is
- obselete. Patch from core passed on my H. Merijn Brand.
-
-
-1.07_94 2003-12-11
-
-- More changes from Henrik Gulbrandsen to make sure that very large
- negative epoch values are handled properly on platforms that can
- handle negative epoch values at all.
-
-- Make sure that we really do always return the earliest of two local
- times when DST makes conversion from GMT to local time ambiguous.
- Again by Henrik.
-
-- Fix a bug that could have occurred if the maximum or minimum integer
- size on a platform was divisible by 86,400. Also by Henrik.
-
-
-1.07_93 2003-07-23
-
-- Henrik's code explicitly didn't work with negative epoch values,
- which is not good. Now we assume that they are allowed, except on
- MacOS, which is known to use an unsigned int for time_t.
-
-- Document that dates before the epoch should work on systems which
- support negative epoch values, but that we can't test them because
- we don't know _which_ systems support this.
-
-
-1.07_92 2003-07-23
-
-- Removed tests which relied on the zoneinfo database to be up to date
- and accurate in order to pass, since we have absolutely no control
- over this whatsoever. I hate external dependencies.
-
-
-1.07_91 2003-07-22
-
-- Henrik refined his edge case fix to work on Win32, which apparently
- dislikes large negative signed ints. Tests now pass on Win32. More
- testing on other platforms is appreciated.
-
-- Documented Time::Local's behavior when timelocal is called with an
- ambiguous local time. Some local times occur twice on the same day
- because a DST change causes the clock to move backwards one hour
- earlier. See "Ambiguous Local Times" in the docs for more details.
- Closes perlbug 7822.
-
-- Removed the statement under "BUGS" that the proclivity to croak() is
- probably a bug. It's not a bug, and it sure isn't going to change
- at this point in time, anyway!
-
-
-1.07_90 2003-07-15
-
-- Fixed behavior for edge cases like timegm(gmtime(0x7FFF_FFFF)),
- which should work even on platforms where time_t is signed. Patch
- from Henrik Gulbrandsen.
-
-
-1.07 2003-06-10
-
-- Set INSTALLDIRS=perl in Makefile.PL, as suggested by Michael
- Schwern, who heard it from Sergio Brandano.
-
-
-1.06 2003-06-04
-
-- A bug in the handling of negative offsets from UTC could lead to the
- return of invalid times during a DST transition. This is from a
- patch by Dave Mitchell currently in bleadperl. See
- http://bugs6.perl.org/rt2/Ticket/Display.html?id=19393 for details.
- Thanks to Rafael Garcia-Suarez for pointing this out to me.
-
-- Updated the AUTHORS section to include the actual authors. Thanks
- to Graham Barr for telling me who there are.
-
-- Added SUPPORT section which tells people to use bugs.perl.org or
- perlbug, since I read p5p and I want to make sure that the core and
- this code stay in sync.
-
-- Clarified docs to say that dates before the system's epoch may or
- may not work, because POSIX only requires support for positive
- time_t values.
-
-
-1.05 2003-06-03
-
-This version is nearly identical to version 1.04, which is included in
-the Perl core, but it removes the use of "our" in order to make the
-code backwards compatible with Perl 5.00503. It probably works with
-earlier versions of Perl as well, but I don't have anything earlier
-than 5.00503 installed.
-
-Changes made from the core version include:
-
-- Packaged for distribution on CPAN.
-
-- Added an AUTHOR section to the docs.
-
-- Clarified some points in the docs, particularly the fact that this
- module uses the local system's epoch, not the Unix epoch, contrary
- to what the documentation suggests.
-
-- Disabled tests for timelocal.pl Perl4 library since it's not
- included in standalone distribution.
diff --git a/3.8.8/sources/cpan-Time-Local/vendor/MANIFEST b/3.8.8/sources/cpan-Time-Local/vendor/MANIFEST
deleted file mode 100644
index 85b2692..0000000
--- a/3.8.8/sources/cpan-Time-Local/vendor/MANIFEST
+++ /dev/null
@@ -1,11 +0,0 @@
-Changes
-lib/Time/Local.pm
-LICENSE
-Makefile.PL
-MANIFEST This list of files
-MANIFEST.SKIP
-README
-t/Local.t
-t/pod-coverage.t
-t/pod.t
-META.yml Module meta-data (added by MakeMaker)
diff --git a/3.8.8/sources/cpan-Time-Local/vendor/t/Local.t b/3.8.8/sources/cpan-Time-Local/vendor/t/Local.t
deleted file mode 100644
index 4f8674f..0000000
--- a/3.8.8/sources/cpan-Time-Local/vendor/t/Local.t
+++ /dev/null
@@ -1,283 +0,0 @@
-#!./perl
-
-BEGIN {
- if ($ENV{PERL_CORE}){
- chdir('t') if -d 't';
- @INC = ('.', '../lib');
- }
-}
-
-use strict;
-
-use Config;
-use Test::More;
-use Time::Local;
-
-# Set up time values to test
-my @time =
- (
- #year,mon,day,hour,min,sec
- [1970, 1, 2, 00, 00, 00],
- [1980, 2, 28, 12, 00, 00],
- [1980, 2, 29, 12, 00, 00],
- [1999, 12, 31, 23, 59, 59],
- [2000, 1, 1, 00, 00, 00],
- [2010, 10, 12, 14, 13, 12],
- # leap day
- [2020, 2, 29, 12, 59, 59],
- [2030, 7, 4, 17, 07, 06],
-# The following test fails on a surprising number of systems
-# so it is commented out. The end of the Epoch for a 32-bit signed
-# implementation of time_t should be Jan 19, 2038 03:14:07 UTC.
-# [2038, 1, 17, 23, 59, 59], # last full day in any tz
- );
-
-my @bad_time =
- (
- # month too large
- [1995, 13, 01, 01, 01, 01],
- # day too large
- [1995, 02, 30, 01, 01, 01],
- # hour too large
- [1995, 02, 10, 25, 01, 01],
- # minute too large
- [1995, 02, 10, 01, 60, 01],
- # second too large
- [1995, 02, 10, 01, 01, 60],
- );
-
-my @neg_time =
- (
- # test negative epochs for systems that handle it
- [ 1969, 12, 31, 16, 59, 59 ],
- [ 1950, 04, 12, 9, 30, 31 ],
- );
-
-# Leap year tests
-my @years =
- (
- [ 1900 => 0 ],
- [ 1947 => 0 ],
- [ 1996 => 1 ],
- [ 2000 => 1 ],
- [ 2100 => 0 ],
- );
-
-# Use 3 days before the start of the epoch because with Borland on
-# Win32 it will work for -3600 _if_ your time zone is +01:00 (or
-# greater).
-my $neg_epoch_ok = defined ((localtime(-259200))[0]) ? 1 : 0;
-
-# use vmsish 'time' makes for oddness around the Unix epoch
-if ($^O eq 'VMS') {
- $time[0][2]++;
- $neg_epoch_ok = 0; # time_t is unsigned
-}
-
-my $epoch_is_64 = eval { $Config{ivsize} == 8 && ( gmtime 2**40 )[5] == 34912 };
-
-my $tests = (@time * 12);
-$tests += @neg_time * 12;
-$tests += @bad_time;
-$tests += @years;
-$tests += 23;
-
-plan tests => $tests;
-
-for (@time, @neg_time) {
- my($year, $mon, $mday, $hour, $min, $sec) = @$_;
- $year -= 1900;
- $mon--;
-
- SKIP: {
- skip '1970 test on VOS fails.', 12
- if $^O eq 'vos' && $year == 70;
- skip 'this platform does not support negative epochs.', 12
- if $year < 70 && ! $neg_epoch_ok;
-
- {
- my $year_in = $year < 70 ? $year + 1900 : $year;
- my $time = timelocal($sec,$min,$hour,$mday,$mon,$year_in);
-
- my($s,$m,$h,$D,$M,$Y) = localtime($time);
-
- is($s, $sec, "timelocal second for @$_");
- is($m, $min, "timelocal minute for @$_");
- is($h, $hour, "timelocal hour for @$_");
- is($D, $mday, "timelocal day for @$_");
- is($M, $mon, "timelocal month for @$_");
- is($Y, $year, "timelocal year for @$_");
- }
-
- {
- my $year_in = $year < 70 ? $year + 1900 : $year;
- my $time = timegm($sec,$min,$hour,$mday,$mon,$year_in);
-
- my($s,$m,$h,$D,$M,$Y) = gmtime($time);
-
- is($s, $sec, "timegm second for @$_");
- is($m, $min, "timegm minute for @$_");
- is($h, $hour, "timegm hour for @$_");
- is($D, $mday, "timegm day for @$_");
- is($M, $mon, "timegm month for @$_");
- is($Y, $year, "timegm year for @$_");
- }
- }
-}
-
-for (@bad_time) {
- my($year, $mon, $mday, $hour, $min, $sec) = @$_;
- $year -= 1900;
- $mon--;
-
- eval { timegm($sec,$min,$hour,$mday,$mon,$year) };
-
- like($@, qr/.*out of range.*/, 'invalid time caused an error');
-}
-
-{
- is(timelocal(0,0,1,1,0,90) - timelocal(0,0,0,1,0,90), 3600,
- 'one hour difference between two calls to timelocal');
-
- is(timelocal(1,2,3,1,0,100) - timelocal(1,2,3,31,11,99), 24 * 3600,
- 'one day difference between two calls to timelocal');
-
- # Diff beween Jan 1, 1980 and Mar 1, 1980 = (31 + 29 = 60 days)
- is(timegm(0,0,0, 1, 2, 80) - timegm(0,0,0, 1, 0, 80), 60 * 24 * 3600,
- '60 day difference between two calls to timegm');
-}
-
-# bugid #19393
-# At a DST transition, the clock skips forward, eg from 01:59:59 to
-# 03:00:00. In this case, 02:00:00 is an invalid time, and should be
-# treated like 03:00:00 rather than 01:00:00 - negative zone offsets used
-# to do the latter
-{
- my $hour = (localtime(timelocal(0, 0, 2, 7, 3, 102)))[2];
- # testers in US/Pacific should get 3,
- # other testers should get 2
- ok($hour == 2 || $hour == 3, 'hour should be 2 or 3');
-}
-
-for my $p (@years) {
- my ( $year, $is_leap_year ) = @$p;
-
- my $string = $is_leap_year ? 'is' : 'is not';
- is( Time::Local::_is_leap_year($year), $is_leap_year,
- "$year $string a leap year" );
-}
-
-SKIP:
-{
- skip 'this platform does not support negative epochs.', 6
- unless $neg_epoch_ok;
-
- eval { timegm(0,0,0,29,1,1900) };
- like($@, qr/Day '29' out of range 1\.\.28/,
- 'does not accept leap day in 1900');
-
- eval { timegm(0,0,0,29,1,200) };
- like($@, qr/Day '29' out of range 1\.\.28/,
- 'does not accept leap day in 2100 (year passed as 200)');
-
- eval { timegm(0,0,0,29,1,0) };
- is($@, '', 'no error with leap day of 2000 (year passed as 0)');
-
- eval { timegm(0,0,0,29,1,1904) };
- is($@, '', 'no error with leap day of 1904');
-
- eval { timegm(0,0,0,29,1,4) };
- is($@, '', 'no error with leap day of 2004 (year passed as 4)');
-
- eval { timegm(0,0,0,29,1,96) };
- is($@, '', 'no error with leap day of 1996 (year passed as 96)');
-}
-
-SKIP:
-{
- skip 'These tests require a system with 64-bit time_t.', 3
- unless $epoch_is_64;
-
- is( timegm( 8, 14, 3, 19, 0, ( 1900 + 138 ) ), 2**31,
- 'can call timegm for 2**31 epoch seconds' );
- is( timegm( 16, 28, 6, 7, 1, ( 1900 + 206 ) ), 2**32,
- 'can call timegm for 2**32 epoch seconds (on a 64-bit system)' );
- is( timegm( 16, 36, 0, 20, 1, ( 34912 + 1900 ) ), 2**40,
- 'can call timegm for 2**40 epoch seconds (on a 64-bit system)' );
-}
-
-SKIP:
-{
- skip 'These tests only run for the package maintainer.', 8
- unless $ENV{MAINTAINER};
-
- require POSIX;
-
- local $ENV{TZ} = 'Europe/Vienna';
- POSIX::tzset();
-
- # 2001-10-28 02:30:00 - could be either summer or standard time,
- # prefer earlier of the two, in this case summer
- my $time = timelocal(0, 30, 2, 28, 9, 101);
- is($time, 1004229000,
- 'timelocal prefers earlier epoch in the presence of a DST change');
-
- local $ENV{TZ} = 'America/Chicago';
- POSIX::tzset();
-
- # Same local time in America/Chicago. There is a transition here
- # as well.
- $time = timelocal(0, 30, 1, 28, 9, 101);
- is($time, 1004250600,
- 'timelocal prefers earlier epoch in the presence of a DST change');
-
- $time = timelocal(0, 30, 2, 1, 3, 101);
- is($time, 986113800,
- 'timelocal for non-existent time gives you the time one hour later');
-
- local $ENV{TZ} = 'Australia/Sydney';
- POSIX::tzset();
- # 2001-03-25 02:30:00 in Australia/Sydney. This is the transition
- # _to_ summer time. The southern hemisphere transitions are
- # opposite those of the northern.
- $time = timelocal(0, 30, 2, 25, 2, 101);
- is($time, 985447800,
- 'timelocal prefers earlier epoch in the presence of a DST change');
-
- $time = timelocal(0, 30, 2, 28, 9, 101);
- is($time, 1004200200,
- 'timelocal for non-existent time gives you the time one hour later');
-
- local $ENV{TZ} = 'Europe/London';
- POSIX::tzset();
- $time = timelocal( localtime(1111917720) );
- is($time, 1111917720,
- 'timelocal for round trip bug on date of DST change for Europe/London');
-
- # There is no 1:00 AM on this date, as it leaps forward to
- # 2:00 on the DST change - this should return 2:00 per the
- # docs.
- is( ( localtime( timelocal( 0, 0, 1, 27, 2, 2005 ) ) )[2], 2,
- 'hour is 2 when given 1:00 AM on Europe/London date change' );
-
- is( ( localtime( timelocal( 0, 0, 2, 27, 2, 2005 ) ) )[2], 2,
- 'hour is 2 when given 2:00 AM on Europe/London date change' );
-}
-
-SKIP:
-{
- skip 'These tests are only run when $ENV{PERL_CORE} is true.', 2
- unless $ENV{PERL_CORE};
-
- {
- package test;
- require 'timelocal.pl';
-
- # need to get ok() from main package
- ::is(timegm(0,0,0,1,0,80), main::timegm(0,0,0,1,0,80),
- 'timegm in timelocal.pl');
-
- ::is(timelocal(1,2,3,4,5,88), main::timelocal(1,2,3,4,5,88),
- 'timelocal in timelocal.pl');
- }
-}
diff --git a/3.8.8/sources/cpan-Time-Local/vendor/t/pod.t b/3.8.8/sources/cpan-Time-Local/vendor/t/pod.t
deleted file mode 100644
index 3f86494..0000000
--- a/3.8.8/sources/cpan-Time-Local/vendor/t/pod.t
+++ /dev/null
@@ -1,13 +0,0 @@
-use strict;
-use warnings;
-
-use Test::More;
-
-
-plan skip_all => 'This test is only run for the module author'
- unless -d '.svn' || $ENV{IS_MAINTAINER};
-
-eval "use Test::Pod 1.14";
-plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;
-
-all_pod_files_ok();
diff --git a/3.8.8/sources/cpan-Time-Piece/vendor/MANIFEST.SKIP b/3.8.8/sources/cpan-Time-Piece/vendor/MANIFEST.SKIP
deleted file mode 100644
index 9dd41fe..0000000
--- a/3.8.8/sources/cpan-Time-Piece/vendor/MANIFEST.SKIP
+++ /dev/null
@@ -1,13 +0,0 @@
-CVS/.*
-\.bak$
-\.sw[a-z]$
-\.tar$
-\.tgz$
-\.tar\.gz$
-^mess/
-^tmp/
-^blib/
-^Makefile$
-^Makefile\.[a-z]+$
-^pm_to_blib$
-~$
diff --git a/3.8.8/sources/cpan-Time-Piece/vendor/META.yml b/3.8.8/sources/cpan-Time-Piece/vendor/META.yml
deleted file mode 100644
index 9d65c19..0000000
--- a/3.8.8/sources/cpan-Time-Piece/vendor/META.yml
+++ /dev/null
@@ -1,13 +0,0 @@
---- #YAML:1.0
-name: Time-Piece
-version: 1.20
-abstract: Object Oriented time objects
-license: ~
-author:
- - Matt Sergeant
-generated_by: ExtUtils::MakeMaker version 6.42
-distribution_type: module
-requires:
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
- version: 1.3
diff --git a/3.8.8/sources/cpan-Time-Piece/vendor/t/05overload.t b/3.8.8/sources/cpan-Time-Piece/vendor/t/05overload.t
deleted file mode 100644
index 674cc94..0000000
--- a/3.8.8/sources/cpan-Time-Piece/vendor/t/05overload.t
+++ /dev/null
@@ -1,9 +0,0 @@
-# Tests for overloads (+,-,<,>, etc)
-use Test;
-BEGIN { plan tests => 1 }
-use Time::Piece;
-my $t = localtime;
-my $s = Time::Seconds->new(15);
-eval { my $result = $t + $s };
-ok($@, "", "Adding Time::Seconds does not cause runtime error");
-
diff --git a/3.8.8/sources/cpan-Time-Piece/vendor/t/06subclass.t b/3.8.8/sources/cpan-Time-Piece/vendor/t/06subclass.t
deleted file mode 100644
index dce097a..0000000
--- a/3.8.8/sources/cpan-Time-Piece/vendor/t/06subclass.t
+++ /dev/null
@@ -1,66 +0,0 @@
-#!perl
-use strict;
-use warnings;
-
-# This test file exists to show that Time::Piece can be subclassed and that its
-# methods will return objects of the class on which they're called.
-
-use Test::More 'no_plan';
-
-BEGIN { use_ok('Time::Piece'); }
-
-my $class = 'Time::Piece::Twin';
-
-for my $method (qw(new localtime gmtime)) {
- my $piece = $class->$method;
- isa_ok($piece, $class, "timepiece made via $method");
-}
-
-{
- my $piece = $class->strptime("2005-01-01", "%Y-%m-%d");
- isa_ok($piece, $class, "timepiece made via strptime");
-}
-
-{
- my $piece = $class->new;
- isa_ok($piece, $class, "timepiece made via new (again)");
-
- my $sum = $piece + 86_400;
- isa_ok($sum, $class, "tomorrow via addition operator");
-
- my $diff = $piece - 86_400;
- isa_ok($diff, $class, "yesterday via subtraction operator");
-}
-
-{
- # let's verify that we can use gmtime from T::P without the export magic
- my $piece = Time::Piece::gmtime;
- isa_ok($piece, "Time::Piece", "object created via full-qualified gmtime");
- isnt(ref $piece, 'Time::Piece::Twin', "it's not a Twin");
-}
-
-## below is our doppelgaenger package
-{
- package Time::Piece::Twin;
- use base qw(Time::Piece);
- # this package is identical, but will be ->isa('Time::Piece::Twin');
-}
-
-{
- my $class = "Time::Piece::NumString";
- my $piece = $class->strptime ("2006", "%Y");
- is (2007 - $piece, 1,
- "subtract attempts stringify for unrecognized objects.");
-}
-
-## Below is a package which only changes the stringify function.
-{
- package Time::Piece::NumString;
- use base qw(Time::Piece);
- use overload '""' => \&_stringify;
- sub _stringify
- {
- my $self = shift;
- return $self->strftime ("%Y");
- }
-}
diff --git a/3.8.8/sources/cpan-Time-Piece/vendor/t/07arith.t b/3.8.8/sources/cpan-Time-Piece/vendor/t/07arith.t
deleted file mode 100644
index 7f16bd1..0000000
--- a/3.8.8/sources/cpan-Time-Piece/vendor/t/07arith.t
+++ /dev/null
@@ -1,47 +0,0 @@
-use Test::More tests => 25;
-
-BEGIN { use_ok('Time::Piece'); }
-
-ok(1);
-
-my $t = gmtime(951827696); # 2000-02-29T12:34:56
-
-is($t->mon, 2);
-is($t->mday, 29);
-
-my $t2 = $t->add_months(1);
-is($t2->year, 2000);
-is($t2->mon, 3);
-is($t2->mday, 29);
-
-my $t3 = $t->add_months(-1);
-is($t3->year, 2000);
-is($t3->mon, 1);
-is($t3->mday, 29);
-
-# this one wraps around to March because of the leap year
-my $t4 = $t->add_years(1);
-is($t4->year, 2001);
-is($t4->mon, 3);
-is($t4->mday, 1);
-
-$t = Time::Piece->strptime("01 01 2010","%d %m %Y");
-my $t6 = $t->add_months(-12);
-is($t6->year, 2009);
-is($t6->mon, 1);
-is($t6->mday, 1);
-
-my $t7 = $t->add_months(-1);
-is($t7->year, 2009);
-is($t7->mon, 12);
-is($t7->mday, 1);
-
-my $t8 = $t->add_months(-240);
-is($t8->year, 1990);
-is($t8->mon, 1);
-is($t8->mday, 1);
-
-my $t9 = $t->add_months(-13);
-is($t9->year, 2008);
-is($t9->mon, 12);
-is($t9->mday, 1);
diff --git a/3.8.8/sources/cpan-XSLoader/vendor/META.yml b/3.8.8/sources/cpan-XSLoader/vendor/META.yml
deleted file mode 100644
index 88fe8d0..0000000
--- a/3.8.8/sources/cpan-XSLoader/vendor/META.yml
+++ /dev/null
@@ -1,14 +0,0 @@
---- #YAML:1.0
-name: XSLoader
-version: 0.10
-abstract: Dynamically load C libraries into Perl code
-license: perl
-author:
- - Sebastien Aperghis-Tramoni <sebastien at aperghis.net>
-generated_by: ExtUtils::MakeMaker version 6.44
-distribution_type: module
-requires:
- Test::More: 0.62
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
- version: 1.3
diff --git a/3.8.8/sources/cpan-XSLoader/vendor/eg/net-pcap.pl b/3.8.8/sources/cpan-XSLoader/vendor/eg/net-pcap.pl
deleted file mode 100644
index 3974fe4..0000000
--- a/3.8.8/sources/cpan-XSLoader/vendor/eg/net-pcap.pl
+++ /dev/null
@@ -1,22 +0,0 @@
-# This example was extracted from the Net::Pcap module.
-# As a version is specified in the XSLoader::load() and in the bootstrap()
-# calls, this example will only load the object module if its version
-# matches the given version.
-
-package Net::Pcap;
-use strict;
-
-BEGIN {
- no strict;
- $VERSION = '0.13';
-
- eval {
- require XSLoader;
- XSLoader::load('Net::Pcap', $VERSION);
- 1
- } or do {
- require DynaLoader;
- push @ISA, 'DynaLoader';
- bootstrap Net::Pcap $VERSION;
- };
-}
diff --git a/3.8.8/sources/cpan-XSLoader/vendor/eg/posix.pl b/3.8.8/sources/cpan-XSLoader/vendor/eg/posix.pl
deleted file mode 100644
index 212806c..0000000
--- a/3.8.8/sources/cpan-XSLoader/vendor/eg/posix.pl
+++ /dev/null
@@ -1,16 +0,0 @@
-# This example shows how to load the POSIX object module.
-# As no version is specified in the XSLoader::load() and in the bootstrap()
-# calls, this example will work with any version. Also note that we use
-# __PACKAGE__ instead of hard-coding the name of the package;
-
-package POSIX;
-
-eval {
- require XSLoader;
- XSLoader::load(__PACKAGE__);
- 1
-} or do {
- require DynaLoader;
- push @ISA, 'DynaLoader';
- bootstrap(__PACKAGE__);
-};
diff --git a/3.8.8/sources/cpan-XSLoader/vendor/t/podcover.t b/3.8.8/sources/cpan-XSLoader/vendor/t/podcover.t
deleted file mode 100644
index eff83b0..0000000
--- a/3.8.8/sources/cpan-XSLoader/vendor/t/podcover.t
+++ /dev/null
@@ -1,9 +0,0 @@
-#!perl -T
-use strict;
-use Test::More;
-
-plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage"
- unless eval "use Test::Pod::Coverage 1.04; 1";
-
-plan tests => 1;
-pod_coverage_ok(XSLoader => {also_private => ['^bootstrap_inherit$']});
diff --git a/3.8.8/sources/cpan-YAML/vendor/LICENSE b/3.8.8/sources/cpan-YAML/vendor/LICENSE
deleted file mode 100644
index 05e86e0..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/LICENSE
+++ /dev/null
@@ -1,378 +0,0 @@
-
-Terms of Perl itself
-
-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"
-
-----------------------------------------------------------------------------
-
-The General Public License (GPL)
-Version 2, June 1991
-
-Copyright (C) 1989, 1991 Free Software Foundation, Inc. 675 Mass Ave,
-Cambridge, MA 02139, USA. Everyone is permitted to copy and distribute
-verbatim copies of this license document, but changing it is not allowed.
-
-Preamble
-
-The licenses for most software are designed to take away your freedom to share
-and change it. By contrast, the GNU 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. This General Public License applies to most of
-the Free Software Foundation's software and to any other program whose
-authors commit to using it. (Some other Free Software Foundation software is
-covered by the GNU Library General Public License instead.) You can apply it to
-your programs, too.
-
-When we speak of free software, we are referring to freedom, not price. Our
-General Public Licenses are designed to make sure that you have the freedom
-to distribute copies of free software (and charge for this service if you wish), 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 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 show
-them these terms so they know 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.
-
-Finally, any free program is threatened constantly by software patents. We wish
-to avoid the danger that redistributors of a free program will individually obtain
-patent licenses, in effect making the program proprietary. To prevent this, we
-have made it clear that any patent must be licensed for everyone's free use or
-not licensed at all.
-
-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 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
-derivative work under copyright law: that is to say, a work containing the
-Program or a portion of it, either verbatim or with modifications and/or translated
-into another language. (Hereinafter, translation is included without limitation in
-the term "modification".) Each licensee is addressed as "you".
-
-Activities other than copying, distribution and modification are not covered by
-this License; they are outside its scope. The act of running the Program is not
-restricted, and the output from the Program is covered only if its contents
-constitute a work based on the Program (independent of having been made by
-running the Program). Whether that is true depends on what the Program does.
-
-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 License and to the absence of any
-warranty; and give any other recipients of the Program a copy of this License
-along with the Program.
-
-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.
-
-2. You may modify your copy or copies of the Program or any portion of it, thus
-forming a work based on the Program, and copy and distribute such
-modifications or work under the terms of Section 1 above, provided that you also
-meet all of these conditions:
-
-a) You must cause the modified files to carry prominent notices stating that you
-changed the files and the date of any change.
-
-b) You must cause any work that you distribute or publish, that in whole or in
-part contains or is derived from the Program or any part thereof, to be licensed
-as a whole at no charge to all third parties under the terms of this License.
-
-c) If the modified program normally reads commands interactively when run, you
-must cause it, when started running for such interactive use in the most ordinary
-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 License. (Exception: if the
-Program itself is interactive but does not normally print such an announcement,
-your work based on the Program is not required to print an announcement.)
-
-These requirements apply to the modified work as a whole. If identifiable
-sections of that work are not derived from the Program, and can be reasonably
-considered independent and separate works in themselves, then this License,
-and its terms, do not apply to those sections when you distribute them as
-separate works. But when you distribute the same sections as part of a whole
-which is a work based on the Program, the distribution of the whole must be on
-the terms of this License, whose permissions for other licensees extend to the
-entire whole, and thus to each and every part regardless of who wrote it.
-
-Thus, it is not the intent of this section to claim rights or contest your rights to
-work written entirely by you; rather, the intent is to exercise the right to control
-the distribution of derivative or collective works based on the Program.
-
-In addition, mere aggregation of another work not based on the Program with the
-Program (or with a work based on the Program) on a volume of a storage or
-distribution medium does not bring the other work under the scope of this
-License.
-
-3. You may copy and distribute the Program (or a work based on it, under
-Section 2) in object code or executable form under the terms of Sections 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 Sections 1 and 2 above on a
-medium customarily used for software interchange; or,
-
-b) Accompany it with a written offer, valid for at least three years, to give any
-third party, for a charge no more than your cost of physically performing source
-distribution, a complete machine-readable copy of the corresponding source
-code, to be distributed under the terms of Sections 1 and 2 above on a medium
-customarily used for software interchange; or,
-
-c) Accompany it with the information you received as to the offer to distribute
-corresponding source code. (This alternative is allowed only for noncommercial
-distribution and only if you received the program in object code or executable
-form with such an offer, in accord with Subsection b above.)
-
-The source code for a work means the preferred form of the work for making
-modifications to it. For an executable work, complete source code means all the
-source code for all modules it contains, plus any associated interface definition
-files, plus the scripts used to control compilation and installation of the
-executable. However, as a special exception, the source code distributed need
-not include anything that is normally distributed (in either source or binary form)
-with the major components (compiler, kernel, and so on) of the operating system
-on which the executable runs, unless that component itself accompanies the
-executable.
-
-If distribution of executable or object code is made by offering access to copy
-from a designated place, then offering equivalent access to copy the source
-code from the same place counts as distribution of the source code, even though
-third parties are not compelled to copy the source along with the object code.
-
-4. You may not copy, modify, sublicense, or distribute the Program except as
-expressly provided under this License. Any attempt otherwise to copy, modify,
-sublicense or distribute the Program is void, and will automatically terminate
-your rights under this License. However, parties who have received copies, or
-rights, from you under this License will not have their licenses terminated so long
-as such parties remain in full compliance.
-
-5. You are not required to accept this License, since you have not signed it.
-However, nothing else grants you permission to modify or distribute the Program
-or its derivative works. These actions are prohibited by law if you do not accept
-this License. Therefore, by modifying or distributing 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 for copying, distributing or modifying the
-Program or works based on it.
-
-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. You are not responsible for enforcing compliance by third parties
-to this License.
-
-7. If, as a consequence of a court judgment or allegation of patent infringement
-or for any other reason (not limited to patent issues), conditions are imposed on
-you (whether by court order, agreement or otherwise) that contradict the
-conditions of this License, they do not excuse you from the conditions of this
-License. If you cannot distribute so as to satisfy simultaneously your obligations
-under this License and any other pertinent obligations, then as a consequence
-you may not distribute the Program at all. For example, if a patent license would
-not permit royalty-free redistribution of the Program by all those who receive
-copies directly or indirectly through you, then the only way you could satisfy
-both it and this License would be to refrain entirely from distribution of the
-Program.
-
-If any portion of this section is held invalid or unenforceable under any particular
-circumstance, the balance of the section is intended to apply and the section as
-a whole is intended to apply in other circumstances.
-
-It is not the purpose of this section to induce you to infringe any patents or other
-property right claims or to contest validity of any such claims; this section has
-the sole purpose of protecting the integrity of the free software distribution
-system, which is implemented by public license practices. Many people have
-made generous contributions to the wide range of software distributed through
-that system in reliance on consistent application of that system; it is up to the
-author/donor to decide if he or she is willing to distribute software through any
-other system and a licensee cannot impose that choice.
-
-This section is intended to make thoroughly clear what is believed to be a
-consequence of the rest of this License.
-
-8. If the distribution and/or use of the Program is restricted in certain countries
-either by patents or by copyrighted interfaces, the original copyright holder who
-places the Program under this License may add an explicit geographical
-distribution limitation excluding those countries, so that distribution is permitted
-only in or among countries not thus excluded. In such case, this License
-incorporates the limitation as if written in the body of this License.
-
-9. 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 this 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 this License, you may choose any version ever
-published by the Free Software Foundation.
-
-10. 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
-
-11. 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.
-
-12. 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
-
-
-----------------------------------------------------------------------------
-
-The Artistic License
-
-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.
-
-Definitions:
-
-- "Package" refers to the collection of files distributed by the Copyright
- Holder, and derivatives of that collection of files created through textual
- modification.
-- "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.
-- "Copyright Holder" is whoever is named in the copyright or copyrights for
- the package.
-- "You" is you, if you're thinking about copying or distributing this Package.
-- "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.)
-- "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.
-
-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.
-
-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.
-
-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:
-
- 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 ftp.uu.net, or by allowing the
- Copyright Holder to include your modifications in the Standard
- Version of the Package.
-
- b) use the modified Package only within your corporation or
- organization.
-
- 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.
-
- d) make other distribution arrangements with the Copyright Holder.
-
-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:
-
- 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.
-
- b) accompany the distribution with the machine-readable source of
- the Package with your modifications.
-
- c) accompany any non-standard executables with their
- corresponding Standard Version executables, giving the
- non-standard executables non-standard names, and clearly
- documenting the differences in manual pages (or equivalent),
- together with instructions on where to get the Standard Version.
-
- d) make other distribution arrangements with the Copyright Holder.
-
-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.
-
-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 whomever generated them, and may be sold
-commercially, and may be aggregated with this Package.
-
-7. C or perl subroutines supplied by you and linked into this Package shall not
-be considered part of this Package.
-
-8. The name of the Copyright Holder may not be used to endorse or promote
-products derived from this software without specific prior written permission.
-
-9. 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.
-
-The End
-
-
diff --git a/3.8.8/sources/cpan-YAML/vendor/MANIFEST b/3.8.8/sources/cpan-YAML/vendor/MANIFEST
deleted file mode 100644
index ebe7002..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/MANIFEST
+++ /dev/null
@@ -1,76 +0,0 @@
-Changes
-inc/Module/Install.pm
-inc/Module/Install/Base.pm
-inc/Module/Install/Can.pm
-inc/Module/Install/Fetch.pm
-inc/Module/Install/Include.pm
-inc/Module/Install/Makefile.pm
-inc/Module/Install/Metadata.pm
-inc/Module/Install/TestBase.pm
-inc/Module/Install/Win32.pm
-inc/Module/Install/WriteAll.pm
-inc/Spiffy.pm
-inc/Test/Base.pm
-inc/Test/Base/Filter.pm
-inc/Test/Builder.pm
-inc/Test/Builder/Module.pm
-inc/Test/More.pm
-lib/Test/YAML.pm
-lib/YAML.pm
-lib/YAML/Any.pm
-lib/YAML/Base.pm
-lib/YAML/Dumper.pm
-lib/YAML/Dumper/Base.pm
-lib/YAML/Error.pm
-lib/YAML/Loader.pm
-lib/YAML/Loader/Base.pm
-lib/YAML/Marshall.pm
-lib/YAML/Node.pm
-lib/YAML/Tag.pm
-lib/YAML/Types.pm
-LICENSE
-Makefile.PL
-MANIFEST This list of files
-META.yml
-README
-t/2-scalars.t
-t/97_meta.t
-t/98_pod.t
-t/99_pmv.t
-t/Base.pm
-t/basic-tests.t
-t/bugs-emailed.t
-t/bugs-rt.t
-t/changes.t
-t/dump-basics.t
-t/dump-blessed.t
-t/dump-code.t
-t/dump-file-utf8.t
-t/dump-file.t
-t/dump-nested.t
-t/dump-opts.t
-t/dump-perl-types.t
-t/dump-stringify.t
-t/dump-tests.t
-t/dump-works.t
-t/errors.t
-t/export.t
-t/freeze-thaw.t
-t/global-api.t
-t/inbox.t
-t/load-fails.t
-t/load-passes.t
-t/load-slides.t
-t/load-spec.t
-t/load-tests.t
-t/load-works.t
-t/long-quoted-value.yaml
-t/marshall.t
-t/node-info.t
-t/pugs-objects.t
-t/references.t
-t/regexp.t
-t/svk-config.yaml
-t/svk.t
-t/test.t
-t/TestYAML.pm
diff --git a/3.8.8/sources/cpan-YAML/vendor/inc/Module/Install.pm b/3.8.8/sources/cpan-YAML/vendor/inc/Module/Install.pm
deleted file mode 100644
index 51eda5d..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/inc/Module/Install.pm
+++ /dev/null
@@ -1,430 +0,0 @@
-#line 1
-package Module::Install;
-
-# For any maintainers:
-# The load order for Module::Install is a bit magic.
-# It goes something like this...
-#
-# IF ( host has Module::Install installed, creating author mode ) {
-# 1. Makefile.PL calls "use inc::Module::Install"
-# 2. $INC{inc/Module/Install.pm} set to installed version of inc::Module::Install
-# 3. The installed version of inc::Module::Install loads
-# 4. inc::Module::Install calls "require Module::Install"
-# 5. The ./inc/ version of Module::Install loads
-# } ELSE {
-# 1. Makefile.PL calls "use inc::Module::Install"
-# 2. $INC{inc/Module/Install.pm} set to ./inc/ version of Module::Install
-# 3. The ./inc/ version of Module::Install loads
-# }
-
-use 5.005;
-use strict 'vars';
-
-use vars qw{$VERSION $MAIN};
-BEGIN {
- # All Module::Install core packages now require synchronised versions.
- # This will be used to ensure we don't accidentally load old or
- # different versions of modules.
- # This is not enforced yet, but will be some time in the next few
- # releases once we can make sure it won't clash with custom
- # Module::Install extensions.
- $VERSION = '0.91';
-
- # Storage for the pseudo-singleton
- $MAIN = undef;
-
- *inc::Module::Install::VERSION = *VERSION;
- @inc::Module::Install::ISA = __PACKAGE__;
-
-}
-
-
-
-
-
-# Whether or not inc::Module::Install is actually loaded, the
-# $INC{inc/Module/Install.pm} is what will still get set as long as
-# the caller loaded module this in the documented manner.
-# If not set, the caller may NOT have loaded the bundled version, and thus
-# they may not have a MI version that works with the Makefile.PL. This would
-# result in false errors or unexpected behaviour. And we don't want that.
-my $file = join( '/', 'inc', split /::/, __PACKAGE__ ) . '.pm';
-unless ( $INC{$file} ) { die <<"END_DIE" }
-
-Please invoke ${\__PACKAGE__} with:
-
- use inc::${\__PACKAGE__};
-
-not:
-
- use ${\__PACKAGE__};
-
-END_DIE
-
-
-
-
-
-# If the script that is loading Module::Install is from the future,
-# then make will detect this and cause it to re-run over and over
-# again. This is bad. Rather than taking action to touch it (which
-# is unreliable on some platforms and requires write permissions)
-# for now we should catch this and refuse to run.
-if ( -f $0 ) {
- my $s = (stat($0))[9];
-
- # If the modification time is only slightly in the future,
- # sleep briefly to remove the problem.
- my $a = $s - time;
- if ( $a > 0 and $a < 5 ) { sleep 5 }
-
- # Too far in the future, throw an error.
- my $t = time;
- if ( $s > $t ) { die <<"END_DIE" }
-
-Your installer $0 has a modification time in the future ($s > $t).
-
-This is known to create infinite loops in make.
-
-Please correct this, then run $0 again.
-
-END_DIE
-}
-
-
-
-
-
-# Build.PL was formerly supported, but no longer is due to excessive
-# difficulty in implementing every single feature twice.
-if ( $0 =~ /Build.PL$/i ) { die <<"END_DIE" }
-
-Module::Install no longer supports Build.PL.
-
-It was impossible to maintain duel backends, and has been deprecated.
-
-Please remove all Build.PL files and only use the Makefile.PL installer.
-
-END_DIE
-
-
-
-
-
-# To save some more typing in Module::Install installers, every...
-# use inc::Module::Install
-# ...also acts as an implicit use strict.
-$^H |= strict::bits(qw(refs subs vars));
-
-
-
-
-
-use Cwd ();
-use File::Find ();
-use File::Path ();
-use FindBin;
-
-sub autoload {
- my $self = shift;
- my $who = $self->_caller;
- my $cwd = Cwd::cwd();
- my $sym = "${who}::AUTOLOAD";
- $sym->{$cwd} = sub {
- my $pwd = Cwd::cwd();
- if ( my $code = $sym->{$pwd} ) {
- # Delegate back to parent dirs
- goto &$code unless $cwd eq $pwd;
- }
- $$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
- my $method = $1;
- if ( uc($method) eq $method ) {
- # Do nothing
- return;
- } elsif ( $method =~ /^_/ and $self->can($method) ) {
- # Dispatch to the root M:I class
- return $self->$method(@_);
- }
-
- # Dispatch to the appropriate plugin
- unshift @_, ( $self, $1 );
- goto &{$self->can('call')};
- };
-}
-
-sub import {
- my $class = shift;
- my $self = $class->new(@_);
- my $who = $self->_caller;
-
- unless ( -f $self->{file} ) {
- require "$self->{path}/$self->{dispatch}.pm";
- File::Path::mkpath("$self->{prefix}/$self->{author}");
- $self->{admin} = "$self->{name}::$self->{dispatch}"->new( _top => $self );
- $self->{admin}->init;
- @_ = ($class, _self => $self);
- goto &{"$self->{name}::import"};
- }
-
- *{"${who}::AUTOLOAD"} = $self->autoload;
- $self->preload;
-
- # Unregister loader and worker packages so subdirs can use them again
- delete $INC{"$self->{file}"};
- delete $INC{"$self->{path}.pm"};
-
- # Save to the singleton
- $MAIN = $self;
-
- return 1;
-}
-
-sub preload {
- my $self = shift;
- unless ( $self->{extensions} ) {
- $self->load_extensions(
- "$self->{prefix}/$self->{path}", $self
- );
- }
-
- my @exts = @{$self->{extensions}};
- unless ( @exts ) {
- @exts = $self->{admin}->load_all_extensions;
- }
-
- my %seen;
- foreach my $obj ( @exts ) {
- while (my ($method, $glob) = each %{ref($obj) . '::'}) {
- next unless $obj->can($method);
- next if $method =~ /^_/;
- next if $method eq uc($method);
- $seen{$method}++;
- }
- }
-
- my $who = $self->_caller;
- foreach my $name ( sort keys %seen ) {
- *{"${who}::$name"} = sub {
- ${"${who}::AUTOLOAD"} = "${who}::$name";
- goto &{"${who}::AUTOLOAD"};
- };
- }
-}
-
-sub new {
- my ($class, %args) = @_;
-
- # ignore the prefix on extension modules built from top level.
- my $base_path = Cwd::abs_path($FindBin::Bin);
- unless ( Cwd::abs_path(Cwd::cwd()) eq $base_path ) {
- delete $args{prefix};
- }
-
- return $args{_self} if $args{_self};
-
- $args{dispatch} ||= 'Admin';
- $args{prefix} ||= 'inc';
- $args{author} ||= ($^O eq 'VMS' ? '_author' : '.author');
- $args{bundle} ||= 'inc/BUNDLES';
- $args{base} ||= $base_path;
- $class =~ s/^\Q$args{prefix}\E:://;
- $args{name} ||= $class;
- $args{version} ||= $class->VERSION;
- unless ( $args{path} ) {
- $args{path} = $args{name};
- $args{path} =~ s!::!/!g;
- }
- $args{file} ||= "$args{base}/$args{prefix}/$args{path}.pm";
- $args{wrote} = 0;
-
- bless( \%args, $class );
-}
-
-sub call {
- my ($self, $method) = @_;
- my $obj = $self->load($method) or return;
- splice(@_, 0, 2, $obj);
- goto &{$obj->can($method)};
-}
-
-sub load {
- my ($self, $method) = @_;
-
- $self->load_extensions(
- "$self->{prefix}/$self->{path}", $self
- ) unless $self->{extensions};
-
- foreach my $obj (@{$self->{extensions}}) {
- return $obj if $obj->can($method);
- }
-
- my $admin = $self->{admin} or die <<"END_DIE";
-The '$method' method does not exist in the '$self->{prefix}' path!
-Please remove the '$self->{prefix}' directory and run $0 again to load it.
-END_DIE
-
- my $obj = $admin->load($method, 1);
- push @{$self->{extensions}}, $obj;
-
- $obj;
-}
-
-sub load_extensions {
- my ($self, $path, $top) = @_;
-
- unless ( grep { ! ref $_ and lc $_ eq lc $self->{prefix} } @INC ) {
- unshift @INC, $self->{prefix};
- }
-
- foreach my $rv ( $self->find_extensions($path) ) {
- my ($file, $pkg) = @{$rv};
- next if $self->{pathnames}{$pkg};
-
- local $@;
- my $new = eval { require $file; $pkg->can('new') };
- unless ( $new ) {
- warn $@ if $@;
- next;
- }
- $self->{pathnames}{$pkg} = delete $INC{$file};
- push @{$self->{extensions}}, &{$new}($pkg, _top => $top );
- }
-
- $self->{extensions} ||= [];
-}
-
-sub find_extensions {
- my ($self, $path) = @_;
-
- my @found;
- File::Find::find( sub {
- my $file = $File::Find::name;
- return unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!is;
- my $subpath = $1;
- return if lc($subpath) eq lc($self->{dispatch});
-
- $file = "$self->{path}/$subpath.pm";
- my $pkg = "$self->{name}::$subpath";
- $pkg =~ s!/!::!g;
-
- # If we have a mixed-case package name, assume case has been preserved
- # correctly. Otherwise, root through the file to locate the case-preserved
- # version of the package name.
- if ( $subpath eq lc($subpath) || $subpath eq uc($subpath) ) {
- my $content = Module::Install::_read($subpath . '.pm');
- my $in_pod = 0;
- foreach ( split //, $content ) {
- $in_pod = 1 if /^=\w/;
- $in_pod = 0 if /^=cut/;
- next if ($in_pod || /^=cut/); # skip pod text
- next if /^\s*#/; # and comments
- if ( m/^\s*package\s+($pkg)\s*;/i ) {
- $pkg = $1;
- last;
- }
- }
- }
-
- push @found, [ $file, $pkg ];
- }, $path ) if -d $path;
-
- @found;
-}
-
-
-
-
-
-#####################################################################
-# Common Utility Functions
-
-sub _caller {
- my $depth = 0;
- my $call = caller($depth);
- while ( $call eq __PACKAGE__ ) {
- $depth++;
- $call = caller($depth);
- }
- return $call;
-}
-
-sub _read {
- local *FH;
- if ( $] >= 5.006 ) {
- open( FH, '<', $_[0] ) or die "open($_[0]): $!";
- } else {
- open( FH, "< $_[0]" ) or die "open($_[0]): $!";
- }
- my $string = do { local $/; <FH> };
- close FH or die "close($_[0]): $!";
- return $string;
-}
-
-sub _readperl {
- my $string = Module::Install::_read($_[0]);
- $string =~ s/(?:\015{1,2}\012|\015|\012)/\n/sg;
- $string =~ s/(\n)\n*__(?:DATA|END)__\b.*\z/$1/s;
- $string =~ s/\n\n=\w+.+?\n\n=cut\b.+?\n+/\n\n/sg;
- return $string;
-}
-
-sub _readpod {
- my $string = Module::Install::_read($_[0]);
- $string =~ s/(?:\015{1,2}\012|\015|\012)/\n/sg;
- return $string if $_[0] =~ /\.pod\z/;
- $string =~ s/(^|\n=cut\b.+?\n+)[^=\s].+?\n(\n=\w+|\z)/$1$2/sg;
- $string =~ s/\n*=pod\b[^\n]*\n+/\n\n/sg;
- $string =~ s/\n*=cut\b[^\n]*\n+/\n\n/sg;
- $string =~ s/^\n+//s;
- return $string;
-}
-
-sub _write {
- local *FH;
- if ( $] >= 5.006 ) {
- open( FH, '>', $_[0] ) or die "open($_[0]): $!";
- } else {
- open( FH, "> $_[0]" ) or die "open($_[0]): $!";
- }
- foreach ( 1 .. $#_ ) {
- print FH $_[$_] or die "print($_[0]): $!";
- }
- close FH or die "close($_[0]): $!";
-}
-
-# _version is for processing module versions (eg, 1.03_05) not
-# Perl versions (eg, 5.8.1).
-sub _version ($) {
- my $s = shift || 0;
- my $d =()= $s =~ /(\.)/g;
- if ( $d >= 2 ) {
- # Normalise multipart versions
- $s =~ s/(\.)(\d{1,3})/sprintf("$1%03d",$2)/eg;
- }
- $s =~ s/^(\d+)\.?//;
- my $l = $1 || 0;
- my @v = map {
- $_ . '0' x (3 - length $_)
- } $s =~ /(\d{1,3})\D?/g;
- $l = $l . '.' . join '', @v if @v;
- return $l + 0;
-}
-
-sub _cmp ($$) {
- _version($_[0]) <=> _version($_[1]);
-}
-
-# Cloned from Params::Util::_CLASS
-sub _CLASS ($) {
- (
- defined $_[0]
- and
- ! ref $_[0]
- and
- $_[0] =~ m/^[^\W\d]\w*(?:::\w+)*\z/s
- ) ? $_[0] : undef;
-}
-
-1;
-
-# Copyright 2008 - 2009 Adam Kennedy.
diff --git a/3.8.8/sources/cpan-YAML/vendor/inc/Module/Install/Include.pm b/3.8.8/sources/cpan-YAML/vendor/inc/Module/Install/Include.pm
deleted file mode 100644
index 7e792e0..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/inc/Module/Install/Include.pm
+++ /dev/null
@@ -1,34 +0,0 @@
-#line 1
-package Module::Install::Include;
-
-use strict;
-use Module::Install::Base ();
-
-use vars qw{$VERSION @ISA $ISCORE};
-BEGIN {
- $VERSION = '0.91';
- @ISA = 'Module::Install::Base';
- $ISCORE = 1;
-}
-
-sub include {
- shift()->admin->include(@_);
-}
-
-sub include_deps {
- shift()->admin->include_deps(@_);
-}
-
-sub auto_include {
- shift()->admin->auto_include(@_);
-}
-
-sub auto_include_deps {
- shift()->admin->auto_include_deps(@_);
-}
-
-sub auto_include_dependent_dists {
- shift()->admin->auto_include_dependent_dists(@_);
-}
-
-1;
diff --git a/3.8.8/sources/cpan-YAML/vendor/inc/Module/Install/Makefile.pm b/3.8.8/sources/cpan-YAML/vendor/inc/Module/Install/Makefile.pm
deleted file mode 100644
index 98779db..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/inc/Module/Install/Makefile.pm
+++ /dev/null
@@ -1,268 +0,0 @@
-#line 1
-package Module::Install::Makefile;
-
-use strict 'vars';
-use ExtUtils::MakeMaker ();
-use Module::Install::Base ();
-
-use vars qw{$VERSION @ISA $ISCORE};
-BEGIN {
- $VERSION = '0.91';
- @ISA = 'Module::Install::Base';
- $ISCORE = 1;
-}
-
-sub Makefile { $_[0] }
-
-my %seen = ();
-
-sub prompt {
- shift;
-
- # Infinite loop protection
- my @c = caller();
- if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
- die "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
- }
-
- # In automated testing, always use defaults
- if ( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL_MM_USE_DEFAULT} ) {
- local $ENV{PERL_MM_USE_DEFAULT} = 1;
- goto &ExtUtils::MakeMaker::prompt;
- } else {
- goto &ExtUtils::MakeMaker::prompt;
- }
-}
-
-sub makemaker_args {
- my $self = shift;
- my $args = ( $self->{makemaker_args} ||= {} );
- %$args = ( %$args, @_ );
- return $args;
-}
-
-# For mm args that take multiple space-seperated args,
-# append an argument to the current list.
-sub makemaker_append {
- my $self = sShift;
- my $name = shift;
- my $args = $self->makemaker_args;
- $args->{name} = defined $args->{$name}
- ? join( ' ', $args->{name}, @_ )
- : join( ' ', @_ );
-}
-
-sub build_subdirs {
- my $self = shift;
- my $subdirs = $self->makemaker_args->{DIR} ||= [];
- for my $subdir (@_) {
- push @$subdirs, $subdir;
- }
-}
-
-sub clean_files {
- my $self = shift;
- my $clean = $self->makemaker_args->{clean} ||= {};
- %$clean = (
- %$clean,
- FILES => join ' ', grep { length $_ } ($clean->{FILES} || (), @_),
- );
-}
-
-sub realclean_files {
- my $self = shift;
- my $realclean = $self->makemaker_args->{realclean} ||= {};
- %$realclean = (
- %$realclean,
- FILES => join ' ', grep { length $_ } ($realclean->{FILES} || (), @_),
- );
-}
-
-sub libs {
- my $self = shift;
- my $libs = ref $_[0] ? shift : [ shift ];
- $self->makemaker_args( LIBS => $libs );
-}
-
-sub inc {
- my $self = shift;
- $self->makemaker_args( INC => shift );
-}
-
-my %test_dir = ();
-
-sub _wanted_t {
- /\.t$/ and -f $_ and $test_dir{$File::Find::dir} = 1;
-}
-
-sub tests_recursive {
- my $self = shift;
- if ( $self->tests ) {
- die "tests_recursive will not work if tests are already defined";
- }
- my $dir = shift || 't';
- unless ( -d $dir ) {
- die "tests_recursive dir '$dir' does not exist";
- }
- %test_dir = ();
- require File::Find;
- File::Find::find( \&_wanted_t, $dir );
- $self->tests( join ' ', map { "$_/*.t" } sort keys %test_dir );
-}
-
-sub write {
- my $self = shift;
- die "&Makefile->write() takes no arguments\n" if @_;
-
- # Check the current Perl version
- my $perl_version = $self->perl_version;
- if ( $perl_version ) {
- eval "use $perl_version; 1"
- or die "ERROR: perl: Version $] is installed, "
- . "but we need version >= $perl_version";
- }
-
- # Make sure we have a new enough MakeMaker
- require ExtUtils::MakeMaker;
-
- if ( $perl_version and $self->_cmp($perl_version, '5.006') >= 0 ) {
- # MakeMaker can complain about module versions that include
- # an underscore, even though its own version may contain one!
- # Hence the funny regexp to get rid of it. See RT #35800
- # for details.
- $self->build_requires( 'ExtUtils::MakeMaker' => $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/ );
- $self->configure_requires( 'ExtUtils::MakeMaker' => $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/ );
- } else {
- # Allow legacy-compatibility with 5.005 by depending on the
- # most recent EU:MM that supported 5.005.
- $self->build_requires( 'ExtUtils::MakeMaker' => 6.42 );
- $self->configure_requires( 'ExtUtils::MakeMaker' => 6.42 );
- }
-
- # Generate the MakeMaker params
- my $args = $self->makemaker_args;
- $args->{DISTNAME} = $self->name;
- $args->{NAME} = $self->module_name || $self->name;
- $args->{VERSION} = $self->version;
- $args->{NAME} =~ s/-/::/g;
- if ( $self->tests ) {
- $args->{test} = { TESTS => $self->tests };
- }
- if ( $] >= 5.005 ) {
- $args->{ABSTRACT} = $self->abstract;
- $args->{AUTHOR} = $self->author;
- }
- if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
- $args->{NO_META} = 1;
- }
- if ( eval($ExtUtils::MakeMaker::VERSION) > 6.17 and $self->sign ) {
- $args->{SIGN} = 1;
- }
- unless ( $self->is_admin ) {
- delete $args->{SIGN};
- }
-
- # Merge both kinds of requires into prereq_pm
- my $prereq = ($args->{PREREQ_PM} ||= {});
- %$prereq = ( %$prereq,
- map { @$_ }
- map { @$_ }
- grep $_,
- ($self->configure_requires, $self->build_requires, $self->requires)
- );
-
- # Remove any reference to perl, PREREQ_PM doesn't support it
- delete $args->{PREREQ_PM}->{perl};
-
- # merge both kinds of requires into prereq_pm
- my $subdirs = ($args->{DIR} ||= []);
- if ($self->bundles) {
- foreach my $bundle (@{ $self->bundles }) {
- my ($file, $dir) = @$bundle;
- push @$subdirs, $dir if -d $dir;
- delete $prereq->{$file};
- }
- }
-
- if ( my $perl_version = $self->perl_version ) {
- eval "use $perl_version; 1"
- or die "ERROR: perl: Version $] is installed, "
- . "but we need version >= $perl_version";
- }
-
- $args->{INSTALLDIRS} = $self->installdirs;
-
- my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;
-
- my $user_preop = delete $args{dist}->{PREOP};
- if (my $preop = $self->admin->preop($user_preop)) {
- foreach my $key ( keys %$preop ) {
- $args{dist}->{$key} = $preop->{$key};
- }
- }
-
- my $mm = ExtUtils::MakeMaker::WriteMakefile(%args);
- $self->fix_up_makefile($mm->{FIRST_MAKEFILE} || 'Makefile');
-}
-
-sub fix_up_makefile {
- my $self = shift;
- my $makefile_name = shift;
- my $top_class = ref($self->_top) || '';
- my $top_version = $self->_top->VERSION || '';
-
- my $preamble = $self->preamble
- ? "# Preamble by $top_class $top_version\n"
- . $self->preamble
- : '';
- my $postamble = "# Postamble by $top_class $top_version\n"
- . ($self->postamble || '');
-
- local *MAKEFILE;
- open MAKEFILE, "< $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
- my $makefile = do { local $/; <MAKEFILE> };
- close MAKEFILE or die $!;
-
- $makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
- $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
- $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;
- $makefile =~ s/^(FULLPERL = .*)/$1 "-Iinc"/m;
- $makefile =~ s/^(PERL = .*)/$1 "-Iinc"/m;
-
- # Module::Install will never be used to build the Core Perl
- # Sometimes PERL_LIB and PERL_ARCHLIB get written anyway, which breaks
- # PREFIX/PERL5LIB, and thus, install_share. Blank them if they exist
- $makefile =~ s/^PERL_LIB = .+/PERL_LIB =/m;
- #$makefile =~ s/^PERL_ARCHLIB = .+/PERL_ARCHLIB =/m;
-
- # Perl 5.005 mentions PERL_LIB explicitly, so we have to remove that as well.
- $makefile =~ s/(\"?)-I\$\(PERL_LIB\)\1//g;
-
- # XXX - This is currently unused; not sure if it breaks other MM-users
- # $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;
-
- open MAKEFILE, "> $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
- print MAKEFILE "$preamble$makefile$postamble" or die $!;
- close MAKEFILE or die $!;
-
- 1;
-}
-
-sub preamble {
- my ($self, $text) = @_;
- $self->{preamble} = $text . $self->{preamble} if defined $text;
- $self->{preamble};
-}
-
-sub postamble {
- my ($self, $text) = @_;
- $self->{postamble} ||= $self->admin->postamble;
- $self->{postamble} .= $text if defined $text;
- $self->{postamble}
-}
-
-1;
-
-__END__
-
-#line 394
diff --git a/3.8.8/sources/cpan-YAML/vendor/inc/Module/Install/Metadata.pm b/3.8.8/sources/cpan-YAML/vendor/inc/Module/Install/Metadata.pm
deleted file mode 100644
index 653193d..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/inc/Module/Install/Metadata.pm
+++ /dev/null
@@ -1,624 +0,0 @@
-#line 1
-package Module::Install::Metadata;
-
-use strict 'vars';
-use Module::Install::Base ();
-
-use vars qw{$VERSION @ISA $ISCORE};
-BEGIN {
- $VERSION = '0.91';
- @ISA = 'Module::Install::Base';
- $ISCORE = 1;
-}
-
-my @boolean_keys = qw{
- sign
-};
-
-my @scalar_keys = qw{
- name
- module_name
- abstract
- author
- version
- distribution_type
- tests
- installdirs
-};
-
-my @tuple_keys = qw{
- configure_requires
- build_requires
- requires
- recommends
- bundles
- resources
-};
-
-my @resource_keys = qw{
- homepage
- bugtracker
- repository
-};
-
-my @array_keys = qw{
- keywords
-};
-
-sub Meta { shift }
-sub Meta_BooleanKeys { @boolean_keys }
-sub Meta_ScalarKeys { @scalar_keys }
-sub Meta_TupleKeys { @tuple_keys }
-sub Meta_ResourceKeys { @resource_keys }
-sub Meta_ArrayKeys { @array_keys }
-
-foreach my $key ( @boolean_keys ) {
- *$key = sub {
- my $self = shift;
- if ( defined wantarray and not @_ ) {
- return $self->{values}->{$key};
- }
- $self->{values}->{$key} = ( @_ ? $_[0] : 1 );
- return $self;
- };
-}
-
-foreach my $key ( @scalar_keys ) {
- *$key = sub {
- my $self = shift;
- return $self->{values}->{$key} if defined wantarray and !@_;
- $self->{values}->{$key} = shift;
- return $self;
- };
-}
-
-foreach my $key ( @array_keys ) {
- *$key = sub {
- my $self = shift;
- return $self->{values}->{$key} if defined wantarray and !@_;
- $self->{values}->{$key} ||= [];
- push @{$self->{values}->{$key}}, @_;
- return $self;
- };
-}
-
-foreach my $key ( @resource_keys ) {
- *$key = sub {
- my $self = shift;
- unless ( @_ ) {
- return () unless $self->{values}->{resources};
- return map { $_->[1] }
- grep { $_->[0] eq $key }
- @{ $self->{values}->{resources} };
- }
- return $self->{values}->{resources}->{$key} unless @_;
- my $uri = shift or die(
- "Did not provide a value to $key()"
- );
- $self->resources( $key => $uri );
- return 1;
- };
-}
-
-foreach my $key ( grep { $_ ne "resources" } @tuple_keys) {
- *$key = sub {
- my $self = shift;
- return $self->{values}->{$key} unless @_;
- my @added;
- while ( @_ ) {
- my $module = shift or last;
- my $version = shift || 0;
- push @added, [ $module, $version ];
- }
- push @{ $self->{values}->{$key} }, @added;
- return map {@$_} @added;
- };
-}
-
-# Resource handling
-my %lc_resource = map { $_ => 1 } qw{
- homepage
- license
- bugtracker
- repository
-};
-
-sub resources {
- my $self = shift;
- while ( @_ ) {
- my $name = shift or last;
- my $value = shift or next;
- if ( $name eq lc $name and ! $lc_resource{$name} ) {
- die("Unsupported reserved lowercase resource '$name'");
- }
- $self->{values}->{resources} ||= [];
- push @{ $self->{values}->{resources} }, [ $name, $value ];
- }
- $self->{values}->{resources};
-}
-
-# Aliases for build_requires that will have alternative
-# meanings in some future version of META.yml.
-sub test_requires { shift->build_requires(@_) }
-sub install_requires { shift->build_requires(@_) }
-
-# Aliases for installdirs options
-sub install_as_core { $_[0]->installdirs('perl') }
-sub install_as_cpan { $_[0]->installdirs('site') }
-sub install_as_site { $_[0]->installdirs('site') }
-sub install_as_vendor { $_[0]->installdirs('vendor') }
-
-sub dynamic_config {
- my $self = shift;
- unless ( @_ ) {
- warn "You MUST provide an explicit true/false value to dynamic_config\n";
- return $self;
- }
- $self->{values}->{dynamic_config} = $_[0] ? 1 : 0;
- return 1;
-}
-
-sub perl_version {
- my $self = shift;
- return $self->{values}->{perl_version} unless @_;
- my $version = shift or die(
- "Did not provide a value to perl_version()"
- );
-
- # Normalize the version
- $version = $self->_perl_version($version);
-
- # We don't support the reall old versions
- unless ( $version >= 5.005 ) {
- die "Module::Install only supports 5.005 or newer (use ExtUtils::MakeMaker)\n";
- }
-
- $self->{values}->{perl_version} = $version;
-}
-
-#Stolen from M::B
-my %license_urls = (
- perl => 'http://dev.perl.org/licenses/',
- 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://opensource.org/licenses/lgpl-license.php',
- lgpl2 => 'http://opensource.org/licenses/lgpl-2.1.php',
- lgpl3 => 'http://opensource.org/licenses/lgpl-3.0.html',
- bsd => 'http://opensource.org/licenses/bsd-license.php',
- gpl => 'http://opensource.org/licenses/gpl-license.php',
- gpl2 => 'http://opensource.org/licenses/gpl-2.0.php',
- gpl3 => 'http://opensource.org/licenses/gpl-3.0.html',
- mit => 'http://opensource.org/licenses/mit-license.php',
- mozilla => 'http://opensource.org/licenses/mozilla1.1.php',
- open_source => undef,
- unrestricted => undef,
- restrictive => undef,
- unknown => undef,
-);
-
-sub license {
- my $self = shift;
- return $self->{values}->{license} unless @_;
- my $license = shift or die(
- 'Did not provide a value to license()'
- );
- $self->{values}->{license} = $license;
-
- # Automatically fill in license URLs
- if ( $license_urls{$license} ) {
- $self->resources( license => $license_urls{$license} );
- }
-
- return 1;
-}
-
-sub all_from {
- my ( $self, $file ) = @_;
-
- unless ( defined($file) ) {
- my $name = $self->name or die(
- "all_from called with no args without setting name() first"
- );
- $file = join('/', 'lib', split(/-/, $name)) . '.pm';
- $file =~ s{.*/}{} unless -e $file;
- unless ( -e $file ) {
- die("all_from cannot find $file from $name");
- }
- }
- unless ( -f $file ) {
- die("The path '$file' does not exist, or is not a file");
- }
-
- # Some methods pull from POD instead of code.
- # If there is a matching .pod, use that instead
- my $pod = $file;
- $pod =~ s/\.pm$/.pod/i;
- $pod = $file unless -e $pod;
-
- # Pull the different values
- $self->name_from($file) unless $self->name;
- $self->version_from($file) unless $self->version;
- $self->perl_version_from($file) unless $self->perl_version;
- $self->author_from($pod) unless $self->author;
- $self->license_from($pod) unless $self->license;
- $self->abstract_from($pod) unless $self->abstract;
-
- return 1;
-}
-
-sub provides {
- my $self = shift;
- my $provides = ( $self->{values}->{provides} ||= {} );
- %$provides = (%$provides, @_) if @_;
- return $provides;
-}
-
-sub auto_provides {
- my $self = shift;
- return $self unless $self->is_admin;
- unless (-e 'MANIFEST') {
- warn "Cannot deduce auto_provides without a MANIFEST, skipping\n";
- return $self;
- }
- # Avoid spurious warnings as we are not checking manifest here.
- local $SIG{__WARN__} = sub {1};
- require ExtUtils::Manifest;
- local *ExtUtils::Manifest::manicheck = sub { return };
-
- require Module::Build;
- my $build = Module::Build->new(
- dist_name => $self->name,
- dist_version => $self->version,
- license => $self->license,
- );
- $self->provides( %{ $build->find_dist_packages || {} } );
-}
-
-sub feature {
- my $self = shift;
- my $name = shift;
- my $features = ( $self->{values}->{features} ||= [] );
- my $mods;
-
- if ( @_ == 1 and ref( $_[0] ) ) {
- # The user used ->feature like ->features by passing in the second
- # argument as a reference. Accomodate for that.
- $mods = $_[0];
- } else {
- $mods = \@_;
- }
-
- my $count = 0;
- push @$features, (
- $name => [
- map {
- ref($_) ? ( ref($_) eq 'HASH' ) ? %$_ : @$_ : $_
- } @$mods
- ]
- );
-
- return @$features;
-}
-
-sub features {
- my $self = shift;
- while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
- $self->feature( $name, @$mods );
- }
- return $self->{values}->{features}
- ? @{ $self->{values}->{features} }
- : ();
-}
-
-sub no_index {
- my $self = shift;
- my $type = shift;
- push @{ $self->{values}->{no_index}->{$type} }, @_ if $type;
- return $self->{values}->{no_index};
-}
-
-sub read {
- my $self = shift;
- $self->include_deps( 'YAML::Tiny', 0 );
-
- require YAML::Tiny;
- my $data = YAML::Tiny::LoadFile('META.yml');
-
- # Call methods explicitly in case user has already set some values.
- while ( my ( $key, $value ) = each %$data ) {
- next unless $self->can($key);
- if ( ref $value eq 'HASH' ) {
- while ( my ( $module, $version ) = each %$value ) {
- $self->can($key)->($self, $module => $version );
- }
- } else {
- $self->can($key)->($self, $value);
- }
- }
- return $self;
-}
-
-sub write {
- my $self = shift;
- return $self unless $self->is_admin;
- $self->admin->write_meta;
- return $self;
-}
-
-sub version_from {
- require ExtUtils::MM_Unix;
- my ( $self, $file ) = @_;
- $self->version( ExtUtils::MM_Unix->parse_version($file) );
-}
-
-sub abstract_from {
- require ExtUtils::MM_Unix;
- my ( $self, $file ) = @_;
- $self->abstract(
- bless(
- { DISTNAME => $self->name },
- 'ExtUtils::MM_Unix'
- )->parse_abstract($file)
- );
-}
-
-# Add both distribution and module name
-sub name_from {
- my ($self, $file) = @_;
- if (
- Module::Install::_read($file) =~ m/
- ^ \s*
- package \s*
- ([\w:]+)
- \s* ;
- /ixms
- ) {
- my ($name, $module_name) = ($1, $1);
- $name =~ s{::}{-}g;
- $self->name($name);
- unless ( $self->module_name ) {
- $self->module_name($module_name);
- }
- } else {
- die("Cannot determine name from $file\n");
- }
-}
-
-sub perl_version_from {
- my $self = shift;
- if (
- Module::Install::_read($_[0]) =~ m/
- ^
- (?:use|require) \s*
- v?
- ([\d_\.]+)
- \s* ;
- /ixms
- ) {
- my $perl_version = $1;
- $perl_version =~ s{_}{}g;
- $self->perl_version($perl_version);
- } else {
- warn "Cannot determine perl version info from $_[0]\n";
- return;
- }
-}
-
-sub author_from {
- my $self = shift;
- my $content = Module::Install::_read($_[0]);
- if ($content =~ m/
- =head \d \s+ (?:authors?)\b \s*
- ([^\n]*)
- |
- =head \d \s+ (?:licen[cs]e|licensing|copyright|legal)\b \s*
- .*? copyright .*? \d\d\d[\d.]+ \s* (?:\bby\b)? \s*
- ([^\n]*)
- /ixms) {
- my $author = $1 || $2;
- $author =~ s{E<lt>}{<}g;
- $author =~ s{E<gt>}{>}g;
- $self->author($author);
- } else {
- warn "Cannot determine author info from $_[0]\n";
- }
-}
-
-sub license_from {
- my $self = shift;
- if (
- Module::Install::_read($_[0]) =~ m/
- (
- =head \d \s+
- (?:licen[cs]e|licensing|copyright|legal)\b
- .*?
- )
- (=head\\d.*|=cut.*|)
- \z
- /ixms ) {
- my $license_text = $1;
- my @phrases = (
- 'under the same (?:terms|license) as (?:perl|the perl programming language) itself' => 'perl', 1,
- 'GNU general public license' => 'gpl', 1,
- 'GNU public license' => 'gpl', 1,
- 'GNU lesser general public license' => 'lgpl', 1,
- 'GNU lesser public license' => 'lgpl', 1,
- 'GNU library general public license' => 'lgpl', 1,
- 'GNU library public license' => 'lgpl', 1,
- 'BSD license' => 'bsd', 1,
- 'Artistic license' => 'artistic', 1,
- 'GPL' => 'gpl', 1,
- 'LGPL' => 'lgpl', 1,
- 'BSD' => 'bsd', 1,
- 'Artistic' => 'artistic', 1,
- 'MIT' => 'mit', 1,
- 'proprietary' => 'proprietary', 0,
- );
- while ( my ($pattern, $license, $osi) = splice(@phrases, 0, 3) ) {
- $pattern =~ s{\s+}{\\s+}g;
- if ( $license_text =~ /\b$pattern\b/i ) {
- $self->license($license);
- return 1;
- }
- }
- }
-
- warn "Cannot determine license info from $_[0]\n";
- return 'unknown';
-}
-
-sub _extract_bugtracker {
- my @links = $_[0] =~ m#L<(\Qhttp://rt.cpan.org/\E[^>]+)>#g;
- my %links;
- @links{@links}=();
- @links=keys %links;
- return @links;
-}
-
-sub bugtracker_from {
- my $self = shift;
- my $content = Module::Install::_read($_[0]);
- my @links = _extract_bugtracker($content);
- unless ( @links ) {
- warn "Cannot determine bugtracker info from $_[0]\n";
- return 0;
- }
- if ( @links > 1 ) {
- warn "Found more than on rt.cpan.org link in $_[0]\n";
- return 0;
- }
-
- # Set the bugtracker
- bugtracker( $links[0] );
- return 1;
-}
-
-sub requires_from {
- my $self = shift;
- my $content = Module::Install::_readperl($_[0]);
- my @requires = $content =~ m/^use\s+([^\W\d]\w*(?:::\w+)*)\s+([\d\.]+)/mg;
- while ( @requires ) {
- my $module = shift @requires;
- my $version = shift @requires;
- $self->requires( $module => $version );
- }
-}
-
-sub test_requires_from {
- my $self = shift;
- my $content = Module::Install::_readperl($_[0]);
- my @requires = $content =~ m/^use\s+([^\W\d]\w*(?:::\w+)*)\s+([\d\.]+)/mg;
- while ( @requires ) {
- my $module = shift @requires;
- my $version = shift @requires;
- $self->test_requires( $module => $version );
- }
-}
-
-# Convert triple-part versions (eg, 5.6.1 or 5.8.9) to
-# numbers (eg, 5.006001 or 5.008009).
-# Also, convert double-part versions (eg, 5.8)
-sub _perl_version {
- my $v = $_[-1];
- $v =~ s/^([1-9])\.([1-9]\d?\d?)$/sprintf("%d.%03d",$1,$2)/e;
- $v =~ s/^([1-9])\.([1-9]\d?\d?)\.(0|[1-9]\d?\d?)$/sprintf("%d.%03d%03d",$1,$2,$3 || 0)/e;
- $v =~ s/(\.\d\d\d)000$/$1/;
- $v =~ s/_.+$//;
- if ( ref($v) ) {
- # Numify
- $v = $v + 0;
- }
- return $v;
-}
-
-
-
-
-
-######################################################################
-# MYMETA Support
-
-sub WriteMyMeta {
- die "WriteMyMeta has been deprecated";
-}
-
-sub write_mymeta_yaml {
- my $self = shift;
-
- # We need YAML::Tiny to write the MYMETA.yml file
- unless ( eval { require YAML::Tiny; 1; } ) {
- return 1;
- }
-
- # Generate the data
- my $meta = $self->_write_mymeta_data or return 1;
-
- # Save as the MYMETA.yml file
- print "Writing MYMETA.yml\n";
- YAML::Tiny::DumpFile('MYMETA.yml', $meta);
-}
-
-sub write_mymeta_json {
- my $self = shift;
-
- # We need JSON to write the MYMETA.json file
- unless ( eval { require JSON; 1; } ) {
- return 1;
- }
-
- # Generate the data
- my $meta = $self->_write_mymeta_data or return 1;
-
- # Save as the MYMETA.yml file
- print "Writing MYMETA.json\n";
- Module::Install::_write(
- 'MYMETA.json',
- JSON->new->pretty(1)->canonical->encode($meta),
- );
-}
-
-sub _write_mymeta_data {
- my $self = shift;
-
- # If there's no existing META.yml there is nothing we can do
- return undef unless -f 'META.yml';
-
- # We need Parse::CPAN::Meta to load the file
- unless ( eval { require Parse::CPAN::Meta; 1; } ) {
- return undef;
- }
-
- # Merge the perl version into the dependencies
- my $val = $self->Meta->{values};
- my $perl = delete $val->{perl_version};
- if ( $perl ) {
- $val->{requires} ||= [];
- my $requires = $val->{requires};
-
- # Canonize to three-dot version after Perl 5.6
- if ( $perl >= 5.006 ) {
- $perl =~ s{^(\d+)\.(\d\d\d)(\d*)}{join('.', $1, int($2||0), int($3||0))}e
- }
- unshift @$requires, [ perl => $perl ];
- }
-
- # Load the advisory META.yml file
- my @yaml = Parse::CPAN::Meta::LoadFile('META.yml');
- my $meta = $yaml[0];
-
- # Overwrite the non-configure dependency hashs
- delete $meta->{requires};
- delete $meta->{build_requires};
- delete $meta->{recommends};
- if ( exists $val->{requires} ) {
- $meta->{requires} = { map { @$_ } @{ $val->{requires} } };
- }
- if ( exists $val->{build_requires} ) {
- $meta->{build_requires} = { map { @$_ } @{ $val->{build_requires} } };
- }
-
- return $meta;
-}
-
-1;
diff --git a/3.8.8/sources/cpan-YAML/vendor/inc/Module/Install/TestBase.pm b/3.8.8/sources/cpan-YAML/vendor/inc/Module/Install/TestBase.pm
deleted file mode 100644
index b3f12ea..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/inc/Module/Install/TestBase.pm
+++ /dev/null
@@ -1,29 +0,0 @@
-#line 1
-package Module::Install::TestBase;
-use strict;
-use warnings;
-
-use Module::Install::Base;
-
-use vars qw($VERSION @ISA);
-BEGIN {
- $VERSION = '0.11';
- @ISA = 'Module::Install::Base';
-}
-
-sub use_test_base {
- my $self = shift;
- $self->include('Test::Base');
- $self->include('Test::Base::Filter');
- $self->include('Spiffy');
- $self->include('Test::More');
- $self->include('Test::Builder');
- $self->include('Test::Builder::Module');
- $self->requires('Filter::Util::Call');
-}
-
-1;
-
-=encoding utf8
-
-#line 70
diff --git a/3.8.8/sources/cpan-YAML/vendor/inc/Module/Install/Win32.pm b/3.8.8/sources/cpan-YAML/vendor/inc/Module/Install/Win32.pm
deleted file mode 100644
index f2f99df..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/inc/Module/Install/Win32.pm
+++ /dev/null
@@ -1,64 +0,0 @@
-#line 1
-package Module::Install::Win32;
-
-use strict;
-use Module::Install::Base ();
-
-use vars qw{$VERSION @ISA $ISCORE};
-BEGIN {
- $VERSION = '0.91';
- @ISA = 'Module::Install::Base';
- $ISCORE = 1;
-}
-
-# determine if the user needs nmake, and download it if needed
-sub check_nmake {
- my $self = shift;
- $self->load('can_run');
- $self->load('get_file');
-
- require Config;
- return unless (
- $^O eq 'MSWin32' and
- $Config::Config{make} and
- $Config::Config{make} =~ /^nmake\b/i and
- ! $self->can_run('nmake')
- );
-
- print "The required 'nmake' executable not found, fetching it...\n";
-
- require File::Basename;
- my $rv = $self->get_file(
- url => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe',
- ftp_url => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
- local_dir => File::Basename::dirname($^X),
- size => 51928,
- run => 'Nmake15.exe /o > nul',
- check_for => 'Nmake.exe',
- remove => 1,
- );
-
- die <<'END_MESSAGE' unless $rv;
-
--------------------------------------------------------------------------------
-
-Since you are using Microsoft Windows, you will need the 'nmake' utility
-before installation. It's available at:
-
- http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
- or
- ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe
-
-Please download the file manually, save it to a directory in %PATH% (e.g.
-C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
-that directory, and run "Nmake15.exe" from there; that will create the
-'nmake.exe' file needed by this module.
-
-You may then resume the installation process described in README.
-
--------------------------------------------------------------------------------
-END_MESSAGE
-
-}
-
-1;
diff --git a/3.8.8/sources/cpan-YAML/vendor/inc/Test/Base.pm b/3.8.8/sources/cpan-YAML/vendor/inc/Test/Base.pm
deleted file mode 100644
index c171dda..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/inc/Test/Base.pm
+++ /dev/null
@@ -1,684 +0,0 @@
-#line 1
-# TODO:
-#
-package Test::Base;
-use 5.006001;
-use Spiffy 0.30 -Base;
-use Spiffy ':XXX';
-our $VERSION = '0.58';
-
-my @test_more_exports;
-BEGIN {
- @test_more_exports = qw(
- ok isnt like unlike is_deeply cmp_ok
- skip todo_skip pass fail
- eq_array eq_hash eq_set
- plan can_ok isa_ok diag
- use_ok
- $TODO
- );
-}
-
-use Test::More import => \@test_more_exports;
-use Carp;
-
-our @EXPORT = (@test_more_exports, qw(
- is no_diff
-
- blocks next_block first_block
- delimiters spec_file spec_string
- filters filters_delay filter_arguments
- run run_compare run_is run_is_deeply run_like run_unlike
- skip_all_unless_require is_deep run_is_deep
- WWW XXX YYY ZZZ
- tie_output no_diag_on_only
-
- find_my_self default_object
-
- croak carp cluck confess
-));
-
-field '_spec_file';
-field '_spec_string';
-field _filters => [qw(norm trim)];
-field _filters_map => {};
-field spec =>
- -init => '$self->_spec_init';
-field block_list =>
- -init => '$self->_block_list_init';
-field _next_list => [];
-field block_delim =>
- -init => '$self->block_delim_default';
-field data_delim =>
- -init => '$self->data_delim_default';
-field _filters_delay => 0;
-field _no_diag_on_only => 0;
-
-field block_delim_default => '===';
-field data_delim_default => '---';
-
-my $default_class;
-my $default_object;
-my $reserved_section_names = {};
-
-sub default_object {
- $default_object ||= $default_class->new;
- return $default_object;
-}
-
-my $import_called = 0;
-sub import() {
- $import_called = 1;
- my $class = (grep /^-base$/i, @_)
- ? scalar(caller)
- : $_[0];
- if (not defined $default_class) {
- $default_class = $class;
- }
-# else {
-# croak "Can't use $class after using $default_class"
-# unless $default_class->isa($class);
-# }
-
- unless (grep /^-base$/i, @_) {
- my @args;
- for (my $ii = 1; $ii <= $#_; ++$ii) {
- if ($_[$ii] eq '-package') {
- ++$ii;
- } else {
- push @args, $_[$ii];
- }
- }
- Test::More->import(import => \@test_more_exports, @args)
- if @args;
- }
-
- _strict_warnings();
- goto &Spiffy::import;
-}
-
-# Wrap Test::Builder::plan
-my $plan_code = \&Test::Builder::plan;
-my $Have_Plan = 0;
-{
- no warnings 'redefine';
- *Test::Builder::plan = sub {
- $Have_Plan = 1;
- goto &$plan_code;
- };
-}
-
-my $DIED = 0;
-$SIG{__DIE__} = sub { $DIED = 1; die @_ };
-
-sub block_class { $self->find_class('Block') }
-sub filter_class { $self->find_class('Filter') }
-
-sub find_class {
- my $suffix = shift;
- my $class = ref($self) . "::$suffix";
- return $class if $class->can('new');
- $class = __PACKAGE__ . "::$suffix";
- return $class if $class->can('new');
- eval "require $class";
- return $class if $class->can('new');
- die "Can't find a class for $suffix";
-}
-
-sub check_late {
- if ($self->{block_list}) {
- my $caller = (caller(1))[3];
- $caller =~ s/.*:://;
- croak "Too late to call $caller()"
- }
-}
-
-sub find_my_self() {
- my $self = ref($_[0]) eq $default_class
- ? splice(@_, 0, 1)
- : default_object();
- return $self, @_;
-}
-
-sub blocks() {
- (my ($self), @_) = find_my_self(@_);
-
- croak "Invalid arguments passed to 'blocks'"
- if @_ > 1;
- croak sprintf("'%s' is invalid argument to blocks()", shift(@_))
- if @_ && $_[0] !~ /^[a-zA-Z]\w*$/;
-
- my $blocks = $self->block_list;
-
- my $section_name = shift || '';
- my @blocks = $section_name
- ? (grep { exists $_->{$section_name} } @$blocks)
- : (@$blocks);
-
- return scalar(@blocks) unless wantarray;
-
- return (@blocks) if $self->_filters_delay;
-
- for my $block (@blocks) {
- $block->run_filters
- unless $block->is_filtered;
- }
-
- return (@blocks);
-}
-
-sub next_block() {
- (my ($self), @_) = find_my_self(@_);
- my $list = $self->_next_list;
- if (@$list == 0) {
- $list = [@{$self->block_list}, undef];
- $self->_next_list($list);
- }
- my $block = shift @$list;
- if (defined $block and not $block->is_filtered) {
- $block->run_filters;
- }
- return $block;
-}
-
-sub first_block() {
- (my ($self), @_) = find_my_self(@_);
- $self->_next_list([]);
- $self->next_block;
-}
-
-sub filters_delay() {
- (my ($self), @_) = find_my_self(@_);
- $self->_filters_delay(defined $_[0] ? shift : 1);
-}
-
-sub no_diag_on_only() {
- (my ($self), @_) = find_my_self(@_);
- $self->_no_diag_on_only(defined $_[0] ? shift : 1);
-}
-
-sub delimiters() {
- (my ($self), @_) = find_my_self(@_);
- $self->check_late;
- my ($block_delimiter, $data_delimiter) = @_;
- $block_delimiter ||= $self->block_delim_default;
- $data_delimiter ||= $self->data_delim_default;
- $self->block_delim($block_delimiter);
- $self->data_delim($data_delimiter);
- return $self;
-}
-
-sub spec_file() {
- (my ($self), @_) = find_my_self(@_);
- $self->check_late;
- $self->_spec_file(shift);
- return $self;
-}
-
-sub spec_string() {
- (my ($self), @_) = find_my_self(@_);
- $self->check_late;
- $self->_spec_string(shift);
- return $self;
-}
-
-sub filters() {
- (my ($self), @_) = find_my_self(@_);
- if (ref($_[0]) eq 'HASH') {
- $self->_filters_map(shift);
- }
- else {
- my $filters = $self->_filters;
- push @$filters, @_;
- }
- return $self;
-}
-
-sub filter_arguments() {
- $Test::Base::Filter::arguments;
-}
-
-sub have_text_diff {
- eval { require Text::Diff; 1 } &&
- $Text::Diff::VERSION >= 0.35 &&
- $Algorithm::Diff::VERSION >= 1.15;
-}
-
-sub is($$;$) {
- (my ($self), @_) = find_my_self(@_);
- my ($actual, $expected, $name) = @_;
- local $Test::Builder::Level = $Test::Builder::Level + 1;
- if ($ENV{TEST_SHOW_NO_DIFFS} or
- not defined $actual or
- not defined $expected or
- $actual eq $expected or
- not($self->have_text_diff) or
- $expected !~ /\n./s
- ) {
- Test::More::is($actual, $expected, $name);
- }
- else {
- $name = '' unless defined $name;
- ok $actual eq $expected,
- $name . "\n" . Text::Diff::diff(\$expected, \$actual);
- }
-}
-
-sub run(&;$) {
- (my ($self), @_) = find_my_self(@_);
- my $callback = shift;
- for my $block (@{$self->block_list}) {
- $block->run_filters unless $block->is_filtered;
- &{$callback}($block);
- }
-}
-
-my $name_error = "Can't determine section names";
-sub _section_names {
- return @_ if @_ == 2;
- my $block = $self->first_block
- or croak $name_error;
- my @names = grep {
- $_ !~ /^(ONLY|LAST|SKIP)$/;
- } @{$block->{_section_order}[0] || []};
- croak "$name_error. Need two sections in first block"
- unless @names == 2;
- return @names;
-}
-
-sub _assert_plan {
- plan('no_plan') unless $Have_Plan;
-}
-
-sub END {
- run_compare() unless $Have_Plan or $DIED or not $import_called;
-}
-
-sub run_compare() {
- (my ($self), @_) = find_my_self(@_);
- $self->_assert_plan;
- my ($x, $y) = $self->_section_names(@_);
- local $Test::Builder::Level = $Test::Builder::Level + 1;
- for my $block (@{$self->block_list}) {
- next unless exists($block->{$x}) and exists($block->{$y});
- $block->run_filters unless $block->is_filtered;
- if (ref $block->$x) {
- is_deeply($block->$x, $block->$y,
- $block->name ? $block->name : ());
- }
- elsif (ref $block->$y eq 'Regexp') {
- my $regexp = ref $y ? $y : $block->$y;
- like($block->$x, $regexp, $block->name ? $block->name : ());
- }
- else {
- is($block->$x, $block->$y, $block->name ? $block->name : ());
- }
- }
-}
-
-sub run_is() {
- (my ($self), @_) = find_my_self(@_);
- $self->_assert_plan;
- my ($x, $y) = $self->_section_names(@_);
- local $Test::Builder::Level = $Test::Builder::Level + 1;
- for my $block (@{$self->block_list}) {
- next unless exists($block->{$x}) and exists($block->{$y});
- $block->run_filters unless $block->is_filtered;
- is($block->$x, $block->$y,
- $block->name ? $block->name : ()
- );
- }
-}
-
-sub run_is_deeply() {
- (my ($self), @_) = find_my_self(@_);
- $self->_assert_plan;
- my ($x, $y) = $self->_section_names(@_);
- for my $block (@{$self->block_list}) {
- next unless exists($block->{$x}) and exists($block->{$y});
- $block->run_filters unless $block->is_filtered;
- is_deeply($block->$x, $block->$y,
- $block->name ? $block->name : ()
- );
- }
-}
-
-sub run_like() {
- (my ($self), @_) = find_my_self(@_);
- $self->_assert_plan;
- my ($x, $y) = $self->_section_names(@_);
- for my $block (@{$self->block_list}) {
- next unless exists($block->{$x}) and defined($y);
- $block->run_filters unless $block->is_filtered;
- my $regexp = ref $y ? $y : $block->$y;
- like($block->$x, $regexp,
- $block->name ? $block->name : ()
- );
- }
-}
-
-sub run_unlike() {
- (my ($self), @_) = find_my_self(@_);
- $self->_assert_plan;
- my ($x, $y) = $self->_section_names(@_);
- for my $block (@{$self->block_list}) {
- next unless exists($block->{$x}) and defined($y);
- $block->run_filters unless $block->is_filtered;
- my $regexp = ref $y ? $y : $block->$y;
- unlike($block->$x, $regexp,
- $block->name ? $block->name : ()
- );
- }
-}
-
-sub skip_all_unless_require() {
- (my ($self), @_) = find_my_self(@_);
- my $module = shift;
- eval "require $module; 1"
- or Test::More::plan(
- skip_all => "$module failed to load"
- );
-}
-
-sub is_deep() {
- (my ($self), @_) = find_my_self(@_);
- require Test::Deep;
- Test::Deep::cmp_deeply(@_);
-}
-
-sub run_is_deep() {
- (my ($self), @_) = find_my_self(@_);
- $self->_assert_plan;
- my ($x, $y) = $self->_section_names(@_);
- for my $block (@{$self->block_list}) {
- next unless exists($block->{$x}) and exists($block->{$y});
- $block->run_filters unless $block->is_filtered;
- is_deep($block->$x, $block->$y,
- $block->name ? $block->name : ()
- );
- }
-}
-
-sub _pre_eval {
- my $spec = shift;
- return $spec unless $spec =~
- s/\A\s*<<<(.*?)>>>\s*$//sm;
- my $eval_code = $1;
- eval "package main; $eval_code";
- croak $@ if $@;
- return $spec;
-}
-
-sub _block_list_init {
- my $spec = $self->spec;
- $spec = $self->_pre_eval($spec);
- my $cd = $self->block_delim;
- my @hunks = ($spec =~ /^(\Q${cd}\E.*?(?=^\Q${cd}\E|\z))/msg);
- my $blocks = $self->_choose_blocks(@hunks);
- $self->block_list($blocks); # Need to set early for possible filter use
- my $seq = 1;
- for my $block (@$blocks) {
- $block->blocks_object($self);
- $block->seq_num($seq++);
- }
- return $blocks;
-}
-
-sub _choose_blocks {
- my $blocks = [];
- for my $hunk (@_) {
- my $block = $self->_make_block($hunk);
- if (exists $block->{ONLY}) {
- diag "I found ONLY: maybe you're debugging?"
- unless $self->_no_diag_on_only;
- return [$block];
- }
- next if exists $block->{SKIP};
- push @$blocks, $block;
- if (exists $block->{LAST}) {
- return $blocks;
- }
- }
- return $blocks;
-}
-
-sub _check_reserved {
- my $id = shift;
- croak "'$id' is a reserved name. Use something else.\n"
- if $reserved_section_names->{$id} or
- $id =~ /^_/;
-}
-
-sub _make_block {
- my $hunk = shift;
- my $cd = $self->block_delim;
- my $dd = $self->data_delim;
- my $block = $self->block_class->new;
- $hunk =~ s/\A\Q${cd}\E[ \t]*(.*)\s+// or die;
- my $name = $1;
- my @parts = split /^\Q${dd}\E +\(?(\w+)\)? *(.*)?\n/m, $hunk;
- my $description = shift @parts;
- $description ||= '';
- unless ($description =~ /\S/) {
- $description = $name;
- }
- $description =~ s/\s*\z//;
- $block->set_value(description => $description);
-
- my $section_map = {};
- my $section_order = [];
- while (@parts) {
- my ($type, $filters, $value) = splice(@parts, 0, 3);
- $self->_check_reserved($type);
- $value = '' unless defined $value;
- $filters = '' unless defined $filters;
- if ($filters =~ /:(\s|\z)/) {
- croak "Extra lines not allowed in '$type' section"
- if $value =~ /\S/;
- ($filters, $value) = split /\s*:(?:\s+|\z)/, $filters, 2;
- $value = '' unless defined $value;
- $value =~ s/^\s*(.*?)\s*$/$1/;
- }
- $section_map->{$type} = {
- filters => $filters,
- };
- push @$section_order, $type;
- $block->set_value($type, $value);
- }
- $block->set_value(name => $name);
- $block->set_value(_section_map => $section_map);
- $block->set_value(_section_order => $section_order);
- return $block;
-}
-
-sub _spec_init {
- return $self->_spec_string
- if $self->_spec_string;
- local $/;
- my $spec;
- if (my $spec_file = $self->_spec_file) {
- open FILE, $spec_file or die $!;
- $spec = <FILE>;
- close FILE;
- }
- else {
- $spec = do {
- package main;
- no warnings 'once';
- <DATA>;
- };
- }
- return $spec;
-}
-
-sub _strict_warnings() {
- require Filter::Util::Call;
- my $done = 0;
- Filter::Util::Call::filter_add(
- sub {
- return 0 if $done;
- my ($data, $end) = ('', '');
- while (my $status = Filter::Util::Call::filter_read()) {
- return $status if $status < 0;
- if (/^__(?:END|DATA)__\r?$/) {
- $end = $_;
- last;
- }
- $data .= $_;
- $_ = '';
- }
- $_ = "use strict;use warnings;$data$end";
- $done = 1;
- }
- );
-}
-
-sub tie_output() {
- my $handle = shift;
- die "No buffer to tie" unless @_;
- tie $handle, 'Test::Base::Handle', $_[0];
-}
-
-sub no_diff {
- $ENV{TEST_SHOW_NO_DIFFS} = 1;
-}
-
-package Test::Base::Handle;
-
-sub TIEHANDLE() {
- my $class = shift;
- bless \ $_[0], $class;
-}
-
-sub PRINT {
- $$self .= $_ for @_;
-}
-
-#===============================================================================
-# Test::Base::Block
-#
-# This is the default class for accessing a Test::Base block object.
-#===============================================================================
-package Test::Base::Block;
-our @ISA = qw(Spiffy);
-
-our @EXPORT = qw(block_accessor);
-
-sub AUTOLOAD {
- return;
-}
-
-sub block_accessor() {
- my $accessor = shift;
- no strict 'refs';
- return if defined &$accessor;
- *$accessor = sub {
- my $self = shift;
- if (@_) {
- Carp::croak "Not allowed to set values for '$accessor'";
- }
- my @list = @{$self->{$accessor} || []};
- return wantarray
- ? (@list)
- : $list[0];
- };
-}
-
-block_accessor 'name';
-block_accessor 'description';
-Spiffy::field 'seq_num';
-Spiffy::field 'is_filtered';
-Spiffy::field 'blocks_object';
-Spiffy::field 'original_values' => {};
-
-sub set_value {
- no strict 'refs';
- my $accessor = shift;
- block_accessor $accessor
- unless defined &$accessor;
- $self->{$accessor} = [@_];
-}
-
-sub run_filters {
- my $map = $self->_section_map;
- my $order = $self->_section_order;
- Carp::croak "Attempt to filter a block twice"
- if $self->is_filtered;
- for my $type (@$order) {
- my $filters = $map->{$type}{filters};
- my @value = $self->$type;
- $self->original_values->{$type} = $value[0];
- for my $filter ($self->_get_filters($type, $filters)) {
- $Test::Base::Filter::arguments =
- $filter =~ s/=(.*)$// ? $1 : undef;
- my $function = "main::$filter";
- no strict 'refs';
- if (defined &$function) {
- local $_ =
- (@value == 1 and not defined($value[0])) ? undef :
- join '', @value;
- my $old = $_;
- @value = &$function(@value);
- if (not(@value) or
- @value == 1 and defined($value[0]) and $value[0] =~ /\A(\d+|)\z/
- ) {
- if ($value[0] && $_ eq $old) {
- Test::Base::diag("Filters returning numbers are supposed to do munging \$_: your filter '$function' apparently doesn't.");
- }
- @value = ($_);
- }
- }
- else {
- my $filter_object = $self->blocks_object->filter_class->new;
- die "Can't find a function or method for '$filter' filter\n"
- unless $filter_object->can($filter);
- $filter_object->current_block($self);
- @value = $filter_object->$filter(@value);
- }
- # Set the value after each filter since other filters may be
- # introspecting.
- $self->set_value($type, @value);
- }
- }
- $self->is_filtered(1);
-}
-
-sub _get_filters {
- my $type = shift;
- my $string = shift || '';
- $string =~ s/\s*(.*?)\s*/$1/;
- my @filters = ();
- my $map_filters = $self->blocks_object->_filters_map->{$type} || [];
- $map_filters = [ $map_filters ] unless ref $map_filters;
- my @append = ();
- for (
- @{$self->blocks_object->_filters},
- @$map_filters,
- split(/\s+/, $string),
- ) {
- my $filter = $_;
- last unless length $filter;
- if ($filter =~ s/^-//) {
- @filters = grep { $_ ne $filter } @filters;
- }
- elsif ($filter =~ s/^\+//) {
- push @append, $filter;
- }
- else {
- push @filters, $filter;
- }
- }
- return @filters, @append;
-}
-
-{
- %$reserved_section_names = map {
- ($_, 1);
- } keys(%Test::Base::Block::), qw( new DESTROY );
-}
-
-__DATA__
-
-=encoding utf8
-
-#line 1376
diff --git a/3.8.8/sources/cpan-YAML/vendor/inc/Test/Base/Filter.pm b/3.8.8/sources/cpan-YAML/vendor/inc/Test/Base/Filter.pm
deleted file mode 100644
index a440ed9..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/inc/Test/Base/Filter.pm
+++ /dev/null
@@ -1,344 +0,0 @@
-#line 1
-#. TODO:
-#.
-
-#===============================================================================
-# This is the default class for handling Test::Base data filtering.
-#===============================================================================
-package Test::Base::Filter;
-use Spiffy -Base;
-use Spiffy ':XXX';
-
-field 'current_block';
-
-our $arguments;
-sub current_arguments {
- return undef unless defined $arguments;
- my $args = $arguments;
- $args =~ s/(\\s)/ /g;
- $args =~ s/(\\[a-z])/'"' . $1 . '"'/gee;
- return $args;
-}
-
-sub assert_scalar {
- return if @_ == 1;
- require Carp;
- my $filter = (caller(1))[3];
- $filter =~ s/.*:://;
- Carp::croak "Input to the '$filter' filter must be a scalar, not a list";
-}
-
-sub _apply_deepest {
- my $method = shift;
- return () unless @_;
- if (ref $_[0] eq 'ARRAY') {
- for my $aref (@_) {
- @$aref = $self->_apply_deepest($method, @$aref);
- }
- return @_;
- }
- $self->$method(@_);
-}
-
-sub _split_array {
- map {
- [$self->split($_)];
- } @_;
-}
-
-sub _peel_deepest {
- return () unless @_;
- if (ref $_[0] eq 'ARRAY') {
- if (ref $_[0]->[0] eq 'ARRAY') {
- for my $aref (@_) {
- @$aref = $self->_peel_deepest(@$aref);
- }
- return @_;
- }
- return map { $_->[0] } @_;
- }
- return @_;
-}
-
-#===============================================================================
-# these filters work on the leaves of nested arrays
-#===============================================================================
-sub Join { $self->_peel_deepest($self->_apply_deepest(join => @_)) }
-sub Reverse { $self->_apply_deepest(reverse => @_) }
-sub Split { $self->_apply_deepest(_split_array => @_) }
-sub Sort { $self->_apply_deepest(sort => @_) }
-
-
-sub append {
- my $suffix = $self->current_arguments;
- map { $_ . $suffix } @_;
-}
-
-sub array {
- return [@_];
-}
-
-sub base64_decode {
- $self->assert_scalar(@_);
- require MIME::Base64;
- MIME::Base64::decode_base64(shift);
-}
-
-sub base64_encode {
- $self->assert_scalar(@_);
- require MIME::Base64;
- MIME::Base64::encode_base64(shift);
-}
-
-sub chomp {
- map { CORE::chomp; $_ } @_;
-}
-
-sub chop {
- map { CORE::chop; $_ } @_;
-}
-
-sub dumper {
- no warnings 'once';
- require Data::Dumper;
- local $Data::Dumper::Sortkeys = 1;
- local $Data::Dumper::Indent = 1;
- local $Data::Dumper::Terse = 1;
- Data::Dumper::Dumper(@_);
-}
-
-sub escape {
- $self->assert_scalar(@_);
- my $text = shift;
- $text =~ s/(\\.)/eval "qq{$1}"/ge;
- return $text;
-}
-
-sub eval {
- $self->assert_scalar(@_);
- my @return = CORE::eval(shift);
- return $@ if $@;
- return @return;
-}
-
-sub eval_all {
- $self->assert_scalar(@_);
- my $out = '';
- my $err = '';
- Test::Base::tie_output(*STDOUT, $out);
- Test::Base::tie_output(*STDERR, $err);
- my $return = CORE::eval(shift);
- no warnings;
- untie *STDOUT;
- untie *STDERR;
- return $return, $@, $out, $err;
-}
-
-sub eval_stderr {
- $self->assert_scalar(@_);
- my $output = '';
- Test::Base::tie_output(*STDERR, $output);
- CORE::eval(shift);
- no warnings;
- untie *STDERR;
- return $output;
-}
-
-sub eval_stdout {
- $self->assert_scalar(@_);
- my $output = '';
- Test::Base::tie_output(*STDOUT, $output);
- CORE::eval(shift);
- no warnings;
- untie *STDOUT;
- return $output;
-}
-
-sub exec_perl_stdout {
- my $tmpfile = "/tmp/test-blocks-$$";
- $self->_write_to($tmpfile, @_);
- open my $execution, "$^X $tmpfile 2>&1 |"
- or die "Couldn't open subprocess: $!\n";
- local $/;
- my $output = <$execution>;
- close $execution;
- unlink($tmpfile)
- or die "Couldn't unlink $tmpfile: $!\n";
- return $output;
-}
-
-sub flatten {
- $self->assert_scalar(@_);
- my $ref = shift;
- if (ref($ref) eq 'HASH') {
- return map {
- ($_, $ref->{$_});
- } sort keys %$ref;
- }
- if (ref($ref) eq 'ARRAY') {
- return @$ref;
- }
- die "Can only flatten a hash or array ref";
-}
-
-sub get_url {
- $self->assert_scalar(@_);
- my $url = shift;
- CORE::chomp($url);
- require LWP::Simple;
- LWP::Simple::get($url);
-}
-
-sub hash {
- return +{ @_ };
-}
-
-sub head {
- my $size = $self->current_arguments || 1;
- return splice(@_, 0, $size);
-}
-
-sub join {
- my $string = $self->current_arguments;
- $string = '' unless defined $string;
- CORE::join $string, @_;
-}
-
-sub lines {
- $self->assert_scalar(@_);
- my $text = shift;
- return () unless length $text;
- my @lines = ($text =~ /^(.*\n?)/gm);
- return @lines;
-}
-
-sub norm {
- $self->assert_scalar(@_);
- my $text = shift;
- $text = '' unless defined $text;
- $text =~ s/\015\012/\n/g;
- $text =~ s/\r/\n/g;
- return $text;
-}
-
-sub prepend {
- my $prefix = $self->current_arguments;
- map { $prefix . $_ } @_;
-}
-
-sub read_file {
- $self->assert_scalar(@_);
- my $file = shift;
- CORE::chomp $file;
- open my $fh, $file
- or die "Can't open '$file' for input:\n$!";
- CORE::join '', <$fh>;
-}
-
-sub regexp {
- $self->assert_scalar(@_);
- my $text = shift;
- my $flags = $self->current_arguments;
- if ($text =~ /\n.*?\n/s) {
- $flags = 'xism'
- unless defined $flags;
- }
- else {
- CORE::chomp($text);
- }
- $flags ||= '';
- my $regexp = eval "qr{$text}$flags";
- die $@ if $@;
- return $regexp;
-}
-
-sub reverse {
- CORE::reverse(@_);
-}
-
-sub slice {
- die "Invalid args for slice"
- unless $self->current_arguments =~ /^(\d+)(?:,(\d))?$/;
- my ($x, $y) = ($1, $2);
- $y = $x if not defined $y;
- die "Invalid args for slice"
- if $x > $y;
- return splice(@_, $x, 1 + $y - $x);
-}
-
-sub sort {
- CORE::sort(@_);
-}
-
-sub split {
- $self->assert_scalar(@_);
- my $separator = $self->current_arguments;
- if (defined $separator and $separator =~ s{^/(.*)/$}{$1}) {
- my $regexp = $1;
- $separator = qr{$regexp};
- }
- $separator = qr/\s+/ unless $separator;
- CORE::split $separator, shift;
-}
-
-sub strict {
- $self->assert_scalar(@_);
- <<'...' . shift;
-use strict;
-use warnings;
-...
-}
-
-sub tail {
- my $size = $self->current_arguments || 1;
- return splice(@_, @_ - $size, $size);
-}
-
-sub trim {
- map {
- s/\A([ \t]*\n)+//;
- s/(?<=\n)\s*\z//g;
- $_;
- } @_;
-}
-
-sub unchomp {
- map { $_ . "\n" } @_;
-}
-
-sub write_file {
- my $file = $self->current_arguments
- or die "No file specified for write_file filter";
- if ($file =~ /(.*)[\\\/]/) {
- my $dir = $1;
- if (not -e $dir) {
- require File::Path;
- File::Path::mkpath($dir)
- or die "Can't create $dir";
- }
- }
- open my $fh, ">$file"
- or die "Can't open '$file' for output\n:$!";
- print $fh @_;
- close $fh;
- return $file;
-}
-
-sub yaml {
- $self->assert_scalar(@_);
- require YAML;
- return YAML::Load(shift);
-}
-
-sub _write_to {
- my $filename = shift;
- open my $script, ">$filename"
- or die "Couldn't open $filename: $!\n";
- print $script @_;
- close $script
- or die "Couldn't close $filename: $!\n";
-}
-
-__DATA__
-
-#line 639
diff --git a/3.8.8/sources/cpan-YAML/vendor/lib/YAML.pm b/3.8.8/sources/cpan-YAML/vendor/lib/YAML.pm
deleted file mode 100644
index 4032a30..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/lib/YAML.pm
+++ /dev/null
@@ -1,817 +0,0 @@
-package YAML;
-
-use 5.008001;
-use strict;
-use warnings;
-use YAML::Base;
-use YAML::Node; # XXX This is a temp fix for Module::Build
-
-our $VERSION = '0.71';
-our @ISA = 'YAML::Base';
-our @EXPORT = qw{ Dump Load };
-our @EXPORT_OK = qw{ freeze thaw DumpFile LoadFile Bless Blessed };
-
-# XXX This VALUE nonsense needs to go.
-use constant VALUE => "\x07YAML\x07VALUE\x07";
-
-# YAML Object Properties
-field dumper_class => 'YAML::Dumper';
-field loader_class => 'YAML::Loader';
-field dumper_object =>
- -init => '$self->init_action_object("dumper")';
-field loader_object =>
- -init => '$self->init_action_object("loader")';
-
-sub Dump {
- my $yaml = YAML->new;
- $yaml->dumper_class($YAML::DumperClass)
- if $YAML::DumperClass;
- return $yaml->dumper_object->dump(@_);
-}
-
-sub Load {
- my $yaml = YAML->new;
- $yaml->loader_class($YAML::LoaderClass)
- if $YAML::LoaderClass;
- return $yaml->loader_object->load(@_);
-}
-
-{
- no warnings 'once';
- # freeze/thaw is the API for Storable string serialization. Some
- # modules make use of serializing packages on if they use freeze/thaw.
- *freeze = \ &Dump;
- *thaw = \ &Load;
-}
-
-sub DumpFile {
- my $OUT;
- my $filename = shift;
- if (ref $filename eq 'GLOB') {
- $OUT = $filename;
- }
- else {
- my $mode = '>';
- if ($filename =~ /^\s*(>{1,2})\s*(.*)$/) {
- ($mode, $filename) = ($1, $2);
- }
- open $OUT, $mode, $filename
- or YAML::Base->die('YAML_DUMP_ERR_FILE_OUTPUT', $filename, $!);
- }
- binmode $OUT, ':utf8'; # if $Config{useperlio} eq 'define';
- local $/ = "\n"; # reset special to "sane"
- print $OUT Dump(@_);
-}
-
-sub LoadFile {
- my $IN;
- my $filename = shift;
- if (ref $filename eq 'GLOB') {
- $IN = $filename;
- }
- else {
- open $IN, '<', $filename
- or YAML::Base->die('YAML_LOAD_ERR_FILE_INPUT', $filename, $!);
- }
- binmode $IN, ':utf8'; # if $Config{useperlio} eq 'define';
- return Load(do { local $/; <$IN> });
-}
-
-sub init_action_object {
- my $self = shift;
- my $object_class = (shift) . '_class';
- my $module_name = $self->$object_class;
- eval "require $module_name";
- $self->die("Error in require $module_name - $@")
- if $@ and "$@" !~ /Can't locate/;
- my $object = $self->$object_class->new;
- $object->set_global_options;
- return $object;
-}
-
-my $global = {};
-sub Bless {
- require YAML::Dumper::Base;
- YAML::Dumper::Base::bless($global, @_)
-}
-sub Blessed {
- require YAML::Dumper::Base;
- YAML::Dumper::Base::blessed($global, @_)
-}
-sub global_object { $global }
-
-1;
-
-__END__
-
-=encoding utf8
-
-=head1 NAME
-
-YAML - YAML Ain't Markup Language (tm)
-
-=head1 NOTE
-
-This module has been released to CPAN as YAML::Old, and soon YAML.pm
-will be changed to just be a frontend interface module for all the
-various Perl YAML implementation modules, including YAML::Old.
-
-If you want robust and fast YAML processing using the normal Dump/Load
-API, please consider switching to YAML::XS. It is by far the best Perl
-module for YAML at this time. It requires that you have a C compiler,
-since it is written in C.
-
-If you really need to use this version of YAML.pm it will always be
-available as YAML::Old.
-
-If you don't care which YAML module use, as long as it's the best one
-installed on your system, use YAML::Any.
-
-The rest of this documentation is left unchanged, until YAML.pm is
-switched over to the new UI-only version.
-
-=head1 SYNOPSIS
-
- use YAML;
-
- # Load a YAML stream of 3 YAML documents into Perl data structures.
- my ($hashref, $arrayref, $string) = Load(<<'...');
- ---
- name: ingy
- age: old
- weight: heavy
- # I should comment that I also like pink, but don't tell anybody.
- favorite colors:
- - red
- - green
- - blue
- ---
- - Clark Evans
- - Oren Ben-Kiki
- - Ingy döt Net
- --- >
- You probably think YAML stands for "Yet Another Markup Language". It
- ain't! YAML is really a data serialization language. But if you want
- to think of it as a markup, that's OK with me. A lot of people try
- to use XML as a serialization format.
-
- "YAML" is catchy and fun to say. Try it. "YAML, YAML, YAML!!!"
- ...
-
- # Dump the Perl data structures back into YAML.
- print Dump($string, $arrayref, $hashref);
-
- # YAML::Dump is used the same way you'd use Data::Dumper::Dumper
- use Data::Dumper;
- print Dumper($string, $arrayref, $hashref);
-
-=head1 DESCRIPTION
-
-The YAML.pm module implements a YAML Loader and Dumper based on the YAML
-1.0 specification. L<http://www.yaml.org/spec/>
-
-YAML is a generic data serialization language that is optimized for
-human readability. It can be used to express the data structures of most
-modern programming languages. (Including Perl!!!)
-
-For information on the YAML syntax, please refer to the YAML
-specification.
-
-=head1 WHY YAML IS COOL
-
-=over 4
-
-=item YAML is readable for people.
-
-It makes clear sense out of complex data structures. You should find
-that YAML is an exceptional data dumping tool. Structure is shown
-through indentation, YAML supports recursive data, and hash keys are
-sorted by default. In addition, YAML supports several styles of scalar
-formatting for different types of data.
-
-=item YAML is editable.
-
-YAML was designed from the ground up to be an excellent syntax for
-configuration files. Almost all programs need configuration files, so
-why invent a new syntax for each one? And why subject users to the
-complexities of XML or native Perl code?
-
-=item YAML is multilingual.
-
-Yes, YAML supports Unicode. But I'm actually referring to programming
-languages. YAML was designed to meet the serialization needs of Perl,
-Python, Ruby, Tcl, PHP, Javascript and Java. It was also designed to be
-interoperable between those languages. That means YAML serializations
-produced by Perl can be processed by Python.
-
-=item YAML is taint safe.
-
-Using modules like Data::Dumper for serialization is fine as long as you
-can be sure that nobody can tamper with your data files or
-transmissions. That's because you need to use Perl's C<eval()> built-in
-to deserialize the data. Somebody could add a snippet of Perl to erase
-your files.
-
-YAML's parser does not need to eval anything.
-
-=item YAML is full featured.
-
-YAML can accurately serialize all of the common Perl data structures and
-deserialize them again without losing data relationships. Although it is
-not 100% perfect (no serializer is or can be perfect), it fares as well
-as the popular current modules: Data::Dumper, Storable, XML::Dumper and
-Data::Denter.
-
-YAML.pm also has the ability to handle code (subroutine) references and
-typeglobs. (Still experimental) These features are not found in Perl's
-other serialization modules.
-
-=item YAML is extensible.
-
-The YAML language has been designed to be flexible enough to solve it's
-own problems. The markup itself has 3 basic construct which resemble
-Perl's hash, array and scalar. By default, these map to their Perl
-equivalents. But each YAML node also supports a tagging mechanism (type
-system) which can cause that node to be interpreted in a completely
-different manner. That's how YAML can support object serialization and
-oddball structures like Perl's typeglob.
-
-=back
-
-=head1 YAML IMPLEMENTATIONS IN PERL
-
-This module, YAML.pm, is really just the interface module for YAML
-modules written in Perl. The basic interface for YAML consists of two
-functions: C<Dump> and C<Load>. The real work is done by the modules
-YAML::Dumper and YAML::Loader.
-
-Different YAML module distributions can be created by subclassing
-YAML.pm and YAML::Loader and YAML::Dumper. For example, YAML-Simple
-consists of YAML::Simple YAML::Dumper::Simple and YAML::Loader::Simple.
-
-Why would there be more than one implementation of YAML? Well, despite
-YAML's offering of being a simple data format, YAML is actually very
-deep and complex. Implementing the entirety of the YAML specification is
-a daunting task.
-
-For this reason I am currently working on 3 different YAML implementations.
-
-=over
-
-=item YAML
-
-The main YAML distribution will keeping evolving to support the entire
-YAML specification in pure Perl. This may not be the fastest or most
-stable module though. Currently, YAML.pm has lots of known bugs. It is
-mostly a great tool for dumping Perl data structures to a readable form.
-
-=item YAML::Tiny
-
-The point of YAML::Tiny is to strip YAML down to the 90% that people
-use most and offer that in a small, fast, stable, pure Perl form.
-YAML::Tiny will simply die when it is asked to do something it can't.
-
-=item YAML::Syck
-
-C<libsyck> is the C based YAML processing library used by the Ruby
-programming language (and also Python, PHP and Pugs). YAML::Syck is the
-Perl binding to C<libsyck>. It should be very fast, but may have
-problems of its own. It will also require C compilation.
-
-NOTE: Audrey Tang has actually completed this module and it works great
- and is 10 times faster than YAML.pm.
-
-=back
-
-In the future, there will likely be even more YAML modules. Remember,
-people other than Ingy are allowed to write YAML modules!
-
-=head1 FUNCTIONAL USAGE
-
-YAML is completely OO under the hood. Still it exports a few useful top
-level functions so that it is dead simple to use. These functions just
-do the OO stuff for you. If you want direct access to the OO API see the
-documentation for YAML::Dumper and YAML::Loader.
-
-=head2 Exported Functions
-
-The following functions are exported by YAML.pm by default. The reason
-they are exported is so that YAML works much like Data::Dumper. If you
-don't want functions to be imported, just use YAML with an empty
-import list:
-
- use YAML ();
-
-=over 4
-
-=item Dump(list-of-Perl-data-structures)
-
-Turn Perl data into YAML. This function works very much like
-Data::Dumper::Dumper(). It takes a list of Perl data strucures and
-dumps them into a serialized form. It returns a string containing the
-YAML stream. The structures can be references or plain scalars.
-
-=item Load(string-containing-a-YAML-stream)
-
-Turn YAML into Perl data. This is the opposite of Dump. Just like
-Storable's thaw() function or the eval() function in relation to
-Data::Dumper. It parses a string containing a valid YAML stream into a
-list of Perl data structures.
-
-=back
-
-=head2 Exportable Functions
-
-These functions are not exported by default but you can request them in
-an import list like this:
-
- use YAML qw'freeze thaw Bless';
-
-=over 4
-
-=item freeze() and thaw()
-
-Aliases to Dump() and Load() for Storable fans. This will also allow
-YAML.pm to be plugged directly into modules like POE.pm, that use the
-freeze/thaw API for internal serialization.
-
-=item DumpFile(filepath, list)
-
-Writes the YAML stream to a file instead of just returning a string.
-
-=item LoadFile(filepath)
-
-Reads the YAML stream from a file instead of a string.
-
-=item Bless(perl-node, [yaml-node | class-name])
-
-Associate a normal Perl node, with a yaml node. A yaml node is an object
-tied to the YAML::Node class. The second argument is either a yaml node
-that you've already created or a class (package) name that supports a
-yaml_dump() function. A yaml_dump() function should take a perl node and
-return a yaml node. If no second argument is provided, Bless will create
-a yaml node. This node is not returned, but can be retrieved with the
-Blessed() function.
-
-Here's an example of how to use Bless. Say you have a hash containing
-three keys, but you only want to dump two of them. Furthermore the keys
-must be dumped in a certain order. Here's how you do that:
-
- use YAML qw(Dump Bless);
- $hash = {apple => 'good', banana => 'bad', cauliflower => 'ugly'};
- print Dump $hash;
- Bless($hash)->keys(['banana', 'apple']);
- print Dump $hash;
-
-produces:
-
- ---
- apple: good
- banana: bad
- cauliflower: ugly
- ---
- banana: bad
- apple: good
-
-Bless returns the tied part of a yaml-node, so that you can call the
-YAML::Node methods. This is the same thing that YAML::Node::ynode()
-returns. So another way to do the above example is:
-
- use YAML qw(Dump Bless);
- use YAML::Node;
- $hash = {apple => 'good', banana => 'bad', cauliflower => 'ugly'};
- print Dump $hash;
- Bless($hash);
- $ynode = ynode(Blessed($hash));
- $ynode->keys(['banana', 'apple']);
- print Dump $hash;
-
-Note that Blessing a Perl data structure does not change it anyway. The
-extra information is stored separately and looked up by the Blessed
-node's memory address.
-
-=item Blessed(perl-node)
-
-Returns the yaml node that a particular perl node is associated with
-(see above). Returns undef if the node is not (YAML) Blessed.
-
-=back
-
-=head1 GLOBAL OPTIONS
-
-YAML options are set using a group of global variables in the YAML
-namespace. This is similar to how Data::Dumper works.
-
-For example, to change the indentation width, do something like:
-
- local $YAML::Indent = 3;
-
-The current options are:
-
-=over 4
-
-=item DumperClass
-
-You can override which module/class YAML uses for Dumping data.
-
-=item LoaderClass
-
-You can override which module/class YAML uses for Loading data.
-
-=item Indent
-
-This is the number of space characters to use for each indentation level
-when doing a Dump(). The default is 2.
-
-By the way, YAML can use any number of characters for indentation at any
-level. So if you are editing YAML by hand feel free to do it anyway that
-looks pleasing to you; just be consistent for a given level.
-
-=item SortKeys
-
-Default is 1. (true)
-
-Tells YAML.pm whether or not to sort hash keys when storing a document.
-
-YAML::Node objects can have their own sort order, which is usually what
-you want. To override the YAML::Node order and sort the keys anyway, set
-SortKeys to 2.
-
-=item Stringify
-
-Default is 0. (false)
-
-Objects with string overloading should honor the overloading and dump the
-stringification of themselves, rather than the actual object's guts.
-
-=item UseHeader
-
-Default is 1. (true)
-
-This tells YAML.pm whether to use a separator string for a Dump
-operation. This only applies to the first document in a stream.
-Subsequent documents must have a YAML header by definition.
-
-=item UseVersion
-
-Default is 0. (false)
-
-Tells YAML.pm whether to include the YAML version on the
-separator/header.
-
- --- %YAML:1.0
-
-=item AnchorPrefix
-
-Default is ''.
-
-Anchor names are normally numeric. YAML.pm simply starts with '1' and
-increases by one for each new anchor. This option allows you to specify a
-string to be prepended to each anchor number.
-
-=item UseCode
-
-Setting the UseCode option is a shortcut to set both the DumpCode and
-LoadCode options at once. Setting UseCode to '1' tells YAML.pm to dump
-Perl code references as Perl (using B::Deparse) and to load them back
-into memory using eval(). The reason this has to be an option is that
-using eval() to parse untrusted code is, well, untrustworthy.
-
-=item DumpCode
-
-Determines if and how YAML.pm should serialize Perl code references. By
-default YAML.pm will dump code references as dummy placeholders (much
-like Data::Dumper). If DumpCode is set to '1' or 'deparse', code
-references will be dumped as actual Perl code.
-
-DumpCode can also be set to a subroutine reference so that you can
-write your own serializing routine. YAML.pm passes you the code ref. You
-pass back the serialization (as a string) and a format indicator. The
-format indicator is a simple string like: 'deparse' or 'bytecode'.
-
-=item LoadCode
-
-LoadCode is the opposite of DumpCode. It tells YAML if and how to
-deserialize code references. When set to '1' or 'deparse' it will use
-C<eval()>. Since this is potentially risky, only use this option if you
-know where your YAML has been.
-
-LoadCode can also be set to a subroutine reference so that you can write
-your own deserializing routine. YAML.pm passes the serialization (as a
-string) and a format indicator. You pass back the code reference.
-
-=item UseBlock
-
-YAML.pm uses heuristics to guess which scalar style is best for a given
-node. Sometimes you'll want all multiline scalars to use the 'block'
-style. If so, set this option to 1.
-
-NOTE: YAML's block style is akin to Perl's here-document.
-
-=item UseFold
-
-If you want to force YAML to use the 'folded' style for all multiline
-scalars, then set $UseFold to 1.
-
-NOTE: YAML's folded style is akin to the way HTML folds text,
- except smarter.
-
-=item UseAliases
-
-YAML has an alias mechanism such that any given structure in memory gets
-serialized once. Any other references to that structure are serialized
-only as alias markers. This is how YAML can serialize duplicate and
-recursive structures.
-
-Sometimes, when you KNOW that your data is nonrecursive in nature, you
-may want to serialize such that every node is expressed in full. (ie as
-a copy of the original). Setting $YAML::UseAliases to 0 will allow you
-to do this. This also may result in faster processing because the lookup
-overhead is by bypassed.
-
-THIS OPTION CAN BE DANGEROUS. *If* your data is recursive, this option
-*will* cause Dump() to run in an endless loop, chewing up your computers
-memory. You have been warned.
-
-=item CompressSeries
-
-Default is 1.
-
-Compresses the formatting of arrays of hashes:
-
- -
- foo: bar
- -
- bar: foo
-
-becomes:
-
- - foo: bar
- - bar: foo
-
-Since this output is usually more desirable, this option is turned on by
-default.
-
-=back
-
-=head1 YAML TERMINOLOGY
-
-YAML is a full featured data serialization language, and thus has its
-own terminology.
-
-It is important to remember that although YAML is heavily influenced by
-Perl and Python, it is a language in its own right, not merely just a
-representation of Perl structures.
-
-YAML has three constructs that are conspicuously similar to Perl's hash,
-array, and scalar. They are called mapping, sequence, and string
-respectively. By default, they do what you would expect. But each
-instance may have an explicit or implicit tag (type) that makes it
-behave differently. In this manner, YAML can be extended to represent
-Perl's Glob or Python's tuple, or Ruby's Bigint.
-
-=over 4
-
-=item stream
-
-A YAML stream is the full sequence of unicode characters that a YAML
-parser would read or a YAML emitter would write. A stream may contain
-one or more YAML documents separated by YAML headers.
-
- ---
- a: mapping
- foo: bar
- ---
- - a
- - sequence
-
-=item document
-
-A YAML document is an independent data structure representation within a
-stream. It is a top level node. Each document in a YAML stream must
-begin with a YAML header line. Actually the header is optional on the
-first document.
-
- ---
- This: top level mapping
- is:
- - a
- - YAML
- - document
-
-=item header
-
-A YAML header is a line that begins a YAML document. It consists of
-three dashes, possibly followed by more info. Another purpose of the
-header line is that it serves as a place to put top level tag and anchor
-information.
-
- --- !recursive-sequence &001
- - * 001
- - * 001
-
-=item node
-
-A YAML node is the representation of a particular data stucture. Nodes
-may contain other nodes. (In Perl terms, nodes are like scalars.
-Strings, arrayrefs and hashrefs. But this refers to the serialized
-format, not the in-memory structure.)
-
-=item tag
-
-This is similar to a type. It indicates how a particular YAML node
-serialization should be transferred into or out of memory. For instance
-a Foo::Bar object would use the tag 'perl/Foo::Bar':
-
- - !perl/Foo::Bar
- foo: 42
- bar: stool
-
-=item collection
-
-A collection is the generic term for a YAML data grouping. YAML has two
-types of collections: mappings and sequences. (Similar to hashes and arrays)
-
-=item mapping
-
-A mapping is a YAML collection defined by unordered key/value pairs with
-unique keys. By default YAML mappings are loaded into Perl hashes.
-
- a mapping:
- foo: bar
- two: times two is 4
-
-=item sequence
-
-A sequence is a YAML collection defined by an ordered list of elements. By
-default YAML sequences are loaded into Perl arrays.
-
- a sequence:
- - one bourbon
- - one scotch
- - one beer
-
-=item scalar
-
-A scalar is a YAML node that is a single value. By default YAML scalars
-are loaded into Perl scalars.
-
- a scalar key: a scalar value
-
-YAML has many styles for representing scalars. This is important because
-varying data will have varying formatting requirements to retain the
-optimum human readability.
-
-=item plain scalar
-
-A plain sclar is unquoted. All plain scalars are automatic candidates
-for "implicit tagging". This means that their tag may be determined
-automatically by examination. The typical uses for this are plain alpha
-strings, integers, real numbers, dates, times and currency.
-
- - a plain string
- - -42
- - 3.1415
- - 12:34
- - 123 this is an error
-
-=item single quoted scalar
-
-This is similar to Perl's use of single quotes. It means no escaping
-except for single quotes which are escaped by using two adjacent
-single quotes.
-
- - 'When I say ''\n'' I mean "backslash en"'
-
-=item double quoted scalar
-
-This is similar to Perl's use of double quotes. Character escaping can
-be used.
-
- - "This scalar\nhas two lines, and a bell -->\a"
-
-=item folded scalar
-
-This is a multiline scalar which begins on the next line. It is
-indicated by a single right angle bracket. It is unescaped like the
-single quoted scalar. Line folding is also performed.
-
- - >
- This is a multiline scalar which begins on
- the next line. It is indicated by a single
- carat. It is unescaped like the single
- quoted scalar. Line folding is also
- performed.
-
-=item block scalar
-
-This final multiline form is akin to Perl's here-document except that
-(as in all YAML data) scope is indicated by indentation. Therefore, no
-ending marker is required. The data is verbatim. No line folding.
-
- - |
- QTY DESC PRICE TOTAL
- --- ---- ----- -----
- 1 Foo Fighters $19.95 $19.95
- 2 Bar Belles $29.95 $59.90
-
-=item parser
-
-A YAML processor has four stages: parse, load, dump, emit.
-
-A parser parses a YAML stream. YAML.pm's Load() function contains a
-parser.
-
-=item loader
-
-The other half of the Load() function is a loader. This takes the
-information from the parser and loads it into a Perl data structure.
-
-=item dumper
-
-The Dump() function consists of a dumper and an emitter. The dumper
-walks through each Perl data structure and gives info to the emitter.
-
-=item emitter
-
-The emitter takes info from the dumper and turns it into a YAML stream.
-
-NOTE:
-In YAML.pm the parser/loader and the dumper/emitter code are currently
-very closely tied together. In the future they may be broken into
-separate stages.
-
-=back
-
-For more information please refer to the immensely helpful YAML
-specification available at L<http://www.yaml.org/spec/>.
-
-=head1 ysh - The YAML Shell
-
-The YAML distribution ships with a script called 'ysh', the YAML shell.
-ysh provides a simple, interactive way to play with YAML. If you type in
-Perl code, it displays the result in YAML. If you type in YAML it turns
-it into Perl code.
-
-To run ysh, (assuming you installed it along with YAML.pm) simply type:
-
- ysh [options]
-
-Please read the C<ysh> documentation for the full details. There are
-lots of options.
-
-=head1 BUGS & DEFICIENCIES
-
-If you find a bug in YAML, please try to recreate it in the YAML Shell
-with logging turned on ('ysh -L'). When you have successfully reproduced
-the bug, please mail the LOG file to the author (ingy at cpan.org).
-
-WARNING: This is still *ALPHA* code. Well, most of this code has been
-around for years...
-
-BIGGER WARNING: YAML.pm has been slow in the making, but I am committed
-to having top notch YAML tools in the Perl world. The YAML team is close
-to finalizing the YAML 1.1 spec. This version of YAML.pm is based off of
-a very old pre 1.0 spec. In actuality there isn't a ton of difference,
-and this YAML.pm is still fairly useful. Things will get much better in
-the future.
-
-=head1 RESOURCES
-
-L<http://lists.sourceforge.net/lists/listinfo/yaml-core> is the mailing
-list. This is where the language is discussed and designed.
-
-L<http://www.yaml.org> is the official YAML website.
-
-L<http://www.yaml.org/spec/> is the YAML 1.0 specification.
-
-L<http://yaml.kwiki.org> is the official YAML wiki.
-
-=head1 SEE ALSO
-
-See YAML::Syck. Fast!
-
-=head1 AUTHOR
-
-Ingy döt Net <ingy at cpan.org>
-
-is resonsible for YAML.pm.
-
-The YAML serialization language is the result of years of collaboration
-between Oren Ben-Kiki, Clark Evans and Ingy dE<ouml>t Net. Several others
-have added help along the way.
-
-=head1 COPYRIGHT
-
-Copyright (c) 2005, 2006, 2008. Ingy dE<ouml>t Net.
-
-Copyright (c) 2001, 2002, 2005. Brian Ingerson.
-
-Some parts copyright (c) 2009 - 2010 Adam Kennedy
-
-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/3.8.8/sources/cpan-YAML/vendor/lib/YAML/Any.pm b/3.8.8/sources/cpan-YAML/vendor/lib/YAML/Any.pm
deleted file mode 100644
index ad8f496..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/lib/YAML/Any.pm
+++ /dev/null
@@ -1,202 +0,0 @@
-package YAML::Any;
-
-use 5.005003;
-use strict;
-use Exporter ();
-
-$YAML::Any::VERSION = '0.71';
- at YAML::Any::ISA = 'Exporter';
- at YAML::Any::EXPORT = qw(Dump Load);
- at YAML::Any::EXPORT_OK = qw(DumpFile LoadFile);
-
-my @dump_options = qw(
- UseCode
- DumpCode
- SpecVersion
- Indent
- UseHeader
- UseVersion
- SortKeys
- AnchorPrefix
- UseBlock
- UseFold
- CompressSeries
- InlineSeries
- UseAliases
- Purity
- Stringify
-);
-
-my @load_options = qw(
- UseCode
- LoadCode
-);
-
-my @implementations = qw(
- YAML::XS
- YAML::Syck
- YAML::Old
- YAML
- YAML::Tiny
-);
-
-sub import {
- __PACKAGE__->implementation;
- goto &Exporter::import;
-}
-
-sub Dump {
- no strict 'refs';
- my $implementation = __PACKAGE__->implementation;
- for my $option (@dump_options) {
- my $var = "$implementation\::$option";
- my $value = $$var;
- local $$var;
- $$var = defined $value ? $value : ${"YAML::$option"};
- }
- return &{"$implementation\::Dump"}(@_);
-}
-
-sub DumpFile {
- no strict 'refs';
- my $implementation = __PACKAGE__->implementation;
- for my $option (@dump_options) {
- my $var = "$implementation\::$option";
- my $value = $$var;
- local $$var;
- $$var = defined $value ? $value : ${"YAML::$option"};
- }
- return &{"$implementation\::DumpFile"}(@_);
-}
-
-sub Load {
- no strict 'refs';
- my $implementation = __PACKAGE__->implementation;
- for my $option (@load_options) {
- my $var = "$implementation\::$option";
- my $value = $$var;
- local $$var;
- $$var = defined $value ? $value : ${"YAML::$option"};
- }
- return &{"$implementation\::Load"}(@_);
-}
-
-sub LoadFile {
- no strict 'refs';
- my $implementation = __PACKAGE__->implementation;
- for my $option (@load_options) {
- my $var = "$implementation\::$option";
- my $value = $$var;
- local $$var;
- $$var = defined $value ? $value : ${"YAML::$option"};
- }
- return &{"$implementation\::LoadFile"}(@_);
-}
-
-sub order {
- return @YAML::Any::_TEST_ORDER
- if defined @YAML::Any::_TEST_ORDER;
- return @implementations;
-}
-
-sub implementation {
- my @order = __PACKAGE__->order;
- for my $module (@order) {
- my $path = $module;
- $path =~ s/::/\//g;
- $path .= '.pm';
- return $module if exists $INC{$path};
- eval "require $module; 1" and return $module;
- }
- croak("YAML::Any couldn't find any of these YAML implementations: @order");
-}
-
-sub croak {
- require Carp;
- Carp::Croak(@_);
-}
-
-1;
-
-=head1 NAME
-
-YAML::Any - Pick a YAML implementation and use it.
-
-=head1 SYNOPSIS
-
- use YAML::Any;
- $YAML::Indent = 3;
- my $yaml = Dump(@objects);
-
-=head1 DESCRIPTION
-
-There are several YAML implementations that support the Dump/Load API.
-This module selects the best one available and uses it.
-
-=head1 ORDER
-
-Currently, YAML::Any will choose the first one of these YAML
-implementations that is installed on your system:
-
- YAML::XS
- YAML::Syck
- YAML::Old
- YAML
- YAML::Tiny
-
-=head1 OPTIONS
-
-If you specify an option like:
-
- $YAML::Indent = 4;
-
-And YAML::Any is using YAML::XS, it will use the proper variable:
-$YAML::XS::Indent.
-
-=head1 SUBROUTINES
-
-Like all the YAML modules that YAML::Any uses, the following subroutines
-are exported by default:
-
- Dump
- Load
-
-and the following subroutines are exportable by request:
-
- DumpFile
- LoadFile
-
-=head1 METHODS
-
-YAML::Any provides the following class methods.
-
-=over
-
-=item YAML::Any->order;
-
-This method returns a list of the current possible implementations that
-YAML::Any will search for.
-
-=item YAML::Any->implementation;
-
-This method returns the implementation the YAML::Any will use. This
-result is obtained by finding the first member of YAML::Any->order that
-is either already loaded in C<%INC> or that can be loaded using
-C<require>. If no implementation is found, an error will be thrown.
-
-=back
-
-=head1 AUTHOR
-
-Ingy döt Net <ingy at cpan.org>
-
-=head1 COPYRIGHT
-
-Copyright (c) 2008. Ingy döt Net.
-
-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/3.8.8/sources/cpan-YAML/vendor/lib/YAML/Dumper/Base.pm b/3.8.8/sources/cpan-YAML/vendor/lib/YAML/Dumper/Base.pm
deleted file mode 100644
index 70b1e58..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/lib/YAML/Dumper/Base.pm
+++ /dev/null
@@ -1,142 +0,0 @@
-package YAML::Dumper::Base;
-
-use strict;
-use warnings;
-use YAML::Base;
-use YAML::Node;
-
-our $VERSION = '0.71';
-our @ISA = 'YAML::Base';
-
-# YAML Dumping options
-field spec_version => '1.0';
-field indent_width => 2;
-field use_header => 1;
-field use_version => 0;
-field sort_keys => 1;
-field anchor_prefix => '';
-field dump_code => 0;
-field use_block => 0;
-field use_fold => 0;
-field compress_series => 1;
-field inline_series => 0;
-field use_aliases => 1;
-field purity => 0;
-field stringify => 0;
-
-# Properties
-field stream => '';
-field document => 0;
-field transferred => {};
-field id_refcnt => {};
-field id_anchor => {};
-field anchor => 1;
-field level => 0;
-field offset => [];
-field headless => 0;
-field blessed_map => {};
-
-# Global Options are an idea taken from Data::Dumper. Really they are just
-# sugar on top of real OO properties. They make the simple Dump/Load API
-# easy to configure.
-sub set_global_options {
- my $self = shift;
- $self->spec_version($YAML::SpecVersion)
- if defined $YAML::SpecVersion;
- $self->indent_width($YAML::Indent)
- if defined $YAML::Indent;
- $self->use_header($YAML::UseHeader)
- if defined $YAML::UseHeader;
- $self->use_version($YAML::UseVersion)
- if defined $YAML::UseVersion;
- $self->sort_keys($YAML::SortKeys)
- if defined $YAML::SortKeys;
- $self->anchor_prefix($YAML::AnchorPrefix)
- if defined $YAML::AnchorPrefix;
- $self->dump_code($YAML::DumpCode || $YAML::UseCode)
- if defined $YAML::DumpCode or defined $YAML::UseCode;
- $self->use_block($YAML::UseBlock)
- if defined $YAML::UseBlock;
- $self->use_fold($YAML::UseFold)
- if defined $YAML::UseFold;
- $self->compress_series($YAML::CompressSeries)
- if defined $YAML::CompressSeries;
- $self->inline_series($YAML::InlineSeries)
- if defined $YAML::InlineSeries;
- $self->use_aliases($YAML::UseAliases)
- if defined $YAML::UseAliases;
- $self->purity($YAML::Purity)
- if defined $YAML::Purity;
- $self->stringify($YAML::Stringify)
- if defined $YAML::Stringify;
-}
-
-sub dump {
- my $self = shift;
- $self->die('dump() not implemented in this class.');
-}
-
-sub blessed {
- my $self = shift;
- my ($ref) = @_;
- $ref = \$_[0] unless ref $ref;
- my (undef, undef, $node_id) = YAML::Base->node_info($ref);
- $self->{blessed_map}->{$node_id};
-}
-
-sub bless {
- my $self = shift;
- my ($ref, $blessing) = @_;
- my $ynode;
- $ref = \$_[0] unless ref $ref;
- my (undef, undef, $node_id) = YAML::Base->node_info($ref);
- if (not defined $blessing) {
- $ynode = YAML::Node->new($ref);
- }
- elsif (ref $blessing) {
- $self->die() unless ynode($blessing);
- $ynode = $blessing;
- }
- else {
- no strict 'refs';
- my $transfer = $blessing . "::yaml_dump";
- $self->die() unless defined &{$transfer};
- $ynode = &{$transfer}($ref);
- $self->die() unless ynode($ynode);
- }
- $self->{blessed_map}->{$node_id} = $ynode;
- my $object = ynode($ynode) or $self->die();
- return $object;
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-YAML::Dumper::Base - Base class for YAML Dumper classes
-
-=head1 SYNOPSIS
-
- package YAML::Dumper::Something;
- use YAML::Dumper::Base -base;
-
-=head1 DESCRIPTION
-
-YAML::Dumper::Base is a base class for creating YAML dumper classes.
-
-=head1 AUTHOR
-
-Ingy döt Net <ingy at cpan.org>
-
-=head1 COPYRIGHT
-
-Copyright (c) 2006. Ingy döt Net. All rights reserved.
-
-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/3.8.8/sources/cpan-YAML/vendor/lib/YAML/Error.pm b/3.8.8/sources/cpan-YAML/vendor/lib/YAML/Error.pm
deleted file mode 100644
index eb2a4be..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/lib/YAML/Error.pm
+++ /dev/null
@@ -1,226 +0,0 @@
-package YAML::Error;
-
-use strict;
-use warnings;
-use YAML::Base;
-
-our $VERSION = '0.71';
-our @ISA = 'YAML::Base';
-
-field 'code';
-field 'type' => 'Error';
-field 'line';
-field 'document';
-field 'arguments' => [];
-
-my ($error_messages, %line_adjust);
-
-sub format_message {
- my $self = shift;
- my $output = 'YAML ' . $self->type . ': ';
- my $code = $self->code;
- if ($error_messages->{$code}) {
- $code = sprintf($error_messages->{$code}, @{$self->arguments});
- }
- $output .= $code . "\n";
-
- $output .= ' Code: ' . $self->code . "\n"
- if defined $self->code;
- $output .= ' Line: ' . $self->line . "\n"
- if defined $self->line;
- $output .= ' Document: ' . $self->document . "\n"
- if defined $self->document;
- return $output;
-}
-
-sub error_messages {
- $error_messages;
-}
-
-%$error_messages = map {s/^\s+//;$_} split "\n", <<'...';
-YAML_PARSE_ERR_BAD_CHARS
- Invalid characters in stream. This parser only supports printable ASCII
-YAML_PARSE_ERR_NO_FINAL_NEWLINE
- Stream does not end with newline character
-YAML_PARSE_ERR_BAD_MAJOR_VERSION
- Can't parse a %s document with a 1.0 parser
-YAML_PARSE_WARN_BAD_MINOR_VERSION
- Parsing a %s document with a 1.0 parser
-YAML_PARSE_WARN_MULTIPLE_DIRECTIVES
- '%s directive used more than once'
-YAML_PARSE_ERR_TEXT_AFTER_INDICATOR
- No text allowed after indicator
-YAML_PARSE_ERR_NO_ANCHOR
- No anchor for alias '*%s'
-YAML_PARSE_ERR_NO_SEPARATOR
- Expected separator '---'
-YAML_PARSE_ERR_SINGLE_LINE
- Couldn't parse single line value
-YAML_PARSE_ERR_BAD_ANCHOR
- Invalid anchor
-YAML_DUMP_ERR_INVALID_INDENT
- Invalid Indent width specified: '%s'
-YAML_LOAD_USAGE
- usage: YAML::Load($yaml_stream_scalar)
-YAML_PARSE_ERR_BAD_NODE
- Can't parse node
-YAML_PARSE_ERR_BAD_EXPLICIT
- Unsupported explicit transfer: '%s'
-YAML_DUMP_USAGE_DUMPCODE
- Invalid value for DumpCode: '%s'
-YAML_LOAD_ERR_FILE_INPUT
- Couldn't open %s for input:\n%s
-YAML_DUMP_ERR_FILE_CONCATENATE
- Can't concatenate to YAML file %s
-YAML_DUMP_ERR_FILE_OUTPUT
- Couldn't open %s for output:\n%s
-YAML_DUMP_ERR_NO_HEADER
- With UseHeader=0, the node must be a plain hash or array
-YAML_DUMP_WARN_BAD_NODE_TYPE
- Can't perform serialization for node type: '%s'
-YAML_EMIT_WARN_KEYS
- Encountered a problem with 'keys':\n%s
-YAML_DUMP_WARN_DEPARSE_FAILED
- Deparse failed for CODE reference
-YAML_DUMP_WARN_CODE_DUMMY
- Emitting dummy subroutine for CODE reference
-YAML_PARSE_ERR_MANY_EXPLICIT
- More than one explicit transfer
-YAML_PARSE_ERR_MANY_IMPLICIT
- More than one implicit request
-YAML_PARSE_ERR_MANY_ANCHOR
- More than one anchor
-YAML_PARSE_ERR_ANCHOR_ALIAS
- Can't define both an anchor and an alias
-YAML_PARSE_ERR_BAD_ALIAS
- Invalid alias
-YAML_PARSE_ERR_MANY_ALIAS
- More than one alias
-YAML_LOAD_ERR_NO_CONVERT
- Can't convert implicit '%s' node to explicit '%s' node
-YAML_LOAD_ERR_NO_DEFAULT_VALUE
- No default value for '%s' explicit transfer
-YAML_LOAD_ERR_NON_EMPTY_STRING
- Only the empty string can be converted to a '%s'
-YAML_LOAD_ERR_BAD_MAP_TO_SEQ
- Can't transfer map as sequence. Non numeric key '%s' encountered.
-YAML_DUMP_ERR_BAD_GLOB
- '%s' is an invalid value for Perl glob
-YAML_DUMP_ERR_BAD_REGEXP
- '%s' is an invalid value for Perl Regexp
-YAML_LOAD_ERR_BAD_MAP_ELEMENT
- Invalid element in map
-YAML_LOAD_WARN_DUPLICATE_KEY
- Duplicate map key found. Ignoring.
-YAML_LOAD_ERR_BAD_SEQ_ELEMENT
- Invalid element in sequence
-YAML_PARSE_ERR_INLINE_MAP
- Can't parse inline map
-YAML_PARSE_ERR_INLINE_SEQUENCE
- Can't parse inline sequence
-YAML_PARSE_ERR_BAD_DOUBLE
- Can't parse double quoted string
-YAML_PARSE_ERR_BAD_SINGLE
- Can't parse single quoted string
-YAML_PARSE_ERR_BAD_INLINE_IMPLICIT
- Can't parse inline implicit value '%s'
-YAML_PARSE_ERR_BAD_IMPLICIT
- Unrecognized implicit value '%s'
-YAML_PARSE_ERR_INDENTATION
- Error. Invalid indentation level
-YAML_PARSE_ERR_INCONSISTENT_INDENTATION
- Inconsistent indentation level
-YAML_LOAD_WARN_UNRESOLVED_ALIAS
- Can't resolve alias *%s
-YAML_LOAD_WARN_NO_REGEXP_IN_REGEXP
- No 'REGEXP' element for Perl regexp
-YAML_LOAD_WARN_BAD_REGEXP_ELEM
- Unknown element '%s' in Perl regexp
-YAML_LOAD_WARN_GLOB_NAME
- No 'NAME' element for Perl glob
-YAML_LOAD_WARN_PARSE_CODE
- Couldn't parse Perl code scalar: %s
-YAML_LOAD_WARN_CODE_DEPARSE
- Won't parse Perl code unless $YAML::LoadCode is set
-YAML_EMIT_ERR_BAD_LEVEL
- Internal Error: Bad level detected
-YAML_PARSE_WARN_AMBIGUOUS_TAB
- Amibiguous tab converted to spaces
-YAML_LOAD_WARN_BAD_GLOB_ELEM
- Unknown element '%s' in Perl glob
-YAML_PARSE_ERR_ZERO_INDENT
- Can't use zero as an indentation width
-YAML_LOAD_WARN_GLOB_IO
- Can't load an IO filehandle. Yet!!!
-...
-
-%line_adjust = map {($_, 1)}
- qw(YAML_PARSE_ERR_BAD_MAJOR_VERSION
- YAML_PARSE_WARN_BAD_MINOR_VERSION
- YAML_PARSE_ERR_TEXT_AFTER_INDICATOR
- YAML_PARSE_ERR_NO_ANCHOR
- YAML_PARSE_ERR_MANY_EXPLICIT
- YAML_PARSE_ERR_MANY_IMPLICIT
- YAML_PARSE_ERR_MANY_ANCHOR
- YAML_PARSE_ERR_ANCHOR_ALIAS
- YAML_PARSE_ERR_BAD_ALIAS
- YAML_PARSE_ERR_MANY_ALIAS
- YAML_LOAD_ERR_NO_CONVERT
- YAML_LOAD_ERR_NO_DEFAULT_VALUE
- YAML_LOAD_ERR_NON_EMPTY_STRING
- YAML_LOAD_ERR_BAD_MAP_TO_SEQ
- YAML_LOAD_ERR_BAD_STR_TO_INT
- YAML_LOAD_ERR_BAD_STR_TO_DATE
- YAML_LOAD_ERR_BAD_STR_TO_TIME
- YAML_LOAD_WARN_DUPLICATE_KEY
- YAML_PARSE_ERR_INLINE_MAP
- YAML_PARSE_ERR_INLINE_SEQUENCE
- YAML_PARSE_ERR_BAD_DOUBLE
- YAML_PARSE_ERR_BAD_SINGLE
- YAML_PARSE_ERR_BAD_INLINE_IMPLICIT
- YAML_PARSE_ERR_BAD_IMPLICIT
- YAML_LOAD_WARN_NO_REGEXP_IN_REGEXP
- YAML_LOAD_WARN_BAD_REGEXP_ELEM
- YAML_LOAD_WARN_REGEXP_CREATE
- YAML_LOAD_WARN_GLOB_NAME
- YAML_LOAD_WARN_PARSE_CODE
- YAML_LOAD_WARN_CODE_DEPARSE
- YAML_LOAD_WARN_BAD_GLOB_ELEM
- YAML_PARSE_ERR_ZERO_INDENT
- );
-
-package YAML::Warning;
-
-our @ISA = 'YAML::Error';
-
-1;
-
-__END__
-
-=head1 NAME
-
-YAML::Error - Error formatting class for YAML modules
-
-=head1 SYNOPSIS
-
- $self->die('YAML_PARSE_ERR_NO_ANCHOR', $alias);
- $self->warn('YAML_LOAD_WARN_DUPLICATE_KEY');
-
-=head1 DESCRIPTION
-
-This module provides a C<die> and a C<warn> facility.
-
-=head1 AUTHOR
-
-Ingy döt Net <ingy at cpan.org>
-
-=head1 COPYRIGHT
-
-Copyright (c) 2006. Ingy döt Net. All rights reserved.
-
-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/3.8.8/sources/cpan-YAML/vendor/lib/YAML/Loader.pm b/3.8.8/sources/cpan-YAML/vendor/lib/YAML/Loader.pm
deleted file mode 100644
index 258ddd5..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/lib/YAML/Loader.pm
+++ /dev/null
@@ -1,790 +0,0 @@
-package YAML::Loader;
-
-use strict;
-use warnings;
-use YAML::Base;
-use YAML::Loader::Base;
-use YAML::Types;
-
-our $VERSION = '0.71';
-our @ISA = 'YAML::Loader::Base';
-
-# Context constants
-use constant LEAF => 1;
-use constant COLLECTION => 2;
-use constant VALUE => "\x07YAML\x07VALUE\x07";
-use constant COMMENT => "\x07YAML\x07COMMENT\x07";
-
-# Common YAML character sets
-my $ESCAPE_CHAR = '[\\x00-\\x08\\x0b-\\x0d\\x0e-\\x1f]';
-my $FOLD_CHAR = '>';
-my $LIT_CHAR = '|';
-my $LIT_CHAR_RX = "\\$LIT_CHAR";
-
-sub load {
- my $self = shift;
- $self->stream($_[0] || '');
- return $self->_parse();
-}
-
-# Top level function for parsing. Parse each document in order and
-# handle processing for YAML headers.
-sub _parse {
- my $self = shift;
- my (%directives, $preface);
- $self->{stream} =~ s|\015\012|\012|g;
- $self->{stream} =~ s|\015|\012|g;
- $self->line(0);
- $self->die('YAML_PARSE_ERR_BAD_CHARS')
- if $self->stream =~ /$ESCAPE_CHAR/;
- $self->die('YAML_PARSE_ERR_NO_FINAL_NEWLINE')
- if length($self->stream) and
- $self->{stream} !~ s/(.)\n\Z/$1/s;
- $self->lines([split /\x0a/, $self->stream, -1]);
- $self->line(1);
- # Throw away any comments or blanks before the header (or start of
- # content for headerless streams)
- $self->_parse_throwaway_comments();
- $self->document(0);
- $self->documents([]);
- # Add an "assumed" header if there is no header and the stream is
- # not empty (after initial throwaways).
- if (not $self->eos) {
- if ($self->lines->[0] !~ /^---(\s|$)/) {
- unshift @{$self->lines}, '---';
- $self->{line}--;
- }
- }
-
- # Main Loop. Parse out all the top level nodes and return them.
- while (not $self->eos) {
- $self->anchor2node({});
- $self->{document}++;
- $self->done(0);
- $self->level(0);
- $self->offset->[0] = -1;
-
- if ($self->lines->[0] =~ /^---\s*(.*)$/) {
- my @words = split /\s+/, $1;
- %directives = ();
- while (@words && $words[0] =~ /^#(\w+):(\S.*)$/) {
- my ($key, $value) = ($1, $2);
- shift(@words);
- if (defined $directives{$key}) {
- $self->warn('YAML_PARSE_WARN_MULTIPLE_DIRECTIVES',
- $key, $self->document);
- next;
- }
- $directives{$key} = $value;
- }
- $self->preface(join ' ', @words);
- }
- else {
- $self->die('YAML_PARSE_ERR_NO_SEPARATOR');
- }
-
- if (not $self->done) {
- $self->_parse_next_line(COLLECTION);
- }
- if ($self->done) {
- $self->{indent} = -1;
- $self->content('');
- }
-
- $directives{YAML} ||= '1.0';
- $directives{TAB} ||= 'NONE';
- ($self->{major_version}, $self->{minor_version}) =
- split /\./, $directives{YAML}, 2;
- $self->die('YAML_PARSE_ERR_BAD_MAJOR_VERSION', $directives{YAML})
- if $self->major_version ne '1';
- $self->warn('YAML_PARSE_WARN_BAD_MINOR_VERSION', $directives{YAML})
- if $self->minor_version ne '0';
- $self->die('Unrecognized TAB policy')
- unless $directives{TAB} =~ /^(NONE|\d+)(:HARD)?$/;
-
- push @{$self->documents}, $self->_parse_node();
- }
- return wantarray ? @{$self->documents} : $self->documents->[-1];
-}
-
-# This function is the dispatcher for parsing each node. Every node
-# recurses back through here. (Inlines are an exception as they have
-# their own sub-parser.)
-sub _parse_node {
- my $self = shift;
- my $preface = $self->preface;
- $self->preface('');
- my ($node, $type, $indicator, $escape, $chomp) = ('') x 5;
- my ($anchor, $alias, $explicit, $implicit, $class) = ('') x 5;
- ($anchor, $alias, $explicit, $implicit, $preface) =
- $self->_parse_qualifiers($preface);
- if ($anchor) {
- $self->anchor2node->{$anchor} = CORE::bless [], 'YAML-anchor2node';
- }
- $self->inline('');
- while (length $preface) {
- my $line = $self->line - 1;
- if ($preface =~ s/^($FOLD_CHAR|$LIT_CHAR_RX)(-|\+)?\d*\s*//) {
- $indicator = $1;
- $chomp = $2 if defined($2);
- }
- else {
- $self->die('YAML_PARSE_ERR_TEXT_AFTER_INDICATOR') if $indicator;
- $self->inline($preface);
- $preface = '';
- }
- }
- if ($alias) {
- $self->die('YAML_PARSE_ERR_NO_ANCHOR', $alias)
- unless defined $self->anchor2node->{$alias};
- if (ref($self->anchor2node->{$alias}) ne 'YAML-anchor2node') {
- $node = $self->anchor2node->{$alias};
- }
- else {
- $node = do {my $sv = "*$alias"};
- push @{$self->anchor2node->{$alias}}, [\$node, $self->line];
- }
- }
- elsif (length $self->inline) {
- $node = $self->_parse_inline(1, $implicit, $explicit);
- if (length $self->inline) {
- $self->die('YAML_PARSE_ERR_SINGLE_LINE');
- }
- }
- elsif ($indicator eq $LIT_CHAR) {
- $self->{level}++;
- $node = $self->_parse_block($chomp);
- $node = $self->_parse_implicit($node) if $implicit;
- $self->{level}--;
- }
- elsif ($indicator eq $FOLD_CHAR) {
- $self->{level}++;
- $node = $self->_parse_unfold($chomp);
- $node = $self->_parse_implicit($node) if $implicit;
- $self->{level}--;
- }
- else {
- $self->{level}++;
- $self->offset->[$self->level] ||= 0;
- if ($self->indent == $self->offset->[$self->level]) {
- if ($self->content =~ /^-( |$)/) {
- $node = $self->_parse_seq($anchor);
- }
- elsif ($self->content =~ /(^\?|\:( |$))/) {
- $node = $self->_parse_mapping($anchor);
- }
- elsif ($preface =~ /^\s*$/) {
- $node = $self->_parse_implicit('');
- }
- else {
- $self->die('YAML_PARSE_ERR_BAD_NODE');
- }
- }
- else {
- $node = undef;
- }
- $self->{level}--;
- }
- $#{$self->offset} = $self->level;
-
- if ($explicit) {
- if ($class) {
- if (not ref $node) {
- my $copy = $node;
- undef $node;
- $node = \$copy;
- }
- CORE::bless $node, $class;
- }
- else {
- $node = $self->_parse_explicit($node, $explicit);
- }
- }
- if ($anchor) {
- if (ref($self->anchor2node->{$anchor}) eq 'YAML-anchor2node') {
- # XXX Can't remember what this code actually does
- for my $ref (@{$self->anchor2node->{$anchor}}) {
- ${$ref->[0]} = $node;
- $self->warn('YAML_LOAD_WARN_UNRESOLVED_ALIAS',
- $anchor, $ref->[1]);
- }
- }
- $self->anchor2node->{$anchor} = $node;
- }
- return $node;
-}
-
-# Preprocess the qualifiers that may be attached to any node.
-sub _parse_qualifiers {
- my $self = shift;
- my ($preface) = @_;
- my ($anchor, $alias, $explicit, $implicit, $token) = ('') x 5;
- $self->inline('');
- while ($preface =~ /^[&*!]/) {
- my $line = $self->line - 1;
- if ($preface =~ s/^\!(\S+)\s*//) {
- $self->die('YAML_PARSE_ERR_MANY_EXPLICIT') if $explicit;
- $explicit = $1;
- }
- elsif ($preface =~ s/^\!\s*//) {
- $self->die('YAML_PARSE_ERR_MANY_IMPLICIT') if $implicit;
- $implicit = 1;
- }
- elsif ($preface =~ s/^\&([^ ,:]+)\s*//) {
- $token = $1;
- $self->die('YAML_PARSE_ERR_BAD_ANCHOR')
- unless $token =~ /^[a-zA-Z0-9]+$/;
- $self->die('YAML_PARSE_ERR_MANY_ANCHOR') if $anchor;
- $self->die('YAML_PARSE_ERR_ANCHOR_ALIAS') if $alias;
- $anchor = $token;
- }
- elsif ($preface =~ s/^\*([^ ,:]+)\s*//) {
- $token = $1;
- $self->die('YAML_PARSE_ERR_BAD_ALIAS')
- unless $token =~ /^[a-zA-Z0-9]+$/;
- $self->die('YAML_PARSE_ERR_MANY_ALIAS') if $alias;
- $self->die('YAML_PARSE_ERR_ANCHOR_ALIAS') if $anchor;
- $alias = $token;
- }
- }
- return ($anchor, $alias, $explicit, $implicit, $preface);
-}
-
-# Morph a node to it's explicit type
-sub _parse_explicit {
- my $self = shift;
- my ($node, $explicit) = @_;
- my ($type, $class);
- if ($explicit =~ /^\!?perl\/(hash|array|ref|scalar)(?:\:(\w(\w|\:\:)*)?)?$/) {
- ($type, $class) = (($1 || ''), ($2 || ''));
-
- # FIXME # die unless uc($type) eq ref($node) ?
-
- if ( $type eq "ref" ) {
- $self->die('YAML_LOAD_ERR_NO_DEFAULT_VALUE', 'XXX', $explicit)
- unless exists $node->{VALUE()} and scalar(keys %$node) == 1;
-
- my $value = $node->{VALUE()};
- $node = \$value;
- }
-
- if ( $type eq "scalar" and length($class) and !ref($node) ) {
- my $value = $node;
- $node = \$value;
- }
-
- if ( length($class) ) {
- CORE::bless($node, $class);
- }
-
- return $node;
- }
- if ($explicit =~ m{^!?perl/(glob|regexp|code)(?:\:(\w(\w|\:\:)*)?)?$}) {
- ($type, $class) = (($1 || ''), ($2 || ''));
- my $type_class = "YAML::Type::$type";
- no strict 'refs';
- if ($type_class->can('yaml_load')) {
- return $type_class->yaml_load($node, $class, $self);
- }
- else {
- $self->die('YAML_LOAD_ERR_NO_CONVERT', 'XXX', $explicit);
- }
- }
- # This !perl/@Foo and !perl/$Foo are deprecated but still parsed
- elsif ($YAML::TagClass->{$explicit} ||
- $explicit =~ m{^perl/(\@|\$)?([a-zA-Z](\w|::)+)$}
- ) {
- $class = $YAML::TagClass->{$explicit} || $2;
- if ($class->can('yaml_load')) {
- require YAML::Node;
- return $class->yaml_load(YAML::Node->new($node, $explicit));
- }
- else {
- if (ref $node) {
- return CORE::bless $node, $class;
- }
- else {
- return CORE::bless \$node, $class;
- }
- }
- }
- elsif (ref $node) {
- require YAML::Node;
- return YAML::Node->new($node, $explicit);
- }
- else {
- # XXX This is likely wrong. Failing test:
- # --- !unknown 'scalar value'
- return $node;
- }
-}
-
-# Parse a YAML mapping into a Perl hash
-sub _parse_mapping {
- my $self = shift;
- my ($anchor) = @_;
- my $mapping = {};
- $self->anchor2node->{$anchor} = $mapping;
- my $key;
- while (not $self->done and $self->indent == $self->offset->[$self->level]) {
- # If structured key:
- if ($self->{content} =~ s/^\?\s*//) {
- $self->preface($self->content);
- $self->_parse_next_line(COLLECTION);
- $key = $self->_parse_node();
- $key = "$key";
- }
- # If "default" key (equals sign)
- elsif ($self->{content} =~ s/^\=\s*//) {
- $key = VALUE;
- }
- # If "comment" key (slash slash)
- elsif ($self->{content} =~ s/^\=\s*//) {
- $key = COMMENT;
- }
- # Regular scalar key:
- else {
- $self->inline($self->content);
- $key = $self->_parse_inline();
- $key = "$key";
- $self->content($self->inline);
- $self->inline('');
- }
-
- unless ($self->{content} =~ s/^:\s*//) {
- $self->die('YAML_LOAD_ERR_BAD_MAP_ELEMENT');
- }
- $self->preface($self->content);
- my $line = $self->line;
- $self->_parse_next_line(COLLECTION);
- my $value = $self->_parse_node();
- if (exists $mapping->{$key}) {
- $self->warn('YAML_LOAD_WARN_DUPLICATE_KEY');
- }
- else {
- $mapping->{$key} = $value;
- }
- }
- return $mapping;
-}
-
-# Parse a YAML sequence into a Perl array
-sub _parse_seq {
- my $self = shift;
- my ($anchor) = @_;
- my $seq = [];
- $self->anchor2node->{$anchor} = $seq;
- while (not $self->done and $self->indent == $self->offset->[$self->level]) {
- if ($self->content =~ /^-(?: (.*))?$/) {
- $self->preface(defined($1) ? $1 : '');
- }
- else {
- $self->die('YAML_LOAD_ERR_BAD_SEQ_ELEMENT');
- }
- if ($self->preface =~ /^(\s*)(\w.*\:(?: |$).*)$/) {
- $self->indent($self->offset->[$self->level] + 2 + length($1));
- $self->content($2);
- $self->level($self->level + 1);
- $self->offset->[$self->level] = $self->indent;
- $self->preface('');
- push @$seq, $self->_parse_mapping('');
- $self->{level}--;
- $#{$self->offset} = $self->level;
- }
- else {
- $self->_parse_next_line(COLLECTION);
- push @$seq, $self->_parse_node();
- }
- }
- return $seq;
-}
-
-# Parse an inline value. Since YAML supports inline collections, this is
-# the top level of a sub parsing.
-sub _parse_inline {
- my $self = shift;
- my ($top, $top_implicit, $top_explicit) = (@_, '', '', '');
- $self->{inline} =~ s/^\s*(.*)\s*$/$1/; # OUCH - mugwump
- my ($node, $anchor, $alias, $explicit, $implicit) = ('') x 5;
- ($anchor, $alias, $explicit, $implicit, $self->{inline}) =
- $self->_parse_qualifiers($self->inline);
- if ($anchor) {
- $self->anchor2node->{$anchor} = CORE::bless [], 'YAML-anchor2node';
- }
- $implicit ||= $top_implicit;
- $explicit ||= $top_explicit;
- ($top_implicit, $top_explicit) = ('', '');
- if ($alias) {
- $self->die('YAML_PARSE_ERR_NO_ANCHOR', $alias)
- unless defined $self->anchor2node->{$alias};
- if (ref($self->anchor2node->{$alias}) ne 'YAML-anchor2node') {
- $node = $self->anchor2node->{$alias};
- }
- else {
- $node = do {my $sv = "*$alias"};
- push @{$self->anchor2node->{$alias}}, [\$node, $self->line];
- }
- }
- elsif ($self->inline =~ /^\{/) {
- $node = $self->_parse_inline_mapping($anchor);
- }
- elsif ($self->inline =~ /^\[/) {
- $node = $self->_parse_inline_seq($anchor);
- }
- elsif ($self->inline =~ /^"/) {
- $node = $self->_parse_inline_double_quoted();
- $node = $self->_unescape($node);
- $node = $self->_parse_implicit($node) if $implicit;
- }
- elsif ($self->inline =~ /^'/) {
- $node = $self->_parse_inline_single_quoted();
- $node = $self->_parse_implicit($node) if $implicit;
- }
- else {
- if ($top) {
- $node = $self->inline;
- $self->inline('');
- }
- else {
- $node = $self->_parse_inline_simple();
- }
- $node = $self->_parse_implicit($node) unless $explicit;
- }
- if ($explicit) {
- $node = $self->_parse_explicit($node, $explicit);
- }
- if ($anchor) {
- if (ref($self->anchor2node->{$anchor}) eq 'YAML-anchor2node') {
- for my $ref (@{$self->anchor2node->{$anchor}}) {
- ${$ref->[0]} = $node;
- $self->warn('YAML_LOAD_WARN_UNRESOLVED_ALIAS',
- $anchor, $ref->[1]);
- }
- }
- $self->anchor2node->{$anchor} = $node;
- }
- return $node;
-}
-
-# Parse the inline YAML mapping into a Perl hash
-sub _parse_inline_mapping {
- my $self = shift;
- my ($anchor) = @_;
- my $node = {};
- $self->anchor2node->{$anchor} = $node;
-
- $self->die('YAML_PARSE_ERR_INLINE_MAP')
- unless $self->{inline} =~ s/^\{\s*//;
- while (not $self->{inline} =~ s/^\s*\}//) {
- my $key = $self->_parse_inline();
- $self->die('YAML_PARSE_ERR_INLINE_MAP')
- unless $self->{inline} =~ s/^\: \s*//;
- my $value = $self->_parse_inline();
- if (exists $node->{$key}) {
- $self->warn('YAML_LOAD_WARN_DUPLICATE_KEY');
- }
- else {
- $node->{$key} = $value;
- }
- next if $self->inline =~ /^\s*\}/;
- $self->die('YAML_PARSE_ERR_INLINE_MAP')
- unless $self->{inline} =~ s/^\,\s*//;
- }
- return $node;
-}
-
-# Parse the inline YAML sequence into a Perl array
-sub _parse_inline_seq {
- my $self = shift;
- my ($anchor) = @_;
- my $node = [];
- $self->anchor2node->{$anchor} = $node;
-
- $self->die('YAML_PARSE_ERR_INLINE_SEQUENCE')
- unless $self->{inline} =~ s/^\[\s*//;
- while (not $self->{inline} =~ s/^\s*\]//) {
- my $value = $self->_parse_inline();
- push @$node, $value;
- next if $self->inline =~ /^\s*\]/;
- $self->die('YAML_PARSE_ERR_INLINE_SEQUENCE')
- unless $self->{inline} =~ s/^\,\s*//;
- }
- return $node;
-}
-
-# Parse the inline double quoted string.
-sub _parse_inline_double_quoted {
- my $self = shift;
- my $node;
- if ($self->inline =~ /^"((?:\\"|[^"])*)"\s*(.*)$/) {
- $node = $1;
- $self->inline($2);
- $node =~ s/\\"/"/g;
- }
- else {
- $self->die('YAML_PARSE_ERR_BAD_DOUBLE');
- }
- return $node;
-}
-
-
-# Parse the inline single quoted string.
-sub _parse_inline_single_quoted {
- my $self = shift;
- my $node;
- if ($self->inline =~ /^'((?:''|[^'])*)'\s*(.*)$/) {
- $node = $1;
- $self->inline($2);
- $node =~ s/''/'/g;
- }
- else {
- $self->die('YAML_PARSE_ERR_BAD_SINGLE');
- }
- return $node;
-}
-
-# Parse the inline unquoted string and do implicit typing.
-sub _parse_inline_simple {
- my $self = shift;
- my $value;
- if ($self->inline =~ /^(|[^!@#%^&*].*?)(?=[\[\]\{\},]|, |: |- |:\s*$|$)/) {
- $value = $1;
- substr($self->{inline}, 0, length($1)) = '';
- }
- else {
- $self->die('YAML_PARSE_ERR_BAD_INLINE_IMPLICIT', $value);
- }
- return $value;
-}
-
-sub _parse_implicit {
- my $self = shift;
- my ($value) = @_;
- $value =~ s/\s*$//;
- return $value if $value eq '';
- return undef if $value =~ /^~$/;
- return $value
- unless $value =~ /^[\@\`\^]/ or
- $value =~ /^[\-\?]\s/;
- $self->die('YAML_PARSE_ERR_BAD_IMPLICIT', $value);
-}
-
-# Unfold a YAML multiline scalar into a single string.
-sub _parse_unfold {
- my $self = shift;
- my ($chomp) = @_;
- my $node = '';
- my $space = 0;
- while (not $self->done and $self->indent == $self->offset->[$self->level]) {
- $node .= $self->content. "\n";
- $self->_parse_next_line(LEAF);
- }
- $node =~ s/^(\S.*)\n(?=\S)/$1 /gm;
- $node =~ s/^(\S.*)\n(\n+\S)/$1$2/gm;
- $node =~ s/\n*\Z// unless $chomp eq '+';
- $node .= "\n" unless $chomp;
- return $node;
-}
-
-# Parse a YAML block style scalar. This is like a Perl here-document.
-sub _parse_block {
- my $self = shift;
- my ($chomp) = @_;
- my $node = '';
- while (not $self->done and $self->indent == $self->offset->[$self->level]) {
- $node .= $self->content . "\n";
- $self->_parse_next_line(LEAF);
- }
- return $node if '+' eq $chomp;
- $node =~ s/\n*\Z/\n/;
- $node =~ s/\n\Z// if $chomp eq '-';
- return $node;
-}
-
-# Handle Perl style '#' comments. Comments must be at the same indentation
-# level as the collection line following them.
-sub _parse_throwaway_comments {
- my $self = shift;
- while (@{$self->lines} and
- $self->lines->[0] =~ m{^\s*(\#|$)}
- ) {
- shift @{$self->lines};
- $self->{line}++;
- }
- $self->eos($self->{done} = not @{$self->lines});
-}
-
-# This is the routine that controls what line is being parsed. It gets called
-# once for each line in the YAML stream.
-#
-# This routine must:
-# 1) Skip past the current line
-# 2) Determine the indentation offset for a new level
-# 3) Find the next _content_ line
-# A) Skip over any throwaways (Comments/blanks)
-# B) Set $self->indent, $self->content, $self->line
-# 4) Expand tabs appropriately
-sub _parse_next_line {
- my $self = shift;
- my ($type) = @_;
- my $level = $self->level;
- my $offset = $self->offset->[$level];
- $self->die('YAML_EMIT_ERR_BAD_LEVEL') unless defined $offset;
- shift @{$self->lines};
- $self->eos($self->{done} = not @{$self->lines});
- return if $self->eos;
- $self->{line}++;
-
- # Determine the offset for a new leaf node
- if ($self->preface =~
- qr/(?:^|\s)(?:$FOLD_CHAR|$LIT_CHAR_RX)(?:-|\+)?(\d*)\s*$/
- ) {
- $self->die('YAML_PARSE_ERR_ZERO_INDENT')
- if length($1) and $1 == 0;
- $type = LEAF;
- if (length($1)) {
- $self->offset->[$level + 1] = $offset + $1;
- }
- else {
- # First get rid of any comments.
- while (@{$self->lines} && ($self->lines->[0] =~ /^\s*#/)) {
- $self->lines->[0] =~ /^( *)/ or die;
- last unless length($1) <= $offset;
- shift @{$self->lines};
- $self->{line}++;
- }
- $self->eos($self->{done} = not @{$self->lines});
- return if $self->eos;
- if ($self->lines->[0] =~ /^( *)\S/ and length($1) > $offset) {
- $self->offset->[$level+1] = length($1);
- }
- else {
- $self->offset->[$level+1] = $offset + 1;
- }
- }
- $offset = $self->offset->[++$level];
- }
- # Determine the offset for a new collection level
- elsif ($type == COLLECTION and
- $self->preface =~ /^(\s*(\!\S*|\&\S+))*\s*$/) {
- $self->_parse_throwaway_comments();
- if ($self->eos) {
- $self->offset->[$level+1] = $offset + 1;
- return;
- }
- else {
- $self->lines->[0] =~ /^( *)\S/ or die;
- if (length($1) > $offset) {
- $self->offset->[$level+1] = length($1);
- }
- else {
- $self->offset->[$level+1] = $offset + 1;
- }
- }
- $offset = $self->offset->[++$level];
- }
-
- if ($type == LEAF) {
- while (@{$self->lines} and
- $self->lines->[0] =~ m{^( *)(\#)} and
- length($1) < $offset
- ) {
- shift @{$self->lines};
- $self->{line}++;
- }
- $self->eos($self->{done} = not @{$self->lines});
- }
- else {
- $self->_parse_throwaway_comments();
- }
- return if $self->eos;
-
- if ($self->lines->[0] =~ /^---(\s|$)/) {
- $self->done(1);
- return;
- }
- if ($type == LEAF and
- $self->lines->[0] =~ /^ {$offset}(.*)$/
- ) {
- $self->indent($offset);
- $self->content($1);
- }
- elsif ($self->lines->[0] =~ /^\s*$/) {
- $self->indent($offset);
- $self->content('');
- }
- else {
- $self->lines->[0] =~ /^( *)(\S.*)$/;
- while ($self->offset->[$level] > length($1)) {
- $level--;
- }
- $self->die('YAML_PARSE_ERR_INCONSISTENT_INDENTATION')
- if $self->offset->[$level] != length($1);
- $self->indent(length($1));
- $self->content($2);
- }
- $self->die('YAML_PARSE_ERR_INDENTATION')
- if $self->indent - $offset > 1;
-}
-
-#==============================================================================
-# Utility subroutines.
-#==============================================================================
-
-# Printable characters for escapes
-my %unescapes = (
- 0 => "\x00",
- a => "\x07",
- t => "\x09",
- n => "\x0a",
- 'v' => "\x0b", # Potential v-string error on 5.6.2 if not quoted
- f => "\x0c",
- r => "\x0d",
- e => "\x1b",
- '\\' => '\\',
- );
-
-# Transform all the backslash style escape characters to their literal meaning
-sub _unescape {
- my $self = shift;
- my ($node) = @_;
- $node =~ s/\\([never\\fart0]|x([0-9a-fA-F]{2}))/
- (length($1)>1)?pack("H2",$2):$unescapes{$1}/gex;
- return $node;
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-YAML::Loader - YAML class for loading Perl objects to YAML
-
-=head1 SYNOPSIS
-
- use YAML::Loader;
- my $loader = YAML::Loader->new;
- my $hash = $loader->load(<<'...');
- foo: bar
- ...
-
-=head1 DESCRIPTION
-
-YAML::Loader is the module that YAML.pm used to deserialize YAML to Perl
-objects. It is fully object oriented and usable on its own.
-
-=head1 AUTHOR
-
-Ingy döt Net <ingy at cpan.org>
-
-=head1 COPYRIGHT
-
-Copyright (c) 2006. Ingy döt Net. All rights reserved.
-
-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/3.8.8/sources/cpan-YAML/vendor/t/98_pod.t b/3.8.8/sources/cpan-YAML/vendor/t/98_pod.t
deleted file mode 100644
index a96eb6a..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/t/98_pod.t
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/perl
-
-# Test that the syntax of our POD documentation is valid
-
-use strict;
-BEGIN {
- $| = 1;
- $^W = 1;
-}
-
-my @MODULES = (
- 'Pod::Simple 3.07',
- 'Test::Pod 1.26',
-);
-
-# Don't run tests for installs
-use Test::More;
-unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
- plan( skip_all => "Author tests not required for installation" );
-}
-
-# Load the testing modules
-foreach my $MODULE ( @MODULES ) {
- eval "use $MODULE";
- if ( $@ ) {
- $ENV{RELEASE_TESTING}
- ? die( "Failed to load required release-testing module $MODULE" )
- : plan( skip_all => "$MODULE not available for testing" );
- }
-}
-
-all_pod_files_ok();
diff --git a/3.8.8/sources/cpan-YAML/vendor/t/TestYAML.pm b/3.8.8/sources/cpan-YAML/vendor/t/TestYAML.pm
deleted file mode 100644
index 981855e..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/t/TestYAML.pm
+++ /dev/null
@@ -1,6 +0,0 @@
-package t::TestYAML;
-use Test::YAML 0.51 -Base;
-
-$Test::YAML::YAML = 'YAML';
-
-$^W = 1;
diff --git a/3.8.8/sources/cpan-YAML/vendor/t/basic-tests.t b/3.8.8/sources/cpan-YAML/vendor/t/basic-tests.t
deleted file mode 100644
index c060021..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/t/basic-tests.t
+++ /dev/null
@@ -1,75 +0,0 @@
-use t::TestYAML tests => 4;
-
-filters {
- yaml => [yaml => 'dumper'],
- perl => [strict => eval => 'dumper'],
-};
-
-run_is yaml => 'perl';
-
-__END__
-=== A simple map
-+++ yaml
----
-one: foo
-two: bar
-three: baz
-+++ perl
-+{qw(one foo two bar three baz)}
-
-
-=== Common String Types
-+++ yaml
----
-one: simple string
-two: 42
-three: '1 Single Quoted String'
-four: "YAML's Double Quoted String"
-five: |
- A block
- with several
- lines.
-six: |-
- A "chomped" block
-seven: >
- A
- folded
- string
-+++ perl
-{
- one => "simple string",
- two => '42',
- three => "1 Single Quoted String",
- four => "YAML's Double Quoted String",
- five => "A block\n with several\n lines.\n",
- six => 'A "chomped" block',
- seven => "A folded\n string\n",
-}
-
-
-=== Multiple documents
-+++ yaml
----
-foo: bar
----
-bar: two
-+++ perl
-+{qw(foo bar)}, {qw(bar two)};
-
-
-=== Comments
-+++ yaml
-# Leading Comment
----
-# Preceding Comment
-foo: bar
-# Two
-# Comments
----
- # Indented comment
-bar: two
-bee: three
-# Intermediate comment
-bore: four
-+++ perl
-+{qw(foo bar)}, {qw(bar two bee three bore four)}
diff --git a/3.8.8/sources/cpan-YAML/vendor/t/bugs-emailed.t b/3.8.8/sources/cpan-YAML/vendor/t/bugs-emailed.t
deleted file mode 100644
index 31a711c..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/t/bugs-emailed.t
+++ /dev/null
@@ -1,184 +0,0 @@
-use t::TestYAML tests => 25;
-
-no_diff;
-run_yaml_tests;
-
-__DATA__
-
-=== Date: Tue, 03 Jan 2006 18:04:56
-+++ perl: { key1 => '>value1' }
-+++ yaml
----
-key1: '>value1'
-
-
-
-=== Date: Wed, 04 Jan 2006 10:23:18
-+++ perl: { key1 => '|value' }
-+++ yaml
----
-key1: '|value'
-
-
-
-=== Date: Thu, 3 Mar 2005 14:12:10
-+++ perl: { "foo,bar" => "baz"}
-+++ yaml
----
-'foo,bar': baz
-
-
-
-=== Date: Wed, 9 Mar 2005 09:16:19
-+++ perl: {'a,v' => 'c'}
-+++ yaml
----
-'a,v': c
-
-
-
-=== Date: Fri, 18 Mar 2005 15:08:57
-+++ perl: {'foo[bar', 'baz'}
-+++ yaml
----
-'foo[bar': baz
-
-
-
-=== Date: Sun, 20 Mar 2005 16:32:50
-+++ subject: Argument "E5" isn't numeric in multiplication (*)
-+++ function: load_passes
-+++ yaml
---- #YAML:1.0 !!perl/Blam::Game
-board:
- E5: R1
-history:
- - 1E5
-
-
-
-=== Date: Sat, 26 Mar 2005 22:55:55
-+++ perl: {"a - a" => 1}
-+++ yaml
----
-'a - a': 1
-
-
-
-=== Date: Sun, 8 May 2005 15:42:04
-+++ skip_this_for_now
-+++ perl: [{q</.*/> => {any_key => { } }}]
-+++ yaml
----
-- /.*/:
- any_key: {}
-
-
-
-=== Date: Thu, 12 May 2005 14:57:20
-+++ function: load_passes
-+++ yaml
---- #YAML:1.0
-
-WilsonSereno1998:
- authors:
- - Wilson, Jeffrey. A
- - Paul C. Sereno
- title: Early evolution and Higher-level phylogeny of sauropod dinosaurs
- year: 1998
- journal: Journal of Vertebrate Paleontology, memoir
- volume: 5
- pages: 1-68
-
-WedelEtAl2000:
- authors:
- - Wedel, M. J.
- - R. L. Cifelli
- - R. K. Sanders
- year: 2000
- title: _Sauroposeidon proteles_, a new sauropod from the Early Cretaceous of Oklahoma.
- journal: Journal of Vertebrate Paleontology
- volume: 20
- issue: 1
- pages: 109-114
-
-
-
-=== Date: Thu, 09 Jun 2005 18:49:01
-+++ perl: {'test' => '|testing'}
-+++ yaml
----
-test: '|testing'
-
-
-
-=== Date: Mon, 22 Aug 2005 16:52:47
-+++ skip_this_for_now
-+++ perl
- my $y = {
-
- ok_list_of_hashes => [
- {one => 1},
- {two => 2},
- ],
-
- error_list_of_hashes => [
- {-one => 1},
- {-two => 2},
- ],
-
- };
-+++ yaml
----
-error_list_of_hashes:
- - -one: 1
- - -two: 2
-ok_list_of_hashes:
- - one: 1
- - two: 2
-
-
-
-=== Date: Wed, 12 Oct 2005 17:16:48
-+++ skip_this_for_now
-+++ function: load_passes
-+++ yaml
-fontsize_small: '9px' # labelsmall
-fontsize: '11px' # maintext, etc
-fontsize_big: '12px' # largetext, button
-fontsize_header: '13px' # sectionheaders
-fontsize_banner: '16px' # title
-
-
-
-=== Date: Mon, 07 Nov 2005 15:49:07
-+++ perl: \ '|something'
-+++ yaml
---- !!perl/ref
-=: '|something'
-
-
-
-=== Date: Thu, 24 Nov 2005 10:49:06
-+++ perl: { url => 'http://www.test.com/product|1|2|333333', zzz => '' }
-+++ yaml
----
-url: http://www.test.com/product|1|2|333333
-zzz: ''
-
-
-
-=== Date: Sat, 3 Dec 2005 14:26:23
-+++ perl
-my @keys = qw/001 002 300 400 500/;
-my $h = {};
-map {$h->{$_} = 1} @keys;
-$h;
-+++ yaml
----
-001: 1
-002: 1
-300: 1
-400: 1
-500: 1
-
diff --git a/3.8.8/sources/cpan-YAML/vendor/t/changes.t b/3.8.8/sources/cpan-YAML/vendor/t/changes.t
deleted file mode 100644
index 8966799..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/t/changes.t
+++ /dev/null
@@ -1,7 +0,0 @@
-use t::TestYAML tests => 1;
-
-SKIP: {
- skip("Can't parse Changes file yet :(", 1);
-}
-
-# my @values = LoadFile("Changes");
diff --git a/3.8.8/sources/cpan-YAML/vendor/t/dump-basics.t b/3.8.8/sources/cpan-YAML/vendor/t/dump-basics.t
deleted file mode 100644
index 59cff8a..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/t/dump-basics.t
+++ /dev/null
@@ -1,68 +0,0 @@
-use t::TestYAML tests => 6;
-
-filters {
- perl => [qw'eval yaml_dump'],
-};
-
-run_is;
-
-__DATA__
-=== A map
-+++ perl
-+{ foo => 'bar', baz => 'boo' }
-+++ yaml
----
-baz: boo
-foo: bar
-
-=== A list
-+++ perl
-[ qw'foo bar baz' ]
-+++ yaml
----
-- foo
-- bar
-- baz
-
-=== A List of maps
-+++ perl
-[{ foo => 42, bar => 44}, {one => 'two', three => 'four'}]
-+++ yaml
----
-- bar: 44
- foo: 42
-- one: two
- three: four
-
-=== A map of lists
-+++ perl
-+{numbers => [ 5..7 ], words => [qw'five six seven']}
-+++ yaml
----
-numbers:
- - 5
- - 6
- - 7
-words:
- - five
- - six
- - seven
-
-=== Top level scalar
-+++ perl: 'The eagle has landed'
-+++ yaml
---- The eagle has landed
-
-=== Top level literal scalar
-+++ perl
-<<'...'
-sub foo {
- return "Don't eat the foo";
-}
-...
-+++ yaml
---- |
-sub foo {
- return "Don't eat the foo";
-}
-
diff --git a/3.8.8/sources/cpan-YAML/vendor/t/dump-file-utf8.t b/3.8.8/sources/cpan-YAML/vendor/t/dump-file-utf8.t
deleted file mode 100644
index 64a27e0..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/t/dump-file-utf8.t
+++ /dev/null
@@ -1,38 +0,0 @@
-use utf8;
-use Test::YAML();
-BEGIN {
- @Test::YAML::EXPORT =
- grep { not /^(Dump|Load)(File)?$/ } @Test::YAML::EXPORT;
-}
-use t::TestYAML tests => 6;
-
-use YAML qw/DumpFile LoadFile/;
-
-ok defined &DumpFile,
- 'DumpFile exported';
-
-ok defined &LoadFile,
- 'LoadFile exported';
-
-my $file = 't/dump.yaml';
-
-# A scalar containing non-ASCII characters
-my $data = 'Olivier Mengué';
-is length($data), 14, 'Test source is correctly encoded';
-
-DumpFile($file, $data);
-
-ok -e $file,
- 'Output file exists';
-
-open IN, '<:utf8', $file or die $!;
-my $yaml = do { local $/; <IN> };
-close IN;
-
-is $yaml, "--- $data\n", 'DumpFile YAML encoding is correct';
-
-
-my $read = LoadFile($file);
-is $read, $data, 'LoadFile is ok';
-
-unlink $file;
diff --git a/3.8.8/sources/cpan-YAML/vendor/t/dump-file.t b/3.8.8/sources/cpan-YAML/vendor/t/dump-file.t
deleted file mode 100644
index 6040485..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/t/dump-file.t
+++ /dev/null
@@ -1,31 +0,0 @@
-use Test::YAML();
-BEGIN {
- @Test::YAML::EXPORT =
- grep { not /^(Dump|Load)(File)?$/ } @Test::YAML::EXPORT;
-}
-use t::TestYAML tests => 3;
-
-use YAML 'DumpFile';
-
-ok defined &DumpFile,
- 'Dumpfile exported';
-
-my $file = 't/dump.yaml';
-
-DumpFile($file, [1..3]);
-
-ok -e $file,
- 'Output file exists';
-
-open IN, $file or die $!;
-my $yaml = join '', <IN>;
-close IN;
-
-is $yaml, <<'...', 'DumpFile YAML is correct';
----
-- 1
-- 2
-- 3
-...
-
-unlink $file;
diff --git a/3.8.8/sources/cpan-YAML/vendor/t/dump-nested.t b/3.8.8/sources/cpan-YAML/vendor/t/dump-nested.t
deleted file mode 100644
index 15cf571..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/t/dump-nested.t
+++ /dev/null
@@ -1,108 +0,0 @@
-use t::TestYAML tests => 20;
-
-no_diff();
-run_roundtrip_nyn();
-
-__DATA__
-===
-+++ perl
-['foo ' x 20]
-+++ yaml
----
-- 'foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo '
-===
-+++ perl
-[q{YAML(tm) (rhymes with "camel") is a straightforward machine parsable data serialization format designed for human readability and interaction with scripting languages such as Perl and Python. YAML is optimized for data serialization, configuration settings, log files, Internet messaging and filtering. YAML(tm) is a balance of the following design goals:}]
-+++ yaml
----
-- 'YAML(tm) (rhymes with "camel") is a straightforward machine parsable data serialization format designed for human readability and interaction with scripting languages such as Perl and Python. YAML is optimized for data serialization, configuration settings, log files, Internet messaging and filtering. YAML(tm) is a balance of the following design goals:'
-===
-+++ perl
-[q{It reads one character at a time, with the ability to push back any number of characters up to a maximum, and with nested mark() / reset() / unmark() functions. The input of the stream reader is any java.io.Reader. The output are characters.
-The parser (and event generator)
-
-The input of the parser are characters. These characters are directly fed into the functions that implement the different productions. The output of the parser are events, a well defined and small set of events.}]
-+++ yaml
----
-- |-
- It reads one character at a time, with the ability to push back any number of characters up to a maximum, and with nested mark() / reset() / unmark() functions. The input of the stream reader is any java.io.Reader. The output are characters.
- The parser (and event generator)
-
- The input of the parser are characters. These characters are directly fed into the functions that implement the different productions. The output of the parser are events, a well defined and small set of events.
-===
-+++ perl
-<<END;
-xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx
-xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx
- 1) xxx xxx xxx xxx
- 2) xxx xxx xxx xxx
-xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx
-END
-+++ yaml
---- |
-xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx
-xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx
- 1) xxx xxx xxx xxx
- 2) xxx xxx xxx xxx
-xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx
-===
-+++ perl
-<<END;
-xxx xxx xxx xxx
-xxx xxx xxx xxx
-
- 1) xxx xxx xxx xxx
- 2) xxx xxx xxx xxx
-
-xxx xxx xxx xxx
-END
-+++ yaml
---- |
-xxx xxx xxx xxx
-xxx xxx xxx xxx
-
- 1) xxx xxx xxx xxx
- 2) xxx xxx xxx xxx
-
-xxx xxx xxx xxx
-===
-+++ perl
-<<END;
-xxx xxx xxx xxx
- 1) xxx xxx xxx xxx
-
- 2) xxx xxx xxx xxx
-xxx xxx xxx xxx
-END
-+++ yaml
---- |
-xxx xxx xxx xxx
- 1) xxx xxx xxx xxx
-
- 2) xxx xxx xxx xxx
-xxx xxx xxx xxx
-===
-+++ perl
-"xxx xxx xxx xxx xxx xxx xxx xxx xxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxx xxx xxx xxx xxx xxx xxx xxx\n"
-+++ yaml
---- "xxx xxx xxx xxx xxx xxx xxx xxx xxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxx xxx xxx xxx xxx xxx xxx xxx\n"
-===
-+++ perl
-"xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxx xxx xxx xxx xxx xxx xxx xxx\n"
-+++ yaml
---- "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxx xxx xxx xxx xxx xxx xxx xxx\n"
-===
-+++ perl
-"xxx xxx xxx xxx\n\n"
-+++ yaml
---- "xxx xxx xxx xxx\n\n"
-
-===
-+++ config
-local $YAML::UseBlock = 1
-+++ perl
-"xxx xxx xxx xxx\n\n"
-+++ yaml -trim
---- |+
-xxx xxx xxx xxx
-
diff --git a/3.8.8/sources/cpan-YAML/vendor/t/dump-stringify.t b/3.8.8/sources/cpan-YAML/vendor/t/dump-stringify.t
deleted file mode 100644
index 691d3f9..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/t/dump-stringify.t
+++ /dev/null
@@ -1,49 +0,0 @@
-use t::TestYAML tests => 6;
-
-no_diff;
-
-package Foo;
-
-use overload '""' => \&stringy;
-
-sub stringy { 'Hello mate!' }
-
-sub new { bless { 'Hello' => 'mate!' }, shift };
-
-package main;
-
-my $foo = Foo->new;
-
-my $stringy_dump = <<'';
---- Hello mate!
-
-my $object_dump = <<'';
---- !!perl/hash:Foo
-Hello: mate!
-
-my $yaml;
-
-$yaml = Dump($foo);
-is $yaml, $object_dump, "Global stringification default dump";
-
-$YAML::Stringify = 1;
-$yaml = Dump($foo);
-is $yaml, $stringy_dump, "Global stringification enabled dump";
-
-$YAML::Stringify = 0;
-$yaml = Dump($foo);
-is $yaml, $object_dump, "Global stringification disabled dump";
-
-require YAML::Dumper;
-my $dumper = YAML::Dumper->new;
-
-$yaml = $dumper->dump($foo);
-is $yaml, $object_dump, "Local stringification default dump";
-
-$dumper->stringify(1);
-$yaml = $dumper->dump($foo);
-is $yaml, $stringy_dump, "Local stringification enabled dump";
-
-$dumper->stringify(0);
-$yaml = $dumper->dump($foo);
-is $yaml, $object_dump, "Local stringification disabled dump";
diff --git a/3.8.8/sources/cpan-YAML/vendor/t/dump-tests.t b/3.8.8/sources/cpan-YAML/vendor/t/dump-tests.t
deleted file mode 100644
index d7a4932..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/t/dump-tests.t
+++ /dev/null
@@ -1,410 +0,0 @@
-use t::TestYAML tests => 58;
-
-no_diff();
-run_roundtrip_nyn('dumper');
-
-__DATA__
-
-===
-+++ perl
-[ "foo\nbar", "I like pie\nYou like pie\nWe all like pie" ]
-+++ yaml
----
-- "foo\nbar"
-- |-
- I like pie
- You like pie
- We all like pie
-
-===
-+++ perl
-{name => 'Ingy dot Net',
- rank => 'JAPH',
- 'serial number' => '8675309',
-};
-+++ yaml
----
-name: Ingy dot Net
-rank: JAPH
-serial number: 8675309
-
-===
-+++ perl
- {fruits => [qw(apples oranges pears)],
- meats => [qw(beef pork chicken)],
- vegetables => [qw(carrots peas corn)],
- }
-+++ yaml
----
-fruits:
- - apples
- - oranges
- - pears
-meats:
- - beef
- - pork
- - chicken
-vegetables:
- - carrots
- - peas
- - corn
-
-===
-+++ perl
-['42', '43', '-44', '45']
-+++ yaml
----
-- 42
-- 43
-- -44
-- 45
-
-===
-+++ perl
-[
- 'foo bar',
- 'http://www.yaml.org',
- '12:34'
-]
-+++ yaml
----
-- foo bar
-- http://www.yaml.org
-- 12:34
-
-===
-+++ perl
-('1', " foo ", "bar\n", [], {})
-+++ yaml
---- 1
---- ' foo '
---- "bar\n"
---- []
---- {}
-
-===
-+++ perl
-'8\'-0" x 24" Lightweight'
-+++ yaml
---- 8'-0" x 24" Lightweight
-
-===
-+++ perl
-bless {}, 'Foo::Bar'
-+++ yaml
---- !!perl/hash:Foo::Bar {}
-
-===
-+++ perl
-bless {qw(foo 42 bar 43)}, 'Foo::Bar'
-+++ yaml
---- !!perl/hash:Foo::Bar
-bar: 43
-foo: 42
-
-===
-+++ perl
-bless [], 'Foo::Bar'
-+++ yaml
---- !!perl/array:Foo::Bar []
-
-===
-+++ perl
-bless [map "$_",42..45], 'Foo::Bar'
-+++ yaml
---- !!perl/array:Foo::Bar
-- 42
-- 43
-- 44
-- 45
-
-===
-+++ perl
-my $yn = YAML::Node->new({}, 'foo.com/bar');
-$yn->{foo} = 'bar';
-$yn->{bar} = 'baz';
-$yn->{baz} = 'foo';
-$yn
-+++ yaml
---- !foo.com/bar
-foo: bar
-bar: baz
-baz: foo
-
-===
-+++ perl
-use YAML::Node;
-+++ no_round_trip
-+++ perl
-my $a = '';
-bless \$a, 'Foo::Bark';
-+++ yaml
---- !!perl/scalar:Foo::Bark ''
-
-=== Strings with nulls
-+++ perl
-"foo\0bar"
-+++ yaml
---- "foo\0bar"
-
-===
-+++ no_round_trip
-XXX: probably a YAML.pm bug
-+++ perl
-&YAML::VALUE
-+++ yaml
---- =
-
-===
-+++ perl
-my $ref = {foo => 'bar'};
-[$ref, $ref]
-+++ yaml
----
-- &1
- foo: bar
-- *1
-
-===
-+++ perl
-no strict;
-package main;
-$joe_random_global = 42;
- at joe_random_global = (43, 44);
-*joe_random_global
-+++ yaml
---- !!perl/glob:
-PACKAGE: main
-NAME: joe_random_global
-SCALAR: 42
-ARRAY:
- - 43
- - 44
-
-===
-+++ perl
-no strict;
-package main;
-\*joe_random_global
-+++ yaml
---- !!perl/ref
-=: !!perl/glob:
- PACKAGE: main
- NAME: joe_random_global
- SCALAR: 42
- ARRAY:
- - 43
- - 44
-
-===
-+++ no_round_trip
-+++ perl
-my $foo = {qw(apple 1 banana 2 carrot 3 date 4)};
-YAML::Bless($foo)->keys([qw(banana apple date)]);
-$foo
-+++ yaml
----
-banana: 2
-apple: 1
-date: 4
-
-===
-+++ no_round_trip
-+++ perl
-use YAML::Node;
-my $foo = {qw(apple 1 banana 2 carrot 3 date 4)};
-my $yn = YAML::Node->new($foo);
-YAML::Bless($foo, $yn)->keys([qw(apple)]); # red herring
-ynode($yn)->keys([qw(banana date)]);
-$foo
-+++ yaml
----
-banana: 2
-date: 4
-
-===
-+++ no_round_trip
-XXX: probably a test driver bug
-+++ perl
-my $joe_random_global = {qw(apple 1 banana 2 carrot 3 date 4)};
-YAML::Bless($joe_random_global, 'TestBless');
-return [$joe_random_global, $joe_random_global];
-package TestBless;
-use YAML::Node;
-sub yaml_dump {
- my $yn = YAML::Node->new($_[0]);
- ynode($yn)->keys([qw(apple pear carrot)]);
- $yn->{pear} = $yn;
- return $yn;
-}
-+++ yaml
----
-- &1
- apple: 1
- pear: *1
- carrot: 3
-- *1
-
-===
-+++ no_round_trip
-+++ perl
-use YAML::Node;
-my $joe_random_global = {qw(apple 1 banana 2 carrot 3 date 4)};
-YAML::Bless($joe_random_global);
-my $yn = YAML::Blessed($joe_random_global);
-delete $yn->{banana};
-$joe_random_global
-+++ yaml
----
-apple: 1
-carrot: 3
-date: 4
-
-===
-+++ perl
-my $joe_random_global = \\\\\\\'42';
-[
- $joe_random_global,
- $$$$joe_random_global,
- $joe_random_global,
- $$$$$$$joe_random_global,
- $$$$$$$$joe_random_global
-]
-+++ yaml
----
-- &1 !!perl/ref
- =: !!perl/ref
- =: !!perl/ref
- =: &2 !!perl/ref
- =: !!perl/ref
- =: !!perl/ref
- =: &3 !!perl/ref
- =: 42
-- *2
-- *1
-- *3
-- 42
-
-===
-+++ perl
-local $YAML::Indent = 1;
-[{qw(foo 42 bar 44)}]
-+++ yaml
----
-- bar: 44
- foo: 42
-
-===
-+++ perl
-local $YAML::Indent = 4;
-[{qw(foo 42 bar 44)}]
-+++ yaml
----
-- bar: 44
- foo: 42
-
-===
-+++ no_round_trip
-Since we don't use eval for regexp reconstitution any more (for safety
-sake) this test doesn't roundtrip even though the values are equivalent.
-+++ perl
-[qr{bozo$}i]
-+++ yaml
----
-- !!perl/regexp (?i-xsm:bozo$)
-
-===
-+++ perl
-[undef, undef]
-+++ yaml
----
-- ~
-- ~
-
-===
-+++ perl
-my $joe_random_global = [];
-push @$joe_random_global, $joe_random_global;
-bless $joe_random_global, 'XYZ';
-$joe_random_global
-+++ yaml
---- &1 !!perl/array:XYZ
-- *1
-
-===
-+++ perl
-[
- '23',
- '3.45',
- '123456789012345',
-]
-+++ yaml
----
-- 23
-- 3.45
-- 123456789012345
-
-===
-+++ perl
-{'foo: bar' => 'baz # boo', 'foo ' => ' monkey', }
-+++ yaml
----
-'foo ': ' monkey'
-'foo: bar': 'baz # boo'
-
-===
-+++ no_round_trip
-+++ perl
-$a = \\\\\\\\"foo"; $b = $$$$$a;
-([$a, $b], [$b, $a])
-+++ yaml
----
-- !!perl/ref
- =: !!perl/ref
- =: !!perl/ref
- =: !!perl/ref
- =: &1 !!perl/ref
- =: !!perl/ref
- =: !!perl/ref
- =: !!perl/ref
- =: foo
-- *1
----
-- &1 !!perl/ref
- =: !!perl/ref
- =: !!perl/ref
- =: !!perl/ref
- =: foo
-- !!perl/ref
- =: !!perl/ref
- =: !!perl/ref
- =: !!perl/ref
- =: *1
-
-===
-+++ no_round_trip
-XXX an AutoBless feature could make this rt
-+++ perl
-$a = YAML::Node->new({qw(a 1 b 2 c 3 d 4)}, 'ingy.com/foo');
-YAML::Node::ynode($a)->keys([qw(d b a)]);
-$a;
-+++ yaml
---- !ingy.com/foo
-d: 4
-b: 2
-a: 1
-
-===
-+++ no_round_trip
-+++ perl
-$a = 'bitter buffalo';
-bless \$a, 'Heart';
-+++ yaml
---- !!perl/scalar:Heart bitter buffalo
-
-===
-+++ perl
-{ 'foo[bar]' => 'baz' }
-+++ yaml
----
-'foo[bar]': baz
diff --git a/3.8.8/sources/cpan-YAML/vendor/t/dump-works.t b/3.8.8/sources/cpan-YAML/vendor/t/dump-works.t
deleted file mode 100644
index c46bb5a..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/t/dump-works.t
+++ /dev/null
@@ -1,15 +0,0 @@
-use t::TestYAML;
-
-run_is;
-
-sub yaml_dump {
- return Dump(@_);
-}
-
-__DATA__
-=== A one key hash
-+++ perl eval yaml_dump
-+{foo => 'bar'}
-+++ yaml
----
-foo: bar
diff --git a/3.8.8/sources/cpan-YAML/vendor/t/errors.t b/3.8.8/sources/cpan-YAML/vendor/t/errors.t
deleted file mode 100644
index 08b677b..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/t/errors.t
+++ /dev/null
@@ -1,386 +0,0 @@
-use t::TestYAML tests => 35;
-$^W = 1;
-
-use YAML::Error;
-
-filters {
- error => 'regexp',
- yaml => [mutate_yaml => 'yaml_load_error_or_warning' => 'check_yaml'],
- perl => 'perl_eval_error_or_warning',
-};
-
-run_like('yaml' => 'error');
-run_like('perl' => 'error');
-
-sub mutate_yaml {
- s/\Q<%CNTL-G%>\E/\007/;
- chomp if /msg_no_newline/;
-}
-
-sub check_yaml {
- my $yaml = shift;
- return $yaml unless ref($yaml);
- print "YAML actually loaded:\n" . Data::Dumper::Dumper($yaml);
- return '';
-}
-
-__DATA__
-=== YAML_PARSE_ERR_BAD_CHARS
-+++ error: YAML_PARSE_ERR_BAD_CHARS
-+++ yaml
-# Test msg_bad_chars
----
-- foo
-# The next line contains an escape character
-- bell -><%CNTL-G%><-
-
-=== YAML_PARSE_ERR_NO_FINAL_NEWLINE
-+++ error: YAML_PARSE_ERR_NO_FINAL_NEWLINE
-+++ yaml
-# Test msg_no_newline
----
-- one
-- two
-- three
-
-=== YAML_PARSE_ERR_BAD_MAJOR_VERSION
-+++ error: YAML_PARSE_ERR_BAD_MAJOR_VERSION
-+++ yaml
-# Test msg_bad_major_version
----
-- one
-- two
---- #YAML:2.0
-- foo
-- bar
-
-=== YAML_PARSE_WARN_BAD_MINOR_VERSION
-+++ error: YAML_PARSE_WARN_BAD_MINOR_VERSION
-+++ yaml
-# Test msg_bad_minor_version
----
-- one
-- two
---- #YAML:1.5
-- foo
-- bar
-
-=== YAML_PARSE_WARN_MULTIPLE_DIRECTIVES
-+++ error: YAML_PARSE_WARN_MULTIPLE_DIRECTIVES
-+++ yaml
-# Test msg_multiple_directives
---- #YAML:1.0 #YAML:1.0
-- foo
---- #FOO:2 #FOO:3
-- bar
-
-=== YAML_PARSE_ERR_TEXT_AFTER_INDICATOR
-+++ error: YAML_PARSE_ERR_TEXT_AFTER_INDICATOR
-+++ yaml
-# Test msg_text_after_indicator
----
-- >
- This is OK.
-- > But this is not
-- This is OK
-
-=== YAML_PARSE_ERR_NO_ANCHOR
-+++ error: YAML_PARSE_ERR_NO_ANCHOR
-+++ yaml
-# Test msg_no_anchor
----
-- &moo foo
-- bar
-- *star
-- &star far
-
-=== YAML_PARSE_ERR_INCONSISTENT_INDENTATION
-+++ error: YAML_PARSE_ERR_INCONSISTENT_INDENTATION
-+++ yaml
---- {foo: bar}
-- foo
-- bar
-
-=== YAML_PARSE_ERR_SINGLE_LINE
-+++ error: YAML_PARSE_ERR_SINGLE_LINE
-+++ yaml
----
-- "foo" bar
-
-=== YAML_PARSE_ERR_BAD_ANCHOR
-+++ error: YAML_PARSE_ERR_BAD_ANCHOR
-+++ yaml
----
-- &X=y 42
-
-#---
-#error: YAML_PARSE_ERR_BAD_NODEX
-#load: |
-#---
-#error: YAML_PARSE_ERR_BAD_EXPLICITX
-#load: |
-# I don't think this one can ever happen (yet)
-#---
-#error: YAML_DUMP_USAGE_DUMPCODE
-#code: |
-# local $YAML::DumpCode = [0];
-# Dump(sub { $foo + 42 });
-
-=== YAML_LOAD_ERR_FILE_INPUT
-+++ error: YAML_LOAD_ERR_FILE_INPUT
-+++ perl
-LoadFile('fooxxx');
-# XXX - Causing bus error!?!?
-#---
-#error: YAML_DUMP_ERR_FILE_CONCATENATE
-#code: |
-# DumpFile(">> YAML.pod", 42);
-
-=== YAML_DUMP_ERR_FILE_OUTPUT
-+++ error: YAML_DUMP_ERR_FILE_OUTPUT
-+++ perl
-Test::YAML::DumpFile("x/y/z.yaml", 42);
-
-=== YAML_DUMP_ERR_NO_HEADER
-+++ error: YAML_DUMP_ERR_NO_HEADER
-+++ perl
-local $YAML::UseHeader = 0;
-Test::YAML::Dump(42);
-
-=== YAML_DUMP_ERR_NO_HEADER
-+++ error: YAML_DUMP_ERR_NO_HEADER
-+++ perl
-local $YAML::UseHeader = 0;
-Test::YAML::Dump([]);
-
-=== YAML_DUMP_ERR_NO_HEADER
-+++ error: YAML_DUMP_ERR_NO_HEADER
-+++ perl
-local $YAML::UseHeader = 0;
-Test::YAML::Dump({});
-#---
-#error: xYAML_DUMP_WARN_BAD_NODE_TYPE
-#code: |
-# #
-#---
-#error: YAML_EMIT_WARN_KEYS
-#code: |
-# #
-#---
-#error: YAML_DUMP_WARN_DEPARSE_FAILED
-#code: |
-# #
-#---
-#error: YAML_DUMP_WARN_CODE_DUMMY
-#code: |
-# Dump(sub{ 42 });
-
-=== YAML_PARSE_ERR_MANY_EXPLICIT
-+++ error: YAML_PARSE_ERR_MANY_EXPLICIT
-+++ yaml
----
-- !foo !bar 42
-
-=== YAML_PARSE_ERR_MANY_IMPLICIT
-+++ error: YAML_PARSE_ERR_MANY_IMPLICIT
-+++ yaml
----
-- ! ! "42"
-
-=== YAML_PARSE_ERR_MANY_ANCHOR
-+++ error: YAML_PARSE_ERR_MANY_ANCHOR
-+++ yaml
----
-- &foo &bar 42
-
-=== YAML_PARSE_ERR_ANCHOR_ALIAS
-+++ error: YAML_PARSE_ERR_ANCHOR_ALIAS
-+++ yaml
----
-- &bar *foo
-
-=== YAML_PARSE_ERR_BAD_ALIAS
-+++ error: YAML_PARSE_ERR_BAD_ALIAS
-+++ yaml
----
-- *foo=bar
-
-=== YAML_PARSE_ERR_MANY_ALIAS
-+++ error: YAML_PARSE_ERR_MANY_ALIAS
-+++ yaml
----
-- *foo *bar
-
-=== YAML_LOAD_ERR_NO_CONVERT
-+++ SKIP
-Actually this should load into a ynode...
-+++ error: YAML_LOAD_ERR_NO_CONVERT
-+++ yaml
----
-- !foo shoe
-
-=== YAML_LOAD_ERR_NO_DEFAULT_VALUE
-+++ error: YAML_LOAD_ERR_NO_DEFAULT_VALUE
-+++ yaml
----
-- !perl/ref
- foo: bar
-#---
-#error: YAML_LOAD_ERR_NON_EMPTY_STRING
-#load: |
-# ---
-# - !map foo
-#---
-#error: YAML_LOAD_ERR_NON_EMPTY_STRING
-#load: |
-# ---
-# - !seq foo
-#---
-#error: YAML_LOAD_ERR_BAD_MAP_TO_SEQ
-#load: |
-# --- !seq
-# 0: zero
-# won: one
-# 2: two
-# 3: three
-#---
-#error: YAML_LOAD_ERR_BAD_GLOB
-#load: |
-# #
-#---
-#error: YAML_LOAD_ERR_BAD_REGEXP
-#load: |
-# #
-
-=== YAML_LOAD_ERR_BAD_MAP_ELEMENT
-+++ error: YAML_LOAD_ERR_BAD_MAP_ELEMENT
-+++ yaml
----
-foo: bar
-bar
-
-=== YAML_LOAD_WARN_DUPLICATE_KEY
-+++ error: YAML_LOAD_WARN_DUPLICATE_KEY
-+++ yaml
----
-foo: bar
-bar: boo
-foo: baz
-boo: bah
-
-=== YAML_LOAD_ERR_BAD_SEQ_ELEMENT
-+++ error: YAML_LOAD_ERR_BAD_SEQ_ELEMENT
-+++ yaml
----
-- 42
-foo
-
-=== YAML_PARSE_ERR_INLINE_MAP
-+++ error: YAML_PARSE_ERR_INLINE_MAP
-+++ yaml
----
-- {foo:bar}
-
-=== YAML_PARSE_ERR_INLINE_SEQUENCE
-+++ error: YAML_PARSE_ERR_INLINE_SEQUENCE
-+++ yaml
----
-- [foo bar, baz
-
-=== YAML_PARSE_ERR_BAD_DOUBLE
-+++ error: YAML_PARSE_ERR_BAD_DOUBLE
-+++ yaml
----
-- "foo baz
-
-=== YAML_PARSE_ERR_BAD_SINGLE
-+++ error: YAML_PARSE_ERR_BAD_SINGLE
-+++ yaml
----
-- 'foo bar
-
-=== YAML_PARSE_ERR_BAD_INLINE_IMPLICIT
-+++ error: YAML_PARSE_ERR_BAD_INLINE_IMPLICIT
-+++ yaml
----
-- [^gold]
-
-=== YAML_PARSE_ERR_BAD_IMPLICIT
-+++ error: YAML_PARSE_ERR_BAD_IMPLICIT
-+++ yaml
---- ! >
-- 4 foo bar
-#---
-#error: xYAML_PARSE_ERR_INDENTATION
-#load: |
-# ---
-
-=== YAML_PARSE_ERR_INCONSISTENT_INDENTATION
-+++ error: YAML_PARSE_ERR_INCONSISTENT_INDENTATION
-+++ yaml
----
-foo: bar
- bar: baz
-#---
-#error: xYAML_LOAD_WARN_UNRESOLVED_ALIAS
-#load: |
-# ---
-# foo: *bar
-
-# === YAML_LOAD_WARN_NO_REGEXP_IN_REGEXP
-# +++ error: YAML_LOAD_WARN_NO_REGEXP_IN_REGEXP
-# +++ yaml
-# ---
-# - !perl/regexp:
-# foo: bar
-#
-# === YAML_LOAD_WARN_BAD_REGEXP_ELEM
-# +++ error: YAML_LOAD_WARN_BAD_REGEXP_ELEM
-# +++ yaml
-# ---
-# - !perl/regexp:
-# REGEXP: foo
-# foo: bar
-
-=== YAML_LOAD_WARN_GLOB_NAME
-+++ error: YAML_LOAD_WARN_GLOB_NAME
-+++ yaml
----
-- !perl/glob:
- foo: bar
-#---
-#error: xYAML_LOAD_WARN_PARSE_CODE
-#load: |
-# ---
-#---
-#error: YAML_LOAD_WARN_CODE_DEPARSE
-#load: |
-# ---
-# - !perl/code |
-# sub { "foo" }
-#---
-#error: xYAML_EMIT_ERR_BAD_LEVEL
-#code:
-# #
-#---
-#error: YAML_PARSE_WARN_AMBIGUOUS_TAB
-#load: |
-# ---
-# - |
-# foo
-# bar
-
-=== YAML_LOAD_WARN_BAD_GLOB_ELEM
-+++ error: YAML_LOAD_WARN_BAD_GLOB_ELEM
-+++ yaml
----
-- !perl/glob:
- NAME: foo
- bar: SHAME
-
-=== YAML_PARSE_ERR_ZERO_INDENT
-+++ error: YAML_PARSE_ERR_ZERO_INDENT
-+++ yaml
----
-- |0
- foo
diff --git a/3.8.8/sources/cpan-YAML/vendor/t/inbox.t b/3.8.8/sources/cpan-YAML/vendor/t/inbox.t
deleted file mode 100644
index db9b302..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/t/inbox.t
+++ /dev/null
@@ -1,20 +0,0 @@
-use t::TestYAML tests => 3;
-
-SKIP: {
- skip 'fix this next release', 3;
- my $x;
- is(Dump(bless(\$x)), 'foo');
-}
-
-__END__
-03:14 < audreyt> ingy:
-03:14 < audreyt> use YAML; my $x; print Dump bless(\$x);
-03:14 < audreyt> is erroneous
-03:14 < audreyt> then
-03:14 < audreyt> use YAML; my $x = \3; print Dump bless(\$x);
-03:14 < audreyt> is fatal error
-03:15 < audreyt> use YAML; my $x; $x = \$x; print Dump bless(\$x);
-03:15 < audreyt> is scary fatal error
-03:15 < audreyt> (YAML::Syck handles all three ^^;)
-03:16 * audreyt goes back to do $job work
-
diff --git a/3.8.8/sources/cpan-YAML/vendor/t/load-fails.t b/3.8.8/sources/cpan-YAML/vendor/t/load-fails.t
deleted file mode 100644
index 62203be..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/t/load-fails.t
+++ /dev/null
@@ -1,52 +0,0 @@
-# This simply tests that a given piece of invalid YAML fails to parse
-use t::TestYAML tests => 4;
-
-filters {
- msg => 'regexp',
- yaml => 'yaml_load_or_fail',
-};
-
-run_like yaml => 'msg';
-
-__DATA__
-
-===
-+++ SKIP
-This test hangs YAML.pm
-+++ msg
-YAML Error: Inconsistent indentation level
-+++ yaml
-a: *
-
-
-===
-+++ msg
-YAML Error: Inconsistent indentation level
-+++ yaml
---- |\
-foo\zbar
-
-
-===
-+++ msg
-YAML Error: Unrecognized implicit value
-+++ yaml
---- @ 42
-
-
-===
-+++ msg
-YAML Error: Inconsistent indentation level
-+++ yaml
----
- - 1
- -2
-
-
-===
-+++ msg
-Unrecognized TAB policy
-+++ yaml
---- #TAB:MOBY
-- foo
-
diff --git a/3.8.8/sources/cpan-YAML/vendor/t/node-info.t b/3.8.8/sources/cpan-YAML/vendor/t/node-info.t
deleted file mode 100644
index 0bcdc36..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/t/node-info.t
+++ /dev/null
@@ -1,164 +0,0 @@
-use t::TestYAML tests => 16;
-use YAML::Dumper;
-
-package StrIngy;
-use overload '""', sub { 'A Stringy String' };
-sub new {bless {}, shift}
-
-package main;
-my $object = bless {}, 'StrIngy';
-
-# $\ = "\n";
-# print ref($object);
-# print "$object";
-# print overload::StrVal($object);
-# print overload::StrVal(bless {}, 'foo');
-# exit;
-
-filters {
- node => ['eval_perl' => 'get_info'],
- info => ['lines' => 'make_regexp'],
-};
-
-run_like node => 'info';
-
-sub eval_perl {
- my $perl = shift;
- my $stringify = 0;
- $stringify = 1 if $perl =~ s/^#\s*//;
- my $node = eval $perl;
- die "Perl code failed to eval:\n$perl\n$@" if $@;
- return ($node, $stringify);
-}
-
-sub get_info {
- my $dumper = YAML::Dumper->new;
- join ';', map {
- defined($_) ? $_ : 'undef'
- } $dumper->node_info(@_);
-}
-
-sub make_regexp {
- my $string = join ';', map {
- chomp;
- s/^~$/undef/;
- s/^0x\d+/0x[0-9a-fA-F]+/;
- $_;
- } @_;
- qr/^${string}$/;
-}
-
-__DATA__
-=== Hash Ref
-+++ node: +{1..4};
-+++ info
-~
-HASH
-0x12345678
-
-=== Array Ref
-+++ node: [1..5]
-+++ info
-~
-ARRAY
-0x12345678
-
-=== Scalar
-+++ node: 'hello';
-+++ info
-~
-~
-0x12345678-S
-
-=== Scalar Ref
-+++ node: \ 'hello';
-+++ info
-~
-SCALAR
-0x12345678
-
-=== Scalar Ref Ref
-+++ node: \\ 'hello';
-+++ info
-~
-REF
-0x12345678
-
-=== Code Ref
-+++ node: sub { 42; }
-+++ info
-~
-CODE
-0x12345678
-
-=== Code Ref Ref
-+++ node: \ sub { 42; }
-+++ info
-~
-REF
-0x12345678
-
-=== Glob
-+++ node: $::x = 5; \ *x;
-+++ info
-~
-GLOB
-0x12345678
-
-=== Regular Expression
-+++ node: qr{xxx};
-+++ info
-~
-REGEXP
-0x12345678
-
-=== Blessed Hash Ref
-+++ node: bless {}, 'ARRAY';
-+++ info
-ARRAY
-HASH
-0x12345678
-
-=== Blessed Array Ref
-+++ node: bless [], 'Foo::Bar';
-+++ info
-Foo::Bar
-ARRAY
-0x12345678
-
-=== Blessed Scalar Ref
-+++ node: my $b = 'boomboom'; bless ((\ $b), 'Foo::Barge');
-+++ info
-Foo::Barge
-SCALAR
-0x12345678
-
-=== Blessed Code Ref
-+++ node: bless sub { 43 }, 'Foo::Barbie';
-+++ info
-Foo::Barbie
-CODE
-0x12345678
-
-=== Blessed Glob
-+++ node: $::x = 5; bless \ *x, 'Che';
-+++ info
-Che
-GLOB
-0x12345678
-
-=== Not Stringified Hash Object
-+++ node: bless {}, 'StrIngy';
-+++ info
-StrIngy
-HASH
-0x12345678
-
-=== Stringified Hash Object
-+++ node: # bless {}, 'StrIngy';
-+++ info
-~
-~
-0x12345678-S
-
-
diff --git a/3.8.8/sources/cpan-YAML/vendor/t/pugs-objects.t b/3.8.8/sources/cpan-YAML/vendor/t/pugs-objects.t
deleted file mode 100644
index 181fbfc..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/t/pugs-objects.t
+++ /dev/null
@@ -1,18 +0,0 @@
-use t::TestYAML tests => 2;
-
-{
- no warnings 'once';
- $Foo::Bar::ClassTag = '!pugs/object:Foo::Bar';
- $YAML::TagClass->{'!pugs/object:Foo::Bar'} = 'Foo::Bar';
-}
-
-no_diff;
-run_roundtrip_nyn('dumper');
-
-__DATA__
-=== Turn Perl object to Pugs object
-+++ perl: bless { 'a'..'d' }, 'Foo::Bar';
-+++ yaml
---- !!pugs/object:Foo::Bar
-a: b
-c: d
diff --git a/3.8.8/sources/cpan-YAML/vendor/t/svk-config.yaml b/3.8.8/sources/cpan-YAML/vendor/t/svk-config.yaml
deleted file mode 100644
index dd35a5c..0000000
--- a/3.8.8/sources/cpan-YAML/vendor/t/svk-config.yaml
+++ /dev/null
@@ -1,320 +0,0 @@
----
-checkout: !perl/Data::Hierarchy
- hash:
- /home/jesse/README:
- depotpath: //local/rt-3.4/README
- encoding: ascii
- revision: 17371
- /home/jesse/foo:
- depotpath: //local/foo
- encoding: ascii
- revision: 19501
- /home/jesse/svk/1.0-releng:
- depotpath: //mirror/svk/branches/1.0-releng/
- encoding: ascii
- revision: 20905
- /home/jesse/svk/Acme-Net-OdiousPlan:
- depotpath: //mirror//bps-public/Acme-Net-OdiousPlan/
- encoding: ascii
- revision: 13820
- /home/jesse/svk/Business-Hours:
- depotpath: //local/Business-Hours
- encoding: iso-8859-1
- revision: 17426
- /home/jesse/svk/DBIx-DBSchema:
- depotpath: //local/DBIx-DBSchema
- encoding: utf-8-strict
- revision: 19508
- /home/jesse/svk/DBIx-SearchBuilder:
- depotpath: //local/DBIx-SearchBuilder/
- encoding: iso-8859-1
- revision: 21870
- /home/jesse/svk/Data-ICal:
- depotpath: //local/Data-ICal
- encoding: iso-8859-1
- revision: 17222
- /home/jesse/svk/Devel-ebug:
- depotpath: //local/Devel-ebug/
- encoding: ascii
- revision: 15097
- /home/jesse/svk/Devel-ebug-HTTP:
- depotpath: //local/Devel-ebug-HTTP/
- encoding: ascii
- revision: 15099
- /home/jesse/svk/HTTP-Server-Simple:
- depotpath: //local/HTTP-Server-Simple/
- encoding: iso-8859-1
- revision: 18459
- /home/jesse/svk/HTTP-Server-Simple-Mason:
- depotpath: //local/HTTP-Server-Simple-Mason/
- encoding: ascii
- revision: 13726
- /home/jesse/svk/HTTP-Server-Simple-Recorder:
- depotpath: //local/HTTP-Server-Simple-Recorder
- encoding: ascii
- revision: 13245
- /home/jesse/svk/Module-Install-RTx:
- depotpath: //local/Module-Install-RTx/
- encoding: ascii
- revision: 19842
- /home/jesse/svk/Module-Refresh:
- depotpath: //local/Module-Refresh
- encoding: iso-8859-1
- revision: 20956
- /home/jesse/svk/RT-Extension-ActivityReports:
- depotpath: //local/RT-Extension-ActivityReports/
- encoding: ascii
- revision: 22084
- /home/jesse/svk/RT-Extension-MergeUsers:
- depotpath: //local/RT-Extension-MergeUsers/
- encoding: ascii
- revision: 18043
- /home/jesse/svk/RT-Extension-Redacted:
- depotpath: //local/RT-Extension-Redacted/
- encoding: ascii
- revision: 20453
- /home/jesse/svk/RT-Integration-SVN:
- depotpath: //local/RT-Integration-SVN/
- encoding: iso-8859-1
- revision: 4915
- /home/jesse/svk/RT-KeyBindings:
- depotpath: //local/RT-KeyBindings
- encoding: ascii
- revision: 15495
- /home/jesse/svk/RT-OnlineDocs:
- depotpath: //local/RT-OnlineDocs/
- encoding: ascii
- revision: 20473
- /home/jesse/svk/RT-TicketWhiteboard:
- depotpath: //local/RT-TicketWhiteboard/
- encoding: utf-8-strict
- revision: 20454
- /home/jesse/svk/RT-Todo:
- depotpath: //local/RT-Todo
- encoding: iso-8859-1
- revision: 7320
- /home/jesse/svk/RT-View-Directory:
- depotpath: //local/RT-View-Directory/
- encoding: ascii
- revision: 20455
- /home/jesse/svk/RT-View-Tree:
- depotpath: //local/RT-View-Tree/
- encoding: iso-8859-1
- revision: 4918
- /home/jesse/svk/Test-HTTP-Server-Simple:
- depotpath: //mirror/bps-public/Test-HTTP-Server-Simple/
- encoding: ascii
- revision: 7358
- /home/jesse/svk/WWW-Mechanize-FromRecording:
- depotpath: //mirror/bps-public/WWW-Mechanize-FromRecording/
- encoding: ascii
- revision: 15347
- /home/jesse/svk/chaldea:
- depotpath: //local/chaldea
- encoding: ascii
- revision: 19696
- /home/jesse/svk/chaldea/html/Ticket/ModifyAll.html:
- revision: 19797
- /home/jesse/svk/clkao:
- depotpath: //local/clkao
- encoding: ascii
- revision: 15496
- /home/jesse/svk/customers:
- depotpath: //local/customers
- encoding: ascii
- revision: 20447
- /home/jesse/svk/hiveminder-trunk:
- depotpath: //local/hiveminder-trunk/
- encoding: ascii
- revision: 21802
- /home/jesse/svk/jifty.org:
- depotpath: //local/jifty.org
- encoding: ascii
- revision: 22079
- /home/jesse/svk/logo:
- depotpath: //mirror/bps-private/docs/logo
- encoding: ascii
- revision: 7032
- /home/jesse/svk/modinstal:
- depotpath: //local/modinstal
- encoding: ascii
- revision: 20926
- /home/jesse/svk/people:
- depotpath: //local/people
- encoding: ascii
- revision: 7029
- /home/jesse/svk/people/kevinr:
- revision: 7633
- /home/jesse/svk/perl6-doc:
- depotpath: //local/perl6-doc/
- encoding: iso-8859-1
- revision: 17030
- /home/jesse/svk/personal:
- depotpath: //local/personal
- encoding: ascii
- revision: 13817
- /home/jesse/svk/planetsix:
- depotpath: //local/planetsix
- encoding: ascii
- revision: 21020
- /home/jesse/svk/private-docs:
- depotpath: //local/private-docs
- encoding: ascii
- revision: 18093
- /home/jesse/svk/quebec:
- depotpath: //local/quebec
- encoding: ascii
- revision: 19693
- /home/jesse/svk/rt-3.0:
- depotpath: //local/rt-3.0
- encoding: iso-8859-1
- revision: 18019
- /home/jesse/svk/rt-3.2:
- depotpath: //local/rt-3.2
- encoding: iso-8859-1
- revision: 17458
- /home/jesse/svk/rt-3.4:
- depotpath: //local/rt-3.4
- encoding: iso-8859-1
- revision: 20436
- /home/jesse/svk/rt-3.5:
- depotpath: //local/rt-3.5
- encoding: iso-8859-1
- revision: 20493
- /home/jesse/svk/rt-book:
- depotpath: //local/rt-book/
- encoding: ascii
- revision: 4893
- /home/jesse/svk/rt.cpan.org:
- depotpath: //local/rt.cpan.org
- encoding: ascii
- revision: 17911
- /home/jesse/svk/rtfm-2.0:
- depotpath: //local/rtfm-2.0
- encoding: ascii
- revision: 16160
- /home/jesse/svk/rtfm-2.1:
- depotpath: //local/rtfm-2.1
- encoding: ascii
- revision: 19705
- /home/jesse/svk/rtir-1.0:
- depotpath: //local/rtir-1.0
- encoding: iso-8859-1
- revision: 17456
- /home/jesse/svk/svk-trunk:
- depotpath: //local/svk-trunk
- encoding: ascii
- revision: 21697
- /home/jesse/svk/svkbook:
- depotpath: //local/svkbook-trunk
- encoding: ascii
- revision: 18587
- /home/jesse/svk/training:
- depotpath: //local/training
- encoding: ascii
- revision: 22081
- /home/jesse/svk/trunk:
- depotpath: //local/svk/trunk
- encoding: ascii
- revision: 0
- /tmp/3.5-TESTING:
- depotpath: //mirror/bps-public/rt/branches/3.5-TESTING/
- encoding: ascii
- revision: 19687
- /tmp/gtd:
- depotpath: //local/gtd
- encoding: ascii
- revision: 0
- /tmp/hm/hiveminder-trunk:
- depotpath: //local/hiveminder-trunk
- encoding: ascii
- revision: 15375
- /tmp/svl-checkous/Acme-Colour:
- depotpath: //_default_/acme/Acme-Colour
- encoding: ascii
- revision: 7268
- /tmp/svlco/Acme-Colour:
- depotpath: //_default_/acme/Acme-Colour
- encoding: ascii
- revision: 7268
- /tmp/trunk:
- depotpath: //mirror/bps-private/hiveminder/trunk
- encoding: utf-8-strict
- revision: 19754
- sep: /
- sticky:
- /home/jesse/svk/1.0-releng/lib/SVK/Target.pm:
- .newprop: {}
- /home/jesse/svk/hiveminder-trunk/Jifty:
- .conflict: 1
- /home/jesse/svk/hiveminder-trunk/Jifty/Makefile:
- .conflict: 1
- /home/jesse/svk/hiveminder-trunk/Jifty/Makefile.old:
- .conflict: 1
- /home/jesse/svk/hiveminder-trunk/Jifty/blib:
- .conflict: 1
- /home/jesse/svk/hiveminder-trunk/Jifty/doc:
- .conflict: 1
- /home/jesse/svk/hiveminder-trunk/Jifty/doc/session:
- .conflict: 1
- /home/jesse/svk/hiveminder-trunk/Jifty/inc:
- .conflict: 1
- /home/jesse/svk/hiveminder-trunk/Jifty/jifty:
- .conflict: 1
- /home/jesse/svk/hiveminder-trunk/Jifty/lib:
- .conflict: 1
- /home/jesse/svk/hiveminder-trunk/Jifty/lib/Jifty:
- .conflict: 1
- /home/jesse/svk/hiveminder-trunk/Jifty/lib/Jifty/DefaultApp:
- .conflict: 1
- /home/jesse/svk/hiveminder-trunk/Jifty/lib/Jifty/Manual:
- .conflict: 1
- /home/jesse/svk/hiveminder-trunk/Jifty/lib/Jifty/Manual/ObjectModel.pod:
- .conflict: 1
- /home/jesse/svk/hiveminder-trunk/Jifty/pm_to_blib:
- .conflict: 1
- /home/jesse/svk/hiveminder-trunk/Jifty/t:
- .conflict: 1
- /home/jesse/svk/hiveminder-trunk/Jifty/t/Continuations:
- .conflict: 1
- /home/jesse/svk/hiveminder-trunk/Jifty/t/Continuations/Makefile.old:
- .conflict: 1
- /home/jesse/svk/hiveminder-trunk/Jifty/t/Continuations/continuations:
- .conflict: 1
- /home/jesse/svk/hiveminder-trunk/Jifty/t/Continuations/continuationstest:
- .conflict: 1
- /home/jesse/svk/hiveminder-trunk/Jifty/t/Continuations/inc:
- .conflict: 1
- /home/jesse/svk/hiveminder-trunk/Jifty/t/Mapper:
- .conflict: 1
- /home/jesse/svk/hiveminder-trunk/Jifty/t/Mapper/mapper:
- .conflict: 1
- /home/jesse/svk/hiveminder-trunk/Jifty/t/Mapper/mappertest:
- .conflict: 1
- /home/jesse/svk/hiveminder-trunk/Jifty/t/utils.pl:
- .conflict: 1
- /home/jesse/svk/jifty.org:
- .newprop:
- svk:merge: e84bef0a-9b06-0410-84ba-c4c9edb13aeb:/:428
- .schedule: prop
- /home/jesse/svk/rt.cpan.org/rt2-existing/local/WebRT/html/NoAuth/bugs.tsv:
- .newprop:
- svn:executable: '*'
- .schedule: add
- /home/jesse/svk/training:
- .newprop:
- svk:merge: |-
- 6641d27c-1bcc-0310-8a77-bef5c512aa61:/training:1585
- a51291e0-c2ea-0310-847b-fbb8d8170edb:/local/training:5752
- .schedule: prop
- /home/jesse/svk/training/developer_training:
- .newprop:
- svk:merge: |-
- 5f29b386-91d9-0310-ba9f-d3bca794479a:/rttraining/local:1354
- 5f29b386-91d9-0310-ba9f-d3bca794479a:/rttraining/local-merge-9322:1032
- 5f88e03f-dcfa-0310-a525-a1f853655784:/rt-developer-training:1586
- 8d5e1d6e-e2eb-0310-9379-fb19c180b7be:/dev_training-local:1241
- .schedule: prop
-depotmap:
- '': /home/jesse/.svk/local
- parrot: /home/jesse/.svk/parrot
diff --git a/3.8.8/sources/cpan-base/vendor/lib/base.pm b/3.8.8/sources/cpan-base/vendor/lib/base.pm
deleted file mode 100644
index 574925f..0000000
--- a/3.8.8/sources/cpan-base/vendor/lib/base.pm
+++ /dev/null
@@ -1,265 +0,0 @@
-package base;
-
-use strict 'vars';
-use vars qw($VERSION);
-$VERSION = '2.14';
-$VERSION = eval $VERSION;
-
-# 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_version {
- my($base) = shift;
- my $vglob = ${$base.'::'}{VERSION};
- return( ($vglob && *$vglob{SCALAR}) ? 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'};
- }
-}
-
-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 @isa_classes;
-
- 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);
-
- if (has_version($base)) {
- ${$base.'::VERSION'} = '-1, set by base.pm'
- unless defined ${$base.'::VERSION'};
- }
- else {
- my $sigdie;
- {
- local $SIG{__DIE__};
- eval "require $base";
- # Only ignore "Can't locate" errors from our eval require.
- # Other fatal errors (syntax etc) must be reported.
- die if $@ && $@ !~ /^Can't locate .*? at \(eval /;
- 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;
- ${$base.'::VERSION'} = "-1, set by base.pm"
- unless defined ${$base.'::VERSION'};
- }
- 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"}, @isa_classes;
-
- 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);
- }
-
-C<base> employs some heuristics to determine if a module has already been
-loaded, if it has it doesn't try again. If C<base> tries to C<require> the
-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, it will die. This is useful for inheriting from classes in the same
-file as yourself, like so:
-
- package Foo;
- sub exclaim { "I can have such a thing?!" }
-
- package Bar;
- use base "Foo";
-
-If $VERSION is not detected even after loading it, <base> will define $VERSION
-in the base package, setting it to the string C<-1, set by base.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>,
-L<public> and L<protected> 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.
-
- use 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/3.8.8/sources/cpan-base/vendor/t/base.t b/3.8.8/sources/cpan-base/vendor/t/base.t
deleted file mode 100644
index 68dbea0..0000000
--- a/3.8.8/sources/cpan-base/vendor/t/base.t
+++ /dev/null
@@ -1,90 +0,0 @@
-#!/usr/bin/perl -w
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't' if -d 't';
- @INC = qw(../lib);
- }
-}
-
-use strict;
-use Test::More tests => 11;
-
-use_ok('base');
-
-
-package No::Version;
-
-use vars qw($Foo);
-sub VERSION { 42 }
-
-package Test::Version;
-
-use base qw(No::Version);
-::ok( $No::Version::VERSION =~ /set by base\.pm/, '$VERSION bug' );
-
-# Test Inverse of $VERSION bug base.pm should not clobber existing $VERSION
-package Has::Version;
-
-BEGIN { $Has::Version::VERSION = '42' };
-
-package Test::Version2;
-
-use base qw(Has::Version);
-::is( $Has::Version::VERSION, 42 );
-
-package main;
-
-my $eval1 = q{
- {
- package Eval1;
- {
- package Eval2;
- use base 'Eval1';
- $Eval2::VERSION = "1.02";
- }
- $Eval1::VERSION = "1.01";
- }
-};
-
-eval $eval1;
-is( $@, '' );
-
-is( $Eval1::VERSION, 1.01 );
-
-is( $Eval2::VERSION, 1.02 );
-
-
-eval q{use base 'reallyReAlLyNotexists'};
-like( $@, qr/^Base class package "reallyReAlLyNotexists" is empty\./,
- 'base with empty package');
-
-eval q{use base 'reallyReAlLyNotexists'};
-like( $@, qr/^Base class package "reallyReAlLyNotexists" is empty\./,
- ' still empty on 2nd load');
-{
- my $warning;
- local $SIG{__WARN__} = sub { $warning = shift };
- eval q{package HomoGenous; use base 'HomoGenous';};
- like($warning, qr/^Class 'HomoGenous' tried to inherit from itself/,
- ' self-inheriting');
-}
-
-{
- BEGIN { $Has::Version_0::VERSION = 0 }
-
- package Test::Version3;
-
- use base qw(Has::Version_0);
- ::is( $Has::Version_0::VERSION, 0, '$VERSION==0 preserved' );
-}
-
-
-{
- package Schlozhauer;
- use constant FIELDS => 6;
-
- package Basilisco;
- eval q{ use base 'Schlozhauer' };
- ::is( $@, '', 'Can coexist with a FIELDS constant' );
-}
diff --git a/3.8.8/sources/cpan-base/vendor/t/compile-time.t b/3.8.8/sources/cpan-base/vendor/t/compile-time.t
deleted file mode 100644
index 2be51f9..0000000
--- a/3.8.8/sources/cpan-base/vendor/t/compile-time.t
+++ /dev/null
@@ -1,42 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use Test::More tests => 3;
-
-my $Has_PH = $] < 5.009;
-my $Field = $Has_PH ? "pseudo-hash field" : "class field";
-
-{
- package Parent;
- use fields qw(this that);
- sub new { fields::new(shift) }
-}
-
-{
- package Child;
- use base qw(Parent);
-}
-
-my Child $obj = Child->new;
-
-eval q(return; my Child $obj3 = $obj; $obj3->{notthere} = "");
-like $@,
- qr/^No such .*field "notthere" in variable \$obj3 of type Child/,
- "Compile failure of undeclared fields (helem)";
-
-# Slices
-# We should get compile time failures field name typos
-SKIP: {
- skip("Pseudo-hashes do not support compile-time slice checks", 2)
- if $Has_PH;
-
- eval q(return; my Child $obj3 = $obj; my $k; @$obj3{$k,'notthere'} = ());
- like $@,
- qr/^No such .*field "notthere" in variable \$obj3 of type Child/,
- "Compile failure of undeclared fields (hslice)";
-
- eval q(return; my Child $obj3 = $obj; my $k; @{$obj3}{$k,'notthere'} = ());
- like
- $@, qr/^No such .*field "notthere" in variable \$obj3 of type Child/,
- "Compile failure of undeclared fields (hslice (block form))";
-}
diff --git a/3.8.8/sources/cpan-base/vendor/t/fields-5.8.0.t b/3.8.8/sources/cpan-base/vendor/t/fields-5.8.0.t
deleted file mode 100644
index 2da1412..0000000
--- a/3.8.8/sources/cpan-base/vendor/t/fields-5.8.0.t
+++ /dev/null
@@ -1,254 +0,0 @@
-#!/usr/bin/perl -w
-
-# We skip this on 5.9.0 and up since pseudohashes were removed and a lot of
-# it won't work.
-if( $] >= 5.009 ) {
- print "1..0 # skip pseudo-hashes removed in 5.9.0\n";
- exit;
-}
-
-
-my $w;
-
-BEGIN {
- $SIG{__WARN__} = sub {
- if ($_[0] =~ /^Hides field 'b1' in base class/) {
- $w++;
- }
- else {
- print STDERR $_[0];
- }
- };
-}
-
-use strict;
-use vars qw($DEBUG);
-
-package B1;
-use fields qw(b1 b2 b3);
-
-package B2;
-use fields '_b1';
-use fields qw(b1 _b2 b2);
-
-sub new { bless [], shift }
-
-package D1;
-use base 'B1';
-use fields qw(d1 d2 d3);
-
-package D2;
-use base 'B1';
-use fields qw(_d1 _d2);
-use fields qw(d1 d2);
-
-package D3;
-use base 'B2';
-use fields qw(b1 d1 _b1 _d1); # hide b1
-
-package D4;
-use base 'D3';
-use fields qw(_d3 d3);
-
-package M;
-sub m {}
-
-package D5;
-use base qw(M B2);
-
-package Foo::Bar;
-use base 'B1';
-
-package Foo::Bar::Baz;
-use base 'Foo::Bar';
-use fields qw(foo bar baz);
-
-# Test repeatability for when modules get reloaded.
-package B1;
-use fields qw(b1 b2 b3);
-
-package D3;
-use base 'B2';
-use fields qw(b1 d1 _b1 _d1); # hide b1
-
-package main;
-
-sub fstr {
- local $SIG{__WARN__} = sub {
- return if $_[0] =~ /^Pseudo-hashes are deprecated/
- };
-
- my $h = shift;
- my @tmp;
- for my $k (sort {$h->{$a} <=> $h->{$b}} keys %$h) {
- my $v = $h->{$k};
- push(@tmp, "$k:$v");
- }
- my $str = join(",", @tmp);
- print "$h => $str\n" if $DEBUG;
- $str;
-}
-
-my %expect = (
- B1 => "b1:1,b2:2,b3:3",
- B2 => "_b1:1,b1:2,_b2:3,b2:4",
- D1 => "b1:1,b2:2,b3:3,d1:4,d2:5,d3:6",
- D2 => "b1:1,b2:2,b3:3,_d1:4,_d2:5,d1:6,d2:7",
- D3 => "b2:4,b1:5,d1:6,_b1:7,_d1:8",
- D4 => "b2:4,b1:5,d1:6,_d3:9,d3:10",
- D5 => "b1:2,b2:4",
- 'Foo::Bar::Baz' => 'b1:1,b2:2,b3:3,foo:4,bar:5,baz:6',
-);
-
-print "1..", int(keys %expect)+21, "\n";
-my $testno = 0;
-while (my($class, $exp) = each %expect) {
- no strict 'refs';
- my $fstr = fstr(\%{$class."::FIELDS"});
- print "EXP: $exp\nGOT: $fstr\nnot " unless $fstr eq $exp;
- print "ok ", ++$testno, "\n";
-}
-
-# Did we get the appropriate amount of warnings?
-print "not " unless $w == 1;
-print "ok ", ++$testno, "\n";
-
-# A simple object creation and AVHV attribute access test
-my B2 $obj1 = D3->new;
-$obj1->{b1} = "B2";
-my D3 $obj2 = $obj1;
-$obj2->{b1} = "D3";
-
-print "not " unless $obj1->[2] eq "B2" && $obj1->[5] eq "D3";
-print "ok ", ++$testno, "\n";
-
-# We should get compile time failures field name typos
-eval q(my D3 $obj3 = $obj2; $obj3->{notthere} = "");
-print "not " unless $@ && $@ =~ /^No such pseudo-hash field "notthere"/;
-print "ok ", ++$testno, "\n";
-
-# Slices
-@$obj1{"_b1", "b1"} = (17, 29);
-print "not " unless "@$obj1[1,2]" eq "17 29";
-print "ok ", ++$testno, "\n";
-@$obj1[1,2] = (44,28);
-print "not " unless "@$obj1{'b1','_b1','b1'}" eq "28 44 28";
-print "ok ", ++$testno, "\n";
-
-{
- local $SIG{__WARN__} = sub {
- return if $_[0] =~ /^Pseudo-hashes are deprecated/
- };
-
- my $ph = fields::phash(a => 1, b => 2, c => 3);
- print "not " unless fstr($ph) eq 'a:1,b:2,c:3';
- print "ok ", ++$testno, "\n";
-
- $ph = fields::phash([qw/a b c/], [1, 2, 3]);
- print "not " unless fstr($ph) eq 'a:1,b:2,c:3';
- print "ok ", ++$testno, "\n";
-
- $ph = fields::phash([qw/a b c/], [1]);
- print "not " if exists $ph->{b} or exists $ph->{c} or !exists $ph->{a};
- print "ok ", ++$testno, "\n";
-
- eval '$ph = fields::phash("odd")';
- print "not " unless $@ && $@ =~ /^Odd number of/;
- print "ok ", ++$testno, "\n";
-}
-
-#fields::_dump();
-
-# check if fields autovivify
-{
- package Foo;
- use fields qw(foo bar);
- sub new { bless [], $_[0]; }
-
- package main;
- my Foo $a = Foo->new();
- $a->{foo} = ['a', 'ok ' . ++$testno, 'c'];
- $a->{bar} = { A => 'ok ' . ++$testno };
- print $a->{foo}[1], "\n";
- print $a->{bar}->{A}, "\n";
-}
-
-# check if fields autovivify
-{
- package Bar;
- use fields qw(foo bar);
- sub new { return fields::new($_[0]) }
-
- package main;
- my Bar $a = Bar::->new();
- $a->{foo} = ['a', 'ok ' . ++$testno, 'c'];
- $a->{bar} = { A => 'ok ' . ++$testno };
- print $a->{foo}[1], "\n";
- print $a->{bar}->{A}, "\n";
-}
-
-
-# Test $VERSION bug
-package No::Version;
-
-use vars qw($Foo);
-sub VERSION { 42 }
-
-package Test::Version;
-
-use base qw(No::Version);
-print "# $No::Version::VERSION\nnot " unless $No::Version::VERSION =~ /set by base\.pm/;
-print "ok ", ++$testno ,"\n";
-
-# Test Inverse of $VERSION bug base.pm should not clobber existing $VERSION
-package Has::Version;
-
-BEGIN { $Has::Version::VERSION = '42' };
-
-package Test::Version2;
-
-use base qw(Has::Version);
-print "#$Has::Version::VERSION\nnot " unless $Has::Version::VERSION eq '42';
-print "ok ", ++$testno ," # Has::Version\n";
-
-package main;
-
-my $eval1 = q{
- {
- package Eval1;
- {
- package Eval2;
- use base 'Eval1';
- $Eval2::VERSION = "1.02";
- }
- $Eval1::VERSION = "1.01";
- }
-};
-
-eval $eval1;
-printf "# %s\nnot ", $@ if $@;
-print "ok ", ++$testno ," # eval1\n";
-
-print "# $Eval1::VERSION\nnot " unless $Eval1::VERSION == 1.01;
-print "ok ", ++$testno ," # Eval1::VERSION\n";
-
-print "# $Eval2::VERSION\nnot " unless $Eval2::VERSION == 1.02;
-print "ok ", ++$testno ," # Eval2::VERSION\n";
-
-
-eval q{use base reallyReAlLyNotexists;};
-print "not " unless $@;
-print "ok ", ++$testno, " # really not I\n";
-
-eval q{use base reallyReAlLyNotexists;};
-print "not " unless $@;
-print "ok ", ++$testno, " # really not II\n";
-
-BEGIN { $Has::Version_0::VERSION = 0 }
-
-package Test::Version3;
-
-use base qw(Has::Version_0);
-print "#$Has::Version_0::VERSION\nnot " unless $Has::Version_0::VERSION == 0;
-print "ok ", ++$testno ," # Version_0\n";
-
diff --git a/3.8.8/sources/cpan-base/vendor/t/fields-base.t b/3.8.8/sources/cpan-base/vendor/t/fields-base.t
deleted file mode 100644
index b27f066..0000000
--- a/3.8.8/sources/cpan-base/vendor/t/fields-base.t
+++ /dev/null
@@ -1,292 +0,0 @@
-#!/usr/bin/perl -w
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't' if -d 't';
- @INC = qw(../lib);
- }
-}
-
-my ($Has_PH, $Field);
-BEGIN {
- $Has_PH = $] < 5.009;
- $Field = $Has_PH ? "pseudo-hash field" : "class field";
-}
-
-my $W;
-
-BEGIN {
- $W = 0;
- $SIG{__WARN__} = sub {
- if ($_[0] =~ /^Hides field '.*?' in base class/) {
- $W++;
- }
- else {
- warn $_[0];
- }
- };
-}
-
-use strict;
-use Test::More tests => 29;
-
-BEGIN { use_ok('base'); }
-
-package B1;
-use fields qw(b1 b2 b3);
-
-package B2;
-use fields '_b1';
-use fields qw(b1 _b2 b2);
-
-sub new { fields::new(shift) }
-
-package B3;
-use fields qw(b4 _b5 b6 _b7);
-
-package D1;
-use base 'B1';
-use fields qw(d1 d2 d3);
-
-package D2;
-use base 'B1';
-use fields qw(_d1 _d2);
-use fields qw(d1 d2);
-
-
-package D3;
-use base 'B2';
-use fields qw(b1 d1 _b1 _d1); # hide b1
-
-package D4;
-use base 'D3';
-use fields qw(_d3 d3);
-
-package M;
-sub m {}
-
-package D5;
-use base qw(M B2);
-
-# Test that multiple inheritance fails.
-package D6;
-eval { 'base'->import(qw(B2 M B3)); };
-::like($@, qr/can't multiply inherit fields/i,
- 'No multiple field inheritance');
-
-package Foo::Bar;
-use base 'B1';
-
-package Foo::Bar::Baz;
-use base 'Foo::Bar';
-use fields qw(foo bar baz);
-
-# Test repeatability for when modules get reloaded.
-package B1;
-use fields qw(b1 b2 b3);
-
-package D3;
-use base 'B2';
-use fields qw(b1 d1 _b1 _d1); # hide b1
-
-
-# Test that a package with only private fields gets inherited properly
-package B7;
-use fields qw(_b1);
-
-package D7;
-use base qw(B7);
-use fields qw(b1);
-
-
-# Test that an intermediate package with no fields doesn't cause a problem.
-package B8;
-use fields qw(_b1);
-
-package D8;
-use base qw(B8);
-
-package D8A;
-use base qw(D8);
-use fields qw(b1);
-
-
-package main;
-
-my %EXPECT = (
- B1 => [qw(b1 b2 b3)],
- D1 => [qw(b1 b2 b3 d1 d2 d3)],
- D2 => [qw(b1 b2 b3 _d1 _d2 d1 d2)],
-
- M => [qw()],
- B2 => [qw(_b1 b1 _b2 b2)],
- D3 => [(undef,undef,undef,
- qw(b2 b1 d1 _b1 _d1))], # b1 is hidden
- D4 => [(undef,undef,undef,
- qw(b2 b1 d1),undef,undef,qw(_d3 d3))],
-
- D5 => [undef, 'b1', undef, 'b2'],
-
- B3 => [qw(b4 _b5 b6 _b7)],
-
- B7 => [qw(_b1)],
- D7 => [undef, 'b1'],
-
- B8 => [qw(_b1)],
- D8 => [undef],
- D8A => [undef, 'b1'],
-
- 'Foo::Bar' => [qw(b1 b2 b3)],
- 'Foo::Bar::Baz' => [qw(b1 b2 b3 foo bar baz)],
- );
-
-while(my($class, $efields) = each %EXPECT) {
- no strict 'refs';
- my %fields = %{$class.'::FIELDS'};
- my %expected_fields;
- foreach my $idx (1..@$efields) {
- my $key = $efields->[$idx-1];
- next unless $key;
- $expected_fields{$key} = $idx;
- }
-
- ::is_deeply(\%fields, \%expected_fields, "%FIELDS check: $class");
-}
-
-# Did we get the appropriate amount of warnings?
-is( $W, 1, 'right warnings' );
-
-
-# A simple object creation and attribute access test
-my B2 $obj1 = D3->new;
-$obj1->{b1} = "B2";
-my D3 $obj2 = $obj1;
-$obj2->{b1} = "D3";
-
-# We should get compile time failures field name typos
-eval q(return; my D3 $obj3 = $obj2; $obj3->{notthere} = "");
-like $@,
- qr/^No such $Field "notthere" in variable \$obj3 of type D3/,
- "Compile failure of undeclared fields (helem)";
-
-SKIP: {
- # Slices
- # We should get compile time failures field name typos
- skip "Doesn't work before 5.9", 2 if $] < 5.009;
- eval q(return; my D3 $obj3 = $obj2; my $k; @$obj3{$k,'notthere'} = ());
- like $@,
- qr/^No such $Field "notthere" in variable \$obj3 of type D3/,
- "Compile failure of undeclared fields (hslice)";
- eval q(return; my D3 $obj3 = $obj2; my $k; @{$obj3}{$k,'notthere'} = ());
- like
- $@, qr/^No such $Field "notthere" in variable \$obj3 of type D3/,
- "Compile failure of undeclared fields (hslice (block form))";
-}
-
-@$obj1{"_b1", "b1"} = (17, 29);
-is( $obj1->{_b1}, 17 );
-is( $obj1->{b1}, 29 );
-
-@$obj1{'_b1', 'b1'} = (44,28);
-is( $obj1->{_b1}, 44 );
-is( $obj1->{b1}, 28 );
-
-
-
-# Break multiple inheritance with a field name clash.
-package E1;
-use fields qw(yo this _lah meep 42);
-
-package E2;
-use fields qw(_yo ahhh this);
-
-eval {
- package Broken;
-
- # The error must occur at run time for the eval to catch it.
- require base;
- 'base'->import(qw(E1 E2));
-};
-::like( $@, qr/Can't multiply inherit fields/i, 'Again, no multi inherit' );
-
-
-# Test that a package with no fields can inherit from a package with
-# fields, and that pseudohash messages don't show up
-
-package B9;
-use fields qw(b1);
-
-sub _mk_obj { fields::new($_[0])->{'b1'} };
-
-package D9;
-use base qw(B9);
-
-package main;
-
-{
- my $w = 0;
- local $SIG{__WARN__} = sub { $w++ };
-
- B9->_mk_obj();
- # used tp emit a warning that pseudohashes are deprecated, because
- # %FIELDS wasn't blessed.
- D9->_mk_obj();
-
- is ($w, 0, "pseudohash warnings in derived class with no fields of it's own");
-}
-
-# [perl #31078] an intermediate class with no additional fields caused
-# hidden fields in base class to get stomped on
-
-{
- package X;
- use fields qw(X1 _X2);
- sub new {
- my X $self = shift;
- $self = fields::new($self) unless ref $self;
- $self->{X1} = "x1";
- # FIXME. This code is dead on blead becase the test is skipped.
- # The test states that it's being skipped because restricted hashes
- # don't support a feature. Presumably we need to make that feature
- # supported. Bah.
- # use Devel::Peek; Dump($self);
- $self->{_X2} = "_x2";
- return $self;
- }
- sub get_X2 { my X $self = shift; $self->{_X2} }
-
- package Y;
- use base qw(X);
-
- sub new {
- my Y $self = shift;
- $self = fields::new($self) unless ref $self;
- $self->SUPER::new();
- return $self;
- }
-
-
- package Z;
- use base qw(Y);
- use fields qw(Z1);
-
- sub new {
- my Z $self = shift;
- $self = fields::new($self) unless ref $self;
- $self->SUPER::new();
- $self->{Z1} = 'z1';
- return $self;
- }
-
- package main;
-
- if ($Has_PH) {
- my Z $c = Z->new();
- is($c->get_X2, '_x2', "empty intermediate class");
- }
- else {
- SKIP: {
- skip "restricted hashes don't support private fields properly", 1;
- }
- }
-}
diff --git a/3.8.8/sources/cpan-base/vendor/t/warnings.t b/3.8.8/sources/cpan-base/vendor/t/warnings.t
deleted file mode 100644
index 631cc37..0000000
--- a/3.8.8/sources/cpan-base/vendor/t/warnings.t
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/perl -w
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't' if -d 't';
- @INC = qw(../lib);
- }
-}
-
-use strict;
-
-use Test::More tests => 1;
-
-my $warnings;
-BEGIN {
- $SIG{__WARN__} = sub { $warnings = join '', @_ };
-}
-
-{
- package Foo;
- use fields qw(thing);
-}
-
-{
- package Bar;
- use fields qw(stuff);
- use base qw(Foo);
-}
-
-::like $warnings,
- '/^Bar is inheriting from Foo but already has its own fields!/',
- 'Inheriting from a base with protected fields warns';
diff --git a/3.8.8/sources/cpan-capitalization/vendor/Changes b/3.8.8/sources/cpan-capitalization/vendor/Changes
deleted file mode 100644
index ad4120c..0000000
--- a/3.8.8/sources/cpan-capitalization/vendor/Changes
+++ /dev/null
@@ -1,12 +0,0 @@
-Revision history for Perl extension capitalization
-
-0.03 Fri May 6 03:02:10 JST 2005
- * Added support for ALUPPERCASE methods and documentation
- (Thanks to Ruslan U. Zakirov)
-
-0.02 Fri May 6 01:08:10 JST 2005
- - Now _Bar() is callable by _bar()
- (Thanks to Ruslan U. Zakirov)
-
-0.01 Thu Feb 7 07:28:31 2002
- - original version
diff --git a/3.8.8/sources/cpan-capitalization/vendor/MANIFEST b/3.8.8/sources/cpan-capitalization/vendor/MANIFEST
deleted file mode 100644
index 1281335..0000000
--- a/3.8.8/sources/cpan-capitalization/vendor/MANIFEST
+++ /dev/null
@@ -1,8 +0,0 @@
-Changes
-MANIFEST
-Makefile.PL
-capitalization.pm
-t/00_compile.t
-t/01_capital.t
-t/lib/Module/LikeJava.pm
-META.yml Module meta-data (added by MakeMaker)
diff --git a/3.8.8/sources/cpan-capitalization/vendor/t/00_compile.t b/3.8.8/sources/cpan-capitalization/vendor/t/00_compile.t
deleted file mode 100644
index cfb21ae..0000000
--- a/3.8.8/sources/cpan-capitalization/vendor/t/00_compile.t
+++ /dev/null
@@ -1,5 +0,0 @@
-use strict;
-use Test::More tests => 1;
-
-require_ok 'capitalization';
-
diff --git a/3.8.8/sources/cpan-capitalization/vendor/t/lib/Module/LikeJava.pm b/3.8.8/sources/cpan-capitalization/vendor/t/lib/Module/LikeJava.pm
deleted file mode 100644
index df7e77d..0000000
--- a/3.8.8/sources/cpan-capitalization/vendor/t/lib/Module/LikeJava.pm
+++ /dev/null
@@ -1,16 +0,0 @@
-package Module::LikeJava;
-use strict;
-
-sub new { bless {}, shift }
-
-sub fooAndBar { }
-
-sub BarAndBAZ { }
-
-sub _Bar { }
-
-sub FOO { }
-
-sub FOObar { }
-
-1;
diff --git a/3.8.8/sources/cpan-constant/vendor/eg/synopsis.pl b/3.8.8/sources/cpan-constant/vendor/eg/synopsis.pl
deleted file mode 100644
index 10a0ac6..0000000
--- a/3.8.8/sources/cpan-constant/vendor/eg/synopsis.pl
+++ /dev/null
@@ -1,28 +0,0 @@
-#!/usr/bin/perl
-#
-# Straight from the synopsis.
-#
-use strict;
-
-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";
diff --git a/3.8.8/sources/cpan-constant/vendor/lib/constant.pm b/3.8.8/sources/cpan-constant/vendor/lib/constant.pm
deleted file mode 100644
index a51ee7f..0000000
--- a/3.8.8/sources/cpan-constant/vendor/lib/constant.pm
+++ /dev/null
@@ -1,392 +0,0 @@
-package constant;
-use 5.005;
-use strict;
-use warnings::register;
-
-use vars qw($VERSION %declared);
-$VERSION = '1.19';
-
-#=======================================================================
-
-# 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 $str_end = $] >= 5.006 ? "\\z" : "\\Z";
-my $normal_constant_name = qr/^_?[^\W_0-9]\w*$str_end/;
-my $tolerable = qr/^[A-Za-z_]\w*$str_end/;
-my $boolean = qr/^[01]?$str_end/;
-
-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 1 run time check for *every* call to import.
- no strict 'refs';
- my $const = $] > 5.009002;
- *_CAN_PCS = sub () {$const};
-}
-
-#=======================================================================
-# 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 $pkg = caller;
- my $flush_mro;
- my $symtab;
-
- if (_CAN_PCS) {
- no strict 'refs';
- $symtab = \%{$pkg . '::'};
- };
-
- if ( $multiple ) {
- if (ref $_[0] ne 'HASH') {
- require Carp;
- Carp::croak("Invalid reference type '".ref(shift)."' not 'HASH'");
- }
- $constants = shift;
- } else {
- $constants->{+shift} = undef;
- }
-
- foreach my $name ( keys %$constants ) {
- unless (defined $name) {
- require Carp;
- Carp::croak("Can't use undef as constant name");
- }
-
- # 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->{$name} : $_[0];
- # The constant serves to optimise this entire block out on
- # 5.8 and earlier.
- if (_CAN_PCS && $symtab && !exists $symtab->{$name}) {
- # No typeglob yet, so we can use a reference as space-
- # efficient proxy for a constant subroutine
- # 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);
- $symtab->{$name} = \$scalar;
- ++$flush_mro;
- } else {
- *$full_name = sub () { $scalar };
- }
- } elsif (@_) {
- my @list = @_;
- *$full_name = sub () { @list };
- } else {
- *$full_name = sub () { };
- }
- }
- }
- # Flush the cache exactly once if we make any direct symbol table changes.
- mro::method_changed_in($pkg) if _CAN_PCS && $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];
-
-Dereferencing constant references incorrectly (such as using an array
-subscript on a constant hash reference, or vice versa) will be trapped at
-compile time.
-
-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.
-
-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
-
-In the current version of Perl, list constants are not inlined
-and some symbols may be redefined without generating a warning.
-
-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<Const> - Facility for creating read-only variables. Similar to C<Readonly>,
-but uses C<SvREADONLY> instead of C<tie>.
-
-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 at redcat.com>E<gt>, with help from
-many other folks.
-
-Multiple constant declarations at once added by Casey West,
-E<lt>F<casey at geeknest.com>E<gt>.
-
-Documentation mostly rewritten by Ilmari Karonen,
-E<lt>F<perl at 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 at 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/3.8.8/sources/cpan-constant/vendor/t/00-load.t b/3.8.8/sources/cpan-constant/vendor/t/00-load.t
deleted file mode 100644
index a07149d..0000000
--- a/3.8.8/sources/cpan-constant/vendor/t/00-load.t
+++ /dev/null
@@ -1,9 +0,0 @@
-#!perl -T
-
-use Test::More tests => 1;
-
-BEGIN {
- use_ok( 'constant' );
-}
-
-diag( "Testing constant $constant::VERSION, Perl $], $^X" );
diff --git a/3.8.8/sources/cpan-constant/vendor/t/constant.t b/3.8.8/sources/cpan-constant/vendor/t/constant.t
deleted file mode 100644
index fcbdfc7..0000000
--- a/3.8.8/sources/cpan-constant/vendor/t/constant.t
+++ /dev/null
@@ -1,379 +0,0 @@
-#!./perl -T
-
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = '../lib';
- }
-}
-
-use warnings;
-use vars qw{ @warnings $fagwoosh $putt $kloong};
-BEGIN { # ...and save 'em for later
- $SIG{'__WARN__'} = sub { push @warnings, @_ }
-}
-END { @warnings && print STDERR join "\n- ", "accumulated warnings:", @warnings }
-
-
-use strict;
-use Test::More tests => 101;
-my $TB = Test::More->builder;
-
-my $no_pseudohashes;
-$no_pseudohashes = "pseudohash related test" unless $] < 5.010;
-
-BEGIN { use_ok('constant'); }
-
-use constant PI => 4 * atan2 1, 1;
-
-ok defined PI, 'basic scalar constant';
-is substr(PI, 0, 7), '3.14159', ' in substr()';
-
-sub deg2rad { PI * $_[0] / 180 }
-
-my $ninety = deg2rad 90;
-
-cmp_ok abs($ninety - 1.5707), '<', 0.0001, ' in math expression';
-
-use constant UNDEF1 => undef; # the right way
-use constant UNDEF2 => ; # the weird way
-use constant 'UNDEF3' ; # the 'short' way
-use constant EMPTY => ( ) ; # the right way for lists
-
-is UNDEF1, undef, 'right way to declare an undef';
-is UNDEF2, undef, ' weird way';
-is UNDEF3, undef, ' short way';
-
-# XXX Why is this way different than the other ones?
-my @undef = UNDEF1;
-is @undef, 1;
-is $undef[0], undef;
-
- at undef = UNDEF2;
-is @undef, 0;
- at undef = UNDEF3;
-is @undef, 0;
- at undef = EMPTY;
-is @undef, 0;
-
-use constant COUNTDOWN => scalar reverse 1, 2, 3, 4, 5;
-use constant COUNTLIST => reverse 1, 2, 3, 4, 5;
-use constant COUNTLAST => (COUNTLIST)[-1];
-
-is COUNTDOWN, '54321';
-my @cl = COUNTLIST;
-is @cl, 5;
-is COUNTDOWN, join '', @cl;
-is COUNTLAST, 1;
-is((COUNTLIST)[1], 4);
-
-use constant ABC => 'ABC';
-is "abc${\( ABC )}abc", "abcABCabc";
-
-use constant DEF => 'D', 'E', chr ord 'F';
-is "d e f @{[ DEF ]} d e f", "d e f D E F d e f";
-
-use constant SINGLE => "'";
-use constant DOUBLE => '"';
-use constant BACK => '\\';
-my $tt = BACK . SINGLE . DOUBLE ;
-is $tt, q(\\'");
-
-use constant MESS => q('"'\\"'"\\);
-is MESS, q('"'\\"'"\\);
-is length(MESS), 8;
-
-use constant LEADING => " \t1234";
-cmp_ok LEADING, '==', 1234;
-is LEADING, " \t1234";
-
-use constant ZERO1 => 0;
-use constant ZERO2 => 0.0;
-use constant ZERO3 => '0.0';
-is ZERO1, '0';
-is ZERO2, '0';
-is ZERO3, '0.0';
-
-{
- package Other;
- use constant PI => 3.141;
-}
-
-cmp_ok(abs(PI - 3.1416), '<', 0.0001);
-is Other::PI, 3.141;
-
-use constant E2BIG => $! = 7;
-cmp_ok E2BIG, '==', 7;
-# This is something like "Arg list too long", but the actual message
-# text may vary, so we can't test much better than this.
-cmp_ok length(E2BIG), '>', 6;
-
-is @warnings, 0 or diag join "\n- ", "unexpected warning:", @warnings;
- at warnings = (); # just in case
-undef &PI;
-ok @warnings && ($warnings[0] =~ /Constant sub.* undefined/) or
- diag join "\n", "unexpected warning", @warnings;
-shift @warnings;
-
-is @warnings, 0, "unexpected warning";
-
-my $curr_test = $TB->current_test;
-use constant CSCALAR => \"ok 35\n";
-use constant CHASH => { foo => "ok 36\n" };
-use constant CARRAY => [ undef, "ok 37\n" ];
-use constant CPHASH => [ { foo => 1 }, "ok 38\n" ];
-use constant CCODE => sub { "ok $_[0]\n" };
-
-my $output = $TB->output ;
-print $output ${+CSCALAR};
-print $output CHASH->{foo};
-print $output CARRAY->[1];
-
-$TB->current_test($curr_test+3);
-
-SKIP: {
- skip $no_pseudohashes, 1 if $no_pseudohashes;
- # You can't even think about this post 5.8.x. Well, you can. But you get
- # Constant is not a HASH reference at ...
- eval 'print $output CPHASH->{foo}; 1' or die $@;
-}
-print $output CCODE->($curr_test+5);
-
-$TB->current_test($curr_test+5);
-
-SKIP: {
- skip $no_pseudohashes, 1 if $no_pseudohashes;
- skip "doesn't work on 5.5.x", 1 if $[ < 5.006;
- eval q{ CPHASH->{bar} };
- like $@, qr/^No such pseudo-hash field/, "test missing pseudo-hash field";
-}
-
-eval q{ CCODE->{foo} };
-ok scalar($@ =~ /^Constant is not a HASH/);
-
-
-# Allow leading underscore
-use constant _PRIVATE => 47;
-is _PRIVATE, 47;
-
-# Disallow doubled leading underscore
-eval q{
- use constant __DISALLOWED => "Oops";
-};
-like $@, qr/begins with '__'/;
-
-# Check on declared() and %declared. This sub should be EXACTLY the
-# same as the one quoted in the docs!
-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};
-}
-
-ok declared 'PI';
-ok $constant::declared{'main::PI'};
-
-ok !declared 'PIE';
-ok !$constant::declared{'main::PIE'};
-
-{
- package Other;
- use constant IN_OTHER_PACK => 42;
- ::ok ::declared 'IN_OTHER_PACK';
- ::ok $constant::declared{'Other::IN_OTHER_PACK'};
- ::ok ::declared 'main::PI';
- ::ok $constant::declared{'main::PI'};
-}
-
-ok declared 'Other::IN_OTHER_PACK';
-ok $constant::declared{'Other::IN_OTHER_PACK'};
-
- at warnings = ();
-eval q{
- no warnings;
- #local $^W if $] < 5.006;
- use warnings 'constant';
- use constant 'BEGIN' => 1 ;
- use constant 'INIT' => 1 ;
- use constant 'CHECK' => 1 ;
- use constant 'END' => 1 ;
- use constant 'DESTROY' => 1 ;
- use constant 'AUTOLOAD' => 1 ;
- use constant 'STDIN' => 1 ;
- use constant 'STDOUT' => 1 ;
- use constant 'STDERR' => 1 ;
- use constant 'ARGV' => 1 ;
- use constant 'ARGVOUT' => 1 ;
- use constant 'ENV' => 1 ;
- use constant 'INC' => 1 ;
- use constant 'SIG' => 1 ;
- use constant 'UNITCHECK' => 1;
-};
-
-my @Expected_Warnings =
- (
- qr/^Constant name 'BEGIN' is a Perl keyword at/,
- qr/^Constant subroutine BEGIN redefined at/,
- qr/^Constant name 'INIT' is a Perl keyword at/,
- qr/^Constant name 'CHECK' is a Perl keyword at/,
- qr/^Constant name 'END' is a Perl keyword at/,
- qr/^Constant name 'DESTROY' is a Perl keyword at/,
- qr/^Constant name 'AUTOLOAD' is a Perl keyword at/,
- qr/^Constant name 'STDIN' is forced into package main:: a/,
- qr/^Constant name 'STDOUT' is forced into package main:: at/,
- qr/^Constant name 'STDERR' is forced into package main:: at/,
- qr/^Constant name 'ARGV' is forced into package main:: at/,
- qr/^Constant name 'ARGVOUT' is forced into package main:: at/,
- qr/^Constant name 'ENV' is forced into package main:: at/,
- qr/^Constant name 'INC' is forced into package main:: at/,
- qr/^Constant name 'SIG' is forced into package main:: at/,
- qr/^Constant name 'UNITCHECK' is a Perl keyword at/,
-);
-
-unless ($] > 5.009) {
- # Remove the UNITCHECK warning
- pop @Expected_Warnings;
- # But keep the count the same
- push @Expected_Warnings, qr/^$/;
- push @warnings, "";
-}
-
-# when run under "make test"
-if (@warnings == 16) {
- push @warnings, "";
- push @Expected_Warnings, qr/^$/;
-}
-# when run directly: perl -wT -Ilib t/constant.t
-elsif (@warnings == 17) {
- splice @Expected_Warnings, 1, 0,
- qr/^Prototype mismatch: sub main::BEGIN \(\) vs none at/;
-}
-# when run directly under 5.6.2: perl -wT -Ilib t/constant.t
-elsif (@warnings == 15) {
- splice @Expected_Warnings, 1, 1;
- push @warnings, "", "";
- push @Expected_Warnings, qr/^$/, qr/^$/;
-}
-else {
- my $rule = " -" x 20;
- diag "/!\\ unexpected case: ", scalar @warnings, " warnings\n$rule\n";
- diag map { " $_" } @warnings;
- diag $rule, $/;
-}
-
-is @warnings, 17;
-
-for my $idx (0..$#warnings) {
- like $warnings[$idx], $Expected_Warnings[$idx];
-}
-
- at warnings = ();
-
-
-use constant {
- THREE => 3,
- FAMILY => [ qw( John Jane Sally ) ],
- AGES => { John => 33, Jane => 28, Sally => 3 },
- RFAM => [ [ qw( John Jane Sally ) ] ],
- SPIT => sub { shift },
- PHFAM => [ { John => 1, Jane => 2, Sally => 3 }, 33, 28, 3 ],
-};
-
-is @{+FAMILY}, THREE;
-is @{+FAMILY}, @{RFAM->[0]};
-is FAMILY->[2], RFAM->[0]->[2];
-is AGES->{FAMILY->[1]}, 28;
-SKIP: {
- skip $no_pseudohashes, 4 if $no_pseudohashes;
- eval "no warnings 'deprecated'; is PHFAM->{John}, AGES->{John}; 1"
- or die $@;
- is PHFAM->[3], AGES->{FAMILY->[2]};
- is @{+PHFAM}, SPIT->(THREE+1);
- is AGES->{FAMILY->[THREE-1]}, PHFAM->[THREE];
-}
-is THREE**3, SPIT->(@{+FAMILY}**3);
-
-# Allow name of digits/underscores only if it begins with underscore
-{
- use warnings FATAL => 'constant';
- eval q{
- use constant _1_2_3 => 'allowed';
- };
- ok( $@ eq '' );
-}
-
-sub slotch ();
-
-{
- my @warnings;
- local $SIG{'__WARN__'} = sub { push @warnings, @_ };
- eval 'use constant slotch => 3; 1' or die $@;
-
- is ("@warnings", "", "No warnings if a prototype exists");
-
- my $value = eval 'slotch';
- is ($@, '');
- is ($value, 3);
-}
-
-sub zit;
-
-{
- my @warnings;
- local $SIG{'__WARN__'} = sub { push @warnings, @_ };
- eval 'use constant zit => 4; 1' or die $@;
-
- # empty prototypes are reported differently in different versions
- my $no_proto = $] < 5.008004 ? "" : ": none";
-
- is(scalar @warnings, 1, "1 warning");
- like ($warnings[0], qr/^Prototype mismatch: sub main::zit$no_proto vs \(\)/,
- "about the prototype mismatch");
-
- my $value = eval 'zit';
- is ($@, '');
- is ($value, 4);
-}
-
-$fagwoosh = 'geronimo';
-$putt = 'leutwein';
-$kloong = 'schlozhauer';
-
-{
- my @warnings;
- local $SIG{'__WARN__'} = sub { push @warnings, @_ };
- eval 'use constant fagwoosh => 5; 1' or die $@;
-
- is ("@warnings", "", "No warnings if the typeglob exists already");
-
- my $value = eval 'fagwoosh';
- is ($@, '');
- is ($value, 5);
-
- my @value = eval 'fagwoosh';
- is ($@, '');
- is_deeply (\@value, [5]);
-
- eval 'use constant putt => 6, 7; 1' or die $@;
-
- is ("@warnings", "", "No warnings if the typeglob exists already");
-
- @value = eval 'putt';
- is ($@, '');
- is_deeply (\@value, [6, 7]);
-
- eval 'use constant "klong"; 1' or die $@;
-
- is ("@warnings", "", "No warnings if the typeglob exists already");
-
- $value = eval 'klong';
- is ($@, '');
- is ($value, undef);
-
- @value = eval 'klong';
- is ($@, '');
- is_deeply (\@value, []);
-}
diff --git a/3.8.8/sources/cpan-constant/vendor/t/more-tests.t b/3.8.8/sources/cpan-constant/vendor/t/more-tests.t
deleted file mode 100644
index 111b550..0000000
--- a/3.8.8/sources/cpan-constant/vendor/t/more-tests.t
+++ /dev/null
@@ -1,62 +0,0 @@
-#!./perl -T
-
-BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- @INC = '../lib';
- }
-}
-
-use strict;
-use warnings;
-use vars qw{ @warnings };
-use Test::More;
-
-BEGIN {
- plan skip_all => "Author tests" unless $ENV{AUTHOR_MODE};
- plan tests => 4;
-}
-
-BEGIN { # ...and save 'em for later
- $SIG{'__WARN__'} = sub { push @warnings, @_ }
-}
-END { @warnings && print STDERR join "\n- ", "unexpected warnings:", @warnings }
-
-
-my $TB = Test::More->builder;
-
-BEGIN { use_ok('constant'); }
-
-
-# The original test code was:
-#
-# use constant TRAILING => '12 cats';
-# {
-# no warnings "numeric";
-# cmp_ok TRAILING, '==', 12;
-# }
-#
-# It worked fine during a long time (at least for some value of "work"),
-# until the combination of two independant modifications. First, Sebastien
-# Aperghis-Tramoni replaced the C< no warnings "numeric" > with a
-# C< local $^W > when constant.pm was dual-lifed and ported back to 5.005
-# (see change 31963).
-#
-# It still worked fine, but then Michael Schwern improved Test::Builder in
-# version 0.82 by turning warnings on. This broke this test by generating
-# a warning. The test was fixed, but Michael wondered if the test was
-# really appropriate, given it was more testing Perl itself than constant.pm.
-# Sebastien asked P5P for advice: Nicholas Clark and Andy Dougherty were
-# in favour of removing it. So it was moved from t/constant.t to this file,
-# in order to keep it while preventing it from being a problem.
-#
-use constant TRAILING => '12 cats';
-{
- no warnings "numeric";
- ok( TRAILING == 12 ) or diag sprintf "'%s' == 12", TRAILING;
- @warnings = () if $] <= 5.006; # we can't hide this warning under 5.005
-}
-is TRAILING, '12 cats';
-
-
-is @warnings, 0 or diag join "\n- ", "unexpected warning", @warnings;
diff --git a/3.8.8/sources/cpan-constant/vendor/t/pod-coverage.t b/3.8.8/sources/cpan-constant/vendor/t/pod-coverage.t
deleted file mode 100644
index 703f91d..0000000
--- a/3.8.8/sources/cpan-constant/vendor/t/pod-coverage.t
+++ /dev/null
@@ -1,6 +0,0 @@
-#!perl -T
-
-use Test::More;
-eval "use Test::Pod::Coverage 1.04";
-plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
-all_pod_coverage_ok();
diff --git a/3.8.8/sources/cpan-libnet/vendor/META.yml b/3.8.8/sources/cpan-libnet/vendor/META.yml
deleted file mode 100644
index 63e381b..0000000
--- a/3.8.8/sources/cpan-libnet/vendor/META.yml
+++ /dev/null
@@ -1,12 +0,0 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: libnet
-version: 1.22
-version_from:
-installdirs: perl
-requires:
- IO::Socket: 1.05
- Socket: 1.3
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30
diff --git a/3.8.8/sources/cpan-libnet/vendor/Makefile.PL b/3.8.8/sources/cpan-libnet/vendor/Makefile.PL
deleted file mode 100644
index a329167..0000000
--- a/3.8.8/sources/cpan-libnet/vendor/Makefile.PL
+++ /dev/null
@@ -1,111 +0,0 @@
-# This -*- perl -*- script makes the Makefile
-
-#--- Distribution section ---
-
-$NAME = 'Net';
-$DISTNAME = "libnet";
-$VERSION = "1.22";
-
-BEGIN { require 5.002 }
-
-use ExtUtils::MakeMaker;
-use ExtUtils::Manifest qw(maniread);
-
-#--- Installation check
-
-sub chk_version
-{
- my($pkg,$wanted,$msg) = @_;
-
- local($|) = 1;
- print "Checking for $pkg...";
-
- eval { my $p; ($p = $pkg . ".pm") =~ s#::#/#g; require $p; };
-
- my $vstr = ${"${pkg}::VERSION"} ? "found v" . ${"${pkg}::VERSION"}
- : "not found";
- my $vnum = ${"${pkg}::VERSION"} || 0;
-
- print $vnum >= $wanted ? "ok\n" : " " . $vstr . "\n";
-
- $vnum >= $wanted;
-}
-
-sub MY::post_initialize
-{
- my ($self) = @_;
-
- #--- Create Net::Config
-
- my $config_pm = "Net/libnet.cfg";
- my $libnet_cfg = "libnet.cfg";
-
- # Use %INC and ExtUtils::MakeMaker to determine how this machine
- # maps package names to path names
-
- foreach (keys %INC) {
- last if ($config_pm = $_) =~ s/^ExtUtils(.)MakeMaker.pm/Net${1}libnet.cfg/;
- }
-
- system(($^O eq 'VMS' ? 'mcr ': ()),$^X, 'Configure')
- unless -f $libnet_cfg;
-
- $self->{PM}->{$libnet_cfg} = $self->catfile('$(INST_LIBDIR)',$config_pm);
-
- "";
-}
-
-#--- Check for Socket
-
-chk_version(Socket => '1.30') or
- warn "\n"
- . "*** For Net::Cmd to work you require version 1.30, or later, of\n"
- . " Socket.pm from CPAN/modules/by-module/Socket/Socket-x.x.tar.gz\n\n";
-
-chk_version(IO::Socket => '1.05') or
- warn "\n"
- . "*** For Net::Cmd to work you require version 1.05, or later, of\n"
- . " IO/Socket.pm from CPAN/modules/by-module/IO/IO-x.x.tar.gz\n\n";
-
-if ($^O eq 'os390')
-{
- chk_version(Convert::EBCDIC => '0.06') or
- warn "\n"
- . "*** For Net::Cmd to work on $^O version 0.06, or later, of\n"
- . " Convert::EBCDIC is required, which can be found at"
- . " CPAN/modules/by-module/Convert/Convert-EBCDIC-x.x.tar.gz\n\n";
-}
-
-#--- Write the Makefile
-
-my @ppd;
-
-if ($] >= 5.00503) {
- @ppd = (
- AUTHOR => 'Graham Barr <gbarr at pobox.com>',
- ABSTRACT => 'Collection of Network protocol modules',
- );
-}
-
-WriteMakefile(
- INSTALLDIRS => ($] >= 5.008 ? 'perl' : 'site'),
- VERSION => $VERSION,
- DISTNAME => $DISTNAME,
- NAME => $NAME,
- 'realclean' => {FILES => $config_pm},
- PREREQ_PM => {
- Socket => 1.3,
- IO::Socket => 1.05
- },
- dist => { DIST_DEFAULT => 'mydist', },
- @ppd,
-);
-
-sub MY::postamble {
- return <<'POSTAMBLE';
-
-mydist : distmeta distsignature tardist
-
-POSTAMBLE
-
-}
diff --git a/3.8.8/sources/cpan-libnet/vendor/Net/FTP/E.pm b/3.8.8/sources/cpan-libnet/vendor/Net/FTP/E.pm
deleted file mode 100644
index d480cd7..0000000
--- a/3.8.8/sources/cpan-libnet/vendor/Net/FTP/E.pm
+++ /dev/null
@@ -1,8 +0,0 @@
-package Net::FTP::E;
-
-require Net::FTP::I;
-
- at ISA = qw(Net::FTP::I);
-$VERSION = "0.01";
-
-1;
diff --git a/3.8.8/sources/cpan-libnet/vendor/Net/FTP/I.pm b/3.8.8/sources/cpan-libnet/vendor/Net/FTP/I.pm
deleted file mode 100644
index 449bb99..0000000
--- a/3.8.8/sources/cpan-libnet/vendor/Net/FTP/I.pm
+++ /dev/null
@@ -1,80 +0,0 @@
-##
-## Package to read/write on BINARY data connections
-##
-
-package Net::FTP::I;
-
-use vars qw(@ISA $buf $VERSION);
-use Carp;
-
-require Net::FTP::dataconn;
-
- at ISA = qw(Net::FTP::dataconn);
-$VERSION = "1.12";
-
-
-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 undef 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 undef unless defined($n);
- $sent -= $n;
- $off += $n;
- }
-
- $size;
-}
-
-1;
diff --git a/3.8.8/sources/cpan-libnet/vendor/Net/FTP/L.pm b/3.8.8/sources/cpan-libnet/vendor/Net/FTP/L.pm
deleted file mode 100644
index f7423cb..0000000
--- a/3.8.8/sources/cpan-libnet/vendor/Net/FTP/L.pm
+++ /dev/null
@@ -1,8 +0,0 @@
-package Net::FTP::L;
-
-require Net::FTP::I;
-
- at ISA = qw(Net::FTP::I);
-$VERSION = "0.01";
-
-1;
diff --git a/3.8.8/sources/cpan-libnet/vendor/Net/FTP/dataconn.pm b/3.8.8/sources/cpan-libnet/vendor/Net/FTP/dataconn.pm
deleted file mode 100644
index e7645cb..0000000
--- a/3.8.8/sources/cpan-libnet/vendor/Net/FTP/dataconn.pm
+++ /dev/null
@@ -1,124 +0,0 @@
-##
-## Generic data connection package
-##
-
-package Net::FTP::dataconn;
-
-use Carp;
-use vars qw(@ISA $timeout $VERSION);
-use Net::Cmd;
-use Errno;
-
-$VERSION = '0.11';
- at ISA = qw(IO::Socket::INET);
-
-
-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 continously 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 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;
- $data->read($junk, 1, 0);
- return $data->abort unless ${*$data}{'net_ftp_eof'};
- }
-
- $data->_close;
-
- $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;
diff --git a/3.8.8/sources/cpan-libnet/vendor/Net/Time.pm b/3.8.8/sources/cpan-libnet/vendor/Net/Time.pm
deleted file mode 100644
index 6f1dd04..0000000
--- a/3.8.8/sources/cpan-libnet/vendor/Net/Time.pm
+++ /dev/null
@@ -1,151 +0,0 @@
-# Net::Time.pm
-#
-# Copyright (c) 1995-2004 Graham Barr <gbarr at 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 Net::Time;
-
-use strict;
-use vars qw($VERSION @ISA @EXPORT_OK $TIMEOUT);
-use Carp;
-use IO::Socket;
-require Exporter;
-use Net::Config;
-use IO::Select;
-
- at ISA = qw(Exporter);
- at EXPORT_OK = qw(inet_time inet_daytime);
-
-$VERSION = "2.10";
-
-$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 $host (@$hosts) {
- $me = IO::Socket::INET->new(
- PeerAddr => $host,
- 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 undef;
- my $buf = '';
- my $offset = 0 | 0;
-
- return undef
- 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 undef;
- 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 <gbarr at pobox.com>
-
-=head1 COPYRIGHT
-
-Copyright (c) 1995-2004 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
diff --git a/3.8.8/sources/cpan-libnet/vendor/SIGNATURE b/3.8.8/sources/cpan-libnet/vendor/SIGNATURE
deleted file mode 100644
index 6de206d..0000000
--- a/3.8.8/sources/cpan-libnet/vendor/SIGNATURE
+++ /dev/null
@@ -1,63 +0,0 @@
-This file contains message digests of all files listed in MANIFEST,
-signed via the Module::Signature module, version 0.55.
-
-To verify the content in this distribution, first make sure you have
-Module::Signature installed, then type:
-
- % cpansign -v
-
-It will check each file's integrity, as well as the signature's
-validity. If "==> Signature verified OK! <==" is not displayed,
-the distribution may already have been compromised, and you should
-not run its Makefile.PL or Build.PL.
-
------BEGIN PGP SIGNED MESSAGE-----
-Hash: SHA1
-
-SHA1 d8e0dd846b40f1b09e298c5d44a22ade211c8011 Changes
-SHA1 aa2deb570eb29d3e3676d7fec1eb68b697847e9a Config.eg
-SHA1 d200cb2049fec51da7ffd76409fe41706f7f9da3 Configure
-SHA1 e490bc603683c765c2cb29c029b6de894e8e5bd8 Hostname.pm.eg
-SHA1 9230730466bceb883d96083e7a3f8e6aad37fa17 MANIFEST
-SHA1 c45670ecd2314ee1980cde95144eaa1dd1b567e4 META.yml
-SHA1 fe6b09145e72a6b61a08d3e59792bc9d52417734 Makefile.PL
-SHA1 92e136ee7ab2fa97bdfe5804301120411e900274 Net/Cmd.pm
-SHA1 8ef9de24e13d9fdc6ee1029d7815e250fd80ce9b Net/Config.pm
-SHA1 eb452ad6695497dda51606ac1959c5e8073089ef Net/Domain.pm
-SHA1 924be5d71f73a48617b89772f6dffd83ed8f8a77 Net/FTP.pm
-SHA1 cc7efb1335d6b2bb3f8917fbdb9d17ea6e146db6 Net/FTP/A.pm
-SHA1 75a5625dd1eec2ed70c35e11c98eb55192dbf130 Net/FTP/E.pm
-SHA1 37e567edbc8bf3cce8a4bfc0c99f6469f39d456a Net/FTP/I.pm
-SHA1 39b68fe77fddc5923bc3d764042c1e5e3fed33a9 Net/FTP/L.pm
-SHA1 73802fa5de0fba55772a502fb31c3dda4628b42a Net/FTP/dataconn.pm
-SHA1 d0fc5c4b11417e06f75f4b874f7f05b2d91bc4d2 Net/NNTP.pm
-SHA1 ef0c14c88c187a8b2b19217c2a8b5086e95d2da7 Net/Netrc.pm
-SHA1 79cb5d72b8580dba869253d9616b48b631761f91 Net/POP3.pm
-SHA1 f5f056392ea67636f64064851154ec4fcd37cd0a Net/SMTP.pm
-SHA1 95b464ed43b2b5e546ad5e247dd962a24ab98235 Net/Time.pm
-SHA1 5cec3a07e2eb2a61e44471207422cf6c0c60efc8 Net/libnetFAQ.pod
-SHA1 467750f6452232f94b8d6b223e2e19b65d7ac87d README
-SHA1 f3053100bc18fd85c7500e8aa15e356581580724 demos/ftp
-SHA1 f9c06721fc0d81b271417359e663661fb1567354 demos/inetd
-SHA1 a1213d82892b4640b0bf071c69c6c1c0c6059dfa demos/nntp
-SHA1 a3082de1b2eb11159705f210ea27aa8170d81b42 demos/nntp.mirror
-SHA1 dfbc0d1e86c28ed04aa66b457c3a995a352f92b3 demos/pop3
-SHA1 80297b968a034470a276ae5541dc053e5b732ef0 demos/smtp.self
-SHA1 081d1ec3c91c43ff2e452427e8d8bac6d5096860 demos/time
-SHA1 70643cc5461c32ccd1febfbade2782a4642e7305 install-nomake
-SHA1 b667e4c7889072c5a302fa6500048fefa67384f9 t/config.t
-SHA1 91c449b1e34c023e201da04e874b5a12a06db442 t/datasend.t
-SHA1 7ee98f6d1b1a5359cb334b10637a9b2d39ef1e35 t/ftp.t
-SHA1 03420ba8a5cb03b98a6697b76db50611f4881733 t/hostname.t
-SHA1 2bc26046cf6b03838e5c52f00a90a9c62075d055 t/libnet_t.pl
-SHA1 dff9ac7d7f0d4e5258fdaf94a7df79f65767b3ce t/netrc.t
-SHA1 2199b4586879ebbcc88e5627f1d0af6a72d32bb8 t/nntp.t
-SHA1 c0efd8c7232dc37dd4066fab8f1e09e8cc97a841 t/require.t
-SHA1 992648302066ce9ead570386bed32841bac26314 t/smtp.t
------BEGIN PGP SIGNATURE-----
-Version: GnuPG v1.4.7 (GNU/Linux)
-
-iD8DBQFG0W7BR0BL4gbYw3QRAkbEAJ93flT0Ioi/eD21aTJiqz7/yh3HaQCfbMsA
-z+dyqAglP5vHA/8q6kfQTOg=
-=KHCu
------END PGP SIGNATURE-----
diff --git a/3.8.8/sources/cpan-libnet/vendor/demos/inetd b/3.8.8/sources/cpan-libnet/vendor/demos/inetd
deleted file mode 100644
index 36a00e7..0000000
--- a/3.8.8/sources/cpan-libnet/vendor/demos/inetd
+++ /dev/null
@@ -1,9 +0,0 @@
-#!/usr/local/bin/perl
-
-use Net::DummyInetd;
-use Net::SMTP;
-
-$p = new Net::DummyInetd qw(/usr/lib/sendmail -ba -bs);
-
-$smtp = Net::SMTP->new('localhost', Port => $p->port, Debug => 7);
-$smtp->quit;
diff --git a/3.8.8/sources/cpan-libnet/vendor/demos/time b/3.8.8/sources/cpan-libnet/vendor/demos/time
deleted file mode 100644
index 61095d3..0000000
--- a/3.8.8/sources/cpan-libnet/vendor/demos/time
+++ /dev/null
@@ -1,13 +0,0 @@
-#!/usr/local/bin/perl -w
-
-use blib;
-use Net::Time qw(inet_time inet_daytime);
-
-print inet_daytime('localhost');
-print inet_daytime('localhost','tcp');
-print inet_daytime('localhost','udp');
-
-print inet_time('localhost'),"\n";
-print inet_time('localhost','tcp'),"\n";
-print inet_time('localhost','udp'),"\n";
-
diff --git a/3.8.8/sources/cpan-libnet/vendor/install-nomake b/3.8.8/sources/cpan-libnet/vendor/install-nomake
deleted file mode 100755
index f5e8c21..0000000
--- a/3.8.8/sources/cpan-libnet/vendor/install-nomake
+++ /dev/null
@@ -1,37 +0,0 @@
-#!/bin/sh
-#
-# This script is included in this distribution for the benefit
-# of those users who cannot use MakeMaker and make to install.
-# Run this script with
-#
-# perl install-nomake [-s <directory>]
-#
-# -s Install into this directory instead of the system site_lib
-# (This directory must already exist)
-#
-
-eval 'exec perl -x -S $0 ${1+"$@"}'
- if $running_under_some_shell;
-
-#! -*- perl -*-
-
-use Config;
-use File::Spec;
-use Getopt::Long;
-use ExtUtils::Install qw(install);
-
-my $sitelib = $Config{'sitelibexp'};
-
-GetOptions(
- 'sitelib=s' => \$sitelib
-);
-
-die "$sitelib is not a directory: $!"
- unless -d $sitelib;
-
-my $src = File::Spec->curdir;
-
-die "This script must be run from the libnet distribution directory: $!\n"
- unless -f File::Spec->catfile($src, qw(Net FTP.pm));
-
-install( { $src => $sitelib }, 1,0,0);
diff --git a/3.8.8/sources/cpan-libnet/vendor/t/nntp.t b/3.8.8/sources/cpan-libnet/vendor/t/nntp.t
deleted file mode 100644
index 7fb99de..0000000
--- a/3.8.8/sources/cpan-libnet/vendor/t/nntp.t
+++ /dev/null
@@ -1,59 +0,0 @@
-#!./perl -w
-
-BEGIN {
- unless (-d 'blib') {
- chdir 't' if -d 't';
- @INC = '../lib';
- }
- if (!eval "require Socket") {
- print "1..0 # no Socket\n"; exit 0;
- }
- if (ord('A') == 193 && !eval "require Convert::EBCDIC") {
- print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
- }
-}
-
-use Net::Config;
-use Net::NNTP;
-use Net::Cmd qw(CMD_REJECT);
-
-unless(@{$NetConfig{nntp_hosts}} && $NetConfig{test_hosts}) {
- print "1..0\n";
- exit;
-}
-
-print "1..4\n";
-
-my $i = 1;
-
-$nntp = Net::NNTP->new(Debug => 0)
- or (print("not ok 1\n"), exit);
-
-print "ok 1\n";
-
-my $grp;
-foreach $grp (qw(test alt.test control news.announce.newusers)) {
- @grp = $nntp->group($grp);
- last if @grp;
-}
-
-if($nntp->status == CMD_REJECT) {
- # Command was rejected, probably because we need authinfo
- map { print "ok ",$_,"\n" } 2,3,4;
- exit;
-}
-
-print "not " unless @grp;
-print "ok 2\n";
-
-
-if(@grp && $grp[2] > $grp[1]) {
- $nntp->head($grp[1]) or print "not ";
-}
-print "ok 3\n";
-
-if(@grp) {
- $nntp->quit or print "not ";
-}
-print "ok 4\n";
-
diff --git a/3.8.8/sources/cpan-libnet/vendor/t/smtp.t b/3.8.8/sources/cpan-libnet/vendor/t/smtp.t
deleted file mode 100644
index ac2df6c..0000000
--- a/3.8.8/sources/cpan-libnet/vendor/t/smtp.t
+++ /dev/null
@@ -1,38 +0,0 @@
-#!./perl -w
-
-BEGIN {
- unless (-d 'blib') {
- chdir 't' if -d 't';
- @INC = '../lib';
- }
- if (!eval "require Socket") {
- print "1..0 # no Socket\n"; exit 0;
- }
- if (ord('A') == 193 && !eval "require Convert::EBCDIC") {
- print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
- }
-}
-
-use Net::Config;
-use Net::SMTP;
-
-unless(@{$NetConfig{smtp_hosts}} && $NetConfig{test_hosts}) {
- print "1..0\n";
- exit 0;
-}
-
-print "1..3\n";
-
-my $i = 1;
-
-$smtp = Net::SMTP->new(Debug => 0)
- or (print("not ok 1\n"), exit);
-
-print "ok 1\n";
-
-$smtp->domain or print "not ";
-print "ok 2\n";
-
-$smtp->quit or print "not ";
-print "ok 3\n";
-
diff --git a/3.8.8/sources/cpan-podlators/vendor/TODO b/3.8.8/sources/cpan-podlators/vendor/TODO
deleted file mode 100644
index 5465a9e..0000000
--- a/3.8.8/sources/cpan-podlators/vendor/TODO
+++ /dev/null
@@ -1,88 +0,0 @@
- podlators To-Do List
-
-This is a somewhat random and unordered list of things I'd like to see
-fixed or improved, but which I've not yet had a chance to do. Patches for
-any of the following are very much welcome.
-
- * Currently, proper encoding handling without PerlIO is not supported.
- If PerlIO is not available, the code should fall back on encode, since
- in that case we're guaranteed that there are no strange effects present
- due to a PERL_UNICODE setting.
-
- * Output encoding should be handled by using encode after checking
- whether an encoding is already in place using PerlIO rather than always
- using PerlIO encoding layers and hence modifying the state of a
- possibly external file handle.
-
- * There should be some way to turn off all heuristics when people are
- using POD for some purpose other than Perl or some other programming
- language with similar needs. The hooks are there in the code but we
- need an interface to set or unset them.
-
- * The test suite is still fairly basic, and doesn't test all of the
- options to the various modules, the scripts, =over/=back, or the
- guesswork in Pod::Man.
-
- * Pod::Text::Termcap can leave underlining turned on across a newline,
- resulting in weird visual artifacts. Ideally, underlining should be
- turned off at the end of each line, if still on, and then turned back
- on at the start of the subsequent line.
-
-The following items require changes to the POD specification and are
-therefore of broader scope than just this code:
-
- * Introduce a new interior sequence for metasyntactic variables, probably
- M<>, and reserve I<> exclusively for emphasis. This resolves a
- significant ambiguity in the current POD specification in a way that
- would make the Pod::Text output much better. (Metasyntactic variables
- should be surrounded in angle brackets and emphasized text should be
- surrounded by asterisks.)
-
- * Introduce a new interior sequence for footnotes. There has been
- extensive discussion of this on pod-people at perl.org. One proposal is
- to use a new formatting code for footnotes, probably N<>, and just
- in-line the footnote as part of the interior sequence. This doesn't
- allow multi-paragraph footnotes, however, so a second proposal is to
- have the content of the N<> formatting code be a unique marker that
- matches an =item tag in a new =begin footnotes section processed by
- translators that know how to do footnotes. (The translator should
- probably number the footnotes and insert some sort of numerical marker
- into the text at the point of the footnote.) This would require
- translators to formatting languages that do something more interesting
- with footnotes to parse the entire document, extract the footnote
- section, and then stick the footnotes back into the main text at the
- point where they occur, however.
-
- There are some preliminary patches for Pod::Man and Pod::Text in NOTES.
- It's possible to do footnotes directly in *roff (it's section T4 of the
- troff paper), but that relies on header and footer triggers and for
- terminal display it's becoming common to suppress the headers and
- footers. For the purposes of Pod::Man, end notes are probably a better
- model and can be handled about the same way as they are for Pod::Text.
-
-The following ideas about guesswork and heuristics were all taken from a
-post by Tom Christiansen to pod-people at perl.org:
-
- * All of the following should be okay to use verbatim in any POD text and
- have the translator do something appropriate:
-
- FILEHANDLE PackageName
- $variable @variable %variable &function
- $var::iable @vari::able %variab::le &functio::n
- function() fun::ction() fun::ct::ion()
- manpage(3r)
- user at host.com
- http://somewhere.com/stuff/ ftp://somewhere.com/stuff/
-
- Pod::Man and Pod::Text handle much of this already, but not all of it
- (and I've not checked to see exactly where they break).
-
- * Something in __ALLCAPS__ should be in code font but perhaps not small,
- and maybe some magic between the unders, as in \f(CW_\|_ALLCAPS_\|_\fP.
- (Pod::Man handles the spaces between the underbars, but not putting
- this into code font.)
-
- * The module version number should be included in the headers/footers
- where appropriate. That means that when processing a module, ideally
- one wants to pull out the module's $VERSION to use in the footer rather
- than Perl's version.
diff --git a/3.8.8/sources/cpan-podlators/vendor/VERSION b/3.8.8/sources/cpan-podlators/vendor/VERSION
deleted file mode 100644
index 18d2b72..0000000
--- a/3.8.8/sources/cpan-podlators/vendor/VERSION
+++ /dev/null
@@ -1 +0,0 @@
-$VERSION = '2.3.1';
diff --git a/3.8.8/sources/cpan-podlators/vendor/lib/Pod/ParseLink.pm b/3.8.8/sources/cpan-podlators/vendor/lib/Pod/ParseLink.pm
deleted file mode 100644
index 750fdfb..0000000
--- a/3.8.8/sources/cpan-podlators/vendor/lib/Pod/ParseLink.pm
+++ /dev/null
@@ -1,192 +0,0 @@
-# Pod::ParseLink -- Parse an L<> formatting code in POD text.
-#
-# Copyright 2001, 2008, 2009 by Russ Allbery <rra at stanford.edu>
-#
-# 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;
-
-require 5.004;
-
-use strict;
-use vars qw(@EXPORT @ISA $VERSION);
-
-use Exporter;
- at ISA = qw(Exporter);
- at EXPORT = qw(parselink);
-
-$VERSION = '1.10';
-
-##############################################################################
-# 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 ($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 at stanford.edu>.
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2001, 2008, 2009 Russ Allbery <rra at stanford.edu>.
-
-This program is free software; you may redistribute it and/or modify it
-under the same terms as Perl itself.
-
-=cut
diff --git a/3.8.8/sources/cpan-podlators/vendor/lib/Pod/Text/Overstrike.pm b/3.8.8/sources/cpan-podlators/vendor/lib/Pod/Text/Overstrike.pm
deleted file mode 100644
index 7578f0f..0000000
--- a/3.8.8/sources/cpan-podlators/vendor/lib/Pod/Text/Overstrike.pm
+++ /dev/null
@@ -1,208 +0,0 @@
-# Pod::Text::Overstrike -- Convert POD data to formatted overstrike text
-#
-# Created by Joe Smith <Joe.Smith at inwap.com> 30-Nov-2000
-# (based on Pod::Text::Color by Russ Allbery <rra at stanford.edu>)
-# Copyright 2000 Joe Smith <Joe.Smith at inwap.com>.
-# Copyright 2001, 2004, 2008 Russ Allbery <rra at stanford.edu>.
-#
-# This program is free software; you may redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# 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.
-
-##############################################################################
-# Modules and declarations
-##############################################################################
-
-package Pod::Text::Overstrike;
-
-require 5.004;
-
-use Pod::Text ();
-
-use strict;
-use vars qw(@ISA $VERSION);
-
- at ISA = qw(Pod::Text);
-
-$VERSION = '2.04';
-
-##############################################################################
-# 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 at inwap.com>, using the framework created by Russ Allbery
-<rra at stanford.edu>.
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2000 by Joe Smith <Joe.Smith at inwap.com>.
-Copyright 2001, 2004, 2008 by Russ Allbery <rra at stanford.edu>.
-
-This program is free software; you may redistribute it and/or modify it
-under the same terms as Perl itself.
-
-=cut
diff --git a/3.8.8/sources/cpan-podlators/vendor/lib/Pod/Text/Termcap.pm b/3.8.8/sources/cpan-podlators/vendor/lib/Pod/Text/Termcap.pm
deleted file mode 100644
index e4885c9..0000000
--- a/3.8.8/sources/cpan-podlators/vendor/lib/Pod/Text/Termcap.pm
+++ /dev/null
@@ -1,195 +0,0 @@
-# Pod::Text::Termcap -- Convert POD data to ASCII text with format escapes.
-#
-# Copyright 1999, 2001, 2002, 2004, 2006, 2008, 2009
-# Russ Allbery <rra at stanford.edu>
-#
-# This program is free software; you may redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# 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.
-
-##############################################################################
-# Modules and declarations
-##############################################################################
-
-package Pod::Text::Termcap;
-
-require 5.004;
-
-use Pod::Text ();
-use POSIX ();
-use Term::Cap;
-
-use strict;
-use vars qw(@ISA $VERSION);
-
- at ISA = qw(Pod::Text);
-
-$VERSION = '2.06';
-
-##############################################################################
-# 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.
- 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 igore 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 preceeding 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
-
-=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 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 at stanford.edu>.
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 1999, 2001, 2002, 2004, 2006, 2008, 2009 Russ Allbery
-<rra at stanford.edu>.
-
-This program is free software; you may redistribute it and/or modify it
-under the same terms as Perl itself.
-
-=cut
diff --git a/3.8.8/sources/cpan-podlators/vendor/scripts/pod2man.PL b/3.8.8/sources/cpan-podlators/vendor/scripts/pod2man.PL
deleted file mode 100755
index 7d7d68f..0000000
--- a/3.8.8/sources/cpan-podlators/vendor/scripts/pod2man.PL
+++ /dev/null
@@ -1,589 +0,0 @@
-#!/usr/local/bin/perl
-
-use Config;
-use File::Basename qw(&basename &dirname);
-use Cwd;
-
-# List explicitly here the variables you want Configure to
-# generate. Metaconfig only looks for shell variables, so you
-# have to mention them as if they were shell variables, not
-# %Config entries. Thus you write
-# $startperl
-# to ensure Configure will look for $Config{startperl}.
-
-# This forces PL files to create target in same directory as PL file.
-# This is so that make depend always knows where to find PL derivatives.
-$origdir = cwd;
-chdir dirname($0);
-$file = basename($0, '.PL');
-$file .= '.com' if $^O eq 'VMS';
-
-open OUT,">$file" or die "Can't create $file: $!";
-
-print "Extracting $file (with variable substitutions)\n";
-
-# In this section, perl variables will be expanded during extraction.
-# You can use $Config{...} to use Configure variables.
-
-print OUT <<"!GROK!THIS!";
-$Config{startperl}
- eval 'exec $Config{perlpath} -S \$0 \${1+"\$@"}'
- if \$running_under_some_shell;
-!GROK!THIS!
-
-# In the following, perl variables are not expanded during extraction.
-
-print OUT <<'!NO!SUBS!';
-
-# pod2man -- Convert POD data to formatted *roff input.
-#
-# Copyright 1999, 2000, 2001, 2004, 2006, 2008 Russ Allbery <rra at stanford.edu>
-#
-# This program is free software; you may redistribute it and/or modify it
-# under the same terms as Perl itself.
-
-require 5.004;
-
-use Getopt::Long qw(GetOptions);
-use Pod::Man ();
-use Pod::Usage qw(pod2usage);
-
-use strict;
-
-# Silence -w warnings.
-use vars qw($running_under_some_shell);
-
-# Insert -- into @ARGV before any single dash argument to hide it from
-# Getopt::Long; we want to interpret it as meaning stdin.
-my $stdin;
- at ARGV = map { $_ eq '-' && !$stdin++ ? ('--', $_) : $_ } @ARGV;
-
-# Parse our options, trying to retain backward compatibility with pod2man but
-# allowing short forms as well. --lax is currently ignored.
-my %options;
-$options{errors} = 'pod';
-Getopt::Long::config ('bundling_override');
-GetOptions (\%options, 'center|c=s', 'date|d=s', 'fixed=s', 'fixedbold=s',
- 'fixeditalic=s', 'fixedbolditalic=s', 'help|h', 'lax|l',
- 'name|n=s', 'official|o', 'quotes|q=s', 'release|r:s',
- 'section|s=s', 'stderr', 'verbose|v', 'utf8|u') or exit 1;
-pod2usage (0) if $options{help};
-
-# Official sets --center, but don't override things explicitly set.
-if ($options{official} && !defined $options{center}) {
- $options{center} = 'Perl Programmers Reference Guide';
-}
-
-# Verbose is only our flag, not a Pod::Man flag.
-my $verbose = $options{verbose};
-delete $options{verbose};
-
-# This isn't a valid Pod::Man option and is only accepted for backward
-# compatibility.
-delete $options{lax};
-
-# Initialize and run the formatter, pulling a pair of input and output off at
-# a time.
-my $parser = Pod::Man->new (%options);
-my @files;
-do {
- @files = splice (@ARGV, 0, 2);
- print " $files[1]\n" if $verbose;
- $parser->parse_from_file (@files);
-} while (@ARGV);
-
-__END__
-
-=head1 NAME
-
-pod2man - Convert POD data to formatted *roff input
-
-=for stopwords
-en em --stderr stderr --utf8 UTF-8 overdo markup MT-LEVEL Allbery Solaris
-URL troff troff-specific formatters uppercased Christiansen
-
-=head1 SYNOPSIS
-
-pod2man [B<--center>=I<string>] [B<--date>=I<string>]
- [B<--fixed>=I<font>] [B<--fixedbold>=I<font>] [B<--fixeditalic>=I<font>]
- [B<--fixedbolditalic>=I<font>] [B<--name>=I<name>] [B<--official>]
- [B<--quotes>=I<quotes>] [B<--release>[=I<version>]]
- [B<--section>=I<manext>] [B<--stderr>] [B<--utf8>] [B<--verbose>]
- [I<input> [I<output>] ...]
-
-pod2man B<--help>
-
-=head1 DESCRIPTION
-
-B<pod2man> is a front-end for Pod::Man, using it to generate *roff input
-from POD source. The resulting *roff code is suitable for display on a
-terminal using nroff(1), normally via man(1), or printing using troff(1).
-
-I<input> is the file to read for POD source (the POD can be embedded in
-code). If I<input> isn't given, it defaults to C<STDIN>. I<output>, if
-given, is the file to which to write the formatted output. If I<output>
-isn't given, the formatted output is written to C<STDOUT>. Several POD
-files can be processed in the same B<pod2man> invocation (saving module
-load and compile times) by providing multiple pairs of I<input> and
-I<output> files on the command line.
-
-B<--section>, B<--release>, B<--center>, B<--date>, and B<--official> can
-be used to set the headers and footers to use; if not given, Pod::Man will
-assume various defaults. See below or L<Pod::Man> for details.
-
-B<pod2man> assumes that your *roff formatters have a fixed-width font
-named C<CW>. If yours is called something else (like C<CR>), use
-B<--fixed> 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, and therefore pod2man also
-takes care of formatting func(), func(n), 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," and
-takes care of several other troff-specific tweaks. See L<Pod::Man> for
-complete information.
-
-=head1 OPTIONS
-
-=over 4
-
-=item B<-c> I<string>, B<--center>=I<string>
-
-Sets the centered page header to I<string>. The default is "User
-Contributed Perl Documentation", but also see B<--official> below.
-
-=item B<-d> I<string>, B<--date>=I<string>
-
-Set the left-hand footer string to this value. By default, the modification
-date of the input file will be used, or the current date if input comes from
-C<STDIN>.
-
-=item B<--fixed>=I<font>
-
-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 troff(1)
-output.
-
-=item B<--fixedbold>=I<font>
-
-Bold version of the fixed-width font. Defaults to C<CB>. Only matters
-for troff(1) output.
-
-=item B<--fixeditalic>=I<font>
-
-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 troff(1) output.
-
-=item B<--fixedbolditalic>=I<font>
-
-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 troff(1) output.
-
-=item B<-h>, B<--help>
-
-Print out usage information.
-
-=item B<-l>, B<--lax>
-
-No longer used. B<pod2man> used to check its input for validity as a
-manual page, but this should now be done by L<podchecker(1)> instead.
-Accepted for backward compatibility; this option no longer does anything.
-
-=item B<-n> I<name>, B<--name>=I<name>
-
-Set the name of the manual page to I<name>. 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.
-
-Note that this option is probably not useful when converting multiple POD
-files at once. The convention for Unix man pages for commands is for the
-man page title to be in all-uppercase even if the command isn't.
-
-=item B<-o>, B<--official>
-
-Set the default header to indicate that this page is part of the standard
-Perl release, if B<--center> is not also given.
-
-=item B<-q> I<quotes>, B<--quotes>=I<quotes>
-
-Sets the quote marks used to surround CE<lt>> text to I<quotes>. If
-I<quotes> is a single character, it is used as both the left and right
-quote; if I<quotes> is two characters, the first character is used as the
-left quote and the second as the right quoted; and if I<quotes> is four
-characters, the first two are used as the left quote and the second two as
-the right quote.
-
-I<quotes> 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 B<-r>, B<--release>
-
-Set the centered footer. By default, this is the version of Perl you run
-B<pod2man> under. Note that some system 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, you may want to set B<--release> to
-the last modified date and B<--date> to the version number.
-
-=item B<-s>, B<--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 B<--stderr>
-
-By default, B<pod2man> puts any errors detected in the POD input in a POD
-ERRORS section in the output manual page. If B<--stderr> is given, errors
-are sent to standard error instead and the POD ERRORS section is
-suppressed.
-
-=item B<-u>, B<--utf8>
-
-By default, B<pod2man> 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>.
-
-This option says to instead output literal UTF-8 characters. 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 must be properly declared unless it is US-ASCII or Latin-1. POD
-input without an C<=encoding> command will be assumed to be in Latin-1,
-and if it's actually in UTF-8, the output will be double-encoded. See
-L<perlpod(1)> for more information on the C<=encoding> command.
-
-=item B<-v>, B<--verbose>
-
-Print out the name of each output file as it is being generated.
-
-=back
-
-=head1 DIAGNOSTICS
-
-If B<pod2man> fails with errors, see L<Pod::Man> and L<Pod::Simple> for
-information about what those errors might mean.
-
-=head1 EXAMPLES
-
- pod2man program > program.1
- pod2man SomeModule.pm /usr/perl/man/man3/SomeModule.3
- pod2man --section=7 note.pod > note.7
-
-If you would like to print out a lot of man page continuously, you probably
-want to set the C and D registers to set contiguous page numbering and
-even/odd paging, at least on some versions of man(7).
-
- troff -man -rC1 -rD1 perl.1 perldata.1 perlsyn.1 ...
-
-To get index entries on C<STDERR>, turn on the F register, as in:
-
- troff -man -rF1 perl.1
-
-The indexing merely outputs messages via C<.tm> for each major page,
-section, subsection, item, and any C<XE<lt>E<gt>> directives. See
-L<Pod::Man> for more details.
-
-=head1 BUGS
-
-Lots of this documentation is duplicated from L<Pod::Man>.
-
-=head1 NOTES
-
-For those not sure of the proper layout of a man page, here are some notes
-on writing a proper man page.
-
-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>). Functions 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)>, and Pod::Man will automatically format those
-appropriately. As an exception, it's traditional not to use this form when
-referring to module documentation; use C<LE<lt>Module::NameE<gt>> 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.
-
-The major headers should be set out using a C<=head1> directive, and are
-historically written in the rather startling ALL UPPER CASE format, although
-this is not mandatory. 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. 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>. 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.
-
-=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.
-
-=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 things
-like L<Pod::Usage|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 arguably easier to read, since 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 as is standard. It should always be present for
-functions.
-
-=item ERRORS
-
-Exceptions, error return codes, exit statuses, and errno settings.
-Typically used for function 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). Including your current
-e-mail address (or some e-mail address to which bug reports should be sent)
-so that users have a way of contacting you is a good idea. Remember that
-program documentation tends to roam the wild for far longer than you expect
-and pick an e-mail address that's likely to last if possible.
-
-=item HISTORY
-
-Programs derived from other sources sometimes have this, or you might keep
-a modification log here. If the log gets overly long or detailed,
-consider maintaining it in a separate file, though.
-
-=item COPYRIGHT AND LICENSE
-
-For copyright
-
- Copyright YEAR(s) by 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 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
-
-In addition, 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. Documentation of object-oriented libraries or modules may
-use CONSTRUCTORS and METHODS sections for detailed documentation of the
-parts of the library and save the DESCRIPTION section for an overview; other
-large modules may use FUNCTIONS for similar reasons. Some people use
-OVERVIEW to summarize the description if it's quite long.
-
-Section ordering varies, although NAME should I<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.
-
-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
-(including this one currently) will do the wrong thing with e-mail addresses
-when wrapped in LE<lt>E<gt>, so don't do that.
-
-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.
-
-=head1 SEE ALSO
-
-L<Pod::Man>, L<Pod::Simple>, L<man(1)>, L<nroff(1)>, L<perlpod(1)>,
-L<podchecker(1)>, L<troff(1)>, L<man(7)>
-
-The man page documenting the an macro set may be L<man(5)> instead of
-L<man(7)> on your system.
-
-The current version of this script 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 at stanford.edu>, based I<very> heavily on the original
-B<pod2man> by Larry Wall and Tom Christiansen. Large portions of this
-documentation, particularly the sections on the anatomy of a proper man
-page, are taken from the B<pod2man> documentation by Tom.
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 1999, 2000, 2001, 2004, 2006, 2008 Russ Allbery
-<rra at stanford.edu>.
-
-This program is free software; you may redistribute it and/or modify it
-under the same terms as Perl itself.
-
-=cut
-!NO!SUBS!
-#'# (cperl-mode)
-
-close OUT or die "Can't close $file: $!";
-chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
-exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
-chdir $origdir;
diff --git a/3.8.8/sources/cpan-podlators/vendor/scripts/pod2text.PL b/3.8.8/sources/cpan-podlators/vendor/scripts/pod2text.PL
deleted file mode 100755
index ede0fe7..0000000
--- a/3.8.8/sources/cpan-podlators/vendor/scripts/pod2text.PL
+++ /dev/null
@@ -1,312 +0,0 @@
-#!/usr/local/bin/perl
-
-use Config;
-use File::Basename qw(&basename &dirname);
-use Cwd;
-
-# List explicitly here the variables you want Configure to
-# generate. Metaconfig only looks for shell variables, so you
-# have to mention them as if they were shell variables, not
-# %Config entries. Thus you write
-# $startperl
-# to ensure Configure will look for $Config{startperl}.
-
-# This forces PL files to create target in same directory as PL file.
-# This is so that make depend always knows where to find PL derivatives.
-$origdir = cwd;
-chdir dirname($0);
-$file = basename($0, '.PL');
-$file .= '.com' if $^O eq 'VMS';
-
-open OUT,">$file" or die "Can't create $file: $!";
-
-print "Extracting $file (with variable substitutions)\n";
-
-# In this section, perl variables will be expanded during extraction.
-# You can use $Config{...} to use Configure variables.
-
-print OUT <<"!GROK!THIS!";
-$Config{startperl}
- eval 'exec $Config{perlpath} -S \$0 \${1+"\$@"}'
- if \$running_under_some_shell;
-!GROK!THIS!
-
-# In the following, perl variables are not expanded during extraction.
-
-print OUT <<'!NO!SUBS!';
-
-# pod2text -- Convert POD data to formatted ASCII text.
-#
-# Copyright 1999, 2000, 2001, 2004, 2006, 2008 Russ Allbery <rra at stanford.edu>
-#
-# This program is free software; you may redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# The driver script for Pod::Text, Pod::Text::Termcap, and Pod::Text::Color,
-# invoked by perldoc -t among other things.
-
-require 5.004;
-
-use Getopt::Long qw(GetOptions);
-use Pod::Text ();
-use Pod::Usage qw(pod2usage);
-
-use strict;
-
-# Silence -w warnings.
-use vars qw($running_under_some_shell);
-
-# Take an initial pass through our options, looking for one of the form
-# -<number>. We turn that into -w <number> for compatibility with the
-# original pod2text script.
-for (my $i = 0; $i < @ARGV; $i++) {
- last if $ARGV[$i] =~ /^--$/;
- if ($ARGV[$i] =~ /^-(\d+)$/) {
- splice (@ARGV, $i++, 1, '-w', $1);
- }
-}
-
-# Insert -- into @ARGV before any single dash argument to hide it from
-# Getopt::Long; we want to interpret it as meaning stdin (which Pod::Simple
-# does correctly).
-my $stdin;
- at ARGV = map { $_ eq '-' && !$stdin++ ? ('--', $_) : $_ } @ARGV;
-
-# Parse our options. Use the same names as Pod::Text for simplicity, and
-# default to sentence boundaries turned off for compatibility.
-my %options;
-$options{sentence} = 0;
-Getopt::Long::config ('bundling');
-GetOptions (\%options, 'alt|a', 'code', 'color|c', 'help|h', 'indent|i=i',
- 'loose|l', 'margin|left-margin|m=i', 'overstrike|o',
- 'quotes|q=s', 'sentence|s', 'stderr', 'termcap|t', 'utf8|u',
- 'width|w=i')
- or exit 1;
-pod2usage (1) if $options{help};
-
-# Figure out what formatter we're going to use. -c overrides -t.
-my $formatter = 'Pod::Text';
-if ($options{color}) {
- $formatter = 'Pod::Text::Color';
- eval { require Term::ANSIColor };
- if ($@) { die "-c (--color) requires Term::ANSIColor be installed\n" }
- require Pod::Text::Color;
-} elsif ($options{termcap}) {
- $formatter = 'Pod::Text::Termcap';
- require Pod::Text::Termcap;
-} elsif ($options{overstrike}) {
- $formatter = 'Pod::Text::Overstrike';
- require Pod::Text::Overstrike;
-}
-delete @options{'color', 'termcap', 'overstrike'};
-
-# Initialize and run the formatter.
-my $parser = $formatter->new (%options);
-do {
- my ($input, $output) = splice (@ARGV, 0, 2);
- $parser->parse_from_file ($input, $output);
-} while (@ARGV);
-
-__END__
-
-=head1 NAME
-
-pod2text - Convert POD data to formatted ASCII text
-
-=for stopwords
--aclostu --alt --stderr Allbery --overstrike overstrike --termcap --utf8
-UTF-8
-
-=head1 SYNOPSIS
-
-pod2text [B<-aclostu>] [B<--code>] [B<-i> I<indent>] S<[B<-q> I<quotes>]>
- [B<--stderr>] S<[B<-w> I<width>]> [I<input> [I<output> ...]]
-
-pod2text B<-h>
-
-=head1 DESCRIPTION
-
-B<pod2text> is a front-end for Pod::Text and its subclasses. It uses them
-to generate formatted ASCII text from POD source. It can optionally use
-either termcap sequences or ANSI color escape sequences to format the text.
-
-I<input> is the file to read for POD source (the POD can be embedded in
-code). If I<input> isn't given, it defaults to C<STDIN>. I<output>, if
-given, is the file to which to write the formatted output. If I<output>
-isn't given, the formatted output is written to C<STDOUT>. Several POD
-files can be processed in the same B<pod2text> invocation (saving module
-load and compile times) by providing multiple pairs of I<input> and
-I<output> files on the command line.
-
-=head1 OPTIONS
-
-=over 4
-
-=item B<-a>, B<--alt>
-
-Use 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.
-
-=item B<--code>
-
-Include any non-POD text from the input file in the output as well. Useful
-for viewing code documented with POD blocks with the POD rendered and the
-code left intact.
-
-=item B<-c>, B<--color>
-
-Format the output with ANSI color escape sequences. Using this option
-requires that Term::ANSIColor be installed on your system.
-
-=item B<-i> I<indent>, B<--indent=>I<indent>
-
-Set the number of spaces to indent regular text, and the default indentation
-for C<=over> blocks. Defaults to 4 spaces if this option isn't given.
-
-=item B<-h>, B<--help>
-
-Print out usage information and exit.
-
-=item B<-l>, B<--loose>
-
-Print a blank line after a C<=head1> heading. Normally, no blank line is
-printed after C<=head1>, although one is still printed after C<=head2>,
-because this is the expected formatting for manual pages; if you're
-formatting arbitrary text documents, using this option is recommended.
-
-=item B<-m> I<width>, B<--left-margin>=I<width>, B<--margin>=I<width>
-
-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 B<-i> option.
-
-=item B<-o>, B<--overstrike>
-
-Format the output with overstrike printing. Bold text is rendered as
-character, backspace, character. Italics and file names are rendered as
-underscore, backspace, character. Many pagers, such as B<less>, know how
-to convert this to bold or underlined text.
-
-=item B<-q> I<quotes>, B<--quotes>=I<quotes>
-
-Sets the quote marks used to surround CE<lt>> text to I<quotes>. If
-I<quotes> is a single character, it is used as both the left and right
-quote; if I<quotes> is two characters, the first character is used as the
-left quote and the second as the right quoted; and if I<quotes> is four
-characters, the first two are used as the left quote and the second two as
-the right quote.
-
-I<quotes> may also be set to the special value C<none>, in which case no
-quote marks are added around CE<lt>> text.
-
-=item B<-s>, B<--sentence>
-
-Assume each sentence ends with two spaces and try to preserve that spacing.
-Without this option, all consecutive whitespace in non-verbatim paragraphs
-is compressed into a single space.
-
-=item B<--stderr>
-
-By default, B<pod2text> puts any errors detected in the POD input in a POD
-ERRORS section in the output manual page. If B<--stderr> is given, errors
-are sent to standard error instead and the POD ERRORS section is
-suppressed.
-
-=item B<-t>, B<--termcap>
-
-Try to determine the width of the screen and the bold and underline
-sequences for the terminal from termcap, and use that information in
-formatting the output. Output will be wrapped at two columns less than the
-width of your terminal device. Using this option requires that your system
-have a termcap file somewhere where Term::Cap can find it and requires that
-your system support termios. With this option, the output of B<pod2text>
-will contain terminal control sequences for your current terminal type.
-
-=item B<-u>, B<--utf8>
-
-By default, B<pod2text> tries to use the same output encoding as its input
-encoding (to be backward-compatible with older versions). This option
-says to instead force the output encoding to UTF-8.
-
-Be aware that, when using this option, the input encoding of your POD
-source must be properly declared unless it is US-ASCII or Latin-1. POD
-input without an C<=encoding> command will be assumed to be in Latin-1,
-and if it's actually in UTF-8, the output will be double-encoded. See
-L<perlpod(1)> for more information on the C<=encoding> command.
-
-=item B<-w>, B<--width=>I<width>, B<->I<width>
-
-The column at which to wrap text on the right-hand side. Defaults to 76,
-unless B<-t> is given, in which case it's two columns less than the width of
-your terminal device.
-
-=back
-
-=head1 DIAGNOSTICS
-
-If B<pod2text> fails with errors, see L<Pod::Text> and L<Pod::Simple> for
-information about what those errors might mean. Internally, it can also
-produce the following diagnostics:
-
-=over 4
-
-=item -c (--color) requires Term::ANSIColor be installed
-
-(F) B<-c> or B<--color> were given, but Term::ANSIColor could not be
-loaded.
-
-=item Unknown option: %s
-
-(F) An unknown command line option was given.
-
-=back
-
-In addition, other L<Getopt::Long> error messages may result from invalid
-command-line options.
-
-=head1 ENVIRONMENT
-
-=over 4
-
-=item COLUMNS
-
-If B<-t> is given, B<pod2text> will take the current width of your screen
-from this environment variable, if available. It overrides terminal width
-information in TERMCAP.
-
-=item TERMCAP
-
-If B<-t> is given, B<pod2text> will use the contents of this environment
-variable if available to determine the correct formatting sequences for your
-current terminal device.
-
-=back
-
-=head1 SEE ALSO
-
-L<Pod::Text>, L<Pod::Text::Color>, L<Pod::Text::Overstrike>,
-L<Pod::Text::Termcap>, L<Pod::Simple>, L<perlpod(1)>
-
-The current version of this script 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 at stanford.edu>.
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 1999, 2000, 2001, 2004, 2006, 2008 Russ Allbery
-<rra at stanford.edu>.
-
-This program is free software; you may redistribute it and/or modify it
-under the same terms as Perl itself.
-
-=cut
-!NO!SUBS!
-
-close OUT or die "Can't close $file: $!";
-chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
-exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
-chdir $origdir;
diff --git a/3.8.8/sources/cpan-podlators/vendor/t/basic.ovr b/3.8.8/sources/cpan-podlators/vendor/t/basic.ovr
deleted file mode 100644
index bb124a0..0000000
--- a/3.8.8/sources/cpan-podlators/vendor/t/basic.ovr
+++ /dev/null
@@ -1,269 +0,0 @@
-NNAAMMEE
- basic.pod - Test of various basic POD features in translators.
-
-HHEEAADDIINNGGSS
- Try a few different levels of headings, with embedded formatting codes
- and other interesting bits.
-
-TThhiiss ""iiss"" aa ""lleevveell 11"" hheeaaddiinngg
- ````LLeevveell'''' ""22 hheeaaddiinngg
- _L_e_v_e_l_ _3_ _h_e_a_d_i_n_g_ _w_i_t_h_ _"_w_e_i_r_d_ _s_t_u_f_f_ _"_"_ _(_d_o_u_b_l_e_ _q_u_o_t_e_)_"
- _L_e_v_e_l_ _"_4_ _"_h_e_a_d_i_n_g_"
- Now try again with iinntteerrmmiixxeedd _t_e_x_t.
-
-TThhiiss ""iiss"" aa ""lleevveell 11"" hheeaaddiinngg
- Text.
-
- ````LLeevveell'''' 22 hheeaaddiinngg
- Text.
-
- _L_e_v_e_l_ _3_ _h_e_a_d_i_n_g_ _w_i_t_h_ _"_w_e_i_r_d_ _s_t_u_f_f_"
- Text.
-
- _L_e_v_e_l_ _"_4_ _"_h_e_a_d_i_n_g_"
- Text.
-
-LLIINNKKSS
- These are all taken from the Pod::Parser tests.
-
- Try out _L_O_T_S of different ways of specifying references:
-
- Reference the "section" in manpage
-
- Reference the "section" in "manpage"
-
- Reference the "section" in manpage
-
- Now try it using the new "|" stuff ...
-
- Reference the thistext|
-
- Reference the thistext |
-
- Reference the thistext|
-
- Reference the thistext |
-
- Reference the thistext|
-
- Reference the thistext|
-
- And then throw in a few new ones of my own.
-
- foo
-
- foo
-
- "bar" in foo
-
- "baz boo" in foo
-
- "bar"
-
- "baz boo"
-
- "baz boo"
-
- "baz boo" in foo bar
-
- "boo var baz"
-
- "bar baz"
-
- "boo", "bar", and "baz"
-
- foobar
-
- Testing _i_t_a_l_i_c_s
-
- "_I_t_a_l_i_c text" in foo
-
- "Section "with" _o_t_h_e_r_ _m_a_r_k_u_p" in foo|bar
-
- Nested <http://www.perl.org/>
-
-OOVVEERR AANNDD IITTEEMMSS
- Taken from Pod::Parser tests, this is a test to ensure that multiline
- =item paragraphs get indented appropriately.
-
- This is a test.
-
- There should be whitespace now before this line.
-
- Taken from Pod::Parser tests, this is a test to ensure the nested =item
- paragraphs get indented appropriately.
-
- 1 First section.
-
- a this is item a
-
- b this is item b
-
- 2 Second section.
-
- a this is item a
-
- b this is item b
-
- c
- d This is item c & d.
-
- Now some additional weirdness of our own. Make sure that multiple tags
- for one paragraph are properly compacted.
-
- "foo"
- bbaarr
- "baz"
- There shouldn't be any spaces between any of these item tags; this
- idiom is used in perlfunc.
-
- Some longer item text
- Just to make sure that we test paragraphs where the item text
- doesn't fit in the margin of the paragraph (and make sure that this
- paragraph fills a few lines).
-
- Let's also make it multiple paragraphs to be sure that works.
-
- Test use of =over without =item as a block "quote" or block paragraph.
-
- This should be indented four spaces but otherwise formatted the same
- as any other regular text paragraph. Make sure it's long enough to
- see the results of the formatting.....
-
- Now try the same thing nested, and make sure that the indentation is
- reset back properly.
-
- This paragraph should be doubly indented.
-
- This paragraph should only be singly indented.
-
- * This is an item in the middle of a block-quote, which should be
- allowed.
-
- * We're also testing tagless item commands.
-
- Should be back to the single level of indentation.
-
- Should be back to regular indentation.
-
- Now also check the transformation of * into real bullets for man pages.
-
- * An item. We're also testing using =over without a number, and making
- sure that item text wraps properly.
-
- * Another item.
-
- and now test the numbering of item blocks.
-
- 1. First item.
-
- 2. Second item.
-
-FFOORRMMAATTTTIINNGG CCOODDEESS
- Another test taken from Pod::Parser.
-
- This is a test to see if I can do not only $self and "method()", but
- also "$self->method()" and "$self->{FIELDNAME}" and "$Foo <=> $Bar"
- without resorting to escape sequences. If I want to refer to the
- right-shift operator I can do something like "$x >> 3" or even "$y >>
- 5".
-
- Now for the grand finale of "$self->method()->{FIELDNAME} = {FOO=>BAR}".
- And I also want to make sure that newlines work like this
- "$self->{FOOBAR} >> 3 and [$b => $a]->[$a <=> $b]"
-
- Of course I should still be able to do all this _w_i_t_h escape sequences
- too: "$self->method()" and "$self->{FIELDNAME}" and "{FOO=>BAR}".
-
- Dont forget "$self->method()->{FIELDNAME} = {FOO=>BAR}".
-
- And make sure that 0 works too!
-
- Now, if I use << or >> as my delimiters, then I have to use whitespace.
- So things like "<$self-"method()>> and "<$self-"{FIELDNAME}>> wont end
- up doing what you might expect since the first > will still terminate
- the first < seen.
-
- Lets make sure these work for empty ones too, like "" and ">>" (just to
- be obnoxious)
-
- The statement: "This is dog kind's _f_i_n_e_s_t hour!" is a parody of a
- quotation from Winston Churchill.
-
- The following tests are added to those:
-
- Make sure that a few other odd _t_h_i_n_g_s still work. This should be a
- vertical bar: |. Here's a test of a few more special escapes that have
- to be supported:
-
- & An ampersand.
-
- ' An apostrophe.
-
- < A less-than sign.
-
- > A greater-than sign.
-
- " A double quotation mark.
-
- / A forward slash.
-
- Try to get this bit of text over towards the edge so
- |that all of this text inside S<> won't| be wrapped. Also test the
- |same thing with non-breaking spaces.|
-
- There is a soft hyphen in hyphen at hy-phen.
-
- This is a test of an index entry.
-
-VVEERRBBAATTIIMM
- Throw in a few verbatim paragraphs.
-
- 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.\n", 'yellow on_magenta');
- print "This text is normal.\n";
- print colored ['yellow on_magenta'], "Yellow on magenta.\n";
-
- use Term::ANSIColor qw(uncolor);
- print uncolor '01;31', "\n";
-
- But this isn't verbatim (make sure it wraps properly), and the next
- paragraph is again:
-
- use Term::ANSIColor qw(:constants);
- print BOLD, BLUE, "This text is in bold blue.\n", RESET;
-
- use Term::ANSIColor qw(:constants); $Term::ANSIColor::AUTORESET = 1; print BOLD BLUE "This text is in bold blue.\n"; print "This text is normal.\n";
-
- (Ugh, that's obnoxiously long.) Try different spacing:
-
- Starting with a tab.
- Not
- starting
- with
- a
- tab. But this should still be verbatim.
- As should this.
-
- This isn't.
-
- This is. And this: is an internal tab. It should be:
- |--| <= lined up with that.
-
- (Tricky, but tabs should be expanded before the translator starts in on
- the text since otherwise text with mixed tabs and spaces will get messed
- up.)
-
- And now we test verbatim paragraphs right before a heading. Older
- versions of Pod::Man generated two spaces between paragraphs like this
- and the heading. (In order to properly test this, one may have to
- visually inspect the nroff output when run on the generated *roff
- text, unfortunately.)
-
-CCOONNCCLLUUSSIIOONN
- That's all, folks!
-
diff --git a/3.8.8/sources/cpan-podlators/vendor/t/basic.pod b/3.8.8/sources/cpan-podlators/vendor/t/basic.pod
deleted file mode 100644
index 949b3a8..0000000
--- a/3.8.8/sources/cpan-podlators/vendor/t/basic.pod
+++ /dev/null
@@ -1,383 +0,0 @@
-=head1 NAME
-
-basic.pod - Test of various basic POD features in translators.
-
-=head1 HEADINGS
-
-Try a few different levels of headings, with embedded formatting codes and
-other interesting bits.
-
-=head1 This C<is> a "level 1" heading
-
-=head2 ``Level'' "2 I<heading>
-
-=head3 Level 3 B<heading I<with C<weird F<stuff "" (double quote)>>>>
-
-=head4 Level "4 C<heading>
-
-Now try again with B<intermixed> F<text>.
-
-=head1 This C<is> a "level 1" heading
-
-Text.
-
-=head2 ``Level'' 2 I<heading>
-
-Text.
-
-=head3 Level 3 B<heading I<with C<weird F<stuff>>>>
-
-Text.
-
-=head4 Level "4 C<heading>
-
-Text.
-
-=head1 LINKS
-
-These are all taken from the Pod::Parser tests.
-
-Try out I<LOTS> of different ways of specifying references:
-
-Reference the L<manpage/section>
-
-Reference the L<"manpage"/section>
-
-Reference the L<manpage/"section">
-
-Now try it using the new "|" stuff ...
-
-Reference the L<thistext|manpage/section>|
-
-Reference the L<thistext | manpage / section>|
-
-Reference the L<thistext| manpage/ section>|
-
-Reference the L<thistext |manpage /section>|
-
-Reference the L<thistext|manpage/"section">|
-
-Reference the L<thistext|
-manpage/
-section>|
-
-And then throw in a few new ones of my own.
-
-L<foo>
-
-L<foo|bar>
-
-L<foo/bar>
-
-L<foo/"baz boo">
-
-L</bar>
-
-L</"baz boo">
-
-L</baz boo>
-
-L<foo bar/baz boo>
-
-L<"boo var baz">
-
-L<bar baz>
-
-L</boo>, L</bar>, and L</baz>
-
-L<fooZ<>bar>
-
-L<Testing I<italics>|foo/bar>
-
-L<foo/I<Italic> text>
-
-L<fooE<verbar>barZ<>/Section C<with> I<B<other> markup>>
-
-L<Nested L<http://www.perl.org/>|fooE<sol>bar>
-
-=head1 OVER AND ITEMS
-
-Taken from Pod::Parser tests, this is a test to ensure that multiline
-=item paragraphs get indented appropriately.
-
-=over 4
-
-=item This
-is
-a
-test.
-
-=back
-
-There should be whitespace now before this line.
-
-Taken from Pod::Parser tests, this is a test to ensure the nested =item
-paragraphs get indented appropriately.
-
-=over 2
-
-=item 1
-
-First section.
-
-=over 2
-
-=item a
-
-this is item a
-
-=item b
-
-this is item b
-
-=back
-
-=item 2
-
-Second section.
-
-=over 2
-
-=item a
-
-this is item a
-
-=item b
-
-this is item b
-
-=item c
-
-=item d
-
-This is item c & d.
-
-=back
-
-=back
-
-Now some additional weirdness of our own. Make sure that multiple tags
-for one paragraph are properly compacted.
-
-=over 4
-
-=item "foo"
-
-=item B<bar>
-
-=item C<baz>
-
-There shouldn't be any spaces between any of these item tags; this idiom
-is used in perlfunc.
-
-=item Some longer item text
-
-Just to make sure that we test paragraphs where the item text doesn't fit
-in the margin of the paragraph (and make sure that this paragraph fills a
-few lines).
-
-Let's also make it multiple paragraphs to be sure that works.
-
-=back
-
-Test use of =over without =item as a block "quote" or block paragraph.
-
-=over 4
-
-This should be indented four spaces but otherwise formatted the same as
-any other regular text paragraph. Make sure it's long enough to see the
-results of the formatting.....
-
-=back
-
-Now try the same thing nested, and make sure that the indentation is reset
-back properly.
-
-=over 4
-
-=over 4
-
-This paragraph should be doubly indented.
-
-=back
-
-This paragraph should only be singly indented.
-
-=over 4
-
-=item
-
-This is an item in the middle of a block-quote, which should be allowed.
-
-=item
-
-We're also testing tagless item commands.
-
-=back
-
-Should be back to the single level of indentation.
-
-=back
-
-Should be back to regular indentation.
-
-Now also check the transformation of * into real bullets for man pages.
-
-=over
-
-=item *
-
-An item. We're also testing using =over without a number, and making sure
-that item text wraps properly.
-
-=item *
-
-Another item.
-
-=back
-
-and now test the numbering of item blocks.
-
-=over 4
-
-=item 1.
-
-First item.
-
-=item 2.
-
-Second item.
-
-=back
-
-=head1 FORMATTING CODES
-
-Another test taken from Pod::Parser.
-
-This is a test to see if I can do not only C<$self> and C<method()>, but
-also C<< $self->method() >> and C<< $self->{FIELDNAME} >> and
-C<< $Foo <=> $Bar >> without resorting to escape sequences. If
-I want to refer to the right-shift operator I can do something
-like C<<< $x >> 3 >>> or even C<<<< $y >> 5 >>>>.
-
-Now for the grand finale of C<< $self->method()->{FIELDNAME} = {FOO=>BAR} >>.
-And I also want to make sure that newlines work like this
-C<<<
-$self->{FOOBAR} >> 3 and [$b => $a]->[$a <=> $b]
->>>
-
-Of course I should still be able to do all this I<with> escape sequences
-too: C<$self-E<gt>method()> and C<$self-E<gt>{FIELDNAME}> and
-C<{FOO=E<gt>BAR}>.
-
-Dont forget C<$self-E<gt>method()-E<gt>{FIELDNAME} = {FOO=E<gt>BAR}>.
-
-And make sure that C<0> works too!
-
-Now, if I use << or >> as my delimiters, then I have to use whitespace.
-So things like C<<$self->method()>> and C<<$self->{FIELDNAME}>> wont end
-up doing what you might expect since the first > will still terminate
-the first < seen.
-
-Lets make sure these work for empty ones too, like C<< >> and C<< >> >>
-(just to be obnoxious)
-
-The statement: C<This is dog kind's I<finest> hour!> is a parody of a
-quotation from Winston Churchill.
-
-The following tests are added to those:
-
-Make sure that a few othZ<>er odd I<Z<>things> still work. This should be
-a vertical bar: E<verbar>. Here's a test of a few more special escapes
-that have to be supported:
-
-=over 3
-
-=item E<amp>
-
-An ampersand.
-
-=item E<apos>
-
-An apostrophe.
-
-=item E<lt>
-
-A less-than sign.
-
-=item E<gt>
-
-A greater-than sign.
-
-=item E<quot>
-
-A double quotation mark.
-
-=item E<sol>
-
-A forward slash.
-
-=back
-
-Try to get this bit of text over towards the edge so S<|that all of this
-text inside SE<lt>E<gt> won't|> be wrapped. Also test the
-|sameE<nbsp>thingE<nbsp>withE<nbsp>non-breakingS< spaces>.|
-
-There is a soft hyE<shy>phen in hyphen at hy-phen.
-
-This is a test of an X<index entry>index entry.
-
-=head1 VERBATIM
-
-Throw in a few verbatim paragraphs.
-
- 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.\n", 'yellow on_magenta');
- print "This text is normal.\n";
- print colored ['yellow on_magenta'], "Yellow on magenta.\n";
-
- use Term::ANSIColor qw(uncolor);
- print uncolor '01;31', "\n";
-
-But this isn't verbatim (make sure it wraps properly), and the next
-paragraph is again:
-
- use Term::ANSIColor qw(:constants);
- print BOLD, BLUE, "This text is in bold blue.\n", RESET;
-
- use Term::ANSIColor qw(:constants); $Term::ANSIColor::AUTORESET = 1; print BOLD BLUE "This text is in bold blue.\n"; print "This text is normal.\n";
-
-(Ugh, that's obnoxiously long.) Try different spacing:
-
- Starting with a tab.
-Not
-starting
-with
-a
-tab. But this should still be verbatim.
- As should this.
-
-This isn't.
-
- This is. And this: is an internal tab. It should be:
- |--| <= lined up with that.
-
-(Tricky, but tabs should be expanded before the translator starts in on
-the text since otherwise text with mixed tabs and spaces will get messed
-up.)
-
- And now we test verbatim paragraphs right before a heading. Older
- versions of Pod::Man generated two spaces between paragraphs like this
- and the heading. (In order to properly test this, one may have to
- visually inspect the nroff output when run on the generated *roff
- text, unfortunately.)
-
-=head1 CONCLUSION
-
-That's all, folks!
-
-=cut
diff --git a/3.8.8/sources/cpan-podlators/vendor/t/basic.txt b/3.8.8/sources/cpan-podlators/vendor/t/basic.txt
deleted file mode 100644
index 986e98a..0000000
--- a/3.8.8/sources/cpan-podlators/vendor/t/basic.txt
+++ /dev/null
@@ -1,269 +0,0 @@
-NAME
- basic.pod - Test of various basic POD features in translators.
-
-HEADINGS
- Try a few different levels of headings, with embedded formatting codes
- and other interesting bits.
-
-This "is" a "level 1" heading
- ``Level'' "2 *heading*
- Level 3 heading *with "weird stuff "" (double quote)"*
- Level "4 "heading"
- Now try again with intermixed text.
-
-This "is" a "level 1" heading
- Text.
-
- ``Level'' 2 *heading*
- Text.
-
- Level 3 heading *with "weird stuff"*
- Text.
-
- Level "4 "heading"
- Text.
-
-LINKS
- These are all taken from the Pod::Parser tests.
-
- Try out *LOTS* of different ways of specifying references:
-
- Reference the "section" in manpage
-
- Reference the "section" in "manpage"
-
- Reference the "section" in manpage
-
- Now try it using the new "|" stuff ...
-
- Reference the thistext|
-
- Reference the thistext |
-
- Reference the thistext|
-
- Reference the thistext |
-
- Reference the thistext|
-
- Reference the thistext|
-
- And then throw in a few new ones of my own.
-
- foo
-
- foo
-
- "bar" in foo
-
- "baz boo" in foo
-
- "bar"
-
- "baz boo"
-
- "baz boo"
-
- "baz boo" in foo bar
-
- "boo var baz"
-
- "bar baz"
-
- "boo", "bar", and "baz"
-
- foobar
-
- Testing *italics*
-
- "*Italic* text" in foo
-
- "Section "with" *other markup*" in foo|bar
-
- Nested <http://www.perl.org/>
-
-OVER AND ITEMS
- Taken from Pod::Parser tests, this is a test to ensure that multiline
- =item paragraphs get indented appropriately.
-
- This is a test.
-
- There should be whitespace now before this line.
-
- Taken from Pod::Parser tests, this is a test to ensure the nested =item
- paragraphs get indented appropriately.
-
- 1 First section.
-
- a this is item a
-
- b this is item b
-
- 2 Second section.
-
- a this is item a
-
- b this is item b
-
- c
- d This is item c & d.
-
- Now some additional weirdness of our own. Make sure that multiple tags
- for one paragraph are properly compacted.
-
- "foo"
- bar
- "baz"
- There shouldn't be any spaces between any of these item tags; this
- idiom is used in perlfunc.
-
- Some longer item text
- Just to make sure that we test paragraphs where the item text
- doesn't fit in the margin of the paragraph (and make sure that this
- paragraph fills a few lines).
-
- Let's also make it multiple paragraphs to be sure that works.
-
- Test use of =over without =item as a block "quote" or block paragraph.
-
- This should be indented four spaces but otherwise formatted the same
- as any other regular text paragraph. Make sure it's long enough to
- see the results of the formatting.....
-
- Now try the same thing nested, and make sure that the indentation is
- reset back properly.
-
- This paragraph should be doubly indented.
-
- This paragraph should only be singly indented.
-
- * This is an item in the middle of a block-quote, which should be
- allowed.
-
- * We're also testing tagless item commands.
-
- Should be back to the single level of indentation.
-
- Should be back to regular indentation.
-
- Now also check the transformation of * into real bullets for man pages.
-
- * An item. We're also testing using =over without a number, and making
- sure that item text wraps properly.
-
- * Another item.
-
- and now test the numbering of item blocks.
-
- 1. First item.
-
- 2. Second item.
-
-FORMATTING CODES
- Another test taken from Pod::Parser.
-
- This is a test to see if I can do not only $self and "method()", but
- also "$self->method()" and "$self->{FIELDNAME}" and "$Foo <=> $Bar"
- without resorting to escape sequences. If I want to refer to the
- right-shift operator I can do something like "$x >> 3" or even "$y >>
- 5".
-
- Now for the grand finale of "$self->method()->{FIELDNAME} = {FOO=>BAR}".
- And I also want to make sure that newlines work like this
- "$self->{FOOBAR} >> 3 and [$b => $a]->[$a <=> $b]"
-
- Of course I should still be able to do all this *with* escape sequences
- too: "$self->method()" and "$self->{FIELDNAME}" and "{FOO=>BAR}".
-
- Dont forget "$self->method()->{FIELDNAME} = {FOO=>BAR}".
-
- And make sure that 0 works too!
-
- Now, if I use << or >> as my delimiters, then I have to use whitespace.
- So things like "<$self-"method()>> and "<$self-"{FIELDNAME}>> wont end
- up doing what you might expect since the first > will still terminate
- the first < seen.
-
- Lets make sure these work for empty ones too, like "" and ">>" (just to
- be obnoxious)
-
- The statement: "This is dog kind's *finest* hour!" is a parody of a
- quotation from Winston Churchill.
-
- The following tests are added to those:
-
- Make sure that a few other odd *things* still work. This should be a
- vertical bar: |. Here's a test of a few more special escapes that have
- to be supported:
-
- & An ampersand.
-
- ' An apostrophe.
-
- < A less-than sign.
-
- > A greater-than sign.
-
- " A double quotation mark.
-
- / A forward slash.
-
- Try to get this bit of text over towards the edge so
- |that all of this text inside S<> won't| be wrapped. Also test the
- |same thing with non-breaking spaces.|
-
- There is a soft hyphen in hyphen at hy-phen.
-
- This is a test of an index entry.
-
-VERBATIM
- Throw in a few verbatim paragraphs.
-
- 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.\n", 'yellow on_magenta');
- print "This text is normal.\n";
- print colored ['yellow on_magenta'], "Yellow on magenta.\n";
-
- use Term::ANSIColor qw(uncolor);
- print uncolor '01;31', "\n";
-
- But this isn't verbatim (make sure it wraps properly), and the next
- paragraph is again:
-
- use Term::ANSIColor qw(:constants);
- print BOLD, BLUE, "This text is in bold blue.\n", RESET;
-
- use Term::ANSIColor qw(:constants); $Term::ANSIColor::AUTORESET = 1; print BOLD BLUE "This text is in bold blue.\n"; print "This text is normal.\n";
-
- (Ugh, that's obnoxiously long.) Try different spacing:
-
- Starting with a tab.
- Not
- starting
- with
- a
- tab. But this should still be verbatim.
- As should this.
-
- This isn't.
-
- This is. And this: is an internal tab. It should be:
- |--| <= lined up with that.
-
- (Tricky, but tabs should be expanded before the translator starts in on
- the text since otherwise text with mixed tabs and spaces will get messed
- up.)
-
- And now we test verbatim paragraphs right before a heading. Older
- versions of Pod::Man generated two spaces between paragraphs like this
- and the heading. (In order to properly test this, one may have to
- visually inspect the nroff output when run on the generated *roff
- text, unfortunately.)
-
-CONCLUSION
- That's all, folks!
-
diff --git a/3.8.8/sources/cpan-podlators/vendor/t/devise-date.t b/3.8.8/sources/cpan-podlators/vendor/t/devise-date.t
deleted file mode 100755
index 3cce9f5..0000000
--- a/3.8.8/sources/cpan-podlators/vendor/t/devise-date.t
+++ /dev/null
@@ -1,15 +0,0 @@
-#!/usr/bin/perl -w
-
-# In order for MakeMaker to build in the core, nothing can use
-# Fcntl which includes POSIX. devise_date()'s use of strftime()
-# was replaced. This tests that it's identical.
-
-use strict;
-
-use Test::More tests => 1;
-
-use Pod::Man;
-use POSIX qw(strftime);
-
-my $parser = Pod::Man->new;
-is $parser->devise_date, strftime("%Y-%m-%d", localtime);
diff --git a/3.8.8/sources/cpan-podlators/vendor/t/filehandle.t b/3.8.8/sources/cpan-podlators/vendor/t/filehandle.t
deleted file mode 100755
index 1ed0667..0000000
--- a/3.8.8/sources/cpan-podlators/vendor/t/filehandle.t
+++ /dev/null
@@ -1,110 +0,0 @@
-#!/usr/bin/perl -w
-#
-# filehandle.t -- Test the parse_from_filehandle interface.
-#
-# Copyright 2006, 2009 by Russ Allbery <rra at stanford.edu>
-#
-# This program is free software; you may redistribute it and/or modify it
-# under the same terms as Perl itself.
-
-BEGIN {
- chdir 't' if -d 't';
- if ($ENV{PERL_CORE}) {
- @INC = '../lib';
- }
- unshift (@INC, '../blib/lib');
- $| = 1;
-}
-
-use strict;
-
-use Test::More tests => 6;
-
-BEGIN {
- use_ok ('Pod::Man');
- use_ok ('Pod::Text');
-}
-
-my $man = Pod::Man->new;
-isa_ok ($man, 'Pod::Man', 'Pod::Man parser object');
-my $text = Pod::Text->new;
-isa_ok ($text, 'Pod::Text', 'Pod::Text parser object');
-while (<DATA>) {
- next until $_ eq "###\n";
- open (TMP, '> tmp.pod') or die "Cannot create tmp.pod: $!\n";
- while (<DATA>) {
- last if $_ eq "###\n";
- print TMP $_;
- }
- close TMP;
-
- # Test Pod::Man output.
- open (IN, '< tmp.pod') or die "Cannot open tmp.pod: $!\n";
- open (OUT, '> out.tmp') or die "Cannot create out.tmp: $!\n";
- $man->parse_from_filehandle (\*IN, \*OUT);
- close IN;
- close OUT;
- open (OUT, 'out.tmp') or die "Cannot open out.tmp: $!\n";
- while (<OUT>) { last if /^\.nh/ }
- my $output;
- {
- local $/;
- $output = <OUT>;
- }
- close OUT;
- my $expected = '';
- while (<DATA>) {
- last if $_ eq "###\n";
- $expected .= $_;
- }
- is ($output, $expected, 'Pod::Man output is correct');
-
- # Test Pod::Text output.
- open (IN, '< tmp.pod') or die "Cannot open tmp.pod: $!\n";
- open (OUT, '> out.tmp') or die "Cannot create out.tmp: $!\n";
- $text->parse_from_filehandle (\*IN, \*OUT);
- close IN;
- close OUT;
- open (OUT, 'out.tmp') or die "Cannot open out.tmp: $!\n";
- {
- local $/;
- $output = <OUT>;
- }
- close OUT;
- 1 while unlink ('tmp.pod', 'out.tmp');
- $expected = '';
- while (<DATA>) {
- last if $_ eq "###\n";
- $expected .= $_;
- }
- is ($output, $expected, 'Pod::Text output is correct');
-}
-
-# Below the marker are bits of POD, corresponding expected nroff output, and
-# corresponding expected text output. The input and output are separated by
-# lines containing only ###.
-
-__DATA__
-
-###
-=head1 NAME
-
-gcc - GNU project C and C++ compiler
-
-=head1 C++ NOTES
-
-Other mentions of C++.
-###
-.SH "NAME"
-gcc \- GNU project C and C++ compiler
-.SH "\*(C+ NOTES"
-.IX Header " NOTES"
-Other mentions of \*(C+.
-###
-NAME
- gcc - GNU project C and C++ compiler
-
-C++ NOTES
- Other mentions of C++.
-
-###
diff --git a/3.8.8/sources/cpan-podlators/vendor/t/parselink.t b/3.8.8/sources/cpan-podlators/vendor/t/parselink.t
deleted file mode 100755
index 828b2ec..0000000
--- a/3.8.8/sources/cpan-podlators/vendor/t/parselink.t
+++ /dev/null
@@ -1,120 +0,0 @@
-#!/usr/bin/perl -w
-#
-# parselink.t -- Tests for Pod::ParseLink.
-#
-# Copyright 2001, 2009 by Russ Allbery <rra at stanford.edu>
-#
-# This program is free software; you may redistribute it and/or modify it
-# under the same terms as Perl itself.
-
-# The format of each entry in this array is the L<> text followed by the
-# five-element parse returned by parselink.
-our @TESTS = (
- [ 'foo',
- undef, 'foo', 'foo', undef, 'pod' ],
-
- [ 'foo|bar',
- 'foo', 'foo', 'bar', undef, 'pod' ],
-
- [ 'foo/bar',
- undef, '"bar" in foo', 'foo', 'bar', 'pod' ],
-
- [ 'foo/"baz boo"',
- undef, '"baz boo" in foo', 'foo', 'baz boo', 'pod' ],
-
- [ '/bar',
- undef, '"bar"', undef, 'bar', 'pod' ],
-
- [ '/"baz boo"',
- undef, '"baz boo"', undef, 'baz boo', 'pod' ],
-
- [ '/baz boo',
- undef, '"baz boo"', undef, 'baz boo', 'pod' ],
-
- [ 'foo bar/baz boo',
- undef, '"baz boo" in foo bar', 'foo bar', 'baz boo', 'pod' ],
-
- [ 'foo bar / baz boo',
- undef, '"baz boo" in foo bar', 'foo bar', 'baz boo', 'pod' ],
-
- [ "foo\nbar\nbaz\n/\nboo",
- undef, '"boo" in foo bar baz', 'foo bar baz', 'boo', 'pod' ],
-
- [ 'anchor|name/section',
- 'anchor', 'anchor', 'name', 'section', 'pod' ],
-
- [ '"boo var baz"',
- undef, '"boo var baz"', undef, 'boo var baz', 'pod' ],
-
- [ 'bar baz',
- undef, '"bar baz"', undef, 'bar baz', 'pod' ],
-
- [ '"boo bar baz / baz boo"',
- undef, '"boo bar baz / baz boo"', undef, 'boo bar baz / baz boo',
- 'pod' ],
-
- [ 'fooZ<>bar',
- undef, 'fooZ<>bar', 'fooZ<>bar', undef, 'pod' ],
-
- [ 'Testing I<italics>|foo/bar',
- 'Testing I<italics>', 'Testing I<italics>', 'foo', 'bar', 'pod' ],
-
- [ 'foo/I<Italic> text',
- undef, '"I<Italic> text" in foo', 'foo', 'I<Italic> text', 'pod' ],
-
- [ 'fooE<verbar>barZ<>/Section C<with> I<B<other> markup',
- undef, '"Section C<with> I<B<other> markup" in fooE<verbar>barZ<>',
- 'fooE<verbar>barZ<>', 'Section C<with> I<B<other> markup', 'pod' ],
-
- [ 'Nested L<http://www.perl.org/>|fooE<sol>bar',
- 'Nested L<http://www.perl.org/>', 'Nested L<http://www.perl.org/>',
- 'fooE<sol>bar', undef, 'pod' ],
-
- [ 'ls(1)',
- undef, 'ls(1)', 'ls(1)', undef, 'man' ],
-
- [ ' perlfunc(1)/open ',
- undef, '"open" in perlfunc(1)', 'perlfunc(1)', 'open', 'man' ],
-
- [ 'some manual page|perl(1)',
- 'some manual page', 'some manual page', 'perl(1)', undef, 'man' ],
-
- [ 'http://www.perl.org/',
- undef, 'http://www.perl.org/', 'http://www.perl.org/', undef, 'url' ],
-
- [ 'news:yld72axzc8.fsf at windlord.stanford.edu',
- undef, 'news:yld72axzc8.fsf at windlord.stanford.edu',
- 'news:yld72axzc8.fsf at windlord.stanford.edu', undef, 'url' ],
-
- [ 'link|http://www.perl.org/',
- 'link', 'link', 'http://www.perl.org/', undef, 'url' ],
-
- [ '0|http://www.perl.org/',
- '0', '0', 'http://www.perl.org/', undef, 'url' ],
-
- [ '0|Pod::Parser',
- '0', '0', 'Pod::Parser', undef, 'pod' ],
-);
-
-BEGIN {
- chdir 't' if -d 't';
- unshift (@INC, '../blib/lib');
- $| = 1;
-}
-
-use strict;
-
-use Test::More tests => 28;
-BEGIN { use_ok ('Pod::ParseLink') }
-
-# Used for reporting test failures.
-my @names = qw(text inferred name section type);
-
-for (@TESTS) {
- my @expected = @$_;
- my $link = shift @expected;
- my @results = parselink ($link);
- my $pretty = $link;
- $pretty =~ s/\n/\\n/g;
- is_deeply (\@results, \@expected, $pretty);
-}
diff --git a/3.8.8/sources/cpan-podlators/vendor/t/pod-parser.t b/3.8.8/sources/cpan-podlators/vendor/t/pod-parser.t
deleted file mode 100755
index ae2ef01..0000000
--- a/3.8.8/sources/cpan-podlators/vendor/t/pod-parser.t
+++ /dev/null
@@ -1,78 +0,0 @@
-#!/usr/bin/perl -w
-#
-# pod-parser.t -- Tests for backward compatibility with Pod::Parser.
-#
-# Copyright 2006, 2008, 2009 by Russ Allbery <rra at stanford.edu>
-#
-# This program is free software; you may redistribute it and/or modify it
-# under the same terms as Perl itself.
-
-BEGIN {
- chdir 't' if -d 't';
- if ($ENV{PERL_CORE}) {
- @INC = '../lib';
- }
- unshift (@INC, '../blib/lib');
- $| = 1;
-}
-
-use strict;
-
-use Test::More tests => 7;
-BEGIN {
- use_ok ('Pod::Man');
- use_ok ('Pod::Text');
-}
-
-my $parser = Pod::Man->new;
-isa_ok ($parser, 'Pod::Man', 'Pod::Man parser object');
-open (TMP, '> tmp.pod') or die "Cannot create tmp.pod: $!\n";
-print TMP "Some random B<text>.\n";
-close TMP;
-open (OUT, '> out.tmp') or die "Cannot create out.tmp: $!\n";
-$parser->parse_from_file ({ -cutting => 0 }, 'tmp.pod', \*OUT);
-close OUT;
-open (OUT, 'out.tmp') or die "Cannot open out.tmp: $!\n";
-while (<OUT>) { last if /^\.nh/ }
-my $output;
-{
- local $/;
- $output = <OUT>;
-}
-close OUT;
-is ($output, "Some random \\fBtext\\fR.\n", 'Pod::Man -cutting output');
-
-$parser = Pod::Text->new;
-isa_ok ($parser, 'Pod::Text', 'Pod::Text parser object');
-open (OUT, '> out.tmp') or die "Cannot create out.tmp: $!\n";
-$parser->parse_from_file ({ -cutting => 0 }, 'tmp.pod', \*OUT);
-close OUT;
-open (OUT, 'out.tmp') or die "Cannot open out.tmp: $!\n";
-{
- local $/;
- $output = <OUT>;
-}
-close OUT;
-is ($output, " Some random text.\n\n", 'Pod::Text -cutting output');
-
-# Test the pod2text function, particularly with only one argument.
-open (TMP, '> tmp.pod') or die "Cannot create tmp.pod: $!\n";
-print TMP "=pod\n\nSome random B<text>.\n";
-close TMP;
-open (OUT, '> out.tmp') or die "Cannot create out.tmp: $!\n";
-open (SAVE, '>&STDOUT') or die "Cannot dup stdout: $!\n";
-open (STDOUT, '>&OUT') or die "Cannot replace stdout: $!\n";
-pod2text ('tmp.pod');
-close OUT;
-open (STDOUT, '>&SAVE') or die "Cannot fix stdout: $!\n";
-close SAVE;
-open (OUT, 'out.tmp') or die "Cannot open out.tmp: $!\n";
-{
- local $/;
- $output = <OUT>;
-}
-close OUT;
-is ($output, " Some random text.\n\n", 'Pod::Text pod2text function');
-
-1 while unlink ('tmp.pod', 'out.tmp');
-exit 0;
diff --git a/3.8.8/sources/cpan-podlators/vendor/t/pod-spelling.t b/3.8.8/sources/cpan-podlators/vendor/t/pod-spelling.t
deleted file mode 100755
index d3ab858..0000000
--- a/3.8.8/sources/cpan-podlators/vendor/t/pod-spelling.t
+++ /dev/null
@@ -1,75 +0,0 @@
-#!/usr/bin/perl -w
-#
-# Check for spelling errors in POD documentation
-#
-# Checks all POD files in the tree for spelling problems using Pod::Spell and
-# either aspell or ispell. aspell is preferred. This test is disabled unless
-# RRA_MAINTAINER_TESTS is set, since spelling dictionaries vary too much
-# between environments.
-#
-# Copyright 2008, 2009 Russ Allbery <rra at stanford.edu>
-#
-# This program is free software; you may redistribute it and/or modify it
-# under the same terms as Perl itself.
-
-use strict;
-use Test::More;
-
-# Skip all spelling tests unless the maintainer environment variable is set.
-plan skip_all => 'Spelling tests only run for maintainer'
- unless $ENV{RRA_MAINTAINER_TESTS};
-
-# Load required Perl modules.
-eval 'use Test::Pod 1.00';
-plan skip_all => 'Test::Pod 1.00 required for testing POD' if $@;
-eval 'use Pod::Spell';
-plan skip_all => 'Pod::Spell required to test POD spelling' if $@;
-
-# Locate a spell-checker. hunspell is not currently supported due to its lack
-# of support for contractions (at least in the version in Debian).
-my @spell;
-my %options = (aspell => [ qw(-d en_US --home-dir=./ list) ],
- ispell => [ qw(-d american -l -p /dev/null) ]);
-SEARCH: for my $program (qw/aspell ispell/) {
- for my $dir (split ':', $ENV{PATH}) {
- if (-x "$dir/$program") {
- @spell = ("$dir/$program", @{ $options{$program} });
- }
- last SEARCH if @spell;
- }
-}
-plan skip_all => 'aspell or ispell required to test POD spelling'
- unless @spell;
-
-# Prerequisites are satisfied, so we're going to do some testing. Figure out
-# what POD files we have and from that develop our plan.
-$| = 1;
-my @pod = all_pod_files ();
-plan tests => scalar @pod;
-
-# Finally, do the checks.
-for my $pod (@pod) {
- my $child = open (CHILD, '-|');
- if (not defined $child) {
- die "Cannot fork: $!\n";
- } elsif ($child == 0) {
- my $pid = open (SPELL, '|-', @spell) or die "Cannot run @spell: $!\n";
- open (POD, '<', $pod) or die "Cannot open $pod: $!\n";
- my $parser = Pod::Spell->new;
- $parser->parse_from_filehandle (\*POD, \*SPELL);
- close POD;
- close SPELL;
- exit ($? >> 8);
- } else {
- my @words = <CHILD>;
- close CHILD;
- SKIP: {
- skip "@spell failed for $pod", 1 unless $? == 0;
- for (@words) {
- s/^\s+//;
- s/\s+$//;
- }
- is ("@words", '', $pod);
- }
- }
-}
diff --git a/3.8.8/sources/cpan-podlators/vendor/t/text-utf8.t b/3.8.8/sources/cpan-podlators/vendor/t/text-utf8.t
deleted file mode 100755
index 4874de5..0000000
--- a/3.8.8/sources/cpan-podlators/vendor/t/text-utf8.t
+++ /dev/null
@@ -1,122 +0,0 @@
-#!/usr/bin/perl -w
-#
-# text-utf8.t -- Test Pod::Text with UTF-8 input.
-#
-# Copyright 2002, 2004, 2006, 2007, 2008, 2009
-# Russ Allbery <rra at stanford.edu>
-#
-# This program is free software; you may redistribute it and/or modify it
-# under the same terms as Perl itself.
-
-BEGIN {
- chdir 't' if -d 't';
- if ($ENV{PERL_CORE}) {
- @INC = '../lib';
- }
- unshift (@INC, '../blib/lib');
- $| = 1;
-}
-
-use strict;
-
-use Test::More;
-
-# UTF-8 support requires Perl 5.8 or later.
-BEGIN {
- if ($] < 5.008) {
- plan skip_all => 'Perl 5.8 required for UTF-8 support';
- } else {
- plan tests => 4;
- }
-}
-BEGIN { use_ok ('Pod::Text') }
-
-my $parser = Pod::Text->new;
-isa_ok ($parser, 'Pod::Text', 'Parser object');
-my $n = 1;
-eval { binmode (\*DATA, ':encoding(utf-8)') };
-eval { binmode (\*STDOUT, ':encoding(utf-8)') };
-my $builder = Test::More->builder;
-eval { binmode ($builder->output, ':encoding(utf-8)') };
-eval { binmode ($builder->failure_output, ':encoding(utf-8)') };
-while (<DATA>) {
- next until $_ eq "###\n";
- open (TMP, '> tmp.pod') or die "Cannot create tmp.pod: $!\n";
- eval { binmode (\*TMP, ':encoding(utf-8)') };
- print TMP "=encoding UTF-8\n\n";
- while (<DATA>) {
- last if $_ eq "###\n";
- print TMP $_;
- }
- close TMP;
- open (OUT, '> out.tmp') or die "Cannot create out.tmp: $!\n";
- $parser->parse_from_file ('tmp.pod', \*OUT);
- close OUT;
- open (TMP, 'out.tmp') or die "Cannot open out.tmp: $!\n";
- eval { binmode (\*TMP, ':encoding(utf-8)') };
- my $output;
- {
- local $/;
- $output = <TMP>;
- }
- close TMP;
- 1 while unlink ('tmp.pod', 'out.tmp');
- my $expected = '';
- while (<DATA>) {
- last if $_ eq "###\n";
- $expected .= $_;
- }
- is ($output, $expected, "Output correct for test $n");
- $n++;
-}
-
-# Below the marker are bits of POD and corresponding expected text output.
-# This is used to test specific features or problems with Pod::Text. The
-# input and output are separated by lines containing only ###.
-
-__DATA__
-
-###
-=head1 Test of SE<lt>E<gt>
-
-This is S<some whitespace>.
-###
-Test of S<>
- This is some whitespace.
-
-###
-
-###
-=head1 I can eat glass
-
-=over 4
-
-=item Esperanto
-
-Mi povas manÄi vitron, Äi ne damaÄas min.
-
-=item Braille
-
-⠊⠀⠉â â ⠀⠑â ⠞⠀⠛⠇â â Žâ Žâ €â â ⠙⠀⠊⠞⠀⠙⠕⠑⠎â ⠞⠀⠓⠥⠗⠞⠀â â ‘
-
-=item Hindi
-
-मैं काà¤à¤š खा सकता हूठऔर मà¥à¤à¥‡ उससे कोई चोट नहीं पहà¥à¤‚चती.
-
-=back
-
-See L<http://www.columbia.edu/kermit/utf8.html>
-###
-I can eat glass
- Esperanto
- Mi povas manÄi vitron, Äi ne damaÄas min.
-
- Braille
- ⠊⠀⠉â â ⠀⠑â ⠞⠀⠛⠇â â Žâ Žâ €â â ⠙⠀⠊⠞⠀⠙⠕⠑⠎â ⠞⠀⠓⠥⠗⠞⠀â â ‘
-
- Hindi
- मैं काà¤à¤š खा सकता हूठऔर मà¥à¤à¥‡ उससे कोई चोट नहीं पहà¥à¤‚चती.
-
- See <http://www.columbia.edu/kermit/utf8.html>
-
-###
diff --git a/3.8.8/sources/cpan-version/vendor/lib/version/Internals.pod b/3.8.8/sources/cpan-version/vendor/lib/version/Internals.pod
deleted file mode 100644
index a4f0543..0000000
--- a/3.8.8/sources/cpan-version/vendor/lib/version/Internals.pod
+++ /dev/null
@@ -1,698 +0,0 @@
-=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
-L<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 main F<version.pm> file. 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 L<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 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<is_qv>.
-
-=item alpha
-
-A boolean that denotes whether this is an alpha version. NOTE: that the
-underscore can can only appear in the last position. See L<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<version/What about v-strings> below). 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>. 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 interchangably, 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>() 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>, 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>() and L<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>() operator will turn "v1.0"
-into the equivalent string "1.000000". Forcing the outer version object
-to L<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 at cpan.orgE<gt>
-
-=head1 SEE ALSO
-
-L<perl>.
-
-=cut
diff --git a/3.8.8/sources/cpan-version/vendor/lib/version/typemap b/3.8.8/sources/cpan-version/vendor/lib/version/typemap
deleted file mode 100755
index 2d330e9..0000000
--- a/3.8.8/sources/cpan-version/vendor/lib/version/typemap
+++ /dev/null
@@ -1,29 +0,0 @@
-###############################################################################
-## ##
-## Typemap for module "Universal::Version" ##
-## ##
-## Copyright (c) 2001 by John Peacock. ##
-## All rights reserved. ##
-## ##
-## This package is free software; you can redistribute it ##
-## and/or modify it under the same terms as Perl itself. ##
-## ##
-###############################################################################
-
-TYPEMAP
-
-N_int T_IV
-N_long T_IV
-Z_int T_IV
-Z_long T_IV
-boolean T_IV
-version_vxs T_PTROBJ_SPECIAL
-
-INPUT
-
-T_PTROBJ_SPECIAL
- if (sv_derived_from($arg, \"version\")) {
- $var = SvRV($arg);
- }
- else
- Perl_croak(aTHX_ \"$var is not of type ${(my $ntt=$ntype)=~s/_/::/g;\$ntt}\")
diff --git a/3.8.8/sources/cpan-version/vendor/t/01base.t b/3.8.8/sources/cpan-version/vendor/t/01base.t
deleted file mode 100644
index 1583ec6..0000000
--- a/3.8.8/sources/cpan-version/vendor/t/01base.t
+++ /dev/null
@@ -1,35 +0,0 @@
-#! /usr/local/perl -w
-# Before `make install' is performed this script should be runnable with
-# `make test'. After `make install' it should work as `perl test.pl'
-
-#########################
-
-use Test::More qw/no_plan/;
-my $Verbose;
-
-BEGIN {
- require "t/coretests.pm";
- use_ok('version', 0.82);
-}
-
-diag "Tests with base class" if $Verbose;
-
-BaseTests("version","new","qv");
-BaseTests("version","new","declare");
-BaseTests("version","parse", "qv");
-BaseTests("version","parse", "declare");
-
-# dummy up a redundant call to satify David Wheeler
-local $SIG{__WARN__} = sub { die $_[0] };
-eval 'use version;';
-unlike ($@, qr/^Subroutine main::declare redefined/,
- "Only export declare once per package (to prevent redefined warnings).");
-
-# https://rt.cpan.org/Ticket/Display.html?id=47980
-my $v = eval {
- require IO::Handle;
- $@ = qq(Can't locate some/completely/fictitious/module.pm);
- return IO::Handle->VERSION;
-};
-ok defined($v), 'Fix for RT #47980';
-
diff --git a/3.8.8/sources/cpan-version/vendor/t/02derived.t b/3.8.8/sources/cpan-version/vendor/t/02derived.t
deleted file mode 100644
index 829f4d6..0000000
--- a/3.8.8/sources/cpan-version/vendor/t/02derived.t
+++ /dev/null
@@ -1,82 +0,0 @@
-#! /usr/local/perl -w
-# Before `make install' is performed this script should be runnable with
-# `make test'. After `make install' it should work as `perl test.pl'
-
-#########################
-
-use Test::More qw/no_plan/;
-use File::Temp qw/tempfile/;
-my $Verbose;
-
-BEGIN {
- require "t/coretests.pm";
- use_ok("version", 0.82);
- # If we made it this far, we are ok.
-}
-
-use lib qw/./;
-
-package version::Bad;
-use base 'version';
-sub new { my($self,$n)=@_; bless \$n, $self }
-
-package main;
-
-my $warning;
-local $SIG{__WARN__} = sub { $warning = $_[0] };
-# dummy up a legal module for testing RT#19017
-my ($fh, $filename) = tempfile('tXXXXXXX', SUFFIX => '.pm', UNLINK => 1);
-(my $package = basename($filename)) =~ s/\.pm$//;
-print $fh <<"EOF";
-# This is an empty subclass
-package $package;
-use base 'version';
-use vars '\$VERSION';
-\$VERSION=0.001;
-EOF
-close $fh;
-
-sub main_reset {
- delete $main::INC{'$package'};
- undef &qv; undef *::qv; # avoid 'used once' warning
- undef &declare; undef *::declare; # avoid 'used once' warning
-}
-
-diag "Tests with empty derived class" if $Verbose;
-
-use_ok($package, 0.001);
-my $testobj = $package->new(1.002_003);
-isa_ok( $testobj, $package );
-ok( $testobj->numify == 1.002003, "Numified correctly" );
-ok( $testobj->stringify eq "1.002003", "Stringified correctly" );
-ok( $testobj->normal eq "v1.2.3", "Normalified correctly" );
-
-my $verobj = version::->new("1.2.4");
-ok( $verobj > $testobj, "Comparison vs parent class" );
-
-BaseTests($package, "new", "qv");
-main_reset;
-use_ok($package, 0.001, "declare");
-BaseTests($package, "new", "declare");
-main_reset;
-use_ok($package, 0.001);
-BaseTests($package, "parse", "qv");
-main_reset;
-use_ok($package, 0.001, "declare");
-BaseTests($package, "parse", "declare");
-
-diag "tests with bad subclass" if $Verbose;
-$testobj = version::Bad->new(1.002_003);
-isa_ok( $testobj, "version::Bad" );
-eval { my $string = $testobj->numify };
-like($@, qr/Invalid version object/,
- "Bad subclass numify");
-eval { my $string = $testobj->normal };
-like($@, qr/Invalid version object/,
- "Bad subclass normal");
-eval { my $string = $testobj->stringify };
-like($@, qr/Invalid version object/,
- "Bad subclass stringify");
-eval { my $test = ($testobj > 1.0) };
-like($@, qr/Invalid version object/,
- "Bad subclass vcmp");
diff --git a/3.8.8/sources/cpan-version/vendor/vutil/lib/version/vxs.pm b/3.8.8/sources/cpan-version/vendor/vutil/lib/version/vxs.pm
deleted file mode 100644
index 9de3c09..0000000
--- a/3.8.8/sources/cpan-version/vendor/vutil/lib/version/vxs.pm
+++ /dev/null
@@ -1,27 +0,0 @@
-#!perl -w
-package version::vxs;
-
-use 5.005_03;
-use strict;
-
-use vars qw(@ISA $VERSION $CLASS );
-
-$VERSION = 0.82;
-
-$CLASS = 'version::vxs';
-
-eval {
- require XSLoader;
- local $^W; # shut up the 'redefined' warning for UNIVERSAL::VERSION
- XSLoader::load('version::vxs', $VERSION);
- 1;
-} or do {
- require DynaLoader;
- push @ISA, 'DynaLoader';
- local $^W; # shut up the 'redefined' warning for UNIVERSAL::VERSION
- bootstrap version::vxs $VERSION;
-};
-
-# Preloaded methods go here.
-
-1;
diff --git a/3.8.8/sources/cpan-version/vendor/vutil/ppport.h b/3.8.8/sources/cpan-version/vendor/vutil/ppport.h
deleted file mode 100644
index 8313305..0000000
--- a/3.8.8/sources/cpan-version/vendor/vutil/ppport.h
+++ /dev/null
@@ -1,7063 +0,0 @@
-#if 0
-<<'SKIP';
-#endif
-/*
-----------------------------------------------------------------------
-
- ppport.h -- Perl/Pollution/Portability Version 3.19
-
- Automatically created by Devel::PPPort running under perl 5.012000.
-
- 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 3.19
-
-=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.10.0.
-
-=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
-automagially 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
- 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
- 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
- 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 using the CPAN Request Tracker at L<http://rt.cpan.org/>.
-
-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-2009, 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 = 3.19;
-
-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(
-AvFILLp|5.004050||p
-AvFILL|||
-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||p
-Copy|||
-CvPADLIST|||
-CvSTASH|||
-CvWEAKOUTSIDE|||
-DEFSV_set|5.011000||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|||
-GvSVn|5.009003||p
-GvSV|||
-Gv_AMupdate|||
-HEf_SVKEY||5.004000|
-HeHASH||5.004000|
-HeKEY||5.004000|
-HeKLEN||5.004000|
-HePV||5.004000|
-HeSVKEY_force||5.004000|
-HeSVKEY_set||5.004000|
-HeSVKEY||5.004000|
-HeUTF8||5.011000|
-HeVAL||5.004000|
-HvNAMELEN_get|5.009003||p
-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|||
-LVRET|||
-MARK|||
-MULTICALL||5.011000|
-MY_CXT_CLONE|5.009002||p
-MY_CXT_INIT|5.007003||p
-MY_CXT|5.007003||p
-MoveD|5.009002||p
-Move|||
-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|||
-ORIGMARK|||
-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_DUP|||
-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.011000||p
-PERL_GCC_BRACE_GROUPS_FORBIDDEN|5.008001||p
-PERL_HASH|5.004000||p
-PERL_INT_MAX|5.004000||p
-PERL_INT_MIN|5.004000||p
-PERL_LONG_MAX|5.004000||p
-PERL_LONG_MIN|5.004000||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.011000||p
-PERL_MAGIC_isaelem|5.007002||p
-PERL_MAGIC_isa|5.007002||p
-PERL_MAGIC_mutex|5.011000||p
-PERL_MAGIC_nkeys|5.007002||p
-PERL_MAGIC_overload_elem|5.007002||p
-PERL_MAGIC_overload_table|5.007002||p
-PERL_MAGIC_overload|5.007002||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.004000||p
-PERL_QUAD_MIN|5.004000||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.004000||p
-PERL_SHORT_MIN|5.004000||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.011000|
-PERL_UCHAR_MAX|5.004000||p
-PERL_UCHAR_MIN|5.004000||p
-PERL_UINT_MAX|5.004000||p
-PERL_UINT_MIN|5.004000||p
-PERL_ULONG_MAX|5.004000||p
-PERL_ULONG_MIN|5.004000||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.004000||p
-PERL_UQUAD_MIN|5.004000||p
-PERL_USE_GCC_BRACE_GROUPS|5.009004||p
-PERL_USHORT_MAX|5.004000||p
-PERL_USHORT_MIN|5.004000||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.011000||p
-PL_bufptr|5.011000||p
-PL_compiling|5.004050||p
-PL_copline|5.011000||p
-PL_curcop|5.004050||p
-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.011000||p
-PL_expect|5.011000||p
-PL_hexdigit|5.005000||p
-PL_hints|5.005000||p
-PL_in_my_stash|5.011000||p
-PL_in_my|5.011000||p
-PL_last_in_gv|||n
-PL_laststatval|5.005000||p
-PL_lex_state|5.011000||p
-PL_lex_stuff|5.011000||p
-PL_linestr|5.011000||p
-PL_modglobal||5.005000|n
-PL_na|5.004050||pn
-PL_no_modify|5.006000||p
-PL_ofsgv|||n
-PL_parser|5.009005||p
-PL_perl_destruct_level|5.004050||p
-PL_perldb|5.004050||p
-PL_ppaddr|5.006000||p
-PL_rsfp_filters|5.004050||p
-PL_rsfp|5.004050||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.011000||p
-POP_MULTICALL||5.011000|
-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.011000|
-PUSHi|||
-PUSHmortal|5.009002||p
-PUSHn|||
-PUSHp|||
-PUSHs|||
-PUSHu|5.004000||p
-PUTBACK|||
-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_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
-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_IV|||
-SVt_NV|||
-SVt_PVAV|||
-SVt_PVCV|||
-SVt_PVHV|||
-SVt_PVMG|||
-SVt_PV|||
-Safefree|||
-Slab_Alloc|||
-Slab_Free|||
-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_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|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|||
-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|||
-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.011000||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
-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_VERSION_BOOTCHECK|||
-XS_VERSION|||
-XSprePUSH|5.006000||p
-XS|||
-ZeroD|5.009002||p
-Zero|||
-_aMY_CXT|5.007003||p
-_pMY_CXT|5.007003||p
-aMY_CXT_|5.007003||p
-aMY_CXT|5.007003||p
-aTHXR_|5.011000||p
-aTHXR|5.011000||p
-aTHX_|5.006000||p
-aTHX|5.006000||p
-add_data|||n
-addmad|||
-allocmy|||
-amagic_call|||
-amagic_cmp_locale|||
-amagic_cmp|||
-amagic_i_ncmp|||
-amagic_ncmp|||
-any_dup|||
-ao|||
-append_elem|||
-append_list|||
-append_madprops|||
-apply_attrs_my|||
-apply_attrs_string||5.006001|
-apply_attrs|||
-apply|||
-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|||
-av_fetch|||
-av_fill|||
-av_iter_p||5.011000|
-av_len|||
-av_make|||
-av_pop|||
-av_push|||
-av_reify|||
-av_shift|||
-av_store|||
-av_undef|||
-av_unshift|||
-ax|||n
-bad_type|||
-bind_match|||
-block_end|||
-block_gimme||5.004000|
-block_start|||
-boolSV|5.004000||p
-boot_core_PerlIO|||
-boot_core_UNIVERSAL|||
-boot_core_mro|||
-bytes_from_utf8||5.007001|
-bytes_to_uni|||n
-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
-calloc||5.007002|n
-cando|||
-cast_i32||5.006000|
-cast_iv||5.006000|
-cast_ulong||5.006000|
-cast_uv||5.006000|
-check_type_and_open|||
-check_uni|||
-checkcomma|||
-checkposixcc|||
-ckWARN|5.006000||p
-ck_anoncode|||
-ck_bitop|||
-ck_concat|||
-ck_defined|||
-ck_delete|||
-ck_die|||
-ck_each|||
-ck_eof|||
-ck_eval|||
-ck_exec|||
-ck_exists|||
-ck_exit|||
-ck_ftst|||
-ck_fun|||
-ck_glob|||
-ck_grep|||
-ck_index|||
-ck_join|||
-ck_lfun|||
-ck_listiob|||
-ck_match|||
-ck_method|||
-ck_null|||
-ck_open|||
-ck_readline|||
-ck_repeat|||
-ck_require|||
-ck_return|||
-ck_rfun|||
-ck_rvconst|||
-ck_sassign|||
-ck_select|||
-ck_shift|||
-ck_sort|||
-ck_spair|||
-ck_split|||
-ck_subr|||
-ck_substr|||
-ck_svconst|||
-ck_trunc|||
-ck_unpack|||
-ckwarn_d||5.009003|
-ckwarn||5.009003|
-cl_and|||n
-cl_anything|||n
-cl_init_zero|||n
-cl_init|||n
-cl_is_anything|||n
-cl_or|||n
-clear_placeholders|||
-closest_cop|||
-convert|||
-cop_free|||
-cr_textfilter|||
-create_eval_scope|||
-croak_nocontext|||vn
-croak_xs_usage||5.011000|
-croak|||v
-csighandler||5.009003|n
-curmad|||
-custom_op_desc||5.007003|
-custom_op_name||5.007003|
-cv_ckproto_len|||
-cv_clone|||
-cv_const_sv||5.004000|
-cv_dump|||
-cv_undef|||
-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.011000||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
-del_sv|||
-delete_eval_scope|||
-delimcpy||5.004000|
-deprecate_old|||
-deprecate|||
-despatch_signals||5.007001|
-destroy_matcher|||
-die_nocontext|||vn
-die_where|||
-die|||v
-dirp_dup|||
-div128|||
-djSP|||
-do_aexec5|||
-do_aexec|||
-do_aspawn|||
-do_binmode||5.004050|
-do_chomp|||
-do_chop|||
-do_close|||
-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_kv|||
-do_magic_dump||5.006000|
-do_msgrcv|||
-do_msgsnd|||
-do_oddball|||
-do_op_dump||5.006000|
-do_op_xmldump|||
-do_open9||5.006000|
-do_openn||5.007001|
-do_open||5.004000|
-do_pmop_dump||5.006000|
-do_pmop_xmldump|||
-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|||
-dump_all||5.006000|
-dump_eval||5.006000|
-dump_exec_pos|||
-dump_fds|||
-dump_form||5.006000|
-dump_indent||5.006000|v
-dump_mstats|||
-dump_packsubs||5.006000|
-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|||
-fetch_cop_label||5.011000|
-filter_add|||
-filter_del|||
-filter_gets|||
-filter_read|||
-find_and_forget_pmops|||
-find_array_subscript|||
-find_beginning|||
-find_byclass|||
-find_hash_subscript|||
-find_in_my_stash|||
-find_runcv||5.008001|
-find_rundefsvoffset||5.009002|
-find_script|||
-find_uninit_var|||
-first_symbol|||n
-fold_constants|||
-forbid_setid|||
-force_ident|||
-force_list|||
-force_next|||
-force_version|||
-force_word|||
-forget_pmop|||
-form_nocontext|||vn
-form||5.004000|v
-fp_dup|||
-fprintf_nocontext|||vn
-free_global_struct|||
-free_tied_hv_pool|||
-free_tmps|||
-gen_constant_list|||
-get_arena|||
-get_aux_mg|||
-get_av|5.006000||p
-get_context||5.006000|n
-get_cvn_flags||5.009005|
-get_cv|5.006000||p
-get_db_sub|||
-get_debug_opts|||
-get_hash_seed|||
-get_hv|5.006000||p
-get_isa_hash|||
-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|||
-glob_assign_ref|||
-gp_dup|||
-gp_free|||
-gp_ref|||
-grok_bin|5.007003||p
-grok_hex|5.007003||p
-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_autoload4||5.004000|
-gv_check|||
-gv_const_sv||5.009003|
-gv_dump||5.006000|
-gv_efullname3||5.004000|
-gv_efullname4||5.006001|
-gv_efullname|||
-gv_ename|||
-gv_fetchfile_flags||5.009005|
-gv_fetchfile|||
-gv_fetchmeth_autoload||5.007003|
-gv_fetchmethod_autoload||5.004000|
-gv_fetchmethod_flags||5.011000|
-gv_fetchmethod|||
-gv_fetchmeth|||
-gv_fetchpvn_flags|5.009002||p
-gv_fetchpvs|5.009004||p
-gv_fetchpv|||
-gv_fetchsv||5.009002|
-gv_fullname3||5.004000|
-gv_fullname4||5.006001|
-gv_fullname|||
-gv_get_super_pkg|||
-gv_handler||5.007001|
-gv_init_sv|||
-gv_init|||
-gv_name_set||5.009004|
-gv_stashpvn|5.004000||p
-gv_stashpvs|5.009003||p
-gv_stashpv|||
-gv_stashsv|||
-he_dup|||
-hek_dup|||
-hfreeentries|||
-hsplit|||
-hv_assert||5.011000|
-hv_auxinit|||n
-hv_backreferences_p|||
-hv_clear_placeholders||5.009001|
-hv_clear|||
-hv_common_key_len||5.010000|
-hv_common||5.010000|
-hv_copy_hints_hv|||
-hv_delayfree_ent||5.004000|
-hv_delete_common|||
-hv_delete_ent||5.004000|
-hv_delete|||
-hv_eiter_p||5.009003|
-hv_eiter_set||5.009003|
-hv_exists_ent||5.004000|
-hv_exists|||
-hv_fetch_ent||5.004000|
-hv_fetchs|5.009003||p
-hv_fetch|||
-hv_free_ent||5.004000|
-hv_iterinit|||
-hv_iterkeysv||5.004000|
-hv_iterkey|||
-hv_iternext_flags||5.008000|
-hv_iternextsv|||
-hv_iternext|||
-hv_iterval|||
-hv_kill_backrefs|||
-hv_ksplit||5.004000|
-hv_magic_check|||n
-hv_magic|||
-hv_name_set||5.009003|
-hv_notallowed|||
-hv_placeholders_get||5.009003|
-hv_placeholders_p||5.009003|
-hv_placeholders_set||5.009003|
-hv_riter_p||5.009003|
-hv_riter_set||5.009003|
-hv_scalar||5.009001|
-hv_store_ent||5.004000|
-hv_store_flags||5.008000|
-hv_stores|5.009004||p
-hv_store|||
-hv_undef|||
-ibcmp_locale||5.004000|
-ibcmp_utf8||5.007003|
-ibcmp|||
-incline|||
-incpush_if_exists|||
-incpush_use_sep|||
-incpush|||
-ingroup|||
-init_argv_symbols|||
-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|
-instr|||
-intro_my|||
-intuit_method|||
-intuit_more|||
-invert|||
-io_close|||
-isALNUMC|5.006000||p
-isALNUM|||
-isALPHA|||
-isASCII|5.006000||p
-isBLANK|5.006001||p
-isCNTRL|5.006000||p
-isDIGIT|||
-isGRAPH|5.006000||p
-isGV_with_GP|5.009004||p
-isLOWER|||
-isPRINT|5.004000||p
-isPSXSPC|5.006001||p
-isPUNCT|5.006000||p
-isSPACE|||
-isUPPER|||
-isXDIGIT|5.006000||p
-is_an_int|||
-is_gv_magical_sv|||
-is_handle_constructor|||n
-is_list_assignment|||
-is_lvalue_sub||5.007001|
-is_uni_alnum_lc||5.006000|
-is_uni_alnumc_lc||5.006000|
-is_uni_alnumc||5.006000|
-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_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.006000|
-is_utf8_alnum||5.006000|
-is_utf8_alpha||5.006000|
-is_utf8_ascii||5.006000|
-is_utf8_char_slow|||n
-is_utf8_char||5.006000|
-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_print||5.006000|
-is_utf8_punct||5.006000|
-is_utf8_space||5.006000|
-is_utf8_string_loclen||5.009003|
-is_utf8_string_loc||5.008001|
-is_utf8_string||5.006001|
-is_utf8_upper||5.006000|
-is_utf8_xdigit||5.006000|
-isa_lookup|||
-items|||n
-ix|||n
-jmaybe|||
-join_exact|||
-keyword|||
-leave_scope|||
-lex_end|||
-lex_start|||
-linklist|||
-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.011000||p
-mPUSHu|5.009002||p
-mXPUSHi|5.009002||p
-mXPUSHn|5.009002||p
-mXPUSHp|5.009002||p
-mXPUSHs|5.011000||p
-mXPUSHu|5.009002||p
-mad_free|||
-madlex|||
-madparse|||
-magic_clear_all_env|||
-magic_clearenv|||
-magic_clearhint|||
-magic_clearisa|||
-magic_clearpack|||
-magic_clearsig|||
-magic_dump||5.006000|
-magic_existspack|||
-magic_freearylen_p|||
-magic_freeovrld|||
-magic_getarylen|||
-magic_getdefelem|||
-magic_getnkeys|||
-magic_getpack|||
-magic_getpos|||
-magic_getsig|||
-magic_getsubstr|||
-magic_gettaint|||
-magic_getuvar|||
-magic_getvec|||
-magic_get|||
-magic_killbackrefs|||
-magic_len|||
-magic_methcall|||
-magic_methpack|||
-magic_nextpack|||
-magic_regdata_cnt|||
-magic_regdatum_get|||
-magic_regdatum_set|||
-magic_scalarpack|||
-magic_set_all_env|||
-magic_setamagic|||
-magic_setarylen|||
-magic_setcollxfrm|||
-magic_setdbline|||
-magic_setdefelem|||
-magic_setenv|||
-magic_sethint|||
-magic_setisa|||
-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_failtable|||
-make_trie|||
-malloc_good_size|||n
-malloced_size|||n
-malloc||5.007002|n
-markstack_grow|||
-matcher_matches_sv|||
-measure_struct|||
-memEQ|5.004000||p
-memNE|5.004000||p
-mem_collxfrm|||
-mem_log_common|||n
-mess_alloc|||
-mess_nocontext|||vn
-mess||5.006000|v
-method_common|||
-mfree||5.007002|n
-mg_clear|||
-mg_copy|||
-mg_dup|||
-mg_find|||
-mg_free|||
-mg_get|||
-mg_length||5.005000|
-mg_localize|||
-mg_magical|||
-mg_set|||
-mg_size||5.005000|
-mini_mktime||5.007002|
-missingterm|||
-mode_from_discipline|||
-modkids|||
-mod|||
-more_bodies|||
-more_sv|||
-moreswitches|||
-mro_get_from_name||5.011000|
-mro_get_linear_isa_dfs|||
-mro_get_linear_isa||5.009005|
-mro_get_private_data||5.011000|
-mro_isa_changed_in|||
-mro_meta_dup|||
-mro_meta_init|||
-mro_method_changed_in||5.009005|
-mro_register||5.011000|
-mro_set_mro||5.011000|
-mro_set_private_data||5.011000|
-mul128|||
-mulexp10|||n
-my_atof2||5.007002|
-my_atof||5.006000|
-my_attrs|||
-my_bcopy|||n
-my_betoh16|||n
-my_betoh32|||n
-my_betoh64|||n
-my_betohi|||n
-my_betohl|||n
-my_betohs|||n
-my_bzero|||n
-my_chsize|||
-my_clearenv|||
-my_cxt_index|||
-my_cxt_init|||
-my_dirfd||5.009005|
-my_exit_jump|||
-my_exit|||
-my_failure_exit||5.004000|
-my_fflush_all||5.006000|
-my_fork||5.007003|n
-my_htobe16|||n
-my_htobe32|||n
-my_htobe64|||n
-my_htobei|||n
-my_htobel|||n
-my_htobes|||n
-my_htole16|||n
-my_htole32|||n
-my_htole64|||n
-my_htolei|||n
-my_htolel|||n
-my_htoles|||n
-my_htonl|||
-my_kid|||
-my_letoh16|||n
-my_letoh32|||n
-my_letoh64|||n
-my_letohi|||n
-my_letohl|||n
-my_letohs|||n
-my_lstat|||
-my_memcmp||5.004000|n
-my_memset|||n
-my_ntohl|||
-my_pclose||5.004000|
-my_popen_list||5.007001|
-my_popen||5.004000|
-my_setenv|||
-my_snprintf|5.009004||pvn
-my_socketpair||5.007003|n
-my_sprintf|5.009003||pvn
-my_stat|||
-my_strftime||5.007002|
-my_strlcat|5.009004||pn
-my_strlcpy|5.009004||pn
-my_swabn|||n
-my_swap|||
-my_unexec|||
-my_vsnprintf||5.009004|n
-need_utf8|||n
-newANONATTRSUB||5.006000|
-newANONHASH|||
-newANONLIST|||
-newANONSUB|||
-newASSIGNOP|||
-newATTRSUB||5.006000|
-newAVREF|||
-newAV|||
-newBINOP|||
-newCONDOP|||
-newCONSTSUB|5.004050||p
-newCVREF|||
-newDEFSVOP|||
-newFORM|||
-newFOROP|||
-newGIVENOP||5.009003|
-newGIVWHENOP|||
-newGP|||
-newGVOP|||
-newGVREF|||
-newGVgen|||
-newHVREF|||
-newHVhv||5.005000|
-newHV|||
-newIO|||
-newLISTOP|||
-newLOGOP|||
-newLOOPEX|||
-newLOOPOP|||
-newMADPROP|||
-newMADsv|||
-newMYSUB|||
-newNULLLIST|||
-newOP|||
-newPADOP|||
-newPMOP|||
-newPROG|||
-newPVOP|||
-newRANGE|||
-newRV_inc|5.004000||p
-newRV_noinc|5.004000||p
-newRV|||
-newSLICEOP|||
-newSTATEOP|||
-newSUB|||
-newSVOP|||
-newSVREF|||
-newSV_type|5.009005||p
-newSVhek||5.009003|
-newSViv|||
-newSVnv|||
-newSVpvf_nocontext|||vn
-newSVpvf||5.004000|v
-newSVpvn_flags|5.011000||p
-newSVpvn_share|5.007001||p
-newSVpvn_utf8|5.011000||p
-newSVpvn|5.004050||p
-newSVpvs_flags|5.011000||p
-newSVpvs_share||5.009003|
-newSVpvs|5.009003||p
-newSVpv|||
-newSVrv|||
-newSVsv|||
-newSVuv|5.006000||p
-newSV|||
-newTOKEN|||
-newUNOP|||
-newWHENOP||5.009003|
-newWHILEOP||5.009003|
-newXS_flags||5.009004|
-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|||
-no_bareword_allowed|||
-no_fh_allowed|||
-no_op|||
-not_a_number|||
-nothreadhook||5.008000|
-nuke_stacks|||
-num_overflow|||n
-offer_nice_chunk|||
-oopsAV|||
-oopsHV|||
-op_clear|||
-op_const_sv|||
-op_dump||5.006000|
-op_free|||
-op_getmad_weak|||
-op_getmad|||
-op_null||5.007002|
-op_refcnt_dec|||
-op_refcnt_inc|||
-op_refcnt_lock||5.009002|
-op_refcnt_unlock||5.009002|
-op_xmldump|||
-open_script|||
-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|||
-packlist||5.008001|
-pad_add_anon|||
-pad_add_name|||
-pad_alloc|||
-pad_block_start|||
-pad_check_dup|||
-pad_compname_type|||
-pad_findlex|||
-pad_findmy|||
-pad_fixup_inner_anons|||
-pad_free|||
-pad_leavemy|||
-pad_new|||
-pad_peg|||n
-pad_push|||
-pad_reset|||
-pad_setsv|||
-pad_sv||5.011000|
-pad_swipe|||
-pad_tidy|||
-pad_undef|||
-parse_body|||
-parse_unicode_opts|||
-parser_dup|||
-parser_free|||
-path_is_absolute|||n
-peep|||
-pending_Slabs_to_ro|||
-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|||
-pmflag|||
-pmop_dump||5.006000|
-pmop_xmldump|||
-pmruntime|||
-pmtrans|||
-pop_scope|||
-pregcomp||5.009005|
-pregexec|||
-pregfree2||5.011000|
-pregfree|||
-prepend_elem|||
-prepend_madprops|||
-printbuf|||
-printf_nocontext|||vn
-process_special_blocks|||
-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_byte|||
-pv_display|5.006000||p
-pv_escape|5.009004||p
-pv_pretty|5.009004||p
-pv_uni_display||5.007003|
-qerror|||
-qsortsvu|||
-re_compile||5.009005|
-re_croak2|||
-re_dup_guts|||
-re_intuit_start||5.009005|
-re_intuit_string||5.006000|
-readpipe_override|||
-realloc||5.007002|n
-reentrant_free|||
-reentrant_init|||
-reentrant_retry|||vn
-reentrant_size|||
-ref_array_or_hash|||
-refcounted_he_chain_2hv|||
-refcounted_he_fetch|||
-refcounted_he_free|||
-refcounted_he_new_common|||
-refcounted_he_new|||
-refcounted_he_value|||
-refkids|||
-refto|||
-ref||5.011000|
-reg_check_named_buff_matched|||
-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_namedseq|||
-reg_node|||
-reg_numbered_buff_fetch|||
-reg_numbered_buff_length|||
-reg_numbered_buff_store|||
-reg_qr_package|||
-reg_recode|||
-reg_scan_name|||
-reg_skipcomment|||
-reg_temp_copy|||
-reganode|||
-regatom|||
-regbranch|||
-regclass_swash||5.009004|
-regclass|||
-regcppop|||
-regcppush|||
-regcurly|||n
-regdump_extflags|||
-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|
-regpiece|||
-regpposixcc|||
-regprop|||
-regrepeat|||
-regtail_study|||
-regtail|||
-regtry|||
-reguni|||
-regwhite|||n
-reg|||
-repeatcpy|||
-report_evil_fh|||
-report_uninit|||
-require_pv||5.006000|
-require_tie_mod|||
-restore_magic|||
-rninstr|||
-rsignal_restore|||
-rsignal_save|||
-rsignal_state||5.004000|
-rsignal||5.004000|
-run_body|||
-run_user_filter|||
-runops_debug||5.005000|
-runops_standard||5.005000|
-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||5.004050|
-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_hek_flags|||n
-save_helem_flags||5.011000|
-save_helem||5.004050|
-save_hints|||
-save_hptr|||
-save_int|||
-save_item|||
-save_iv||5.005000|
-save_lines|||
-save_list|||
-save_long|||
-save_magic|||
-save_mortalizesv||5.007001|
-save_nogv|||
-save_op|||
-save_padsv_and_mortalize||5.011000|
-save_pptr|||
-save_pushi32ptr|||
-save_pushptri32ptr|||
-save_pushptrptr|||
-save_pushptr||5.011000|
-save_re_context||5.006000|
-save_scalar_at|||
-save_scalar|||
-save_set_svflags||5.009000|
-save_shared_pvref||5.007003|
-save_sptr|||
-save_svref|||
-save_vptr||5.006000|
-savepvn|||
-savepvs||5.009003|
-savepv|||
-savesharedpvn||5.009005|
-savesharedpv||5.007003|
-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|||
-scope|||
-screaminstr||5.005000|
-search_const|||
-seed||5.008001|
-sequence_num|||
-sequence_tail|||
-sequence|||
-set_context||5.006000|n
-set_numeric_local||5.006000|
-set_numeric_radix||5.006000|
-set_numeric_standard||5.006000|
-setdefout|||
-share_hek_flags|||
-share_hek||5.004000|
-si_dup|||
-sighandler|||n
-simplify_sort|||
-skipspace0|||
-skipspace1|||
-skipspace2|||
-skipspace|||
-softref2xv|||
-sortcv_stacked|||
-sortcv_xsub|||
-sortcv|||
-sortsv_flags||5.009003|
-sortsv||5.007003|
-space_join_names_mortal|||
-ss_dup|||
-stack_grow|||
-start_force|||
-start_glob|||
-start_subparse||5.004000|
-stashpv_hvname_match||5.011000|
-stdize_locale|||
-store_cop_label|||
-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|||
-sv_2cv|||
-sv_2io|||
-sv_2iuv_common|||
-sv_2iuv_non_preserve|||
-sv_2iv_flags||5.009001|
-sv_2iv|||
-sv_2mortal|||
-sv_2num|||
-sv_2nv|||
-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|||
-sv_bless|||
-sv_cat_decode||5.008001|
-sv_catpv_mg|5.004050||p
-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|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_catxmlpvn|||
-sv_catxmlsv|||
-sv_chop|||
-sv_clean_all|||
-sv_clean_objs|||
-sv_clear|||
-sv_cmp_locale||5.004000|
-sv_cmp|||
-sv_collxfrm|||
-sv_compile_2op||5.008001|
-sv_copypv||5.007003|
-sv_dec|||
-sv_del_backref|||
-sv_derived_from||5.004000|
-sv_destroyable||5.010000|
-sv_does||5.009004|
-sv_dump|||
-sv_dup_inc_multiple|||
-sv_dup|||
-sv_eq|||
-sv_exp_grow|||
-sv_force_normal_flags||5.007001|
-sv_force_normal||5.006000|
-sv_free2|||
-sv_free_arenas|||
-sv_free|||
-sv_gets||5.004000|
-sv_grow|||
-sv_i_ncmp|||
-sv_inc|||
-sv_insert_flags||5.011000|
-sv_insert|||
-sv_isa|||
-sv_isobject|||
-sv_iv||5.005000|
-sv_kill_backrefs|||
-sv_len_utf8||5.006000|
-sv_len|||
-sv_magic_portable|5.011000|5.004000|p
-sv_magicext||5.007003|
-sv_magic|||
-sv_mortalcopy|||
-sv_ncmp|||
-sv_newmortal|||
-sv_newref|||
-sv_nolocking||5.007003|
-sv_nosharing||5.007003|
-sv_nounlocking|||
-sv_nv||5.005000|
-sv_peek||5.005000|
-sv_pos_b2u_midway|||
-sv_pos_b2u||5.006000|
-sv_pos_u2b_cached|||
-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_release_COW|||
-sv_replace|||
-sv_report_used|||
-sv_reset|||
-sv_rvweaken||5.006000|
-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|5.009004||p
-sv_setpv|||
-sv_setref_iv|||
-sv_setref_nv|||
-sv_setref_pvn|||
-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_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||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
-sv_xmlpeek|||
-svtype|||
-swallow_bom|||
-swap_match_buff|||
-swash_fetch||5.007002|
-swash_get|||
-swash_init||5.006000|
-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|||
-tmps_grow||5.006000|
-toLOWER|||
-toUPPER|||
-to_byte_substr|||
-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.007003|
-to_utf8_lower||5.007003|
-to_utf8_substr|||
-to_utf8_title||5.007003|
-to_utf8_upper||5.007003|
-token_free|||
-token_getmad|||
-tokenize_use|||
-tokeq|||
-tokereport|||
-too_few_arguments|||
-too_many_arguments|||
-uiv_2buf|||n
-unlnk|||
-unpack_rec|||
-unpack_str||5.007003|
-unpackstring||5.008001|
-unshare_hek_or_pvn|||
-unshare_hek|||
-unsharepvn||5.004000|
-unwind_handler_stack|||
-update_debugger_info|||
-upg_version||5.009005|
-usage|||
-utf16_to_utf8_reversed||5.006001|
-utf16_to_utf8||5.006001|
-utf8_distance||5.006000|
-utf8_hop||5.006000|
-utf8_length||5.007001|
-utf8_mg_pos_cache_update|||
-utf8_to_bytes||5.006001|
-utf8_to_uvchr||5.007001|
-utf8_to_uvuni||5.007001|
-utf8n_to_uvchr|||
-utf8n_to_uvuni||5.007001|
-utilize|||
-uvchr_to_utf8_flags||5.007003|
-uvchr_to_utf8|||
-uvuni_to_utf8_flags||5.007003|
-uvuni_to_utf8||5.007001|
-validate_suid|||
-varname|||
-vcmp||5.009000|
-vcroak||5.006000|
-vdeb||5.007003|
-vdie_common|||
-vdie_croak_common|||
-vdie|||
-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
-warner_nocontext|||vn
-warner|5.006000|5.004000|pv
-warn|||v
-watch|||
-whichsig|||
-write_no_mem|||
-write_to_stderr|||
-xmldump_all|||
-xmldump_attr|||
-xmldump_eval|||
-xmldump_form|||
-xmldump_indent|||v
-xmldump_packsubs|||
-xmldump_sub|||
-xmldump_vindent|||
-yyerror|||
-yylex|||
-yyparse|||
-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 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 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 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
-#ifndef isALNUMC
-# define isALNUMC(c) (isALPHA(c) || isDIGIT(c))
-#endif
-
-#ifndef isASCII
-# define isASCII(c) ((c) <= 127)
-#endif
-
-#ifndef isCNTRL
-# define isCNTRL(c) ((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
-
-#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);
-#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"
-# else
-# if IVSIZE == INTSIZE
-# define IVdf "d"
-# define UVuf "u"
-# define UVof "o"
-# define UVxf "x"
-# define UVXf "X"
-# endif
-# 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_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
-
-#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 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 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_fetchpvn_flags
-# define gv_fetchpvn_flags(name, len, flags, svt) gv_fetchpv(name, flags, svt)
-#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 SvGETMAGIC
-# define SvGETMAGIC(x) STMT_START { if (SvGMAGICAL(x)) mg_get(x); } STMT_END
-#endif
-#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
-
-#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 */
-#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/3.8.8/sources/cpan-version/vendor/vutil/vutil.h b/3.8.8/sources/cpan-version/vendor/vutil/vutil.h
deleted file mode 100644
index a7d0e74..0000000
--- a/3.8.8/sources/cpan-version/vendor/vutil/vutil.h
+++ /dev/null
@@ -1,154 +0,0 @@
-#include "ppport.h"
-
-/* 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
-
-# if PERL_VERSION == 12
-
-# 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)
-
-# else
-# if(PERL_VERSION == 10 && (PERL_SUBVERSION == 0 || PERL_SUBVERSION == 1))
-
-const char * Perl_scan_version2(pTHX_ const char *s, SV *rv, bool qv);
-SV * Perl_new_version2(pTHX_ SV *ver);
-SV * Perl_upg_version2(pTHX_ SV *sv, bool qv);
-SV * Perl_vstringify2(pTHX_ SV *vs);
-#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)
-
-# 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);
-bool 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);
-#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 voriginal(a) Perl_voriginal(aTHX_ a)
-#define vcmp(a,b) Perl_vcmp(aTHX_ a,b)
-
-# endif
-
-const char *
-Perl_prescan_version(pTHX_ const char *s, bool strict,
- const char** errstr,
- bool *sqv, int *ssaw_decimal, int *swidth, bool *salpha);
-#define prescan_version(a,b,c,d,e,f,g) Perl_prescan_version(aTHX_ a,b,c,d,e,f,g)
-
-#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;
-
-#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
diff --git a/3.8.8/sources/cpan-version/vendor/vutil/vxs.xs b/3.8.8/sources/cpan-version/vendor/vutil/vxs.xs
deleted file mode 100644
index 647a527..0000000
--- a/3.8.8/sources/cpan-version/vendor/vutil/vxs.xs
+++ /dev/null
@@ -1,289 +0,0 @@
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-#define NEED_sv_2pv_nolen_GLOBAL
-#include "ppport.h"
-#include "vutil.h"
-
-/* --------------------------------------------------
- * $Revision: 2.5 $
- * --------------------------------------------------*/
-
-typedef SV *version_vxs;
-
-MODULE = version::vxs PACKAGE = version::vxs
-
-PROTOTYPES: DISABLE
-VERSIONCHECK: DISABLE
-
-BOOT:
- /* register the overloading (type 'A') magic */
- PL_amagic_generation++;
- newXS("version::vxs::()", XS_version__vxs_noop, file);
- newXS("version::vxs::(\"\"", XS_version__vxs_stringify, file);
- newXS("version::vxs::(0+", XS_version__vxs_numify, file);
- newXS("version::vxs::(cmp", XS_version__vxs_vcmp, file);
- newXS("version::vxs::(<=>", XS_version__vxs_vcmp, file);
- newXS("version::vxs::(bool", XS_version__vxs_boolean, file);
- newXS("version::vxs::(nomethod", XS_version__vxs_noop, file);
-
-void
-new(...)
-ALIAS:
- parse = 1
-PPCODE:
-{
- SV *vs = ST(1);
- SV *rv;
- const char * const classname =
- sv_isobject(ST(0)) /* get the class if called as an object method */
- ? HvNAME_get(SvSTASH(SvRV(ST(0))))
- : (char *)SvPV_nolen(ST(0));
- PERL_UNUSED_ARG(ix);
-
- if (items > 3)
- Perl_croak(aTHX_ "Usage: version::new(class, version)");
-
- if ( items == 1 || ! SvOK(vs) ) { /* no param or explicit undef */
- /* create empty object */
- vs = sv_newmortal();
- sv_setpvs(vs,"undef");
- }
- else if (items == 3 ) {
- vs = sv_newmortal();
- sv_setpvf(vs,"v%s",SvPV_nolen_const(ST(2)));
- }
-
- rv = NEW_VERSION(vs);
- if ( strcmp(classname,"version::vxs") != 0 ) /* inherited new() */
-#if PERL_VERSION == 5
- sv_bless(rv, gv_stashpv((char *)classname, GV_ADD));
-#else
- sv_bless(rv, gv_stashpv(classname, GV_ADD));
-#endif
-
- mPUSHs(rv);
-}
-
-void
-stringify (lobj,...)
- version_vxs lobj
-PPCODE:
-{
- mPUSHs(VSTRINGIFY(lobj));
-}
-
-void
-numify (lobj,...)
- version_vxs lobj
-PPCODE:
-{
- mPUSHs(vnumify(lobj));
-}
-
-void
-normal(ver)
- SV *ver
-PPCODE:
-{
- mPUSHs(vnormal(ver));
-}
-
-void
-vcmp (lobj,...)
- version_vxs lobj
-PPCODE:
-{
- SV *rs;
- SV *rvs;
- SV *robj = ST(1);
- const IV swap = (IV)SvIV(ST(2));
-
- if ( ! sv_derived_from(robj, "version::vxs") )
- {
- robj = NEW_VERSION(SvOK(robj) ? robj : newSVpvs("undef"));
- }
- rvs = SvRV(robj);
-
- if ( swap )
- {
- rs = newSViv(vcmp(rvs,lobj));
- }
- else
- {
- rs = newSViv(vcmp(lobj,rvs));
- }
-
- mPUSHs(rs);
-}
-
-void
-boolean(lobj,...)
- version_vxs lobj
-PPCODE:
-{
- SV * const rs = newSViv( vcmp(lobj,NEW_VERSION(newSVpvs("0"))) );
- mPUSHs(rs);
-}
-
-void
-noop(lobj,...)
- version_vxs lobj
-CODE:
-{
- Perl_croak(aTHX_ "operation not supported with version object");
-}
-
-void
-is_alpha(lobj)
- version_vxs lobj
-PPCODE:
-{
- if ( hv_exists(MUTABLE_HV(lobj), "alpha", 5 ) )
- XSRETURN_YES;
- else
- XSRETURN_NO;
-}
-
-void
-qv(...)
-ALIAS:
- declare = 1
-PPCODE:
-{
- SV *ver = ST(0);
- SV * rv;
- const char * classname = "";
- PERL_UNUSED_ARG(ix);
- if ( items == 2 && SvOK(ST(1)) ) {
- /* getting called as object or class method */
- ver = ST(1);
- classname =
- sv_isobject(ST(0)) /* get the class if called as an object method */
- ? HvNAME_get(SvSTASH(SvRV(ST(0))))
- : (char *)SvPV_nolen(ST(0));
- }
-#ifdef SvVOK
- if ( !SvVOK(ver) ) { /* not already a v-string */
-#endif
- rv = sv_newmortal();
- sv_setsv(rv,ver); /* make a duplicate */
- UPG_VERSION(rv, TRUE);
-#ifdef SvVOK
- }
- else
- {
- rv = sv_2mortal(NEW_VERSION(ver));
- }
-#endif
- if ( items == 2 && strcmp(classname,"version") ) {
- /* inherited new() */
-#if PERL_VERSION == 5
- sv_bless(rv, gv_stashpv((char *)classname, GV_ADD));
-#else
- sv_bless(rv, gv_stashpv(classname, GV_ADD));
-#endif
- }
- PUSHs(rv);
-}
-
-void
-is_qv(lobj)
- version_vxs lobj
-PPCODE:
-{
- if ( hv_exists(MUTABLE_HV(lobj), "qv", 2 ) )
- XSRETURN_YES;
- else
- XSRETURN_NO;
-}
-
-void
-_VERSION(sv,...)
- SV *sv
-PPCODE:
-{
- HV *pkg;
- GV **gvp;
- GV *gv;
- const char *undef;
-
- if (SvROK(sv)) {
- sv = (SV*)SvRV(sv);
- if (!SvOBJECT(sv))
- Perl_croak(aTHX_ "Cannot find version of an unblessed reference");
- pkg = SvSTASH(sv);
- }
- else {
- pkg = gv_stashsv(sv, FALSE);
- }
-
- gvp = pkg ? (GV**)hv_fetchs(pkg,"VERSION",FALSE) : Null(GV**);
-
- if (gvp && isGV(gv = *gvp) && (sv = GvSV(gv)) && SvOK(sv)) {
- sv = sv_mortalcopy(sv);
- if ( !sv_derived_from(sv, "version::vxs"))
- UPG_VERSION(sv, FALSE);
- undef = NULL;
- }
- else {
- sv = (SV*)&PL_sv_undef;
- undef = "(undef)";
- }
-
- if (items > 1) {
- SV *req = ST(1);
-
- if (undef) {
- if (pkg) {
- const char * const name = HvNAME_get(pkg);
-#if PERL_VERSION == 5
- Perl_croak(aTHX_ "%s version %s required--this is only version ",
- name, SvPVx_nolen_const(req));
-#else
- Perl_croak(aTHX_ "%s does not define $%s::VERSION--version check failed",
- name, name);
-#endif
- }
- else {
-#if PERL_VERSION >= 8
- Perl_croak(aTHX_ "%s defines neither package nor VERSION--version check failed",
- SvPVx_nolen_const(ST(0)) );
-#else
- Perl_croak(aTHX_ "%s does not define $%s::VERSION--version check failed",
- SvPVx_nolen_const(ST(0)),
- SvPVx_nolen_const(ST(0)) );
-#endif
- }
- }
-
- if ( !sv_derived_from(req, "version")) {
- /* req may very well be R/O, so create a new object */
- req = sv_2mortal( NEW_VERSION(req) );
- }
-
- if ( vcmp( req, sv ) > 0 ) {
- if ( hv_exists(MUTABLE_HV(SvRV(req)), "qv", 2 ) ) {
- req = vnormal(req);
- sv = vnormal(sv);
- }
- else {
- req = VSTRINGIFY(req);
- sv = VSTRINGIFY(sv);
- }
- Perl_croak(aTHX_ "%s version %"SVf" required--"
- "this is only version %"SVf"", HvNAME_get(pkg),
- SVfARG(sv_2mortal(req)),
- SVfARG(sv_2mortal(sv)));
- }
- }
-
- /* if the package's $VERSION is not undef, it is upgraded to be a version object */
- if (!undef) {
- ST(0) = sv_2mortal(VSTRINGIFY(sv));
- } else {
- ST(0) = sv;
- }
-
- XSRETURN(1);
-}
-----------------------------------------------------------------------
More information about the Bps-public-commit
mailing list