diff options
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 4 | ||||
-rw-r--r-- | Master/tlpkg/TeXLive/TLPSRC.pm | 2 |
2 files changed, 4 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index cdaa93b2db2..2d20c35e31e 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -207,7 +207,9 @@ sub recompute_revision { $self->revision(($filemax > $self->revision) ? $filemax : $self->revision); } if (defined($revtlpsrc)) { - $self->revision( $filemax > $revtlpsrc ? $filemax : $revtlpsrc ); + if ($self->revision < $revtlpsrc) { + $self->revision($revtlpsrc); + } } } diff --git a/Master/tlpkg/TeXLive/TLPSRC.pm b/Master/tlpkg/TeXLive/TLPSRC.pm index 030846abe6e..b90fc02847b 100644 --- a/Master/tlpkg/TeXLive/TLPSRC.pm +++ b/Master/tlpkg/TeXLive/TLPSRC.pm @@ -321,7 +321,7 @@ sub make_tlpobj # file to the compute list: my $addnr = 0; if (($self->category eq "Collection") || ($self->category eq "Scheme")) { - my $fn = "tlpk/tlpsrc/" . $self->name . ".tlpsrc"; + my $fn = "tlpkg/tlpsrc/" . $self->name . ".tlpsrc"; $addnr = $tltree->file_svn_lastrevision($fn); } $tlp->recompute_revision($tltree, $addnr); |