Re: DBI 1.15 - regressed DBD::ADO driver?

[Simon Oliver]

Tom, I'm getting the following error:

Use of uninitialized value in concatenation (.) at 
C:/Perl/site/lib/DBD/ADO.pm l
ine 817.

This happens if $value is undef and is caused by the call to 
$dbh->trace_msg:

     sub STORE {
         my ($dbh, $attrib, $value) = @_;
        $dbh->trace_msg( "-> Store: $attrib $value\n", 3);

Something like this should fix it:

  sub STORE {
    my ($dbh, $attrib, $value) = @_;
    my $tvalue = defined($value) ? $value : '[undef]';
    $dbh->trace_msg( "-> Store: $attrib $tvalue\n", 3);

Note: I'm using ADO.pm $VERSION = substr(q$Revision: 2.0 $, 9,-1) +0; as 
sent to the dbi-users list a month ago as this has still not appeared on 
CPAN.

--
   Simon Oliver