browser: parse version array of browsers without usage data
authorMischa POSLAWSKY <perl@shiar.org>
Tue, 29 Mar 2011 19:00:27 +0000 (21:00 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Tue, 10 Apr 2012 01:03:24 +0000 (03:03 +0200)
browser.plp

index c258677..518dee5 100644 (file)
@@ -96,7 +96,8 @@ given ($get{usage} // 'wm') {
 if ($usage) { # first() does not work inside given >:(
        # adapt version usage to actual support data
        my %engineuse;  # prefix => usage sum
-       while (my ($browser, $row) = each %$canihas) {
+       for my $browser (keys %versions) {
+               my $row = $canihas->{$browser} // {};
                my $verlist = $versions{$browser} or next;
                my %supported = map { $_ => 1 } @$verlist;