← 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-visual-explain

Merge fix-set-vars-bug-1182856.

Show diffs side-by-side

added added

removed removed

Lines of Context:
bin/pt-visual-explain
1704
1704
   if ( $user_vars ) {
1705
1705
      foreach my $var_val ( @$user_vars ) {
1706
1706
         my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
1707
 
         die "Invalid --set-vars value: $var_val\n" unless $var && $val;
 
1707
         die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
1708
1708
         $user_vars{$var} = {
1709
1709
            val     => $val,
1710
1710
            default => 0,
1718
1718
      %default_vars = map {
1719
1719
         my $var_val = $_;
1720
1720
         my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
1721
 
         die "Invalid --set-vars value: $var_val\n" unless $var && $val;
 
1721
         die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
1722
1722
         $var => {
1723
1723
            val     => $val,
1724
1724
            default => 1,