diff options
author | Karl Berry <karl@freefriends.org> | 2011-05-23 22:36:52 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2011-05-23 22:36:52 +0000 |
commit | 71c94af3dc0b7950ae0e6e5be83c23241d9a8050 (patch) | |
tree | af581f7d1fc66af4084dd9b92942a067ad7e529e /Master | |
parent | f20bc0202adc3cbebe6d49dc51a29e49377be58f (diff) |
rm stale and apparently/hopefully unused platform.pl script; sync TLUtils.pm again
git-svn-id: svn://tug.org/texlive/trunk@22593 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r-- | Master/tlpkg/installer/platform.pl | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/Master/tlpkg/installer/platform.pl b/Master/tlpkg/installer/platform.pl deleted file mode 100644 index 08f4369da00..00000000000 --- a/Master/tlpkg/installer/platform.pl +++ /dev/null @@ -1,49 +0,0 @@ - - -print platform($ARGV[0]), "\n"; - -sub platform { - my $config_guess = shift; - unless (defined $::_platform_) { - if ($^O=~/^MSWin(32|64)$/i) { - $::_platform_="win32"; - } else { - if (!defined($config_guess)) { - printf STDERR "first argument must be path to config.guess\n"; - exit 1; - } - my @OSs = qw(aix cygwin darwin freebsd hpux irix linux netbsd - openbsd solaris); - - # 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. - chomp (my $guessed_platform = `/bin/sh $config_guess`); - - # For example, if the disc or reader has hardware problems. - die "$0: could not run $config_guess, cannot proceed, sorry" - if ! $guessed_platform; - - $guessed_platform =~ s/^x86_64-(.*)-freebsd/amd64-$1-freebsd/; - my $CPU; # CPU type as reported by config.guess. - my $OS; # O/S type as reported by config.guess. - ($CPU = $guessed_platform) =~ s/(.*?)-.*/$1/; - $CPU =~ s/^alpha(.*)/alpha/; # alphaev56 or whatever - $CPU =~ s/powerpc64/powerpc/; # we don't distinguish on ppc64 - for my $os (@OSs) { - $OS = $os if $guessed_platform =~ /$os/; - } - if ($OS eq "darwin") { - $CPU = "universal"; # TL provides universal binaries - } elsif ($CPU =~ /^i.86$/) { - $CPU =~ s/i.86/i386/; - } - unless (defined $OS) { - ($OS = $guessed_platform) =~ s/.*-(.*)/$1/; - } - $::_platform_ = "$CPU-$OS"; - } - } - return $::_platform_; -} - |