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

  • 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-diskstats
37
37
# ###########################################################################
38
38
{
39
39
package Percona::Toolkit;
40
 
our $VERSION = '2.2.1';
 
40
our $VERSION = '2.2.2';
41
41
 
42
42
1;
43
43
}
63
63
 
64
64
use List::Util qw(max);
65
65
use Getopt::Long;
 
66
use Data::Dumper;
66
67
 
67
68
my $POD_link_re = '[LC]<"?([^">]+)"?>';
68
69
 
1046
1047
   );
1047
1048
};
1048
1049
 
 
1050
sub set_vars {
 
1051
   my ($self, $file) = @_;
 
1052
   $file ||= $self->{file} || __FILE__;
 
1053
 
 
1054
   my %user_vars;
 
1055
   my $user_vars = $self->has('set-vars') ? $self->get('set-vars') : undef;
 
1056
   if ( $user_vars ) {
 
1057
      foreach my $var_val ( @$user_vars ) {
 
1058
         my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
 
1059
         die "Invalid --set-vars value: $var_val\n" unless $var && $val;
 
1060
         $user_vars{$var} = {
 
1061
            val     => $val,
 
1062
            default => 0,
 
1063
         };
 
1064
      }
 
1065
   }
 
1066
 
 
1067
   my %default_vars;
 
1068
   my $default_vars = $self->read_para_after($file, qr/MAGIC_set_vars/);
 
1069
   if ( $default_vars ) {
 
1070
      %default_vars = map {
 
1071
         my $var_val = $_;
 
1072
         my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
 
1073
         die "Invalid --set-vars value: $var_val\n" unless $var && $val;
 
1074
         $var => {
 
1075
            val     => $val,
 
1076
            default => 1,
 
1077
         };
 
1078
      } split("\n", $default_vars);
 
1079
   }
 
1080
 
 
1081
   my %vars = (
 
1082
      %default_vars, # first the tool's defaults
 
1083
      %user_vars,    # then the user's which overwrite the defaults
 
1084
   );
 
1085
   PTDEBUG && _d('--set-vars:', Dumper(\%vars));
 
1086
   return \%vars;
 
1087
}
 
1088
 
1049
1089
sub _d {
1050
1090
   my ($package, undef, $line) = caller 0;
1051
1091
   @_ = map { (my $temp = $_) =~ s/\n/\n# /g; $temp; }
5501
5541
 
5502
5542
=head1 VERSION
5503
5543
 
5504
 
pt-diskstats 2.2.1
 
5544
pt-diskstats 2.2.2
5505
5545
 
5506
5546
=cut