dump full headers with debug

diff --git a/proxy.pl b/proxy.pl
index 93ceb36..a2b5546 100755 (executable)
--- 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;