texlive[50211] Master/tlpkg/TeXLive/TLPOBJ.pm: update TLPOBJ with

[commits+preining at tug.org]

Revision: 50211
          http://tug.org/svn/texlive?view=revision&revision=50211
Author:   preining
Date:     2019-03-03 22:52:59 +0100 (Sun, 03 Mar 2019)
Log Message:
-----------
update TLPOBJ with changes from Johannes Hielscher

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLPOBJ.pm

Modified: trunk/Master/tlpkg/TeXLive/TLPOBJ.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLPOBJ.pm	2019-03-03 01:24:28 UTC (rev 50210)
+++ trunk/Master/tlpkg/TeXLive/TLPOBJ.pm	2019-03-03 21:52:59 UTC (rev 50211)
@@ -736,9 +736,13 @@
         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, "");