Imported Upstream version 6.08

diff --git a/Changes b/Changes
index c8d1d1ecc92bb80e57666a9580b87a56efd5d1cc..05228a3034532037faa03894a61a801bc029437b 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,7 +1,23 @@
+_______________________________________________________________________________
+2014-07-24  Release 6.08
+
+Mike Schilli (1):
+      Requiring Net::HTTP 6.07 to fix IPv6 support 
+        (RT#75618 and https://github.com/libwww-perl/net-http/pull/10)
+
+Jason A Fesler (2):
+      When the hostname is an IPv6 literal, encapsulate it with [brackets] 
+        before calling Net::HTTP  [rt.cpan.org #29468]
+      Extra steps to make sure that the host address that has a ":" contains 
+        only characters appropriate for an IPv6 address.
+
+John Wittkoski (1):
+      Fix doc typo for cookie_jar
+
 _______________________________________________________________________________
 2014-07-01  Release 6.07
 
-mschilli (5):
+Mike Schilli (5):
       Removed Data::Dump references in test suite and dependency in Makefile.PL
       Added MANIFEST.SKIP to enable "make manifest".
       release script now checks for MacOS to avoid incompatible tarballs

diff --git a/META.json b/META.json
index 64bc6d923d661484e29270f4d71241daeb081576..c0debc9749a795cbe02212f18e5dd16485b44821 100644 (file)
--- a/META.json
+++ b/META.json
@@ -55,7 +55,7 @@
             "LWP::MediaTypes" : "6",
             "MIME::Base64" : "2.1",
             "Net::FTP" : "2.58",
-            "Net::HTTP" : "6.04",
+            "Net::HTTP" : "6.07",
             "URI" : "1.10",
             "URI::Escape" : "0",
             "WWW::RobotRules" : "6",
@@ -70,5 +70,5 @@
       },
       "x_MailingList" : "mailto:libwww@perl.org"
    },
-   "version" : "6.07"
+   "version" : "6.08"
 }

diff --git a/META.yml b/META.yml
index 608745c636e6ce42ab311d04e5410d23b290ea2e..495383168ea0268b57af804eec01836dd6f542b0 100644 (file)
--- a/META.yml
+++ b/META.yml
@@ -40,7 +40,7 @@ requires:
   LWP::MediaTypes: '6'
   MIME::Base64: '2.1'
   Net::FTP: '2.58'
-  Net::HTTP: '6.04'
+  Net::HTTP: '6.07'
   URI: '1.10'
   URI::Escape: '0'
   WWW::RobotRules: '6'
@@ -48,4 +48,4 @@ requires:
 resources:
   MailingList: mailto:libwww@perl.org
   repository: https://github.com/libwww-perl/libwww-perl
-version: '6.07'
+version: '6.08'

diff --git a/Makefile.PL b/Makefile.PL
index e02022e804073b4219c2d26035f2613bd798c6b6..ab95edd3a30a2f055842592c9d4aae021f358e53 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -61,7 +61,7 @@ WriteMakefile(
         'LWP::MediaTypes' => 6,
         'MIME::Base64' => "2.1",
         'Net::FTP' => "2.58",
-        'Net::HTTP' => "6.04",
+        'Net::HTTP' => "6.07",
         'URI' => "1.10",
         'URI::Escape' => 0,
         'WWW::RobotRules' => 6,

diff --git a/lib/LWP.pm b/lib/LWP.pm
index f01ff1507aef335aac76d590ecaa82de80b44b43..14c1f0249265525354d1ab1d4921ff84b80af8b3 100644 (file)
--- a/lib/LWP.pm
+++ b/lib/LWP.pm
@@ -1,6 +1,6 @@
 package LWP;
 
-$VERSION = "6.07";
+$VERSION = "6.08";
 sub Version { $VERSION; }
 
 require 5.008;

diff --git a/lib/LWP/Protocol/http.pm b/lib/LWP/Protocol/http.pm
index a75e147650ab7e902717102f1e4122159efa5505..7a739d347baf2f9f0ade086954651010eded72d9 100644 (file)
--- a/lib/LWP/Protocol/http.pm
+++ b/lib/LWP/Protocol/http.pm
@@ -17,6 +17,14 @@ sub _new_socket
 {
     my($self, $host, $port, $timeout) = @_;
 
+    # IPv6 literal IP address should be [bracketed] to remove
+    # ambiguity between ip address and port number.
+    # Extra cautious to ensure that $host is _just_ an IPv6 address
+    # (at least as best as we can tell).
+    if ( ($host =~ /:/) && ($host =~ /^[0-9a-f:.]+$/i) ) {
+      $host = "[$host]";
+    }
+
     local($^W) = 0;  # IO::Socket::INET can be noisy
     my $sock = $self->socket_class->new(PeerAddr => $host,
                                        PeerPort => $port,

diff --git a/lib/LWP/UserAgent.pm b/lib/LWP/UserAgent.pm
index d558eabf0f93a5eb8cb8ee092e1150f67c9e007d..dde9a00f073da756931026a046f76e1dd89e997c 100644 (file)
--- a/lib/LWP/UserAgent.pm
+++ b/lib/LWP/UserAgent.pm
@@ -1196,8 +1196,8 @@ method for the more general interface that allow any header to be defaulted.
 =item $ua->cookie_jar( $cookie_jar_obj )
 
 Get/set the cookie jar object to use.  The only requirement is that
-the cookie jar object must implement the extract_cookies($request) and
-add_cookie_header($response) methods.  These methods will then be
+the cookie jar object must implement the extract_cookies($response) and
+add_cookie_header($request) methods.  These methods will then be
 invoked by the user agent as requests are sent and responses are
 received.  Normally this will be a C<HTTP::Cookies> object or some
 subclass.