browser: renamed agent keys

[sheet.git] / browser.plp

diff --git a/browser.plp b/browser.plp
index 2776a5b53be0ae9dcd0d92d4d39d5d8072152ca7..8c6b5eddb2ca73a04d2492410317e108000a63b1 100644 (file)
--- a/browser.plp
+++ b/browser.plp
@@ -69,7 +69,7 @@ if (my ($somerow) = values %{ $caniuse->{data} }) {
        }
 }
 my @browsers = grep { $versions{$_} }
-       qw(trident gecko webkit_saf ios_saf webkit_chr android presto op_mob op_mini);
+       qw(trident ie gecko firefox webkit_saf safari ios_saf webkit_chr chrome android presto opera op_mob op_mini);
 
 print <<'';
 <p id="intro">Alternate rendition of Fyrd's <a href="http://caniuse.com/">when can I use...</a> page
@@ -79,7 +79,7 @@ given ($get{usage} // 'wm') {
        when (!$_) {
                # none
        }
-       when (!/^\w+$/) {
+       when (!/^[a-z][\w-]+$/) {
                printf "<p>Invalid browser usage data request: <em>%s</em>",
                        'identifier must be alphanumeric name or <q>0</q>';
        }