percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-09 18:30:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

Make IO::Uncompress::Inflate an optional module for testing.

Browse Source
This commit is contained in:
Daniel Nichter
2012-02-09 11:42:48 -07:00
parent 1c5eb84cd5
commit 2e171dfb8c
1 changed files with 19 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
util/check-dev-env
View File

@@ -10,7 +10,7 @@ use English;
# This check is just for testing Percona Toolkit. Other dev tasks, like # This check is just for testing Percona Toolkit. Other dev tasks, like
# building release packages, require other modules and programs. # building release packages, require other modules and programs.
my @modules = qw( my @required_modules = qw(
Data::Dumper Data::Dumper
DBD::mysql DBD::mysql
DBI DBI
@@ -21,7 +21,6 @@ my @modules = qw(
File::Temp File::Temp
Getopt::Long Getopt::Long
IO::File IO::File
IO::Uncompress::Inflate
List::Util List::Util
POSIX POSIX
Socket Socket
@@ -30,13 +29,18 @@ my @modules = qw(
Time::Local Time::Local
); );
# CentOS doesn't seem to have this in its repo.
my @optional_modules = qw(
IO::Uncompress::Inflate
);
my $exit_status = 0; my $exit_status = 0;
my $fmt = "%-23s %s\n"; my $fmt = "%-23s %8s %s\n";
# Not a module but we want to know the Perl version. # Not a module but we want to know the Perl version.
printf $fmt, "Perl", `perl -v | perl -ne '/v([\\d\\.]+)/ && print \$1'`; printf $fmt, "Perl", `perl -v | perl -ne '/v([\\d\\.]+)/ && print \$1'`, "";
foreach my $module (@modules) { foreach my $module (@required_modules) {
my $version = "Not installed"; my $version = "Not installed";
eval "require $module"; eval "require $module";
if ( $EVAL_ERROR ) { if ( $EVAL_ERROR ) {
@@ -45,7 +49,16 @@ foreach my $module (@modules) {
else { else {
$version = ${"${module}::VERSION"}; $version = ${"${module}::VERSION"};
} }
printf $fmt, $module, $version; printf $fmt, $module, $version, "";
}
foreach my $module (@optional_modules) {
my $version = "Not installed";
eval "require $module";
if ( !$EVAL_ERROR ) {
$version = ${"${module}::VERSION"};
}
printf $fmt, $module, $version, "MySQLProtocolParser, ProtocolParser"
} }
exit $exit_status; exit $exit_status;