← 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-slave-restart

  • 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-slave-restart
40
40
# ###########################################################################
41
41
{
42
42
package Percona::Toolkit;
43
 
our $VERSION = '2.2.1';
 
43
our $VERSION = '2.2.2';
44
44
 
45
45
1;
46
46
}
1274
1274
# ###########################################################################
1275
1275
{
1276
1276
package Lmo::Utils;
 
1277
 
1277
1278
use strict;
1278
1279
use warnings qw( FATAL all );
1279
1280
require Exporter;
1281
1282
 
1282
1283
BEGIN {
1283
1284
   @ISA = qw(Exporter);
1284
 
   @EXPORT = @EXPORT_OK = qw(_install_coderef _unimport_coderefs _glob_for _stash_for);
 
1285
   @EXPORT = @EXPORT_OK = qw(
 
1286
      _install_coderef
 
1287
      _unimport_coderefs
 
1288
      _glob_for
 
1289
      _stash_for
 
1290
   );
1285
1291
}
1286
1292
 
1287
1293
{
1465
1471
   return Lmo::Meta->new(class => $class);
1466
1472
}
1467
1473
 
1468
 
 
1469
1474
1;
1470
1475
}
1471
1476
# ###########################################################################
2585
2590
   my $dp      = $self->{DSNParser};
2586
2591
   my $methods = $self->_resolve_recursion_methods($args{dsn});
2587
2592
 
 
2593
   return $slaves unless @$methods;
 
2594
   
2588
2595
   if ( grep { m/processlist|hosts/i } @$methods ) {
2589
2596
      my @required_args = qw(dbh dsn);
2590
2597
      foreach my $arg ( @required_args ) {
5766
5773
 
5767
5774
=head1 VERSION
5768
5775
 
5769
 
pt-slave-restart 2.2.1
 
5776
pt-slave-restart 2.2.2
5770
5777
 
5771
5778
=cut