summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-update-nsis
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-10-11 21:46:42 +0000
committerNorbert Preining <preining@logic.at>2008-10-11 21:46:42 +0000
commit754ae4b777d0b315d79fc39ad39781cfa006794f (patch)
tree92db208e76ce0493246e3340bda6ae336d6f2962 /Master/tlpkg/bin/tl-update-nsis
parente0f2c4551fa5879bea03f6fb51ce9696a43b210f (diff)
create and include the tlpobjs
git-svn-id: svn://tug.org/texlive/trunk@10928 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tl-update-nsis')
-rwxr-xr-xMaster/tlpkg/bin/tl-update-nsis17
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";