← Back to branch summary

~percona-toolkit-dev/percona-toolkit/pt-duplicate-key-checker-docs-dont-explain-how-Size-Duplicate-Indexes-is-calculated-1415646

« back to all changes in this revision

Viewing changes to bin/pt-heartbeat

  • Committer: Frank Cizmich
  • Date: 2015-01-30 19:01:50 UTC
  • mfrom: (611.3.17 release-2.2.13)
  • Revision ID: frank.cizmich@percona.com-20150130190150-98da6g2auye11fle
merged release-2.2.13

Show diffs side-by-side

added added

removed removed

Lines of Context:
bin/pt-heartbeat
38
38
{
39
39
package Percona::Toolkit;
40
40
 
41
 
our $VERSION = '2.2.12';
 
41
our $VERSION = '2.2.13';
42
42
 
43
43
use strict;
44
44
use warnings FATAL => 'all';
3744
3744
           ref($self->{fh}) eq 'IO::Socket::SSL'
3745
3745
               or die(qq/SSL connection failed for $host\n/);
3746
3746
           if ( $self->{fh}->can("verify_hostname") ) {
3747
 
               $self->{fh}->verify_hostname( $host, $ssl_verify_args );
 
3747
               $self->{fh}->verify_hostname( $host, $ssl_verify_args )
 
3748
                  or die(qq/SSL certificate not valid for $host\n/);
3748
3749
           }
3749
3750
           else {
3750
3751
            my $fh = $self->{fh};
4266
4267
      PTDEBUG && _d(scalar @$instances_to_check, 'instances to check');
4267
4268
      return unless @$instances_to_check;
4268
4269
 
4269
 
      my $protocol = 'https';  # optimistic, but...
 
4270
      my $protocol = 'https';  
4270
4271
      eval { require IO::Socket::SSL; };
4271
4272
      if ( $EVAL_ERROR ) {
4272
4273
         PTDEBUG && _d($EVAL_ERROR);
4273
 
         $protocol = 'http';
 
4274
         PTDEBUG && _d("SSL not available, won't run version_check");
 
4275
         return;
4274
4276
      }
4275
4277
      PTDEBUG && _d('Using', $protocol);
4276
4278
 
4707
4709
      return;
4708
4710
   }
4709
4711
 
 
4712
   if ($item->{item} eq 'MySQL' && $item->{type} eq 'mysql_variable') {
 
4713
      $item->{vars} = ['version_comment', 'version'];
 
4714
   }
 
4715
 
 
4716
 
4710
4717
   my @versions;
4711
4718
   my %version_for;
4712
4719
   foreach my $instance ( @$instances ) {
6197
6204
 
6198
6205
=head1 COPYRIGHT, LICENSE, AND WARRANTY
6199
6206
 
6200
 
This program is copyright 2007-2014 Percona LLC and/or its affiliates,
 
6207
This program is copyright 2007-2015 Percona LLC and/or its affiliates,
6201
6208
2006 Proven Scaling LLC and Six Apart Ltd.
6202
6209
 
6203
6210
Feedback and improvements are welcome.
6218
6225
 
6219
6226
=head1 VERSION
6220
6227
 
6221
 
pt-heartbeat 2.2.12
 
6228
pt-heartbeat 2.2.13
6222
6229
 
6223
6230
=cut