diff options
| -rw-r--r-- | lib/LWPx/Protocol/http_paranoid.pm | 4 |
1 files changed, 4 insertions, 0 deletions
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(); |