pyrox.dev
perl-LWP: 6.13 -> 6.15
Also remove no longer needed patch.
-75
pkgs/development/perl-modules/lwp-test-with-localhost.patch
-75
pkgs/development/perl-modules/lwp-test-with-localhost.patch
···
1
-
From 2d7a479b39bb20a0d61f067ba6c2df92117fcb8c Mon Sep 17 00:00:00 2001
2
-
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
3
-
Date: Wed, 23 Apr 2014 12:45:38 +0200
4
-
Subject: [PATCH] Connect to localhost instead of hostname
5
-
MIME-Version: 1.0
6
-
Content-Type: text/plain; charset=UTF-8
7
-
Content-Transfer-Encoding: 8bit
8
-
9
-
The hostname does not have to be resolvable nor reachable. It's just
10
-
a machine name.
11
-
12
-
Signed-off-by: Petr Písař <ppisar@redhat.com>
13
-
---
14
-
t/local/http.t | 2 +-
15
-
t/robot/ua-get.t | 2 +-
16
-
t/robot/ua.t | 2 +-
17
-
talk-to-ourself | 3 +--
18
-
4 files changed, 4 insertions(+), 5 deletions(-)
19
-
20
-
diff --git a/t/local/http.t b/t/local/http.t
21
-
index 779cc21..534b4c8 100644
22
-
--- a/t/local/http.t
23
-
+++ b/t/local/http.t
24
-
@@ -20,7 +20,7 @@ if ($D eq 'daemon') {
25
-
26
-
require HTTP::Daemon;
27
-
28
-
- my $d = HTTP::Daemon->new(Timeout => 10);
29
-
+ my $d = HTTP::Daemon->new(Timeout => 10, LocalAddr => 'localhost');
30
-
31
-
print "Please to meet you at: <URL:", $d->url, ">\n";
32
-
open(STDOUT, $^O eq 'VMS'? ">nl: " : ">/dev/null");
33
-
diff --git a/t/robot/ua-get.t b/t/robot/ua-get.t
34
-
index 5754c4b..bf24589 100644
35
-
--- a/t/robot/ua-get.t
36
-
+++ b/t/robot/ua-get.t
37
-
@@ -19,7 +19,7 @@ if ($D eq 'daemon') {
38
-
39
-
require HTTP::Daemon;
40
-
41
-
- my $d = new HTTP::Daemon Timeout => 10;
42
-
+ my $d = new HTTP::Daemon Timeout => 10, LocalAddr => 'localhost';
43
-
44
-
print "Please to meet you at: <URL:", $d->url, ">\n";
45
-
open(STDOUT, $^O eq 'MSWin32' ? ">nul" : $^O eq 'VMS' ? ">NL:" : ">/dev/null");
46
-
diff --git a/t/robot/ua.t b/t/robot/ua.t
47
-
index 21ad5c8..11fafa8 100644
48
-
--- a/t/robot/ua.t
49
-
+++ b/t/robot/ua.t
50
-
@@ -19,7 +19,7 @@ if ($D eq 'daemon') {
51
-
52
-
require HTTP::Daemon;
53
-
54
-
- my $d = new HTTP::Daemon Timeout => 10;
55
-
+ my $d = new HTTP::Daemon Timeout => 10, LocalAddr => 'localhost';
56
-
57
-
print "Please to meet you at: <URL:", $d->url, ">\n";
58
-
open(STDOUT, $^O eq 'MSWin32' ? ">nul" : $^O eq 'VMS' ? ">NL:" : ">/dev/null");
59
-
diff --git a/talk-to-ourself b/talk-to-ourself
60
-
index 6c0257a..b4acda2 100644
61
-
--- a/talk-to-ourself
62
-
+++ b/talk-to-ourself
63
-
@@ -9,8 +9,7 @@ require IO::Socket;
64
-
65
-
if (@ARGV >= 2 && $ARGV[0] eq "--port") {
66
-
my $port = $ARGV[1];
67
-
- require Sys::Hostname;
68
-
- my $host = Sys::Hostname::hostname();
69
-
+ my $host = 'localhost';
70
-
if (my $socket = IO::Socket::INET->new(PeerAddr => "$host:$port", Timeout => 5)) {
71
-
require IO::Select;
72
-
if (IO::Select->new($socket)->can_read(1)) {
73
-
--
74
-
1.9.0
75
-
+3
-4
pkgs/top-level/perl-packages.nix
+3
-4
pkgs/top-level/perl-packages.nix
···
6900
6900
};
6901
6901
};
6902
6902
6903
-
LWP = buildPerlPackage rec {
6904
-
name = "libwww-perl-6.13";
6903
+
"LWP" = buildPerlPackage rec {
6904
+
name = "libwww-perl-6.15";
6905
6905
src = fetchurl {
6906
6906
url = "mirror://cpan/authors/id/E/ET/ETHER/${name}.tar.gz";
6907
-
sha256 = "1cpqjl59viw50bnbdyn8xzrwzg7g54b2rszw0fifacqrppp17gaz";
6907
+
sha256 = "6f349d45c21b1ec0501c4437dfcb70570940e6c3d5bff783bd91d4cddead8322";
6908
6908
};
6909
-
patches = [ ../development/perl-modules/lwp-test-with-localhost.patch ];
6910
6909
propagatedBuildInputs = [ EncodeLocale FileListing HTMLParser HTTPCookies HTTPDaemon HTTPDate HTTPMessage HTTPNegotiate LWPMediaTypes NetHTTP URI WWWRobotRules ];
6911
6910
meta = with stdenv.lib; {
6912
6911
description = "The World-Wide Web library for Perl";