browser: new browsers, optional

[sheet.git] / browser.plp

diff --git a/browser.plp b/browser.plp
index ce56bdb0ddd10bc6b1af74b0f42d1937eae57495..a4af5348dda1d039fae696f7b1d9b18bc79b3873 100644 (file)
--- a/browser.plp
+++ b/browser.plp
@@ -43,13 +43,14 @@ my %CSTATUS = (
        rec   => 'l6', # recommendation
        ietf  => 'l6', # standard
 );
-my @browsers = qw(trident gecko webkit_saf webkit_chr presto);
 my %versions;
 if (my ($somerow) = values %{ $caniuse->{data} }) {
        while (my ($browser, $row) = each %{ $somerow->{stats} }) {
                $versions{$browser} = [ sort { paddedver($a) cmp paddedver($b) } keys %$row ];
        }
 }
+my @browsers = grep { $versions{$_} }
+       qw(trident gecko webkit_saf ios_saf webkit_chr android presto op_mob op_mini);
 
 my $canihas = do 'browser-usage.inc.pl' || do {
        printf "<p>Browser usage data not found: <em>%s</em>.</p>\n", $_