summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2017-05-17 05:26:28 +0000
committerNorbert Preining <preining@logic.at>2017-05-17 05:26:28 +0000
commit0f2b2046599c3d1dcf64ce63cdc362c9cc8b3455 (patch)
treef410b8702783c2544d26d63210e049b6b0a7ad0b
parentddb64693fa84fc25fa85614dd209b39b6e72b9be (diff)
tlmgrgui paper: don't break when package is not installed
git-svn-id: svn://tug.org/texlive/trunk@44388 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/tlmgrgui.pl9
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);