arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects 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/branches/2.7@12426 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2012-05-01 18:28:28 +00:00
parent 1db4ae7592
commit 9b4a8ccb52
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -224,8 +224,7 @@ $request->{clienttype}->[0] = "cli"; # setup clienttype for auditlog
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

@ -1687,8 +1687,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;