1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
#!/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
File::Slurp
Getopt::Long
IO::File
List::Util
POSIX
Socket
Test::More
Time::HiRes
Time::Local
JSON
);
# CentOS doesn't seem to have this in its repo.
my @optional_modules = qw(
IO::Uncompress::Inflate
Net::Address::IP::Local
);
my $exit_status = 0;
my $fmt = "%-23s %8s\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;
}
exit $exit_status;
|
