diff options
author | Karl Berry <karl@freefriends.org> | 2008-08-09 18:33:05 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-08-09 18:33:05 +0000 |
commit | 320b0532dd9376c2ffded3d9ddb5d41b2131c7a3 (patch) | |
tree | 10618e7c7ae646afe01b5138508d846576db3064 /Master/tlpkg/bin/tl-update-containers | |
parent | e625056e4b48f938b88f367d13e2de0bbb142903 (diff) |
recognize new output strings as expected
git-svn-id: svn://tug.org/texlive/trunk@10209 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tl-update-containers')
-rwxr-xr-x | Master/tlpkg/bin/tl-update-containers | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Master/tlpkg/bin/tl-update-containers b/Master/tlpkg/bin/tl-update-containers index 3c02a01bf3b..6e813478f82 100755 --- a/Master/tlpkg/bin/tl-update-containers +++ b/Master/tlpkg/bin/tl-update-containers @@ -99,7 +99,7 @@ sub main && defined($archiverevs{$pkg})) { $oldrev = $archiverevs{$pkg}; } else { - info("$pkg is new, found no containers\n"); + info("$pkg is new\n"); $count{"new"}++; } @@ -111,7 +111,7 @@ sub main # that cannot happen!!! we are looping over the packages of # $tlpdb so the above ->get_package will succeed (or something # stranged happened! - die ("Huu, that should not happen ..."); + die ("failed to get package $pkg, that should not happen!"); } if ($oldrev == $newrev) { @@ -130,7 +130,9 @@ sub main push @todopacks, $pkg; $count{"updated"}++ if $oldrev; } else { - warn "This shouldn't happen! The revision of $pkg in texlive.tlpdb" + # This can happen when packages get renamed or files get + # shuffled from one package to another. + warn "The revision of $pkg in texlive.tlpdb" . "($newrev) is OLDER than the one in" . "$opt_location/tlpkg/texlive.tlpdb ($oldrev)"; push @todopacks, $pkg; |