$self->{dbh} = DBI->connect("dbi:$driver:". $self->{datasource}, $userid, $password);

#instead of simply
$self->{dbh} = DBI->connect(@_);	# should i offer a patch?