percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-09 18:30:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

Removed indirect object syntax from the modulino portion of pt-slave-delay

Browse Source
This commit is contained in:
Brian Fraser
2011-12-26 11:18:24 -03:00
parent dbbdada99b
commit edf48ae7e0
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
bin/pt-slave-delay
View File

@@ -2023,8 +2023,8 @@ my $oktorun = 1;
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();
$o = new OptionParser(); $o = OptionParser->new();
$o->get_specs(); $o->get_specs();
$o->get_opts(); $o->get_opts();
@@ -2087,13 +2087,13 @@ sub main {
# Daemonize only after (potentially) asking for passwords for --ask-pass. # Daemonize only after (potentially) asking for passwords for --ask-pass.
my $daemon; my $daemon;
if ( $o->get('daemonize') ) { if ( $o->get('daemonize') ) {
$daemon = new Daemon(o=>$o); $daemon = Daemon->new(o=>$o);
$daemon->daemonize(); $daemon->daemonize();
MKDEBUG && _d('I am a daemon now'); MKDEBUG && _d('I am a daemon now');
} }
elsif ( $o->get('pid') ) { elsif ( $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();
} }
@@ -2113,7 +2113,7 @@ sub main {
# increasing wait time from 3 to 15 seconds. # increasing wait time from 3 to 15 seconds.
$o->set('ask-pass', 0); # don't ask again $o->set('ask-pass', 0); # don't ask again
my $tries = 10; my $tries = 10;
my $rt = new Retry(); my $rt = Retry->new();
$rt->retry( $rt->retry(
tries => $tries, tries => $tries,
retry_on_die => 1, retry_on_die => 1,