Fix regex for removing database from DSN (#54)

perl5-dbi · Oct 4, 2016 · f4e0595 · f4e0595
1 parent 1f8c3fc
commit f4e0595
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/t/05dbcreate.t b/t/05dbcreate.t
@@ -10,7 +10,7 @@ use lib 't', '.';
 require 'lib.pl';
 
 # remove database from DSN
-$test_dsn =~ s/^DBI:mysql:([^:]+):/DBI:mysql::/;
+$test_dsn =~ s/^DBI:mysql:([^:]+)(:?)/DBI:mysql:$2/;
 
 my $dbh;
 eval {$dbh= DBI->connect($test_dsn, $test_user, $test_password,