added support for backticks in variables

This commit is contained in:
TLINDEN
2014-02-26 18:27:10 +01:00
parent 2b54ac015a
commit 1ac81a3ac3

View File

@@ -73,6 +73,10 @@ sub runtest {
my($cfg, $name) = @_;
my($in, $out, $error, $timeout);
foreach my $key (keys %{$cfg}) {
$cfg->{$key} =~ s/\`([^\`]*)\`/my $result = `$1`; chomp $result; $result/ge;
}
if (exists $cfg->{prepare}) {
print STDERR " executing prepare command: $cfg->{prepare}\n" if ($verbose);
if ($cfg->{prepare} =~ />/) {