texlive[63645] Master/tlpkg/TeXLive/TLUtils.pm: (platform_desc):

[commits+karl at tug.org]

Revision: 63645
          http://tug.org/svn/texlive?view=revision&revision=63645
Author:   karl
Date:     2022-06-19 00:33:14 +0200 (Sun, 19 Jun 2022)
Log Message:
-----------
(platform_desc): avoid Perl warning if no -OS in
platform spec, e.g., -force-platform foo.

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLUtils.pm

Modified: trunk/Master/tlpkg/TeXLive/TLUtils.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLUtils.pm	2022-06-18 22:30:39 UTC (rev 63644)
+++ trunk/Master/tlpkg/TeXLive/TLUtils.pm	2022-06-18 22:33:14 UTC (rev 63645)
@@ -544,6 +544,7 @@
     return "$platform_name{$platform}";
   } else {
     my ($CPU,$OS) = split ('-', $platform);
+    $OS = "" if ! defined $OS; # e.g., -force-platform foo
     return "$CPU with " . ucfirst "$OS";
   }
 }