git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
keyboard/altgr: fix missing char info from array definitions
[sheet.git]
/
browser.plp
diff --git
a/browser.plp
b/browser.plp
index c32e808445eac2a1b3de582a5db0c1ae4dcf6012..fe96312f6d74afcab57c1598be1e6177a8006689 100644
(file)
--- a/
browser.plp
+++ b/
browser.plp
@@
-1,6
+1,5
@@
<(common.inc.plp)><:
use List::Util qw(sum max first);
<(common.inc.plp)><:
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',
@@
-83,19
+82,19
@@
say '<p id="intro">Alternate rendition of '.$ref;
my ($canihas, $usage);
my $minusage = $get{threshold} // 1;
my ($canihas, $usage);
my $minusage = $get{threshold} // 1;
-given ($get{usage} // 'wm') {
- when (!$_) {
- # none
- }
- when (!m{ \A [a-z]\w+ (?:/\d[\d-]*\d)? \z }x) {
+for ($get{usage} // 'wm') {
+ $_ or next; # none
+ unless (m{ \A [a-z]\w+ (?:/\d[\d-]*\d)? \z }x) {
Alert([
'Invalid browser usage data request',
'Identifier must be alphanumeric name or <q>0</q>.',
]);
Alert([
'Invalid browser usage data request',
'Identifier must be alphanumeric name or <q>0</q>.',
]);
+ next;
}
}
+
$canihas = eval { Data("data/browser/usage-$_") } or do {
$canihas = eval { Data("data/browser/usage-$_") } or do {
- Alert('Browser usage data not found', $@);
-
break
;
+ Alert('Browser usage data not found',
ref $@ ? @{$@} :
$@);
+
next
;
};
$usage = $_;
my $ref = $canihas->{-title} || 'unknown';
};
$usage = $_;
my $ref = $canihas->{-title} || 'unknown';