create and include the tlpobjs

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

1 files changed, 17 insertions, 0 deletions

diff --git a/Master/tlpkg/bin/tl-update-nsis b/Master/tlpkg/bin/tl-update-nsis
index d7e23b31421..558237169f4 100755
--- a/Master/tlpkg/bin/tl-update-nsis
+++ b/Master/tlpkg/bin/tl-update-nsis
@@ -23,6 +23,7 @@ use TeXLive::TLPDB;
 use Getopt::Long;
 use Pod::Usage;
 use File::Path;
+use Cwd;
 
 my $help = 0;
 
@@ -44,6 +45,7 @@ sub main
   my $texliveinfra = $tlpdb->get_package("texlive.infra");
   my $texliveinfraw32 = $tlpdb->get_package("texlive.infra.win32");
   my %dirtofiles;
+  my $tlpobjdir = "$InfraLocation/tlpobj";
   my @allfiles;
   push @allfiles, $bintexlive->all_files;
   push @allfiles, $bintexlivew32->all_files if defined $bintexlivew32;
@@ -55,6 +57,21 @@ sub main
   }
   $rev = ( $rev > $texliveinfra->revision ? $rev : $texliveinfra->revision );
   $rev = ( $rev > $texliveinfraw32->revision ? $rev : $texliveinfraw32->revision );
+  # we have to create the tlpobj files, too
+  chdir($Master);
+  my $removetlpobjdir = 0;
+  if (! -d "$tlpobjdir") {
+    &TeXLive::TLUtils::mkdirhier("$tlpobjdir");
+    $removetlpobjdir = 1;
+  }
+  for my $p ($bintexlive, $bintexlivew32, $texliveinfra, $texliveinfraw32) {
+    if (defined $p) {
+   	  open(TMP,">$tlpobjdir/$p->{'name'}.tlpobj") or die "Cannot create $tlpobjdir/$p->{'name'}.tlpobj";
+      $p->writeout(\*TMP);
+      close(TMP);
+      push @allfiles, "$tlpobjdir/$p->{'name'}.tlpobj";
+    }
+  }
   for my $f (@allfiles) {
     if ($f !~ m!/!) {
       $f = "./$f";