From c524a2904a0184a0df3ecd61ed411ec90a4efe93 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 4 Feb 2015 07:31:17 +0100
Subject: [PATCH 1/1] browser: changed title identifiers in statcounter exports

---
 tools/mkusage-statcounter | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/tools/mkusage-statcounter b/tools/mkusage-statcounter
index 7d699d4..76fac3d 100755
--- a/tools/mkusage-statcounter
+++ b/tools/mkusage-statcounter
@@ -6,6 +6,8 @@ use warnings;
 use Data::Dump 'pp';
 use Text::CSV;
 
+our $VERSION = '1.00';
+
 my %BROWSERID = qw(
 	IE          ie
 	Firefox     firefox
@@ -90,8 +92,10 @@ sub parsecsv {
 
 		my $version = $browser =~ s/ (\d\S*)$// ? $1 : 0;
 		given ($browser) {
-			when (['Browser Version', 'Mobile Browser', 'Mobile vs. Desktop']) {
-				$pct =~ s/^Market Share % // and $count{-date} = $pct;
+			when (['Browser', 'Browser Version', 'Mobile Browser', 'Mobile vs. Desktop', 'Comparison']) {
+				$pct =~ s/^Market Share (?:%|Perc\.) // or break;
+				$pct =~ s/\A\((.*)\)\z/$1/;
+				$count{-date} = $pct;
 			}
 			$browser =~ tr/ /-/;
 			$browser = $_ for $BROWSERID{$browser} // ();
-- 
2.30.0