mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-15 15:50:57 -08:00
Code Issues Projects Releases Wiki Activity

Fix bug

Browse source 
Copied from Perforce
 Change: 20198
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Tucker 1998-10-08 11:30:24 +01:00
parent 946b212a98
commit e1f7afcfcf
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
mps/qa/test/script/runtest
View file

@ -1,5 +1,5 @@
#!/usr/local/perl
# $HopeName: MMQA_harness!script:runtest(trunk.5) $
# $HopeName: MMQA_harness!script:runtest(trunk.6) $
#
# provides subroutines to run tests and testsets
#
@ -23,7 +23,9 @@ sub setstdin {
local ($stdin);
$stdin = $STDIN;
if (!defined $stdin || $stdin eq "") {
$stdin = $DATA_DIR."/".$test_header{"stdin"};
if ($test_header{"stdin"}) {
$stdin = $DATA_DIR."/".$test_header{"stdin"};
}
}
if (!defined $stdin || $stdin eq "") {
$stdin = "STDIN";