- my @info = do "emoji-$system.inc.pl";
- my $meta = shift @info or die $@;
- ref $meta eq 'HASH' or die "invalid $system definitions";
+ my @info = Data("emoji-$system");
+ my $meta = shift @info;
+ ref $meta eq 'HASH' or Abort("Invalid $system definitions", 404);