From 9cc2512f2fbaf5ee2f423104edd65937a01d8fce Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 29 Mar 2011 21:00:27 +0200
Subject: [PATCH] browser: parse version array of browsers without usage data

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

diff --git a/browser.plp b/browser.plp
index c258677..518dee5 100644
--- a/browser.plp
+++ b/browser.plp
@@ -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;
 
-- 
2.30.0