summaryrefslogtreecommitdiff
path: root/www/p5-WWW-Babelfish/files/patch-Makefile.PL
diff options
context:
space:
mode:
Diffstat (limited to 'www/p5-WWW-Babelfish/files/patch-Makefile.PL')
-rw-r--r--www/p5-WWW-Babelfish/files/patch-Makefile.PL30
1 files changed, 30 insertions, 0 deletions
diff --git a/www/p5-WWW-Babelfish/files/patch-Makefile.PL b/www/p5-WWW-Babelfish/files/patch-Makefile.PL
new file mode 100644
index 000000000000..ecda224d63f8
--- /dev/null
+++ b/www/p5-WWW-Babelfish/files/patch-Makefile.PL
@@ -0,0 +1,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.