xCAT/xcat-core
2
0
Fork 0
mirror of https://github.com/xcat2/xcat-core.git synced 2025-05-22 03:32:04 +00:00
Code Issues Releases Wiki Activity

Reduce maximum socket buffer size so select works

Browse Source 
The maximum socket receive buffer size (SO_RCVBUF) is set from the value
in /proc/sys/net/core/rmem_max.  When this value is close to INT_MAX,
the select() system call used by IO::Select->can_read() never returns
true.  This causes packets to never be read.  Therefore, reduce the
maximum socket receive buffer size to a value which works.
This commit is contained in:
Pythagoras Watson 2019-07-16 10:06:58 -07:00
parent dd6731b7f4
commit bd0ad1ba43
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
perl-xCAT/xCAT/SLP.pm
View File

@ -64,6 +64,11 @@ sub dodiscover {
my $sysctl;
open($sysctl, "<", "/proc/sys/net/core/rmem_max");
my $maxrcvbuf = <$sysctl>;
# select() on a socket will never succeed if the buffer is too large (i.e. near INT_MAX)
my $cap_maxrcvbuf = 2047*1024*1024;
if ($maxrcvbuf > $cap_maxrcvbuf) {
$maxrcvbuf = $cap_maxrcvbuf;
}
my $rcvbuf = $args{'socket'}->sockopt(SO_RCVBUF);
if ($maxrcvbuf > $rcvbuf) {
$args{'socket'}->sockopt(SO_RCVBUF, $maxrcvbuf / 2);

5
xCAT-server/lib/perl/xCAT/IPMI.pm
View File

@ -209,6 +209,11 @@ sub new {
my $sysctl;
open($sysctl, "<", "/proc/sys/net/core/rmem_max");
my $maxrcvbuf = <$sysctl>;
# select() on a socket will never succeed if the buffer is too large (i.e. near INT_MAX)
my $cap_maxrcvbuf = 2047*1024*1024;
if ($maxrcvbuf > $cap_maxrcvbuf) {
$maxrcvbuf = $cap_maxrcvbuf;
}
my $rcvbuf = $socket->sockopt(SO_RCVBUF);
if ($maxrcvbuf > $rcvbuf) {
$socket->sockopt(SO_RCVBUF, $maxrcvbuf / 2);