diff --git a/ivtest/perl-lib/Environment.pm b/ivtest/perl-lib/Environment.pm index a348e91cc..f5103744b 100644 --- a/ivtest/perl-lib/Environment.pm +++ b/ivtest/perl-lib/Environment.pm @@ -91,14 +91,15 @@ sub get_regress_fn { # sub get_ivl_version { my $sfx = shift(@_); - if (`iverilog$sfx -V` =~ /^Icarus Verilog version (\d+)\.(\d+)/) { + my $cmd = "iverilog$sfx -V"; + if (`$cmd` =~ /^Icarus Verilog version (\d+)\.(\d+)/) { if ($1 == 0) { return $1.".".$2; } else { return $1; } } else { - die "Failed to get version from iverilog$sfx -V output"; + die "Failed to get version from '$cmd' output"; } }