diff options
Diffstat (limited to 'fonts/utilities/jfmutil/jfmutil.pl')
-rw-r--r-- | fonts/utilities/jfmutil/jfmutil.pl | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/fonts/utilities/jfmutil/jfmutil.pl b/fonts/utilities/jfmutil/jfmutil.pl index c1fe8ca727..a3a93c8516 100644 --- a/fonts/utilities/jfmutil/jfmutil.pl +++ b/fonts/utilities/jfmutil/jfmutil.pl @@ -12,8 +12,8 @@ use strict; #------------------------------------------------- ZRTeXtor module package ZRTeXtor; -our $VERSION = 1.008_00; -our $mod_date = "2021/05/29"; +our $VERSION = 1.008_01; +our $mod_date = "2021/10/09"; use Encode qw(encode decode); # Here follows excerpt from ZRTeXtor.pm @@ -1373,13 +1373,15 @@ 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 = 2; push(@$pl, $pe); - } elsif ($stg == 2 && $t == 248) { # post + $stg = 1; push(@$pl, $pe); + } elsif ($stg <= 2 && $t == 248) { # post (($u = substr($dat, $pos, $t)) =~ /^\xf8+$/) or return vf_synerror("in postamble"); + $stg = 3; last; } else { return vf_synerror("unexpected byte $t"); } } + ($swdh || $stg == 3) or return vf_synerror("premature end"); return $pl; } @@ -2781,8 +2783,8 @@ package main; #================================================= BEGIN use Encode qw(encode decode); my $prog_name = 'jfmutil'; -my $version = '1.3.2'; -my $mod_date = '2021/05/29'; +my $version = '1.3.3'; +my $mod_date = '2021/10/09'; #use Data::Dump 'dump'; # my ($sw_hex, $sw_uptool, $sw_noencout, $inenc, $exenc, $sw_lenient); |