summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2019-03-03 21:52:59 +0000
committerNorbert Preining <preining@logic.at>2019-03-03 21:52:59 +0000
commit8798e725a1902eb5d5ea42e3259f96ea386531aa (patch)
tree77e70918d9ee6a5d112a2ae2a3986a8aebd1ff41 /Master/tlpkg/TeXLive/TLPOBJ.pm
parent1d30f1738605fb3d3bcbb96a189ed8f72fce1138 (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/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm10
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, "");