05dbcreate: make dsn point to correct server

If the database test server was not on localhost and the test database
was not yet created, we would not correctly create the test database.

Reported by Vladimir Marek.
   (https://rt.cpan.org/Ticket/Display.html?id=112072)

Changes

@@ -4,6 +4,10 @@
   Reported by Jitka Plesnikova @ Red Hat
    (https://rt.cpan.org/Public/Bug/Display.html?id=116959)
    (https://bugzilla.redhat.com/show_bug.cgi?id=1366773)
+* If the database test server was not on localhost and the test database was
+  not yet created, we would not correctly create the test database.
+  Reported by Vladimir Marek.
+   (https://rt.cpan.org/Ticket/Display.html?id=112072)
 
 2016-08-11 Patrick Galbraith, Michiel Beijen, DBI/DBD community (4.035_02)
 * Test 56connattr.t failed when run when performance schema is enabled, but

t/05dbcreate.t

@@ -9,8 +9,11 @@ use vars qw($test_user $test_password $test_db $test_dsn);
 use lib 't', '.';
 require 'lib.pl';
 
+# remove database from DSN
+$test_dsn =~ s/^DBI:mysql:([^:]+):/DBI:mysql::/;
+
 my $dbh;
-eval {$dbh= DBI->connect('DBI:mysql:', $test_user, $test_password,
+eval {$dbh= DBI->connect($test_dsn, $test_user, $test_password,
                       { RaiseError => 1, PrintError => 1, AutoCommit => 0 });};
 if ($@) {
     diag $@;