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