diff options
| author | Dag-Erling Smørgrav <des@FreeBSD.org> | 2003-02-23 21:24:08 +0000 |
|---|---|---|
| committer | Dag-Erling Smørgrav <des@FreeBSD.org> | 2003-02-23 21:24:08 +0000 |
| commit | bbcbd93649d6eb630efc98864f7e829ecbb55b51 (patch) | |
| tree | 4e11993e5f9821feff7fda1d8dfd6918782aa54d /tools | |
| parent | 910548dea729e52e27a95187cd3f7e9859ba05f2 (diff) | |
Notes
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/tools/tinderbox/tbmaster.pl | 19 |
1 files changed, 15 insertions, 4 deletions
diff --git a/tools/tools/tinderbox/tbmaster.pl b/tools/tools/tinderbox/tbmaster.pl index dab75fae9b7b..4282d0d25fb4 100644 --- a/tools/tools/tinderbox/tbmaster.pl +++ b/tools/tools/tinderbox/tbmaster.pl @@ -222,8 +222,8 @@ sub usage() { MAIN:{ usage() - unless (@ARGV == 1); - my $config = lc($ARGV[0]); + unless (@ARGV >= 1); + my $config = lc(shift(@ARGV)); usage() unless (exists($CONFIGS{$config}) && $config ne 'global'); %CONFIG = %{$CONFIGS{$config}}; @@ -244,10 +244,21 @@ MAIN:{ } foreach my $branch (sort(@{$CONFIG{'BRANCHES'}})) { - foreach my $arch (sort(keys(%{$CONFIG{'ARCHES'}}))) { - foreach my $machine (sort(@{$CONFIG{'ARCHES'}->{$arch}})) { + if (@ARGV) { + foreach my $target (@ARGV) { + $target =~ m|^(\w+)(?:/(\w+))?$| + or die("invalid target specification: $target\n"); + my ($arch, $machine) = ($1, $2); + $machine = $arch + unless defined($machine); tinderbox($branch, $arch, $machine); } + } else { + foreach my $arch (sort(keys(%{$CONFIG{'ARCHES'}}))) { + foreach my $machine (sort(@{$CONFIG{'ARCHES'}->{$arch}})) { + tinderbox($branch, $arch, $machine); + } + } } } } |