From 5cc2096f93b7f130b36f8bc0fc43440db9a848e4 Mon Sep 17 00:00:00 2001 From: Pali Date: Fri, 7 Jun 2019 16:30:27 +0200 Subject: Switch Perl DBI scripts from DBD::mysql to DBD::MariaDB driver Perl DBD::MariaDB driver is available CPAN and is already used in production environment. --- tests/truncate.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'tests/truncate.pl') diff --git a/tests/truncate.pl b/tests/truncate.pl index 98791a15b2c..85a7888bc4a 100755 --- a/tests/truncate.pl +++ b/tests/truncate.pl @@ -47,7 +47,7 @@ print "Testing truncate from $opt_threads multiple connections $opt_loop_count t #### $start_time=new Benchmark; -$dbh = DBI->connect("DBI:mysql:$opt_db:$opt_host", +$dbh = DBI->connect("DBI:MariaDB:$opt_db:$opt_host", $opt_user, $opt_password, { PrintError => 0}) || die $DBI::errstr; if (!$opt_skip_create) @@ -100,7 +100,7 @@ while (($pid=wait()) != -1) if (!$opt_skip_delete && !$errors) { my $table_def; - $dbh = DBI->connect("DBI:mysql:$opt_db:$opt_host", + $dbh = DBI->connect("DBI:MariaDB:$opt_db:$opt_host", $opt_user, $opt_password, { PrintError => 0}) || die $DBI::errstr; @@ -127,7 +127,7 @@ sub test_truncate { my ($dbh,$i,$j,$count,$table_def,$table); - $dbh = DBI->connect("DBI:mysql:$opt_db:$opt_host", + $dbh = DBI->connect("DBI:MariaDB:$opt_db:$opt_host", $opt_user, $opt_password, { PrintError => 0}) || die $DBI::errstr; -- cgit v1.2.1