From d48b023a584f884c74731aa0a07a65f62b67bbe3 Mon Sep 17 00:00:00 2001
From: Doug Barton <dougb@FreeBSD.org>
Date: Mon, 5 Aug 2002 01:38:40 +0000
Subject: No need to deal with this test for a port install

---
 dns/p5-Net-DNS/files/patch-Makefile.Pl | 55 ++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 dns/p5-Net-DNS/files/patch-Makefile.Pl

(limited to 'dns/p5-Net-DNS')

diff --git a/dns/p5-Net-DNS/files/patch-Makefile.Pl b/dns/p5-Net-DNS/files/patch-Makefile.Pl
new file mode 100644
index 000000000000..a2ece0b730d8
--- /dev/null
+++ b/dns/p5-Net-DNS/files/patch-Makefile.Pl
@@ -0,0 +1,55 @@
+--- Makefile.PL.Dist	Thu Aug  1 02:57:10 2002
++++ Makefile.PL	Sun Aug  4 18:27:55 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,
+-);
+-
+-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 shure...
+-	}
+-}
++#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 shure...
++#	}
++#}
+ 
+ 
+ WriteMakefile(
-- 
cgit v1.2.3