timing bug, input sequence bug
git-svn-id: http://repo.ham.fi/svn/aprsc/trunk@80 3ce903b1-3385-4e86-93cd-f9a4a239f7ac
This commit is contained in:
parent
49dbe8236a
commit
1e40156be9
|
|
@ -53,10 +53,10 @@ while (! $quit && $now < $last) {
|
|||
$line = $APRSIS->getline;
|
||||
|
||||
if ($now > $next) {
|
||||
$now += 5;
|
||||
$next += 5;
|
||||
last if ($#pkts < 0);
|
||||
|
||||
$APRSIS->sendline(pop @pkts);
|
||||
$APRSIS->sendline(shift @pkts);
|
||||
}
|
||||
|
||||
next if (!defined $line);
|
||||
|
|
|
|||
Loading…
Reference in New Issue