tlmgr.pl: add _include_tlpobj action, and activate it in the win32 updater

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

1 files changed, 10 insertions, 2 deletions

diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index dd7f4ed7266..28e6f4ce48c 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -99,7 +99,15 @@ if ($^O=~/^MSWin(32|64)$/i) {
 my $loadmediasrcerror = "Cannot load TeX Live Database from ";
 my %ret;
 
-if ($action =~ m/^generate$/i) {
+if ($action =~ m/^_include_tlpobj$/) {
+  # this is an internal function that should not be used outside
+  init_local_db();
+  my $tlpobj = TeXLive::TLPOBJ->new;
+  $tlpobj->from_file($ARGV[0]);
+  $localtlpdb->add_tlpobj($tlpobj);
+  $localtlpdb->save;
+  exit(0);
+} elsif ($action =~ m/^generate$/i) {
   merge_into(\%ret, action_generate());
 } elsif ($action =~ m/^gui$/i) {
   action_gui();
@@ -678,7 +686,7 @@ EOF
               print UPDATER <<EOF;
 tlpkg\\installer\\lzma\\lzmadec.win32.exe  < temp\\$pkg.tar.lzma > temp\\$pkg.tar
 tlpkg\\installer\\tarsave.exe -x -f temp\\$pkg.tar
-rem tlmgr include_tlpobj tlpobj\\$pkg.tlpobj
+tlmgr _include_tlpobj tlpkg\\tlpobj\\$pkg.tlpobj
 EOF
 ;
             }