browser: maximum version number in range end
authorMischa POSLAWSKY <perl@shiar.org>
Thu, 9 Dec 2010 01:22:41 +0000 (02:22 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Wed, 15 Dec 2010 21:40:44 +0000 (22:40 +0100)
browser.plp

index b2a7867fd7a402b64bfd45971c3abf88bbd526a8..aaafa038cafb70129c858b60ab5f4f819ce43186 100644 (file)
@@ -329,10 +329,11 @@ sub paddedver {
 
 sub showversions {
        my @span = ($_[0], @_>1 ? $_[-1] : ());
+       s/-.*// for $span[0];
        for (@span) {
                s/^\./0./;
                s/x$/.*/;
-               s/-.*//;
+               s/.*-//;
        }
        return join('‒', @span);
 }