From dac5f9f9aabc3c879f946486d83ed1113cde93d8 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 18 Jun 2022 22:33:14 +0000 Subject: (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 --- Master/tlpkg/TeXLive/TLUtils.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'Master/tlpkg/TeXLive') 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"; } } -- cgit v1.2.3