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

Removed indirect object syntax from the modulino portion of pt-deadlock-logger

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

10
bin/pt-deadlock-logger
View File

@@ -1806,13 +1806,13 @@ my %is_proc_info = (
sub main {
@ARGV = @_; # set global ARGV for this package
my $q = new Quoter();
my $vp = new VersionParser();
my $q = Quoter->new();
my $vp = VersionParser->new();
# ########################################################################
# Get configuration information.
# ########################################################################
$o = new OptionParser();
$o = OptionParser->new();
$o->get_specs();
$o->get_opts();
@@ -1897,13 +1897,13 @@ sub main {
# Daemonize only after (potentially) asking for passwords for --ask-pass.
my $daemon;
if ( $o->get('daemonize') ) {
$daemon = new Daemon(o=>$o);
$daemon = Daemon->new(o=>$o);
$daemon->daemonize();
MKDEBUG && _d('I am a daemon now');
}
elsif ( $o->get('pid') ) {
# We're not daemoninzing, it just handles PID stuff.
$daemon = new Daemon(o=>$o);
$daemon = Daemon->new(o=>$o);
$daemon->make_PID_file();
}