← 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-fifo-split

  • 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-fifo-split
36
36
 
37
37
use List::Util qw(max);
38
38
use Getopt::Long;
 
39
use Data::Dumper;
39
40
 
40
41
my $POD_link_re = '[LC]<"?([^">]+)"?>';
41
42
 
1019
1020
   );
1020
1021
};
1021
1022
 
 
1023
sub set_vars {
 
1024
   my ($self, $file) = @_;
 
1025
   $file ||= $self->{file} || __FILE__;
 
1026
 
 
1027
   my %user_vars;
 
1028
   my $user_vars = $self->has('set-vars') ? $self->get('set-vars') : undef;
 
1029
   if ( $user_vars ) {
 
1030
      foreach my $var_val ( @$user_vars ) {
 
1031
         my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
 
1032
         die "Invalid --set-vars value: $var_val\n" unless $var && $val;
 
1033
         $user_vars{$var} = {
 
1034
            val     => $val,
 
1035
            default => 0,
 
1036
         };
 
1037
      }
 
1038
   }
 
1039
 
 
1040
   my %default_vars;
 
1041
   my $default_vars = $self->read_para_after($file, qr/MAGIC_set_vars/);
 
1042
   if ( $default_vars ) {
 
1043
      %default_vars = map {
 
1044
         my $var_val = $_;
 
1045
         my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;
 
1046
         die "Invalid --set-vars value: $var_val\n" unless $var && $val;
 
1047
         $var => {
 
1048
            val     => $val,
 
1049
            default => 1,
 
1050
         };
 
1051
      } split("\n", $default_vars);
 
1052
   }
 
1053
 
 
1054
   my %vars = (
 
1055
      %default_vars, # first the tool's defaults
 
1056
      %user_vars,    # then the user's which overwrite the defaults
 
1057
   );
 
1058
   PTDEBUG && _d('--set-vars:', Dumper(\%vars));
 
1059
   return \%vars;
 
1060
}
 
1061
 
1022
1062
sub _d {
1023
1063
   my ($package, undef, $line) = caller 0;
1024
1064
   @_ = map { (my $temp = $_) =~ s/\n/\n# /g; $temp; }
1562
1602
 
1563
1603
=head1 VERSION
1564
1604
 
1565
 
pt-fifo-split 2.2.1
 
1605
pt-fifo-split 2.2.2
1566
1606
 
1567
1607
=cut