format triggers

git-svn-id: svn://tug.org/texlive/trunk@38966 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 10 insertions, 3 deletions

diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index edbf11675e6..6fa0736ac53 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -79,7 +79,7 @@ C<TeXLive::TLUtils> -- utilities used in the TeX Live infrastructure
   TeXLive::TLUtils::install_packages($from_tlpdb,$media,$to_tlpdb,$what,$opt_src, $opt_doc)>);
   TeXLive::TLUtils::install_package($what, $filelistref, $target, $platform);
   TeXLive::TLUtils::do_postaction($how, $tlpobj, $do_fileassocs, $do_menu, $do_desktop, $do_script);
-  TeXLive::TLUtils::announce_execute_actions($how, @executes);
+  TeXLive::TLUtils::announce_execute_actions($how, @executes, $what);
   TeXLive::TLUtils::add_symlinks($root, $arch, $sys_bin, $sys_man, $sys_info);
   TeXLive::TLUtils::remove_symlinks($root, $arch, $sys_bin, $sys_man, $sys_info);
   TeXLive::TLUtils::w32_add_to_path($bindir, $multiuser);
@@ -1935,10 +1935,11 @@ sub parse_into_keywords {
   return($error, %ret);
 }
 
-=item C<announce_execute_actions($how, $tlpobj)>
+=item C<announce_execute_actions($how, $tlpobj, $what)>
 
 Announces that the actions given in C<$tlpobj> should be executed
-after all packages have been unpacked.
+after all packages have been unpacked. C<$what> provides 
+additional information.
 
 =cut
 
@@ -1955,6 +1956,12 @@ sub announce_execute_actions {
     $::files_changed = 1;
     return;
   }
+  if (defined($type) && ($type eq "rebuild-format")) {
+    # rebuild-format must feed in a hashref of a parse_AddFormat_line data
+    # the $tlp argument is not used
+    $::execute_actions{'enable'}{'formats'}{$what->{'name'}} = $what; 
+    return;
+  }
   if (!defined($type) || (($type ne "enable") && ($type ne "disable"))) {
     die "announce_execute_actions: enable or disable, not type $type";
   }