diff options
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index aeeae5577d3..ea153fcf484 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -321,6 +321,7 @@ sub from_file { $tlpdbfile_quote = "\"$tlpdbfile\""; # if we have xz available we try the xz file my $xz_succeeded = 0 ; + my $compressorextension = "<UNSET>"; if (defined($::progs{$DefaultCompressorFormat})) { # we first try the xz compressed file my ($xzfh, $xzfile) = TeXLive::TLUtils::tl_tmpfile(); @@ -331,7 +332,7 @@ sub from_file { } $xzfile_quote = "\"$xzfile\""; my $decompressor = TeXLive::TLUtils::quotify_path_with_spaces($::progs{$DecompressorProgram{$DefaultCompressorFormat}}); - my $compressorextension = $CompressorExtension{$DefaultCompressorFormat}; + $compressorextension = $CompressorExtension{$DefaultCompressorFormat}; my @decompressorArgs = @{$DecompressorArgs{$DefaultCompressorFormat}}; debug("trying to download $path.$compressorextension to $xzfile\n"); my $ret = TeXLive::TLUtils::download_file("$path.$compressorextension", "$xzfile"); @@ -353,7 +354,7 @@ sub from_file { } } } else { - debug("no $DefaultCompressorFormat defined, not trying tlpdb.$compressorextension ...\n"); + debug("no $DefaultCompressorFormat defined ...\n"); } if (!$xz_succeeded) { debug("TLPDB: downloading $path.$compressorextension didn't succeed, try $path\n"); @@ -883,7 +884,7 @@ sub expand_dependencies { next if ($p =~ m/^00texlive/); my $pkg = $self->get_package($p, ($install{$p}?$install{$p}:undef)); if (!defined($pkg)) { - debug("W: $p is mentioned somewhere but not available, disabling\n"); + ddebug("W: $p is mentioned somewhere but not available, disabling\n"); $install{$p} = 0; next; } |