From 2d7a479b39bb20a0d61f067ba6c2df92117fcb8c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= Date: Wed, 23 Apr 2014 12:45:38 +0200 Subject: [PATCH] Connect to localhost instead of hostname MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit The hostname does not have to be resolvable nor reachable. It's just a machine name. Signed-off-by: Petr Písař --- t/local/http.t | 2 +- t/robot/ua-get.t | 2 +- t/robot/ua.t | 2 +- talk-to-ourself | 3 +-- 4 files changed, 4 insertions(+), 5 deletions(-) diff --git a/t/local/http.t b/t/local/http.t index 779cc21..534b4c8 100644 --- a/t/local/http.t +++ b/t/local/http.t @@ -20,7 +20,7 @@ if ($D eq 'daemon') { require HTTP::Daemon; - my $d = HTTP::Daemon->new(Timeout => 10); + my $d = HTTP::Daemon->new(Timeout => 10, LocalAddr => 'localhost'); print "Please to meet you at: url, ">\n"; open(STDOUT, $^O eq 'VMS'? ">nl: " : ">/dev/null"); diff --git a/t/robot/ua-get.t b/t/robot/ua-get.t index 5754c4b..bf24589 100644 --- a/t/robot/ua-get.t +++ b/t/robot/ua-get.t @@ -19,7 +19,7 @@ if ($D eq 'daemon') { require HTTP::Daemon; - my $d = new HTTP::Daemon Timeout => 10; + my $d = new HTTP::Daemon Timeout => 10, LocalAddr => 'localhost'; print "Please to meet you at: url, ">\n"; open(STDOUT, $^O eq 'MSWin32' ? ">nul" : $^O eq 'VMS' ? ">NL:" : ">/dev/null"); diff --git a/t/robot/ua.t b/t/robot/ua.t index 21ad5c8..11fafa8 100644 --- a/t/robot/ua.t +++ b/t/robot/ua.t @@ -19,7 +19,7 @@ if ($D eq 'daemon') { require HTTP::Daemon; - my $d = new HTTP::Daemon Timeout => 10; + my $d = new HTTP::Daemon Timeout => 10, LocalAddr => 'localhost'; print "Please to meet you at: url, ">\n"; open(STDOUT, $^O eq 'MSWin32' ? ">nul" : $^O eq 'VMS' ? ">NL:" : ">/dev/null"); diff --git a/talk-to-ourself b/talk-to-ourself index 6c0257a..b4acda2 100644 --- a/talk-to-ourself +++ b/talk-to-ourself @@ -9,8 +9,7 @@ require IO::Socket; if (@ARGV >= 2 && $ARGV[0] eq "--port") { my $port = $ARGV[1]; - require Sys::Hostname; - my $host = Sys::Hostname::hostname(); + my $host = 'localhost'; if (my $socket = IO::Socket::INET->new(PeerAddr => "$host:$port", Timeout => 5)) { require IO::Select; if (IO::Select->new($socket)->can_read(1)) { -- 1.9.0