diff options
| author | Norbert Preining <preining@logic.at> | 2018-05-31 06:17:31 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2018-05-31 06:17:31 +0000 |
| commit | b652fb98441dd99f70d333725abd7b9a49287cfc (patch) | |
| tree | 83a9f3757c69f2e45d2d4e8c2bc403537e678133 /Master/tlpkg/bin/check-tlnet-consistency | |
| parent | 7287a67dbe9d3e2663726e4e93bd19c033d658cd (diff) | |
make sure xz is used with correct args, or systems xzdec
git-svn-id: svn://tug.org/texlive/trunk@47885 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/check-tlnet-consistency')
| -rwxr-xr-x | Master/tlpkg/bin/check-tlnet-consistency | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Master/tlpkg/bin/check-tlnet-consistency b/Master/tlpkg/bin/check-tlnet-consistency index 56f8d086c06..402ff8edd65 100755 --- a/Master/tlpkg/bin/check-tlnet-consistency +++ b/Master/tlpkg/bin/check-tlnet-consistency @@ -1,4 +1,4 @@ -#!/usr/bin/env perl +!/usr/bin/env perl # $Id$ # Copyright 2008-2018 Norbert Preining # This file is licensed under the GNU General Public License version 2 @@ -87,9 +87,9 @@ 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{xz} | $::progs{tar} -C \"$temp\" -xf - "); + system("cat $cont | $::progs{xz} -dcf | $::progs{tar} -C \"$temp\" -xf - "); } else { - system("cat $cont | $::progs{xz} | $::progs{tar} -C \"$temp\" -xf - tlpkg/tlpobj"); + system("cat $cont | $::progs{xz} -dcf | $::progs{tar} -C \"$temp\" -xf - tlpkg/tlpobj"); } if (! -r "$temp/tlpkg/tlpobj/$pkg.tlpobj") { debug("ERROR: no tlpobj: $temp/tlpkg/tlpobj/$pkg.tlpobj\n"); @@ -100,7 +100,7 @@ sub main { die "Cannot load tlpobj from $temp/$pkg.tlpobj: $!" unless defined($tartlpobj); # get the src and doc containers unpacked and add the respective files if ($dosrc) { - system("cat $srccont | $::progs{xz} | $::progs{tar} -C \"$temp\" -xf - tlpkg/tlpobj"); + system("cat $srccont | $::progs{xz} -dcf | $::progs{tar} -C \"$temp\" -xf - tlpkg/tlpobj"); if (! -r "$temp/tlpkg/tlpobj/$pkg.source.tlpobj") { push @missingsrccontainer, $pkg; debug("ERROR: missing src container\n"); @@ -112,7 +112,7 @@ sub main { } } if ($dodoc) { - system("cat $doccont | $::progs{xz} | $::progs{tar} -C \"$temp\" -xf - tlpkg/tlpobj"); + system("cat $doccont | $::progs{xz} -dcf | $::progs{tar} -C \"$temp\" -xf - tlpkg/tlpobj"); if (! -r "$temp/tlpkg/tlpobj/$pkg.doc.tlpobj") { push @missingdoccontainer, $pkg; debug("ERROR: missing doc container\n"); |