diff options
Diffstat (limited to 'Master')
| -rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgr.pl | 6 | ||||
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 1 |
2 files changed, 6 insertions, 1 deletions
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 diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index 32015fa692d..b4e79bd8711 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -737,6 +737,7 @@ sub get_package { sub _get_package { my ($self,$pkg) = @_; + return undef if (!$pkg); if (defined($self->{'tlps'}{$pkg})) { my $ret = $self->{'tlps'}{$pkg}; return $self->{'tlps'}{$pkg}; |