summaryrefslogtreecommitdiff
path: root/system/perl/fix-test-chris-williams-tcp-server.patch
diff options
context:
space:
mode:
Diffstat (limited to 'system/perl/fix-test-chris-williams-tcp-server.patch')
-rw-r--r--system/perl/fix-test-chris-williams-tcp-server.patch14
1 files changed, 14 insertions, 0 deletions
diff --git a/system/perl/fix-test-chris-williams-tcp-server.patch b/system/perl/fix-test-chris-williams-tcp-server.patch
new file mode 100644
index 000000000..bc932924c
--- /dev/null
+++ b/system/perl/fix-test-chris-williams-tcp-server.patch
@@ -0,0 +1,14 @@
+diff -ur a/cpan/IO-Socket-IP/t/31nonblocking-connect-internet.t b/cpan/IO-Socket-IP/t/31nonblocking-connect-internet.t
+--- a/cpan/IO-Socket-IP/t/31nonblocking-connect-internet.t 2023-02-08 14:44:25.658759177 -0600
++++ b/cpan/IO-Socket-IP/t/31nonblocking-connect-internet.t 2023-02-08 14:45:27.444140680 -0600
+@@ -11,8 +11,8 @@
+ use IO::Socket::INET;
+ use Errno qw( EINPROGRESS EWOULDBLOCK ECONNREFUSED );
+
+-# Chris Williams (BINGOS) has offered cpanidx.org as a TCP testing server here
+-my $test_host = "cpanidx.org";
++# Chris Williams' server was not accessible 2023-02-*
++my $test_host = "www.adelielinux.org";
+ my $test_good_port = 80;
+ my $test_bad_port = 6666;
+