summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/jfmutil/jfmutil.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/scripts/jfmutil/jfmutil.pl')
-rwxr-xr-xMaster/texmf-dist/scripts/jfmutil/jfmutil.pl10
1 files changed, 5 insertions, 5 deletions
diff --git a/Master/texmf-dist/scripts/jfmutil/jfmutil.pl b/Master/texmf-dist/scripts/jfmutil/jfmutil.pl
index 5243ba75da1..63835b85b69 100755
--- a/Master/texmf-dist/scripts/jfmutil/jfmutil.pl
+++ b/Master/texmf-dist/scripts/jfmutil/jfmutil.pl
@@ -2,7 +2,7 @@
#
# This is file 'jfmutil.pl'.
#
-# Copyright (c) 2017 Takayuki YATO (aka. "ZR")
+# Copyright (c) 2018 Takayuki YATO (aka. "ZR")
# GitHub: https://github.com/zr-tex8r
# Twitter: @zr_tex8r
#
@@ -12,8 +12,8 @@ use strict;
#------------------------------------------------- ZRTeXtor module
package ZRTeXtor;
-our $VERSION = 1.004_00;
-our $mod_date = "2017/07/17";
+our $VERSION = 1.004_01;
+our $mod_date = "2018/01/20";
use Encode qw(encode decode);
# Here follows excerpt from ZRTeXtor.pm
@@ -1343,8 +1343,8 @@ sub vf_parse
#-- give a cooked list for efficiency
#$pe = pl_cook(['CHARACTER', 'C', 0,
# ['CHARWD', 'R', 0], undef]);
- $pe = (['CHARACTER', [CNUM, 'C', 0], 0,
- ['CHARWD', [CNUM, 'R', 0], 0], undef]);
+ $pe = (['CHARACTER', [CNUM, 0, 'C'], 0,
+ ['CHARWD', [CNUM, 0, 'R'], 0], undef]);
if (defined($t = vf_dvi_parse($u))) { $pe->[4] = $t; }
elsif (!$swdh) {
return vf_synerror("illegal dvi code (char $fs[2])");