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/mail_to_db.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/mail_to_db.pl')
-rwxr-xr-x | tests/mail_to_db.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/mail_to_db.pl b/tests/mail_to_db.pl index e50415d96f3..94f3955b2c3 100755 --- a/tests/mail_to_db.pl +++ b/tests/mail_to_db.pl @@ -110,12 +110,12 @@ sub main die "FATAL: Can't find inbox file: $ARGV[$i]\n" if (! -f $ARGV[$i]); } - $connect_arg = "DBI:mysql:"; + $connect_arg = "DBI:MariaDB:"; push @args, "database=$opt_db" if defined($opt_db); push @args, "host=$opt_host" if defined($opt_host); push @args, "port=$opt_port" if defined($opt_port); - push @args, "mysql_socket=$opt_socket" if defined($opt_socket); - push @args, "mysql_read_default_group=mail_to_db"; + push @args, "mariadb_socket=$opt_socket" if defined($opt_socket); + push @args, "mariadb_read_default_group=mail_to_db"; $connect_arg .= join ';', @args; $dbh = DBI->connect("$connect_arg", $opt_user, $opt_password, { PrintError => 0}) |