diff options
| author | Karl Berry <karl@freefriends.org> | 2021-06-09 20:29:22 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2021-06-09 20:29:22 +0000 |
| commit | 12f046242f4ab1d9e66272b675b62d16303de316 (patch) | |
| tree | 50fd0134f78c5f58698a6b927010b678439b4184 /Build | |
| parent | 9fa5900b00d781aa12ad98b7c5203796ae2b1dc8 (diff) | |
jfmutil (9jun21)
git-svn-id: svn://tug.org/texlive/trunk@59530 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
| -rwxr-xr-x | Build/source/texk/texlive/linked_scripts/jfmutil/jfmutil.pl | 10 | ||||
| -rwxr-xr-x | Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl | 2 |
2 files changed, 6 insertions, 6 deletions
diff --git a/Build/source/texk/texlive/linked_scripts/jfmutil/jfmutil.pl b/Build/source/texk/texlive/linked_scripts/jfmutil/jfmutil.pl index d527eddfdbd..c1fe8ca7275 100755 --- a/Build/source/texk/texlive/linked_scripts/jfmutil/jfmutil.pl +++ b/Build/source/texk/texlive/linked_scripts/jfmutil/jfmutil.pl @@ -12,8 +12,8 @@ use strict; #------------------------------------------------- ZRTeXtor module package ZRTeXtor; -our $VERSION = 1.007_00; -our $mod_date = "2019/09/02"; +our $VERSION = 1.008_00; +our $mod_date = "2021/05/29"; use Encode qw(encode decode); # Here follows excerpt from ZRTeXtor.pm @@ -1373,7 +1373,7 @@ sub vf_parse pl_set_value($pe->[7], 1, $fs[4]); pl_set_value($pe, 1, unpack_num($fs[1])); if ($fs[5] eq '') { splice(@$pe, 3, 1); } - $stg = 1; push(@$pl, $pe); + $stg = 2; push(@$pl, $pe); } elsif ($stg == 2 && $t == 248) { # post (($u = substr($dat, $pos, $t)) =~ /^\xf8+$/) or return vf_synerror("in postamble"); @@ -2781,8 +2781,8 @@ package main; #================================================= BEGIN use Encode qw(encode decode); my $prog_name = 'jfmutil'; -my $version = '1.3.1'; -my $mod_date = '2020/05/04'; +my $version = '1.3.2'; +my $mod_date = '2021/05/29'; #use Data::Dump 'dump'; # my ($sw_hex, $sw_uptool, $sw_noencout, $inenc, $exenc, $sw_lenient); diff --git a/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl b/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl index 07fac213c32..86682dcb637 100755 --- a/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl +++ b/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl @@ -853,7 +853,7 @@ sub do_cmd_and_check { $out =~ s/\n+$//; # trailing newlines don't seem interesting my $outmsg = "output:\n$out\n--end of output of $cmd.\n"; if ($ret == $F_OK) { - info("done running $cmd.\n"); + info("done running $cmd.\n") unless $cmd =~ /^fmtutil/; logcommand("success, $outmsg"); ddebug("$cmd $outmsg"); return ($F_OK); |