diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/ucs/makeunidef.pl')
-rwxr-xr-x | Master/texmf-dist/doc/latex/ucs/makeunidef.pl | 9 |
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; |