← 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-table-sync

  • 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-table-sync
54
54
# ###########################################################################
55
55
{
56
56
package Percona::Toolkit;
57
 
our $VERSION = '2.2.1';
 
57
our $VERSION = '2.2.2';
58
58
 
59
59
1;
60
60
}
1137
1137
# ###########################################################################
1138
1138
{
1139
1139
package Lmo::Utils;
 
1140
 
1140
1141
use strict;
1141
1142
use warnings qw( FATAL all );
1142
1143
require Exporter;
1144
1145
 
1145
1146
BEGIN {
1146
1147
   @ISA = qw(Exporter);
1147
 
   @EXPORT = @EXPORT_OK = qw(_install_coderef _unimport_coderefs _glob_for _stash_for);
 
1148
   @EXPORT = @EXPORT_OK = qw(
 
1149
      _install_coderef
 
1150
      _unimport_coderefs
 
1151
      _glob_for
 
1152
      _stash_for
 
1153
   );
1148
1154
}
1149
1155
 
1150
1156
{
1328
1334
   return Lmo::Meta->new(class => $class);
1329
1335
}
1330
1336
 
1331
 
 
1332
1337
1;
1333
1338
}
1334
1339
# ###########################################################################
6526
6531
   my $dp      = $self->{DSNParser};
6527
6532
   my $methods = $self->_resolve_recursion_methods($args{dsn});
6528
6533
 
 
6534
   return $slaves unless @$methods;
 
6535
   
6529
6536
   if ( grep { m/processlist|hosts/i } @$methods ) {
6530
6537
      my @required_args = qw(dbh dsn);
6531
6538
      foreach my $arg ( @required_args ) {
8237
8244
use English qw(-no_match_vars);
8238
8245
use constant PTDEBUG => $ENV{PTDEBUG} || 0;
8239
8246
 
 
8247
use Time::HiRes qw(sleep);
 
8248
 
8240
8249
sub new {
8241
8250
   my ( $class, %args ) = @_;
8242
8251
   my $self = {
12616
12625
 
12617
12626
=head1 VERSION
12618
12627
 
12619
 
pt-table-sync 2.2.1
 
12628
pt-table-sync 2.2.2
12620
12629
 
12621
12630
=cut