| CC: | Stephane Levy <stephane [...] weborama.com> |
| Subject: | bug in sub handle_response |
| Date: | Wed, 10 Jun 2009 10:56:07 +0000 (GMT+00:00) |
| To: | bug-ParallelUserAgent [...] rt.cpan.org |
| From: | Isabelle Cabrera <isabelle [...] weborama.com> |
Hi,
I think I have detected a bug in sub handle_response in UserAgent.pm. It happens when the wait() sub is called:
$ua->wait;
A DIE happens when it catches the HTTP error 401 :
LWP::Parallel::UserAgent::_perform_read: '0' = read_chunk from LWP::Parallel::UserAgent::Entry=HASH(0x9a11640) (http://url_qui_va_pas.com)
LWP::Parallel::UserAgent::on_return: (http://url_qui_va_pas.com, 401, Unauthorized)
LWP::Parallel::UserAgent::_perform_read: received '1' from on_return
LWP::Parallel::UserAgent::_remove_current_connection: (LWP::Parallel::UserAgent::Entry=HASH(0x9a11640) [http://url_qui_va_pas.com] )
LWP::Parallel::UserAgent::handle_response: -> (LWP::Parallel::UserAgent::Entry=HASH(0x9a11640) [http://url_qui_va_pas.com] )
LWP::Parallel::UserAgent::handle_response: Handling result: Unauthorized
Usage: $h->header($field, ...) at (eval 17) line 1
I started to look at the sub handle_response and noticed that this line was responsible for the DIE:
LWP::Debug::trace("<- ($response [".$response->header.'] )');
The sub header (in HTTP::Headers) expects an argument, so it dies.
My configuration:
I cannot see any version number in LWP::Parallel::UserAgent, but Parallel.pm is version 2.57
Perl 5.8.5
OS: Linux Ubuntu
Hope this helps.
Best regards,
Isabelle Cabrera