diff options
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/LWP/Protocol/http.pm')
-rw-r--r-- | Master/tlpkg/tlperl/site/lib/LWP/Protocol/http.pm | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/Master/tlpkg/tlperl/site/lib/LWP/Protocol/http.pm b/Master/tlpkg/tlperl/site/lib/LWP/Protocol/http.pm index 2266b1e9ea6..b5448ac6aa4 100644 --- a/Master/tlpkg/tlperl/site/lib/LWP/Protocol/http.pm +++ b/Master/tlpkg/tlperl/site/lib/LWP/Protocol/http.pm @@ -1,7 +1,9 @@ package LWP::Protocol::http; -$LWP::Protocol::http::VERSION = '6.25'; + use strict; +our $VERSION = '6.31'; + require HTTP::Response; require HTTP::Status; require Net::HTTP; @@ -42,6 +44,8 @@ sub _new_socket $@ =~ /\b(Crypt-SSLeay can't verify hostnames)\b/ ) { $status .= " ($1)"; + } elsif ($@) { + $status .= " ($@)"; } die "$status\n\n$@"; } @@ -232,7 +236,7 @@ sub request $request_headers->scan(sub { my($k, $v) = @_; $k =~ s/^://; - $v =~ s/\n/ /g; + $v =~ tr/\n/ /; push(@h, $k, $v); }); @@ -497,8 +501,9 @@ sub request #----------------------------------------------------------- -package LWP::Protocol::http::SocketMethods; -$LWP::Protocol::http::SocketMethods::VERSION = '6.25'; +package # hide from PAUSE + LWP::Protocol::http::SocketMethods; + sub ping { my $self = shift; !$self->can_read(0); @@ -510,8 +515,9 @@ sub increment_response_count { } #----------------------------------------------------------- -package LWP::Protocol::http::Socket; -$LWP::Protocol::http::Socket::VERSION = '6.25'; -use base qw(LWP::Protocol::http::SocketMethods Net::HTTP); +package # hide from PAUSE + LWP::Protocol::http::Socket; + +use parent -norequire, qw(LWP::Protocol::http::SocketMethods Net::HTTP); 1; |