diff options
author | Norbert Preining <preining@logic.at> | 2018-06-11 06:32:20 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2018-06-11 06:32:20 +0000 |
commit | b5e7ffa4544901e5b21e9d195fac8ad6516c4aac (patch) | |
tree | a3303255d06fe84ffe6c5e8071e1a37238061771 /Master/tlpkg/TeXLive/TLPOBJ.pm | |
parent | 9ffa2d5dbcc5f110e36832888bfd6574d78d5f27 (diff) |
use unified system_pipe for decompressing instead of repeating code
git-svn-id: svn://tug.org/texlive/trunk@47984 c570f23f-e606-0410-a88d-b1316a301751
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, ""); |