[libwww-perl] 02/05: replaced https_proxy patch

[dod at debian.org]

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

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

commit efe33af33751a29a9fcc2d826200bb290d7ed046
Author: Dominique Dumont <dod at debian.org>
Date:   Sun Oct 27 16:14:45 2013 +0100

    replaced https_proxy patch
---
 debian/patches/series           |    2 +-
 debian/patches/skip_https_proxy |   21 +++++++++++++++++++++
 2 files changed, 22 insertions(+), 1 deletion(-)

diff --git a/debian/patches/series b/debian/patches/series
index 6c9e95f..37f7acd 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1 @@
-handle-https-proxy
+skip_https_proxy
diff --git a/debian/patches/skip_https_proxy b/debian/patches/skip_https_proxy
new file mode 100644
index 0000000..b01b875
--- /dev/null
+++ b/debian/patches/skip_https_proxy
@@ -0,0 +1,21 @@
+--- a/lib/LWP/UserAgent.pm
++++ b/lib/LWP/UserAgent.pm
+@@ -986,6 +986,7 @@
+         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::carp("$key proxy should be specified only with an environment variable to let SSLeay handle the proxy") if lc($key) eq 'https' ;
+         }
+         $self->{proxy}{$key} = $url;
+         $self->set_my_handler("request_preprepare", \&_need_proxy)
+@@ -1009,6 +1010,10 @@
+ 	$k = lc($k);
+ 	next unless $k =~ /^(.*)_proxy$/;
+ 	$k = $1;
++        if ($k eq 'https') {
++            # let SSLeay handle the proxy
++            next ;
++        } ;
+ 	if ($k eq 'no') {
+ 	    $self->no_proxy(split(/\s*,\s*/, $v));
+ 	}

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