File perl-IO-Socket-IP.diff of Package sieve-connect

diff --git a/sieve-connect.pl b/sieve-connect.pl
index 95f8a50..8b93aa3 100755
--- a/sieve-connect.pl
+++ b/sieve-connect.pl
@@ -110,7 +110,7 @@ use File::Spec;
 use File::Temp qw/ tempfile /;
 use Getopt::Long;
 use IO::File;
-use IO::Socket::INET6;
+use IO::Socket::IP;
 use IO::Socket::SSL 1.14; # first version with automatic verification
 use MIME::Base64;
 use Net::DNS;
@@ -157,7 +157,7 @@ sub do_version_display {
 		foreach my $mod (
 				'Authen::SASL',
 				'Authen::SASL::Perl',
-				'IO::Socket::INET6',
+				'IO::Socket::IP',
 				'IO::Socket::SSL',
 				'Mozilla::PublicSuffix',
 				'Net::DNS',
@@ -445,7 +445,7 @@ foreach my $hp (@host_port_pairs) {
 	}
 
 	debug "connection: trying <${debug_host}:${port_candidate}>$debug_extra";
-	my $s = IO::Socket::INET6->new(
+	my $s = IO::Socket::IP->new(
 		PeerHost	=> $host_candidate,
 		PeerPort	=> $port_candidate,
 		Proto		=> 'tcp',
@@ -2659,7 +2659,7 @@ pull-requests and bug-reports are accepted there.
 
 =head1 PREREQUISITES
 
-Perl.  F<Authen::SASL>.  F<IO::Socket::INET6>.
+Perl.  F<Authen::SASL>.  F<IO::Socket::IP>.
 F<IO::Socket::SSL> (at least version 1.14).  F<Pod::Usage>.
 F<Net::DNS> for SRV lookup.
 F<Pod::Simple::Text> for built-in man command (optional).