arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Shave a few more milliseconds off profiling by using seemingly faster non-OO style autoflush syntax

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9767 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2011-06-08 18:46:01 +00:00
parent 52e1831585
commit 602e91700b
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
xCAT-server/sbin/xcatd
View File

@ -63,7 +63,7 @@ unless ($inet6support) {
my $dispatch_requests = 1; # govern whether commands are dispatchable
use IO::Socket;
use IO::Handle;
#use IO::Handle;
use IO::Select;
use XML::Simple;
$XML::Simple::PREFERRED_PARSER='XML::Parser';
@ -1020,8 +1020,11 @@ sub plugin_command {
die;
}
#pipe($pfd,$cfd);
$parfd->autoflush(1);
$pfd->autoflush(1);
my $oldfh = select $parfd;
$|=1;
select $pfd;
$|=1;
select $oldfh;
binmode($parfd,':utf8');
binmode($pfd,':utf8');
$child = xCAT::Utils->xfork;
@ -1243,8 +1246,11 @@ sub dispatch_request {
xCAT::MsgUtils->message("S", "ERROR: socketpair: $!");
die;
}
$parfd->autoflush(1);
$pfd->autoflush(1);
my $oldfh = select $parfd;
$|=1;
select $pfd;
$|=1;
select $oldfh;
binmode($parfd,':utf8');
binmode($pfd,':utf8');
$child = xCAT::Utils->xfork;