Microsoft (R) Program Maintenance Utility Version 7.00.8882 Copyright (C) Microsoft Corp 1988-2000. All rights reserved. Skipping C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Win32\API\API.bs (unchanged) Installing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Win32\API\API.dll Installing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Win32\API\API.exp Installing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Win32\API\API.lib Installing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Win32\API\API.pdb Skipping C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Win32\API\Callback\Callback.bs (unchanged) Installing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Win32\API\Callback\Callback.dll Installing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Win32\API\Callback\Callback.exp Installing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Win32\API\Callback\Callback.lib Installing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Win32\API\Callback\Callback.pdb Skipping C:\cpanrun-5.8\build\5-8-0\site\lib\Win32\API.pm (unchanged) Skipping C:\cpanrun-5.8\build\5-8-0\site\lib\Win32\API\Callback.pm (unchanged) Skipping C:\cpanrun-5.8\build\5-8-0\site\lib\Win32\API\Struct.pm (unchanged) Skipping C:\cpanrun-5.8\build\5-8-0\site\lib\Win32\API\Test.pm (unchanged) Skipping C:\cpanrun-5.8\build\5-8-0\site\lib\Win32\API\Type.pm (unchanged) Writing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Win32\API\.packlist Appending installation info to C:\cpanrun-5.8\build\5-8-0\lib/perllocal.pod call with floats segfaults # $^E=# ok 21 - sum_floats_ref() function defined ok 22 - sum_floats_ref() call works # $^E=# ok 23 - find_char() function defined ok 24 - find_char() function call works find_char: got 'japh', 'a' find_char: tmp now 'japh' find_char: tmp now 'aph' ok 3/24 skipped: various reasons t\01_Struct........1..7 ok 1 - use Win32::API; ok 2 - use Win32::API::Test; ok 3 - loaded ok 4 - found API_Test.dll # $^E=# ok 5 - mangle_simple_struct() function ok 6 - mangling of simple structures work ok 7 - tied interface works dump_struct: 00: 0x05 01: 0x00 02: 0x00 03: 0x00 04: 0x4c 05: 0xfd 06: 0x40 07: 0x01 08: 0x00 09: 0x00 10: 0x00 11: 0x00 12: 0x00 13: 0x00 14: 0x04 15: 0x40 16: 0x00 17: 0x00 18: 0x00 19: 0x00 20: 0x9c 21: 0x61 22: 0xd6 23: 0x01 24: 0x19 dump_struct: [mine at 0x0140fbd0] a=5 b=2.500000 c=0x00000000 dump_struct: 00: 0x05 01: 0x00 02: 0x00 03: 0x00 04: 0x00 05: 0x00 06: 0x00 07: 0x00 08: 0x00 09: 0x00 10: 0x00 11: 0x00 12: 0x00 13: 0x00 14: 0x04 15: 0x40 16: 0xa4 17: 0x57 18: 0xbe 19: 0x01 20: 0x00 21: 0x00 22: 0x00 23: 0x00 24: 0x00 dump_struct: [yours at 0x01be5ee4] a=5 b=2.500000 c=0x01be57a4 'test' x.a=2 x.b=5.000000 x.c=0x01be57a4 x.c='test' char='t' toupper='T' char='e' toupper='E' char='s' toupper='S' char='t' toupper='T' dump_struct: 00: 0x05 01: 0x00 02: 0x00 03: 0x00 04: 0x4c 05: 0xfd 06: 0x40 07: 0x01 08: 0x00 09: 0x00 10: 0x00 11: 0x00 12: 0x00 13: 0x00 14: 0x04 15: 0x40 16: 0x00 17: 0x00 18: 0x00 19: 0x00 20: 0x9c 21: 0x61 22: 0xd6 23: 0x01 24: 0x19 dump_struct: [mine at 0x0140fbd0] a=5 b=2.500000 c=0x00000000 dump_struct: 00: 0x05 01: 0x00 02: 0x00 03: 0x00 04: 0x00 05: 0x00 06: 0x00 07: 0x00 08: 0x00 09: 0x00 10: 0x00 11: 0x00 12: 0x00 13: 0x00 14: 0x04 15: 0x40 16: 0xec 17: 0xc4 18: 0xc6 19: 0x01 20: 0x00 21: 0x00 22: 0x00 23: 0x00 24: 0x00 dump_struct: [yours at 0x01c6c72c] a=5 b=2.500000 c=0x01c6c4ec 'test' x.a=2 x.b=5.000000 x.c=0x01c6c4ec x.c='test' char='t' toupper='T' char='e' toupper='E' char='s' toupper='S' char='t' toupper='T' ok t\02_GetProcess....1..3 ok 1 - use Win32::API; # $result=# 2696 # $$=# 2696 ok 2 - kernel32!GetCurrentProcessId import successful ok 3 - kernel32!GetCurrentProcessId() == Perl's $$ ok All tests successful, 3 subtests skipped. Files=3, Tests=34, 1 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 CPU) C:\cpanrun-5.8\build\5-8-0\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(0, '..\blib\lib', '..\blib\arch')" t\02_Callback.t t\02_Callback....# Compiler name:# # Compiler version:# 0 # $^E=# ok 1/8 skipped: because callbacks currently /SEGFAULT/ all compilers but MSVC 6+ All tests successful, 1 subtest skipped. Files=1, Tests=8, 0 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 CPU) tapi32.lib uuid.lib wsock32.lib mpr.lib winmm.lib version.lib odbc32.lib odbccp32.lib msvcrt.lib -def:API.def Creating library blib\arch\auto\Win32\API\API.lib and object blib\arch\auto\Win32\API\API.exp C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -MExtUtils::Command -e chmod 755 blib\arch\auto\Win32\API\API.dll C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -MExtUtils::Command -e cp API.bs blib\arch\auto\Win32\API\API.bs C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -MExtUtils::Command -e chmod 644 blib\arch\auto\Win32\API\API.bs