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:
parent
6a1f33a40a
commit
eb758636b3
|
@ -70,7 +70,7 @@ while(1) {
|
|||
print pack('LLLL',($sec,$usec,scalar(@data),scalar(@data)+2));
|
||||
@frame = @data[0,1];
|
||||
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));
|
||||
}
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue