sub paddedver {
# normalised version number comparable as string (cmp)
- shift =~ /^(\d*)(.*)/;
+ shift =~ /(?:.*-|^)(\d*)(.*)/;
+ # matched (major)(.minor) of last value in range (a-B)
return sprintf('%02d', $1 || 0) . $2;
}
for (@span) {
s/^\./0./;
s/x$/.*/;
+ s/-.*//;
}
return join('‒', @span);
}