percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-10 13:11:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix for 831525: pt-query-digest help output mangled

Browse Source
This commit is contained in:
Brian Fraser
2012-11-08 13:38:09 -03:00
parent fb345eb3fd
commit 5e838050b6
3 changed files with 29 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/OptionParser.pm
View File

@@ -1076,7 +1076,7 @@ sub print_usage {
. "d=days; if no suffix, $s is used.";
}
# Wrap long descriptions
$desc = join("\n$rpad", grep { $_ } $desc =~ m/(.{0,$rcol})(?:\s+|$)/g);
$desc = join("\n$rpad", grep { $_ } $desc =~ m/(.{0,$rcol}(?!\W))(?:\s+|(?<=\W)|$)/g);
$desc =~ s/ +$//mg;
if ( $short ) {
$usage .= sprintf(" --%-${maxs}s -%s %s\n", $long, $short, $desc);