Perl HTTP Tiny + Socket Socks Wrapper Timeout не работает

Я использую HTTP::Tiny + IO::Socket ::Socks::Wrapper для отправки HTTP-запроса через SOCKS-прокси. Все работает нормально, кроме опции тайм-аута. При использовании только IO::Socket::Socks без HTTP::Tiny тайм-аут работает.

Пример без HTTP::Tiny и несуществующего прокси для запуска тайм-аута:

my $t = time;
my $sock = IO::Socket::Socks->new(
    ProxyAddr => '4.5.6.7', 
    ProxyPort => 1080, 
    ConnectAddr => 'www.google.com', 
    ConnectPort => 80, 
    Timeout => 3
) or print "connection failed or timed out\n";

print "time: " . (time - $t) . "\n";

Выход:

connection failed or timed out
time: 3.00517201423645

Пример с HTTP::Tiny:

my $t = time;
my $http = wrap_connection(
    HTTP::Tiny->new(timeout => 3), {
        ProxyAddr => '4.5.6.7', 
        ProxyPort => 1080, 
        Timeout => 3
    }
);
my $r = $http->get("http://www.google.com");
print "connection failed or timed out\n" unless $r->{success};
print "time: " . (time - $t) . "\n";

Выход:

connection failed or timed out
time: 21.0282030105591

Почему второй пример не истекает через 3 секунды?


person knv17    schedule 23.11.2013    source источник


Ответы (1)


Это была ошибка, которая сейчас, кажется, исправлена. Новая версия скоро будет загружена на CPAN. И прямо сейчас вы можете получить исправленную версию из репозитория github.

person Oleg G    schedule 11.12.2013