diff options
Diffstat (limited to 'Master/tlpkg/bin')
-rwxr-xr-x | Master/tlpkg/bin/tl-update-auto | 2 | ||||
-rwxr-xr-x | Master/tlpkg/bin/tl-update-bindir | 4 | ||||
-rwxr-xr-x | Master/tlpkg/bin/tl-update-tlpdb | 2 | ||||
-rwxr-xr-x | Master/tlpkg/bin/tlpfiles | 5 |
4 files changed, 9 insertions, 4 deletions
diff --git a/Master/tlpkg/bin/tl-update-auto b/Master/tlpkg/bin/tl-update-auto index b6f66f6b764..1783e3367f0 100755 --- a/Master/tlpkg/bin/tl-update-auto +++ b/Master/tlpkg/bin/tl-update-auto @@ -6,7 +6,7 @@ LC_ALL=C; export LC_ALL PATH=/usr/local/gnu/bin:/usr/local/bin:$PATH; export PATH -umask 0 +umask 022 # maybe someday we'll make real options. chicken=echo diff --git a/Master/tlpkg/bin/tl-update-bindir b/Master/tlpkg/bin/tl-update-bindir index 2f78e24eacf..d9b022d4585 100755 --- a/Master/tlpkg/bin/tl-update-bindir +++ b/Master/tlpkg/bin/tl-update-bindir @@ -186,7 +186,9 @@ for tlplat in $tlplats; do default_bin_loc=$download_loc $grab http://sanibeltranquility.com/cygwin/$tlplat.tgz;; x86_64-darwin) - default_bin_loc=/home/koch/$tlplat.tar.xz;; + default_bin_loc=/home/koch/$tlplat.tar.xz + echo "fix me, now only modified programs, goodbye" >&2; exit 1; + ;; x86_64-darwinlegacy) default_bin_loc=$download_loc $grab http://dl.contextgarden.net/build/texlive/$tlplat.tar.xz;; diff --git a/Master/tlpkg/bin/tl-update-tlpdb b/Master/tlpkg/bin/tl-update-tlpdb index fd6d110ca7d..3a7e00b1e29 100755 --- a/Master/tlpkg/bin/tl-update-tlpdb +++ b/Master/tlpkg/bin/tl-update-tlpdb @@ -134,7 +134,7 @@ sub main { my $oldtlpdb = undef; my $OLDTLPDB = "$opt_master/$DatabaseLocation"; - if (-r $OLDTLPDB) { + if (-s $OLDTLPDB) { $oldtlpdb = TeXLive::TLPDB->new("root" => $opt_master); } if (!defined($oldtlpdb)) { 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; |