From b8cd8386a625ffaa21af579e78aaa5f1aa2cbcd8 Mon Sep 17 00:00:00 2001
From: "jocuri%softhome.net" <>
Date: Wed, 20 Oct 2004 03:33:27 +0000
Subject: Patch for bug 264003: Include the DBI error in the error message if
 'createdb' fails; patch by Byron Jones (glob) <bugzilla@glob.com.au>; r=kiko,
 a=justdave.

---
 checksetup.pl | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 'checksetup.pl')

diff --git a/checksetup.pl b/checksetup.pl
index 0a5bb6109..e5431b8a5 100755
--- a/checksetup.pl
+++ b/checksetup.pl
@@ -1455,10 +1455,15 @@ if ($my_db_check) {
     my @databases = $dbh->func('_ListDBs');
     unless (grep /^$my_db_name$/, @databases) {
        print "Creating database $my_db_name ...\n";
-       $dbh->func('createdb', $my_db_name, 'admin')
-            or die <<"EOF"
+       if (!$dbh->func('createdb', $my_db_name, 'admin')) {
+            my $error = $dbh->errstr;
+            die <<"EOF"
 
-The '$my_db_name' database is not accessible. This might have several reasons:
+The '$my_db_name' database could not be created.  The error returned was:
+
+$error
+
+This might have several reasons:
 
 * MySQL is not running.
 * MySQL is running, but the rights are not set correct. Go and read the
@@ -1468,6 +1473,7 @@ The '$my_db_name' database is not accessible. This might have several reasons:
   sure all settings in '$localconfig' are correct. If all else fails, set
   '\$db_check' to zero.\n
 EOF
+        }
     }
     $dbh->disconnect if $dbh;
 }
-- 
cgit v1.2.3-24-g4f1b