diff options
author | Karl Berry <karl@freefriends.org> | 2018-11-16 22:19:58 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2018-11-16 22:19:58 +0000 |
commit | 78607211979612f31db75416ae0231b53936bb4e (patch) | |
tree | d0c2b7993967b254f850764d2d13fbce28f9e908 /Master/tlpkg/TeXLive | |
parent | 36e2079a2071dab1e6737021dca6cce7fc754e69 (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')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 5 |
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; |