From 19420d8dd160ff036401c4d245e54712f5d59b7e Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 14 Feb 2015 19:51:42 +0100
Subject: [PATCH] =?utf8?q?browser:=20prevent=20feature=20warnings=20in=20p?=
 =?utf8?q?erl=20v=E2=89=A55.18?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

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

diff --git a/browser.plp b/browser.plp
index d8ebf86..ad8690f 100644
--- a/browser.plp
+++ b/browser.plp
@@ -2,6 +2,7 @@
 use 5.010;
 use utf8;
 use List::Util qw(sum max first);
+no if $] >= 5.018, warnings => 'experimental::smartmatch';
 
 Html({
 	title => 'browser compatibility cheat sheet',
@@ -268,8 +269,8 @@ sub featurescore {
 		if ($canihas) {
 			while (my ($browser, $versions) = each %$row) {
 				ref $versions eq 'HASH' or next;
-				while (my ($version, $_) = each %$versions) {
-					$rank += ($canihas->{$browser}->{$version} || .001) * $PSTATS{$_};
+				while (my ($version, $status) = each %$versions) {
+					$rank += ($canihas->{$browser}->{$version} || .001) * $PSTATS{$status};
 				}
 			}
 			return $rank;
-- 
2.30.0