File ipv6-hostnames-01.patch of Package perl-libwww-perl.openSUSE_Leap_42.1_Update

Overview Repositories Revisions Requests Users Attributes Meta

File ipv6-hostnames-01.patch of Package perl-libwww-perl.openSUSE_Leap_42.1_Update

From b29215d233094cb13c1816758bd924913ea0dfc4 Mon Sep 17 00:00:00 2001
From: Jason A Fesler <jfesler@badamount-lm.corp.yahoo.com>
Date: Tue, 22 Jul 2014 14:37:28 -0700
Subject: [PATCH 1/2] When the hostname is an IPv6 literal, encapsulate it with
 [brackets] before calling Net::HTTP  [rt.cpan.org #29468]

---
 Changes                  | 5 +++++
 lib/LWP/Protocol/http.pm | 6 ++++++
 2 files changed, 11 insertions(+)

_______________________________________________________________________________
 2014-07-01  Release 6.07
 
diff --git a/lib/LWP/Protocol/http.pm b/lib/LWP/Protocol/http.pm
index a75e147..7ebdffc 100644
--- a/lib/LWP/Protocol/http.pm
+++ b/lib/LWP/Protocol/http.pm
@@ -16,6 +16,13 @@ sub _new_socket
 sub _new_socket
 {
     my($self, $host, $port, $timeout) = @_;
+
+    # IPv6 literal IP address should be [bracketed] to remove
+    # ambiguity between ip address and port number
+    if ($host =~ /:/) {
+      $host = "[$host]";
+    }
+
     my $conn_cache = $self->{ua}{conn_cache};
     if ($conn_cache) {
 	if (my $sock = $conn_cache->withdraw($self->socket_type, "$host:$port")) {

Places

File ipv6-hostnames-01.patch of Package perl-libwww-perl.openSUSE_Leap_42.1_Update

Places