Merge branch 'untested' of git://git.devl.org/git/malvira/mc1322x-tests into untested

This commit is contained in:
Mariano Alvira 2009-05-09 15:48:40 -04:00
commit cab6fdfbb2

View File

@ -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";