diff options
author | Norbert Preining <preining@logic.at> | 2009-06-08 14:57:10 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-06-08 14:57:10 +0000 |
commit | 95eb7ead780f7de930d678a7ba295b27fa6d587e (patch) | |
tree | 6d06b40304d8b7a7c3dabda132d982900c73b7ed /Master/tlpkg/TeXLive/TLPOBJ.pm | |
parent | de09651f8c907cf30b668e414ff9da7b1f232a6e (diff) |
rework execute action handling so that it actually works, hopefully
that means that:
- handle_ret_hash is renamed to handle_execute_actions
- make_ret_hash_from_execute is gone and replaced by
TLUtils::announce_execute_actions
git-svn-id: svn://tug.org/texlive/trunk@13671 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index f86195252ee..10db4ff062a 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -893,47 +893,6 @@ sub allbinfiles { return @ret; } -sub make_return_hash_from_executes { - my $self = shift; - my $type = shift; - if (!defined($type) || (($type ne "enable") && ($type ne "disable"))) { - die "make_return_hash_from_executes: enable or disable, not type $type"; - } - my %ret; - my (@maps, @formats, @dats); - if ($self->runfiles) { - $ret{'mktexlsr'} = 1; - } - if ($self->srcfiles) { - $ret{'mktexlsr'} = 1; - } - if ($self->docfiles) { - $ret{'mktexlsr'} = 1; - } - foreach my $e ($self->executes) { - if ($e =~ m/^add((Mixed)?Map)\s+([^\s]+)\s*$/) { - if ($type eq "enable") { - push @maps, "enable $1=$3"; - } else { - push @maps, "disable $3"; - } - } elsif ($e =~ m/^AddFormat\s+(.*)\s*$/) { - push @formats, $1; - } elsif ($e =~ m/^AddHyphen\s+(.*)\s*$/) { - push @dats, $1; - } else { - tlwarn("Unknown execute $e in ", $self->name, "\n"); - } - } - $ret{'map'} = [ @maps ] if (@maps); - $ret{'format'} = [ @formats ] if (@formats); - $ret{'language'} = [ @dats ] if (@dats); - return(\%ret); -} - - - - # # execute stuff # |