percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2026-04-17 01:01:39 +08:00
Code Issues Packages Projects Releases Wiki Activity

Removed indirect object syntax from the modulino portion of pt-find

Browse Source
This commit is contained in:
Brian Fraser
2011-12-23 17:30:56 -03:00
parent b586a12874
commit 277f487fef
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
bin/pt-find
View File

@@ -2722,8 +2722,8 @@ sub main {
# ######################################################################## # ########################################################################
# Get configuration information. # Get configuration information.
# ######################################################################## # ########################################################################
my $q = new Quoter(); my $q = Quoter->new();
$o = new OptionParser(); $o = OptionParser->new();
$o->get_specs(); $o->get_specs();
$o->get_opts(); $o->get_opts();
@@ -2765,8 +2765,8 @@ sub main {
my $need_table_struct = grep { $o->got($_); } @table_struct_tests; my $need_table_struct = grep { $o->got($_); } @table_struct_tests;
MKDEBUG && _d('Need table struct:', $need_table_struct); MKDEBUG && _d('Need table struct:', $need_table_struct);
if ( $need_table_struct ) { if ( $need_table_struct ) {
$du = new MySQLDump(); $du = MySQLDump->new();
$tp = new TableParser(Quoter => $q); $tp = TableParser->new(Quoter => $q);
} }
# ######################################################################## # ########################################################################
@@ -2777,7 +2777,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();
} }
@@ -2838,7 +2838,7 @@ sub main {
($server_id) = $dbh->selectrow_array('SELECT @@SERVER_ID'); ($server_id) = $dbh->selectrow_array('SELECT @@SERVER_ID');
# Discover if we need to get stored code. Need dbh to do this. # Discover if we need to get stored code. Need dbh to do this.
my $vp = new VersionParser(); my $vp = VersionParser->new();
my $need_stored_code = $vp->version_ge($dbh, '5.0.0'); my $need_stored_code = $vp->version_ge($dbh, '5.0.0');
$need_stored_code = grep { $o->got($_); } @stored_code_tests $need_stored_code = grep { $o->got($_); } @stored_code_tests
if $need_stored_code; if $need_stored_code;