← Back to branch summary

~percona-toolkit-dev/percona-toolkit/fix-pt-heartbeat-docs-bug-1137556

« back to all changes in this revision

Viewing changes to bin/pt-kill

Merge fix-set-vars-bug-1182856.

Show diffs side-by-side

added added

removed removed

Lines of Context:
bin/pt-kill
1110
1110
   if ( $user_vars ) {
1111
1111
      foreach my $var_val ( @$user_vars ) {
1112
1112
         my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
1113
 
         die "Invalid --set-vars value: $var_val\n" unless $var && $val;
 
1113
         die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
1114
1114
         $user_vars{$var} = {
1115
1115
            val     => $val,
1116
1116
            default => 0,
1124
1124
      %default_vars = map {
1125
1125
         my $var_val = $_;
1126
1126
         my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
1127
 
         die "Invalid --set-vars value: $var_val\n" unless $var && $val;
 
1127
         die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
1128
1128
         $var => {
1129
1129
            val     => $val,
1130
1130
            default => 1,