← Back to branch summary

~percona-toolkit-dev/percona-toolkit/pt-agent-uninstall

« back to all changes in this revision

Viewing changes to bin/pt-find

  • Committer: Daniel Nichter
  • Date: 2013-08-03 17:37:45 UTC
  • mfrom: (583.2.21 release-2.2.4)
  • Revision ID: daniel@percona.com-20130803173745-0nroe352pdk9fst3
Merge release-2.2.4.

Show diffs side-by-side

added added

removed removed

Lines of Context:
bin/pt-find
35
35
{
36
36
package Percona::Toolkit;
37
37
 
38
 
our $VERSION = '2.2.3';
 
38
our $VERSION = '2.2.4';
39
39
 
40
40
use strict;
41
41
use warnings FATAL => 'all';
1521
1521
   if ( $user_vars ) {
1522
1522
      foreach my $var_val ( @$user_vars ) {
1523
1523
         my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
1524
 
         die "Invalid --set-vars value: $var_val\n" unless $var && $val;
 
1524
         die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
1525
1525
         $user_vars{$var} = {
1526
1526
            val     => $val,
1527
1527
            default => 0,
1535
1535
      %default_vars = map {
1536
1536
         my $var_val = $_;
1537
1537
         my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
1538
 
         die "Invalid --set-vars value: $var_val\n" unless $var && $val;
 
1538
         die "Invalid --set-vars value: $var_val\n" unless $var && defined $val;
1539
1539
         $var => {
1540
1540
            val     => $val,
1541
1541
            default => 1,