diff options
| author | Pali <pali@cpan.org> | 2019-06-07 16:30:27 +0200 |
|---|---|---|
| committer | Robert Bindar <robert@mariadb.org> | 2019-07-19 13:39:20 +0300 |
| commit | 5cc2096f93b7f130b36f8bc0fc43440db9a848e4 (patch) | |
| tree | 48dc24bbde0c7a15181d01b7aea08e43992f4364 /tests/check_async_queries.pl | |
| parent | 9a7d96e8326377b92406c09fdcb8bd60c45f901c (diff) | |
| download | mariadb-git-5cc2096f93b7f130b36f8bc0fc43440db9a848e4.tar.gz | |
Switch Perl DBI scripts from DBD::mysql to DBD::MariaDB driverbb-10.5-MDEV-18565
Perl DBD::MariaDB driver is available CPAN and is already used in
production environment.
Diffstat (limited to 'tests/check_async_queries.pl')
| -rw-r--r-- | tests/check_async_queries.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/check_async_queries.pl b/tests/check_async_queries.pl index b599bc334d3..0039dd90eb9 100644 --- a/tests/check_async_queries.pl +++ b/tests/check_async_queries.pl @@ -13,7 +13,7 @@ my $D= []; die "Usage: $0 <host> <user> <password> <database>\n" unless @ARGV == 4; -my $dbh= DBI->connect("DBI:mysql:database=$ARGV[3];host=$ARGV[0]", +my $dbh= DBI->connect("DBI:MariaDB:database=$ARGV[3];host=$ARGV[0]", $ARGV[1], $ARGV[2], { RaiseError => 1, PrintError => 0 }); |