From b690e02814ec7b65b10789fac83cd7c8b2b72b30 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 22 Apr 2017 15:27:54 +0200
Subject: [PATCH] charset: persistent data of unicode cell include

Avoid multiple loads of same data in unicode preset.
---
 charset-encoding.inc.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/charset-encoding.inc.pl b/charset-encoding.inc.pl
index ec53ef5..6e46477 100644
--- 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 ' . (
-- 
2.30.0