diff options
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 73a39f7a71f..d679f9ec3d3 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1001,6 +1001,8 @@ C<wget>, C<tar>, C<lzmadec>. The C<$bindir> argument specifies the path to the location of the C<lzmadec> binaries, the C<$platform> gives the TeX Live platform name, used as the extension on the executables. +Returns true if successfull, otherwise false. + =cut sub setup_programs { @@ -1031,9 +1033,11 @@ sub setup_programs { # check that the programs are actually working my $nul = "/dev/null"; $nul = "nul" if ($^O =~ /^MSWin(32|64)$/i); - for my $prog ("lzmadec", "tar", "wget") { + # do not test tar for the moment, you never know what tar is there around + # for my $prog ("lzmadec", "tar", "wget") { + for my $prog ("lzmadec", "wget") { my $opt = $prog eq "lzmadec" ? "--help" : "--version"; - next if (($prog eq "tar") && ($platform eq "i386-openbsd")); + # 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"); |