mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-10-22 10:58:42 +00:00
Make Net::Address::IP::Local optional in check-dev-env.
This commit is contained in:
@@ -28,16 +28,16 @@ my @required_modules = qw(
|
||||
Test::More
|
||||
Time::HiRes
|
||||
Time::Local
|
||||
Net::Address::IP::Local
|
||||
);
|
||||
|
||||
# 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 %s\n";
|
||||
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'`, "";
|
||||
@@ -51,7 +51,7 @@ foreach my $module (@required_modules) {
|
||||
else {
|
||||
$version = ${"${module}::VERSION"};
|
||||
}
|
||||
printf $fmt, $module, $version, "";
|
||||
printf $fmt, $module, $version;
|
||||
}
|
||||
|
||||
foreach my $module (@optional_modules) {
|
||||
@@ -60,7 +60,7 @@ foreach my $module (@optional_modules) {
|
||||
if ( !$EVAL_ERROR ) {
|
||||
$version = ${"${module}::VERSION"};
|
||||
}
|
||||
printf $fmt, $module, $version, "MySQLProtocolParser, ProtocolParser"
|
||||
printf $fmt, $module, $version;
|
||||
}
|
||||
|
||||
exit $exit_status;
|
||||
|
Reference in New Issue
Block a user