diff options
-rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgrgui.pl | 9 |
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); |