texlive[63001] Master/install-tl: Darwin now default -gui text

[commits+siepo at tug.org]

Revision: 63001
          http://tug.org/svn/texlive?view=revision&revision=63001
Author:   siepo
Date:     2022-04-11 16:03:28 +0200 (Mon, 11 Apr 2022)
Log Message:
-----------
Darwin now default -gui text

Modified Paths:
--------------
    trunk/Master/install-tl

Modified: trunk/Master/install-tl
===================================================================
--- trunk/Master/install-tl	2022-04-11 13:45:13 UTC (rev 63000)
+++ trunk/Master/install-tl	2022-04-11 14:03:28 UTC (rev 63001)
@@ -58,9 +58,7 @@
 
 if (($^O !~ /^MSWin/i) &&
       # this wrapper is only for unix, since windows has its own wrapper
-      ($#ARGV >= 0 || ($^O eq 'darwin')) &&
-        # tcl parameter may still come, or tcl is default
-      ($#ARGV < 0 || $ARGV[0] ne '-from_ext_gui')
+      ($#ARGV >= 0) && ($ARGV[0] ne '-from_ext_gui')
         # this run is not invoked by tcl
     ) {
 
@@ -81,7 +79,7 @@
   # build argument array @new_args for install-tl-gui.tcl.
   # '-gui' or '-gui tcl' will not be copied to @new_args.
   # quit scanning and building @new_args once tcl is ruled out.
-  my $want_tcl = ($^O eq 'darwin');
+  my $want_tcl = 0;
   my $asked4tcl = 0;
   my $forbid = 0;
   my @new_args = ();
@@ -127,8 +125,6 @@
   }
   # done scanning arguments
   if ($want_tcl) {
-    # Darwin: suppress deprecation warning
-    $ENV{'TK_SILENCE_DEPRECATION'} = 1 if $^O eq 'darwin';
     unshift (@new_args, "--");
     unshift (@new_args, "$::installerdir/tlpkg/installer/install-tl-gui.tcl");
     my @wishes = qw /wish wish8.7 wish8.6 wish8.5 tclkit/;