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 = 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>';