summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorReinhard Kotucha <reinhard.kotucha@web.de>2007-11-17 23:57:54 +0000
committerReinhard Kotucha <reinhard.kotucha@web.de>2007-11-17 23:57:54 +0000
commite1cf7f66cc15bd5bab4289305668b4655b5346ed (patch)
tree021c2fe04831eb9e7519273f5c68ca86cb760fc2 /Master/tlpkg
parent283a33b15991ed662e16f59bf01f677274178af1 (diff)
binsize supported.
git-svn-id: svn://tug.org/texlive/trunk@5498 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm22
1 files changed, 14 insertions, 8 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index 4f8e467ee37..3f243f08ac3 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -413,7 +413,7 @@ on UNIX systems. On Windows, C<(-l $file)> will certainly never
return 'C<true>' and symlinks will be copied as regular files.
C<copy> invokes C<mkdirhier> if target directories do not exist.
-Files have mode C<0777>-I<umask> if they are execuatble and
+Files have mode C<0777>-I<umask> if they are executable and
C<0666>-I<umask> otherwise.
=cut
@@ -573,15 +573,21 @@ C<%vars> hash.
sub additional_architectures_available_from_net {
my $vars=shift;
my @platforms;
- my $database="$::texlive_url/texlive.tlpdb";
+ my $database="$::texlive_url/texlive.pkgver";
+
print "\nLoading '$database' ...\n";
- $::tlpdb_netbin=TeXLive::TLPDB->new(location => "$database");
- foreach my $arch ($::tlpdb_netbin->available_architectures) {
- unless (defined $vars->{"diskbin_$arch"}) {
- push @platforms, $arch;
- }
- }
+ open WGET, "wget -nv --output-document=- $database|";
+ while (<WGET>) {
+ chop;
+ my $line=$_;
+ next unless /-1$/;
+ ($platform, undef)=split " ", $line;
+ unless (defined $vars->{"diskbin_$platform"}) {
+ push @platforms, $platform;
+ }
+ }
return @platforms;
+ close WGET;
}
=pod