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);
}
sub next_migrate_port {
- return next_unused_port(60000, 60010);
+ return next_unused_port(60000, 60050);
}
sub next_vnc_port {