diff options
author | Norbert Preining <preining@logic.at> | 2008-12-22 18:59:51 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-12-22 18:59:51 +0000 |
commit | 2c7c6509608f9d88370490095bf3b048f5cd860d (patch) | |
tree | 71dafe9e72909e5142cce2d1be144a9828de9b45 | |
parent | 3995a49d727b2549ec704cd87260700125fab82d (diff) |
fix addition placeholders in machine line
git-svn-id: svn://tug.org/texlive/trunk@11683 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr2.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr2.pl b/Master/texmf/scripts/texlive/tlmgr2.pl index 47e5ad8eadd..9af143a1c81 100755 --- a/Master/texmf/scripts/texlive/tlmgr2.pl +++ b/Master/texmf/scripts/texlive/tlmgr2.pl @@ -1490,7 +1490,7 @@ sub action_update { if ($::machinereadable) { # TODO should we add a revision number push @addlines, - machine_line("-ret", $pkg, $FLAG_FORCIBLE_REMOVED, "-", "-"); + machine_line("-ret", $pkg, $FLAG_FORCIBLE_REMOVED, "-", "-", "-"); } else { info("skipping forcibly removed package $pkg\n"); } @@ -1527,7 +1527,7 @@ sub action_update { } elsif ($rev > $mediarev) { if ($::machinereadable) { push @addlines, - machine_line("-ret", $pkg, $FLAG_REVERSED_UPDATE, $rev, $mediarev); + machine_line("-ret", $pkg, $FLAG_REVERSED_UPDATE, $rev, $mediarev, "-"); } else { info("$pkg: local revision ($rev) is newer than revision in $location" . " ($mediarev), not updating.\n"); @@ -1566,7 +1566,7 @@ sub action_update { } else { if ($::machinereadable) { # TODO version numbers - machine_line($p, $FLAG_REMOVE, "-", "-"); + machine_line($p, $FLAG_REMOVE, "-", "-", "-"); } else { info("remove $p (removed on server)\n"); } |