mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-09-10 05:00:45 +00:00
Remove _d from Percona::Toolkit because I can't get it to export correctly. Put Percona::Toolkit in most tools.
This commit is contained in:
@@ -6,7 +6,40 @@
|
||||
|
||||
use strict;
|
||||
use warnings FATAL => 'all';
|
||||
use constant PTDEBUG => $ENV{PTDEBUG} || 0;
|
||||
|
||||
# This tool is "fat-packed": most of its dependent modules are embedded
|
||||
# in this file. Setting %INC to this file for each module makes Perl aware
|
||||
# of this so it will not try to load the module from @INC. See the tool's
|
||||
# documentation for a full list of dependencies.
|
||||
BEGIN {
|
||||
$INC{$_} = __FILE__ for map { (my $pkg = "$_.pm") =~ s!::!/!g; $pkg } (qw(
|
||||
Percona::Toolkit
|
||||
Quoter
|
||||
OptionParser
|
||||
Mo
|
||||
VersionParser
|
||||
DSNParser
|
||||
MasterSlave
|
||||
Daemon
|
||||
));
|
||||
}
|
||||
|
||||
# ###########################################################################
|
||||
# Percona::Toolkit package
|
||||
# This package is a copy without comments from the original. The original
|
||||
# with comments and its test file can be found in the Bazaar repository at,
|
||||
# lib/Percona/Toolkit.pm
|
||||
# t/lib/Percona/Toolkit.t
|
||||
# See https://launchpad.net/percona-toolkit for more information.
|
||||
# ###########################################################################
|
||||
{
|
||||
package Percona::Toolkit;
|
||||
our $VERSION = '2.1.3';
|
||||
1;
|
||||
}
|
||||
# ###########################################################################
|
||||
# End Percona::Toolkit package
|
||||
# ###########################################################################
|
||||
|
||||
# ###########################################################################
|
||||
# Quoter package
|
||||
@@ -3109,6 +3142,7 @@ use List::Util qw(min max);
|
||||
use Time::HiRes qw(sleep);
|
||||
use sigtrap qw(handler finish untrapped normal-signals);
|
||||
|
||||
use Percona::Toolkit;
|
||||
use constant PTDEBUG => $ENV{PTDEBUG} || 0;
|
||||
|
||||
$OUTPUT_AUTOFLUSH = 1;
|
||||
|
Reference in New Issue
Block a user