From 0a02e64a0bffda4a790855d51deab7d8df6e3937 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 13 Nov 2017 14:46:04 +0000 Subject: fix possible undefined behaviour in paper handling git-svn-id: svn://tug.org/texlive/trunk@45774 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/texlive/tlmgr.pl | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'Master/texmf-dist/scripts') diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index 4712f2deed4..9a1dc2bb0c2 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -1237,8 +1237,12 @@ sub action_paper { } else { # program-specific paper my $prog = $action; # first argument is the program to change my $pkg = $TeXLive::TLPaper::paper{$prog}{'pkg'}; + if (!$pkg) { + tlwarn("Unknown paper configuration program $prog!\n"); + return ($F_ERROR); + } if (!$localtlpdb->get_package($pkg)) { - tlwarn("$prg: package $pkg is not installed - cannot adjust paper size!\n"); + tlwarn("$prg: package $prog is not installed - cannot adjust paper size!\n"); return ($F_ERROR); } my $arg = shift @ARGV; # get "paper" argument -- cgit v1.2.3