texlive[61960] Master/tlpkg/TeXLive/TLUtils.pm:

[commits+karl at tug.org]

Revision: 61960
          http://tug.org/svn/texlive?view=revision&revision=61960
Author:   karl
Date:     2022-02-09 22:43:08 +0100 (Wed, 09 Feb 2022)
Log Message:
-----------
(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.

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLUtils.pm

Modified: trunk/Master/tlpkg/TeXLive/TLUtils.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLUtils.pm	2022-02-09 20:59:18 UTC (rev 61959)
+++ trunk/Master/tlpkg/TeXLive/TLUtils.pm	2022-02-09 21:43:08 UTC (rev 61960)
@@ -4176,9 +4176,9 @@
   # 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);