diff options
author | Dag-Erling Smørgrav <des@FreeBSD.org> | 2004-06-12 11:22:21 +0000 |
---|---|---|
committer | Dag-Erling Smørgrav <des@FreeBSD.org> | 2004-06-12 11:22:21 +0000 |
commit | 640d785fc9f25cdedbde5dda38a7cc36695242da (patch) | |
tree | bff21b17cd799c430b6618eed1deae50ce307e74 | |
parent | 5321c2a9b02e061e8f5afe4538634523e9e37927 (diff) | |
download | src-test2-640d785fc9f25cdedbde5dda38a7cc36695242da.tar.gz src-test2-640d785fc9f25cdedbde5dda38a7cc36695242da.zip |
Notes
-rw-r--r-- | tools/tools/tinderbox/tbmaster.pl | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/tools/tools/tinderbox/tbmaster.pl b/tools/tools/tinderbox/tbmaster.pl index c3eedcf4e3c5..12d7a87f38ce 100644 --- a/tools/tools/tinderbox/tbmaster.pl +++ b/tools/tools/tinderbox/tbmaster.pl @@ -199,6 +199,7 @@ sub tinderbox($$$) { my $arch = shift; my $machine = shift; + my $config = expand('CONFIG'); my $start = time(); $CONFIG{'BRANCH'} = $branch; @@ -206,7 +207,8 @@ sub tinderbox($$$) { $CONFIG{'MACHINE'} = $machine; # Open log files: one for the full log and one for the summary - my $logfile = expand('LOGDIR') . "/tinderbox-$branch-$arch-$machine"; + my $logfile = expand('LOGDIR') . + "/tinderbox-$config-$branch-$arch-$machine"; local (*FULL, *BRIEF); if (!open(FULL, ">", "$logfile.full.$$")) { warn("$logfile.full.$$: $!\n"); @@ -461,6 +463,11 @@ MAIN:{ chdir($etcdir) or die("$etcdir: $!\n"); } + for (my $n = 0; $n < @configs; ++$n) { + $configs[$n] =~ m/^(\w+)$/ + or die("invalid config: $configs[$n]\n"); + $configs[$n] = $1; + } # Run all specified or implied configurations foreach my $config (@configs) { |