git.shiar.nl
/
sheet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
d775cca
)
browser: prevent feature warnings in perl v≥5.18
author
Mischa POSLAWSKY
<perl@shiar.org>
Sat, 14 Feb 2015 18:51:42 +0000
(19:51 +0100)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Sat, 14 Feb 2015 18:51:42 +0000
(19:51 +0100)
browser.plp
patch
|
blob
|
history
diff --git
a/browser.plp
b/browser.plp
index d8ebf86e318ce8e85bddc26e43f7734d6842db35..ad8690f2781e0d4902aae5ac8723befc5e4ae733 100644
(file)
--- a/
browser.plp
+++ b/
browser.plp
@@
-2,6
+2,7
@@
use 5.010;
use utf8;
use List::Util qw(sum max first);
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',
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;
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;
}
}
return $rank;