From 1f0b156cf74121e47252c36b546581189ce26eaa Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sat, 18 Jul 2009 20:46:34 +0000 Subject: fix unwind container unpacking missing the $reloc parameter git-svn-id: svn://tug.org/texlive/trunk@14313 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/texlive/tlmgr.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index 3c6338db3e8..c01d77870f3 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -1059,7 +1059,7 @@ sub action_restore { # this way we get rid of useless files $opts{"backupdir"} = abs_path($opts{"backupdir"}); $localtlmedia->remove_package($pkg); - TeXLive::TLMedia->_install_package("$opts{'backupdir'}/${pkg}.r${rev}.tar.xz" , [] ,$localtlpdb); + TeXLive::TLMedia->_install_package("$opts{'backupdir'}/${pkg}.r${rev}.tar.xz" , 0, [] ,$localtlpdb); logpackage("restore: $pkg ($rev)"); # now we have to read the .tlpobj file and add it to the DB my $tlpobj = TeXLive::TLPOBJ->new; @@ -1793,7 +1793,7 @@ sub action_update { $remove_unwind_container = 1; $unwind_package = $newname; } - my $instret = TeXLive::TLMedia->_install_package("$unwind_package", + my $instret = TeXLive::TLMedia->_install_package("$unwind_package", 0, [], $localtlpdb); if ($instret) { # now we have to include the tlpobj -- cgit v1.2.3