← 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 lib/OptionParser.pm

Merge fix-set-vars-bug-1182856.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/OptionParser.pm
1289
1289
   if ( $user_vars ) {
1290
1290
      foreach my $var_val ( @$user_vars ) {
1291
1291
         my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
1292
 
         die "Invalid --set-vars value: $var_val\n" unless $var && $val;
 
1292
         die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
1293
1293
         $user_vars{$var} = {
1294
1294
            val     => $val,
1295
1295
            default => 0,
1303
1303
      %default_vars = map {
1304
1304
         my $var_val = $_;
1305
1305
         my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
1306
 
         die "Invalid --set-vars value: $var_val\n" unless $var && $val;
 
1306
         die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
1307
1307
         $var => {
1308
1308
            val     => $val,
1309
1309
            default => 1,