← 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-deadlock-logger

Merge fix-set-vars-bug-1182856.

Show diffs side-by-side

added added

removed removed

Lines of Context:
bin/pt-deadlock-logger
1105
1105
   if ( $user_vars ) {
1106
1106
      foreach my $var_val ( @$user_vars ) {
1107
1107
         my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
1108
 
         die "Invalid --set-vars value: $var_val\n" unless $var && $val;
 
1108
         die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
1109
1109
         $user_vars{$var} = {
1110
1110
            val     => $val,
1111
1111
            default => 0,
1119
1119
      %default_vars = map {
1120
1120
         my $var_val = $_;
1121
1121
         my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
1122
 
         die "Invalid --set-vars value: $var_val\n" unless $var && $val;
 
1122
         die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
1123
1123
         $var => {
1124
1124
            val     => $val,
1125
1125
            default => 1,