defect 4442: fix the issue in xcatd that new UDP won't exit with error message when it cannot get socket during the xcatd fast restart

This commit is contained in:
daniceexi 2014-11-28 06:57:36 -05:00
parent 607e2bd385
commit 476f9f7b94

View File

@ -650,19 +650,20 @@ sub do_udp_service { #This function opens up a UDP port
}
close($udppidfile);
}
my $select = new IO::Select;
while (not $socket and $retry) {
if ($inet6support) {
$socket = IO::Socket::INET6->new(LocalPort => $port,
my $select = new IO::Select;
while (not $socket and $retry) {
$retry--;
if ($inet6support) {
$socket = IO::Socket::INET6->new(LocalPort => $port,
Proto => 'udp',
);
} else {
$socket = IO::Socket::INET->new(LocalPort => $port,
} else {
$socket = IO::Socket::INET->new(LocalPort => $port,
Proto => 'udp',
Domain => AF_INET);
}
sleep 0.05;
}
}
sleep 0.05;
}
openlog("xCAT UDP",'','local4');
unless ($socket) {