summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLUtils.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm24
1 files changed, 5 insertions, 19 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index 429ad8741b3..e0fa075e473 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -968,37 +968,23 @@ sub architectures_available {
=item C<additional_architectures_available_from_net (\%vars)>
The function C<additional_architectures_available_from_net> returns a
-list of additional platforms supported by the TeX Live server. It
-downloads the file C<$TeXLiveURL/$NetArchive/texlive.pkgver> and
-creates a new object c<$::tlpdb_netbin>. The argument is a reference of
-the global C<%vars> hash.
+list of additional platforms supported by the TeX Live server by reading
+the remove TLPDB. The argument is a reference of the global C<%vars> hash.
=cut
sub additional_architectures_available_from_net {
my $vars=shift;
my @platforms;
- my $database="$TeXLiveURL/$NetArchive/texlive.pkgver";
+ my $location="$TeXLiveURL";
- tllog($::LOG_NORMAL, "Loading '$database' ...\n");
- my $wget = "wget";
- if (win32()) {
- $wget = conv_to_win_path("$::installerdir/tlpkg/bin/wget.exe");
- }
- open(WGET, "$wget -q --output-document=- $database|") or
- tllog($::LOG_NORMAL, "Cannot load list of available archs from the net!\n");
- while (<WGET>) {
- chop;
- my $line=$_;
- push @::pkgverlines,$line;
- next unless /\s+-1$/;
- ($platform, undef)=split " ", $line;
+ my $nettlpdb = TeXLive::TLPDB->new($location);
+ for my $platform ($nettlpdb->available_architectures) {
unless (defined $vars->{"diskbin_$platform"}) {
push @platforms, $platform;
}
}
return @platforms;
- close WGET;
}
=pod