summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/TeXLive
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2022-02-11 03:01:50 +0000
committerNorbert Preining <norbert@preining.info>2022-02-11 03:01:50 +0000
commit4eb178c7cffedf8da4dc598b6d187a142e5ad93d (patch)
tree120985ceadfbf44b7e5b4935706ae048b6730d08 /systems/texlive/tlnet/tlpkg/TeXLive
parent6ca8808eb5a413a8e33a0a5c32e2d0742d8af36b (diff)
CTAN sync 202202110301
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive')
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm
index 156d0b2b48..9bade5c9bb 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm
@@ -1,4 +1,4 @@
-# $Id: TLUtils.pm 61892 2022-02-05 11:02:32Z preining $
+# $Id: TLUtils.pm 61960 2022-02-09 21:43:08Z karl $
# TeXLive::TLUtils.pm - the inevitable utilities for TeX Live.
# Copyright 2007-2022 Norbert Preining, Reinhard Kotucha
# This file is licensed under the GNU General Public License version 2
@@ -8,7 +8,7 @@ use strict; use warnings;
package TeXLive::TLUtils;
-my $svnrev = '$Revision: 61892 $';
+my $svnrev = '$Revision: 61960 $';
my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown";
sub module_revision { return $_modulerevision; }
@@ -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);