From bfdd522492dbe05861569104e131fd8c1d3cad61 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 8 Dec 2010 23:32:59 +0100
Subject: [PATCH] browser: fix duplicate versions in total browser usage

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

diff --git a/browser.plp b/browser.plp
index 19011ab..02e7e0b 100644
--- a/browser.plp
+++ b/browser.plp
@@ -99,9 +99,10 @@ if ($usage) {
 		$row->{$_} //= undef for @$verlist;  # ensure stable keys during iteration
 		while (my ($version, $usage) = each %$row) {
 			next if defined $supported{$version};
-			$_ = paddedver($_) for $version;
-			my $next = first { paddedver($_) ge $version } @$verlist; # or next
+			my $next = first { paddedver($_) ge paddedver($version) } @$verlist
+				or warn("No fallback found for $browser v$version; $usage% ignored"), next;
 			$row->{$next} += $usage;
+			$row->{$version} = 0;  # balance browser total
 		}
 	}
 }
-- 
2.30.0