summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm11
1 files changed, 5 insertions, 6 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index d679f9ec3d3..afb3b99e4cd 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -1033,16 +1033,15 @@ sub setup_programs {
# check that the programs are actually working
my $nul = "/dev/null";
$nul = "nul" if ($^O =~ /^MSWin(32|64)$/i);
- # do not test tar for the moment, you never know what tar is there around
- # for my $prog ("lzmadec", "tar", "wget") {
+ # do not test tar, we rely on the system having a usable one.
+ # The main point is to check the binaries we provide.
for my $prog ("lzmadec", "wget") {
my $opt = $prog eq "lzmadec" ? "--help" : "--version";
- # next if (($prog eq "tar") && ($platform eq "i386-openbsd"));
my $ret = system("$::progs{$prog} $opt >$nul 2>$nul");
if ($ret != 0) {
- tlwarn ("TeXLive::TLUtils::setup_programs failed:\n");
- tlwarn ("$::progs{$prog} $opt failed (status $ret): $!\n");
- tlwarn ("Output is:");
+ warn "TeXLive::TLUtils::setup_programs failed"; # no newline
+ warn "$::progs{$prog} $opt failed (status $ret): $!\n";
+ warn "Output is:\n";
system ("$::progs{$prog} $opt");
return 0;
}