backup/restore functionality changes:

- backups are saved in ${pkg}_r${rev}.tar.lzma
- option for update is --backupdir
- implement tlmgr restore function


git-svn-id: svn://tug.org/texlive/trunk@8092 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 1 insertions, 16 deletions

diff --git a/Master/tlpkg/TeXLive/TLMedia.pm b/Master/tlpkg/TeXLive/TLMedia.pm
index 15908aa3ef8..b9babeaed1d 100644
--- a/Master/tlpkg/TeXLive/TLMedia.pm
+++ b/Master/tlpkg/TeXLive/TLMedia.pm
@@ -191,22 +191,7 @@ sub install_package {
     $totlpdb->save;
     # compute the return value
     my %ret;
-    my (@maps, @formats, @dats);
-    $ret{'mktexlsr'} = 1;
-    foreach my $e ($tlpobj->executes) {
-      if ($e =~ m/^add((Mixed)?Map)\s+([^\s]+)\s*$/) {
-        push @maps, "enable $1=$3";
-      } elsif ($e =~ m/^BuildFormat\s+([^\s]+)\s*$/) {
-        push @formats, $1;
-      } elsif ($e =~ m/^BuildLanguageDat\s+([^\s]+)\s*$/) {
-        push @dats, $1;
-      } else {
-        warn("Unknown execute $e in $pkg");
-      }
-    }
-    $ret{'map'} = [ @maps ] if (@maps);
-    $ret{'format'} = [ @formats ] if (@formats);
-    $ret{'language'} = [ @dats ] if (@dats);
+    merge_into(\%ret, $tlpobj->make_return_hash_from_executes);
     # now install all the depends if they are not already present
     if (!$nodepends) {
       foreach my $d ($tlpobj->depends) {