percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-13 22:50:25 +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-archiver
View File

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

14
bin/pt-config-diff
View File

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

14
bin/pt-deadlock-logger
View File

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

14
bin/pt-diskstats
View File

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

14
bin/pt-duplicate-key-checker
View File

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

14
bin/pt-find
View File

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

14
bin/pt-fk-error-logger
View File

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

14
bin/pt-heartbeat
View File

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

14
bin/pt-index-usage
View File

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

14
bin/pt-kill
View File

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

14
bin/pt-online-schema-change
View File

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

14
bin/pt-query-advisor
View File

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

14
bin/pt-query-digest
View File

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

14
bin/pt-slave-delay
View File

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

14
bin/pt-slave-restart
View File

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

14
bin/pt-table-checksum
View File

@@ -15,7 +15,7 @@ BEGIN {
$INC{$_} = __FILE__ for map { (my $pkg = "$_.pm") =~ s!::!/!g; $pkg } (qw( $INC{$_} = __FILE__ for map { (my $pkg = "$_.pm") =~ s!::!/!g; $pkg } (qw(
Percona::Toolkit Percona::Toolkit
VersionCheck VersionCheck
HTTP::Micro HTTPMicro
Pingback Pingback
DSNParser DSNParser
OptionParser OptionParser
@@ -338,9 +338,9 @@ sub _d {
# ########################################################################### # ###########################################################################
{ {
package HTTP::Micro; package HTTPMicro;
BEGIN { BEGIN {
$HTTP::Micro::VERSION = '0.001'; $HTTPMicro::VERSION = '0.001';
} }
use strict; use strict;
use warnings; use warnings;
@@ -413,7 +413,7 @@ sub _request {
headers => {}, headers => {},
}; };
my $handle = HTTP::Micro::Handle->new(timeout => $self->{timeout}); my $handle = HTTPMicro::Handle->new(timeout => $self->{timeout});
$handle->connect($scheme, $host, $port); $handle->connect($scheme, $host, $port);
@@ -479,7 +479,7 @@ sub _split_url {
} }
package package
HTTP::Micro::Handle; # hide from PAUSE/indexers HTTPMicro::Handle; # hide from PAUSE/indexers
use strict; use strict;
use warnings; use warnings;
@@ -803,7 +803,7 @@ sub Dumper {
local $EVAL_ERROR; local $EVAL_ERROR;
eval { eval {
require HTTP::Micro; require HTTPMicro;
require VersionCheck; require VersionCheck;
}; };
@@ -817,7 +817,7 @@ sub pingback {
my ($dbh, $ua, $vc) = @args{qw(dbh ua VersionCheck)}; my ($dbh, $ua, $vc) = @args{qw(dbh ua VersionCheck)};
$ua ||= HTTP::Micro->new( timeout => 5 ); $ua ||= HTTPMicro->new( timeout => 5 );
$vc ||= VersionCheck->new(); $vc ||= VersionCheck->new();
my $response = $ua->request('GET', $url); my $response = $ua->request('GET', $url);

14
bin/pt-table-sync
View File

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

14
bin/pt-upgrade
View File

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

14
bin/pt-variable-advisor
View File

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

8
lib/HTTPMicro.pm
View File

@@ -22,9 +22,9 @@
# A stripped down version of HTTP::Tiny; but not a correct HTTP/1.1 # A stripped down version of HTTP::Tiny; but not a correct HTTP/1.1
# implementation # implementation
package HTTP::Micro; package HTTPMicro;
BEGIN { BEGIN {
$HTTP::Micro::VERSION = '0.001'; $HTTPMicro::VERSION = '0.001';
} }
use strict; use strict;
use warnings; use warnings;
@@ -98,7 +98,7 @@ sub _request {
headers => {}, headers => {},
}; };
my $handle = HTTP::Micro::Handle->new(timeout => $self->{timeout}); my $handle = HTTPMicro::Handle->new(timeout => $self->{timeout});
$handle->connect($scheme, $host, $port); $handle->connect($scheme, $host, $port);
@@ -165,7 +165,7 @@ sub _split_url {
} }
package package
HTTP::Micro::Handle; # hide from PAUSE/indexers HTTPMicro::Handle; # hide from PAUSE/indexers
use strict; use strict;
use warnings; use warnings;

4
lib/Pingback.pm
View File

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

11
t/lib/HTTPMicro.t
View File

@@ -11,17 +11,22 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use HTTP::Tiny;
use HTTPMicro; use HTTPMicro;
local $EVAL_ERROR;
eval { require HTTP::Tiny };
if ( $EVAL_ERROR ) {
skip_all("HTTP::Tiny is not installed, not testing compat");
}
my $test_url = "http://www.google.com"; my $test_url = "http://www.google.com";
my $tiny = HTTP::Tiny->new(max_redirect => 0)->request('GET', $test_url); my $tiny = HTTP::Tiny->new(max_redirect => 0)->request('GET', $test_url);
my $micro = HTTP::Micro->new->request('GET', $test_url); my $micro = HTTPMicro->new->request('GET', $test_url);
is_deeply( is_deeply(
$micro->{content}, $micro->{content},
$tiny->{content}, $tiny->{content},
"HTTP::Micro behaves like HTTP::Tiny (with max_redirect) for $test_url" "HTTPMicro behaves like HTTP::Tiny (with max_redirect) for $test_url"
); );
done_testing; done_testing;