From 8024300574fd6b50eb180197474b028f3819b936 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Mon, 18 May 2009 11:45:08 +0200 Subject: applying patch by SREZIC http://rt.cpan.org/Public/Bug/Display.html?id=43471 --- lib/LWPx/Protocol/http_paranoid.pm | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'lib/LWPx/Protocol') diff --git a/lib/LWPx/Protocol/http_paranoid.pm b/lib/LWPx/Protocol/http_paranoid.pm index 0d00b6f..aae5671 100644 --- a/lib/LWPx/Protocol/http_paranoid.pm +++ b/lib/LWPx/Protocol/http_paranoid.pm @@ -353,6 +353,10 @@ sub request $complete++ if !$n; return \$buf; } ); + if ($response->header('X-Died')) { + $response = HTTP::Response->new(&HTTP::Status::RC_INTERNAL_SERVER_ERROR, + $response->header('X-Died')); + } $drop_connection++ unless $complete; _set_time_remain(); -- cgit 1.4.1