browser: future version numbers marked .ex

diff --git a/browser.plp b/browser.plp
index 2acb027ab34ba008f63a36a215094170c32f9be3..d6291cb69d74f5948be7819540365aeea5d31299 100644 (file)
--- a/browser.plp
+++ b/browser.plp
@@ -42,6 +42,10 @@ given ($get{usage} // 'wm') {
 <div id="browser">
 <:
 my $caniuse = do 'browser-support.inc.pl' or die $! || $@;
+$_->{verrelease} = {
+       # mark last two (future) versions as unreleased, ensure current isn't
+       map { $_->[-1] => 0, $_->[-2] => 0, $_->[-3] => undef } $_->{versions}
+} for values %{ $caniuse->{agents} };
 
 my %CSTATS = (
        'n'   => 'l1',
@@ -113,8 +117,12 @@ print '<thead>', $header;
 print "\n<tr>";
 print '<td>' x 3;
 for my $browser (@browsers) {
-       printf('<td title="%.1f%%">%s',
-               $canihas->{$browser}->{$_}, showversions($_),
+       printf('<td title="%.1f%%"%s>%s',
+               $canihas->{$browser}->{$_},
+               (map {
+                       defined $_ && !$_ && ' class="ex"'
+               } $caniuse->{agents}->{$browser}->{verrelease}->{$_}),
+               showversions($_),
        ) for @{ $versions{$browser} };
 }
 print '<td>' x 1;