1
0
mirror of https://git.FreeBSD.org/ports.git synced 2025-01-14 07:43:06 +00:00

This patch is no longer needed as of 0.44

This commit is contained in:
Doug Barton 2004-01-02 02:33:10 +00:00
parent 88454c9afc
commit 19a8d7c89b
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=97060

View File

@ -1,53 +0,0 @@
--- Makefile.PL.orig Thu Jun 5 16:42:58 2003
+++ Makefile.PL Fri Jun 13 16:38:15 2003
@@ -82,30 +82,30 @@
# Check if we have internet connection
# (I lifted this code from LWP... )
#
-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,
+#);
-if ($s) {
- close($s);
+#if ($s) {
+# close($s);
+#
+# print <<EOT;
- print <<EOT;
+#You appear to be directly connected to the Internet. I have some tests
+#that try to query live nameservers.
-You appear to be directly connected to the Internet. I have some tests
-that try to query live nameservers.
+#EOT
-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...
- }
-} else {
- unlink("t/online.enabled"); # just to be shure...
-}
+# 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...
+# }
+#} else {
+# unlink("t/online.enabled"); # just to be shure...
+#}
WriteMakefile(%Makefile);