From 1ac81a3ac35cc7a4ccf188c85b21561616abbd0e Mon Sep 17 00:00:00 2001 From: TLINDEN Date: Wed, 26 Feb 2014 18:27:10 +0100 Subject: [PATCH] added support for backticks in variables --- tests/unittests.pl | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/tests/unittests.pl b/tests/unittests.pl index 09f4e16..cf39818 100755 --- a/tests/unittests.pl +++ b/tests/unittests.pl @@ -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} =~ />/) {