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

  • 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-heartbeat
37
37
# ###########################################################################
38
38
{
39
39
package Percona::Toolkit;
40
 
our $VERSION = '2.2.1';
 
40
our $VERSION = '2.2.2';
41
41
 
42
42
1;
43
43
}
105
105
   my $dp      = $self->{DSNParser};
106
106
   my $methods = $self->_resolve_recursion_methods($args{dsn});
107
107
 
 
108
   return $slaves unless @$methods;
 
109
   
108
110
   if ( grep { m/processlist|hosts/i } @$methods ) {
109
111
      my @required_args = qw(dbh dsn);
110
112
      foreach my $arg ( @required_args ) {
3047
3049
use English qw(-no_match_vars);
3048
3050
use constant PTDEBUG => $ENV{PTDEBUG} || 0;
3049
3051
 
 
3052
use Time::HiRes qw(sleep);
 
3053
 
3050
3054
sub new {
3051
3055
   my ( $class, %args ) = @_;
3052
3056
   my $self = {
5955
5959
cause the tool to compute the lag incorrectly.  Specifying this option is
5956
5960
a good idea because it ensures that the tool works correctly regardless of
5957
5961
time zones, but it also makes the tool backwards-incompatible with
5958
 
pt-heartbeat 2.2.1 and older (unless the older version of pt-heartbeat
 
5962
pt-heartbeat 2.2.2 and older (unless the older version of pt-heartbeat
5959
5963
is running on a system that uses UTC).
5960
5964
 
5961
5965
=item --version
6137
6141
 
6138
6142
=head1 VERSION
6139
6143
 
6140
 
pt-heartbeat 2.2.1
 
6144
pt-heartbeat 2.2.2
6141
6145
 
6142
6146
=cut