diff options
author | Norbert Preining <preining@logic.at> | 2007-11-07 08:20:36 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2007-11-07 08:20:36 +0000 |
commit | 1c52ac9208bfcce5ea0e8979609988897125a729 (patch) | |
tree | 607db9a8356a4bae11d67c4f2ffa6b2565bde4e9 /Master/tlpkg/TeXLive/TLPSRC.pm | |
parent | 6879fd6def0bca8ba3a8b9786ee987af47c7b2ab (diff) |
- add an optional argument to TLPOBJ->recompute_revision which is an additional
number to be taken into account
- add the revision number of the tlpsrc files of collections/schemes to the
make_tlpobj function call to tlp->recompute_revision
Thus, collections and schemes should not have revision 0 any more
git-svn-id: svn://tug.org/texlive/trunk@5388 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPSRC.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPSRC.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLPSRC.pm b/Master/tlpkg/TeXLive/TLPSRC.pm index f1afcbdc550..030846abe6e 100644 --- a/Master/tlpkg/TeXLive/TLPSRC.pm +++ b/Master/tlpkg/TeXLive/TLPSRC.pm @@ -317,8 +317,15 @@ sub make_tlpobj $tlp->remove_binfiles($arch,@{$archmatches{$arch}}); } } + # for collections and schemes we add the revision number of the .tlpsrc + # file to the compute list: + my $addnr = 0; + if (($self->category eq "Collection") || ($self->category eq "Scheme")) { + my $fn = "tlpk/tlpsrc/" . $self->name . ".tlpsrc"; + $addnr = $tltree->file_svn_lastrevision($fn); + } + $tlp->recompute_revision($tltree, $addnr); $tlp->recompute_sizes($tltree); - $tlp->recompute_revision($tltree); return $tlp; } |