← Back to branch summary

~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to combinations.pl

merge from internal tree

Show diffs side-by-side

added added

removed removed

Lines of Context:
combinations.pl
6
6
use Getopt::Long;
7
7
use Data::Dumper;
8
8
 
9
 
my ($config_file, $basedir, $vardir, $trials, $duration, $grammar, $gendata);
10
 
my $seed = 1;
 
9
my ($config_file, $basedir, $vardir, $trials, $duration, $grammar, $gendata, $seed);
 
10
 
11
11
my $combinations;
12
12
my %results;
13
13
my @commands;
33
33
eval ($config_text);
34
34
die "Unable to load $config_file: $@" if $@;
35
35
 
 
36
mkdir($basedir);
 
37
 
36
38
my $comb_count = $#$combinations + 1;
37
39
 
38
40
foreach my $trial_id (1..$trials) {