diff options
author | Norbert Preining <preining@logic.at> | 2008-04-17 08:04:37 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-04-17 08:04:37 +0000 |
commit | 6a500e6fe3d04f86e2bbb31ba3d90ef85d727259 (patch) | |
tree | cc8cf846fea0e1097fff95e6b9ad2cbb42d2ccaa /Master/tlpkg/TeXLive/TLUtils.pm | |
parent | 0057c38056386ec2fa7171c13972417cd3d01241 (diff) |
remove the now useless fucnmtion architectures_available (from net/disk)
git-svn-id: svn://tug.org/texlive/trunk@7465 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 64 |
1 files changed, 0 insertions, 64 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index efd3aece132..4e7b187e4ce 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -46,8 +46,6 @@ C<TeXLive::TLUtils> -- utilities used in the TeX Live infrastructure TeXLive::TLUtils::media; TeXLive::TLUtils::initialze_installer; - TeXLive::TLUtils::architectures_available; - TeXLive::TLUtils::additional_architectures_available_from_net; TeXLive::TLUtils::make_var_skeleton($path); TeXLive::TLUtils::make_local_skeleton($path); TeXLive::TLUtils::create_fmtutil($tlpdb,$dest,$localconf); @@ -93,8 +91,6 @@ BEGIN { &install_packages &media &initialize_installer - &architectures_available - &additional_architectures_available_from_net &make_var_skeleton &sub make_local_skeleton &create_fmtutil @@ -913,66 +909,6 @@ sub initialize_installer { =pod -=item C<architectures_available> - -The function C<architectures_available> returns a list of -supported platforms. - -=cut - -sub architectures_available { - my @dir; - my @platforms; - if (&media eq "CD") { - opendir DIR, "$::installerdir/$DiskArchive"; - @dir=readdir DIR; - chomp @dir; - for (@dir) { - if ((/bin-kpathsea\.(.*)\.tar\.lzma$/) or (/bin-kpathsea\.(.*)\.zip$/)) { - push(@platforms, $1) unless (($1 eq 'doc') || ($1 eq 'source')); - } - } - } elsif (&media eq "DVD") { - opendir DIR, "$::installerdir/bin"; - @dir=readdir DIR; - chomp @dir; - for my $platform (@dir) { - push @platforms, $platform unless ($platform=~/^\./); - } - } else { - foreach my $arch ($::tlpdb->available_architectures) { - push @platforms, $arch; - } - } - return @platforms; -} - -=pod - -=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 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 $location="$TeXLiveURL"; - - my $nettlpdb = TeXLive::TLPDB->new($location); - for my $platform ($nettlpdb->available_architectures) { - unless (defined $vars->{"diskbin_$platform"}) { - push @platforms, $platform; - } - } - return @platforms; -} - -=pod - =item C<make_var_skeleton($prefix)> Generate a skeleton of empty directories in the C<TEXMFSYSVAR> tree. |