mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-01-14 23:40:39 -08:00
Bug whereby test with non-defaulted parameters don't appear in index
Copied from Perforce Change: 20207 ServerID: perforce.ravenbrook.com
This commit is contained in:
parent
f065a87499
commit
8e40752920
1 changed files with 5 additions and 3 deletions
|
|
@ -1,5 +1,5 @@
|
|||
#!/usr/local/bin/perl
|
||||
# $HopeName: MMQA_harness!script:headread(trunk.10) $
|
||||
# $HopeName: MMQA_harness!script:headread(trunk.11) $
|
||||
#
|
||||
# subroutines to assist in
|
||||
# 1. reading test headers
|
||||
|
|
@ -34,7 +34,7 @@
|
|||
#
|
||||
|
||||
sub readheader {
|
||||
local($infile) = @_;
|
||||
local($infile, $parms) = @_;
|
||||
|
||||
unless (open(IN, $infile)) {
|
||||
die "File ".$infile." not found.";
|
||||
|
|
@ -71,7 +71,9 @@ sub readheader {
|
|||
%spec_rel = %keyrelations;
|
||||
|
||||
close(IN);
|
||||
&get_parmdefs();
|
||||
if ($parms) {
|
||||
&get_parmdefs();
|
||||
}
|
||||
}
|
||||
|
||||
sub readvals {
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue