diff options
| author | Sergei Golubchik <serg@mariadb.org> | 2020-05-27 23:10:55 +0200 |
|---|---|---|
| committer | Sergei Golubchik <serg@mariadb.org> | 2020-05-27 23:10:55 +0200 |
| commit | c2a7dffc573f311029ed4696fb5bd88e5efba752 (patch) | |
| tree | 9f04258d84a42954afb0b8e36486fd6f303cf90d /mysql-test/suite.pm | |
| parent | 520c3f69a6caed5524d3214a0339736d673c4c0c (diff) | |
| parent | f20c63264ab4170fc8e45093042bd2e7272ce9fc (diff) | |
| download | mariadb-git-10.0.tar.gz | |
Merge tag 'mariadb-5.5.68' into 10.0bb-10.0-serg10.0
Diffstat (limited to 'mysql-test/suite.pm')
| -rw-r--r-- | mysql-test/suite.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/mysql-test/suite.pm b/mysql-test/suite.pm index 52025801974..efacd30f910 100644 --- a/mysql-test/suite.pm +++ b/mysql-test/suite.pm @@ -49,9 +49,10 @@ sub skip_combinations { sub ipv6_ok() { use Socket; return 0 unless socket my $sock, PF_INET6, SOCK_STREAM, getprotobyname('tcp'); + $!=""; # eval{}, if there's no Socket::sockaddr_in6 at all, old Perl installation - eval { connect $sock, sockaddr_in6(7, Socket::IN6ADDR_LOOPBACK) }; - return $@ eq ""; + eval { bind $sock, sockaddr_in6($::baseport, Socket::IN6ADDR_LOOPBACK) }; + return $@ eq "" && $! eq "" } $skip{'include/check_ipv6.inc'} = 'No IPv6' unless ipv6_ok(); |