Test Driver: Detect missing system perl
This commit is contained in:
parent
10a3aa18bc
commit
46fb5a852f
|
|
@ -25,6 +25,9 @@ $Fork = Forker->new(use_sig_child=>1) if !$Fork;
|
||||||
$SIG{CHLD} = sub { $Fork->sig_child() if $Fork; };
|
$SIG{CHLD} = sub { $Fork->sig_child() if $Fork; };
|
||||||
$SIG{TERM} = sub { $Fork->kill_tree_all('TERM') if $Fork; die "Quitting...\n"; };
|
$SIG{TERM} = sub { $Fork->kill_tree_all('TERM') if $Fork; die "Quitting...\n"; };
|
||||||
|
|
||||||
|
our $Have_System_Perl;
|
||||||
|
eval "use SystemC::Netlist; \$Have_System_Perl=1;";
|
||||||
|
|
||||||
#======================================================================
|
#======================================================================
|
||||||
|
|
||||||
#======================================================================
|
#======================================================================
|
||||||
|
|
@ -419,6 +422,10 @@ sub compile {
|
||||||
$self->error("Test requires SystemC; ignore error since not installed\n");
|
$self->error("Test requires SystemC; ignore error since not installed\n");
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
|
elsif ($self->{trace} && !$Have_System_Perl) {
|
||||||
|
$self->error("Test requires SystemPerl; ignore error since not installed\n");
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
$self->_run(logfile=>"$self->{obj_dir}/vl_compile.log",
|
$self->_run(logfile=>"$self->{obj_dir}/vl_compile.log",
|
||||||
fails=>$param{fails},
|
fails=>$param{fails},
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue