← 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-fingerprint

Merge fix-set-vars-bug-1182856.

Show diffs side-by-side

added added

removed removed

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