summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-01-07 11:18:51 +0000
committerNorbert Preining <preining@logic.at>2008-01-07 11:18:51 +0000
commit846a792a0553743bec356437131e98c3242f821f (patch)
tree07c38379c0461d0753cbda3b5b576cfc4ce3fd08 /Master/tlpkg/TeXLive/TLPOBJ.pm
parent850b5ec023ef8e7217fa03c744ed8f710428c31a (diff)
TLPOBJ make_container should die if it cannot call the compress cmd
git-svn-id: svn://tug.org/texlive/trunk@6098 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index fc6f6f5edb4..2c9586ff775 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -569,7 +569,7 @@ sub make_container {
}
unlink("$destdir/$containername");
print "$compresscmd\n" if ($::opt_debug);
- open ZIP, $compresscmd ;
+ open ZIP, $compresscmd or die "Cannot open container program $compresscmd: $!\n";
map {
if (! -f $_) {
print STDERR "!!!Error: non-existent $_\n";