Fix problem where tc grants always were sent to the last peer to send traffic

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@15880 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2013-04-08 17:37:15 +00:00
parent 27459a2869
commit f2de7ef12e

View File

@ -511,7 +511,7 @@ sub grant_tcrequests {
unless ($availableslots > 0) { next; } # no slots, ignore requests for now
$udpcontext->{clientfudge}+=1; #adjust forecast for being busy
$availableslots-=1;
$udpcontext->{socket}->send("resourcerequest: ok\n",$requestors->{$rkey}->{sockaddr});
$udpcontext->{socket}->send("resourcerequest: ok\n",0,$requestors->{$rkey}->{sockaddr});
delete ($requestors->{$rkey}); #we acknoweldged, assume consumer got it, they'll do retry if they failed
}
}