Argument "6.42_01" isn't numeric in numeric ge (>=) at Makefile.PL line 5. Checking if your kit is complete... Looks good Writing Makefile for Archive::Lha Microsoft (R) Program Maintenance Utility Version 6.00.8168.0 Copyright (C) Microsoft Corp 1988-1998. All rights reserved. cp lib/Archive/Lha/Decode.pm blib\lib\Archive\Lha\Decode.pm cp lib/Archive/Lha/Decode/LH0.pm blib\lib\Archive\Lha\Decode\LH0.pm cp lib/Archive/Lha/Stream/File.pm blib\lib\Archive\Lha\Stream\File.pm cp lib/Archive/Lha/Header/Base.pm blib\lib\Archive\Lha\Header\Base.pm cp lib/Archive/Lha/Stream/Hex.pm blib\lib\Archive\Lha\Stream\Hex.pm cp lib/Archive/Lha.pm blib\lib\Archive\Lha.pm cp lib/Archive/Lha/Header/Level1.pm blib\lib\Archive\Lha\Header\Level1.pm cp lib/Archive/Lha/Header/Level2.pm blib\lib\Archive\Lha\Header\Level2.pm cp lib/Archive/Lha/Decode/Base.pm blib\lib\Archive\Lha\Decode\Base.pm cp lib/Archive/Lha/Header/Utils.pm blib\lib\Archive\Lha\Header\Utils.pm cp lib/Archive/Lha/Stream/Base.pm blib\lib\Archive\Lha\Stream\Base.pm cp lib/Archive/Lha/CRC.pm blib\lib\Archive\Lha\CRC.pm cp lib/Archive/Lha/Header/Level0.pm blib\lib\Archive\Lha\Header\Level0.pm cp lib/Archive/Lha/Decode/LH7.pm blib\lib\Archive\Lha\Decode\LH7.pm cp lib/Archive/Lha/Constants.pm blib\lib\Archive\Lha\Constants.pm cp lib/Archive/Lha/Stream.pm blib\lib\Archive\Lha\Stream.pm cp lib/Archive/Lha/Decode/LH5.pm blib\lib\Archive\Lha\Decode\LH5.pm cp lib/Archive/Lha/Stream/String.pm blib\lib\Archive\Lha\Stream\String.pm cp lib/Archive/Lha/Header.pm blib\lib\Archive\Lha\Header.pm cp lib/Archive/Lha/Decode/LH6.pm blib\lib\Archive\Lha\Decode\LH6.pm cp lib/Archive/Lha/Debug.pm blib\lib\Archive\Lha\Debug.pm C:\cpanrun\build\5-10-0\bin\perl.exe C:\cpanrun\build\5-10-0\lib\ExtUtils\xsubpp -typemap C:\cpanrun\build\5-10-0\lib\ExtUtils\typemap Lha.xs > Lha.xsc && C:\cpanrun\build\5-10-0\bin\perl.exe -MExtUtils::Command -e mv Lha.xsc Lha.c cl -c -nologo -GF -W3 -MD -Zi -DNDEBUG -O1 -DWIN32 -D_CONSOLE -DNO_STRICT -DHAVE_DES_FCRYPT -DUSE_SITECUSTOMIZE -DPRIVLIB_LAST_IN_INC -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DPERL_MSVCRT_READFIX -MD -Zi -DNDEBUG -O1 -DVERSION=\"0.02\" -DXS_VERSION=\"0.02\" "-IC:\cpanrun\build\5-10-0\lib\CORE" Lha.c Lha.c Running Mkbootstrap for Archive::Lha () C:\cpanrun\build\5-10-0\bin\perl.exe -MExtUtils::Command -e chmod 644 Lha.bs C:\cpanrun\build\5-10-0\bin\perl.exe -MExtUtils::Mksymlists -e "Mksymlists('NAME'=>\"Archive::Lha\", 'DLBASE' => 'Lha', 'DL_FUNCS' => { }, 'FUNCLIST' => [], 'IMPORTS' => { }, 'DL_VARS' => []);" link -out:blib\arch\auto\Archive\Lha\Lha.dll -dll -nologo -nodefaultlib -debug -opt:ref,icf -libpath:"C:\cpanrun\build\5-10-0\lib\CORE" -machine:x86 Lha.obj C:\cpanrun\build\5-10-0\lib\CORE\perl510.lib oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib netapi32.lib uuid.lib ws2_32.lib mpr.lib winmm.lib version.lib odbc32.lib odbccp32.lib msvcrt.lib -def:Lha.def Creating library blib\arch\auto\Archive\Lha\Lha.lib and object blib\arch\auto\Archive\Lha\Lha.exp C:\cpanrun\build\5-10-0\bin\perl.exe -MExtUtils::Command -e chmod 755 blib\arch\auto\Archive\Lha\Lha.dll C:\cpanrun\build\5-10-0\bin\perl.exe -MExtUtils::Command -e cp Lha.bs blib\arch\auto\Archive\Lha\Lha.bs C:\cpanrun\build\5-10-0\bin\perl.exe -MExtUtils::Command -e chmod 644 blib\arch\auto\Archive\Lha\Lha.bs C:\cpanrun\build\5-10-0\bin\perl.exe -MExtUtils::Command -e cp tools/plha blib\script\plha pl2bat.bat blib\script\plha Microsoft (R) Program Maintenance Utility Version 6.00.8168.0 Copyright (C) Microsoft Corp 1988-1998. All rights reserved. C:\cpanrun\build\5-10-0\bin\perl.exe -MExtUtils::Command -e cp tools/plha blib\script\plha pl2bat.bat blib\script\plha C:\cpanrun\build\5-10-0\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(1, 'blib\lib', 'blib\arch')" t/*.t t/00_load...........1..21 ok 1 - use Archive::Lha::Stream::File; ok 2 - use Archive::Lha::Stream::Hex; ok 3 - use Archive::Lha; ok 4 - use Archive::Lha::Header::Level1; ok 5 - use Archive::Lha::Stream::Base; ok 6 - use Archive::Lha::Header::Level0; ok 7 - use Archive::Lha::Constants; ok 8 - use Archive::Lha::Stream; ok 9 - use Archive::Lha::Decode::LH5; ok 10 - use Archive::Lha::Decode; ok 11 - use Archive::Lha::Decode::LH0; ok 12 - use Archive::Lha::Header::Base; ok 13 - use Archive::Lha::Header::Level2; ok 14 - use Archive::Lha::Decode::Base; ok 15 - use Archive::Lha::Header::Utils; ok 16 - use Archive::Lha::CRC; ok 17 - use Archive::Lha::Decode::LH7; ok 18 - use Archive::Lha::Stream::String; ok 19 - use Archive::Lha::Header; ok 20 - use Archive::Lha::Decode::LH6; ok 21 - use Archive::Lha::Debug; ok t/20_decode.........ok 1 - CRC: 16769 / 16769 ok 2 - ( # bless({ # additional_crc => 39113, # crc16 => 16769, # data_top => 77, # encoded_size => 18, # filename => "test.txt", # header_size => 77, # header_top => 0, # method => "lh5", # next_header => 95, # original_size => 38, # os => ["M", "MS-DOS"], # timestamp => 1197474070, # }, "Archive::Lha::Header::Level2"), # "testtesttesttesttesttesttesttesttest\r\n", # ) ok 3 - CRC: 51024 / 51024 ok 4 - ( # bless({ # additional_crc => 15735, # crc16 => 51024, # data_top => 83, # directory => "t\xFF", # encoded_size => 80, # filename => "00_load.t", # header_size => 83, # header_top => 0, # method => "lh5", # next_header => 163, # original_size => 82, # os => ["M", "MS-DOS"], # timestamp => 1197287801, # }, "Archive::Lha::Header::Level2"), # "use strict;\r\nuse warnings;\r\nuse Test::UseAllModules;\r\n\r\nBEGIN { all_uses_ok(); }\r\n", # ) ok 5 - CRC: 27124 / 27124 ok 6 - ( # bless({ # additional_crc => 39818, # crc16 => 27124, # data_top => 245, # directory => "t\xFF", # encoded_size => 157, # filename => "99_pod.t", # header_size => 82, # header_top => 163, # method => "lh5", # next_header => 402, # original_size => 223, # os => ["M", "MS-DOS"], # timestamp => 1197287801, # }, "Archive::Lha::Header::Level2"), # "use strict;\r\nuse warnings;\r\nuse Test::More;\r\n\r\neval \"use Test::Pod 1.18\";\r\nplan skip_all => 'Test::Pod 1.18 required' if \$\@;\r\nplan skip_all => 'set TEST_POD to enable this test' unless \$ENV{TEST_POD};\r\nall_pod_files_ok();\r\n", # ) ok 7 - CRC: 3521 / 3521 ok 8 - ( # bless({ # additional_crc => 19592, # crc16 => 3521, # data_top => 492, # directory => "t\xFF", # encoded_size => 166, # filename => "99_podcoverage.t", # header_size => 90, # header_top => 402, # method => "lh5", # next_header => 658, # original_size => 248, # os => ["M", "MS-DOS"], # timestamp => 1197287801, # }, "Archive::Lha::Header::Level2"), # "use strict;\r\nuse warnings;\r\nuse Test::More;\r\n\r\neval \"use Test::Pod::Coverage 1.04\";\r\nplan skip_all => 'Test::Pod::Coverage 1.04 required' if \$\@;\r\nplan skip_all => 'set TEST_POD to enable this test' unless \$ENV{TEST_POD};\r\n\r\nall_pod_coverage_ok();\r\n", # ) ok 9 - CRC: 51024 / 51024 ok 10 - ( # bless({ # additional_crc => 15735, # crc16 => 51024, # data_top => 83, # directory => "t\xFF", # encoded_size => 80, # filename => "00_load.t", # header_size => 83, # header_top => 0, # method => "lh5", # next_header => 163, # original_size => 82, # os => ["M", "MS-DOS"], # timestamp => 1197287801, # }, "Archive::Lha::Header::Level2"), # "use strict;\r\nuse warnings;\r\nuse Test::UseAllModules;\r\n\r\nBEGIN { all_uses_ok(); }\r\n", # ) ok 11 - CRC: 27124 / 27124 ok 12 - ( # bless({ # additional_crc => 39818, # crc16 => 27124, # data_top => 245, # directory => "t\xFF", # encoded_size => 157, # filename => "99_pod.t", # header_size => 82, # header_top => 163, # method => "lh5", # next_header => 402, # original_size => 223, # os => ["M", "MS-DOS"], # timestamp => 1197287801, # }, "Archive::Lha::Header::Level2"), # "use strict;\r\nuse warnings;\r\nuse Test::More;\r\n\r\neval \"use Test::Pod 1.18\";\r\nplan skip_all => 'Test::Pod 1.18 required' if \$\@;\r\nplan skip_all => 'set TEST_POD to enable this test' unless \$ENV{TEST_POD};\r\nall_pod_files_ok();\r\n", # ) ok 13 - CRC: 3521 / 3521 ok 14 - ( # bless({ # additional_crc => 19592, # crc16 => 3521, # data_top => 492, # directory => "t\xFF", # encoded_size => 166, # filename => "99_podcoverage.t", # header_size => 90, # header_top => 402, # method => "lh5", # next_header => 658, # original_size => 248, # os => ["M", "MS-DOS"], # timestamp => 1197287801, # }, "Archive::Lha::Header::Level2"), # "use strict;\r\nuse warnings;\r\nuse Test::More;\r\n\r\neval \"use Test::Pod::Coverage 1.04\";\r\nplan skip_all => 'Test::Pod::Coverage 1.04 required' if \$\@;\r\nplan skip_all => 'set TEST_POD to enable this test' unless \$ENV{TEST_POD};\r\n\r\nall_pod_coverage_ok();\r\n", # ) ok 15 - CRC: 51024 / 51024 ok 16 - ( # bless({ # additional_crc => 47752, # crc16 => 51024, # data_top => 83, # directory => "t\xFF", # encoded_size => 80, # filename => "00_load.t", # header_size => 83, # header_top => 0, # method => "lh7", # next_header => 163, # original_size => 82, # os => ["M", "MS-DOS"], # timestamp => 1197534011, # }, "Archive::Lha::Header::Level2"), # "use strict;\r\nuse warnings;\r\nuse Test::UseAllModules;\r\n\r\nBEGIN { all_uses_ok(); }\r\n", # ) ok 17 - CRC: 11654 / 11654 ok 18 - ( # bless({ # additional_crc => 61162, # crc16 => 11654, # data_top => 251, # directory => "t\xFF", # encoded_size => 317, # filename => "10_bitstream.t", # header_size => 88, # header_top => 163, # method => "lh7", # next_header => 568, # original_size => 1589, # os => ["M", "MS-DOS"], # timestamp => 1197534011, # }, "Archive::Lha::Header::Level2"), # "use strict;\r\nuse warnings;\r\nuse Test::More qw( no_plan );\r\nuse Archive::Lha::Bitstream;\r\n\r\nif (1) {\r\n my \@pack = map { pack \"H2\", \$_ }\r\n qw( 00 05 2B 69 31 FE ED 91 49 25 40 15 A0 );\r\n\r\n my \$bit = Archive::Lha::Bitstream->new(\r\n callback => sub { shift \@pack },\r\n length => scalar \@pack,\r\n );\r\n\r\n ok \$bit->getbits(8) == 0x00;\r\n ok \$bit->getbits(8) == 0x05;\r\n ok \$bit->getbits(8) == 0x2B;\r\n ok \$bit->getbits(8) == 0x69;\r\n ok \$bit->getbits(8) == 0x31;\r\n ok \$bit->getbits(8) == 0xFE;\r\n ok \$bit->getbits(8) == 0xED;\r\n ok \$bit->getbits(8) == 0x91;\r\n ok \$bit->getbits(8) == 0x49;\r\n ok \$bit->getbits(8) == 0x25;\r\n ok \$bit->getbits(8) == 0x40;\r\n}\r\n\r\nif (1) {\r\n my \@pack = map { pack \"H2\", \$_ }\r\n qw( 00 05 2B 69 31 FE ED 91 49 25 40 15 A0 );\r\n\r\n my \$bit = Archive::Lha::Bitstream->new(\r\n callback => sub { shift \@pack },\r\n length => scalar \@pack,\r\n );\r\n\r\n ok \$bit->getbits(4) == 0x0;\r\n ok \$bit->getbits(4) == 0x0;\r\n ok \$bit->getbits(4) == 0x0;\r\n ok \$bit->getbits(4) == 0x5;\r\n ok \$bit->getbits(4) == 0x2;\r\n ok \$bit->getbits(4) == 0xB;\r\n ok \$bit->getbits(4) == 0x6;\r\n ok \$bit->getbits(4) == 0x9;\r\n ok \$bit->getbits(4) == 0x3;\r\n ok \$bit->getbits(4) == 0x1;\r\n ok \$bit->getbits(4) == 0xF;\r\n ok \$bit->getbits(4) == 0xE;\r\n ok \$bit->getbits(4) == 0xE;\r\n ok \$bit->getbits(4) == 0xD;\r\n ok \$bit->getbits(4) == 0x9;\r\n ok \$bit->getbits(4) == 0x1;\r\n ok \$bit->getbits(4) == 0x4;\r\n ok \$bit->getbits(4) == 0x9;\r\n ok \$bit->getbits(4) == 0x2;\r\n ok \$bit->getbits(4) == 0x5;\r\n ok \$bit->getbits(4) == 0x4;\r\n ok \$bit->getbits(4) == 0x0;\r\n}\r\n", # ) ok 19 - CRC: 27124 / 27124 ok 20 - ( # bless({ # additional_crc => 31046, # crc16 => 27124, # data_top => 650, # directory => "t\xFF", # encoded_size => 158, # filename => "99_pod.t", # header_size => 82, # header_top => 568, # method => "lh7", # next_header => 808, # original_size => 223, # os => ["M", "MS-DOS"], # timestamp => 1197534011, # }, "Archive::Lha::Header::Level2"), # "use strict;\r\nuse warnings;\r\nuse Test::More;\r\n\r\neval \"use Test::Pod 1.18\";\r\nplan skip_all => 'Test::Pod 1.18 required' if \$\@;\r\nplan skip_all => 'set TEST_POD to enable this test' unless \$ENV{TEST_POD};\r\nall_pod_files_ok();\r\n", # ) ok 21 - CRC: 3521 / 3521 ok 22 - ( # bless({ # additional_crc => 17045, # crc16 => 3521, # data_top => 898, # directory => "t\xFF", # encoded_size => 166, # filename => "99_podcoverage.t", # header_size => 90, # header_top => 808, # method => "lh7", # next_header => 1064, # original_size => 248, # os => ["M", "MS-DOS"], # timestamp => 1197534011, # }, "Archive::Lha::Header::Level2"), # "use strict;\r\nuse warnings;\r\nuse Test::More;\r\n\r\neval \"use Test::Pod::Coverage 1.04\";\r\nplan skip_all => 'Test::Pod::Coverage 1.04 required' if \$\@;\r\nplan skip_all => 'set TEST_POD to enable this test' unless \$ENV{TEST_POD};\r\n\r\nall_pod_coverage_ok();\r\n", # ) ok 23 - CRC: 51024 / 51024 ok 24 - ( # bless({ # additional_crc => 47752, # crc16 => 51024, # data_top => 83, # directory => "t\xFF", # encoded_size => 80, # filename => "00_load.t", # header_size => 83, # header_top => 0, # method => "lh7", # next_header => 163, # original_size => 82, # os => ["M", "MS-DOS"], # timestamp => 1197534011, # }, "Archive::Lha::Header::Level2"), # "use strict;\r\nuse warnings;\r\nuse Test::UseAllModules;\r\n\r\nBEGIN { all_uses_ok(); }\r\n", # ) ok 25 - CRC: 11654 / 11654 ok 26 - ( # bless({ # additional_crc => 61162, # crc16 => 11654, # data_top => 251, # directory => "t\xFF", # encoded_size => 317, # filename => "10_bitstream.t", # header_size => 88, # header_top => 163, # method => "lh7", # next_header => 568, # original_size => 1589, # os => ["M", "MS-DOS"], # timestamp => 1197534011, # }, "Archive::Lha::Header::Level2"), # "use strict;\r\nuse warnings;\r\nuse Test::More qw( no_plan );\r\nuse Archive::Lha::Bitstream;\r\n\r\nif (1) {\r\n my \@pack = map { pack \"H2\", \$_ }\r\n qw( 00 05 2B 69 31 FE ED 91 49 25 40 15 A0 );\r\n\r\n my \$bit = Archive::Lha::Bitstream->new(\r\n callback => sub { shift \@pack },\r\n length => scalar \@pack,\r\n );\r\n\r\n ok \$bit->getbits(8) == 0x00;\r\n ok \$bit->getbits(8) == 0x05;\r\n ok \$bit->getbits(8) == 0x2B;\r\n ok \$bit->getbits(8) == 0x69;\r\n ok \$bit->getbits(8) == 0x31;\r\n ok \$bit->getbits(8) == 0xFE;\r\n ok \$bit->getbits(8) == 0xED;\r\n ok \$bit->getbits(8) == 0x91;\r\n ok \$bit->getbits(8) == 0x49;\r\n ok \$bit->getbits(8) == 0x25;\r\n ok \$bit->getbits(8) == 0x40;\r\n}\r\n\r\nif (1) {\r\n my \@pack = map { pack \"H2\", \$_ }\r\n qw( 00 05 2B 69 31 FE ED 91 49 25 40 15 A0 );\r\n\r\n my \$bit = Archive::Lha::Bitstream->new(\r\n callback => sub { shift \@pack },\r\n length => scalar \@pack,\r\n );\r\n\r\n ok \$bit->getbits(4) == 0x0;\r\n ok \$bit->getbits(4) == 0x0;\r\n ok \$bit->getbits(4) == 0x0;\r\n ok \$bit->getbits(4) == 0x5;\r\n ok \$bit->getbits(4) == 0x2;\r\n ok \$bit->getbits(4) == 0xB;\r\n ok \$bit->getbits(4) == 0x6;\r\n ok \$bit->getbits(4) == 0x9;\r\n ok \$bit->getbits(4) == 0x3;\r\n ok \$bit->getbits(4) == 0x1;\r\n ok \$bit->getbits(4) == 0xF;\r\n ok \$bit->getbits(4) == 0xE;\r\n ok \$bit->getbits(4) == 0xE;\r\n ok \$bit->getbits(4) == 0xD;\r\n ok \$bit->getbits(4) == 0x9;\r\n ok \$bit->getbits(4) == 0x1;\r\n ok \$bit->getbits(4) == 0x4;\r\n ok \$bit->getbits(4) == 0x9;\r\n ok \$bit->getbits(4) == 0x2;\r\n ok \$bit->getbits(4) == 0x5;\r\n ok \$bit->getbits(4) == 0x4;\r\n ok \$bit->getbits(4) == 0x0;\r\n}\r\n", # ) ok 27 - CRC: 27124 / 27124 ok 28 - ( # bless({ # additional_crc => 31046, # crc16 => 27124, # data_top => 650, # directory => "t\xFF", # encoded_size => 158, # filename => "99_pod.t", # header_size => 82, # header_top => 568, # method => "lh7", # next_header => 808, # original_size => 223, # os => ["M", "MS-DOS"], # timestamp => 1197534011, # }, "Archive::Lha::Header::Level2"), # "use strict;\r\nuse warnings;\r\nuse Test::More;\r\n\r\neval \"use Test::Pod 1.18\";\r\nplan skip_all => 'Test::Pod 1.18 required' if \$\@;\r\nplan skip_all => 'set TEST_POD to enable this test' unless \$ENV{TEST_POD};\r\nall_pod_files_ok();\r\n", # ) ok 29 - CRC: 3521 / 3521 ok 30 - ( # bless({ # additional_crc => 17045, # crc16 => 3521, # data_top => 898, # directory => "t\xFF", # encoded_size => 166, # filename => "99_podcoverage.t", # header_size => 90, # header_top => 808, # method => "lh7", # next_header => 1064, # original_size => 248, # os => ["M", "MS-DOS"], # timestamp => 1197534011, # }, "Archive::Lha::Header::Level2"), # "use strict;\r\nuse warnings;\r\nuse Test::More;\r\n\r\neval \"use Test::Pod::Coverage 1.04\";\r\nplan skip_all => 'Test::Pod::Coverage 1.04 required' if \$\@;\r\nplan skip_all => 'set TEST_POD to enable this test' unless \$ENV{TEST_POD};\r\n\r\nall_pod_coverage_ok();\r\n", # ) ok 31 - CRC: 51024 / 51024 ok 32 - ( # bless({ # additional_crc => 43767, # crc16 => 51024, # data_top => 83, # directory => "t\xFF", # encoded_size => 82, # filename => "00_load.t", # header_size => 83, # header_top => 0, # method => "lh0", # next_header => 165, # original_size => 82, # os => ["M", "MS-DOS"], # timestamp => 1197534011, # }, "Archive::Lha::Header::Level2"), # "use strict;\r\nuse warnings;\r\nuse Test::UseAllModules;\r\n\r\nBEGIN { all_uses_ok(); }\r\n", # ) ok 33 - CRC: 11654 / 11654 ok 34 - ( # bless({ # additional_crc => 60274, # crc16 => 11654, # data_top => 253, # directory => "t\xFF", # encoded_size => 1589, # filename => "10_bitstream.t", # header_size => 88, # header_top => 165, # method => "lh0", # next_header => 1842, # original_size => 1589, # os => ["M", "MS-DOS"], # timestamp => 1197534011, # }, "Archive::Lha::Header::Level2"), # "use strict;\r\nuse warnings;\r\nuse Test::More qw( no_plan );\r\nuse Archive::Lha::Bitstream;\r\n\r\nif (1) {\r\n my \@pack = map { pack \"H2\", \$_ }\r\n qw( 00 05 2B 69 31 FE ED 91 49 25 40 15 A0 );\r\n\r\n my \$bit = Archive::Lha::Bitstream->new(\r\n callback => sub { shift \@pack },\r\n length => scalar \@pack,\r\n );\r\n\r\n ok \$bit->getbits(8) == 0x00;\r\n ok \$bit->getbits(8) == 0x05;\r\n ok \$bit->getbits(8) == 0x2B;\r\n ok \$bit->getbits(8) == 0x69;\r\n ok \$bit->getbits(8) == 0x31;\r\n ok \$bit->getbits(8) == 0xFE;\r\n ok \$bit->getbits(8) == 0xED;\r\n ok \$bit->getbits(8) == 0x91;\r\n ok \$bit->getbits(8) == 0x49;\r\n ok \$bit->getbits(8) == 0x25;\r\n ok \$bit->getbits(8) == 0x40;\r\n}\r\n\r\nif (1) {\r\n my \@pack = map { pack \"H2\", \$_ }\r\n qw( 00 05 2B 69 31 FE ED 91 49 25 40 15 A0 );\r\n\r\n my \$bit = Archive::Lha::Bitstream->new(\r\n callback => sub { shift \@pack },\r\n length => scalar \@pack,\r\n );\r\n\r\n ok \$bit->getbits(4) == 0x0;\r\n ok \$bit->getbits(4) == 0x0;\r\n ok \$bit->getbits(4) == 0x0;\r\n ok \$bit->getbits(4) == 0x5;\r\n ok \$bit->getbits(4) == 0x2;\r\n ok \$bit->getbits(4) == 0xB;\r\n ok \$bit->getbits(4) == 0x6;\r\n ok \$bit->getbits(4) == 0x9;\r\n ok \$bit->getbits(4) == 0x3;\r\n ok \$bit->getbits(4) == 0x1;\r\n ok \$bit->getbits(4) == 0xF;\r\n ok \$bit->getbits(4) == 0xE;\r\n ok \$bit->getbits(4) == 0xE;\r\n ok \$bit->getbits(4) == 0xD;\r\n ok \$bit->getbits(4) == 0x9;\r\n ok \$bit->getbits(4) == 0x1;\r\n ok \$bit->getbits(4) == 0x4;\r\n ok \$bit->getbits(4) == 0x9;\r\n ok \$bit->getbits(4) == 0x2;\r\n ok \$bit->getbits(4) == 0x5;\r\n ok \$bit->getbits(4) == 0x4;\r\n ok \$bit->getbits(4) == 0x0;\r\n}\r\n", # ) ok 35 - CRC: 27124 / 27124 ok 36 - ( # bless({ # additional_crc => 15402, # crc16 => 27124, # data_top => 1924, # directory => "t\xFF", # encoded_size => 223, # filename => "99_pod.t", # header_size => 82, # header_top => 1842, # method => "lh0", # next_header => 2147, # original_size => 223, # os => ["M", "MS-DOS"], # timestamp => 1197534011, # }, "Archive::Lha::Header::Level2"), # "use strict;\r\nuse warnings;\r\nuse Test::More;\r\n\r\neval \"use Test::Pod 1.18\";\r\nplan skip_all => 'Test::Pod 1.18 required' if \$\@;\r\nplan skip_all => 'set TEST_POD to enable this test' unless \$ENV{TEST_POD};\r\nall_pod_files_ok();\r\n", # ) ok 37 - CRC: 3521 / 3521 ok 38 - ( # bless({ # additional_crc => 13236, # crc16 => 3521, # data_top => 2237, # directory => "t\xFF", # encoded_size => 248, # filename => "99_podcoverage.t", # header_size => 90, # header_top => 2147, # method => "lh0", # next_header => 2485, # original_size => 248, # os => ["M", "MS-DOS"], # timestamp => 1197534011, # }, "Archive::Lha::Header::Level2"), # "use strict;\r\nuse warnings;\r\nuse Test::More;\r\n\r\neval \"use Test::Pod::Coverage 1.04\";\r\nplan skip_all => 'Test::Pod::Coverage 1.04 required' if \$\@;\r\nplan skip_all => 'set TEST_POD to enable this test' unless \$ENV{TEST_POD};\r\n\r\nall_pod_coverage_ok();\r\n", # ) ok 39 - CRC: 51024 / 51024 ok 40 - ( # bless({ # additional_crc => 43767, # crc16 => 51024, # data_top => 83, # directory => "t\xFF", # encoded_size => 82, # filename => "00_load.t", # header_size => 83, # header_top => 0, # method => "lh0", # next_header => 165, # original_size => 82, # os => ["M", "MS-DOS"], # timestamp => 1197534011, # }, "Archive::Lha::Header::Level2"), # "use strict;\r\nuse warnings;\r\nuse Test::UseAllModules;\r\n\r\nBEGIN { all_uses_ok(); }\r\n", # ) ok 41 - CRC: 11654 / 11654 ok 42 - ( # bless({ # additional_crc => 60274, # crc16 => 11654, # data_top => 253, # directory => "t\xFF", # encoded_size => 1589, # filename => "10_bitstream.t", # header_size => 88, # header_top => 165, # method => "lh0", # next_header => 1842, # original_size => 1589, # os => ["M", "MS-DOS"], # timestamp => 1197534011, # }, "Archive::Lha::Header::Level2"), # "use strict;\r\nuse warnings;\r\nuse Test::More qw( no_plan );\r\nuse Archive::Lha::Bitstream;\r\n\r\nif (1) {\r\n my \@pack = map { pack \"H2\", \$_ }\r\n qw( 00 05 2B 69 31 FE ED 91 49 25 40 15 A0 );\r\n\r\n my \$bit = Archive::Lha::Bitstream->new(\r\n callback => sub { shift \@pack },\r\n length => scalar \@pack,\r\n );\r\n\r\n ok \$bit->getbits(8) == 0x00;\r\n ok \$bit->getbits(8) == 0x05;\r\n ok \$bit->getbits(8) == 0x2B;\r\n ok \$bit->getbits(8) == 0x69;\r\n ok \$bit->getbits(8) == 0x31;\r\n ok \$bit->getbits(8) == 0xFE;\r\n ok \$bit->getbits(8) == 0xED;\r\n ok \$bit->getbits(8) == 0x91;\r\n ok \$bit->getbits(8) == 0x49;\r\n ok \$bit->getbits(8) == 0x25;\r\n ok \$bit->getbits(8) == 0x40;\r\n}\r\n\r\nif (1) {\r\n my \@pack = map { pack \"H2\", \$_ }\r\n qw( 00 05 2B 69 31 FE ED 91 49 25 40 15 A0 );\r\n\r\n my \$bit = Archive::Lha::Bitstream->new(\r\n callback => sub { shift \@pack },\r\n length => scalar \@pack,\r\n );\r\n\r\n ok \$bit->getbits(4) == 0x0;\r\n ok \$bit->getbits(4) == 0x0;\r\n ok \$bit->getbits(4) == 0x0;\r\n ok \$bit->getbits(4) == 0x5;\r\n ok \$bit->getbits(4) == 0x2;\r\n ok \$bit->getbits(4) == 0xB;\r\n ok \$bit->getbits(4) == 0x6;\r\n ok \$bit->getbits(4) == 0x9;\r\n ok \$bit->getbits(4) == 0x3;\r\n ok \$bit->getbits(4) == 0x1;\r\n ok \$bit->getbits(4) == 0xF;\r\n ok \$bit->getbits(4) == 0xE;\r\n ok \$bit->getbits(4) == 0xE;\r\n ok \$bit->getbits(4) == 0xD;\r\n ok \$bit->getbits(4) == 0x9;\r\n ok \$bit->getbits(4) == 0x1;\r\n ok \$bit->getbits(4) == 0x4;\r\n ok \$bit->getbits(4) == 0x9;\r\n ok \$bit->getbits(4) == 0x2;\r\n ok \$bit->getbits(4) == 0x5;\r\n ok \$bit->getbits(4) == 0x4;\r\n ok \$bit->getbits(4) == 0x0;\r\n}\r\n", # ) ok 43 - CRC: 27124 / 27124 ok 44 - ( # bless({ # additional_crc => 15402, # crc16 => 27124, # data_top => 1924, # directory => "t\xFF", # encoded_size => 223, # filename => "99_pod.t", # header_size => 82, # header_top => 1842, # method => "lh0", # next_header => 2147, # original_size => 223, # os => ["M", "MS-DOS"], # timestamp => 1197534011, # }, "Archive::Lha::Header::Level2"), # "use strict;\r\nuse warnings;\r\nuse Test::More;\r\n\r\neval \"use Test::Pod 1.18\";\r\nplan skip_all => 'Test::Pod 1.18 required' if \$\@;\r\nplan skip_all => 'set TEST_POD to enable this test' unless \$ENV{TEST_POD};\r\nall_pod_files_ok();\r\n", # ) ok 45 - CRC: 3521 / 3521 ok 46 - ( # bless({ # additional_crc => 13236, # crc16 => 3521, # data_top => 2237, # directory => "t\xFF", # encoded_size => 248, # filename => "99_podcoverage.t", # header_size => 90, # header_top => 2147, # method => "lh0", # next_header => 2485, # original_size => 248, # os => ["M", "MS-DOS"], # timestamp => 1197534011, # }, "Archive::Lha::Header::Level2"), # "use strict;\r\nuse warnings;\r\nuse Test::More;\r\n\r\neval \"use Test::Pod::Coverage 1.04\";\r\nplan skip_all => 'Test::Pod::Coverage 1.04 required' if \$\@;\r\nplan skip_all => 'set TEST_POD to enable this test' unless \$ENV{TEST_POD};\r\n\r\nall_pod_coverage_ok();\r\n", # ) 1..46 ok t/99_pod............1..0 # Skip set TEST_POD to enable this test skipped all skipped: set TEST_POD to enable this test t/99_podcoverage....1..0 # Skip Test::Pod::Coverage 1.04 required skipped all skipped: Test::Pod::Coverage 1.04 required All tests successful, 2 tests skipped. Files=4, Tests=67, 2 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 CPU) Microsoft (R) Program Maintenance Utility Version 6.00.8168.0 Copyright (C) Microsoft Corp 1988-1998. All rights reserved. C:\cpanrun\build\5-10-0\bin\perl.exe -MExtUtils::Command -e cp tools/plha blib\script\plha pl2bat.bat blib\script\plha Files found in blib\arch: installing files in blib\lib into architecture dependent library tree Installing C:\cpanrun\build\5-10-0\site\lib\auto\Archive\Lha\Lha.bs Installing C:\cpanrun\build\5-10-0\site\lib\auto\Archive\Lha\Lha.dll Installing C:\cpanrun\build\5-10-0\site\lib\auto\Archive\Lha\Lha.exp Installing C:\cpanrun\build\5-10-0\site\lib\auto\Archive\Lha\Lha.lib Installing C:\cpanrun\build\5-10-0\site\lib\auto\Archive\Lha\Lha.pdb Installing C:\cpanrun\build\5-10-0\html\bin\plha.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Archive\Lha.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Archive\Lha\Constants.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Archive\Lha\CRC.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Archive\Lha\Debug.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Archive\Lha\Decode.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Archive\Lha\Header.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Archive\Lha\Stream.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Archive\Lha\Decode\Base.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Archive\Lha\Decode\LH0.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Archive\Lha\Decode\LH5.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Archive\Lha\Decode\LH6.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Archive\Lha\Decode\LH7.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Archive\Lha\Header\Base.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Archive\Lha\Header\Level0.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Archive\Lha\Header\Level1.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Archive\Lha\Header\Level2.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Archive\Lha\Header\Utils.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Archive\Lha\Stream\Base.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Archive\Lha\Stream\File.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Archive\Lha\Stream\Hex.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Archive\Lha\Stream\String.html Installing C:\cpanrun\build\5-10-0\site\lib\Archive\Lha.pm Installing C:\cpanrun\build\5-10-0\site\lib\Archive\Lha\Constants.pm Installing C:\cpanrun\build\5-10-0\site\lib\Archive\Lha\CRC.pm Installing C:\cpanrun\build\5-10-0\site\lib\Archive\Lha\Debug.pm Installing C:\cpanrun\build\5-10-0\site\lib\Archive\Lha\Decode.pm Installing C:\cpanrun\build\5-10-0\site\lib\Archive\Lha\Header.pm Installing C:\cpanrun\build\5-10-0\site\lib\Archive\Lha\Stream.pm Installing C:\cpanrun\build\5-10-0\site\lib\Archive\Lha\Decode\Base.pm Installing C:\cpanrun\build\5-10-0\site\lib\Archive\Lha\Decode\LH0.pm Installing C:\cpanrun\build\5-10-0\site\lib\Archive\Lha\Decode\LH5.pm Installing C:\cpanrun\build\5-10-0\site\lib\Archive\Lha\Decode\LH6.pm Installing C:\cpanrun\build\5-10-0\site\lib\Archive\Lha\Decode\LH7.pm Installing C:\cpanrun\build\5-10-0\site\lib\Archive\Lha\Header\Base.pm Installing C:\cpanrun\build\5-10-0\site\lib\Archive\Lha\Header\Level0.pm Installing C:\cpanrun\build\5-10-0\site\lib\Archive\Lha\Header\Level1.pm Installing C:\cpanrun\build\5-10-0\site\lib\Archive\Lha\Header\Level2.pm Installing C:\cpanrun\build\5-10-0\site\lib\Archive\Lha\Header\Utils.pm Installing C:\cpanrun\build\5-10-0\site\lib\Archive\Lha\Stream\Base.pm Installing C:\cpanrun\build\5-10-0\site\lib\Archive\Lha\Stream\File.pm Installing C:\cpanrun\build\5-10-0\site\lib\Archive\Lha\Stream\Hex.pm Installing C:\cpanrun\build\5-10-0\site\lib\Archive\Lha\Stream\String.pm Installing C:\cpanrun\build\5-10-0\site\bin\plha Installing C:\cpanrun\build\5-10-0\site\bin\plha.bat Appending installation info to C:\cpanrun\build\5-10-0\lib/perllocal.pod