sub showversions {
# title to describe minumum version and optional maximum for multiple cells
my @span = (map { split /-/ } grep { defined } @_);
- return $span[0] if @_ <= 1;
+ return $span[0] =~ s/\.0\z//r if @_ <= 1;
splice @span, 1, -1;
return join('‒', @span);
}