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

Merged fix-831525-pqd-mangled-help

Browse Source
This commit is contained in:
Brian Fraser
2012-11-29 17:10:54 -03:00
parent 713457226a 5e838050b6
commit cddead8a69
3 changed files with 21 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/OptionParser.pm
View File

@@ -1074,7 +1074,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);