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/insert_and_repair.pl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'tests/insert_and_repair.pl') diff --git a/tests/insert_and_repair.pl b/tests/insert_and_repair.pl index 18091c92718..dfa490456cb 100755 --- a/tests/insert_and_repair.pl +++ b/tests/insert_and_repair.pl @@ -49,7 +49,7 @@ $secondtable = "bench_f2"; $start_time=new Benchmark; if (!$opt_skip_create) { - $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; $dbh->do("drop table if exists $firsttable, $secondtable"); @@ -79,7 +79,7 @@ while (($pid=wait()) != -1) if (!$opt_skip_delete && !$errors) { - $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; $dbh->do("drop table $firsttable,$secondtable"); @@ -100,7 +100,7 @@ sub insert_in_bench1 { my ($dbh,$rows,$found,$i); - $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; $rows=$found=0; @@ -123,7 +123,7 @@ sub insert_in_bench2 { my ($dbh,$rows,$found,$i); - $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; $rows=$found=0; @@ -149,7 +149,7 @@ sub repair_and_check $table); $found1=$found2=0; $last_found1=$last_found2= -1; - $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