From 292c6cc592c9f7b05c50455851ec79116e4eb3fc Mon Sep 17 00:00:00 2001
From: Richard Tucker <rit@harlequin.com>
Date: Thu, 15 May 1997 16:18:02 +0100
Subject: [PATCH] Adapt to solaris

Copied from Perforce
 Change: 18177
 ServerID: perforce.ravenbrook.com
---
 mps/qa/test/qa | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/mps/qa/test/qa b/mps/qa/test/qa
index c5d8c0dc422..662529ec0c3 100644
--- a/mps/qa/test/qa
+++ b/mps/qa/test/qa
@@ -71,7 +71,10 @@ $qa_command = shift(@qa_args);
 
 foreach (keys %qa_options) {
  unless (eval("$".$qa_options{$_})) {
-  die "Error: you must specify $qa_options{$_} (use the -$_ option).\n";
+  eval("$".$qa_options{$_}." = \$ENV{'".$qa_options{$_}."'}");
+  unless (eval("$".$qa_options{$_})) {
+   die "Error: please specify $qa_options{$_} (use the -$_ option).\n";
+  }
  }
 }