From 0f2b2046599c3d1dcf64ce63cdc362c9cc8b3455 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Wed, 17 May 2017 05:26:28 +0000 Subject: tlmgrgui paper: don't break when package is not installed git-svn-id: svn://tug.org/texlive/trunk@44388 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/texlive/tlmgrgui.pl | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'Master/texmf-dist/scripts') 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); -- cgit v1.2.3