mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-09-05 20:07:54 +00:00
65 lines
1.4 KiB
Perl
Executable File
65 lines
1.4 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use warnings FATAL => 'all';
|
|
use English;
|
|
|
|
# This script checks if all modules necessary for testing Percona Toolkit
|
|
# are installed. It exits 0 if all modules are installed, else it exits
|
|
# non-zero.
|
|
#
|
|
# This check is just for testing Percona Toolkit. Other dev tasks, like
|
|
# building release packages, require other modules and programs.
|
|
|
|
my @required_modules = qw(
|
|
Data::Dumper
|
|
DBD::mysql
|
|
DBI
|
|
Digest::MD5
|
|
File::Basename
|
|
File::Find
|
|
File::Spec
|
|
File::Temp
|
|
Getopt::Long
|
|
IO::File
|
|
List::Util
|
|
POSIX
|
|
Socket
|
|
Test::More
|
|
Time::HiRes
|
|
Time::Local
|
|
);
|
|
|
|
# CentOS doesn't seem to have this in its repo.
|
|
my @optional_modules = qw(
|
|
IO::Uncompress::Inflate
|
|
);
|
|
|
|
my $exit_status = 0;
|
|
my $fmt = "%-23s %8s %s\n";
|
|
|
|
# Not a module but we want to know the Perl version.
|
|
printf $fmt, "Perl", `perl -v | perl -ne '/v([\\d\\.]+)/ && print \$1'`, "";
|
|
|
|
foreach my $module (@required_modules) {
|
|
my $version = "NA";
|
|
eval "require $module";
|
|
if ( $EVAL_ERROR ) {
|
|
$exit_status = 1;
|
|
}
|
|
else {
|
|
$version = ${"${module}::VERSION"};
|
|
}
|
|
printf $fmt, $module, $version, "";
|
|
}
|
|
|
|
foreach my $module (@optional_modules) {
|
|
my $version = "NA";
|
|
eval "require $module";
|
|
if ( !$EVAL_ERROR ) {
|
|
$version = ${"${module}::VERSION"};
|
|
}
|
|
printf $fmt, $module, $version, "MySQLProtocolParser, ProtocolParser"
|
|
}
|
|
|
|
exit $exit_status;
|