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 /scripts/mysqlhotcopy.sh | |
| 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 'scripts/mysqlhotcopy.sh')
| -rw-r--r-- | scripts/mysqlhotcopy.sh | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/scripts/mysqlhotcopy.sh b/scripts/mysqlhotcopy.sh index c56cdea470c..94e577a94a7 100644 --- a/scripts/mysqlhotcopy.sh +++ b/scripts/mysqlhotcopy.sh @@ -192,12 +192,12 @@ $opt{allowold} = 1 if $opt{keepold}; my $dsn; $dsn = ";host=" . (defined($opt{host}) ? $opt{host} : "localhost"); $dsn .= ";port=$opt{port}" if $opt{port}; -$dsn .= ";mysql_socket=$opt{socket}" if $opt{socket}; +$dsn .= ";mariadb_socket=$opt{socket}" if $opt{socket}; -# use mysql_read_default_group=mysqlhotcopy so that [client] and +# use mariadb_read_default_group=mysqlhotcopy so that [client] and # [mysqlhotcopy] groups will be read from standard options files. -my $dbh = DBI->connect("dbi:mysql:$dsn;mysql_read_default_group=mysqlhotcopy", +my $dbh = DBI->connect("DBI:MariaDB:$dsn;mariadb_read_default_group=mysqlhotcopy", $opt{user}, $opt{password}, { RaiseError => 1, @@ -796,7 +796,7 @@ sub record_log_pos { my $row_hash = get_row_hash( $dbh, "show slave status" ); my ($master_host, $log_file, $log_pos ); - if ( $dbh->{mysql_serverinfo} =~ /^3\.23/ ) { + if ( $dbh->{mariadb_serverinfo} =~ /^3\.23/ ) { ($master_host, $log_file, $log_pos ) = @{$row_hash}{ qw / Master_Host Log_File Pos / }; } else { |