← Back to branch summary

~percona-toolkit-dev/percona-toolkit/release-2.2.2

« back to all changes in this revision

Viewing changes to bin/pt-fingerprint

  • Committer: Brian Fraser
  • Date: 2013-04-19 23:26:48 UTC
  • Revision ID: brian.fraser@percona.com-20130419232648-mjnd4rt9k4xldmjc
Build percona-toolkit-2.2.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
bin/pt-fingerprint
37
37
 
38
38
use List::Util qw(max);
39
39
use Getopt::Long;
 
40
use Data::Dumper;
40
41
 
41
42
my $POD_link_re = '[LC]<"?([^">]+)"?>';
42
43
 
1020
1021
   );
1021
1022
};
1022
1023
 
 
1024
sub set_vars {
 
1025
   my ($self, $file) = @_;
 
1026
   $file ||= $self->{file} || __FILE__;
 
1027
 
 
1028
   my %user_vars;
 
1029
   my $user_vars = $self->has('set-vars') ? $self->get('set-vars') : undef;
 
1030
   if ( $user_vars ) {
 
1031
      foreach my $var_val ( @$user_vars ) {
 
1032
         my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
 
1033
         die "Invalid --set-vars value: $var_val\n" unless $var && $val;
 
1034
         $user_vars{$var} = {
 
1035
            val     => $val,
 
1036
            default => 0,
 
1037
         };
 
1038
      }
 
1039
   }
 
1040
 
 
1041
   my %default_vars;
 
1042
   my $default_vars = $self->read_para_after($file, qr/MAGIC_set_vars/);
 
1043
   if ( $default_vars ) {
 
1044
      %default_vars = map {
 
1045
         my $var_val = $_;
 
1046
         my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
 
1047
         die "Invalid --set-vars value: $var_val\n" unless $var && $val;
 
1048
         $var => {
 
1049
            val     => $val,
 
1050
            default => 1,
 
1051
         };
 
1052
      } split("\n", $default_vars);
 
1053
   }
 
1054
 
 
1055
   my %vars = (
 
1056
      %default_vars, # first the tool's defaults
 
1057
      %user_vars,    # then the user's which overwrite the defaults
 
1058
   );
 
1059
   PTDEBUG && _d('--set-vars:', Dumper(\%vars));
 
1060
   return \%vars;
 
1061
}
 
1062
 
1023
1063
sub _d {
1024
1064
   my ($package, undef, $line) = caller 0;
1025
1065
   @_ = map { (my $temp = $_) =~ s/\n/\n# /g; $temp; }
2153
2193
 
2154
2194
=head1 VERSION
2155
2195
 
2156
 
pt-fingerprint 2.2.1
 
2196
pt-fingerprint 2.2.2
2157
2197
 
2158
2198
=cut