From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 14 Feb 2015 18:51:42 +0000 (+0100)
Subject: browser: prevent feature warnings in perl v≥5.18
X-Git-Tag: v1.7~151
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/19420d8dd160ff036401c4d245e54712f5d59b7e

browser: prevent feature warnings in perl v≥5.18
---

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;