summaryrefslogtreecommitdiff
path: root/Master/texmf
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-05-11 12:13:08 +0000
committerNorbert Preining <preining@logic.at>2008-05-11 12:13:08 +0000
commitb43c002bf9533d0cbaac8fb502e0a7704f3d8f9f (patch)
treeda0b2041aa3b38749ab3bee27e73355440ffff02 /Master/texmf
parent9735077b1c5a56b7ba25ae8c9ea1e6ae60e36856 (diff)
rollback implementation, needs testings and polishing. worked on linux
git-svn-id: svn://tug.org/texlive/trunk@8055 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf')
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgr.pl10
1 files changed, 2 insertions, 8 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index 81e70769f07..7ff7ce90d98 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -475,19 +475,13 @@ sub action_update {
# this way we get rid of useless files
# force the deinstallation since we will reinstall it
if ($opt_rollback) {
- printf STDERR "rollback not implemented by now!!!\n";
- if (0) {
if (! -d $opt_rollback) {
printf STDERR "rollback argument must be an existing directory!\n";
} else {
- # TODO TODO TODO
- # we need to change TLPOBJ so that it uses the same style
- # as TLMedia with $::progs etc etc etc !!!!!!!!!!!!!!!!!
my $tlp = $localtlpdb->get_package($pkg);
$tlp->make_container("lzma", $localtlpdb->root,
- $opt_rollback, "${pkg}_" . $tlp->revision);
- }
- } # if 0, must be removed later
+ $opt_rollback, "${pkg}_rev" . $tlp->revision);
+ }
}
merge_into(\%ret, &remove_package($pkg, $localtlpdb, 1));
merge_into(\%ret, $tlmediasrc->install_package($pkg, $localtlpdb, $opt_nodepends, 1));