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/index_corrupt.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/index_corrupt.pl')
-rwxr-xr-x | tests/index_corrupt.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/index_corrupt.pl b/tests/index_corrupt.pl index 6b04ce8a59c..6f31b85bd61 100755 --- a/tests/index_corrupt.pl +++ b/tests/index_corrupt.pl @@ -51,7 +51,7 @@ $kill_file= "/tmp/mysqltest_index_corrupt.$$"; $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"); @@ -111,7 +111,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"); @@ -134,7 +134,7 @@ sub insert_in_bench { 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; for ($rows= 1; $rows <= $opt_loop_count ; $rows++) @@ -179,7 +179,7 @@ sub select_from_bench { my ($dbh,$rows,$cursor); - $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; for ($rows= 1; $rows < $opt_loop_count ; $rows++) @@ -206,7 +206,7 @@ sub delete_from_bench { my ($dbh,$row, $t_value, $t2_value, $statement, $cursor); - $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; |