Some VMS errors in DBI trunk

I ran DBI trunk on VMS (perl, v5.8.1 built for VMS_AXP) just to check it out. There were a lot of failures. I'm pushed for time right now so I've not yet had any time to properly investigate them. I've listed a few here (but not complete). If anyone has any insight into them I can try stuff out.

v20 $ perl -I[.blib.lib] -I[.blib.arch] [.t]10examp.t
1..210
ok 1 - connect should fail
ok 2 - ... we should have an exception here
ok 3 - ... $dbh2 should not be defined
ok 4
ok 5
ok 6 - ... these 2 handles are cached, so they are the same
ok 7
ok 8 - ... this handle was created with different parameters, so it is not the s
ame
ok 9
ok 10 - Executed should be true
ok 11
ok 12 - should return same handle
ok 13 - Executed should be false because reset by connect attributes
ok 14 - The object isa DBI::dr
ok 15 - ... these are our cached kids
ok 16 - ... we have emptied out cache
ok 17
ok 18 - ... PrintError should be 0
ok 19 - ... FetchHashKey is NAME
ok 20 - ... checking the example driver_path
others
ok 21 - DBI commit: invalid number of arguments: got handle + 1, expected handle
 + between 0 and 0
# Usage: $h->commit() at [.t]10examp.t line 88.
# 
ok 22 - ping should return true
ok 23 - prepare should fail
ok 24 - sth->err should be true
ok 25 - DBI::err should be true
ok 26 - $DBI::err should match $dbh->err
ok 27 - $DBI::errstr should contain error string
ok 28 - $DBI::errstr should match $dbh->errstr
ok 29
ok 30
ok 31
ok 32
ok 33 - DBI::db=HASH(0x6228e4) ne DBI::db=HASH(0x6228e4)
ok 34
ok 35
ok 36
ok 37
ok 38
ok 39
ok 40
ok 41
ok 42
ok 43
ok 44
ok 45
ok 46
ok 47
not ok 48
#   Failed test at [.t]10examp.t line 159.
ok 49
ok 50
ok 51
ok 52
ok 53 - errstr should contain error message
ok 54
ok 55 - errstr should contain error message
ok 56
ok 57
ok 58 - errstr should contain error message
ok 59
ok 60 - errstr should contain error message
ok 61
ok 62
Can't use an undefined value as an ARRAY reference at [.t]10examp.t line 179.
# Looks like you planned 210 tests but ran 62.
# Looks like you failed 1 test of 62 run.
# Looks like your test exited with 512 just after 62.
%SYSTEM-F-ABORT, abort




v20 $ perl -I[.blib.lib] -I[.blib.arch] [.t]19fhtrace.t
1..27
ok 1 - use DBI;
Can't set DBI::db=HASH(0x38c68c)->{PrintWarn}: unrecognised attribute or invalid
 value at /perl_root/lib/site_perl/DBD/ExampleP.pm line 230.
# Looks like you planned 27 tests but ran 1.
# Looks like your test exited with 1024 just after 1.
%SYSTEM-F-ABORT, abort

v20 $ perl -I[.blib.lib] -I[.blib.arch] [.t]42prof_data.t
1..31
ok 1 - use DBI::ProfileDumper;
ok 2 - use DBI::ProfileData;
Odd number of elements in anonymous hash at /perl_root/lib/site_perl/DBI/Profile
.pm line 497.
ok 3 - Created connection isa DBI::db
DBD::ExampleP::db do failed: Syntax error in select statement ("set dummy=1") at
 [.t]42prof_data.t line 43.
DBD::ExampleP::db do failed: Syntax error in select statement ("set dummy=1") at
 [.t]42prof_data.t line 43.
# Looks like you planned 31 tests but ran 3.
# Looks like your test exited with 1024 just after 3.
%SYSTEM-F-ABORT, abort

v20 $ perl -I[.blib.lib] -I[.blib.arch] [.t]49dbd_file.t 
ok 1 - use DBI;
not ok 2 - use DBD::File;
#   Failed test 'use DBD::File;'
#   at [.t]49dbd_file.t line 18.
#     Tried to use 'DBD::File'.
#     Error:  Can't locate DBD/File.pm in @INC (@INC contains: /perl_root/lib/VM
S_AXP/5_8_1 /perl_root/lib /perl_root/lib/site_perl/VMS_AXP perl_root:[lib.site_
perl] /perl_root/lib/site_perl .) at (eval 5) line 2.
# BEGIN failed--compilation aborted at (eval 5) line 2.
install_driver(File) failed: Can't locate DBD/File.pm in @INC (@INC contains: /p
erl_root/lib/VMS_AXP/5_8_1 /perl_root/lib /perl_root/lib/site_perl/VMS_AXP perl_
root:[lib.site_perl] /perl_root/lib/site_perl .) at (eval 6) line 3.
Perhaps the DBD::File perl module hasn't been fully installed,
or perhaps the capitalisation of 'File' isn't right.
Available drivers: examplep, nullp, proxy, sponge.
 at [.t]49dbd_file.t line 30
# Tests were run but no plan was declared and done_testing() was not seen.
%SYSTEM-F-ABORT, abort

There are more but this is really just to note what I've seen so far.

Martin
-- 
Martin J. Evans
Easysoft Limited
http://www.easysoft.com