diff options
| author | Norbert Preining <preining@logic.at> | 2016-05-17 14:32:03 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2016-05-17 14:32:03 +0000 |
| commit | 650958eaccd148987439f9bf75728bb0db208385 (patch) | |
| tree | 56b9c80eb9b18bd9ad87615a024d8a8fd976bf9e /Master/texmf-dist/scripts | |
| parent | 725022c18848410ea99f5ec1bb3e7d83a24880a9 (diff) | |
checksum rework
- die in tlchecksum if no checksum is defined
- make sure that we call tlchecksum in TLPOBJ::make_container
only if it is a system container (for some tlnet - not a
backup one), or there is a checksum method defined
- make sure that we don't call tlchecksum in tlmgr when making
a container
git-svn-id: svn://tug.org/texlive/trunk@41218 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts')
| -rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgr.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index b78aa66a336..686cde7322a 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -2133,7 +2133,7 @@ sub write_w32_updater { push (@rst_info, "$pkg ^($oldrev^)"); next if ($opts{"dry-run"}); # create backup; make_container expects file name in a format: some-name.r[0-9]+ - my ($size, $checksum, $fullname) = $localtlp->make_container("tar", $root, $temp, "__BACKUP_$pkg.r$oldrev"); + my ($size, undef, $fullname) = $localtlp->make_container("tar", $root, $temp, "__BACKUP_$pkg.r$oldrev"); if ($size <= 0) { tlwarn("$prg: Creation of backup container of $pkg failed.\n"); return 1; # backup failed? abort @@ -3131,7 +3131,7 @@ sub action_update { # no backup was made, so let us create a temporary .tar file # of the package my $tlp = $localtlpdb->get_package($pkg); - my ($s, $m, $fullname) = $tlp->make_container("tar", $root, $temp, + my ($s, undef, $fullname) = $tlp->make_container("tar", $root, $temp, "__BACKUP_${pkg}.r" . $tlp->revision, $tlp->relocated); if ($s <= 0) { |