Silence warnings if there are <10 transactions

This commit is contained in:
Juerd Waalboer 2022-12-25 01:01:12 +01:00
parent 8998566068
commit e748566913

View file

@ -80,7 +80,7 @@ sub log_for :Tab(USERS) ($self, $cart, $input, @) {
sub _recent($n, $u) {
$n += 0;
print "Last $n transactions for $u:\n";
print +(_grep($u))[-$n .. -1];
print grep defined, +(_grep($u))[-$n .. -1];
}
sub balance($self, $u) {