diff options
author | Karl Berry <karl@freefriends.org> | 2008-11-13 23:37:59 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-11-13 23:37:59 +0000 |
commit | 1a157acdcbbeeae8f8bb5fd7d240bd9542bd937f (patch) | |
tree | eac5440ac7e3ae301115573b96e1e26da7732164 /Master/tlpkg/bin/tl-update-nsis | |
parent | 364466d06373afd696811a2e29f0ecfeb7f956b8 (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-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); |