Make list_databases throw an error if it fails

diff --git a/mysql/mysql-lib.pl b/mysql/mysql-lib.pl
index 4fac033..789f6c3 100644 (file)
--- a/mysql/mysql-lib.pl
+++ b/mysql/mysql-lib.pl
@@ -150,6 +150,7 @@ sub list_databases
 open(DBS, "\"$config{'mysqlshow'}\" $authstr |");
 local $t = &parse_mysql_table(DBS);
 close(DBS);
+ref($t) && &error("Failed to list databases : $t");
 return map { $_->[0] } @{$t->{'data'}};
 }