charset: persistent data of unicode cell include

Avoid multiple loads of same data in unicode preset.

diff --git a/charset-encoding.inc.pl b/charset-encoding.inc.pl
index ec53ef54ac66b8dc0c825b76f8090ded15a7fbba..6e4647780af002ea8992d4ae4c805894adf9c974 100644 (file)
--- a/charset-encoding.inc.pl
+++ b/charset-encoding.inc.pl
@@ -188,8 +188,9 @@ use utf8;
        }},
        u              => {setup => sub {
                my $row = shift;
-               $row->{cell} = do 'charset-unicode.inc.pl'
+               state $celldata = do 'charset-unicode.inc.pl'
                        or Alert('Table data could not be read', $@ || $!);
+               $row->{cell} = $celldata;
 
                $row->{endpoint} ||= 0x1FFF;
                $row->{set} = 'Unicode ' . (