summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLUtils.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2018-11-16 22:19:58 +0000
committerKarl Berry <karl@freefriends.org>2018-11-16 22:19:58 +0000
commit78607211979612f31db75416ae0231b53936bb4e (patch)
treed0c2b7993967b254f850764d2d13fbce28f9e908 /Master/tlpkg/TeXLive/TLUtils.pm
parent36e2079a2071dab1e6737021dca6cce7fc754e69 (diff)
(untar): be specific about the command that failed.
git-svn-id: svn://tug.org/texlive/trunk@49173 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index 54d94de39c9..2fc77fff769 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -2267,8 +2267,9 @@ sub untar {
# on w32 don't extract file modified time, because AV soft can open
# files in the mean time causing time stamp modification to fail
- if (system($tar, win32() ? "xmf" : "xf", $tarfile) != 0) {
- tlwarn("untar: untarring $tarfile failed (in $targetdir)\n");
+ my $taropt = win32() ? "xmf" : "xf";
+ if (system($tar, $taropt, $tarfile) != 0) {
+ tlwarn("TLUtils::untar: $tar $taropt $tarfile failed (in $targetdir)\n");
$ret = 0;
} else {
$ret = 1;