From 2a9798eb47c81dace8dd20a8dc26c977362613db Mon Sep 17 00:00:00 2001 From: Daniel Nichter Date: Sat, 3 Aug 2013 12:43:19 -0700 Subject: [PATCH] Fix version check in pqd by calling HTTP::Micro, not old HTTPMicro. --- bin/pt-query-digest | 4 ++-- lib/VersionCheck.pm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/bin/pt-query-digest b/bin/pt-query-digest index 508be454..0191b365 100755 --- a/bin/pt-query-digest +++ b/bin/pt-query-digest @@ -12232,7 +12232,7 @@ use FindBin qw(); eval { require Percona::Toolkit; - require HTTPMicro; + require HTTP::Micro; }; { @@ -12463,7 +12463,7 @@ sub pingback { my $url = $args{url}; 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); PTDEBUG && _d('Server response:', Dumper($response)); diff --git a/lib/VersionCheck.pm b/lib/VersionCheck.pm index ed148c62..c47650df 100644 --- a/lib/VersionCheck.pm +++ b/lib/VersionCheck.pm @@ -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