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

Update OptionParser in all tools.

Browse Source
This commit is contained in:
Daniel Nichter
2013-06-25 15:32:19 -07:00
parent 591a49557c
commit 0ec803417d
26 changed files with 52 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
bin/pt-index-usage
View File

@@ -1682,7 +1682,7 @@ sub set_vars {
if ( $user_vars ) {
foreach my $var_val ( @$user_vars ) {
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val;
die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$user_vars{$var} = {
val => $val,
default => 0,
@@ -1696,7 +1696,7 @@ sub set_vars {
%default_vars = map {
my $var_val = $_;
my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
die "Invalid --set-vars value: $var_val\n" unless $var && $val;
die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
$var => {
val => $val,
default => 1,