From fe2afa53dfb9a89386d31bd3fd80f4bfdfa16030 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 5 Dec 2010 19:05:24 +0100
Subject: [PATCH] browser: new browsers, optional

---
 browser.plp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/browser.plp b/browser.plp
index ce56bdb..a4af534 100644
--- 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", $_
-- 
2.30.0