From d012c8ad066c13540bb982ad13e578ec69ca034e Mon Sep 17 00:00:00 2001
From: Richard Tucker <rit@harlequin.com>
Date: Wed, 12 Nov 1997 16:34:51 +0000
Subject: [PATCH] Allow flag defaults

Copied from Perforce
 Change: 18978
 ServerID: perforce.ravenbrook.com
---
 mps/qa/test/script/optproc | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/mps/qa/test/script/optproc b/mps/qa/test/script/optproc
index 6a48da6fc18..897122f13ca 100644
--- a/mps/qa/test/script/optproc
+++ b/mps/qa/test/script/optproc
@@ -110,10 +110,12 @@ sub optioncode {
 }
 
 sub applydefaults {
- local ($opt, $val);
+ local ($opt, $val, %arr);
 
- foreach (keys %qa_options) {
-  $opt = $qa_options{$_};
+ %arr = (%qa_options, %qa_flags);
+
+ foreach (keys %arr) {
+  $opt = ($qa_options{$_} || $qa_flags{$_});
   unless (&getoption($opt)) {
    $val = $ENV{"MMQA_".$opt};
    unless ($val) {