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

Temporarily commented out the use of Thread so it would build

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1269 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
bp-sawyers 2008-05-03 13:49:33 +00:00
parent 3a06fffea9
commit 96a7b2607c
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
xCAT-client-2.0/bin/prsync
View File

@ -14,7 +14,7 @@ use Data::Dumper;
use IO::Handle;
use IO::Select;
use xCAT::Utils;
use Threads qw(yield);
#use Threads qw(yield);
use Getopt::Long;
use POSIX qw(:signal_h :errno_h :sys_wait_h);
my $interface;
@ -72,16 +72,16 @@ close($client);
my $children = 0;
my $inputs = new IO::Select;
$SIG{CHLD} = \&reaper;
sub reaper {
while (($pid = waitpid(-1,WNOHANG)) > 0) {
$children--;
sub reaper {
while (($pid = waitpid(-1,WNOHANG)) > 0) {
$children--;
}
if ($children and $pid == -1) { #for whatever reason, rsync processes slip by frequently
$children = 0;
}
$SIG{CHLD} = \&reaper;
}
if ($interface) {
foreach (@nodes) {
@ -120,7 +120,7 @@ sub processoutput { #This way, one arbiter handles output, no interrupting
chomp($line);
print $nodehdl{$readyh}.": ".$line."\n";
}
yield;
#yield;
return $rc;
}
sub scpnode {

4
xCAT-client-2.0/bin/pscp
View File

@ -13,7 +13,7 @@ if ($^O =~ /^linux/i) {
use Data::Dumper;
use IO::Handle;
use IO::Select;
use Threads qw(yield);
#use Threads qw(yield);
use xCAT::Utils;
use Getopt::Long;
use POSIX qw(:signal_h :errno_h :sys_wait_h);
@ -109,7 +109,7 @@ sub processoutput { #This way, one arbiter handles output, no interrupting
chomp($line);
print $nodehdl{$readyh}.": ".$line."\n";
}
yield;
#yield;
return $rc;
}
sub scpnode {