percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-10-18 08:24:06 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix version check in pqd by calling HTTP::Micro, not old HTTPMicro.

Browse Source
This commit is contained in:
Daniel Nichter
2013-08-03 12:43:19 -07:00
parent 50ac38ad58
commit 2a9798eb47
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
bin/pt-query-digest
View File

@@ -12232,7 +12232,7 @@ use FindBin qw();
eval { eval {
require Percona::Toolkit; require Percona::Toolkit;
require HTTPMicro; require HTTP::Micro;
}; };
{ {
@@ -12463,7 +12463,7 @@ sub pingback {
my $url = $args{url}; my $url = $args{url};
my $instances = $args{instances}; my $instances = $args{instances};
my $ua = $args{ua} || HTTPMicro->new( timeout => 3 ); my $ua = $args{ua} || HTTP::Micro->new( timeout => 3 );
my $response = $ua->request('GET', $url); my $response = $ua->request('GET', $url);
PTDEBUG && _d('Server response:', Dumper($response)); PTDEBUG && _d('Server response:', Dumper($response));

4
lib/VersionCheck.pm
View File

@@ -45,7 +45,7 @@ use FindBin qw();
eval { eval {
require Percona::Toolkit; require Percona::Toolkit;
require HTTPMicro; require HTTP::Micro;
}; };
# Return the version check file used to keep track of # Return the version check file used to keep track of
@@ -335,7 +335,7 @@ sub pingback {
my $instances = $args{instances}; my $instances = $args{instances};
# Optional args # Optional args
my $ua = $args{ua} || HTTPMicro->new( timeout => 3 ); my $ua = $args{ua} || HTTP::Micro->new( timeout => 3 );
# GET https://upgrade.percona.com, the server will return # GET https://upgrade.percona.com, the server will return
# a plaintext list of items/programs it wants the tool # a plaintext list of items/programs it wants the tool