From 370676a5c3cba6ce366019a453c43a3b07717dcf Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sat, 12 Jul 2008 12:23:45 +0000 Subject: make platform working on alpha-linux git-svn-id: svn://tug.org/texlive/trunk@9468 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLUtils.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index ed796829dcf..f4b3ba27701 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -174,6 +174,7 @@ sub platform { chomp $guessed_platform; $guessed_platform=~s/^x86_64-(.*)-freebsd$/amd64-$1-freebsd/; ($CPU=$guessed_platform)=~s/(.*?)-.*/$1/; + $CPU =~ s/^alpha(.*)/alpha/; foreach my $os (@OSs) { $OS=$os if $guessed_platform=~/$os/; } -- cgit v1.2.3