perl 5.38.0 rebuild

[packages/frozen-bubble.git] / frozen-bubble-kill-warning.patch

diff -urNp -x '*.orig' frozen-bubble-2.2.0.org/server/net.c frozen-bubble-2.2.0/server/net.c
--- frozen-bubble-2.2.0.org/server/net.c	2008-10-04 21:30:51.000000000 +0200
+++ frozen-bubble-2.2.0/server/net.c	2021-05-07 23:01:36.748775883 +0200
@@ -394,7 +394,7 @@ static void download_blacklisted_IPs()
 void connections_manager(void)
 {
         struct sockaddr_in client_addr;
-        ssize_t len = sizeof(client_addr);
+        socklen_t len = sizeof(client_addr);
         struct timeval tv;
         double now, delta, rate;
 
@@ -454,7 +454,7 @@ void connections_manager(void)
                 conns = new_conns;
 
                 if (tcp_server_socket != -1 && FD_ISSET(tcp_server_socket, &conns_set)) {
-                        if ((fd = accept(tcp_server_socket, (struct sockaddr *) &client_addr, (socklen_t *) &len)) == -1) {
+                        if ((fd = accept(tcp_server_socket, (struct sockaddr *) &client_addr, &len)) == -1) {
                                 l1(OUTPUT_TYPE_ERROR, "accept: %s", strerror(errno));
                                 continue;
                         }