From 3a9fdbf893e79cd2bb187e4f5b882776c55afc29 Mon Sep 17 00:00:00 2001
From: Richard Tucker <rit@harlequin.com>
Date: Wed, 7 Oct 1998 14:38:21 +0100
Subject: [PATCH] Change "params" to "parameters" now the output field is wider

Copied from Perforce
 Change: 20176
 ServerID: perforce.ravenbrook.com
---
 mps/qa/test/script/headread | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/mps/qa/test/script/headread b/mps/qa/test/script/headread
index c42f190088d..70be5787915 100644
--- a/mps/qa/test/script/headread
+++ b/mps/qa/test/script/headread
@@ -1,5 +1,5 @@
 #!/usr/local/bin/perl
-# $HopeName: MMQA_harness!script:headread(trunk.8) $
+# $HopeName: MMQA_harness!script:headread(trunk.9) $
 #
 # subroutines to assist in
 #  1. reading test headers
@@ -173,8 +173,8 @@ sub get_parmdefs {
  local ($var, $missing);
  $missing = "";
  %parmdefs = ();
- if (exists $test_header{"params"}) {
-  foreach (split /\s+/, $test_header{"params"}) {
+ if (exists $test_header{"parameters"}) {
+  foreach (split /\s+/, $test_header{"parameters"}) {
    $var = getparameter($_);
    if (defined $var) {
     $parmdefs{$_} = $var;