From 0aac62b0dc64d46b0814e60ba67648cf27d02ce5 Mon Sep 17 00:00:00 2001 From: Reinhard Kotucha Date: Sat, 29 Jan 2011 18:46:59 +0000 Subject: tlpkg/dev/updmap.pl: fix --enable argument parsing. git-svn-id: svn://tug.org/texlive/trunk@21223 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/dev/updmap.pl | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'Master') diff --git a/Master/tlpkg/dev/updmap.pl b/Master/tlpkg/dev/updmap.pl index 72994713476..e8e11766444 100755 --- a/Master/tlpkg/dev/updmap.pl +++ b/Master/tlpkg/dev/updmap.pl @@ -42,7 +42,7 @@ my $quiet; my $nohash; my $nomkmap; -my %enableItem = (); +my $enableItem; my %setOption = (); my @showoptions = (); my @disableItem = (); @@ -934,7 +934,7 @@ sub processOptions { "dvipsoutputdir=s" => \$dvipsoutputdir, "pdftexoutputdir=s" => \$pdftexoutputdir, "setoption=s" => \%setOption, - "enable=s" => \%enableItem, + "enable=s" => \$enableItem, "disable=s" => \@disableItem, "e|edit" => \$opt_edit, "l|listmaps" => \$listmaps, @@ -1334,10 +1334,12 @@ sub main { &setOption ($m, $setOption{$m}); } } - elsif (keys %enableItem) { + elsif ($enableItem) { $cmd = 'enableMap'; - foreach my $m (keys %enableItem) { - &enableMap($m, $enableItem{$m}); + if ($enableItem=~/=/) { + &enableMap(split('=', $enableItem)); + } else { + &enableMap($enableItem, shift @ARGV); } } elsif (@disableItem) { -- cgit v1.2.3