git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
vi: specific version and extension classes
[sheet.git]
/
emoji.plp
diff --git
a/emoji.plp
b/emoji.plp
index ac3be58a841a93def0e8c03a1cc70e5ae2f5c79b..1f4bf0161be18bb400318d3d66b454a60b6d81e6 100644
(file)
--- a/
emoji.plp
+++ b/
emoji.plp
@@
-23,9
+23,9
@@
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;
my $title = $meta->{name} // $system;
- $title =
qq{<a href="$_">$title</a>}
for $meta->{source} || ();
+ $title =
showlink($title, $_)
for $meta->{source} || ();
say sprintf '<div class="section"><h2>%s</h2>', $meta->{name} // $system;
say '<table><tbody>';
say sprintf '<div class="section"><h2>%s</h2>', $meta->{name} // $system;
say '<table><tbody>';