percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-29 09:32:47 +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

8
lib/HTTPMicro.pm
View File

@@ -22,9 +22,9 @@
# A stripped down version of HTTP::Tiny; but not a correct HTTP/1.1
# implementation
package HTTP::Micro;
package HTTPMicro;
BEGIN {
$HTTP::Micro::VERSION = '0.001';
$HTTPMicro::VERSION = '0.001';
}
use strict;
use warnings;
@@ -98,7 +98,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);
@@ -165,7 +165,7 @@ sub _split_url {
}
package
HTTP::Micro::Handle; # hide from PAUSE/indexers
HTTPMicro::Handle; # hide from PAUSE/indexers
use strict;
use warnings;

4
lib/Pingback.pm
View File

@@ -41,7 +41,7 @@ sub Dumper {
local $EVAL_ERROR;
eval {
require HTTP::Micro;
require HTTPMicro;
require VersionCheck;
};
@@ -56,7 +56,7 @@ sub pingback {
# Optional args
my ($dbh, $ua, $vc) = @args{qw(dbh ua VersionCheck)};
$ua ||= HTTP::Micro->new( timeout => 5 );
$ua ||= HTTPMicro->new( timeout => 5 );
$vc ||= VersionCheck->new();
# GET http://upgrade.percona.com, the server will return