From 1a4e29803eb2da099155b64adbbfcdbe3292da68 Mon Sep 17 00:00:00 2001
From: Richard Tucker <rit@harlequin.com>
Date: Tue, 9 Jun 1998 15:35:26 +0100
Subject: [PATCH] Add linux platform detection

Copied from Perforce
 Change: 19646
 ServerID: perforce.ravenbrook.com
---
 mps/qa/test/script/options | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/mps/qa/test/script/options b/mps/qa/test/script/options
index fe4e1734748..de88fc39543 100644
--- a/mps/qa/test/script/options
+++ b/mps/qa/test/script/options
@@ -1,5 +1,5 @@
 #!/usr/local/perl
-# $HopeName$
+# $HopeName: MMQA_harness!script:options(trunk.11) $
 #
 
 # global options for qa commands
@@ -10,7 +10,7 @@
 
 # first to see where we are:
 
-if ($ENV{"OS"} eq "Windows_NT") {
+if (($ENV{"OS"} || "") eq "Windows_NT") {
  # it's NT, so find out what the processor is
  #  from a system variable
  $platform_class = "nt_".$ENV{"PROCESSOR_ARCHITECTURE"};
@@ -18,6 +18,10 @@ if ($ENV{"OS"} eq "Windows_NT") {
   $platform_class = "nt_dunno";
  }
  $platform_phylum = "pc";
+} elsif (($ENV{"OSTYPE"} || "") eq "Linux") {
+# it's Linux. We'll assume they're all the same!
+ $platform_class = "linux";
+ $platform_phylum = "unix";
 } else {
  # it's unix by default
  $platform_class = `class`;
@@ -38,7 +42,7 @@ if ($ENV{"OS"} eq "Windows_NT") {
 );
 
 %qa_defaults = (
- "PLATFORM", $platform_class,
+ "PLATFORM", $platform_class."::".$platform_phylum,
  "DEBUG_INFO", "off",
  "LOG_DIR", "$test_dir/log",
  "INTERFACE_VERSION", "BQ"