Re: DBI can't catch error

[mje]

If you fail to connect $Dbh will be undef. If $Dbh is not undef, you connected. So check $Dbh not $DBI::err.

[gepebril69]

ok, that easy.

So simplified it will be something like

# Connect to MySQL server 
$Dbh = DBI->connect($DSN, $Config{'MYSQL_USER'}, $Config{'MYSQL_PASSWD
+'}, { PrintError => 0, RaiseError => 0 });

# Check if connect went ok
if (defined ($Dbh))
{ # Good
  print "Successful connection with DB";
}
else
{ # Problem!
    print "We had an error connecting to DB: ".$DBI::errstr;      
    exit;
}