[libhttp-proxy-perl] 01/02: Add patch to fix broken custom 'via' handling.

[gregor herrmann]

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

gregoa pushed a commit to branch master
in repository libhttp-proxy-perl.

commit 1fb18e6fca36108423573ac090259a1994a1dcd8
Author: gregor herrmann <gregoa at debian.org>
Date:   Fri Jun 12 13:38:36 2015 +0200

    Add patch to fix broken custom 'via' handling.
    
    (Patch taken from CPAN RT.)
    
    Closes: #788350
---
 debian/patches/fix-via.patch | 41 +++++++++++++++++++++++++++++++++++++++++
 debian/patches/series        |  1 +
 2 files changed, 42 insertions(+)

diff --git a/debian/patches/fix-via.patch b/debian/patches/fix-via.patch
new file mode 100644
index 0000000..f94ae6e
--- /dev/null
+++ b/debian/patches/fix-via.patch
@@ -0,0 +1,41 @@
+Description: fix via accessor which was broken in 0.030
+Origin: CPAN RT
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=105177
+Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=105177
+Author: Slaven Rezic <slaven at rezic.de>
+Reviewed-by: gregor herrmann <gregoa at debian.org>
+Last-Update: 2015-06-12
+
+--- a/lib/HTTP/Proxy.pm
++++ b/lib/HTTP/Proxy.pm
+@@ -90,6 +90,7 @@
+         port     => 8080,
+         stash    => {},
+         timeout  => 60,
++        via      => undef,
+         x_forwarded_for => 1,
+     );
+ 
+--- a/t/15accessors.t
++++ b/t/15accessors.t
+@@ -28,7 +28,7 @@
+     # loop is not used/internal for now
+ );
+ 
+-plan tests => 15 + keys %meth;
++plan tests => 16 + keys %meth;
+ 
+ for my $key ( sort keys %meth ) {
+     no strict 'refs';
+@@ -38,6 +38,11 @@
+ like( $proxy->via(), qr!\(HTTP::Proxy/$HTTP::Proxy::VERSION\)$!,
+       "via has the correct default");
+ 
++{
++    my $my_via_proxy = HTTP::Proxy->new( via => 'VIA!VIA!VIA!' );
++    is( $my_via_proxy->via(), 'VIA!VIA!VIA!', 'custom via' );
++}
++
+ # test deprecated accessors
+ $proxy = HTTP::Proxy->new( maxserve => 127,  maxconn => 255 );
+ is( $proxy->max_keep_alive_requests, 127, "deprecated maxserve");
diff --git a/debian/patches/series b/debian/patches/series
index 5162df7..f28f295 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
 hashbang.patch
+fix-via.patch

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