blob: ecda224d63f858c50106e571296c0b16b55f6e97 (
plain)
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
|
--- Makefile.PL.orig Tue Sep 6 10:02:11 2005
+++ Makefile.PL Tue Sep 6 10:02:27 2005
@@ -1,27 +1,4 @@
use ExtUtils::MakeMaker;
-use IO::Socket;
-
-# Check if we have internet connection
-# (I lifted this code from Net::DNS)
-my $s = IO::Socket::INET->new(
- PeerAddr => "www.cpan.org:80",
- Timeout => 10,
-);
-
-if($s){
- if (prompt("Since you're connected to the internet, do you want to run a translation test?", "n") =~ /^y/i) {
- open(ENABLED, ">TTEST") || die "Can't touch ./t/online.enabled $!";
- close(ENABLED);
- }
- else {
- unlink("TTEST");
- }
-}
-else{
- print "You're not connected to the internet, so we'll skip the translation test.\n\n";
- unlink("TTEST");
-}
-close($s);
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
|