20 lines
626 B
Perl
20 lines
626 B
Perl
sub Regxpcom {
|
|
#
|
|
# Before running tests, run regxpcom so that we don't crash when
|
|
# people change contractids on us (since we don't autoreg opt builds)
|
|
#
|
|
unlink("$binary_dir/components/compreg.dat") or warn "$binary_dir/components/compreg.dat not removed\n";
|
|
if($Settings::RegxpcomTest) {
|
|
my $args;
|
|
if ($Settings::BinaryName =~ /^(firefox|thunderbird)/) {
|
|
$args = [$binary, "-register"];
|
|
} else {
|
|
$args = ["$binary_dir/regxpcom"];
|
|
}
|
|
AliveTest("regxpcom", $binary_dir, $args,
|
|
$Settings::RegxpcomTestTimeout);
|
|
}
|
|
}
|
|
|
|
1;
|