From 07eafd4d0c13422c5602e483a7f6ecff4ff5d59b Mon Sep 17 00:00:00 2001
From: at <40923759+rednexela1941@users.noreply.github.com>
Date: Sat, 13 Mar 2021 20:27:11 -0500
Subject: [PATCH] to int

---
 lib/IO/Socket/Multicast.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/IO/Socket/Multicast.pm b/lib/IO/Socket/Multicast.pm
index 0db2b1a..cad8705 100644
--- a/lib/IO/Socket/Multicast.pm
+++ b/lib/IO/Socket/Multicast.pm
@@ -99,7 +99,7 @@ sub mcast_dest {
   my $sock = shift;
   my $prev = ${*$sock}{'io_socket_mcast_dest'};
   if (my $dest = shift) {
-    $dest = sockaddr_in($2,inet_aton($1)) if $dest =~ /^($IP):(\d+)$/;
+    $dest = sockaddr_in(int($2),inet_aton($1)) if $dest =~ /^($IP):(\d+)$/;
     croak "invalid destination address" unless length($dest) == 16;
     ${*$sock}{'io_socket_mcast_dest'} = $dest;
   }