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

Correct syntax problems in invoking fcntl calls

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@12427 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso
2012-05-01 18:28:38 +00:00
parent b41bbd14dc
commit 4e9d05f9d2
2 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
perl-xCAT/xCAT/Client.pm
View File

@@ -224,8 +224,7 @@ if (ref($request) eq 'HASH') { # the request is an array, not pure XML
my $massresponse="<massresponse>";
my $nextcoalescetime=time()+1;
my $coalescenow=0;
my $flags;
fcntl($client,F_GETFL,$flags);
my $flags=fcntl($client,F_GETFL,0);
$flags |= O_NONBLOCK; #select can be a bit.. fickle, make sysread work more easily...
fcntl($client,F_SETFL,$flags);
my $clientsel = new IO::Select;

3
xCAT-server/sbin/xcatd
View File

@@ -1688,8 +1688,7 @@ sub service_connection {
my $request;
my $req=undef;
my $line;
my $flags;
fcntl($sock,F_GETFL,$flags);
my $flags=fcntl($sock,F_GETFL,0);
$flags |= O_NONBLOCK; #we want sysread to bail on us, select seems to be evil to us still..
fcntl($sock,F_SETFL,$flags);
my $clientsel = new IO::Select;