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

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

View File

@@ -45,7 +45,7 @@ use FindBin qw();
eval {
require Percona::Toolkit;
require HTTPMicro;
require HTTP::Micro;
};
# Return the version check file used to keep track of
@@ -335,7 +335,7 @@ sub pingback {
my $instances = $args{instances};
# 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
# a plaintext list of items/programs it wants the tool