*** /usr/local/perl5.005_03/lib/site_perl/5.005/LWP/Protocol/https.pm.orig	Wed Jun  9 19:43:06 1999
--- /usr/local/perl5.005_03/lib/site_perl/5.005/LWP/Protocol/https.pm	Wed Jun  9 19:43:31 1999
***************
*** 4,10 ****
  use strict;
  
  package LWP::Protocol::https;
! require Net::SSL;  # from Crypt-SSLeay
  
  use vars qw(@ISA);
  
--- 4,11 ----
  use strict;
  
  package LWP::Protocol::https;
! #require Net::SSL;  # from Crypt-SSLeay
! require IO::Socket::SSL;
  
  use vars qw(@ISA);
  
***************
*** 15,21 ****
  {
      my($self, $host, $port, $timeout) = @_;
      local($^W) = 0;  # IO::Socket::INET can be noisy
!     my $sock = Net::SSL->new(PeerAddr => $host,
  			     PeerPort => $port,
  			     Proto    => 'tcp',
  			     Timeout  => $timeout,
--- 16,22 ----
  {
      my($self, $host, $port, $timeout) = @_;
      local($^W) = 0;  # IO::Socket::INET can be noisy
!     my $sock = IO::Socket::SSL->new(PeerAddr => $host,
  			     PeerPort => $port,
  			     Proto    => 'tcp',
  			     Timeout  => $timeout,