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

Removed indirect object syntax from the modulino portion of pt-online-schema-change

Browse Source
This commit is contained in:
Brian Fraser
2011-12-26 11:05:32 -03:00
parent 1d555c28e3
commit fff967a108
1 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
bin/pt-online-schema-change
View File

@@ -4102,7 +4102,7 @@ $Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1; $Data::Dumper::Sortkeys = 1;
$Data::Dumper::Quotekeys = 0; $Data::Dumper::Quotekeys = 0;
Transformers->import qw(ts); Transformers->import(qw(ts));
use constant MKDEBUG => $ENV{MKDEBUG} || 0; use constant MKDEBUG => $ENV{MKDEBUG} || 0;
@@ -4110,16 +4110,16 @@ my $quiet = 0; # for msg()
sub main { sub main {
@ARGV = @_; # set global ARGV for this package @ARGV = @_; # set global ARGV for this package
my $vp = new VersionParser(); my $vp = VersionParser->new();
my $q = new Quoter(); my $q = Quoter->new();
my $tp = new TableParser(Quoter => $q); my $tp = TableParser->new(Quoter => $q);
my $du = new MySQLDump(); my $du = MySQLDump->new();
my $chunker = new TableChunker(Quoter => $q, MySQLDump => $du); my $chunker = TableChunker->new(Quoter => $q, MySQLDump => $du);
# ######################################################################## # ########################################################################
# Get configuration information. # Get configuration information.
# ######################################################################## # ########################################################################
my $o = new OptionParser(); my $o = OptionParser->new();
$o->get_specs(); $o->get_specs();
$o->get_opts(); $o->get_opts();
@@ -4143,7 +4143,7 @@ sub main {
} }
} }
my $rename_fk_method = lc $o->get('update-foreign-keys-method'); my $rename_fk_method = lc($o->get('update-foreign-keys-method') || '');
if ( ($rename_fk_method || '') eq 'drop_old_table' ) { if ( ($rename_fk_method || '') eq 'drop_old_table' ) {
$o->set('rename-tables', 0); $o->set('rename-tables', 0);
$o->set('drop-old-table', 0), $o->set('drop-old-table', 0),
@@ -4205,7 +4205,7 @@ sub main {
my $daemon; my $daemon;
if ( $o->get('pid') ) { if ( $o->get('pid') ) {
# We're not daemoninzing, it just handles PID stuff. # We're not daemoninzing, it just handles PID stuff.
$daemon = new Daemon(o=>$o); $daemon = Daemon->new(o=>$o);
$daemon->make_PID_file(); $daemon->make_PID_file();
} }
@@ -4236,8 +4236,8 @@ sub main {
# Create the capture-sync and copy-rows plugins. Currently, we just have # Create the capture-sync and copy-rows plugins. Currently, we just have
# one method for each. # one method for each.
# ######################################################################## # ########################################################################
my $capture_sync = new OSCCaptureSync(); my $capture_sync = OSCCaptureSync->new();
my $copy_rows = new CopyRowsInsertSelect(Retry => new Retry()); my $copy_rows = CopyRowsInsertSelect->new(Retry => Retry->new());
# More values are added later. These are the minimum need to do --cleanup. # More values are added later. These are the minimum need to do --cleanup.
my %plugin_args = ( my %plugin_args = (
@@ -4313,7 +4313,7 @@ sub main {
%range_stats, %range_stats,
); );
$plugin_args{chunks} = \@chunks; $plugin_args{chunks} = \@chunks;
$plugin_args{Progress} = new Progress( $plugin_args{Progress} = Progress->new(
jobsize => scalar @chunks, jobsize => scalar @chunks,
spec => $o->get('progress'), spec => $o->get('progress'),
name => "Copying rows", name => "Copying rows",