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-tcp-model

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

10
bin/pt-tcp-model
View File

@@ -1902,7 +1902,7 @@ sub main {
# ##########################################################################
# Get configuration information.
# ##########################################################################
my $o = new OptionParser();
my $o = OptionParser->new();
$o->get_specs();
$o->get_opts();
if ( !$o->get('help') ) {
@@ -1922,13 +1922,13 @@ sub main {
# ########################################################################
# Set up objects and variables.
# ########################################################################
my $fi = new FileIterator();
my $fi = FileIterator->new();
my $parser;
if ( $o->get('type') eq 'tcpdump' ) { # Default: parse tcpdump
$parser = new SimpleTCPDumpParser(watch => $o->get('watch-server'));
$parser = SimpleTCPDumpParser->new(watch => $o->get('watch-server'));
}
else {
$parser = new TCPRequestAggregator(
$parser = TCPRequestAggregator->new(
interval => $o->get('run-time'),
quantile => $o->get('quantile')
);
@@ -1963,7 +1963,7 @@ sub main {
# #####################################################################
my $pr;
if ( $o->get('progress') && $filename && -e $filename ) {
$pr = new Progress(
$pr = Progress->new(
jobsize => -s $filename,
spec => $o->get('progress'),
name => $filename,