- unless ($sd->[7] eq $main::mycall) {
- $thing->{t} = sprintf("%X", $sd->[2] / 60);
- $thing->{o} = $sd->[7];
- }
+ my $t = int($sd->[2] / 60);
+ $thing->{t} = sprintf("%X", $t) unless $t eq int($main::systime / 60);
+ $thing->{o} = $sd->[7] unless $sd->[7] eq $main::mycall;