mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-09-10 05:00:45 +00:00
43 lines
1.0 KiB
Perl
Executable File
43 lines
1.0 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
# This pseudo-script is for developers to see if their box has all
|
|
# the modules necessary for testing Percona Toolkit. Any missing
|
|
# modules will cause an error like "Can't locate Foo.pm in @INC ...".
|
|
# Else the version for each module used by this script will be printed.
|
|
#
|
|
# In addition to these modules, many non-standard programs are needed
|
|
# for other tasks, like building packages, writing test coverage, etc.
|
|
#
|
|
# Exits 0 if all modules are installed, else exits non-zero.
|
|
|
|
use Data::Dumper;
|
|
use DBD::mysql;
|
|
use DBI;
|
|
use Digest::Crc32;
|
|
use Digest::MD5;
|
|
use File::Basename;
|
|
use File::Find;
|
|
use File::Spec;
|
|
use File::Temp;
|
|
use Getopt::Long;
|
|
use IO::File;
|
|
use IO::Uncompress::Inflate;
|
|
use List::Util;
|
|
use POSIX;
|
|
use Socket;
|
|
use Term::ReadKey;
|
|
use Test::More;
|
|
use Time::HiRes;
|
|
use Time::Local;
|
|
|
|
my $file = __FILE__;
|
|
my $m = `cat $file | grep '^use'`;
|
|
my @modules = map { m/use (.+?);/; $1 } split("\n", $m);
|
|
|
|
foreach my $module ( @modules ) {
|
|
my $version = "${module}::VERSION";
|
|
print "$module " . ${$version} . "\n";
|
|
}
|
|
|
|
exit 0;
|