← Back to branch summary

~ubuntu-branches/ubuntu/maverick/libwww-perl/maverick

« back to all changes in this revision

Viewing changes to lib/LWP/Protocol.pm

  • Committer: Bazaar Package Importer
  • Author(s): Nathan Handler
  • Date: 2009-07-09 17:44:48 UTC
  • mfrom: (1.3.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20090709174448-bstu374e2ijr8mpd
Tags: 5.829-1
New upstream release

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/LWP/Protocol.pm
2
2
 
3
3
require LWP::MemberMixin;
4
4
@ISA = qw(LWP::MemberMixin);
5
 
$VERSION = "5.826";
 
5
$VERSION = "5.829";
6
6
 
7
7
use strict;
8
8
use Carp ();
161
161
            }
162
162
        }
163
163
    };
164
 
    if ($@) {
165
 
        chomp($@);
166
 
        $response->push_header('X-Died' => $@);
 
164
    my $err = $@;
 
165
    delete $response->{handlers}{response_data};
 
166
    delete $response->{handlers} unless %{$response->{handlers}};
 
167
    if ($err) {
 
168
        chomp($err);
 
169
        $response->push_header('X-Died' => $err);
167
170
        $response->push_header("Client-Aborted", "die");
168
171
        return $response;
169
172
    }