From 754ae4b777d0b315d79fc39ad39781cfa006794f Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sat, 11 Oct 2008 21:46:42 +0000 Subject: create and include the tlpobjs git-svn-id: svn://tug.org/texlive/trunk@10928 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/tl-update-nsis | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) (limited to 'Master/tlpkg/bin/tl-update-nsis') 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"; -- cgit v1.2.3