uprava chybove hlasky

src/warden-server/lib/WardenCommon.pm

@@ -115,7 +115,7 @@ sub connectDB
   my $db_user	= shift;
   my $db_pass	= shift;
 
-  my $dbh = DBI->connect("DBI:mysql:database=$db_name;host=$db_host",$db_user, $db_pass, {RaiseError => 1, mysql_auto_reconnect => 1}) || die "Could not connect to database '$db_name': $DBI::errstr";
+  my $dbh = DBI->connect("DBI:mysql:database=$db_name;host=$db_host",$db_user, $db_pass, {RaiseError => 1, mysql_auto_reconnect => 1}) || die "Could not connect to database '$db_name' at '$db_host': $DBI::errstr";
   return $dbh;
 } # End of connectDB