From 3f739d918f99f0324b9b8ad9ea9c7bd5888c46f7 Mon Sep 17 00:00:00 2001
From: Brian Cully <bjc@kublai.com>
Date: Thu, 9 Feb 2012 16:02:41 -0500
Subject: Return errors when connecting fails.

---
 c_src/mysqlerl.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'c_src/mysqlerl.c')

diff --git a/c_src/mysqlerl.c b/c_src/mysqlerl.c
index 5c67517..37be2e4 100644
--- a/c_src/mysqlerl.c
+++ b/c_src/mysqlerl.c
@@ -248,8 +248,10 @@ handle_connect(ETERM *msg)
   logmsg("INFO: Connecting to %s on %s:%d as %s", db_name, host, port, user);
   if (mysql_real_connect(&dbh, host, user, passwd,
                          db_name, port, NULL, 0) == NULL) {
-    logmsg("ERROR: Failed to connect to database %s as %s: %s.",
-           db_name, user, mysql_error(&dbh));
+    resp = erl_format("{error, {mysql_error, ~i, ~s}}",
+                      mysql_errno(&dbh), mysql_error(&dbh));
+    write_msg(resp);
+    erl_free_term(resp);
     exit(2);
   }
 
-- 
cgit v1.2.3