← Back to branch summary

~percona-toolkit-dev/percona-toolkit/pt-fingerprint-broken-fingerprinting-of-specific-INSERT-REPLACE-queries-1289516

« back to all changes in this revision

Viewing changes to bin/pt-agent

Merge fix-pt-agent-lwp-bug-1226721.

Show diffs side-by-side

added added

removed removed

Lines of Context:
bin/pt-agent
5428
5428
      $logger->fatal("Missing required Perl modules");
5429
5429
   }
5430
5430
 
 
5431
   # Check that LWP is new enough
 
5432
   # https://bugs.launchpad.net/percona-toolkit/+bug/1226721
 
5433
   if ( $LWP::VERSION < '5.813' ) {
 
5434
      die "Perl module LWP v5.813 or newer is required; v$LWP::VERSION is installed.  Please upgrade LWP on this server.\n"
 
5435
   }
 
5436
 
5431
5437
   # ########################################################################
5432
5438
   # Nothing works without an API key.
5433
5439
   # ########################################################################
8341
8347
   $next_step->();
8342
8348
   exit 1 if missing_perl_module_deps();
8343
8349
 
 
8350
   # Check that LWP is new enough
 
8351
   # https://bugs.launchpad.net/percona-toolkit/+bug/1226721
 
8352
   if ( $LWP::VERSION < '5.813' ) {
 
8353
      die "LWP v5.813 or newer is required; v$LWP::VERSION is installed.  Please upgrade LWP on this server and try again.\n"
 
8354
   }
 
8355
 
8344
8356
   # Check for crontab
8345
8357
   $next_step->();
8346
8358
   my $crontab = `which crontab 2>/dev/null`;
9310
9322
 
9311
9323
=item * JSON Perl module
9312
9324
 
9313
 
=item * LWP Perl module
 
9325
=item * LWP (>= v5.813) Perl module
9314
9326
 
9315
9327
=item * IO::Socket::SSL Perl module
9316
9328