blob: a2ece0b730d834c1a80f1a2452daca34bb5619f1 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
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(
|
