DBI-1.37

[H.Merijn Brand]

$VAR1 = {
          'ShowErrorStatement' => 1,
          'Username' => '',
          'ScanLevel' => 7,
          'ChopBlanks' => 1
        };
Set attr 'ShowErrorStatement'
Set attr 'Username'
Argument "" isn't numeric in null operation at 
/pro/lib/perl5/site_perl/5.8.0/PA-RISC2.0/DBI.pm line 628.
Set attr 'ScanLevel'
Set attr 'ChopBlanks'
    DBI 1.37-nothread dispatch trace level set to 2


Since when is
1. Attr Username a required option
2. Username numeric

Code was changes like below to track this message:

        if (%$attr) {

            DBI::_rebless_dbtype_subclass($dbh, $rebless_class||$class, delete 
$attr->{DbTypeSubclass}, $attr)
                if $attr->{DbTypeSubclass};

            my $a;
            foreach $a (qw(RaiseError PrintError AutoCommit)) { # do these first
                next unless  exists $attr->{$a};
                $dbh->{$a} = delete $attr->{$a};
            }
use Data::Dumper;
print STDERR Dumper ($attr);
            foreach $a (keys %$attr) {
print STDERR "Set attr '$a'\n";
                $dbh->{$a} = $attr->{$a};
            }
        }

-- 
H.Merijn Brand        Amsterdam Perl Mongers (http://amsterdam.pm.org/)
using perl-5.6.1, 5.8.0 & 633 on HP-UX 10.20 & 11.00, AIX 4.2, AIX 4.3,
     WinNT 4, Win2K pro & WinCE 2.11 often with Tk800.024 &/| DBD-Unify
ftp://ftp.funet.fi/pub/languages/perl/CPAN/authors/id/H/HM/HMBRAND/