r41301 - in /branches/upstream/libhttp-proxy-perl/current: Changes META.yml lib/HTTP/Proxy.pm lib/HTTP/Proxy/BodyFilter/save.pm lib/HTTP/Proxy/HeaderFilter/standard.pm t/23connect.t
diocles-guest at users.alioth.debian.org
diocles-guest at users.alioth.debian.org
Tue Aug 4 12:17:01 UTC 2009
Author: diocles-guest
Date: Tue Aug 4 12:16:43 2009
New Revision: 41301
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=41301
Log:
[svn-upgrade] Integrating new upstream version, libhttp-proxy-perl (0.24)
Modified:
branches/upstream/libhttp-proxy-perl/current/Changes
branches/upstream/libhttp-proxy-perl/current/META.yml
branches/upstream/libhttp-proxy-perl/current/lib/HTTP/Proxy.pm
branches/upstream/libhttp-proxy-perl/current/lib/HTTP/Proxy/BodyFilter/save.pm
branches/upstream/libhttp-proxy-perl/current/lib/HTTP/Proxy/HeaderFilter/standard.pm
branches/upstream/libhttp-proxy-perl/current/t/23connect.t
Modified: branches/upstream/libhttp-proxy-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhttp-proxy-perl/current/Changes?rev=41301&op=diff
==============================================================================
--- branches/upstream/libhttp-proxy-perl/current/Changes (original)
+++ branches/upstream/libhttp-proxy-perl/current/Changes Tue Aug 4 12:16:43 2009
@@ -1,4 +1,15 @@
Revision history for Perl extension HTTP::Proxy
+
+0.24 Tue Jul 21 21:28:02 CEST 2009
+ [ENHANCEMENTS]
+ - When a short-circuit response was send, the next response
+ would not be filtered at all. This has been fixed.
+ [FIXES]
+ - yet another fix for t/23connect, proposed by Marek Rouchal
+ (closed RT ticket #38995) [test skipped for now]
+ - HTTP::Headers::Util's split_header_words() returns lower case
+ tokens/keys since October 6, 2008. Fix by Maurice Aubrey.
+ (closed RT tickets #43249, #43622)
0.23 Thu Sep 4 02:29:47 CEST 2008
[ENHANCEMENTS]
Modified: branches/upstream/libhttp-proxy-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhttp-proxy-perl/current/META.yml?rev=41301&op=diff
==============================================================================
--- branches/upstream/libhttp-proxy-perl/current/META.yml (original)
+++ branches/upstream/libhttp-proxy-perl/current/META.yml Tue Aug 4 12:16:43 2009
@@ -1,6 +1,6 @@
---
name: HTTP-Proxy
-version: 0.23
+version: 0.24
author:
- 'Philippe "BooK" Bruhat <book at cpan.org>'
abstract: A pure Perl HTTP proxy
@@ -14,7 +14,7 @@
provides:
HTTP::Proxy:
file: lib/HTTP/Proxy.pm
- version: 0.23
+ version: 0.24
HTTP::Proxy::BodyFilter:
file: lib/HTTP/Proxy/BodyFilter.pm
HTTP::Proxy::BodyFilter::complete:
@@ -47,7 +47,7 @@
file: lib/HTTP/Proxy/HeaderFilter/simple.pm
HTTP::Proxy::HeaderFilter::standard:
file: lib/HTTP/Proxy/HeaderFilter/standard.pm
-generated_by: Module::Build version 0.2808
+generated_by: Module::Build version 0.280801
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.2.html
version: 1.2
Modified: branches/upstream/libhttp-proxy-perl/current/lib/HTTP/Proxy.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhttp-proxy-perl/current/lib/HTTP/Proxy.pm?rev=41301&op=diff
==============================================================================
--- branches/upstream/libhttp-proxy-perl/current/lib/HTTP/Proxy.pm (original)
+++ branches/upstream/libhttp-proxy-perl/current/lib/HTTP/Proxy.pm Tue Aug 4 12:16:43 2009
@@ -20,7 +20,7 @@
DATA CONNECT ENGINE ALL );
%EXPORT_TAGS = ( log => [@EXPORT_OK] ); # only one tag
-$VERSION = '0.23';
+$VERSION = '0.24';
my $CRLF = "\015\012"; # "\r\n" is not portable
@@ -464,8 +464,6 @@
# (empty body or error)
# FIXME some error response headers might not be filtered
if ( !$sent ) {
- $self->{$_}{response}->select_filters( $response )
- for qw( headers body );
($last, $chunked) = $self->_send_response_headers( $served );
my $content = $response->content;
if ($chunked) {
Modified: branches/upstream/libhttp-proxy-perl/current/lib/HTTP/Proxy/BodyFilter/save.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhttp-proxy-perl/current/lib/HTTP/Proxy/BodyFilter/save.pm?rev=41301&op=diff
==============================================================================
--- branches/upstream/libhttp-proxy-perl/current/lib/HTTP/Proxy/BodyFilter/save.pm (original)
+++ branches/upstream/libhttp-proxy-perl/current/lib/HTTP/Proxy/BodyFilter/save.pm Tue Aug 4 12:16:43 2009
@@ -184,13 +184,13 @@
# save RFC files as we browse them
$proxy->push_filter(
- path => qr!/rfc\d+.txt!,
- mime => 'text/plain',
+ path => qr!/rfc\d+.txt!,
+ mime => 'text/plain',
response => HTTP::Proxy::BodyFilter::save->new(
template => '%f',
prefix => 'rfc',
keep_old => 1,
- );
+ )
);
$proxy->start;
Modified: branches/upstream/libhttp-proxy-perl/current/lib/HTTP/Proxy/HeaderFilter/standard.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhttp-proxy-perl/current/lib/HTTP/Proxy/HeaderFilter/standard.pm?rev=41301&op=diff
==============================================================================
--- branches/upstream/libhttp-proxy-perl/current/lib/HTTP/Proxy/HeaderFilter/standard.pm (original)
+++ branches/upstream/libhttp-proxy-perl/current/lib/HTTP/Proxy/HeaderFilter/standard.pm Tue Aug 4 12:16:43 2009
@@ -8,7 +8,7 @@
@ISA = qw( HTTP::Proxy::HeaderFilter );
# known hop-by-hop headers
-my %hopbyhop = map { $_ => 1 }
+my @hopbyhop =
qw( Connection Keep-Alive Proxy-Authenticate Proxy-Authorization
TE Trailers Transfer-Encoding Upgrade Proxy-Connection Public );
@@ -32,10 +32,10 @@
if $message->isa( 'HTTP::Request' ) && $self->proxy->x_forwarded_for;
# make a list of hop-by-hop headers
- my %h2h = %hopbyhop;
+ my %h2h = map { (lc) => 1 } @hopbyhop;
my $hop = HTTP::Headers->new();
my $client = HTTP::Headers->new();
- $h2h{ $_->[0] } = 1
+ $h2h{ lc $_->[0] } = 1
for map { split_header_words($_) } $headers->header('Connection');
# hop-by-hop headers are set aside
@@ -43,7 +43,7 @@
$headers->scan(
sub {
my ( $k, $v ) = @_;
- if ( $h2h{$k} ) {
+ if ( $h2h{lc $k} ) {
$hop->push_header( $k => $v );
$headers->remove_header($k);
}
Modified: branches/upstream/libhttp-proxy-perl/current/t/23connect.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhttp-proxy-perl/current/t/23connect.t?rev=41301&op=diff
==============================================================================
--- branches/upstream/libhttp-proxy-perl/current/t/23connect.t (original)
+++ branches/upstream/libhttp-proxy-perl/current/t/23connect.t Tue Aug 4 12:16:43 2009
@@ -4,11 +4,12 @@
use LWP::UserAgent;
use IO::Socket::INET;
+plan skip_all => "Unable to make this test work correctly";
plan skip_all => "This test fails on MSWin32. HTTP::Proxy is usable on Win32 with maxchild => 0"
if $^O eq 'MSWin32';
# make sure we inherit no upstream proxy
-delete $ENV{$_} for qw( http_proxy HTTP_PROXY );
+delete $ENV{$_} for qw( http_proxy HTTP_PROXY https_proxy HTTPS_PROXY );
# test CONNECT
my $test = Test::Builder->new;
@@ -31,7 +32,7 @@
if ( !$pid ) {
my $sock = $server->accept;
$sock->print($banner);
- sleep 1;
+ sleep 2;
$sock->close;
exit;
}
More information about the Pkg-perl-cvs-commits
mailing list