mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-09-10 13:11:32 +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,42 @@
|
||||
|
||||
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
|
||||
OptionParser
|
||||
Mo
|
||||
TableParser
|
||||
DSNParser
|
||||
VersionParser
|
||||
Quoter
|
||||
TableNibbler
|
||||
Daemon
|
||||
MasterSlave
|
||||
));
|
||||
}
|
||||
|
||||
# ###########################################################################
|
||||
# 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
|
||||
# ###########################################################################
|
||||
|
||||
# ###########################################################################
|
||||
# OptionParser package
|
||||
@@ -3815,6 +3850,7 @@ use Data::Dumper;
|
||||
$Data::Dumper::Indent = 1;
|
||||
$Data::Dumper::Quotekeys = 0;
|
||||
|
||||
use Percona::Toolkit;
|
||||
use constant PTDEBUG => $ENV{PTDEBUG} || 0;
|
||||
|
||||
# Global variables; as few as possible.
|
||||
|
Reference in New Issue
Block a user