Merge branch 'untested' of git://git.devl.org/git/malvira/mc1322x-tests into untested
This commit is contained in:
commit
cab6fdfbb2
|
@ -110,8 +110,10 @@ print ",\n";
|
||||||
$ob->write(@ARGV);
|
$ob->write(@ARGV);
|
||||||
$ob->write(',');
|
$ob->write(',');
|
||||||
|
|
||||||
|
my $c; my $count;
|
||||||
while(1) {
|
while(1) {
|
||||||
print $ob->input;
|
($count, $c) = $ob->read(1);
|
||||||
|
print $c if ($count != 0);
|
||||||
}
|
}
|
||||||
|
|
||||||
$ob -> close or die "Close failed: $!\n";
|
$ob -> close or die "Close failed: $!\n";
|
||||||
|
|
Loading…
Reference in a new issue