Add missing files from the Encode CPAN distribution

diff --git a/MANIFEST b/MANIFEST
index bde4f33..28f5713 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -609,6 +609,8 @@ ext/Encode/lib/Encode/PerlIO.pod    Documents for Encode & PerlIO
 ext/Encode/lib/Encode/Supported.pod    Documents for supported encodings
 ext/Encode/lib/Encode/Unicode/UTF7.pm  Encode extension
 ext/Encode/Makefile.PL         Encode extension makefile writer
+ext/Encode/MANIFEST            Encode MANIFEST
+ext/Encode/META.yml            Encode META.yml
 ext/Encode/README              Encode extension
 ext/Encode/Symbol/Makefile.PL  Encode extension
 ext/Encode/Symbol/Symbol.pm    Encode extension
@@ -650,6 +652,7 @@ ext/Encode/t/mime-header.t  test script
 ext/Encode/t/mime-name.t       test script
 ext/Encode/t/Mod_EUCJP.pm      module that t/enc_module.enc uses
 ext/Encode/t/perlio.t          test script
+ext/Encode/t/piconv.t          Test for piconv.t
 ext/Encode/t/rt.pl             test script
 ext/Encode/t/unibench.pl       benchmark script
 ext/Encode/t/Unicode.t         test script

diff --git a/ext/Encode/MANIFEST b/ext/Encode/MANIFEST
new file mode 100644 (file)
index 0000000..48fa143
--- /dev/null
+++ b/ext/Encode/MANIFEST
@@ -0,0 +1,203 @@
+AUTHORS                List of authors
+Byte/Byte.pm   Encode extension
+Byte/Makefile.PL       Encode extension
+CN/CN.pm               Encode extension
+CN/Makefile.PL Encode extension
+Changes                Change Log
+EBCDIC/EBCDIC.pm       Encode extension
+EBCDIC/Makefile.PL     Encode extension
+Encode.pm             Mother of all Encode extensions
+Encode.xs              Encode extension
+Encode/Changes.e2x             Skeleton file for enc2xs
+Encode/ConfigLocal_PM.e2x      Skeleton file for enc2xs
+Encode/Makefile_PL.e2x Skeleton file for enc2xs
+Encode/README.e2x              Skeleton file for enc2xs
+Encode/_PM.e2x         Skeleton file for enc2xs
+Encode/_T.e2x          Skeleton file for enc2xs
+Encode/encode.h                Encode extension header file
+JP/JP.pm               Encode extension
+JP/Makefile.PL Encode extension
+KR/KR.pm               Encode extension
+KR/Makefile.PL         Encode extension
+MANIFEST               Encode extension
+META.yml                                Module meta-data in YAML
+Makefile.PL            Encode extension makefile writer
+README         Encode extension
+Symbol/Makefile.PL     Encode extension
+Symbol/Symbol.pm       Encode extension
+TW/Makefile.PL Encode extension
+TW/TW.pm               Encode extension
+Unicode/Makefile.PL    Encode extension
+Unicode/Unicode.pm     Encode extension
+Unicode/Unicode.xs     Encode extension
+bin/enc2xs     Encode module generator
+bin/piconv     iconv by perl
+bin/ucm2table  Table Generator for testing
+bin/ucmlint    A UCM Lint utility
+bin/ucmsort    Sorts UCM lines
+bin/unidump    Unicode Dump like hexdump(1)
+encengine.c            Encode extension
+encoding.pm    Perl Pragmactic Module
+lib/Encode/Alias.pm            Encode extension
+lib/Encode/CJKConstants.pm     Encode extension
+lib/Encode/CN/HZ.pm            Encode extension
+lib/Encode/Config.pm           Encode configuration module
+lib/Encode/Encoder.pm         OO Encoder
+lib/Encode/Encoding.pm Encode extension
+lib/Encode/GSM0338.pm  Encode extension
+lib/Encode/Guess.pm    Encode Extension
+lib/Encode/JP/H2Z.pm           Encode extension
+lib/Encode/JP/JIS7.pm  Encode extension
+lib/Encode/KR/2022_KR.pm        Encode extension
+lib/Encode/MIME/Header.pm      Encode extension
+lib/Encode/MIME/Header/ISO_2022_JP.pm  Encode extension
+lib/Encode/MIME/Name.pm        Encode extension
+lib/Encode/PerlIO.pod  Documents for Encode & PerlIO
+lib/Encode/Supported.pod       Documents for supported encodings
+lib/Encode/Unicode/UTF7.pm Encode Extension
+t/Aliases.t    test script
+t/CJKT.t       test script
+t/Encode.t     test script
+t/Encoder.t    test script
+t/Mod_EUCJP.pm module that t/enc_module.enc uses
+t/Unicode.t    test script
+t/at-cn.t      test script
+t/at-tw.t      test script
+t/big5-eten.enc        test data
+t/big5-eten.utf        test data
+t/big5-hkscs.enc       test data
+t/big5-hkscs.utf       test data
+t/enc_data.t           test script for encoding.pm vs. DATA fh
+t/enc_eucjp.t  test script
+t/enc_module.enc test data for t/enc_module.t
+t/enc_module.t test script
+t/enc_utf8.t   test script
+t/encoding.t   test script
+t/fallback.t   test script
+t/from_to.t    test script
+t/gb2312.enc   test data
+t/gb2312.utf   test data
+t/grow.t       test script
+t/gsm0338.t    test script
+t/guess.t      test script
+t/jis7-fallback.t      test script
+t/jisx0201.enc test data
+t/jisx0201.utf test data
+t/jisx0208.enc test data
+t/jisx0208.utf test data
+t/jisx0212.enc test data
+t/jisx0212.utf test data
+t/jperl.t      test script
+t/ksc5601.enc  test data
+t/ksc5601.utf  test data
+t/mime-header.t        test script
+t/mime-name.t  test script
+t/mime_header_iso2022jp.t  test script
+t/perlio.t     test script
+t/piconv.t     test script
+t/rt.pl                even more test script
+t/unibench.pl  benchmark script
+t/utf8strict.t test script
+ucm/8859-1.ucm Unicode Character Map
+ucm/8859-10.ucm        Unicode Character Map
+ucm/8859-11.ucm        Unicode Character Map
+ucm/8859-13.ucm        Unicode Character Map
+ucm/8859-14.ucm        Unicode Character Map
+ucm/8859-15.ucm        Unicode Character Map
+ucm/8859-16.ucm        Unicode Character Map
+ucm/8859-2.ucm Unicode Character Map
+ucm/8859-3.ucm Unicode Character Map
+ucm/8859-4.ucm Unicode Character Map
+ucm/8859-5.ucm Unicode Character Map
+ucm/8859-6.ucm Unicode Character Map
+ucm/8859-7.ucm Unicode Character Map
+ucm/8859-8.ucm Unicode Character Map
+ucm/8859-9.ucm Unicode Character Map
+ucm/adobeStdenc.ucm    Unicode Character Map
+ucm/adobeSymbol.ucm    Unicode Character Map
+ucm/adobeZdingbat.ucm  Unicode Character Map
+ucm/ascii.ucm  Unicode Character Map
+ucm/big5-eten.ucm      Unicode Character Map
+ucm/big5-hkscs.ucm     Unicode Character Map
+ucm/cp037.ucm  Unicode Character Map
+ucm/cp1006.ucm Unicode Character Map
+ucm/cp1026.ucm Unicode Character Map
+ucm/cp1047.ucm Unicode Character Map
+ucm/cp1250.ucm Unicode Character Map
+ucm/cp1251.ucm Unicode Character Map
+ucm/cp1252.ucm Unicode Character Map
+ucm/cp1253.ucm Unicode Character Map
+ucm/cp1254.ucm Unicode Character Map
+ucm/cp1255.ucm Unicode Character Map
+ucm/cp1256.ucm Unicode Character Map
+ucm/cp1257.ucm Unicode Character Map
+ucm/cp1258.ucm Unicode Character Map
+ucm/cp424.ucm  Unicode Character Map
+ucm/cp437.ucm  Unicode Character Map
+ucm/cp500.ucm  Unicode Character Map
+ucm/cp737.ucm  Unicode Character Map
+ucm/cp775.ucm  Unicode Character Map
+ucm/cp850.ucm  Unicode Character Map
+ucm/cp852.ucm  Unicode Character Map
+ucm/cp855.ucm  Unicode Character Map
+ucm/cp856.ucm  Unicode Character Map
+ucm/cp857.ucm  Unicode Character Map
+ucm/cp858.ucm  Unicode Character Map
+ucm/cp860.ucm  Unicode Character Map
+ucm/cp861.ucm  Unicode Character Map
+ucm/cp862.ucm  Unicode Character Map
+ucm/cp863.ucm  Unicode Character Map
+ucm/cp864.ucm  Unicode Character Map
+ucm/cp865.ucm  Unicode Character Map
+ucm/cp866.ucm  Unicode Character Map
+ucm/cp869.ucm  Unicode Character Map
+ucm/cp874.ucm  Unicode Character Map
+ucm/cp875.ucm  Unicode Character Map
+ucm/cp932.ucm  Unicode Character Map
+ucm/cp936.ucm  Unicode Character Map
+ucm/cp949.ucm  Unicode Character Map
+ucm/cp950.ucm  Unicode Character Map
+ucm/ctrl.ucm   Unicode Character Map
+ucm/dingbats.ucm       Unicode Character Map
+ucm/euc-cn.ucm Unicode Character Map
+ucm/euc-jp.ucm Unicode Character Map
+ucm/euc-kr.ucm Unicode Character Map
+ucm/gb12345.ucm        Unicode Character Map
+ucm/gb2312.ucm Unicode Character Map
+ucm/hp-roman8.ucm      Unicode Character Map
+ucm/ir-165.ucm Unicode Character Map
+ucm/jis0201.ucm        Unicode Character Map
+ucm/jis0208.ucm        Unicode Character Map
+ucm/jis0212.ucm        Unicode Character Map
+ucm/johab.ucm  Unicode Character Map
+ucm/koi8-f.ucm Unicode Character Map
+ucm/koi8-r.ucm Unicode Character Map
+ucm/koi8-u.ucm Unicode Character Map
+ucm/ksc5601.ucm        Unicode Character Map
+ucm/macArabic.ucm      Unicode Character Map
+ucm/macCentEuro.ucm    Unicode Character Map
+ucm/macChinsimp.ucm    Unicode Character Map
+ucm/macChintrad.ucm    Unicode Character Map
+ucm/macCroatian.ucm    Unicode Character Map
+ucm/macCyrillic.ucm    Unicode Character Map
+ucm/macDingbats.ucm    Unicode Character Map
+ucm/macFarsi.ucm       Unicode Character Map
+ucm/macGreek.ucm       Unicode Character Map
+ucm/macHebrew.ucm      Unicode Character Map
+ucm/macIceland.ucm     Unicode Character Map
+ucm/macJapanese.ucm    Unicode Character Map
+ucm/macKorean.ucm      Unicode Character Map
+ucm/macROMnn.ucm       Unicode Character Map
+ucm/macRUMnn.ucm       Unicode Character Map
+ucm/macRoman.ucm       Unicode Character Map
+ucm/macSami.ucm        Unicode Character Map
+ucm/macSymbol.ucm      Unicode Character Map
+ucm/macThai.ucm        Unicode Character Map
+ucm/macTurkish.ucm     Unicode Character Map
+ucm/macUkraine.ucm     Unicode Character Map
+ucm/nextstep.ucm       Unicode Character Map
+ucm/null.ucm   Unicode Character Map
+ucm/posix-bc.ucm       Unicode Character Map
+ucm/shiftjis.ucm       Unicode Character Map
+ucm/symbol.ucm Unicode Character Map
+ucm/viscii.ucm Unicode Character Map

diff --git a/ext/Encode/META.yml b/ext/Encode/META.yml
new file mode 100644 (file)
index 0000000..85a3cd0
--- /dev/null
+++ b/ext/Encode/META.yml
@@ -0,0 +1,20 @@
+--- #YAML:1.0
+name:               Encode
+version:            2.37
+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.54
+meta-spec:
+    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
+    version:  1.4

diff --git a/ext/Encode/t/piconv.t b/ext/Encode/t/piconv.t
new file mode 100644 (file)
index 0000000..e477f04
--- /dev/null
+++ b/ext/Encode/t/piconv.t
@@ -0,0 +1,103 @@
+#
+# $Id: piconv.t,v 0.2 2009/07/13 00:50:52 dankogai Exp $
+#
+
+BEGIN {
+    if ( $ENV{'PERL_CORE'} ) {
+        print "1..0 # Skip: Don't know how to test this within perl's core\n";
+        exit 0;
+    }
+}
+
+use strict;
+use FindBin;
+use File::Spec;
+use IPC::Open3 qw(open3);
+use IO::Select;
+use Test::More;
+
+my $WIN = $^O eq 'MSWin32';
+
+if ($WIN) {
+    eval { require IPC::Run; IPC::Run->VERSION(0.83); 1; } or 
+        plan skip_all => 'Win32 environments require IPC::Run 0.83 to complete this test';
+}
+
+sub run_cmd (;$$);
+
+my $blib =
+  File::Spec->rel2abs(
+    File::Spec->catdir( $FindBin::RealBin, File::Spec->updir, 'blib' ) );
+my $script = File::Spec->catdir($blib, 'script', 'piconv');
+my @base_cmd = ( $^X, "-Mblib=$blib", $script );
+
+plan tests => 5;
+
+{
+    my ( $st, $out, $err ) = run_cmd;
+    is( $st, 0, 'status for usage call' );
+    is( $out, $WIN ? undef : '' );
+    like( $err, qr{^piconv}, 'usage' );
+}
+
+{
+    my($st, $out, $err) = run_cmd [qw(-S foobar -f utf-8 -t ascii), $script];
+    like($err, qr{unknown scheme.*fallback}i, 'warning for unknown scheme');
+}
+
+{
+    my ( $st, $out, $err ) = run_cmd [qw(-f utf-8 -t ascii ./non-existing/file)];
+    like( $err, qr{can't open}i );
+}
+
+sub run_cmd (;$$) {
+    my ( $args, $in ) = @_;
+    
+    my $out = "x" x 10_000;
+    $out = "";
+    my $err = "x" x 10_000;
+    $err = "";
+        
+    if ($WIN) {
+               IPC::Run->import(qw(run timeout));
+               my @cmd;
+               if (defined $args) {
+                       @cmd = (@base_cmd, @$args);
+               } else {
+                       @cmd = @base_cmd;
+               }
+        run(\@cmd, \$in, \$out, \$err, timeout(10));
+        my $st = $?;
+               $out = undef if ($out eq '');
+        ( $st, $out, $err );
+    } else {
+               $in ||= '';
+        my ( $in_fh, $out_fh, $err_fh );
+        use Symbol 'gensym';
+        $err_fh =
+          gensym;    # sigh... otherwise stderr gets just to $out_fh, not to $err_fh
+        my $pid = open3( $in_fh, $out_fh, $err_fh, @base_cmd, @$args )
+          or die "Can't run @base_cmd @$args: $!";
+        print $in_fh $in;
+        my $sel = IO::Select->new( $out_fh, $err_fh );
+
+        while ( my @ready = $sel->can_read ) {
+            for my $fh (@ready) {
+                if ( eof($fh) ) {
+                    $sel->remove($fh);
+                    last if !$sel->handles;
+                }
+                elsif ( $out_fh == $fh ) {
+                    my $line = <$fh>;
+                    $out .= $line;
+                }
+                elsif ( $err_fh == $fh ) {
+                    my $line = <$fh>;
+                    $err .= $line;
+                }
+            }
+        }
+        my $st = $?;
+        ( $st, $out, $err );
+    }
+}