--- callbacks.c.orig 2000-07-19 06:20:36 UTC +++ callbacks.c @@ -490,6 +490,11 @@ callback_ssockaddr(pTHX_ SV *callback, S XPUSHs(sv_2mortal(newSVpvn((char *)arg_sa, sizeof(_SOCK_ADDR)))); } + else if (arg_sa->sa_family == AF_INET6) + { + XPUSHs(sv_2mortal(newSVpvn((char *)arg_sa, + sizeof(struct sockaddr_in6)))); + } else { XPUSHs(sv_2mortal(newSVsv(&PL_sv_undef)));