diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index a0f3f10d675..32160a2c811 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -732,7 +732,11 @@ sub make_container { # compress it. if (-r "$destdir/$tarname") { - system($compressor, @compressorargs, "$destdir/$tarname"); + # system return 0 on success + if (system($compressor, @compressorargs, "$destdir/$tarname")) { + tlwarn("$0: Couldn't compress $destdir/$tarname\n"); + return (0,0, ""); + } } else { tlwarn("$0: Couldn't find $destdir/$tarname to run $compressor\n"); return (0, 0, ""); |