From 3d26f778acc1a96186d3c22d92831b8591731c92 Mon Sep 17 00:00:00 2001
From: Petr Salaba <psalaba@redhat.com>
Date: Wed, 5 Apr 2023 09:34:15 +0200
Subject: [PATCH] Switch from INET6 to IP for IPv6

---
 imapsync | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/imapsync b/imapsync
index e842961..11fe896 100755
--- a/imapsync
+++ b/imapsync
@@ -1001,7 +1001,6 @@ use File::stat ;
 use Getopt::Long (  ) ;
 use IO::File ;
 use IO::Socket qw( :crlf SOL_SOCKET SO_KEEPALIVE ) ;
-use IO::Socket::INET6 ;
 use IO::Socket::SSL ;
 use IO::Tee ;
 use IPC::Open3 'open3' ;
@@ -7075,7 +7074,6 @@ sub modulesversion
                 'HTML::Entities'        => sub { $HTML::Entities::VERSION },
                 'IO::Socket'            => sub { $IO::Socket::VERSION },
                 'IO::Socket::INET'      => sub { $IO::Socket::INET::VERSION },
-                'IO::Socket::INET6'     => sub { $IO::Socket::INET6::VERSION },
                 'IO::Socket::IP'        => sub { $IO::Socket::IP::VERSION },
                 'IO::Socket::SSL'       => sub { $IO::Socket::SSL::VERSION },
                 'IO::Tee'               => sub { $IO::Tee::VERSION },
@@ -7870,13 +7868,14 @@ sub tests_connect_socket
                         skip( 'Tests avoided on CUILLERE/pcHPDV7-HP/macosx.polarhome.com/docker cannot do ipv6', 2 ) ;
                 }
 
-                $socket = IO::Socket::INET6->new(
-                        PeerAddr => 'ks6ipv6.lamiral.info',
+                $socket = IO::Socket::IP->new(
+                        PeerHost => 'ks6ipv6.lamiral.info',
                         PeerPort => 143,
+                        V6Only => 1,
                 ) ;
 
 
-                ok( $imap = connect_socket( $socket ), 'connect_socket: ks6ipv6.lamiral.info port 143 IO::Socket::INET6' ) ;
+                ok( $imap = connect_socket( $socket ), 'connect_socket: ks6ipv6.lamiral.info port 143 IO::Socket::IP' ) ;
                 #$imap->Debug( 1 ) ;
                 # myprint( $imap->capability(  ) ) ;
                 if ( $imap ) {