summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/ucs/makeunidef.pl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2022-08-13 21:20:49 +0000
committerKarl Berry <karl@freefriends.org>2022-08-13 21:20:49 +0000
commit58e01b753b14b57964ffe034d014afd69ec340e0 (patch)
tree9d81c1227a6bd195b307cf5c89cd65d0a383233a /Master/texmf-dist/doc/latex/ucs/makeunidef.pl
parent212a3bb38611558d015360417e6cf25c8416e26c (diff)
ucs (13aug22)
git-svn-id: svn://tug.org/texlive/trunk@64114 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/ucs/makeunidef.pl')
-rwxr-xr-xMaster/texmf-dist/doc/latex/ucs/makeunidef.pl9
1 files changed, 6 insertions, 3 deletions
diff --git a/Master/texmf-dist/doc/latex/ucs/makeunidef.pl b/Master/texmf-dist/doc/latex/ucs/makeunidef.pl
index f5cb7b13690..2a8dc31a249 100755
--- a/Master/texmf-dist/doc/latex/ucs/makeunidef.pl
+++ b/Master/texmf-dist/doc/latex/ucs/makeunidef.pl
@@ -440,8 +440,10 @@ sub openfile ($$$%) {
$file = $devnull; }
print $file "$header\n";
my @date = localtime;
- my $date = sprintf "%04d/%02d/%02d",
- $date[5]+1900, $date[4]+1, $date[3];
+# fix to match advertised ucs package date
+# my $date = sprintf "%04d/%02d/%02d",
+# $date[5]+1900, $date[4]+1, $date[3]
+ my $date="2022/08/07";
my $basename = $filename; $basename =~ s@.*/@@;
print $file "\\ifx\\ProvidesFile\\undefined\\else
\\ProvidesFile{$basename}[$date UCS: $description]%
@@ -980,7 +982,8 @@ EOT
my %tablecode = ();
for (my $i=$start; $i<=$end; $i++) {
my @chars = ();
- @chars = @{$characters[$i]} if defined @{$characters[$i]};
+ # https://stackoverflow.com/a/41983753/1158383
+ @chars = @{$characters[$i]} if @{$characters[$i]};
my $entry = ($unidata[$i])?"\\noglyph":"\\unassigned";
my $found = 0;
my $hasctrlglyph = undef;