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

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

Browse Source
This commit is contained in:
Brian Fraser
2011-12-26 12:00:14 -03:00
parent b8cb469a55
commit 465c6bd31e
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
bin/pt-trend
View File

@@ -1806,7 +1806,7 @@ sub main {
# ######################################################################## # ########################################################################
# 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();
$o->set('progress', undef) if $o->get('quiet'); $o->set('progress', undef) if $o->get('quiet');
@@ -1822,8 +1822,8 @@ sub main {
$o->usage_or_errors(); $o->usage_or_errors();
# Set up common modules. # Set up common modules.
my $fi = new FileIterator(); my $fi = FileIterator->new();
my $tst = new TimeSeriesTrender(callback => \&print_report); my $tst = TimeSeriesTrender->new(callback => \&print_report);
# ######################################################################## # ########################################################################
# If --pid, check it first since we'll die if it already exists. # If --pid, check it first since we'll die if it already exists.
@@ -1833,7 +1833,7 @@ sub main {
# We're not daemonizing, it just handles PID stuff. Keep $daemon # We're not daemonizing, 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();
} }
@@ -1854,7 +1854,7 @@ sub main {
# ##################################################################### # #####################################################################
my $pr; my $pr;
if ( $o->get('progress') && $filename && -e $filename ) { if ( $o->get('progress') && $filename && -e $filename ) {
$pr = new Progress( $pr = Progress->new(
jobsize => -s $filename, jobsize => -s $filename,
spec => $o->get('progress'), spec => $o->get('progress'),
name => $filename, name => $filename,