common: global Data() to parse perl code includes

[sheet.git] / charset.plp

diff --git a/charset.plp b/charset.plp
index 9ab15f1a20764ac55bc1994a01abcf6a1249d266..2eb601f67f6f96aa53672c190802ec2d490ad869 100644 (file)
--- a/charset.plp
+++ b/charset.plp
@@ -5,7 +5,7 @@ my @tablist = split m{/+}, $Request || 'default';
 
 Html({
        title => 'charset cheat sheet',
-       version => '1.2',
+       version => '1.3',
        description => [
                "Reference sheet with all glyphs in common character encoding tables,",
                "and an overview of Unicode ranges and UTF-8 bytes.",
@@ -79,8 +79,7 @@ use Shiar_Sheet::FormatChar;
 my $glyphs = Shiar_Sheet::FormatChar->new;
 my @request;
 
-my $charsets = do 'charset-encoding.inc.pl'
-       or Alert('Encoding metadata could not be read', $@ || $!);
+my $charsets = Data('charset-encoding');
 
 sub tabinput {
        # generate character table(s)