percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-10 13:11:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

Removed indirect object syntax from the modulino portion of pt-duplicate-key-checker

Browse Source
This commit is contained in:
Brian Fraser
2011-12-23 12:11:05 -03:00
parent 78cca4a6e8
commit a45ea9cb2b
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
bin/pt-duplicate-key-checker
View File

@@ -3574,13 +3574,13 @@ sub main {
my %summary = ( 'Total Indexes' => 0 ); my %summary = ( 'Total Indexes' => 0 );
my %seen_tbl; my %seen_tbl;
my $q = new Quoter(); my $q = Quoter->new();
my $tp = new TableParser(Quoter => $q); my $tp = TableParser->new(Quoter => $q);
# ####################################################################### # #######################################################################
# Get configuration information and parse command line options. # Get configuration information and parse command line options.
# ####################################################################### # #######################################################################
my $o = new OptionParser(); my $o = OptionParser->new();
$o->get_specs(); $o->get_specs();
$o->get_opts(); $o->get_opts();
@@ -3597,7 +3597,7 @@ sub main {
# We're not daemoninzing, it just handles PID stuff. Keep $daemon # We're not daemoninzing, it just handles PID stuff. Keep $daemon
# in the the scope of main() because when it's destroyed it automatically # in the the scope of main() because when it's destroyed it automatically
# removes the PID file. # removes the PID file.
$daemon = new Daemon(o=>$o); $daemon = Daemon->new(o=>$o);
$daemon->make_PID_file(); $daemon->make_PID_file();
} }
@@ -3613,15 +3613,15 @@ sub main {
my $dbh = $dp->get_dbh($dp->get_cxn_params($dsn), my $dbh = $dp->get_dbh($dp->get_cxn_params($dsn),
{ AutoCommit => 1, }); { AutoCommit => 1, });
my $vp = new VersionParser(); my $vp = VersionParser->new();
my $version = $vp->parse($dbh->selectrow_array('SELECT VERSION()')); my $version = $vp->parse($dbh->selectrow_array('SELECT VERSION()'));
# ####################################################################### # #######################################################################
# Do the main work. # Do the main work.
# ####################################################################### # #######################################################################
my $ks = $o->get('summary') ? new KeySize(q=>$q) : undef; my $ks = $o->get('summary') ? KeySize->new(q=>$q) : undef;
my $dk = new DuplicateKeyFinder(); my $dk = DuplicateKeyFinder->new();
my $du = new MySQLDump(); my $du = MySQLDump->new();
my %tp_opts = ( my %tp_opts = (
ignore_type => $o->get('all-structs'), ignore_type => $o->get('all-structs'),
@@ -3632,8 +3632,8 @@ sub main {
my $get_keys = $o->get('key-types') =~ m/k/ ? 1 : 0; my $get_keys = $o->get('key-types') =~ m/k/ ? 1 : 0;
my $get_fks = $o->get('key-types') =~ m/f/ ? 1 : 0; my $get_fks = $o->get('key-types') =~ m/f/ ? 1 : 0;
my $schema = new Schema(); my $schema = Schema->new();
my $schema_itr = new SchemaIterator( my $schema_itr = SchemaIterator->new(
dbh => $dbh, dbh => $dbh,
OptionParser => $o, OptionParser => $o,
Quoter => $q, Quoter => $q,