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));
|
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));
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue