diff options
author | Jean Weisbuch <jean@phpnet.org> | 2020-05-18 15:18:56 +0200 |
---|---|---|
committer | Anel Husakovic <anel@mariadb.org> | 2021-06-21 11:55:16 +0200 |
commit | 59e3ac2e67b7bab72f4d3ddd2a07f13f1a557411 (patch) | |
tree | 4195050ac9a1ad2259b3ea2d7286ad56241370b6 /scripts | |
parent | c3a1ba0fd99e77c1e24e2668b11c44572abbea6b (diff) | |
download | mariadb-git-59e3ac2e67b7bab72f4d3ddd2a07f13f1a557411.tar.gz |
MDEV-25878: mytop bugs: check for mysql driver and sockets
mytop fall-back to DBD::mysql if DBD::MariaDB is not available
Apply #1546
Diffstat (limited to 'scripts')
-rw-r--r-- | scripts/mytop.sh | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/scripts/mytop.sh b/scripts/mytop.sh index 7d40c44c2d6..a6a31b73199 100644 --- a/scripts/mytop.sh +++ b/scripts/mytop.sh @@ -242,7 +242,11 @@ my $dsn; ## Socket takes precedence. -$dsn ="DBI:MariaDB:database=$config{db};mariadb_read_default_group=mytop;"; +if (eval {DBI->install_driver("MariaDB")}) { + $dsn = "DBI:MariaDB:database=$config{db};mariadb_read_default_group=mytop;"; +} else { + $dsn = "DBI:mysql:database=$config{db};mysql_read_default_group=mytop;"; +} if ($config{socket} and -S $config{socket}) { @@ -2095,7 +2099,7 @@ following: * Perl 5.005 or newer * Getopt::Long - * DBI and DBD::MariaDB + * DBI and DBD::MariaDB or DBD::mysql * Term::ReadKey from CPAN Most systems are likely to have all of those installed--except for |