summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm10
1 files changed, 9 insertions, 1 deletions
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*$/) {