[libwww-perl] 01/03: add patch from Ivan Shmakov fixing validation of IPv6 proxy addresses

[Damyan Ivanov]

This is an automated email from the git hooks/post-receive script.

dmn pushed a commit to branch master
in repository libwww-perl.

commit 4ba040352c70880b25a08189b3d6716f62f070af
Author: Damyan Ivanov <dmn at debian.org>
Date:   Fri Apr 11 21:03:32 2014 +0000

    add patch from Ivan Shmakov fixing validation of IPv6 proxy addresses
    
    Closes: #714961
---
 debian/patches/ipv6-http-proxy.patch | 18 ++++++++++++++++++
 debian/patches/series                |  1 +
 2 files changed, 19 insertions(+)

diff --git a/debian/patches/ipv6-http-proxy.patch b/debian/patches/ipv6-http-proxy.patch
new file mode 100644
index 0000000..f7a6b94
--- /dev/null
+++ b/debian/patches/ipv6-http-proxy.patch
@@ -0,0 +1,18 @@
+Description: allow ipv6 proxy specification
+Author: Ivan Shmakov <oneingray at gmail.com>
+Reviewed-By: Damyan Ivanov <dmn at debian.org>
+Bug-Debian: https://bugs.debian.org/714961
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=94654
+
+--- a/lib/LWP/UserAgent.pm
++++ b/lib/LWP/UserAgent.pm
+@@ -986,7 +986,8 @@ sub proxy
+         my $url = shift;
+         if (defined($url) && length($url)) {
+             Carp::croak("Proxy must be specified as absolute URI; '$url' is not") unless $url =~ /^$URI::scheme_re:/;
+-            Carp::croak("Bad http proxy specification '$url'") if $url =~ /^https?:/ && $url !~ m,^https?://\w,;
++            Carp::croak("Bad http proxy specification '$url'")
++                if $url =~ /^https?:/ && $url !~ m,^https?://(\w|\[),;
+         }
+         $self->{proxy}{$key} = $url;
+         $self->set_my_handler("request_preprepare", \&_need_proxy)
diff --git a/debian/patches/series b/debian/patches/series
index 24b657f..a3ba2d6 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
 fix-htts-proxy
+ipv6-http-proxy.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libwww-perl.git