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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use Socket qw(PF_INET6 PF_INET IPPROTO_IPV6 IPV6_V6ONLY);
use IO::Socket::IP;
eval { IO::Socket::IP->new( LocalHost => "::1" ) } or
plan skip_all => "Unable to bind to ::1";
eval { defined IPV6_V6ONLY } or
plan skip_all => "IPV6_V6ONLY not available";
# Don't be locale-sensitive
$! = Errno::ECONNREFUSED;
my $ECONNREFUSED_STR = "$!";
{
my $listensock = IO::Socket::IP->new(
Listen => 1,
Family => PF_INET6,
LocalPort => 0,
Type => SOCK_STREAM,
V6Only => 1,
) or die "Cannot listen on PF_INET6 - $@";
is( $listensock->getsockopt( IPPROTO_IPV6, IPV6_V6ONLY ), 1, 'IPV6_V6ONLY is 1 on $listensock' );
my $testsock = IO::Socket::IP->new(
Family => PF_INET,
PeerHost => "127.0.0.1",
PeerPort => $listensock->sockport,
Type => SOCK_STREAM,
);
my $err = "$@";
ok( !defined $testsock, 'Unable to connect PF_INET socket to PF_INET6 socket with V6Only true' );
like( $err, qr/\Q$ECONNREFUSED_STR/, 'Socket creation fails with connection refused' );
}
SKIP: {
skip "This platform does not allow turning IPV6_V6ONLY off", 3 unless IO::Socket::IP->CAN_DISABLE_V6ONLY;
local $ENV{LANG} = "C"; # avoid locale-dependent error messages
my $listensock = IO::Socket::IP->new(
Listen => 1,
Family => PF_INET6,
LocalPort => 0,
Type => SOCK_STREAM,
V6Only => 0,
) or die "Cannot listen on PF_INET6 - $@";
is( $listensock->getsockopt( IPPROTO_IPV6, IPV6_V6ONLY ), 0, 'IPV6_V6ONLY is 0 on $listensock' );
my $testsock = IO::Socket::IP->new(
Family => PF_INET,
PeerHost => "127.0.0.1",
PeerPort => $listensock->sockport,
Type => SOCK_STREAM,
);
my $err = "$@";
ok( defined $testsock, 'Connected PF_INET socket to PF_INET6 socket with V6Only false' ) or
diag( "IO::Socket::IP->new failed - $err" );
is( $testsock->peerport, $listensock->sockport, 'Test socket connected to correct peer port' );
}
done_testing;
|
