diff options
| author | Reinhard Kotucha <reinhard.kotucha@web.de> | 2008-05-24 21:46:10 +0000 |
|---|---|---|
| committer | Reinhard Kotucha <reinhard.kotucha@web.de> | 2008-05-24 21:46:10 +0000 |
| commit | 8762c6340de5b3364472dc0bae170c64cbf34bf4 (patch) | |
| tree | 7df19963e651e066657b53a6b7eaa187dc10e8c3 /Master/tlpkg/TeXLive | |
| parent | bae50404b950f4bf0c8728e806a438bcdd2ba2f0 (diff) | |
TLUtils.pm: support amd-freebsd. Move config* to tlpkg/installer.
git-svn-id: svn://tug.org/texlive/trunk@8323 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 5b09bfd6c5f..2f4994aadee 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -151,20 +151,21 @@ the HD/CD/DVD. =cut sub platform { - my @OSs=qw(aix cygwin darwin freebsd hpux irix linux netbsd openbsd - solaris); - unless (defined $::_platform_) { if ($^O=~/^MSWin(32|64)$/i) { $::_platform_="win32"; } else { + my $config_guess="$::installerdir/tlpkg/installer/config.guess"; + my @OSs=qw(aix cygwin darwin freebsd hpux irix linux netbsd + openbsd solaris); my $CPU; # CPU type as reported by config.guess. my $OS; # O/S type as reported by config.guess. # We cannot rely on #! in config.guess but have to call /bin/sh # explicitly because sometimes the 'noexec' flag is set in # /etc/fstab for ISO9660 file systems. - my $guessed_platform=`/bin/sh $::installerdir/config.guess`; + my $guessed_platform=`/bin/sh $config_guess`; chomp $guessed_platform; + $guessed_platform=~s/^x86_64-(.*)-freebsd$/amd64-$1-freebsd/; ($CPU=$guessed_platform)=~s/(.*?)-.*/$1/; foreach my $os (@OSs) { $OS=$os if $guessed_platform=~/$os/; @@ -172,7 +173,7 @@ sub platform { if ($CPU=~/^i.86$/) { $CPU=~s/i.86/i386/; } - if (length "$OS" < 0) { + unless (defined $OS) { ($OS=$guessed_platform)=~s/.*-(.*)/$1/; } $::_platform_="$CPU-$OS"; @@ -190,8 +191,7 @@ given C<i386-linux> we return C<Intel x86 with GNU/Linux>. =cut -sub platform_desc -{ +sub platform_desc { my ($platform) = @_; my %platform_name=( |