Test Driver: Detect missing system perl

This commit is contained in:
Wilson Snyder 2009-06-12 09:08:46 -04:00
parent 10a3aa18bc
commit 46fb5a852f

View File

@ -25,6 +25,9 @@ $Fork = Forker->new(use_sig_child=>1) if !$Fork;
$SIG{CHLD} = sub { $Fork->sig_child() if $Fork; };
$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");
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",
fails=>$param{fails},