diff -ru netatalk-3.1.12.orig/contrib/shell_utils/asip-status.pl.in netatalk-3.1.12/contrib/shell_utils/asip-status.pl.in
--- netatalk-3.1.12.orig/contrib/shell_utils/asip-status.pl.in	2018-11-29 10:30:45.000000000 +0100
+++ netatalk-3.1.12/contrib/shell_utils/asip-status.pl.in	2021-05-20 01:48:48.125285875 +0200
@@ -20,7 +20,7 @@
 #
 
 use strict;
-use IO::Socket::INET6;			# sucks because Timeout doesn't
+use IO::Socket::IP;			# sucks because Timeout doesn't
 
 my ($arg);
 my ($hostport);
@@ -137,7 +137,7 @@
 
 	print "opening $host:$port\n" if ($main::debug);
 
-	my ($asip_sock) = IO::Socket::INET6->new( 
+	my ($asip_sock) = IO::Socket::IP->new( 
 		Domain => $main::ipv,
 		PeerAddr => $host, 
 		PeerPort => $port, 
diff -ru netatalk-3.1.12.orig/doc/manpages/man1/asip-status.pl.1.xml netatalk-3.1.12/doc/manpages/man1/asip-status.pl.1.xml
--- netatalk-3.1.12.orig/doc/manpages/man1/asip-status.pl.1.xml	2016-06-18 15:02:35.000000000 +0200
+++ netatalk-3.1.12/doc/manpages/man1/asip-status.pl.1.xml	2021-05-20 02:02:41.516932877 +0200
@@ -75,7 +75,7 @@
     supports both IPv4 and IPv6. It's decided by your system which IP version
     to use. You can use -4 or -6 option to specify IP version.</para>
 
-    <note><para><command>asip-status.pl</command> requires IO::Socket::INET6
+    <note><para><command>asip-status.pl</command> requires IO::Socket::IP
     module.</para></note>
 
   </refsect1>
diff -ru netatalk-3.1.12.orig/man/man1/asip-status.pl.1.in netatalk-3.1.12/man/man1/asip-status.pl.1.in
--- netatalk-3.1.12.orig/man/man1/asip-status.pl.1.in	2018-11-29 10:30:45.000000000 +0100
+++ netatalk-3.1.12/man/man1/asip-status.pl.1.in	2021-05-20 02:02:17.827687086 +0200
@@ -63,7 +63,7 @@
 .br
 .PP
 \fBasip\-status\&.pl\fR
-requires IO::Socket::INET6 module\&.
+requires IO::Socket::IP module\&.
 .sp .5v
 .RE
 .SH "OPTIONS"