summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLUtils.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2022-02-09 21:43:08 +0000
committerKarl Berry <karl@freefriends.org>2022-02-09 21:43:08 +0000
commit41ce8ed7663ef622b739b0fa80226fe7c7f1f1c0 (patch)
treecbfee35aa082398abb394bb0bec8f891ad4f875a /Master/tlpkg/TeXLive/TLUtils.pm
parent12711ed06b70a69b2cc517154c0c4b04c93ba15b (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/TLUtils.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm6
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);