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

« back to all changes in this revision

Viewing changes to bin/pt-slave-find

  • 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:
1102
1102
# ###########################################################################
1103
1103
{
1104
1104
package Lmo::Utils;
 
1105
 
1105
1106
use strict;
1106
1107
use warnings qw( FATAL all );
1107
1108
require Exporter;
1109
1110
 
1110
1111
BEGIN {
1111
1112
   @ISA = qw(Exporter);
1112
 
   @EXPORT = @EXPORT_OK = qw(_install_coderef _unimport_coderefs _glob_for _stash_for);
 
1113
   @EXPORT = @EXPORT_OK = qw(
 
1114
      _install_coderef
 
1115
      _unimport_coderefs
 
1116
      _glob_for
 
1117
      _stash_for
 
1118
   );
1113
1119
}
1114
1120
 
1115
1121
{
1293
1299
   return Lmo::Meta->new(class => $class);
1294
1300
}
1295
1301
 
1296
 
 
1297
1302
1;
1298
1303
}
1299
1304
# ###########################################################################
2219
2224
   my $dp      = $self->{DSNParser};
2220
2225
   my $methods = $self->_resolve_recursion_methods($args{dsn});
2221
2226
 
 
2227
   return $slaves unless @$methods;
 
2228
   
2222
2229
   if ( grep { m/processlist|hosts/i } @$methods ) {
2223
2230
      my @required_args = qw(dbh dsn);
2224
2231
      foreach my $arg ( @required_args ) {
4317
4324
 
4318
4325
=head1 VERSION
4319
4326
 
4320
 
pt-slave-find 2.2.1
 
4327
pt-slave-find 2.2.2
4321
4328
 
4322
4329
=cut