diff options
author | Karl Berry <karl@freefriends.org> | 2022-02-09 21:43:08 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2022-02-09 21:43:08 +0000 |
commit | 41ce8ed7663ef622b739b0fa80226fe7c7f1f1c0 (patch) | |
tree | cbfee35aa082398abb394bb0bec8f891ad4f875a /Master/tlpkg/TeXLive | |
parent | 12711ed06b70a69b2cc517154c0c4b04c93ba15b (diff) |
(check_on_working_mirror): redirect stdout as well
as stderr, to avoid creating "nul" file on
Windows. Use our nulldev() fn.
Report from Jan Netik, tex-live 9 Feb 2022 21:26:28.
git-svn-id: svn://tug.org/texlive/trunk@61960 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 4c4cfe91e79..ab27b7281b1 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -4176,9 +4176,9 @@ sub check_on_working_mirror { # so try wget and only check for the return value # please KEEP the / after $mirror, some ftp mirrors do give back # an error if the / is missing after ../CTAN/ - my $cmd = "$wget $mirror/ --timeout=$NetworkTimeout -O " - . (win32() ? "nul" : "/dev/null") - . " 2>" . (win32() ? "nul" : "/dev/null"); + my $cmd = "$wget $mirror/ --timeout=$NetworkTimeout -O -" + . " >" . (TeXLive::TLUtils::nulldev()) + . " 2>" . (TeXLive::TLUtils::nulldev()); my $ret = system($cmd); # if return value is not zero it is a failure, so switch the meanings return ($ret ? 0 : 1); |