don't hose the cpu by using read instead of input
This commit is contained in:
parent
e50480adea
commit
963d7a69de
1 changed files with 3 additions and 1 deletions
|
@ -110,8 +110,10 @@ print ",\n";
|
|||
$ob->write(@ARGV);
|
||||
$ob->write(',');
|
||||
|
||||
my $c; my $count;
|
||||
while(1) {
|
||||
print $ob->input;
|
||||
($count, $c) = $ob->read(1);
|
||||
print $c if ($count != 0);
|
||||
}
|
||||
|
||||
$ob -> close or die "Close failed: $!\n";
|
||||
|
|
Loading…
Reference in a new issue