summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tlpfiles
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2020-03-20 22:17:27 +0000
committerKarl Berry <karl@freefriends.org>2020-03-20 22:17:27 +0000
commit71431945470df433ee68efa5a561f88d99aaba96 (patch)
tree61e986918987993abcad6d41d1e7bec45ffbddfd /Master/tlpkg/bin/tlpfiles
parentc1324ac778f4d7b98abd5fda1bdc656288b8093d (diff)
tl-update-auto: better umask 022 to avoid later chmod.
tl-update-bindir: x86_64-darwin now special. tl-update-tlpdb: check if old tlpdb is non-empty, not just readable. tlpfiles: exit if no tlpdb can be read. git-svn-id: svn://tug.org/texlive/trunk@54441 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tlpfiles')
-rwxr-xr-xMaster/tlpkg/bin/tlpfiles5
1 files changed, 4 insertions, 1 deletions
diff --git a/Master/tlpkg/bin/tlpfiles b/Master/tlpkg/bin/tlpfiles
index 7a73540b907..cd9d51e8ee8 100755
--- a/Master/tlpkg/bin/tlpfiles
+++ b/Master/tlpkg/bin/tlpfiles
@@ -1,6 +1,6 @@
#!/usr/bin/env perl
# $Id$
-# Copyright 2007-2015 Karl Berry.
+# Copyright 2007-2020 Karl Berry.
# This file is licensed under the GNU General Public License version 2
# or any later version.
#
@@ -54,6 +54,9 @@ sub main {
my $pkg = $ARGV[0];
my $tlpdb = TeXLive::TLPDB->new (root => $Master);
+ if (! defined $tlpdb) {
+ die "$0: no texlive.tlpdb under $Master, goodbye";
+ }
my $obj = $tlpdb->get_package ($pkg);
die "$0: no TeX Live package named $pkg in $Master.\n" if ! $obj;