mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-10-18 16:40:23 +00:00
41 lines
912 B
Perl
Executable File
41 lines
912 B
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 Maatkit. 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.
|
|
|
|
use Data::Dumper;
|
|
use DBD::mysql;
|
|
use DBI;
|
|
use Digest::MD5;
|
|
use File::Basename;
|
|
use File::Find;
|
|
use File::Spec;
|
|
use File::Temp;
|
|
use Getopt::Long;
|
|
use IO::Compress::Gzip;
|
|
use IO::File;
|
|
use IO::Uncompress::Inflate;
|
|
use List::Util;
|
|
use POSIX;
|
|
use Socket;
|
|
use Term::ReadKey;
|
|
use Test::More;
|
|
use threads;
|
|
use Thread::Queue;
|
|
use Time::HiRes;
|
|
use Time::Local;
|
|
#use Digest::Crc32;
|
|
|
|
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;
|