--- Socket.pm   2012-09-27 13:27:38.856750000 +0200
+++ Socket.pm.win32     2012-09-27 13:28:45.466125000 +0200
@@ -579,7 +579,7 @@ module (C<format_address> converts it to
 # sockaddr_un structures of maximum length (which is not, AFAICS, required
 # by any standard). try to 0-pad structures for the benefit of those platforms.

-my $sa_un_zero = eval { Socket::pack_sockaddr_un "" }; $sa_un_zero ^= $sa_un_zero;
+my $sa_un_zero = eval { Socket::pack_sockaddr_un "" } unless AnyEvent::WIN32; $sa_un_zero ^= $sa_un_zero;

 sub unpack_sockaddr($) {
    my $af = sockaddr_family $_[0];