diff -Nru Net_SSLeay.pm-1.25.orig/test.pl Net_SSLeay.pm-1.25/test.pl
--- Net_SSLeay.pm-1.25.orig/test.pl	2004-10-15 11:22:04.000000000 +0200
+++ Net_SSLeay.pm-1.25/test.pl	2004-10-15 11:28:50.000000000 +0200
@@ -163,70 +163,6 @@
 					&Net::SSLeay::FILETYPE_PEM());
 print &test(13, $r);
 
-#app.iplanet.com
-my @sites = qw(
-www.cdw.com
-banking.wellsfargo.com
-secure.worldgaming.net
-www.ubs.com
-	    );
-#www.engelschall.com
-#www.openssl.org
-
-if ($trace) {
-print "    Now about to contact external sites...\n\twww.bacus.pt\n";
-print map "\t$_\n", @sites;
-print "    You have 5 seconds of time to hit Ctrl-C if you do not like this.\n";
-print "    So far there were no errors in tests.\n" unless $errors;
-print "*** $errors tests failed already.\n" if $errors;
-print "    Following tests _will_ fail if you do not have network\n"
-    . "    connectivity (or if the servers are down or have changed).\n";
-sleep 5;
-}
-
-$ENV{RND_SEED} = '1234567890123456789012345678901234567890';
-print &test('14 www.bacus.pt',
-	    &Net::SSLeay::sslcat("www.bacus.pt", 443,
-				 "get\n\r\n\r") =~ /<TITLE>/);
-
-sub test_site ($$) {
-    my ($test_nro, $site) = @_;
-    my ($p, $r) = ('','');
-    my %h;
-    warn "Trying $site...\n";
-    $Net::SSLeay::trace=0;
-    $Net::SSLeay::version=0;
-    
-    ($p, $r, %h) = Net::SSLeay::get_https($site, 443, '/');
-    if (!defined($h{SERVER})) {
-	print &test("$test_nro $site ($r)", scalar($r =~ /^HTTP\/1/s));
-	print "\t$site, initial attempt with auto negotiate failed\n";
-
-	$Net::SSLeay::trace=3;
-	$Net::SSLeay::version=2;
-	print "\tset version to 2\n";
-	($p, $r, %h) = Net::SSLeay::get_https($site, 443, '/');
-	
-	$Net::SSLeay::version=3;
-	print "\tset version to 3\n";
-	($p, $r, %h) = Net::SSLeay::get_https($site, 443, '/');
-	$Net::SSLeay::trace=0;
-    }
-    
-    print join '', map("\t$_=>$h{$_}\n", sort keys %h) if $trace>1;
-
-    if (defined($h{SERVER})) {
-	print &test("$test_nro $site ($h{SERVER})", scalar($r =~ /^HTTP\/1/s));
-    } else {
-	print &test("$test_nro $site ($r)", scalar($r =~ /^HTTP\/1/s));
-    }
-}
-
-my $i = 15;
-my $s;
-for $s (@sites) {
-    &test_site($i++, $s );
-}
 
 die "*** WARNING: There were $errors errors in the tests.\n" if $errors;
 print "All tests completed OK.\n" if $trace;