summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/site/lib/LWP/Protocol/http.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/LWP/Protocol/http.pm')
-rw-r--r--Master/tlpkg/tlperl/site/lib/LWP/Protocol/http.pm20
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;