perl-Socket/Socket-2.000-Fix-AF_UNIX-sockaddr-padding-initialization.patch

27 lines
854 B
Diff

From f76970735bf4f9b2587d109aff732cd5a28b01ab Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Tue, 27 Mar 2012 09:26:40 +0200
Subject: [PATCH] Fix AF_UNIX sockaddr padding initialization
<http://rt.cpan.org/Public/Bug/Display.html?id=76067>.
---
Socket.xs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/Socket.xs b/Socket.xs
index 3999c4b..fc0b39a 100644
--- a/Socket.xs
+++ b/Socket.xs
@@ -712,7 +712,7 @@ unpack_sockaddr_un(sun_sv)
getpeername and getsockname is not equal to sizeof(addr). */
if (sockaddrlen < sizeof(addr)) {
Copy(sun_ad, &addr, sockaddrlen, char);
- Zero(&addr+sockaddrlen, sizeof(addr)-sockaddrlen, char);
+ Zero(((char*)&addr)+sockaddrlen, sizeof(addr)-sockaddrlen, char);
} else {
Copy(sun_ad, &addr, sizeof(addr), char);
}
--
1.7.9.3