diff options
author | Norbert Preining <norbert@preining.info> | 2022-02-11 03:01:50 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2022-02-11 03:01:50 +0000 |
commit | 4eb178c7cffedf8da4dc598b6d187a142e5ad93d (patch) | |
tree | 120985ceadfbf44b7e5b4935706ae048b6730d08 /systems/texlive/tlnet/tlpkg/TeXLive | |
parent | 6ca8808eb5a413a8e33a0a5c32e2d0742d8af36b (diff) |
CTAN sync 202202110301
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm | 10 |
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); |