fix_charles.d

#!/usr/sbin/dtrace -w -C -s

#pragma D option quiet

inline int af_inet6 = 30;	/* AF_INET6 defined in bsd/sys/socket.h */

inline string CHARLES = "Charles";

syscall::connect*:entry
{
    this->sa = (struct sockaddr *)copyin(arg1, sizeof (struct sockaddr));
    this->f = this->sa->sa_family;
}

syscall::connect*:entry
/this->f == af_inet6 && execname == CHARLES/
{
    this->s6 = (struct sockaddr_in6 *) copyin(arg1, sizeof (struct sockaddr_in6));
    this->s6->sin6_scope_id = 0;
    copyout(this->s6, arg1, sizeof (struct sockaddr_in6));
}