diff options
| author | Karl Berry <karl@freefriends.org> | 2019-02-11 22:04:43 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2019-02-11 22:04:43 +0000 |
| commit | 7cfff294bffe3ca9370153cb8f9417d37cfa3a19 (patch) | |
| tree | 088d5c6f8865b3da3effba367df1afa2c547b4cf /Build/source/texk | |
| parent | f9c51627d8c29175d94c5f6369819e6d5ba5d680 (diff) | |
jfmutil (11feb19)
git-svn-id: svn://tug.org/texlive/trunk@50002 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk')
| -rwxr-xr-x | Build/source/texk/texlive/linked_scripts/jfmutil/jfmutil.pl | 12 |
1 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 3b4b5b76bc0..179275068c6 100755 --- a/Build/source/texk/texlive/linked_scripts/jfmutil/jfmutil.pl +++ b/Build/source/texk/texlive/linked_scripts/jfmutil/jfmutil.pl @@ -2772,8 +2772,8 @@ package main; #================================================= 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 @@ sub read_option { $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 @@ sub read_option { $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; |