mirror of
https://github.com/verilator/verilator.git
synced 2025-04-30 04:26:55 +00:00
Tests: Fix driver when VERILATOR_ROOT not set.
This commit is contained in:
parent
252ed4c1ae
commit
c17a9eb5f1
@ -3,14 +3,17 @@
|
|||||||
######################################################################
|
######################################################################
|
||||||
|
|
||||||
require 5.006_001;
|
require 5.006_001;
|
||||||
|
use Cwd;
|
||||||
BEGIN {
|
BEGIN {
|
||||||
if ($ENV{DIRPROJECT} && $ENV{DIRPROJECT_PERL_BOOT}) {
|
if ($ENV{DIRPROJECT} && $ENV{DIRPROJECT_PERL_BOOT}) {
|
||||||
# Magic to allow author testing of perl packages in local directory
|
# Magic to allow author testing of perl packages in local directory
|
||||||
require $ENV{DIRPROJECT}."/".$ENV{DIRPROJECT_PERL_BOOT};
|
require $ENV{DIRPROJECT}."/".$ENV{DIRPROJECT_PERL_BOOT};
|
||||||
}
|
}
|
||||||
|
if (!$ENV{VERILATOR_ROOT} && -x "../bin/verilator") {
|
||||||
|
$ENV{VERILATOR_ROOT} = Cwd::getcwd()."/..";
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
use Cwd;
|
|
||||||
use Getopt::Long;
|
use Getopt::Long;
|
||||||
use IO::File;
|
use IO::File;
|
||||||
use Pod::Usage;
|
use Pod::Usage;
|
||||||
|
Loading…
Reference in New Issue
Block a user