percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-25 05:44:59 +00:00
Code Issues Packages Projects Releases Wiki Activity

Removed indirect object syntax from the modulino portion of pt-archiver.

Browse Source
This commit is contained in:
Brian Fraser
2011-12-23 12:02:10 -03:00
parent 27b79ac337
commit 8c2d09b555
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
bin/pt-archiver
View File

@@ -3349,8 +3349,8 @@ my ( $src, $dst );
# Holds the arguments for the $sth's bind variables, so it can be re-tried
# easily.
my @beginning_of_txn;
my $vp = new VersionParser;
my $q = new Quoter;
my $vp = VersionParser->new();
my $q = Quoter->new();
sub main {
@ARGV = @_; # set global ARGV for this package
@@ -3371,7 +3371,7 @@ sub main {
# ########################################################################
# Get configuration information.
# ########################################################################
my $o = new OptionParser();
my $o = OptionParser->new();
$o->get_specs();
$o->get_opts();
@@ -3461,7 +3461,7 @@ sub main {
# We're not daemoninzing, it just handles PID stuff. Keep $daemon
# in the the scope of main() because when it's destroyed it automatically
# removes the PID file.
$daemon = new Daemon(o=>$o);
$daemon = Daemon->new(o=>$o);
$daemon->make_PID_file();
}
@@ -3496,8 +3496,8 @@ sub main {
# Inspect DB servers and tables.
# ########################################################################
my $tp = new TableParser(Quoter => $q);
my $du = new MySQLDump();
my $tp = TableParser->new(Quoter => $q);
my $du = MySQLDump->new();
foreach my $table ( grep { $_ } ($src, $dst) ) {
my $ac = !$txnsize && !$commit_each;
if ( !defined $table->{p} && $o->get('ask-pass') ) {
@@ -3606,7 +3606,7 @@ sub main {
my $dsn_defaults = $dp->parse_options($o);
my $dsn = $dp->parse($o->get('check-slave-lag'), $dsn_defaults);
$lag_dbh = $dp->get_dbh($dp->get_cxn_params($dsn), { AutoCommit => 1 });
$ms = new MasterSlave(VersionParser => $vp);
$ms = MasterSlave->new(VersionParser => $vp);
}
# ########################################################################
@@ -3627,7 +3627,7 @@ sub main {
# Design SQL statements.
# ########################################################################
my $dbh = $src->{dbh};
my $nibbler = new TableNibbler(
my $nibbler = TableNibbler->new(
TableParser => $tp,
Quoter => $q,
);