Writing Makefile for Exporter::VA Microsoft (R) Program Maintenance Utility Version 7.10.3077 Copyright (C) Microsoft Corporation. All rights reserved. cp VA.pm blib\lib\Exporter\VA.pm Microsoft (R) Program Maintenance Utility Version 7.10.3077 Copyright (C) Microsoft Corporation. All rights reserved. C:\cpanrun\build\5-10-0\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(1, 'blib\lib', 'blib\arch')" t/*.t t/test....(Exporter::VA) ===processing import parameter (&foo)=== Got It: *{"C1::foo"}= CODE(0x1c1af5c) (Exporter::VA) ===processing import parameter (bar)=== (Exporter::VA) adding leading & to (bar) entry in export definition Got It: *{"C1::bar"}= CODE(0x1c1ad7c) (Exporter::VA) ===processing import parameter (baz)=== (Exporter::VA) adding leading & to (baz) entry in export definition Got It: *{"C1::baz"}= CODE(0x1c1ab9c) (Exporter::VA) ===processing import parameter (quux)=== (Exporter::VA) adding leading & to (quux) entry in export definition Got It: *{"C1::quux"}= CODE(0x1c1a9bc) (Exporter::VA) ===processing import parameter (bazola)=== (Exporter::VA) adding leading & to (bazola) entry in export definition Got It: *{"C1::bazola"}= CODE(0x1c1a37c) (Exporter::VA) ===processing import parameter ($ztesch)=== Got It: *{"C1::ztesch"}= SCALAR(0x1c1f12c) (Exporter::VA) ===processing import parameter (--dump)=== %EXPORT = bless( ( '&bazola' => sub { "DUMMY" }, '.&end' => sub { "DUMMY" }, '$ztesch' => '', '&quux' => \sub { "DUMMY" }, '&foo' => '&foo', '..client_default_version' => { 'C1' => '' }, '.default_VERSION' => '', '.&begin' => sub { "DUMMY" }, '.warnings' => 1, '&bar' => 'internal_bar', '.verbose_import' => 1, '.&unknown_import' => sub { "DUMMY" }, '.check_user_option' => sub { "DUMMY" }, '&baz' => '', '--verbose_import' => sub { "DUMMY" }, '..max_VERSION' => '', '..worklist' => { 'C1::ztesch' => \undef, 'C1::foo' => sub { "DUMMY" }, 'C1::quux' => ${$EXPORT{'&quux'}}, 'C1::baz' => sub { "DUMMY" }, 'C1::bazola' => sub { "DUMMY" }, 'C1::bar' => sub { "DUMMY" } }, '--dump' => sub { "DUMMY" }, '.&unknown_feature' => sub { "DUMMY" }, '.&unknown_type' => sub { "DUMMY" }, '..home' => 'M1' ), 'Exporter::VA' ); (Exporter::VA) ===processing import parameter (foo)=== (Exporter::VA) adding leading & to (foo) entry in export definition (Exporter::VA) wanted &foo version v1.3, choose v1.0 Got It: *{"C3::foo"}= CODE(0x1c4c42c) (Exporter::VA) ===processing import parameter (:blarg)=== (Exporter::VA) wanted :blarg version v1.3, choose v1.0 (Exporter::VA) ===processing import parameter (foo)=== (Exporter::VA) wanted &foo version v1.3, choose v1.0 Got It: *{"C3::foo"}= CODE(0x1c4c42c) (Exporter::VA) ===processing import parameter (bar)=== Got It: *{"C3::bar"}= CODE(0x1c4c69c) (Exporter::VA) warning: importing tag ":_new_blarg" which begins with an underscore at t/test.t line 163 (Exporter::VA) warning: importing symbol "&_bar" which begins with an underscore at t/test.t line 163 (Exporter::VA) Cannot redirect to versioned function (Can't goto subroutine from an eval-block at C:\cpanrun\depot\main\contrib-patched\perl\CPAN\src\Exporter-VA\blib\lib/Exporter/VA.pm line 558. ) at (eval 25) line 1 Use of uninitialized value $result in string eq at t/test.t line 34. Use of uninitialized value $result in concatenation (.) or string at t/test.t line 38. (Exporter::VA) Cannot redirect to versioned function (Can't goto subroutine from an eval-block at C:\cpanrun\depot\main\contrib-patched\perl\CPAN\src\Exporter-VA\blib\lib/Exporter/VA.pm line 558. ) at (eval 26) line 1 Use of uninitialized value $result in string eq at t/test.t line 34. Use of uninitialized value $result in concatenation (.) or string at t/test.t line 38. (Exporter::VA) Cannot redirect to versioned function (Can't goto subroutine from an eval-block at C:\cpanrun\depot\main\contrib-patched\perl\CPAN\src\Exporter-VA\blib\lib/Exporter/VA.pm line 558. ) at (eval 27) line 1 Use of uninitialized value $result in string eq at t/test.t line 34. Use of uninitialized value $result in concatenation (.) or string at t/test.t line 38. (Exporter::VA) Cannot redirect to versioned function (Can't goto subroutine from an eval-block at C:\cpanrun\depot\main\contrib-patched\perl\CPAN\src\Exporter-VA\blib\lib/Exporter/VA.pm line 558. ) at (eval 28) line 1 Use of uninitialized value $result in string eq at t/test.t line 34. Use of uninitialized value $result in concatenation (.) or string at t/test.t line 38. 1..37 module M1 loaded module M2 loaded called .&begin called .&end module M3 loaded called .&begin called .&end called .&begin called .&end This should generate two warnings about importing things beginning with underscores: The two warnings should be before this line. No longer expecting any warnings. ok - calling { C1::foo (5) } => Called M1::foo (5). ok - calling { C1::bar (6) } => Called M1::internal_bar (6). ok - calling { C1::baz (7) } => Called M1::baz (7). ok - calling { C1::quux (8) } => Called M1::quux (8). ok - calling { C1::bazola (9) } => Called dynamically-generated M1::&bazola asked for by C1, with parameters (9). ok - calling { $C1::ztesch=10; ++$M1::ztesch; $C1::ztesch == 11 } => 1 ok - calling { C2::foo (12) } => Called M2::foo (12). ok - calling { C2::baz (13) } => Called M2::baz (13). ok - calling { $C2::ztesch=14; ++$M2::ztesch; $C2::ztesch == 15 } => 1 ok - calling { C2::quux (16) } => Called M2::quux (16). ok - calling { C2::bazola (17) } => Called M2::baz (17). ok - calling { C2::thud (18) } => Called M2::baz (18). ok - calling { C2::grunt (19) } => Called M2::baz (19). ok - calling { C3::foo (20) } => Called M3::old_foo (20). ok - calling { C3::bar (22) } => Called M3::bar (22). ok - calling { C4::foo (21) } => Called M3::new_foo (21). ok - calling { C5::foo (23) } => Called M3::middle_foo (23). ok - calling { C6::foo (24) } => Called M2::foo (24). ok - calling { C6::thud (25) } => Called M2::baz (25). ok - calling { C7::foo (26) } => Called M2::foo (26). ok - calling { C7::baz (27) } => Called M2::baz (27). ok - calling { $C7::output } => -pra#ma! ok - normalizing 1.2.3 => 1.2.3 ok - normalizing => 0 ok - normalizing 3.2.1.0 => 3.2.1 ok - normalizing 1.0.0.0 => 1.0 ok - normalizing 50.46.51 => 2.3 ok - normalizing 50.46.51.46.52 => 2.3.4 ok ok ok - checked allowed versions. As expected, [[ (Exporter::VA) you asked for v1.1, but the only allowed versions are v1.0, v1.2 at (eval 24) line 2 ]] ok not ok - calling { package C3; M3::foo (30) }, returns "", expected "Called M3::old_foo (30)." not ok - calling { package C8; M3::foo (31) }, returns "", expected "Called M3::new_foo (31)." not ok - calling { M2::thud (32) }, returns "", expected "Called M2::baz (32)." not ok - calling { M2::grunt (33) }, returns "", expected "Called M2::baz (33)." ok ---------------------------------------- * FAILED 4 tests!! dubious Test returned status 5 (wstat 1280, 0x500) DIED. FAILED tests 33-36 Failed 4/37 tests, 89.19% okay Failed Test Stat Wstat Total Fail List of Failed ------------------------------------------------------------------------------- t/test.t 5 1280 37 4 33-36 Failed 1/1 test scripts. 4/37 subtests failed. Files=1, Tests=37, 0 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 CPU) Failed 1/1 test programs. 4/37 subtests failed. NMAKE : fatal error U1077: 'C:\cpanrun\build\5-10-0\bin\perl.exe' : return code '0x5' Stop.