there was an extra byte, proably because of a newline or something. offset by one for now. Works much better now. Needs more testing.

Signed-off-by: Mariano Alvira <mar@devl.org>
This commit is contained in:
Mariano Alvira 2009-06-16 19:23:20 -04:00
parent 6a1f33a40a
commit eb758636b3

View file

@ -70,7 +70,7 @@ while(1) {
print pack('LLLL',($sec,$usec,scalar(@data),scalar(@data)+2)); print pack('LLLL',($sec,$usec,scalar(@data),scalar(@data)+2));
@frame = @data[0,1]; @frame = @data[0,1];
print pack ('CC',($frame[1],$frame[0])); print pack ('CC',($frame[1],$frame[0]));
foreach my $data (@data[2..scalar(@data)]) { foreach my $data (@data[2..scalar(@data)-1]) {
print pack ('C',hex($data)); print pack ('C',hex($data));
} }
} }