|
@@ -190,7 +190,7 @@ sub mark($$$) {
|
|
|
my ($Flag,$I,$state)=@_;
|
|
my ($Flag,$I,$state)=@_;
|
|
|
my $M=sprintf('%02d', scalar @ACKS % 100);
|
|
my $M=sprintf('%02d', scalar @ACKS % 100);
|
|
|
my $N=sprintf('%02d', $I % 100);
|
|
my $N=sprintf('%02d', $I % 100);
|
|
|
- if ($I < scalar @ACKS) {
|
|
|
|
|
|
|
+ if (($I == 0) && (scalar @ACKS == 0)) {
|
|
|
return "[".$C{W}.$Flag.$C{Z}." ]/$M ";
|
|
return "[".$C{W}.$Flag.$C{Z}." ]/$M ";
|
|
|
} else {
|
|
} else {
|
|
|
return "[".$C{W}.$Flag.$state_to_color->{$state}.$N.$C{Z}."]/$M ";
|
|
return "[".$C{W}.$Flag.$state_to_color->{$state}.$N.$C{Z}."]/$M ";
|
