diff options
| -rwxr-xr-x | Master/tlpkg/bin/tl-update-nsis | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/Master/tlpkg/bin/tl-update-nsis b/Master/tlpkg/bin/tl-update-nsis index 962be7c47d4..a1acbd56ebc 100755 --- a/Master/tlpkg/bin/tl-update-nsis +++ b/Master/tlpkg/bin/tl-update-nsis @@ -50,24 +50,19 @@ sub main push @allfiles, $texliveinfra->all_files; push @allfiles, $texliveinfraw32->all_files if defined $texliveinfraw32; - # get highest rev of all these packages. - my $rev = $bintexlive->revision; - if (defined($bintexlivew32)) { - $rev = $bintexlivew32->revision if $rev > $bintexlivew32->revision; - } - $rev = $texliveinfra->revision if $rev > $texliveinfra->revision; - if (defined($texliveinfraw32)) { - $rev = $texliveinfraw32->revision if $rev > $texliveinfraw32->revision; - } - # we have to create the tlpobj files, too + # create the tlpobj files my $tlpobjdir = "$InfraLocation/tlpobj"; my $removetlpobjdir = 0; if (! -d "$Master/$tlpobjdir") { &TeXLive::TLUtils::mkdirhier("$Master/$tlpobjdir"); $removetlpobjdir = 1; } + my $rev = 0; # we want the highest rev all these packages. for my $p ($bintexlive, $bintexlivew32, $texliveinfra, $texliveinfraw32) { if (defined $p) { + if ($p->revision > $rev) { + $rev = $p->revision; + } open(TMP,">$Master/$tlpobjdir/$p->{'name'}.tlpobj") or die "Cannot create $Master/$tlpobjdir/$p->{'name'}.tlpobj"; $p->writeout(\*TMP); close(TMP); |