1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
Description: in IPv6 check, test for :1 instead of ::
Origin: vendor
Bug-Debian: https://bugs.debian.org/1127380
Forwarded: no
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2026-02-08
--- a/t/NetServerTest.pm
+++ b/t/NetServerTest.pm
@@ -15,9 +15,9 @@
sub skip_without_ipv6 {
my $err = "";
- if (!eval { require IO::Socket::IP; IO::Socket::IP->new(LocalAddr=>"[::]",Listen=>1) or die ($@ || "IP CRASH $!") } and
+ if (!eval { require IO::Socket::IP; IO::Socket::IP->new(LocalAddr=>"[:1]",Listen=>1) or die ($@ || "IP CRASH $!") } and
do { delete $INC{'IO/Socket/IP.pm'}; ($err=$@)=~s/\s*$//; 1 } and
- !eval { require IO::Socket::INET6; IO::Socket::INET6->new(LocalAddr=>"[::]",Listen=>1)}) {
+ !eval { require IO::Socket::INET6; IO::Socket::INET6->new(LocalAddr=>"[:1]",Listen=>1)}) {
my $reason = "SKIP ".(shift || "IPv6 is not supported");
$reason .= "\nIP - $err" if $err;
$reason .= "\nINET6 - $@" if $@;
|
