diff options
author | Vladimír Čunát <vcunat@gmail.com> | 2015-07-30 16:03:44 +0200 |
---|---|---|
committer | Vladimír Čunát <vcunat@gmail.com> | 2015-07-30 16:03:44 +0200 |
commit | a3a155402a0b5345e42df9e5f760174c101472f8 (patch) | |
tree | 537f670bbddfd20104fa43abbb43c960a3babb32 /pkgs/development/perl-modules | |
parent | 862900e42e00dbc83215def6df1091f5129a8930 (diff) | |
parent | 8c7857d65ea686d74d5729d863a688d959c175ca (diff) | |
download | nixlib-a3a155402a0b5345e42df9e5f760174c101472f8.tar nixlib-a3a155402a0b5345e42df9e5f760174c101472f8.tar.gz nixlib-a3a155402a0b5345e42df9e5f760174c101472f8.tar.bz2 nixlib-a3a155402a0b5345e42df9e5f760174c101472f8.tar.lz nixlib-a3a155402a0b5345e42df9e5f760174c101472f8.tar.xz nixlib-a3a155402a0b5345e42df9e5f760174c101472f8.tar.zst nixlib-a3a155402a0b5345e42df9e5f760174c101472f8.zip |
Merge #8929: perl-LWP: enable tests + a few bumps
Diffstat (limited to 'pkgs/development/perl-modules')
-rw-r--r-- | pkgs/development/perl-modules/lwp-test-with-localhost.patch | 75 |
1 files changed, 75 insertions, 0 deletions
diff --git a/pkgs/development/perl-modules/lwp-test-with-localhost.patch b/pkgs/development/perl-modules/lwp-test-with-localhost.patch new file mode 100644 index 000000000000..25b96796d234 --- /dev/null +++ b/pkgs/development/perl-modules/lwp-test-with-localhost.patch @@ -0,0 +1,75 @@ +From 2d7a479b39bb20a0d61f067ba6c2df92117fcb8c Mon Sep 17 00:00:00 2001 +From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com> +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ř <ppisar@redhat.com> +--- + 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:", $d->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:", $d->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:", $d->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 + |