path: root/system/perl/fix-test-chris-williams-tcp-server.patch

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;