diff options
| -rwxr-xr-x | Master/texmf/scripts/tetex/updmap.pl | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/Master/texmf/scripts/tetex/updmap.pl b/Master/texmf/scripts/tetex/updmap.pl index 38d55d1907b..5e1c38e7888 100755 --- a/Master/texmf/scripts/tetex/updmap.pl +++ b/Master/texmf/scripts/tetex/updmap.pl @@ -1,6 +1,6 @@ #!/usr/bin/env perl # mupdmap: utility to maintain map files for outline fonts. -# $Id: updmap.pl 26369 2012-05-14 15:00:53Z preining $ +# $Id: updmap.pl 26537 2012-05-21 13:20:24Z preining $ # # Copyright 2011, 2012 Norbert Preining # This file is licensed under the GNU General Public License version 2 @@ -33,7 +33,7 @@ BEGIN { } -my $version = '$Id: updmap.pl 26369 2012-05-14 15:00:53Z preining $'; +my $version = '$Id: updmap.pl 26537 2012-05-21 13:20:24Z preining $'; use Getopt::Long qw(:config no_autoabbrev ignore_case_always); use strict; @@ -195,11 +195,14 @@ sub main { # # we also determine here where changes will be saved to if ($opts{'cnffile'}) { + my @tmp; for my $f (@{$opts{'cnffile'}}) { if (! -f $f) { die "$prg: Config file \"$f\" not found."; } + push @tmp, (win32() ? lc($f) : $f); } + @{$opts{'cnffile'}} = @tmp; # in case that config files are given on the command line, the first # in the list is the one where changes will be written to. ($changes_config_file) = @{$opts{'cnffile'}}; @@ -207,7 +210,9 @@ sub main { my @all_files = `kpsewhich -all updmap.cfg`; chomp(@all_files); my @used_files; - push @used_files, @all_files; + for my $f (@all_files) { + push @used_files, (win32() ? lc($f) : $f); + } # # reorder used files: since we ship and manage with tlmgr # the file in TEXMFSYSCONFIG, and TEXMFLOCAL has *lower* priority |