From 19a8d7c89b17b0ca503a3614a5995c90a1a1eb47 Mon Sep 17 00:00:00 2001
From: Doug Barton <dougb@FreeBSD.org>
Date: Fri, 2 Jan 2004 02:33:10 +0000
Subject: [PATCH] This patch is no longer needed as of 0.44

---
 dns/p5-Net-DNS/files/patch-Makefile.Pl | 53 --------------------------
 1 file changed, 53 deletions(-)
 delete mode 100644 dns/p5-Net-DNS/files/patch-Makefile.Pl

diff --git a/dns/p5-Net-DNS/files/patch-Makefile.Pl b/dns/p5-Net-DNS/files/patch-Makefile.Pl
deleted file mode 100644
index a1f36448325d..000000000000
--- a/dns/p5-Net-DNS/files/patch-Makefile.Pl
+++ /dev/null
@@ -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);