8b18ba9970
either the Makefile.PL script, or other, and offered nothing new of interest. This version has a more efficient dn_expand method, and adds a warning that Resolver::axfr_old() is deprecated.
53 lines
1.3 KiB
Perl
53 lines
1.3 KiB
Perl
--- 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);
|