diff options
| author | Doug Barton <dougb@FreeBSD.org> | 2003-06-14 00:14:21 +0000 |
|---|---|---|
| committer | Doug Barton <dougb@FreeBSD.org> | 2003-06-14 00:14:21 +0000 |
| commit | 8b18ba997063dcbafd12a5726a4f9cc0f774d54f (patch) | |
| tree | 61bb2ee73928f6c4ff949dc158ab28d6f0023071 /dns/p5-Net-DNS/files | |
| parent | 445d53b2d18b1e791d6ddea09bfbc5d48e35e0f1 (diff) | |
| download | ports-8b18ba997063dcbafd12a5726a4f9cc0f774d54f.tar.gz ports-8b18ba997063dcbafd12a5726a4f9cc0f774d54f.zip | |
Notes
Diffstat (limited to 'dns/p5-Net-DNS/files')
| -rw-r--r-- | dns/p5-Net-DNS/files/patch-Makefile.Pl | 41 |
1 files changed, 20 insertions, 21 deletions
diff --git a/dns/p5-Net-DNS/files/patch-Makefile.Pl b/dns/p5-Net-DNS/files/patch-Makefile.Pl index c17b347217f6..a1f36448325d 100644 --- a/dns/p5-Net-DNS/files/patch-Makefile.Pl +++ b/dns/p5-Net-DNS/files/patch-Makefile.Pl @@ -1,15 +1,13 @@ ---- Makefile.PL.orig Mon Aug 5 13:06:55 2002 -+++ Makefile.PL Tue Aug 6 17:09:56 2002 -@@ -13,29 +13,29 @@ - +--- 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... many thanks for this and more!) --require IO::Socket; + # (I lifted this code from LWP... ) + # -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, @@ -17,12 +15,19 @@ -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) { @@ -31,24 +36,18 @@ - } else { - unlink("t/online.enabled"); # just to be shure... - } +-} 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... +# } ++#} else { ++# unlink("t/online.enabled"); # just to be shure... +#} - WriteMakefile( + WriteMakefile(%Makefile); |