Skip Menu |
 

This queue is for tickets about the libwww-perl CPAN distribution.

Report information
The Basics
Id: 60615
Status: resolved
Priority: 0/
Queue: libwww-perl

People
Owner: Nobody in particular
Requestors: altblue [...] n0i.net
Cc:
AdminCc:

Bug Information
Severity: Wishlist
Broken in: 5.836
Fixed in: (no value)



Subject: lwp-request: honor "-e" while "-S"
Download (untitled) / with headers
text/plain 236b
Small kludge* to display each response's headers when requests chain display is enabled. It answers this request: http://www.nntp.perl.org/group/perl.libwww/2010/08/msg7427.html * refactoring the entire section could avoid duplication
Subject: lwp-honor-e-while-S.diff
--- bin/lwp-request.orig 2009-11-21 14:57:41.000000000 +0200 +++ bin/lwp-request 2010-08-22 17:38:30.376177590 +0300 @@ -425,6 +425,9 @@ my $method = $r->request->method; my $url = $r->request->uri->as_string; print "$method $url --> ", $r->status_line, "\n"; + if ( $options{'e'} && $r ne $response ) { + print $r->headers_as_string, "\n"; + } } } elsif ($options{'s'}) {


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.