← Back to branch summary

~percona-toolkit-dev/percona-toolkit/fix-fingerprint-bug-1174956

« back to all changes in this revision

Viewing changes to bin/pt-align

Merge fix-set-vars-bug-1182856.

Show diffs side-by-side

added added

removed removed

Lines of Context:
bin/pt-align
1028
1028
   if ( $user_vars ) {
1029
1029
      foreach my $var_val ( @$user_vars ) {
1030
1030
         my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
1031
 
         die "Invalid --set-vars value: $var_val\n" unless $var && $val;
 
1031
         die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
1032
1032
         $user_vars{$var} = {
1033
1033
            val     => $val,
1034
1034
            default => 0,
1042
1042
      %default_vars = map {
1043
1043
         my $var_val = $_;
1044
1044
         my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
1045
 
         die "Invalid --set-vars value: $var_val\n" unless $var && $val;
 
1045
         die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
1046
1046
         $var => {
1047
1047
            val     => $val,
1048
1048
            default => 1,