diff options
Diffstat (limited to 'Master/tlpkg/bin/check-tlnet-consistency')
| -rwxr-xr-x | Master/tlpkg/bin/check-tlnet-consistency | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/Master/tlpkg/bin/check-tlnet-consistency b/Master/tlpkg/bin/check-tlnet-consistency index b8f28b36b65..a48801d9002 100755 --- a/Master/tlpkg/bin/check-tlnet-consistency +++ b/Master/tlpkg/bin/check-tlnet-consistency @@ -1,5 +1,6 @@ #!/usr/bin/env perl -# Copyright 2008-2016 Norbert Preining +# $Id$ +# Copyright 2008-2018 Norbert Preining # This file is licensed under the GNU General Public License version 2 # or any later version. # @@ -54,10 +55,6 @@ sub main { } else { # do a full setup my $ret = &TeXLive::TLUtils::setup_programs("$Master/tlpkg/installer"); - if ($ret == -1) { - tlwarn("no binary of xzdec for $::_platform_ detected, aborting.\n"); - exit 1; - } if (!$ret) { tlwarn("binaries could not be set up, aborting.\n"); exit 1; @@ -90,12 +87,12 @@ sub main { my $dodoc = ($tlpdb->config_doc_container && $tlpdbtlpobj->docfiles); my $dosrc = ($tlpdb->config_src_container && $tlpdbtlpobj->srcfiles); if ($opt_filelists) { - system("cat $cont | $::progs{xzdec} | $::progs{tar} -C \"$temp\" -xf - "); + system("cat $cont | $::progs{xz} | $::progs{tar} -C \"$temp\" -xf - "); } else { - system("cat $cont | $::progs{xzdec} | $::progs{tar} -C \"$temp\" -xf - tlpkg/tlpobj"); + system("cat $cont | $::progs{xz} | $::progs{tar} -C \"$temp\" -xf - tlpkg/tlpobj"); } if (! -r "$temp/tlpkg/tlpobj/$pkg.tlpobj") { - debug("ERROR: no tlpobj\n"); + debug("ERROR: no tlpobj: $temp/tlpkg/tlpobj/$pkg.tlpobj\n"); push @notlpobj, $pkg; } else { my $tartlpobj = TeXLive::TLPOBJ->new; |