summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2018-06-11 06:32:20 +0000
committerNorbert Preining <preining@logic.at>2018-06-11 06:32:20 +0000
commitb5e7ffa4544901e5b21e9d195fac8ad6516c4aac (patch)
treea3303255d06fe84ffe6c5e8071e1a37238061771 /Master/tlpkg/TeXLive/TLPOBJ.pm
parent9ffa2d5dbcc5f110e36832888bfd6574d78d5f27 (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.pm6
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, "");