diff options
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 1af542ef783..f26976e244a 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1384,7 +1384,7 @@ sub install_package { return 0; } if (!TeXLive::TLUtils::untar($tarfile, $target, 1)) { - tlwarn("Un-tarring $tarfile did not succeed.\n"); + tlwarn("untarring $tarfile failed, stopping install.\n"); return 0; } # we remove the created .tlpobj it is recreated anyway in @@ -1900,9 +1900,9 @@ sub w32_remove_from_path { =pod -=item C<untar($tarfile,$targetdir, $remove_tarfile)> +=item C<untar($tarfile, $targetdir, $remove_tarfile)> -Unpacked C<$tarfile> in C<$targetdir> (changing directories to +Unpacke C<$tarfile> in C<$targetdir> (changing directories to C<$targetdir> and then back to the original directory). If C<$remove_tarfile> is true, unlink C<$tarfile> after unpacking. @@ -1927,7 +1927,7 @@ sub untar { chdir($targetdir) || die "chdir($targetdir) failed: $!"; if (system($tar, "xf", $tarfile) != 0) { - tlwarn("untarring $tarfile failed, please retry\n"); + tlwarn("untar: untarring $tarfile failed (in $targetdir)\n"); $ret = 0; } else { $ret = 1; |