diff options
author | Norbert Preining <preining@logic.at> | 2019-03-03 21:52:59 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2019-03-03 21:52:59 +0000 |
commit | 8798e725a1902eb5d5ea42e3259f96ea386531aa (patch) | |
tree | 77e70918d9ee6a5d112a2ae2a3986a8aebd1ff41 /Master | |
parent | 1d30f1738605fb3d3bcbb96a189ed8f72fce1138 (diff) |
update TLPOBJ with changes from Johannes Hielscher
git-svn-id: svn://tug.org/texlive/trunk@50211 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index 5a84b3697d0..55ead17b769 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -736,9 +736,13 @@ sub make_container { tlwarn("$0: Couldn't compress $destdir/$tarname\n"); return (0,0, ""); } - # make sure we remove the original tar since lc does not - # automatically remove it - unlink("$destdir/$tarname") if (-r "$destdir/$tarname"); + # make sure we remove the original tar since old lz4 versions + # cannot automatically delete it. + # We remove the tar file only when the compressed file was + # correctly created, something that should only happen in the + # most strange cases. + unlink("$destdir/$tarname") + if ((-r "$destdir/$tarname") && (-r "$destdir/$containername")); } else { tlwarn("$0: Couldn't find $destdir/$tarname to run $compressor\n"); return (0, 0, ""); |