# some useful helper
sub create_reusable_socket {
- my ($self, $port, $host) = @_;
+ my ($self, $port, $host, $family) = @_;
die "no port specifed" if !$port;
LocalAddr => $host,
LocalPort => $port,
Listen => SOMAXCONN,
+ Family => $family,
Proto => 'tcp',
ReuseAddr => 1) ||
die "unable to create socket - $@\n";