texlive[44388] Master/texmf-dist/scripts/texlive/tlmgrgui.pl:

[commits+preining at tug.org]

Revision: 44388
          http://tug.org/svn/texlive?view=revision&revision=44388
Author:   preining
Date:     2017-05-17 07:26:28 +0200 (Wed, 17 May 2017)
Log Message:
-----------
tlmgrgui paper: don't break when package is not installed

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/texlive/tlmgrgui.pl

Modified: trunk/Master/texmf-dist/scripts/texlive/tlmgrgui.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/tlmgrgui.pl	2017-05-17 00:21:49 UTC (rev 44387)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgrgui.pl	2017-05-17 05:26:28 UTC (rev 44388)
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 # $Id$
 #
-# Copyright 2009-2016 Norbert Preining
+# Copyright 2009-2017 Norbert Preining
 # This file is licensed under the GNU General Public License version 2
 # or any later version.
 #
@@ -1327,12 +1327,17 @@
 
 sub init_all_papers {
   for my $p (keys %init_paper_subs) {
-    &{$init_paper_subs{$p}}();
+    my $pkg = $TeXLive::TLPaper::paper{$p}{'pkg'};
+    if ($localtlpdb->get_package($pkg)) {
+      &{$init_paper_subs{$p}}();
+    }
   }
 }
 
 
 sub do_paper_settings {
+  # empty paper array
+  %papers = ();
   init_all_papers();
   my $sw = $mw->Toplevel(-title => __("Paper options"));
   $sw->transient($mw);