tlmgrgui: massage cmd line args to remove =

git-svn-id: svn://tug.org/texlive/trunk@41232 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 14 insertions, 1 deletions

diff --git a/Master/texmf-dist/scripts/texlive/tlmgrgui.pl b/Master/texmf-dist/scripts/texlive/tlmgrgui.pl
index bad08f0f6a2..4d9a626fec5 100755
--- a/Master/texmf-dist/scripts/texlive/tlmgrgui.pl
+++ b/Master/texmf-dist/scripts/texlive/tlmgrgui.pl
@@ -242,7 +242,20 @@ sub guimain {
 ############## GUI ########################
 
 sub build_initial_gui {
-  Tk::CmdLine::SetArguments(@::SAVEDARGV);
+  # processed @::SAVEDARGV to replace 
+  #  --font='foobar'
+  # with 
+  #  --font 'foobar'
+  # as required by Tk::CmdLine.
+  my @a;
+  for my $c (@::SAVEDARGV) {
+    if ($c =~ m/^--?(font|background|class|display|screen|foreground|geometry|name|title|xrm)=(.*)$/) {
+      push @a, "--$1", $2;
+    } else {
+      push @a, $c;
+    }
+  }
+  Tk::CmdLine::SetArguments(@a);
   $mw = MainWindow->new;
   $mw->title("TeX Live Manager $TeXLive::TLConfig::ReleaseYear");
   $mw->withdraw;