--- libwww-perl-5.803/lib/LWP/Protocol/https10.pm-	2003-10-23 23:11:33 +0400

+++ libwww-perl-5.803/lib/LWP/Protocol/https10.pm	2005-04-14 22:59:47 +0400

@@ -11,14 +11,8 @@

     $SSL_CLASS = "IO::Socket::SSL"; # it was already loaded

 }

 else {

-    eval { require Net::SSL; };     # from Crypt-SSLeay

-    if ($@) {

-	require IO::Socket::SSL;

-	$SSL_CLASS = "IO::Socket::SSL";

-    }

-    else {

-	$SSL_CLASS = "Net::SSL";

-    }

+    require Net::SSL;     # from Crypt-SSLeay

+    $SSL_CLASS = "Net::SSL";

 }

--- libwww-perl-5.803/lib/Net/HTTPS.pm-	2002-12-23 21:16:29 +0300

+++ libwww-perl-5.803/lib/Net/HTTPS.pm	2005-04-14 23:01:06 +0400

@@ -12,21 +12,8 @@

     $SSL_SOCKET_CLASS = "IO::Socket::SSL"; # it was already loaded

 }

 else {

-    eval { require Net::SSL; };     # from Crypt-SSLeay

-    if ($@) {

-	my $old_errsv = $@;

-	eval {

-	    require IO::Socket::SSL;

-	};

-	if ($@) {

-	    $old_errsv =~ s/\s\(\@INC contains:.*\)/)/g;

-	    die $old_errsv . $@;

-	}

-	$SSL_SOCKET_CLASS = "IO::Socket::SSL";

-    }

-    else {

-	$SSL_SOCKET_CLASS = "Net::SSL";

-    }

+    require Net::SSL;      # from Crypt-SSLeay

+    $SSL_SOCKET_CLASS = "Net::SSL";

 }

 require Net::HTTP::Methods;