diff options
| author | Norbert Preining <preining@logic.at> | 2009-06-12 15:14:00 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2009-06-12 15:14:00 +0000 |
| commit | fd892ee03c4703e995221797b257d65380876db3 (patch) | |
| tree | 3fe39080c0f5a5613e1c3c97af962cda30198bd8 /Master | |
| parent | 3a7b4ae33d8676a35278bade6d523c03c630a6a5 (diff) | |
correct computation of revision number of packages after bin package split
we always counted in the bin files for the main package, too.
git-svn-id: svn://tug.org/texlive/trunk@13726 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 1 | ||||
| -rwxr-xr-x | Master/tlpkg/bin/tlpsrc2tlpdb | 5 |
2 files changed, 5 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index 80ba30d23d9..016518bb446 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -253,6 +253,7 @@ sub recompute_revision { my ($self,$tltree, $revtlpsrc) = @_; my @files = $self->all_files; my $filemax = 0; + $self->revision(0); foreach my $f (@files) { $filemax = $tltree->file_svn_lastrevision($f); $self->revision(($filemax > $self->revision) ? $filemax : $self->revision); diff --git a/Master/tlpkg/bin/tlpsrc2tlpdb b/Master/tlpkg/bin/tlpsrc2tlpdb index f664c5e656a..370aa0bbc9f 100755 --- a/Master/tlpkg/bin/tlpsrc2tlpdb +++ b/Master/tlpkg/bin/tlpsrc2tlpdb @@ -113,10 +113,13 @@ sub main # since that might be much smaller, and we don't want to # update every package only because one binary for one arch # was changed - $binobj->revision (0); $binobj->recompute_revision ($tltree, $tltree->file_svn_lastrevision("tlpkg/tlpsrc/$f")); $tldb->add_tlpobj ($binobj); } + # we have to recompute the revision of the package itself + # since the binfiles have been removed and that might lower the + # revision number + $tlp->recompute_revision ($tltree, $tltree->file_svn_lastrevision("tlpkg/tlpsrc/$f")); } } if ($tlp->name eq "00texlive.config") { |