percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-17 08:57:24 +00:00
Code Issues Packages Projects Releases Wiki Activity

Slew of changes from Daniel's review.

Browse Source
This commit is contained in:
Brian Fraser
2012-01-12 10:37:49 -03:00
parent 6d47e958c7
commit 3165b3c0f8
8 changed files with 580 additions and 408 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
lib/pt_diskstats.pm
View File

@@ -30,27 +30,27 @@ sub main {
# ########################################################################
# Get configuration information.
# ########################################################################
my $o = new OptionParser file => __FILE__;
my $o = new OptionParser(file => __FILE__);
$o->get_specs();
$o->get_opts();
$o->usage_or_errors();
my $diskstats = new DiskstatsMenu;
my $diskstats = new DiskstatsMenu();
# Interactive mode. Delegate to DiskstatsMenu::run_interactive
return $diskstats->run_interactive( OptionParser => $o, filename => $ARGV[0] );
return $diskstats->run_interactive(
OptionParser => $o,
filename => $ARGV[0]
);
}
# Somewhat important if STDOUT is tied to a terminal.
END { close STDOUT or die "Couldn't close stdout: $OS_ERROR" }
# ############################################################################
# Run the program.
# ############################################################################
if ( !caller ) { exit main(@ARGV); }
1;
1; # Because this is a module as well as a script.
}
# #############################################################################
@@ -282,11 +282,6 @@ Sample /proc/diskstats every N seconds.
Show rows with all zero values.
=item --memory-for-speed
EXPERIMENTAL! Trades memory for speed, by storing more things in memory.
What it stores, and how, may all be subject to change.
=item --help
Show help and exit.