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/insert_and_repair.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/insert_and_repair.pl')
-rwxr-xr-x | tests/insert_and_repair.pl | 10 |
1 files changed, 5 insertions, 5 deletions
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; |