X-Git-Url: http://git.rot13.org/?p=HTTP-Proxy-Archive.git;a=blobdiff_plain;f=proxy.pl;h=a2b5546cb27cf723f480ae7c05c71b05a1bdeb33;hp=93ceb368cfb7984b900c1f03f510f1ed2386eb7c;hb=e48ff33f45fced20bed5d8e13ec9365869e91a41;hpb=bf6fda87130dbbbcc0353d883e9b3f9635b7bf2b

diff --git a/proxy.pl b/proxy.pl
index 93ceb36..a2b5546 100755
--- a/proxy.pl
+++ b/proxy.pl
@@ -184,9 +184,9 @@ sub debug_dump { -e 'var/debug' && warn "## ", dump( @_ ) }
 
 my $admin_filter = HTTP::Proxy::HeaderFilter::simple->new( sub {
    my ( $self, $headers, $message ) = @_;
-warn "XXX ", $headers->header('x-forwarded-for'), ' ', $message->uri, "\n";
+warn "XXX [", $headers->header('x-forwarded-for'), '] ', $message->uri, "\n";
 
-	print $self->request->as_string, $/, $message->headers_as_string, $/ if debug_on;
+	print $message->headers_as_string if debug_on;
 
 	my $host = $message->uri->host;
 	var_save 'hits' => $host;