summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-update-nsis
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-11-13 23:37:59 +0000
committerKarl Berry <karl@freefriends.org>2008-11-13 23:37:59 +0000
commit1a157acdcbbeeae8f8bb5fd7d240bd9542bd937f (patch)
treeeac5440ac7e3ae301115573b96e1e26da7732164 /Master/tlpkg/bin/tl-update-nsis
parent364466d06373afd696811a2e29f0ecfeb7f956b8 (diff)
(main): do max $rev computation correctly (hopefully).
git-svn-id: svn://tug.org/texlive/trunk@11291 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tl-update-nsis')
-rwxr-xr-xMaster/tlpkg/bin/tl-update-nsis15
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);