mirror of
https://git.FreeBSD.org/ports.git
synced 2025-01-15 07:56:36 +00:00
55 lines
1.3 KiB
Perl
55 lines
1.3 KiB
Perl
--- Makefile.PL.orig Mon Aug 5 13:06:55 2002
|
|
+++ Makefile.PL Tue Aug 6 17:09:56 2002
|
|
@@ -13,29 +13,29 @@
|
|
|
|
# Check if we have internet connection
|
|
# (I lifted this code from LWP... many thanks for this and more!)
|
|
-require IO::Socket;
|
|
-my $s = IO::Socket::INET->new(
|
|
- PeerAddr => "www.google.com:80",
|
|
- Timeout => 10,
|
|
-);
|
|
+#require IO::Socket;
|
|
+#my $s = IO::Socket::INET->new(
|
|
+# PeerAddr => "www.google.com:80",
|
|
+# Timeout => 10,
|
|
+#);
|
|
|
|
-if ($s) {
|
|
- close($s);
|
|
-
|
|
- print <<EOT;
|
|
-
|
|
-You appear to be directly connected to the Internet. I have some tests
|
|
-that try to query live nameservers.
|
|
-
|
|
-EOT
|
|
-
|
|
- if (prompt("Do you want to enable these tests?", "y") =~ /^y/i) {
|
|
- open(ENABLED, ">t/online.enabled") || die "Can't touch ./t/online.enabled $!";
|
|
- close(ENABLED);
|
|
- } else {
|
|
- unlink("t/online.enabled"); # just to be shure...
|
|
- }
|
|
-}
|
|
+#if ($s) {
|
|
+# close($s);
|
|
+#
|
|
+# print <<EOT;
|
|
+#
|
|
+#You appear to be directly connected to the Internet. I have some tests
|
|
+#that try to query live nameservers.
|
|
+#
|
|
+#EOT
|
|
+#
|
|
+# if (prompt("Do you want to enable these tests?", "y") =~ /^y/i) {
|
|
+# open(ENABLED, ">t/online.enabled") || die "Can't touch ./t/online.enabled $!";
|
|
+# close(ENABLED);
|
|
+# } else {
|
|
+# unlink("t/online.enabled"); # just to be shure...
|
|
+# }
|
|
+#}
|
|
|
|
|
|
WriteMakefile(
|