$OpenBSD: patch-Makefile_PL,v 1.4 2005/04/01 19:14:11 msf Exp $
--- Makefile.PL.orig	Sun Mar 27 10:22:55 2005
+++ Makefile.PL	Sun Mar 27 10:25:58 2005
@@ -57,12 +57,13 @@ my $some_time_ago = sprintf "%04d-%02d-%
 if ($some_time_ago lt $release_date) {
     # Check if we have internet connection
     require IO::Socket;
-    my $s = IO::Socket::INET->new(PeerAddr => "www.google.com:80",
-				  Timeout  => 10,
-				 );
+#    my $s = IO::Socket::INET->new(PeerAddr => "www.google.com:80",
+#				  Timeout  => 10,
+#				 );
+    my $s = 0;
     if ($s) {
 	# XXX could try to send a GET to it???
-	close($s);
+	#close($s);
 
 	print <<EOT;
 
@@ -110,7 +111,7 @@ to install in $Config{installscript}.
 EOT
     my @tmp;
     for (@programs_to_install) {
-	if (prompt("Do you want to install $_?", "y") =~ /^y/) {
+	if (1) {
 	    push(@tmp, $_);
 	}
     }
@@ -129,7 +130,7 @@ EOT
     my @tmp;
     for my $alias (@request_aliases) {
 	my $default = "n";
-	if (prompt("Do you want to install the $alias alias?", $default) =~ /^y/) {
+	if (1) {
 	    push(@tmp, $alias);
 	}
     }
