runtests.pl: Don't expect $TESTDIR/DISABLED to exist

If a non-standard $TESTDIR is used the file may not be necessary.

Previously a "missing" file resulted in the warning:
readline() on closed filehandle D at ./runtests.pl line 4940.
This commit is contained in:
Fabian Keil 2014-06-19 16:40:06 +02:00 committed by Dan Fandrich
parent 5828e886e6
commit dc7a598126
1 changed files with 11 additions and 10 deletions

View File

@ -4865,20 +4865,21 @@ if(!$listonly) {
}
#######################################################################
# Fetch all disabled tests
# Fetch all disabled tests, if there are any
#
open(D, "<$TESTDIR/DISABLED");
while(<D>) {
if(/^ *\#/) {
# allow comments
next;
}
if($_ =~ /(\d+)/) {
$disabled{$1}=$1; # disable this test number
if(open(D, "<$TESTDIR/DISABLED")) {
while(<D>) {
if(/^ *\#/) {
# allow comments
next;
}
if($_ =~ /(\d+)/) {
$disabled{$1}=$1; # disable this test number
}
}
close(D);
}
close(D);
#######################################################################
# If 'all' tests are requested, find out all test numbers