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

Fix --help description interpolation.

Browse Source
This commit is contained in:
Daniel Nichter
2012-01-19 12:20:33 -07:00
parent ba4b4f3059
commit 51b93a6235
5 changed files with 53 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
bin/pt-stalk
View File

@@ -128,20 +128,20 @@ parse_options() {
my $opt = $1;
my $file = "$ENV{PO_DIR}/$opt";
open my $opt_fh, ">", $file or die "Cannot open $file: $!";
printf $opt_fh "long:$opt\n";
print $opt_fh "long:$opt\n";
$para = <>;
chomp;
if ( $para =~ m/^[a-z ]+:/ ) {
map {
chomp;
my ($attrib, $val) = split(/: /, $_);
printf $opt_fh "$attrib:$val\n";
print $opt_fh "$attrib:$val\n";
} split(/; /, $para);
$para = <>;
chomp;
}
my ($desc) = $para =~ m/^([^?.]+)/;
printf $opt_fh "desc:$desc.\n";
print $opt_fh "desc:$desc.\n";
close $opt_fh;
}
}