git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
word: prefer reference image id in exportform rows
[sheet.git]
/
emoji.plp
diff --git
a/emoji.plp
b/emoji.plp
index 2a546b406efe045351345a9e558852ba7735861a..41e4c129f0b4170a6234e6e52e8870dab4d45769 100644
(file)
--- a/
emoji.plp
+++ b/
emoji.plp
@@
-23,7
+23,7
@@
say '<div class="section">';
for my $system (qw'gmail msn yahoo') {
my @info = do "emoji-$system.inc.pl";
my $meta = shift @info or die $@;
for my $system (qw'gmail msn yahoo') {
my @info = do "emoji-$system.inc.pl";
my $meta = shift @info or die $@;
- ref $meta eq 'HASH' or
die "invalid $system definitions"
;
+ ref $meta eq 'HASH' or
Abort("Invalid $system definitions", 404)
;
my $title = $meta->{name} // $system;
$title = showlink($title, $_) for $meta->{source} || ();
my $title = $meta->{name} // $system;
$title = showlink($title, $_) for $meta->{source} || ();
@@
-32,7
+32,7
@@
for my $system (qw'gmail msn yahoo') {
for (my $i = 0; $i <= $#info; $i++) {
my $name = $info[$i];
unless (ref $info[$i+1] eq 'ARRAY') {
for (my $i = 0; $i <= $#info; $i++) {
my $name = $info[$i];
unless (ref $info[$i+1] eq 'ARRAY') {
- say
sprintf '</table><table><tbody>', $name
;
+ say
'</table><table><tbody>'
;
next;
}
my ($input, $flags, $char, $desc) = @{ $info[++$i] };
next;
}
my ($input, $flags, $char, $desc) = @{ $info[++$i] };