$err = $@;
}
- if ($lock_handles->{$$}->{$filename}) {
- my $fh = $lock_handles->{$$}->{$filename};
+ if (my $fh = $lock_handles->{$$}->{$filename}) {
$lock_handles->{$$}->{$filename} = undef;
close ($fh);
}
next if $ports->{$p}; # reserved
my $sock = IO::Socket::INET->new(Listen => 5,
- LocalAddr => 'localhost',
+ LocalAddr => '0.0.0.0',
LocalPort => $p,
ReuseAddr => 1,
Proto => 0);