From 8c5363d3005c702881edbd7068d4ab68d09784ec Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Tue, 13 May 2008 20:09:28 +0000 Subject: TLPOBJ::make_return_hash_from_executes add a new parameter to discern installation from removal git-svn-id: svn://tug.org/texlive/trunk@8113 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPOBJ.pm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm') diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index e5927f358ac..f9fa7942b3c 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -789,6 +789,10 @@ sub allbinfiles { sub make_return_hash_from_executes { my $self = shift; + my $type = shift; + if (!defined($type) || (($type ne "enable") && ($type ne "disable"))) { + die "type for make_return_hash_from_executes must be either enable or disable"; + } my %ret; my (@maps, @formats, @dats); if ($self->runfiles) { @@ -802,7 +806,11 @@ sub make_return_hash_from_executes { } foreach my $e ($self->executes) { if ($e =~ m/^add((Mixed)?Map)\s+([^\s]+)\s*$/) { - push @maps, "enable $1=$3"; + if ($type eq "enable") { + push @maps, "enable $1=$3"; + } else { + push @maps, "disable $3"; + } } elsif ($e =~ m/^BuildFormat\s+([^\s]+)\s*$/) { push @formats, $1; } elsif ($e =~ m/^BuildLanguageDat\s+([^\s]+)\s*$/) { -- cgit v1.2.3