summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-update-nsis
diff options
context:
space:
mode:
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";