common: global Data() to parse perl code includes

[sheet.git] / charset.plp

diff --git a/charset.plp b/charset.plp
index eb23d7ebe7b3a73b97e161ed25774e5efc3c900a..2eb601f67f6f96aa53672c190802ec2d490ad869 100644 (file)
--- a/charset.plp
+++ b/charset.plp
@@ -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)