summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-01-31 23:15:19 +0000
committerKarl Berry <karl@freefriends.org>2009-01-31 23:15:19 +0000
commit6bcf0cb801eb864559cd43726d255f7a1539b8ff (patch)
tree42c7287793bea85068e8840873fcb810586edfbf
parent21df98781213fbba0a3695fed268c505c2d70489 (diff)
(configguess): remove this unfinished,
unfinishable, and unused fn. git-svn-id: svn://tug.org/texlive/trunk@12030 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm72
1 files changed, 0 insertions, 72 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index 059be328ee8..1f3d3f951f9 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -156,78 +156,6 @@ the HD/CD/DVD.
=cut
-sub configguess {
- return "win32" if ($^O=~/^MSWin(32|64)$/i);
- chomp( my $umachine = `uname -m 2>/dev/null` );
- chomp( my $usystem = `uname -s 2>/dev/null` );
- #
- # OpenBSD only supported on i386
- if ($usystem eq "OpenBSD") {
- chomp (my $cpu = `arch`);
- $cpu =~ s/OpenBSD.//;
- $cpu =~ s/i.86/i386/;
- return("$cpu-openbsd");
- }
- #
- # FreeBSD on amd64, i386
- if ($usystem eq "FreeBSD") {
- if ($umachine eq "pc98") {
- return "i386-freebsd";
- } elsif ($umachine eq "x86_64") {
- return "amd64-freebsd";
- } else {
- return "$umachine-freebsd";
- }
- }
- #
- # Linux on alpha, i386, powerpc, sparc, x86_64
- if ($usystem eq "Linux") {
- if ($umachine eq "alpha") {
- return "alpha-linux";
- } elsif ($umachine =~ m/^i.86$/) {
- return "i386-linux";
- } elsif ($umachine eq "x86_64") {
- return "x86_64-linux";
- } elsif ($umachine eq "ppc") {
- return "powerpc-linux";
- # } elsif ($umachine eq "ppc64") {
- # return "powerpc64-linux"; # do we have support for that with ppc?
- } elsif ($umachine =~ m/^padre|sparc$/) {
- return "sparc-linux";
- } else {
- return "$umachine-linux";
- }
- }
- #
- # hpux on hppa
- if ($usystem eq "HP-UX") {
- if ($umachine =~ m:9000/[678][0-9][0-9]:) {
- return "hppa-hpux"; # lets hope for the best, it might break!
- } else {
- return "$umachine-hpux";
- }
- }
- #
- # aix on powerpc
- # THAT IS A PAIN!!!!!
- #
- # solaris on i386, sparc
- # THAT IS A PAIN!!!!!
- #
- # irix on mips
- if ($usystem eq "IRIX") {
- return "mips-irix";
- }
- #
- # darwin on universal
- if ($usystem eq "Darwin") {
- return "universal-darwin";
- }
- #
- # if we are still here we can still call config.guess ... ????
- #
-}
-
sub platform {
unless (defined $::_platform_) {
if ($^O=~/^MSWin(32|64)$/i) {