diff --git a/globals.pl b/globals.pl
index 6f4e86a32843325c3ef3f76bbfa49d1543fdd1e1..f9e853ab2c48be76b83bc930eb5c88d13a78fc97 100644
--- a/globals.pl
+++ b/globals.pl
@@ -91,7 +91,7 @@ sub ConnectToDatabase {
             $::dbwritesallowed = 0;
         }
 	$::db = DBI->connect("DBI:mysql:host=$::db_host;database=$name", $::db_user, $::db_pass)
-            || die "Can't connect to database server.\n";
+	    || die $DBI::errstr;
     }
 }