6 print "$dir is not a directory\n";
13 opendir(CHECKS, $dir);
14 while (my $d = readdir(CHECKS)) {
15 next if (! -d "$dir/$d" || $d eq '.' || $d eq '..');
16 unless (-f "$dir/$d/check") {
17 print "No check script in $dir/$d\n";
20 print "Running check $dir/$d: ";
21 system("runcheckdir $dir/$d");
22 my $exitstatus = $? >> 8;