mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-09-24 21:35:00 +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:
44
bin/pt-kill
44
bin/pt-kill
@@ -6,7 +6,46 @@
|
||||
|
||||
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
|
||||
DSNParser
|
||||
Daemon
|
||||
Transformers
|
||||
TableParser
|
||||
Processlist
|
||||
TextResultSetParser
|
||||
MasterSlave
|
||||
Quoter
|
||||
QueryRewriter
|
||||
Retry
|
||||
Cxn
|
||||
));
|
||||
}
|
||||
|
||||
# ###########################################################################
|
||||
# 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
|
||||
@@ -4822,6 +4861,8 @@ sub _d {
|
||||
# ###########################################################################
|
||||
package pt_kill;
|
||||
|
||||
use strict;
|
||||
use warnings FATAL => 'all';
|
||||
use English qw(-no_match_vars);
|
||||
use POSIX qw(setsid);
|
||||
use List::Util qw(max);
|
||||
@@ -4833,6 +4874,7 @@ $Data::Dumper::Quotekeys = 0;
|
||||
|
||||
Transformers->import(qw(ts));
|
||||
|
||||
use Percona::Toolkit;
|
||||
use constant PTDEBUG => $ENV{PTDEBUG} || 0;
|
||||
|
||||
$OUTPUT_AUTOFLUSH = 1;
|
||||
|
Reference in New Issue
Block a user