--- loncom/LWPReq.pm 2018/09/20 14:17:01 1.3 +++ loncom/LWPReq.pm 2018/12/22 17:52:39 1.5 @@ -2,7 +2,7 @@ # LON-CAPA wrapper for LWP UserAgent to accommodate certification # verification for SSL. # -# $Id: LWPReq.pm,v 1.3 2018/09/20 14:17:01 raeburn Exp $ +# $Id: LWPReq.pm,v 1.5 2018/12/22 17:52:39 raeburn Exp $ # # The LearningOnline Network with CAPA # @@ -175,6 +175,7 @@ sub makerequest { if (LWP::UserAgent->VERSION >= 5.834) { $ua->local_address('127.0.0.1'); } else { + require LWP::Protocol::http; local @LWP::Protocol::http::EXTRA_SOCK_OPTS = (LocalAddr => '127.0.0.1'); } @@ -203,6 +204,9 @@ sub makerequest { } } } + if ($debug) { + $IO::Socket::SSL::DEBUG=0; + } if ($dns_set) { $dns_set = &unsetdns(); }