percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-23 21:05:00 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix several test failures by doing s/HTTP::Micro/HTTPMicro/

Browse Source
This commit is contained in:
Brian Fraser fraserb@gmail.com
2012-08-21 14:37:10 -03:00
parent 8db5b77a4e
commit 615c5ad508
22 changed files with 147 additions and 142 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
bin/pt-variable-advisor
View File

@@ -25,7 +25,7 @@ BEGIN {
AdvisorRules
VariableAdvisorRules
VersionCheck
HTTP::Micro
HTTPMicro
Pingback
));
}
@@ -3699,9 +3699,9 @@ sub _d {
# ###########################################################################
{
package HTTP::Micro;
package HTTPMicro;
BEGIN {
$HTTP::Micro::VERSION = '0.001';
$HTTPMicro::VERSION = '0.001';
}
use strict;
use warnings;
@@ -3774,7 +3774,7 @@ sub _request {
headers => {},
};
my $handle = HTTP::Micro::Handle->new(timeout => $self->{timeout});
my $handle = HTTPMicro::Handle->new(timeout => $self->{timeout});
$handle->connect($scheme, $host, $port);
@@ -3840,7 +3840,7 @@ sub _split_url {
}
package
HTTP::Micro::Handle; # hide from PAUSE/indexers
HTTPMicro::Handle; # hide from PAUSE/indexers
use strict;
use warnings;
@@ -4164,7 +4164,7 @@ sub Dumper {
local $EVAL_ERROR;
eval {
require HTTP::Micro;
require HTTPMicro;
require VersionCheck;
};
@@ -4178,7 +4178,7 @@ sub pingback {
my ($dbh, $ua, $vc) = @args{qw(dbh ua VersionCheck)};
$ua ||= HTTP::Micro->new( timeout => 5 );
$ua ||= HTTPMicro->new( timeout => 5 );
$vc ||= VersionCheck->new();
my $response = $ua->request('GET', $url);