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

Removed indirect object syntax from the modulino portion of pt-log-player

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

12
bin/pt-log-player
View File

@@ -2565,7 +2565,7 @@ sub main {
# ######################################################################### # #########################################################################
# Get configuration information. # Get configuration information.
# ######################################################################### # #########################################################################
$o = new OptionParser(); $o = OptionParser->new();
$o->get_specs(); $o->get_specs();
$o->get_opts(); $o->get_opts();
@@ -2607,7 +2607,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();
} }
@@ -2647,11 +2647,11 @@ sub main {
push @callbacks, $sub; push @callbacks, $sub;
} }
my $parser = $o->get('type') eq 'slowlog' ? new SlowLogParser() my $parser = $o->get('type') eq 'slowlog' ? SlowLogParser->new()
: $o->get('type') eq 'binlog' ? new BinaryLogParser() : $o->get('type') eq 'binlog' ? BinaryLogParser->new()
: $o->get('type') eq 'genlog' ? new GeneralLogParser() : $o->get('type') eq 'genlog' ? GeneralLogParser->new()
: die("Unknown type " . $o->get('type')); : die("Unknown type " . $o->get('type'));
my $ls = new LogSplitter( my $ls = LogSplitter->new(
attribute => $split, attribute => $split,
split_random => $o->get('split-random'), split_random => $o->get('split-random'),
base_dir => $base_dir, base_dir => $base_dir,