tlmgrgui paper: don't break when package is not installed

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

1 files changed, 7 insertions, 2 deletions

diff --git a/Master/texmf-dist/scripts/texlive/tlmgrgui.pl b/Master/texmf-dist/scripts/texlive/tlmgrgui.pl
index 4d9a626fec5..4ec43ca0456 100755
--- a/Master/texmf-dist/scripts/texlive/tlmgrgui.pl
+++ b/Master/texmf-dist/scripts/texlive/tlmgrgui.pl
@@ -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_paper_psutils {
 
 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);