texlive[50002] trunk: jfmutil (11feb19)

[commits+karl at tug.org]

Revision: 50002
          http://tug.org/svn/texlive?view=revision&revision=50002
Author:   karl
Date:     2019-02-11 23:04:43 +0100 (Mon, 11 Feb 2019)
Log Message:
-----------
jfmutil (11feb19)

Modified Paths:
--------------
    trunk/Build/source/texk/texlive/linked_scripts/jfmutil/jfmutil.pl
    trunk/Master/texmf-dist/doc/fonts/jfmutil/README-ja.md
    trunk/Master/texmf-dist/doc/fonts/jfmutil/README.md
    trunk/Master/texmf-dist/scripts/jfmutil/jfmutil.pl
    trunk/Master/tlpkg/libexec/ctan2tds

Modified: trunk/Build/source/texk/texlive/linked_scripts/jfmutil/jfmutil.pl
===================================================================
--- trunk/Build/source/texk/texlive/linked_scripts/jfmutil/jfmutil.pl	2019-02-11 18:22:31 UTC (rev 50001)
+++ trunk/Build/source/texk/texlive/linked_scripts/jfmutil/jfmutil.pl	2019-02-11 22:04:43 UTC (rev 50002)
@@ -2772,8 +2772,8 @@
 #================================================= BEGIN
 use Encode qw(encode decode);
 my $prog_name = 'jfmutil';
-my $version = '1.2.1';
-my $mod_date = '2019/02/08';
+my $version = '1.2.2';
+my $mod_date = '2019/02/09';
 #use Data::Dump 'dump';
 #
 my ($sw_hex, $sw_uptool, $sw_noencout, $inenc, $exenc, $sw_lenient);
@@ -2916,9 +2916,9 @@
   $sw_hex = 1; $sw_uptool = 0;
   while ($ARGV[0] =~ m/^-/) {
     $opt = shift(@ARGV);
-    if ($opt =~ m/--?h(elp)?/) {
+    if ($opt =~ m/^--?h(elp)?$/) {
       show_usage();
-    } elsif ($opt =~ m/-(?:V|-version)?/) {
+    } elsif ($opt =~ m/^-(?:V|-version)?$/) {
       show_version();
     } elsif ($opt eq '--hex') {
       $sw_hex = 1;
@@ -3159,9 +3159,9 @@
   $op_zero = 0; $op_uptex = 0; $op_quiet = 0;
   while ($ARGV[0] =~ m/^-/) {
     my $opt = shift(@ARGV);
-    if ($opt =~ m/--?h(elp)?/) {
+    if ($opt =~ m/^--?h(elp)?$/) {
       main::show_usage();
-    } elsif ($opt =~ m/-(?:V|-version)?/) {
+    } elsif ($opt =~ m/^-(?:V|-version)?$/) {
       main::show_version();
     } elsif ($opt eq '-z' || $opt eq '--zero') {
       $op_zero = 1;

Modified: trunk/Master/texmf-dist/doc/fonts/jfmutil/README-ja.md
===================================================================
--- trunk/Master/texmf-dist/doc/fonts/jfmutil/README-ja.md	2019-02-11 18:22:31 UTC (rev 50001)
+++ trunk/Master/texmf-dist/doc/fonts/jfmutil/README-ja.md	2019-02-11 22:04:43 UTC (rev 50002)
@@ -466,6 +466,9 @@
 更新履歴
 --------
 
+  * Version 1.2.2 〈2019/02/09〉
+      - バグ修正。
+
   * Version 1.2.1 〈2019/02/08〉
       - (試験的) `jodel` コマンドを追加。
 

Modified: trunk/Master/texmf-dist/doc/fonts/jfmutil/README.md
===================================================================
--- trunk/Master/texmf-dist/doc/fonts/jfmutil/README.md	2019-02-11 18:22:31 UTC (rev 50001)
+++ trunk/Master/texmf-dist/doc/fonts/jfmutil/README.md	2019-02-11 22:04:43 UTC (rev 50002)
@@ -85,6 +85,9 @@
 Revision History
 ----------------
 
+  * Version 1.2.2 〈2019/02/09〉
+      - Bug fix.
+
   * Version 1.2.1 〈2019/02/08〉
       - (experimental) Add `jodel` subcommand.
 

Modified: trunk/Master/texmf-dist/scripts/jfmutil/jfmutil.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/jfmutil/jfmutil.pl	2019-02-11 18:22:31 UTC (rev 50001)
+++ trunk/Master/texmf-dist/scripts/jfmutil/jfmutil.pl	2019-02-11 22:04:43 UTC (rev 50002)
@@ -2772,8 +2772,8 @@
 #================================================= BEGIN
 use Encode qw(encode decode);
 my $prog_name = 'jfmutil';
-my $version = '1.2.1';
-my $mod_date = '2019/02/08';
+my $version = '1.2.2';
+my $mod_date = '2019/02/09';
 #use Data::Dump 'dump';
 #
 my ($sw_hex, $sw_uptool, $sw_noencout, $inenc, $exenc, $sw_lenient);
@@ -2916,9 +2916,9 @@
   $sw_hex = 1; $sw_uptool = 0;
   while ($ARGV[0] =~ m/^-/) {
     $opt = shift(@ARGV);
-    if ($opt =~ m/--?h(elp)?/) {
+    if ($opt =~ m/^--?h(elp)?$/) {
       show_usage();
-    } elsif ($opt =~ m/-(?:V|-version)?/) {
+    } elsif ($opt =~ m/^-(?:V|-version)?$/) {
       show_version();
     } elsif ($opt eq '--hex') {
       $sw_hex = 1;
@@ -3159,9 +3159,9 @@
   $op_zero = 0; $op_uptex = 0; $op_quiet = 0;
   while ($ARGV[0] =~ m/^-/) {
     my $opt = shift(@ARGV);
-    if ($opt =~ m/--?h(elp)?/) {
+    if ($opt =~ m/^--?h(elp)?$/) {
       main::show_usage();
-    } elsif ($opt =~ m/-(?:V|-version)?/) {
+    } elsif ($opt =~ m/^-(?:V|-version)?$/) {
       main::show_version();
     } elsif ($opt eq '-z' || $opt eq '--zero') {
       $op_zero = 1;

Modified: trunk/Master/tlpkg/libexec/ctan2tds
===================================================================
--- trunk/Master/tlpkg/libexec/ctan2tds	2019-02-11 18:22:31 UTC (rev 50001)
+++ trunk/Master/tlpkg/libexec/ctan2tds	2019-02-11 22:04:43 UTC (rev 50002)
@@ -2809,7 +2809,7 @@
  'ifsym',       '\.mf|\.gen',
    # no point in making tfm without pk for (black|gray|slant), is there?
  'knuth-lib',   'manfnt\.mf|' . $standardmf,
- 'knuth-local', '(domino|mfman|random|snfont)\.mf',
+ 'knuth-local', '(domino|logo.*[0-9]|mfman|random|snfont)\.mf',
  'logic',       'milstd\.mf',
  'mfpic',       'grafbase\.mf',
  'morse',       'morse10.mf|morse.def',