diff options
author | Norbert Preining <norbert@preining.info> | 2022-06-19 03:01:19 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2022-06-19 03:01:19 +0000 |
commit | 15103df278e40e78061cca62bd5d956644f3352a (patch) | |
tree | a489dd477a37ffcf26053a1ed635089750a3c6c8 /systems/texlive/tlnet/tlpkg/TeXLive | |
parent | 6864115d88342e22800eb415b70bdffaed2ca3c4 (diff) |
CTAN sync 202206190301
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm index 2e9e0240b3..1d8891dbbc 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm +++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm @@ -1,4 +1,4 @@ -# $Id: TLUtils.pm 63571 2022-06-13 01:11:19Z karl $ +# $Id: TLUtils.pm 63645 2022-06-18 22:33:14Z 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: 63571 $'; +my $svnrev = '$Revision: 63645 $'; my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown"; sub module_revision { return $_modulerevision; } @@ -544,6 +544,7 @@ sub platform_desc { return "$platform_name{$platform}"; } else { my ($CPU,$OS) = split ('-', $platform); + $OS = "" if ! defined $OS; # e.g., -force-platform foo return "$CPU with " . ucfirst "$OS"; } } |