From b43c002bf9533d0cbaac8fb502e0a7704f3d8f9f Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sun, 11 May 2008 12:13:08 +0000 Subject: rollback implementation, needs testings and polishing. worked on linux git-svn-id: svn://tug.org/texlive/trunk@8055 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/texlive/tlmgr.pl | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) (limited to 'Master/texmf') 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)); -- cgit v1.2.3