summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLUtils.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2022-06-18 22:33:14 +0000
committerKarl Berry <karl@freefriends.org>2022-06-18 22:33:14 +0000
commitdac5f9f9aabc3c879f946486d83ed1113cde93d8 (patch)
tree9b1753ef6ffc6cf7f59af7537d807a71a220f7c4 /Master/tlpkg/TeXLive/TLUtils.pm
parent8038efbd68d971a92898359fdb8540a13b85bf50 (diff)
(platform_desc): avoid Perl warning if no -OS in
platform spec, e.g., -force-platform foo. git-svn-id: svn://tug.org/texlive/trunk@63645 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index bc54b5c4440..93f0d2123e1 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -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";
}
}