percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-09 18:30:16 +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-kill
View File

@@ -28,7 +28,7 @@ BEGIN {
Retry
Cxn
VersionCheck
HTTP::Micro
HTTPMicro
Pingback
));
}
@@ -5134,9 +5134,9 @@ sub _d {
# ###########################################################################
{
package HTTP::Micro;
package HTTPMicro;
BEGIN {
$HTTP::Micro::VERSION = '0.001';
$HTTPMicro::VERSION = '0.001';
}
use strict;
use warnings;
@@ -5209,7 +5209,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);
@@ -5275,7 +5275,7 @@ sub _split_url {
}
package
HTTP::Micro::Handle; # hide from PAUSE/indexers
HTTPMicro::Handle; # hide from PAUSE/indexers
use strict;
use warnings;
@@ -5599,7 +5599,7 @@ sub Dumper {
local $EVAL_ERROR;
eval {
require HTTP::Micro;
require HTTPMicro;
require VersionCheck;
};
@@ -5613,7 +5613,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);