diff options
author | Reinhard Kotucha <reinhard.kotucha@web.de> | 2007-11-17 23:57:54 +0000 |
---|---|---|
committer | Reinhard Kotucha <reinhard.kotucha@web.de> | 2007-11-17 23:57:54 +0000 |
commit | e1cf7f66cc15bd5bab4289305668b4655b5346ed (patch) | |
tree | 021c2fe04831eb9e7519273f5c68ca86cb760fc2 /Master/tlpkg | |
parent | 283a33b15991ed662e16f59bf01f677274178af1 (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.pm | 22 |
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 |