diff options
author | Chris Wilson <chris+github@qwirx.com> | 2015-12-24 00:20:39 +0000 |
---|---|---|
committer | Chris Wilson <chris+github@qwirx.com> | 2015-12-24 00:20:39 +0000 |
commit | 37ebab492d14d38403ba866cc9ab25a2204f92fd (patch) | |
tree | ac4250f62a4ca0c4dc3ce730e08a3626e7a720da /test/httpserver | |
parent | 0a9a7d262fcd9e796c3b99e66636c093ed46fd33 (diff) |
Use 127.0.0.1 instead of localhost in test/httpserver, to force use of IPv4.
Perl on Windows tends to use IPv6 for localhost if possible, but the server binds
to IPv4, breaking the test.
Diffstat (limited to 'test/httpserver')
-rwxr-xr-x | test/httpserver/testfiles/testrequests.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/test/httpserver/testfiles/testrequests.pl b/test/httpserver/testfiles/testrequests.pl index 85380ee0..4dd3549f 100755 --- a/test/httpserver/testfiles/testrequests.pl +++ b/test/httpserver/testfiles/testrequests.pl @@ -2,7 +2,9 @@ use strict; use LWP::UserAgent; -my $url_base = 'http://localhost:1080'; +# Use 127.0.0.1 instead of localhost to force use of IPv4, as that is what the server +# binds to. Windows tends to use IPv6 instead if possible, breaking the test. +my $url_base = 'http://127.0.0.1:1080'; my $ua = LWP::UserAgent->new(env_proxy => 0, keep_alive => 1, timeout => 30); |