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

  • 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-archiver
42
42
# ###########################################################################
43
43
{
44
44
package Percona::Toolkit;
45
 
our $VERSION = '2.2.1';
 
45
our $VERSION = '2.2.2';
46
46
 
47
47
1;
48
48
}
60
60
# ###########################################################################
61
61
{
62
62
package Lmo::Utils;
 
63
 
63
64
use strict;
64
65
use warnings qw( FATAL all );
65
66
require Exporter;
67
68
 
68
69
BEGIN {
69
70
   @ISA = qw(Exporter);
70
 
   @EXPORT = @EXPORT_OK = qw(_install_coderef _unimport_coderefs _glob_for _stash_for);
 
71
   @EXPORT = @EXPORT_OK = qw(
 
72
      _install_coderef
 
73
      _unimport_coderefs
 
74
      _glob_for
 
75
      _stash_for
 
76
   );
71
77
}
72
78
 
73
79
{
251
257
   return Lmo::Meta->new(class => $class);
252
258
}
253
259
 
254
 
 
255
260
1;
256
261
}
257
262
# ###########################################################################
3462
3467
   my $dp      = $self->{DSNParser};
3463
3468
   my $methods = $self->_resolve_recursion_methods($args{dsn});
3464
3469
 
 
3470
   return $slaves unless @$methods;
 
3471
   
3465
3472
   if ( grep { m/processlist|hosts/i } @$methods ) {
3466
3473
      my @required_args = qw(dbh dsn);
3467
3474
      foreach my $arg ( @required_args ) {
7847
7854
 
7848
7855
=head1 VERSION
7849
7856
 
7850
 
pt-archiver 2.2.1
 
7857
pt-archiver 2.2.2
7851
7858
 
7852
7859
=cut