diff options
author | Karl Berry <karl@freefriends.org> | 2022-06-18 22:33:14 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2022-06-18 22:33:14 +0000 |
commit | dac5f9f9aabc3c879f946486d83ed1113cde93d8 (patch) | |
tree | 9b1753ef6ffc6cf7f59af7537d807a71a220f7c4 | |
parent | 8038efbd68d971a92898359fdb8540a13b85bf50 (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
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 1 |
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"; } } |